a2d/desktop/ovl1a.s
2018-02-25 15:19:38 -08:00

286 lines
5.9 KiB
ArmAsm

.setcpu "6502"
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc"
.include "../mgtk.inc"
.include "../desktop.inc"
.include "../macros.inc"
;;; ==================================================
;;; Overlay for Disk Copy #2
;;; ==================================================
.org $1800
.proc disk_copy_overlay2
jmp start
L1A39 := $1A39
L1A3B := $1A3B
LA798 := $A798
LA839 := $A839
LA83D := $A83D
LA8E8 := $A8E8
LA960 := $A960
LAA00 := $AA00
LAA1B := $AA1B
LAA3A := $AA3A
LAB37 := $AB37
;;; ==================================================
.proc open_params
param_count: .byte 3
pathname: .addr filename
io_buffer: .addr $1C00
ref_num: .byte 0
.endproc
filename: PASCAL_STRING "DeskTop2"
.proc read_params
param_count: .byte 4
ref_num: .byte 0
data_buffer: .addr 0
request_count: .word 0
trans_count: .word 0
.endproc
.proc set_mark_params
param_count: .byte 2
ref_num: .byte 0
position: .faraddr $133E0
.endproc
.proc close_params
param_count: .byte 1
ref_num: .byte 0
.endproc
.byte $00,$00
buf1: .addr $4000
dest1: .addr $D000
len1: .word $2200
buf2: .addr $800
len2: .word $B00
;;; ==================================================
start: lda #$41 ; ???
sta RAMWRTON
sta $0100
sta $0101
sta RAMWRTOFF
;; Free up system bitmap
ldx #BITMAP_SIZE-3
lda #0
L183F: sta BITMAP+1,x
dex
bpl L183F
yax_call MLI_RELAY, OPEN, open_params
lda open_params::ref_num
sta read_params::ref_num
sta set_mark_params::ref_num
yax_call MLI_RELAY, SET_MARK, set_mark_params
copy16 buf1, read_params::data_buffer
copy16 len1, read_params::request_count
yax_call MLI_RELAY, READ, read_params
jsr copy_to_lc
copy16 buf2, read_params::data_buffer
copy16 len2, read_params::request_count
yax_call MLI_RELAY, READ, read_params
yax_call MLI_RELAY, CLOSE, close_params
sta ALTZPON
lda LCBANK1
lda LCBANK1
jmp MGTK_RELAY
;;; ==================================================
;;; Copy first chunk to the Language Card
.proc copy_to_lc
src := $6
end := $8
dst := $A
;; Bank in AUX LC
sta ALTZPON
lda LCBANK1
lda LCBANK1
txa
asl a
tax
;; Set up pointers
lda buf1
sta src
clc
adc len1
sta end
lda buf1+1
sta src+1
adc len1+1
sta end+1
lda dest1
sta dst
lda dest1+1
sta dst+1
;; Do the copy
ldy #0
loop: lda (src),y
sta (dst),y
inc src
inc dst
lda src
bne :+
inc src+1
inc dst+1
: lda src+1
cmp end+1
bne loop
lda src
cmp end
bne loop
;; Bank in ROM
sta ALTZPOFF
lda ROMIN2
rts
.endproc
;;; ==================================================
.proc MLI_RELAY
sty call
stax params
php
sei
jsr MLI
call: .byte 0
params: .addr 0
plp
and #$FF
self: bne self ; hang if fails
rts
.endproc
;;; ==================================================
tax
bne L192C
bcc L1998
lda $BE54
lsr a
bcs L1962
L192C: jmp LA839
lda $BE53
cmp #$06
bne L192C
jmp LA798
jsr LAA1B
beq L192C
cmp #$41
beq L198C
jsr LAB37
sty $BCAD
ldy #$13
sty $BCAE
ldy #$40
sty $BE56
jsr LA960
bcs L1961
lda $BE6B
cmp #$08
bcc L1991
L195E: lda #$02
sec
L1961: rts
L1962: lsr a
bcc L1987
jsr LAA3A
beq L192C
dex
lda #$82
sta $BCA9
ldy #$01
jsr LAA00
dey
dey
sty $0280
lda #$03
sta $BE56
dex
jsr LAA3A
bne L192C
bcc L1998
L1987: jsr LAA3A
beq L192C
L198C: jsr LA8E8
bcs L1961
L1991: jsr LAA3A
bne L192C
bcs L1987
L1998: lda $BE61
beq L195E
cmp #$08
bcs L195E
lda $BE62
beq L195E
cmp #$03
bcs L195E
lda $BE54
and #$21
lsr a
beq L19BB
lda $BE42
bne L19BB
lda #$0F
sec
rts
L19BB: bcc L19FD
lda $BE55
and #$04
beq L19FD
lda $BE56
lsr a
bcs L19D3
lda $BE54
and #$90
beq L1A39
bpl L19FD
L19D3: lda $BCBD
eor #$2F
beq L19DF
lda $BF9A
beq L19F8
L19DF: lda $BE57
and #$04
beq L19FD
bcs L19F8
lda #$00
sta $BCBC
sta $BCBD
lda #$01
ora $BE56
sta $BE56
L19F8: jsr LA83D
bcs L1A3B
L19FD: lda $BE53
;;; ==================================================
PAD_TO $1A00
.endproc ; disk_copy_overlay2