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

ti84: HelloWorld!

Browse Source 
In emulator of course...
This commit is contained in:
Virgil Dupras 2020-05-08 11:36:50 -04:00
parent b90efb0f7f
commit ffdc58739a
6 changed files with 41 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
blk/522
View File

@ -10,7 +10,7 @@
LOOP ;
: CPFNT3x5
0 , 0 , 0 C, ( space char )
530 BLK@ BLK( 21 _l 192 + 21 _l 192 + 21 _l ( 63 )
531 BLK@ BLK( 21 _l 192 + 10 _l ( 94! )
530 BLK@ BLK( 21 _l 320 + 21 _l 320 + 21 _l ( 63 )
531 BLK@ BLK( 21 _l 320 + 10 _l ( 94! )
;

7
blk/557
View File

@ -3,10 +3,9 @@
: _data@ LCD_PORT_DATA PC@ LCDWAIT ;
: LCDOFF 0x02 ( CMD_DISABLE ) _cmd ;
: LCDON 0x03 ( CMD_ENABLE ) _cmd ;
: _col! ( col -- )
0x20 ( CMD_COL ) + _cmd ;
: _row! ( row -- )
0x80 ( CMD_ROW ) + _cmd ;
: _yinc 0x07 _cmd ; : _xinc 0x05 _cmd ;
: _col! ( col -- ) 0x20 ( CMD_COL ) + _cmd ;
: _row! ( row -- ) 0x80 ( CMD_ROW ) + _cmd ;
: LCD$
H@ TI_MEM ! FNTH 2 * 2+ ALLOT
LCDON 0x01 ( 8-bit mode ) _cmd

29
blk/558
View File

@ -1,16 +1,13 @@
: _glyph> ( a -- )
LCD_CURY C@ _row! LCD_CURX C@ 8 /MOD _col! ( a coff )
0x05 ( XINC ) _cmd _data@ DROP SWAP
FNTH 0 DO ( coff a )
C@+ 2 PICK 8 -^ LSHIFT
_data@ 8 LSHIFT OR
LCD_BUF I + 2DUP FNTH + C!
SWAP 8 RSHIFT SWAP C!
LOOP 2DROP
LCD_CURY C@ _row!
FNTH 0 DO LCD_BUF I + C@ _data! LOOP
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 [ 96 FNTW - LITN ] > IF DROP 0 THEN
LCD_CURX C! ;
: _clrrows ( n u -- Clears u rows starting at n )
SWAP _row!
( u ) 0 DO
_yinc 0 _col!
11 0 DO 0 _data! LOOP
_xinc 0 _data!
LOOP ;
: _clrln ( n ) FNTH 1+ _clrrows ;
: LCDCLR 0 64 _clrrows ;
( Changes the current line and go back to leftmost column )
: _lf
LCD_CURY C@ FNTH 1+ + DUP 63 > IF DROP 0 THEN
DUP _clrln LCD_CURY C! 0 LCD_CURX C! ;

16
blk/559 Normal file
View File

@ -0,0 +1,16 @@
: _glyph> ( a -- )
LCD_CURY C@ _row! LCD_CURX C@ 8 /MOD _col! ( a coff )
_xinc _data@ DROP SWAP
FNTH 0 DO ( coff a )
C@+ 2 PICK 8 -^ LSHIFT
_data@ 8 LSHIFT OR
LCD_BUF I + 2DUP FNTH + C!
SWAP 8 RSHIFT SWAP C!
LOOP 2DROP
LCD_CURY C@ _row!
FNTH 0 DO LCD_BUF I + C@ _data! LOOP
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 ;

4
blk/560 Normal file
View File

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

5
recipes/ti84/xcomp.fs
View File

@ -19,7 +19,8 @@ CURRENT @ XCURRENT !
( Update LATEST )
PC ORG @ 8 + !
422 437 XPACKR ( core )
556 558 XPACKR ( ti )
," 42 42 PC! LCD$ ' ~FNT 5 + _glyph> 43 43 PC! BYE "
556 560 XPACKR ( ti )
438 446 XPACKR ( print fmt )
," : _ LCD$ LIT< Hello (print) LIT< World! (print) BYE ; _ "
ORG @ 256 /MOD 2 PC! 2 PC!
H@ 256 /MOD 2 PC! 2 PC!