show last key

This commit is contained in:
David Stancu 2018-01-28 19:57:31 -05:00
parent 3d01ea6af6
commit 907f10a4ac

View File

@ -2,7 +2,7 @@
typ $B3
dsk main.l
; ensure 16-bit mode (unnecessary?)
; ensure 16-bit mode (unnecessary?)
clc
xce
rep #$20
@ -11,7 +11,6 @@
plb
; half bank for accumulator, you don't want to toggle them on then back off, right?
sep #$30
; toggle the softswitches; they don't take any values. some are only triggered
@ -25,13 +24,21 @@
ldal $00C056 ; select "low res" graphics
rep #$30 ; go back to 16-bit mode
ldx #hithere+2 ; strl, first two bytes are strlen, # denotes immediate addr val
ldy #$0400 ; start of text buffer on 00
ldal hithere
dec
; show the current char on screen
; first check and discard to clear strobe, then enter loop
ldal $00C010
:eloop ldal $00C010
stal $000400
jmp :eloop
mvn $02, $00
brk
; working text blit
* ldx #hithere+2 ; strl, first two bytes are strlen, # denotes immediate addr val
* ldy #$0400 ; start of text buffer on 00
* ldal hithere
* dec
* mvn $02, $00
* brk
; Important locations
SPEAKER equ $E0C030
@ -55,372 +62,3 @@ hithere strl "this was excruciating"