$JOB
$FET, MSOS, COSY*INP, 512,50,0000,0000
$OPEN, 07, I
$FET, MSOS, COSY1, 512,50,0000,0000
$OPEN, 01, I
$FET, MSOS, COSY2, 512,50,0000,0000
$OPEN, 02, I
$FET, MSOS, COSY3, 512, 50, 0000, 0000
$OPEN, 03, I
$FET, MSOS, COSY4, 512,50,0000,0000
$OPEN, 04, I
$FET, STAR, STAROUT, 512, 00,0000,0000
$RELEASE, ALL
$ALLOCATE, 100,000001
$OPEN,06
$FET, COMP, COMPOUT, 512,00,0000,0000
$RELEASE, ALL
$ALLOCATE,400,OOOOOl
$OPEN,05
$FET, BINARY, COMPSOUT, 960
$ALLOCATE,100
$OPEN,20
$FMT, MS2
$COSY,
':~,
S
INSERT*
DELETE!
NOCH
EQU
DELETE!
RATL
EQU
DELETE!
MST
MST
DELETE!
AUT
AUT
AUT
AUT
1
260
4
261
2
283,287
(01, DT854)
(06, DT854)
295,320
(U, DP, 0010, C2, MSI03234, DT854)
(A, TY, 0, 0, DRIVER05, DT. TYPE)
(A, CR, 0000, C1, DRIVER02, DT3248)
(A, PR, 1000, Cl, DRIVER03, DT501)
Part 1
AUT
AUT
(A, CP, 1000, CO, DRIVER04, DT3446", 1" CPBUFV50, UP)
(U, DP, 0011, C2, MSI03234, DT854)
CIa
AUT
AUT
AUT
AUT
DECK':~
END':'
$COSY, 1=06, S
(U, MT, 0, CO, DRIVER01, DT604, CB, PCL)
(U,MT, 0001, CO, DRIVER01, DT604, CB, PCL)
(U, MT, 0002, CO, DRIVER01, DT604, CB, PCL)
(U, MT, 0003, CO, DRIVER01, DT604, CB, PCL)
1=07, H=06
$COMPASS, 1=05, L, R, X=20
$CLOSE,Ol
$CLOSE,02
$CTO, LUN02 IS NEW PLIBEDIT (SOURCE) TAPE
$CTO,LUN01 IS BINARY RELEASE TAPE NO.1
$EQUIP, 01=MT, 02=MT
III-10-2
Part 2
60410800 D
Need help?
Do you have a question about the 3170 and is the answer not in the manual?
Questions and answers