1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-07-23 21:10:19 +10:00
collapseos/blk/334
Virgil Dupras bf4ab0f1b4 z80: protect or avoid BC wherever it's used
For the IY->BC move, of course.
2020-07-05 23:12:17 -04:00

14 lines
213 B
Plaintext

CODE RSHIFT ( n u -- n )
DE POP, ( u )
HL POP, ( n )
chkPS,
A E LDrr,
A ORr, IFNZ,
BEGIN,
H SRL, L RR,
A DECr,
JRNZ, AGAIN,
THEN,
HL PUSH,
;CODE