izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 12:38:05 +11:00
Code Issues Releases Wiki Activity

ti84: unify drivers

Browse Source 
No more low/high
This commit is contained in:
Virgil Dupras 2020-05-12 12:41:47 -04:00
parent 1094ec9c57
commit 44b065ff99
5 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
blk/551
View File

@ -1,7 +1,7 @@
TI-84+ LCD driver
Implement (emit) on TI-84+ (for now)'s LCD screen. The low
level part are blocks 555-557 and high level ones are 558-560.
Implement (emit) on TI-84+ (for now)'s LCD screen.
Load range: 555-560
The screen is 96x64 pixels. The 64 rows are addressed directly
with CMD_ROW but columns are addressed in chunks of 6 or 8 bits

2
blk/559
View File

@ -12,5 +12,5 @@
LCD_CURY C@ _row! LCD_CURX C@ 8 / 1+ _col!
FNTH 0 DO LCD_BUF FNTH + I + C@ _data! LOOP
LCD_CURX C@ FNTW + 1+ DUP LCD_CURX C! ( x )
[ 96 FNTW - LITN ] > IF _lf THEN ;
96 FNTW - > IF _lf THEN ;

2
blk/560
View File

@ -1,4 +1,4 @@
: (emit)
DUP 0xd = IF DROP _lf EXIT THEN
DUP 0x20 0x7e =><= NOT IF DROP EXIT THEN
0x20 - FNTH * ['] ~FNT + _glyph> ;
0x20 - FNTH * ~FNT + _glyph> ;

2
blk/564
View File

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

8
recipes/ti84/xcomp.fs
View File

@ -65,16 +65,14 @@ CURRENT @ XCURRENT !
0x100 BIN( !
282 LOAD ( boot.z80 )
393 LOAD ( icore low )
555 557 LOADR ( LCD low )
CREATE ~FNT CPFNT3x5
555 560 LOADR ( LCD low )
566 570 LOADR ( KBD low )
415 LOAD ( icore high )
(entry) ~FNT CPFNT3x5
(entry) _
( Update LATEST )
PC ORG @ 8 + !
422 437 XPACKR ( core )
558 560 XPACKR ( LCD high )
438 451 XPACKR ( print fmt readln )
422 451 XPACKR ( core print fmt readln )
," : _ LCD$ KBD$ (ok) RDLN$ ; _ "
ORG @ 0x100 - 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC!