Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/mostim.tec
There are no other files named mostim.tec in the archive.
!--- TO RUN THIS TECO PROGRAM ---
@R TECO
*ERMOSTIM.TEC$YHX0M0$$
--- THE REST IS AUTOMATIC ---!
< HK
MOS MEMORY TIMING BATCH CONTROL FILE GENERATOR
!GET DATA & CONSTRUCT THE FILE NAME!
!AB! KL10 MODEL "A" OR "B"? ^TU1
Q1-^^A"N Q1-^^B"N ANSWER A OR B
OAB '' Q1I
!DF! IF
!RS! RAM SIZE IN K? (04,16,32,64) ^TI ^TI
.-2,.T K. ARE YOU SURE? (Y,N) ^TU1
Q1-^^Y"N -D-D ORS'
IN
!TN! TIMING NUMBER? (0-3) ^TU1
Q1-^^0+1"G Q1-^^8"L OOK'' TRY AGAIN IDIOT!
OTN !OK! Q1I HX1 HK
!CONSTRUCT THE REV NUMBER!
!CRN! SOFTWARE REV NUMBER? <END WITH ALTMODE>
<^TU6 Q6-27"E 1; ' Q6I>
HARDWARE REV NUMBER? I. <^TU6 Q6-27"E 1; ' Q6I>
HT ARE YOU SURE (Y,N)? ^TU6
Q6-^^Y"N HK OCRN' HX6 HK
!PUT VARIOUS THINGS TOGETHER!
IJ<FSNAME 27I G1 27I I;> HX2 HK
G1 J I, MOS TIMING FOR KL10 MODEL C I, M C I20 ( 1A-^^0"E D' \
DIK RAMS), NUMBER C HX3 HK
!PLACE THE MAIN BODY OF THE CTL FILE IN THE BUFFER!
I@ERROR %
@DELETE NAME.ERR
@IF (ERROR)
@VDIR MOSTIM.P11,NAME.P11
@IF (ERROR) GOTO ABEND
@ERROR ?
@R MACY11
*NAME,NAME.PNT/DS:GBL/NL:TOC/NL:SYM=MOSTIM.P11,NAME.P11
@IF (ERROR) GOTO ABEND
@RU CONVRT
*NAME/E
*
@IF (ERROR) GOTO ABEND
@DEL NAME.BIN
@IF (ERROR) GOTO ABEND
@VDIR NAME.*
@LOGO
ABEND::@COP NUL:FOO NAME.ERR
@LOGO
!MAKE MODIFICATIONS TO CTL FILE!
J M2 J SCONVRT 2S* G6 G3 HX4 HK
IEW G1 I.CTL 27I HX5 HK M5 G4 HP EF
BATCH CONTROL FILE HK G1 HT HK .CTL CREATED.
>