@@ 505,12 505,12 @@ JMP2r
#2710 LIT2r 00fb
&w
- DIV2k #000a DIV2k MUL2 SUB2 NIP
- DUP SWPr STHkr EQU ?&skip
+ DIV2k #000a DIV2k MUL2 SUB2 NIP SWPr
+ DUP STHkr ORA #00 EQU ?&skip
DUP LIT "0 ADD #19 DEO INCr
&skip
- POP SWPr #000a DIV2
- INCr STHkr ?&w
+ POP #000a DIV2
+ SWPr INCr STHkr ?&w
POP2r POP2 POP2
JMP2r