1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 15:58:05 +11:00
collapseos/blk/319
2020-04-22 21:19:12 -04:00

17 lines
303 B
Plaintext

CODE * ( DE * BC -> DE (high) and HL (low) )
DE POPqq, BC POPqq, chkPS,
HL 0 LDddnn,
A 0x10 LDrn,
( loop )
HL ADDHLss,
E RLr, D RLr,
JRNC, 4 A, ( noinc )
BC ADDHLss,
JRNC, 1 A, ( noinc )
DE INCss,
( noinc )
A DECr,
JRNZ, -14 A, ( loop )
HL PUSHqq,
;CODE