1 files changed, 6 insertions(+), 6 deletions(-)

M src/main.tal

@@ 882,12 882,12 @@ RTN
 
 @op-o ( x y char -- ) ( TODO )
 
-	POP
-	( get x ) DUP2 [ SWP #02 - SWP ] GET-PORT-LEFT STH
-	( get y ) DUP2 [ SWP #01 - SWP ] GET-PORT-LEFT STH
-	( get value ) DUP2 [ SWP INC SWP ] STH2r ++ GET-PORT-RIGHT-RAW STH
-	( incr y ) INC
-	STHr SET-PORT-OUTPUT
+	POP POP2
+	.head/addr LDZ2 STH2k
+	( x ) STH2kr #0002 -- ;get-port-left-value JSR2 INC TOS ++
+	( y ) STH2kr #0001 -- ;get-port-left-value JSR2 TOS #00 .grid/width LDZ ** ++
+	( val ) ;get-port-right-raw JSR2
+	( output ) STH2r BELOW ;set-port-output JSR2
 
 RTN