collapseos/recipes/ti84/glue.asm

.equ	RAMSTART	0x8000
.equ	RAMEND		0xbfff
.equ	PORT_INT_MASK	0x03
.equ	INT_MASK_ON	0x00
.equ	PORT_INT_TRIG	0x04
.equ	INT_TRIG_ON	0x00
.equ	PORT_BANKB	0x07

	jp	boot

.fill 0x18-$
	jp	boot		; reboot

.fill 0x38-$
	jp	handleInterrupt

.fill 0x53-$
	jp boot
; 0x0056
.db 0xFF, 0xA5, 0xFF

.fill 0x64-$

.inc "err.h"
.inc "core.asm"
.equ	FNT_WIDTH	5
.equ	FNT_HEIGHT	7
.inc "fnt/mgm.asm"
.equ	LCD_RAMSTART	RAMSTART
.inc "ti/lcd.asm"
.equ	KBD_RAMSTART	LCD_RAMEND
.inc "ti/kbd.asm"
.equ	STDIO_RAMSTART	KBD_RAMEND
.equ	STDIO_GETC	kbdGetC
.equ	STDIO_PUTC	lcdPutC
.inc "stdio.asm"

.inc "parse.asm"
.equ	SHELL_RAMSTART	STDIO_RAMEND
.equ	SHELL_EXTRA_CMD_COUNT 0
.inc "shell.asm"

boot:
	di
	ld	hl, RAMEND
	ld	sp, hl
	im	1		

	; enable ON key interrupt
	in	a, (PORT_INT_MASK)
	set	INT_MASK_ON, a
	out	(PORT_INT_MASK), a
	ld	a, 0x80
	out	(PORT_BANKB), a

	ei

	call	lcdOff

	; sleep until we press ON
	halt

main:
	call	kbdInit
	call	lcdInit
	xor	a
	call	lcdSetCol
	call	shellInit
	jp	shellLoop

handleInterrupt:
	di
	push	af

	; did we push the ON button?
	in	a, (PORT_INT_TRIG)
	bit	INT_TRIG_ON, a
	jp	z, .done		; no? we're done

	; yes? acknowledge and boot
	in	a, (PORT_INT_MASK)
	res	INT_MASK_ON, a		; acknowledge interrupt
	out	(PORT_INT_MASK), a

	pop	af
	ei
	jp	main
	
.done:
	pop	af
	ei
	reti

FNT_DATA:
.bin "fnt/5x7.bin"
recipes/ti84: first step This was mostly lifted from my "tihello" example, but it required significant adjustments. This commit also introduces a font management system. A lot of fonts are available online, but sources aren't always clear so to avoid copyright landmines, I re-created my first 5x7 font from scratch. As it is now, this resulting ROM gets "Collapse OS>" to be displayed on the LCD screen. Much work still left to do. ref #41 2019-11-08 03:52:29 +11:00			`.equ RAMSTART 0x8000`
			`.equ RAMEND 0xbfff`
			`.equ PORT_INT_MASK 0x03`
			`.equ INT_MASK_ON 0x00`
			`.equ PORT_INT_TRIG 0x04`
			`.equ INT_TRIG_ON 0x00`
			`.equ PORT_BANKB 0x07`

			`jp boot`

			`.fill 0x18-$`
			`jp boot ; reboot`

			`.fill 0x38-$`
			`jp handleInterrupt`

			`.fill 0x53-$`
			`jp boot`
			`; 0x0056`
			`.db 0xFF, 0xA5, 0xFF`

			`.fill 0x64-$`

			`.inc "err.h"`
			`.inc "core.asm"`
			`.equ FNT_WIDTH 5`
			`.equ FNT_HEIGHT 7`
			`.inc "fnt/mgm.asm"`
