collapseos/blk/319

17 lines
290 B
Plaintext
Raw Normal View History

2020-04-22 21:19:12 -04:00
CODE * ( DE * BC -> DE (high) and HL (low) )
DE POP, BC POP, chkPS,
HL 0 LDdn,
A 0x10 LDri,
2020-04-22 21:19:12 -04:00
( loop )
HL ADDHLd,
E RL, D RL,
2020-04-22 21:19:12 -04:00
JRNC, 4 A, ( noinc )
BC ADDHLd,
2020-04-22 21:19:12 -04:00
JRNC, 1 A, ( noinc )
DE INCd,
2020-04-22 21:19:12 -04:00
( noinc )
A DECr,
JRNZ, -14 A, ( loop )
HL PUSH,
2020-04-22 21:19:12 -04:00
;CODE