Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-07 05:30:55 +00:00
Code Issues Projects Releases Wiki Activity

megaload: optimize it down some

Browse Source
This commit is contained in:
Vince Weaver 2018-10-12 22:17:35 -04:00
parent 0d22a6547a
commit 8f4393b4bb
1 changed files with 71 additions and 127 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
megademo/megaload.s
View File

@ -1,54 +1,38 @@
; read any file slot 6 version
;copyright (c) Peter Ferrie 2013
;!cpu 65c02
;!to "trk",plain
;*=$800
; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013
adrlo = $26 ; constant from boot prom
adrhi = $27 ; constant from boot prom
tmpsec = $3c ; constant from boot prom
reqsec = $3d ; constant from boot prom
A1L = $3c ;constant from ROM
A1H = $3d ;constant from ROM
A2L = $3e ;constant from ROM
A2H = $3f ;constant from ROM
curtrk = $40
niblo = $41
nibhi = $42
A4L = $42 ;constant from ROM
A4H = $43 ;constant from ROM
sizelo = $44
sizehi = $45
secsize = $46
TEMPX = $f9
TEMPY = $fa
namlo = $fb
namhi = $fc
step = $fd ; state for stepper motor
tmptrk = $fe ; temporary copy of current track
phase = $ff ; current phase for /seek
reloc = $bc00
dirbuf = $bf00
MOVE = $fe2c
start:
; jmp start
jsr init ;one-time call to unhook DOS
jsr init ; unhook DOS, init nibble table
; open and read a file
lda #<file_to_read
sta namlo
lda #>file_to_read
sta namhi
jsr opendir ;open and read entire file into memory at its load address
jsr opendir ; open and read entire file into memory
jmp $4000 ; jump to entry point
jmp $4000
;blah: jmp blah
; format of request name is 30-character Apple text:
;e.g. !scrxor $80, "MYFILE "
file_to_read: ;.byte "MYFILE "
; filename to open is 30-character Apple text:
file_to_read: ;.byte "MEGADEMO "
.byte 'M'|$80,'E'|$80,'G'|$80,'A'|$80,'D'|$80,'E'|$80,'M'|$80,'O'|$80
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
.byte $A0,$A0,$A0,$A0,$A0,$A0,$A0,$A0
@ -60,21 +44,13 @@ file_to_read: ;.byte "MYFILE "
init:
jsr $fe93 ; clear COUT
jsr $fe89 ; clear KEYIN
; lda #<unreloc
; sta A1L
; lda #>unreloc
; sta A1H
; lda #<(unreloc+(codeend-opendir)-1)
; sta A2L
; lda #>(unreloc+(codeend-opendir)-1)
; sta A2H
ldy #0
; sty A4L
; lda #>reloc
; sta A4H
; jsr MOVE ; move mem from A1-A2 to location A4
; Create nibble table?
;========================
; Create nibble table
; Note: the table starts 16 bytes in, and is sparse
; so it doesn't entirely look like the DOS33 table at
ldy #0
ldx #3
L1: stx $3c ; store tempx (3?)
txa ; a=x (a=3)
@ -98,21 +74,19 @@ L3: inx ; increment x x=4, a=0f
rts
.align $100
unreloc:
;!pseudopc reloc {
;===========================
; opendir
;===========================
; turn on drive and read volume table of contents
opendir:
lda $c0e9 ; turn slot#6 drive on
ldx #0
stx adrlo ; zero out adrlo
stx secsize ; zero out secsize
lda #$11 ; a=$11 (VTOC?)
lda #$11 ; a=$11 (VTOC)
jsr readdirsec
firstent:
; jmp firstent
lda dirbuf+1
@ -318,10 +292,6 @@ repeat_until_right_sector:
cmp reqsec
bne re_read_addr
;blah2: jmp blah2
;==========================
; read sector data
;==========================
@ -418,28 +388,8 @@ L21:
dey ; loop 3 times
bne adr_read_two_bytes
rts ; return
;=====================
; Stepper motor delay
;=====================
stepdelay:
stx TEMPX ; was **phx**
and #3
rol
tax
lda $c0e0, x
lda TEMPX ; was **pla**
L22:
ldx #$13
L23:
dex
bne L23
sec
sbc #1 ; was **dec**
bne L22
seekret:
rts
rts ; return
;================
; SEEK
@ -538,9 +488,7 @@ step2: .byte $70, $2c, $26, $22, $1f, $1e, $1d, $1c
sectbl: .byte $00,$0d,$0b,$09,$07,$05,$03,$01,$0e,$0c,$0a,$08,$06,$04,$02,$0f
.align $100
codeend = *
;.align $100
; From $BA96 of DOS33
nibtbl = *
@ -565,8 +513,4 @@ nibtbl = *
bit2tbl = nibtbl+128
filbuf = bit2tbl+86
dataend = filbuf+4
;hack to error out when code is too large for current address
;!if ((dirbuf-(dataend-opendir))&$ff00)<reloc {
;1=1
;}
;}