mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:58:05 +11:00
17 lines
303 B
Plaintext
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
|