diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal index 70b6d8f..5b53f1f 100644 --- a/gui/notepad/src/notepad.tal +++ b/gui/notepad/src/notepad.tal @@ -253,8 +253,8 @@ ( dx ) #0001 #ffff ,&x2 LDR2 STH2kr SUB2k abs2 ,&dx STR2 ( sx ) SWP2 lts2 [ JMP SWP2 POP2 ] ,&sx STR2 ( y x -> x y ) SWP2r - ( dy ) #0000 ,&y2 LDR2 STH2kr SUB2 abs2 SUB2 ,&dy STR2 - ( sy ) #0001 #ffff STH2kr ,&y2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sy STR2 + ( dy ) #0001 #ffff ,&y2 LDR2 STH2kr SUB2k abs2 #0000 SWP2 SUB2 ,&dy STR2 + ( sy ) SWP2 lts2 [ JMP SWP2 POP2 ] ,&sy STR2 ,&dx LDR2 ,&dy LDR2 ADD2 &>while ( -- ) ( draw ) OVR2r STH2r STH2kr [ LIT &color $1 ]