mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 08:50:56 +11:00
ti84: fix glitches
This commit is contained in:
parent
e06d6c5345
commit
abafd6d67b
2
blk/558
2
blk/558
@ -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! ;
|
||||||
|
6
blk/569
6
blk/569
@ -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 ;
|
||||||
|
@ -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!
|
||||||
|
Loading…
Reference in New Issue
Block a user