Apple-2-SW/4live
1
0
Fork 0
mirror of https://github.com/a2-4am/4live.git synced 2024-06-17 21:29:37 +00:00
Code Issues Projects Releases Wiki Activity

add esc and free cursor movement

Browse Source 
esc exits notes mode;
added missing arrow keys;
left/right wraps line;
up/down wraps screen
This commit is contained in:
Peter Ferrie 2016-10-28 09:09:53 -07:00
parent 0d1b8d8980
commit 19665e2cfc
1 changed files with 42 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/4live.a
View File

@ -4,7 +4,7 @@
;
!cpu 6502
*=$8000
!to "_4live#068000", plain
;
!addr WNDLFT = $20
!addr WNDWDTH = $21
@ -56,7 +56,11 @@
SAVEKEY = $93 ; CTRL-S
;constants
LTARROW = $88
UPARROW = $8B
RETURN = $8D
RTARROW = $95
ESC = $9B
WIDTH = 40
HEIGHT = 24
IOBSLOT = 1
@ -308,18 +312,55 @@ EditorMode
jsr KEYIN
cmp #HOTKEY
beq KeyRet
cmp #ESC
beq KeyRet
cmp #SAVEKEY
beq SaveFile
cmp #IMPORTKEY
beq ImportScreen
cmp #LTARROW
beq LineLeft
cmp #UPARROW
beq LineUp
cmp #RTARROW
beq LineRight
OutChar
jsr COUT
lda CV
eor #(HEIGHT - 1) ;zero on match
bne EditorMode
SetRow
sta CV
SetRow1
lda CV
jsr BASCALC
bcc EditorMode ;always
LineLeft
dec CH
bpl SetRow1
lda #(WIDTH - 1)
SetColumn
sta CH
bpl SetRow1 ;always
LineUp
dec CV
bpl SetRow1
lda #(HEIGHT - 2)
bne SetRow ;always
LineRight
inc CH
lda CH
eor #WIDTH ;zero on match
bne SetRow1
beq SetColumn ;always
ImportScreen
lda #<(FirstLine + WIDTH)
sta OPSRCL