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?)
|
; ensure 16-bit mode (unnecessary?)
|
||||||
clc
|
clc
|
||||||
xce
|
xce
|
||||||
rep #$20
|
rep #$30
|
||||||
|
|
||||||
phk
|
phk
|
||||||
plb
|
plb
|
||||||
@ -23,7 +23,8 @@
|
|||||||
ldal $00C054 ; select text page 1 (there are 2)
|
ldal $00C054 ; select text page 1 (there are 2)
|
||||||
ldal $00C056 ; select "low res" graphics
|
ldal $00C056 ; select "low res" graphics
|
||||||
|
|
||||||
* rep #$30
|
rep #$30
|
||||||
|
sep #$20
|
||||||
|
|
||||||
; show the current char on screen
|
; show the current char on screen
|
||||||
; read keyboard then hit strobe to reset
|
; read keyboard then hit strobe to reset
|
||||||
@ -49,16 +50,27 @@ keydown nop
|
|||||||
beq right
|
beq right
|
||||||
jmp dispchar
|
jmp dispchar
|
||||||
|
|
||||||
up nop
|
up clc
|
||||||
|
cpx #1488
|
||||||
|
beq rtsout
|
||||||
|
rep #$30
|
||||||
|
pha
|
||||||
|
txa
|
||||||
|
sbc #128
|
||||||
|
tax
|
||||||
|
pla
|
||||||
|
sep #$20
|
||||||
jmp rtsout
|
jmp rtsout
|
||||||
down clc
|
down clc
|
||||||
cpx #1488
|
cpx #1488
|
||||||
beq rtsout
|
beq rtsout
|
||||||
|
rep #$30
|
||||||
pha
|
pha
|
||||||
txa
|
txa
|
||||||
adc #128
|
adc #128
|
||||||
tax
|
tax
|
||||||
pla
|
pla
|
||||||
|
sep #$20
|
||||||
jmp rtsout
|
jmp rtsout
|
||||||
|
|
||||||
left clc
|
left clc
|
||||||
@ -269,6 +281,21 @@ brkboi brk
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user