Housekeeping
This commit is contained in:
parent
d5819e0d25
commit
15653b98ee
|
@ -250,9 +250,10 @@
|
||||||
,&x2 STR2
|
,&x2 STR2
|
||||||
STH2
|
STH2
|
||||||
STH2
|
STH2
|
||||||
( dx ) SWP2r ,&x2 LDR2 OVR2r STH2r SUB2 abs2 ,&dx STR2
|
( dx ) ,&x2 LDR2 STH2kr SUB2 abs2 ,&dx STR2
|
||||||
|
( sx ) #0001 #ffff STH2kr ,&x2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sx STR2
|
||||||
|
( y x -> x y ) SWP2r
|
||||||
( dy ) #0000 ,&y2 LDR2 STH2kr SUB2 abs2 SUB2 ,&dy STR2
|
( dy ) #0000 ,&y2 LDR2 STH2kr SUB2 abs2 SUB2 ,&dy STR2
|
||||||
( sx ) #0001 #ffff OVR2r STH2r ,&x2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sx STR2
|
|
||||||
( sy ) #0001 #ffff STH2kr ,&y2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sy STR2
|
( sy ) #0001 #ffff STH2kr ,&y2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sy STR2
|
||||||
,&dx LDR2 ,&dy LDR2 ADD2
|
,&dx LDR2 ,&dy LDR2 ADD2
|
||||||
&>while ( -- )
|
&>while ( -- )
|
||||||
|
|
Loading…
Reference in New Issue