$JOB CSMP: 16 SEP 75
A PR 4
PIP
N DK4 (S)
T DK4 _ PR APDE8 SRC
$DATA
	.TITLE	APDE8
/
/   8 JUL 75 - PAUL HENDERSON
/
/  SUBROUTINE TO ASSIGN PDE TO 10 AT EXECUTION TIME
/
.DAT=141
/
	.GLOBL	APDE8,PDE.,PDINIT
/
APDE8	XX
	LAC	PDE.
	DAC*	(.DAT+10	/ MAKE THE ASSIGNMENT
	JMS*	PDINIT		/ INITIALIZE THE DEVICE
	JMP*	APDE8
	.END
$END
$JOB
A DK4 -11,-13
MACRO
B_APDE8}
 
$JOB
A DK1 -14/DK4 -10,-15/PDD -12
UPDATE
ULS_CSMP
D APDE8
I APDE8,B.DATA
C
$JOB SEPARATE THE BINARIES
A DK4 -14,-15/PDD -12
UPDATE
ULS_CSMP
D CSMPI,APDE8
C B.ASGN
ULS_CSMP
D CSMPI,INUNIT
D APDE8
D B.DATA
C B.EX2
ULS_CSMP
D B.DATA
D APDE8,B.DATA
C
ULS_CSMP
D CSM0,INUNIT
C CSMPI
ULS_CSMP
D CSMPI
D CSM1,INUNIT
C CSM0
ULS_CSMP
D CSMPI,CSM0
D CSM2,INUNIT
C CSM1
ULS_CSMP
D CSMPI,CSM1
D CSM3,INUNIT
C CSM2
ULS_CSMP
D CSMPI,CSM2
D CSM4,INUNIT
C CSM3
ULS_CSMP
D CSMPI,CSM3
D CSM5,INUNIT
C CSM4
ULS_CSMP
D CSMPI,CSM4
D CSM6,INUNIT
C CSM5
ULS_CSMP
D CSMPI,CSM5
D CSM7,INUNIT
C CSM6
ULS_CSMP
D CSMPI,CSM6
D CSM8,INUNIT
C CSM7
ULS_CSMP
D CSMPI,CSM7
D CSM8A,INUNIT
C CSM8
ULS_CSMP
D CSMPI,CSM8
C
ULS_CSMP
D CSM10,INUNIT
C CSM8A
ULS_CSMP
D CSM8A
D CSM11,INUNIT
C CSM10
ULS_CSMP
D CSM8A,CSM10
D CSM12,INUNIT
C CSM11
ULS_CSMP
D CSM8A,CSM11
D CSM13,INUNIT
C CSM12
ULS_CSMP
D CSM8A,CSM12
D FINPUT,INUNIT
C CSM13
ULS_CSMP
D CSM8A,CSM13
D KINPUT,INUNIT
C FINPUT
ULS_CSMP
D CSM8A,FINPUT
D INUNIT
C KINPUT
ULS_CSMP
D CSM8A,KINPUT
C INUNIT
$JOB BUILD FILE
A DK4 -4,-6/DK1 -5
CHAIN
CSMP} 
NM,SZ}
 
CSMPI,B.ASGN,B.EX2,PDE.#,INCRMT#}
 
L1=CSM0,APDE8}
 
L2=CSM12}
 
L3=CSM13,CSM1,CSM2,CSM3}
 
L4=KINPUT,FINPUT,INUNIT}
 
L5=CSM4,CSM5,CSM6}
 
L6=CSM7,CSM8A}
 
L7=CSM10/CSM8,CSM11} 
L7:L2,L3,L4,L5} 
L4:L1}
 
L5:L6}
 }
 
$JOB
A DKC4 -4/TT 1,2,10/PRB 3
E CSMP