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

Merge pull request #10 from peterferrie/master

Browse Source 
a bit smaller, and fix autosave bug
This commit is contained in:
4am 2016-11-16 13:58:41 -05:00 committed by GitHub
commit 541e284e20
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/4live.a
View File

@ -432,10 +432,11 @@ RunFromBankedRAM
;first, scroll the edit buffer onto the screen
;(this also swaps the current screen contents out so we can restore it later)
jsr ScrollEditBufferIn ;returns X=0
jsr ScrollEditBufferIn ;returns Y=FF
;do the thing
stx IsDirty + 1 ;0=false, non-0=true
iny
sty IsDirty + 1 ;0=false, non-0=true
;do the thing
jsr EditorMode
@ -613,27 +614,37 @@ MyWAIT
bne --
rts
ClearScreen ; does not clear status line
pha
clc
bcc +
HandleKeyImportScreen
lda #<(LastLine - WIDTH)
sta OPSRC1L
lda #>(LastLine - WIDTH)
sta OPSRC1H
ldx #(HEIGHT - 2)
+ ldx #(HEIGHT - 2)
-- jsr SetTextCalc
ldy #(WIDTH - 1)
- lda (OPSRC1L), y
sta (OPSRC2L), y
lda #$A0
- bcc +
lda (OPSRC1L), y
+ sta (OPSRC2L), y
dey
bpl -
bcc +
sec
lda OPSRC1L
sbc #WIDTH
sta OPSRC1L
bcs +
dec OPSRC1H
sec
+ dex
bpl --
bcc ClearScreenRet
;print anything that isn't a special key
;wrap around screen position when we hit edges
@ -670,6 +681,9 @@ ClearOnFirstKeypress
jsr MyCOUT
jmp EditorMode ;always
ClearScreenRet
pla
_doneEditorMode
rts
@ -702,7 +716,7 @@ SetRow
bpl EditorMode ;always
HandleKeyClearScreen
jsr ClearScreen ;returns flag=minus
jsr ClearScreen
dey ;-2
sty MyCV + 1 ;use big store to trigger wraparound
;fall through
@ -720,20 +734,6 @@ HandleKeyLineDown
ldy #0
beq SetRow ;always
ClearScreen ; does not clear status line
pha
ldx #(HEIGHT - 2)
-- jsr SetTextCalc
ldy #(WIDTH - 1)
lda #$A0
- sta (OPSRC2L), y
dey
bpl -
dex
bpl --
pla
rts
MyKEYIN
ldx MyCH + 1