Apple-2-SW/4live
1
0
Fork 0
mirror of https://github.com/a2-4am/4live.git synced 2025-01-02 13:30:48 +00:00
Code Issues Projects Releases Wiki Activity

fix import and page 3 state, faster l/r scroll

Browse Source
This commit is contained in:
Peter Ferrie 2017-01-22 21:32:23 -08:00
parent d93528716b
commit f7f330b6e3
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/4live.a
View File

@ -895,9 +895,9 @@ ClearScreen ; does not clear status line
;copy from virtual buffer to real screen ;copy from virtual buffer to real screen
;;todo: add camera flash and click effect ;-) ;;todo: add camera flash and click effect ;-)
HandleKeyImportScreen ;called with carry set HandleKeyImportScreen ;called with carry set
lda #<(LoadSaveEnd - WIDTH) lda #<LoadSaveEnd
sta OPSRC1L sta OPSRC1L
lda #>(LoadSaveEnd - WIDTH) lda #>LoadSaveEnd
sta OPSRC1H sta OPSRC1H
ldx #(HEIGHT - 2) ldx #(HEIGHT - 2)
@ -962,6 +962,7 @@ PreventAddPage
lda MyCV + 1 lda MyCV + 1
pha pha
lda #0 lda #0
sta PreventAddPage + 1
sta MyCH + 1 sta MyCH + 1
sta MyCV + 1 sta MyCV + 1
jsr SeekReadWrite jsr SeekReadWrite
@ -1180,13 +1181,9 @@ ScrollEditPatch2
inc OPDST1H inc OPDST1H
+ dex + dex
bpl - bpl -
;animation delay
jsr Delay ;returns A=0
plp ;restore carry plp ;restore carry
bcc + ;the ScrollRight path bcc + ;the ScrollRight path
tay ldy #0
inc SCROLLLINE inc SCROLLLINE
bne -- bne --
rts rts
@ -1529,7 +1526,7 @@ SecondLine
!fill WIDTH * 7, SPACE !fill WIDTH * 7, SPACE
!text " 4LIVE by 4am && qkumba " !text " 4LIVE by 4am && qkumba "
!fill WIDTH, SPACE !fill WIDTH, SPACE
!text " Revision 03 / Serial number 170120 " !text " Revision 03 / Serial number 170122 "
!fill WIDTH * 2, SPACE !fill WIDTH * 2, SPACE
!text " https://github.com/a2-4am/4live " !text " https://github.com/a2-4am/4live "
!fill WIDTH * 9, SPACE !fill WIDTH * 9, SPACE