mirror of
https://github.com/brouhaha/a2-3.5cont.git
synced 2024-05-28 17:41:33 +00:00
Minor changes
This commit is contained in:
Eric Smith
parent
e1c55bf708
commit
e5600526ee
|
|
@ -664,7 +664,7 @@ HDcnfb: fcb $c0 ; SmartPort ID type byte
|
||||||
; (see _Apple IIgs Firmware Reference
|
; (see _Apple IIgs Firmware Reference
|
||||||
; 1 MB Apple IIgs Update)
|
; 1 MB Apple IIgs Update)
|
||||||
; SetFormatOption ($0a, $4a)
|
; SetFormatOption ($0a, $4a)
|
||||||
; GetFOrmatOption ($0b, $4b)
|
; GetFormatOption ($0b, $4b)
|
||||||
; bit 1=0: not SCSI
|
; bit 1=0: not SCSI
|
||||||
; bit 0=0: not RAM card
|
; bit 0=0: not RAM card
|
||||||
|
|
||||||
|
|
@ -986,6 +986,7 @@ HLcc18: lda HDc801
|
||||||
|
|
||||||
HLcc3b: jmp HLceb3
|
HLcc3b: jmp HLceb3
|
||||||
|
|
||||||
|
|
||||||
HLcc3e: lda HZ46
|
HLcc3e: lda HZ46
|
||||||
sta HDc80b
|
sta HDc80b
|
||||||
lda HZ47
|
lda HZ47
|
||||||
|
|
@ -3818,11 +3819,11 @@ Dd277: fdb cmd_status
|
||||||
fdb cmd_bad ; close
|
fdb cmd_bad ; close
|
||||||
fdb cmd_read
|
fdb cmd_read
|
||||||
fdb cmd_write
|
fdb cmd_write
|
||||||
fdb Lef73
|
fdb cmd_set_format_option
|
||||||
fdb Lee77
|
fdb cmd_get_format_option
|
||||||
fdb Le1ae
|
fdb cmd_unknown_0c
|
||||||
fdb Le2c0
|
fdb cmd_unknown_0d
|
||||||
fdb Le33b
|
fdb cmd_unknown_0e
|
||||||
|
|
||||||
|
|
||||||
cmd_bad:
|
cmd_bad:
|
||||||
|
|
@ -3832,6 +3833,7 @@ Sd297: clc
|
||||||
stz Z01
|
stz Z01
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
Ld29d: lda #$22
|
Ld29d: lda #$22
|
||||||
bra Sd297
|
bra Sd297
|
||||||
|
|
||||||
|
|
@ -5666,7 +5668,9 @@ Le1aa: sta Z56
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
Le1ae: stz Z56
|
|
||||||
|
cmd_unknown_0c:
|
||||||
|
stz Z56
|
||||||
stz Z16
|
stz Z16
|
||||||
stz Z14
|
stz Z14
|
||||||
stz Z1b
|
stz Z1b
|
||||||
|
|
@ -5726,7 +5730,9 @@ De280: fcb $00,$40,$80,$c0,$00,$40,$80,$c0
|
||||||
fcb $00,$40,$80,$c0,$00,$40,$80,$c0
|
fcb $00,$40,$80,$c0,$00,$40,$80,$c0
|
||||||
fcb $00,$40,$80,$c0,$00,$40,$80,$c0
|
fcb $00,$40,$80,$c0,$00,$40,$80,$c0
|
||||||
|
|
||||||
Le2c0: lda #$11
|
|
||||||
|
cmd_unknown_0d:
|
||||||
|
lda #$11
|
||||||
ldx Z2f
|
ldx Z2f
|
||||||
bpl Le2c9
|
bpl Le2c9
|
||||||
Le2c6: jmp Sd297
|
Le2c6: jmp Sd297
|
||||||
|
|
@ -5790,7 +5796,9 @@ Le335: lda Z00
|
||||||
Le339: sec
|
Le339: sec
|
||||||
rts
|
rts
|
||||||
|
|
||||||
Le33b: lda #$11
|
|
||||||
|
cmd_unknown_0e:
|
||||||
|
lda #$11
|
||||||
ldx Z2f
|
ldx Z2f
|
||||||
bpl Le344
|
bpl Le344
|
||||||
Le341: jmp Sd297
|
Le341: jmp Sd297
|
||||||
|
|
@ -6874,6 +6882,7 @@ Lec11: lda Z8d+$8000-1,x
|
||||||
bne Lec11
|
bne Lec11
|
||||||
bra Lec5f
|
bra Lec5f
|
||||||
|
|
||||||
|
|
||||||
ResetHook:
|
ResetHook:
|
||||||
ldx Z70+$8000
|
ldx Z70+$8000
|
||||||
Lec1e: lda Z71+$8000,x
|
Lec1e: lda Z71+$8000,x
|
||||||
|
|
@ -6882,6 +6891,7 @@ Lec1e: lda Z71+$8000,x
|
||||||
bne Lec1e
|
bne Lec1e
|
||||||
bra Lec5f
|
bra Lec5f
|
||||||
|
|
||||||
|
|
||||||
Lec28: lda #$01
|
Lec28: lda #$01
|
||||||
jsr Secfe
|
jsr Secfe
|
||||||
lda D0c00
|
lda D0c00
|
||||||
|
|
@ -6890,6 +6900,7 @@ Lec28: lda #$01
|
||||||
jsr Sd97c
|
jsr Sd97c
|
||||||
bra Lec5f
|
bra Lec5f
|
||||||
|
|
||||||
|
|
||||||
Lec39: lda #$01
|
Lec39: lda #$01
|
||||||
jsr Secfe
|
jsr Secfe
|
||||||
bne Lebce
|
bne Lebce
|
||||||
|
|
@ -6902,6 +6913,7 @@ Lec39: lda #$01
|
||||||
sty Z4a,x
|
sty Z4a,x
|
||||||
bra Lec5f
|
bra Lec5f
|
||||||
|
|
||||||
|
|
||||||
Lec51: lda #$01
|
Lec51: lda #$01
|
||||||
jsr Secfe
|
jsr Secfe
|
||||||
bne Lecbd
|
bne Lecbd
|
||||||
|
|
@ -6911,6 +6923,7 @@ Lec51: lda #$01
|
||||||
Lec5f: lda #$00
|
Lec5f: lda #$00
|
||||||
jmp Lebd0
|
jmp Lebd0
|
||||||
|
|
||||||
|
|
||||||
Lec64: ldx Z2f
|
Lec64: ldx Z2f
|
||||||
jsr Sd55a
|
jsr Sd55a
|
||||||
jsr Sd905
|
jsr Sd905
|
||||||
|
|
@ -6921,6 +6934,7 @@ Lec71: bcc Lec76
|
||||||
|
|
||||||
Lec76: rts
|
Lec76: rts
|
||||||
|
|
||||||
|
|
||||||
Lec77: ldx Z2f
|
Lec77: ldx Z2f
|
||||||
jsr Sd94d
|
jsr Sd94d
|
||||||
jsr Sed05
|
jsr Sed05
|
||||||
|
|
@ -6929,6 +6943,7 @@ Lec77: ldx Z2f
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
Lec86: jsr Sece3
|
Lec86: jsr Sece3
|
||||||
sta Z59
|
sta Z59
|
||||||
stx Z5a
|
stx Z5a
|
||||||
|
|
@ -6940,6 +6955,7 @@ Lec86: jsr Sece3
|
||||||
Lec93: clc
|
Lec93: clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
Lec95: jsr Lecaa
|
Lec95: jsr Lecaa
|
||||||
lda (Z64)
|
lda (Z64)
|
||||||
sta Z58
|
sta Z58
|
||||||
|
|
@ -7051,6 +7067,7 @@ cmd_status:
|
||||||
cmp #$01
|
cmp #$01
|
||||||
bne Led9c
|
bne Led9c
|
||||||
|
|
||||||
|
; status $01 - get Device Control Block
|
||||||
ldx #controller_model_name_len
|
ldx #controller_model_name_len
|
||||||
stx D0c00
|
stx D0c00
|
||||||
Led7b: lda controller_model_name-1,x
|
Led7b: lda controller_model_name-1,x
|
||||||
|
|
@ -7088,14 +7105,17 @@ Leda1: stx Z0b
|
||||||
Ledb2: clc
|
Ledb2: clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
; status $00 - get device status
|
||||||
Ledb4: lda Z33
|
Ledb4: lda Z33
|
||||||
sta D0c00
|
sta D0c00
|
||||||
|
|
||||||
ldx #$01
|
ldx #$01
|
||||||
lda #$00
|
lda #$00
|
||||||
Ledbd: sta D0c00,x
|
Ledbd: sta D0c00,x
|
||||||
inx
|
inx
|
||||||
cpx #$08
|
cpx #$08
|
||||||
bne Ledbd
|
bne Ledbd
|
||||||
|
|
||||||
lda #$01
|
lda #$01
|
||||||
sta D0c02
|
sta D0c02
|
||||||
lda #$00
|
lda #$00
|
||||||
|
|
@ -7160,10 +7180,13 @@ Lee3b: lda Dee4b,y
|
||||||
dex
|
dex
|
||||||
jmp Leda1
|
jmp Leda1
|
||||||
|
|
||||||
|
|
||||||
Dee4b: fcb $08,"DISK 3.5 ",$01,$c0,$10,$10,$ff
|
Dee4b: fcb $08,"DISK 3.5 ",$01,$c0,$10,$10,$ff
|
||||||
Dee61: fcb $08,"DISK 3.5HD ",$01,$c1,$10,$10,$ff
|
Dee61: fcb $08,"DISK 3.5HD ",$01,$c1,$10,$10,$ff
|
||||||
|
|
||||||
Lee77: ldx Z2f
|
|
||||||
|
cmd_get_format_option:
|
||||||
|
ldx Z2f
|
||||||
bpl Lee80
|
bpl Lee80
|
||||||
lda #$11
|
lda #$11
|
||||||
jmp Sd297
|
jmp Sd297
|
||||||
|
|
@ -7283,7 +7306,9 @@ Def63: fcb $00
|
||||||
Def64: fcb $00,$20,$03,$40,$06,$40,$06,$a0
|
Def64: fcb $00,$20,$03,$40,$06,$40,$06,$a0
|
||||||
fcb $05,$40,$0b,$40,$0b,$00,$00
|
fcb $05,$40,$0b,$40,$0b,$00,$00
|
||||||
|
|
||||||
Lef73: lda Z06
|
|
||||||
|
cmd_set_format_option:
|
||||||
|
lda Z06
|
||||||
beq Lef7a
|
beq Lef7a
|
||||||
Lef77: jmp Lebca
|
Lef77: jmp Lebca
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user