1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 03:40:54 +11:00
collapseos/blk/319

17 lines
290 B
Plaintext
Raw Normal View History

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