Apple-2-SW/4live
1
0
Fork 0
mirror of https://github.com/a2-4am/4live.git synced 2024-12-22 02:30:25 +00:00
Code Issues Projects Releases Wiki Activity

scroll text screen down instead of up [broken]

Browse Source
This commit is contained in:
4am 2016-10-29 21:17:18 -04:00
parent a723be9b52
commit 33436c0abc
1 changed files with 58 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
src/4live.a
View File

@ -198,13 +198,33 @@ GlobalKeyboardHook
jsr KEYIN jsr KEYIN
cmp #HOTKEY cmp #HOTKEY
bne KeyRet bne ReusableRTS1
jsr SwitchScreens jsr ScrollEditScreenIn
jsr EditorMode jsr EditorMode
jsr SwitchScreens jsr ScrollEditScreenOut
beq GetKey ;always beq GetKey ;always
SwitchScreens ScrollEditScreenIn
lda #HEIGHT
sta LINE
-- ldy #(WIDTH - 1)
- lda $7D0, y
sta LastLine, y
dey
bpl -
jsr ScrollTextScreenDown
ldy #(WIDTH - 1)
- lda FirstLine, y
sta $400, y
dey
bpl -
jsr Delay
dec LINE
bne --
ReusableRTS1
rts
ScrollEditScreenOut
jsr SwapCoords jsr SwapCoords
;copy first line of physical screen to first line of virtual screen ;copy first line of physical screen to first line of virtual screen
@ -231,7 +251,7 @@ SwitchScreens
;scroll down virtual screen ;scroll down virtual screen
jsr VirtScroll jsr VirtScrollDown
ANIMATE ANIMATE
lda "Q" ;self-modified lda "Q" ;self-modified
@ -243,13 +263,30 @@ ANIMATE
+ dec LINE + dec LINE
bne -- bne --
rts
KeyRet ScrollTextScreenDown
ldx #$16
- lda TextCalcLo, x
sta _a+1
lda TextCalcLo+1, x
sta _b+1
lda TextCalcHi, x
sta _a+2
lda TextCalcHi+1, x
sta _b+2
ldy #$27
_a lda $FFFF, y ; self-modified, above
_b sta $FFFF, y ; self-modified, above
dey
bpl _a
dex
bpl -
rts rts
;scroll HEIGHT lines ;scroll HEIGHT lines
VirtScroll VirtScrollDown
lda #<(LastLine - WIDTH) lda #<(LastLine - WIDTH)
sta GBASL sta GBASL
lda #>(LastLine - WIDTH) lda #>(LastLine - WIDTH)
@ -278,6 +315,7 @@ VirtScroll
dec BAS2H dec BAS2H
+ dex + dex
bne -- bne --
ReusableRTS2
rts rts
Delay Delay
@ -307,9 +345,9 @@ SaveFile
lda CV lda CV
sta SaveCV sta SaveCV
inc ANIMATE + 1 ;disable animation (was #$FF from above) inc ANIMATE + 1 ;disable animation (was #$FF from above)
jsr SwitchScreens jsr ScrollEditScreenOut
jsr CreateWriteFile jsr CreateWriteFile
jsr SwitchScreens jsr ScrollEditScreenOut
dec ANIMATE + 1 ;re-enable animation dec ANIMATE + 1 ;re-enable animation
;print anything that isn't a special key ;print anything that isn't a special key
@ -320,9 +358,9 @@ EditorMode
lda (BASL), y lda (BASL), y
jsr KEYIN jsr KEYIN
cmp #HOTKEY cmp #HOTKEY
beq KeyRet beq ReusableRTS2
cmp #ESC cmp #ESC
beq KeyRet beq ReusableRTS2
cmp #SAVEKEY cmp #SAVEKEY
beq SaveFile beq SaveFile
cmp #IMPORTKEY cmp #IMPORTKEY
@ -524,6 +562,15 @@ SaveCH
SaveCV SaveCV
!byte 0 ;loaded from file if exists !byte 0 ;loaded from file if exists
TextCalcHi
!byte $04, $04, $05, $05, $06, $06, $07, $07
!byte $04, $04, $05, $05, $06, $06, $07, $07
!byte $04, $04, $05, $05, $06, $06, $07, $07
TextCalcLo
!byte $00, $80, $00, $80, $00, $80, $00, $80
!byte $28, $A8, $28, $A8, $28, $A8, $28, $A8
!byte $50, $D0, $50, $D0, $50, $D0, $50, $D0
FirstLine FirstLine
;pre-screen line to catch scroll ;pre-screen line to catch scroll
!fill WIDTH, $A0 !fill WIDTH, $A0