ti84: fix glitches

This commit is contained in:
Virgil Dupras 2020-05-09 15:31:41 -04:00
parent e06d6c5345
commit abafd6d67b
3 changed files with 5 additions and 5 deletions

View File

@ -10,5 +10,5 @@
( Changes the current line and go back to leftmost column )
: _lf
LCD_CURY C@ FNTH 1+ + DUP 63 > IF DROP 0 THEN
DUP _clrln DUP FNTH 1+ _zoff!
DUP _clrln DUP FNTH 1+ + _zoff!
LCD_CURY C! 0 LCD_CURX C! ;

View File

@ -1,4 +1,4 @@
: (key)
: _
0 ( gid ) 0 ( dummy )
BEGIN ( loop until a digit is pressed )
DROP
@ -9,5 +9,5 @@
0xff XOR ( dpos ) 0 ( dindex )
BEGIN 1+ 2DUP RSHIFT NOT UNTIL 1-
( gid dpos dindex ) SWAP DROP
( gid dindex ) SWAP 8 * + _dtbl + C@ _wait
;
( gid dindex ) SWAP 8 * + _dtbl + C@ _wait ;
: (key) 0 ( dummy ) BEGIN DROP _ DUP UNTIL ;

View File

@ -24,7 +24,7 @@ CURRENT @ XCURRENT !
PC ORG @ 8 + !
422 437 XPACKR ( core )
558 560 XPACKR ( LCD high )
438 459 XPACKR ( print fmt readln )
438 451 XPACKR ( print fmt readln )
," : _ LCD$ (ok) RDLN$ ; _ "
ORG @ 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC!