mirror of https://github.com/hsoft/collapseos.git
16 lines
248 B
Plaintext
16 lines
248 B
Plaintext
|
BEGIN, ( loop )
|
||
|
|
SCF,
|
||
|
|
C RLr,
|
||
|
|
RLA,
|
||
|
|
HL ADCHLss,
|
||
|
|
DE SBCHLss,
|
||
|
|
IFC,
|
||
|
|
DE ADDHLss,
|
||
|
|
C DECr,
|
||
|
|
THEN,
|
||
|
|
DJNZ, AGAIN, ( loop )
|
||
|
|
B A LDrr,
|
||
|
|
HL PUSHqq,
|
||
|
|
BC PUSHqq,
|
||
|
|
;CODE
|