Apple-2gs-SW/mrbuffer
1
0
Fork 0
mirror of https://github.com/mach-kernel/mrbuffer.git synced 2024-11-21 14:31:12 +00:00
Code Issues Projects Releases Wiki Activity

increment columns via centralized method, snap back to 0 and inc row,

Browse Source 
ready for dispchar!!
This commit is contained in:
David Stancu 2018-02-08 00:15:46 -05:00
parent 4a4a86082d
commit 34495ef9d3
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/main.S
View File

@ -50,13 +50,13 @@ keydown cmp #$8B ; up
cmp #$88 ; left cmp #$88 ; left
beq left beq left
cmp #$95 ; right cmp #$95 ; right
beq right beq colinc
cmp #$FF ; backspace cmp #$FF ; backspace
beq backspace beq backspace
cmp #$8D ; return cmp #$8D ; return
beq down beq down
inx
jsr drawchar jsr drawchar
jmp colinc
finkey ldal $00C010 ; clear strobe bit finkey ldal $00C010 ; clear strobe bit
lda #0 lda #0
rts rts
@ -73,10 +73,13 @@ left cpx #0
beq finkey beq finkey
dex dex
jmp finkey jmp finkey
right cpx #39 colinc cpx #39
beq finkey beq :rolcol
inx inx
jmp finkey jmp finkey
:rolcol ldx #0
jmp down
backspace lda #$A0 backspace lda #$A0
jsr drawchar jsr drawchar
jmp left jmp left
@ -243,6 +246,9 @@ bufbase da #40