mirror of
https://github.com/mach-kernel/mrbuffer.git
synced 2024-12-21 11:29:28 +00:00
much better handling of this, checking against bit 7 is more correct than z flag
This commit is contained in:
parent
ba74870f17
commit
5aa31dfafe
70
src/main.S
70
src/main.S
@ -27,31 +27,22 @@
|
|||||||
|
|
||||||
; 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
|
||||||
|
|
||||||
ldx #0
|
ldx #0
|
||||||
eloop ldal $00C000
|
|
||||||
skip stal $000400,X
|
|
||||||
clc
|
|
||||||
bit %1
|
|
||||||
jsr handlekey
|
|
||||||
ldal $00C010
|
ldal $00C010
|
||||||
jmp eloop
|
|
||||||
|
|
||||||
handlekey cmp #$1088
|
inloop clc
|
||||||
beq left
|
ldal $00C000
|
||||||
cmp #$1095
|
bit #%1
|
||||||
beq right
|
bmi keybranch
|
||||||
outkey rts
|
jmp inloop
|
||||||
|
|
||||||
left clc
|
keybranch jsr keydown
|
||||||
cpx #0
|
jmp inloop
|
||||||
beq outkey
|
|
||||||
dex
|
|
||||||
rts
|
|
||||||
|
|
||||||
right clc
|
keydown nop
|
||||||
cpx #39
|
stal $000400,X
|
||||||
beq outkey
|
ldal $00C010
|
||||||
inx
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
; working text blit
|
; working text blit
|
||||||
@ -153,6 +144,45 @@ brkboi brk
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user