Our SCSI-2 Audio Driver
What we wrote to make audio hearable on a SCSI-2 CD-ROM drive ;-)
This commit is contained in:
Antoine Vignau
parent
ff6645ec16
commit
d29484938c
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,191 @@
|
|||
*
|
||||
* Playing with BCD
|
||||
*
|
||||
* (c) 2018, Brutal Deluxe Software
|
||||
*
|
||||
|
||||
xc
|
||||
xc
|
||||
mx %00
|
||||
org $1000
|
||||
lst off
|
||||
|
||||
*---
|
||||
|
||||
clc
|
||||
xce
|
||||
rep #$30
|
||||
|
||||
lda #$1000
|
||||
jsr BCD2HEX
|
||||
|
||||
lda #$9999
|
||||
jsr BCD2HEX
|
||||
|
||||
lda #$270f
|
||||
jsr HEX2BCD
|
||||
|
||||
sec
|
||||
xce
|
||||
sep #$30
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
mx %00
|
||||
|
||||
BCD2HEX pha
|
||||
|
||||
* milliers
|
||||
|
||||
and #$f000
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
xba
|
||||
tax
|
||||
lda tblBM,x
|
||||
sta result
|
||||
|
||||
* centaines
|
||||
|
||||
lda 1,s
|
||||
and #$0f00
|
||||
asl
|
||||
xba
|
||||
tax
|
||||
lda tblBC,x
|
||||
clc
|
||||
adc result
|
||||
sta result
|
||||
|
||||
* dizaines
|
||||
|
||||
lda 1,s
|
||||
and #$00f0
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
tax
|
||||
lda tblBD,x
|
||||
clc
|
||||
adc result
|
||||
sta result
|
||||
|
||||
* unites
|
||||
|
||||
lda 1,s
|
||||
and #$000f
|
||||
asl
|
||||
tax
|
||||
lda tblBU,x
|
||||
clc
|
||||
adc result
|
||||
sta result
|
||||
|
||||
plx
|
||||
jmp printME
|
||||
|
||||
*--- BCD 2 HEX table
|
||||
|
||||
tblBM dw 0000,1000,2000,3000,4000,5000,6000,7000,8000,9000
|
||||
tblBC dw 0000,0100,0200,0300,0400,0500,0600,0700,0800,0900
|
||||
tblBD dw 0000,0010,0020,0030,0040,0050,0060,0070,0080,0090
|
||||
tblBU dw 0000,0001,0002,0003,0004,0005,0006,0007,0008,0009
|
||||
|
||||
*---
|
||||
|
||||
HEX2BCD pha
|
||||
|
||||
* Step 1
|
||||
|
||||
and #$f000
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
xba
|
||||
tax
|
||||
lda tblH1,x
|
||||
sta result
|
||||
|
||||
* Step 2
|
||||
|
||||
lda 1,s
|
||||
and #$0f00
|
||||
asl
|
||||
xba
|
||||
tax
|
||||
sed
|
||||
lda tblH2,x
|
||||
clc
|
||||
adc result
|
||||
sta result
|
||||
cld
|
||||
|
||||
* Step 3
|
||||
|
||||
lda 1,s
|
||||
and #$00f0
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
tax
|
||||
sed
|
||||
lda tblH3,x
|
||||
clc
|
||||
adc result
|
||||
sta result
|
||||
cld
|
||||
|
||||
* Step 4
|
||||
|
||||
lda 1,s
|
||||
and #$000f
|
||||
asl
|
||||
tax
|
||||
sed
|
||||
lda tblH4,x
|
||||
clc
|
||||
adc result
|
||||
sta result
|
||||
cld
|
||||
|
||||
exit plx
|
||||
jmp printME
|
||||
|
||||
*--- HEX 2 BCD table
|
||||
|
||||
tblH1 dw $0000,$4096,$8192
|
||||
tblH2 dw $0000,$0256,$0512,$0768,$1024,$1280,$1536,$1792
|
||||
dw $2048,$2304,$2560,$2816,$3072,$3328,$3584,$3840
|
||||
tblH3 dw $0000,$0016,$0032,$0048,$0064,$0080,$0096,$0112
|
||||
dw $0128,$0144,$0160,$0176,$0192,$0208,$0224,$0240
|
||||
tblH4 dw $0000,$0001,$0002,$0003,$0004,$0005,$0006,$0007
|
||||
dw $0008,$0009,$0010,$0011,$0012,$0013,$0014,$0015
|
||||
|
||||
|
||||
*---
|
||||
|
||||
printME sta result
|
||||
|
||||
sec
|
||||
xce
|
||||
sep #$30
|
||||
|
||||
lda result+1
|
||||
jsr $fdda
|
||||
lda result
|
||||
jsr $fdda
|
||||
|
||||
lda #$8d
|
||||
jsr $fded
|
||||
|
||||
clc
|
||||
xce
|
||||
rep #$30
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
result ds 2
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,636 @@
|
|||
*
|
||||
* GSCSI2
|
||||
* Test our new CD driver
|
||||
*
|
||||
* (c) 2018, Brutal Deluxe Software
|
||||
*
|
||||
|
||||
mx %00
|
||||
rel
|
||||
dsk GSCSI2.l
|
||||
lst off
|
||||
|
||||
*----------------------------
|
||||
|
||||
use 4/Locator.Macs
|
||||
use 4/Mem.Macs
|
||||
use 4/Misc.Macs
|
||||
use 4/Util.Macs
|
||||
|
||||
GSOS = $e100a8
|
||||
|
||||
dcREMOVE = $0004
|
||||
dcONLINE = $0010
|
||||
devCDROM = $0007
|
||||
|
||||
*----------------------------
|
||||
|
||||
*---------- Start up
|
||||
|
||||
phk
|
||||
plb
|
||||
|
||||
clc
|
||||
xce
|
||||
rep #$30
|
||||
|
||||
tdc
|
||||
sta myDP
|
||||
|
||||
_TLStartUp
|
||||
pha
|
||||
_MMStartUp
|
||||
pla
|
||||
sta appID
|
||||
ora #$0100
|
||||
sta myID
|
||||
|
||||
_MTStartUp
|
||||
|
||||
jsr playNOW
|
||||
jsr waitKEY
|
||||
|
||||
*---------- Shut down
|
||||
|
||||
_MTShutDown
|
||||
|
||||
PushWord myID
|
||||
_DisposeAll
|
||||
|
||||
PushWord appID
|
||||
_MMShutDown
|
||||
|
||||
_TLShutDown
|
||||
|
||||
jsl GSOS
|
||||
dw $2029
|
||||
adrl proQUIT
|
||||
|
||||
brk $bd ; because
|
||||
|
||||
*---
|
||||
|
||||
waitKEY ldal $e0bfff
|
||||
bpl waitKEY
|
||||
stal $e0c00f
|
||||
rts
|
||||
|
||||
|
||||
*----------------------------
|
||||
* 202c DInfo
|
||||
* 202d DStatus
|
||||
* 202e DControl
|
||||
* 202f DRead
|
||||
* 2030 DWrite
|
||||
* 2036 DRename
|
||||
|
||||
playNOW
|
||||
lda #proQUIT
|
||||
stal $300
|
||||
lda #^proQUIT
|
||||
stal $302
|
||||
|
||||
lda #1
|
||||
sta proDINFO+2
|
||||
|
||||
]lp jsl GSOS
|
||||
dw $202c
|
||||
adrl proDINFO
|
||||
bcc found
|
||||
|
||||
cmp #$0011 ; no more devices
|
||||
bne loop
|
||||
rts ; none, we exit
|
||||
|
||||
loop inc proDINFO+2
|
||||
bra ]lp
|
||||
|
||||
*----------
|
||||
|
||||
found lda proDINFO+8
|
||||
and #dcREMOVE
|
||||
beq loop
|
||||
|
||||
lda proDINFO+20
|
||||
cmp #devCDROM
|
||||
bne loop
|
||||
|
||||
*--- We have our CDROM
|
||||
|
||||
lda proDINFO+2
|
||||
sta proREADTOC+2
|
||||
sta proSUB+2
|
||||
sta proHEADER+2 ; for data cd only
|
||||
sta proPLAY10+2
|
||||
sta proPLAY12+2
|
||||
sta proPLAYMSF+2
|
||||
sta proPLAYTR10+2
|
||||
sta proPLAYTR12+2
|
||||
sta proCONTROL+2
|
||||
sta proPAUSE+2
|
||||
sta proRESUME+2
|
||||
|
||||
* READ TOC 43
|
||||
|
||||
jsl GSOS
|
||||
dw $202d
|
||||
adrl proREADTOC
|
||||
sta errCODE
|
||||
|
||||
* READ SUB CHANNEL 42
|
||||
|
||||
jsl GSOS
|
||||
dw $202d
|
||||
adrl proSUB
|
||||
sta errCODE1
|
||||
|
||||
* READ HEADER 44
|
||||
|
||||
* jsl GSOS
|
||||
* dw $202d
|
||||
* adrl proHEADER
|
||||
* sta errCODE2
|
||||
|
||||
* PLAY AUDIO(10) 45
|
||||
|
||||
* jsl GSOS
|
||||
* dw $202e
|
||||
* adrl proPLAY10
|
||||
* sta errCODE3
|
||||
* jsr waitKEY
|
||||
|
||||
* PLAY AUDIO(12) A5
|
||||
|
||||
* jsl GSOS
|
||||
* dw $202e
|
||||
* adrl proPLAY12
|
||||
* sta errCODE4
|
||||
* jsr waitKEY
|
||||
|
||||
* PLAY AUDIO MSF 47
|
||||
|
||||
* jsl GSOS
|
||||
* dw $202e
|
||||
* adrl proPLAYMSF
|
||||
* sta errCODE5
|
||||
* jsr waitKEY
|
||||
|
||||
* PLAY TRACK RELATIVE(10) 49
|
||||
|
||||
jsl GSOS
|
||||
dw $202e
|
||||
adrl proPLAYTR10
|
||||
sta errCODE6
|
||||
jsr waitKEY
|
||||
|
||||
* PLAY TRACK RELATIVE(12) A9
|
||||
|
||||
jsl GSOS
|
||||
dw $202e
|
||||
adrl proPLAYTR12
|
||||
sta errCODE7
|
||||
jsr waitKEY
|
||||
|
||||
* PLAY AUDIO TRACK INDEX 48
|
||||
|
||||
jsl GSOS
|
||||
dw $202e
|
||||
adrl proCONTROL
|
||||
sta errCODE9
|
||||
|
||||
* PAUSE RESUME 4B
|
||||
|
||||
* jsr waitKEY
|
||||
|
||||
* jsl GSOS
|
||||
* dw $202e
|
||||
* adrl proPAUSE
|
||||
* sta errCODE10
|
||||
|
||||
* jsr waitKEY
|
||||
|
||||
* jsl GSOS
|
||||
* dw $202e
|
||||
* adrl proRESUME
|
||||
* sta errCODE11
|
||||
|
||||
rts
|
||||
|
||||
*----------------------------
|
||||
|
||||
*---------- Program
|
||||
|
||||
myDP ds 2
|
||||
appID ds 2
|
||||
myID ds 2
|
||||
|
||||
*---------- GS/OS
|
||||
|
||||
asc "proQUIT"
|
||||
|
||||
proQUIT dw 2 ; pcount
|
||||
ds 4 ; pathname
|
||||
ds 2 ; flags
|
||||
|
||||
asc "errorCODE"
|
||||
|
||||
errCODE ds 2
|
||||
errCODE1 ds 2
|
||||
errCODE2 ds 2
|
||||
errCODE3 ds 2
|
||||
errCODE4 ds 2
|
||||
errCODE5 ds 2
|
||||
errCODE6 ds 2
|
||||
errCODE7 ds 2
|
||||
errCODE8 ds 2
|
||||
errCODE9 ds 2
|
||||
errCODE10 ds 2
|
||||
errCODE11 ds 2
|
||||
|
||||
asc "proDINFO"
|
||||
|
||||
proDINFO dw 8 ; Parms for DInfo
|
||||
ds 2 ; 02 device num
|
||||
adrl devINFO ; 04 device name
|
||||
ds 2 ; 08 characteristics
|
||||
ds 4 ; 0A total blocks
|
||||
ds 2 ; 0E slot number
|
||||
ds 2 ; 10 unit number
|
||||
ds 2 ; 12 version
|
||||
ds 2 ; 14 device id
|
||||
|
||||
asc "devINFO"
|
||||
|
||||
devINFO dw $0032 ; buffer size
|
||||
devNAMEopen db $00 ; length
|
||||
devNAMEopen1 db $00
|
||||
devNAMEopen2 ds $30 ; data
|
||||
|
||||
asc "proDSTATUS"
|
||||
|
||||
proDSTATUS dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
ds 2 ; 04 status code
|
||||
adrl devSTATUS ; 06 status list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "devSTATUS"
|
||||
|
||||
devSTATUS ds 8
|
||||
|
||||
*---
|
||||
|
||||
asc "proHEADER"
|
||||
|
||||
proHEADER dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $8044 ; 04 status code
|
||||
adrl headerLIST ; 06 status list
|
||||
adrl 1024 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "headerLIST"
|
||||
|
||||
headerLIST ds 2 ; 00
|
||||
hex 44 ; 0
|
||||
hex 00 ; 1
|
||||
hex 00 ; 2
|
||||
hex 00 ; 3
|
||||
hex 00 ; 4
|
||||
hex 00 ; 5
|
||||
hex 00 ; 6
|
||||
hex 04 ; 7
|
||||
hex 00 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl headerBUFF ; 04
|
||||
headerBUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*---
|
||||
|
||||
asc "proSUB"
|
||||
|
||||
proSUB dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $8042 ; 04 status code
|
||||
adrl subLIST ; 06 status list
|
||||
adrl 1024 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "subLIST"
|
||||
|
||||
subLIST ds 2 ; 00
|
||||
hex 42 ; 0
|
||||
hex 00 ; 1
|
||||
hex 40 ; 2
|
||||
hex 01 ; 3
|
||||
hex 00 ; 4
|
||||
hex 00 ; 5
|
||||
hex 00 ; 6
|
||||
hex 04 ; 7
|
||||
hex 00 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl subBUFF ; 04
|
||||
subBUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*--- PAUSE
|
||||
|
||||
asc "proPAUSE"
|
||||
|
||||
proPAUSE dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $804b ; 04 status code
|
||||
adrl pauseLIST ; 06 status list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "pauseLIST"
|
||||
|
||||
pauseLIST ds 2 ; 00
|
||||
hex 4b ; 0
|
||||
hex 00 ; 1
|
||||
hex 00 ; 2
|
||||
hex 00 ; 3
|
||||
hex 00 ; 4
|
||||
hex 00 ; 5
|
||||
hex 00 ; 6
|
||||
hex 00 ; 7
|
||||
hex 00 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl pauseBUFF ; 04
|
||||
pauseBUFF ds 1024
|
||||
ds 8
|
||||
*---
|
||||
|
||||
asc "proRESUME"
|
||||
|
||||
proRESUME dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $804b ; 04 status code
|
||||
adrl resumeLIST ; 06 status list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "resumeLIST"
|
||||
|
||||
resumeLIST ds 2 ; 00
|
||||
hex 4b ; 0
|
||||
hex 00 ; 1
|
||||
hex 00 ; 2
|
||||
hex 00 ; 3
|
||||
hex 00 ; 4
|
||||
hex 00 ; 5
|
||||
hex 00 ; 6
|
||||
hex 00 ; 7
|
||||
hex 01 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl resumeBUFF ; 04
|
||||
resumeBUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*--- READ TOC
|
||||
|
||||
proREADTOC dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $8043 ; 04 status code
|
||||
adrl readtocLIST ; 06 status list
|
||||
adrl 1024 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "readtocLIST"
|
||||
|
||||
readtocLIST ds 2 ; 00
|
||||
hex 43 ; 0
|
||||
hex 02 ; 1
|
||||
hex 00 ; 2
|
||||
hex 00 ; 3
|
||||
hex 00 ; 4
|
||||
hex 00 ; 5
|
||||
hex 00 ; 6
|
||||
hex 04 ; 7
|
||||
hex 00 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl readtocBUFF ; 04
|
||||
readtocBUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*--- PLAY AUDIO TRACK INDEX
|
||||
|
||||
asc "proCONTROL"
|
||||
|
||||
proCONTROL dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $8048 ; 04 status code
|
||||
adrl controlLIST ; 06 status list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "controlLIST"
|
||||
|
||||
controlLIST ds 2 ; 00
|
||||
commandDATA hex 48 ; 0
|
||||
hex 00 ; 1
|
||||
hex 00 ; 2
|
||||
hex 00 ; 3
|
||||
hex 01 ; 4
|
||||
hex 00 ; 5
|
||||
hex 00 ; 6
|
||||
hex 01 ; 7
|
||||
hex 00 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl commandBUFF
|
||||
commandBUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*--- PLAY AUDIO(10)
|
||||
|
||||
asc "proPLAY10"
|
||||
|
||||
proPLAY10 dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $8045 ; 04 status code
|
||||
adrl play10LIST ; 06 status list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "play10LIST"
|
||||
|
||||
play10LIST ds 2 ; 00
|
||||
hex 45 ; 0
|
||||
hex 00 ; 1
|
||||
hex 00 ; 2
|
||||
hex 00 ; 3
|
||||
hex 30 ; 4
|
||||
hex 00 ; 5
|
||||
hex 00 ; 6
|
||||
hex 20 ; 7
|
||||
hex 00 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl play10BUFF
|
||||
play10BUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*--- PLAY AUDIO(12)
|
||||
|
||||
asc "proPLAY12"
|
||||
|
||||
proPLAY12 dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $80a5 ; 04 status code
|
||||
adrl play12LIST ; 06 status list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "play12LIST"
|
||||
|
||||
play12LIST ds 2 ; 00
|
||||
hex a5 ; 0
|
||||
hex 00 ; 1
|
||||
hex 00 ; 2
|
||||
hex 00 ; 3
|
||||
hex 20 ; 4
|
||||
hex 00 ; 5
|
||||
hex 00 ; 6
|
||||
hex 10 ; 7
|
||||
hex 08 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl play12BUFF
|
||||
play12BUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*--- PLAY AUDIO MSF
|
||||
|
||||
asc "proPLAYMSF"
|
||||
|
||||
proPLAYMSF dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $8047 ; 04 status code
|
||||
adrl playmsfLIST ; 06 status list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "playmsfLIST"
|
||||
|
||||
playmsfLIST ds 2 ; 00
|
||||
hex 47 ; 0
|
||||
hex 00 ; 1
|
||||
hex 00 ; 2
|
||||
hex 14 ; 3
|
||||
hex 15 ; 4
|
||||
hex 00 ; 5
|
||||
hex 17 ; 6
|
||||
hex 16 ; 7
|
||||
hex 00 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl playmsfBUFF
|
||||
playmsfBUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*--- PLAY AUDIO TRACK RELATIVE(10)
|
||||
|
||||
asc "proPLAYTR10"
|
||||
|
||||
proPLAYTR10 dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $8049 ; 04 status code
|
||||
adrl playtr10LIST ; 06 status list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "playtr10LIST"
|
||||
|
||||
playtr10LIST ds 2 ; 00
|
||||
hex 49 ; 0
|
||||
hex 00 ; 1
|
||||
hex 00 ; 2
|
||||
hex 00 ; 3
|
||||
hex 00 ; 4
|
||||
hex 08 ; 5
|
||||
hex 01 ; 6
|
||||
hex 00 ; 7
|
||||
hex 10 ; 8
|
||||
hex 00 ; 9
|
||||
hex 00 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl playtr10BUFF
|
||||
playtr10BUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*--- PLAY AUDIO TRACK RELATIVE(12)
|
||||
|
||||
asc "proPLAYTR12"
|
||||
|
||||
proPLAYTR12 dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
dw $80a9 ; 04 status code
|
||||
adrl playtr12LIST ; 06 status list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "playtr12LIST"
|
||||
|
||||
playtr12LIST ds 2 ; 00
|
||||
hex a9 ; 0
|
||||
hex 00 ; 1
|
||||
hex 00 ; 2
|
||||
hex 00 ; 3
|
||||
hex 06 ; 4
|
||||
hex 00 ; 5
|
||||
hex 00 ; 6
|
||||
hex 00 ; 7
|
||||
hex 80 ; 8
|
||||
hex 00 ; 9
|
||||
hex 01 ; A
|
||||
hex 00 ; B
|
||||
|
||||
adrl playtr12BUFF
|
||||
playtr12BUFF ds 1024
|
||||
ds 8
|
||||
|
||||
*---
|
||||
|
||||
asc "proDCONTROL"
|
||||
|
||||
proDCONTROL dw 5 ; 00 pcount
|
||||
ds 2 ; 02 device num
|
||||
ds 2 ; 04 control code
|
||||
adrl devCONTROL ; 06 control list
|
||||
ds 4 ; 0A request count
|
||||
ds 4 ; 0E transfer count
|
||||
|
||||
asc "devCONTROL"
|
||||
|
||||
devCONTROL ds 512
|
||||
|
||||
*----------
|
||||
|
||||
Binary file not shown.
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
;*******************************************************
;
; SCSI Driver 'Flush' Filter
;
; Written by Matt Gulick. Started June 13,1988
;
; Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************
;*******************************************************
;
; This file contains the subroutines needed by the
; SCSI Driver to respond to the Flush call number
; $0007. In a Block Device Driver this will return a
; Driver Bad Request error and perform no function.
; In the case of a Character device however, this will
; need to request that the target device finalize what
; it was doing and flush it's buffers.
;
;*******************************************************
;*******************************************************
;
; Revision History:
;
;*******************************************************
; June 13, 1988 File started.
; June 20, 1988 Added Register Status in comments
STRING PASCAL
BLANKS OFF
PAGESIZE 70
PRINT NOGEN
PRINT NOMDIR
MACHINE M65816
PRINT OFF
INCLUDE 'scsihd.equates'
INCLUDE 'M16.MEMORY'
INCLUDE 'M16.UTIL'
PRINT ON
;*******************************************************
;
; This routine is used as the Flush code for a Block
; Device Driver.
;
; Inputs: None.
;
; Outputs: Acc = 0
; Carry = 0
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = GS/OS Direct Page
; Data Bank = Ours
;
; Errors: DRVR_BAD_REQ.
;
;*******************************************************
EXPORT Flush
Flush PROC
lda #drvr_bad_req
sec
rts
ENDP
END
;*******************************************************
;
; This routine is used as the Flush code for a
; Character Device Driver. This code is commented out
; so that is available to any one who uses this SCSI
; Driver Skeleton.
;
; Inputs: None.
;
; Outputs: Acc = Error
; Carry = Set or Clear
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = GS/OS Direct Page
; Data Bank = Ours
;
; Errors: Device not open Error $0023
; For other errors see Spec.
;
;*******************************************************
;
; EXPORT flush
;flush PROC
; ;
; ; Is the device online?
; ;
; ldy #dib.dvcflag
;
; lda [dib_ptr],y
; and #dvc_online
; bne @flush ;Yes.
; ;
; ; Device is currently offline.
; ;
; lda #drvr_off_line
; sec
; rts
; ;
; ; Check Open Flag
; ;
;@flush lda |open_flag
; beq @dvc_closed
;
; Insert Your Code Here.
;
; lda #$0000
; clc
; rts
;
;@dvc_closed lda #$drvr_not_open
; sec
; rts
;
; ENDP
;
END
EJECT
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
# File: SCSI.Driver.make
# Target: SCSICD.Driver
# Sources: 'SCSI Driver main'
# 'SCSI Command Table'
# 'SCSI Filter startup'
# 'SCSI Filter open'
# 'SCSI Filter read'
# 'SCSI Filter write'
# 'SCSI Filter close'
# 'SCSI Filter status'
# 'SCSI Filter control'
# 'SCSI Filter flush'
# 'SCSI Filter shutdown'
# 'SCSI Main Driver'
# 'SCSI Driver Mgmt'
# Created: Thursday, June 9, 1988 9:30:49 AM
# Modified: Monday, November 21, 1988 7:05:00 AM
SCSICD.Driver ÄÄ SCSICD.Driver.make ¶
:CD.Obj:'SCSICD Driver main.obj' ¶
:CD.Obj:'SCSICD Command Table.obj' ¶
:CD.Obj:'SCSICD Filter startup.obj' ¶
:CD.Obj:'SCSICD Filter open.obj' ¶
:CD.Obj:'SCSICD Filter read.obj' ¶
:CD.Obj:'SCSICD Filter write.obj' ¶
:CD.Obj:'SCSICD Filter close.obj' ¶
:CD.Obj:'SCSICD Filter status.obj' ¶
:CD.Obj:'SCSICD Filter control.obj' ¶
:CD.Obj:'SCSICD Filter flush.obj' ¶
:CD.Obj:'SCSICD Filter shutdown.obj' ¶
:CD.Obj:'SCSICD Main Driver.obj' ¶
:CD.Obj:'SCSICD Driver Mgmt.obj'
LinkIIGS -t $bb -at $013f ¶
# LinkIIGS -t $bb -at $0105 ¶
:CD.Obj:'SCSICD Driver main.obj' ¶
:CD.Obj:'SCSICD Command Table.obj' ¶
:CD.Obj:'SCSICD Filter startup.obj' ¶
:CD.Obj:'SCSICD Filter open.obj' ¶
:CD.Obj:'SCSICD Filter read.obj' ¶
:CD.Obj:'SCSICD Filter write.obj' ¶
:CD.Obj:'SCSICD Filter close.obj' ¶
:CD.Obj:'SCSICD Filter status.obj' ¶
:CD.Obj:'SCSICD Filter control.obj' ¶
:CD.Obj:'SCSICD Filter flush.obj' ¶
:CD.Obj:'SCSICD Filter shutdown.obj' ¶
:CD.Obj:'SCSICD Main Driver.obj' ¶
:CD.Obj:'SCSICD Driver Mgmt.obj' ¶
-o 'SCSICD.Driver'
# -o :CD.Obj:'SCSICD.Driver.lnk'
# ExpressIIGS ¶
# ':CD.Obj:SCSICD.Driver.lnk' ¶
# -o 'SCSICD.Driver'
duplicateiigs -y -m SCSICD.Driver SCSICD.Driver
:CD.Obj:'SCSICD Driver main.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Driver main' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Driver main' ¶
-o :CD.Obj:'SCSICD Driver main.obj'
:CD.Obj:'SCSICD Command Table.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Command Table' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Command Table' ¶
-o :CD.Obj:'SCSICD Command Table.obj'
:CD.Obj:'SCSICD Filter startup.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Filter startup' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Filter startup' ¶
-o :CD.Obj:'SCSICD Filter startup.obj'
:CD.Obj:'SCSICD Filter open.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Filter open' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Filter open' ¶
-o :CD.Obj:'SCSICD Filter open.obj'
:CD.Obj:'SCSICD Filter read.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Filter read' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Filter read' ¶
-o :CD.Obj:'SCSICD Filter read.obj'
:CD.Obj:'SCSICD Filter write.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Filter write' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Filter write' ¶
-o :CD.Obj:'SCSICD Filter write.obj'
:CD.Obj:'SCSICD Filter close.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Filter close' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Filter close' ¶
-o :CD.Obj:'SCSICD Filter close.obj'
:CD.Obj:'SCSICD Filter status.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Filter status' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Filter status' ¶
-o :CD.Obj:'SCSICD Filter status.obj'
:CD.Obj:'SCSICD Filter control.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Filter control' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Filter control' ¶
-o :CD.Obj:'SCSICD Filter control.obj'
:CD.Obj:'SCSICD Filter flush.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Filter flush' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Filter flush' ¶
-o :CD.Obj:'SCSICD Filter flush.obj'
:CD.Obj:'SCSICD Filter shutdown.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Filter shutdown' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Filter shutdown' ¶
-o :CD.Obj:'SCSICD Filter shutdown.obj'
:CD.Obj:'SCSICD Main Driver.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Main Driver' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Main Driver' ¶
-o :CD.Obj:'SCSICD Main Driver.obj'
:CD.Obj:'SCSICD Driver Mgmt.obj' Ä ¶
'SCSICD.Driver.make' ¶
'SCSI Driver Mgmt' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=1 'SCSI Driver Mgmt' ¶
-o :CD.Obj:'SCSICD Driver Mgmt.obj'
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
# File: SCSIChanger.Driver.make
# Target: SCSIChgr.Driver
# Sources: 'SCSI Driver main'
# 'SCSI Command Table'
# 'SCSI Filter startup'
# 'SCSI Filter open'
# 'SCSI Filter read'
# 'SCSI Filter write'
# 'SCSI Filter close'
# 'SCSI Filter status'
# 'SCSI Filter control'
# 'SCSI Filter flush'
# 'SCSI Filter shutdown'
# 'SCSI Main Driver'
# 'SCSI Driver Mgmt'
# Created: Thursday, June 9, 1988 9:30:49 AM
# Modified: Monday, November 21, 1988 7:05:00 AM
SCSIChanger.Driver ÄÄ SCSIChanger.Driver.make ¶
:Chgr.Obj:'SCSIChgr Driver main.obj' ¶
:Chgr.Obj:'SCSIChgr Command Table.obj' ¶
:Chgr.Obj:'SCSIChgr Filter startup.obj' ¶
:Chgr.Obj:'SCSIChgr Filter open.obj' ¶
:Chgr.Obj:'SCSIChgr Filter read.obj' ¶
:Chgr.Obj:'SCSIChgr Filter write.obj' ¶
:Chgr.Obj:'SCSIChgr Filter close.obj' ¶
:Chgr.Obj:'SCSIChgr Filter status.obj' ¶
:Chgr.Obj:'SCSIChgr Filter control.obj' ¶
:Chgr.Obj:'SCSIChgr Filter flush.obj' ¶
:Chgr.Obj:'SCSIChgr Filter shutdown.obj' ¶
:Chgr.Obj:'SCSIChgr Main Driver.obj' ¶
:Chgr.Obj:'SCSIChgr Driver Mgmt.obj'
LinkIIGS -t $bb -at $013f ¶
# LinkIIGS -t $bb -at $0105 ¶
:Chgr.Obj:'SCSIChgr Driver main.obj' ¶
:Chgr.Obj:'SCSIChgr Command Table.obj' ¶
:Chgr.Obj:'SCSIChgr Filter startup.obj' ¶
:Chgr.Obj:'SCSIChgr Filter open.obj' ¶
:Chgr.Obj:'SCSIChgr Filter read.obj' ¶
:Chgr.Obj:'SCSIChgr Filter write.obj' ¶
:Chgr.Obj:'SCSIChgr Filter close.obj' ¶
:Chgr.Obj:'SCSIChgr Filter status.obj' ¶
:Chgr.Obj:'SCSIChgr Filter control.obj' ¶
:Chgr.Obj:'SCSIChgr Filter flush.obj' ¶
:Chgr.Obj:'SCSIChgr Filter shutdown.obj' ¶
:Chgr.Obj:'SCSIChgr Main Driver.obj' ¶
:Chgr.Obj:'SCSIChgr Driver Mgmt.obj' ¶
-o 'SCSIChgr.Driver'
# -o :Chgr.Obj:'SCSIChgr.Driver.lnk'
# ExpressIIGS ¶
# ':Chgr.Obj:SCSIChgr.Driver.lnk' ¶
# -o 'SCSIChgr.Driver'
duplicateiigs -y -m SCSIChgr.Driver SCSIChgr.Driver
:Chgr.Obj:'SCSIChgr Driver main.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Driver main' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Driver main' ¶
-o :Chgr.Obj:'SCSIChgr Driver main.obj'
:Chgr.Obj:'SCSIChgr Command Table.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Command Table' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Command Table' ¶
-o :Chgr.Obj:'SCSIChgr Command Table.obj'
:Chgr.Obj:'SCSIChgr Filter startup.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Filter startup' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Filter startup' ¶
-o :Chgr.Obj:'SCSIChgr Filter startup.obj'
:Chgr.Obj:'SCSIChgr Filter open.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Filter open' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Filter open' ¶
-o :Chgr.Obj:'SCSIChgr Filter open.obj'
:Chgr.Obj:'SCSIChgr Filter read.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Filter read' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Filter read' ¶
-o :Chgr.Obj:'SCSIChgr Filter read.obj'
:Chgr.Obj:'SCSIChgr Filter write.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Filter write' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Filter write' ¶
-o :Chgr.Obj:'SCSIChgr Filter write.obj'
:Chgr.Obj:'SCSIChgr Filter close.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Filter close' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Filter close' ¶
-o :Chgr.Obj:'SCSIChgr Filter close.obj'
:Chgr.Obj:'SCSIChgr Filter status.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Filter status' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Filter status' ¶
-o :Chgr.Obj:'SCSIChgr Filter status.obj'
:Chgr.Obj:'SCSIChgr Filter control.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Filter control' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Filter control' ¶
-o :Chgr.Obj:'SCSIChgr Filter control.obj'
:Chgr.Obj:'SCSIChgr Filter flush.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Filter flush' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Filter flush' ¶
-o :Chgr.Obj:'SCSIChgr Filter flush.obj'
:Chgr.Obj:'SCSIChgr Filter shutdown.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Filter shutdown' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Filter shutdown' ¶
-o :Chgr.Obj:'SCSIChgr Filter shutdown.obj'
:Chgr.Obj:'SCSIChgr Main Driver.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Main Driver' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Main Driver' ¶
-o :Chgr.Obj:'SCSIChgr Main Driver.obj'
:Chgr.Obj:'SCSIChgr Driver Mgmt.obj' Ä ¶
'SCSIChgr.Driver.make' ¶
'SCSI Driver Mgmt' ¶
'SCSIHD.Equates'
AsmIIGS -d &type,type=5 'SCSI Driver Mgmt' ¶
-o :Chgr.Obj:'SCSIChgr Driver Mgmt.obj'
|
||||
|
|
@ -0,0 +1 @@
|
|||
# File: SCSI.Driver.make
# Target: SCSIHD.Driver
# Sources: 'SCSI Driver main'
# 'SCSI Command Table'
# 'SCSI Filter startup'
# 'SCSI Filter open'
# 'SCSI Filter read'
# 'SCSI Filter write'
# 'SCSI Filter close'
# 'SCSI Filter status'
# 'SCSI Filter control'
# 'SCSI Filter flush'
# 'SCSI Filter shutdown'
# 'SCSI Main Driver'
# 'SCSI Driver Mgmt'
# Created: Thursday, June 9, 1988 9:30:49 AM
# Modified: Monday, November 21, 1988 7:05:00 AM
SCSIHD.Driver ÄÄ SCSIHD.Driver.make ¶
:HD.Obj:'SCSIHD Driver main.obj' ¶
:HD.Obj:'SCSIHD Command Table.obj' ¶
:HD.Obj:'SCSIHD Filter startup.obj' ¶
:HD.Obj:'SCSIHD Filter open.obj' ¶
:HD.Obj:'SCSIHD Filter read.obj' ¶
:HD.Obj:'SCSIHD Filter write.obj' ¶
:HD.Obj:'SCSIHD Filter close.obj' ¶
:HD.Obj:'SCSIHD Filter status.obj' ¶
:HD.Obj:'SCSIHD Filter control.obj' ¶
:HD.Obj:'SCSIHD Filter flush.obj' ¶
:HD.Obj:'SCSIHD Filter shutdown.obj' ¶
:HD.Obj:'SCSIHD Main Driver.obj' ¶
:HD.Obj:'SCSIHD Driver Mgmt.obj'
LinkIIGS -t $bb -at $013f ¶
:HD.Obj:'SCSIHD Driver main.obj' ¶
:HD.Obj:'SCSIHD Command Table.obj' ¶
:HD.Obj:'SCSIHD Filter startup.obj' ¶
:HD.Obj:'SCSIHD Filter open.obj' ¶
:HD.Obj:'SCSIHD Filter read.obj' ¶
:HD.Obj:'SCSIHD Filter write.obj' ¶
:HD.Obj:'SCSIHD Filter close.obj' ¶
:HD.Obj:'SCSIHD Filter status.obj' ¶
:HD.Obj:'SCSIHD Filter control.obj' ¶
:HD.Obj:'SCSIHD Filter flush.obj' ¶
:HD.Obj:'SCSIHD Filter shutdown.obj' ¶
:HD.Obj:'SCSIHD Main Driver.obj' ¶
:HD.Obj:'SCSIHD Driver Mgmt.obj' ¶
-o 'SCSIHD.Driver'
duplicateiigs -y -m SCSIHD.Driver SCSIHD.Driver
:HD.Obj:'SCSIHD Driver main.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Driver main' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Driver main' ¶
-o :HD.Obj:'SCSIHD Driver main.obj'
:HD.Obj:'SCSIHD Command Table.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Command Table' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Command Table' ¶
-o :HD.Obj:'SCSIHD Command Table.obj'
:HD.Obj:'SCSIHD Filter startup.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Filter startup' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Filter startup' ¶
-o :HD.Obj:'SCSIHD Filter startup.obj'
:HD.Obj:'SCSIHD Filter open.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Filter open' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Filter open' ¶
-o :HD.Obj:'SCSIHD Filter open.obj'
:HD.Obj:'SCSIHD Filter read.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Filter read' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Filter read' ¶
-o :HD.Obj:'SCSIHD Filter read.obj'
:HD.Obj:'SCSIHD Filter write.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Filter write' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Filter write' ¶
-o :HD.Obj:'SCSIHD Filter write.obj'
:HD.Obj:'SCSIHD Filter close.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Filter close' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Filter close' ¶
-o :HD.Obj:'SCSIHD Filter close.obj'
:HD.Obj:'SCSIHD Filter status.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Filter status' ¶
'SCSI Get Vol/Disk' ¶
# 'SCSI Get Config' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Filter status' ¶
-o :HD.Obj:'SCSIHD Filter status.obj'
:HD.Obj:'SCSIHD Filter control.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Filter control' ¶
'SCSI Set Vol/Disk' ¶
# 'SCSI Set Config' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Filter control' ¶
-o :HD.Obj:'SCSIHD Filter control.obj'
:HD.Obj:'SCSIHD Filter flush.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Filter flush' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Filter flush' ¶
-o :HD.Obj:'SCSIHD Filter flush.obj'
:HD.Obj:'SCSIHD Filter shutdown.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Filter shutdown' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Filter shutdown' ¶
-o :HD.Obj:'SCSIHD Filter shutdown.obj'
:HD.Obj:'SCSIHD Main Driver.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Main Driver' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Main Driver' ¶
-o :HD.Obj:'SCSIHD Main Driver.obj'
:HD.Obj:'SCSIHD Driver Mgmt.obj' Ä ¶
'SCSIHD.Driver.make' ¶
'SCSI Driver Mgmt' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=0 'SCSI Driver Mgmt' ¶
-o :HD.Obj:'SCSIHD Driver Mgmt.obj'
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
# File: SCSITape.Driver.make
# Target: SCSITape.Driver
# Sources: 'SCSI Driver main'
# 'SCSI Command Table'
# 'SCSI Filter startup'
# 'SCSI Filter open'
# 'SCSI Filter read'
# 'SCSI Filter write'
# 'SCSI Filter close'
# 'SCSI Filter status'
# 'SCSI Filter control'
# 'SCSI Filter flush'
# 'SCSI Filter shutdown'
# 'SCSI Main Driver'
# 'SCSI Driver Mgmt'
# Created: Friday, February 17, 1989 8:30:49 AM
# Modified: Tuesday, May 2, 1989 8:090:49 AM
SCSITape.Driver ÄÄ SCSITape.Driver.make ¶
:Tape.Obj:'SCSITape Driver main.obj' ¶
:Tape.Obj:'SCSITape Command Table.obj' ¶
:Tape.Obj:'SCSITape Filter startup.obj' ¶
:Tape.Obj:'SCSITape Filter open.obj' ¶
:Tape.Obj:'SCSITape Filter read.obj' ¶
:Tape.Obj:'SCSITape Filter write.obj' ¶
:Tape.Obj:'SCSITape Filter close.obj' ¶
:Tape.Obj:'SCSITape Filter status.obj' ¶
:Tape.Obj:'SCSITape Filter control.obj' ¶
:Tape.Obj:'SCSITape Filter flush.obj' ¶
:Tape.Obj:'SCSITape Filter shutdown.obj' ¶
:Tape.Obj:'SCSITape Main Driver.obj' ¶
:Tape.Obj:'SCSITape Driver Mgmt.obj'
LinkIIGS -t $bb -at $0103 ¶
# LinkIIGS -t $bb -at $0105 ¶
:Tape.Obj:'SCSITape Driver main.obj' ¶
:Tape.Obj:'SCSITape Command Table.obj' ¶
:Tape.Obj:'SCSITape Filter startup.obj' ¶
:Tape.Obj:'SCSITape Filter open.obj' ¶
:Tape.Obj:'SCSITape Filter read.obj' ¶
:Tape.Obj:'SCSITape Filter write.obj' ¶
:Tape.Obj:'SCSITape Filter close.obj' ¶
:Tape.Obj:'SCSITape Filter status.obj' ¶
:Tape.Obj:'SCSITape Filter control.obj' ¶
:Tape.Obj:'SCSITape Filter flush.obj' ¶
:Tape.Obj:'SCSITape Filter shutdown.obj' ¶
:Tape.Obj:'SCSITape Main Driver.obj' ¶
:Tape.Obj:'SCSITape Driver Mgmt.obj' ¶
-o 'SCSITape.Driver'
# -o ':Tape.Obj:SCSITape.Driver.lnk'
# ExpressIIGS ¶
# ':Tape.Obj:SCSITape.Driver.lnk' ¶
# -o 'SCSITape.Driver'
duplicateiigs -y -m SCSITape.Driver SCSITape.Driver
:Tape.Obj:'SCSITape Driver main.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Driver main' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Driver main' ¶
-o :Tape.Obj:'SCSITape Driver main.obj'
:Tape.Obj:'SCSITape Command Table.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Command Table' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Command Table' ¶
-o :Tape.Obj:'SCSITape Command Table.obj'
:Tape.Obj:'SCSITape Filter startup.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Filter startup' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Filter startup' ¶
-o :Tape.Obj:'SCSITape Filter startup.obj'
:Tape.Obj:'SCSITape Filter open.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Filter open' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Filter open' ¶
-o :Tape.Obj:'SCSITape Filter open.obj'
:Tape.Obj:'SCSITape Filter read.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Filter read' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Filter read' ¶
-o :Tape.Obj:'SCSITape Filter read.obj'
:Tape.Obj:'SCSITape Filter write.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Filter write' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Filter write' ¶
-o :Tape.Obj:'SCSITape Filter write.obj'
:Tape.Obj:'SCSITape Filter close.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Filter close' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Filter close' ¶
-o :Tape.Obj:'SCSITape Filter close.obj'
:Tape.Obj:'SCSITape Filter status.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Filter status' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Filter status' ¶
-o :Tape.Obj:'SCSITape Filter status.obj'
:Tape.Obj:'SCSITape Filter control.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Filter control' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Filter control' ¶
-o :Tape.Obj:'SCSITape Filter control.obj'
:Tape.Obj:'SCSITape Filter flush.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Filter flush' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Filter flush' ¶
-o :Tape.Obj:'SCSITape Filter flush.obj'
:Tape.Obj:'SCSITape Filter shutdown.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Filter shutdown' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Filter shutdown' ¶
-o :Tape.Obj:'SCSITape Filter shutdown.obj'
:Tape.Obj:'SCSITape Main Driver.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Main Driver' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Main Driver' ¶
-o :Tape.Obj:'SCSITape Main Driver.obj'
:Tape.Obj:'SCSITape Driver Mgmt.obj' Ä ¶
'SCSITape.Driver.make' ¶
'SCSI Driver Mgmt' ¶
'SCSIHD.equates'
AsmIIGS -d &type,type=2 'SCSI Driver Mgmt' ¶
-o :Tape.Obj:'SCSITape Driver Mgmt.obj'
|
||||
Loading…
Reference in New Issue