|
|
|
|
@ -1220,7 +1220,7 @@ JMP2r
|
|
|
|
|
STH2r |
|
|
|
|
DUP2 ROT2 SWP2 #0006 ADD2 STA2 |
|
|
|
|
DUP2 ROT2 SWP2 #0004 ADD2 STA2 |
|
|
|
|
DUP2 ROT2 SWP2 #0002 ADD2 STA2 |
|
|
|
|
DUP2 ROT2 SWP2 INC2 INC2 STA2 |
|
|
|
|
DUP2 ROT2 SWP2 STA2 |
|
|
|
|
POP2 |
|
|
|
|
|
|
|
|
|
@ -1229,7 +1229,7 @@ JMP2r
|
|
|
|
|
@within-rect ( x* y* rect -- flag ) |
|
|
|
|
|
|
|
|
|
STH |
|
|
|
|
( y LTH rect.y1 ) DUP2 STHkr #02 ADD LDZ2 LTH2 ,&skip JCN |
|
|
|
|
( y LTH rect.y1 ) DUP2 STHkr INC2 INC2 LDZ2 LTH2 ,&skip JCN |
|
|
|
|
( y GTH rect.y2 ) DUP2 STHkr #06 ADD LDZ2 GTH2 ,&skip JCN |
|
|
|
|
SWP2 |
|
|
|
|
( x LTH rect.x1 ) DUP2 STHkr LDZ2 LTH2 ,&skip JCN |
|
|
|
|
@ -1357,7 +1357,7 @@ JMP2r
|
|
|
|
|
|
|
|
|
|
@print ( short* -- ) |
|
|
|
|
|
|
|
|
|
&short ( short* -- ) SWP ,&byte JSR |
|
|
|
|
SWP ,&byte JSR |
|
|
|
|
&byte ( byte -- ) DUP #04 SFT ,&char JSR |
|
|
|
|
&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO |
|
|
|
|
|
|
|
|
|
|
Devine Lu Linvega
4 years ago