mirror of
https://github.com/a2-4am/4live.git
synced 2024-12-22 02:30:25 +00:00
refactor scrolling
This commit is contained in:
4am
parent
33436c0abc
commit
ae20c6049b
287
src/4live.a
287
src/4live.a
@ -151,7 +151,6 @@ Install
|
|||||||
+ sta (DOSBUFL), y
|
+ sta (DOSBUFL), y
|
||||||
dey
|
dey
|
||||||
bpl -
|
bpl -
|
||||||
sty ANIMATE + 1 ;enable visible screen-swapping via #$FF
|
|
||||||
|
|
||||||
;open source file and read it if available
|
;open source file and read it if available
|
||||||
|
|
||||||
@ -195,72 +194,135 @@ GetKey
|
|||||||
|
|
||||||
GlobalKeyboardHook
|
GlobalKeyboardHook
|
||||||
;let DOS handle initial cursor
|
;let DOS handle initial cursor
|
||||||
|
|
||||||
jsr KEYIN
|
jsr KEYIN
|
||||||
|
|
||||||
|
;are we on?
|
||||||
cmp #HOTKEY
|
cmp #HOTKEY
|
||||||
bne ReusableRTS1
|
|
||||||
jsr ScrollEditScreenIn
|
|
||||||
jsr EditorMode
|
|
||||||
jsr ScrollEditScreenOut
|
|
||||||
beq GetKey ;always
|
|
||||||
|
|
||||||
ScrollEditScreenIn
|
;yes -> branch
|
||||||
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
|
|
||||||
|
|
||||||
;copy first line of physical screen to first line of virtual screen
|
|
||||||
|
|
||||||
lda #HEIGHT
|
|
||||||
sta LINE
|
|
||||||
-- ldy #(WIDTH - 1)
|
|
||||||
- lda $400, y
|
|
||||||
sta FirstLine, y
|
|
||||||
dey
|
|
||||||
bpl -
|
|
||||||
|
|
||||||
;scroll up physical screen
|
|
||||||
|
|
||||||
jsr SCROLL
|
|
||||||
|
|
||||||
;append line from virtual screen
|
|
||||||
|
|
||||||
ldy #(WIDTH - 1)
|
|
||||||
- lda LastLine, y
|
|
||||||
sta $7D0, y
|
|
||||||
dey
|
|
||||||
bpl -
|
|
||||||
|
|
||||||
;scroll down virtual screen
|
|
||||||
|
|
||||||
jsr VirtScrollDown
|
|
||||||
|
|
||||||
ANIMATE
|
|
||||||
lda "Q" ;self-modified
|
|
||||||
beq +
|
beq +
|
||||||
|
|
||||||
;animate it just for fun
|
;no -> return to DOS
|
||||||
|
rts
|
||||||
|
+
|
||||||
|
;first, scroll the edit buffer onto the screen
|
||||||
|
;(this also swaps the current screen contents out so we can restore it later)
|
||||||
|
jsr ScrollEditBufferIn
|
||||||
|
|
||||||
|
;do the thing
|
||||||
|
jsr EditorMode
|
||||||
|
|
||||||
|
;scroll the edit buffer out and the original screen back in
|
||||||
|
jsr ScrollEditBufferOut
|
||||||
|
|
||||||
|
;save to disk
|
||||||
|
jsr SaveFile
|
||||||
|
|
||||||
|
;lather, rinse, repeat
|
||||||
|
jmp GetKey
|
||||||
|
|
||||||
|
ScrollEditBufferIn
|
||||||
|
;save real cursor position and use saved edit buffer cursor position instead
|
||||||
|
jsr SwapCoords
|
||||||
|
|
||||||
|
lda #<StatusLine
|
||||||
|
sta _in+1
|
||||||
|
lda #>StatusLine
|
||||||
|
sta _in+2
|
||||||
|
lda #HEIGHT
|
||||||
|
sta LINE
|
||||||
|
|
||||||
|
;copy last line on screen to temporary buffer
|
||||||
|
-- ldy #(WIDTH - 1)
|
||||||
|
- lda $07D0, y
|
||||||
|
sta LineBuffer, y
|
||||||
|
dey
|
||||||
|
bpl -
|
||||||
|
|
||||||
|
;copy each line on screen down to next line (leaves top line untouched)
|
||||||
|
jsr ScrollTextScreenDown
|
||||||
|
|
||||||
|
;copy last line of edit buffer to top line on screen
|
||||||
|
ldy #(WIDTH - 1)
|
||||||
|
_in lda $FFFF, y ;self-modified above and below
|
||||||
|
sta $0400, y
|
||||||
|
dey
|
||||||
|
bpl _in
|
||||||
|
|
||||||
|
;copy temporary buffer to last line in edit buffer
|
||||||
|
lda _in+1
|
||||||
|
sta _in2+1
|
||||||
|
lda _in+2
|
||||||
|
sta _in2+2
|
||||||
|
ldy #(WIDTH -1)
|
||||||
|
- lda LineBuffer, y
|
||||||
|
_in2 sta $FFFF, y ;self-modified above
|
||||||
|
dey
|
||||||
|
bpl -
|
||||||
|
|
||||||
|
;animation delay
|
||||||
jsr Delay
|
jsr Delay
|
||||||
|
|
||||||
|
;set up copy addresses for next line
|
||||||
|
lda _in+1
|
||||||
|
sec
|
||||||
|
sbc #WIDTH
|
||||||
|
sta _in+1
|
||||||
|
bcs +
|
||||||
|
dec _in+2
|
||||||
|
+ dec LINE
|
||||||
|
bne --
|
||||||
|
rts
|
||||||
|
|
||||||
|
ScrollEditBufferOut
|
||||||
|
;restore real cursor position
|
||||||
|
jsr SwapCoords
|
||||||
|
|
||||||
|
lda #<EditBuffer
|
||||||
|
sta _out+1
|
||||||
|
lda #>EditBuffer
|
||||||
|
sta _out+2
|
||||||
|
lda #HEIGHT
|
||||||
|
sta LINE
|
||||||
|
|
||||||
|
;copy first line on screen to temporary buffer
|
||||||
|
-- ldy #(WIDTH - 1)
|
||||||
|
- lda $0400, y
|
||||||
|
sta LineBuffer, y
|
||||||
|
dey
|
||||||
|
bpl -
|
||||||
|
|
||||||
|
;copy each line on screen up to next line (leaves last line empty)
|
||||||
|
jsr SCROLL
|
||||||
|
|
||||||
|
;copy first line of edit buffer to bottom line of screen
|
||||||
|
ldy #(WIDTH - 1)
|
||||||
|
_out lda $FFFF, y ;self-modified above and below
|
||||||
|
sta $07D0, y
|
||||||
|
dey
|
||||||
|
bpl _out
|
||||||
|
|
||||||
|
;copy temporary buffer to first line in edit buffer
|
||||||
|
lda _out+1
|
||||||
|
sta _out2+1
|
||||||
|
lda _out+2
|
||||||
|
sta _out2+2
|
||||||
|
ldy #(WIDTH - 1)
|
||||||
|
- lda LineBuffer, y
|
||||||
|
_out2 sta $FFFF, y ;self-modified above
|
||||||
|
dey
|
||||||
|
bpl -
|
||||||
|
|
||||||
|
;animation delay
|
||||||
|
jsr Delay
|
||||||
|
|
||||||
|
;set up copy addresses for next line
|
||||||
|
lda _out+1
|
||||||
|
clc
|
||||||
|
adc #WIDTH
|
||||||
|
sta _out+1
|
||||||
|
bcc +
|
||||||
|
inc _out+2
|
||||||
+ dec LINE
|
+ dec LINE
|
||||||
bne --
|
bne --
|
||||||
rts
|
rts
|
||||||
@ -284,40 +346,6 @@ _b sta $FFFF, y ; self-modified, above
|
|||||||
bpl -
|
bpl -
|
||||||
rts
|
rts
|
||||||
|
|
||||||
;scroll HEIGHT lines
|
|
||||||
|
|
||||||
VirtScrollDown
|
|
||||||
lda #<(LastLine - WIDTH)
|
|
||||||
sta GBASL
|
|
||||||
lda #>(LastLine - WIDTH)
|
|
||||||
sta GBASH
|
|
||||||
lda #<LastLine
|
|
||||||
sta BAS2L
|
|
||||||
lda #>LastLine
|
|
||||||
sta BAS2H
|
|
||||||
ldx #HEIGHT
|
|
||||||
-- ldy #(WIDTH - 1)
|
|
||||||
- lda (GBASL), y
|
|
||||||
sta (BAS2L), y
|
|
||||||
dey
|
|
||||||
bpl -
|
|
||||||
sec
|
|
||||||
lda GBASL
|
|
||||||
sbc #WIDTH
|
|
||||||
sta GBASL
|
|
||||||
bcs +
|
|
||||||
dec GBASH
|
|
||||||
sec
|
|
||||||
+ lda BAS2L
|
|
||||||
sbc #WIDTH
|
|
||||||
sta BAS2L
|
|
||||||
bcs +
|
|
||||||
dec BAS2H
|
|
||||||
+ dex
|
|
||||||
bne --
|
|
||||||
ReusableRTS2
|
|
||||||
rts
|
|
||||||
|
|
||||||
Delay
|
Delay
|
||||||
lda #1
|
lda #1
|
||||||
jmp WAIT
|
jmp WAIT
|
||||||
@ -336,33 +364,19 @@ SwapCoords
|
|||||||
bpl -
|
bpl -
|
||||||
jmp BASCALC
|
jmp BASCALC
|
||||||
|
|
||||||
;restore temporarily the original screen
|
_doneEditorMode
|
||||||
;so that notes are stored together
|
rts
|
||||||
|
|
||||||
SaveFile
|
|
||||||
lda CH
|
|
||||||
sta SaveCH
|
|
||||||
lda CV
|
|
||||||
sta SaveCV
|
|
||||||
inc ANIMATE + 1 ;disable animation (was #$FF from above)
|
|
||||||
jsr ScrollEditScreenOut
|
|
||||||
jsr CreateWriteFile
|
|
||||||
jsr ScrollEditScreenOut
|
|
||||||
dec ANIMATE + 1 ;re-enable animation
|
|
||||||
|
|
||||||
;print anything that isn't a special key
|
;print anything that isn't a special key
|
||||||
;wrap around screen position when we hit edges
|
;wrap around screen position when we hit edges
|
||||||
|
|
||||||
EditorMode
|
EditorMode
|
||||||
ldy CH
|
ldy CH
|
||||||
lda (BASL), y
|
lda (BASL), y
|
||||||
jsr KEYIN
|
jsr KEYIN
|
||||||
cmp #HOTKEY
|
cmp #HOTKEY
|
||||||
beq ReusableRTS2
|
beq _doneEditorMode
|
||||||
cmp #ESC
|
cmp #ESC
|
||||||
beq ReusableRTS2
|
beq _doneEditorMode
|
||||||
cmp #SAVEKEY
|
|
||||||
beq SaveFile
|
|
||||||
cmp #IMPORTKEY
|
cmp #IMPORTKEY
|
||||||
beq ImportScreen
|
beq ImportScreen
|
||||||
cmp #LTARROW
|
cmp #LTARROW
|
||||||
@ -409,9 +423,9 @@ LineRight
|
|||||||
beq SetColumn ;always
|
beq SetColumn ;always
|
||||||
|
|
||||||
ImportScreen
|
ImportScreen
|
||||||
lda #<(FirstLine + WIDTH)
|
lda #<(EditBuffer + WIDTH)
|
||||||
sta OPSRCL
|
sta OPSRCL
|
||||||
lda #>(FirstLine + WIDTH)
|
lda #>(EditBuffer + WIDTH)
|
||||||
sta OPSRCH
|
sta OPSRCH
|
||||||
ldx #(HEIGHT - 2)
|
ldx #(HEIGHT - 2)
|
||||||
|
|
||||||
@ -496,6 +510,11 @@ FileName
|
|||||||
OpenMLI_e
|
OpenMLI_e
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
SaveFile
|
||||||
|
lda CH
|
||||||
|
sta SaveCH
|
||||||
|
lda CV
|
||||||
|
sta SaveCV
|
||||||
CreateWriteFile
|
CreateWriteFile
|
||||||
ldx #CREATEFILE
|
ldx #CREATEFILE
|
||||||
jsr OpenCommon
|
jsr OpenCommon
|
||||||
@ -555,13 +574,6 @@ MyCH
|
|||||||
MyCV
|
MyCV
|
||||||
!byte 0
|
!byte 0
|
||||||
|
|
||||||
LoadSaveStart
|
|
||||||
|
|
||||||
SaveCH
|
|
||||||
!byte 0 ;loaded from file if exists
|
|
||||||
SaveCV
|
|
||||||
!byte 0 ;loaded from file if exists
|
|
||||||
|
|
||||||
TextCalcHi
|
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
|
!byte $04, $04, $05, $05, $06, $06, $07, $07
|
||||||
@ -571,28 +583,21 @@ TextCalcLo
|
|||||||
!byte $28, $A8, $28, $A8, $28, $A8, $28, $A8
|
!byte $28, $A8, $28, $A8, $28, $A8, $28, $A8
|
||||||
!byte $50, $D0, $50, $D0, $50, $D0, $50, $D0
|
!byte $50, $D0, $50, $D0, $50, $D0, $50, $D0
|
||||||
|
|
||||||
FirstLine
|
LoadSaveStart
|
||||||
;pre-screen line to catch scroll
|
|
||||||
!fill WIDTH, $A0
|
|
||||||
|
|
||||||
;we reserve one line for status
|
SaveCH
|
||||||
|
!byte 0 ;loaded from file if exists
|
||||||
|
SaveCV
|
||||||
|
!byte 0 ;loaded from file if exists
|
||||||
|
|
||||||
!scrxor $40, "CTRL"
|
EditBuffer ;lines are stored sequentially, not like text page in memory
|
||||||
!text "+("
|
!fill WIDTH * (HEIGHT - 1), $A0
|
||||||
!scrxor $40, IMPORTKEY
|
|
||||||
!text ")"
|
|
||||||
!scrxor $40, "MPORT"
|
|
||||||
!text " ("
|
|
||||||
!scrxor $40, SAVEKEY
|
|
||||||
!text ")"
|
|
||||||
!scrxor $40, "AVE"
|
|
||||||
!text " "
|
|
||||||
!scrxor $80, "4LIVE-1"
|
|
||||||
|
|
||||||
;not the full $400 to save memory
|
|
||||||
!fill WIDTH * (HEIGHT - 2), $A0
|
|
||||||
|
|
||||||
LastLine
|
|
||||||
!fill WIDTH, $A0
|
|
||||||
|
|
||||||
LoadSaveEnd
|
LoadSaveEnd
|
||||||
|
StatusLine ;must be exactly WIDTH bytes
|
||||||
|
;status line
|
||||||
|
!fill (WIDTH - 8), $20
|
||||||
|
!scrxor $80, "4LIVE V1"
|
||||||
|
|
||||||
|
LineBuffer ;used during scrolling
|
||||||
|
!fill WIDTH, 0
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user