mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 12:28:48 +10:00
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
|