Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dakam.ctl
There are no other files named dakam.ctl in the archive.
!**** DAKAM.CTL
@DEFINE DSK DSK:,<KIRCHOFF>
!***** ASSEMBLE PROGRAM
MAC::@R MACRO
*DAKAM@
@IF (ERROR) @GOTO BLO
LNK::@R LINK
*DAKAM.SAV/SAV=DAKAM/NOSYM/NOINIT/GO
@IF (ERROR) @GOTO BLO
!**** RUN PROGRAM SIMULATION
SIM::@RUN DIAMON.SAV
*
*KASIM
*Y
*0
*1
*32
*F
*0
*DAKAM1/P
@IF (ERROR) @GOTO BLO
@REN DAKAM.SIM DAKAM1.SIM
@IF (ERROR) @GOTO BLO
SIM1::@RUN DIAMON.SAV
*
*KASIM
*Y
*0
*1
*32
*F
*0
*DAKAM2/P
@IF (ERROR) @GOTO BLO
@REN DAKAM.SIM DAKAM2.SIM
@IF (ERROR) @GOTO BLO
SIM2::@RUN DIAMON.SAV
*
*KASIM
*Y
*0
*1
*32
*F
*0
*DAKAM3/P
@IF (ERROR) @GOTO BLO
@REN DAKAM.SIM DAKAM3.SIM
@IF (ERROR) @GOTO BLO
CRF::@R CREF
*DSK:DAKAM.LST_DAKAM
@IF (ERROR) @GOTO BLO
DC2::@RUN DECDOC.SAV
*DAKAM/S=DAKAM.TXT,DAKAM.HST,DAKAM.LST,DAKAM1.SIM,DAKAM2.SIM,DAKAM3.SIM
@IF (ERROR) @GOTO BLO
DEL::@DEL DAKAM.LST,DAKAM.REL,DAKAM1.SIM,DAKAM2.SIM,DAKAM3.SIM
@IF (ERROR) @GOTO BLO
@GOTO LOG
!
BLO::@R PIP
*DAKAM.BLO=NUL:FOO
LOG::