1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-02 06:40:56 +11:00

Compare commits

..

No commits in common. "2f1e635b9d361507c9c0b31d61d5ca0e64dc3aae" and "afc2327770704a6fa79ec3d894952d74cb0770f0" have entirely different histories.

8 changed files with 31 additions and 32 deletions

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 with
"555 LOAD".
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

View File

@ -12,5 +12,5 @@ that line will go up 8 pixels, wrapping itself to the bottom of
the screen.
The principle is this: The active line is always the bottom
one. Therefore, when active row is 0, Z is FNTH+1, when row is
1, Z is (FNTH+1)*2, When row is 8, Z is 0. (cont.)
one. Therefore, when active row is 0, Z is FNT_HEIGHT+1, when
row is 1, Z is (FNT_HEIGHT+1)*2, When row is 8, Z is 0. (cont.)

10
blk/553
View File

@ -8,9 +8,9 @@ only 16 characters per line, which is hardly usable.
This is why we have this buffering system. How it works is that
we're always in 8-bit mode and we hold the whole area (8 pixels
wide by FNTH high) in memory. When we want to put a glyph to
screen, we first read the contents of that area, then add our
new glyph, offsetted and masked, to that buffer, then push the
buffer back to the LCD. If the glyph is split, move to the next
area and finish the job.
wide by FNT_HEIGHT high) in memory. When we want to put a glyph
to screen, we first read the contents of that area, then add
our new glyph, offsetted and masked, to that buffer, then push
the buffer back to the LCD. If the glyph is split, move to the
next area and finish the job.
(cont.)

10
blk/555
View File

@ -1,13 +1,15 @@
( Required config: LCD_MEM )
: _mem+ [ LCD_MEM LITN ] @ + ;
( 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. )
CODE _wait
CODE LCDWAIT
BEGIN,
0x10 ( CMD ) INAn,
0x10 INAn,
RLA, ( When 7th bit is clr, we can send a new cmd )
JRC, AGAIN,
;CODE

13
blk/556
View File

@ -1,13 +1,8 @@
( Current Y position on the LCD, that is, where we're going to
spit our next glyph. )
: LCD_CURY 0 _mem+ ;
: LCD_CURX 1 _mem+ ;
( two pixel buffers that are 8 pixels wide (1b) by FNTH
: LCD_CURY 0 TI_MEM+ ;
: LCD_CURX 1 TI_MEM+ ;
( two pixel buffers that are 8 pixels wide (1b) by FNT_HEIGHT
pixels high. This is where we compose our resulting pixels
blocks when spitting a glyph. )
: LCD_BUF 2 _mem+ ;
: _cmd 0x10 ( CMD ) PC! _wait ;
: _data! 0x11 ( DATA ) PC! _wait ;
: _data@ 0x11 ( DATA ) PC@ _wait ;
: LCDOFF 0x02 ( CMD_DISABLE ) _cmd ;
: LCDON 0x03 ( CMD_ENABLE ) _cmd ;
: LCD_BUF 2 TI_MEM+ ;

13
blk/557
View File

@ -1,9 +1,12 @@
: _cmd LCD_PORT_CMD PC! LCDWAIT ;
: _data! LCD_PORT_DATA PC! LCDWAIT ;
: _data@ LCD_PORT_DATA PC@ LCDWAIT ;
: LCDOFF 0x02 ( CMD_DISABLE ) _cmd ;
: LCDON 0x03 ( CMD_ENABLE ) _cmd ;
: _yinc 0x07 _cmd ; : _xinc 0x05 _cmd ;
: _zoff! ( off -- ) 0x40 + _cmd ;
: _col! ( col -- ) 0x20 + _cmd ;
: _row! ( row -- ) 0x80 + _cmd ;
: _col! ( col -- ) 0x20 ( CMD_COL ) + _cmd ;
: _row! ( row -- ) 0x80 ( CMD_ROW ) + _cmd ;
: LCD$
H@ [ LCD_MEM LITN ] ! FNTH 2 * 2+ ALLOT
H@ TI_MEM ! FNTH 2 * 2+ ALLOT
LCDON 0x01 ( 8-bit mode ) _cmd
FNTH 1+ _zoff!
;

View File

@ -10,5 +10,4 @@
( Changes the current line and go back to leftmost column )
: _lf
LCD_CURY C@ FNTH 1+ + DUP 63 > IF DROP 0 THEN
DUP _clrln DUP FNTH 1+ _zoff!
LCD_CURY C! 0 LCD_CURX C! ;
DUP _clrln LCD_CURY C! 0 LCD_CURX C! ;

View File

@ -1,6 +1,6 @@
0x8000 CONSTANT RAMSTART
0xb000 CONSTANT RS_ADDR
RAMSTART 0x70 + CONSTANT LCD_MEM
RAMSTART 0x70 + CONSTANT TI_MEM
212 LOAD ( z80 assembler )
262 LOAD ( xcomp )
522 LOAD ( font compiler )
@ -12,15 +12,15 @@ RAMSTART 0x70 + CONSTANT LCD_MEM
CURRENT @ XCURRENT !
282 LOAD ( boot.z80 )
555 LOAD ( ti.z80 )
393 LOAD ( icore low )
555 557 LOADR ( ti low )
415 LOAD ( icore high )
(entry) ~FNT CPFNT3x5
(entry) _
( Update LATEST )
PC ORG @ 8 + !
422 437 XPACKR ( core )
558 560 XPACKR ( ti high )
556 560 XPACKR ( ti )
438 446 XPACKR ( print fmt )
," : _ LCD$ LIT< Hello (print) LIT< World! (print) BYE ; _ "
ORG @ 256 /MOD 2 PC! 2 PC!