mirror of
https://github.com/mach-kernel/mrbuffer.git
synced 2024-11-21 14:31:12 +00:00
figure out how to modeset but still need to toggle to get full bank a for adding, unelegant perhaps?
This commit is contained in:
parent
b8063ff72f
commit
85da0e6b65
33
src/main.S
33
src/main.S
@ -5,7 +5,7 @@
|
||||
; ensure 16-bit mode (unnecessary?)
|
||||
clc
|
||||
xce
|
||||
rep #$20
|
||||
rep #$30
|
||||
|
||||
phk
|
||||
plb
|
||||
@ -23,7 +23,8 @@
|
||||
ldal $00C054 ; select text page 1 (there are 2)
|
||||
ldal $00C056 ; select "low res" graphics
|
||||
|
||||
* rep #$30
|
||||
rep #$30
|
||||
sep #$20
|
||||
|
||||
; show the current char on screen
|
||||
; read keyboard then hit strobe to reset
|
||||
@ -49,16 +50,27 @@ keydown nop
|
||||
beq right
|
||||
jmp dispchar
|
||||
|
||||
up nop
|
||||
up clc
|
||||
cpx #1488
|
||||
beq rtsout
|
||||
rep #$30
|
||||
pha
|
||||
txa
|
||||
sbc #128
|
||||
tax
|
||||
pla
|
||||
sep #$20
|
||||
jmp rtsout
|
||||
down clc
|
||||
cpx #1488
|
||||
beq rtsout
|
||||
rep #$30
|
||||
pha
|
||||
txa
|
||||
adc #128
|
||||
tax
|
||||
pla
|
||||
sep #$20
|
||||
jmp rtsout
|
||||
|
||||
left clc
|
||||
@ -269,6 +281,21 @@ brkboi brk
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user