Apple-2-SW/anti-m
1
0
Fork 0
mirror of https://github.com/a2-4am/anti-m.git synced 2024-06-26 10:29:28 +00:00
Code Issues Projects Releases Wiki Activity

boot13

Browse Source
This commit is contained in:
Peter Ferrie 2019-03-12 13:35:43 -07:00
parent fdffc06eb6
commit ece4a802f9
2 changed files with 160 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/anti-m.a
View File

@ -89,7 +89,7 @@ Boot
; entry point for Disk II controller
sta $16F9 ; lo byte of callback
stx $16FA ; hi byte of callback
jmp $1600
beq @tryboot
@iigs
ldy $16FB
cpy #$4C
@ -97,7 +97,8 @@ Boot
; entry point for IIgs smart controller
sta $16FC ; lo byte of callback
stx $16FD ; hi byte of callback
jmp $1600
@tryboot
jmp IDBoot
@unknowncontroller
jmp RebootImmediately
@ -187,3 +188,4 @@ StringTable
!src "src/idspiradisc.a"
!src "src/ididsi.a"
!src "src/idsirius.a"
!src "src/idboot.a"

156
src/idboot.a Normal file
View File

@ -0,0 +1,156 @@
; Bootsector tracer
; written by qkumba
;
IDBoot
; try to determine sector type based on found boot sector
lda #$60
sta $167B
jsr $1600
bcc +
lda #$90
sta $167B
; found D5 AA 96 T00S00 D5 AA AD, proceed as 16-sector
- clc
jmp $165D
; found D5 AA not-96
; check for out-of-order D5 AA AD
+ cmp #$AD
beq -
; otherwise, loop in case we will see D5 AA B5
cmp #$B5
bne -
; found D5 AA B5, assume 13-sector
lda #$90
sta $167B
; build 5-and-3 decoder table
ldx #$00
ldy #$AB
- tya
sta $3C
lsr
ora $3C
cmp #$FF
bne +
cpy #$D5
beq +
txa
asl
asl
asl
sta $300,y
inx
+ iny
bne -
; patch boot PROM to recognise 13-sector instead
lda #$B5
sta $1677
lda #$9A
sta $16A7
sty $16B0
inc $16B1
sty $16C2
inc $16C3
sty $16D1
inc $16D2
- lda @decode53,y
sta $16D5,y
iny
bne -
lda #$02
sta $27
sty $42
lda #$08
ldx #<@callback53
ldy #>@callback53
- sta $43
stx $44
sty $45
clc
jmp @run53
@callback53
lda $8FF
lsr
lsr
lsr
tay
iny
sty @patch53+1
ldx #0
ldy $8FE
iny
tya
bne -
@decode53 !pseudopc $16D5 {
@decode53x
ldx #$32
ldy #$00
- lda $300,x
lsr
lsr
lsr
sta $3C
lsr
sta $2A
lsr
ora $200,x
sta ($42),y
iny
lda $333,x
lsr
lsr
lsr
lsr
rol $3C
lsr
rol $2A
ora $233,x
sta ($42),y
iny
lda $366,x
lsr
lsr
lsr
lsr
rol $3C
lsr
rol $2A
ora $266,x
sta ($42),y
iny
lda $2A
and #7
ora $299,x
sta ($42),y
iny
lda $3C
and #7
ora $2CC,x
sta ($42),y
iny
dex
bpl -
lda $399
lsr
lsr
lsr
ora $2FF
sta ($42),y
inc $3D
inc $43
lda $3D
@patch53
cmp #$01
@run53
ldx #$60
bcs +
jmp $165D
+ jmp ($44)
}