mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-05 18:28:45 +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
|