Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-06-04 20:45:22 -08:00
parent d5819e0d25
commit 15653b98ee
1 changed files with 3 additions and 2 deletions

View File

@ -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 ( -- )