1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 13:28:05 +11:00

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 ) ( Changes the current line and go back to leftmost column )
: _lf : _lf
LCD_CURY C@ FNTH 1+ + DUP 63 > IF DROP 0 THEN 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! ; LCD_CURY C! 0 LCD_CURX C! ;

View File

@ -1,4 +1,4 @@
: (key) : _
0 ( gid ) 0 ( dummy ) 0 ( gid ) 0 ( dummy )
BEGIN ( loop until a digit is pressed ) BEGIN ( loop until a digit is pressed )
DROP DROP
@ -9,5 +9,5 @@
0xff XOR ( dpos ) 0 ( dindex ) 0xff XOR ( dpos ) 0 ( dindex )
BEGIN 1+ 2DUP RSHIFT NOT UNTIL 1- BEGIN 1+ 2DUP RSHIFT NOT UNTIL 1-
( gid dpos dindex ) SWAP DROP ( 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 + ! PC ORG @ 8 + !
422 437 XPACKR ( core ) 422 437 XPACKR ( core )
558 560 XPACKR ( LCD high ) 558 560 XPACKR ( LCD high )
438 459 XPACKR ( print fmt readln ) 438 451 XPACKR ( print fmt readln )
," : _ LCD$ (ok) RDLN$ ; _ " ," : _ LCD$ (ok) RDLN$ ; _ "
ORG @ 256 /MOD 2 PC! 2 PC! ORG @ 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC! H@ 256 /MOD 2 PC! 2 PC!