ti/lcd: add linefeed support There's no scrolling yet... ref #41 2019-11-08 12:52:09 +11:00			`.equ LCD_RAMSTART RAMSTART`
recipes/ti84: first step This was mostly lifted from my "tihello" example, but it required significant adjustments. This commit also introduces a font management system. A lot of fonts are available online, but sources aren't always clear so to avoid copyright landmines, I re-created my first 5x7 font from scratch. As it is now, this resulting ROM gets "Collapse OS>" to be displayed on the LCD screen. Much work still left to do. ref #41 2019-11-08 03:52:29 +11:00			`.inc "ti/lcd.asm"`
ti/kbd: implement A-Lock ref #41 2019-11-09 12:27:43 +11:00			`.equ KBD_RAMSTART LCD_RAMEND`
recipes/ti84: first step This was mostly lifted from my "tihello" example, but it required significant adjustments. This commit also introduces a font management system. A lot of fonts are available online, but sources aren't always clear so to avoid copyright landmines, I re-created my first 5x7 font from scratch. As it is now, this resulting ROM gets "Collapse OS>" to be displayed on the LCD screen. Much work still left to do. ref #41 2019-11-08 03:52:29 +11:00			`.inc "ti/kbd.asm"`
ti/kbd: implement A-Lock ref #41 2019-11-09 12:27:43 +11:00			`.equ STDIO_RAMSTART KBD_RAMEND`
ti/kbd: begin GetC implementation For now, only digits are scanned. Lifted from my "tiseg7" example. ref #41 2019-11-09 06:04:56 +11:00			`.equ STDIO_GETC kbdGetC`
recipes/ti84: first step This was mostly lifted from my "tihello" example, but it required significant adjustments. This commit also introduces a font management system. A lot of fonts are available online, but sources aren't always clear so to avoid copyright landmines, I re-created my first 5x7 font from scratch. As it is now, this resulting ROM gets "Collapse OS>" to be displayed on the LCD screen. Much work still left to do. ref #41 2019-11-08 03:52:29 +11:00			`.equ STDIO_PUTC lcdPutC`
			`.inc "stdio.asm"`

			`.inc "parse.asm"`
			`.equ SHELL_RAMSTART STDIO_RAMEND`
			`.equ SHELL_EXTRA_CMD_COUNT 0`
			`.inc "shell.asm"`

			`boot:`
			`di`
			`ld hl, RAMEND`
			`ld sp, hl`
			`im 1`

			`; enable ON key interrupt`
			`in a, (PORT_INT_MASK)`
			`set INT_MASK_ON, a`
			`out (PORT_INT_MASK), a`
			`ld a, 0x80`
			`out (PORT_BANKB), a`

			`ei`

			`call lcdOff`

			`; sleep until we press ON`
			`halt`

			`main:`
ti/kbd: implement A-Lock ref #41 2019-11-09 12:27:43 +11:00			`call kbdInit`
recipes/ti84: first step This was mostly lifted from my "tihello" example, but it required significant adjustments. This commit also introduces a font management system. A lot of fonts are available online, but sources aren't always clear so to avoid copyright landmines, I re-created my first 5x7 font from scratch. As it is now, this resulting ROM gets "Collapse OS>" to be displayed on the LCD screen. Much work still left to do. ref #41 2019-11-08 03:52:29 +11:00			`call lcdInit`
			`xor a`
			`call lcdSetCol`
			`call shellInit`
			`jp shellLoop`

			`handleInterrupt:`
			`di`
			`push af`

			`; did we push the ON button?`
			`in a, (PORT_INT_TRIG)`
			`bit INT_TRIG_ON, a`
			`jp z, .done ; no? we're done`

			`; yes? acknowledge and boot`
			`in a, (PORT_INT_MASK)`
			`res INT_MASK_ON, a ; acknowledge interrupt`
			`out (PORT_INT_MASK), a`

			`pop af`
			`ei`
			`jp main`

			`.done:`
			`pop af`
			`ei`
			`reti`

			`FNT_DATA:`
			`.bin "fnt/5x7.bin"`