blk/522

@@ -4,13 +4,13 @@
         2 *
         OVER J 64 * I + + C@ 'X' = IF 1+ THEN
     LOOP 32 * C, LOOP DROP ;
-: _l ( a u -- a, spit a line of u glyphs )
+: _l ( spit a line of u glyphs )
     ( u ) 0 DO ( a )
         DUP I 3 * + _g
-    LOOP ;
+    LOOP DROP ;
 : CPFNT3x5
     0 , 0 , 0 C, ( space char )
-    530 BLK@ BLK( 21 _l 192 + 21 _l 192 + 21 _l ( 63 )
+    530 LOAD BLK( 21 _l 192 + 21 _l 192 + 21 _l ( 63 )
-    531 BLK@ BLK( 21 _l 192 + 10 _l ( 94! )
+    531 LOAD BLK( 21 _l 192 + 10 _l ( 94! )
 ;
 

blk/555

@@ -1,15 +1,16 @@
 ( Required config: TI_MEM )
-: TI_MEM+ [ TI_MEM LITN ] @ + ;
+: TI_MEM+ [ TI_MEM LITN ] + ;
-TI_MEM : TI_MEM [ LITN ] ;
+: LCD_PORT_CMD 0x10 ;
-: LCD_PORT_CMD 0x10 ; : LCD_PORT_DATA 0x11 ;
+: LCD_PORT_DATA 0x11 ;
-: FNTW 3 ; : FNTH 5 ;
+: FNT_WIDTH 3 ;
-( Wait until the lcd is ready to receive a command. It's a bit
+: FNT_HEIGHT 5 ;
-  weird to implement a waiting routine in asm, but the forth
+( Current Y position on the LCD, that is, where we're going to
-  version is a bit heavy and we don't want to wait longer than
+  spit our next glyph. )
-  we have to. )
+: LCD_CURY 0 TI_MEM+ ;
-CODE LCDWAIT
+: LCD_CURX 1 TI_MEM+ ;
-    BEGIN,
+( two pixel buffers that are 8 pixels wide (1b) by FNT_HEIGHT
-        0x10 INAn,
+  pixels high. This is where we compose our resulting pixels
-        RLA, ( When 7th bit is clr, we can send a new cmd )
+  blocks when spitting a glyph. )
-    JRC, AGAIN,
+: LCD_BUF 2 TI_MEM+ ;
-;CODE
+
+1 2 LOADR+

blk/556

@@ -1,8 +1,11 @@
-( Current Y position on the LCD, that is, where we're going to
+: _wait ( Wait until the lcd is ready to receive a command )
-  spit our next glyph. )
+	( When 7th bit is cleared, we can send a new command )
-: LCD_CURY 0 TI_MEM+ ;
+    BEGIN LCD_PORT_CMD PC@ 0x80 AND NOT UNTIL ;
-: LCD_CURX 1 TI_MEM+ ;
+: _cmd LCD_PORT_CMD PC! _wait ;
-( two pixel buffers that are 8 pixels wide (1b) by FNT_HEIGHT
+: _data! LCD_PORT_DATA PC! _wait ;
-  pixels high. This is where we compose our resulting pixels
+: _data@ LCD_PORT_DATA PC@ _wait ;
-  blocks when spitting a glyph. )
+: LCDOFF 0x02 ( CMD_DISABLE ) _cmd ;
-: LCD_BUF 2 TI_MEM+ ;
+: _col! ( col -- )
+    0x20 ( CMD_COL ) + _cmd ;
+: _row! ( row -- )
+    0x80 ( CMD_ROW ) + _cmd ;

blk/557

@@ -1,13 +1,3 @@
-: _cmd LCD_PORT_CMD PC! LCDWAIT ;
+( Load a "glyph line" from buffer, left part being in MSB and
-: _data! LCD_PORT_DATA PC! LCDWAIT ;
+  right part being in LSB. )
-: _data@ LCD_PORT_DATA PC@ LCDWAIT ;
+: _gl@
-: 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
-;

blk/558

@@ -1,16 +1,5 @@
 : _glyph> ( a -- )
     LCD_CURY C@ _row! LCD_CURX C@ 8 /MOD _col! ( a coff )
-    0x05 ( XINC ) _cmd _data@ DROP SWAP
+    0x05 ( XINC ) _cmd _data@ DROP
-    FNTH 0 DO ( coff a )
+    FNT_HEIGHT 0 DO LOOP
-        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! ;

emul/hw/ti/t6a04.c

@@ -10,7 +10,6 @@ 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)

emul/hw/ti/ti84.c

@@ -225,8 +225,11 @@ void draw_pixels()
 void event_loop()
 {
     while (1) {
-        emul_steps(100);
+        emul_step();
         if (lcd_changed) {
+            // To avoid overdrawing, we'll let the CPU run a bit to finish its
+            // drawing operation.
+            emul_steps(100);
             draw_pixels();
         }
         // A low tech way of checking when the window was closed. The proper way

recipes/ti84/Makefile

@@ -1,15 +1,15 @@
-TARGET = stage1.bin
+TARGET = os.bin
 BASEDIR = ../..
-FDIR = $(BASEDIR)/forth
+ZASM = $(BASEDIR)/emul/zasm/zasm
-EDIR = $(BASEDIR)/emul
+KERNEL = $(BASEDIR)/kernel
-STAGE2 = $(EDIR)/stage2
+APPS = $(BASEDIR)/apps
 EMUL = $(BASEDIR)/emul/hw/ti/ti84
 MKTIUPGRADE = mktiupgrade
 
 .PHONY: all
 all: $(TARGET)
-$(TARGET): xcomp.fs $(STAGE2)
+$(TARGET): glue.asm
-	cat xcomp.fs | $(STAGE2) > $@
+	$(ZASM) $(KERNEL) $(APPS) < glue.asm > $@
 
 $(EMUL):
 	$(MAKE) -C ${@:%/ti84=%}

recipes/ti84/xcomp.fs

@@ -1,25 +0,0 @@
-0x8000 CONSTANT RAMSTART
-0xb000 CONSTANT RS_ADDR
-RAMSTART 0x70 + CONSTANT TI_MEM
-212 LOAD  ( z80 assembler )
-262 LOAD  ( xcomp )
-522 LOAD  ( font compiler )
-: CODE XCODE ;
-: IMMEDIATE XIMM ;
-: (entry) (xentry) ;
-: : [ ' X: , ] ;
-
-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$ ' ~FNT 5 + _glyph> 43 43 PC! BYE "
-ORG @ 256 /MOD 2 PC! 2 PC!
-H@ 256 /MOD 2 PC! 2 PC!