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

Merge pull request #11 from peterferrie/master

Browse Source 
Master
This commit is contained in:
4am 2016-11-17 08:58:26 -05:00 committed by GitHub
commit 3782dc9a1c
1 changed files with 63 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

129
src/4live.a
View File

@ -21,7 +21,6 @@
!addr DOSBASE = $3D2 !addr DOSBASE = $3D2
!addr FILEMAN = $3D6 !addr FILEMAN = $3D6
!addr GETPARM = $3DC !addr GETPARM = $3DC
!addr RECONNECTDOS = $3EA
!addr KBD = $C000 !addr KBD = $C000
!addr STROBE = $C010 !addr STROBE = $C010
!addr LCBANK2 = $C083 !addr LCBANK2 = $C083
@ -68,7 +67,7 @@
WIDTH = 40 WIDTH = 40
HEIGHT = 24 HEIGHT = 24
LDRBASE = $2d9 LDRBASE = $2d9
INSTALLBUFFER = $800 ; max 256 bytes, not preserved INSTALLBUFFER = $249 ; yes, the overlay overwrites the loader...
SWAPBUFFER = $900 ; (LoadSaveEnd - LoadSaveStart) size SWAPBUFFER = $900 ; (LoadSaveEnd - LoadSaveStart) size
; needed by DiversiDOS, must be page-aligned ; needed by DiversiDOS, must be page-aligned
; region is preserved across calls ; region is preserved across calls
@ -77,9 +76,8 @@
LdrHeader LdrHeader
!word LDRBASE, LdrEnd - LdrStart !word LDRBASE, LdrEnd - LdrStart
;main loader routine loads discardable install code to $800, ;loader loads to pages 2-3, loads discardable install code also to pages 2-3
;since DOS startup will clobber this page anyway ;and carries proxy routines including file manager and banked RAM exchange for DiversiDOS
;also carries proxy routines including file manager and banked RAM exchange for DiversiDOS
LdrStart LdrStart
;set filename pointer in MLI request packet ;set filename pointer in MLI request packet
@ -92,6 +90,7 @@ LdrStart
;set slot and drive in MLI request packet ;set slot and drive in MLI request packet
jsr GETIOB jsr GETIOB
pha ;save for later
sty OPSRC1L sty OPSRC1L
sta OPSRC1H sta OPSRC1H
ldy #IOBDRIVE ldy #IOBDRIVE
@ -243,8 +242,8 @@ GetKey
lda ROMIN1 lda ROMIN1
;lather, rinse, repeat ;lather, rinse, repeat
jsr RDCHAR jsr RDCHAR ;returns non-zero
jmp GetKey bne GetKey
ReadFile ReadFile
WriteFile WriteFile
@ -298,8 +297,8 @@ ExchangeSwapSet
bpl - bpl -
rts rts
LdrEnd LdrEnd
!if ((LDRBASE + LdrEnd - LdrStart) > $3d0) { !if ((LDRBASE + LdrEnd - LdrStart) > $3D0) {
!error "swap code too large, ends at ",LDRBASE + LdrEnd - LdrStart !error "swap code too large, ", (LDRBASE + LdrEnd - LdrStart) - $3D0, " bytes too many"
} }
;install routine is an overlay that is loaded by loader routine above ;install routine is an overlay that is loaded by loader routine above
@ -310,7 +309,7 @@ InstallStart
!pseudopc INSTALLBUFFER { !pseudopc INSTALLBUFFER {
;check for DiversiDOS ;check for DiversiDOS
jsr GETIOB pla
eor #$BF eor #$BF
bne + ;regular DOS bne + ;regular DOS
sta ReadBuffer sta ReadBuffer
@ -327,24 +326,7 @@ InstallStart
;read second overlay to banked RAM ;read second overlay to banked RAM
jsr ExchangeSwapBanked2 jsr ReadEditor
lda #$20
sta SwapFILEMAN
jsr DOSMLI
!byte InstallReadMLI_e - InstallReadMLI_b
InstallReadMLI_b
!byte CMDREAD
!byte POSREADRANGE
!word 0 ;record number
!word BankedCopyStart - LdrHeader
;offset
!word BankedCopyEnd - BankedCopyStart
;number of bytes
InstallReadBuffer
!word $D000 ;buffer
InstallReadMLI_e
jsr ExchangeSwapBanked2
;open source file and read it if available ;open source file and read it if available
@ -398,9 +380,27 @@ CharMap1
sta KSWL sta KSWL
lda #>GlobalKeyboardHook lda #>GlobalKeyboardHook
sta KSWH sta KSWH
jsr RECONNECTDOS
jmp WARMDOS jmp WARMDOS
ReadEditor
jsr ExchangeSwapBanked2
lda #$20
sta SwapFILEMAN
jsr DOSMLI
!byte InstallReadMLI_e - InstallReadMLI_b
InstallReadMLI_b
!byte CMDREAD
!byte POSREADRANGE
!word 0 ;record number
!word BankedCopyStart - LdrHeader
;offset
!word BankedCopyEnd - BankedCopyStart
;number of bytes
InstallReadBuffer
!word $D000 ;buffer
InstallReadMLI_e
;fall through to ExchangeBanked2
ExchangeSwapBanked2 ExchangeSwapBanked2
rts ;self-modified to LDA in DiversiDOS environment rts ;self-modified to LDA in DiversiDOS environment
!byte ((>$D000) - >((<(BankedCopyEnd - BankedCopyStart)) + 255)) !byte ((>$D000) - >((<(BankedCopyEnd - BankedCopyStart)) + 255))
@ -416,7 +416,7 @@ _WelcomeMessage
} }
InstallEnd InstallEnd
!if >(InstallEnd - InstallStart) { !if >(InstallEnd - InstallStart) {
!error "swap code too large, ends at ",INSTALLBUFFER + InstallEnd - InstallStart !error "swap code too large, ends at ", (InstallEnd - InstallStart) - $100, " bytes too many"
} }
;editor code is an overlay that is loaded by install routine above ;editor code is an overlay that is loaded by install routine above
@ -457,17 +457,8 @@ IsDirty
rts rts
ScrollEditBufferIn ScrollEditBufferIn
lda #<LastLine ldy #(<(ScrollParms2 - ScrollParms1) - 1)
sta OPSRC1L jsr SetScrollLines
lda #>LastLine
sta OPSRC1H
lda #<(LastLine - WIDTH)
sta OPDST1L
lda #>(LastLine - WIDTH)
sta OPDST1H
lda #HEIGHT
sta SCROLLLINE
;copy last line on screen to temporary buffer ;copy last line on screen to temporary buffer
-- ldy #(WIDTH - 1) -- ldy #(WIDTH - 1)
@ -493,31 +484,21 @@ CharMap2
bpl - bpl -
;animation delay ;animation delay
jsr Delay ;returns carry set jsr Delay
lda #-WIDTH lda #-WIDTH
ldy #$FF ldy #$FF
jsr UpdateVirtualOff jsr UpdateVirtualOff ;returns zr/nz state of SCROLLLINE
dec SCROLLLINE
bne -- bne --
rts rts
ScrollEditBufferOut ScrollEditBufferOut
lda #<FirstLine ldy #((<(ScrollParms2 - ScrollParms1) * 2) - 1)
sta OPSRC1L jsr SetScrollLines
lda #>FirstLine
sta OPSRC1H
lda #<(FirstLine + WIDTH)
sta OPDST1L
lda #>(FirstLine + WIDTH)
sta OPDST1H
lda #HEIGHT
sta SCROLLLINE
;copy first line on screen to temporary buffer ;copy first line on screen to temporary buffer
-- ldy #(WIDTH - 1) -- ldy #(WIDTH - 1)
- lda $0400, y ;self-modified - lda $0400, y
sta (OPSRC1L), y sta (OPSRC1L), y
dey dey
bpl - bpl -
@ -533,15 +514,31 @@ ScrollEditBufferOut
bpl - bpl -
;animation delay ;animation delay
jsr Delay ;returns carry set jsr Delay ;returns A=0
tay tay
lda #WIDTH lda #WIDTH
jsr UpdateVirtualOff jsr UpdateVirtualOff ;returns zr/nz state of SCROLLLINE
dec SCROLLLINE
bne -- bne --
rts rts
SetScrollLines
ldx #3
- lda ScrollParms1, y
sta OPSRC1L, x
dey
dex
bpl -
lda #HEIGHT
sta SCROLLLINE
rts
ScrollParms1
!word LastLine, LastLine - WIDTH
ScrollParms2
!word FirstLine, FirstLine + WIDTH
UpdateVirtualOff UpdateVirtualOff
;set up copy addresses for next line ;set up copy addresses for next line
@ -557,6 +554,7 @@ UpdateVirtualOff
dex dex
dex dex
bpl - bpl -
dec SCROLLLINE
rts rts
ScrollTextScreenDown ScrollTextScreenDown
@ -579,7 +577,7 @@ SetTextCalc
rts rts
ScrollTextScreenUp ScrollTextScreenUp
ldx #1 - HEIGHT ldx #(1 - HEIGHT)
- lda (TextCalcLo + HEIGHT - $101) +1, x - lda (TextCalcLo + HEIGHT - $101) +1, x
sta OPSRC2L sta OPSRC2L
lda TextCalcLo + HEIGHT - $101, x lda TextCalcLo + HEIGHT - $101, x
@ -617,24 +615,23 @@ MyWAIT
ClearScreen ; does not clear status line ClearScreen ; does not clear status line
pha pha
clc clc
bcc +
HandleKeyImportScreen HandleKeyImportScreen ;called with carry set
lda #<(LastLine - WIDTH) lda #<(LastLine - WIDTH)
sta OPSRC1L sta OPSRC1L
lda #>(LastLine - WIDTH) lda #>(LastLine - WIDTH)
sta OPSRC1H sta OPSRC1H
+ ldx #(HEIGHT - 2) ldx #(HEIGHT - 2)
-- jsr SetTextCalc -- jsr SetTextCalc
ldy #(WIDTH - 1) ldy #(WIDTH - 1)
lda #$A0 lda #$A0
- bcc + - bcc + ;ClearScreen path
lda (OPSRC1L), y lda (OPSRC1L), y
+ sta (OPSRC2L), y + sta (OPSRC2L), y
dey dey
bpl - bpl -
bcc + bcc + ;ClearScreen path
sec sec
lda OPSRC1L lda OPSRC1L
sbc #WIDTH sbc #WIDTH
@ -644,7 +641,7 @@ HandleKeyImportScreen
sec sec
+ dex + dex
bpl -- bpl --
bcc ClearScreenRet bcc ClearScreenRet ;ClearScreen path
;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