from Van Snyder, Feb 23, 2012, his file name was FILE012
apparently lent to him by Dick Weaver
########## 360 SIMULATOR FOR 1401, MISC JCL AND UPDATES
// EXEC PGM=IEFBR14
//DDX DD DSN=CACTR683.P.SIM1401T,
// VOL=REF=CACTR683.ACTR,
// SPACE=(TRK,1),
// DISP=(MOD,DELETE)
// EXEC ASMFCL,REGION.ASM=130K,COND=(4,LE)
//ASM.SYSIN DD DSN=&&SOURCE,
// DISP=(OLD,DELETE)
//LKED.SYSLMOD DD DSN=CACTR683.P.SIM140TC(ACTGTT),
// UNIT=,
// VOL=REF=CACTR683.ACTR,
// LABEL=RETPD=9999,
// SPACE=(TRK,(25,,1),RLSE),
// DISP=(NEW,CATLG)
// EXEC PGM=IEFBR14
//DDX DD DSN=CACTR683.P.SIM1401C,
// VOL=REF=CACTR683.ACTR,
// SPACE=(TRK,1),
// DISP=(MOD,DELETE)
// EXEC ASMFCL,REGION.ASM=130K,COND=(4,LE)
//ASM.SYSIN DD DSN=&&SOURCE,
// DISP=(OLD,DELETE)
//LKED.SYSLMOD DD DSN=CACTR683.P.SIM1401C(ACTGTC),
// UNIT=,
// VOL=REF=CACTR683.ACTR,
// LABEL=RETPD=9999,
// SPACE=(TRK,(25,,1),RLSE),
// DISP=(NEW,CATLG)
//ZEDI01 JOB (00000,2,22,595151,WEAVER,
// 25123),A,PRTY=4
// EXEC LINKEXEC,P1=SIM1401,PARM.GO='SSSA'
//GO.WRITE DD SYSOUT=A,DCB=(RECFM=FM,BLKSIZE=133,LRECL=133)
//GO.CARDOUT DD DUMMY,DCB=(RECFM=F,BLKSIZE=80,LRECL=80)
//GO.CARDIN DD *,DCB=BLKSIZE=80
,008015,022029,030037,048092L/048299M0802803081,055201,062066/332,073077,088/080
ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789
//SIM1401 JOB 'U=ARMK204,T=60,D=683,L=6' *//
/*SETUP UNIT=2314,ID=ACT562 *//
//* '3=L,386=D,02=T,402KMRA=U' BOJ 1041MIS//
//* ,REVAEW,151595,10,2,00000( BOJ 10IDEZ//
//* LACOL=TSED,TNIRPSYS=EMANDD,RP TAMROF*/
// EXEC PGM=IEBUPDTE,PARM=MOD,REGION=50K
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=CACTR683.SIM1401,
// DISP=(OLD,KEEP)
//SYSUT2 DD DSN=&&SOURCE,
// UNIT=2314,
// SPACE=(7200,40),
// DCB=CACTR683.SIM1401,
// DISP=(NEW,PASS)
//SYSIN DD *
./ CHANGE SEQFLD=765
./ NUMBER INSERT=YES,INCR=1,SEQ1=00710,NEW1=00711
MACRO
&L OSE
&L STM 13,15,MACREGSV
LA 13,SAVEAREA
LA 6,MACREGSV
MEND
MACRO
OSL
LM 13,15,MACREGSV
MEND
LCLC &CONSOLE SWITCH FOR CONSOLE CMMD SUPPORT
LCLC &TAPE SWITCH FOR TAPE I/O SUPPORT
LCLC &MB MOVE BINARY SUPPORT
SPACE
&CONSOLE SETC 'Y' CONSOLE COMMANDS ACCEPTED
* PARM IS INTERPRETED FOR ALL BUT
* PGM LOAD DEVICE, THEN SIMULATOR
* WAITS FOR OPERATOR INSTRUCTIONS.
* THIS IS PLANNED AS A DEBUG MODE.
&CONSOLE SETC 'N' NO CONSOLE SUPPORT
* PARM IS INTERPRETTED, EXECUTION
* BEGINS. ANY MESSAGES ARE ROUTED
* TO SYSPRINT. THERE IS NO CONSOLE
* COMMUNICATION.
* THIS IS PLANNED AS PRODUCTION
* MODE.
&CONSOLE SETC 'X' ASSEMBLE BOTH, NOT EXECUTABLE
* PERMITS COMPILE OF ALL CODE.
SPACE
&TAPE SETC 'N' NO TAPE SUPPORT (INVALID OPS)
* OPTION REDUCES CORE REQ BY 30K
&TAPE SETC 'Y' TAPE SUPPORT
&TAPE SETC 'X' ASSEMBLE BOTH, NOT EXECUTABLE
SPACE
&MB SETC 'Y' MOVE BINARY
&MB SETC 'N' NO MOVE BINARY (INVALID OPS)
&MB SETC 'X' ASSEMBLE BOTH (NOT EXECUTABLE)
./ DELETE SEQ1=00720,SEQ2=00980
./ DELETE SEQ1=04690,SEQ2=04700
./ DELETE SEQ1=04720,SEQ2=04720 04730
B SETBCH2 04730
./ DELETE SEQ1=05450,SEQ2=05450
BWZBCH LR 12,10 SET B-REG 05460
./ DELETE SEQ1=05470,SEQ2=05470
./ DELETE SEQ1=05490,SEQ2=05490
B SETBCH2 05500
./ DELETE SEQ1=05690,SEQ2=05690
CH 9,=H'4' Q. A ADDRESS 006260
CH 9,=H'7' Q. B ADDRESS 06315
BL H2 NO 06316
H2 MSG 'I003 HALT I , A , B ',I003 06360
B TERMINAT 06380
H3 MVI OKSTT,1 06450
B WTORTN 06460
./ DELETE SEQ1=06500,SEQ2=06500
./ DELETE SEQ1=06520,SEQ2=06520
B SETBCH2 06530
CLI FLOAT,1 Q. FLOATING $ 13690
B SETBCH2 20480
DROP 13 20490
PRINT GEN 20505
./ DELETE SEQ1=20800,SEQ2=20900
./ NUMBER INSERT=YES,INCR=1,SEQ1=21150,NEW1=21151
SPACE
L 2,0(5)
LH 3,0(2)
CH 3,=AL2(L'PARM)
BE PARMST
MSG 'PARM INCORRECT LENGTH',IPARM
B WTORTN
BASE2 DC A(SETBS1+4096)
PARMST MVC PARM,2(2)
MVC SENSEA(7),PARM
TR SENSEA(7),ONOFF
PACK LINMAX,PARM+7(3)
./ NUMBER INSERT=YES,INCR=1,SEQ1=21300,NEW1=21301
OSE
OKWTOR WTOR ' SIM1401 A002 OK',RQSTIN,50,WTECB
OSL
MVC SYSPBUFF+27(50),RQSTIN
OSE
PUT SYSPDCB,SYSPBUFF
OSL
./ DELETE SEQ1=21310,SEQ2=21420
STM 13,15,MACREGSV 21450
./ NUMBER INSERT=YES,INCR=1,SEQ1=21900,NEW1=21901
MVI OKSTT,0
USING H,13
B H4
DROP 13
./ DELETE SEQ1=21910,SEQ2=21920
./ DELETE SEQ1=23350,SEQ2=23350
MVC WTOWTO+08(85),SYSPBUFF+1 MOVE TO WTO 23540
./ NUMBER INSERT=YES,INCR=1,SEQ1=23930,NEW1=23931
LR 10,5 LOAD BRANCH ADDRESS
SETBCH2 AR 12,9 INCREMENT B-ADDR TO INST AFTER BRANH
B NXTOP2
./ DELETE SEQ1=23940,SEQ2=23970
NXTOP2 TM 0(10),X'40' Q. IS THERE A WORD MARK 24030
CLC TMPARA(3),=C')LC' SKIP EMULATOR 'LAST CARD' 25885
BE READF 25886
TMPARA DS CL80 READ AREA 25915
PCHARA DS CL80 PUNCH OUTPUT AREA 26315
./ DELETE SEQ1=27010,SEQ2=27010
CPR DC X'00' COMPARE INDICATOR 27020
LINMAX DC PL2'60' 27060
./ DELETE SEQ1=27070,SEQ2=27070
MACREGSV DS 3F 27080
./ DELETE SEQ1=27150,SEQ2=27150
./ DELETE SEQ1=27220,SEQ2=27220
./ DELETE SEQ1=27240,SEQ2=27240
./ DELETE SEQ1=27390,SEQ2=27390
PRINT NOGEN 27445
SYSPDCB DCB MACRF=PM,DSORG=PS,DDNAME=SYSPRINT,LRECL=86 27460
PUNCHR DCB MACRF=PM,DSORG=PS,DDNAME=CARDOUT,LRECL=80 27470
CARD DCB MACRF=GM,DSORG=PS,DDNAME=CARDIN,LRECL=80,EODAD=EOC 27480
./ DELETE SEQ1=27490,SEQ2=27500
./ DELETE SEQ1=27590,SEQ2=27590
AIF ('&CONSOLE' EQ 'N').RWD 27985
./ NUMBER INSERT=YES,INCR=1,SEQ1=29340,NEW1=29341
BCDTAP DS C INDICATOR FOR BCD TAPE MODE
SAVCSW DS D
LDTCCW CCW X'A3',0,X'60',1 29380
CCW 2,SIMTAPE,X'20',20000 29385
CCW 2,SIMTAPE,X'20',25000 29400
./ DELETE SEQ1=29750,SEQ2=29830
//ASF EXEC ASFL,COND=(4,LE)
//C.SYSGO DD SPACE=(CYL,(5,5))
//C.SYSUT1 DD SPACE=(CYL,(5,5))
//C.SYSUT2 DD SPACE=(CYL,(5,5))
//C.SYSUT3 DD SPACE=(CYL,(5,5))
//C.SYSIN DD DSN=&&SOURCE,
// DISP=(OLD,DELETE)
// EXEC PGM=*.ASF.L.SYSLMOD,PARM='NNFFFFF055C'
/*