Apple-2gs-SW/mrbuffer
1
0
Fork 0
mirror of https://github.com/mach-kernel/mrbuffer.git synced 2024-06-03 11:29:53 +00:00
Code Issues Projects Releases Wiki Activity

working cursor move l/r!

Browse Source
This commit is contained in:
David Stancu 2018-01-31 23:47:06 -05:00
parent fbf0a03b36
commit ba74870f17
1 changed files with 59 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
src/main.S
View File

@ -26,37 +26,33 @@
* rep #$30 * rep #$30
; show the current char on screen ; show the current char on screen
; first check and discard to clear strobe, then enter loop ; read keyboard then hit strobe to reset
ldx #0 ldx #0
eloop stal $000480,X eloop ldal $00C000
ldal $00C010 skip stal $000400,X
clc clc
bit %1 bit %1
jsr handlekey jsr handlekey
ldal $00C010
jmp eloop jmp eloop
handlekey cmp #$1088 handlekey cmp #$1088
beq down beq left
cmp #$1095 cmp #$1095
beq up beq right
outkey rts outkey rts
up clc left clc
cpx #39
bcs outkey
inx
jmp outkey
down clc
cpx #0 cpx #0
bcs outkey beq outkey
dex dex
jmp outkey rts
right clc
cpx #39
beq outkey
inx
rts
; working text blit ; working text blit
* ldx #hithere+2 ; strl, first two bytes are strlen, # denotes immediate addr val * ldx #hithere+2 ; strl, first two bytes are strlen, # denotes immediate addr val
@ -112,6 +108,51 @@ brkboi brk