Apple-2gs-SW
/
mrbuffer
mirror of https://github.com/mach-kernel/mrbuffer.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fully working buffer editor + count! some small bugs but otherwise wow 24 hour progress!!

This commit is contained in:
David Stancu 2018-02-08 00:32:04 -05:00
parent 34495ef9d3
commit 6d80cb2343
1 changed files with 101 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
src/main.S
View File

@ -54,7 +54,7 @@ keydown cmp #$8B ; up
cmp #$FF ; backspace
beq backspace
cmp #$8D ; return
beq down
beq return
jsr drawchar
jmp colinc
finkey ldal $00C010 ; clear strobe bit
@ -79,7 +79,8 @@ colinc cpx #39
jmp finkey
:rolcol ldx #0
jmp down
return ldx #0
jmp down
backspace lda #$A0
jsr drawchar
jmp left
@ -114,7 +115,98 @@ drawpos pha
pla
rts
drawchar stal $000400,X ; display the character
drawchar cpy #0
beq :row0
cpy #1
beq :row1
cpy #2
beq :row2
cpy #3
beq :row3
cpy #4
beq :row4
cpy #5
beq :row5
cpy #6
beq :row6
cpy #7
beq :row7
cpy #8
beq :row8
cpy #9
beq :row9
cpy #10
beq :row10
cpy #11
beq :row11
cpy #12
beq :row12
cpy #13
beq :row13
cpy #14
beq :row14
cpy #15
beq :row15
cpy #16
beq :row16
cpy #17
beq :row17
cpy #18
beq :row18
cpy #19
beq :row19
cpy #20
beq :row20
cpy #21
beq :row21
cpy #22
beq :row22
rts
:row0 stal $000400,X
rts
:row1 stal $000480,X
rts
:row2 stal $000500,X
rts
:row3 stal $000580,X
rts
:row4 stal $000600,X
rts
:row5 stal $000680,X
rts
:row6 stal $000700,X
rts
:row7 stal $000780,X
rts
:row8 stal $000428,X
rts
:row9 stal $0004A8,X
rts
:row10 stal $000528,X
rts
:row11 stal $0005A8,X
rts
:row12 stal $000628,X
rts
:row13 stal $0006A8,X
rts
:row14 stal $000728,X
rts
:row15 stal $0007A8,X
rts
:row16 stal $000450,X
rts
:row17 stal $0004D0,X
rts
:row18 stal $000550,X
rts
:row19 stal $0005D0,X
rts
:row20 stal $000650,X
rts
:row21 stal $0006D0,X
rts
:row22 stal $000750,X
rts
tencount ldx #0
@ -246,6 +338,12 @@ bufbase da #40