Apple-2-SW
/
4live
mirror of https://github.com/a2-4am/4live.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

a bit smaller

This commit is contained in:
Peter Ferrie 2016-11-23 15:17:30 -08:00
parent ff6e099b31
commit e0a89cf88e
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/4live.a
View File

@ -1012,7 +1012,19 @@ HandleKeyPrevPage
pla
tax
jsr SetTextCoords2
jmp ExchangeVirtualBuffer
;copy virtual buffer to another virtual buffer
;hack existing buffer copy to redirect target,
;since it copies exactly the size that we want
ExchangeVirtualBuffer
lda #>(TEMPBUFFER - <(LoadSaveStart - LastLine))
sta ExchangeBankedPatch + 1
clc ;enable full path even if not DiversiDOS
jsr ExchangeBanked1 + 1
lda #>(SWAPBUFFER - <(LoadSaveStart - LastLine))
sta ExchangeBankedPatch + 1
rts
SetPrevPage
lda CurPage + 1
@ -1054,19 +1066,6 @@ HandleKeyHighlight
bpl -
rts
;copy virtual buffer to another virtual buffer
;hack existing buffer copy to redirect target,
;since it copies exactly the size that we want
ExchangeVirtualBuffer
lda #>(TEMPBUFFER - <(LoadSaveStart - LastLine))
sta ExchangeBankedPatch + 1
clc ;enable full path even if not DiversiDOS
jsr ExchangeBanked1 + 1
lda #>(SWAPBUFFER - <(LoadSaveStart - LastLine))
sta ExchangeBankedPatch + 1
rts
ScrollEditBufferLeft ;called with carry set
lda #-WIDTH
sta SCROLLLINE
@ -1344,7 +1343,7 @@ SecondLine
!fill WIDTH * 7, $A0
!text " 4LIVE by 4am && qkumba "
!fill WIDTH, $A0
!text " Revision 03 / Serial number 161122 "
!text " Revision 03 / Serial number 161123 "
!fill WIDTH * 2, $A0
!text " https://github.com/a2-4am/4live "
!fill WIDTH * 9, $A0