1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-11 13:48:05 +11:00
collapseos/blk/321
2020-04-22 21:19:12 -04:00

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