izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-09-29 07:01:06 +10:00
Code Issues Releases Wiki Activity

ti84: allow case select during a-lock with 2nd mode

Browse Source
This commit is contained in:
Virgil Dupras 2020-05-10 11:39:10 -04:00
parent a6aba40327
commit 62ae1012df
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
blk/570
View File

@ -7,5 +7,8 @@
IF _tbl^ _2nd@ IF _alock^ THEN THEN IF _tbl^ _2nd@ IF _alock^ THEN THEN
SWAP 0x81 = _2nd! SWAP 0x81 = _2nd!
_gti + C@ _gti + C@
DUP 0 0x80 >< UNTIL ( loop if not in range ) ; DUP 0 0x80 >< UNTIL ( loop if not in range )
( lowercase? )
_2nd@ IF DUP 'A' 'Z' =><= IF 0x20 OR THEN THEN
;
: KBD$ 0 [ KBD_MEM LITN ] C! ; : KBD$ 0 [ KBD_MEM LITN ] C! ;