mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 11:08:05 +11:00
16 lines
268 B
Plaintext
16 lines
268 B
Plaintext
|
( Low-level part of ROLL. Example:
|
||
|
|
"1 2 3 4 4 (roll)" --> "1 3 4 4". No sanity checks, never
|
||
|
|
call with 0. )
|
||
|
|
CODE (roll)
|
||
|
|
HL POPqq,
|
||
|
|
B H LDrr,
|
||
|
|
C L LDrr,
|
||
|
|
SP ADDHLss,
|
||
|
|
HL INCss,
|
||
|
|
D H LDrr,
|
||
|
|
E L LDrr,
|
||
|
|
HL DECss,
|
||
|
|
HL DECss,
|
||
|
|
LDDR,
|
||
|
|
;CODE
|