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

ti84: we have a prompt

Browse Source
This commit is contained in:
Virgil Dupras 2020-05-09 14:28:55 -04:00
parent 4ce0727c72
commit e06d6c5345
5 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
blk/564
View File

@ -1,6 +1,6 @@
Keyboard driver Keyboard driver
Low layer range: 566-568 Low layer range: 566-569
Implement a (key) word that interpret keystrokes from the Implement a (key) word that interpret keystrokes from the
builtin keyboard. The word waits for a digit to be pressed and builtin keyboard. The word waits for a digit to be pressed and

4
blk/567
View File

@ -2,8 +2,8 @@
require 64 subsequent polls to indicate all depressed keys. require 64 subsequent polls to indicate all depressed keys.
all keys are considered depressed when the 0 group returns all keys are considered depressed when the 0 group returns
0xff. ) 0xff. )
: _wait 64 0 DO 0 _get 0xff = UNTIL ; : _wait 64 BEGIN 0 _get 0xff = NOT IF DROP 64 THEN
1- DUP NOT UNTIL DROP ;
( digits table. seach row represents a group. 0 means ( digits table. seach row represents a group. 0 means
unsupported. no group 7 because it has no key. ) unsupported. no group 7 because it has no key. )
CREATE _dtbl CREATE _dtbl

4
blk/569
View File

@ -7,7 +7,7 @@
DUP 0xff = NOT UNTIL DUP 0xff = NOT UNTIL
( gid dmask ) ( gid dmask )
0xff XOR ( dpos ) 0 ( dindex ) 0xff XOR ( dpos ) 0 ( dindex )
BEGIN 2DUP RSHIFT IF 1+ 1 ELSE 0 THEN UNTIL BEGIN 1+ 2DUP RSHIFT NOT UNTIL 1-
( gid dpos dindex ) SWAP DROP ( gid dpos dindex ) SWAP DROP
( gid dindex ) SWAP 8 * + _dtbl + C@ ( gid dindex ) SWAP 8 * + _dtbl + C@ _wait
; ;

2
emul/hw/ti/ti84.c
View File

@ -21,7 +21,7 @@
#define INTERRUPT_PORT 0x03 #define INTERRUPT_PORT 0x03
#define LCD_CMD_PORT 0x10 #define LCD_CMD_PORT 0x10
#define LCD_DATA_PORT 0x11 #define LCD_DATA_PORT 0x11
#define MAX_ROMSIZE 0x2000 #define MAX_ROMSIZE 0x4000
static xcb_connection_t *conn; static xcb_connection_t *conn;
static xcb_screen_t *screen; static xcb_screen_t *screen;

4
recipes/ti84/xcomp.fs
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 446 XPACKR ( print fmt ) 438 459 XPACKR ( print fmt readln )
," : _ LCD$ LIT< Hello (print) (key) (emit) BYE ; _ " ," : _ 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!