mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-28 19:32:40 +00:00
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
1951
scsi2/AppleSCSI2.s
Normal file
1951
scsi2/AppleSCSI2.s
Normal file
File diff suppressed because it is too large
Load Diff
191
scsi2/BCD.S
Normal file
191
scsi2/BCD.S
Normal file
@ -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
|
||||
|
||||
2184
scsi2/CDSCSI2.S
Normal file
2184
scsi2/CDSCSI2.S
Normal file
File diff suppressed because it is too large
Load Diff
636
scsi2/GSCSI2.S
Normal file
636
scsi2/GSCSI2.S
Normal file
@ -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
|
||||
|
||||
*----------
|
||||
|
||||
BIN
scsi2/SCSI Driver ERS 6.1 SCSI-2.pdf
Normal file
BIN
scsi2/SCSI Driver ERS 6.1 SCSI-2.pdf
Normal file
Binary file not shown.
1
scsi2/SCSI.Drivers/SCSI Command Table
Normal file
1
scsi2/SCSI.Drivers/SCSI Command Table
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Command Table copy
Normal file
1
scsi2/SCSI.Drivers/SCSI Command Table copy
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Driver Mgmt
Normal file
1
scsi2/SCSI.Drivers/SCSI Driver Mgmt
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Driver main
Normal file
1
scsi2/SCSI.Drivers/SCSI Driver main
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Filter close
Normal file
1
scsi2/SCSI.Drivers/SCSI Filter close
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Filter control
Normal file
1
scsi2/SCSI.Drivers/SCSI Filter control
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Filter flush
Normal file
1
scsi2/SCSI.Drivers/SCSI Filter flush
Normal file
@ -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
|
||||
1
scsi2/SCSI.Drivers/SCSI Filter open
Normal file
1
scsi2/SCSI.Drivers/SCSI Filter open
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Filter read
Normal file
1
scsi2/SCSI.Drivers/SCSI Filter read
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Filter shutdown
Normal file
1
scsi2/SCSI.Drivers/SCSI Filter shutdown
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Filter startup
Normal file
1
scsi2/SCSI.Drivers/SCSI Filter startup
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Filter status
Normal file
1
scsi2/SCSI.Drivers/SCSI Filter status
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Filter write
Normal file
1
scsi2/SCSI.Drivers/SCSI Filter write
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Get Config
Normal file
1
scsi2/SCSI.Drivers/SCSI Get Config
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Get Vol:Disk
Normal file
1
scsi2/SCSI.Drivers/SCSI Get Vol:Disk
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Main Driver
Normal file
1
scsi2/SCSI.Drivers/SCSI Main Driver
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Set Config
Normal file
1
scsi2/SCSI.Drivers/SCSI Set Config
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSI Set Vol:Disk
Normal file
1
scsi2/SCSI.Drivers/SCSI Set Vol:Disk
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSICD.Driver.make
Normal file
1
scsi2/SCSI.Drivers/SCSICD.Driver.make
Normal file
@ -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'
|
||||
1
scsi2/SCSI.Drivers/SCSICD.Equates
Normal file
1
scsi2/SCSI.Drivers/SCSICD.Equates
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSIChanger.Driver.make
Normal file
1
scsi2/SCSI.Drivers/SCSIChanger.Driver.make
Normal file
@ -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'
|
||||
1
scsi2/SCSI.Drivers/SCSIHD.Driver.make
Normal file
1
scsi2/SCSI.Drivers/SCSIHD.Driver.make
Normal file
@ -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'
|
||||
1
scsi2/SCSI.Drivers/SCSIHD.Equates
Normal file
1
scsi2/SCSI.Drivers/SCSIHD.Equates
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSIScanner.Driver.make
Normal file
1
scsi2/SCSI.Drivers/SCSIScanner.Driver.make
Normal file
File diff suppressed because one or more lines are too long
1
scsi2/SCSI.Drivers/SCSITape.Driver.make
Normal file
1
scsi2/SCSI.Drivers/SCSITape.Driver.make
Normal file
@ -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
Block a user