mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:38:05 +11:00
ti84: first glyph on screen!
On the emulator of course...
This commit is contained in:
parent
58ec54fc97
commit
b90efb0f7f
8
blk/522
8
blk/522
@ -4,13 +4,13 @@
|
||||
2 *
|
||||
OVER J 64 * I + + C@ 'X' = IF 1+ THEN
|
||||
LOOP 32 * C, LOOP DROP ;
|
||||
: _l ( spit a line of u glyphs )
|
||||
: _l ( a u -- a, spit a line of u glyphs )
|
||||
( u ) 0 DO ( a )
|
||||
DUP I 3 * + _g
|
||||
LOOP DROP ;
|
||||
LOOP ;
|
||||
: CPFNT3x5
|
||||
0 , 0 , 0 C, ( space char )
|
||||
530 LOAD BLK( 21 _l 192 + 21 _l 192 + 21 _l ( 63 )
|
||||
531 LOAD BLK( 21 _l 192 + 10 _l ( 94! )
|
||||
530 BLK@ BLK( 21 _l 192 + 21 _l 192 + 21 _l ( 63 )
|
||||
531 BLK@ BLK( 21 _l 192 + 10 _l ( 94! )
|
||||
;
|
||||
|
||||
|
6
blk/555
6
blk/555
@ -1,15 +1,15 @@
|
||||
( Required config: TI_MEM )
|
||||
: TI_MEM+ [ TI_MEM LITN ] @ + ;
|
||||
TI_MEM : TI_MEM [ LITN ] ;
|
||||
: LCD_PORT_CMD 0x10 ; : LCD_PORT_DATA 0x11 ;
|
||||
: FNTW 3 ; : FNTH 5 ;
|
||||
( Wait until the lcd is ready to receive a command. It's a bit
|
||||
weird to implement a waiting routine in asm, but the forth
|
||||
version is a bit heavy and we don't want to wait longer than
|
||||
we have to. )
|
||||
: LCDWAIT
|
||||
CODE LCDWAIT
|
||||
BEGIN,
|
||||
LCD_PORT_CMD INAn,
|
||||
0x10 INAn,
|
||||
RLA, ( When 7th bit is clr, we can send a new cmd )
|
||||
JRC, AGAIN,
|
||||
;CODE
|
||||
: LCD$ H@ TI_MEM ! FNTH 2 * 2+ ALLOT ;
|
||||
|
5
blk/557
5
blk/557
@ -2,7 +2,12 @@
|
||||
: _data! LCD_PORT_DATA PC! LCDWAIT ;
|
||||
: _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 ;
|
||||
: LCD$
|
||||
H@ TI_MEM ! FNTH 2 * 2+ ALLOT
|
||||
LCDON 0x01 ( 8-bit mode ) _cmd
|
||||
;
|
||||
|
2
blk/558
2
blk/558
@ -5,7 +5,7 @@
|
||||
C@+ 2 PICK 8 -^ LSHIFT
|
||||
_data@ 8 LSHIFT OR
|
||||
LCD_BUF I + 2DUP FNTH + C!
|
||||
SWAP 8 RSHIFT DUP 42 PC! SWAP C!
|
||||
SWAP 8 RSHIFT SWAP C!
|
||||
LOOP 2DROP
|
||||
LCD_CURY C@ _row!
|
||||
FNTH 0 DO LCD_BUF I + C@ _data! LOOP
|
||||
|
@ -10,6 +10,7 @@ void t6a04_init(T6A04 *lcd)
|
||||
lcd->currow = 0;
|
||||
lcd->curcol = 0;
|
||||
lcd->just_moved = true;
|
||||
lcd->has8bitmode = false;
|
||||
}
|
||||
|
||||
uint8_t t6a04_cmd_rd(T6A04 *lcd)
|
||||
|
@ -3,6 +3,7 @@
|
||||
RAMSTART 0x70 + CONSTANT TI_MEM
|
||||
212 LOAD ( z80 assembler )
|
||||
262 LOAD ( xcomp )
|
||||
522 LOAD ( font compiler )
|
||||
: CODE XCODE ;
|
||||
: IMMEDIATE XIMM ;
|
||||
: (entry) (xentry) ;
|
||||
@ -13,11 +14,12 @@ CURRENT @ XCURRENT !
|
||||
282 LOAD ( boot.z80 )
|
||||
555 LOAD ( ti.z80 )
|
||||
393 LOAD ( icore )
|
||||
(entry) ~FNT CPFNT3x5
|
||||
(entry) _
|
||||
( Update LATEST )
|
||||
PC ORG @ 8 + !
|
||||
422 437 XPACKR ( core )
|
||||
556 558 XPACKR ( ti )
|
||||
," 42 42 PC! LCD$ 43 43 PC! BYE "
|
||||
," 42 42 PC! LCD$ ' ~FNT 5 + _glyph> 43 43 PC! BYE "
|
||||
ORG @ 256 /MOD 2 PC! 2 PC!
|
||||
H@ 256 /MOD 2 PC! 2 PC!
|
||||
|
Loading…
Reference in New Issue
Block a user