1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 19:38:06 +11:00
collapseos/blk/335

14 lines
213 B
Plaintext
Raw Normal View History

2020-05-08 05:40:10 +10:00
CODE LSHIFT ( n u -- n )
DE POP, ( u )
HL POP, ( n )
2020-05-08 05:40:10 +10:00
chkPS,
A E LDrr,
A ORr, IFNZ,
2020-05-08 05:40:10 +10:00
BEGIN,
L SLA, H RL,
A DECr,
JRNZ, AGAIN,
2020-05-08 05:40:10 +10:00
THEN,
HL PUSH,
2020-05-08 05:40:10 +10:00
;CODE