izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ti84: implement a-lock

Browse Source 
There's a bug where the first char after a-lock isn't a-modded. I
have troubles figuring it out for now. It feels like deja vu. I
think I had the same problem with asm.
This commit is contained in:
Virgil Dupras 2020-05-10 09:37:36 -04:00
parent a476773813
commit 06a4674317
3 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
blk/568
View File

@ -7,3 +7,7 @@ CREATE _atbl
0x20 C, 'Y' C, 'T' C, 'O' C, 'J' C, 'E' C, 'B' C, 0 C, 0x20 C, 'Y' C, 'T' C, 'O' C, 'J' C, 'E' C, 'B' C, 0 C,
0 C, 'X' C, 'S' C, 'N' C, 'I' C, 'D' C, 'A' C, 0x80 C, 0 C, 'X' C, 'S' C, 'N' C, 'I' C, 'D' C, 'A' C, 0x80 C,
0 C, 0 C, 0 C, 0 C, 0 C, 0x81 ( 2nd ) C, 0 C, 0x7f C, 0 C, 0 C, 0 C, 0 C, 0 C, 0x81 ( 2nd ) C, 0 C, 0x7f C,
: _2nd@ 0 [ KBD_MEM LITN ] BIT@ ;
: _2nd! 0 [ KBD_MEM LITN ] BIT! ;
: _alock@ 1 [ KBD_MEM LITN ] BIT@ ;
: _alock^ _alock@ NOT 1 [ KBD_MEM LITN ] BIT! ;

14
blk/570
View File

@ -1,6 +1,12 @@
: _tbl^ ( swap input tbl )
_atbl = IF _dtbl ELSE _atbl THEN ;
: (key) : (key)
_dtbl 0 ( dummy ) BEGIN ( tbl 0 ) 0 _2nd! 0 ( lastchr ) BEGIN
DROP DUP ( tbl ) _gti + C@ _alock@ IF _atbl ELSE _dtbl THEN
DUP 0x80 = IF ( alpha ) 2DROP _atbl 0 THEN OVER 0x80 ( alpha ) =
DUP UNTIL ( tbl c -- loop if null ) SWAP DROP IF _tbl^ _2nd@ IF _alock^ THEN THEN
SWAP 0x81 = _2nd!
_gti + C@
DUP 0 0x80 >< UNTIL ( loop if not in range )
_wait ; _wait ;
: KBD$ 0 [ KBD_MEM LITN ] C! ;

3
recipes/ti84/xcomp.fs
View File

@ -1,6 +1,7 @@
0x8000 CONSTANT RAMSTART 0x8000 CONSTANT RAMSTART
0xb000 CONSTANT RS_ADDR 0xb000 CONSTANT RS_ADDR
RAMSTART 0x70 + CONSTANT LCD_MEM RAMSTART 0x70 + CONSTANT LCD_MEM
RAMSTART 0x72 + CONSTANT KBD_MEM
0x01 CONSTANT KBD_PORT 0x01 CONSTANT KBD_PORT
212 LOAD ( z80 assembler ) 212 LOAD ( z80 assembler )
262 LOAD ( xcomp ) 262 LOAD ( xcomp )
@ -25,6 +26,6 @@ PC ORG @ 8 + !
422 437 XPACKR ( core ) 422 437 XPACKR ( core )
558 560 XPACKR ( LCD high ) 558 560 XPACKR ( LCD high )
438 451 XPACKR ( print fmt readln ) 438 451 XPACKR ( print fmt readln )
," : _ LCD$ (ok) RDLN$ ; _ " ," : _ LCD$ KBD$ (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!