1FILE 1; 134 RECORDS: 0SYM MIDFSAVEBADPTRGOTITCKTAPEREADYTPMSAV0001 SYM WAITSNSOKDBADTAPEFINDVFINDV2+FMT5LPMSAV0002 SYM %FMT5LP2HOLENXTFILNXTTRKSAMCYL&NEWVOLMSAV0003 SYM wFNDFIL6NOFMT3EXTLP@OVERFRT NXTREC CHMSAV0004 SYM KWRT ^MUSTWRTE QBUFEMPPUNT3PGNTXTAPOMSAV0005 SYM UTFNOTLASTWTSWTAPSTRTBTAPWAITTAPWMSAV0006 SYM RTUCEOTh hhhhhc###1MSAV0007 SYM TPUE*AGAINDONE2@TPUE2hNSVPUMSAV0008 SYM NTsPUNT2hSRCH{H}Q\Y0RDFMSAV0009 SYM MT38RDLBLÓƓ RDLBL2MSAV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD Z19 وٍق MSAV0125 RLD ڿ@گuy^کUY څMSAV0126 RLD 04 d h m q } \ MSAV0127 RLD  0 - m ^MSAV0128 RLD  D H 0 4 *MSAV0129 RLD -dh^Y0  MSAV0130 RLD      M 4MSAV0131 RLD     ٳ    ٥MSAV0132 RLD    MSAV0133 END DATE 01-19-70 13:59 MSAV0134 -FILE 2; 858 RECORDS: 0MSAV TITLE 'PROGRAM TO SAVE DISK FILES ON TAPE' OFSV0001 MIDFSAVE START 0 OFSV0002 EXTRN VOLGET OFSV0003 EXTRN DSKOP OFSV0004 EXTRN MOVIT OFSV0005 EXTRN SCARDS OFSV0006 EXTRN TPWRUC OFSV0007 EXTRN SERCOM OFSV0008 EXTRN ERROR OFSV0009 EXTRN WRITE,GETFD OFSV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FCB DS 70F OFSV0849 SCR DS 250F OFSV0850 TI DS (RECSIZE)X OFSV0851 ORG MIDFSAVE+(((*-MIDFSAVE)+4095)/4096*4096) OFSV0852 DS CL4 OFSV0853 TBF1 DS (BFSIZE+HDRLEN)C OFSV0854 ORG MIDFSAVE+(((*-MIDFSAVE)+4095)/4096*4096) OFSV0855 DS CL4 OFSV0856 TBF2 DS (BFSIZE+HDRLEN)C OFSV0857 END OFSV0858 -FILE 3; 356 RECORDS: 0* * * * * * EQUALITIES * * * * * LEQU0001 SPACE 3 LEQU0002 SPACE 2 LEQU0003 * GENERAL REGISTERS USED BY THE SUPERVISOR LEQU0004 * LEQU0005 FRSTGR EQU 0 FIRST REGISTER SAVED - MUST NOT EXCEED LASTGR LEQU0006 LASTGR EQU 15 LAST REGISTER SAVED LEQU0007 GR0 EQU 0 UTILITY REGISTERS FOR SUPERVISOR USE LEQU0008 GR1 EQU 1 LEQU0009 GR2 EQU 2 LEQU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ( O INDICATES EMPTY QUEUE ) LEQU0347 SPACE LEQU0348 * BITS: LEQU0349 SPACE LEQU0350 * 0-3 STORAGE KEY FOR SIO LEQU0351 * 4 1 IF RETURNS LIST HAS NOT BEEN MOVED YET LEQU0352 * 5 1 IF THIS IS A SPECIAL OLTS TIMING I/O OPERATION LEQU0353 * 6 1 IF A UC IS PENDING ON THE DEVICE LEQU0354 * 7 1 IF A UE IS PENDING ON THE DEVICE LEQU0355 SPACE LEQU0356 -FILE 4; 59 RECORDS: 0*********************************************************************** PCBD0001 * * PCBD0002 * PCB -- PAGE CONTROL BLOCK * PCBD0003 * * PCBD0004 * DSECT * PCBD0005 * * PCBD0006 *********************************************************************** PCBD0007 SPACE 5 PCBD0008 PCBDCT DSECT PCBD0009 * PCBD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE PCBD0050 PCBXA DS H EXTERNAL ADDRESS - KEPT AS PCBD0051 PCBXAS EQU PCBXA SLOT - 1 BYTE PCBD0052 * 4 BITS MODULE NBR PCBD0053 * 4 BITS SLOT NUMBER PCBD0054 PCBXAT EQU PCBXA+1 TRACK - 1 BYTE PCBD0055 * PCBD0056 * PCBD0057 * PCBD0058 LPCB EQU *-PCBDCT LENGTH OF PCB PCBD0059 -FILE 5; 24 RECORDS: 0 MACRO MMAC0001 &SL CMSG &MSG,&LBL,&TYPE=B MMAC0002 &SL LA 0,G&SYSNDX.L MMAC0003 LA 1,G&SYSNDX MMAC0004 L 2,=V(OUT&TYPE) MMAC0005 BALR 2,2 MMAC0006 B &LBL MMAC0007 G&SYSNDX DC C&MSG MMAC0008 G&SYSNDX.L EQU *-G&SYSNDX MMAC0009 DS 0H MMAC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> &SL.IX EQU &SL.LN-LOADTBL MMAC0015 &SL.TV EQU X'7F0000'+&SL.IX MMAC0016 SPACE MMAC0017 MEND MMAC0018 MACRO MMAC0019 &SL HWIMB &BNR,&R=GR4,&N= MMAC0020 &SL L &R,LASTJBA&N MMAC0021 L &R,0(0,&R) MMAC0022 L &R,RJBBUF+4*&BNR-4(0,&R) MMAC0023 MEND MMAC0024 -FILE 6; 142 RECORDS: 0* MEQU0001 * REGISTER CONVENTIONS MEQU0002 * MEQU0003 GR0 EQU 0 USED FOR SVC'S AND TRT,ETC MEQU0004 GR1 EQU 1 " MEQU0005 GR2 EQU 2 " MEQU0006 GR3 EQU 3 MEQU0007 GR4 EQU 4 PSECT POINTER MEQU0008 GR5 EQU 5 OCCASIONAL BASE REGISTER MEQU0009 GR6 EQU 6 MEQU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BOTLMCC EQU CCN+CHAN*3 MACH. CAR. CNTRL. FOR BOTTOM OF PG. MEQU0133 SPACE 3 MEQU0134 * CCW FLAGS MEQU0135 CD EQU X'80' CHAIN DATA MEQU0136 CC EQU X'40' CHAIN COMMAND MEQU0137 SILI EQU X'20' SUPPRESS INCORR LENGTH INDIC MEQU0138 NXMT EQU X'10' NON-TRANSMIT MEQU0139 PCI EQU X'08' PROGRAM CONTROLLED INTERRUPT MEQU0140 EJECT MEQU0141 $CONTINUE WITH MTS.EQU2 MEQU0142 -FILE 7; 50 RECORDS: 0* VARIOUS ASSUMED CONSTANTS MEQ20001 * MEQ20002 * MEQ20003 NRLB EQU NJBBUF+1 NUMBER OF .OGICAL BUFFERS MEQ20004 NRLD EQU NJBDEV NR OF LOGICAL DEVICES MEQ20005 NRDEV EQU NRLD+1 ALLOW ZEROTH DEVICE = OPER MEQ20006 EJECT MEQ20007 * MEQ20008 * SAVE AREA SIZES FOR MEQ20009 * DISK ROUTINES MEQ20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * MEQ20041 ACCTLOCK EQU 1 MEQ20042 ACTIVLOK EQU 6 MEQ20043 SPACE 5 MEQ20044 * BELOW IS THE DEFINITION OF THE HIGHEST SEGMENT IN WHICH MEQ20045 * STORAGE WILL BE ALLOCATED BY GETSPACE. IF THIS IS GREATER MEQ20046 * THAN MAXSEG, THE VALUE OF MAXSEG WILL BE USED. MEQ20047 * MEQ20048 GSMAXSEG EQU 6 MEQ20049 EJECT MEQ20050 -FILE 8; 62 RECORDS: 0* CONT0001 * TABLE FOR PIECES TO BE DYNAMICALLY LOADED CONT0002 * CONT0003 SPACE 3 CONT0004 LOADTBLL DC A(LTBLL/16) NUMBER OF ENTRIES CONT0005 LOADTBL EQU * CONT0006 PDP8 LOADT '*PDP8RTN' CONT0007 DISP LOADT '*2250RTN' CONT0008 TAPE LOADT '*TAPERTN' CONT0009 TEST LOADT '*TESTDSR' CONT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'01' CONT0053 DC X'00' CONT0054 DC X'01' CONT0055 DC X'00' CONT0056 SPACE 3 CONT0057 INITESD DC A(LINESD/12) NUMBER OF ENTRIES CONT0058 DC CL8'LCSYMBOL' CONT0059 DC V(LCSYMBOL) CONT0060 LINESD EQU *-INITESD CONT0061 EJECT CONT0062 -FILE 9; 83 RECORDS: 0********************************************************************** MRHT0001 * * MRHT0002 * MTS RIGHT-HAND TABLE * MRHT0003 * * MRHT0004 ********************************************************************** MRHT0005 SPACE 5 MRHT0006 RHTABLE EQU * MRHT0007 DC AL1(1,0,2),C'ON' MRHT0008 DC AL1(1,4,3),C'OFF' MRHT0009 DC X'FF' MRHT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(5,8,0) MRHT0074 DC X'FF' MRHT0075 SPACE MRHT0076 PTMRHT DC AL1(4,0,10),C'M',AL4(60),C'/',AL4(1000) PLOTTIME MRHT0077 DC X'FF' MRHT0078 SPACE MRHT0079 MAPRHT DC AL1(7,0,0) MAP MRHT0080 DC AL1(3,4,0) MAP=FDNAME MRHT0081 DC X'FF' MRHT0082 EJECT MRHT0083 -FILE 10; 767 RECORDS: 0* MTSD0001 * LINK/XCTL/LOAD DSCET MTSD0002 * MTSD0003 SPACE 5 MTSD0004 LXDCT DSECT MTSD0005 LXDNAM DS 4F MTSD0006 LOADLIST DS 16F MTSD0007 XLSWS DS F MTSD0008 PGMETY DS F MTSD0009 XLSIN DS F MTSD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HASPSA DS 18F MTSD0758 SCRPGS DS H **ORDER** SCRATCH FILE PAGES - DISK MTSD0759 SCRPGSB DS H **ORDER** SCRATCH PAGES - DATA CELL MTSD0760 CATPTR DS XL12 CATALOG POINTER FOR GARY MTSD0761 FRTNPAR DS 3A FILE ROUTINE PARAMTERS MTSD0762 WOPLSA DS 2A PTR TO ERROR COMMENT IN DSRS MTSD0763 SAVVARG DS CL(LVARREG) SAVE VARREG MTSD0764 SCSSEG DS H SCANSTOR - SEGMENT NUMBER MTSD0765 LASTDSCT EQU * END OF MAIN DSECT *** *** *** MTSD0766 EJECT MTSD0767 -FILE 11; 64 RECORDS: 0 EJECT FCBE0001 SPACE FCBE0002 *********************************************************************** FCBE0003 * * FCBE0004 * THE FOLLOWING CARDS REPRESENT THE EQU'S FOR THE FILE * FCBE0005 * CONTROL BLOCK. * FCBE0006 * * FCBE0007 *********************************************************************** FCBE0008 SPACE FCBE0009 FCBN EQU 0 16 BYTES - FILE NAME FCBE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FCBRB EQU 72 1 BYTE - RECORD NUMBER IN BUFFER FCBE0055 * THERE'S 3 UNUSED BYTES HERE FCBE0056 FCBBLN EQU 20 BUFFER LENGTH FCBE0057 SPACE FCBE0058 *********************************************************************** FCBE0059 * * FCBE0060 * END OF FILE CONTROL BLOCK DESCRIPTOR * FCBE0061 * * FCBE0062 *********************************************************************** FCBE0063 SPACE 5 FCBE0064 -FILE 12; 93 RECORDS: 0 EJECT CEQU0001 * CEQU0002 * EXTENT HEADER CEQU0003 * CEQU0004 EHSID EQU 0 SELF ID - 10 BYTES CEQU0005 EHREC EQU 10 # RECORDS - 2 BYTES CEQU0006 EHLNK EQU 12 LINK - 10 BYTES CEQU0007 EHVTOC EQU 22 VTOC TYPE 1-11 BYTES CEQU0008 EHECNT EQU 33 EXTENT COUNT 1 BYTE CEQU0009 EHLEN EQU 34 LENGTH CEQU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * VOL-SER CCTTRS+OFFSET OR ZERO CEQU0084 SDLEN EQU 56 CEQU0085 * CEQU0086 * MASTER INDEX DISCRIPTOR IN CATALOG CEQU0087 * CEQU0088 MIDID EQU 0 X'08' ID FOR MID CEQU0089 MIUSID EQU 1 USER ID - 4 BYTES CEQU0090 MICATL EQU 5 CATALOG LOCATION - 12 BYTES CEQU0091 MILEN EQU 20 LENGTH CEQU0092 SPACE 5 CEQU0093 -FILE 13; 145 RECORDS: 0STRTPSW DC D'0' EXTERNAL START PSW PSA00001 TTPTR DS A POINTER TO CURRENT TRACE ENTRY PSA00002 DS XL2 PSA00003 EXICOD DS H EXTERNAL INTERUPT INTERRUPT CODE PSA00004 SVICOD DS H SVC INTERRUPT CODE PSA00005 PGICOD DS H PROGRAM INTERRUPT CODE PSA00006 MCICOD DS H MACHINE CHECK INTERRUPT CODE PSA00007 IOICOD DS H I/O INTERRUPT CODE PSA00008 EXOPSW DS D EXTERNAL INTERRUPT OLD PSW PSA00009 SVOPSW DS D SVC INTERRUPT OLD PSW PSA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'0000' SSU 6 PSA00136 DC X'8000' SSU 7 PSA00137 DC X'8000' SSU 8 PSA00138 * PSA00139 * END OF CST AND SST PSA00140 * PSA00141 TRACE DS 0F START OF TRACE TABLE ( IN IPLED CPU'S PSA PSA00142 * PSA00143 ORG PSA+4092 MUST PUT LAST JOB IN SECOND HALF PF PSA PSA00144 LASTJOB DC A(DUMJOB) ADDRESS OF LAST JOB TABLE DISPATCHED PSA00145 -FILE 14; 145 RECORDS: 0STRTPSW DC D'0' EXTERNAL START PSW PSA00001 TTPTR DS A POINTER TO CURRENT TRACE ENTRY PSA00002 DS XL2 PSA00003 EXICOD DS H EXTERNAL INTERUPT INTERRUPT CODE PSA00004 SVICOD DS H SVC INTERRUPT CODE PSA00005 PGICOD DS H PROGRAM INTERRUPT CODE PSA00006 MCICOD DS H MACHINE CHECK INTERRUPT CODE PSA00007 IOICOD DS H I/O INTERRUPT CODE PSA00008 EXOPSW DS D EXTERNAL INTERRUPT OLD PSW PSA00009 SVOPSW DS D SVC INTERRUPT OLD PSW PSA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'0000' SSU 6 PSA00136 DC X'8000' SSU 7 PSA00137 DC X'8000' SSU 8 PSA00138 * PSA00139 * END OF CST AND SST PSA00140 * PSA00141 TRACE DS 0F START OF TRACE TABLE ( IN IPLED CPU'S PSA PSA00142 * PSA00143 ORG PSA+4092 MUST PUT LAST JOB IN SECOND HALF PF PSA PSA00144 LASTJOB DC A(DUMJOB) ADDRESS OF LAST JOB TABLE DISPATCHED PSA00145 -FILE 15; 1061 RECORDS: 0BSLD TITLE 'UNIVERSITY OF MICHIGAN BOOTSTRAP RELOCATABLE LOADER' BSLD0001 BSLOAD START 0 BSLD0002 IPL88 EQU BSLOAD BSLD0003 USING BSLOAD,0 BSLD0004 SPACE 2 BSLD0005 *********************************************************************** BSLD0006 * * BSLD0007 * FIRST ASSEMBLE WITH ANY HANDY SYSTEM/360 ASSEMBLER * BSLD0008 * * BSLD0009 * THEN 1) THROW AWAY FIRST CARD IN OBJECT DECK * BSLD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * BSLD1052 * INPUT/OUTPUT INTERRUPT PROCESSOR * BSLD1053 * * BSLD1054 *********************************************************************** BSLD1055 SPACE 1 BSLD1056 IOINT SVC M65 BE SURE WE ARE IN MODEL 65 MODE BSLD1057 B HELL THIS AIN'T NEVER SUPPOSED TO HAPPEN BSLD1058 SPACE 3 BSLD1059 LTORG BSLD1060 END START BSLD1061 -FILE 16; 646 RECORDS: 0%INPUT DSR.BSLOAD 100 %OUTPUT -BSLOAD %AFTER BSLD0031 * 5) COL 13-14, MODEL OF SYSTEM/360 BEING RUN ON. * * 6) COL 15-17, MAXIMUM SIZE OF PROGRAM (SEGMENT 0) TO BE * * LOADED, INCLUDING PAGE ZERO AND UMLOAD, * * IN HEXADECIMAL PAGES. * * 7) COL 18-20, MAXIMUM SIZE OF UMLOAD TABLES (SEGMENT 1 * * IF ON A 67) IN HEXADECIMAL PAGES. * * 8) COL 21-23, MAXIMUM SIZE OF PROGRAM (SEGMENT 2) TO BE * >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * * INPUT/OUTPUT INTERRUPT PROCESSOR * * * *********************************************************************** SPACE 1 IOINT SVC M65 BE SURE WE ARE IN MODEL 65 MODE B HELL THIS AIN'T NEVER SUPPOSED TO HAPPEN SPACE 3 LTORG %BEFORE FILEMARK -FILE 17; 2743 RECORDS: 0UMLD TITLE 'UNIVERSITY OF MICHIGAN RELOCATABLE LOADER' UMLD0001 UMLOADCS START X'FF0' START AT ABSOLUTE X'1000'-16 UMLD0002 ENTRY UMLOAD UMLD0003 ENTRY UMLOADXP,UMLOADFG,UMLOADNF ALTERNATE ENTRY POINTS UMLD0004 DC A(UMLOADXP,UMLOADFG,UMLOADNF) ABSOLUTE LOADER USES THIS UMLD0005 DC A(LODTOP) DEFINE FIRST AVAIL LOC FOR BOOTSTRAP UMLD0006 SPACE 2 UMLD0007 *********************************************************************** UMLD0008 * REGISTER DEFINITIONS * UMLD0009 *********************************************************************** UMLD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ESID TABLE - * UMLD2734 * BYTE 0-3 NUMBER OF ENTRIES (FIRST ENTRY ONLY) * UMLD2735 * BYTE 0-1 THE ESID BEING DEFINED. * UMLD2736 * BYTE 2-3 THE DISPLACEMENT OF THE ESD TABLE ENTRY * UMLD2737 * FROM ESDT FOR THE SYMBOL WITH THIS ESID. * UMLD2738 * * UMLD2739 *********************************************************************** UMLD2740 SPACE 1 UMLD2741 ESDT EQU SETRLD+RLDL BEGINNING OF ESD TABLE UMLD2742 END UMLD2743 -FILE 18; 1015 RECORDS: 0%INPUT DSR.UMLOAD 100 %OUTPUT -UMLOAD %DELETE UMLD0002 UMLOADCS START X'FF0' START AT ABSOLUTE X'1000'-16 %DELETE UMLD0004 ENTRY UMLOADXP,UMLOADFG,UMLOADNF ALTERNATE ENTRY POINTS DC A(UMLOADXP,UMLOADFG,UMLOADNF) ABSOLUTE LOADER USES THIS %AFTER UMLD0105 TM STATUS+2,BNLPBT TEST IF BEGINNING A NEW LOAD PRECESS BO UMLD6 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ADDRESSES. THE ADDRESS OF THE FIRST ENTRY OF THIS TABLE IS * * LOCATED AT ESIDT. * * * * ESID TABLE - * * BYTE 0-3 NUMBER OF ENTRIES (FIRST ENTRY ONLY) * * BYTE 0-1 THE ESID BEING DEFINED. * * BYTE 2-3 THE DISPLACEMENT OF THE ESD TABLE ENTRY * * FROM ESDT FOR THE SYMBOL WITH THIS ESID. * * * %BEFORE FILEMARK -FILE 19; 9 RECORDS: 0ACAS TITLE 'ACTIVCNT AND ASTATSUB' ACAS0001 ACTIVCNT CSECT ACAS0002 DS F ACAS0003 ENTRY ASTATSUB ACAS0004 ASTATSUB DC A(*+4) ACAS0005 BR 14 ACAS0006 BR 14 ACAS0007 BR 14 ACAS0008 END ACAS0009 -FILE 20; 504 RECORDS: 0DUMP TITLE 'SYSTEM ERROR DUMP ROUTINE' DUMP0001 DUMP START 0 DUMP0002 ENTRY SNTPIN HANDLE INTERRURTS DUMP0003 ENTRY OUTDEV DEVICE ADDRESS DUMP0004 EXTRN TYPAD DUMP0005 EXTRN TAPETBL DUMP0006 EXTRN FLAG FOR TYPEWRITER STUFF DUMP0007 * DUMP0008 * CALLED BY SUPERVISOR IN SUPERVISOR STATE DUMP0009 * CALLING SEQUENCE IS: DUMP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PM11L EQU *-PM11 DUMP0495 PM12 DC C'END OF REEL, DUMPING TERMINATED' DUMP0496 PM12L EQU *-PM12 DUMP0497 PM13 DC C'FATAL I/O ERROR' DUMP0498 PM13L EQU *-PM13 DUMP0499 BLKCT EQU LAB1+54 DUMP0500 VOLLAB EQU PM4+4 DUMP0501 LOCK DC X'00' LOCK BYTE FOR DUMP ROUTINES DUMP0502 CAPS DC X'4040404040404040' DUMP0503 END DUMP0504 -FILE 21; 290 RECORDS: 01JLE TITLE 'FIRST JOB JLE ' JBLS0001 JOBLST START 0 JBLS0002 SPACE JBLS0003 * JBLS0004 * VERSION OF 23 MAY 1966 JBLS0005 * REPLACES VERSION OF 7 APRIL 1966 JBLS0006 * JBLS0007 * THIS VERSION DIFFERS FROM THE PREVIOUS VERSION JBLS0008 * IN THE FOLLOWING WAYS JBLS0009 * JBLS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * JBLS0281 * VERSION OF 25 NOVEMBER 1965 JBLS0282 * JBLS0283 DC C' ' LAST JOB MUST HAVE BLANK JOB NAME JBLS0284 DC X'00' LAST JOB HAS 0 VERSION NUMBER JBLS0285 DC X'00' LAST JOB HAS BITS SET TO 0 JBLS0286 DC X'FFFF' LAST JOB HAS JOB NUMBER POSITION FILLED JBLS0287 DC X'FFFFFFFF' LAST JOB HAS LOCATION OF JOB HEADER JBLS0288 * SET TO ALL ONES JBLS0289 END JBLS0290 -FILE 22; 886 RECORDS: 067TB TITLE 'TABLES FOR MODEL 67' TABL0001 * TABL0002 * THIS IS THE MODEL 50 TABLES TABL0003 SPACE 5 TABL0004 * THIS PROGRAM CONTAINS SPACE FOR THE TABLES SPECIFIED BY THE TABL0005 * 'ENTRY' FIELDS BELOW. TABL0006 SPACE 3 TABL0007 * VERSION OF 23 MAY 1966 TABL0008 * REPLACES VERSION OF 1 APRIL 1966 TABL0009 * TABL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MAXADD DC X'00000000' DUMMY TABL0877 NUMDEV DC A((ENDDLS-DEVLST)/LDVLST) TOTAL NUMBER OF DEVICES TABL0878 JTBLLIM DC A(0,0,0) FILLED IN BY INITIALIZATION TABL0879 SPACE TABL0880 DS 0H TABL0881 DS 0H TABL0882 TYPAD DC X'0009' OPERATOR'S CONSOLE ADDRESS TABL0883 CONS DC X'0809' ALTERNATE OPERATOR'S CONSOLE TABL0884 SPACE 3 TABL0885 END TABL0886 -FILE 23; 280 RECORDS: 0JBRP TITLE 'JOB REQUEST PROCESSOR' JBRP0001 * THIS IS JOB PART OF REQUEST PROCESSOR JBRP0002 SPACE JBRP0003 * JBRP0004 * VERSION OF 23 MAY 1966 JBRP0005 * REPLACES VERSION OF 25 NOVEMBER 1956 JBRP0006 * JBRP0007 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE JBRP0008 * JBRP0009 * 1. USE IS MADE OF THE NEW SVC "GTBUF" AND "GTUNIT" JBRP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ASTALL DC A(STATALL) JBRP0271 ASTMTS DC A(STATMTS) JBRP0272 MTS DC C' MTS' JBRP0273 STATSW DC X'81000000' JBRP0274 ZEROS DC 11F'0' JBRP0275 ZERO EQU FOUR DC X'0000' JBRP0276 LSTJOB DC CL8' ' FENCE FOR LAST JOB JOBLST JBRP0277 DS 0F JBRP0278 JBRPBUF DS CL(TWOSUM) BUFFER FOR PARAMETERS JBRP0279 END BEGIN JBRP0280 -FILE 24; 55 RECORDS: 0FJTL TITLE 'FIND JOB TABLE LOCATION' FNDJ0001 * SUBROUTINE FNDJTL FNDJ0002 * FNDJ0003 * FNDJ0004 * VERSION OF 23 MAY 1966 FNDJ0005 * REPLACES VERSION OF 25 NOVEMBER 1965 FNDJ0006 * FNDJ0007 * THIS VERSION DIFFERS FORM THE PREVIOUS VERSION IN THAT IT FNDJ0008 * USES THE STANDARD EQUALITIES DECK. FNDJ0009 * FNDJ0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END EQU 6 FNDJ0046 WRITE EQU 7 FNDJ0047 DS 0F FNDJ0048 JBTBL DC A(JTBLLIM) WHERE TO FIND JOB TBL LIMITS FNDJ0049 ERMESS DC C'JOB NUMB' FNDJ0050 DC C'ER NOT I' FNDJ0051 DC C'N JOB TA' FNDJ0052 DC C'BLES.' FNDJ0053 LENGTH EQU *-ERMESS FNDJ0054 END FNDJ0055 -FILE 25; 171 RECORDS: 0FBUF TITLE 'FREE BUFFERS AND JOB TABLE' FBJT0001 * SUBROUTINE FBJTJL FBJT0002 * FBJT0003 * FBJT0004 * VERSION OF 23 MAY 1966 FBJT0005 * REPLACES VERSION OF 25 NOVEMBER 1965 FBJT0006 * FBJT0007 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE FBJT0008 * FBJT0009 * 1. THE STANDARD EQUALITIES DECK IS USED FBJT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA 0,L'ERR FBJT0162 LA 1,ERR FBJT0163 SVC WRITE FBJT0164 SVC END FBJT0165 OKON MVI OKSW,255 TURN ON FBJT0166 SVC END FBJT0167 OKOFF MVI OKSW,0 AND OFF FBJT0168 SVC END FBJT0169 AFBUF DC A(FBJTJL) FBJT0170 END FBJT0171 -FILE 26; 56 RECORDS: 0FIOD TITLE 'FREE I/O DEVICES AND CPU QUEUE' FIDC0001 * SUBROUTINE FIDCQ FIDC0002 * FIDC0003 * FIDC0004 * VERSION OF 23 MAY 1966 FIDC0005 * REPLACES VERSION OF 25 NOVEMBER 1965 FIDC0006 * FIDC0007 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE FIDC0008 * FIDC0009 * 1. THE EQUALITIES DECK IS USED FIDC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SRL GR0,2 FIDC0047 SVC FREE ELSE FREE THIS DEVICE IF POSSIBLE FIDC0048 JFREE1 EQU * DEVICE FREED--SET JOB TBL DTL TO -1 FIDC0049 LA PTRGR,4(PTRGR) FIDC0050 BC 15,RFREE2 FIDC0051 FCQGR EQU 0 CPU QUEUE FREED FLAG FIDC0052 FIDGR EQU 1 I/O DEVICES FREED FLAG FIDC0053 FREE EQU 22 FIDC0054 CLEAR EQU 15 FIDC0055 END FIDC0056 -FILE 27; 93 RECORDS: 0BUFA TITLE 'TERMINAL DEVICE BUFFER ALLOCATION SUBROUTINE' BUFA0001 BUFALLOC START 0 BUFA0002 USING *,15 BUFA0003 LA 0,BUFLOCK SET MY LOCK BUFA0004 SVC LOCK BUFA0005 SVC PROOFF BUFA0006 STM 2,3,SAVREG NEED ONLY TWO REGISTERS BUFA0007 L 3,=V(LASTJOB) GET JOB TABLE AND JOB NUMBERS BUFA0008 L 3,0(0,3) BUFA0009 MVC JOBT#(4),0(3) BUFA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> #BUFS EQU 40 BUFA0084 * TABLES TO KEEP TRACK OF USE OF BUFFERS BUFA0085 INUSE DC XL(#BUFS)'0' BUFA0086 JOB#TBL DC XL(#BUFS)'0' BUFA0087 * GET LITERALS UNDER BASE REGISTER BUFA0088 LTORG BUFA0089 * THE BUFFERS -- BUFA0090 DS 0D BUFA0091 BUF DS (#BUFS)CL128 BUFA0092 END BUFA0093 -FILE 28; 37 RECORDS: 0 TITLE 'EXIT SUBROUTINE (SIGN OFF CALLING JOB)' EXIT0001 * SUBPROGRAM EXIT EXIT0002 * EXIT0003 * VERSION OF 1 APRIL 1966 EXIT0004 * REPLACES VERSION OF 25 NOVEMBER 1965 EXIT0005 * EXIT0006 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE -- EXIT0007 * EXIT0008 * 1. THIS SUBPROGRAM HAS BEEN RENAMED EXIT TO EXIT0009 * PERMIT THE JOB WHICH WAS CALLED CIT TO BE CALLED EXIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 15,ADFID EXIT0028 BALR 14,15 CLEAR DEVICE TABLES, LIST AND CPU Q EXIT0029 L 15,ADFBJ EXIT0030 BALR 14,15 FREE BUFFERS,JOB TABLE AND JOB LIST EXIT0031 SVC POPQ EXIT0032 DS 0F EXIT0033 ADFID DC A(FIDCQ) EXIT0034 ADFBJ DC A(FBJTJL) EXIT0035 POPQ EQU 12 EXIT0036 END EXIT0037 -FILE 29; 1229 RECORDS: 0PDP TITLE 'PAGING DRUM PROCESSOR' PDP00001 SPACE 15 PDP00002 ********************************************************************** PDP00003 * * PDP00004 * * PDP00005 * P A G I N G D R U M P R O C E S S O R * PDP00006 * * PDP00007 * * PDP00008 ********************************************************************** PDP00009 EJECT PDP00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DRMS7 DC 100X'01' PDP01220 DRMS8 DC 100X'01' PDP01221 DRMS9 DC 100X'01' PDP01222 DRMSAVAL DC 18H'100' CURRENT AND MIN. NBR AVAIL PDP01223 SPACE 4 PDP01224 DRUMDL EQU *-DRUMD V2 PDP01225 EJECT PDP01226 COPY *PCBDSECT PDP01227 EJECT PDP01228 END PDP01229 -FILE 30; 380 RECORDS: 0CDUC TITLE 'CARD READER UNIT CHECK ROUTINES' CDUC0001 CARDUC START X'A000' CDUC0002 SPACE CDUC0003 ENTRY CDSTUC CDUC0004 ENTRY CDRDUC CDUC0005 SPACE CDUC0006 BASE EQU * CDUC0007 SPACE CDUC0008 USING DSECT1,13 REGISTER 13 INITIALIZED BY CALLER CDUC0009 SPACE CDUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DUMPAR DC A(DUMCCW) PARAMETERS FOR DUMMY READ CDUC0371 DC A(DUMRTN) CDUC0372 DUMRTN DS F RETURNS LIST FOR DUMMY READ CDUC0373 DC A(MERR) CDUC0374 DC A(DUMUC) CDUC0375 SPCRTN DS F RETURNS LIST FOR SPECIAL WAIT CDUC0376 DC A(MERR) CDUC0377 DC A(SPCUC) CDUC0378 DUMCCW CCW X'E2',*,X'30',1 DUMMY READ, NO-FEED, SKIP FLAG ON CDUC0379 END CDUC0380 -FILE 31; 729 RECORDS: 0DUC TITLE 'DIRECT ACCESS DEVICE UNIT CHECK ROUTINE' DAUC0001 CSDUC START 0 DAUC0002 ENTRY DISKUC DAUC0003 * DAUC0004 * DIRECT ACCESS STORAGE DEVICE (DASD) UNIT CHECK ROUTINES DAUC0005 * DAUC0006 * R13 SCRATCH - 100 BYTES DAUC0007 * DAUC0008 SPACE 3 DAUC0009 * REGISTER ASSIGNMENTS DAUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NRL EQU *-NRM DAUC0720 ERRM DC C' ERROR *, UUIIII FF' DAUC0721 DC C' SSSSSSSSSSSS ' DAUC0722 DC C'CCCCHHHH OO' DAUC0723 ERRL EQU *-ERRM DAUC0724 SEEKSU DC X'200000060000' DAUC0725 TBL EQU *-240 DAUC0726 DC C'0123456789ABCDEF' DAUC0727 DS 6F PATCH AREA JUST BECAUSE DAUC0728 END DAUC0729 -FILE 32; 595 RECORDS: 0TPUC TITLE 'MAGNETIC TAPE UNIT CHECK' TPUC0001 TAPEUC START 0 TPUC0002 ENTRY TPRDUC TPUC0003 ENTRY TPWRUC TPUC0004 * REGISTERS TPUC0005 SPACE 1 TPUC0006 BASE1 EQU 7 TPUC0007 BASE2 EQU 6 TPUC0008 DREG1 EQU 13 TPUC0009 DREG2 EQU 8 TPUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RTNADR EQU DSECT2 TPUC0586 REREAD EQU RTNADR+4 TPUC0587 CLEANS EQU REREAD+1 TPUC0588 CNTCHR EQU CLEANS+1 TPUC0589 SNSCC EQU CNTCHR+1 TPUC0590 SENSE EQU SNSCC+1 TPUC0591 FLAG EQU SENSE+6 TPUC0592 STOPCD EQU FLAG+1 TPUC0593 DEVID EQU SENSE+8 TPUC0594 END TPUC0595 -FILE 33; 360 RECORDS: 0PRUC TITLE 'PRINTER UNIT CHECK ROUTINES' PTUC0001 PTRUC START 0 PTUC0002 SPACE 3 PTUC0003 * REGISTER ASSIGNMENT PTUC0004 SR EQU 13 SAVE AREA REGISTER PTUC0005 GR0 EQU 0 PTUC0006 GR1 EQU 1 PTUC0007 GR2 EQU 2 PTUC0008 GR3 EQU 3 PTUC0009 PR EQU 4 PARAMETER AREA PTUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> UCPL EQU *-UCPM PTUC0351 PCM DC C'PRINT CHECK' PTUC0352 PCL EQU *-PCM PTUC0353 MERMSG DC C': MACHINE ERROR ' PTUC0354 PERMSG DC C': PROGRAM ERROR ' PTUC0355 STTMSG DC C'PRINTER STATUS ' PTUC0356 ABVM DC C' THE ABOVE LINE MAY BE PRINTED INCORRECTLY. IT IS REP' PTUC0357 DC C'EATED AFTER THIS COMMENT.' PTUC0358 ABVL EQU *-ABVM PTUC0359 END PTUC0360 -FILE 34; 83 RECORDS: 0%FSF *MASTER* 25 %INPUT *MASTER* 80 %OUTPUT *NEW* 80 %DELETE PRUC0081 PTRUC2 SVC SAVE SAVE THE I/O Q FIRST TM INTFLG,REPBIT IF NOT INTERNAL I/O DO GCCWAD FOR LATER BO *+10 SVC GCCWAD STM GR0,GR2,CCW L GR0,SAVGR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %AFTER PRUC0302 CCWL DC F'8' LENGTH OF ONE CCW %DELETE PRUC0313,2 DC A(SPCERR) DC A(SPCERR) %BEFORE FILEMARK %CLOSE *NEW* %WTM *NEW* %REW *NEW* %END -FILE 35; 225 RECORDS: 0PNUC TITLE 'PUNCH UNIT CHECK ROUTINES' PCUC0001 PUNUC START 0 PCUC0002 SPACE 3 PCUC0003 * SVC CODES PCUC0004 SIO EQU 2 PCUC0005 WAIT EQU 3 PCUC0006 EXIT EQU 6 PCUC0007 WRITE EQU 7 PCUC0008 SAVE EQU 8 PCUC0009 RESTOR EQU 9 PCUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NRM DC C'PUNCH NOT READY.' PCUC0216 NRL EQU *-NRM PCUC0217 MERMSG DC C': MACHINE ERROR ' PCUC0218 PERMSG DC C': PROGRAM ERROR ' PCUC0219 STTMSG DC C'CARD PUNCH STATUS ' PCUC0220 TBL EQU *-X'F0' PCUC0221 DC C'0123456789ABCDEF' PCUC0222 BOM DC C'PUNCH BUS OUT CHECK.' PCUC0223 BOL EQU *-BOM PCUC0224 END PCUC0225 -FILE 36; 39 RECORDS: 0TRAN TITLE 'QN OR PN TRANSLATE TABLE' PNXL0001 ENTRY TRANTB PNXL0002 SPACE 3 PNXL0003 * TRANSLATE TABLE FOR QN PRINT TRAIN PNXL0004 TRANTB EQU * PNXL0005 DC X'4040404040404040' 1 PNXL0006 DC X'4040404040404040' 2 PNXL0007 DC X'4040404040404040' 3 PNXL0008 DC X'4040404040404040' 4 PNXL0009 DC X'4040404040404040' 5 PNXL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'6FC1C2C3C4C5C6C7' 25 PNXL0030 DC X'C8C9404040404040' 26 PNXL0031 DC X'7CD1D2D3D4D5D6D7' 27 PNXL0032 DC X'D8D9404040404040' 28 PNXL0033 DC X'7B40E2E3E4E5E6E7' 29 PNXL0034 DC X'E8E9404040404040' 30 PNXL0035 DC X'F0F1F2F3F4F5F6F7' 31 PNXL0036 DC X'F8F9404040404040' 32 PNXL0037 SPACE 3 PNXL0038 END PNXL0039 -FILE 37; 40 RECORDS: 0STOP TITLE 'JOB TO STOP ANOTHER JOB' STOP0001 * CONSOLE INITIATED TERMINATE JOB STOP0002 * STOP0003 * JOB TYPE - REENTRANT STOP0004 * ARGUMENTS - GR2 - LOCATION OF JOB NUMBER STOP0005 * FUNCTION - FREES ALL BUFFERS,TABLES,LISTS, AND QUEU STOP0006 * ASSOCIATED WITH THIS JOB. STOP0007 * COMMENTS - NO BUFFER OR I/O REQUIREMENTS STOP0008 * STOP0009 TERM1 START 0 STOP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L CODEGR,BLST STOP0031 B CITENT STOP0032 DS 0F STOP0033 ATTN DC C'ATTN' STOP0034 BLST DC C'BLST' STOP0035 KILL DC C'KILL' STOP0036 END EQU 6 STOP0037 STOP EQU 27 STOP0038 CODEGR EQU 10 STOP0039 END STOP0040 -FILE 38; 43 RECORDS: 0JDMP TITLE 'JOB TO DUMP SPECIFIED JOB' JBDM0001 * JOBDUMP JOB JBDM0002 * JBDM0003 * VERSION OF 1 APRIL 1966 JBDM0004 * JBDM0005 * THIS JOB CAUSES A DUMP TO BE PRINTED ON THE SYSTEM JBDM0006 * OUTPUT DEVICE. THE JOB DUMPED IS INDICATED BY THE JBDM0007 * TASK NUMBER TYPED ON JOB INITIATION. A DUMP CAN BE JBDM0008 * CALLED FOR WHILE THE JOB BEING DUMPED IS RUNNING. JBDM0009 * JBDM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'NUMBER TO BE ' JBDM0034 DC C'DUMPED' JBDM0035 CNT EQU *-MES JBDM0036 * JBDM0037 END EQU 6 JBDM0038 WRITE EQU 7 JBDM0039 JBDMP EQU 17 JBDM0040 * JBDM0041 AFNDJTL DC V(FNDJTL) LOCATION OF SUBROUTINE TO FIND A JOB TBL JBDM0042 END JBDM0043 -FILE 39; 152 RECORDS: 0TPMV TITLE 'JOB TO EXECUTE CONTROL COMANDS FOR TAPES' TPMV0001 TPMOVE START 0 TPMV0002 ENTRY JBBSR,JBBSF,JBFSR,JBFSF,JBWTM,JBERG,JBRUN,JBREW TPMV0003 USING *,12 TPMV0004 USING DSECT1,13 TPMV0005 COM LA 0,1 COMMON PART OF JOBS TPMV0006 L 13,0(0,1) GET LOC OF SCRATCH AREA TPMV0007 LA 1,DSECT2 LINK UP FOR TAPE UC TPMV0008 ST 1,DSECT1 TPMV0009 L 9,0(0,2) GET COUNT TPMV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * TPMV0143 TPMOVE CSECT TPMV0144 LPC DC C'LOAD POINT' TPMV0145 EOTC DC C'END OF TAPE' TPMV0146 UEC DC C'TAPE MARK' TPMV0147 DCC DC C'DATA CHECK' TPMV0148 RCC DC C'REMAINING COUNT IS' TPMV0149 DC X'402020202120' TPMV0150 RCCL EQU *-RCC TPMV0151 END TPMV0152 -FILE 40; 130 RECORDS: 0STSW TITLE 'CHANGE UNIT STATUS' ONOF0001 * JOB TO CHANGE A UNIT FROM OFFLINE TO ONLINE STATUS ONOF0002 * OR ONLINE TO OFFLINE STATUS ONOF0003 SPACE 3 ONOF0004 ONLIN START 0 ONOF0005 ENTRY OFFLIN ONOF0006 DC A(ON) OFFLINE JOB HEADER ONOF0007 DC F'1' ONE BUFFER ONOF0008 DC F'32' 32 BYTES LONG ONOF0009 OFFLIN DC A(OFF) OFFLIN JOB HEADER ONOF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BUSYM DC AL1(BUSYME-*-2) ONOF0121 DC C'IS BUSY' ONOF0122 BUSYME EQU * ONOF0123 OFOFM DC AL1(OFOFME-*-2) ONOF0124 DC C'IS ALREADY OFFLINE' ONOF0125 OFOFME EQU * ONOF0126 ONONM DC AL1(ONONME-*-2) ONOF0127 DC C'IS ALREADY ONLINE' ONOF0128 ONONME EQU * ONOF0129 END ONOF0130 -FILE 41; 216 RECORDS: 0PN TITLE 'PN BUFFER LOAD PROGRAM' UCSI0001 PN START 0 UCSI0002 EXTRN UCBLOD UCSI0003 DC A(PNBEG) UCSI0004 DC H'1' UCSI0005 DC H'0' UCSI0006 DC CL4'PTR' UCSI0007 USING *,15 UCSI0008 PNBEG LA 0,CCWPN UCSI0009 L 15,AUCBLD UCSI0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'9C' UCSI0207 DC X'B1B2B3B4B5B6B7B8B9B0A08E8D9D' UCSI0208 DC X'A15F' UCSI0209 DC C'()' UCSI0210 DC X'BE8F' UCSI0211 DC C'><' UCSI0212 DC X'8CAE' UCSI0213 DC X'4A' UCSI0214 DC X'9FADBD9B8BABBBACBCAF6DBF4F' UCSI0215 END UCSI0216 -FILE 42; 324 RECORDS: 0CPCC TITLE 'CARD TO CARD AND CARD TO PRINT JOBS' CPCC0001 CPCC START 0 CPCC0002 ENTRY CP,CC CPCC0003 EXTRN CDRDUC,CDSTUC,PUNUC,PTRUC,TRANTB CPCC0004 PCHUC EQU PUNUC CPCC0005 SPACE 3 CPCC0006 * SCRATCH AREA DEFINITION CPCC0007 SCR DSECT CPCC0008 UCLINK DC F'0' CPCC0009 DC 24F'0' UNIT CHECK ROUTINE SAVE AREA CPCC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DBLSPC DC C'DBLS' CPCC0315 FENCE DC 4X'FF' CPCC0316 CPSOM DC C'CARD TO PRINT VERSION 1' CPCC0317 CPSOL EQU *-CPSOM CPCC0318 CCSOM DC C'CARD TO CARD VERSION 1' CPCC0319 CCSOL EQU *-CCSOM CPCC0320 EOFM DC C'END OF FILE' CPCC0321 DC C', CARDS READ' CPCC0322 EOFL EQU *-EOFM CPCC0323 END CPCC0324 -FILE 43; 9466 RECORDS: 0UMPS TITLE 'UM VERSION OF LLMPS SUPERVISOR' SUPR0001 MACRO SUPR0002 &N SETUP &A,&B SUPR0003 AIF (T'&N EQ 'O').A SUPR0004 &N DS 0H SUPR0005 .A IHBINNRA &A,&B SUPR0006 MEND SUPR0007 SPACE 3 SUPR0008 SPACE SUPR0009 MACRO SUPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CCUCONF DC X'08' BIT FOR EACH CCU IN 4-7 CONF0956 CPUCONF DC X'80' BIT FOR EACH CPU IN 0-3 CONF0957 BIT DC X'8040201008040201' CONF0958 FSAVALID DC X'80C0E0F0F8FCFEFF' CONF0959 NUMBITS DC X'00010102010202030102020302030304' CONF0960 INP DS CL50 INPUT AREA FOR TYPEWRITER CONF0961 SPACE 5 CONF0962 COPY *PCBDSECT CONF0963 SPACE 5 CONF0964 END CONF0965 -FILE 44; 3956 RECORDS: 0%REW *IN* %REW *OUT* %INPUT *IN* 50 %OUTPUT *OUT* 50 %NEWID SUPR0001 %AFTER SUPR0008 SPACE MACRO BASL &SUB,&T AIF (T'&T EQ 'O').NRP >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 COPY *PCBDSECT SPACE 5 %BEFORE FILEMARK %CLOSE *IN* %CLOSE *OUT* %REW *IN* %WTM *OUT* %REW *OUT* %END -FILE 45; 96 RECORDS: 0OLTS TITLE 'SUBROUTINE CALLED FROM ACT TO TIME AN I/O OP' OSUB0001 OLTSSUB CSECT OSUB0002 USING *,15 OSUB0003 COPY *LLMPSEQU OSUB0004 EJECT OSUB0005 L SCC,RDVRCCW(0,DTBLGR) OSUB0006 USING CCWHDR,SCC BASE FOR CCW HEADER OSUB0007 L GR0,CCWLINK MUST BE ONLY ONE BLOCK OSUB0008 LTR GR0,GR0 OSUB0009 BNE ERR2A ICNORRECT CCW LIST OSUB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * OSUB0087 CCWHDR DSECT SAME AS IN CCWTRANS (I HOPE) OSUB0088 VCCWLOC DS A VIRT CCW LOC OSUB0089 CCWLINK DS A LINK TO NEXT BLOCK OSUB0090 VCCWCNT DS H LENGTH OF VIRT CCW OSUB0091 RCCWCNT DS H LENGTH OF REAL CCW OSUB0092 IDENT DC X'FFFF' USED BY CCWUNTR OSUB0093 DATACNT DS H LENGTH OF DATA OSUB0094 REALCCW DS 0D START OF REAL CCW OSUB0095 END OSUB0096 -FILE 46; 4 RECORDS: 0STBA TITLE 'CURRENT STATISTICS BUFFER ADDRESS (6-21-67)' STBF0001 STATBUFF DC F'0' STBF0002 ENTRY STATBUFF CURRENT STAT BUFFER ADDRESS STBF0003 END STBF0004 -FILE 47; 584 RECORDS: 0STAT TITLE 'STAT/SW JOBS--TAD PINKERTON (WR. 6-67, REV. 5-68)' STAT0001 * STAT0002 * STATISTICS JOB STAT0003 * STAT0004 * JOB HEADER STAT0005 * STAT0006 STATJOB START 0 STAT0007 DC A(STATBEG) ENTRY POINT ADDRESS STAT0008 DC H'1' ONE DEVICE ALWAYS REQUIRED STAT0009 NOBUFRS DC H'3' THREE BUFFERS STAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DATA EQU 16 LOCATION OF FIRST DATA ITEM IN BUFFER STAT0575 * STAT0576 * JOB TABLE RECORDING BIT DISPLACEMENTS STAT0577 * STAT0578 JTLDISP EQU X'F4' JOB TABLE WORD FOR STAT BITS DISPLACEMENT STAT0579 JTLNAME EQU 4 JOB TABLE WORDS FOR JOB NAME DISPLACEMENT STAT0580 MAXPARS EQU 12 MAXIMUM NUMBER PARAMETERS IN AN UMMPS JOB STAT0581 JOBNO EQU 0 JOB NUMBER DISPLACEMENT IN JOB TABLE STAT0582 * STAT0583 END STAT0584 -FILE 48; 10913 RECORDS: 0HASP TITLE 'S P O O L ' UM1.0 00000000 * 00002000 ***** $GETBUF ***** GET A BUFFER 00004000 * 00006000 * 00008000 MACRO 00010000 &NAME $GETBUF &NONE,&TYPE=T V02.0 00012000 &NAME BAL LINK,$GE&TYPE.BUF LINK TO ROUTINE V02.0 00014000 $NPEXIT &NONE SET UP NON-PROCESS EXIT 00016000 MEND 00018000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *256+$L5/10*16+$L6 20348000 SPACE 3 UM1.0 20348100 TRACES UM1.0 20348200 TITLE 'M T S -- DSECTS ETC.' 20348300 COPY MTS.EQU2 20348400 DUMMY DSECT 20348500 COPY MTS.CONTAB 20348600 SPACE 3 UM1.0 20348700 COPY MTS.DSECT UM1.0 20348800 END 20350000 -FILE 49; 2831 RECORDS: 0%REWIND *MASTER* %REWIND *SXXX* %INPUT *MASTER* 50 %OUTPUT *SXXX* 50 %FIND '00000000' %DELETE '00000000' HASP TITLE 'S P O O L ' UM1.0 00000000 %AFTER '00042000' MACRO UM1.0 00042100 &SL $GETLBN &NRLBE UM1.0 00042200 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COPY MTS.DSECT UM1.0 20348800 %AFTER 1 %CLOSE *SXXX* %WTM *SXXX* %REWIND *SXXX* %END $RUN *DISMOUNT PAR=*MASTER* $RUN *MOUNT PAR=S147 ON 9TP *LIST* RING=IN 'HASP LISTING' $RUN *ASMBLR SCARDS=*NEW* 2=*SYSMAC 0=*OSMAC 3=MACROS SPRINT=*LIST* - PAR=FX,RLD,SIZE=99,IBLK=50,OBLK=50 -FILE 50; 401 RECORDS: 0HSPL TITLE ' HASPLING -- JOB TO CONTROL AN I/O DEVICE' HSPL0001 ********************************************************************** HSPL0002 * * HSPL0003 * T H I S IS THE HASPLING * HSPL0004 * * HSPL0005 ********************************************************************** HSPL0006 SPACE 5 HSPL0007 MACRO HSPL0008 &N $POST &WHERE,&WHY HSPL0009 &N NI &WHERE,255-$EWF&WHY HSPL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DCTFLAGS DS 0C HSPL0392 DCTCHAIN DS F HSPL0393 DCTHREAD DS F HSPL0394 DCTDEVN DS CL8 HSPL0395 DCTWAYT DS F HSPL0396 DCTSJNO DS H HSPL0397 DCTSJWK DS H HSPL0398 DCTWORK DS 0F HSPL0399 SPACE HSPL0400 END HSPL0401 -FILE 51; 83 RECORDS: 0CCTB TITLE 'CARRIAGE CONTROL TRANSLATE TABLES' CCTR0001 ENTRY CCTB CCTR0002 ENTRY CCTBP,CCTBTR CCTR0003 SPACE 3 CCTR0004 * CARRIAGE CONTROL TABLE CCTR0005 DS 0F CARRIAGE CONTROL TABLE CCTR0006 CCTB DC X'00' NUMBER OF ENTRIES CCTR0007 DC X'09' COMMAND CODE CCTR0008 DC H'1' AMOUNT TO ADD TO LINE POINTER CCTR0009 CCTB9 DC X'00090001' CCTR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(CCTB2-CCTB) 2 CCTR0074 DC X'00' CCTR0075 DC AL1(CCTB4-CCTB) 4 CCTR0076 DC X'00' CCTR0077 DC AL1(CCTB6-CCTB) 6 CCTR0078 DC X'00' CCTR0079 DC AL1(CCTB6-CCTB) 8 CCTR0080 DC AL1(CCTB9-CCTB) CCTR0081 DC XL6'0' CCTR0082 END CCTR0083 -FILE 52; 1965 RECORDS: 0CAT TITLE 'INITIALIZE THE MASTER CATALOG' CSBR0001 * CSBR0002 * INITIALIZE THE MASTER CATALOG CSBR0003 * CSBR0004 * RD SCRATCH (3660 + READR =3660+240=3900 ) CSBR0005 * RE - LINK REG CSBR0006 * RF - USING REG & RETURN REG 0=OK 4=ERROR CSBR0007 * CSBR0008 CSCAT START 0 CSBR0009 EXTRN GETDSK CSBR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LR R5,RF CSBR1956 L RF,RFLOC(,RD) CSBR1957 L R1,R1LOC(,RD) RESTORE ORIGIONAL REG1 CSBR1958 B 0(R4,R5) CSBR1959 ASEARCHC DC A(SEARCHC) CSBR1960 DROP 5 CSBR1961 D2314 EQU X'40' CSBR1962 IND EQU X'00' CSBR1963 COPY *FCBEQU CSBR1964 END CSBR1965 -FILE 53; 2027 RECORDS: 0OPEN TITLE 'SUBROUTINES OPEN, CLOSE, CREATE, DESTROY, CHKSUM' OPEN0001 CSOPEN START 0 OPEN0002 *********************************************************************** OPEN0003 * * OPEN0004 * SUBROUTINES OPEN, CLOSE, CREATE, DESTROY,SCRTCH OPEN0005 * CHKSUM,GETFCBB,FREFCBB OPEN0006 * * OPEN0007 *********************************************************************** OPEN0008 SPACE OPEN0009 * ENTRY POINTS AND EXTERNAL NAMES OPEN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> D2311 EQU X'00' OPEN2018 D2321 EQU X'80' OPEN2019 D2314 EQU X'40' OPEN2020 IND EQU X'00' OPEN2021 SEQ EQU X'10' OPEN2022 LNUM EQU X'08' OPEN2023 * OPEN2024 COPY *CATEQU OPEN2025 COPY *FCBEQU OPEN2026 END OPEN2027 -FILE 54; 1460 RECORDS: 0GETD TITLE 'SUBROUTINES GETDSK AND RELDSK' GDSK0001 SPACE 5 GDSK0002 CSGETD START 0 GDSK0003 SPACE GDSK0004 *********************************************************************** GDSK0005 * * GDSK0006 * SUBROUTINES GETDSK,RELDSK * GDSK0007 * * GDSK0008 *********************************************************************** GDSK0009 SPACE GDSK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * GDSK1451 * DSECT FOR PART OF RELDSK WHICH GETS A NEW TYPE 5 RECORD SET UP GDSK1452 * GDSK1453 DSCTA DSECT GDSK1454 DS 5D GDSK1455 T5SAV EQU DSCTA GDSK1456 NT5AD EQU DSCTA+16 GDSK1457 GTZWA EQU DSCTA+32 GDSK1458 * GDSK1459 END GDSK1460 -FILE 55; 303 RECORDS: 0GTZ TITLE 'GTZ - GET A TYPE ZERO RECORD FROM VTOC' GTZ00001 SPACE GTZ00002 CSGTZ START 0 GTZ00003 SPACE GTZ00004 *********************************************************************** GTZ00005 * * GTZ00006 * SUBROUTINE GTZ * GTZ00007 * * GTZ00008 *********************************************************************** GTZ00009 SPACE GTZ00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DTL EQU 128 GTZ00294 SPACE 2 GTZ00295 D2321 EQU X'80' GTZ00296 *********************************************************************** GTZ00297 * * GTZ00298 DS 4F A PATCHING TYPE AREA * GTZ00299 * * GTZ00300 *********************************************************************** GTZ00301 SPACE 2 GTZ00302 END GTZ00303 -FILE 56; 614 RECORDS: 0TRAK TITLE 'READT, WRITET, AND READR,WRITER SUBROUTINES' TRAK0001 *********************************************************************** TRAK0002 * * TRAK0003 * SUBROUTINES READT, READR, AND WRITET,WRITER TRAK0004 * * TRAK0005 *********************************************************************** TRAK0006 SPACE TRAK0007 CSTRAK START 0 TRAK0008 SPACE TRAK0009 * ENTRIES, EXTERNAL REFERENCES TRAK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRITG DC X'00' TRAK0605 EJECT TRAK0606 COPY *FCBEQU TRAK0607 SPACE TRAK0608 LOGRECW EQU 196 LOGICAL RECORD LAST WRITTEN TRAK0609 OFFSETW EQU 198 TRAK0610 LOGRECL EQU 200 LAST POINTER SEQ FILES TRAK0611 OFFSETL EQU 202 TRAK0612 EILEN EQU 211 LENGTH OF THE EXTENT INDEX TRAK0613 END TRAK0614 -FILE 57; 297 RECORDS: 0FLIN TITLE 'SUBROUTINE FLINE - FIND A LINE ENTRY' FLIN0001 SPACE 6 FLIN0002 *********************************************************************** FLIN0003 * * FLIN0004 * SUBROUTINE FLINE * FLIN0005 * * FLIN0006 *********************************************************************** FLIN0007 SPACE FLIN0008 *********************************************************************** FLIN0009 * * FLIN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE FLIN0288 *********************************************************************** FLIN0289 * * FLIN0290 * DEFINE A SAFE PATCHING AREA * FLIN0291 * * FLIN0292 DS 4F * FLIN0293 * * FLIN0294 *********************************************************************** FLIN0295 SPACE FLIN0296 END FLIN0297 -FILE 58; 1193 RECORDS: 0WRIT TITLE 'WRITE INDEXED SUBROUTINE' WRIT0001 SPACE 4 WRIT0002 *********************************************************************** WRIT0003 * * WRIT0004 * SUBROUTINE WRITEI- WRITE A LINE TO INDEXED FILE WRIT0005 * * WRIT0006 *********************************************************************** WRIT0007 SPACE WRIT0008 *********************************************************************** WRIT0009 * * WRIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE WRIT1184 *********************************************************************** WRIT1185 * * WRIT1186 * DEFINE A SAFE PATCHING AREA * WRIT1187 * * WRIT1188 DS 4F * WRIT1189 * * WRIT1190 *********************************************************************** WRIT1191 SPACE WRIT1192 END WRIT1193 -FILE 59; 352 RECORDS: 0READ TITLE 'SUBROUTINES READI AND READIS(INDEXED SEQUENTIAL)' READ0001 SPACE 3 READ0002 *********************************************************************** READ0003 * * READ0004 * SUBROUTINES READ AND READS(EQUENTIAL) * READ0005 * * READ0006 *********************************************************************** READ0007 SPACE READ0008 SPACE READ0009 SPACE READ0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE READ0343 *********************************************************************** READ0344 * * READ0345 * DEFINE A SAFE SCRATCH AREA * READ0346 * * READ0347 DS 5F * READ0348 * * READ0349 *********************************************************************** READ0350 SPACE READ0351 END READ0352 -FILE 60; 968 RECORDS: 0RWSE TITLE 'READ / WRITE ROUTINES FOR SEQUENTIALLY ORGANIZED FILES' RWSE0001 * RWSE0002 * READ LINE FROM SEQUENTIAL FILE RWSE0003 * RWSE0004 * R1 PARAMETER ADDRESS RWSE0005 * R13 SCRATCH AREA (56+READT=56+316=372) RWSE0006 * R14 RETURN REG RWSE0007 * R15 USING REG RWSE0008 * RWSE0009 * PARAMETER LIST RWSE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LOGRECW EQU 196 WRITE POINTER RWSE0959 OFFSETW EQU 198 RWSE0960 LOGRECL EQU 200 RWSE0961 OFFSETL EQU 202 RWSE0962 LASTNUM EQU 204 RWSE0963 MAXREC EQU 208 MAXIMUN RECORD SIZE ALL PREVIOUS WRITES RWSE0964 SEQORG EQU 210 RWSE0965 EILEN EQU 211 LENGTH OF THE EXTENT INDEX RWSE0966 COPY *FCBEQU RWSE0967 END RWSE0968 -FILE 61; 84 RECORDS: 0REDL TITLE 'READL - RETURN ADDRESS OF LAST LINE NUMBER' REDL0001 SPACE REDL0002 *********************************************************************** REDL0003 * * REDL0004 * SUBROUTINE READL - RETURN LAST LINE NUMBER * REDL0005 * * REDL0006 *********************************************************************** REDL0007 SPACE 2 REDL0008 *********************************************************************** REDL0009 * * REDL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ST R1,4(,RD) REDL0075 LA R1,0 REDL0076 B OUT REDL0077 * REDL0078 FLINEA DC A(FLINE) REDL0079 LLN DC X'7FFFFFFD' REDL0080 LASTNUM EQU 204 REDL0081 COPY *FCBEQU REDL0082 SPACE REDL0083 END REDL0084 -FILE 62; 79 RECORDS: 0MOVE TITLE 'SUBROUTINE TO MOVE ARBITRARY LENGTH STRINGS' MOVE0001 SPACE MOVE0002 *********************************************************************** MOVE0003 * * MOVE0004 * SUBROUTINE 'MOVIT' * MOVE0005 * * MOVE0006 *********************************************************************** MOVE0007 SPACE MOVE0008 *********************************************************************** MOVE0009 * * MOVE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> S R7,MOVITH DROP 'TO BE MOVED' COUNT MOVE0070 B MOVITG AND RUN THROUGH AGAIN MOVE0071 SPACE MOVE0072 MOVITC MVC 0(0,R9),0(R8) EXECUTED TO DO ODD PART OF MOVE MOVE0073 SPACE MOVE0074 MOVITA DC F'256' MAXIMUM MOVE IN ONE INSTRUCTION MOVE0075 MOVITE DC F'1' ACCOUNTING CONSTANT FOR MOVE FORMAT MOVE0076 MOVITH DC F'4' LENGTH OF FORWARD MOVE BLOCKS MOVE0077 SPACE MOVE0078 END MOVE0079 -FILE 63; 1087 RECORDS: 0VTOC TITLE 'VOLREL,VOLGET,VTOCS AND DSKOP SUBROUTINES' VTOC0001 SPACE VTOC0002 ********************************************************************-** VTOC0003 * * VTOC0004 * SUBROUTINES VOLREL, VOLGET, VTOCS, DSKOP * VTOC0005 * * VTOC0006 *********************************************************************** VTOC0007 SPACE VTOC0008 CSVTOC START 0 VTOC0009 SPACE VTOC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE VTOC1078 *********************************************************************** VTOC1079 * * VTOC1080 * DEFINE A SAFE PATCHING AREA * VTOC1081 * * VTOC1082 DS 4F * VTOC1083 * * VTOC1084 *********************************************************************** VTOC1085 SPACE VTOC1086 END VTOC1087 -FILE 64; 279 RECORDS: 0BDCS TITLE 'BROADCAST JOB -- SEND MESSAGE TO ACTIVE MTS JOBS' BDCS0001 BROADCST START 0 BDCS0002 ENTRY MESSAGE BDCS0003 SPACE 2 BDCS0004 DC A(BDCS1) ENTRY POINT BDCS0005 DC H'0' NO DEVICES BDCS0006 DC H'1' ONE BUFFER BDCS0007 DC A(BUFL) BUFFER LENGTH BDCS0008 SPACE 2 BDCS0009 PRINT OFF BDCS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 2 BDCS0270 JBUF DSECT BDCS0271 SPACE BDCS0272 CCW DS D DOUBLE WORD FOR CCW CONSTRUCTION BDCS0273 SW DS CL1 SWITCHES BDCS0274 BUFFER DS CL100 ERROR MESSAGE BUFFER BDCS0275 EOBUF DS H,CL79 BUFFER FOR ECHOING MSG TO DATA CONC BDCS0276 BUFL EQU *-JBUF BDCS0277 SPACE 4 BDCS0278 END BDCS0279 -FILE 65; 348 RECORDS: 0TASK TITLE 'TASKS -- RE-ENTRANT JOB TO IDENTIFY ACTIVE JOBS' TSKS0001 TASKS START 0 TSKS0002 ENTRY TSKFMT TSKS0003 SPACE 2 TSKS0004 DC A(TASK1) TSKS0005 DC H'0' NO DEVICES TSKS0006 DC H'1' ONE BUFFER OF 190 BYTES TSKS0007 DC F'190' TSKS0008 * BYTE ASSIGNMENT TSKS0009 * 0-7 FAKE PAR AREA (MUST BE FIRST) TSKS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' BEING USED' TSKS0339 LHEADER EQU *-HEADER TSKS0340 FILL DC C': F' TSKS0341 FAKEF EQU FILL+1 TSKS0342 HEXTRA EQU *-240 TSKS0343 DC C'0123456789ABCDEF' TSKS0344 SPACE 2 TSKS0345 LTORG TSKS0346 SPACE 2 TSKS0347 END TSKS0348 -FILE 66; 516 RECORDS: 0********************************************************************* KWIC0001 * * KWIC0002 * K W I C -- KEYWORD SCANNER * KWIC0003 * * KWIC0004 * SELF-ADDRESSABLE * KWIC0005 * * KWIC0006 * ENTRY: GR0 = LENGTH OF LEFT-HAND TABLE * KWIC0007 * GR1 = LOCATION OF LEFT-HAND TABLE * KWIC0008 * GR2 = LOCATION OF EXECUTE TABLE * KWIC0009 * SCA = LOCATION OF TEXT KWIC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * COPY MTS.CONTAB KWIC0507 * COPY MTS.DSECT KWIC0508 COPY *LLMPSEQU(100) KWIC0509 COPY MTS.EQU KWIC0510 EJECT KWIC0511 DUMMY DSECT KWIC0512 COPY MTS.CONTAB KWIC0513 COPY MTS.DSECT KWIC0514 PRINT ON KWIC0515 END KWIC0516 -FILE 67; 835 RECORDS: 0GSFS TITLE 'STORAGE ALLOCATION FOR MTS.' GSFS0001 MACRO GSFS0002 &LAB HWIMB &N,&R=4 GSFS0003 &LAB L &R,LASTJBA GSFS0004 L &R,0(0,&R) GSFS0005 L &R,RJBBUF(0,&R) GSFS0006 MEND GSFS0007 * GSFS0008 MACRO GSFS0009 &LAB GTBUF GSFS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * MTS.DSECT GSFS0826 PRINT OFF GSFS0827 COPY *LLMPSEQU(100) GSFS0828 COPY MTS.EQU GSFS0829 DUMMY DSECT , DOWN THE DRAIN GSFS0830 COPY MTS.CONTAB GSFS0831 COPY MTS.DSECT GSFS0832 PRINT ON GSFS0833 DSCTL EQU (LASTDSCT-DSCT+7)/8*8 GSFS0834 END GSFS0835 -FILE 68; 315 RECORDS: 0INFO TITLE 'PROGRAM TO GET AND CHANGE USER INFORMATION' INFO0001 SPACE 5 INFO0002 MACRO INFO0003 &SL ITEM &NAME,&XNAME,&INDEX,&TYPE=4,&MASK=255,&SHIFT=0,&CHANGE=0XINFO0004 ,&BIT= INFO0005 GBLA &IX INFO0006 LCLC &M INFO0007 LCLA &S,&T INFO0008 .L3 ANOP INFO0009 &IX SETA &IX+1 INFO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ITEM SODREADS,SODRMRDS,150 INFO0306 ITEM STALST,LASTSOT,152,TYPE=20 INFO0307 TABLEND EQU * INFO0308 SPACE 2 INFO0309 PRINT GEN INFO0310 EJECT INFO0311 JUNK DSECT INFO0312 COPY MTS.CONTAB INFO0313 COPY MTS.DSECT INFO0314 END INFO0315 -FILE 69; 110 RECORDS: 0PLIM TITLE ' LOCAL AND GLOBAL PAGE AND CARD LIMIT TESTS.' PLIM0001 PLIMIT START 0 PLIM0002 USING *,15 PLIM0003 USING DSCT,4 PLIM0004 ********************************************************************** PLIM0005 * * PLIM0006 * PLIMIT: INCREMENT AND TEST USER INFORMATION * PLIM0007 * * PLIM0008 * ENTRY: GR1=0 FOR PAGE LIMIT TEST * PLIM0009 * GR1=4 FOR CARD LIMIT TEST * PLIM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * PLIM0101 DUMMY DSECT , THROW AWAY THIS JUNK PLIM0102 SPACE PLIM0103 * COPY MTS.CONTAB PLIM0104 * COPY MTS.DSECT PLIM0105 PRINT OFF PLIM0106 COPY MTS.CONTAB PLIM0107 COPY MTS.DSECT PLIM0108 PRINT ON PLIM0109 END PLIM0110 -FILE 70; 300 RECORDS: 0STDD TITLE 'SUBROUTINE TO PRODUCE STANDARD FORMAT DUMP' STDD0001 STDDMP CSECT STDD0002 SPACE 5 STDD0003 * CALLING SEQUENCE IS: STDD0004 * STANDARD OS S TYPE WITH 5 PARAMETERS: STDD0005 * PAR 1: LOC OF FULL WORD OF SWITCHES STDD0006 * FIRST HALF WORD IS STORAGE INEX # STDD0007 * BIT 28 INDICATES DBL SPACE IF ON STDD0008 * OTHER BITS IGNORED STDD0009 * PAR 2: LOCATION OF OUTPUT ROUTINE CALLED STDD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OUTPAR DS 4A PARS FOR CALLING OUTSUB STDD0291 SCR DS XL8 GENERAL SCRATCH STDD0292 LASTWORD DS XL4 LAST WORD ON PREV LINE STDD0293 PRSV DS A SAVE AREA FOR PRINT STDD0294 OUT DS CL133 OUTPUT AREA STDD0295 SW DS X MY SWITCHES STDD0296 NOTSAME EQU X'80' ON IF THIS LINE NOT SAME AS LAST STDD0297 DOTSW EQU X'40' NO IF DOTS NEEDED STDD0298 * STDD0299 END STDD0300 -FILE 71; 743 RECORDS: 0LLXU TITLE 'MTS SUBROUTINES LINK, LOAD, XCTL, UNLOAD, LOADINFO' LLXU0001 MACRO LLXU0002 &SL FMSG &LNR,&LBL,&TYPE=B LLXU0003 AIF (K'&LBL EQ 0).L1 LLXU0004 &SL L 1,=V(FMSGRTN&TYPE) LLXU0005 BALR 1,1 LLXU0006 DC AL2(&LNR) LLXU0007 AIF ('&LBL' EQ '*').L2 LLXU0008 B &LBL LLXU0009 .L2 MEXIT LLXU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * COPY MTS.DSECT LLXU0734 SPACE 2 LLXU0735 PRINT OFF LLXU0736 COPY *LLMPSEQU(100) LLXU0737 COPY MTS.EQU LLXU0738 COPY MTS.CONTAB LLXU0739 COPY MTS.DSECT LLXU0740 PRINT ON LLXU0741 SPACE 1 LLXU0742 END LLXU0743 -FILE 72; 101 RECORDS: 0CHKS TITLE 'SUBROUTINE TO VERIFY THE DSECT' CHKS0001 SPACE 5 CHKS0002 * NO PARAMETERS ARE REQUIRED CHKS0003 * CHKS0004 * CLOBBERS GR0,1,2,3,SCA,B,C,D CHKS0005 * CHKS0006 * IF THERE IS SOMETHING SERIOUSLY WRONG WITH THE DSECT IT CHKS0007 * WILL GO EITHER TO OOPS OR INLOOP (WITH OFFBIT SET). CHKS0008 * IF SOMETHING LESS SERIOUS IS WRONG IT WILL SET THE CHKS0009 * CONDITION CODE NON-ZERO AND RETURN. A SECOND CALL WILL CHKS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * MTS.DSECT CHKS0092 * CHKS0093 PRINT OFF CHKS0094 COPY *LLMPSEQU(100) CHKS0095 COPY MTS.EQU CHKS0096 DUMMY DSECT CHKS0097 COPY MTS.CONTAB CHKS0098 COPY MTS.DSECT CHKS0099 PRINT ON CHKS0100 END CHKS0101 -FILE 73; 11116 RECORDS: 0MTS TITLE ' UMMPS TERMINAL SYSTEM ' MTS00001 MACRO MTS00002 &SL CMSG &MSG,&LBL,&TYPE=B MTS00003 GBLA &CNT MTS00004 &CNT SETA &CNT+K'&MSG COUNT NUMBER OF CHARACTERS IN MESSAG MTS00005 .L3 ANOP MTS00006 AIF (K'&LBL EQ 0).L1 MTS00007 &SL BAL 1,CMSGRTN&TYPE MTS00008 BC A,&LBL MTS00009 AGO .L2 MTS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 2 MTS11107 MTS CSECT , PUT IN COMMON BASE CSECT MTS11108 SPACE 2 MTS11109 LTORG MTS11110 EJECT MTS11111 DUMMY DSECT MTS11112 COPY MTS.RHTABLE MTS11113 COPY MTS.DSECT MTS11114 TOTAL MTS11115 END MTS11116 -FILE 74; 4486 RECORDS: 0$RUN *MOUNT PAR=POOL ON 9TP *NEWMASTER* 'RING IN' $RUN *MOUNT PAR=S439 ON 9TP, *MASTER* 'MTS MASTER4 - RING OUT' $RUN *UPDATE %INPUT *MASTER* 50 %OUTPUT *NEWMASTER* 50 %NEWID MTS00001 %DELETE MTS00002,MTS00019 %AFTER MTS00103 SPACE 3 MACRO >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %REW *NEWMASTER* %END $RUN *DISMOUNT PAR=*MASTER* $RUN *MOUNT PAR=S444 ON 9TP, *LIST* RING=IN 'MTS LISTING TAPE 3' $CRE -SYSUT1 SIZE=100T LOC=DATACELL $CRE -SYSUT2 SIZE=100T LOC=DATACELL $CRE -SYSUT3 SIZE=100T LOC=DATACELL $REL $RUN *ASMG SCARDS=*NEWMASTER* SPRINT=*LIST* 0=*SYSMAC PAR=FX,RLD,SIZE=150,IBLK=- 50,OBLK=50 -FILE 75; 149 RECORDS: 0LCSY TITLE 'LOW CORE SYMBOL DEFINITION' LCSY0001 MACRO LCSY0002 ESDD &SYM,&ENAME LCSY0003 DC CL8'&SYM' LCSY0004 AIF (T'&ENAME EQ 'O').A LCSY0005 DC V(&ENAME) LCSY0006 MEXIT LCSY0007 .A DC V(&SYM) LCSY0008 MEND LCSY0009 SPACE 3 LCSY0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ESDD RERUN LCSY0140 ESDD CATBEG LCSY0141 ESDD MICAT LCSY0142 ESDD SFCAT LCSY0143 ESDD SYSCAT LCSY0144 ESDD STDDMP LCSY0145 ESDD GUINFO LCSY0146 ESDD CUINFO LCSY0147 ENDESD EQU * LCSY0148 END LCSY0149 -FILE 76; 188 RECORDS: 0JOBS TITLE 'UMMPS JOB TO DISPLAY ACTIVE MTS JOBS ON A 2260' JOBS0001 SPACE 5 JOBS0002 * DAVID A. TWYVER JOBS0003 * UNIVERSITY OF BRITISH COLUMBIA JOBS0004 * MARCH 1969 JOBS0005 SPACE 5 JOBS0006 JOBS START 0 JOBS0007 ENTRY JOBSFMT FOR *JOBS JOBS0008 * JOB HEADER JOBS0009 DC A(JOBEGIN) ENTRY POINT JOBS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PSECTL EQU *-PSECT JOBS0179 SPACE 3 JOBS0180 ENTRY DSECT JOBS0181 ID DS 4C JOBS0182 JOB# DS 5C JOBS0183 PGS DS 4C JOBS0184 TIME DS 4C JOBS0185 DEV1 DS 5C JOBS0186 DEV2 DS 4C JOBS0187 END JOBS0188 -FILE 77; 76 RECORDS: 0IOST TITLE 'I/O INTERFACE STATISTICS SUBROUTINE' STSB0001 * STSB0002 * STATISTICS SUBROUTINE FOR I/O INTERFACE STSB0003 * STSB0004 STATSUB START 0 STSB0005 USING STATSUB,15 STSB0006 B ENTER-STATSUB(15) BRANCH TO PREFIX DUMP ROUTINE STSB0007 LA 8,X'F8' POSTFIX ENTRANCE STSB0008 PROCEED LR 6,0 SAVE THE FDUB ADDRESS STSB0009 TM FDUBS(6),X'80' CHECK FOR DEVICE I/O STSB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B AGAIN NOW CONTINUE STSB0067 * STSB0068 ONES EQU 1 CONDITION CODE ALL ONES STSB0069 EQL EQU 8 CONDITION CODE EQUAL STSB0070 * STSB0071 FDUBS EQU 0 SWITCHES DISPLACEMENT IN FDUB STSB0072 FDUBLN EQU 4 LDN DISPLACEMENT IN FDUB STSB0073 * STSB0074 STATENT EQU 44 PLACE ITEM IN STAT BUFFER SVC STSB0075 END STSB0076 -FILE 78; 35 RECORDS: 0INIT TITLE 'JOB TO INITIALIZE SYSTEM' INIT0001 * THE FOLOWING IS A JOB TO FINISH INITIALIZATION INIT0002 SPACE INIT0003 INITJE START 0 INIT0004 DC A(*+12),H'0,1',F'3900' INIT0005 USING *,12 INIT0006 LR 12,15 SET UP BASE INIT0007 L 13,0(0,1) LOC OF SCRATCH FOR GARY INIT0008 SVC 28 GET TIME INIT0009 STM 0,1,TDTE PRINT IT INIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SVC 7 INIT0026 SVC 6 INIT0027 ERRM DC C'ERROR IN CATALOG INITIALIZATION - DON''T RUN MTS****' INIT0028 DS 0F INIT0029 TDEC DC CL32'TIME AND DATE HAVE BEEN SET TO' INIT0030 TDTE DC CL12' ' INIT0031 TDDE DC CL8' ' INIT0032 TDECL EQU *-TDEC INIT0033 RESMTS DC C'MTS *INI T,,,' INIT0034 END INIT0035 -FILE 79; 107 RECORDS: 0IPLC TITLE 'ABSOLUTE BOOTSTRAP LOADER FOR LLMPS WRITER' IPLB0001 SPACE 2 IPLB0002 *********************************************************************** IPLB0003 * IPLB0004 * THEN 1) THROW AWAY FIRST CARD IN OBJECT DECK IPLB0005 * 2) MOVE BOOTSTRAP LOAD INFORMATION OF SECOND CARD IPLB0006 * (COL 17-40) INTO NEW CARD (IPL),(COL 1-24) IPLB0007 * 3) THROW AWAY ORIGINAL SECOND CARD AND RLD CARDS IPLB0008 * IPLB0009 * DECK 1) IPL CARD IPLB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ABOVE 5 CARDS READ BY IPL PROCEDURE IPLB0098 SPACE IPLB0099 REPLAS DC X'1F1F1F1F' IPLB0100 REPLAT DC X'000A0B0C0D0E0F00' IPLB0101 DC X'0000000000000000' IPLB0102 DC X'0001020304050607' IPLB0103 DC X'0809' IPLB0104 DATAL DC F'0' IPLB0105 SPACE IPLB0106 END IPLB0107 -FILE 80; 456 RECORDS: 0IPL TITLE 'IPL PROGRAM - LLMPS TO DISK AND BACK' IPL00001 SPACE 10 IPL00002 *XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* IPL00003 *XXX XXX* IPL00004 *XXX IPL PROGRAM FOR READING AND WRITING LLMPS XXX* IPL00005 *XXX XXX* IPL00006 *XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX* IPL00007 SPACE 3 IPL00008 *********************************************************************** IPL00009 * * IPL00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' ON DRIVE ' IPL00447 EM4B DC 5C' ' IPL00448 EM4L EQU *-EM4 IPL00449 SPACE IPL00450 SPACE IPL00451 ENDW EQU * END OF PROGRAM ADDRESS GENERATOR IPL00452 SPACE IPL00453 * *** CODE MAY NOT GO BEYOND HEX '51A' (LOADER IS THERE) IPL00454 SPACE IPL00455 END WRITE GO TO WRITE SECTION ON TERMINATE IPL00456 -FILE 81; 2975 RECORDS: 0********************************************************************** TSFO0001 * * TSFO0002 * * TSFO0003 * MTS TERMINAL ROUTINES FOR: * TSFO0004 * 1. TELETYPES (MODEL 33 AND MODEL 35) * TSFO0005 * 2. IBM 2741 * TSFO0006 * 3. IBM 1050 (INCLUDING CARD READER) * TSFO0007 * 4. FRIDEN FLEXOWRITER * TSFO0008 * * TSFO0009 * * TSFO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRUCCW EQU * TSFO2966 PSTCCW DS (PSTCCWL/8)D TSFO2967 WRTCCW DS 3D TSFO2968 WRITCCW DS (WRITCCWL/8)D TSFO2969 SNSCCW DS (SNSCCWL/8)D TSFO2970 NEWCCW DS 2D TSFO2971 RTNLST DS (RTNLSTL/4)F TSFO2972 TABCHAR DS C TSFO2973 PSECTL EQU *-PSCT TSFO2974 END TSFO2975 -FILE 82; 1214 RECORDS: 0PDSR TITLE '2250 DEVICE SUPPORT ROUTINES' R2250001 MACRO R2250002 &NAME IOREQ &CCW R2250003 &NAME L 0,DEVICE R2250004 LA 1,&CCW R2250005 LA 2,RTNL R2250006 SVC STIO R2250007 SVC WAIT R2250008 MEND R2250009 CSECT R2250010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PTABPT DC F'-8' PRIMARY TABLE POINTER (# OF PAGES) R2251205 SAVEREG1 DS F REG 1 POINTS TO CALLING PARAMETERS R2251206 REG2SAVE DS F REG 2 POINTS TO RELEASE PARS R2251207 CURLINE DS H CURRENT LINE NUMBER R2251208 LENGTH DS H TEMP STORAGE FOR LGTH OF LINEOUT & LINEIN R2251209 CURDISP DS H CURRENT DISPLACEMENT R2251210 STABPT DS H SECONDARY TABLE POINTER (# OF LINES) R2251211 LINENO DS H LINE # IN LINEIN R2251212 DISP DS H DISPLACEMENT IN LINE IN R2251213 END R2251214 -FILE 83; 1030 RECORDS: 0ARURTN CSECT ARUR0001 ARU TITLE '****MTS REENTERABLE DEVICE SUPPORT FOR THE ARU****' ARUR0002 DC A(ARINIT,ARDITCH,ARGET,ARPUT,ARSETATN,ARWAIT,ARDITCH) ARUR0003 SPACE 2 ARUR0004 USING FDUB,R8 ARUR0005 USING *,R15 ARUR0006 ARINIT B ARUPS ARUR0007 B *+8 ARUR0008 B ARRTRN+4 ARUR0009 LR R12,R1 **GET SPACE FOR THE PSECT, ARUR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LMSGE2 EQU *-(MSGE2+1) ARUR1021 VOCTAB1 DC X'000000000000000000FFFFFFFFFFFF' ARUR1022 DC X'01000000000000000000010101010101' ARUR1023 DC X'0101000000000000000001010101010100' ARUR1024 RTAB1 DC X'0000000000000000000D05080BFFFFFF' ARUR1025 DC X'00030609010000000004070A0C000000' ARUR1026 SPAUSE EQU VOCTAB1 ARUR1027 LSPAUSE EQU 6 ARUR1028 COPY ARUDEF ARUR1029 END ARURTN ARUR1030 -FILE 84; 168 RECORDS: 0 EJECT ARUC0001 ****************** MTS FILE DEVICE USAGE BLOCK ************************ ARUC0002 FDUB DSECT ARUC0003 FDUBS DS F SWITCHES ARUC0004 FDUBLN DS F LDN ARUC0005 SPACE 2 ARUC0006 STACK DSECT ARUC0007 DS 2F FORWARD AND BACK CHAINS ARUC0008 STACKX DS H INDEX TO MAPPINGS ARUC0009 STACKM DS 2C MAPPINGS ARUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GCCWAD EQU 25 ARUC0159 PROTON EQU 26 ARUC0160 PCISU EQU 31 ARUC0161 PCIPOP EQU 32 ARUC0162 PROOFF EQU 34 ARUC0163 WAYT EQU 35 ARUC0164 SETXIT EQU 36 ARUC0165 HALTIO EQU 37 ARUC0166 ENDXIT EQU 39 ARUC0167 XITPOP EQU 42 ARUC0168 -FILE 85; 70 RECORDS: 0 MACRO DMAC0001 &NAME SVE &AREA DMAC0002 &NAME STM 14,12,12(13) DMAC0003 LA 14,0(0,13) DMAC0004 BAS 13,84(0,15) DMAC0005 USING *,13 DMAC0006 &AREA.SA DS 18F DMAC0007 ST 14,&AREA.SA+4 DMAC0008 ST 13,8(0,14) DMAC0009 MEND DMAC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CVD R2,SSCR+16 DMAC0061 ED PTRN(48),SSCR DMAC0062 LA R1,MPTRN DMAC0063 LA R14,ETIME DMAC0064 B WMSG DMAC0065 TIME DS 3F DMAC0066 MPTRN DC H'48' DMAC0067 PTRN DC C' ',13X'20',X'212022',13X'20',X'212022',13X'20',X'2120' DMAC0068 ETIME DS 0H DMAC0069 MEND DMAC0070 -FILE 86; 488 RECORDS: 0CRDR TITLE 'MTS 2501 SUPPORT ROUTINES (NON-RESIDENT) --- VERSION @TFOO0001 1 OCTOBER 1968' TFOO0002 MACRO TFOO0003 &SLB ERMSG &WHAT,&RC TFOO0004 LCLA &LNG TFOO0005 &LNG SETA K'&WHAT-2 TFOO0006 &SLB STM R2,R4,ERMSGSA SAVE REGISTERS FOR POP TFOO0007 BAL R3,ERMSG SUBROUTINE TO PROCESS THEM TFOO0008 DC AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE TFOO0009 SPACE 1 TFOO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NUMBER TFOO0479 FDUBEL DS F NOT PERTINENT TFOO0480 FDUBIL DS F INCREMENT TFOO0481 FDUBSR DS F SUBROUTINE LOCATION TFOO0482 FDUBSCR DS F SCRATCH TFOO0483 FDUBNAM DS F BACK POINTER TO WHO'S USING IT TFOO0484 FDUBDS DS F DEFAULT SWITCHES TFOO0485 FDUBCH DS F NOT PERTINENT TFOO0486 EJECT TFOO0487 END CRDR TFOO0488 -FILE 87; 82 RECORDS: 0BNEB TITLE 'SUBROUTINE TO CONVERT BINARY READ CARDS TO EBCD' BBCD0001 BINEBCD START 0 BBCD0002 USING *,15 BBCD0003 BIN EQU 1 POINTER TO BINARY IMAGE BBCD0004 EBCD EQU 2 POINTER TO EBCD IMAGE BBCD0005 MVC 0(80,EBCD),SCRMBL REARRANGE FIRST 40 BBCD0006 TR 0(80,EBCD),0(BIN) BBCD0007 MVC 0(80,BIN),SCRMBL REARRANGE LAST 40 BBCD0008 TR 0(80,BIN),80(BIN) BBCD0009 TR 0(40,EBCD),TOPTAB BBCD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'48CBCA00CFCECDCC' B8 BBCD0073 DC X'6A93929197969594' C0 BBCD0074 DC X'9953525157565554' C8 BBCD0075 DC X'989B9A909F9E9D9C' D0 BBCD0076 DC X'58DBDA10DFDEDDDC' D8 BBCD0077 DC X'70B3B2B1B7B6B5B4' E0 BBCD0078 DC X'B973727177767574' E8 BBCD0079 DC X'B8BBBAB0BFBEBDBC' F0 BBCD0080 DC X'78FBFA30FFFEFDFC' F8 BBCD0081 END BBCD0082 -FILE 88; 687 RECORDS: 0PTPR TITLE 'M T S PAPER TAPE READER ROUTINES (EC319)' MACRO RDR00003 &SLB ERMSG &WHAT,&RC RDR00004 LCLA &LNG,&LNG4,&LNG16 RDR00005 &LNG SETA K'&WHAT-1 RDR00006 &LNG4 SETA &LNG+4 RDR00007 &LNG16 SETA &LNG+16 RDR00008 &SLB OI FDUBS,DSRERR RDR00009 MVC PAD(&LNG),*+54 THE MESSAGE RDR00010 BAL RE,GETPNAME RDR00011 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NUMBER RDR00614 FDUBEL DS F NOT PERTINENT RDR00615 FDUBIL DS F INCREMENT RDR00616 FDUBSR DS F SUBROUTINE LOCATION RDR00617 FDUBSCR DS F SCRATCH RDR00618 FDUBNAM DS F BACK POINTER TO WHO'S USING IT RDR00619 FDUBDS DS F DEFAULT SWITCHES RDR00620 FDUBCH DS F NOT PERTINENT RDR00621 EJECT RDR00622 END -FILE 89; 152 RECORDS: 0%DELETE RDR00001 RDR00002 PTPR TITLE 'M T S PAPER TAPE READER ROUTINES (EC319)' %DELETE RDR00034 PTPRRTN START 0 %AFTER RDR00094 BASEGR EQU R5 %AFT RDR00153 UEPENDNG EQU X'80' GIVE RC=4 NEXT TIME THROUGH %DELETE RDR00257 USING BASEBASE,BASEGR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EORCHK CLC 0(0,RC),EORCHRS %AFTER RDR00599 HARDEOR DS C EORCHRS DS CL8 EORLNG DS H %AFTER RDR00601 UNPKBYTE EQU PAD %DELETE RDR00623 END %BEFORE FILEMARK -FILE 90; 693 RECORDS: 0SDMP TITLE 'MTS DUMP SUBROUTINE' SDMP0001 SDUMP START 0 SDMP0002 ENTRY SDMP SDMP0003 ENTRY MTSDMP SDMP0004 GR0 EQU 0 SDMP0005 GR1 EQU 1 SDMP0006 GR2 EQU 2 SDMP0007 GR3 EQU 3 SDMP0008 GR4 EQU 4 SDMP0009 GR5 EQU 5 SDMP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FORMAT DS H SDMP0684 CBPPI DS H SDMP0685 GLPPI DS H SDMP0686 PIPPL DS H SDMP0687 CBPPL DS H SDMP0688 LDOTS DS H SDMP0689 LINE DS CL136 DON'T SHORTEN THIS....... SDMP0690 CCCHAR DS C SDMP0691 CLFSWS DS C SDMP0692 END SDMP0693 -FILE 91; 19 RECORDS: 0CASECONV START 0 CASE0001 CASE TITLE ' UPPERCASE CONVERSION TRANSLATE TABLE ' CASE0002 DC X'000102030405060708090A0B0C0D0E0F' 00...0F CASE0003 DC X'101112131415161718191A1B1C1D1E1F' 10...1F CASE0004 DC X'202122232425262728292A2B2C2D2E2F' 20...2F CASE0005 DC X'303132333435363738393A3B3C3D3E3F' 30...3F CASE0006 DC X'404142434445464748494A4B4C4D4E4F' 40...4F CASE0007 DC X'505152535455565758595A5B5C5D5E5F' 50...5F CASE0008 DC X'606162636465666768696A6B6C6D6E6F' 60...6F CASE0009 DC X'707172737475767778797A7B7C7D7E7F' 70...7F CASE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' 80...8F CASE0011 DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' 90...9F CASE0012 DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' A0...AF CASE0013 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' B0...BF CASE0014 DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' C0...CF CASE0015 DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' D0...DF CASE0016 DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' E0...EF CASE0017 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' F0...FF CASE0018 END CASE0019 -FILE 92; 1685 RECORDS: 0PDP8 TITLE ' M T S DATA CONCENTRATOR ROUTINES (MODEL AN160)' PDP80001 SPACE 15 PDP80002 ********************************************************************** PDP80003 * * PDP80004 * * PDP80005 * M T S DATA CONCENTRATOR DEVICE SUPPORT ROUTINES * PDP80006 * * PDP80007 * * PDP80008 ********************************************************************** PDP80009 EJECT PDP80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NO. PDP81676 FDUBEL DS F ENDING LINE NO. PDP81677 FDUBIL DS F INCREMENT PDP81678 FDUBSBR DS F SUBR LOC PDP81679 FDUBSCR DS F SCRATCH (SEQ PNTR) PDP81680 FDUBNAM DS F PTR TO WHO IS USING THIS FDUB PDP81681 FDUBDS DS F DEFAULT SWITCHES PDP81682 FDUBCH DS F CHAIN (FOR CONCAT FILES) PDP81683 EJECT PDP81684 END PDP81685 -FILE 93; 4262 RECORDS: 0********************************************************************** SDA00001 * * SDA00002 * * SDA00003 * MTS DEVICE SUPPORT ROUTINES FOR IBM 2701 AND 2703 SDA-2 * SDA00004 * SYNCHRONOUS DATA ADAPTERS. THESE ROUTINES SUPPORT RJE * SDA00005 * STATIONS USING BINARY SYNCHRONOUS COMMUNICATIONS. * SDA00006 * STATIONS SUPPORTED INCLUDE IBM 2780, IBM 1130, AND 360/20 * SDA00007 * * SDA00008 * * SDA00009 ********************************************************************** SDA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRINCCW DS (WRINCCWL/8)D SDA04253 WRITCCW DS (WRITCCWL/8)D SDA04254 RDINCCW DS (RDINCCWL/8)D SDA04255 ACKCCW DS (ACKCCWL/8)D SDA04256 RTNLST DS (RTNLSTL/4)F SDA04257 CCCHAR DS C SDA04258 DUMPCODE DS C SDA04259 TABSAVE DS 16F SDA04260 PSECTL EQU *-PSCT SDA04261 END SDA04262 -FILE 94; 1970 RECORDS: 0BSCA TITLE ' MTS BINARY SYNCHRONOUS ROUTINES FOR 360/20 ' M2000001 START 0 M2000002 FRONT EQU * M2000003 ORG *+156 M2000004 ********************************************************************** M2000005 ********************************************************************** M2000006 ** ** M2000007 ** ** M2000008 ** MTS ROUTINES FOR REMOTE BSC 360/20 STATIONS ** M2000009 ** ** M2000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COMBUF1 DS CL(COMBUFL) M2001961 DS 0H M2001962 COMBUF2 DS CL(COMBUFL) M2001963 SPACE M2001964 BUFFL EQU *-BUFFERS M2001965 SPACE 3 M2001966 BUFFEND DS H M2001967 LAST EQU * M2001968 DROP GR8 M2001969 END BEGIN M2001970 -FILE 95; 105 RECORDS: 00KK KKuKįĢm K^}&$9K 0 ^^<^^}&$^^K^.^э^8  TXT  ^(\}&^^}n'0nNnX^-{{ 0002 TXT   {^K0({^}^*.}^am{ 0oamnE^ {^ 0003 TXT 0 (\^B0 n,^⾌0^hn ^ n  0004 TXT  (\^BK0↍0^h ^ ^knF^K 0005 TXT -  K ⾶܌^^^2 0006 TXT q Jw} }} }okm}k % 0007 ESD   0 BSCA0001 TXT Km0hKm^BSCA0002 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD  ^ Y   K M O Q BSCA0088 RLD  \ S U W Y h BSCA0089 RLD   k m o q   s    BSCA0090 RLD  >    : @ =  f h  kBSCA0091 RLD  m o q   s u S U W Y BSCA0092 RLD   0 4 6 8       BSCA0093 RLD             BSCA0094 RLD             BSCA0095 RLD     BSCA0096 END  DATE 01-23-70 21:14 BSCA0097 -FILE 96; 2781 RECORDS: 0// JOB 4 R1130001 *EQUAT(SCRDS,READ1),(CRDEB,HLEBM) R1130002 *EQUAT(SPRNT,PRNTS),(EBPRN,EBCPN) R1130003 *EQUAT(SPNCH,PNCH1),(EBPNC,EBHOL) R1130004 *EQUAT(STYPE,TYPE0),(EBTYP,EBCCP) R1130005 // * BELOW IS A TABLE GIVING THE DUMMY I/O SUBROUTINE AND R1130006 // * CONVERSION TABLE NAMES USED IN THIS PROGRAM. IN THE LAST R1130007 // * TWO COLUMNS APPEAR THE NAMES OF ROUTINES AND TABLES WHICH R1130008 // * WOULD BE USED VIA '*EQUAT' RECORDS IN TWO COMMON R1130009 // * CONFIGURATIONS. R1130010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $$ID EQU *+1 POINTER TO DEV. ID. RECORD R1132772 CALL DEVID LOADER WILL PUT POINTER IN R1132773 SCPAR DC SCATR POINTER TO ERRTN. R1132774 DC 2 NORMAL RETRY COUNT R1132775 SPPAR DC SCATR ERRAD R1132776 DC 1 RETRY COUNT WHEN NAK EXPEC R1132777 END AGN R1132778 // DUP R1132779 *DELETE RNORM R1132780 *STORE WS UA RNORM R1132781 -FILE 97; 1707 RECORDS: 0// EJECT S1130001 // ASM S1130002 *LIST S1130003 *PRINT SYMBOL TABLE S1130004 *LEVEL 1 S1130005 HDNG SCATM PROLOGUE 4-4************* S1130006 * TITLE - SCATM 4-4**************** S1130007 *************************************************** S1130008 * STATUS - CHANGE LEVEL 4 * S1130009 * FUNCTION/OPERATION - SCAT2 CAN PERFORM THE * S1130010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LD 1 BUF-T GET AGAIN S1131698 SRA 8 S1131699 OR 1 PAD-T PUT IN INDICATOR S1131700 CALL IOLOG LOG CHAR. S1131701 B L DSCRD GET OUT S1131702 SYNPD DC /CD00 SYN AMD PAD EORED S1131703 END S1131704 // DUP S1131705 *DELETE SCATM S1131706 *STORE WS UA SCATM S1131707 -FILE 98; 48 RECORDS: 0BDEV TITLE 'SUBROUTINE TO BLAST A DEVICE FOR A NEW OPERATION' BLDV0001 SPACE 5 BLDV0002 * CALLING SEQUENCE: BLDV0003 * BLDV0004 * GR0: LOGICAL DEVICE NUMBER BLDV0005 * GR13: LOCATION OF 7 WORD SAVE AREA BLDV0006 * GR14: RETURN LOCATION BLDV0007 * GR15: ENTRY POINT TO BLSTDEV BLDV0008 * BLDV0009 * ALL OPERATIONS ON THE DEVICE ARE HALTED AND THEIR BLDV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SVC HALT BLAST THE NEXT ONE BLDV0039 SVC WAIT NO WE CAN USE THIS ONE BLDV0040 B NOWAIT TRY FOR MORE BLDV0041 ERR SVC SAVE MOVE L ALL TO SAVED QUEUE BLDV0042 CLEAR SVC DELETE DELETE ONE OP FROM SAVDE QUEUE BLDV0043 BNE *-2 B IF MORE BLDV0044 SR 15,15 GOOD RETURN CODE BLDV0045 LM 0,5,4(13) BLDV0046 BR 14 BLDV0047 END BLDV0048 -FILE 99; 902 RECORDS: 0PTPP TITLE 'MTS PAPER TAPE PUNCH SUPPORT ROUTINES ---- VERSION @PTPP0001 30 DECEMBER 1967 (MODEM 1)' PTPP0002 MACRO PTPP0003 &SLB ERMSG &WHAT,&RC PTPP0004 LCLA &LNG,&LNG4,&LNG16 PTPP0005 &LNG SETA K'&WHAT-1 PTPP0006 &LNG4 SETA &LNG+4 PTPP0007 &LNG16 SETA &LNG+16 PTPP0008 &SLB OI FDUBS,DSRERR PTPP0009 MVC PAD(&LNG),*+54 THE MESSAGE PTPP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NUMBER PTPP0893 FDUBEL DS F NOT PERTINENT PTPP0894 FDUBIL DS F INCREMENT PTPP0895 FDUBSR DS F SUBROUTINE LOCATION PTPP0896 FDUBSCR DS F SCRATCH PTPP0897 FDUBNAM DS F BACK POINTER TO WHO'S USING IT PTPP0898 FDUBDS DS F DEFAULT SWITCHES PTPP0899 FDUBCH DS F NOT PERTINENT PTPP0900 EJECT PTPP0901 END TAPE PTPP0902 -FILE 100; 1121 RECORDS: 0 TITLE 'MTS 2260 DEVICE SUPPORT ROUTINES' D2260001 SPACE 15 D2260002 *********************************************************************** D2260003 *********************************************************************** D2260004 ** ** D2260005 ** ** D2260006 ** MTS DEVICE SUPPORT ROUTINES FOR THE ** D2260007 ** 2260 DISPLAY STATION MODEL 1 (LOCAL) ** D2260008 ** ** D2260009 ** DAVID A. TWYVER ** D2260010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SIGFLAG DS C D2261112 ERRMSG DS 30C D2261113 ERRMSGL DS F D2261114 LAT DS 100F D2261115 ENDLAT EQU * D2261116 DISPLAY DS 36CL80 D2261117 DISPEND EQU * D2261118 PSECTL EQU *-PSECT D2261119 EJECT D2261120 END D2261121 -FILE 101; 1014 RECORDS: 0TAPE TITLE ' M T S MAGNETIC TAPE ROUTINES (MODEL AN050)' TAPE0001 MACRO TAPE0002 &SLB ERMSG &WHAT,&RC TAPE0003 LCLA &LNG TAPE0004 &LNG SETA K'&WHAT-2 TAPE0005 &SLB STM R1,R5,ERMSGSA SAVE REGISTERS FOR POP TAPE0006 BAL R5,ERMSG SUBROUTINE TO PROCESS THEM TAPE0007 DC AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE TAPE0008 SPACE 1 TAPE0009 MEND TAPE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NUMBER TAPE1005 FDUBEL DS F NOT PERTINENT TAPE1006 FDUBIL DS F INCREMENT TAPE1007 FDUBSR DS F SUBROUTINE LOCATION TAPE1008 FDUBSCR DS F SCRATCH TAPE1009 FDUBNAM DS F BACK POINTER TO WHO'S USING IT TAPE1010 FDUBDS DS F DEFAULT SWITCHES TAPE1011 FDUBCH DS F NOT PERTINENT TAPE1012 EJECT TAPE1013 END TAPE1014 -FILE 102; 1435 RECORDS: 0TAPE TITLE 'MTS TAPE SUPPORT ROUTINES (NON-RESIDENT) --- VERSION @UTAP0001 15 OCTOBER 1968 (SYSTEM RELEASE # 1)' UTAP0002 MACRO UTAP0003 &SLB ERMSG &WHAT,&RC UTAP0004 LCLA &LNG UTAP0005 &LNG SETA K'&WHAT-2 UTAP0006 &SLB STM R1,R5,ERMSGSA SAVE REGISTERS FOR POP UTAP0007 BAL R5,ERMSG SUBROUTINE TO PROCESS THEM UTAP0008 DC AL1(&RC,&LNG),C&WHAT,C' ' MESSAGE UTAP0009 SPACE 1 UTAP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBCL DS F CURRENT LINE NUMBER UTAP1426 FDUBEL DS F NOT PERTINENT UTAP1427 FDUBIL DS F INCREMENT UTAP1428 FDUBSR DS F SUBROUTINE LOCATION UTAP1429 FDUBSCR DS F SCRATCH UTAP1430 FDUBNAM DS F BACK POINTER TO WHO'S USING IT UTAP1431 FDUBDS DS F DEFAULT SWITCHES UTAP1432 FDUBCH DS F NOT PERTINENT UTAP1433 EJECT UTAP1434 END TAPE UTAP1435 -FILE 103; 2 RECORDS: 0ENDSEG2 CSECT ENDS0001 END ENDS0002 -FILE 104; 4931 RECORDS: 0^- IPL CARD TXT ^-^-^: BSLD0003 TXT  {Kʯ{&{{j{b{u{}nX{BSLD0004 TXT {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> REP 00018A 0315 WRITE ON 315 REP 00018A 0314 WRITE ON 314 REP 00018A 0310 WRITE ON 310 REP 00018A 0210 WRITE ON 210 REP 00018A 0201 WRITE ON 201 REP 00018A 0301 WRITE ON 301 REP 00018A 0207 WRITE ON 207 REP 00018A 0307 WRITE ON 307 REP 00018A 0200 WRITE ON 200 END S  DATE 01-12-70 21:48 IPL 0025 -FILE 105; 612 RECORDS: 0LVTC TITLE 'VTOC PRINTOUT PROGRAM FOR MTS' LVTC0001 SPACE 2 LVTC0002 *********************************************************************** LVTC0003 * * LVTC0004 * VTOC PRINTOUT FOR DASD'S IN MTS SYSTEM - PRINTS VTOC * LVTC0005 * * LVTC0006 *********************************************************************** LVTC0007 SPACE 2 LVTC0008 * LVTC0009 * LVTC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RDL DS 1F LVTC0603 TTYSWT DS 1F LVTC0604 TYP5T DS 1F LVTC0605 DSKAP DS 4F PLACE TO BUILD PRINT FORM OF ADDRESS LVTC0606 SPACE LVTC0607 NOEPV EQU DSKA+59 LVTC0608 EXT1 EQU 105 LVTC0609 D2321 EQU X'80' LVTC0610 SPACE LVTC0611 END LVTC0612 -FILE 106; 456 RECORDS: 0DDMP TITLE 'UNIVERSITY OF MICHIGAN DIRECT ACCESS DEVICE HEX DUMP' DSKD0001 DDUMP START 0 DSKD0002 SPACE 1 DSKD0003 EXTRN SCARDS DSKD0004 EXTRN SPRINT DSKD0005 EXTRN DISKUC DSKD0006 EXTRN GETD DSKD0007 EXTRN LASTJOB,DSRDISPV USED TO FIND DEVICE TYPE DSKD0008 EXTRN FREED DSKD0009 SPACE 1 DSKD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BR 11 DSKD0447 SPACE 1 DSKD0448 FATERRM DC C' FATAL ERROR ON UNIT.' DSKD0449 FATERRL DC Y(L'FATERRM) DSKD0450 LTORG DSKD0451 SPACE 1 DSKD0452 BUFL EQU 20856 DSKD0453 BUF DS (BUFL/4)F DSKD0454 SPACE 1 DSKD0455 END DSKD0456 -FILE 107; 161 RECORDS: 0%INPUT DSR.DADUMP 100 %OUTPUT -DADMP %DELETE DADMP008 EXTRN LASTJOB,DSRDISPV USED TO FIND DEVICE TYPE %DELETE DADMP014 SPACE 1 BALR 11,0 USING *,11 LA 1,=A(HIM1,HIM1L,0) L 15,=A(SPRINT) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA 1,=A(FATERRM,FATERRL,0) L 15,=A(SPRINT) BALR 14,15 BAL 2,SKIP GIVE HIM ANOTHER CHANCE BR 11 SPACE 1 FATERRM DC C' FATAL ERROR ON UNIT.' FATERRL DC Y(L'FATERRM) %BEFORE FILEMARK %END -FILE 108; 778 RECORDS: 0CCAT TITLE 'CONSTRUCT CATALOG' CCAT0001 * CCAT0002 * ROUTINE TO CONSTRUCT THE MASTER CATALOG CCAT0003 * CCAT0004 * RD - SCRATCH - 60 BYTES CCAT0005 * RE - LINK REGISTER CCAT0006 * RF - BASE REGISTER CCAT0007 * CCAT0008 CSCCAT START 0 CCAT0009 ENTRY CONSTCAT CCAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IND EQU X'00' CCAT0769 CNOP 0,8 CCAT0770 VTOC DS 140X CCAT0771 FCB DS 76X CCAT0772 CINF DS 32X CCAT0773 SCR DS 250F SCRATCH AREA TO PASSON CCAT0774 * REQUIREMENTS AS FOLLOWS CCAT0775 * MAX OF(8+CRECAT=8+550=558,DSKOP=152,24+CREFD=24+552=576) CCAT0776 * CCAT0777 END CCAT0778 -FILE 109; 108 RECORDS: 0SYM CSCCATCONSTCATSTOPSTOP0AOKAGAIN1CCAT0001 SYM STOP1CCBACKCCBACK1@CCAT1{CCAT3OCCATCCAT0002 SYM 2CCAT40CCAT4STOP2NEWEXTSTOP3CCERCCAT0003 SYM ROROCCERROR1UCCOUT0CCAT5STOP4CCERROR2CCAT0004 SYM CALLWT!ZEROITd-VOLNM eNUMTRKfSYSUSIDCCAT0005 SYM e%SFUSIDcMIIDeTRKCYLgNUMTRKNEcFLCCAT0006 SYM AGe`NEWEFG:f@AGETDSKgACREATE2ddAGCCAT0007 SYM ETSehAINTFSgAINTREADfAWRITETgmACATNAMECCAT0008 SYM gqAUSERCATfASYSCATeASFCATeuAMICATfCCAT0009 SYM yACATBEGHbDSA2hHhh}hMhQCCAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   *MASTER.CATALOG CCAT0099 RLD  u    q m y CCAT0100 RLD    d  h @ HCCAT0101 RLD }MQ %-CCAT0102 RLD mqMQ48 CCAT0103 RLD @ٯڈڍ< q R Z 1 9CCAT0104 RLD   CCAT0105 RLD <&*CCAT0106 RLD  @ CCAT0107 END CCAT0108 -FILE 110; 909 RECORDS: 0VNTD TITLE 'PROGRAM TO VERIFY TRACE AND/OR DUMP THE CATALOG' VNTD0001 * VNTD0002 * PROGRAM TO VERIFY AND/OR TRACE AND/OR DUMP VNTD0003 * THE CATALOG,APARTICULAR USERID,OR A PARTICULAR FILE VNTD0004 * AS WELL AS PRINT OUT STATISTICS OF INTEREST VNTD0005 * VNTD0006 START 0 VNTD0007 ENTRY VANDTD VNTD0008 REQU VNTD0009 PRINT NOGEN VNTD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0D VNTD0900 SCR DS 100F VNTD0901 GCISCR DS 150F VNTD0902 BUFFER DS 880F 3520 BYTES VNTD0903 USERSTOR EQU 1 VNTD0904 LDN EQU 5 VNTD0905 MID EQU X'08' VNTD0906 FD EQU X'80' VNTD0907 SD EQU X'40' VNTD0908 END VNTD0909 -FILE 111; 186 RECORDS: 0SYM VANDTDNOPARh hhh<h&hVNTD0001 SYM OKhMOREBADPARhMhQhh\hUVNTD0002 SYM hYc###2VERIFYTRACEDUMPVNTD0003 SYM CATALOGMOREEHME1b{#1AhDhHhh}VNTD0004 SYM hMhQhh\hUhYc#1BBc#1Q1VNTD0005 SYM 4ME6BADEHRTME10+ME100!ME2ME3=MEVNTD0006 SYM 4oME5HBADEHObQ#2Ahh\hUhYhVNTD0007 SYM h0h4h8c#2Q1EHERRhhhVNTD0008 SYM hhhc###3NMOREEHb*#3VNTD0009 SYM Ah-h˥hh%hhhh@hVNTD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD mqھ^ک @ d h VNTD0177 RLD  m q   VNTD0178 RLD  d h m q  VNTD0179 RLD  {muy Q{VNTD0180 RLD Q*^0 m m0  VNTD0181 RLD  D-4 q }q4VNTD0182 RLD @ %   }VNTD0183 RLD    VNTD0184 RLD  & VNTD0185 END DATE 01-17-70 12:32 VNTD0186 -FILE 112; 1363 RECORDS: 0FSAV TITLE 'PROGRAM TO SAVE ALL FILES OF A VOLUMN ON TAPE' FSAV0001 FILESAVE START 0 FSAV0002 EXTRN VOLGET FSAV0003 EXTRN DSKOP FSAV0004 EXTRN MOVIT FSAV0005 EXTRN SCARDS FSAV0006 EXTRN TPWRUC FSAV0007 EXTRN SERCOM FSAV0008 EXTRN ERROR FSAV0009 EXTRN WRITE,GETFD FSAV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG FILESAVE+(((*-FILESAVE)+4095)/4096*4096) FSAV1354 DS CL4 FSAV1355 TBF1 DS (BFSIZE+HDRLEN)C FSAV1356 ORG FILESAVE+(((*-FILESAVE)+4095)/4096*4096) FSAV1357 DS CL4 FSAV1358 TBF2 DS (BFSIZE+HDRLEN)C FSAV1359 LOGRECL EQU 200 FSAV1360 COPY *CATEQU FSAV1361 COPY *FCBEQU FSAV1362 END FSAV1363 -FILE 113; 1097 RECORDS: 0RSTR TITLE 'UTILITY TO RESTORE DASD FILES (VERSION 15 JUNE 1969) XREST0001 DISTRIBUTION 2.0 ' REST0002 MACRO REST0003 &SLB MESSAGE &WHAT,&NEXT REST0004 &SLB BAL 1,*+((L'###&SYSNDX+1)/2*2)+6 AROUND CONSTANETS REST0005 DC Y(L'###&SYSNDX) LENGTH REST0006 ###&SYSNDX DC C&WHAT,0H'0' REST0007 BAL 15,MESSAGE REST0008 AIF (T'&NEXT EQ 'O').END REST0009 B &NEXT REST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE REST1088 SPACE 2 REST1089 * THE FOLLOWING APPLY ONLY TO SEQ. FILE REST1090 EILEN EQU FNAME+66 ACTUAL LENGTH OF EXTENT INDEX REST1091 SPACE 8 REST1092 RESTORE CSECT REST1093 DS 0D REST1094 FCB DS (FCBLEN)C FILE CONTROL BLOCK REST1095 SPACE 4 REST1096 END RESTORE REST1097 -FILE 114; 235 RECORDS: 0DSKM TITLE 'DISK LIST MANAGEMENT PROGRAM' *DSK0001 SPACE 2 *DSK0002 *********************************************************************** *DSK0003 * * *DSK0004 * PROGRAM TO MODIFY DISK LIST IN MTS * *DSK0005 * * *DSK0006 *********************************************************************** *DSK0007 SPACE 2 *DSK0008 MACRO *DSK0009 &LABL1 MESG &LINE *DSK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SAVA DS 200F *DSK0226 * *DSK0227 * TELLS ABOUT DSKAB ENTRIES *DSK0228 * *DSK0229 VOLSER EQU 18 *DSK0230 VOLID EQU 24 *DSK0231 CELLNO EQU 28 *DSK0232 DTL EQU 128 *DSK0233 * *DSK0234 END *DSK0235 -FILE 115; 302 RECORDS: 0DMOD TITLE 'SINGLE RECORD DISK DUMP AND MODIFY PROGRAM' DMOD0001 SPACE 2 DMOD0002 *********************************************************************** DMOD0003 * * DMOD0004 * PROGRAM TO FIX UP WIPED OUT DISK RECORDS * DMOD0005 * * DMOD0006 *********************************************************************** DMOD0007 SPACE 2 DMOD0008 MACRO DMOD0009 &LABL1 MESG &LINE DMOD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSAV DS 16F DMOD0293 RCNT DS H DMOD0294 OCNT DS H DMOD0295 RJNK DS F DMOD0296 DSKSAV DS 1F DMOD0297 SAVA DS 75D DMOD0298 DS 12X PRECEDE DSKA TO PUT THINGS ON BOUNDARY DMOD0299 DSKA DS 3700X DMOD0300 SPACE DMOD0301 END DMOD0302 -FILE 116; 74 RECORDS: 0SFDS TITLE 'PROGRAM TO DESTROY SCRATCH FILES' SFDS0001 SFDESTRY START 0 SFDS0002 SPACE 3 SFDS0003 USING *,12 SFDS0004 STM 14,12,12(13) SFDS0005 LR 12,15 SFDS0006 ST 13,SA SFDS0007 NXTFIL LA 1,UID2 PARAMETER LIST SFDS0008 LA 13,SCR SFDS0009 L 15,=V(GETCINF) SFDS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(OWNERID) SFDS0065 ZERO DC F'0' SAY FIND CATALOG ON YOUR OWN SFDS0066 OWNERID DS F SFDS0067 SPACE SFDS0068 SPACE SFDS0069 LTORG SFDS0070 SPACE SFDS0071 SCR DS 350F SFDS0072 COPY *CATEQU SFDS0073 END SFDS0074 -FILE 117; 336 RECORDS: 0SCDA TITLE 'PROGRAM TO SCAN DISK AND DATA CELL FOR STORAGE' SDAD0001 SCANDASD START 0 SDAD0002 SPACE 3 SDAD0003 * ENTRY POINT SDAD0004 USING *,12 SDAD0005 STM 14,12,12(13) SDAD0006 LR 12,15 SDAD0007 ST 13,SA SDAD0008 LA 13,SCR SDAD0009 B NXTVOL SDAD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AMAP DC A(MAP) SDAD0327 SPACE SDAD0328 LTORG SDAD0329 SPACE SDAD0330 CNOP 0,8 SDAD0331 CARD DS D SDAD0332 FCB DS 70F SDAD0333 SCR DS 250F SDAD0334 MAP DC 5000F'0' SDAD0335 END SDAD0336 -FILE 118; 428 RECORDS: 0SYM SCANDASDhƥhhhh h&hhSCDA0001 SYM h*h-h˳c###2hhhuhSCDA0002 SYM yhh^c###3Th0h4h8hSCDA0003 SYM hhc###4hƥhhhh hSCDA0004 SYM c###5_LOOKqLOOK2uBADSAROUND2SCDA0005 SYM BAD2PRINTb#1AhhhhhSCDA0006 SYM håhԥhƥhhhh hc#1BBSCDA0007 SYM c#1Q1NXTVOLh*h-h˥hh%hSCDA0008 SYM c###6ghmhqhhhuhySCDA0009 SYM hh}hMhQhh\cS###8 SCDA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT 0 SCDA0419 TXT ! SCDA0420 TXT !-  SCDA0421 RLD &u048 SCDA0422 RLD  *SCDA0423 RLD -mq}M r ~ z SCDA0424 RLD  A I J R Z 1 9SCDA0425 RLD 048   SCDA0426 RLD  SCDA0427 END SCDA0428 -FILE 119; 376 RECORDS: 0CKDA TITLE 'PROGRAM TO CHECK DASD FOR LOST SPACE OR DUP ALLOC' CHKD0001 CHCKDASD START 0 CHKD0002 SPACE 3 CHKD0003 * ENTRY POINT CHKD0004 USING *,12 CHKD0005 STM 14,12,12(13) CHKD0006 LR 12,15 CHKD0007 ST 13,SA CHKD0008 LA 13,SCR CHKD0009 B NXTVOL CHKD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AMAP DC A(MAP) CHKD0367 SPACE CHKD0368 LTORG CHKD0369 SPACE CHKD0370 CNOP 0,8 CHKD0371 CARD DS D CHKD0372 FCB DS 70F CHKD0373 SCR DS 250F CHKD0374 MAP DC 5000F'0' CHKD0375 END CHKD0376 -FILE 120; 439 RECORDS: 0SYM CHCKDASDhƥhhhh h&hhCKDA0001 SYM h*h-h˳c###2huhyhܥhCKDA0002 SYM ^hhc[###3h8hhhCKDA0003 SYM hh c###4hhh hhhCKDA0004 SYM <c+###5uLOOK^LOOK2DUPLIhDhHhCKDA0005 SYM h}hMhQc###68BADhhCKDA0006 SYM hh hhc###7GDUPLIRETCKDA0007 SYM AROUND2BAD2PRINTkbm#1AhqhCKDA0008 SYM hhuhyhܥh^hhhh{CKDA0009 SYM hDhHc#1BBc#1Q1QNXTVOLh\hUhCKDA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT $ CKDA0430 TXT $  CKDA0431 RLD &uy8 CKDA0432 RLD  DHuy ^CKDA0433 RLD {D\UY &CKDA0434 RLD zAIJRZ19CKDA0435 RLD  m CKDA0436 RLD q CKDA0437 RLD  CKDA0438 END CKDA0439 -FILE 121; 105 RECORDS: 0SORT START 0 SORT0001 EXTRN SPRINT SORT0002 ENTER 12,SA=SA SORT0003 LA 0,5 SORT0004 LA 2,VOLUME SORT0005 L 4,=V(VOLGET) SORT0006 BALR 3,4 SORT0007 LTR 4,4 SORT0008 BNE PUNT SORT0009 LA 0,0(0,1) SORT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SWS DC A(X'91') SORT0096 OUT DC CL10' ' SORT0097 TBL DC C'0123456789ABCDEF' SORT0098 LTORG SORT0099 SCR DS 50D SORT0100 TI DS XL8,(3512/16)XL16 SORT0101 DS D SORT0102 AREA DS (50*3520/8)XL8 SORT0103 ENDA EQU *-1 SORT0104 END SORT0105 -FILE 122; 808 RECORDS: 0FTST TITLE 'FILE OPERATION SUBROUTINES TEST PROGRAM' FTST0001 SPACE FTST0002 *********************************************************************** FTST0003 * * FTST0004 * FILE TEST SUBROUTINES - JOB NAME 'FILETEST' * FTST0005 * * FTST0006 *********************************************************************** FTST0007 SPACE FTST0008 * FTST0009 CSFT START 0 FTST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 36F FTST0799 FOURFW DS 4F FTST0800 RWINPAR DC A(FDUB) FTST0801 DC C'FILE' FTST0802 IDLEN DC H'4' FTST0803 ID DS 4X FTST0804 PAR DS F FTST0805 SCRC DC A(SSCRC) FTST0806 SSCRC DS 1000F PRIMARILY FOR ICAT(NEEDS A PAGE) FTST0807 END FTST0808 -FILE 123; 45 RECORDS: 0(SUBSCRIPTRANGE): FSNIFF: PROCEDURE OPTIONS(MAIN); DCL IN CHARACTER(132) STATIC; DECLARE BNEXT CHARACTER (2) DEFINED IN POSITION (50); DCL BNCYL CHARACTER (2) DEFINED IN POSITION (85); DCL BNTRK CHAR (2) DEFINED IN POSITION (88); DCL (NR_VS_SIZE (200), TOTNR ) BINARY FIXED (31); DCL FNRPCT DECIMAL FLOAT (6); DCL (SAVIN,SAVOUT) CHAR (1) STATIC INITIAL (' '); TOTNR = 0; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PUT SKIP LIST ('1 % = ' || TOTNR/100); PUT SKIP(2) LIST ('NUMBER % SIZE(TRACKS) '); DO I=1 TO 200; FNRPCT = NR_VS_SIZE(I)/(TOTNR/100E0); NRPCT = FNRPCT; PUT SKIP EDIT (NR_VS_SIZE(I),FNRPCT,I,' |', ('S' DO II=1 TO NRPCT)) (F(4), X(3), F(5,2), X(4), F(3), A, (NRPCT) A ); END; END FSNIFF; -FILE 124; 122 RECORDS: 0ESD FSNIFF ٩*FSNIFFA _IHEQINV  FSNI0001 ESD IHESADA  IHESADB  IHEQERR  FSNI0002 ESD IHEQTIC IHEMAIN IHENTRY FSNI0003 ESD IHESAPC  *FSNIFFB*FSNIFFC FSNI0004 ESD *FSNIFFD*FSNIFFEIHEDCNA  FSNI0005 ESD IHEDDOB  IHELDOB  IHEDDIA  FSNI0006 ESD IHEDDOC  IHEDDOA  IHEIOXB  FSNI0007 ESD IHEIOXB  IHEDOBB  IHEDOBB  FSNI0008 ESD IHEDIBA  IHEDIBA  IHEDOAA  FSNI0009 ESD IHEDOAA  IHEIOBA  IHEIOBT  FSNI0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT FSNI0113 TXT ٓ00 FSNI0114 RLD  - JR HFSNI0115 TXT GUSERFSNI0116 TXT  SPRINTFSNI0117 TXT SCARDSFSNI0118 TXT SAVEIFSNI0119 TXT SAVEOFSNI0120 RLD óɳԳ UFSNI0121 END FSNI0122 -FILE 125; 181 RECORDS: 0SCFL TITLE 'PROGRAM TO FIND FILES BELONGING TO ILLEGAL USERS' SCNF0001 SCANFILE START 0 SCNF0002 * LOGICAL IO UNITS USED SCNF0003 * SCNF0004 * 0=FILES TO BE DELETED-ALONG WITH OWNERID SCNF0005 * I.E. FILES OF EXPIRED (AND ALSO POSSIBLY DEPLEATED) USERIDS SCNF0006 * AS WELL AS FILES OF USERIDS MISSING FROM ACCOUNTING FILE SCNF0007 * SCNF0008 * 1=EXPIRED USERIDS FROM ACCOUNTING FILE SCNF0009 * AS WELL AS USERIDS IN MASTER INDEX,MISSING FROM ACC FILE SCNF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE SCNF0172 LTORG SCNF0173 SPACE SCNF0174 CNOP 0,8 SCNF0175 CARD DS CL8 SCNF0176 FNAME DS CL34 SCNF0177 SCR DS 300F SCNF0178 UIDT DS 10000XL5 SCNF0179 COPY *CATEQU SCNF0180 END SCNF0181 -FILE 126; 108 RECORDS: 0SYM SCANFILEACCPRINTh@hhdhhhݥhSCFL0001 SYM hmhqhENOEXPD^ACCOKDARDLASCFL0002 SYM STNXTUID8NOMOREOKhhh hhSCFL0003 SYM h<h&hhDELFILEBADFILENXTSCFL0004 SYM FILOK2SKIPh{hDhHhh}hMhSCFL0005 SYM Qhh\EUAROUNDINACCPUNT2h SCFL0006 SYM hhh<h&hc###4BADUIDhSCFL0007 SYM h@hhdhhhݳc###5vyERRSCFL0008 SYM ORETha^SAHbUIDcZEROhh{SCFL0009 SYM AHDcDUID1cHUID2HhMSCFL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> REP 0004BC 065C REP 0004D4 065C REP 00051E 065C REP 0003D0 055C RLD   D ^ } \ 4AIO 0057 RLD 8  * AIO 0058 RLD mqu  Q U Y 0 AIO 0059 RLD & - { D H AIO 0060 RLD     AIO 0061 END AIO 0062 -FILE 127; 824 RECORDS: 0LSAV TITLE 'PROGRAM TO SAVE SPECIFIC FILES ON TAPE' SVFL0001 LIBFSAVE START 0 SVFL0002 * SVFL0003 * 1 = LIST OF FILES TO SAVE(16BYTES+4BYTE OWNERID) SVFL0004 * SVFL0005 EXTRN VOLGET SVFL0006 EXTRN DSKOP SVFL0007 EXTRN MOVIT SVFL0008 EXTRN SCARDS SVFL0009 EXTRN TPWRUC SVFL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG LIBFSAVE+(((*-LIBFSAVE)+4095)/4096*4096) SVFL0815 DS CL4 SVFL0816 TBF2 DS (BFSIZE+HDRLEN)C SVFL0817 LOGRECL EQU 200 SVFL0818 D2314 EQU X'40' SVFL0819 D2321 EQU X'80' SVFL0820 SEQ EQU X'10' SVFL0821 COPY *CATEQU SVFL0822 COPY *FCBEQU SVFL0823 END SVFL0824 -FILE 128; 136 RECORDS: 0SYM LIBFSAVEBADPTRPHTHDGOTITCKTAPERELSAV0001 SYM ADY0TPWAITSNSOKNXTFILTAPENDfNOTEOF\LSAV0002 SYM OKAROUND3hdhhhݥhhmhqc##LSAV0003 SYM #1{FMT3NOFMT3EXTLP:EXTLP2EXTLP4HLSAV0004 SYM AROUND5YNXTREC AROUND6 oCHKWRT MUSTWRTE SBUFLSAV0005 SYM EMPPUNT3PGNTX>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD UY04ٳQٟ\ ULSAV0127 RLD Y <&ڏړ*y LSAV0128 RLD ^}Y48  * YLSAV0129 RLD  4 8 * - @ d LSAV0130 RLD  m q { U Y  LSAV0131 RLD -^ H m q LSAV0132 RLD   څu yy {LSAV0133 RLD   ^ DuLSAV0134 RLD { LSAV0135 END DATE 01-19-70 14:03 LSAV0136 -FILE 129; 51 RECORDS: 0 TITLE ' PROGRAM TO COPY TAPE OF SAVED FILES FROM LIBFSAVE' CPSV0001 COPY START 0 CPSV0002 * CPSV0003 * FORMAT OF TAPE IS AS FOLLOWS CPSV0004 * CPSV0005 * ALL THE FILE WHICH HAVE BEEN SAVED AS ONE BIG TAPE FILE CPSV0006 * EOF CPSV0007 * TRAILER CPSV0008 * EOF CPSV0009 * CPSV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SERCOM ' TAPE NOT FORMATED PROPERLY' CPSV0042 EXIT 4 CPSV0043 SA DS 18A CPSV0044 INL DS H CPSV0045 SW DC X'0' CPSV0046 TRLR DC 16C'*',C'ENDOFTP' CPSV0047 FCNT DC C' FILES PROCESSED' CPSV0048 LTORG CPSV0049 IN DS CL12000 CPSV0050 END CPSV0051 -FILE 130; 37 RECORDS: 0SYM COPYhhhhåhԥhƥhh 0001 SYM hc###1h&hhh*h-h˥h 0002 SYM h%hc###2hdhhhݥhhm 0003 SYM hqhhhucw###3LOOPh{hD 0004 SYM hHhh}hMhQhh0h4h8 0005 SYM hhhhh NOTHDRh<h&h 0006 SYM hh*h-hhh@hhdh 0007 SYM hhhck###7xOKhhh 0008 SYM h{hDhHhh}hMcO###8Rh 0009 SYM 0h4h8hhhEOFhhh 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT  WTM nBӌBmBӌ0{0CÇB% 0028 TXT   TAPE NOT FORMATED PROPERLY ͓}}q} 0 0029 TXT   ****************ENDOFTP FILES PROCESSED 0030 TXT  HDR ONLY  0031 RLD &*-dh 0032 RLD m{DH}048 < 0033 RLD &*@d{D 0 0034 RLD 48*-  0035 RLD   0036 END DATE 01-19-70 00:01 0037 -FILE 131; 86 RECORDS: 0 TITLE ' PROGRAM TO PRINT OUT SORTED LIST OF FILES SAVED' PRSV0001 PRINT START 0 PRSV0002 * PRSV0003 * LOGICAL UNIT 0 = TAPE TO SORT PRSV0004 * PRSV0005 * WORKS FOR A MAXIMUN OF 6000 FILES PRSV0006 * PRSV0007 * ACTUALLY - THINGS OUGHT TO BE PRETTY WELL SORTED ALREADY PRSV0008 * PRSV0009 PRINT NOGEN PRSV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IN DS CL256 PRSV0077 LIM DC A(TBL,16,0) PRSV0078 LLIM DC A(LINE+7-13,13,LINE+7+9*13-1) PRSV0079 SYSLIM DC A(LINE+7-17,17,LINE+132-17) PRSV0080 T DS CL16 PRSV0081 UID DS CL4 PRSV0082 LINE DC CL133' XXXX:' PRSV0083 LTORG PRSV0084 TBL DS 6000CL16 PRSV0085 END PRSV0086 -FILE 132; 38 RECORDS: 0SYM PRINThhhhåhԥhƥhh 0001 SYM hc###1h<h&hhh*h 0002 SYM -hhh%c>###2 @RDhdhhh 0003 SYM hhmhqhhhuSORTULP1 0004 SYM WLP2OKPLP2CUSERhhh h 0005 SYM hh<h&hhPLPhhh 0006 SYM h@hhdDqUSER2FITShh}h 0007 SYM MhQhh\0MOREhhhhh 0008 SYM hóASAfENDOFTPapINpB 0009 SYM qLIMCuLLIME^SYSLIMTbUID 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT  0029 TXT  0030 TXT HDR ONLY 0031 TXT  0032 TXT H   0033 RLD <&*dh 0034 RLD m } M 0035 RLD qu^ * 0036 RLD  0037 END DATE 01-18-70 23:58 0038 -FILE 133; 45 RECORDS: 0FDES TITLE ' PROGRAM TO DESTROY FILES' DSTR0001 * DSTR0002 * SCARDS=EXPIRED OR MISSING FILES TO DESTROY DSTR0003 * (LOGICAL UNIT 0 FROM SCANFILE PROGRAM) DSTR0004 * DSTR0005 * SPRINT=FILES DESTROYED-UNLESS COMMENT FOLLOWS DSTR0006 * DSTR0007 FILEDES START 0 DSTR0008 ENTER 12,SA=SA DSTR0009 MVC SAV13,4(13) DSTR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SR 15,15 DSTR0036 BR 14 DSTR0037 SAV13 DS F DSTR0038 SA DS 200D DSTR0039 PARLIST DC A(NAME) FILENAME DSTR0040 DC A(NAME+16) OWNERID DSTR0041 DC F'0' FIND CATALOG ON YOUR OWN DSTR0042 NAME DS CL20 DSTR0043 LEN DS H DSTR0044 END DSTR0045 -FILE 134; 28 RECORDS: 0SYM FILEDESREADhhåhԥhƥhhFDES0001 SYM hh*h-hhh%INUSEhqhFDES0002 SYM hhuhyhܳc###3DNOACCESShFDES0003 SYM h}hMhQhh\cS###47ERRORFDES0004 SYM hh hhhhc###5FDES0005 SYM NOTFOUNDhh hhh<h&c###6FDES0006 SYM #dINERRhݥhhmhqhhcsFDES0007 SYM ###7gIHB0025BBQUITd}SAV13MAFDES0008 SYM QSAHfPARLISThhcNAMEbLENFDES0009 SYM  FILEDESh hhh<h& FDES0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   SERIOUS ERROR ͌0{0HA@&<FDES0018 TXT &  FILENAME-ID OR FILE NOT FOUND IN CATALOG ͌0{0H>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LM 14,12,12(13) CDES0026 SR 15,15 CDES0027 BR 14 CDES0028 SAV13 DS F CDES0029 SA DS 150F CDES0030 PARLIST DS 0F CDES0031 USERID DS 4C CDES0032 DC F'0' MAKE DESCAT SET UP FCB CDES0033 LEN DS H CDES0034 END CDES0035 -FILE 136; 19 RECORDS: 0SYM UCATDESREADhhåhԥhƥhhUDES0001 SYM hh*h-hhh%hhhݥhhUDES0002 SYM mhqhc###3INERRhh{hDUDES0003 SYM hHhh}cK###4gYIHB0016B2QUIUDES0004 SYM TdSAV13ASAoF*PARLISTE*USERIDUDES0005 SYM h-bLENUCATDEShh%hhUDES0006 SYM h UDES0007 ESD UCATDES :ERROR  SCARDS  UDES0008 ESD SPRINT  DESCAT  SERCOM  UDES0009 TXT } 0A&0}&}0KA}0C{*UDES0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT  Č{2C˖C팿{0C%{>*% UDES0011 TXT C*0C Č{0C%{q ERROR IN UDES0012 TXT y DESCAT ͌0{0C{SK} BAD INPUT FILUDES0013 TXT \  E ͌0{0{Y ͓}Aq}  UDES0014 TXT -  UDES0015 TXT    UDES0016 RLD *-h{ DUDES0017 RLD Y%  UDES0018 END UDES0019 -FILE 137; 289 RECORDS: 0TPD TITLE 'TAPE DIAGNOSTICS' *TPD0001 TAPEDIAG START 0 *TPD0002 SPACE 2 *TPD0003 ATT EQU X'01' DEVICE IS ATTACHED *TPD0004 BPI1600 EQU X'02' 1600 BPI MODE *TPD0005 ALL EQU X'04' TEST ALL OF THE TAPE *TPD0006 TP9 EQU X'08' 9 TRACK TAPE *TPD0007 SPACE 3 *TPD0008 PRINT NOGEN *TPD0009 SPACE *TPD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OREG5 DC 63YL1(*+1-OREG5) *TPD0280 OREG6 DC 44YL1(*+1-OREG6) *TPD0281 IREG DS 260C *TPD0282 MODETBL DC C'2CV5CV8CV2ON2OF2EN2EF5ON5OF5EN5EF8ON8OF8EN8EF' *TPD0283 DC X'00' *TPD0284 MODECMT DC C'*** CURRENT MODE: XXXX' *TPD0285 SPACE 2 *TPD0286 LTORG *TPD0287 SPACE 2 *TPD0288 END *TPD0289 -FILE 138; 993 RECORDS: 0CT TITLE 'CARD TO TAPE JOB (U OF M VERSION)' CT000001 CT START 0 CT000002 EXTRN TPWRUC CT000003 EXTRN CDRDUC CT000004 EXTRN BSF CT000005 EXTRN CDSTUC CT000006 SPACE 5 CT000007 * THIS IS THE UNIVERSITY OF MICHIGAN CARD TO TAPE PROGRAM CT000008 * DESIGNED TO RUN UNDER THE LINCOLN LABORATORY MULTI-PROGRAMMING CT000009 * SUPERVISOR CT000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TPERL EQU *-TPERM CT000984 EOTM DC C'END OF TAPE' CT000985 EOTL EQU *-EOTM CT000986 EOFM DC C'END, CARDS READ' CT000987 EOFL EQU *-EOFM CT000988 BCM DC C'...ILLEGAL CHARACTER IN COLUMN ' CT000989 BCL EQU *-BCM CT000990 BPTM DC C'...PLOT TIME ESTIMATE IS NOT BLANK' CT000991 BPTL EQU *-BPTM CT000992 END CT000993 -FILE 139; 274 RECORDS: 0TMSR TITLE 'TAPE MOVEMENT SUBROUTINES' CTSB0001 TPSUBR START 0 CTSB0002 ENTRY WTM WRITE TAPE MARK CTSB0003 ENTRY ERG ERASE RECORD GAP CTSB0004 ENTRY FSR FORWARD SPACE RECORD CTSB0005 ENTRY BSR BACKSPACE RECORD CTSB0006 ENTRY BSF BACKSPACE FILE CTSB0007 ENTRY FSF FORWARD SPACE FILE CTSB0008 ENTRY REW REWIND CTSB0009 ENTRY RUN REWIND AND UNLOAD CTSB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TABB CCW X'2B',*,X'40',1 REC BACK 200 CTSB0265 CCW X'27',*,0,1 CTSB0266 CCW X'6B',*,X'40',1 REC BACK 556 CTSB0267 CCW X'27',*,0,1 CTSB0268 CCW X'AB',*,X'40',1 REC BACK 800 CTSB0269 CCW X'27',*,0,1 CTSB0270 SAVE EQU 8 CTSB0271 DELETE EQU 10 CTSB0272 BASADD DC A(BASE) CTSB0273 END CTSB0274 -FILE 140; 1090 RECORDS: 0TP TITLE 'TAPE TO PRINTER AND PUNCH' TP000001 TP START 0 TP000002 EXTRN PUNUC TP000003 EXTRN TPRDUC TP000004 EXTRN PTRUC TP000005 ENTRY TRANTB TP000006 ENTRY CCTB,CCTBTR,CCTBP TP000007 SPACE 3 TP000008 * JOB HEADER TP000009 DC A(TPBEG) TP000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TERM DC C' CARD 00000 OF JOB 000000 PUNCHED FROM RECORD WITH ' TP001081 TPERC DC C'TAPE ERROR' TP001082 TERL EQU *-TERM TP001083 BPM DC C'ILLEGAL PARAMETER' TP001084 BPL EQU *-BPM TP001085 TPERM DC C'PERMANENT READ ERROR ON ' TP001086 TPERL EQU *-TPERM TP001087 LINES DC C': 00000 LINES PRINTED' TP001088 CARDS DC C'CARDS PUNCHED' TP001089 END TP001090 -FILE 141; 1000 RECORDS: 0*********************************************************************** TCP00001 *TAPE COPY PROGRAM,VERSION 3 (1/66),RE-ENTRANT**************JACK NOLAN* TCP00002 *********************************************************************** TCP00003 * TCP00004 * COPIES AND/OR COMPARES ALL OR PART OF TWO 7- OR 9-TRACK TAPES TCP00005 * WITH SPECIFIED PARITY AND DENSITY AND WITH DATA CONVERTER TCP00006 * OPTION. TCP00007 * TCP00008 * JOB INITIATION MESSAGE. TCP00009 * TPCOPY (INPUT UNIT) (OUTPUT UNIT) (PARAMETER PAIRS) TCP00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRITE EQU 7 TCP00991 SAVE EQU 8 TCP00992 RESTOR EQU 9 TCP00993 DELETE EQU 10 TCP00994 SKIP EQU 13 TCP00995 SPWAIT EQU 16 TCP00996 SNSADR EQU 19 TCP00997 GETID EQU 20 TCP00998 TEN DC A(10) TCP00999 END TCP01000 -FILE 142; 713 RECORDS: 0T7D2 TITLE 'VERSION 2 OF 7 TRACK TAPE DUMP' T7D00001 T7DUMP START 0 T7D00002 * ************************************************************** T7D00003 * *T7DUMP DUMPS A BCD OR BINARY(IN OCTAL) OR MIXED MODE T7D00004 * (BCD AND BINARY) 7-TRACK TAPE GENERATED ON THE 1401 OR 7094 T7D00005 * *T7DUMP ALSO DUMPS AN EVEN PARITY 7-TRACK TAPE IN OCTAL. T7D00006 * *OPTIONS T7D00007 * OPTIONS SUCH AS THE MODE OF THE TAPE,TAPE DENSITY, OR FILES T7D00008 * ON THE TAPE MAY BE ENTERED ON THE CONSOLE TYPEWRITER. T7D00009 * FOR T7D00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(PTRUC) T7D00704 BASEAD DC A(T7DUMP) T7D00705 NUMCHR DS D T7D00706 RECCNT DS D T7D00707 FILCNT DS D T7D00708 * FLAG SETTINGS T7D00709 FLAG DC X'00' T7D00710 TRCBIT EQU 1 TRUNCATION OF ORIG RECORD SIZE T7D00711 EVNPAR EQU 2 EVEN PARITY TAPE DUMP IN OCTAL T7D00712 END BEGIN T7D00713 -FILE 143; 452 RECORDS: 0T9D2 TITLE 'VERSION 2 OF 9 TRACK TAPE DUMP' T9D00001 T9DUMP START 0 T9D00002 EXTRN PTRUC PRINTER UNIT CHECK ROUTINE T9D00003 EXTRN TPRDUC TAPE UNIT CHECK ROUTINE T9D00004 * ************************************************************** T9D00005 * *T9DUMP DUMPS A 9 TRACK TAPE GENERATED ON THE 360/65 OR T9D00006 * 360/40 IN HEXADECIMAL WITH AN OPTION FOR BOTH A HEXADECIMAL T9D00007 * AND EBCDIC DUMP. IN THE LATTER CASE A LINE IS FIRST DUMPED T9D00008 * IN HEXADECIMAL THEN IN EBCDIC. T9D00009 * *OPTIONS T9D00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC CL7' ' T9D00443 DC C'JKLMNOPQR' T9D00444 DC CL8' ' T9D00445 DC C'STUVWXYZ' T9D00446 DC CL6' ' T9D00447 DC C'0123456789' T9D00448 DC CL6' ' T9D00449 * FLAG SETTINGS T9D00450 TRCBIT EQU 1 TRUNCATION OF ORIGINAL RECORD SIZE T9D00451 END BEGIN T9D00452 -FILE 144; 661 RECORDS: 0JBRP TITLE 'JOB REQUEST PROCESSOR' JBRP0001 * THIS IS JOB PART OF REQUEST PROCESSOR JBRP0002 SPACE JBRP0003 * JBRP0004 * VERSION OF 23 MAY 1966 JBRP0005 * REPLACES VERSION OF 25 NOVEMBER 1956 JBRP0006 * JBRP0007 * MAJOR DIFFERENCES FROM THE PREVIOUS VERSION ARE JBRP0008 * JBRP0009 * 1. USE IS MADE OF THE NEW SVC "GTBUF" AND "GTUNIT" JBRP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0F JBRP0652 XXXERR DC C' ERR' JBRP0653 ADMAX DC A(MAXADD) JBRP0654 JOBAD DC A(JOB) JBRP0655 FOUR DC F'4' JBRP0656 ZEROS DC 11F'0' JBRP0657 JOBTBL DC F'0' JBRP0658 ZERO EQU FOUR DC X'0000' JBRP0659 ORG JOBTBL+LJBTBL JBRP0660 END BEGIN JBRP0661 -FILE 145; 1880 RECORDS: 0LLTP TITLE 'LINCOLN LABS TAPE TO PRINT VERSION 2' TPS00001 PRINT START 0 TPS00002 EXTRN TPRDUC EXTERNAL TAPE READ UC ROUTINE TPS00003 EXTRN PRTUC TPS00004 EXTRN PRTUE TPS00005 EXTRN BUFF1 TPS00006 EXTRN BUFF2 TPS00007 EJECT TPS00008 * REGISTER ASSIGNMENTS TPS00009 SPACE 3 TPS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BUFCCC EQU BUFFER+36 TPS01871 SPACE 3 TPS01872 * DSECT6 TPS01873 SPACE 3 TPS01874 SWCHES DS 0F TPS01875 SWTCH1 DC X'0' TPS01876 SWTCH2 DC X'0' TPS01877 SWTCH3 DC X'0' TPS01878 SWTCH4 DC X'0' TPS01879 END BEGIN TPS01880 -FILE 146; 388 RECORDS: 0LLPC TITLE 'LINCOLN LAB''S PRINT UNIT CHECK ROUTINES' PTUC0001 PRNTUC START 0 PTUC0002 ENTRY PRTUC PTUC0003 ENTRY PRTUE PTUC0004 *********************************************************************** PTUC0005 * ***************PRINTER UNIT EXCEPTION ROUTINE***************** PTUC0006 * THIS ROUTINE HANDLES PRINTER UNIT EXCEPTIONS. LINKAGE FROM PTUC0007 * THE CALLING PROGRAM REQUIRES PLACING THE PROPER ENTRY POINT PTUC0008 * ADDRESS (PRTUE) WHICH HAS BEEN DEFINED AS AN EXTRN IN THE PTUC0009 * CALLING PROGRAM INTO THE RETURNS LIST AS THE UNIT EXCEPTION PTUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LDN EQU SAVAR+16 PTUC0379 DSECT2 EQU PRTUC+8192 PTUC0380 RTNADR EQU DSECT2 PTUC0381 FLAG EQU RTNADR+4 PTUC0382 MYFLAG EQU FLAG+1 PTUC0383 STOPCD EQU MYFLAG+1 PTUC0384 SNSCC EQU STOPCD+1 PTUC0385 SENBYT EQU SNSCC+1 PTUC0386 DEVID EQU SENBYT+4 PTUC0387 END PTUC0388 -FILE 147; 6 RECORDS: 0BUFF TITLE 'BUFFERS FOR *TPS' TPSB0001 BUFF1 START 0 TPSB0002 DS XL2000 TPSB0003 ENTRY BUFF2 TPSB0004 BUFF2 DS XL2000 TPSB0005 END TPSB0006 -FILE 148; 269 RECORDS: 0DRMI TITLE 'PROGRAM TO INITIALIZE DRUM' DNIT0001 DRUMINIT START 0 DNIT0002 SPACE 5 DNIT0003 STIO EQU 2 DNIT0004 WAIT EQU 3 DNIT0005 SILI EQU X'20' DNIT0006 SPACE 5 DNIT0007 USING *,15 DNIT0008 BALR 10,0 DNIT0009 DROP 15 DNIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL2(PAGE) DNIT0260 SPACE 5 DNIT0261 FMASK DC X'C0' ALLOW EVERYTHING DNIT0262 LTORG DNIT0263 SPACE DNIT0264 SPACE 4 DNIT0265 DS 0D DNIT0266 DRUMDATA DC 1024F'0' DNIT0267 SPACE 5 DNIT0268 END DNIT0269 -FILE 149; 13 RECORDS: 0SPDP TITLE 'PROGRAM TO START THE PAGING DRUM PROCESSOR' SPDP0001 STRTPDP START 0 SPDP0002 USING *,15 SPDP0003 SPACE 2 SPDP0004 STJOB EQU 41 START JOB SVC SPDP0005 SPACE 2 SPDP0006 LA 0,L'STPDP SPDP0007 LA 1,STPDP SPDP0008 SVC STJOB SPDP0009 BR 14 SPDP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE SPDP0011 STPDP DC C'PDP ' SPDP0012 END SPDP0013 -FILE 150; 97 RECORDS: 0LOG TITLE 'PROGRAM TO LOG RELOADS' INIL0001 INITLOG START 0 INIL0002 PRINT NOGEN INIL0003 ENTER 12,SA=SA INIL0004 SVC 28 GET TIME AND DATE INIL0005 STM 0,1,FWRD INIL0006 MVC TIME(8),FWRD INIL0007 STM 2,3,FWRD INIL0008 MVC DATEX(8),FWRD INIL0009 SVC 34 INIL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MYCST DS XL100 INIL0088 MYCCUMAP DS XL4 INIL0089 * INIL0090 COPY *LLMPSEQU INIL0091 * INIL0092 EXTRN EXTINT,SVCINT,PRGINT,IOINT,PGTBL0,SVBASE INIL0093 PSA DSECT INIL0094 COPY PSA INIL0095 END INIL0096 $CONTINUE WITH *DUMMY* INIL0097 -FILE 151; 36 RECORDS: 0RSRV TITLE 'RESERVE DISK DRIVES TO 2844 OR 2314' RSV00001 RESERVE CSECT RSV00002 PRINT NOGEN RSV00003 ENTER 12,SA=SA RSV00004 LP SPRINT 'ENTER VOLUME NAME' RSV00005 SCARDS IN,EXIT=EOF RSV00006 LA 2,IN RSV00007 LA 0,5 RSV00008 L 4,=V(VOLGET) RSV00009 BALR 3,4 RSV00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B FRLP RSV00027 UCK SVC 8 RSV00028 SVC 10 RSV00029 SPRINT 'UNIT CHECK' RSV00030 B FRLP RSV00031 CCW CCW X'B4',SENSE,X'20',7 RSV00032 SENSE DS XL8 RSV00033 IN DS CL100 RSV00034 SA DS 18A RSV00035 END RSV00036 -FILE 152; 32 RECORDS: 0PAGEIT CSECT PGIT0001 ENTER 12,SA=SA PGIT0002 LA 0,17 SEG 3 PGIT0003 L 1,=A(X'100000') PGIT0004 L 15,=V(GETSPACE) PGIT0005 BALR 14,15 PGIT0006 LA 0,256 PGIT0007 LR 3,1 SAVE FRONT PGIT0008 LP LR 2,1 PREV PAGE PGIT0009 A 1,=F'4096' PGIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA 0,500 500 CHANGES PGIT0023 LP5 L 3,0(0,3) PGIT0024 ST 0,4(0,3) PGIT0025 BCT 0,LP5 PGIT0026 B LP3 REPEAT PGIT0027 SA DS 18A PGIT0028 LTORG PGIT0029 ORG PAGEIT+4096 PGIT0030 SEG4 DS 200CL4096 PGIT0031 END PGIT0032 -FILE 153; 8 RECORDS: 0SYM PAGEITLPLP2&LP3LP4-LP5ASAh 0001 SYM hh{hDCSEG4H 0002 ESD PAGEIT GETSPACE 0003 TXT } 0{&0}&}0{0{ !{{&{Ó 0004 TXT {DH&!{{{&ƥ4{4&{-0{& 0005 TXT   0006 RLD   D 0007 END DATE 11-21-69 03:23 0008 -FILE 154; 1621 RECORDS: 0STAN TITLE 'STATISTICS PHASE I ANALYSIS' ANAL0001 PRINT ON,NODATA,NOGEN ANAL0002 * ANAL0003 * INITIALIZATION ANAL0004 * ANAL0005 STATANAL START 0 ENTRY POINT ANAL0006 SAVE (14,12) SAVE THE MTS REGISTERS ANAL0007 BALR 12,0 THIS IS THE BASE REGISTER ANAL0008 USING *,12,10 ESTABLISH THEM ANAL0009 LA 10,2048(12) GET THE SECOND ANAL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EDMPAREA DS 0C END OF TAPE OUTPUT AREA ANAL1612 CNT DC A(EDMPAREA-NEWAREA) LENGTH OF TAPE OUTPUT ANAL1613 ADDAREA DS 8F ITEM PRINT AREA ANAL1614 JOBAREA DS (NOJOBS)XL(JOBEND-JOBINFO) ANAL1615 EJOBAREA DS 0C END OF INFORMATION AREAS ANAL1616 PAGETBL DS (NOPAGES*LPTBL)F PAGE TABLE FOR VIRTUAL MEMORY ANAL1617 PAGEND DS 0C END OF PAGE TABLE ANAL1618 DATA DS 4096C BUFFER OF ITEMS FROM STAT JOB ANAL1619 JOBPTR DS (NJOBPTR)A JOB TABLE ADDRESS TABLE ANAL1620 END STATANAL ANAL1621 -FILE 155; 68 RECORDS: 0 PRINT NOGEN *ANS0001 REQU *ANS0002 ENTER 12 *ANS0003 L RF,=V(GETFD) *ANS0004 LA R1,FILE *ANS0005 BALR RE,RF *ANS0006 ST 0,FDUB *ANS0007 BEGIN L 0,FDUB *ANS0008 SR 1,1 *ANS0009 L RF,=V(REWIND#) *ANS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FILE DC C'*STATISTICS(2) ' *ANS0059 * *ANS0060 FDUB DS 1F *ANS0061 REGL DS 1H *ANS0062 COMPL DS 1H *ANS0063 REG DS 256C *ANS0064 OUT DS 256C *ANS0065 COMP DS 256C *ANS0066 * *ANS0067 END *ANS0068 -FILE 156; 159 RECORDS: 0RECP TITLE 'PROGRAM TO GENERATE MTS RECEIPT CARDS' RCPT0001 RECP START 0 RCPT0002 USING RECP,12 RCPT0003 LR 12,15 LOAD THE BASE REGISTER RCPT0004 PRINT NOGEN WE REALLY DON'T WANT ALL THOSE MACROS RCPT0005 SPACE 1 RCPT0006 SERCOM ' MTS RECEIPT CARD PROGRAM ' RCPT0007 SPACE 1 RCPT0008 GETPCH SERCOM ' ENTER THE NAME OF THE PUNCH' RCPT0009 GUSER INPUT,INL RCPT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> INL DS H LENGTH OF THE INPUT RECORD RCPT0149 SPACE 1 RCPT0150 TRTOP DC X'08040201000000000000' TOP HALF GENERATION RCPT0151 TRBOT DC X'00000000201008040201' BOTTOM HALF GENERATION RCPT0152 TREXCHNG DC X'0006010702080309040A050B' TOP AND BOTTOM EXCHANGE RCPT0153 SPACE 1 RCPT0154 FDUB DS F THE FDUB OF THE PUNCH RCPT0155 RECPSW DS XL1 SWITCH FOR THE RECEIPT CARD OPTION RCPT0156 SPACE 2 RCPT0157 END RECP RCPT0158 -FILE 157; 94 RECORDS: 0/* PROGRAM TO DETERMINE DISK USAGE BY ID FROM *LISTVTOC OUTPUT */ FSCAN: PROCEDURE OPTIONS(MAIN); DCL 1 USER (2000) STATIC , 2 ID CHAR (4), 2 FILES BINARY FIXED (15), 2 TRACKS BINARY FIXED (15), 2 EXTENTS BINARY FIXED (15); DCL S BINARY FIXED (31) STATIC INITIAL (2); DCL TRK_PER_FILE DECIMAL FLOAT (6); DCL EXT_PER_FILE DECIMAL FLOAT (6); >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IF LOCSTR = HEX(IR) THEN GO TO BARF2; N=N+IR+9E0; GO TO BARF3; BARF2: END; N = N + LOCSTR; BARF3: IF IQ = 1 THEN N = N*16E0; HX: END; RETURN (N); END HEXCON; END FSCAN; -FILE 158; 778 RECORDS: 0 /* PROGRAM TO ACCUMULATE INFORMATION FROM *STATISTICS */ (SUBSCRIPTRANGE): STATGET: PROCEDURE OPTIONS(MAIN); DCL 1 INREG STATIC, 2 COUNT CHARACTER(1), 2 TYPE (8) BIT (1), /* TYPE(2)=1 FOR BATCH,0 FOR TERM */ 2 PAD CHARACTER (2), 2 USERID CHARACTER (4), 2 PROJNO CHARACTER (4), 2 PADD CHARACTER (12), >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> /* NOW FUDGE FOR THE VARIOUS YEARS */ J_DATE = J_DATE + MOD(YEAR-1968,7) + ((YEAR-1913)/4); /* THIS WILL NOT WORK BEFORE 1913 */ RETURN (MOD(J_DATE,7)+1); END DAY_OF_WEEK; /* */ /* */ END STATGET; -FILE 159; 113 RECORDS: 0 /* PROGRAM TO GET TERMINAL USAGE BY ANSWERBACK */ ABKGET: PROCEDURE OPTIONS(MAIN); DCL 1 INREG STATIC, 2 COUNT CHARACTER(1), 2 TYPE (8) BIT (1), /* TYPE(2)=1 FOR BATCH,0 FOR TERM */ 2 PAD CHARACTER (2), 2 USERID CHARACTER (4), 2 PROJNO CHARACTER (4), 2 PADD CHARACTER (12), 2 MONTH CHARACTER(2), >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> T2 = (ABK.DETIME(I)+1800)/3600; C1 = ABK.TALLY(I); C2 = ABK.DTALLY(I); PUT SKIP EDIT (ABK.NAME(I), T1,T2, T1+T2, C1,C2, C1+C2) (A,F(7), F(10), X(5), F(10), X(10), F(7), F(10), X(5),F(10)) ; END; PUT PAGE; RETURN; END ABKGET; -FILE 160; 100 RECORDS: 0ESD ABKGET ن*ABKGETA ~ IHEQINV  ABKG0001 ESD IHESADA  IHESADB  IHEQERR  ABKG0002 ESD IHEQTIC IHEMAIN IHENTRY ABKG0003 ESD IHESAPC  *ABKGETB*ABKGETC ABKG0004 ESD IHELDOB  IHEIOXB  IHEIOXB  ABKG0005 ESD IHEDOBB  IHEDOBB  IHEDOAA  ABKG0006 ESD IHEDOAA  IHEIOBC  IHEIOBT  ABKG0007 ESD IHEIOBB  IHEIOGA  IHESAFB  ABKG0008 ESD IHESAFA  IHESAFC  IHEBSD0  ABKG0009 ESD STAT STAT IHESPRT ABKG0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT - YY{YDY ABKG0091 RLD   (ABKG0092 TXT h  ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789#,$.-&+)(=?">:;_|@%ABKG0093 TXT { *>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0D DMPL0687 LTORG DMPL0688 DS 0D DMPL0689 BUF1 DS 4352X DMPL0690 BUF2 DS 4352X DMPL0691 BUF2A DS 4352X DMPL0692 BUF2B DS 4352X DMPL0693 BUF3 DS 4352X DMPL0694 BUF4 DS (NBUFS)XL8192 BUFFERS FOR REAL CORE DMPL0695 END DMPL0696 -FILE 162; 176 RECORDS: 0SYM DMPLST PCBDCTfPCBUPCPePCBRCAePCBVMADMPL0001 SYM fPCBSQCPf PCBJTBLdPCBSSePCBSTKfDMPL0002 SYM PCBPDPFdPCBXABUFFERbAB1bAB2cAB2DMPL0003 SYM Ac AB2BbAB3bAB4DMPLSTSTARThDMPL0004 SYM hhåhԥhƥhhhh c###DMPL0005 SYM 1hhh*h-h˥hh%hDMPL0006 SYM hhSTL1hqhhhuhyhܥh^DMPL0007 SYM hSSTL2h0h4h8hhhcDMPL0008 SYM ###4hh hhh<h&c###5DMPL0009 SYM hh%hhhh@hhREADMPL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD 04 m q  DMPL0167 RLD *uyDH@ DMPL0168 RLD }Mٳ*dh DMPL0169 RLD ڂ%ڸ{   u yDMPL0170 RLD  \ U  d h } MDMPL0171 RLD  }M DMPL0172 RLD U <&{٥ ُDMPL0173 RLD ٓٯ <&*- {DMPL0174 RLD ^ } DMPL0175 END DATE 01-05-70 19:09 DMPL0176 -FILE 163; 222 RECORDS: 0PTRA TITLE 'PROGRAM TO PRINT TRACE TABLE FROM TAPE' PTTR0001 PRTRACE START 0 PTTR0002 PRINT NOGEN PTTR0003 ENTER 12,SA=SA PTTR0004 L 2,4(0,1) GET POINTER TO INPUT ITEM PTTR0005 CLI 0(2),X'7E' PTTR0006 BNE ERROR PTTR0007 CLI 25(2),4 PTTR0008 BH ERROR PTTR0009 SR 3,3 PTTR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PNAME DS CL2 PTTR0213 DS 0D PTTR0214 FNUM DC X'4E00000000000000' PTTR0215 TIME DS D PTTR0216 LCNT DC F'1' PTTR0217 SVCCNT DC H'135' PTTR0218 PGNTCNT DC H'17' PTTR0219 CONDC DS H PTTR0220 FRSTT DC 16F'0' PTTR0221 END PTTR0222 -FILE 164; 92 RECORDS: 0SYM PRTRACEhhdhhhhhmwbPTRA0001 SYM y#1Ahh^hhhc{#1BBFNOHDRDPTRA0002 SYM TYPE0FNDSVCb#2AhhhhPTRA0003 SYM hhhhhhhhhPTRA0004 SYM hhc#2BBc #2Q1c#2Q3c#2Q5DPTRA0005 SYM TYPE1b#3Ah*h-h˥hh%h>PTRA0006 SYM hhhhhh:h@h=hPTRA0007 SYM cb#3Q1DhTYPE2obq#4AhhhuPTRA0008 SYM hyhhh^hhhhh[cPTRA0009 SYM #4BBc#4Q1DDTYPE3FNDPGNTb#5APTRA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT ُ **P4P3**P2******P1************** PTRA0083 TXT + PTRA0084 TXT h g PTRA0085 TXT k PTRA0086 TXT  PTRA0087 TXT Q F{**NONE** PTRA0088 RLD dhuy 8PTRA0089 RLD  yqPTRA0090 RLD *08 ن PTRA0091 END DATE 01-17-70 00:26 PTRA0092 -FILE 165; 25 RECORDS: 0WR80 TITLE 'PROGRAM TO WRITE 80 CHAR RECORDS ON TAPE' WT800001 WRITE80 START 0 WT800002 PRINT NOGEN WT800003 ENTER 12,SA=SA WT800004 LP SCARDS IN,INL,EXIT=EOF WT800005 LH 1,INL WT800006 CH 1,=H'80' WT800007 BNE NOTS8 WT800008 CLI IN,X'E0' WT800009 BNE NOTS8 WT800010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NOTS8 DS 0H WT800016 LA 1,IN(1) WT800017 MVC 0(80,1),=CL80' ' WT800018 SPUNCH IN,80 WT800019 B LP WT800020 EOF EXIT 0 WT800021 SA DS 18A WT800022 IN DS CL335 WT800023 INL DS H WT800024 END WT800025 -FILE 166; 13 RECORDS: 0SYM WRITE80LPhhhhåhhDWR800001 SYM NOTS8h@hhdhhhhqEOFWR800002 SYM AuSAaIN+bINLWRITE80h WR800003 SYM |hhmhqhh hu WR800004 ESD WRITE80 wSCARDS  SPUNCH  WR800005 TXT } 0{u&&ؓ0B{ WR800006 TXT  {qBB{n\{{NBmA{N B{{K{Bu WR800007 TXT {K|B 0Bq{k& ͌0{q} WR800008 TXT s   WR800009 TXT   WR800010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT    DECK&60000015 WR800011 RLD @ dq WR800012 END WR800013 -FILE 167; 290 RECORDS: 0RRST TITLE 'SUBROUTINE PACKAGE TO READ A RESTORE TAPE' RDRS0001 PRINT NOGEN RDRS0002 READREST START 0 RDRS0003 ENTRY GETREC,FINDREC,STARTRD RDRS0004 GETREC ENTER 12,SA=GRSA GET NEXT DISK RECORD RDRS0005 L 1,CURREC GET POINTER TO LAST RECORD RDRS0006 LTR 1,1 WAS THERE ONE RDRS0007 BZ READREC NO - READ FIRST RDRS0008 SR 2,2 GET KEY LENGTH RDRS0009 IC 2,5(0,1) RDRS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TEMP DS XL88 RDRS0281 RECPTR DC X'0000000001' RDRS0282 SWS DC X'0' RDRS0283 NOUNLD EQU X'80' ON IF SHOULDN'T UNLOAD OUTPUT RDRS0284 SEQ EQU X'40' RDRS0285 OUTA DS H,X,XL3,XL74,XL2 OUTPUT RDRS0286 LTORG RDRS0287 DS 0F RDRS0288 NMTBL DS 512XL88 512 MEMBER NAMES RDRS0289 END RDRS0290 -FILE 168; 762 RECORDS: 0PDS TITLE ' ROUTINE TO PUNCH/PRINT A PDS' UNLN0001 *********************************************************************** UNLN0002 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* UNLN0003 * VITAL MESSAGES FROM THE DIRECTORY RECORD FOR LOAD MODS. UNLN0004 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* UNLN0005 *********************************************************************** UNLN0006 SPACE 5 UNLN0007 PDSDSECT DSECT UNLN0008 LTH DS H LENGTH OF DIR. RECORD UNLN0009 IND1 DS X INDICATOR - WHAT KIND OF RECORD UNLN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE UNLN0753 PATCH DS 20F UNLN0754 LTORG UNLN0755 TXTESDID DC H'0' UNLN0756 TXTBLKAD DC A(0) UNLN0757 TXTBLKLG DC H'0' UNLN0758 TXTBLK DS XL4096 UNLN0759 SPACE 3 UNLN0760 ID#TBL DS 4096H UNLN0761 END PDSPNCH# UNLN0762 -FILE 169; 10 RECORDS: 0BLKR TITLE 'INPUT ROUTINE FOR LBT'S UNLINKER' BLKR0001 PRINT NOGEN BLKR0002 BLKRTN START 0 BLKR0003 ENTER 12,SA=SA BLKR0004 L 1,0(0,1) BLKR0005 READ 0,(1),EXIT=EOF BLKR0006 EXIT 0 BLKR0007 EOF EXIT 4 BLKR0008 SA DS 18A BLKR0009 END BLKR0010 -FILE 170; 36 RECORDS: 0 MACRO LNMC0001 &NAME ENTER &ENTRY,&OPRNDS,&VLPARA,&ID=,&MF=I LNMC0002 GBLB &IHBSWA,&IHBSWB LNMC0003 GBLC &IHBNO LNMC0004 LCLC &GNAME LNMC0005 &IHBNO SETC '309' LNMC0006 &GNAME SETC 'IHB'.'&SYSNDX' LNMC0007 &IHBSWA SETB ('&VLPARA' EQ 'VL') LNMC0008 &IHBSWB SETB ('&ENTRY' EQ '(15)') LNMC0009 AIF ('&MF' EQ 'L' AND '&ENTRY' NE '').ERROR1 LNMC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .EXIT MEXIT LNMC0027 .CONTCC ANOP LNMC0028 &NAME DS 0H LNMC0029 AGO .CONTC LNMC0030 .ERROR1 IHBERMAC 73,&IHBNO,&ENTRY ENTRY W/ MF=L LNMC0031 MEXIT LNMC0032 .ERROR2 IHBERMAC 74,&IHBNO,&ID ID W/ MF=L LNMC0033 MEXIT LNMC0034 .ERROR3 IHBERMAC 26,&IHBNO ENTRY SYMBOL MISSING LNMC0035 MEND LNMC0036 -FILE 171; 34 RECORDS: 0LIBP START 0 LIBP0001 PRINT NOGEN LIBP0002 ENTER 12,SA=SA LIBP0003 LP SCARDS IN,LEN,EXIT=EOF LIBP0004 MVI IN,C' ' LIBP0005 MVC NUM(11),=CL11' ' LIBP0006 CLC IN+1(3),=C'LIB' LIBP0007 BNE PRINT LIBP0008 CLC IN+4(4),=C' ' LIBP0009 BE PRINT LIBP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SA DS 18A LIBP0025 DBL DS D LIBP0026 PAT DC X'402020202020214B202020' LIBP0027 DS 0F LIBP0028 OUT DC C' ' LIBP0029 NUM DC CL11' ' LIBP0030 DC C' ' LIBP0031 IN DS CL256 LIBP0032 LEN DS H LIBP0033 END LIBP0034 -FILE 172; 15 RECORDS: 0SYM LIBPLPhhhhåhhbP 0001 SYM RINThqhhhuhyhܳEOFA{SA 0002 SYM bDBLbPATHbOUTbNUM 0003 SYM haINbLENLIBPhhh 0004 SYM  hh 0005 ESD LIBP SCARDS  SPRINT  0006 TXT } 0{{&0}&}0ؓ0BƇ{  0007 TXT {k AKABNAB{bNAB䌯{bA+AKAAA A 0008 TXT A ^{@k-KAB䍥Bʥ {ܓ0B{y 0009 TXT y   ͌0{}}q}  0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   . 0011 TXT    0012 TXT   LIB 0013 RLD q  0014 END 0015 -FILE 173; 114 RECORDS: 0 TITLE 'PROGRAM TO WATCH FOR USER SIGNON/SIGNOFF' BBST0001 BBSIT START 0 BBST0002 SPACE 2 BBST0003 PRINT NOGEN BBST0004 SPACE 2 BBST0005 REQU BBST0006 PRINT OFF BBST0007 COPY *LLMPSEQU(100) BBST0008 PRINT ON BBST0009 SPACE 2 BBST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> USER DC C'XXXX SIGNED-O' BBST0105 ONOFF DC C'FF',X'15',C'******',X'15' BBST0106 LEN EQU *-MESSAGE BBST0107 SA DS 18F BBST0108 SPACE 5 BBST0109 LTORG BBST0110 SPACE 5 BBST0111 TABLE DS 100CL5 BBST0112 SPACE 5 BBST0113 END BBST0114 -FILE 174; 27 RECORDS: 0SYM BBSIThhhhhhƳc###1 0001 SYM |ST1h-h˥hh%hhST 0002 SYM 18ST19sST20ST21ST2h{hDhHh 0003 SYM h}hMcO###3 ST3ST4ST5ST6 0004 SYM ST10ST9+ST7ST16fST8ST11ST12FST 0005 SYM 13hMhQhh\hUhYST144ST15 0006 SYM  ST17BBUF&cBUFLfMESSAGEh h> 0007 SYM h? c#USER dhONOFFhh hj 0008 SYM kAmSAh\hUhYhh0h4 0009 SYM h8hhhhhDTABLE 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT  -K-KC 0{CnAm 0A BYq N 0018 TXT & &CAfN&BAfN&>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTORG STSC0184 SPACE 3 STSC0185 BUF DS 34XL128 STSC0186 TABLE DS 500CL12 STSC0187 TABLEEND DS XL1 STSC0188 SPACE 4 STSC0189 STA DSECT STSC0190 COPY MTA:STATDSECT STSC0191 SPACE 5 STSC0192 END STSC0193 -FILE 176; 56 RECORDS: 0 EJECT SDSC0001 * SDSC0002 * STRUCTURE OF EACH RECORD FO "*STATISTICS" FILE SDSC0003 * SDSC0004 SPACE 5 SDSC0005 DS 0F SDSC0006 STADCT EQU * SDSC0007 STACB DS F ONE BYTE COUNT TO NEXT COUNT; SDSC0008 * THREE BYTES FLAGS. SDSC0009 STABB EQU X'40' SDSC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * VMI BASED ON WAIT TIME. SDSC0047 * BINARY PAGE-SEC*1000 SDSC0048 STAEND DS F SDSC0049 SPACE 3 SDSC0050 LSTAR EQU STAEND+1-STADCT LENGTH OF A NORMAL STAT. RECORD SDSC0051 SPACE 3 SDSC0052 STAPTM DS F (OPTIONAL) PLOT TIME - SECONDS SDSC0053 STAFIN DS F END AFTER OPTIONAL SECTION SDSC0054 SPACE 3 SDSC0055 LSTAR2 EQU STAFIN+1-STADCT LENGTH OF EXTENDED STAT REC. SDSC0056 -FILE 177; 39 RECORDS: 0ESD STATSCN *SYSTEM  SPRINT  SSCN0001 ESD SCARDS  GETFD  FREEFD  SSCN0002 ESD REWIND#  GDINFO  WRITE  SSCN0003 ESD FREESPAC READ  SPUNCH  SSCN0004 TXT } 0E<&0}&}0kErNEo{oEr0E{%SSCN0005 TXT  ENTER USER ID AND DATE OR "DONE" ͓SSCN0006 TXT Euk0Ey{q mm Č{&EEmSSCN0007 TXT y E-n &Ag{^0EAQM USER SSCN0008 TXT \ ID MUST BE 2, 3, OR 4 CHARACTERS. ͌0{0An &AgSSCN0009 TXT  AK EQ{AEՌ {A k$k.N E܌B0SSCN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT o  * SSCN0030 TXT DONE$XXXXSSCN0031 TXT Q  XX SSCN0032 RLD dhDH% SSCN0033 RLD 8<@dh}M QSSCN0034 RLD  <@dh& SSCN0035 RLD mq}M   u ^SSCN0036 RLD    y     {SSCN0037 RLD  D H   M SSCN0038 END DATE 01-19-70 23:51 SSCN0039 -FILE 178; 65 RECORDS: 0HSPQ TITLE 'PROGRAM TO PRINT OUT HASP QUEUE' HSPQ0001 HASPQ START 0 HSPQ0002 PRINT NOGEN HSPQ0003 ENTER 12,SA=SA HSPQ0004 L 2,=V($JQENT) HSPQ0005 L 2,0(0,2) HSPQ0006 LP SR 1,1 HSPQ0007 IC 1,1(0,2) HSPQ0008 N 1,=F'15' HSPQ0009 SLL 1,3 HSPQ0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OUTWH DC C'XXXXXXXX' HSPQ0056 DC C' STATUS AND IS ' HSPQ0057 OUTBSY DC C'XXXX' HSPQ0058 DC C', PRIORITY=' HSPQ0059 OUTPRIO DC C'XX' HSPQ0060 DC C' ' HSPQ0061 OUTPURG DC C'XXXXXXX' HSPQ0062 OUTE EQU * HSPQ0063 OUTL DC Y(OUTE-OUT) HSPQ0064 END HSPQ0065 -FILE 179; 377 RECORDS: 0 TITLE 'TO LABEL USER USED TAPES' ULBF0001 ULABEL START 0 ULBF0002 ENTER 12,SA=SAVE ULBF0003 SPACE ULBF0004 LA 1,=A(SLIST) ULBF0005 LA 2,LUNS ULBF0006 BAL 10,MOUNTP MOUNT SCRATCH TAPE ULBF0007 OWREAD LA 1,=A(ENT1,OL,0) ULBF0008 L 15,=V(SERCOM) ULBF0009 BALR 14,15 ULBF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HDR2 DS 0CL80 ULBF0368 DC C'HDR2U3276732767' ULBF0369 DC 65C' ' ULBF0370 * ULBF0371 SAVE DS 18F ULBF0372 OPER DS CL45 ULBF0373 REPLY DS CL30 ULBF0374 RECORD DS 328CL100 MUST BE AT ENDOF PROG ULBF0375 SPACE 2 ULBF0376 END ULABEL ULBF0377 -FILE 180; 79 RECORDS: 0SYM ULABELOWREADSEREAD;SCANB:TESTNSNFS 0001 SYM KTMODETMDPAKMOVSERUMNT!UTOSCRS 0002 SYM TEP2STEP2BDSCRTOU}STEP34MOUNTPDEVOK 0003 SYM READTP&RTMSNOTMTSNOTMTS2qEND1T^ERROR 0004 SYM ERREXTRUSEROERROUTWRITEThh hh 0005 SYM h<h&c###1@REWINDERREXA 0006 SYM STEP2NDYWTMSERERRhhhhh 0007 SYM hƳc###2*CARDhhhh@hh 0008 SYM dhhmERRNUMsENDRUNwENDJFINIhh 0009 SYM f[###0012 hh}fK###0013 WhYH 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT 4 HDR1 0001 99999000 0070 TXT  0000 0071 TXT HDR2U3276732767 0072 TXT @   0073 RLD  @ Y 0074 RLD 0  0075 RLD  < & * @ 0076 RLD 8     d 0077 RLD   D H 0078 END  0079 -FILE 181; 252 RECORDS: 0LABEL CSECT ULBE0001 TITLE 'EMPTY TAPE LABELLING' ULBE0002 * ULBE0003 * REGISTER EQUATES ULBE0004 * ULBE0005 R0 EQU 0 ULBE0006 R1 EQU 1 ULBE0007 R2 EQU 2 ULBE0008 R3 EQU 3 ULBE0009 R4 EQU 4 ULBE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ULBE0243 WTM DC C'WTM' ULBE0244 REW DC C'REW' ULBE0245 RUN DC C'RUN' ULBE0246 MODE DC C'800 ' ULBE0247 FNAME DC C'*LABEL* ' ULBE0248 * ULBE0249 SAVE DS 18F ULBE0250 * ULBE0251 END LABEL ULBE0252 -FILE 182; 50 RECORDS: 0SYM LABEL+GUNITSGOWNRMOUNThPMSGSCANB 0001 SYM }TESTN0SMODE MOVENSERERRNEXTUAADE 0002 SYM VOK&WVOLhBBENDRUNEXIT8WRITEhh 0003 SYM h hhhhhPRINThh 0004 SYM hhh<h&WEOF!WCChhh 0005 SYM h@hhdhhhݳkERRCARDcBEM 0006 SYM SGcWERNOc0ENDDdENTERdLINE1d>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   0041 TXT HDR1 0001 99999000 0042 TXT -  0000 0043 TXT HDR2U3276732767 0044 TXT ^   WTMREWRUN800 *LABEL* 0045 TXT 1600HDR1HDR2EOF1EOF20  0046 TXT -  800 0047 RLD   @-  0048 RLD  %    & 0049 END  0050 -FILE 183; 75 RECORDS: 0PBAT TITLE '****DUMPS BATCH FILE ON TAPE****' PBAT0001 PBAT CSECT PBAT0002 SVE PBAT0003 LA R0,3 PBAT0004 SVC LOCK PBAT0005 LM R0,R1,=C'SCARDS ' PBAT0006 L R15,=V(GDINFO) PBAT0007 BASR R14,R15 PBAT0008 MVC UNIT,0(R1) PBAT0009 PBAT2 LA R1,PAR GET A RECORD PBAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RAND DS F PBAT0066 COUNT DS H PBAT0067 BATTAB DS 256C PBAT0068 BUFF DS 256C PBAT0069 EQUS PBAT0070 LOCK EQU 58 PBAT0071 UNLOCK EQU 59 PBAT0072 SSCR EQU SA+12 PBAT0073 RJBBUF EQU X'44' PBAT0074 END PBAT PBAT0075 -FILE 184; 15 RECORDS: 0ESD PBAT GDINFO  SCARDS  PBAT0001 ESD URAND  SPUNCH  DSRDISPV PBAT0002 ESD LASTJOB  EMPTY  PBAT0003 TXT } \}(}0 PBAT0004 TXT &\}&}\qL˓0L%KJ&J0LČJڍ J- LPBAT0005 TXT }Fn\K匿}FNLKi}F2} K|0} &0J*oJL0L@͓0J*PBAT0006 TXT D 3J/} 0} }4Kk 0K(00KJ-LJ0L\}PPBAT0007 TXT KJ0Ld00Lh!0(\}4o0J&0L(\}4m"0PBAT0008 TXT  ē}}\} q }>%-* PBAT0009 TXT -  PBAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   SCARDS DECK& PBAT0011 RLD <& d@h PBAT0012 RLD mq PBAT0013 END  PBAT0014 LCS LCSYMBOL -FILE 185; 5 RECORDS: 0$SET ECHO=OFF $RUN *MOUNT PAR=POOL ON 9TP *TAPE* 'TAPE FOR INPUT TO HASP - RING IN' $SET IC=OFF $RUN PBATO SCARDS=*QUIP SPUNCH=*TAPE* $SIG SHORT -FILE 186; 329 RECORDS: 0DRMI TITLE 'PROGRAM TO INITIALIZE DRUM' DNIT0001 DRUMINIT START 0 DNIT0002 SPACE 5 DNIT0003 STIO EQU 2 DNIT0004 WAIT EQU 3 DNIT0005 SILI EQU X'20' DNIT0006 SPACE 5 DNIT0007 USING *,15 DNIT0008 BALR 10,0 DNIT0009 DROP 15 DNIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MVC EXTNEW(8),STARTL DNIT0320 LPSW WAIT DNIT0321 * DNIT0322 EXTNEW EQU 88 DNIT0323 DS 0D DNIT0324 STARTL DC X'FF000000' DNIT0325 DC V(DRUMINIT) DNIT0326 WAIT DC X'FF020055' DNIT0327 DC X'05050505' DNIT0328 END DNIT0329 -FILE 187; 263 RECORDS: 0^- IPL CARD TXT ^-^-^: BSLD0003 TXT  {Kʯ{&{{j{b{u{}nX{BSLD0004 TXT {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END 0007 ESD ERROR SYSTEM  DRUMINIT 0001 TXT K0b0 0002 TXT    0003 REP 000009 0118 STOP AFTER EACH SUOUNITNOC 0110 900000 PER REP 000010 0101 REP 000018 0101 RLD  0004 END 0005 LDT ERROR -FILE 188; 3315 RECORDS: 0 MACRO OLTS0001 &NAME BLD &FORMS=,&HEAD=,&COMMENT=,&RESULTS= OLTS0002 GBLC &START OLTS0003 LCLA &CTR1,&CTR2,&MCONT,&T2CON OLTS0004 LCLA &BUK1,&BUK2 OLTS0005 LCLC &RSTOR,&A OLTS0006 .* BLD BUILD A LIST OF PRINT CONTROL WORDS OLTS0007 .* OLTS0008 .* THE BLD MACRO GENERATES A GROUP OF CONSTANTS WHICH OLTS0009 .* THE PRINT ROUTINE INTERPRETS AS CONTROL WORDS. OLTS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IFD035 WTOT 'IFD035D IS A TELEPROCESSING JOB ACTIVE? REPLY YES OR NOXOLTS3306 .',MF=L OLTS3307 IFD036 WTOT 'IFD036I TELEPROCESSING IS ACTIVE. TIMING TEST BYPASSED.XOLTS3308 ',MF=L OLTS3309 IFD037 WTOT 'IFD037I SNS-XXXXXXXXXXXX CSW-XXXXXXXXXXXXXXXX',MF=L OLTS3310 IFD038 WTOT 'IFD038D 30 SEC T/O WITH NO INTERRUPT. UNIT XXXX REPLY WXOLTS3311 AIT OR CANCEL',MF=L OLTS3312 IFD039 WTOT 'IFD039D TO CONTINUE,ENTER ONE OF THE FOLLOWING--TERM,FPXOLTS3313 M,OR RETRY.',MF=L OLTS3314 END IFDOLT00 OLTS3315 -FILE 189; 74 RECORDS: 0TDIR TITLE 'DIRECTORY OF TESTS AVAILABLE TO OLTS' OLTT0001 TESTDIR CSECT OLTT0002 DC C'T2400A ' OLTT0003 DC C'T2400B ' OLTT0004 DC C'T2400C ' OLTT0005 DC C'T2400D ' OLTT0006 DC C'T2400E ' OLTT0007 DC C'T2400F ' OLTT0008 DC C'T2400G ' OLTT0009 DC C'T2400H ' OLTT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'T1403K ' OLTT0065 DC C'T1403L ' OLTT0066 DC C'T1403M ' OLTT0067 DC C'T1403N ' OLTT0068 DC C'T1403O ' OLTT0069 DC C'T1403P ' OLTT0070 DC C'T1403Q ' OLTT0071 DC C'T1403R ' OLTT0072 DC C'ENDTESTS' OLTT0073 END OLTT0074 -FILE 190; 1088 RECORDS: 0TFHW TITLE 'T2400W TAPE TEST' T24W0001 MACRO T24W0002 &NAME BLD &FORMS=,&HEAD=,&COMMENT=,&RESULTS= T24W0003 GBLC &START T24W0004 LCLA &CTR1,&CTR2,&MCONT,&T2CON T24W0005 LCLA &BUK1,&BUK2 T24W0006 LCLC &RSTOR,&A T24W0007 &A SETC '&NAME' T24W0008 CNOP 0,4 T24W0009 SPACE 2 T24W0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PEMODE DC C'P.E.' T24W1079 BKWDSW DC X'00' T24W1080 NORMSW DC X'00' T24W1081 MD2415 DC C'2415' T24W1082 MODSWC DC X'00' T24W1083 MODSET DC X'B3' T24W1084 MODREF DC X'00' T24W1085 PASFLG DC X'00' T24W1086 LTORG T24W1087 END T24W1088 -FILE 191; 39 RECORDS: 0FC11 TITLE 'FUNCTION 10 AND 11 FROM OS OLTS SVC' OLTF0001 FCN1011 CSECT OLTF0002 * PARAMTERS: OLTF0003 * R0: LOC OF PARAMTER LIST OLTF0004 * WORD 1: CCW LIST LOCATION OLTF0005 * WORDS 2 TO 5: TIMING PARAMS FROM TEST SECTION OLTF0006 * WORD 6: LOGICAL DEVICE NUMBER OLTF0007 * WORDS 7 TO 9: RETURNS LIST OLTF0008 * R1: 1 IF FUCTION 10, 2 IF FUCNTION 11 OLTF0009 SPACE 5 OLTF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERR SR R1,R1 ERROR CODE OLTF0030 LR RF,R1 SET UP RETURN VALUE OLTF0031 L RD,4(0,RD) RETURN OLTF0032 L RE,12(0,RD) OLTF0033 LM R0,RC,20(RD) OLTF0034 BR RE OLTF0035 * OLTF0036 RTNL DC A(0,ERR,ERR),5A(0) OLTF0037 SA DS 18A OLTF0038 END OLTF0039 -FILE 192; 2834 RECORDS: 0 MACRO REX00001 &LOC TBL &MESS REX00002 LCLC &A REX00003 LCLC &B REX00004 &A SETC '&MESS' REX00005 &B SETC 'L''' REX00006 &LOC DC AL1(&B&A),AL3(&MESS) REX00007 MEND REX00008 MACRO REX00009 &Q SIOR REX00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> M00A1 DC C'XXX' REX02825 M00A2 DC C'XXX' REX02826 M00A3 DC C'XXX' REX02827 M00A4 DC C'XXX' REX02828 M00A5 DC C'XXX' REX02829 M00A6 DC C'XXX' REX02830 M00A7 DC C'XXX' REX02831 DS 1F REX02832 OUTP DS 5CL4100 REX02833 END REX02834 -FILE 193; 2066 RECORDS: 0UDT* 0200 D200 2314 11223344556677 REXC0001 UDT* 0210 D210 2314 11223344556677 REXC0002 UDT* 0878 ARU0 91A2B3C4D5E6F7 REXC0003 UDT* 00D0 CEL1 12 REXC0004 UDT* 0080 DC00 112233445566778899 REXC0005 UDT* 008A DC10 B1C2D3E4F5 REXC0006 UDT* 0090 DC16 172839 REXC0007 UDT* 0094 DC20 5162738495A6B7C8D9 REXC0008 UDT* 009E DC30 F1 REXC0009 UDT* 00A0 DC32 13243546576879 REXC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 0000 0000 REXC2057 CC6 S6 03FF 03FF 3E REXC2058 0000 0000 REXC2059 CC7 S7 02FF 0100 F7C REXC2060 FFFF F7E REXC2061 CC8 S8 02FF 0100 F7C REXC2062 FFFF F7E REXC2063 CC9 F67 0000 0000 0000 0000 0000 REXC2064 **END REXC2065 **LAST REXC2066 -FILE 194; 23 RECORDS: 0RIPL TITLE 'RIPPLE PRINT' RPLE0001 RIPPLE START 0 RPLE0002 PRINT NOGEN RPLE0003 ENTER 12,SA=SA RPLE0004 LP1 LA 2,OUT+59 RPLE0005 LA 3,60 RPLE0006 LP2 MVI 0(2),C'9' RPLE0007 MVC 1(1,2),61(2) RPLE0008 SPRINT (2),133,@CC RPLE0009 BCTR 2,0 RPLE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OUT DS 0C RPLE0014 DC C'1234567890XY/STUVW|:_",=' RPLE0015 DC C'JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;''?>' RPLE0016 DC C'1234567890XY/STUVW|:_",=' RPLE0017 DC C'JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;''?>' RPLE0018 DC C'1234567890XY/STUVW|:_",=' RPLE0019 DC C'JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;''?>' RPLE0020 DC C'1234567890XY/STUVW|:_",=' RPLE0021 DC C'JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&&@<;''?>' RPLE0022 END RPLE0023 -FILE 195; 14 RECORDS: 0SYM RIPPLELP1LP2hhhh hhRIPL0001 SYM ASABOUThhhhRIPL0002 SYM  4hhhh%RIPPLEh RIPL0003 ESD RIPPLE mSPRINT  RIPL0004 TXT } 0{&&ʥ{k9K&{0A{RIPL0005 TXT  e ͺ{0{ RIPL0006 TXT 1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#&@<;RIPL0007 TXT Q '?>1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)%$*#RIPL0008 TXT  &@<;'?>1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHI+.)RIPL0009 TXT  %$*#&@<;'?>1234567890XY/STUVW|:_",=JKLMNOPQR-Z(ABCDEFGHRIPL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   I+.)%$*#&@<;'?> RIPL0011 TXT   RIPL0012 RLD   RIPL0013 END RIPL0014 -FILE 196; 769 RECORDS: 0OPR2 TITLE 'MTS JOB TO MONITOR THE STATUS OF THE SYSTEM AND FAKE OP&OPER0001 ERATORS CONSOLE FUNCTIONS' OPER0002 OPER2260 CSECT OPER0003 SPACE 4 OPER0004 *********************************************************************** OPER0005 * * OPER0006 * SUPERVISOR CALL EQU'S * OPER0007 * * OPER0008 * * OPER0009 *********************************************************************** OPER0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 4 OPER0760 HQPRINT DSECT OPER0761 DS CL36 OPER0762 HQDIS DS CL7 OPER0763 HQDSKQ DS CL3,CL7 OPER0764 HQXECQ DS CL4,CL6 OPER0765 HQPTRQ DS CL4,CL6 OPER0766 HQPCHQ DS CL3,CL5 OPER0767 SPACE 4 OPER0768 END OPER0769 -FILE 197; 734 RECORDS: 0OPR2 TITLE 'MTS JOB TO MONITOR THE STATUS OF THE SYSTEM AND FAKE OP&OPER0001 ERATORS CONSOLE FUNCTIONS' OPER0002 OPER2260 CSECT OPER0003 SPACE 4 OPER0004 *********************************************************************** OPER0005 * * OPER0006 * SUPERVISOR CALL EQU'S * OPER0007 * * OPER0008 * * OPER0009 *********************************************************************** OPER0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 4 OPER0725 HQPRINT DSECT OPER0726 DS CL36 OPER0727 HQDIS DS CL7 OPER0728 HQDSKQ DS CL3,CL7 OPER0729 HQXECQ DS CL4,CL6 OPER0730 HQPTRQ DS CL4,CL6 OPER0731 HQPCHQ DS CL3,CL5 OPER0732 SPACE 4 OPER0733 END OPER0734 -FILE 198; 258 RECORDS: 0SYM OPER2260gIHB0003BGET2g&IHB0004BGETCOPR20001 SYM HECKHSHLNHSHFNDyREINITGGENERATEAOPR20002 SYM TNPOOLECALLME*FREEZEFREEZHMAKEOPEROPR20003 SYM \MAKEUSERSRCHJTL1SRCHJTL3SRCHJTL4SRCHJTOPR20004 SYM L5SRCHJTL6SRCHJTL2qSRCHJTL7MAKEHASPQBUOPR20005 SYM FTSTHASPGENWRDSP1REFRESH# WRDSP2CPOOFOPR20006 SYM hNODEVICEhhmhqhhhucOPR20007 SYM w###1DATNPROCPGNTh0h4h8hhOPR20008 SYM hc###2hcIOCCg INPUTOPR|fOPR20009 SYM USEROUTgpUSERPDP8hfUSERIBMhugOPR20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD uDMU4 OPR20245 RLD  <* %OPR20246 RLD @dmuD MOPR20247 RLD U4  OPR20248 RLD <*%@d ^OPR20249 RLD  & { h   DOPR20250 RLD   0U OPR20251 END OPR20252 LCS LCSYMBOL LDT -FILE 199; 147 RECORDS: 0BATSCAN CSECT SCN00001 USING PROLOG,10 SCN00002 PROLOG STM 14,12,12(13) SCN00003 LR 10,15 SCN00004 LA 12,SAVE SCN00005 ST 13,4(0,12) SCN00006 ST 12,8(0,13) SCN00007 LR 13,12 SCN00008 B START SCN00009 EPILOG L 13,4(0,13) SCN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LINENR DC F'0' SCN00138 LEN DC H'0' SCN00139 H080 DC H'80' SCN00140 SW DC X'0' SCN00141 SPACE SCN00142 JOBS EQU 1 SCN00143 S8 EQU 2 SCN00144 EIGHTY EQU 128 SCN00145 NOT EQU 255 SCN00146 END SCN00147 -FILE 200; 196 RECORDS: 0ACAT TITLE 'SUBROUTINE TO RETURN DISK AND DATACELL STATISTICS' ACAT0001 ACATALOG START 0 ACAT0002 * ON INPUT R0 CONTAINES USERID ACAT0003 * ON OUTPUT R0 HAS DISK AND DATACELL FILES ACAT0004 * R1 HAS DISK AND DATACELL PAGES ACAT0005 * RETURN CODES ACAT0006 * 0=OK ACAT0007 * 4=PAGE COUNT NOT CORRECT(BOTH DISK AND DC) ACAT0008 * PROBABLY DUE TO DATACELL DOWN ACAT0009 * R0 STILL HAS CORRECT FILE COUNTS ACAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTORG ACAT0187 SPACE ACAT0188 CNOP 0,8 ACAT0189 FCB DS 70F ACAT0190 SCR DS 250F ACAT0191 CYLSIZAD EQU 52 ACAT0192 TRKLENAD EQU 54 ACAT0193 DTYPEAD EQU 30 ACAT0194 COPY *CATEQU ACAT0195 END ACAT0196 -FILE 201; 70 RECORDS: 0ACCDCT DS AL1(ENDREC-ACCDCT-2) COUNT TO NEXT COUNT AFMT0001 FLAGS DS XL3'0' FLAGS: 0-PRIVILEGED, 2-IN USE, AFMT0002 * 3-IGNORE TERMINAL MAXIMUM, 4-LIBRARY AFMT0003 * FILE PRIVILEGE, 5-NO CHANGE, 6-FILE AFMT0004 * SPACE ERROR, 7-IGNORE PLOTTING AFMT0005 * MAXIMUM AFMT0006 ACCUAN DS F'0' UNIVERSITY ACCOUNT NUMBER AFMT0007 ACCPN DS CL4 PROJECT NUMBER AFMT0008 ACCMDT DS H'0' MAXIMUM FILE (PAGES) AFMT0009 ACCMFUB DS H'0' MAXIMUM BULK FILE (PAGES) AFMT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *100000) AFMT0061 ACCRPLT DS H PLOTTING RATE (DOLLARS/SEC*100000) AFMT0062 ACCPTR DS F AFMT0063 DS AL1(ENDWRITE-ENDREC-1) COUNT TO NEXT COUNT AFMT0064 ENDREC EQU * END OF FIXED PORTION OF RECORD AFMT0065 ACCPWFLG DS C'P' PASSWORD FLAG AFMT0066 ACCPWLEN DS X PASSWORD LENGTH AFMT0067 ACCPW DS CL6 PASSWORD AFMT0068 DS X'FF' AFMT0069 ENDWRITE EQU * END OF PHYSICAL RECORD AFMT0070 -FILE 202; 11 RECORDS: 0%BEFORE AFMT0002 FLAGS DS XL3'0' FLAGS: 0-PRIVILEGED, 2-IN USE, * 3-IGNORE TERMINAL MAXIMUM, 4-LIBRARY * FILE PRIVILEGE, 5-NO CHANGE, 6-FILE * SPACE ERROR, 7-IGNORE PLOTTING * MAXIMUM %DELETE AFMT0002 AFMT0004 %BEFORE AFMT0042 ACCEXPJD DS F'0' EXPIRATION (JULIAN MINUTES) %DELETE AFMT0042 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %BEF FILEMARK -FILE 203; 25 RECORDS: 0 DC H'0' BILLING CLASS 0 ARAT0001 DC H'59' TERMINAL RATE ARAT0002 DC H'513' VIRTUAL MEMORY RATE OVER CPU TIME ARAT0003 DC H'103' VIRTUAL MEMORY RATE OVER WAIT TIME ARAT0004 DC H'6417' CPU RATE ARAT0005 DC H'62' LINES PRINTED RATE ARAT0006 DC H'395' PAGES PRINTED RATE ARAT0007 DC H'650' CARDS PUNCHED RATE ARAT0008 DC H'134' CARDS READ RATE ARAT0009 DC H'26' FILE STORAGE RATE ARAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC H'139' ARAT0016 DC H'8556' ARAT0017 DC H'80' ARAT0018 DC H'395' ARAT0019 DC H'695' ARAT0020 DC H'155' ARAT0021 DC H'35' ARAT0022 DC H'8' ARAT0023 DC H'1528' ARAT0024 RATELEN EQU 24 ARAT0025 -FILE 204; 14 RECORDS: 0MAXFLAGS DS XL4 FLAGS: 3-IGNORE TERMINAL MAXIMUM, 1APFT0001 7-IGNORE PLOTTING MAXIMUM APFT0002 UAN DS F UNIVERSITY ACCOUNT NUMBER APFT0003 IDRN DS F IDR NUMBER APFT0004 UNIT DS F SCHOOL, UNIT, SUB-UNIT CODE APFT0005 MAXEXPJD DS F MAXIMUM EXPIRATION (JULIAN MINUTES) APFT0006 SIGNONID DS CL4 AUTHORIZED SIGNON ID APFT0007 MAXM$ DS F MAXIMUM CHARGE (DOLLARS*10000) APFT0008 MAXMDT DS F MAXIMUM FILE (PAGES) APFT0009 MAXMFUB DS F MAXIMUM DATA CELL (PAGES) APFT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MAXMTM DS F MAXIMUM TERMINAL (MINUTES) APFT0011 MAXMPLT DS F MAXIMUM PLOTTING (MINUTES) APFT0012 DIRPTR DS A DIRECTORY ENTRY POINTER APFT0013 BC DS H BILLING CLASS APFT0014 -FILE 205; 17 RECORDS: 0%BEFORE 'PFMT0001' MAXFLAGS DS XL4 FLAGS: 3-IGNORE TERMINAL MAXIMUM, 1 7-IGNORE PLOTTING MAXIMUM UAN DS F UNIVERSITY ACCOUNT NUMBER IDRN DS F IDR NUMBER UNIT DS F SCHOOL, UNIT, SUB-UNIT CODE MAXEXPJD DS F MAXIMUM EXPIRATION (JULIAN MINUTES) SIGNONID DS CL4 AUTHORIZED SIGNON ID MAXM$ DS F MAXIMUM CHARGE (DOLLARS*10000) MAXMDT DS F MAXIMUM FILE (PAGES) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MAXMFUB DS F MAXIMUM DATA CELL (PAGES) MAXMTM DS F MAXIMUM TERMINAL (MINUTES) MAXMPLT DS F MAXIMUM PLOTTING (MINUTES) DIRPTR DS A DIRECTORY ENTRY POINTER BC DS H BILLING CLASS %DELETE 'PFMT0001' 'PFMT0005' %BEF FILEMARK -FILE 206; 173 RECORDS: 0AERR TITLE 'MTS ACCOUNTING FILE RECORD ERROR DETECTION PROGRAM--22 1AERR0001 OCT 68' AERR0002 MACRO AERR0003 &NAME BNEI &A,&I AERR0004 &NAME CLI &A,&I BRANCH ON NOT EQUAL IMMEDIATE AERR0005 BNE PRINT AERR0006 MEND AERR0007 SPACE 5 AERR0008 MACRO AERR0009 &NAME TMBNZ &A,&M AERR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * AERR0164 * DUMMY SECTION FOR ACCOUNTING RECORD * AERR0165 * * AERR0166 *********************************************************************** AERR0167 SPACE 5 AERR0168 RECORD DSECT AERR0169 COPY ACCFORMAT AERR0170 ORG RECORD+255 AERR0171 SPACE 5 AERR0172 END AERR0173 -FILE 207; 4 RECORDS: 0%BEF AERR0062 TMBNZ FLAGS,X'40' FIRST FLAG BYTE AERR %DEL AERR0062 %BEF FILEMK -FILE 208; 387 RECORDS: 0APRT TITLE 'MTS ACCOUNTING RECORD PRINT PROGRAM--2 JUL 69' APRT0001 *********************************************************************** APRT0002 * * APRT0003 * ACCPRINT * APRT0004 * * APRT0005 * GR1 POINTS TO A THREE WORD PARAMETER LIST ON ENTRY. * APRT0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* APRT0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * APRT0008 * RECORD TO BE PRINTED. * APRT0009 * WORD3 ADDRESS OF A 10 CHARACTER AREA CONTAINING A NOTE* APRT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** APRT0378 * * APRT0379 * DUMMY SECTION FOR ACCOUNTING RECORD * APRT0380 * * APRT0381 *********************************************************************** APRT0382 SPACE 5 APRT0383 RECORD DSECT APRT0384 COPY ACCFORMAT APRT0385 ORG RECORD+255 APRT0386 END APRT0387 -FILE 209; 104 RECORDS: 0%BEFORE APRT0001 APRT TITLE 'MTS ACCOUNTING RECORD PRINT PROGRAM--2 JUL 69' %DELETE APRT0001 %DELETE APRT0038 APRT0041 %DELETE APRT0057 APRT0058 %DELETE APRT0109 APRT0124 %BEFORE APRT0192 &NAME TIMDAT &JULTIM,&DATE,&TIME .********************************************************************** .* * >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HEAD7 DC C' CUM PLOT CUM PUNCH LAST SIG PG1 RT UNIT' HEAD8 DC C' CUM READ TIM/DATE PC1 H RT' %DELETE APRT0418 APRT0431 %BEFORE APRT0438 PTRHEAD1 DC CL130'1 SIGNON MAX CHARGE MX FIL CUM CPU VM LAST CUM 1 BILL CLS READ RT' %DELETE APRT0438 APRT0439 %BEF FILEMARK -FILE 210; 84 RECORDS: 0ALST TITLE 'MTS ACCOUNTING LISTING PROGRAM--18 OCT 68' ALST0001 *********************************************************************** ALST0002 * * ALST0003 * ACCLIST * ALST0004 * * ALST0005 * LISTS THE MTS ACCOUNTING FILE. * ALST0006 * * ALST0007 *********************************************************************** ALST0008 SPACE 5 ALST0009 ACCLIST START ALST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> F2 DC F'2' ALST0075 RECORD DS CL256 ALST0076 SAVE DS 18F ALST0077 SIGNONID DC X'80000000' ALST0078 COUNT DS H ALST0079 H23 DC H'23' ALST0080 BLANKS DC CL10' ' ALST0081 NRRECMSG DC C'- ',X'2020202120',C' RECORDS IN FILE' ALST0082 SPACE 5 ALST0083 END ALST0084 -FILE 211; 241 RECORDS: 0AINT TITLE 'MTS ACCOUNTING FILE INITIALIZATION PROGRAM--26 SEP 69' AINT0001 *********************************************************************** AINT0002 * * AINT0003 * ACCINITL * AINT0004 * * AINT0005 * RC=0 NORMAL RETURN. * AINT0006 * 4 ERROR IN OBTAINING ACCOUNTING FILE, SOME DISK, OR * AINT0007 * CLOSING ACCOUNTING FILE. * AINT0008 * * AINT0009 * ACCFILUP * AINT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * AINT0232 * ACCOUNTING RECORD STORAGE * AINT0233 * * AINT0234 *********************************************************************** AINT0235 SPACE 5 AINT0236 RECORD DS 0F AINT0237 COPY ACCFORMAT AINT0238 ORG RECORD+255 AINT0239 SPACE 5 AINT0240 END AINT0241 -FILE 212; 132 RECORDS: 0%BEFORE 'AINT0001' AINT TITLE 'MTS ACCOUNTING FILE INITIALIZATION PROGRAM--26 SEP 69' %DELETE 'AINT0001' %BEFORE 'AINT0024' .* WHERE START OF SIX CHARACTER AREA WHERE RESULT IS TO BE * %DELETE 'AINT0024' %BEFORE 'AINT0030' MVC MASK,=X'402020202120' GET EDIT MASK LA R1,MASK+5 EDMK MASK,DOUBLE+5 ELIMINATE LEADING ZEROES >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HEAD DC C' SIGNON ODP NDP ODF NDF ODCP NDCP ODC1 F NDCF' MASK DS CL6 MISMSG DC C' *** IS NOT AVAILABLE' NOLOKMSG DC C'0(* INDICATES LOCK FLAG WAS NOT SET)' NRRECMSG DC C' ',X'2020202120',C' RECORDS RESTORED AT INITIALIZATION1 ' PRINTLIN DC CL62' ' %DELETE 'AINT0170' 'AINT0183' %BEF FILEMARK -FILE 213; 323 RECORDS: 0STAT TITLE 'ACCOUNTING STATUS FOR MTS USER--17 DEC 69' STAT0001 MACRO STAT0002 &NAME WRITE &OUTPUT,&LEN STAT0003 .********************************************************************** STAT0004 .* * STAT0005 .* OUTPUT THE OUTPUT LINE TO BE PRINTED. * STAT0006 .* LEN A HALF WORD CONTAINING THE LENGTH OF 'OUTPUT'. * STAT0007 .* * STAT0008 .********************************************************************** STAT0009 &NAME LA R1,=A(&OUTPUT,&LEN,0) STAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * STAT0314 * INPUT AREA FOR ACCOUNTING RECORD * STAT0315 * * STAT0316 *********************************************************************** STAT0317 SPACE 5 STAT0318 RECORD DS 0F STAT0319 COPY ACCFORMAT STAT0320 ORG RECORD+255 STAT0321 EJECT STAT0322 END STAT0323 -FILE 214; 177 RECORDS: 0%BEFORE 'STAT0001' STAT TITLE 'ACCOUNTING STATUS FOR MTS USER--17 DEC 69' %DELETE 'STAT0001' %BEFORE 'STAT0074' MVC OUTPUT+1(70),OUTPUT CLEAR OUTPUT LINE %DELETE 'STAT0074' %BEFORE 'STAT0079' MACRO &NAME TEST0 &WHERE,&CUM,&MAX,&SIZE .********************************************************************** >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %DELETE 'STAT0187' 'STAT0192' %DELETE 'STAT0205' %BEFORE 'STAT0211' H29 DC H'29' %DELETE 'STAT0211' %BEFORE 'STAT0217' FILERROR DC C'0(FILE SPACE MAY BE IN ERROR)' HEAD DC C'0STATUS OF AT LAST SIGNOFF USED MAXIM1 %DELETE 'STAT0217' 'STAT0218' %BEF FILEMARK -FILE 215; 48 RECORDS: 0ARTU TITLE 'MTS ACCOUNTING FILE BILLING RATE UPDATE PROGRAM--29 OCT1ARTU0001 68' ARTU0002 ACCUPDAT START ARTU0003 R0 EQU 0 GENERAL REGISTER DEFINITIONS ARTU0004 R1 EQU 1 ARTU0005 R2 EQU 2 ARTU0006 R3 EQU 3 ARTU0007 R4 EQU 4 ARTU0008 R5 EQU 5 ARTU0009 R6 EQU 6 ARTU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** ARTU0039 * * ARTU0040 * ACCOUNTING RECORD FORMAT * ARTU0041 * * ARTU0042 *********************************************************************** ARTU0043 SPACE 5 ARTU0044 RECORD DSECT ARTU0045 COPY ACCFORMAT ARTU0046 SPACE 5 ARTU0047 END ARTU0048 -FILE 216; 1983 RECORDS: 0AMAT TITLE 'MTS ACCOUNTING MAINTENANCE PROGRAM--2 OCT 69' AMAT0001 MACRO AMAT0002 &NAME BINPAR &FIELD,&NEXT,&MULT,&LEN AMAT0003 .********************************************************************** AMAT0004 .* * AMAT0005 .* FIELD A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE * AMAT0006 .* VALUE OF THE POSITIONAL PARAMETER IS PLACED. * AMAT0007 .* NEXT LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* AMAT0008 .* MISSING. * AMAT0009 .* MULT AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER * AMAT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B PRJDIR HAVE PROJECT RECORD AMAT1974 BAL R14,CLOSEPRJ CLOSE PROJECT FILE AMAT1975 B NOPRJREC AMAT1976 SPACE 10 AMAT1977 PRJDIRFN DS A AMAT1978 PRJGR14 DS A AMAT1979 H43 DC H'43' AMAT1980 PRJINCNS DC C' *** IS INCONSISTENT WITH PROJECT ' AMAT1981 SPACE 5 AMAT1982 END AMAT1983 -FILE 217; 954 RECORDS: 0%BEFORE 'AMAT0001' AMAT TITLE 'MTS ACCOUNTING MAINTENANCE PROGRAM--2 OCT 69' %DELETE 'AMAT0001' %BEFORE 'AMAT0083' &NAME FLAG &BYTE,&BIT .********************************************************************** .* * .* BYTE LOCATION OF BYTE CONTAINING FLAG BIT. * %DELETE 'AMAT0083' 'AMAT0086' %BEFORE 'AMAT0091' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B PRJDIR HAVE PROJECT RECORD BAL R14,CLOSEPRJ CLOSE PROJECT FILE B NOPRJREC SPACE 10 PRJDIRFN DS A PRJGR14 DS A H43 DC H'43' PRJINCNS DC C' *** IS INCONSISTENT WITH PROJECT ' %DELETE 'AMAT1541' 'AMAT1545' %BEF FILEMARK -FILE 218; 519 RECORDS: 0AIO TITLE 'MTS ACCOUNTING RECORD INPUT/OUTPUT PROGRAM--2 SEP 69' AIO00001 *********************************************************************** AIO00002 * * AIO00003 * ON ENTRY TO ACCREAD, ACCWRITE, AND ACCSCAN, GR1 POINTS TO A * AIO00004 * FOUR WORD PARAMETER LIST. * AIO00005 * WORD1 AREA TO OR FROM WHICH THE DATA IS TO BE * AIO00006 * TRANSMITTED. * AIO00007 * WORD2 LENGTH OF THE DATA. * AIO00008 * WORD3 MODIFIERS. * AIO00009 * WORD4 SIGNON ID. * AIO00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SCNFLPTR DC A(FILNAMTB-24) AIO00510 LEN DS H AIO00511 AUXFLNAM DC CL16'$ACCOUNTING' AIO00512 BADAUXFL DC C' *** FILE IS NOT AVAILABLE' AIO00513 MISRECRD DC C' *** IS NOT IN ' AIO00514 NOFILNAM DC C' *** IS NOT AN AUXILIARY FILE' AIO00515 SPACE 5 AIO00516 LTORG AIO00517 SPACE 5 AIO00518 END AIO00519 -FILE 219; 223 RECORDS: 0%BEFORE AIO00001 AIO TITLE 'MTS ACCOUNTING RECORD INPUT/OUTPUT PROGRAM--2 SEP 69' *********************************************************************** * * * ON ENTRY TO ACCREAD, ACCWRITE, AND ACCSCAN, GR1 POINTS TO A * * FOUR WORD PARAMETER LIST. * %DELETE AIO00001 AIO00005 %BEFORE AIO00029 BASR R12,0 GR12 FOR BASE REGISTER FOR THIS CSECT %DELETE AIO00029 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DC 0A(0),CL16'*DUMMY*',A(0),F'0' FILNAMTB DC CL16'$ACCOUNTING1',A(0),F'0' %DELETE AIO00405 AIO00412 %BEFORE AIO00417 GR14 DS A %BEFORE AIO00427 SCNFLPTR DC A(FILNAMTB-24) %DELETE AIO00427 %BEF FILEMARK -FILE 220; 1387 RECORDS: 0AMXM TITLE 'MTS USERS'' ACCOUNTING MAXIMUM MAINTENANCE PROGRAM--28 1AMXM0001 OCT 69' AMXM0002 MACRO AMXM0003 &NAME ACUM &MAX,&CUM,&DIV,&LEN,&FILE AMXM0004 LCLA &RND AMXM0005 &NAME L&LEN R9,ACC&CUM CUMULATIVE AMXM0006 HEDGE R9,ACC&MAX,&FILE,R8,&LEN &FILE AND THIS LINE SHOULD 1AMXM0007 NOT EVEN EXIST AMXM0008 C&LEN R9,ACC&MAX AMXM0009 BNL S&SYSNDX MAXIMUM IS LESS THAN CUMULATIVE AMXM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L R14,RJBBUF(,R14) AMXM1378 L R15,=V(DSRDISPV) AMXM1379 A R14,20(,R15) AMXM1380 NI 0(R14),X'7F' AMXM1381 PRINT ON AMXM1382 LM R14,R12,12(R2) RESTORE REGISTERS AMXM1383 BR R14 RETURN TO INTERRUPT AMXM1384 EJECT AMXM1385 LTORG AMXM1386 END AMXM1387 -FILE 221; 699 RECORDS: 0%BEFORE 'AMXM0001' AMXM TITLE 'MTS USERS'' ACCOUNTING MAXIMUM MAINTENANCE PROGRAM--28 1 OCT 69' MACRO &NAME ACUM &MAX,&CUM,&DIV,&LEN,&FILE LCLA &RND &NAME L&LEN R9,ACC&CUM CUMULATIVE HEDGE R9,ACC&MAX,&FILE,R8,&LEN &FILE AND THIS LINE SHOULD 1 NOT EVEN EXIST C&LEN R9,ACC&MAX >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L R14,0(,R14) L R14,RJBBUF(,R14) L R15,=V(DSRDISPV) A R14,20(,R15) NI 0(R14),X'7F' PRINT ON LM R14,R12,12(R2) RESTORE REGISTERS BR R14 RETURN TO INTERRUPT %DELETE 'AMXM1147' 'AMXM1152' %BEF FILEMARK -FILE 222; 94 RECORDS: 0ADSP TITLE 'MTS ACCOUNTING RECORD DISPLAY PROGRAM--18 OCT 68' ADSP0001 *********************************************************************** ADSP0002 * * ADSP0003 * ACCDSPLA * ADSP0004 * * ADSP0005 * DISPLAYS MTS ACCOUNTING FILE RECORDS. INPUT IS THE SIGNON ID* ADSP0006 * OF THE RECORD TO BE DISPLAYED IN COLUMNS 1-4 OR FRACTION * ADSP0007 * THEREOF. * ADSP0008 * * ADSP0009 *********************************************************************** ADSP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDOT$DOT DC C' .$.' ADSP0085 RECORD DS CL256 ADSP0086 SAVE DS 18F ADSP0087 SIGNONID DS F ADSP0088 COUNT DS H ADSP0089 H39 DC H'39' ADSP0090 MOVE MVC SIGNONID(0),RECORD ADSP0091 BLANK DC CL10' ' ADSP0092 NORECMSG DC C' *** IS NOT IN THE ACCOUNTING FILE' ADSP0093 END ADSP0094 -FILE 223; 266 RECORDS: 0ASTR TITLE 'MTS ACCOUNTING RECORD STORAGE SPACE UPDATE AND LOCK OFF1ASTR0001 PROGRAM--16 JUL 69' ASTR0002 *********************************************************************** ASTR0003 * * ASTR0004 * ACCSTRUP * ASTR0005 * * ASTR0006 * UPDATES NUMBER OF FILES AND PAGES AND TURNS OFF THE LOCK FLAG* ASTR0007 * IN MTS ACCOUNTING RECORDS. INPUT IS THE SIGNON ID OF THE * ASTR0008 * RECORD TO BE UPDATED IN COLUMNS 1-4 OR FRACTION THEREOF. * ASTR0009 * * ASTR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * ASTR0257 * ACCOUNTING RECORD STORAGE * ASTR0258 * * ASTR0259 *********************************************************************** ASTR0260 SPACE 5 ASTR0261 RECORD DS 0F ASTR0262 COPY ACCFORMAT ASTR0263 ORG RECORD+255 ASTR0264 SPACE 5 ASTR0265 END ASTR0266 -FILE 224; 131 RECORDS: 0%BEFORE ASTR0002 PROGRAM--16 JUL 69' %DELETE ASTR0002 %BEFORE ASTR0018 .* WHERE START OF SIX CHARACTER AREA WHERE RESULT IS TO BE * %DELETE ASTR0018 %BEFORE ASTR0024 MVC MASK,=X'402020202120' GET EDIT MASK LA R1,MASK+5 EDMK MASK,DOUBLE+5 ELIMINATE LEADING ZEROES >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SET.' FATALMSG DC C' *** FATAL RETURN FROM ACATALOG' HEAD DC C' SIGNON ODP NDP ODF NDF ODCP NDCP ODC1 F NDCF' MASK DS CL6 MISMSG DC C' *** IS NOT AVAILABLE' NORECMSG DC C' *** IS NOT IN THE ACCOUNTING FILE' PRINTLIN DC CL62' ' %DELETE ASTR0189 ASTR0203 %BEF FILEMARK -FILE 225; 237 RECORDS: 0ARDW TITLE 'MTS ACCOUNTING FILE RECORD READ AND WRITE UPDATE PROGRA1ARDW0001 M--30 OCT 68' ARDW0002 *********************************************************************** ARDW0003 * * ARDW0004 * RECORDS BEFORE UPDATING ARE WRITTEN ON A TAPE ON LOGICAL * ARDW0005 * UNIT 0. * ARDW0006 * * ARDW0007 * A LIST OF RECORDS WHICH CANNOT BE UPDATED BECAUSE THE LOCK * ARDW0008 * BIT IS SET IS WRITTEN ON LOGICAL UNIT 1. IF, ON ENTRY TO * ARDW0009 * ACCRDWRT, LOGICAL UNIT 1 IS NOT EMPTY, ONLY THOSE RECORDS IN * ARDW0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FSF DC C'FSF' ARDW0228 LOCKSW DC X'0' ARDW0229 LOG1FULL DC C' *** LOGICAL DEVICE 1 IS FULL' ARDW0230 NORECMSG DC C' *** IS NOT IN THE ACCOUNTING FILE' ARDW0231 REW DC C'REW' ARDW0232 WEF DC C'WEF' ARDW0233 SPACE 5 ARDW0234 FLAGS EQU RECORD+1 ARDW0235 SPACE 5 ARDW0236 END ARDW0237 -FILE 226; 206 RECORDS: 0AUPR TITLE 'MTS USERS'' ACCOUNTING RECORD PRINT PROGRAM--3 OCT 69' AUPR0001 *********************************************************************** AUPR0002 * * AUPR0003 * ACUSPRNT * AUPR0004 * * AUPR0005 * GR1 POINTS TO A TWO WORD PARAMETER LIST ON ENTRY. * AUPR0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* AUPR0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * AUPR0008 * RECORD TO BE PRINTED. * AUPR0009 * * AUPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** AUPR0197 * * AUPR0198 * DUMMY SECTION FOR ACCOUNTING RECORD * AUPR0199 * * AUPR0200 *********************************************************************** AUPR0201 SPACE 5 AUPR0202 RECORD DSECT AUPR0203 COPY ACCFORMAT AUPR0204 SPACE 5 AUPR0205 END AUPR0206 -FILE 227; 64 RECORDS: 0%BEFORE 'AUPR0001' AUPR TITLE 'MTS USERS'' ACCOUNTING RECORD PRINT PROGRAM--3 OCT 69' %DELETE 'AUPR0001' %BEFORE 'AUPR0035' &NAME L&SUFFIX R3,&FIELD GET NUMBER %DELETE 'AUPR0035' %BEFORE 'AUPR0060' &NAME L&SUFFIX R2,&FIELD GET NUMBER SRDA R2,32 PROPAGATE SIGN AGO .DIV >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 IGNORTRM MVC OUTPUT+42(7),=C'IGNORED' B MAXPLT SPACE 5 IGNORPLT MVC OUTPUT+53(7),=C'IGNORED' B EXPIRE %DELETE 'AUPR0134' 'AUPR0153' %BEFORE 'AUPR0164' EXPTIME DS D %BEF FILEMARK -FILE 228; 1105 RECORDS: 0APMT TITLE 'MTS PROJECT ACCOUNTING MAINTENANCE PROGRAM--4 OCT 69' APMT0001 MACRO APMT0002 &NAME BINPAR &FIELD,&NEXT,&MULT,&LEN APMT0003 .********************************************************************** APMT0004 .* * APMT0005 .* FIELD A FULL WORD IN THE ACCOUNTING RECORD IN WHICH THE * APMT0006 .* VALUE OF THE POSITIONAL PARAMETER IS PLACED. * APMT0007 .* NEXT LABEL OF THE NEXT INSTRUCTION IN CASE THE PARAMETER IS* APMT0008 .* MISSING. * APMT0009 .* MULT AN OPTIONAL MULTIPLICATION FACTOR FOR THE PARAMETER * APMT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG RECORD+255 APMT1096 SPACE 5 APMT1097 DS 0F APMT1098 MASK DS CL255 APMT1099 MDISP EQU MASK-RECORD APMT1100 SPACE 5 APMT1101 DS 0F APMT1102 DEFAULT DC X'11000000',4F'0',CL4' ',6F'0',H'0' APMT1103 EJECT APMT1104 END APMT1105 -FILE 229; 439 RECORDS: 0%BEFORE 'APMT0001' APMT TITLE 'MTS PROJECT ACCOUNTING MAINTENANCE PROGRAM--4 OCT 69' %DELETE 'APMT0001' %BEFORE 'APMT0040' &NAME DCHAR &FIELD .********************************************************************** .* * .* FIELD TWO FULL WORDS IN WHICH THE EIGHT BYTE CHARACTER VALUE* .* OF THE KEYWORD PARAMETER IS PLACED. * .* * >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ACCMFUB DS F ACCMTM DS F ACCMPLT DS F DIRPTR DS A ACCBC DS H %DELETE 'APMT0918' 'APMT0922' %BEFORE 'APMT0931' DEFAULT DC X'11000000',4F'0',CL4' ',6F'0',H'0' %DELETE 'APMT0931' %BEF FILEMARK -FILE 230; 53 RECORDS: 0AXPR TITLE 'MTS ACCOUNTING RECORD HEXADECIMAL PRINT PROGRAM--16 JUN1AXPR0001 E 67' AXPR0002 *********************************************************************** AXPR0003 * * AXPR0004 * ACCPRINT * AXPR0005 * * AXPR0006 * GR1 POINTS TO A FOUR WORD PARAMETER LIST ON ENTRY. * AXPR0007 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID. * AXPR0008 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * AXPR0009 * RECORD TO BE PRINTED. * AXPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 AXPR0044 SAVE DS 18F AXPR0045 FMT DC C'''0SIGNON ID IS '',C4,'' ('',X,'')''/'' RECORD IS (HEX1AXPR0046 ) LENGTH='',X2/(S10,6(X,S2))*' AXPR0047 SPACE 5 AXPR0048 SIGNON DSECT AXPR0049 RECORD DSECT AXPR0050 LENGTH DSECT AXPR0051 SPACE 5 AXPR0052 END AXPR0053 -FILE 231; 329 RECORDS: 0APPR TITLE 'MTS PROJECT RECORD PRINT PROGRAM-23 SEP 69' APPR0001 *********************************************************************** APPR0002 * * APPR0003 * ACCPRINT * APPR0004 * * APPR0005 * GR1 POINTS TO A THREE WORD PARAMETER LIST ON ENTRY. * APPR0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID.* APPR0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * APPR0008 * RECORD TO BE PRINTED. * APPR0009 * WORD3 ADDRESS OF A 10 CHARACTER AREA CONTAINING A NOTE* APPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> *********************************************************************** APPR0320 * * APPR0321 * DUMMY SECTION FOR ACCOUNTING RECORD * APPR0322 * * APPR0323 *********************************************************************** APPR0324 SPACE 5 APPR0325 RECORD DSECT APPR0326 COPY ACCPROJFMT APPR0327 ORG RECORD+255 APPR0328 END APPR0329 -FILE 232; 96 RECORDS: 0%BEFORE 'APPR0001' APPR TITLE 'MTS PROJECT RECORD PRINT PROGRAM-23 SEP 69' %DELETE 'APPR0001' %BEFORE 'APPR0011' * TO BE PRINTED WITH THE RECORD. * %DELETE 'APPR0011' 'APPR0013' %BEFORE 'APPR0040' .* (X,L) HEXADECIMAL FIELD WHERE L IS THE LENGTH * .* IN BYTES AND 2*L IS THE OUTPUT LENGTH. * %DELETE 'APPR0040' 'APPR0041' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AC NR UNIT' HEAD2 DC C' SIG DATE BILL CLASS MAX CELL MAX PLOT IDR 1 NUMBER DIR PTR' HEAD3 DC C' TIME (PAGES) (MINUTES)' %DELETE 'APPR0276' 'APPR0288' %BEFORE 'APPR0294' PTRHEAD1 DC CL130'1CHG EXPIRE MAX CHARGE MAX DISK MAX TERM 1 UNIV AC NR UNIT' %DELETE 'APPR0294' 'APPR0295' %BEF FILEMARK -FILE 233; 97 RECORDS: 0APLS TITLE 'MTS PROJECT ACCOUNTING LISTING PROGRAM--24 SEP 69' APLS0001 *********************************************************************** APLS0002 * * APLS0003 * ACCLIST * APLS0004 * * APLS0005 * LISTS THE MTS PROJECT ACCOUNTING FILE. * APLS0006 * * APLS0007 *********************************************************************** APLS0008 SPACE 5 APLS0009 ACCLIST START APLS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SAVE DS 18F APLS0088 COUNT DS H APLS0089 H23 DC H'23' APLS0090 H24 DC H'24' APLS0091 BLANKS DC CL10' ' APLS0092 FILENAME DC C'*PROJECT ' APLS0093 NOFILMSG DC C' ERROR IN OBTAINING FILE' APLS0094 NRRECMSG DC C'- ',X'2020202120',C' RECORDS IN FILE' APLS0095 SPACE 5 APLS0096 END APLS0097 -FILE 234; 19 RECORDS: 0%BEFORE 'APLS0001' APLS TITLE 'MTS PROJECT ACCOUNTING LISTING PROGRAM--24 SEP 69' %DELETE 'APLS0001' %BEFORE 'APLS0043' LA R1,=A(RECORD,COUNT,F2,CHARGEID,FDUB) %DELETE 'APLS0043' %BEFORE 'APLS0048' READ LA R1,=A(RECORD,COUNT,F0,CHARGEID,FDUB) %DELETE 'APLS0048' %BEFORE 'APLS0067' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(CHARGEID,RECORD,BLANKS,COUNT) %DELETE 'APLS0067' %BEFORE 'APLS0082' CHARGEID DC X'80000000' %DELETE 'APLS0088' %BEFORE 'APLS0093' FILENAME DC C'*PROJECT ' %DELETE 'APLS0093' %BEF FILEMARK -FILE 235; 99 RECORDS: 0APDS TITLE 'MTS PROJECT ACCOUNTING RECORD DISPLAY PROGRAM--24 SEP 61APDS0001 9' APDS0002 *********************************************************************** APDS0003 * * APDS0004 * ACCDSPLA * APDS0005 * * APDS0006 * DISPLAYS MTS PROJECT ACCOUNTING FILE RECORDS. INPUT IS THE * APDS0007 * SIGNON ID OF THE RECORD TO BE DISPLAYED IN COLUMNS 1-4 OR * APDS0008 * FRACTION THEREOF. * APDS0009 * * APDS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RECORD DS CL256 APDS0090 SAVE DS 18F APDS0091 COUNT DS H APDS0092 H24 DC H'24' APDS0093 H28 DC H'28' APDS0094 BLANK DC CL10' ' APDS0095 FILENAME DC C'*PROJECT ' APDS0096 NOFILMSG DC C' ERROR IN OBTAINING FILE' APDS0097 NORECMSG DC C' *** IS NOT IN THE FILE' APDS0098 END APDS0099 -FILE 236; 33 RECORDS: 0%BEFORE 'APDS0001' APDS TITLE 'MTS PROJECT ACCOUNTING RECORD DISPLAY PROGRAM--24 SEP 61 9' %DELETE 'APDS0001' 'APDS0002' %BEFORE 'APDS0045' READ MVC RECORD(4),BLANK LA R1,=A(RECORD,COUNT,F0,CHARGEID) %DELETE 'APDS0045' 'APDS0049' %BEFORE 'APDS0058' READFILE MVC CHARGEID,RECORD SAVE CHARGE ID >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MAXPOS DC X'7FFFFFFF' RECORD DS CL256 SAVE DS 18F COUNT DS H H24 DC H'24' H28 DC H'28' BLANK DC CL10' ' FILENAME DC C'*PROJECT ' %DELETE 'APDS0094' 'APDS0107' %BEF FILEMARK -FILE 237; 78 RECORDS: 0APSW TITLE 'MTS PASSWORD EXTRACTION PROGRAM--2 FEB 68' APSW0001 *********************************************************************** APSW0002 * * APSW0003 * ACCPRINT * APSW0004 * * APSW0005 * GR1 POINTS TO A TWO WORD PARAMETER LIST ON ENTRY. * APSW0006 * WORD1 ADDRESS OF A FULL WORD CONTAINING THE SIGNON ID. * APSW0007 * WORD2 ADDRESS OF AN AREA CONTAINING THE ACCOUNTING * APSW0008 * RECORD FOR THE PASSWORD TO BE PRINTED. * APSW0009 * * APSW0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 5 APSW0069 SAVE DS 18F APSW0070 MVPSWRD MVC PASSWORD+18(0),RECORD+3 APSW0071 DC C'0123456789ABCDEF' APSW0072 HEXCONV EQU *-256 APSW0073 PASSWORD DC C' PASSWORD IS ( ' APSW0074 SPACE 5 APSW0075 RECORD DSECT APSW0076 SPACE 5 APSW0077 END APSW0078 -FILE 238; 355 RECORDS: 0ACNS TITLE 'ACCOUNTING FILE, PROJECT FILE, AND PROJECT DIRECTORY CO1ACNS0001 NSISTENCY CHECK PROGRAM--9 OCT 69' ACNS0002 MACRO ACNS0003 &NAME OPEN &FILE,&FDUB ACNS0004 &NAME LA R1,=C'&FILE ' ACNS0005 BAS R14,OPEN GET FILE ACNS0006 ST R0,&FDUB.FDUB ACNS0007 MEND ACNS0008 SPACE 5 ACNS0009 MACRO ACNS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * * ACNS0346 *********************************************************************** ACNS0347 SPACE 5 ACNS0348 PROJECT DS 0A ACNS0349 COPY ACCPROJFMT ACNS0350 ORG PROJECT+256 ACNS0351 EJECT ACNS0352 SPACE 10 ACNS0353 LINCOUNT DSECT ACNS0354 END ACNS0355 -FILE 239; 10 RECORDS: 0FLNM TITLE 'FILE NAMES--9 OCT 69' FLNM0001 MACRO FLNM0002 &NAME FILE &FILE FLNM0003 ENTRY &NAME FLNM0004 &NAME DC C'&FILE ' FLNM0005 MEND FLNM0006 FILENAME CSECT FLNM0007 PRJDIRFL FILE *PRJDIRECTORY FLNM0008 PROJFILE FILE *PROJECT FLNM0009 END FLNM0010 -FILE 240; 124 RECORDS: 0GRJL TITLE 'GREGORIAN TO JULIAN TIME CONVERSION--13 JUN 69' GRJL0001 *********************************************************************** GRJL0002 * * GRJL0003 * GRGJULTM * GRJL0004 * * GRJL0005 * ON ENTRY, GR0 THROUGH GR3 CONTAIN THE GREGORIAN DATE AND TIME* GRJL0006 * IN THE FORM MM-DD-YYHH:MM.SS. * GRJL0007 * * GRJL0008 * ON EXIT, GR0 CONTAINS THE JULIAN DATE AND GR1 CONTAINS THE * GRJL0009 * JULIAN TIME IN MINUTES. * GRJL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DUMMY SECTION FOR USER SAVE AREA * GRJL0115 * * GRJL0116 *********************************************************************** GRJL0117 SPACE 5 GRJL0118 SAVE DSECT GRJL0119 DS 5A GRJL0120 DATE DS CL8 GRJL0121 TIME DS CL8 GRJL0122 SPACE 5 GRJL0123 END GRJL0124 -FILE 241; 140 RECORDS: 0JLGR TITLE 'JULIAN TO GREGORIAN TIME CONVERSION--13 JUN 69' JLGR0001 *********************************************************************** JLGR0002 * * JLGR0003 * JULGRGTM * JLGR0004 * * JLGR0005 * ON ENTRY, GR1 CONTAINS THE JULIAN TIME IN MINUTES. * JLGR0006 * * JLGR0007 * ON EXIT, GR0 AND GR1 CONTAIN THE GREGORIAN DATE IN THE FORM * JLGR0008 * MM-DD-YY, AND GR2 AND GR3 CONTAIN THE TIME OF DAY IN THE FORM* JLGR0009 * HH:MM.00. * JLGR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DUMMY SECTION FOR USER SAVE AREA * JLGR0131 * * JLGR0132 *********************************************************************** JLGR0133 SPACE 5 JLGR0134 SAVE DSECT JLGR0135 DS 5A JLGR0136 DATE DS CL8 JLGR0137 TIME DS CL8 JLGR0138 SPACE 5 JLGR0139 END JLGR0140 -FILE 242; 118 RECORDS: 0VSIG TITLE 'MTS VALID SIGNON ID LISTING--5 MAY 69' VSIG0001 VALSIGON START VSIG0002 R0 EQU 0 GENERAL REGISTER DEFINITIONS VSIG0003 R1 EQU 1 VSIG0004 R2 EQU 2 VSIG0005 R3 EQU 3 VSIG0006 R4 EQU 4 VSIG0007 R5 EQU 5 VSIG0008 R6 EQU 6 VSIG0009 R7 EQU 7 VSIG0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * VSIG0109 SAVE DS 18F VSIG0110 SIGNON DC 0F'0',X'80000000' VSIG0111 L DS H VSIG0112 LEN DC H'60' VSIG0113 HEADING DC C'1VALID MTS SIGNON ID''S ON AT ' VSIG0114 LASTSIG DS CL2 VSIG0115 OUTPUT DS CL120 VSIG0116 SPACE 5 VSIG0117 END VSIG0118 -FILE 243; 646 RECORDS: 0DIR TITLE 'DIRECTORY ASSISTANCE PROGRAMS--9 OCT 69' DIR00001 MACRO DIR00002 &NAME ENTER &SAVE DIR00003 .********************************************************************** DIR00004 .* * DIR00005 .* PRODUCES ENTRY POINT CODE. * DIR00006 .* * DIR00007 .* SAVE SAVE AREA FOR INTERNAL SUBROUTINES. * DIR00008 .* * DIR00009 .********************************************************************** DIR00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DSECT FOR DIRECTORY ENTRY * DIR00637 * * DIR00638 *********************************************************************** DIR00639 SPACE 5 DIR00640 ENTRY DSECT DIR00641 ENTRYLEN DS F DIR00642 ENTRYID DS A DIR00643 ENTRYELT DS A DIR00644 SPACE 5 DIR00645 END DIR00646 -FILE 244; 151 RECORDS: 0DLST TITLE 'DIRECTORY LISTING PROGRAM--1 OCT 69' DLST0001 PRINT NOGEN DLST0002 DIRLIST START DLST0003 R0 EQU 0 GENERAL REGISTER DEFINITIONS DLST0004 R1 EQU 1 DLST0005 R2 EQU 2 DLST0006 R3 EQU 3 DLST0007 R4 EQU 4 DLST0008 R5 EQU 5 DLST0009 R6 EQU 6 DLST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LINE DS A DLST0142 SAVE DS 18A DLST0143 LEN DS H DLST0144 COUNTMSG DC C'- ',X'2020202120',C' ENTRIES ',X'2020202120',C' ELEM1DLST0145 ENTS' DLST0146 DIRFILE DC C'*PRJDIRECTORY ' DLST0147 DC C'0123456789ABCDEF' DLST0148 HEXTAB EQU *-256 DLST0149 OUTPUT DS CL71 DLST0150 END DLST0151 -FILE 245; 166 RECORDS: 0 TITLE 'PROGRAM TO UPDATE FILE STORAGE CHARGES MONTHLY--2 SEP 61FLUP0001 9' FLUP0002 FILUPDAT START FLUP0003 DORMNT EQU 4 FLUP0004 TOD EQU 28 FLUP0005 GETELT EQU 38 FLUP0006 LOCK EQU 58 FLUP0007 UNLOCK EQU 59 FLUP0008 SPACE 5 FLUP0009 ENTER 12,SA=SAVE FLUP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STACFUB DS F FLUP0157 DC F'0' FLUP0158 STAEND DC X'FF' FLUP0159 * FLUP0160 * FLUP0161 TIME DS F FLUP0162 LEN DS H FLUP0163 STATLEN DC Y(STAEND-STAT+1) FLUP0164 WRITESW DS X FLUP0165 END FLUP0166 -FILE 246; 36 RECORDS: 0ACNV TITLE 'PROGRAM TO CONVERT DISTRIBUTION ACCOUNTING FILE TO CURR1ACON0001 ENT ACCOUNTING FILE--6 OCT 69' ACON0002 ACCCONV START ACON0003 ENTER 12,SA=SAVE ACON0004 L 0,SAVE+4 ACON0005 READ CALL ACCSCAN,(RECORD,LEN,F0,SIGNON) ACON0006 B *+4(15) ACON0007 B STPLTFLG ACON0008 EXIT ACON0009 STPLTFLG OI FLAGS,1 SET IGNORE PLOT FLAG ACON0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CALL ACCWRITE,(RECORD,LEN,F2,SIGNON) ACON0027 B READ ACON0028 SAVE DS 18A ACON0029 RECORD DS 0A ACON0030 COPY ACCFORMAT ACON0031 F0 DC F'0' ACON0032 F2 DC F'2' ACON0033 SIGNON DS CL4 ACON0034 LEN DS H ACON0035 END ACON0036 -FILE 247; 158 RECORDS: 0PCNV TITLE 'PROGRAM TO CREATE PROJECT FILE--2 OCT 69' ACRP0001 PRINT NOGEN ACRP0002 CRPRJFL START ACRP0003 ENTER 12,SA=SAVE ACRP0004 READ L 0,SAVE+4 ACRP0005 CALL ACCSCAN,(RECORD,LEN,F0,LINE) ACRP0006 B *+4(15) ACRP0007 B CKPROJ ACRP0008 LA 0,OLDPN ACRP0009 L 1,DIRPTR ACRP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUB DS A ACRP0149 PRJREC DS 0A ACRP0150 MAXFLAGS DS XL4 FLAGS: 3-IGNORE TERMINAL MAXIMUM ACRP0151 UAN DS 2CL4 UNIVERSITY ACCOUNT NUMBER ACRP0152 MAXMDT DS F MAXIMUM FILE (PAGES) ACRP0153 MAXMTM DS F MAXIMUM TERMINAL (MINUTES) ACRP0154 MAXM$ DS F MAXIMUM CHARGE (DOLLARS*10000) ACRP0155 PRJER DC C' *** HAS NO ID''S' ACRP0156 OLDPN DS A ACRP0157 END ACRP0158 -FILE 248; 441 RECORDS: 0LIST TITLE 'LIST *STATISTICS RECORDS' LSTA0001 MACRO LSTA0002 &L EDIT &FIELD,&SOURCE,&PATL,&PATR,&OP=L LSTA0003 LCLA &T2 LSTA0004 LCLA &T LSTA0005 LCLC &C LSTA0006 LCLC &C2 LSTA0007 AIF (T'&SOURCE EQ 'O').SK2 LSTA0008 &L MVC HOLD(4),&SOURCE LSTA0009 &OP 1,HOLD LSTA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ACCRCR DS H LSTA0432 ACCRFS DS H LSTA0433 ACCRFSB DS H LSTA0434 ACCRPLT DS H LSTA0435 LRATES EQU *-RATES LSTA0436 SPACE 6 LSTA0437 STA DSECT LSTA0438 COPY MTA:STATDSECT LSTA0439 EJECT LSTA0440 END LSTA0441 -FILE 249; 93 RECORDS: 0# STSV0001 SSAV TITLE 'PROGRAM TO SAVE *STATISTICS' STSV0002 STATSAV START 0 STSV0003 ENTER 12,SA=SA STSV0004 SPRINT 'WHAT TAPE IS TO BE USED?' STSV0005 RDTP SCARDS IN,INL,EXIT=RDTP STSV0006 LA 1,IN TRY TO GET TAPE STSV0007 AH 1,INL BUT PUT A BLANK AT END STSV0008 MVI 0(1),C' ' STSV0009 LA 1,IN STSV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SA DS 18F STSV0084 LOCK EQU 58 SVC TO SET LOCK STSV0085 UNLOCK EQU 59 SVC TO RESET LOCK STSV0086 ACCTLOCK EQU 1 STSV0087 COMPARE CLC IN(0),IN2 STSV0088 INL DS H STSV0089 IN2L DS H STSV0090 IN DS CL256 STSV0091 IN2 DS CL256 STSV0092 END STSV0093 -FILE 250; 126 RECORDS: 0CMB TITLE 'PROGRAM TO COMBINE STATISTICS TAPES - VERSION 2' CMB00001 PRINT NOGEN CMB00002 CMB START 0 CMB00003 ENTER 12,SA=SA CMB00004 SPRINT 'ENTER OUTPUT TAPE NAME' CMB00005 BAL 11,RD1 CMB00006 INRD SPRINT 'ENTER INPUT TAPE NAME OR "DONE"' CMB00007 RD2 SCARDS IN,LEN,EXIT=RD2 CMB00008 CLC =C'DONE',IN CMB00009 BE EXIT CMB00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IFDUB DS A CMB00117 OFDUB DS A CMB00118 ILEN DS H CMB00119 MOVE MVC 0(0,2),0(5) CMB00120 SA DS 18A CMB00121 LTORG CMB00122 IBUF DS 34XL128 CMB00123 OBUF DS 34XL128 CMB00124 ENDOBUF EQU *-256 CMB00125 END CMB00126 -FILE 251; 1897 RECORDS: 0MNT TITLE 'M O U N T' *MNT0001 *********************************************************************** *MNT0002 * * *MNT0003 * MACROS TO GENERATE KWIC RHS AND LHS TABLES * *MNT0004 * * *MNT0005 *********************************************************************** *MNT0006 SPACE 3 *MNT0007 MACRO *MNT0008 &ST1 LHS &KWD,&RHS,&EX *MNT0009 LCLA &LNG *MNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBNAM DS A BACK POINTER *MNT1888 FDUBDS DS F DEFAULT SWITCHES *MNT1889 FDUBCH DS F CHAIN *MNT1890 FDUBTYPE DS X FDUB TYPE (0 THRU 7) *MNT1891 FDUBMNTD EQU 7 FDUB TYPE FOR 'MOUNTED' DEVICE *MNT1892 DS XL3 UNUSED *MNT1893 FDUBNAME DS A POINTER TO EXTERNAL NAME *MNT1894 EJECT *MNT1895 SPACE 5 *MNT1896 END *MNT1897 -FILE 252; 107 RECORDS: 0 TITLE 'BLOCK LETTER GENERATOR' BLKL0001 BLOCKL CSECT BLKL0002 REQU BLKL0003 ENTER 12,SA=SA BLKL0004 LM R2,R6,0(R1) PARAMETERS BLKL0005 LH R3,0(0,R3) LENGTH BLKL0006 LTR R7,R4 MODIFIERS BLKL0007 BZ *+8 ADDRESS OR CONTENTS ARE OK BLKL0008 L R7,0(0,R4) MODIFIERS BLKL0009 ST R7,MODS BLKL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> #3 DC X'2241494936' BLKL0098 #4 DC X'0C14247F04' BLKL0099 #5 DC X'7A5151514E' BLKL0100 #6 DC X'3E49494926' BLKL0101 #7 DC X'4142444870' BLKL0102 #8 DC X'3649494936' BLKL0103 #9 DC X'314949493E' BLKL0104 DC 5X'0000000000' NON CHARACTERS BLKL0105 DC X'FFFFFFFFFF' X'FF' BLKL0106 END BLKL0107 -FILE 253; 120 RECORDS: 0TPST TITLE 'PROGRAM TO ACCUMULATE *MOUNT STATISTICS' TPST0001 TAPESTAT START 0 TPST0002 SPACE 2 TPST0003 REQU TPST0004 SPACE 2 TPST0005 PRINT OFF TPST0006 COPY *LLMPSEQU(100) TPST0007 PRINT ON TPST0008 * COPY *LLMPSEQU(100) TPST0009 SPACE TPST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PDNTNAME DS CL16 PDN TPST0111 PDNTFDUB DS A A(FDUB) TPST0112 PDNTSTAT DS XL1 STATTUS TPST0113 BUSY EQU X'20' TPST0114 DS XL1 UNUSED TPST0115 PDNTSIZE DS H SIZE TPST0116 PDNTDEVN DS CL4 DEVICE NAME TPST0117 PDNTDEVT DS CL4 DEVICE TYPE TPST0118 SPACE 5 TPST0119 END TPST0120 -FILE 254; 185 RECORDS: 0DMNT TITLE 'DISMOUNT-- TO GET RID OF THINGS' DISM0001 MACRO DISM0002 &SLB CMSG &WHAT DISM0003 LCLA &X DISM0004 LCLA &Y DISM0005 &X SETA ((K'&WHAT-1)/2*2)+18 DISM0006 &Y SETA K'&WHAT-2 DISM0007 CNOP 0,4 DISM0008 &SLB LA R1,*+12 DISM0009 L RF,=V(SERCOM) DISM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BR RF DISM0176 COMPARE CLC 0(0,SCC),0(SCA) DISM0177 SCRATCH DS 18F DISM0178 CPUQAD1 DC V(CPUQ) DISM0179 ZERO DC F'0' DISM0180 OFFMSG DC C'REMOVE TAPE FROM XXXX' DISM0181 OFFMSGL EQU *-OFFMSG DISM0182 LTORG DISM0183 DSECT DSECT DISM0184 END DISMOUNT DISM0185 -FILE 255; 43 RECORDS: 0%DELETE DISM0001 DISM0076 DMNT TITLE 'D I S M O U N T' %DELETE DISM0078 DISM0096 SPACE 2 REQU %DELETE DISM0100 DISM0113 SCD EQU 9 SPACE PRINT OFF COPY *LLMPSEQU(100) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OUT EXIT 0 %DELETE DISM0173 DMT7 SERCOM ' VOLUME IS NOT CURRENTLY MOUNTED' %AFTER DISM0174 SPACE 2 %DELETE DISM0178 DISM0182 SPACE 2 %DELETE DISM0184 SPACE 2 %BEFORE FILEMARK -FILE 256; 891 RECORDS: 0MNT TITLE '*MOUNT - FOR MOUNTING PRIVATE TAPES' UMNT0001 * UMNT0002 * MODIFIED VERSION OF *MOUNT(VERSION UN2480) UMNT0003 * FEB 3,1969 UMNT0004 * TAPES ONLY. LABELS CHECKED FOR 9 TRACK ONLY. UMNT0005 * UMNT0006 SPACE 2 UMNT0007 MACRO UMNT0008 &SLB MESSAGE &X,&RTN UMNT0009 &SLB LA RF,##&SYSNDX THE MESSAGE UMNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ADSIZE DS F UMNT0882 ADSIZEL DS C UMNT0883 CHAR DS C UMNT0884 VNAME EQU COMMENT+4 UMNT0885 RETRY DS C RETRY VALUE UMNT0886 * UMNT0887 DEVCODE DS XL1 DEVICE CODE UMNT0888 PSECTL# EQU *-PSECT# UMNT0889 PSECTL EQU *-PSECT LENGTH OF BEASTIE UMNT0890 END MOUNT UMNT0891 -FILE 257; 123 RECORDS: 0SYM MOUNTCDEVTsMVOLIDSCRTAPBTNOTL}DEVICMNT 0001 SYM 7DEVICEFPSDN FPSDFPSDC&FMODE=FMODELMNT 0002 SYM mMODEOKsMODE9[FSIZEFSIZNFRETRYFRTYNMNT 0003 SYM FQUITFVNAME>FVENDNEXTPNEXTAONEXTOMNT 0004 SYM MOUNTSMOUC+MOUDMOUEFIXFDUB MOUG%MNT 0005 SYM MOUHMOUTB MWTOR MOUI MOUJ MOUSCB :MOUSMNT 0006 SYM CR MOVEV mMOUJA MOUKA sMOUK MOULMOUTMNT 0007 SYM >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT YSRL KK};N&N-K}.-N}NK-REMOMNT 0114 TXT VE TAPE ON XXXX ********************MOUNT ON MNT 0115 TXT Q  *FSFREWRUN MNT 0116 TXT U  T * B * BT* MNT 0117 TXT 0 MSOURCE*SOURCE* SINK* MSINK* AFD* PUNCH* DUMMY* MNT 0118 TXT  8CV 8EN 8OF 8ON 5CV 5EN 5OF 5ON 2CV 2EN 2OF 2ON MNT 0119 RLD   %  MNT 0120 RLD  u ^     { DMNT 0121 RLD  H  }  M Q MNT 0122 END  MNT 0123 -FILE 258; 363 RECORDS: 0TCPY TITLE 'PROGRAM TO COPY TAPES USING OVERLAPPED I/O' TPCP0001 SPACE 5 TPCP0002 MACRO TPCP0003 &L1 ERROR &MSG TPCP0004 &L1 LA R0,L'Q&SYSNDX TPCP0005 BAL R1,RD2 TPCP0006 Q&SYSNDX DC C&MSG TPCP0007 MEND TPCP0008 SPACE 3 TPCP0009 MACRO TPCP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OMIT EQU X'04' SKIP BAD RECORDS TPCP0354 STOR EQU X'08' GETSPACE BUFFERS ATTACHED TPCP0355 NOWR EQU X'10' DON'T WRITE NEXT RECORD TPCP0356 ALL EQU X'20' COPY ALL OF TAPE TPCP0357 DONE EQU X'40' ALL DONE WITH COPY TPCP0358 IGNRC EQU X'80' IGNORE RC FROM WRITE TPCP0359 SPACE TPCP0360 LTORG TPCP0361 SPACE 5 TPCP0362 END TPCP0363 -FILE 259; 423 RECORDS: 0TDMP TITLE 'MTS TAPE/FILE DUMP UTILITY' TDMP0001 PRINT NOGEN TDMP0002 SPACE 3 TDMP0003 MACRO TDMP0004 &SLB ERMSG &MSG TDMP0005 LCLA &BARF TDMP0006 &SLB BAL RF,ERRMSG PRINT OUT ERROR MESSAGE TDMP0007 &BARF SETA K'&MSG-2 TDMP0008 DC Y(&BARF),C&MSG TDMP0009 MEND TDMP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FHDR EQU *-1 TDMP0414 DC C' RECORD' TDMP0415 FREC DC C' ',X'20202020202120',C', LINE' TDMP0416 FLNR DC C' ',X'202020202021',C'.',X'202020',C', LENGTH' TDMP0417 FLEN DC C' ',X'2020202120' TDMP0418 FHDRL EQU *-FHDR TDMP0419 SPACE 4 TDMP0420 LTORG TDMP0421 IBUF DS CL32767 TDMP0422 END TDMP0423 -FILE 260; 193 RECORDS: 0 /* ROUTINE TO PRINT ALL LABELS OF A TAPE */ CHKLABL: PROCEDURE OPTIONS(MAIN); DECLARE IHEREAD ENTRY (,BIT(32), DEC FIXED(9,3),FILE), (CC,NOTRIM) BIT(32) INIT ((32)'0'B), /* MODIFIERS */ (SKIPSW, /* DON'T READ A RECORD */ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WHEW: PUT FILE(SPRINT) SKIP(5) LIST ((10)'<*>','END OF TAPE', (9)'<*>'); DONE: PUT FILE(SPRINT) SKIP(2) LIST (' '); RETURN; STAR: FORMAT (A(3), X(2), A(80), X(2), A(3)); END CHKLABL; -FILE 261; 799 RECORDS: 0UPDT TITLE 'UNIVERSITY OF MICHIGAN MTS SEQUENTIAL UPDATE PROGRAM' UPDT0001 *********************************************************************** UPDT0002 * * UPDT0003 * MACROS * UPDT0004 * * UPDT0005 *********************************************************************** UPDT0006 SPACE 1 UPDT0007 MACRO UPDT0008 &LAB TPCNT &A UPDT0009 &LAB MVC T2(4),=CL4'&A' UPDT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SRCAREA DS 80CL1 SOURCE INPUT AREA UPDT0790 DC C' ' UPDT0791 INAREA DS 80CL1 INPUT FILE INPUT AREA UPDT0792 DC C' ' UPDT0793 OUTAREA DS 80CL1 OUTPUT FILE OUTPUT AREA UPDT0794 SPACE 1 UPDT0795 KYWDAD DS F CURRENT LOCATION IN SRCAREA UPDT0796 KYWDREG DS 6F KEYWORD PROCESSOR REGISTER SAVE AREA UPDT0797 SPACE 2 UPDT0798 END UPDATE UPDT0799 -FILE 262; 54 RECORDS: 0%INPUT DSR.UPDATE 100 %OUTPUT -UPDATE %DELETE UPDT0075 MVC T1+1(79),T1 %AFTER UPDT0136 DC CL4'%BSR' %BSR DC A(BSR) %AFTER UPDT0150 DC CL4'%FSR' %FSR DC A(FSR) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BSR TPCNT BSR %AFTER UPDT0483 FSR TPCNT FSR %DELETE UPDT0601 MVC T1+1(79),T1 %DELETE UPDT0625,3 %DELETE UPDT0754 T1 DS 20F TEMPORARY AREA FOR DIRTY WORK %BEFORE FILEMARK %END -FILE 263; 270 RECORDS: 0DWND TITLE 'DOWNDATE' DNDT0001 * DNDT0002 * WUPDATE PRODUCES "UPDATE" CONTROL CARDS ON SPUNCH DNDT0003 * TO MAKE "ORIGINAL SOURCE" IDENTICAL TO "CURRENT SOURCE". DNDT0004 * "ORIGINAL SOURCE" MUST CONTAIN UPDATE-COMPATIBLE SEQUENCING. DNDT0005 * BLOCK FACTORS MUST NOT EXCEED 80. DNDT0006 * DNDT0007 * DNDT0008 * DNDT0009 * DNDT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0D DNDT0261 XNEW DS (BLK*NL)C BUFFERS FOR NEW RECORDS DNDT0262 DC X'FF' SAFETY BYTE DNDT0263 * DNDT0264 DS 0D DNDT0265 XOLD DS 850000C BUFFER FOR OLD SOURCE DNDT0266 OLDLIM EQU * DNDT0267 DS (OL)C AUXILLIARY BUFFER DNDT0268 SOMBER EQU XNEW+NL*(BLK-1)-1 DNDT0269 END DNDT0270 -FILE 264; 78 RECORDS: 0ALLL TITLE 'PROGRAM TO LIST ALL LINES OF DISTRIBUTION TAPE' ALLL0001 LISTALL START ALLL0002 PRINT NOGEN ALLL0003 USING *,12 ALLL0004 LR 12,15 ALLL0005 MVI SW,0 ALLL0006 CALL QGETUCB,(NAME,UCB) ALLL0007 SERCOM 'ENTER FILE NUMBER TO START AT' ALLL0008 GLAB GUSER GIN,GLEN,EXIT=GLAB ALLL0009 LH 7,GLEN ALLL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PAT DC X'40202120' ALLL0069 OUTLINE DC C'-FILE NUMBER ' ALLL0070 NBR1 DC CL100' ' ALLL0071 DC C'FILE NUMBER ' ALLL0072 NBR2 DC C' ' ALLL0073 OUTL EQU *-OUTLINE ALLL0074 OUTLEN DC 0F'0',AL2(OUTL) ALLL0075 REG DS CL80 ALLL0076 GIN EQU REG ALLL0077 END ALLL0078 -FILE 265; 51 RECORDS: 0SYM LISTALLg IHB0001BhhhhԥhƥALLL0001 SYM hhhh c###1GLABh%hALLL0002 SYM hhh@hINLP{SKPLPgDIHB00ALLL0003 SYM 10Bhh}hJ\NEXTFILEhYhh0hALLL0004 SYM 4h8hc###3h hhhALLL0005 SYM hhc###4PRLOOPhhh>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   ALLL0042 TXT    FILE NUMBER b ALLL0043 TXT   ALLL0044 RLD %JY ALLL0045 RLD 0 <%h ALLL0046 RLD ^MQ48 ALLL0047 RLD  %hy^H ALLL0048 RLD }9 D* 0 ALLL0049 RLD   ALLL0050 END ALLL0051 -FILE 266; 340 RECORDS: 0LCAT TITLE 'PROGRAM TO LIST THE NAMES OF A USERS FILES' CATL0001 LCATALOG START 0 CATL0002 * CATL0003 * IF PAR=*SYS,WILL PRINT OUT SYSTEM CATALOG CATL0004 * =3/LINE,WILL PRINT 3 FILES PER LINE INSTEAD OF ONLY 1 CATL0005 * =DISK,WILL PRINT ONLY THOSE FILE ON DISK STORAGE CATL0006 * =DATACELL,WILL PRINT ONLY THOSE FILE ON DATA CELL CATL0007 * =LINE,WILL PRINT ONLY LINE FILES(ON DISK AND/OR DC) CATL0008 * =SEQ,WILL PRINT ONLY SEQUENTIAL FILES CATL0009 * =SEQWL,WILL PRINT ONLY SEQ FILES WITH LINE NUMBERS CATL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE CATL0331 CNOP 0,8 CATL0332 CARD DC 256C' ' CATL0333 FCB DS 70F CATL0334 SCR DS 250F CATL0335 CYLSIZAD EQU 52 CATL0336 TRKLENAD EQU 54 CATL0337 DTYPEAD EQU 30 CATL0338 COPY *CATEQU CATL0339 END CATL0340 -FILE 267; 488 RECORDS: 0SNIF TITLE 'PROGRAM TO EXAMINE FILE STORAGE CHARACTERISTICS' FSNF0001 FILESNIF START 0 FSNF0002 ENTER 5,SA=SAVEAREA FSNF0003 L 2,0(1) GET THE PARAMETER ADCON FSNF0004 LH 3,0(2) GET THE PARAMETER LENGTH FSNF0005 LTR 3,3 SEE IF THERE IS A PARAMETER FSNF0006 BZ OLDBACK BRANCH IF NOT FSNF0007 STH 3,NAMELEN SAVE THE LENGTH FSNF0008 BCTR 3,0 SUBTRACT ONE FROM PARAMETER LENGTH FSNF0009 EX 3,MOVER AND MOVE IT TO REGULAR PLACE FSNF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HOLEAREA DS CL256 PLACE TO KEEP HOLE COUNTS FSNF0479 WORKAREA DS 40D STANDARD WORK AREA FOR FILE ROUTINES FSNF0480 BUFFER DS CL140 VTOC RECORD AREA FOR CALLS ON DSKOP FSNF0481 LOGRECL EQU 4 FSNF0482 SEQ EQU X'10' FSNF0483 LNUMS EQU X'08' FSNF0484 D2321 EQU X'80' FSNF0485 BAS EQU X'04' FSNF0486 COPY *FCBEQU FSNF0487 END FILESNIF FSNF0488 -FILE 268; 176 RECORDS: 0 TITLE ' PROGRAM TO PRINT USE COUNT AND LAST REF DATE' FUSE0001 FILEUSE START 0 FUSE0002 REQU FUSE0003 ENTER RC,SA=SA FUSE0004 L R2,0(,R1) SAVE PARAMETER LIST FUSE0005 SPRINT ' FILENAME OWNER TYPE LOC USECNT LASTREF CREDATE VOXFUSE0006 LUME' FUSE0007 LTR R2,R2 FUSE0008 BZ READ NO PARAMETERS FUSE0009 LH R3,0(,R2) FUSE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTORG FUSE0167 SCRC DS 70D FUSE0168 COPY *CATEQU FUSE0169 LOOP EQU X'80' FUSE0170 ALL EQU X'40' FUSE0171 D2314 EQU X'40' FUSE0172 SEQ EQU X'10' FUSE0173 LNUM EQU X'08' FUSE0174 FMT1 DC C'C34,I7,S1,C8,S1,C8,S1,C6*' FUSE0175 END FUSE0176 -FILE 269; 140 RECORDS: 0JLGR TITLE 'JULIAN TO GREGORIAN TIME CONVERSION--13 JUN 69' JGCV0001 *********************************************************************** JGCV0002 * * JGCV0003 * JULGRGTM * JGCV0004 * * JGCV0005 * ON ENTRY, GR1 CONTAINS THE JULIAN TIME IN MINUTES. * JGCV0006 * * JGCV0007 * ON EXIT, GR0 AND GR1 CONTAIN THE GREGORIAN DATE IN THE FORM * JGCV0008 * MM-DD-YY, AND GR2 AND GR3 CONTAIN THE TIME OF DAY IN THE FORM* JGCV0009 * HH:MM.00. * JGCV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DUMMY SECTION FOR USER SAVE AREA * JGCV0131 * * JGCV0132 *********************************************************************** JGCV0133 SPACE 5 JGCV0134 SAVE DSECT JGCV0135 DS 5A JGCV0136 DATE DS CL8 JGCV0137 TIME DS CL8 JGCV0138 SPACE 5 JGCV0139 END JGCV0140 -FILE 270; 140 RECORDS: 0PERM TITLE 'PROGRAM TO SET ACCESS BITS IN FILES' PMIT0001 PRINT NOGEN PMIT0002 PERMIT START 0 PMIT0003 ENTER 12,SA=SA PMIT0004 MVI SW+1,X'F0' MAKE IT REUSABLE PMIT0005 L 2,0(0,1) PMIT0006 LTR 2,2 PMIT0007 BZ READ PMIT0008 LH 3,0(0,2) SEE IF HE GAVE US PARAMS PMIT0009 LTR 3,3 PMIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> JOBNO DS 3C PMIT0131 DC C' HAS TRIED TO PERMIT A FILE NOT BELONGING TO HIM ' PMIT0132 FILENAME DS 16C PMIT0133 MESSL EQU *-MESS PMIT0134 WTO EQU 7 PMIT0135 IN DS CL100 PMIT0136 INL DS H PMIT0137 FCBAI EQU 36 PMIT0138 SA DS 18F PMIT0139 END PMIT0140 -FILE 271; 244 RECORDS: 0COPY TITLE 'PROGRAM TO MOVE FILES TO ANOTHER USERID' COPY0001 * COPY0002 * IF PAR=SIGNON:FILENAME,THEN SPUNCH=OUTPUT FILENAME COPY0003 * OTHERWISE INFORMATION ENTERED VIA GUSER COPY0004 * COPY0005 PRINT NOGEN COPY0006 FILECOPY START 0 COPY0007 ENTER 12,SA=SA COPY0008 MVC SAV13(4),4(13) SAVE IT FROM READS COPY0009 L 2,0(0,1) COPY0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SEQ EQU X'80' COPY0235 FAKENAME DC CL100'****' COPY0236 ENDLINE DS F COPY0237 READL DS 0F PARAMETER LIST FOR READS COPY0238 FCBAD DS A FCB ADDRESS COPY0239 LINE DS F LINE NUMBER COPY0240 DC A(IN) LINE COPY0241 DC A(CWRD) COPY0242 CWRD DS XL4 COPY0243 END COPY0244 -FILE 272; 607 RECORDS: 0 MACRO FSAV0001 &LOC TZ &MSK,&ADD FSAV0002 &LOC TM SW,&MSK FSAV0003 BZ &ADD FSAV0004 MEND FSAV0005 SPACE 3 FSAV0006 MACRO FSAV0007 &LOC TN &MSK,&ADD FSAV0008 &LOC TM SW,&MSK FSAV0009 BNZ &ADD FSAV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTORG FSAV0598 DS 0F FSAV0599 MORTOC DS 250XL16 FSAV0600 TOC DS 250CL16 FSAV0601 TOCSIZ DS F FSAV0602 AUXTOC DS 250CL16 FSAV0603 TERM DC XL16'0' FSAV0604 SIZLOC EQU TOCSIZ-TOC FSAV0605 BUF DS 16CL4096 FSAV0606 END FSAV0607 -FILE 273; 247 RECORDS: 0DMPF TITLE 'DUMP LINE FILE IN HEXADECIMAL' FILD0001 MACRO FILD0002 &LABE SPRINT &ARG FILD0003 &LABE LA R1,COM&SYSNDX FILD0004 L LR,=V(SPRINT) FILD0005 BASR RR,LR FILD0006 B T&SYSNDX FILD0007 * FILD0008 COM&SYSNDX DC A(MCOM&SYSNDX) FILD0009 DC A(LCOM&SYSNDX) FILD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LENLIN DC H'0' FILD0238 LENLIN1 DC H'0' FILD0239 MAXAR EQU 256 FILD0240 PACK PACK CONVERT,0(0,R2) FILD0241 CONVERT DS D'0' FILD0242 MAXCHR EQU 3 FILD0243 LENGTH DC C'LENGTH=' FILD0244 MINLEN DC Y(L'LENGTH+1) FILD0245 OUTIT MVC OUTBUF+1(0),0(R3) FILD0246 END FILD0247 -FILE 274; 124 RECORDS: 0TABEDIT CSECT TBED0001 TABCODE EQU X'05' TBED0002 * TBED0003 BALR 12,0 TBED0004 USING *,12 ESTABLISH BASE REGISTER TBED0005 PRINT NOGEN TBED0006 LA 13,SAVEAREA AND SAVEAREA REGISTER TBED0007 SPACE 1 TBED0008 TM 0(1),X'80' IS THERE A PARAMETER LIST? TBED0009 BC 8,NOPAR BIT 0 TELLS ALL TBED0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LEN2 DS H TBED0115 LEM DC H'27' TBED0116 MOD DC F'0' TBED0117 TWO DC F'0' TBED0118 LNR DS F TBED0119 AIMAGE DC A(IMAGE) TBED0120 SAVEAREA DS 18F TBED0121 DBWD DS D TBED0122 TABS DS 20F TBED0123 END TBED0124 -FILE 275; 913 RECORDS: 0FORT TITLE ' NEW MTS FORTEDIT' FTED0001 SPACE FTED0002 MACRO FTED0003 &L MSG &X FTED0004 &L DC Y(L'L&L) FTED0005 L&L DC C&X FTED0006 MEND FTED0007 SPACE FTED0008 CANOE CSECT FTED0009 SPACE FTED0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FDUBELN DS F END LINE NR FTED0904 FDUBILN DS F INCREMENT LINE NR FTED0905 FDUBSBR DS F SUBROUTINE LOCN FTED0906 FDUBSCR DS F SCRATCH - SEQL PTR FTED0907 FDUBNAM DS F BACK PTR TO WHO'S USING IT FTED0908 FDUBDSW DS F DEFAULT SWITCHES FTED0909 FDUBCHN DS F FDUB CHAIN FTED0910 * FTED0911 FDUBLTH EQU *-FDUBDCT FTED0912 END CANOE FTED0913 -FILE 276; 52 RECORDS: 0BCDE TITLE 'BCD TO EBCDIC CONVERSION' BCDE0001 MACRO BCDE0002 &NAME GEN &START,&END MACRO TO GENERATE CONSTANTS BETWEEN BCDE0003 LCLA &COUNT &START AND &END BCDE0004 &COUNT SETA &START BCDE0005 AIF ('&NAME' EQ '').REPEAT BCDE0006 &NAME EQU * BCDE0007 .REPEAT DC AL1(&COUNT) BCDE0008 &COUNT SETA &COUNT+1 BCDE0009 AIF (&COUNT LE &END).REPEAT BCDE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TABLE GEN 0,75 BCDE0043 DC C')' BCDE0044 GEN 77,79 BCDE0045 DC C'+' BCDE0046 GEN 81,107 BCDE0047 DC C'(' BCDE0048 GEN 109,122 BCDE0049 DC C'=''' BCDE0050 GEN 125,255 BCDE0051 END BEGIN BCDE0052 -FILE 277; 85 RECORDS: 0 TITLE 'EBCDBCD -- TRANSLATES EBCDIC TO AUGMENTED BCD' EBCD0001 * EBCD0002 * EBCDBCD TRANSLATES INPUT LINES IN EBCDIC TO EBCD0003 * CHARACTER-EQUIVALENT OUTPUT LINES IN AUGMENTED BCD. EBCD0004 * EBCD0005 * LOWER-CASE LETTERS ARE CONVERTED TO UPPER CASE. EBCD0006 * EBCD0007 SPACE 6 EBCD0008 MACRO EBCD0009 &NAME CALL &SUB,&PARLIST EBCD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC 10X'40',X'7DE0D07C7B7F' EBCD0076 DC X'40C1C2C3C4C5C6C7C8C9',6X'40' EBCD0077 DC X'40D1D2D3D4D5D6D7D8D9',6X'40' EBCD0078 DC X'4040E2E3E4E5E6E7E8E9',22X'40' EBCD0079 DC X'40C1C2C3C4C5C6C7C8C9',6X'40' EBCD0080 DC X'40D1D2D3D4D5D6D7D8D9',6X'40' EBCD0081 DC X'4040E2E3E4E5E6E7E8E9',6X'40' EBCD0082 DC X'F0F1F2F3F4F5F6F7F8F9',6X'40' EBCD0083 LTORG EBCD0084 END EBCDBCD EBCD0085 -FILE 278; 368 RECORDS: 0SQSH TITLE 'CARD SQUASHER' SQSH0001 * DATE: 02-03-68 CHANGES MADE TO RECOGNIZE SYM,NCA, AND ENT CARDS SQSH0002 * CARDS WHICH ARE NOT RECOGNIZED ARE TREATED AS REP CARDS SQSH0003 SQUASH START SQSH0004 COPY APF SQSH0005 EJECT SQSH0006 ENTRY SQUASHC SQSH0007 * SQSH0008 SQUASHC STM RR,RC,12(RD) SAVE REGISTERS SQSH0009 USING SQUASHC,RC SQSH0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSGAR3 DC C' RECORD LENGTH > 80;ILLEGAL' SQSH0359 MSGLNG3 DC Y(L'MSGAR3) SQSH0360 * SQSH0361 MSG4 DC A(MSGAR4) SQSH0362 DC A(MSGLNG4) SQSH0363 DC A(0) SQSH0364 MSGAR4 DC C' RECORD IGNORED' SQSH0365 MSGLNG4 DC Y(L'MSGAR4) SQSH0366 WORKAR DS 64F SQSH0367 END SQSH0368 -FILE 279; 2828 RECORDS: 0 BLOCK DATA TIDY0001 C TIDY0002 C THIS BLOCK DATA CONTAINS ALL THE DATA STATEMENTS FOR TIDY. TIDY0003 C TIDY0004 COMMON ICOL,IFIR,IOUT(1326),JCOL,JINT(1600),JMAX,JOB(80),KB15,KBUFTIDY0005 1F(80),KD15,KD79,KOL73(3),L772,LAST,LCPY,LDEF(3000),LDOS(10),LFIR,LTIDY0006 2QUAL,LREF(1000),MCOL,MCOM,MEOF,MEX,MILDO,MLBL,MLGC,MLIST,MP2,MPUN,TIDY0007 3MREF,MSKP,MSTOP,MTRAN,NBLC,NCD,NDEF,NDOS,NINS,NPAR,NPUN,NREC,NREF,TIDY0008 4NROUT,NRT1,NRT2,NTEMP(5),NXEQ TIDY0009 COMMON /ALPHA/ KBL,KDIG(10),KABC(26),KSPK(11) TIDY0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 5 IF (LINE) 6,7,6 TIDY2819 6 NPAGE=NPAGE+1 TIDY2820 PRINT 9, NPAGE,JOB TIDY2821 LINE=0 TIDY2822 7 RETURN TIDY2823 8 LINE=LINE+N TIDY2824 IF (LINE-50) 7,6,6 TIDY2825 C TIDY2826 9 FORMAT (1H1,6X,11H* T I D Y *,61X,4HPAGE,I4/7X,80A1/1X) TIDY2827 END TIDY2828 -FILE 280; 359 RECORDS: 0 PRINT ON,NOGEN ASMT0001 TIDY START 0 ASMT0002 SCAN2 EQU 2 ASMT0003 START EQU 3 PTR TO START OF FIELD(INPUT) ASMT0004 CNT EQU 4 USED IN 'PARM' ASMT0005 WORK EQU 5 ASMT0006 END EQU 6 END OF SCANNED ASMT0007 LEN EQU 7 LENGTH OF SCANNED FIELD ASMT0008 OUT EQU 8 PTR TO OUTPUT AREA ASMT0009 PTR EQU OUT USED IN 'PARM' ASMT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG TAB+C'K' ASMT0350 DC X'08080008000C' ASMT0351 ORG TAB+C'S' ASMT0352 DC X'0808' ASMT0353 ORG TAB+C'X' ASMT0354 DC X'0C000C' ASMT0355 ORG TAB+C'0' ASMT0356 DC 10X'10' ASMT0357 ORG ASMT0358 END ASMT0359 -FILE 281; 72 RECORDS: 0 TITLE 'MACRO LIBRARY GENERATOR' MACG0001 * MACG0002 * SCARDS - MACRO LIBRARY MACG0003 * SPUNCH - MACRO DIRECTORY MACG0004 * MACG0005 LIBGEN CSECT MACG0006 * MACG0007 R0 EQU 0 MACG0008 R1 EQU 1 MACG0009 R2 EQU 2 MACG0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * MACG0063 ADW DS D MACG0064 IMG DS CL80 MACG0065 DC CL8'%' MACG0066 LNO DS F MACG0067 WA DS CL8 MACG0068 OBF DS CL80 MACG0069 SETLNO MVC OBF+9(0),0(R1) MACG0070 SETMN MVC OBF(0),0(R3) MACG0071 END MACG0072 -FILE 282; 268 RECORDS: 0GLB1 TITLE 'FEWER-CONTROL-CARD-PRODUCING GENLIB, CSECTNAME GENLIB1' GENL0001 MACRO GENL0002 &NAME GTSPC &LIST,&LEN,® GENL0003 &NAME L ®,SPACENOW GENL0004 S ®,=A(&LEN) GENL0005 C ®,SPACEEND GENL0006 BNL *+22 GENL0007 LM 15,1,=A(GETSPACE,3,1024) GENL0008 BALR 14,15 GENL0009 LA ®,8(1) GENL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LINENUMB DC F'-99999000' GENL0259 MODNUMB DC A(0) GENL0260 INCARD DS 64F GENL0261 MLTDEFMG DC C' MULTIPLY DEFINED, FIRST VALUE TAKEN' GENL0262 WORKA DS F GENL0263 Z DC A(0) GENL0264 ERROR1MG DC C'EOF FOUND IN MODULE, END CARD ADDED' GENL0265 TABLE DS (TABLEN)F GENL0266 LEN DS H GENL0267 END GENL0268 -FILE 283; 647 RECORDS: 0GLIB TITLE ' GENERATE A LOAD LIBRARY' GENL0001 GENLIB CSECT GENL0002 ENTER 12,SA=SA HELLO THERE GENL0003 L 9,0(0,1) SAVE PARAMETER STRING IF ANY GENL0004 SVC 38 TIME FOR THE CUP TIME GENL0005 STM 0,1,CPUTIME GENL0006 L 1,SMLTBLSZ GENL0007 GETSPACE T=1 GENL0008 ST 1,SMLTBL GENL0009 ST 1,SMLTBL+8 GENL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BACKPTR EQU 4 GENL0638 NAME EQU 8 GENL0639 LIBPTR EQU 16 GENL0640 NXTPTR EQU 20 GENL0641 ERPTR EQU 24 GENL0642 NXTLIB EQU 24 GENL0643 REFCNT EQU 28 GENL0644 LIBSEQ EQU 30 GENL0645 SPACE 5 GENL0646 END GENL0647 -FILE 284; 3042 RECORDS: 0 OSMC0001 MACRO OSMC0002 &CNAME CLOSE &PAR1,&MF=I,&TYPE= OSMC0003 LCLA &ACTR,&ASUM,&CTR,&CTR1,&LGTH,&NUMBER OSMC0004 LCLB &LOOPSW,&MFESW,&MFISW,&MFI2SW,&NULLSW,&B(3) OSMC0005 LCLC &PARA OSMC0006 &NUMBER SETA N'&PAR1 OSMC0007 &CTR SETA 1 OSMC0008 &CTR1 SETA 2 OSMC0009 &LOOPSW SETB 1 OSMC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MACRO OSMC3033 &NAME NOTE &DCB OSMC3034 AIF ('&DCB' EQ '').ERR OSMC3035 &NAME IHBINNRA &DCB OSMC3036 L 15,52(0,1) OSMC3037 BALR 14,15 OSMC3038 MEXIT OSMC3039 .ERR IHBERMAC 6 OSMC3040 MEND OSMC3041 OSMC3042 -FILE 285; 3388 RECORDS: 0$ TITLE ' AUXILIARY ROUTINES' OSRT0001 $ CSECT OSRT0002 SPACE 5 OSRT0003 ENTRY SERCOM$,SPRINT$,SPUNCH$ OSRT0004 ENTRY SCARDS$,GUSER$ OSRT0005 SPACE 5 OSRT0006 USING SERCOM$,15 OSRT0007 SERCOM$ MVI MOD+3,X'40' OSRT0008 MVC ROUTE,=V(SERCOM#) OSRT0009 B OUTMSG OSRT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> QQSV DS 15F OSRT3379 COPY SAMEQU OSRT3380 TIOR EQU RB OSRT3381 FDUBR EQU 7 OSRT3382 DCBR EQU 11 OSRT3383 BASE EQU 8 OSRT3384 PARMR EQU 3 OSRT3385 GDFR EQU 9 OSRT3386 NOT EQU 255 OSRT3387 END OSRT3388 -FILE 286; 139 RECORDS: 0 EJECT OSCP0001 DECDSECT DSECT OSCP0002 DECSDECB DS F EVENT CNTL BLK OSCP0003 DECTYPE DS H TYPE OF I/O MACRO OSCP0004 DECLNGTH DS H LENGTH OF KEY AND KATA OSCP0005 DECDCBAD DS A A(DCB) OSCP0006 DECAREA DS A A(AREA) OSCP0007 DECIOBPT DS A A(IOB) OR ZERO. OSCP0008 EJECT OSCP0009 DCBD DSORG=(PS) OSCP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RY EQU 14 OSCP0130 RZ EQU 15 OSCP0131 SPACE OSCP0132 * FLOATING POINT REGISTERS. OSCP0133 SPACE OSCP0134 FA EQU 0 OSCP0135 FB EQU 2 OSCP0136 FC EQU 4 OSCP0137 FD EQU 6 OSCP0138 EJECT OSCP0139 -FILE 287; 217 RECORDS: 01 /* TEXT90 TO TEXT360 CONVERSION V3.0 MAY 25,1967 */ T90T0001 TRNSL:PROCEDURE OPTIONS(MAIN); T90T0002 DECLARE T90T0003 BIN BINARY FIXED (8), T90T0004 LISTA CHAR (1), T90T0005 OFILE FILE INPUT, /*T90 MASTER TAPE*/ T90T0006 NFILE FILE OUTPUT, /*T360 MASTER TAPE*/ T90T0007 1 Y, /*MASBUF DEFINED AS ARRAY*/ T90T0008 2 AMASS(1956) CHAR (1), T90T0009 MASBUF CHAR (1956) DEFINED Y, /*PHYSICAL INPUT RECORD*/ T90T0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END; T90T0208 END; T90T0209 TRN55: T90T0210 Z=0; /*RESET CODE INDEX*/ T90T0211 GO TO TRN20; /*GO TO THE NEXT CHARACTER*/ T90T0212 TRN56: T90T0213 PUT FILE (SYSPRINT) LIST (TIME); /*OUTPUT TIME AT END OF JOB*/ T90T0214 CLOSE FILE (NFILE); T90T0215 CLOSE FILE (SYSPRINT); T90T0216 END TRNSL; T90T0217 -FILE 288; 916 RECORDS: 0-UNLIST MPL10001 ****MADTOPL1 - A MAD TO PL/I TRANSLATOR MPL10002 * MPL10003 *FIRST - CONSTRUCT ALL PATTERNS MPL10004 * MPL10005 &STLIMIT = 200000 MPL10006 DEFINE("DELIT(TEXT)A,B,C,D") MPL10007 DEFINE("DEBLANK(TEXT)") MPL10008 DEFINE("PRINTOUT(TEXT)") MPL10009 DEFINE("DECLOUT(TEXT,ATR)LIST,A") MPL10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FAIL13 $OUT1 = "**** UNDEFINED FORMAT LIST" :(FAILCOM) MPL10907 FAIL14 $OUT1 = "**** UNTRANSLATABLE OCCURRENCE OF BLOCK OR ITERATION" MPL10908 . :(FAILCOM) MPL10909 FAIL15 $OUT1 = "**** UNTRANSLATABLE CONSTANT" :(FAILCOM) MPL10910 FAIL16 $OUT1 = "**** UNTRANSLATABLE DIMENSIONING INFORMATION" MPL10911 . :(FAILCOM) MPL10912 FAILCOM $OUT1 = " IN STATEMENT " PROTEMP MPL10913 PRINTOUT("/********UNTRANSLATABLE STATEMENT********/") :(PASS2) MPL10914 * MPL10915 END MPL10916 -FILE 289; 92 RECORDS: 0C LIBRARY TO FAST LIBRARY EDIT LTFL0001 C LTFL0002 C LOGICAL DEVICE NUMBERS: LTFL0003 C 1 - NEW LIBRARY PUT HERE. LTFL0004 C 2 - OLD LIBRARY EXPECTED HERE. LTFL0005 C 3 - SCRATCH FILE. LTFL0006 C 6 - PRINTED OUTPUT. LTFL0007 C LTFL0008 C THIS PROGRAM READS A CORRECTLY STRUCTURED LIBRARY LTFL0009 C FILE AND CONVERTS THE 'LIB' RECORDS TO THE NEW LTFL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WRITE (6,902) IRECDS LTFL0083 101 IF ( LINE .EQ. LINTMP) CALL SYSTEM LTFL0084 CALL READ(INPUT,INPUTL,22,LINE,3) LTFL0085 CALL WRITE(INPUT,INPUTL,86,LINE,1) LTFL0086 LINE = LINE+1000 LTFL0087 GO TO 101 LTFL0088 C LTFL0089 C THAT'S ALL FOLKS LTFL0090 C LTFL0091 END LTFL0092 -FILE 290; 28 RECORDS: 0FIXOBJ ENTER 12,SA=SA FXOB0001 B READ 2,CARD,LEN,LNR,EXIT=DONE FXOB0002 CLI LSW,0 FXOB0003 BNE A FXOB0004 CLC =C'ESD',CARD+1 FXOB0005 BE C FXOB0006 A CLC =C'END',CARD+1 FXOB0007 BNE B FXOB0008 MVI LSW,0 FXOB0009 CLC =C' ',CARD+29 FXOB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B B FXOB0019 DONE EXIT 0 FXOB0020 LSW DC X'00' FXOB0021 LEN DS H FXOB0022 LNR DS F FXOB0023 ELNR DS F FXOB0024 CARD DS 80C FXOB0025 CARDE DS 80C FXOB0026 SA DS 18F FXOB0027 END FXOB0028 -FILE 291; 311 RECORDS: 0 &STLIMIT = 500000 FOT30001 * FOT30002 * PROGRAM TO CONVERT (MOSTLY) FROM FOT30003 * FORMAT FOT30004 * TO FOT30005 * TEXT/360 FOT30006 * FOT30007 * FOT30008 * FOT30009 * PATTERNS, CONSTANTS, AND THE LIKE ... FOT30010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PUTSHORT IDENT(ARG) :S(RETURN) FOT30302 OUTPUT = OUTER '|' ARG '/ ' FOT30303 PUNCH = ARG '/ ' :(RETURN) FOT30304 PUTTEST ARG = PC ARG FOT30305 PC = FOT30306 IDENT(PB,PC) :F(PUTMRG) FOT30307 ARG = PB ARG FOT30308 PB = :(PUTMRG) FOT30309 DONE FOT30310 END FOT30311 -FILE 292; 288 RECORDS: 0****TRANSNOBOL - A SNOBOL3-SNOBOL4 TRANSLATOR **** TRNS0001 * TRNS0002 * FIRST CONSTRUCT ALL PATTERNS TRNS0003 * TRNS0004 BLANK = SPAN(" ") ; MAYBL = BLANK | NULL TRNS0005 INFUNC = BREAK("'),") ("'" BREAK("'") "'" *INFUNC | NULL) TRNS0006 BACK = BREAK("= ") BLANK (*B " " | *BACK) TRNS0007 SKIP = BREAK("(), ") SPAN("(), ") (NULL | *SKIP) TRNS0008 END = ANY("), ") TRNS0009 TOTAL = BREAK("(), ") SPAN("(), ") (("'" BREAK("'") "'" | '"' TRNS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TRACE1 DO CREATE("S4") = "TRACE(" B ',"FUNCTION")' :(RETURN) TRNS0279 REMDR DO CREATE("S10") = A "(" :(RETURN) TRNS0280 OUTPUT C MAYBL "'7'" = "'6'" TRNS0281 STOPTR DO = A "(" B ',"FUNCTION")' :(RETURN) TRNS0282 DO = "PRINT(" B C ",'(6X,126A1)')" :(RETURN) TRNS0283 ELIT CNT = CNT + 1 ; BAD1 = BAD1 COUNT - CNT "," TRNS0284 DO = B FASTOUT("") :(RETURN) TRNS0285 ELI CNT = CNT + 1 ; BAD2 = BAD2 COUNT - CNT "," TRNS0286 DO = B FASTOUT("") :(RETURN) TRNS0287 END TRNS0288 -FILE 293; 867 RECORDS: 0* TO RUN GO-MAD - GOMD0001 * $RUN *SNOBOL4 5=GOMAD+(THE INPUT PROG) GOMD0002 * 7=PUNCHED OUTPUT GOMD0003 * 6=PRINTED OUTPUT GOMD0004 * GOMAD REQUIRES (PRESENTLY) EBCDIC INPUT GOMD0005 -UNLIST GOMD0006 QUOTE = "'" GOMD0007 &TRACE = "ON" GOMD0008 &DUMP = 'ON' GOMD0009 &MAXLNGTH = 1000 GOMD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * PRINT A LIST OF DELETED STATEMENT LABELS GOMD0858 END3. DEL.LAB "," = GOMD0859 IDENT(DEL.LAB,"") :S(END3) GOMD0860 SYSPOT = "-THE FOLLOWING LABELS ARE NOT USED AND HAVE BEEN " GOMD0861 ."DELETED -" GOMD0862 SYSPOT = "-" DEL.LAB GOMD0863 GOMD0864 END3 SWT "ON" :S(ALL.DONE)F(START1) GOMD0865 ALL.DONE &DUMP = GOMD0866 END GOMD0867 -FILE 294; 54 RECORDS: 0 /* LCPF4 CONTROL-PHASE */ LCP00010 /* ************************************/ LCP00020 /* */ LCP00030 /* LCP FORTRAN-IV TO PL/I */ LCP00040 /* PROGRAM NUMBER 360-CV-710 */ LCP00050 /* */ LCP00060 /* VERSION 1 LEVEL 0 */ LCP00070 /* */ LCP00080 /* */ LCP00090 /* THE LCP CONTROL PHASE RECEIVES */ LCP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; LCP00450 TR02:CALL IPPRO(LCPOP); /* CALL INITIAL PROCEDURE */LCP00460 TR03:CALL PH10; /* CALL PHASE 10 */LCP00470 IF TBLFN(TEQ)=0 THEN /*NO EQUIVAL IN PROGRAM */LCP00480 IF TBLFN(TDA)=0 THEN GOTO TR04; /* NO DATA SKIP PH20 */LCP00490 TR05:CALL PH20; /* PROCESS EQUIV AND DATA */LCP00500 TR04:CALL PH30 ; /* CALL PHASE 30 */LCP00510 IF(LCFLX =0)THEN GOTO TR02; /*IS IT LAST JOB OF BATCH-NO*/LCP00520 RETURN; /* END OF BATCH */LCP00530 END; LCP00540 -FILE 295; 185 RECORDS: 0CONVER START 0 CON00010 * CON00020 * THE FOLLOWING IS CON00030 * CON00040 * A LITTLE PROGRAM CONVERTING CHARACTERS TO FIXED BINARY CON00050 * CON00060 ENTRY CVB CONVERT TO BINARY CON00070 ENTRY UNSPC UNSPEC BUILT IN FUNCTION CON00080 * CON00090 ENTRY CVC1 CONVERT TO 1 CHARACTER CON00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BH EQU 2 BRANCH IF GREATER THAM CON01760 * CON01770 * STORAGE UTILITY AREAS CON01780 * CON01790 CVZP DS D CONTAINS PACKED DATA CON01800 CVL DC F'0' LENGH OF STRING CON01810 CVZN DS 9C CONTAINS ZONED DATA NEXT IS CVZE** CON01820 CVZE DC 9C'0' TO SET CVZN TO F0 AT THE BEGINNING CON01830 CVSW DC C'0' SW TO REMOVE 0 IF ON CON01840 END CON01850 -FILE 296; 1120 RECORDS: 0 MACRO PUT00010 PUTXX &DEBUG=,&IOERR= PUT00020 ************************************************************ PUT00030 * * PUT00040 * LCP FORTRAN-IV TO PL/I * PUT00050 * PROGRAM NUMBER 360-CV-710 * PUT00060 * * PUT00070 * VERSION 1 LEVEL 0 * PUT00080 * * PUT00090 * --- P U T T B S --- * PUT00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TABSNP DS 3260C PUT11110 TABSND2 DS 0F PUT11120 ORG TABSNP+840 PUT11130 TABSND1 DS 0F PUT11140 .SGO012 ANOP PUT11150 EJECT PUT11160 MEND PUT11170 PUTTBS START 0 PUT11180 PUTXX DEBUG=NO,IOERR=NO PUT11190 END PUT10680 -FILE 297; 566 RECORDS: 0 /* LTCOL LITTERAL AND COMMENTS COLLR */ LTC00010 /**************************************/ LTC00020 /* */ LTC00030 /* LCP FORTRAN-IV TO PL/I */ LTC00040 /* PROGRAM NUMBER 360-CV-710 */ LTC00050 /* */ LTC00060 /* VERSION 1 LEVEL 0 */ LTC00070 /* */ LTC00080 /* --- L T C O L --- */ LTC00090 /* */ LTC00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WD11:WDBCD=J; /* SAVE CARD POINTER */LTC05570 WDBCH=I; /* SAVE CHARACTER POINTER */LTC05580 WDDLM=WDIC; /* SAVE DELIMITER */LTC05590 WDDBG= DWDDBG; LTC05600 PUT DATA(WDDBG,WDLG,WDDLM); LTC05610 IF(WDLG=0)THEN GOTO WDDE; /* DELIMITER EXIT */LTC05620 IF(WDST=1)THEN GOTO WDNU; /* NUMERIC EXIT */LTC05630 GOTO WDAL; /* ALPHA RETURN */LTC05640 LTC05650 END; LTC05660 -FILE 298; 1280 RECORDS: 0 /* IPPRO GETCRD KEYDIC IMPRO INITIAL. */ IPP00010 /*$************************************/ IPP00020 /* */ IPP00030 /* LCP FORTRAN-IV TO PL/I */ IPP00040 /* PROGRAM NUMBER 360-CV-710 */ IPP00050 /* */ IPP00060 /* VERSION 1 LEVEL 0 */ IPP00070 /* */ IPP00080 /* --- I P P R O --- */ IPP00090 /* */ IPP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IF WDDLM =LCRP THEN /* IS IT END OF LIST - YES */IPP12710 CALL GETWRD(IM20,IM20,IM02); /* GET NEXT DELIMITER */IPP12720 IM28:IF WDDLM=LCPV THEN DO; /* IS IT THE END OF STATEMENT*/IPP12730 IM20:GOTO CS11; IPP12740 END; IPP12750 BC36:LCPRO=0; IPP12760 IF(LCEND=0)THEN GOTO CD03; /* GOTO NEXT CARD */IPP12770 WDML=23; /* RESTORE MAXIMUM LENGTH */IPP12780 RETURN; IPP12790 END; IPP12800 -FILE 299; 502 RECORDS: 0 /* PH10 XTBPRO AIGUILLAGE PROCEDURE */ PH100010 /**************************************/ PH100020 /* */ PH100030 /* LCP FORTRAN-IV TO PL/I */ PH100040 /* PROGRAM NUMBER 360-CV-710 */ PH100050 /* */ PH100060 /* VERSION 1 LEVEL 0 */ PH100070 /* */ PH100080 /* --- P H 1 0 --- */ PH100090 /* */ PH100100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> XT50 :XTENLG=XTIWD; /*ENTRY LENGH */PH104930 IF LCOP(6)='0' THEN DO; PH104940 XTENLG=XTENLG+1; PH104950 WORD(XTENLG)='.'; PH104960 XTDLM='.'; PH104970 END; PH104980 ELSE PH104990 XTDLM=$LCCL; /*DELIM=COLON */PH105000 GOTO XT10; PH105010 END; PH105020 -FILE 300; 471 RECORDS: 0 FNPRO:PROCEDURE; FNP00010 /**************************************/ FNP00020 /* */ FNP00030 /* LCP FORTRAN-IV TO PL/I */ FNP00040 /* PROGRAM NUMBER 360-CV-710 */ FNP00050 /* */ FNP00060 /* VERSION 1 LEVEL 0 */ FNP00070 /* */ FNP00080 /* --- F N P R O --- */ FNP00090 /* */ FNP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EX04:RETURN; FNP04620 FNP04630 BLPRO:LCPGN='BLD '; FNP04640 WDRD5='BEGIN'; /* GENERATE -BEGIN- */FNP04650 WDLG=5; FNP04660 XTDLM=$LCPV; FNP04670 CALL XTBPRO; FNP04680 LCPGC=LCPGC+LCBLD; FNP04690 RETURN; FNP04700 END; FNP04710 -FILE 301; 835 RECORDS: 0 /**************************************/ DMP00010 /* */ DMP00020 /* LCP FORTRAN-IV TO PL/I */ DMP00030 /* PROGRAM NUMBER 360-CV-710 */ DMP00040 /* */ DMP00050 /* VERSION 1 LEVEL 0 */ DMP00060 /* */ DMP00070 /* --- D M P R O --- */ DMP00080 /* */ DMP00090 /* ENTRY NAMES:DMPRO,CMPRO,YDPRO,YIPRO*/ DMP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IF DAC='/' THEN DO; /*END REACHED */DMP08260 TDAP=TBLCW; DMP08270 TBLCW=0; /*MAKE A NEW ENTRY */DMP08280 TDAH,TDAN=0; DMP08290 CALL PUTTBL(TDA); DMP08300 IF SURT=3 THEN GOTO YT29; DMP08310 GOTO DA25; DMP08320 END; DMP08330 GOTO DA002; /*TO REINITIALIZE LENGH */DMP08340 END; DMP08350 -FILE 302; 404 RECORDS: 0 NLPRO:PROCEDURE; NLP00010 /*********************************************************************/NLP00020 /* */NLP00030 /* LCP FORTRAN-IV TO PL/I */NLP00040 /* PROGRAM NUMBER 360-CV-710 */NLP00050 /* */NLP00060 /* VERSION 1 LEVEL 0 */NLP00070 /* */NLP00080 /* --- N L P R O --- */NLP00090 /* */NLP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CALL LABPRO; /* PLACE LABEL IN XTABLE */NLP03950 WDLG=0; /* INITIALIZATION */NLP03960 XTDLM=$LCPV; /* FOR XTBPRO */NLP03970 CALL XTBPRO; /* PLACE ';' IN XTABLE */NLP03980 CALL GETWRD(CT20,CT20,CT01); /* GET ENDMARK */NLP03990 CT20:XTEM=16; NLP04000 CALL ERMS; NLP04010 CT01:RETURN; NLP04020 NLP04030 END; NLP04040 -FILE 303; 976 RECORDS: 0 /*********************************************************************/FTP00010 /* */FTP00020 /* LCP FORTRAN-IV TO PL/I. */FTP00030 /* PROGRAM NUMBER 360-CV-710 */FTP00040 /* */FTP00050 /* VERSION 1 LEVEL 0 */FTP00060 /* */FTP00070 /* --- F T P R O --- */FTP00080 /* */FTP00090 /* ENTRY NAMES:FTPRO */FTP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TDTR=FTSKP; FTP09670 TBLCW=0; FTP09680 CALL PUTTBL(TDT); /*GET PACKED FORMAT INTO TDT */FTP09690 FT810:FTTBM=TBLCW; FTP09700 TBLCW=TFMF; FTP09710 TFMF=FTTBM; FTP09720 FT900:CALL PUTTBL(TFM); /*GET PNTR TO TDT INTO TFM */FTP09730 IF XTEM=0 THEN RETURN; FTP09740 CALL ERMS; RETURN; FTP09750 END; FTP09760 -FILE 304; 471 RECORDS: 0 RTPRO:PROCEDURE; RTP00010 /*********************************************************************/RTP00020 /* */RTP00030 /* LCP FORTRAN-IV TO PL/I. */RTP00040 /* PROGRAM NUMBER 360-CV-710 */RTP00050 /* */RTP00060 /* VERSION 1 LEVEL 0 */RTP00070 /* */RTP00080 /* --- R T P R O --- */RTP00090 /* */RTP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TBLCW=GTPT; RTP04620 CALL PUTTBL(TDI); RTP04630 GOTO GT02; RTP04640 GT03:IF WDDLM=LCLP THEN GOTO GT30; RTP04650 GT20 :XTEM=16; RTP04660 CALL ERMS; RTP04670 GOTO GT04; RTP04680 GT02:IF(WDDLM=LCPV)THEN GOTO GT20; RTP04690 GT04:RETURN; RTP04700 END; RTP04710 -FILE 305; 1165 RECORDS: 0 /**************************************/ IOP00010 /* */ IOP00020 /* LCP FORTRAN-IV TO PL/I */ IOP00030 /* PROGRAM NUMBER 360-CV-710 */ IOP00040 /* */ IOP00050 /* VERSION 1 LEVEL 0 */ IOP00060 /* */ IOP00070 /* --- I O P R O --- */ IOP00080 /* */ IOP00090 /* ENTRY NAMES:IOPRO,DOPRO */ IOP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> XTDLM= $LCRP; /* PUT ) AFTER LAST SUBSCRIPT*/IOP11560 CALL XTBPRO; IOP11570 WDBCD= SPBCD(8); /* RESTORE BASE POINTERS AFT.*/IOP11580 WDBCH= SPBCH(8); /* SUBSCRIPTED VARIABLE */IOP11590 SP22: IOP11600 GOTO IO85; /* RETURN TO CALLER */IOP11610 IOP11620 /* END OF SUBSCRIPTS PROCESSOR */ IOP11630 IOP11640 END; /* END OF IOPRO */IOP11650 -FILE 306; 1255 RECORDS: 0 /**************************************/ ARP00010 /* */ ARP00020 /* LCP FORTRAN-IV TO PL/I */ ARP00030 /* PROGRAM NUMBER 360-CV-710 */ ARP00040 /* */ ARP00050 /* VERSION 1 LEVEL 0 */ ARP00060 /* */ ARP00070 /* --- A R P R O --- */ ARP00080 /* */ ARP00090 /* ENTRY NAME:ARPRO */ ARP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GOTO SP09; ARP12460 /* LAST SUBSCRIPT */ ARP12470 SP21: ARP12480 XTDLM= $LCRP; /* PUT ) AFTER LAST SUBSCRIPT*/ARP12490 CALL XTBPRO; ARP12500 WDBCD= SPBCD(8); /* RESTORE BASE POINTER */ARP12510 WDBCH= SPBCH(8); /* TO RESUME SCANNING */ARP12520 IF SPSW= '1' THEN RETURN; /* CALLED BY ALPRO */ARP12530 SP22:GOTO ARS86; /* RET TO CALLER 2ND SCANN. */ARP12540 END; ARP12550 -FILE 307; 176 RECORDS: 0 CAPRO:PROCEDURE; CAP00010 /****************************************************/ CAP00020 /* */ CAP00030 /* LCP FORTRAN-IV TO PL/I */ CAP00040 /* PROGRAM NUMBER 360-CV-710 */ CAP00050 /* */ CAP00060 /* VERSION 1 LEVEL 0 */ CAP00070 /* */ CAP00080 /* --- C A P R O --- */ CAP00090 /* */ CAP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CA08 :IF CADL= $LCPV THEN GOTO CA09; /* NOT SEMI-COLON */CAP01670 WDRD4= 'STOP'; CAP01680 XTEM= 8; /* WARNING */CAP01690 WDLG=4; CAP01700 XTDLM=CADL; CAP01710 CALL XTBPRO; /* GENERATE 'STOP' IN XTABLE */CAP01720 GOTO CA06; CAP01730 CA09:XTEM= 8; CAP01740 GOTO CA04; CAP01750 END; CAP01760 -FILE 308; 256 RECORDS: 0 IFPRO:PROCEDURE; IFP00010 /****************************************************/ IFP00020 /* */ IFP00030 /* LCP FORTRAN-IV TO PL/I */ IFP00040 /* PROGRAM NUMBER 360-CV-710 */ IFP00050 /* */ IFP00060 /* VERSION 1 LEVEL 0 */ IFP00070 /* */ IFP00080 /* --- I F P R O --- */ IFP00090 /* */ IFP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> XTDLM=' '; IFP02470 CALL XTBPRO; /*------IF */IFP02480 WDRD=IFM(KL1); WDLG=IFL(KL1); /* PLACE IN XTABLE THE BRANCH*/IFP02490 XTDLM=$LCPV; IFP02500 CALL BRNPRO; END; /*----LABEL */IFP02510 GOTO IF21; IFP02520 IF20 :XTEM= 16; IFP02530 CALL ERMS; IFP02540 IF21 : IFP02550 END; IFP02560 -FILE 309; 323 RECORDS: 0 ALPRO:PROCEDURE; ALP00010 /*********************************************************************/ALP00020 /* */ALP00030 /* LCP FORTRAN-IV TO PL/I. */ALP00040 /* PROGRAM NUMBER 360-CV-710 */ALP00050 /* */ALP00060 /* VERSION 1 LEVEL 0 */ALP00070 /* */ALP00080 /* --- A L P R O --- */ALP00090 /* */ALP00100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WDLG=3; /* OF THE PROCEDURE */ALP03140 XTDLM=';'; ALP03150 XTBCH= 2; ALP03160 CALL XTBPRO; ALP03170 GOTO AT13; ALP03180 AT12 :XTEM= 16; ALP03190 CALL ERMS; ALP03200 AT13 : ALP03210 RETURN; ALP03220 END; ALP03230 -FILE 310; 743 RECORDS: 0 (CHECK(DTPRO,DT020,DT030, PH200010 DT040,DT090,DT092,DT098, PH200020 DT100,DT115,DT116,DT110, PH200030 DT120,DT130,DT160,DT170, PH200040 DT200,DTCOP,DTCO5,DT240, PH200050 DT500,DT510,DT520,DT550, PH200060 DT560,DT700,DT710,DT800, PH200070 DT810,DT814,DT820,DT824, PH200080 DT850,DT871,DT877,DT873, PH200090 DT900,DT950,DT920,DT860, PH200100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DT872: DTNV=TDTR; PH207340 TDTN=DTCH; PH207350 CALL PUTTBL(TDT); PH207360 DEBUG='29'; PH207370 PUT DATA (DEBUG,$TDT); PH207380 DTCH=TBLCW; /*SAVE FOR CHAIN */PH207390 DT874:DTTBH(DTSK)=-M; /*MAKE HEAD DUMMY */PH207400 IF DTRE='1' THEN GOTO DT873; PH207410 GOTO DT810; PH207420 END; PH207430 -FILE 311; 1940 RECORDS: 0 /* PH30 EDITION PROCEDURE */ PH300010 /**************************************/ PH300020 /* */ PH300030 /* LCP FORTRAN-IV TO PL/I */ PH300040 /* PROGRAM NUMBER 360-CV-710 */ PH300050 /* */ PH300060 /* VERSION 1 LEVEL 0 */ PH300070 /* */ PH300080 /* --- P H A S E 3 0 --- */ PH300090 /* */ PH300100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> UPPT=UPPT+1; PH319310 RETURN; PH319320 UP520:IF UPIW>UPLG THEN RETURN; /*IF WORD COMPLETELY COPIED R*/PH319330 IF UPPT>UPEL THEN GOTO UP200; /*TO PRINT LINE */PH319340 UPLIN(UPPT)=WORD(UPIW); /*COPY A CHAR */PH319350 UPPT=UPPT+1; /*INCREASE PT IN LINE */PH319360 UPIW=UPIW+1; /*INCREASE PT IN WORD */PH319370 GOTO UP520; PH319380 END UPRNT; PH319390 END; PH319400 -FILE 312; 155 RECORDS: 0LCPF TITLE ' LCP FORTRAN - PL/1 BLANK CONVERSION. ' * FUNCTION TO CONVERT A FORTRAN INPUT ITEM WITH BLANKS TO A FORM * ACCEPTABLE TO PL/1. * THE PASSED PARAMETER IS THE FIELD WIDTH WHICH IS COPIED * INTO THE RETURNS ARGUMENT. * * USE THIS MODULE CAN BE USED AS A FUNCTION REFERENCE IN PLA- * CE OF THE 'W' FIELD IN AN 'F' FORMAT ITEM OR AN 'E' FOR * MAT ITEM.THE NAME LBLNK MUST BE DECLARED AS FOLLOWS - * DECLARE LBLNK ENTRY(FIXED BINARY)RETURNS(FIXED BINARY); >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BNE TRAILD REPLACE MVI 0(RB),X'4E' !| A + CHARACTER TRAILE LA RB,1(RB) BCT RC,TRAIL LOOP THRU END OF FIELD. EXIT L DR,OFDR(DR) CHEERS. LM LR,WR,OFLR(DR) BR LR SPACE 4 VIOFA DC V(IHEIOFA) END -FILE 313; 113 RECORDS: 0 /* UT1 VIRTUAL FILE MANAGEMENT */ /*************************************************/ /* */ /* THE FOLLOWING SERVICES ARE PROVIDED */ /* */ /* RDUT1(REC,KEY): MOVE RECORDS WITH ID */ /* "KEY" INTO REC */ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PF = HDUT1; DO WHILE (PF=NULL); N = PF -> CTR - 1; DO IF=1 TO N; IF (KEY = PF -> ID(IF)) THEN RETURN; END; PF = PF -> FPTR; END; CALL ERROR; /* COULD NOT FIND THE RECORD */ END WRTUT1; -FILE 314; 354 RECORDS: 0\ 15 999545 DECK $SIGNON WATF T=30M P=600 'M. RAIM' $EMP NEWLCP $CRE -ASM SIZE=40P LOC=DATACELL $RUN *MOUNT PAR=POOL 9TP *POOL* 'POOL TAPE' $RUN *UPDATE %REW *POOL* %OUT *POOL* %INP SLCPF4 40 LCPF4 1 %DEL LCP00240 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> % PROCESS('SIZE=80P,A,E,X,LIST'); %BEF FILEMARK %CLO SUT1 %CLO *POOL* %WTM *POOL* 5 %REW *POOL* %END $RUN *PL1 SCARDS=*POOL* PAR=A,X,E,MACRO,SIZE=90P,SM=(2,41),NLD,LIST $R *ASMG SCARDS=-ASM SPUNCH=NEWLCP(LAST+1) 0=*SYSMAC PAR=SIZE=100,FX,RD,B,IBLK=- 40 -FILE 315; 26 RECORDS: 0TIME TITLE ' ROUTINE TO TELL TIME' TIME0001 PRINT NOGEN TIME0002 TIME CSECT TIME0003 SAVE (14,12),T,TIME SAVE THE REGISTERS. TIME0004 LR 11,13 SAVE THE SA REG. TIME0005 LR 12,15 ESTABLISH THE BASE REGISTER. TIME0006 USING TIME,12 TELL THE STUPID ASM OF THE BASE REG. TIME0007 LA 13,SA SET UP OWN SA REG. TIME0008 SVC TOD ISSUE THE TIME SVC. TIME0009 STM 0,1,CLOCK PUT DOWN THE CLOCK. TIME0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' CLOCK ' TIME0017 CLOCK DS CL8 HH:MM.SS TIME0018 DC C' DATE ' TIME0019 DATE DS CL8 MM-DD-YY TIME0020 ENDANS EQU * TIME0021 LENGTH DC Y(ENDANS-ANSWER) LENGTH OF ANSWER IN HALF WORD FORM. TIME0022 ZERO DC F'0' NO MODIFIERS. TIME0023 LINNR DS F JUNK LINE NUMBER. TIME0024 SA DS 19F SAVE AREA TIME0025 END TIME0026 -FILE 316; 113 RECORDS: 0USER TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS' USER0001 USERS START 0 USER0002 PRINT NOGEN USER0003 * COPY *LLMPSEQU(100) INCLUDE SYSTEM EQUALITIES USER0004 PRINT OFF USER0005 COPY *LLMPSEQU(100) USER0006 PRINT ON USER0007 EJECT USER0008 ENTER 12,SA=SA USER0009 SR 2,2 USE THSI FOR NUMBER OF TERMINALS USER0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' AVAILABLE LINES, AND' USER0104 DC X'40202120' USER0105 DC C' NON-MTS JOBS USING' USER0106 DC X'402020202120' USER0107 DC C' VIRTUAL PAGES AND' USER0108 DC X'40202120' USER0109 DC C' REAL PAGES.' USER0110 SA DS 18F USER0111 WORK DS D USER0112 END USER0113 -FILE 317; 114 RECORDS: 0USER TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS' CNFU0001 USERS START 0 CNFU0002 PRINT NOGEN CNFU0003 * COPY *LLMPSEQU(100) INCLUDE SYSTEM EQUALITIES CNFU0004 PRINT OFF CNFU0005 COPY *LLMPSEQU(100) CNFU0006 PRINT ON CNFU0007 EJECT CNFU0008 ENTER 12,SA=SA CNFU0009 SR 2,2 USE THSI FOR NUMBER OF TERMINALS CNFU0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' AVAILABLE LINES, AND' CNFU0105 DC X'40202120' CNFU0106 DC C' NON-MTS JOBS USING' CNFU0107 DC X'402020202120' CNFU0108 DC C' VIRTUAL PAGES AND' CNFU0109 DC X'40202120' CNFU0110 DC C' REAL PAGES.' CNFU0111 SA DS 18F CNFU0112 WORK DS D CNFU0113 END CNFU0114 -FILE 318; 71 RECORDS: 0UCNF TITLE 'PROGRAM TO PRINT CONFIGURATION FOR USERS' CONF0001 USERSCON START 0 CONF0002 PRINT NOGEN CONF0003 ENTER 12,SA=SA CONF0004 SVC 34 CONF0005 MVC MYCST(CSTSST+16-CHBCST),CHBCST-PSA CONF0006 MVC MYCCUMAP(4),CCUMAP-PSA CONF0007 SVC 26 CONF0008 LA 1,MYCST CONF0009 SR 0,0 CONF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * FOLLOWING ARE THE LLMPSEQU AND PSA COPY SECTIONS CONF0062 * CONF0063 PRINT OFF CONF0064 COPY *LLMPSEQU CONF0065 * CONF0066 EXTRN EXTINT,SVCINT,PRGINT,IOINT,PGTBL0,SVBASE CONF0067 PSA DSECT CONF0068 COPY PSA CONF0069 PRINT ON CONF0070 END CONF0071 -FILE 319; 159 RECORDS: 0MTSJOBS CSECT MJOB0001 PRINT OFF MJOB0002 COPY *LLMPSEQU MJOB0003 PRINT ON MJOB0004 * COPY *LLMPSEQU MJOB0005 SPACE 2 MJOB0006 STIO EQU 2 MJOB0007 WAIT EQU 3 MJOB0008 GETID EQU 20 MJOB0009 TWAYT EQU 128 MJOB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OVEREND EQU ENTRY1+960 MJOB0150 SPACE 3 MJOB0151 ENTRY DSECT MJOB0152 ID DS 4C MJOB0153 JOB# DS 5C MJOB0154 PGS DS 4C MJOB0155 TIME DS 4C MJOB0156 DEV1 DS 5C MJOB0157 DEV2 DS 4C MJOB0158 END MJOB0159 -FILE 320; 143 RECORDS: 0MTSK TITLE 'MTS VERSION OF TASKS' TSKS0001 MTASKS START 0 TSKS0002 SPACE 2 TSKS0003 GR1 EQU 1 TSKS0004 GR2 EQU 2 TSKS0005 GR3 EQU 3 TSKS0006 GR4 EQU 4 TSKS0007 GR5 EQU 5 TSKS0008 GR6 EQU 6 TSKS0009 GR11 EQU 11 TSKS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LNR DS F TSKS0134 RDYCNT DC Y(L'READY) TSKS0135 ERRCNT DC Y(L'ERROR) TSKS0136 CNT DS H TSKS0137 BUF DS 96C TSKS0138 READY DC C'&&READY: ' TSKS0139 ERROR DC C' INVALID INPUT' TSKS0140 SW DC X'00' TSKS0141 SPACE 2 TSKS0142 END TSKS0143 -FILE 321; 460 RECORDS: 0PRSY TITLE 'LISTER FOR MTS SYSTEM AND LIBRARY EXTERNAL SYMBOLS' SYMB0001 SPACE 2 SYMB0002 MACRO SYMB0003 &LAB CLEAR SYMB0004 &LAB MVI LINE,C' ' SYMB0005 MVC LINE+1(131),LINE SYMB0006 MEND SYMB0007 SPACE 2 SYMB0008 MACRO SYMB0009 &LAB ENGRAVE SYMB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 1 SYMB0451 ENDAD DS F ADDRESS OF END OF LIB SEARCH SYMB0452 SPACE 1 SYMB0453 PRSYSAV DS 18F SYMB0454 INCORSAV DS 18F SYMB0455 SORTALL DS 18F SYMB0456 SPACE 1 SYMB0457 TABLE DSECT SYMB0458 SPACE 1 SYMB0459 END PRSY SYMB0460 -FILE 322; 400 RECORDS: 0OBJ TITLE 'OBJSCAN' OBJS0001 *DATE: 3-28-68 OBJS0002 * REVISED 11-17-69 OBJS0003 SPACE 2 OBJS0004 MACRO OBJS0005 &LABE SERCOM &LIST OBJS0006 &LABE L 15,=V(SERCOM) OBJS0007 LA 1,&LIST OBJS0008 BASR 14,15 OBJS0009 MEND OBJS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(MODC) OBJS0391 LLNQ DC H'0' OBJS0392 ALINE DC A(BUFFER) OBJS0393 BUFFER DS 72C OBJS0394 MOVEPAR MVC FILLN(0),2(1) OBJS0395 MOVE MVC 1(0,1),ONCE OBJS0396 MOVECHRS MVC 0(0,6),0(1) OBJS0397 COM1S DC C'-**** FILE ' OBJS0398 FILLN DS CL256' ' OBJS0399 END OBJS0400 -FILE 323; 58 RECORDS: 0ASME TITLE '******SCANS ASM-G LISTINGS******' ASMR0001 ASMERR CSECT ASMR0002 STM 14,12,12(13) SAVE REGISTERS ASMR0003 LA 14,0(0,13) ASMR0004 BAS 13,84(0,15) ASMR0005 USING *,13 ASMR0006 SAREA DS 18F ASMR0007 ST 14,SAREA+4 ASMR0008 ST 13,8(0,14) ASMR0009 LA 1,PAR SET UP REGS ASMR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(MODIF) ASMR0049 DC A(LINE) ASMR0050 MODIF DC F'0' ASMR0051 LINE DS F ASMR0052 COUNT DC H'0' ASMR0053 COUNT2 DC H'0' ASMR0054 LTORG ASMR0055 BUFF DS 36F ASMR0056 BUFF2 DS 25F ASMR0057 END ASMERR ASMR0058 -FILE 324; 254 RECORDS: 0HXL TITLE 'HEXADECIMAL CARD LISTER' HEXL0001 * DATE:12-10-69 -GCP-FIXED TO PUNT ON LINES > 255 HEXL0002 * FIXED TO ACCEPT IMAGES UP TO 256 CHARACTERS IN LENGTH HEXL0003 MACRO HEXL0004 &LABE MYSERC &LIST HEXL0005 &LABE L 15,=V(SERCOM) HEXL0006 LA 1,&LIST HEXL0007 BALR 14,15 HEXL0008 MEND HEXL0009 START 0 HEXL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LINE DC 69C' ' HEXL0245 HEXS EQU LINE+1 HEXL0246 FILEIT DC A(FA) HEXL0247 DC A(LA) HEXL0248 DC A(0) HEXL0249 LA DS H HEXL0250 FA DC C'0****FILE "' HEXL0251 BA DS CL20 HEXL0252 MOVEQ MVC BA(0),CARDIN HEXL0253 END HEXL0254 -FILE 325; 1575 RECORDS: 0 TITLE ' MTS FILE EDITOR (VERSION UN259)' EDIT0001 MACRO EDIT0002 &L ERR &M,&C EDIT0003 AIF (N'&SYSLIST EQ 1).ONEOP EDIT0004 &L B&C *+8 EDIT0005 B A&SYSNDX EDIT0006 L 2,=A(&M) EDIT0007 B ILLEGAL EDIT0008 A&SYSNDX DS 0H EDIT0009 MEXIT EDIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00' EDIT1566 MLINE MSG ' #LINENO LINENO' EDIT1567 MSG ' #LINENO' EDIT1568 MSG '#LINENO CAUSES THE LINE OF THE FILE WITH THE SPECIFIED' EDIT1569 MSG 'MTS LINE NUMBER TO BECOME THE CURRENT LINE. #LINE' EDIT1570 MSG 'WITH NO LINE NUMBER SPECIFIED CAUSES THE CURRENT' EDIT1571 MSG 'LINE NUMBER TO BE PRINTED.' EDIT1572 DC X'00' EDIT1573 MNOSUCH DC FL1'34',C'THERE IS NO COMMAND WITH THAT NAME',X'00' EDIT1574 END EDIT1575 -FILE 326; 4207 RECORDS: 0EDIT TITLE 'MTS FILE EDITOR (VERSION AN080)' ED000001 *********************************************************************** ED000002 * * ED000003 * MACROS * ED000004 * * ED000005 *********************************************************************** ED000006 MACRO ED000007 &L AT &A,&B,&C,&D,&E,&SWCOM=SWCOM ED000008 &L CLC 0(&B,4),=C&A ED000009 BNE &D ED000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COM DS 256C ED004198 SSCAN DS 256C ED004199 SREP DS 256C ED004200 SCHA DS 256C ED004201 SCHB DS 256C ED004202 SMAT DS 256C ED004203 SOVE DS 256C ED004204 BUFFER DS 512C ED004205 DSECTEND EQU * ED004206 END ED004207 -FILE 327; 158 RECORDS: 0BAT TITLE '****REMOTE BATCH MONITOR****' BAT00001 BATCH CSECT BAT00002 SVE BAT00003 SVC TOD GET DAY AND SAVE BAT00004 SLDL R2,8 FOR RECEIPT NUMBER. BAT00005 STC R2,S8A+1 BAT00006 LA R1,BATFILE READY BATCH BAT00007 L R15,=V(GETFD) FOR PROCESSING BAT00008 BASR R14,R15 BAT00009 ST R0,UNIT BAT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BUFF DC X'0000' BAT00149 LRMOD EQU *-BATCH BAT00150 DS CL(4090-LRMOD) BAT00151 EQUS BAT00152 TOD EQU 28 BAT00153 LOCK EQU 58 BAT00154 UNLOCK EQU 59 BAT00155 SSCR EQU SA+12 BAT00156 RJBBUF EQU X'44' BAT00157 END BATCH BAT00158 -FILE 328; 607 RECORDS: 0DUBCON START 0 DBL00001 COPY APF DBL00002 EJECT DBL00003 USING *,RC DBL00004 STM RR,RC,12(RD) SAVE REGISTERS DBL00005 LR RC,LR ADDRESSABILITY DBL00006 LA R6,SAVAR SAVE AREA DBL00007 ST R6,8(0,RD) FORWARD LINKAGE DBL00008 ST RD,4(0,R6) BACKWARDS LINKAGE DBL00009 LR RD,R6 .. DBL00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTRM DC Y(L'TRM) DBL00598 SAVF DS A DBL00599 PUNCHOUT DC C' DC X''' DBL00600 FIRSTW DC CL16' ' DBL00601 DC C''',X''' DBL00602 SECW DC CL16' ' DBL00603 DC C''' ' DBL00604 DEC DC CL15' ' DBL00605 CLCP CLC 2(0,R1),=C'PUNCH' DBL00606 END DBL00607 -FILE 329; 67 RECORDS: 0*********************************************************************** APF00001 * * APF00002 * ALL-PURPOSE DEFINITIONS * APF00003 * * APF00004 *********************************************************************** APF00005 SPACE 2 APF00006 *REGISTER EQUATES... APF00007 SPACE 1 APF00008 R0 EQU 0 APF00009 R1 EQU 1 APF00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LZ EQU X'8' ZERO APF00058 LNZ EQU X'4' NOT ZERO APF00059 * FOR 'TM' INSTRUCTIONS... APF00060 NONE EQU X'8' APF00061 MIXED EQU X'4' APF00062 ONES EQU X'1' APF00063 *FOR 'TRANSLATE AND TEST'... APF00064 TRTZ EQU X'8' ZERO APF00065 TRTI EQU X'4' INCOMPLETE APF00066 TRTC EQU X'2' COMPLETE APF00067 -FILE 330; 581 RECORDS: 0 PLOT0001 CIPT TITLE 'CONVERSATIONAL INTERFACE WITH PLOT' PLOT0002 * PLOT0003 MACRO PLOT0004 &N EXCH &A,&B PLOT0005 L 1,&A PLOT0006 MVC &A,&B PLOT0007 ST 1,&B PLOT0008 MEND PLOT0009 * PLOT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL3(X) PLOT0572 X DC D'0' PLOT0573 CNVRT DC X'46000000' PLOT0574 FIVE DC F'5' PLOT0575 FNAM DS 80C PLOT0576 FM DC C'ENTER NAME OF FILE' PLOT0577 FML DC H'19' PLOT0578 FNL DC H'0' PLOT0579 PATCH DS 10F PLOT0580 END PLOT0581 -FILE 331; 114 RECORDS: 0 PRINT NOGEN *ASA0001 MAIN START 0 *ASA0002 USING MAIN,10 *ASA0003 SAVE (14,12) *ASA0004 LR 10,15 *ASA0005 LA 13,SA *ASA0006 CALL ASAOPEN,(SCRATCH) *ASA0007 LOOP CALL SCARDS,(AREA,LEN,MODIFY,LINENR) *ASA0008 LTR 15,15 *ASA0009 BNZ CLOSE *ASA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE DC X'09' *ASA0105 ASATABLE DC C' 0-+123456789ABC' ASA CODES *ASA0106 OPENTBLE DC X'0B131B038B939BA3ABB3BBC3CBD3DBE3' MCC FOR OPENING *ASA0107 TRTABLE DC X'09111901899199A1A9B1B9C1C9D1D9E1' USUAL MCC *ASA0108 NO#OP DC X'03' *ASA0109 EJECT *ASA0110 *-*-*-*-*-*-*-*- HOW TO ALLOCATE BUFAREA *ASA0111 BUFAREA DC 133C' ' *ASA0112 SPACE *ASA0113 END *ASA0114 -FILE 332; 80 RECORDS: 0BLOCKLIS CSECT LIST0001 SAVE (14,12),T,BLOCKLIS LIST0002 BALR 12,0 LIST0003 USING *,12 LIST0004 L 1,0(1) LIST0005 LH 2,0(1) LIST0006 LA 1,2(1) LIST0007 CHECK LTR 2,2 LIST0008 STH 2,LEN LIST0009 BC 7,PAR LIST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> UCBDST DS F LIST0071 INFO DC F'2' LIST0072 MAXR DS F LIST0073 FLEN DC F'121' LIST0074 REG DS 31F LIST0075 HLEN DC H'121' LIST0076 MOD DC F'0' LIST0077 LINE DS F LIST0078 LEN DS H LIST0079 END LIST0080 -FILE 333; 23 RECORDS: 0LIST TITLE ' FILE/TAPE TO PRINT PGM' VARR0001 VARRLIST START 0 VARR0002 USING VARRLIST,10 VARR0003 SAVE (14,12),T,LISTING VARR0004 LR 10,15 BASE THE ROUTINE VARR0005 ST 13,SA+4 STORE EXTERNAL SAVE AREA VARR0006 LA 13,SA MY OWN SAVE AREA VARR0007 L 1,0(0,1) VARR0008 DDEF (1) VARR0009 OPEN (SCARDS,,SPRINT,(OUTPUT)) VARR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDALL CLOSE (SCARDS,,SPRINT) VARR0014 L 13,4(0,13) VARR0015 RETURN (14,12),RC=0 VARR0016 SCARDS DCB DDNAME=SCARDS,DSORG=PS,MACRF=(GM),EROPT=ACC, XVARR0017 EODAD=ENDALL,RECFM=VBA,BLKSIZE=629,LRECL=125 VARR0018 SPRINT DCB DDNAME=SPRINT,DSORG=PS,MACRF=(PM),EROPT=ACC,RECFM=VA, XVARR0019 LRECL=125 VARR0020 SA DS 18F VARR0021 WORKAREA DS CL125 VARR0022 END VARR0023 -FILE 334; 135 RECORDS: 0 /* PROGRAM TO DO SOMETHING FOR IEBUPDAT INPUT */ UPDT0001 UPDT0002 UPDATE: PROCEDURE OPTIONS(MAIN); UPDT0003 DCL UPDT0004 INTAPE INPUT FILE RECORD ENV(LEAVE), UPDT0005 OUTTAPE OUTPUT FILE RECORD ENV(LEAVE), UPDT0006 DATA FILE INPUT RECORD, UPDT0007 (BUFFER,WHAT) CHAR(80) INIT ((80)' '), UPDT0008 (FRSTNR,LASTNR,MEMBR,TEST) CHAR(8), UPDT0009 ID CHAR(8) DEFINED BUFFER POS(73), UPDT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COUNT = COUNT + INCR; UPDT0126 NEW_ID = COUNT; UPDT0127 SUBSTR(X,73,8) = NEW_ID; UPDT0128 END; UPDT0129 SCREW = X; UPDT0130 WRITE FILE(OUTTAPE) FROM (SCREW); UPDT0131 RETURN; UPDT0132 END PUTOUT; UPDT0133 UPDT0134 END UPDATE; UPDT0135 -FILE 335; 757 RECORDS: 0PDS TITLE ' ROUTINE TO PUNCH/PRINT A PDS' IEH10001 *********************************************************************** IEH10002 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* IEH10003 * VITAL MESSAGES FROM THE DIRECTORY RECORD FOR LOAD MODS. IEH10004 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* IEH10005 *********************************************************************** IEH10006 SPACE 5 IEH10007 PDSDSECT DSECT IEH10008 LTH DS H LENGTH OF DIR. RECORD IEH10009 IND1 DS X INDICATOR - WHAT KIND OF RECORD IEH10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE IEH10748 ID#TBL DC 75H'0' IEH10749 SPACE 5 IEH10750 PATCH DS 20F IEH10751 LTORG IEH10752 TXTESDID DC H'0' IEH10753 TXTBLKAD DC A(0) IEH10754 TXTBLKLG DC H'0' IEH10755 TXTBLK DS XL1024 IEH10756 END PDSPNCH# IEH10757 -FILE 336; 205 RECORDS: 0BLKS TITLE ' ROUTINE TO EXTRACT VAR. BLKS FROM IEHMOVE TAPE' IEH20001 *********************************************************************** IEH20002 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* IEH20003 * FILES NOW SUPPORTED BY THIS PROGRAM: IEH20004 *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* IEH20005 *********************************************************************** IEH20006 SPACE 15 IEH20007 * IEH20008 * SCARDS - CONTROL STATEMENTS PROVIDED BY THE USER. IEH20009 * IF NONE, DEFAULTS WILL BE ASSUMED. IEH20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ZERO DC F'0' UNIT NUMBER. IEH20196 SCRATCH DS 78C IEH20197 ATAPRTN DC A(TAPRTN) IEH20198 H078 DC H'78' IEH20199 EXMOVE MVC 0(*-*,2),0(7) REMOTE INSTRUCTION IEH20200 BLKPTR DC F'0' START WITH ZERO, REMEMBER. IEH20201 SA#0 DS 18F SAVE AREA FOR THIS ROUTINE IEH20202 SA#1 DS 18F SAVE AREA FOR ASK AND BLKRTN. IEH20203 BLK DS X AIN'T THERE IS SOMEWHERE ELSE. IEH20204 END IEH20205 -FILE 337; 39 RECORDS: 0WIPE TITLE ' ROUTINE TO CLEAN OFF NON-PRINTABLE CH?IEH30001 ARACTERS' IEH30002 CLEAN## CSECT IEH30003 ENTRY CLEAN IEH30004 CLEAN STM 14,12,12(13) IEH30005 LR 10,15 IEH30006 L 15,0(1) GET ADDR IEH30007 USING CLEAN,10 IEH30008 L 1,4(1) IEH30009 L 1,0(1) IEH30010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'ABCDEFGHI' IEH30030 ORG TABLE+C'J' IEH30031 DC C'JKLMNOPQR' IEH30032 ORG TABLE+C'S' IEH30033 DC C'STUVWXYZ' IEH30034 ORG TABLE+C'0' IEH30035 DC C'0123456789' IEH30036 ORG IEH30037 EXTR TR 0(*-*,15),TABLE IEH30038 END IEH30039 -FILE 338; 127 RECORDS: 0MOVE TITLE ' AN MTS PROGRAM TO STIMULATE IHEMOVE ' IEH40001 IEHMOVE CSECT IEH40002 SPACE 5 IEH40003 PDSDSECT DSECT IEH40004 LTH DS H LENGTH OF DIR. RECORD IEH40005 IND1 DS X INDICATOR - WHAT KIND OF RECORD IEH40006 TTR DS 3X TTR IEH40007 NAME DS CL8 NAME IEH40008 SPACE 5 IEH40009 TTRSW EQU X'80' 3-BYTE TTR FOLLOWS IEH40010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CARD DC CL80' ' IEH40118 H080 DC H'80' IEH40119 JUNK DC F'0' IEH40120 Z DC F'0' IEH40121 PDS DC XL80'0' IEH40122 CNOP 2,4 IEH40123 BLOCK DS CL4000 BLOCK FACTOR 50 ************** IEH40124 RECORD EQU BLOCK+6 IEH40125 PATCH DS 25F IEH40126 END IEHMOVE IEH40127 -FILE 339; 206 RECORDS: 0 SUBROUTINE SNATCH(PARFLD) SSPS0001 INTEGER*2 LEN,PARFLD(2),PW/'AL'/ SSPS0002 INTEGER*2 H80/80/,H3/3/,H12/12/,H32/32/,H21/21/,H34/33/,H36/35/ SSPS0003 INTEGER*2 H27/27/,QUIC/'QU'/ SSPS0004 INTEGER*2 PDN(6)/9,'*SRC.SSP* '/ SSPS0005 INTEGER DCKMSG(3)/'C DECK '/ SSPS0006 INTEGER FILMSG(8)/'C EXAMPLE PROGRAM FROM P . '/ SSPS0007 INTEGER A(8192),BL/' '/,IDS(500),FILE(18)/18*0/ SSPS0008 INTEGER FSF/'FSF '/,CCMOD/Z00000080/ SSPS0009 LOGICAL BATCH/.TRUE./,DECK(500),VERIFY/.TRUE./,BOUNCE SSPS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENTRY REPLY SSPS0197 ENTRY DISMNT SSPS0198 USING REPLY,15 SSPS0199 REPLY L 15,=V(CANREPLY) SSPS0200 BR 15 SSPS0201 USING DISMNT,15 SSPS0202 DISMNT L 15,=V(DISMOUNT) SSPS0203 LR 5,15 COVER ERROR IN DISMOUNT SSPS0204 BR 15 SSPS0205 END SSPS0206 -FILE 340; 939 RECORDS: 0SORT TITLE '************* SORT/MERGE/2 ***************' SORT0001 SORT CSECT SORT0002 SPACE 2 SORT0003 ***************************** INITIALIZATION ************************** SORT0004 STM R14,R12,12(R13) LINKAGE SORT0005 LA R14,0(0,R13) SORT0006 BAL R13,92(0,R15) SORT0007 USING *,R13 SORT0008 SAREA DS 20F SORT0009 STM R14,R15,SAREA+4 R15 FOR PGNTTRP SORT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSGE14 EQU 114 CHECK PARS - SEE STAFF SORT0930 MSGE15 EQU 115 IF NOTHING TO SORT SORT0931 MDUMP EQU X'01' SORT0932 MMERGE EQU X'02' SORT0933 MIMERGE EQU X'04' SORT0934 MEOP EQU X'08' SORT0935 MEOF EQU X'80' SORT0936 MCTRKS EQU 100 SORT0937 SSCR EQU SAREA+12 SORT0938 END SORT SORT0939 -FILE 341; 494 RECORDS: 0DEB TITLE '********** DEB: BLOCKING/DEBLOCKING ROUTINE **********' DEB00001 DEB CSECT DEB00002 SPACE 2 DEB00003 ***************************** INITIALIZATION ************************** DEB00004 STM R14,R12,12(R13) LINKAGE DEB00005 LA R14,0(0,R13) DEB00006 BAL R13,92(0,R15) DEB00007 USING *,R13 DEB00008 SAREA DS 20F DEB00009 STM R14,R15,SAREA+4 R15 FOR PGNTTRP DEB00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSGE12 EQU 112 I/O ERROR DEB00485 MSGE13 EQU 113 MISSING MNR OR INPUT DEB00486 MSGE14 EQU 114 CHECK PARS - SEE STAFF DEB00487 MSGE15 EQU 115 IF NOTHING TO SORT DEB00488 MEOP EQU X'08' DEB00489 MIN EQU X'80' DEB00490 MOUT EQU X'40' DEB00491 MEOF EQU X'80' DEB00492 SSCR EQU SAREA+12 DEB00493 END DEB DEB00494 -FILE 342; 140 RECORDS: 0DITO TITLE 'PROGRAM TO PRODUCE DITTO MASTERS' DTTO0001 DITTO START 0 DTTO0002 PRINT NOGEN DTTO0003 ENTER 12,SA=SA DTTO0004 LA 0,EXIT DTTO0005 LA 1,AREA DTTO0006 L 15,=V(ATTNTRP) DTTO0007 BALR 14,15 DTTO0008 SCARDS IN1,INL1,LINE1,EXIT=NOIN DTTO0009 SERCOM 'TYPE "RETURN" WHEN READY' DTTO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IN1 DS CL256 DTTO0131 IN2 DS CL256 DTTO0132 INL1 DS H DTTO0133 INL2 DS H DTTO0134 LINE1 DS F DTTO0135 LINE2 DS F DTTO0136 PGLIN DS F DTTO0137 OUT DS CL512 DTTO0138 SAVCC DS X SAVE CC WHILE MOVING LINE DTTO0139 END DTTO0140 -FILE 343; 52 RECORDS: 0SYM DITTOhԥhƥhhhh&hhDITO0001 SYM h*h-h˳c###2dSK2hݥhhmDITO0002 SYM hqhhcs###3tySK1h^hhDITO0003 SYM hh{hDcF###4GNEWLINMPADITO0004 SYM GEhh\hUhYhh0h4DNOTPGDITO0005 SYM h hhhhNONZERO*PRINThDITO0006 SYM h%hhhh@IMEDSKOVERPDITO0007 SYM NOTSKPLOOKCHRBLANK2BLANK3INCOUTOKLDITO0008 SYM EN;NOEXTRAhh@hhdhhhݳREDITO0009 SYM BUFFERhqhhhuhyMNOOUThh\DITO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT  }  DITO0043 TXT y K- DITO0044 TXT H  { DITO0045 RLD &m^ DITO0046 RLD \UY % @DITO0047 RLD qu\U DITO0048 RLD <&dh}MQ048 \DITO0049 RLD  UH} MQYDITO0050 END DATE 10-01-69 01:03 DITO0051 LCS LCSYMBOL -FILE 344; 276 RECORDS: 0NLIN TITLE 'ROUTINE TO LIST FIRST AND LAST CARDS OF TAPE FILES' NLIN0001 NLINE CSECT NLIN0002 SPACE 1 NLIN0003 PRINT NOGEN NLIN0004 REQU NLIN0005 SPACE 1 NLIN0006 ENTER RC,SA=SA NLIN0007 SPACE 3 NLIN0008 BAL RA,INIT INIT VARIOUS STUFF NLIN0009 OI SW,INSW SAY WHERE WE ARE NLIN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C';' NLIN0267 DC X'402020202120' NLIN0268 DC C' RECORDS: ' NLIN0269 MSGND EQU * NLIN0270 LTORG NLIN0271 FBLK DS 25CL80 NLIN0272 LBLK DS 25CL80 NLIN0273 LBLKL DS CL80 NLIN0274 LBLKND EQU *-1 NLIN0275 END NLIN0276 -FILE 345; 70 RECORDS: 0SYM NLINESCANCR5F25STR5%NNUMfNNRNONLIN0001 SYM MOQPDNh{hDhHhh}hMcO###1NLIN0002 SYM XPROMPTh8hhhhh NLIN0003 SYM QUITGOg IHB0011Bhh<h(gIHB0013NLIN0004 SYM Bhhh=NREWdFLOOPgIHB0015BhNLIN0005 SYM mhqhhh~gHIHB0017Bh}hMhNLIN0006 SYM NYQGLg4IHB0019BLRDgIHB0020B LMNLIN0007 SYM EOFQ>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT REWBSFNOREW NLIN0061 TXT { -FILE ; RECORDS: NLIN0062 TXT \  NLIN0063 RLD {DH8(m qNLIN0064 RLD ~}Nmq}M NLIN0065 RLD  <{1 NLIN0066 RLD *\U 0 8 NLIN0067 RLD   H4&NLIN0068 RLD Y\UY NLIN0069 END DATE 01-15-70 23:47 NLIN0070 -FILE 346; 350 RECORDS: 0DTPE TITLE 'DISTRIBUTION TAPE CREATION ROUTINE' DTAP0001 MACRO DTAP0002 &L BLANK &LOC,&LEN DTAP0003 &L MVI &LOC,C' ' DTAP0004 MVC &LOC+1(&LEN-1),&LOC DTAP0005 MEND DTAP0006 SPACE 3 DTAP0007 MACRO DTAP0008 &L ZOT DTAP0009 &L LTR RF,RF DTAP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ETMSG DC C' *** EOT FOUND AFTER FILE ' DTAP0341 ETCNT DC C' ' DTAP0342 ETND EQU * DTAP0343 LTORG DTAP0344 ITAPE DSECT DTAP0345 IRACK DS F DTAP0346 IFCNT DS F DTAP0347 IUCSAV DS A DTAP0348 ITL EQU *-ITAPE DTAP0349 END DTAP0350 -FILE 347; 151 RECORDS: 0SYM DTAPEgIHB0006Bg*IHB0008Bg%IHB0009BhDTPE0001 SYM hh`hmhqhhhuhyc#DTPE0002 SYM ##1h}hMhQhh\hUhYh4hDTPE0003 SYM 8hhhhc###3håhDTPE0004 SYM hƥhhhh gIHB0024Bh&hDTPE0005 SYM hg%IHB0027Bhhh`IRLhqDTPE0006 SYM hhhuhyhܳc###5ChMhDTPE0007 SYM Qhh\hUhYh6QPDNhh hDTPE0008 SYM hhhc###7 hƥhhhDTPE0009 SYM h hhgIHB0045Bh-hhgDTPE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD UZ &ُٓ)@ٯdiDTPE0142 RLD ٣م1 y^ک ڸDTPE0143 RLD UYڅ   h DTPE0144 RLD  h ^* % DTPE0145 RLD 4%d@-DTPE0146 RLD  * ٍ uDTPE0147 RLD  q Uگ DTPE0148 RLD H}QU DTPE0149 END DATE 01-21-70 16:21 DTPE0150 LCS LCSYMBOL -FILE 348; 425 RECORDS: 0DDCM TITLE 'DISTRIBUTION DESCRIPTOR COMMENT ROUTINE' DDCM0001 MACRO DDCM0002 &L BLANK &LOC,&LEN DDCM0003 &L MVI &LOC,C' ' DDCM0004 MVC &LOC+1(&LEN-1),&LOC DDCM0005 MEND DDCM0006 SPACE 3 DDCM0007 MACRO DDCM0008 &L MSG &Q DDCM0009 &L LA R8,&Q DDCM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CCMN DC CL5' ' DDCM0416 DC C'. OVERRIDE?' DDCM0417 CCML EQU *-CCM DDCM0418 NMDM DC C' ** NO MORE DESCRIPTORS.' DDCM0419 NMDML EQU *-NMDM DDCM0420 ILCM DC C' *** UNRECOGNIZABLE COMMAND.' DDCM0421 ILCML EQU *-ILCM DDCM0422 NSC DC C' *** NO SUCH DESCRIPTOR IN FILE.' DDCM0423 NSCL EQU *-NSC DDCM0424 END DDCM0425 -FILE 349; 98 RECORDS: 0SYM DDCOMINITgIHB0003BgIHB0004BQEDFMDDCM0001 SYM QGO:QECFMfQECFMMoPNFMSGuQNDPDFECGEDDCM0002 SYM TgUIHB0009Bhh0h1CGGDPCNhhDDCM0003 SYM h{hDhHhMACLhh\hUhDDCM0004 SYM Yhh0 ALOKUNSAVCASGNPCOMPDDCM0005 SYM PCOMNXTD!NXTD2PNMDMESC2@ESCAPEgIHBDDCM0006 SYM 0021BhhhhPNSCNONAMEQLISTDDCM0007 SYM CLURSFD2LGDhhh hhh<DDCM0008 SYM *CRDSh˥hh%hhhCPRySDDCM0009 SYM SPRLBARFLQFQUITKGTSRQLKBLLKNBL6NDDCM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD 1{DH\UY hDDCM0089 RLD  %{ DDDCM0090 RLD H}48 DDCM0091 RLD  * - m q D H } M 8 DDCM0092 RLD &*-uy ^DDCM0093 RLD \UY dUDDCM0094 RLD  m    DDCM0095 END DATE 01-15-70 18:23 DDCM0096 LCS LCSYMBOL LDT -FILE 350; 1393 RECORDS: 0* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * MTNL0001 * SUBROUTINE TO RETURN MONTH, DAY, & YEAR, GIVEN A REGION (ADDRESS MTNL0002 * IN GR 1) CONTAINING MM-DD-YY IN EBCDIC. CALLING SEQUENCE FROM MTNL0003 * FORTRAN: NUMBR=DCONV(REG) WHERE NUMBER=YY*10000+MM*100+DD MTNL0004 * GR15 IS PRESERVED. GR0 CONTAINS NUMBER MTNL0005 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * MTNL0006 DCONV CSECT MTNL0007 COPY EQU MTNL0008 SAVE (14,12),T,DCONV MTNL0009 BASR 12,0 MTNL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DONEB BCTR 2,0 MTNL1384 EX 2,MO MTNL1385 LA 2,1(2) MTNL1386 RETURN (3,12) MTNL1387 MO MVC 0(0,1),0(3) MTNL1388 DS 0D MTNL1389 SCRATCH DS CL9' ' MTNL1390 DS 0D MTNL1391 TEMP DS CL16' ' MTNL1392 END MTNL1393 -FILE 351; 1299 RECORDS: 0ICOM TITLE 'FORTRAN I/O INTERFACE MODULE' IBCM0001 IBCOM# START 0 IBCM0002 EXTRN ADCON# IBCM0003 EXTRN FIOCS# IBCM0004 * THESE EXTERNAL REFERENCES ARE A TEMPORARY EXPEDIENT TO MAINTAIN IBCM0005 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE. IBCM0006 EXTRN FCVEO IBCM0007 EXTRN FCVLO IBCM0008 EXTRN FCVIO IBCM0009 EXTRN FCVCO IBCM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC H'282',C'EF',C'CDEXP ABS(IMAG(ARG)) >= 2**50*PI ' IBCM1290 DC H'283',C'EF',C'CDLOG ARGUMENT ZERO ' IBCM1291 DC H'284',C'EF',C'CDSIN/CDCOS ABS(REAL(ARG)) >= 2**50*PI ' IBCM1292 DC H'285',C'EF',C'CDSIN/CDCOS ABS(IMAG(ARG)) > 174.673 ' IBCM1293 DC H'290',C'EF',C'GAMMA RANGE IS 2**-252 < ARG < 57.5744 ' IBCM1294 DC H'291',C'EF',C'ALGAMA RANGE IS 0 < ARG < 4.2937E+73 ' IBCM1295 DC H'300',C'EF',C'DGAMMA RANGE IS 2**-252 < ARG < 57.5744 ' IBCM1296 IHCLAST DC H'301',C'EF',C'DLGAMA RANGE IS 0 < ARG < 4.2937E+73 ' IBCM1297 * IBCM1298 END IBCM1299 -FILE 352; 778 RECORDS: 0FIO TITLE 'FFORTRAN/MTS I/O INTERFACE MODULE' FIOC0001 FIOCS# START 0 FIOC0002 * ***** REGISTER ASSIGNMENTS ***** FIOC0003 GRX EQU 2 FIOC0004 GRY EQU 3 FIOC0005 WKA EQU 4 FIOC0006 WKB EQU 5 FIOC0007 UATER EQU 6 FIOC0008 BASE EQU 7 FIOC0009 GRS EQU 7 FIOC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FLAGS EQU READVCON FIOC0769 DEVFLG EQU RITEVCON FIOC0770 LINE# DS F FIOC0771 RECLENI DS H FIOC0772 RECLENO DS H FIOC0773 LASTINIT DS F FIOC0774 FQUALS EQU LASTINIT FIOC0775 BUFADDR DS F FIOC0776 STARECNT EQU BUFADDR FIOC0777 END FIOC0778 -FILE 353; 1363 RECORDS: 0CVTH TITLE 'FORTRAN I/O CONVERSION MODULE' ADCN0001 ADCON# START 0 ADCN0002 EXTRN IBCOM# ADCN0003 * THESE ENTRY POINTS ARE A TEMPORARY EXPEDIENT TO MAINTAIN ADCN0004 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE. ADCN0005 ENTRY FCVEO ADCN0006 ENTRY FCVLO ADCN0007 ENTRY FCVIO ADCN0008 ENTRY FCVCO ADCN0009 ENTRY FCVAO ADCN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MOVEX MVC 0(1,GRY),0(GRX) ITEM TO BUFFER ADCN1354 CHRMOV MVC 0(1,GRY),0(CHRSAV) MOVE FROM CONVERT AREA ADCN1355 CONONE EQU ONE ADCN1356 CONFOR EQU FOU ADCN1357 GFSWCH DC AL1(0) FLOATING DECIMAL SWITCH ADCN1358 CGSWCH DC AL1(0) G-OUTPUT SWITCH ADCN1359 DECIM DC C'0123456789ABCDEF' OUTPUT TRANSLATION TABLE ADCN1360 ZERPNT DC C' 0.0' ADCN1361 SPACE 3 ADCN1362 END ADCN1363 -FILE 354; 796 RECORDS: 0NAME TITLE 'MTS FORTRAN VERSION OF IHCNAMEL' NAML0001 IHCNAMEL START 0 NAMELIST I/O ROUTINES NAML0002 ENTRY FRDNL# NAML0003 ENTRY FWRNL# NAML0004 EXTRN IBCOM# NAML0005 EXTRN ADCON# NAML0006 EXTRN FIOCS# NAML0007 * NAML0008 * STATUS - CHANGE LEVEL 4 NAML0009 * NAML0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NOSWCH DC AL1(0) NUMBER SWITCH NAML0787 VSUBSW DC AL1(0) SUBSCRIPTED VARIABLE NAML0788 COMPSW DC AL1(0) FIRST COMMA SWITCH NAML0789 HEXSW DC AL1(0) HEXADECIMAL INPUT NAML0790 QSTOP DC AL1(0) LAST QUOTE SWITCH NAML0791 QUOTE DC AL1(0) QUOTE OR COMMERCIAL AT NAML0792 ENDSW DC AL1(0) &END SWITCH NAML0793 DS 250C NAML0794 * NAML0795 END NAML0796 -FILE 355; 786 RECORDS: 0DBUG TITLE 'MTS FORTRAN VERSION OF DEBUG#' DBUG0001 DEBUG# CSECT DBUG0002 *********************************************************************** DBUG0003 * DBUG0004 *ENTRY POINTS. DBUG0005 * THERE IS ONE EXTERNAL ENTRY TO THIS ROUTINE - DEBUG#. THIS NAME DBUG0006 * IS GIVEN TO THE INITIAL WORD OF A TRANSFER VECTOR. THE GENERAL DBUG0007 * FORM OF A CALL IS THEREFORE - DBUG0008 * DBUG0009 * L 15,=V(DEBUG#) DBUG0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE DBUG0777 EXPONTBL DC X'000102030405060708090A141E28323C46' DBUG0778 TRACFLAG DC XL1'00' DBUG0779 DATATYPE DC XL1'00' DBUG0780 IOFLAG DC XL1'00' DBUG0781 TEMPFLAG DS XL1 DBUG0782 SWITCH DS XL1 DBUG0783 EXPLETER DS C DBUG0784 SPACE 10 DBUG0785 END DBUG0786 -FILE 356; 259 RECORDS: 0DUMP TITLE 'MTS FORTRAN VERSION OF IHCFDUMP' FDMP0001 IHCFDUMP START 0 FDMP0002 ENTRY DUMP POST-MORTEM DUMP FDMP0003 ENTRY PDUMP DYNAMIC DUMP FDMP0004 EXTRN IBCOM# FDMP0005 SPACE 3 FDMP0006 * CALLING SEQUENCE FDMP0007 * LA S,SAVLOC FDMP0008 * LA A,ARGLST FDMP0009 * L L,=V(DUMP)/=V(PDUMP) FDMP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DMPLOC DS 1F CURRENT DUMP LOCATION FDMP0250 SETOFF DC X'00FFFFFF' MASK FOR LAST ARGUMENT FDMP0251 NINE DC AL2(9) FDMP0252 ADCONS DC X'4E5E5E5252565A626266' FDMP0253 EXITSW DC AL1(0) SET ON BY DUMP, OFF BY PDUMP FDMP0254 ARGSW DC AL1(0) LAST ARGUMENT SWITCH FDMP0255 BLANKS DC C' ' FDMP0256 * FDMP0257 SPACE 3 FDMP0258 END FDMP0259 -FILE 357; 11 RECORDS: 0SSTA TITLE 'SET STARE COUNT (DSRN,TIMES)' SSTA0001 SETSTA START 0 SSTA0002 USING SETSTA,15 SSTA0003 STM 14,3,12(13) SSTA0004 LR 2,1 SSTA0005 L 1,=V(FIOCS#) SSTA0006 BAL 0,8(0,1) SSTA0007 LM 14,3,12(13) SSTA0008 MVI 12(13),X'FF' SSTA0009 BR 14 SSTA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END SSTA0011 -FILE 358; 11 RECORDS: 0SGRE TITLE 'SET GREENWORD FLAG (DSRN)' SGRE0001 SETGRE START 0 SGRE0002 USING SETGRE,15 SGRE0003 STM 14,3,12(13) SGRE0004 LR 2,1 SGRE0005 L 1,=V(FIOCS#) SGRE0006 BAL 0,12(0,1) SGRE0007 LM 14,3,12(13) SGRE0008 MVI 12(13),X'FF' SGRE0009 BR 14 SGRE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END SGRE0011 -FILE 359; 11 RECORDS: 0SDSR TITLE 'SET DS RECORD LENGTHS (DSRN,IRL,ORL)' SDSR0001 SETDSR START 0 SDSR0002 USING SETDSR,15 SDSR0003 STM 14,3,12(13) SDSR0004 LR 2,1 SDSR0005 L 1,=V(FIOCS#) SDSR0006 BAL 0,16(0,1) SDSR0007 LM 14,3,12(13) SDSR0008 MVI 12(13),X'FF' SDSR0009 BR 14 SDSR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END SDSR0011 -FILE 360; 49 RECORDS: 0SDSN TITLE 'SET DATA SET REFERENCE NUMBER (DSRN,NAME,FDUB)' SDSN0001 * SET DATA SET REFERENCE NUMBER SDSN0002 * CONNECT THE DSRN SPECIFIED AS THE FIRST ARGUMENT TO THE SDSN0003 * FDNAME GIVEN AS THE SECOND ARGUMENT. SDSN0004 * SDSN0005 * CALL SETDSN(DSRN,FDNAME,FDUB(OPTIONAL)) SDSN0006 * SDSN0007 SETDSN START 0 SDSN0008 BASE EQU 4 SDSN0009 STM 13,BASE,8(13) KILL THE FWD PTR AND SAVE REGS SDSN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 14,12(,13) SDSN0040 LM 1,BASE,24(13) SDSN0041 BR 14 SDSN0042 * SDSN0043 SAVE DS 18F SDSN0044 LIST DC A(0,FDUB) SDSN0045 FDUB DC F'0' SDSN0046 FOUR DC F'4' SDSN0047 * SDSN0048 END SDSN0049 -FILE 361; 8 RECORDS: 0DIO TITLE 'IMPLEMENTATION OF DEFINE FILE STATEMENT' DIOC0001 DIOCS# START 0 DIOC0002 USING DIOCS#,15 DIOC0003 STM 14,1,12(13) DIOC0004 L 15,=V(IBCOM#) DIOC0005 BAL 14,60(0,15) DIOC0006 DC XL2'214C' DIOC0007 END DIOC0008 -FILE 362; 48 RECORDS: 0IHC TITLE 'PROGRAM TO SNATCH IHC ERRORS' IHC00001 * TIMING FOR GETIHC IS ABOUNT 10 MICS. THE CALLING SEQUENCE IHC00002 * FOR GETIHC IS (KEY,LIST,&100) - TO GET CONTROL AT STMT NO 100 IHC00003 * WHEN ONE OF THE REQUESTED ERRORS OCCURS. ENTRY PUTIHC HAS NO IHC00004 * ARGUMENTS AND SIMPLY KILLS THE LAST GETIHC CALL. NOTE THAT IHC00005 * THE LIST OF DESIRED IHC CODES IS LOOKED AT ONLY AFTER THE IHC00006 * ERROR OCCURS AND HENCE COULD BE MODIFIED ON THE FLY. IHC00007 * IHC00008 GETIHC START 0 IHC00009 USING GETIHC,15 IHC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 15,=V(IBCOM#) IHC00039 BR 14 IHC00040 GOTIHC LM 0,15,IHCSAVE1 IHC00041 LA 15,4 IHC00042 BR 14 IHC00043 * IHC00044 IHCSAVE1 DS 8D IHC00045 IHCSAVE2 DS 2D IHC00046 LAST DC F'39' IHC00047 END IHC00048 -FILE 363; 15380 RECORDS: 0C TALL 10 C ..................................................................TALL 20 C TALL 30 C SUBROUTINE TALLY TALL 40 C TALL 50 C PURPOSE TALL 60 C CALCULATE TOTAL, MEAN, STANDARD DEVIATION, MINIMUM, MAXIMUM TALL 70 C FOR EACH VARIABLE IN A SET (OR A SUBSET) OF OBSERVATIONS TALL 80 C TALL 90 C USAGE TALL 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 300 A(LK)=S HSBG1150 C HSBG1160 C SET THE LOWER PART OF THE MATRIX TO ZERO HSBG1170 C HSBG1180 DO 310 I=L,LIA,IA HSBG1190 310 A(I)=0.0 HSBG1200 320 L=L1 HSBG1210 GO TO 20 HSBG1220 360 RETURN HSBG1230 END HSBG1240 -FILE 364; 25113 RECORDS: 0C PADD 10 C ..................................................................PADD 20 C PADD 30 C SUBROUTINE PADD PADD 40 C PADD 50 C PURPOSE PADD 60 C ADD TWO POLYNOMIALS PADD 70 C PADD 80 C USAGE PADD 90 C CALL PADD(Z,IDIMZ,X,IDIMX,Y,IDIMY) PADD 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GOTO 12 DJEL1020 11 SN=A DJEL1030 12 CN=C*SN DJEL1040 13 IF(SCK)14,2,2 DJEL1050 14 A=DN DJEL1060 DN=CN DJEL1070 CN=A DJEL1080 SN=SN/D DJEL1090 RETURN DJEL1100 END DJEL1110 -FILE 365; 756 RECORDS: 0C DASC 10 C ..................................................................DASC 20 C DASC 30 C SAMPLE MAIN PROGRAM FOR DATA SCREENING - DASCR DASC 40 C DASC 50 C PURPOSE DASC 60 C PERFORM DATA SCREENING CALCULATIONS ON A SET OF OBSERVATIONSDASC 70 C DASC 80 C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED DASC 90 C SUBST DASC 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 46. 74. 154. 16. 980 50. 68. 158. 10. 990 61. 66. 161. 14. 1000 36. 64. 157. 15. 1010 32. 71. 156. 16. 1020 9 1030 0203 1040 12 65. 46 8. 1050 120. 20. 210. 1060 1070 -FILE 366; 927 RECORDS: 0C REGR 10 C ..................................................................REGR 20 C REGR 30 C SAMPLE MAIN PROGRAM FOR MULTIPLE REGRESSION - REGRE REGR 40 C REGR 50 C PURPOSE REGR 60 C (1) READ THE PROBLEM PARAMETER CARD FOR A MULTIPLE REGRES- REGR 70 C SION, (2) READ SUBSET SELECTION CARDS, (3) CALL THE SUB- REGR 80 C ROUTINES TO CALCULATE MEANS, STANDARD DEVIATIONS, SIMPLE REGR 90 C AND MULTIPLE CORRELATION COEFFICIENTS, REGRESSION COEFFI- REGR 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 44 395 215 101 27 1 250 49 139 220 136 59 0 260 49 245 205 113 37 4 270 49 373 215 88 25 1 280 51 224 215 118 54 3 290 51 677 210 116 33 4 300 51 424 210 140 59 4 310 51 150 210 105 30 0 320 0106050102030405 330 010603020305 340 -FILE 367; 965 RECORDS: 0C PLRG 10 C ..................................................................PLRG 20 C PLRG 30 C SAMPLE MAIN PROGRAM FOR POLYNOMIAL REGRESSION - POLRG PLRG 40 C PLRG 50 C PURPOSE PLRG 60 C (1) READ THE PROBLEM PARAMETER CARD FOR A POLYNOMIAL REGRES-PLRG 70 C SION, (2) CALL SUBROUTINES TO PERFORM THE ANALYSIS, (3) PLRG 80 C PRINT THE REGRESSION COEFFICIENTS AND ANALYSIS OF VARIANCE PLRG 90 C TABLE FOR POLYNOMIALS OF SUCCESSIVELY INCREASING DEGREES, PLRG 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 6 26 80 7 30 90 8 36 100 9 48 110 10 62 120 11 78 130 12 94 140 13 107 150 14 118 160 15 127 170 -FILE 368; 1137 RECORDS: 0C STEP 10 C ..................................................................STEP 20 C STEP 30 C SAMPLE MAIN PROGRAM FOR STEP-WISE MULTIPLE REGRESSION - STEPR STEP 40 C STEP 50 C PURPOSE STEP 60 C (1) READ THE PROBLEM PARAMETER CARD FOR A STEP-WISE MULTIPLESTEP 70 C REGRESSION, (2) READ SUBSET SELECTION CARDS, (3) CALL THE STEP 80 C SUBROUTINE TO CALCULATE MEANS, STANDARD DEVIATIONS, SIMPLE STEP 90 C CORRELATION COEFFICIENTS, AND (4) CALL THE SUBROUTINE TO STEP 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 44 395 215 101 27 1 250 49 139 220 136 59 0 260 49 245 205 113 37 4 270 49 373 215 88 25 1 280 51 224 215 118 54 3 290 51 677 210 116 33 4 300 51 424 210 140 59 4 310 51 150 210 105 30 0 320 000003 330 001203 340 -FILE 369; 1157 RECORDS: 0C MCAN 10 C ..................................................................MCAN 20 C MCAN 30 C SAMPLE MAIN PROGRAM FOR CANONICAL CORRELATION - MCANO MCAN 40 C MCAN 50 C PURPOSE MCAN 60 C (1) READ THE PROBLEM PARAMETER CARD FOR A CANONICAL MCAN 70 C CORRELATION, (2) CALL TWO SUBROUTINES TO CALCULATE SIMPLE MCAN 80 C CORRELATIONS, CANONICAL CORRELATIONS, CHI-SQUARES, DEGREES MCAN 90 C OF FREEDOM FOR CHI-SQUARES, AND COEFFICIENTS FOR LEFT AND MCAN 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 190 159 91 19 195 157 99 160 188 151 98 20 187 158 87 170 163 137 59 18 161 130 63 180 195 155 85 20 183 158 81 190 196 153 80 21 173 148 74 200 181 145 77 20 182 146 70 210 175 140 70 19 165 137 81 220 192 154 69 20 185 152 63 230 174 143 79 20 178 147 73 240 176 139 70 20 176 143 69 250 -FILE 370; 515 RECORDS: 0C ANOV 10 C ..................................................................ANOV 20 C ANOV 30 C SAMPLE MAIN PROGRAM FOR ANALYSIS OF VARIANCE - ANOVA ANOV 40 C ANOV 50 C PURPOSE ANOV 60 C (1) READ THE PROBLEM PARAMETER CARD FOR ANALYSIS OF VARI- ANOV 70 C ANCE, (2) CALL THE SUBROUTINES FOR THE CALCULATION OF SUMS ANOV 80 C OF SQUARES, DEGREES OF FREEDOM AND MEAN SQUARE, AND ANOV 90 C (3) PRINT FACTOR LEVELS, GRAND MEAN AND ANALYSIS OF VARI- ANOV 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 370 RETURN MEAN1470 END MEAN1480 /DATA 10 SAMPLE04 A0004B0003C0003R0002 20 3 10 9 8 24 8 9 3 2 8 9 8 30 4 12 3 9 22 7 16 2 2 2 7 2 40 5 10 5 8 23 9 17 3 2 8 6 3 50 2 14 9 13 29 16 11 3 2 7 5 3 60 7 11 5 8 28 18 10 6 6 6 5 9 70 9 10 27 8 28 16 11 7 8 9 8 15 80 -FILE 371; 689 RECORDS: 0C MDIS 10 C ..................................................................MDIS 20 C MDIS 30 C SAMPLE MAIN PROGRAM FOR DISCRIMINANT ANALYSIS - MDISC MDIS 40 C MDIS 50 C PURPOSE MDIS 60 C (1) READ THE PROBLEM PARAMETER CARD AND DATA FOR DISCRIMI- MDIS 70 C NANT ANALYSIS, (2) CALL THREE SUBROUTINES TO CALCULATE VARI-MDIS 80 C ABLE MEANS IN EACH GROUP, POOLED DISPERSION MATRIX, COMMON MDIS 90 C MEANS OF VARIABLES, GENERALIZED MAHALANOBIS D SQUARE, MDIS 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 8 10 5 8 27 16 230 17 3 2 7 6 3 240 3 10 8 8 23 8 250 4 12 3 8 23 7 260 9 3 2 8 21 7 270 15 2 2 2 7 2 280 9 10 26 8 27 16 290 8 9 2 8 26 16 300 7 8 6 9 18 2 310 7 10 5 8 26 16 320 -FILE 372; 1058 RECORDS: 0C FCTO 10 C ................................................................. FCTO 20 C FCTO 30 C SAMPLE MAIN PROGRAM FOR FACTOR ANALYSIS - FACTO FCTO 40 C FCTO 50 C PURPOSE FCTO 60 C (1) READ THE PROBLEM PARAMETER CARD, (2) CALL FIVE SUBROU- FCTO 70 C TINES TO PERFORM A PRINCIPAL COMPONENT SOLUTION AND THE FCTO 80 C VARIMAX ROTATION OF A FACTOR MATRIX, AND (3) PRINT THE FCTO 90 C RESULTS. FCTO 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 9 16 26 27 14 31 59 19 17 160 10 15 24 18 12 29 48 18 26 170 11 11 30 19 19 26 57 20 30 180 16 9 16 20 18 31 60 21 17 190 9 8 19 14 16 33 67 9 19 200 7 18 22 9 15 37 62 11 20 210 8 11 23 18 9 36 61 22 24 220 6 6 27 23 7 40 55 24 31 230 10 9 26 26 10 37 57 27 29 240 8 10 26 15 11 42 59 20 28 250 -FILE 373; 733 RECORDS: 0C KOLM 10 C ..................................................................KOLM 20 C KOLM 30 C SAMPLE MAIN PROGRAM FOR THE KOLMOGOROV-SMIRNOV TEST-KOLM KOLM 40 C KOLM 50 C PURPOSE KOLM 60 C (1) READ THE CONTROL CARD FOR A ONE OR TWO SAMPLE TEST KOLM 70 C (2) READ THE SAMPLE DATA AND DETERMINE THE SAMPLE SIZES KOLM 80 C (3) PRINT RESULTS KOLM 90 C KOLM 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 0.388 0.772 1.046-0.067 0.760 0.428 0.852 0.867 0.610 0.359 1.352 0.571 820 -0.011-0.205 1.084 0.009 0.917 0.438 1.050 0.616 0.884 0.954-0.275 1.295 830 0.346-1.018 1.049 0.417 1.230 1.127 1.435 0.823-0.069 0.464 1.261-0.179 840 0.812 0.537 0.875 0.190 0.707 0.857 0.094 0.176 0.916 0.406 0.204 0.494 850 1.709 0.133 0.460 0.828-0.174 0.457 0.584 0.832-0.026 1.265-0.232-0.373 860 -0.172 0.913 0.673 0.303 0.035 1.226-0.072 0.920 1.207-0.003 0.632 0.004 870 0.951 0.307 0.798 1.479 0.196 1.058 0.873 0.060 0.524 0.501 0.373 0.954 880 -0.072 0.988 0.351 0.053 0.248 0.430-0.379 0.533 0.688 0.524 0.447 1.376 890 -0.263-0.064 0.301 1.486 0.351 0.806-0.374 0.735 0.958-0.262 0.332 0.963 900 999999 910 -FILE 374; 158 RECORDS: 0C EXPO 10 C ..................................................................EXPO 20 C EXPO 30 C SAMPLE MAIN PROGRAM FOR TRIPLE EXPONENTIAL SMOOTHING - EXPON EXPO 40 C EXPO 50 C PURPOSE EXPO 60 C (1) READ THE PROBLEM PARAMETER CARD AND A TIME SERIES, EXPO 70 C (2) CALL THE SUBROUTINE EXSMO TO SMOOTH THE TIME SERIES, EXPO 80 C AND (3) PRINT THE RESULT. EXPO 90 C EXPO 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B=B+C-1.5*AL*AL*(2.0-AL)*DIF EXSM 710 150 C=C-ALCUB*DIF EXSM 720 RETURN EXSM 730 END EXSM 740 /DATA 10 SAMPLE 38 0.1 0.0 0.0 0.0 20 430 426 422 419 414 413 412 409 411 417 422 430 30 438 441 447 455 461 453 448 449 454 463 470 472 40 476 481 483 487 491 492 485 486 482 479 479 476 50 472 470 60 -FILE 375; 492 RECORDS: 0C ADSA 10 C ..................................................................ADSA 20 C ADSA 30 C SAMPLE MAIN PROGRAM FOR MATRIX ADDITION - ADSAM ADSA 40 C ADSA 50 C PURPOSE ADSA 60 C MATRIX ADDITION SAMPLE PROGRAM ADSA 70 C ADSA 80 C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED ADSA 90 C MADD ADSA 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 0.6751766 0.5571068 0.6373449 0.6295047 0.3605070 0.0027915 0.6108296 290 0.7284786 0.6010878 0.6876602 0.6792011 0.3889673 0.0030119 1.0000000 300 0.7446845 0.6144597 0.7029582 0.6943108 0.3976204 0.0030789 0.6737132 310 0.4299425 0.3547574 0.4058519 0.4008593 1.0000000 0.0017776 0.3889673 320 0.8635910 0.7125728 0.8152021 0.8051740 0.4611099 0.0035705 0.7812874 330 0.7601008 0.6271802 1.0000000 0.7086843 0.4058519 0.0031426 0.6876602 340 0.7601008 0.6271802 1.0000000 0.7086843 0.4058519 0.0031426 0.6876602 350 0.6963269 0.5745585 0.6573101 0.6492243 0.3718001 0.0028789 0.6299642 360 9 370 380 -FILE 376; 192 RECORDS: 0C QDIN 10 C ..................................................................QDIN 20 C QDIN 30 C SAMPLE PROGRAM FOR INTEGRATION OF A TABULATED FUNCTION BY QDIN 40 C NUMERICAL QUADRATURE - QDINT QDIN 50 C QDIN 60 C PURPOSE QDIN 70 C INTEGRATES A SET OF TABULATED VALUES FOR F(X) GIVEN THE QDIN 80 C NUMBER OF VALUES AND THEIR SPACING QDIN 90 C QDIN 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END QSF 1160 /DATA 10 12345 20 1.0 20 2.0 2.0 2.0 2.0 2.0 2.0 2.0 30 2.0 2.0 2.0 2.0 2.0 2.0 2.0 40 2.0 2.0 2.0 2.0 2.0 2.0 2.0 50 543 10 1.0 60 1.0 2.0 3.0 4.0 5.0 6.0 7.0 70 8.0 9.0 10.0 11.0 80 90 -FILE 377; 166 RECORDS: 0C RKIN 10 C ..................................................................RKIN 20 C RKIN 30 C SAMPLE PROGRAM FOR RUNGE-KUTTA INTEGRATION OF A GIVEN FUNCTION RKIN 40 C WITH TABULATED OUTPUT - RKINT RKIN 50 C RKIN 60 C PURPOSE RKIN 70 C INTEGRATES THE FUNCTION SUBPROGRAM FUN USING THE INITIAL RKIN 80 C CONDITIONS CONTAINED IN CONTROL CARDS. PRODUCES TABULATED RKIN 90 C OUTPUT. RKIN 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RETURN RK2 710 END RK2 720 FUNCTION FUN(X,Y) FUN 10 C FUN 20 FUN=1./X FUN 30 RETURN FUN 40 END FUN 50 /DATA 10 1.0 0.0 .01 10 30 20 30 -FILE 378; 281 RECORDS: 0C SMPR 10 C ..................................................................SMPR 20 C SMPR 30 C SAMPLE PROGRAM FOR REAL AND COMPLEX ROOTS OF A REAL POLY- SMPR 40 C NOMIAL - SMPRT SMPR 50 C SMPR 60 C PURPOSE SMPR 70 C COMPUTES THE REAL AND COMPLEX ROOTS OF A REAL POLYNOMIAL SMPR 80 C WHOSE COEFFICIENTS ARE INPUT. SMPR 90 C SMPR 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 160 Y=-Y PLRT1950 SUMSQ=0.0 PLRT1960 GO TO 155 PLRT1970 165 IF(N) 20,20,45 PLRT1980 END PLRT1990 /DATA 10 360 9 20 -1.0 1.0 30 1.0 40 50 -FILE 379; 523 RECORDS: 0C SOLN 10 C ..................................................................SOLN 20 C SOLN 30 C SAMPLE MAIN PROGRAM - SOLN SOLN 40 C SOLN 50 C PURPOSE SOLN 60 C SOLUTION OF A SET OF SIMULTANEOUS EQUATIONS SOLN 70 C SOLN 80 C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED SOLN 90 C SIMQ SOLN 100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 0.6108296 0.7812874 0.6737132 160 0.6751766 0.5571068 0.6373449 0.6295047 0.3605070 0.0027915 0.6108296 170 1.0000000 0.7241215 0.6244183 180 0.8635910 0.7125728 0.8152021 0.8051740 0.4611099 0.0035705 0.7812874 190 0.7241215 1.0000000 0.7986682 200 0.7446845 0.6144597 0.7029582 0.6943108 0.3976204 0.0030789 0.6737132 210 0.6244183 0.7986682 1.0000000 220 9 230 110. -120. 10. 145. -50. 44.2 -14. 240 38.5 22. 1650. 250 -FILE 380; 1058 RECORDS: 0 SUBROUTINE PELIPS(X0,Y0,A1,B1,ALPHA,THETA0,THETAF,SC) PLTF0001 C CAN ONLY BE USED WRT A LINEAR COORD SYSTEM PLTF0002 C A LINEAR COORDINATE SYSTEM IS ASSUMED. PLTF0003 REAL*8 SUBNAM PLTF0004 DATA SUBNAM/'PELIPS '/ PLTF0005 CALL PLFSPL(SUBNAM) PLTF0006 TYPE=PLTTYP(0) PLTF0007 ALP = ALPHA/57.2958 PLTF0008 THE0 = THETA0 / 57.2958 PLTF0009 THEF = THETAF / 57.2958 PLTF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CALL PLRSPL PLTF1049 CALL PLSTYP(TYPE) PLTF1050 PAXIS=EX PLTF1051 RETURN PLTF1052 ENTRY PAXFMT(FMTZ) PLTF1053 FORMZ=FMTZ PLTF1054 IF(FORMZ .EQ. 0.0) FORMZ=F42 PLTF1055 PAXFMT=0.0 PLTF1056 RETURN PLTF1057 END PLTF1058 -FILE 381; 2441 RECORDS: 0PMOD TITLE '*** DIGITAL PLOTTING SYSTEM PLOT MODE MODULE ***' PLTA0001 #PLTMOD START 0 PLTA0002 * PLTREC. SPECIFIES LINEAR PLOTTING PLTA0003 ENTRY PLTREC PLTA0004 USING *,12 PLTA0005 PLTREC STM 14,12,12(13) PLTREC PLTA0006 LR 12,15 PLTA0007 SR 10,10 0=> NORMAL MODE PLTA0008 B MDCOD PLTA0009 * PLTA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PWSV DS 18A PWRIT SAVE AREA PLTA2432 WBCNT DC H'0' PLTA2433 WRBUF DS CL255 PLTA2434 CRDCNT DC H'0' PLTA2435 COORD DS CL248 31 (X,Y) pAIRS HERE PLTA2436 BUFMV MVC WRBUF+NPFX+2(0),0(2) PLTA2437 JOBSWT DC X'00' 0 UNTIL FILE IS OPEN AND USED. PLTA2438 PSTDSV DS 18A PLTS TD SAVE AREA PLTA2439 CNBR DS F'0' CURRENT PLOT # PLTA2440 END PLTA2441 -FILE 382; 585 RECORDS: 0DWB TITLE '*** DWB DUMMY ***' CCQ00001 GUINFO START 0 CCQ00002 ENTRY CUINFO CCQ00003 USING *,15 CCQ00004 ST 1,12(13) CCQ00005 L 1,4(0,1) S8 BUFFER CCQ00006 MVC 0(8,1),=C'999999 ' CCQ00007 L 1,12(13) CCQ00008 CUINFO BR 14 CCQ00009 END CCQ00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BUFF DS CL255 BUFFER CCQ00576 DBUFF DC D'0' CCQ00577 EDPAT DC X'40202120' CCQ00578 TEMP DS A CCQ00579 SERCOM DC V(SERCOM) CCQ00580 GUSER DC V(GUSER) CCQ00581 ATTNSAV DC A(CCQUEUE) CCQ00582 PATNPAR DC A(PLTATTN,BUFF+10) CCQ00583 PLTLOCK DC V(BMLOCK) PLOT LOCK BYTE CCQ00584 END CCQ00585 -FILE 383; 13 RECORDS: 0 MACRO PLTM0001 &L1 CALL &SNAM,&PLST PLTM0002 CNOP 0,4 FORCE FULL WORD ALIGNMENT PLTM0003 &L1 BAL 1,C&SYSNDX PLTM0004 DC A&PLST PLTM0005 C&SYSNDX L 15,=V(&SNAM) PLTM0006 BALR 14,15 PLTM0007 MEND PLTM0008 MACRO PLTM0009 &L1 CALLS &SNAM PLTM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> &L1 L 15,=V(&SNAM) PLTM0011 BALR 14,15 PLTM0012 MEND PLTM0013 -FILE 384; 209 RECORDS: 0UPST TITLE '*** CCPOST - USER PLOT TAPE POST PROCESSOR ***' CCPO0001 SPACE 4 CCPO0002 *********************************************************************** CCPO0003 * * CCPO0004 * GRAPHICS DATA BASE TO CALCOMP PLOT TAPE POST PROCESSOR * CCPO0005 * FOR USER SCRATCH TAPE GENERATION. * CCPO0006 * INVOKED BY: * CCPO0007 * $RUN *CCPOST SCARDS=PFILECHAIN PAR=KEYWORDLIST * CCPO0008 * WHERE KEYWORDLIST HAS T=PTIMMIN AND/OR D=LDNUM * CCPO0009 * SEPARATED BY A COMMA WHEN BOTH OCCUR. * CCPO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * CCPO0200 KEYPAR DC A(LHTL,LHT,EXTAB) CCPO0201 TEXT DC A(BUFF) THIS IS INITIALIZED & UPDATED. CCPO0202 DC A(RHT) CCPO0203 * CCPO0204 EXTAB BAL 11,TIMSET 0 CCPO0205 BAL 11,FDNSET 4 CCPO0206 BAL 11,IDSET 8 CCPO0207 * CCPO0208 END CCPO0209 -FILE 385; 1538 RECORDS: 0PTCC TITLE '*** #PLOTCC, #PLOTBUF, ET. AL. ***' CPC00001 SPACE 4 CPC00002 * @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ CPC00003 * CPC00004 * THE UNIVERSITY OF MICHIGAN CALCOMP PEN MOVING SUBROUTINES. CPC00005 * EXTENDED FOR U OF M USAGE BY CPC00006 * EDWARD J. FRONCZAK CPC00007 * UNIVERSITY OF MICHIGAN COMPUTING CENTER CPC00008 * ANN ARBOR, MICHIGAN 48104 CPC00009 * CPC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EJECT CPC01529 *********************************************************************** CPC01530 * * CPC01531 * PLOT TAPE BUFFER * CPC01532 * * CPC01533 *********************************************************************** CPC01534 SPACE 1 CPC01535 #PBUFF CSECT CPC01536 PBUFF DS CL8192 CPC01537 END CPC01538 -FILE 386; 530 RECORDS: 0EDRD TITLE '*** EDINIT, EDGET TO READ DISC OR DATA CELL FILES ***' CCP00001 SPACE 20 CCP00002 ***************************************************************** CCP00003 * * CCP00004 * CALCOMP PLOTTER DISC AND DATA CELL SUPPORT ROUTINES * CCP00005 * * CCP00006 * HOPEFULLY BUG-FREE WRITTEN BY: * CCP00007 * ED. FRONCZAK * CCP00008 * * CCP00009 * PERMIT REQUIREMENTS OF FILECHAIN COMPONENTS: * CCP00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PLTLOCK DC V(BMLOCK) CCP00521 DBUFF DS D CCP00522 EDPAT DC X'402020202120' CCP00523 PROTON EQU 26 CCP00524 TOD EQU 28 TIME OF DAY CCP00525 PROOF EQU 34 CCP00526 WAYT EQU 35 CCP00527 RJBBUF EQU X'44' CCP00528 MTSPCSWT EQU X'C0' CCP00529 END CCP00530 -FILE 387; 132 RECORDS: 0PCOP TITLE 'COPY SUBROUTINES FOR PLOTTER RTNS' FRCP0001 PRINT NOGEN FRCP0002 UFILINIT START 0 FRCP0003 ENTRY UFILGET FRCP0004 ENTER 12,SA=SA FRCP0005 L 2,0(0,1) FRCP0006 MVC UID,0(2) FRCP0007 L 2,4(0,1) FRCP0008 MVC NAME(256),0(2) FRCP0009 LA 2,NAME FRCP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC CL8'GUSER' FRCP0123 DC A(GUSER) FRCP0124 F1 DC F'1' FRCP0125 MOVNAM MVC CPYNAM(0),0(1) FRCP0126 CPYPAR DC A(CPYLNG) FRCP0127 SP1 DC A(0) FRCP0128 SP13 DC A(0) FRCP0129 GET1 DS A FRCP0130 MVCLIN MVC 0(0,4),0(5) FRCP0131 END FRCP0132 -FILE 388; 1381 RECORDS: 0PLOT TITLE 'UNIVERSITY OF MICHIGAN SYSTEM /360 PRINTER PLOT ROUTINE' PRPL0001 * PRPL0002 * PRPL0003 * PROGRAMMED BY VICTOR J. STREETER PRPL0004 * COMPUTING CENTER PRPL0005 * UNIVERSITY OF MICHIGAN PRPL0006 * ANN ARBOR, MICHIGAN PRPL0007 * CORRECTED 8/69 BY R. H. HIEBER, U. OF MICH. COMPUTER CENTER RHH PRPL0008 * CAUTION: LINKAGES ARE HORRIBLE. RHH PRPL0009 * CAUTION: 1ST PAGE ALMOST FULL, + PLOTP ASSUMED AT PLOT+4096 RHH PRPL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> XDIG1 DC C'0' PRPL1372 XDIG2 DS 1C PRPL1373 DC C' TIMES THEIR ACTUAL VALUES' PRPL1374 YCOM DC C'0 PRINTED VALUES OF Y ARE 1E' PRPL1375 YSI DC C' ' PRPL1376 YDIG1 DC C'0' PRPL1377 YDIG2 DS 1C PRPL1378 DC C' TIMES THEIR ACTUAL VALUES' PRPL1379 DS 10F PRPL1380 END PRPL1381 -FILE 389; 103 RECORDS: 0SLE TITLE 'SIMULTANEOUS LINEAR EQUATIONS' SLE00001 SLE# CSECT SLE00002 ENTRY SLE1 SLE00003 ENTRY SLE2 SLE00004 ENTRY SLE3 SLE00005 ENTRY SLE4 SLE00006 * CALLING SEQUENCE - SLE1/2 (N,LENA,A,NSOL,LENBX,B,X,IP) SLE00007 * SLE3/4 (N,LENA,A,NSOL,LENBX,B,X,IP,LENUL,UL) SLE00008 USING *,15 SLE00009 SLE3 STM 14,12,12(13) SLE00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ULPARS DS 2F SLE00094 PARLIST DS 8F SLE00095 SAVE DS 18F SLE00096 ALRD DC V(LRD) SLE00097 ADBS DC V(DBS) SLE00098 ADBST DC V(DBST) SLE00099 FREE DC V(FREESPAC) SLE00100 GET DC V(GETSPACE) SLE00101 DS 10F SLE00102 END SLE00103 -FILE 390; 49 RECORDS: 0INV# CSECT INV00001 ENTRY INV INV00002 USING *,12 INV00003 INV STM 14,12,12(13) INV00004 LR 12,15 INV00005 LM 4,9,0(1) INV00006 LR 3,4 INV00007 STM 3,9,PARLIST INV00008 LA 1,PARLIST INV00009 ST 13,SAVE+4 INV00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 14,12(0,13) INV00040 MVI 12(13),X'FF' INV00041 BR 14 INV00042 PARLIST DS 7F INV00043 SAVE DS 18F INV00044 ALRD DC V(LRD) INV00045 AINV1 DC V(INV1) INV00046 ASPAC DC V(GETSPACE) INV00047 AFREE DC V(FREESPAC) INV00048 END INV00049 -FILE 391; 279 RECORDS: 0INV1 TITLE 'MATRIX INVERSION' INV10001 INV1# CSECT INV10002 * INV10003 * THE SUBROUTINE LRD IS CALLED PREVIOUS TO ENTERING THIS INV10004 * ROUTINE AND SETS UP THE DECOMPOSED MATRIX UL AND THE INV10005 * PERMUTATION VECTOR IP. FOR SOME MATRIX A WE HAVE: INV10006 * -1 -1 -1 -1 INV10007 * PA = LU OR A = P LU, THUS A = U L P INV10008 * INV10009 * THIS ROUTINE COMPUTES THE INVERSES OF L AND U AND HENCE INV10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STD FR0,0(GRI,ULCOLI) INV10270 ALR ULCOLI,GRL INV10271 BXLE GRJ,SRN,LASTROW INV10272 OUT LM 14,12,12(13) INV10273 SR 15,15 INV10274 MVI 12(13),X'FF' INV10275 BR 14 INV10276 CNOP 0,8 INV10277 ONE DC X'4110000000000000' INV10278 END INV10279 -FILE 392; 307 RECORDS: 0LRD TITLE 'MATRIX DECOMPOSITION' LRD00001 LRD# CSECT LRD00002 ENTRY LRD LRD00003 GRK EQU 14 INDEX REGISTER LRD00004 SR1 EQU 14 SCRATCH REGISTER LRD00005 SRN EQU 0 INCREMENTING REGISTER FOR N LRD00006 GRN EQU 1 NO. OF ROWS OF MATRIX LRD00007 SRM EQU 2 INCREMENTING REGISTER FOR M LRD00008 GRM EQU 3 NO. OF COLUMNS OF MATRIX LRD00009 GRSIGN EQU 4 SIGN OF PERMUTATION LRD00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTR GRSIGN,GRSIGN LRD00298 BNZ *+8 LRD00299 LA SR1,4 LRD00300 LR 15,SR1 LRD00301 LM 0,12,20(13) LRD00302 L 14,12(0,13) LRD00303 SPM 14 RESTORE PROGRAM MASK LRD00304 MVI 12(13),X'FF' LRD00305 BR 14 LRD00306 END LRD00307 -FILE 393; 184 RECORDS: 0DBS TITLE 'DOUBLE BACK SUBSTITUTION' DBS00001 DBS# CSECT DBS00002 ENTRY DBS DBS00003 SR2 EQU 14 SCRATCH REGISTER DBS00004 GRK EQU 0 INDEX REGISTER DBS00005 SRN EQU 2 INCREMENTING REGISTER OVER N DBS00006 GRN EQU 3 DIMENSION OF UL DBS00007 SRM EQU 4 INCREMENTING REGISTER OVER M DBS00008 GRM EQU 5 NO. OF COLUMNS OF X AND B DBS00009 GRL2 EQU 6 DIMENSIONED COL LENGTH OF X & B DBS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FINI LD FR2,0(0,GRX) DBS00175 DDR FR2,FR0 X(1) = X(1)/UL(1,1) DBS00176 STD FR2,0(0,GRX) (UNCHANGED IF UL(1,1) IS ZERO) DBS00177 ALR GRX,GRL2 DBS00178 BXLE GRK,SRM,FINI DBS00179 END LM 14,12,12(13) DBS00180 MVI 12(13),X'FF' DBS00181 SR 15,15 DBS00182 BR 14 DBS00183 END DBS00184 -FILE 394; 137 RECORDS: 0DBST TITLE 'DOUBLE BACK SUBSTITUTION FOR TRANSFORMED SYSTEM' DBST0001 DBST# CSECT DBST0002 ENTRY DBST DBST0003 GRK EQU 14 INDEX REGISTER DBST0004 SRN EQU 2 INCREMENTING REGISTER OVER N DBST0005 GRN EQU 3 DIMENSION OF UL DBST0006 SRM EQU 4 INCREMENTING REGISTER OVER M DBST0007 GRM EQU 5 NO. OF COLUMNS OF X AND B DBST0008 GRL2 EQU 6 DIMENSIONED COL LENGTH OF X & B DBST0009 GRB EQU 7 ADDRESS OF B DBST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STD FR2,0(GRI,GRX) DBST0128 BXH GRI,SRN,PERMX BRANCH IF I>-8 DBST0129 ALR GRX,GRL2 DBST0130 BXLE GRK,SRM,PERM DBST0131 END LM 14,12,12(13) DBST0132 MVI 12(13),X'FF' DBST0133 SR 15,15 DBST0134 BR 14 DBST0135 EIGHT DC F'8' DBST0136 END DBST0137 -FILE 395; 328 RECORDS: 0GLI TITLE 'GAUSS-LEGENDRE INTEGRATION' GLNT0001 GLINT# CSECT GLNT0002 ENTRY GLINT GLNT0003 ENTRY SGLINT GLNT0004 * TO COMPUTE SINGLE AND MULTIPLE INTEGRALS USING THE GAUSS- GLNT0005 * LEGENDRE QUADRATURE METHOD. EACH INTERVAL IS DIVIDED INTO EQUAL GLNT0006 * SUBINTERVALS AND THE QUADRATURE FORMULA IS APPLIED TO EACH GLNT0007 * SUBINTERVAL. 'GLINT' IS THE DOUBLE PRECISION ROUTINE AND GLNT0008 * 'SGLINT' THE SINGLE PRECISION ROUTINE. GLNT0009 GR1 EQU 1 PARAMETER POINTER GLNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> H DS 1D GLNT0319 SUM1 DS 1D GLNT0320 SUM2 DS 1D GLNT0321 NSAVE DS 1F GLNT0322 II DS 1F GLNT0323 KSAVE DS 1H GLNT0324 JJ DS 1H GLNT0325 UPPERM DS 1H GLNT0326 LOWERM DS 1H GLNT0327 END GLNT0328 -FILE 396; 452 RECORDS: 0 SUBROUTINE LINPG(V,SOL,M,N,M2,N2,CNSTR,SW) LNPG0001 IMPLICIT REAL*8 (A-H,O-Z) LNPG0002 REAL*4 CNSTR,SW LNPG0003 DIMENSION V(22500),SOL(150),I(150),J(150),K(300),IS(150) LNPG0004 C LNPG0005 C INPUT ROUTINE TO INITIALIZE VARIABLES LNPG0006 C LNPG0007 NLESS1 = N-1 LNPG0008 DO 9999 III=1,NLESS1 LNPG0009 9999 SOL(III) = 0. LNPG0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 711 LTEMP = I(LR1) LNPG0443 I(LR1) = I(LR2) LNPG0444 I(LR2) = LTEMP LNPG0445 712 DO 713 IC=1,NO,2 LNPG0446 IF (LR2 - K(IC)) 713,715,713 LNPG0447 713 CONTINUE LNPG0448 GO TO 716 LNPG0449 715 K(IC) = LR1 LNPG0450 716 GO TO LABEL,(525,543,546,556) LNPG0451 END LNPG0452 -FILE 397; 40 RECORDS: 0 SUBROUTINE BAIR(N,A,P,Q,EPS,ITR,SCR) BAIR0001 C THIS ROUTINE SEEKS TO REFINE P AND Q, THE COEFFICIENTS OF A BAIR0002 C QUADRATIC FACTOR OF THE N DEGREE POLYNOMIAL F(Z). THE BAIR0003 C COEFFICIENTS OF F(Z) ARE STORED IN A. BAIRSTOWES ITERATION BAIR0004 C METHOD IS USED. BAIR0005 REAL*8 A(1),P,Q,DELP,DELQ,SCR(1),D,E,CVG,B1,B2,C3,C4,TEST BAIR0006 CVG = (P*P + Q*Q)*1.0E-4 BAIR0007 ISW = 0 BAIR0008 I = 1 BAIR0009 EPSLON = EPS*EPS BAIR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 10 TEST = P*P + Q*Q BAIR0031 IF (TEST.LT.1.) TEST = 1. BAIR0032 TEST = (DELP*DELP + DELQ*DELQ)/TEST BAIR0033 IF (TEST.LE.EPSLON) RETURN BAIR0034 P = P + DELP BAIR0035 Q = Q + DELQ BAIR0036 I = I + 1 BAIR0037 IF (I.LT.ITR) GO TO 2 BAIR0038 RETURN 1 BAIR0039 END BAIR0040 -FILE 398; 178 RECORDS: 0DAIN TITLE 'INTERPOLATION IN DOUBLE PRECISION' DANT0001 DAINT# CSECT DANT0002 GR0 EQU 0 DANT0003 SRN EQU 2 INCREMENTING REGISTER FOR N DANT0004 GRN EQU 3 NUMBER OF POINTS SUPPLIED DANT0005 VECTX EQU 4 ADDRESS OF X DANT0006 VECTY EQU 5 ADDRESS OF Y DANT0007 SCX EQU 6 SCRATCH VECTOR DANT0008 GRM EQU 7 NO. OF INTERPOLATION POINTS DANT0009 SCY EQU 8 SCRATCH VECTOR DANT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AR GRI,SRN DANT0169 CR GRI,GRM DANT0170 BL INTER DANT0171 LD FR0,0(GRM,SCY) DANT0172 DONE SR 15,15 DANT0173 LM 0,11,20(13) DANT0174 MVI 12(13),X'FF' DANT0175 SPM 14 DANT0176 BR 14 DANT0177 END DANT0178 -FILE 399; 37 RECORDS: 0GRAN TITLE 'GENERATION OF NORMALLY DISTRIBUTED RANDOM NUMBERS' GRND0001 GRAND# CSECT GRND0002 ENTRY GRAND1 GRND0003 ENTRY GRAND GRND0004 USING *,15 GRND0005 GRAND1 L 1,0(0,1) GRND0006 L 1,0(0,1) GRND0007 ST 1,IX GRND0008 B OUT GRND0009 USING *,15 GRND0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LM 0,7,20(13) GRND0028 OUT MVI 12(13),X'FF' GRND0029 BR 14 GRND0030 IX DC F'524287' GRND0031 CNOP 0,8 GRND0032 DW DC X'46000000' GRND0033 DS F GRND0034 MULT DC X'00010003' GRND0035 SIX DC X'41600000' GRND0036 END GRND0037 -FILE 400; 425 RECORDS: 0JESS TITLE 'JACOBI METHOD FOR EIGENVALUE PROBLEM' JESS0001 JESS# CSECT JESS0002 SR2 EQU 14 SCRATCH REGISTER JESS0003 RETURN EQU 14 JESS0004 SWTCH EQU 0 SWITCH IN SINE/COSINE SECTION JESS0005 SRN EQU 0 JESS0006 GRN EQU 1 SIZE OF MATRICES A AND R JESS0007 LENA EQU 2 DIMENSIONED COL.LENGTH OF A JESS0008 ACOL1 EQU 3 ADDR. OF COLUMN 1 OF A JESS0009 LENR EQU 4 DIMENSIONED COL.LENGTH OF R JESS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B DC X'00423A2A' 0.2587 JESS0416 BUFF DS F JESS0417 N DS E JESS0418 HIVAL DC X'4B100000' JESS0419 SHIFTS DC X'01000000' JESS0420 DC X'0A000000' JESS0421 THRSH DS E JESS0422 SWEEP DS F JESS0423 SAVE DS F JESS0424 END JESS0425 -FILE 401; 238 RECORDS: 0LINC TITLE 'LAGUERRE INCREMENT' LINC0001 LINC# CSECT LINC0002 ********************************************************************* LINC0003 * LINC0004 * THIS ROUTINE COMPUTES THE LAGUERRE INCREMENT. LINC0005 * GIVEN THE COMPLEX VECTOR B AND THE DEGREE LINC0006 * OF THE POLYNOMIAL N THEN: LINC0007 * LET F(W) = (B(1),B(2)) LINC0008 * F'(W) = (B(3),B(6)) LINC0009 * F"(W) = (B(5),B(6)) LINC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TEMP1 DS D TEMP- LINC0229 TEMP2 DS D ORARY LINC0230 TEMP3 DS D STORAGE. LINC0231 BUFF DS F LINC0232 B DC X'00423A2A' 0.2587 LINC0233 A DC X'48385F07' 0.2202*16**8 LINC0234 BIAS DC X'31000000' LINC0235 SAVE DS 9F SAVE AREA FOR CSQRT. LINC0236 SQRT DC V(CDSQRT) LINC0237 END LINC0238 -FILE 402; 73 RECORDS: 0QDIV TITLE 'DIVISION OF A POLYNOMIAL BY A QUADRATIC FACTOR' QDIV0001 QDIV# CSECT QDIV0002 MINUS8 EQU 2 QDIV0003 LIMIT EQU 3 QDIV0004 GRC EQU 4 ADDR. OF VECTOR C QDIV0005 GRA EQU 4 ADDR. OF VECTOR A QDIV0006 GRN EQU 5 QDIV0007 GRI EQU 6 INDEX REGISTER QDIV0008 GRB EQU 7 ADDR. OF VECTOR B QDIV0009 FR0 EQU 0 QDIV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MDR FR6,FR2 QDIV0064 AD FR6,0(GRI,GRB) QDIV0065 MDR FR4,FR0 QDIV0066 ADR FR4,FR6 QDIV0067 STD FR4,0(GRI,GRC) QDIV0068 BIX BXH GRI,MINUS8,CLOOP QDIV0069 EXIT LM 1,7,24(13) QDIV0070 MVI 12(13),X'FF' QDIV0071 BR 14 QDIV0072 END QDIV0073 -FILE 403; 178 RECORDS: 0SAIN TITLE 'INTERPOLATION IN SINGLE PRECISION' SANT0001 SAINT# CSECT SANT0002 GR0 EQU 0 SANT0003 SRN EQU 2 INCREMENTING REGISTER FOR N SANT0004 GRN EQU 3 NUMBER OF POINTS SUPPLIED SANT0005 VECTX EQU 4 ADDRESS OF X SANT0006 VECTY EQU 5 ADDRESS OF Y SANT0007 SCX EQU 6 SCRATCH VECTOR SANT0008 GRM EQU 7 NO. OF INTERPOLATION POINTS SANT0009 SCY EQU 8 SCRATCH REGISTER SANT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AR GRI,SRN SANT0169 CR GRI,GRM SANT0170 BL INTER SANT0171 LE FR0,0(GRM,SCY) SANT0172 DONE SR 15,15 SANT0173 LM 0,11,20(13) SANT0174 MVI 12(13),X'FF' SANT0175 SPM 14 SANT0176 BR 14 SANT0177 END SANT0178 -FILE 404; 42 RECORDS: 0SINV# CSECT SINV0001 ENTRY SINV SINV0002 USING *,6 SINV0003 SINV STM 14,6,12(13) SINV0004 LR 6,15 SINV0005 ST 13,SAVE+4 SINV0006 LA 13,SAVE SINV0007 L 15,ASLRD SINV0008 BALR 14,15 SINV0009 LTR 15,15 SINV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 14,12(0,13) SINV0033 MVI 12(13),X'FF' SINV0034 BR 14 SINV0035 PARLIST DS 4F SINV0036 SAVE DS 18F SINV0037 ASINV2 DC V(SINV2) SINV0038 ASLRD DC V(SLRD) SINV0039 ASPAC DC V(GETSPACE) SINV0040 AFREE DC V(FREESPAC) SINV0041 END SINV0042 -FILE 405; 136 RECORDS: 0SNV1 TITLE 'INVERSION OF A LOWER TRIANGULAR MATRIX' SIN10001 SINV1# CSECT SIN10002 MINUS8 EQU 14 SCRATCH REGISTER SIN10003 SRN EQU 2 INCREMENTING REGISTER FOR N SIN10004 GRN EQU 3 SIZE OF MATRIX SIN10005 GRL EQU 4 DIMENSIONED COL LEN. OF MATRIX SIN10006 ULCOL1 EQU 5 ADDR OF COLUMN 1 OF MATRIX SIN10007 ULCOLI EQU 5 ADDR OF COLUMN I OF MATRIX SIN10008 SCROW EQU 6 ADDR OF SCRATCH VECTOR SIN10009 ULCOLJ EQU 7 ADDR OF COLJ OF MATRIX SIN10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ALR ULCOLI,GRL SIN10127 BXLE GRI,SRN,INVERSE SIN10128 OUT LM 14,12,12(13) SIN10129 SR 15,15 SIN10130 MVI 12(13),X'FF' SIN10131 SPM 14 SIN10132 BR 14 SIN10133 CNOP 0,8 SIN10134 ONE DC X'4110000000000000' SIN10135 END SIN10136 -FILE 406; 145 RECORDS: 0SLRD TITLE 'DECOMPOSITION OF A SQUARE SYMMETRIC MATRIX' SLRD0001 SLRD# CSECT SLRD0002 ACOLK EQU 14 ADDR. OF COL K OF A SLRD0003 GR2 EQU 14 SLRD0004 GR0 EQU 0 SLRD0005 GR1 EQU 1 SLRD0006 SRN EQU 2 INCREMENTING REGISTER FOR N SLRD0007 GRN EQU 3 DIMENSION OF MATRIX SLRD0008 GRL2 EQU 4 DIMENSIONED COL LENGTH OF A SLRD0009 ACOLI EQU 5 ADDR OF COL I OF MATRIX A SLRD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 14,12(0,13) SLRD0136 SPM 14 SLRD0137 MVI 12(13),X'FF' SLRD0138 BR 14 SLRD0139 CNOP 0,4 SLRD0140 BIAS DC X'31000000' SLRD0141 A DC X'48385F07' 0.2202*16**8 SLRD0142 B DC X'00423A2A' 0.2587 SLRD0143 BUFF DS F SLRD0144 END SLRD0145 -FILE 407; 179 RECORDS: 0TSEP TITLE 'TAYLOR SERIES EXPANSION OF A POLYNOMIAL' TSEP0001 TSEP# CSECT TSEP0002 * GIVEN THE POLYNOMIAL F(Z) OF DEGREE N, WITH COEFFICIENTS A, TSEP0003 * A COMPLEX POINT W AND AN INTEGER M, THE COEFFICIENTS TSEP0004 * OF THE TAYLOR SERIES EXPANSION ABOUT W ARE COMPUTED AND TSEP0005 * STORED IN THE VECTOR B. THE ELEMENTS ARE OBTAINED BY TSEP0006 * DIVIDING THE POLYNOMIAL BY (Z-W) M+1 TIMES. TSEP0007 INDEX EQU 0 BXLE INDEXING REGISTER TSEP0008 SXTEEN EQU 0 TSEP0009 GRM EQU 1 DEGREE OF TAYLOR EXPANSION TSEP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * A RETURN CODE OF 4 INDICATES THAT B IS REAL. THIS FACT IS TSEP0170 * USED BY ZP2 TO DETERMINE WHICH ENTRY TO MAKE INTO ZP1. TSEP0171 LA GRI,4 TSEP0172 B *+6 TSEP0173 EXIT SR GRI,GRI TSEP0174 LR 15,GRI TSEP0175 LM 0,9,20(13) TSEP0176 MVI 12(13),X'FF' TSEP0177 BR 14 TSEP0178 END TSEP0179 -FILE 408; 29 RECORDS: 0URAN TITLE 'GENERATION OF UNIFORMALLY DISTRIBUTED RANDOM NUMBERS' URND0001 URAND# CSECT URND0002 ENTRY URAND URND0003 USING *,15 URND0004 URAND STM 0,3,20(13) URND0005 L 3,0(0,1) URND0006 L 1,0(0,3) URND0007 LTR 1,1 URND0008 BNZ CONT URND0009 SVC 38 URND0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AD 0,DW URND0020 LM 0,3,20(13) URND0021 MVI 12(13),X'FF' URND0022 BR 14 URND0023 IX DS F URND0024 CNOP 0,8 URND0025 DW DC X'46000000' URND0026 DS F URND0027 MULT DC X'00010003' URND0028 END URND0029 -FILE 409; 46 RECORDS: 0 SUBROUTINE ZLOOK(N,A,Z,EPS,ITR,SCR) ZLOK0001 C THIS SUBROUTINE SEARCHES THE UPPER PLANE FOR A ROOT OF THE ZLOK0002 C N DEGREE POLYNOMIAL F(Z). THE MAIN ENTRY POINTS ZLOOK AND ZLOK0003 C ZLOOKC CORRESPOND TO THE COEFFICIENST OF F(Z) BEING REAL OR ZLOK0004 C COMPLEX. ZLOK0005 REAL*8 A(1),Z(1),SCR(1),W(2),PI,THETA(2) ZLOK0006 DATA PI/1.5707963267948966/ ZLOK0007 ISW = 1 ZLOK0008 GO TO 9 ZLOK0009 ENTRY ZLOOKC(N,A,Z,EPS,ITR,SCR) ZLOK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 6 GO TO (10,20,30),I ZLOK0037 20 W(1) = -W(1) ZLOK0038 I = 3 ZLOK0039 GO TO 4 ZLOK0040 30 K = K + 1 ZLOK0041 IF (K.LE.MAXK) GO TO 3 ZLOK0042 IRHO = IRHO + 1 ZLOK0043 IF (IRHO.LE.MAXRHO) GO TO 2 ZLOK0044 RETURN 1 ZLOK0045 END ZLOK0046 -FILE 410; 40 RECORDS: 0ZPOL TITLE 'PROVIDE SCRATCH STOARGE FOR ZPOLY2, THE ZERO FINDER' ZPLY0001 ZPOLY# CSECT ZPLY0002 ENTRY ZPOLY ZPLY0003 USING *,5 ZPLY0004 ZPOLY STM 14,5,12(13) ZPLY0005 LR 5,15 ZPLY0006 LM 1,4,0(1) ZPLY0007 STM 1,4,PARLIST ZPLY0008 ST 13,SAVE+4 ZPLY0009 LA 13,SAVE ZPLY0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MVI 12(13),X'FF' ZPLY0031 SR 15,15 ZPLY0032 BR 14 ZPLY0033 CNOP 0,4 ZPLY0034 SAVE DS 18F ZPLY0035 PARLIST DS 5F ZPLY0036 GET DC V(GETSPACE) ZPLY0037 FREE DC V(FREESPAC) ZPLY0038 ZCALL DC V(ZPOLY2) ZPLY0039 END ZPLY0040 -FILE 411; 149 RECORDS: 0 SUBROUTINE ZPOLY2(N,A,Z,IER,SCR) ZPL20001 C ROUTINE TO FIND ALL THE ZEROES OF A POLYNOMIAL F(Z) WITH ZPL20002 C COEFFICIENTS IN A. N IS DEGREE OF POLYNOMIAL. ZPL20003 REAL*8 W(4), TEMP, Z(1), A(1), SCR(1), P, Q, REAL, APPROX(2) ZPL20004 C COPY FROM A INTO Z. ZPL20005 NP1 = N + 1 ZPL20006 DO 1 I = 1,NP1 ZPL20007 1 Z(I) = A(I) ZPL20008 NP2 = N + 2 ZPL20009 N2P2 = 2*N + 2 ZPL20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 90 IER = IR - 1 ZPL20140 DO 91 I = 1,NP1 ZPL20141 91 SCR(I) = Z(I) ZPL20142 I = 1 ZPL20143 DO 92 J = 1,NP1 ZPL20144 Z(I) = SCR(J) ZPL20145 Z(I+1) = Z(NP1+J) ZPL20146 92 I = I + 2 ZPL20147 RETURN ZPL20148 END ZPL20149 -FILE 412; 49 RECORDS: 0 SUBROUTINE ZPR(N,A,ZSTAR,EPS,ITER,B) ZPR00001 C ROUTINE TO FIND A ZERO OF THE POLYNOMIAL F(Z) WITH COEFFS. IN A. ZPR00002 C THERE ARE TWO ENTRY POINTS FOR A REAL AND A COMPLEX. ZPR00003 REAL*8 A(1), ZSTAR(1), DELZ(2), Z(2), B(1), TEST ZPR00004 ISW = 1 ZPR00005 GO TO 10 ZPR00006 ENTRY ZPC(N,A,ZSTAR,EPS,ITER,B) ZPR00007 ISW = 2 ZPR00008 10 EPSLON = EPS*EPS ZPR00009 Z(1) = ZSTAR(1) ZPR00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> C THEN TAKE THE FOLLOWING AS AN APPROXIMATION TO THE ROOT. ZPR00040 8 DELZ(1) = -1. - 1./(N-1) ZPR00041 DELZ(2) = 0. ZPR00042 9 Z(1) = Z(1) + DELZ(1) ZPR00043 Z(2) = Z(2) + DELZ(2) ZPR00044 I = I + 1 ZPR00045 IF (I.LT.ITER) GO TO 1 ZPR00046 IERR = 1 ZPR00047 GO TO 7 ZPR00048 END ZPR00049 -FILE 413; 100 RECORDS: 0ZQUA TITLE 'ROOTS OF A QUADRATIC' ZQAD0001 ZQUAD# CSECT ZQAD0002 GR0 EQU 0 ZQAD0003 GR1 EQU 1 ZQAD0004 GRP EQU 2 ZQAD0005 GRQ EQU 3 ZQAD0006 GRW EQU 4 ZQAD0007 RETURN EQU 5 ZQAD0008 FR0 EQU 0 ZQAD0009 FR2 EQU 2 ZQAD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MVI 12(13),X'FF' ZQAD0091 SR 15,15 ZQAD0092 BR 14 ZQAD0093 CNOP 0,4 ZQAD0094 EPS DC X'32100000' ZQAD0095 BUFF DS F ZQAD0096 B DC X'00423A2A' 0.2587 ZQAD0097 A DC X'48385F07' 0.2202*16**8 ZQAD0098 BIAS DC X'31000000' ZQAD0099 END ZQAD0100 -FILE 414; 200 RECORDS: 0TIME CSECT TIME0001 ********************************************************************** TIME0002 * * TIME0003 * CALLING SEQUENCE FROM FORTRAN * TIME0004 * CALL TIME(KEY, PRINT, RESULT) * TIME0005 * ALL PARAMETERS ARE FULL WORD INTEGERS * TIME0006 * IF KEY IS 0 THE CPU, ELAPSED, SUP., & PROB. TIMES * TIME0007 * ARE INITIALIZED TO THE CURRENT "TIME". * TIME0008 * 1 THE CPU TIME SINCE INIT. IS RETURNED * TIME0009 * 2 THE ELAPSED TIME SINCE INIT. IS RETURNED * TIME0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COUNTCP DC H'24' TIME0191 COUNTEL DC H'28' TIME0192 COUNTB DC H'9' TIME0193 COUNTD DC H'13' TIME0194 MONTHS DS F TIME0195 DC C'JAN FEB MAR APR MAY JUN ' TIME0196 DC C'JUL AUG SEP OCT NOV DEC ' TIME0197 MOD DC F'0' TIME0198 LINENO DS F TIME0199 END TIME0200 -FILE 415; 82 RECORDS: 0RCAL TITLE 'SUBROUTINE TO CALL AN R TYPE SUBROUTINE' RCAL0001 RCALL CSECT RCAL0002 SPACE 1 RCAL0003 USING *,12 RCAL0004 STM 14,12,12(13) RCAL0005 LR 12,15 RCAL0006 LA 0,3 RCAL0007 LA 1,72 RCAL0008 L 15,=V(GETSPACE) GET SOME SAVE AREA SPACE RCAL0009 BALR 14,15 RCAL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SR 15,15 SET A GOOD RETURN CODE RCAL0073 BR 14 RCAL0074 EJECT RCAL0075 RCALL CSECT RCAL0076 REGS DS 11F REGISTERS STORED HERE RCAL0077 SPACE 1 RCAL0078 ERRM DC C' ILLEGAL COUNT ON CALL TO RCALL SUBROUTINE.' RCAL0079 ERRL DC Y(L'ERRM) RCAL0080 SPACE 1 RCAL0081 END RCAL0082 -FILE 416; 7 RECORDS: 0SIOE TITLE 'SUBROUTINE TO FIX UP SETIOERR FOR FORTRAN' SERR0001 SIOERR START 0 SERR0002 USING *,15 SERR0003 L 1,0(0,1) NEED ONE LEVEL OF INDIRECTION SERR0004 L 15,=V(SETIOERR) SERR0005 BR 15 SERR0006 END SERR0007 -FILE 417; 21 RECORDS: 0RWND TITLE 'FORTRAN CALLABLE SUBROUTINE TO REWIND A FILE OR TAPE' REW00001 REWIND START 0 REW00002 ENTER 12,SA=SA REW00003 L 2,0(0,1) LOCATION OF FULL WORD DS REF # REW00004 NI NUM,X'F0' PUT IT INTO BCD GARBAGE REW00005 OC NUM(1),3(2) REW00006 LM 0,1,NUM SET UP CALL TO REWIND# REW00007 L 15,=V(REWIND#) REW00008 BALR 14,15 REW00009 LTR 15,15 DID IT WORK REW00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SERCOM 'ILLEGAL CALL TO "REWIND"' REW00012 L 13,4(0,13) SET UP REGISTERS FOR DUMP REW00013 L 14,12(0,13) REW00014 L 15,=V(ERROR) REW00015 LM 0,12,20(13) REW00016 BR 15 GO SIDEWAYS TO ERROR REW00017 EXIT EXIT 0 REW00018 NUM DC 0F'0',CL8'0' REW00019 SA DS 18F REW00020 END REW00021 -FILE 418; 117 RECORDS: 0IHCLOGIC START 0 IHCL0001 ENTRY AND,LAND,OR,LOR,XOR,LXOR,COMPL,LCOMPL,SHFTL,SHFTR IHCL0002 * IHCL0003 * IHCL0004 *CALLING SEQUENCE IHCL0005 * LA S,SAVLOC IHCL0006 * LA A,ARGLST IHCL0007 * L L,=V(FCN) IHCL0008 * BALR R,L IHCL0009 * SAVLOC IS THE LOCATION OF A REGISTER STORAGE AREA, IHCL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * IHCL0108 TEMP DS F IHCL0109 ALLONES DC F'-1' IHCL0110 EXNR NR 0,1 IHCL0111 EXOR OR 0,1 IHCL0112 EXXR XR 0,1 IHCL0113 EXSLL SLL 0,0(1) IHCL0114 EXSRL SRL 0,0(1) IHCL0115 SWITCH DS X IHCL0116 END IHCL0117 -FILE 419; 77 RECORDS: 0DCVC TITLE '******USER''S ARU DCV INTERFACE******' DCVC0001 DCVC CSECT DCVC0002 SPACE 2 DCVC0003 *********************************************************************** DCVC0004 * * DCVC0005 *ENTRY: R1 POINTS TO FIVE FULL WORD ADCONS - * DCVC0006 * 1. ADDRESS OF 16 HALFWORDS. THE FIRST HALFWORD SHOULD HAVE * DCVC0007 * THE VALUE "1" IF THE STAT BIT IS TO BE SET; ZERO OTHERWISE. * DCVC0008 * THE SECOND THROUGH 16TH HALFWORDS SHOULD CONTAIN THE VALUES * DCVC0009 * OF THE AG FN FOR FILTERS 1 ... 15 RESPECTIVELY. * DCVC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AH R6,0(0,R5) DCVC0068 STH R6,0(0,R5) DCVC0069 RTRN DCVC0070 DS 0F DCVC0071 STAT0 DC X'000000' DCVC0072 STAT DC X'00' DCVC0073 BUFFP DC F'0' DCVC0074 EQUS DCVC0075 END DCVC0076 END DCVC0077 -FILE 420; 133 RECORDS: 0DCVD TITLE '******USER''S ARU DCV INTERFACE******' DCVD0001 DCVD CSECT DCVD0002 SPACE 2 DCVD0003 *********************************************************************** DCVD0004 * * DCVD0005 *ENTRY: R1 POINTS TO FIVE FULL WORD ADCONS - * DCVD0006 * 1. ADDRESS OF EBCDIC WORD OR DCV. * DCVD0007 * 2. THE ADDRESS OF THE HALFWORD LENGTH OF THE WORD OR * DCVD0008 * THE ADDRESS OF THE HALFWORD NEGATIVE LENGTH OF THE DCV.* DCVD0009 * THE LENGTH SHOULD BE ZERO FOR SUBSEQUENT ENTRIES ON THE* DCVD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTORG DCVD0124 VAGF DSECT DCVD0125 AGF DS 16H DCVD0126 VEXF DSECT DCVD0127 EXF DS 25F DCVD0128 VEXFC DSECT DCVD0129 EXFC DS H DCVD0130 EQUS DCVD0131 BUFF EQU BUFFP DCVD0132 END DCVD0133 -FILE 421; 319 RECORDS: 0INT1 TITLE 'INTERPRETER FOR MTS TEST MACROS VERSION 25APRIL1967' TSTI0001 @TESTITP CSECT TSTI0002 PRINT DATA TSTI0003 USING *,15 TSTI0004 STM 12,1,@TESTTMP TSTI0005 LR 12,15 TSTI0006 USING @TESTITP,12 TSTI0007 DROP 15 TSTI0008 BC 0,@TESTELC EXECUTE FOLLOWING CODE ON FIRST TSTI0009 MVI *-3,X'F0' ENTRY ONLY TSTI0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 8F TSTI0310 DC C'0123456789ABCDEF' TSTI0311 @TESTSAR DS 18F TSTI0312 @TESTSAV DS 18F TSTI0313 @TESTEFS DC X'FFFFFFFC' TSTI0314 @TESTR14 DS F TSTI0315 DC C' ' TSTI0316 DC C' ' TSTI0317 @TESTOUT DS CL131 TSTI0318 END TSTI0319 -FILE 422; 69 RECORDS: 0REW# TITLE 'INTERNAL FORTRAN SUBROUTINE TO REWIND A FILE OR TAPE' REW#0001 REWIND# START 0 REW#0002 ENTER 12,SA=SA SET UP REGISTERS REW#0003 CALL GDINFO,MF=(E,(1)) REGISTERS ALREADY SET UP FOR GDINFO REW#0004 LTR 15,15 LEGAL CALL REW#0005 BNE ERROR NO JUST PASS IT ON REW#0006 L 2,0(0,1) GET FDUB POINTER REW#0007 L 3,FDUBBL(0,2) RESET LINE NUMBER FOR ANYTHING REW#0008 S 3,FDUBIL(0,2) SUBTRACT INCREMENT REW#0009 ST 3,FDUBCL(0,2) TO GET NEW LINE NUMBER REW#0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CODE DC F'2' (RE)SET WRITE POINTER REW#0060 INDEXOP EQU X'20' ONE MEANS INDEXED READ OR WRITE REW#0061 FDUBS EQU 0 LOCATION OF SWITCHES IN FDUB REW#0062 FDUBFCB EQU 4 POINTER TO FCB REW#0063 FDUBBL EQU 8 REW#0064 FDUBCL EQU 12 REW#0065 FDUBIL EQU 20 LOCATION OF INCREMENT IN FDUB REW#0066 FDUBSCR EQU 28 LOCATION OF KIP'S SCRATCH WORD REW#0067 FCBDSO EQU 49 DATA SET ORGANIZATION REW#0068 END REW#0069 -FILE 423; 78 RECORDS: 0SPIE TITLE 'PROGRAM TO SIMULATE OS/360 SPIE MACRO IN MTS' SPIE0001 SPIE START 0 SPIE0002 USING *,15 SPIE0003 STM 14,5,SAVE ENTRY FROM SPIE MACRO IN USER'S PROGRAM SPIE0004 LR 5,15 SPIE0005 DROP 15 SPIE0006 USING SPIE,5 SPIE0007 MVC SAVE+12(4),PIE RETURN ADDRESS OF OLD PICA SPIE0008 LTR 1,1 IS IT A RESET ENTRANCE SPIE0009 BZ RESET YES SPIE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MVI PGNTSV,X'FF' SPIE0069 NI PIE,X'7F' SPIE0070 B RESTART GO BACK TO INTERRPUTED PROGRAM SPIE0071 * SPIE0072 * DATA SPIE0073 SAVE DS 8F SPIE0074 PIE DC 8F'0' PROGRAM INTERRUPT ELEMENT SPIE0075 PGNTSV DS 18F MTS PGNTTRP SAVE AREA SPIE0076 LTORG SPIE0077 END SPIE0078 -FILE 424; 7235 RECORDS: 0IOH TITLE ' IOH 360 --- CHARLIE BENET' IOH00001 SPACE 3 IOH00002 * IIIIIIIIIIII OOOOOOOOOOOO HH HH IOH00003 * IIIIIIIIIIII OOOOOOOOOOOO HH HH IOH00004 * IIII OO OO HH HH IOH00005 * IIII OO OO HH HH IOH00006 * IIII OO OO HH HH IOH00007 * IIII OO OO HH HH IOH00008 * IIII OO OO HHHHHHHHHHHH IOH00009 * IIII OO OO HHHHHHHHHHHH IOH00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(SLIENO) IOH07226 DC A(*+4) IOH07227 DS A IOH07228 DC V(SERCOM) IOH07229 SLIENO DS A IOH07230 SCS DS H IOH07231 DC X'00' IOH07232 SERMODS DC A(0) IOH07233 DC A(0) IOH07234 END IOH07235 -FILE 425; 214 RECORDS: 0FPC TITLE 'FLOATING POINT CONVERTER --- 7090 TO 360' FPC00001 #FPCON START FPC00002 COPY APF FPC00003 EJECT FPC00004 ENTRY E7090 ENTRY FOR E-TYPE CONVERSION FPC00005 ENTRY D7090 ENTRY FOR D-TYPE CONVERSION FPC00006 ENTRY E7090P ENTRY FOR E-TYPE CONVERSION (6 BITS/BYTE) FPC00007 ENTRY D7090P ENTRY FOR D-TYPE CONVERSION (6 BITS/BYTE) FPC00008 SPACE 2 FPC00009 E7090 STM 14,12,12(13) FPC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SINSW EQU X'40' FPC00205 BCD EQU X'20' FPC00206 DS 0F FPC00207 HIGHEST DC X'10000000' FPC00208 MANSAVE DC F'0',F'0' SECOND WORD SHOULD NEVER CHANGE FPC00209 SAVAR DS 18A FPC00210 TESTFULL TM =X'03',0 FPC00211 TESTOV TM =X'80',0 FPC00212 MOVER MVC 1(0,2),MANSAVE FPC00213 END FPC00214 -FILE 426; 12 RECORDS: 0DMNT TITLE 'LIBRARY SUBROUTINE INTERFACE FOR *DISMOUNT ' DMSR0001 DISMOUNT CSECT DMSR0002 ENTRY DISMNT DMSR0003 USING *,15 DMSR0004 DISMNT ST 1,USERPAR PARAMETERS FOR DISMOUNT DMSR0005 LA 1,PARS PARAMETERS FOR CALL TO LINK DMSR0006 L 15,=V(LINK) GET *DISMOUNT DMSR0007 BR 15 BRANCH DIRECTLY TO LINK (RETURNS TO CALLING PROGRAM) DMSR0008 PARS DC A(CDMNT,0) DMSR0009 USERPAR DS F PARAMETER LIST FOR SUBROUTNE DMSR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CDMNT DC C'*DISMOUNT ' DMSR0011 END DMSR0012 -FILE 427; 11 RECORDS: 0MNT TITLE 'LIBRARY SUBROUTINE INTERFACE FOR *MOUNT' MNSR0001 MOUNT CSECT MNSR0002 USING *,15 MNSR0003 ST 1,USERPAR PARAMETERS FOR MOUNT MNSR0004 LA 1,PARS PARAMETERS FOR CALL TO LINK MNSR0005 L 15,=V(LINK) GET *MOUNT MNSR0006 BR 15 BRANCH DIRECTLY TO LINK (RETURNS TO CALLING PROGRAM) MNSR0007 PARS DC A(CMOUNT,0) MNSR0008 USERPAR DS F PARAMETER LIST FOR SUBROUTNE MNSR0009 CMOUNT DC C'*MOUNT ' MNSR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END MNSR0011 -FILE 428; 656 RECORDS: 0QSAM TITLE 'UNIVERSITY OF MICHIGAN MTS QSAM INPUT/OUTPUT ROUTINES' QSAM0001 *********************************************************************** QSAM0002 * * QSAM0003 * MACROS * QSAM0004 * * QSAM0005 *********************************************************************** QSAM0006 SPACE 1 QSAM0007 MACRO QSAM0008 INIT &A QSAM0009 Q&A STM 14,12,12(13) SAVE REGISTERS QSAM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> T1 DS 5F TEMPORARY FOR DIRTY WORK QSAM0647 T2 DS D DITTO QSAM0648 SPACE 1 QSAM0649 ERMSGL DS H ERROR MESSAGE LENGTH QSAM0650 ERMSGA DS 100CL1 ERROR MESSAGE TEXT QSAM0651 SPACE 1 QSAM0652 SRLD DC C'SRL00000' QSAM0653 SRLDL DC H'8' QSAM0654 SPACE 2 QSAM0655 END QSAM0656 -FILE 429; 140 RECORDS: 0%INPUT DSR.QSAM 100 %OUTPUT -QSAM %DELETE QSAM0030,3 L R14,UCBNAME LH R15,0(0,R14) EX R15,B&SYSNDX LA R14,ERMSGA+19(R15) LA R15,L&SYSNDX+19(0,R15) %DELETE QSAM0037 A&SYSNDX MVC 0(L&SYSNDX,R14),M&SYSNDX >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CNTRLH ERMSG 'RC>0 FROM "REWIND#"9' EXIT 4 %DELETE QSAM0530 UCBNAME DS F ADDRESS OF NAME BUFFER %AFTER QSAM0540 UCBDEVMS DS F MAXIMUM RECORD LENGTHS FROM GDINFO UCBTYPEI DS XL1 TYPE INDEX FROM GDINFO UCBSWS DS XL1 SWITCHES FROM GDINFO %BEFORE FILEMARK %END -FILE 430; 85 RECORDS: 0SKIP START SKIP0001 SAVE (14,12),T,SKIP SKIP0002 BASR 12,0 SKIP0003 USING *,12 SKIP0004 LM 3,5,0(1) SKIP0005 ST 13,REG13 TUCK 13 AWAY SKIP0006 LA 13,SAVAR GET NEW WORK SPACE SKIP0007 L 3,0(3) GET NUMBER OF FILES SKIP0008 L 4,0(4) AND THE NUMBER OF RECORDS SKIP0009 MVC FDUB(4),0(5) GET INFO ABOUT DSRN SKIP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MODS DC F'128' SKIP0076 LINE DC F'0' SKIP0077 UNIT DS F SKIP0078 SAVAR DS 18F SKIP0079 REG13 DS F SKIP0080 DS 0F SKIP0081 FDUB DC C' ' SKIP0082 SUB DS F SKIP0083 GOTTEN DS F SKIP0084 END SKIP0085 -FILE 431; 134 RECORDS: 0GRJL TITLE 'GREGORIAN TO JULIAN TIME CONVERSION--13 JUN 69' GRJL0001 *********************************************************************** GRJL0002 * * GRJL0003 * GRGJULTM * GRJL0004 * * GRJL0005 * ON ENTRY, GR0 THROUGH GR3 CONTAIN THE GREGORIAN DATE AND TIME* GRJL0006 * IN THE FORM HH:MM.SSMM-DD-YY. * GRJL0007 * * GRJL0008 * ON EXIT, GR0 AND GR1 CONTAIN THE JULIAN TIME IN MICR- GRJL0009 * SECONDS SINCE 00:00.00 ON 03-01-00 GRJL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DUMMY SECTION FOR USER SAVE AREA * GRJL0125 * * GRJL0126 *********************************************************************** GRJL0127 SPACE 5 GRJL0128 SAVE DSECT GRJL0129 DS 5A GRJL0130 TIME DS CL8 GRJL0131 DATE DS CL8 GRJL0132 SPACE 5 GRJL0133 END GRJL0134 -FILE 432; 13 RECORDS: 0SYM GRGJULTMh DATECONV>DT1DT2HGRGJULDTGRJL0001 SYM h}GRJLPSCTeDOUBLEhh hhhGRJL0002 SYM hhhhåhSAVEH cTGRJL0003 SYM  IMEcDATE GRJL0004 ESD GRGJULTM SGRGJULDTH GRJLPSCTY  GRJL0005 TXT  }0{Y^{ 2^}|^<^2^}|^2^}|^GRJL0006 TXT <^2^}|^2^}|^2^}|^^{>ٺ0{$GRJL0007 TXT ^ *^)^ ߥƺ*^{{^*GRJL0008 TXT y ^j^{!^;^{{B!^q} }00 Y^0{^ö0GRJL0009 TXT \  { GRJL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT 0  r  ~ GRJL0011 RLD  }  GRJL0012 END DATE 10-08-69 01:48 GRJL0013 -FILE 433; 173 RECORDS: 0JLGR TITLE 'JULIAN TO GREGORIAN TIME CONVERSION--13 JUN 69' JLGR0001 *********************************************************************** JLGR0002 * * JLGR0003 * JULGRGTM * JLGR0004 * * JLGR0005 * ON ENTRY, GR0 AND GR1 CONTAIN THE JULIAN TIME IN MICRO-SEC. JLGR0006 * * JLGR0007 * ON EXIT, GR2 AND GR3 CONTAIN THE GREGORIAN DATE IN THE FORM * JLGR0008 * MM-DD-YY, AND GR0 AND GR1 CONTAIN THE TIME OF DAY IN THE FORM* JLGR0009 * HH:MM.SS. * JLGR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DUMMY SECTION FOR USER SAVE AREA * JLGR0164 * * JLGR0165 *********************************************************************** JLGR0166 SPACE 5 JLGR0167 SAVE DSECT JLGR0168 DS 5A JLGR0169 TIME DS CL8 JLGR0170 DATE DS CL8 JLGR0171 SPACE 5 JLGR0172 END JLGR0173 -FILE 434; 20 RECORDS: 0SYM JULGRGTMh TIMECONVCVDTIME@DATECONVJLGR0001 SYM SAMEYEAREXITNODATE JULGRGDThJULGRGTJLGR0002 SYM UhԥJLGRPSCTeDOUBLEdFUDGEeFUDGE2hJLGR0003 SYM hhhhhhhhhJLGR0004 SYM hhh<h&SAVEH cTIMEcJLGR0005 SYM DATE JLGR0006 ESD JULGRGTM *JULGRGDT JULGRGTU  JLGR0007 ESD  JLGRPSCT- JLGR0008 TXT  }0{-^{ ;^ {{!^!^)^ƶ)^+^3}JLGR0009 TXT ^o0}Ό{)^ƥ)^+^3}^o0}+^3}^JLGR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT o0}k:}k.}ΌA)^*^*^$^)^ JLGR0011 TXT y ʥ^}{$^ + ^3}^o0}+^3}^o0}*^ JLGR0012 TXT \ )^+^3}^o0}k-}k-}q }K}^0{ }00 -JLGR0013 TXT  ^0{^0{@ }00 -^0{^;^{A!^!^)^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LOOPND BCT 6,LOOP RETURN TO SHIFT AGAIN COLB0153 LM 2,7,28(13) FINISHED - RESTORE REGISTERS COLB0154 SR 15,15 RETURN CODE OF 0 COLB0155 BCR 15,14 RETURN TO CALLING PROGRAM COLB0156 SAVE DS 18F COLB0157 REGION DS 80H COLB0158 LINENO DS 1F COLB0159 UNIT DS F COLB0160 NUMB DC FL.8'10,9,8,7,6,5,4,3,2,1,11,12' COLB0161 END COLB0162 -FILE 436; 31 RECORDS: 0 INTEGER FUNCTION JULDAY(J,K,I) CJDT0001 C CJDT0002 C * FUNCTION TO CONVERT A CALENDAR DATE TO A JULIAN DATE CJDT0003 C * K=DAY OF MONTH E.G. 1,2,3,...,31 CJDT0004 C * J=MONTH I.E. 1=JANUARY, 2=FEBRUARY, ... , 12=DECEMBER CJDT0005 C * I=YEAR E.G. 1763,1849,1967,... CJDT0006 C CJDT0007 JULDAY=K-32075+1461*(I+4800+(J-14)/12)/4+367*(J-2-(J-14)/12* CJDT0008 X 12)/12-3*((I+4900+(J-14)/12)/100)/4 CJDT0009 RETURN CJDT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L=L-(146097*N+3)/4 CJDT0022 I=4000*(L+1)/1461001 CJDT0023 L=L-1461*I/4+31 CJDT0024 J=80*L/2447 CJDT0025 K=L-2447*J/80 CJDT0026 L=J/11 CJDT0027 J=J+2-12*L CJDT0028 I=100*(N-49)+I+L CJDT0029 RETURN CJDT0030 END CJDT0031 -FILE 437; 147 RECORDS: 0C ANALYSIS OF COVARIANCE SLNC0001 C TESTING HYPOTHESIS THAT SLOPE OF REGRESSION LINE IS THE SAME FOR ALL SLNC0002 C POPULATIONS FROM WHICH GROUPS WERE SELECTED SLNC0003 C MAXIMUM OF 1000 OBSERVATIONS PER LEVEL, 20 LEVELS PER FACTOR,1FACTOR SLNC0004 DIMENSION SX(20), SXS(20), SY(20), SYS(20),SXY(20), XBAR(20), SLNC0005 1 YBAR(20), CXX(20),CXY(20), CYY(20), A(20),B(20) SLNC0006 DIMENSION FMT (80),TITLE(20),NOBS(20) SLNC0007 1 FORMAT (20A4) SLNC0008 DATA TITLE/20*' '/ SLNC0009 C A NEW ANALYSIS OF COVARIANCE SLNC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 112 FORMAT(1H0, 'ANALYSIS COMPLETED.') SLNC0138 GO TO 4 SLNC0139 31 WRITE(6,114) SLNC0140 114 FORMAT('0','ANALYSIS COMPLETED BECAUSE ONLY 1 GROUP') SLNC0141 GO TO 4 SLNC0142 999 CONTINUE SLNC0143 WRITE(6,113) SLNC0144 113 FORMAT(1H1) SLNC0145 STOP SLNC0146 END SLNC0147 -FILE 438; 186 RECORDS: 0C ZEROS OF POLYNOMIALS BY BAIRSTOW'S METHOD POLY0001 POLY0002 C WILSON BAKER - MATH - UBC POLY0003 POLY0004 C REVISED TO FORTRAN 2, JAN/63 POLY0005 POLY0006 C REVISED TO FORTRAN IV AUGUST/64. POLY0007 POLY0008 C REVISED TO /360 FORTRAN IV APRIL 1969 POLY0009 C BY D. PERVIS AND L. HORVATH. POLY0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> POLY0177 S=A(3)*Z POLY0178 POLY0179 J=2 POLY0180 POLY0181 GO TO 25 POLY0182 POLY0183 2000 STOP POLY0184 END POLY0185 POLY0186 -FILE 439; 9 RECORDS: 0C FORTRAN IV FUNCTION RANDLN RNDL0001 C LEN HORVATH MAY, 1969. RNDL0002 C RNDL0003 FUNCTION RANDLN(T,AMEAN,SIGMA) RNDL0004 IF(T.EQ.0.0) GO TO 100 RNDL0005 R=RANDN(T) RNDL0006 100 RANDLN=EXP(AMEAN+SIGMA*RANDN(0.0)) RNDL0007 RETURN RNDL0008 END RNDL0009 -FILE 440; 196 RECORDS: 0PLCL TITLE 'PLCALL, PLCALLF, PLCALLE, PLCALLD, PL1RC, AND PL1ADR--P1PLCL0001 L/I LINK TO THE REST OF THE WORLD--8 DEC 69' PLCL0002 *********************************************************************** PLCL0003 * * PLCL0004 * PLCALL * PLCL0005 * * PLCL0006 * ON ENTRY, GR1 POINTS TO AN N+2 WORD PARAMETER LIST. * PLCL0007 * * PLCL0008 * WORD1 POINTS TO THE ADDRESS OF THE PROCEDURE TO BE * PLCL0009 * CALLED. * PLCL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BR R14 PLCL0187 SPACE 5 PLCL0188 ENTRY PL1ADR PLCL0189 PL1ADR L R15,4(,R1) ADDRESS FOR VALUE PLCL0190 L R1,0(,R1) ADDRESS OF ARGUMENT PLCL0191 ST R1,0(,R15) PLCL0192 BR R14 PLCL0193 SPACE 5 PLCL0194 PAR DSECT PLCL0195 END PLCL0196 -FILE 441; 97 RECORDS: 0MSG TITLE '******DBS''S MESSAGE ROUTINE******' MSG00001 MSG CSECT MSG00002 SVE MSG00003 LR R10,R1 SAVE A(PARM'S) MSG00004 LA R0,MSGERR SET TRAP MSG00005 MVI BUFF,X'00' MSG00006 LA R1,BUFF MSG00007 L R15,=V(PGNTTRP) MSG00008 BASR R14,R15 MSG00009 C R15,UNIT MSG00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0H MSG00088 MSGE1 DC AL2(LMSGE1),C' ****MSG PARAMETER ERROR****' MSG00089 LMSGE1 EQU *-(MSGE1+2) MSG00090 DS 0H MSG00091 MSGE2 DC AL2(LMSGE2),C' ****ERROR****' MSG00092 LMSGE2 EQU *-(MSGE2+2) MSG00093 BUFF DS 19D MSG00094 EQUS MSG00095 MERRCOM EQU X'80' MSG00096 END MSG00097 -FILE 442; 785 RECORDS: 0ESD SUPER  {EBCASC  ASCEBC   UMPS0001 ESD CHGFLG  EXTINT  SVCINT 8  UMPS0002 ESD PRGINT  IOINT < ISUPER   UMPS0003 ESD ADBUF  TOQ  ADTOD y  UMPS0004 ESD LCCNT  PAGECHN  NRFRPGS   UMPS0005 ESD MINFRPGS\ BIGJTH  WRTFRPGS  UMPS0006 ESD SVERR6 Y RESSIZE @ TOTPGS   UMPS0007 ESD POQ  POQE  PIQ @  UMPS0008 ESD PICQ d RPQ h PGTBL1   UMPS0009 ESD SVCAEND { SVBASE  ASPCB   UMPS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT q -- -.VTOC0089 TXT } . VTOC0090 TXT U -K K-ʥ-&}& &ʥʥVTOC0091 TXT  &}5&-q30 VTOC0092 TXT  & yڭK-}} QK- k-K- MO--&-}VTOC0093 TXT &&  }1 { 0 VTOC0094 TXT ^  0 o-8 VTOC0095 RLD hjr~zA* VTOC0096 RLD <&  VTOC0097 END DATE 02-07-70 01:28 VTOC0098 -FILE 443; 1342 RECORDS: 0IEKA TITLE 'MTS FORTRAN H COMPILER - FORTRAN SYSTEM DIRECTOR' AA000001 IEKAA00 CSECT AA000002 * AA000003 * AA000004 *FUNCTION/OPERATION--THIS MODULE PROCESSES PARAMETERS, INITIALIZES TEXT AA000005 * AND DICTIONARY, ALLOCATES TEXT AREA TO ALL PHASES, CALLS EACH PHASE AA000006 * IN TURN, AND RECEIVES CONTROL IN CASE OF DISASTEROUS ERROR. AA000007 * AA000008 *ENTRY POINTS--SIX ENTRY POINTS AS FOLLOWS- AA000009 * AA000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HOUR EQU PAGEHEAD+72 AA001333 YEAR EQU HOUR+20 AA001334 SPACE 3 AA001335 IEKAER CSECT AA001336 ERLGTH EQU 100 AA001337 DS 200F AA001338 SPACE 3 AA001339 IEKAAA CSECT AA001340 DS 70F AA001341 END AA001342 -FILE 444; 224 RECORDS: 0AA01 TITLE 'MTS FORTRAN H - OPTIONS, DDNAMES, AND PAGE HEADING' AA010001 MACRO AA010002 SGIEK001 &OPTN=,&MAP=,&TYPE=,&PNCH=,&OBLST=,&CODE=,&SRLST=, *AA010003 &LINCNT=,&SZE=,&ID=,&EDIT=,&XREF= AA010004 .* SGIEK001 GENERATES CSECTS TO COMMUNICATE USER OPTIONS AA010005 .* EXEPT THOSE WITH LOGICAL UNITS TO THE FORTRAN H COMPILER. AA010006 LCLA &LNGTH,&BLANK,&ADCON,&KAY,&CMAJOR,&RMAJOR,&CMPLR,&SZMAJ AA010007 .* DEFAULT SIZE IN WORDS AA010008 &BLANK SETA (117800/4) AA010009 &ADCON SETA (2048/4) AA010010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 128F MVD(128) AA010215 SIZMAJ DC F'&SZMAJ' AA010216 DS &CMAJOR.F AA010217 DS 0D AA010218 ENTRY IEKJA4 AA010219 IEKJA4 DS &RMAJOR.F AA010220 MEND AA010221 SGIEK001 OPTN=2,MAP=1,TYPE=0,PNCH=1,OBLST=0,CODE=0,SRLST=1, XAA010222 LINCNT=58,SZE=409600,ID=0,EDIT=0,XREF=1 AA010223 END AA010224 -FILE 445; 149 RECORDS: 0TIMR TITLE 'MTS FORTRAN H - SPECIAL TIMING ROUTINE' TIME0001 IEKATM CSECT TIME0002 * TIME0003 * TIME0004 * COMPILER VERSION --- USES FIOCS FOR I/O TIME0005 * TIME0006 * THIS ROUTINE WILL MAINTAIN TEN TIMES. THE PARAMETER TIME0007 * PASSED WILL SPECIFY THE DESIRED SLOT. TIME0008 * LINKAGE INTO ROUTINE IS VIA THE CALL MACRO. TIME0009 * TIME0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> F384 DC F'384' TIME0140 T16MSECO DC X'00196E28' TIME0141 OUTSAVE DS 1F TIME0142 OUTSAVE2 DC 18F'0' TIME0143 PATTERN DC X'402020202020202020202020214B20202040' TIME0144 CNOP 0,4 TIME0145 BUFFR DC C' * * * * 1 * * ' TIME0146 PBUFFR DC C' MILLI SECONDS' TIME0147 DC C' * * * * * * * *' TIME0148 END TIME0149 -FILE 446; 826 RECORDS: 0TLOA TITLE 'MTS FORTRAN H - LOADER INPUT CARD IMAGE BUILDER' TLOD0001 IEKTLOAD CSECT TLOD0002 * STATUS - CHANGE LEVEL 3 TLOD0003 * TLOD0004 *FUNCTION: THE FUNCTION OF IEKTLOAD IS TO BUILD LOADER INPUT CARD TLOD0005 * IMAGES BY PROCESSING INPUT PARAMETERS AND PLACING THIS TLOD0006 * INFORMATION INTO INTERNAL BUFFERS. WHEN A BUFFER IS FULL TLOD0007 * OR NEEDS TO BE FORCED OUT THE ROUTINE FIOCS IS CALLED TLOD0008 * TO PLACE THE BUFFER IN THE LOAD OR PUNCH DATA SETS TLOD0009 * TLOD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HIGH EQU 2 TLOD0817 NONZERO EQU 7 TLOD0818 LOW EQU 4 TLOD0819 EQUAL EQU 8 TLOD0820 NOTEQUAL EQU 7 TLOD0821 LOWEQUAL EQU 13 TLOD0822 ALWAYS EQU 15 TLOD0823 ********************************************************************** TLOD0824 * TLOD0825 END TLOD0826 -FILE 447; 365 RECORDS: 0FIOC TITLE 'MTS FORTRAN H - I/O PACKAGE' FIOC0001 IEKFIOCS CSECT FIOC0002 * FUNCTION/OPERATION- ALL I/O COMMANDS OF THE FORTRAN H COMPILER FIOC0003 * RESULT IN A CALL TO THIS ROUTINE WHICH IN TURN MAKES A FIOC0004 * REQUEST OF THE CONTROL PROGRAM. FIOC0005 * FIOC0006 * ENTRY POINTS- ONE ENTRY POINT WITH CALLING SEQUENCE AS FOLLOWS FIOC0007 * FIOC0008 * L 15,=V(FIOCS) FIOC0009 * LA 1,PARMLIST FIOC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IHADCB DSECT FIOC0356 DCBSUBR DS 2A ADDRESS OF INPUT AND OUTPUT SUBRS. FIOC0357 DCBDDNAM DS 2A FDUB POINTER AND UNUSED FIOC0358 DCBEODAD DS A END OF DATA FIOC0359 DCBLRECL DS H RECORD LENGTH FIOC0360 DCBOFLGS DC H'0' FLAGS FIOC0361 * BIT 0: OUTPUT WAITING IN BUFFER FIOC0362 * BIT 3: IS OPEN (SAME AS OS) FIOC0363 DCBBUF DS CL1 BUFFER (VARIABLE LENGTH) FIOC0364 END FIOC0365 -FILE 448; 360 RECORDS: 0XREF TITLE 'MTS FORTRAN H - CROSS REFERENCES' XREF0001 IEKXRF CSECT XREF0002 EXTRN IEKAAA XREF0003 EXTRN IEKAAD XREF0004 USING *,15 XREF0005 STM 14,12,12(13) SAVE REGISTERS XREF0006 ST 13,SAVE+4 XREF0007 LA WORK,SAVE XREF0008 ST WORK,8(13) XREF0009 LR 13,WORK XREF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ADXRBUF DC A(IEKXRBUF) XREF0351 NPTR EQU IEKAAA XREF0352 WORK EQU 4 XREF0353 WORK1 EQU 5 XREF0354 WORK2 EQU 6 XREF0355 WORK3 EQU 7 XREF0356 BUFFER EQU 8 XREF0357 ADC EQU 11 XREF0358 INFO EQU 12 XREF0359 END XREF0360 -FILE 449; 56 RECORDS: 0IFPI TITLE 'ROUTINE TO IGNORE A FETCH PROTECTION INTERRUPT' FPI00001 IEKIFPI CSECT FPI00002 * FPI00003 ZERO EQU 0 FPI00004 ARG EQU 1 FPI00005 OLD EQU 4 INST. ADDR. PRIOR TO INTERRUPT FPI00006 ILC EQU 6 INSTRUCTION LENGTH FPI00007 SCRCH EQU 7 FPI00008 BASE EQU 12 BASE REGISTER FPI00009 SAVE EQU 13 CALLING PROGRAM SAVE AREA REGISTER FPI00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> INTPSAVE DS 18F FPI00047 VPGNTTRP DC V(PGNTTRP) FPI00048 AIEKIFPI DC A(IEKIFPI) FPI00049 INTPARM DC A(INTP,INTPSAVE) FPI00050 * FPI00051 TABLE EQU * FPI00052 DC XL69'0404',XL3'0',5X'04',XL3'04',XL4'0',12X'04' FPI00053 DC XL8'0',8X'04',XL8'0',9X'04',X'00040004',XL13'04' FPI00054 DC XL4'04',XL3'04',XL61'04',XL8'04',XL28'04',XL6'0' FPI00055 END FPI00056 -FILE 450; 45 RECORDS: 0FUDG TITLE 'SUBROUTINE TO MAKE FORTRANH SERIALY REUSABLE' FDGE0001 IEKFUDGE CSECT FDGE0002 PRINT NOGEN FDGE0003 ENTER 12,SA=SA FDGE0004 LA 1,CNT NUMBER OF BAD MODULES FDGE0005 LA 2,TBL FDGE0006 LA 3,AREA FDGE0007 TLP LM 4,5,0(2) GET ADDR AND LENGTH FDGE0008 MLP S 5,=F'256' ONE MOVE? FDGE0009 BNP MDN YES FDGE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC V(IEKLGN#),X'000000A8' FDGE0036 DC V(IEKLMA#),X'00000078' FDGE0037 DC V(IEKRF1#),X'000000E0' FDGE0038 DC V(IEKRSL#),X'00000110' FDGE0039 DC V(IEKRSS#),X'00000118' FDGE0040 DC V(IEKP31#),X'000001E0' FDGE0041 CNT EQU (*-TBL)/8 FDGE0042 LTORG FDGE0043 AREA DS XL(X'2E80') FDGE0044 END FDGE0045 -FILE 451; 1127 RECORDS: 0FTN TITLE 'FORTRAN G MODULE IEYFORT RELEASE 16 FOR MTS' IEYF0001 IEYFORT CSECT IEYF0002 *********************************************************************** IEYF0003 * IEYF0004 *FUNCTION/OPERATION. IEYF0005 * THIS MODULE CONTROLS THE OPERATION OF THE FORTRAN IV(G) COMPILER. IEYF0006 * IT INITIALLY RECEIVES CONTROL FROM THE INVOKING PROGRAM, PERFORMS IEYF0007 * APPROPRIATE INITIALIZING FUNCTIONS, THEN TRANSFERS CONTROL TO THE IEYF0008 * FIRST PHASE (IEYPAR). CONTAINED WITHIN THIS MODULE ARE ALL THE IEYF0009 * INPUT/OUTPUT ROUTINES USED BY THE COMPILER, THE DYNAMIC WORK- IEYF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDCARD DSECT IEYF1118 DS CL1 X'02' IEYF1119 ENDHDR DS CL3 C'END' IEYF1120 DS CL1 BLANK IEYF1121 ENDENTRY DS CL3 ENTRY POINT ADDRESS (OPTIONAL) IEYF1122 ENDBLANK DS CL6 BLANK IEYF1123 ENDESDID DS CL2 ESDID IF ENTRY POINT (OPTIONAL) IEYF1124 DS CL12 BLANK IEYF1125 ENDLEN DS CL4 CSECT LENGTH IEYF1126 END IEYFORT IEYF1127 -FILE 452; 1051 RECORDS: 0 ESD IEYROL IEYRD  IEYDBG   ESD BSEXIT 0 BSWORK  RBASE   ESD  INITDB   TXT  TXT  TXT  TXT y  TXT \  TXT   TXT &  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   & TXT   & TXT <  & TXT   & TXT @  & TXT m  & TXT   & TXT D  & RLD   END -FILE 453; 4438 RECORDS: 0 MACRO ART00001 &NAME ACENT &N ART00002 &NAME STM R13+1,R13-1,12(R13) ART00003 BAL R11,CENT ART00004 DC A(&N-START) ART00005 USING &N,R13 ART00006 L R3,ADENT ART00007 LA R11,0(R12,R3) ART00008 USING ARITH+8,R11 ART00009 MEND ART00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(ALOGCD00-ALOGCD) PHI.OR .L*4 ART04429 DC AL1(ALOGCD00-ALOGCD) .AND. ART04430 DC AL1(ALOGCD10-ALOGCD) .NOT. ART04431 DC AL1(ALOGCD05-ALOGCD) LR1.OR .L*4 ART04432 DC AL1(ALOGCD08-ALOGCD) .AND. ART04433 DC AL1(ALOGCD03-ALOGCD) .NOT. ART04434 DC AL1(ALOGCD04-ALOGCD) L*4.OR .L*4 ART04435 DC AL1(ALOGCD07-ALOGCD) .AND. ART04436 DC AL1(ALOGCD03-ALOGCD) .NOT. ART04437 END START ART04438 -FILE 454; 1258 RECORDS: 0 MACRO DOD00001 &NAME DFIXU &LOC DOD00002 &NAME S R3,CSYMBASE DOD00003 STH R3,&LOC(1)+2 DOD00004 AIF (N'&LOC EQ 1).END DOD00005 STH R3,&LOC(2)+2 DOD00006 AIF (N'&LOC EQ 2).END DOD00007 STH R3,&LOC(3)+2 DOD00008 AIF (N'&LOC EQ 3).END DOD00009 STH R3,&LOC(4)+2 DOD00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DOPARMH DC X'00' DOD01249 GASSNSW DC X'00' V0L0 DOD01250 DHIGHEST DC X'00' HIGHEST DONO IN STACK V0L0 DOD01251 * PUTTING OUT END OF DO CODING V0L0 DOD01252 DSTACK DC X'7FFFFFFF',X'00FFFFFF',X'0000000000000000' V0L0 DOD01253 IRGO2 EQU XERRGO2 DOD01254 IRGO3 EQU XERRGO4 DOD01255 IRDO7 EQU XERRDO7 DOD01256 LTORG DOD01257 END DOD01258 -FILE 455; 157 RECORDS: 0 COPY OPTIONS 00000010 R14 EQU 14 00000020 ENTRY DCSTN1 00000030 ENTRY FORMATEX 00000040 ENTRY LENDPROG 00000050 ENTRY INBCDI 00000060 ENTRY OUTBCDI 00000070 ENTRY INFREEI 00000080 ENTRY OUTFREEI 00000090 ENTRY INBCD,OUTBCD,INBIN,OUTBIN,INFREE,OUTFREE 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA 7,0(0,7) 00001480 SH 7,10(0,7) 00001490 BR 7 00001500 DC H'4' 00001510 DS 0F 00001520 FRIOTEMP DC 16X'F0' 00001530 DC H'0' 00001540 DC H'0' 00001550 END DS 0D LAST CARD IN DECK DUMMY 00001560 END 00001570 -FILE 456; 104 RECORDS: 0 MACRO 00000010 &NAME EQUX &ADDR 00000020 ENTRY &NAME 00000030 &NAME EQU &ADDR 00000040 MEND 00000050 SPACE 00000060 FUMMYR CSECT 00000070 SPACE 00000080 DTANH EQUX * 00000090 PRINT ON,NOGEN 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AMIN1 EQUX * 00000950 MAX0 EQUX * 00000960 MIN0 EQUX * 00000970 AMAX0 EQUX * 00000980 AMIN0 EQUX * 00000990 DMAX1 EQUX * 00001000 DMIN1 EQUX * 00001010 TRAPS EQUX * 00001020 BR 14 00001030 END 00001040 -FILE 457; 1268 RECORDS: 0 COPY OPTIONS 00000010 IHCFIOSH CSECT 00000020 TITLE 'IHCFIOSH - OPERATION SYSTEM/360 FORTRAN H I/O' 00000030 *STATUS--CHANGE LEVEL 000 00000040 * 00000050 *FUNCTION/OPERATION--ALL I/O READ AND WRITE AND MANIPULATIVE COMMANDS 00000060 * OF A FORTRAN SOURCE PROGRAM RESULT IN ONE OR MORE ENTRIES INTO THIS 00000070 * ROUTINE, AND IN TURN, FIOCS MAKES AN APPROPRIATE REQUEST OF THE 00000080 * CONTROL PROGRAM. 00000090 * 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STATLOC DS F 00012490 EJECT 00012500 XDSECT DSECT UOW 00012510 PLINES DS F LINES PER PAGE ALLOWED UOW 00012520 PLNCOUNT DS F LINES SO FAR ON CURRENT PAGEUOW 00012530 PPAGES DS F PAGES ALLOWED UOW 00012540 PPGCOUNT DS F PAGES SO FAR UOW 00012550 DS F UOW 00012560 PXCARD DS F UOW 00012570 END 00012575 -FILE 458; 102 RECORDS: 0 MACRO 00000010 UNIT 00000020 GBLA &NOUTILS 00000030 LCLA &COUNT 00000040 &COUNT SETA 8 00000050 .LOOP AIF (&COUNT GT &NOUTILS).END 00000060 &COUNT SETA &COUNT+1 00000070 UNITGEN 00000080 AGO .LOOP 00000090 .END ANOP 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00' UNUSED DEFAULT FIELD 00000930 DC AL2(80) BLKSIZE 00000940 DC B'11000000' RECFM - U 00000950 DC AL1(2) BUFNO 00000960 DC AL2(0) LRECL 00000970 DC F'1' DASD VARIABLE POINTER 00000980 UNIT 00000990 END EQU * 00001000 END 00001010 END 00001020 -FILE 459; 466 RECORDS: 0 MACRO FRM00001 &NAME FERROR &LIST FRM00002 &NAME BALR R14,R9 FRM00003 ERRCODE &LIST FRM00004 MEND FRM00005 COPY OPTIONS FRM00006 EXTRN DEXP FRM00007 EXTRN DLOG FRM00008 EXTRN INBINI,OUTBINI FRM00009 EXTRN XTART FRM00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FSAVE14 DS F FRM00457 FBCNT DC H'0' FRM00458 FHMOVE MVC 0(0,R15),0(R1) FRM00459 FLT DC X'0800000050' FRM00460 FRT DC X'380000004C' FRM00461 FORMCONS DC X'1C1814402800202C0000240048' FRM00462 FSW DS X FRM00463 FMTCHAR DS X FRM00464 LTORG FRM00465 END FORMAT FRM00466 -FILE 460; 1368 RECORDS: 0 MACRO FRC00001 &ADDR DEFSAVE FRC00002 &ADDR LA R13,FVSAVE-FMCNBASE(R15) FRC00003 MEND FRC00004 COPY OPTIONS FRC00005 FORMCONV CSECT FRC00006 PRINT OFF FRC00007 COPY CDEFN FRC00008 STARTA CSECT FRC00009 COPY STARTA FRC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RECLEN DC H'0' FRC01359 INSPNCON DC C'1048576' FRC01360 INDPNCON DC C'4503599627370495' FRC01361 FRIOROUT DS 1F FRC01362 NDEC1 DS 1H V0L1 FRC01363 LTORG FRC01364 ADTBLE EQU TRTBLE+1 FRC01365 FINISH EQU XBOOT FRC01366 ABUFFER EQU XBUFFER FRC01367 END FRC01368 -FILE 461; 721 RECORDS: 0 PRINT ON,GEN FRI00001 COPY OPTIONS FRI00002 ENTRY FRIOTEMP FRI00003 ENTRY FRIOSCAN FRI00004 FRIO TITLE 'RUN TIME INPUT SCAN ROUTINES' FRI00005 *********************************************************************** FRI00006 *********************************************************************** FRI00007 *********************************************************************** FRI00008 * THIS SECTION SCANS THE INPUT FIELD, (IN FORMAT I/O), OR THE FRI00009 * COMPLETE INPUT BUFFER, (IN FREE I/O), TO SET UP THE INPUT FRI00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BAL R5,FREXIT2 GO TO END OF FIELD ROUTINE FRI00712 LM R1,R6,FREXSAVE RESTORE REGISTERS FRI00713 LA R1,1(0,R1) MOVE POINTER PAST DELIMITER FRI00714 CLI 0(R1),C',' IS THIS CHAR A COMMA FRI00715 BC 6,*+8 NO BRANCH AROUND FRI00716 LA R1,1(0,R1) YES POINT TO NEXT CHAR FRI00717 BC 15,FRIOINIT GO TO INITIALIZE SCAN FRI00718 EJECT FRI00719 LTORG FRI00720 END FRI00721 -FILE 462; 2359 RECORDS: 0 MACRO FCN00001 &NAME FOMIT &FN FCN00002 GBLC &FTABA(255) FCN00003 GBLA &FJ FCN00004 LCLA &I FCN00005 &I SETA 0 FCN00006 .LOOP AIF (&I EQ &FJ).END FCN00007 &I SETA &I+1 FCN00008 AIF ('&FN' EQ '&FTABA(&I)').SETUP FCN00009 AGO .LOOP FCN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC 0F'0' FCN02350 CSAVER EQU * FCN02351 COUT EQU * FCN02352 CSN EQU * FCN02353 CSYMBASE EQU * FCN02354 ********* FCN02355 XSAVEFN2 DC 19F'0' FCN02356 XSAVEFN1 DC 19F'0' FCN02357 ONE EQU XFLTONE FCN02358 END FCN02359 -FILE 463; 1045 RECORDS: 0 COPY OPTIONS INO00001 EJECT INO00002 ENTRY GCONT INO00003 ENTRY ISTOP INO00004 ENTRY IPAUS INO00005 ENTRY IBACK INO00006 ENTRY IREWI INO00007 ENTRY IENDF INO00008 ENTRY IREAD INO00009 ENTRY IPUNC INO00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IOLPENDS EQU IOUNIT+2 CHEAP BASTARD INO01036 ILISTCNT EQU IDATACD3+9 INO01037 IMAXUNIT EQU CMAXUNIT INO01038 * IOEND1 DC AL1(IREL1),AL3(XIOEND-START),AL1(IREL1),AL3(XIOERR-START) INO01039 IOEND1 EQU XINPDSRN+4 SAVE SOME SPACE INO01040 INSTLIN EQU XINPDSRN+3 READFMT AND FREE INPUT UNIT INO01041 INSTLOUT EQU XOUTDSRN+3 PRINTFMT AND FREE OUTPUT UNIT INO01042 INSTLPUN EQU XPUNDSRN+3 PUNCHFMT AND FREE PUNCH UNIT INO01043 LTORG INO01044 END INO01045 -FILE 464; 990 RECORDS: 0 MACRO LNK00001 &A REND LNK00002 &A DC 0H'0',X'AA00' LNK00003 MEND LNK00004 MACRO LNK00005 &A RSAVA LNK00006 &A DC 0H'0',X'A0000000' LNK00007 MEND LNK00008 MACRO LNK00009 &A RSTNS &B LNK00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'AC' LNK00981 DC AL1(0) LNK00982 DC Y(*-*) LNK00983 LBARND B *-* LNK00984 LRSTNS DC 0H'0',X'A7',AL1(0),Y(0) LNK00985 LRVARS DC 0H'0',X'A6',AL1(0),Y(*-*) LNK00986 LRVARS1 DC 0H'0',X'A6',AL1(8),Y(*-*) LNK00987 LSAVER2 DS 18F LNK00988 LTORG LNK00989 END LNK00990 -FILE 465; 706 RECORDS: 0 MACRO MN#00001 &NAME FLIST &FN,&MODE MN#00002 GBLC &FTABA(255) MN#00003 GBLA &FJ MN#00004 LCLA &I MN#00005 &I SETA 0 MN#00006 .LOOP AIF (&I EQ &FJ).SETUP MN#00007 &I SETA &I+1 MN#00008 AIF ('&FN' EQ '&FTABA(&I)').END MN#00009 AGO .LOOP MN#00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EJECT MN#00697 MRUPT EQU * MN#00698 USING ZPIE,R1 MN#00699 USING MRUPT,R15 MN#00700 CSNAP INTERRPT,,32 MN#00701 BR R14 MN#00702 DROP R1 MN#00703 DROP R15 MN#00704 LTORG MN#00705 END START MN#00706 -FILE 466; 581 RECORDS: 0 MACRO 00000010 CDEFN 00000020 MEND 00000030 MACRO 00000040 &A ETITLE &B 00000050 PUNCH ' ' 00000060 PUNCH ' '&B'' 00000070 MEND 00000080 MACRO 00000090 &A EMESSAGE &B,&C,&D 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EJECT 00005460 EMESSAGE VA,D,'ILLEGAL DO-PARAMETER,ASSIGNED OR INITIALIZED VX00005463 ARIABLE IN SPECIFICATION' V0L5 00005464 EMESSAGE VA,E,'ATTEMPT TO DIMENSION A CALL-BY-NAME PARAMETER' 00005465 XT ETITLE 'EXTERNAL STATEMENT' 00005470 EMESSAGE XT,0,'INVALID ELEMENT IN EXTERNAL LIST' 00005480 EMESSAGE XT,1,'INVALID DELIMITER IN EXTERNAL STATEMENT' 00005490 EMESSAGE XT,2,'SUBPROGRAMME PREVIOUSLY EXTERNALLED' 00005500 EJECT 00005510 END 00005520 -FILE 467; 1336 RECORDS: 0 TITLE 'RELOCATOR' RLC00001 COPY OPTIONS RLC00002 RCS123 CSECT RLC00003 ENTRY RPH12 RLC00004 ENTRY RPH3 RLC00005 EXTRN END RLC00006 EXTRN MAIN RLC00007 EXTRN XTART RLC00008 PRINT OFF RLC00009 EXTRN CXTART,CXTOP RLC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RPADR1 S R3,RDATBASE RLC01327 THEN DONE RLC01328 RSADRS LA R3,Z5+4 RLC01329 THEN (DO,RPADR1),DONE RLC01330 RSADRD LA R3,Z5+8 RLC01331 THEN (DO,RPADR1),DONE RLC01332 REL45TMP DC X'00' RLC01333 RVGENEQC DC X'00' RLC01334 LTORG RLC01335 END RLC01336 -FILE 468; 1553 RECORDS: 0 MACRO SCN00001 &NAME TEST &SW,&ON,&OFF SCN00002 &NAME TM &SW,X'01' SCN00003 AIF ('&ON' EQ '').A SCN00004 BO &ON SCN00005 MEXIT SCN00006 .A BNO &OFF SCN00007 MEND SCN00008 GBLA &X,&Y SCN00009 COPY OPTIONS SCN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CLI 2(R1),X'01' SCN01544 BNE PLOOP SCN01545 SNAPS STCK,SPEC,4 SCN01546 LA R1,SCARD SCN01547 SR R2,R2 SCN01548 BR R14 SCN01549 SPEC DC X'00000100' SCN01550 .SSN1 ANOP SCN01551 LTORG SCN01552 END SCN01553 -FILE 469; 2066 RECORDS: 0 TITLE '*** MACROS USED IN THIS DECK ***' SPC00001 MACRO SPC00002 &NAME MULTSS SPC00003 LCLA &A SPC00004 &A SETA 24 SPC00005 &NAME DS 0H SPC00006 .A ANOP SPC00007 M R2,TSS+&A SPC00008 &A SETA &A-4 SPC00009 AIF (&A GE 0).A SPC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SR R3,R3 V0L0 SPC02057 ST R3,0(R6,R12) V0L0 SPC02058 LR R7,R9 V0L0 SPC02059 SR R7,R15 V0L0 SPC02060 STH R7,ZVDIME V0L0 SPC02061 GETR R14,TSAVER+16 V0L0 SPC02062 BR R14 V0L0 SPC02063 ******* END OF TDIME2 **************************************V0L0 SPC02064 LTORG SPC02065 END SPC02066 -FILE 470; 128 RECORDS: 0*********************************************************************** 00000002 *********************************************************************** 00000003 * * 00000004 * WATFOR COMPILER - VERSION 0 LEVEL 7 AUGUST 6/68. * 00000005 * * 00000006 *********************************************************************** 00000007 *********************************************************************** 00000008 * 00000009 ******************* 00000010 * FOLLOWING ARE THE DECLARATIONS FOR THE INST PARAMETERS 00000020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .SET2 ANOP 00000980 &VCHECK1 SETA 0 00000990 &VCHECK2 SETA 0 00001000 .VEND ANOP 00001010 AIF ('&CHRMODE' EQ 'BCDIC').SET4 00001020 &VCHECK3 SETA 6 00001030 AGO .VEND1 00001040 .SET4 ANOP 00001050 &VCHECK3 SETA 0 00001060 .VEND1 ANOP 00001070 -FILE 471; 331 RECORDS: 0 TITLE 'DEFINITIONS' CDF00001 R0 EQU 0 CDF00002 R1 EQU 1 CDF00003 R2 EQU 2 CDF00004 R3 EQU 3 CDF00005 R4 EQU 4 CDF00006 R5 EQU 5 CDF00007 R6 EQU 6 CDF00008 R7 EQU 7 CDF00009 R8 EQU 8 CDF00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Z8 EQU ZR8 /*PATCH*/ CDF00322 Z9 EQU ZR9 /*PATCH*/ CDF00323 Z10 EQU ZR10 /*PATCH*/ CDF00324 Z11 EQU ZR11 /*PATCH*/ CDF00325 Z12 EQU ZR12 /*PATCH*/ CDF00326 Z13 EQU ZR13 /*PATCH*/ CDF00327 Z14 EQU ZR14 /*PATCH*/ CDF00328 Z15 EQU ZR15 /*PATCH*/ CDF00329 ZSAVER EQU Z13 /*****PATCH*****/ CDF00330 TITLE ' ' CDF00331 -FILE 472; 863 RECORDS: 0 TITLE 'COMMUNICATIONS REGION' COM00001 CSTART BALR R11,0 COM00002 USING *,R11 COM00003 LA R10,CSAVER COM00004 CLINK1 MSTART COM00005 DROP R11 COM00006 CSTOP BALR R11,0 COM00007 USING *,R11 COM00008 LA R10,CSAVER COM00009 CLINK1 MSTOP COM00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * NEXT 4 HALF WORDS POINT TO DO PARAMETERS COM00854 AIF ('&WATTYPE' EQ 'DISTR').CCN1 COM00855 ORG CSAVER+3900 COM00856 .CCN1 ANOP COM00857 DMAXNEST EQU &DOSTACK COM00858 CDOIOCT DC A(*+88) COM00859 CDOIOST DC 21F'0' COM00860 CDTOPSTK DC A(CDOSTK+DMAXNEST*16) POINTER TO TOP ENTRY COM00861 CDOSTK DC (DMAXNEST+1)X'7FFFFFFF00FFFFFF0000000000000000' COM00862 TITLE ' ' COM00863 -FILE 473; 1921 RECORDS: 0 TITLE 'START AREA' STA00001 * EXECUTION PROGRAMME INTERRUPT MONITOR STA00002 * STA00003 XTIMINT DC 0H'0' STA00004 USING XTIMINT,15 STA00005 MVI XISNRTN+1,X'00' STA00006 BR R14 STA00007 DROP 15 STA00008 USING ZPIE,1 STA00009 USING XRUPT,15 STA00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> XEXP42 LD F0,XEXPLIT STA01912 SDR F2,F2 STA01913 B XCDIV116 STA01914 DROP 15 STA01915 LTORG STA01916 EJECT STA01917 OBJECT DS 0F STA01918 DS &MEMSIZE.C STA01919 SYMBOL DS 0D STA01920 TITLE ' ' STA01921 -FILE 474; 1083 RECORDS: 0 MACRO MAC00001 &ADDR BEGTRACE MAC00002 CNOP 2,4 MAC00003 &ADDR STM 7,8,*+14 MAC00004 L 8,*+6 MAC00005 BALR 7,8 MAC00006 DC V(TRACE) MAC00007 DS 2F MAC00008 MEND MAC00009 MACRO MAC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B XERRUV1 MAC01074 MEND MAC01075 MACRO MAC01076 &NAME XROUTS &NUM MAC01077 &NAME MVC XLAS&NUM+2(2),2(R14) MAC01078 XLAS&NUM LA R15,*-*(R12) MAC01079 CLC XUNDEF(&NUM),0(R15) MAC01080 BNER R14 MAC01081 B XERRUV0 MAC01082 MEND MAC01083 -FILE 475; 39 RECORDS: 0ESD IHCUATBL READ  WRITE  UAT 0001 ESD SERCOM  SCARDS  SPRINT  UAT 0002 ESD  SPUNCH  UAT 0003 TXT  qQ8&UAT 0004 TXT &&UAT 0005 TXT &UAT 0006 TXT y & &UAT 0007 TXT \ ddUAT 0008 TXT  ddUAT 0009 TXT & UAT 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT -   SPIE0008 RLD   - SPIE0009 END SPIE0010 ESD GTIMEST GUINFO  GETT0001 TXT } 0{H&0}&}0،0{{^{0{ ͓{{{GETT0002 TXT 0{ {<D0{ ͌0{o0{-{%{0{*GETT0003 TXT  ͓{{{0{d{D0{ ͓{{!{D}}\} qGETT0004 TXT y  }+-; GETT0005 RLD  h*GETT0006 END DATE 10-26-69 17:37 GETT0007 -FILE 476; 2326 RECORDS: 0$R *MOUNT PAR=S475 9TP *WATFOR* QUIT=YES 'WATFOR MASTER SOURCE' $R *MOUNT PAR=S416 9TP *POOL* RING=IN QUIT=YES 'LP-UPDATE' $EMP NEWATFOR $EMP CDEFN $EMP COMMR $EMP STARTA $EMP WATMAC $EMP WATERR $EMP OPTIONS $EMP WATGRIPES >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $COP *SOURCE* NEWATFOR(LAST+1) LCS LCSYMBOL LDT XTART $ENDFILE $LIST WATMAC $LIS WATERR $R DIAGS SCARDS=WATERR 0=WATGRIPES $RUN *OBJSCAN NEWATFOR *SWAT -FILE 477; 51 RECORDS: 0 TITLE 'WATFOR DIAGNOSTICS EDITOR' WATD0001 * WATD0002 * SCARDS - WATFOR ERROR MESSAGES (AS RECEIVED) WATD0003 * UNIT 0 - OUTPUT FILE TO BE INDEXED BY ERROR CODE WATD0004 * WATD0005 DIAGEDIT CSECT WATD0006 PRINT NOGEN WATD0007 ENTER 10 WATD0008 NC SCARDS BUF,LEN,EXIT=EXIT WATD0009 CLI BUF+1,C'A' CHECK FOR A REAL DIAGNOSTIC WATD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OBF DS CL256 WATD0042 KEY DC F'0' WATD0043 LEN DS H WATD0044 OLEN DS H WATD0045 * WATD0046 P1 EQU 3 WATD0047 P2 EQU 4 WATD0048 QT EQU C'''' WATD0049 MARGIN EQU 8 WATD0050 END WATD0051 -FILE 478; 16 RECORDS: 0SYM DIAGEDITNChԥhƥhhhh  0001 SYM INCDEChhhh{hDhHh 0002 SYM OEXITMVMSGbSBUFbSOBFSbUKEYbYL 0003 SYM  ENcOLENDIAGEDITh0h4h8h 0004 ESD DIAGEDIT GETSPACE SCARDS  0005 ESD WRITE  SYSTEM  0006 TXT } 0s0 &&J1q}ؓ0s4SY 0007 TXT  ČOnAT nZTn-VƵn' 0008 TXT 0 sYʈS n' } sӺ ~S KsVTK 0009 TXT y sXW0s8}SUH ͌00sK~T 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT \   0011 TXT S  0012 TXT 0   0013 RLD { D04 0014 RLD  8  0015 END 0016 -FILE 479; 7567 RECORDS: 0 /* S P L A MEMORY-RESIDENT TRANSLATOR-INTERPRETER FOR STUDENT PL. DAVID B. WORTMAN STANFORD UNIVERSITY JANUARY 1969 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FLUSH: DO WHILE SEEN_BEGIN_MARK; CALL INPUT_CHECK(INPUT); END; EXECUTING,SEEN_BEGIN_MARK,SEEN_DATA_MARK = FALSE; COMPILING = TRUE; END; EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF -FILE 480; 984 RECORDS: 0SPL TITLE 'MTS INTERFACE FOR THE XPL COMPILER SYSTEM (SPL) ' SPL00001 SPACE 10 SPL00002 * (HURRIEDLY) ADAPTED FOR MTS BY: SPL00003 * SPL00004 * DAVID A. TWYVER SPL00005 * UNIVERSITY OF BRITISH COLUMBIA SPL00006 * JANUARY 1969 SPL00007 * SPL00008 EJECT SPL00009 * SPL00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * SPL00975 * SPL00976 MONLINKD DSECT SPL00977 DS 0F SPL00978 ORG MONLINKD+X'68' SPL00979 WHERE DS 1F ADDRESS OF INTERUPT SPL00980 ORG MONLINKD+X'6C' SPL00981 WHY DS 1F REASON FOR INTERUPT SPL00982 EJECT SPL00983 END SPL00984 -FILE 481; 984 RECORDS: 0XPL TITLE 'MTS INTERFACE FOR THE XPL COMPILER SYSTEM (XPL) ' XPL00001 SPACE 10 XPL00002 * (HURRIEDLY) ADAPTED FOR MTS BY: XPL00003 * XPL00004 * DAVID A. TWYVER XPL00005 * UNIVERSITY OF BRITISH COLUMBIA XPL00006 * JANUARY 1969 XPL00007 * XPL00008 EJECT XPL00009 * XPL00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * XPL00975 * XPL00976 MONLINKD DSECT XPL00977 DS 0F XPL00978 ORG MONLINKD+X'68' XPL00979 WHERE DS 1F ADDRESS OF INTERUPT XPL00980 ORG MONLINKD+X'6C' XPL00981 WHY DS 1F REASON FOR INTERUPT XPL00982 EJECT XPL00983 END XPL00984 -FILE 482; 984 RECORDS: 0XPLG TITLE 'MTS INTERFACE FOR THE XPL COMPILER SYSTEM (XPLGO) ' XPLG0001 SPACE 10 XPLG0002 * (HURRIEDLY) ADAPTED FOR MTS BY: XPLG0003 * XPLG0004 * DAVID A. TWYVER XPLG0005 * UNIVERSITY OF BRITISH COLUMBIA XPLG0006 * JANUARY 1969 XPLG0007 * XPLG0008 EJECT XPLG0009 * XPLG0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * XPLG0975 * XPLG0976 MONLINKD DSECT XPLG0977 DS 0F XPLG0978 ORG MONLINKD+X'68' XPLG0979 WHERE DS 1F ADDRESS OF INTERUPT XPLG0980 ORG MONLINKD+X'6C' XPLG0981 WHY DS 1F REASON FOR INTERUPT XPLG0982 EJECT XPLG0983 END XPLG0984 -FILE 483; 1527 RECORDS: 0TRCP TITLE 'TRACE ROUTINE FOR THE STANFORD XPL COMPILER SYSTEM' XTR00001 * XTR00002 * XTR00003 * XTR00004 * THIS PROGRAM PROVIDES A MACHINE LEVEL TRACE OF PROGRAM XTR00005 * EXECUTION. IT IS ACTIVATED BY THE XPL STATEMENT: XTR00006 * XTR00007 * CALL TRACE ; XTR00008 * XTR00009 * AND TERMINATED BY THE XPL STATEMENT: XTR00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' MVO PACKUNPK ' 3C0 XTR01518 DC C'ZAP CP AP SP MP DP ' 3E0 XTR01519 * XTR01520 * XTR01521 * XTR01522 DATAEND DS 0H END OF TRACE ROUTINE DATA AREA XTR01523 * XTR01524 * XTR01525 * XTR01526 END XTR01527 -FILE 484; 93 RECORDS: 0COMPACTIFY: PROCEDURE; DECLARE (I, J, K, L, ND, TC, BC, DELTA) FIXED; DECLARE DX_SIZE LITERALLY '500', DX(DX_SIZE) BIT(16); DECLARE MASK FIXED INITIAL ("FFFFFF"), LOWER_BOUND FIXED, TRIED BIT(1); /* FIRST WE MUST SET THE LOWER BOUND OF THE COLLECTABLE AREA */ IF LOWER_BOUND = 0 THEN LOWER_BOUND = FREEBASE; DO TRIED = 0 TO 1; ND = -1; /* FIND THE COLLECTABLE DESCRIPTORS */ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DECLARE T FIXED, SAVEAREA(3) FIXED; CALL INLINE("90",0,2,SAVEAREA); /* STM 0,2,SAVEAREA */ CALL INLINE("0A",2,6); /* SVC GETELT */ CALL INLINE("50",2,0,T); /* ST 2,T */ CALL INLINE("98",0,2,SAVEAREA); /* LM 0,2,SAVEAREA */ RETURN T/3; END TIME_OF_DAY; -FILE 485; 4221 RECORDS: 0 /* X X CCCCC OOOOO M M X X C C O O MM MM X X C C O O M M M M X X C C O O M M M M X X C O O M M M M XX C O O M M M XX C O O M M X X C O O M M X X C C O O M M >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> /* CLOCK(3) GETS SET IN PRINT_SUMMARY */ CALL PRINT_SUMMARY; END MAIN_PROCEDURE; CALL MAIN_PROCEDURE; RETURN SEVERE_ERRORS; EOF EOF EOF -FILE 486; 1525 RECORDS: 0 /* ANALYZER --- A SYNTAX ANALYSIS AND TABLE BUILDING PROGRAM J. J. HORNING AND W. M. MC KEEMAN STANFORD UNIVERSITY THIS PROGRAM BUILDS TABLES DIRECTLY ACCEPTABLE FOR USE IN THE COMPILER XCOM OR THE PROTO-COMPILER SKELETON INPUT TO ANALYZER MAY BE NEARLY "FREE FORMAT." CARDS WITH THE CHARACTER $ IN COLUMN 1 ARE TREATED AS COMMENT OR CONTROL CARDS, AND LISTED UNCHANGED. THE CHARACTER IN COLUMN 2 IS THE CONTROL >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERROR_COUNT || ' ERRORS WERE DETECTED.'; ELSE OUTPUT = '******************** ... ' || ERROR_COUNT || ' ERRORS WERE DETECTED.'; ITERATION_COUNT = ITERATION_COUNT + 1; IF AMBIGUOUS | CONTROL(BYTE('I')) THEN TROUBLE_COUNT = 0; END; IF AMBIGUOUS THEN CALL PUNCH_PRODUCTIONS; IF CONTROL(BYTE('P')) THEN OUTPUT = 'PUNCHING COMPLETE.'; END; EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF -FILE 487; 122 RECORDS: 0$ X P L G R A M M A R $ $ $ITERATE $PUNCH $ $ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ( , $ $ $ $ $ $OUTPUT -FILE 488; 834 RECORDS: 0 /* SKELETON THE PROTO-COMPILER OF THE XPL SYSTEM W. M. MCKEEMAN J. J. HORNING D. B. WORTMAN INFORMATION & COMPUTER SCIENCE COMPUTER SCIENCE COMPUTER SCIENCE, DEPARTMENT, DEPARTMENT, UNIVERSITY OF STANFORD STANFORD >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CALL PRINT_SUMMARY; END MAIN_PROCEDURE; CALL MAIN_PROCEDURE; RETURN SEVERE_ERRORS; EOF EOF EOF /* -FILE 489; 816 RECORDS: 0LOAD TITLE ' DYNAMIC LOADING ROUTINES' PL1L0001 DYNAMIC# CSECT PL1L0002 SPACE 5 PL1L0003 *********************************************************************** PL1L0004 ENTRY LOAD# PL1L0005 *********************************************************************** PL1L0006 SPACE PL1L0007 USING LOAD#,15 PL1L0008 LOAD# STM 0,14,SAFETY SAVE CALLER'S REGS PL1L0009 MVI LOADSW,LOAD WE ARELOADING PL1L0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LOADTYPE DS 0BL1 LOAD TYPE PL1L0807 RTNREG DS A TO RESTORE REGISTER 14 PL1L0808 SI DS A STORAGE INDEX PL1L0809 CPUTIME DS F CPU TIME TO LOAD PL1L0810 ELTIME DS F ELAPSED TIME TO LOAD PL1L0811 ENDL DS 0D PL1L0812 PTRS EQU FOREPTR PL1L0813 LOADLTH EQU ENDL-LOADLIST TOTAL AMOUNT OF LOAD LIST PL1L0814 SPACE 5 PL1L0815 END PL1L0816 -FILE 490; 46 RECORDS: 0 BALR 10,0 PL1D0001 * THIS ROUTINE SETUPS *PL1DIRECTORY PL1D0002 * SCANS FILE ASKED FOR PL1D0003 * WRITES OUT *PL1DIRECTORY ON UNIT 1 PL1D0004 USING *,10 PL1D0005 LA 13,SA PL1D0006 SPACE 1 PL1D0007 SCARDS FILENAME,EXIT=STOP PL1D0008 LA 1,FILENAME PL1D0009 CALL GETFD PL1D0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ONE DC F'1' PL1D0037 SPACE PL1D0038 SW DC X'0' PL1D0039 DS 0F PL1D0040 OUT DS CL8 PL1D0041 INFO DS 4F PL1D0042 SA DS 18F PL1D0043 LTORG PL1D0044 REG DS 1024F PL1D0045 END PL1D0046 -FILE 491; 23 RECORDS: 0SYM hhhhhhhógIHB0005B 0001 SYM RDLOOPgIHB0006Bh*h-h/hh@ 0002 SYM hhdhhhhhmhh{hDh 0003 SYM Hhh}hMhQWNOTEXThh h 0004 SYM hhhhhRSTSWSTOPgFI 0005 SYM LENAMEcFDUBb*ONEa-SW/H 0006 SYM bOUTC%INFOA@SADhHhh} 0007 SYM  hMhQhhBUREG 0008 ESD  UGETFD  NOTE  0009 ESD SCARDS  READ  WRITE  0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT 0~ЇmUm Č~N~T~O~ 0014 TXT y N~T~RU0~ЇQUQM} Č 0015 TXT \ ~0n~;N~T~K~~20~~ 0016 TXT  * k~;0k~;00~K 0017 TXT &    0018 TXT H  ENDCSIESD 0019 RLD */@dh { 0020 RLD DH   0021 RLD H }M 0022 END 0023 -FILE 492; 278 RECORDS: 0ASM TITLE 'F ASSEMBLER MASTER ROOT SEGMENT--RELEASE VERSION' 00020020 ISEQ 73,80 00040020 *TITLE-ASMGASM- PHASE 'ASM'- MASTER ROOT SEGMENT 00060020 *FUNCTION- PERMANENT RESIDENT PHASE. 00080020 * SAVES CONTROL PROGRAM (O.S. OR INVOKER) REGS. 00100020 * BRANCHES TO ASMGMAC TO INITIATE MACRO GENERATION. 00120020 * RECEIVES CONTROL FROM 'MAC' AT END OF ASSEMBLY, AND RETURNS TO 00140020 * CONTROL PROGRAM. 00160020 * DEFINES DCB'S FOR ALL 8 DATASETS. 00180020 *ENTRY POINT- ASMGASM 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L B0,=A(ASMGASM) 05380020 DROP A 05400020 USING ASMGASM,B0 05420020 MVC PRINTMSG(59),BUFFMESG 05440020 B ABORT1 05460020 BUFFMESG DC CL59' ASMG990I INSUFFICENT MEMORY TO BUFFER UTILX05480020 ITIES.' 05500020 SPACE 3 05520020 LTORG 05540020 END ASMGASM 05560020 -FILE 493; 2199 RECORDS: 0 ICTL 1,71,20 00020020 ISEQ 73,80 00040020 PRINT ON,GEN,NODATA 00060020 BUFF TITLE ' ' 00080020 *********************************************************************** 00100020 * 00120020 * THIS DECK CONTAINS THE BUFFERING ROUTINES FOR ASMG. 00140020 * 00160020 * WRITTEN AUG. 67 BY RENNIE PETERSEN 00180020 * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> &WORK SETA 1 43800020 .USP ANOP 43820020 UCT&WORK DS CL(UCTLNGTH) 43840020 &WORK SETA &WORK+1 43860020 AIF (&WORK LE &MAXUT).USP 43880020 EJECT 43900020 *********************************************************************** 43920020 * AND NOW FOR MY LAST ACT... 43940020 * 43960020 END ASMGBUFF 43980020 -FILE 494; 621 RECORDS: 0FD TITLE 'G ASSEMBLER DIAGNOSTIC PROCESSOR' 00020020 ISEQ 73,80 00040020 SPACE 3 00060020 MACRO 00080020 EPTR &MAXNO GENERATE ERROR POINTERS 00100020 GBLA &GMAXNO MAXIMUM NUMBER OF ERRORS 00120020 LCLA &NBR ERROR NUMBER BINARY 00140020 LCLC &CNBR ERROR NUMBER CHAR 00160020 &NBR SETA 1 00180020 * GENERATED RELATIVE POINTER TABLE 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EMSG 104,12,'COPY CODE NOT FOUND' 12240020 EMSG 105,12,'EOD ON SYSTEM MACRO LIBRARY' 12260020 EMSG 106,08,'NOT NAME OF DSECT OR DXD' 12280020 EMSG 107,04,'INVALID OPERAND' 12300020 EMSG 108,16,'PREMATURE EOD' 12320020 EMSG 109,08,'PRECISION LOST' 12340020 EMSG 110,08,'EXPRESSION VALUE TOO LARGE' 12360020 EFM DC AL1(39,04),C'MESSAGE NOT DEFINED FOR THIS ERROR CODE' 12380020 ENDM DC AL1(0) 12400020 END ASMGFD 12420020 -FILE 495; 824 RECORDS: 0FEX TITLE ' LOAD AND EXECUTE PHASE ' 00020020 ISEQ 73,80 00040020 COPY ASMGSET 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 ASMGFEX CSECT 00140020 R0 EQU 0 00160020 R1 EQU 1 00180020 R2 EQU 2 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'DECIMAL OVERFLOW ' 16300020 DC C'DECIMAL DIVIDE OVERFLOW ' 16320020 DC C'EXPONENT OVERFLOW ' 16340020 DC C'EXPONENT UNDERFLOW ' 16360020 DC C'SIGNIFICANCE EXCEPTION ' 16380020 DC C'FLOATING DIVIDE OVERFLOW ' 16400020 ******* WARNING ******* CONSTANTS ARE CAREFULLY ARRANGED 16420020 * TAMPERING WITH THEIR ORDER IS DANGEROUS 16440020 * WRITTEN BY DAVE POTTER, AUGUST 1967 16460020 END 16480020 -FILE 496; 576 RECORDS: 0FI TITLE ' FI, ESD OUTPUT PHASE ' 00020020 ISEQ 73,80 00040020 COPY ASMGSET 00060020 ASMGFI CSECT 00080020 * * 00100020 * * 00120020 *TITLE 'ASMGFI F ASSEMBLER INTERLUDE PHASE * 00140020 *FUNCTION/OPERATION- * 00160020 * TO WRITE THE EXTERNAL SYMBOL DICTIONARY ON SYSPRINT, SYSPUNCH, * 00180020 * AND/OR SYSGO DATA SETS. THE EXTERNAL SYMBOL TABLE SEGMENTS AND * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NOESD EQU GRC COUNTS THROUGH ESD 11340020 SRPTR EQU GRC 11360020 ADJPTR EQU GRD POINTS TO ESD ADJUSTMENT TABLE 11380020 LADJP EQU SRR POINTS TO LITERAL ADJUSTMENT TABLE 11400020 ACC EQU SP1 ACCUMLATOR 11420020 DSPTR EQU GRY 11440020 INTSUB EQU GRY REGISTER FOR SUBROUTINE SUB 11460020 ADJCT EQU GRY USED TO SEARCH ADJ TABLE FOR A LIT POOL 11480020 SPACE 11500020 END ASMGFI 11520020 -FILE 497; 1019 RECORDS: 0FPP TITLE 'G ASSEMBLER POST PROCESSOR' 00020020 ISEQ 73,80 00040020 COPY ASMGSET 00060020 * 00080020 ASMGFPP START 00100020 PRINT NOGEN 00120020 FDIMEN SRR=3,GRC=8,GRA=9,GRB=10 00140020 PRINT GEN 00160020 SPACE 2 00180020 * * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00' 20200020 ORG 20220020 SQTRTAB3 DC 256X'00' TABLE TO FIND BLANKS 20240020 ORG SQTRTAB3+C' ' 20260020 DC X'FF' 20280020 ORG 20300020 LTORG 20320020 RESBUF DS 0D,XL(XRFSIZ) INTERNAL I/O BUFFERS 20340020 ENDFPP DS 0D 20360020 END ASMGFPP 20380020 -FILE 498; 1602 RECORDS: 0F1 TITLE 'MACRO GENERATOR INITIALIZATION PHASE' 00020020 ISEQ 73,80 00040020 *TITLE-'ASMGF1' (PHASE F1) 00060020 *FUNCTION- INITIALIZATION, INCLUDING... 00080020 * PROCESS INVOKER'S DD NAMES, IF ANY. 00100020 * OPEN ALL NECESSARY DATASETS. 00120020 * GET MAIN STORAGE AND ALLOCATE BUFFER AREAS. 00140020 * INITIALIZE CONSTANTS AND INDICATORS IN COMMON AREA FOR PHASES 00160020 * F1-F3. 00180020 * BUILD HASH TABLE AND CHAINING FOR OP CODES IN GLOBAL DICTIONARY. 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * 31860020 COMMON INSTSET 31880020 * 31900020 GLDEND EQU * TO AVOID UNDEF SYMB ERRORS 31920020 EJECT 31940020 * DCB DSECT 31960020 * 31980020 DCBD DSORG=PS 32000020 EJECT 32020020 END ASMGF1 32040020 -FILE 499; 4186 RECORDS: 0F2 TITLE 'MACRO-GENERATOR EDITING PHASE' 00020020 ISEQ 73,80 00040020 *TITLE-'ASMGF2' (PHASE F2) 00060020 *FUNCTION/OPERATION 00080020 * PROCESSES ALL SOURCE, COPY AND SYSTEM MACRO STATEMENTS INTO EDITED 00100020 * TEXT. GENERATES A GLOBAL DICTIONARY, A LOCAL DICTIONARY FOR THE 00120020 * SOURCE PROGRAM AND ONE LOCAL DICTIONARY FOR EACH MACRO DEFINITION 00140020 * PROCESSED. 00160020 *ENTRY POINTS 00180020 * ASMGF2 REACHED VIA XCTL FROM PHASE IEUF1 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' 83540020 DC X'C00A0B0C0D0E0F101112CACBCCCDCECF' 83560020 DC X'D0131415161718191A1BDADBDCDDDEDF' 83580020 DC X'E0E11C1D1E1F20212223EAEBECEDEEEF' 83600020 FINDEC DC X'00010203040506070809FAFBFCFDFEFF' 83620020 * 83640020 *********************************************************************** 83660020 EJECT 83680020 DCBD DSORG=PS 83700020 END ASMGF2 83720020 -FILE 500; 3133 RECORDS: 0F2A TITLE ' MACRO-GENERATOR DICTIONARY SECTION IN F2 LOAD MODULE' 00020020 ISEQ 73,80 FIND 'EM AND FIX 'EM. 00040020 COPY ASMGSET 00060020 SPACE 1 00080020 ASMGF2A START 00100020 SPACE 2 00120020 *TITLE 'ASMGF2A'... SUBROUTINES FOR ASMGF2 * 00140020 *FUNCTION/OPERATION 00160020 * PROVIDES VARIOUS SUBROUTINES TO BE USED BY MODULE ASMGF2. 00180020 *ENTRY POINTS 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF' 62480020 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' 62500020 DC X'C00A0B0C0D0E0F101112CACBCCCDCECF' 62520020 DC X'D0131415161718191A1BDADBDCDDDEDF' 62540020 DC X'E0E11C1D1E1F20212223EAEBECEDEEEF' 62560020 FINDEC DC X'00010203040506070809FAFBFCFDFEFF' 62580020 *********************************************************************** 62600020 EJECT 62620020 DCBD DSORG=PS 62640020 END ASMGF2A 62660020 -FILE 501; 2534 RECORDS: 0F3 TITLE 'MACRO GENERATOR GENERATION PHASE ' 00020020 ISEQ 73,80 00040020 *TITLE 'ASMGF3'.. MACRO GENERATION * 00060020 *FUNCTION/OPERATION * 00080020 * ASMGF3 EVALUATES CONDITIONAL ASSEMBLY EXPRESSIONS,PERFORMS * 00100020 * CONDITIONAL ASSEMBLY STATEMENTS AND GENERATES ASSEMBLER EDITED * 00120020 * TEXT USING MACRO DEFINITIONS AND THE ASSOCIATED EDITED INFORMATION* 00140020 * IN THE GLOBAL AND RELATED LOCAL DICTIONARIES. * 00160020 *ENTRY POINT- ASMGF3 * 00180020 * CALLED VIA * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ADCBIN DC A(0) 50500020 ADCBLB DC A(0) 50520020 ADCPRNT DC A(0) 50540020 INPLEN DS F SIZE OF INPUT AREA 50560020 OBSIZ DS F SIZE OF OUTPUT 1 AREA 50580020 SAVUSE DS 2F 50600020 BUFFENT DS F ADDRESS OF BUFFERING ROUTINE 50620020 ADLIST1 DS F ADDRESS OF LIST1 IN ASM 50640020 GDSTART DS 0D 50660020 END ASMGF3 50680020 -FILE 502; 1030 RECORDS: 0F7C TITLE 'AC7MLC - F/7 MAIN LINE CONTROL ' 00020020 ISEQ 73,80 00040020 ASMGF7C START 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 SPACE 2 00140020 *TITLE 'ASMGF7C' F/7 MAIN LINE CONTROL * 00160020 *FUNCTION/OPERATION- * 00180020 * PROCESS 'EDITED TEXT RECORDS' WRITTEN BY ASMGF3 * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OI TXSDOC(FRB),X'20' SYMBOL DEFINED IN DSECT OR COM 20420020 * 20440020 SUBWBE OI TXSUBS(FRB),X'10' SET VALUE SUBSTITUTED INDICATOR 20460020 * 20480020 SUBWBX TM TXSLAS(FRB),X'08' TEST FOR LAST SYMBOL W.B. 20500020 BCR 7,CRR RETURN TO CALLING ROUTINE 20520020 LA FRB,6(FRB) INC POINTER TO NEXT SYMB W.B. 20540020 B SUBWBA PROCESS NEXT SYMB W.B. 20560020 LTORG 20580020 END ASMGF7C 20600020 -FILE 503; 1090 RECORDS: 0F7D TITLE 'DC EVALUATION - PHASE 7 --- ' 00020020 ISEQ 73,80 00040020 ASMGF7D START 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 USING *,FRB 00120020 * * 00140020 *TITLE 'ASMGF7D ' ... DC EVALUATION * 00160020 *FUNCTION/OPERATION- * 00180020 * IEUF7D PROCESSES DC'S, DS'S, DXD'S, LITERALS, AND LITERAL DC'S, A * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EVENR EQU GRX 14 21620020 ODDR EQU GRY 15 21640020 R1 EQU WR1 21660020 SAVE EQU GRX 14 21680020 WBPTR EQU GRB 5 21700020 DS EQU X'27' DS OP-CODE 21720020 GR14 EQU 14 21740020 YTYPE EQU ATYPE 21760020 LTORG 21780020 END DCEVL 21800020 -FILE 504; 1184 RECORDS: 0F7E TITLE 'ASMGF7E, EXTERNAL SYMBOL DICTIONARY PROCESSOR' 00020020 ISEQ 73,80 00040020 ASMGF7E CSECT 00060020 PRINT DATA,NOGEN 00080020 FDIMEN 00100020 USING *,FRB 00120020 SPACE 00140020 *TITLE- ASMGF7E EXTERNAL SYMBOL DICTIONARY PROCESSOR * 00160020 *FUNCTION/OPERATION- * 00180020 * GENERATE EXTERNAL SYMBOL DICTIONARY ENTRIES * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END EQU ACC END OF SEGMENT 23500020 ITEMCT EQU GRD ITEMS IN SEGMENT 23520020 TXPTR EQU ACC POINTER TO TEXT 23540020 WBP EQU GRA POINTER TO WKBKT 23560020 LEV1 EQU GRA RETURN LEVEL 1 23580020 LEV2 EQU GRB RETURN LEVEL 2 23600020 LEV3 EQU GRD RETURN LEVEL 3 23620020 ELOOPR EQU GRC LOOP ADDRESS 23640020 SPACE 23660020 END 23680020 -FILE 505; 104 RECORDS: 0F7G TITLE 'DCGETR - F/7 LITERAL DC GENERATION SUBROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF7G START 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF7G ' ... LITERAL DC GENERATION * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF7G BUILDS A LITERAL DC EDITED TEXT RECORD FOR A OUTSTANDING * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL1(IEQUAL) EQUAL SIGN IN OPERAND FIELD 01900020 BLNK DC AL1(IBLANK) 01920020 COML DC X'00' COMMENTS FIELD LENGTH=0 01940020 LOC DC 3X'00' LOCATION COUNTER 01960020 URS DC X'00' UNRESOLVED SYMBOL COUNTER=0 01980020 LES DC X'00' 02000020 ALWRD DC F'0' TEMP FULL WORD 02020020 SAVPTR DC F'0' TEMP SAVE AREA FOR GRX 02040020 CON4 DC H'4' NO. OF LIT DC IN SYMBOL TABLE 02060020 END DCGTR 02080020 -FILE 506; 781 RECORDS: 0F7I TITLE '***F7 INITIALIZATION AND I/O SUBROUTINES-- ***' 00020020 ISEQ 73,80 00040020 MACRO 00060020 &L CKFLG &DUMMY 00080020 *CHECK TEXT READ COMPLETE ROUTINE CALL 00100020 &L BAL GR4,TEXTCK 00120020 MEND 00140020 COPY ASMGSET 00160020 ASMGF7I START 00180020 SPACE 1 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(VCON) 15440020 ORG F7CT3-CT3+CSTROM 15460020 DC A(STROOM) 15480020 ORG F7CT3-CT3+CSTREF 15500020 DC A(STREFR) 15520020 * 15540020 ORG F7CT3+CT3C*4 15560020 ORG , 15580020 SPACE 15600020 END ASMGF7 15620020 -FILE 507; 85 RECORDS: 0F7L TITLE 'LOGERR - F/7 LOG ERROR SUBROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF7L START 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 SPACE 00140020 *********************************************************************** 00160020 * * 00180020 * LOGERR IS CALLED BY ASMGF7 TO BUILD ERROR RECORD OR ADD ERROR * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA GR1,4(GR1,GR1) INC RECORD LENGTH 01520020 STH GR1,TXRL(SP2) 01540020 SPACE 01560020 RETURN LM SP1,SP2,SAVE2 RESTORE REGS 01580020 B 2(SRR) RETURN TO CALLING ROUTINE 01600020 SPACE 01620020 SAVE2 DS 2F SP1,SP2 SAVE AREA 01640020 SAVE4 DS 4F SRB-SP2 SAVE AREA 01660020 SPACE 01680020 END ASMGF7L 01700020 -FILE 508; 611 RECORDS: 0F7N TITLE 'TSTRAN - F/7 TESTRAN ROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF7N START 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 SPACE 2 00140020 *TITLE 'ASMGF7N ', TESTRAN * 00160020 *FUNCTION/OPERATION- * 00180020 * WHEN THE TESTRAN OPTION IS USED,ASMGF7C TRANSFERS CONTROL HERE. * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'14' 12040020 DC X'20' 12060020 DC X'24' 12080020 DC X'2C' 12100020 DC X'28' 12120020 DC X'20' 12140020 TEBFR EQU TTN 12160020 PTR EQU GRZ 12180020 LTORG 12200020 END ASMGF7N 12220020 -FILE 509; 358 RECORDS: 0F7S TITLE ' F7S, SYMBOL TABLE PROCESSOR' 00020020 ISEQ 73,80 00040020 ASMGF7S START 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 SPACE 2 00140020 * * 00160020 *TITLE 'ASMGF7S ' ... SYMBOL TABLE PROCESSOR * 00180020 *FUNCTION/OPERATION- * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'101112131415161718191A1B1C' LETTERS 06980020 DC X'1D1E1F20212223242526272829' LETTERS 07000020 DC X'0A0B0C' FUNNY LETTERS $ # @ 07020020 DC X'000000000000000000000000' BLANK 07040020 SPACE 07060020 FLAGS DC X'00' FLAG FOR FOLLOWIN INDICATORS 07080020 GETSW EQU X'0F' GET MODE 07100020 REFSW EQU X'F0' REF MODE 07120020 PUTSW EQU X'00' PUT MODE 07140020 END STGETR 07160020 -FILE 510; 863 RECORDS: 0F7V TITLE 'PHASE 7 EVALUATION ROUTINE' 00020020 ISEQ 73,80 00040020 ASMGF7V START 00060020 EEVAL EQU ASMGF7V 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 PRINT GEN 00140020 * SP1 AT ENTRY CONTAINS A POINTER TO THE FIRST CHARACTER OF THE 00160020 * EXPRESSION TO BE EVALUATED. 00180020 * SP1 AT EXIT CONTAINS A POINTER TO THE CHARACTER FOLLOWING THE 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDOE DS C END EXPRESSION FLAG 17080020 NEWOP DS C LATEST OPERATION FOUND 17100020 LREF DS C L'SYM REF ON(1) OFF(0) 17120020 NCOMP DS 11F 17140020 SAVE EQU NCOMP 17160020 NPTR DC A(NTRMS) ADDRESS OF NTRMS 17180020 TPTR DC A(TERMS) ADDRESS OF TERMS 17200020 OPTR DC A(OPRNS) ADDRESS OF OPRNS 17220020 COMP1 DC A(RLIST+30) CONST TO CHECK NO. OF TERMS 17240020 END 17260020 -FILE 511; 1123 RECORDS: 0F7X TITLE 'TXGET - F/7 GET STATEMENT ROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF7X START 00060020 SPACE 00080020 PRINT DATA,NOGEN 00100020 FDIMEN 00120020 SPACE 2 00140020 * * 00160020 *TITLE ASMGF7X F7 GET STATEMENT ROUTINE * 00180020 *FUNCTION/OPERATION- * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00' SPACE= 14 22280020 DC X'1C1D0A1B1DA01B' START= 22300020 DC X'01' START= 1B 22320020 DC X'1D121D150E8018' TITLE= 22340020 DC X'00' TITLE= 18 22360020 OPFN DC X'1E1C1217108623' USING= 22380020 DC X'B9' USING= 23 22400020 EJECT 22420020 LTORG 22440020 END ASMGF7X 22460020 -FILE 512; 946 RECORDS: 0F8A TITLE 'F8AOP--F8 ASSEMBLER OPERATOR PROCESSOR' 00020020 ISEQ 73,80 00040020 ASMGF8A START , ASSEMBLER OP PROCESSOR 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF8A ' ... ASSEMBLER OPERATION PROCESSOR * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF8A PROCESSES THE FOLLOWING ASSEMBLER OPERATIONS- PRINT, SPACE,* 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERRASM EQU 100 OPERAND TOO COMPLES(ASSEMBLER ER 18740020 ERROPN EQU 107 OPERAND ERROR 18760020 ERRPNT EQU 107 UNRECOGNIZABLE PRINT PRAMTR 18780020 EREVL EQU AOPRTN EXPRESSION EVALUATION ERROR 18800020 EQUERR EQU ASERRB STATEMENT TOO COMPLEX ERROR 18820020 PPTR EQU GRA PARAMETER TABLE POINTER 18840020 RLDPTR EQU SP1 RLD POINTER 18860020 COUNT EQU GRB COUNTER REGISTER 18880020 KMNOTE EQU X'0E' HEXOP FOR MNOTE 18900020 END 18920020 -FILE 513; 240 RECORDS: 0F8C TITLE 'F8MLC--F8 MAIN LINE CONTROL--CSS/NO INITIALIZATION' 00020020 ISEQ 73,80 00040020 ASMGF8C START , MAIN LINE CONTROL PHASE 8 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF8C ' ... PHASE 8,MAIN LINE CONTROL * 00160020 *FUNCTION/OPERATION- * 00180020 * PROCESS EDITED TEXT RECORDS FROM ASMGF7. CONTROL THE CALLING OF * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COMREC EQU X'20' COMMENT RECORD TYPE 2 04620020 COMGREC EQU X'30' GENERATED COMMENT RECORD TYPE 3 04640020 PROCREC EQU X'40' PROCESS ONLY RECORD TYPE 4 04660020 PCREC EQU X'60' TYPE 2 AND 4 RECORDS 04680020 PCGREC EQU X'70' TYPE 1,2,AND 3 RECORDS 04700020 SOURCE EQU X'70' SOURCE RECORDS 04720020 LITRHEX EQU X'25' HEX OP FOR LITRAL 04740020 ERRWRP EQU 7 LOCATION COUNTER ERROR 04760020 ADBLDMG DC V(BLDIMG) ADDR OF BUILD IMAGE IN F8PRINT 04780020 END ASMGF8C 04800020 -FILE 514; 1064 RECORDS: 0F8D TITLE 'F8 DCEVAL -- DC AND DS EVALUATION' 00020020 ISEQ 73,80 00040020 ASMGF8D START , START OF DCEVAL FOR F8 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF8D ' ... DC AND DS EVALUATION * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF8D PROCESSES DC'S, DS'S, CXD'S, AND LITERAL DC'S. IT PROCESSES* 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * 01=FIRST OPERAND 21100020 * 02=DONT PRINT 21120020 * 08=NOT LAST CONSTANT 21140020 * 10=ZERO DUP FACTOR 21160020 CHTEMP DS CL3 PACKING SWITCH 21180020 HOLDLCTR DS CL3 ALIGNED LOCATION COUNTER 21200020 BYTEX DS C 00=DS, FF= DC, MIXED= LITERAL 21220020 ESDIDSAV DS C SAVE AREA FOR CESDID(ACT) 21240020 LTORG 21260020 END ASMGF8D 21280020 -FILE 515; 576 RECORDS: 0F8I TITLE 'F8/F8IO---F8 INITIALIZATION AND I/O' 00020020 MACRO 00040020 &L CKFLG &DUMMY 00060020 *CHECK TEXT READ COMPLETE ROUTINE CALL 00080020 &L BAL GR4,TEXTCK 00100020 MEND 00120020 COPY ASMGSET 00140020 ASMGF8I START 00160020 TEXTIO EQU ASMGF8I 00180020 PRINT DATA,NOGEN SEE RTSEGA FOR TABLE PRINT 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RD1 DC X'03' BUFFER ONE SWITCHES 11340020 RD2 DC X'00' BUFFER TWO SWITCHES 11360020 OSW DC X'00' 11380020 EOF DC 4X'7F' EOF FOR LAT 11400020 LABPTR DS F POINTER IN LAT 11420020 LALBA DC F'0' LAT LBA 11440020 RLDPTR DC A(RLDBUF+1) POINTER IN RLD 11460020 RLDLBA DC A(RLDBUF+121) END OF RLD BUFFER 11480020 PCCON EQU 4 PRIVATE CODE INDICATOR 11500020 END ASMGF8 11520020 -FILE 516; 103 RECORDS: 0F8L TITLE 'LOGERR - F/8 LOG ERROR SUBROUTINE ' 00020020 ISEQ 73,80 00040020 ASMGF8L START 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 SPACE 00140020 *TITLE 'ASMGF8L ' ... LOG ERROR * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF8L ATTACHES THE ERROR MESSAGE TO AN EDITED TEXT RECORD. IF THE* 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA GR1,4(GR1,GR1) INC RECORD LENGTH 01880020 STH GR1,TXRL(SP2) 01900020 SPACE 01920020 RETURN LM SP1,SP2,SAVE2 RESTORE REGS 01940020 B 2(SRR) RETURN TO CALLING ROUTINE 01960020 SPACE 01980020 SAVE2 DS 2F SP1,SP2 SAVE AREA 02000020 SAVE4 DS 4F SRB-SP2 SAVE AREA 02020020 SPACE 02040020 END ASMGF8L 02060020 -FILE 517; 1042 RECORDS: 0F8M TITLE 'F8MOP--F8 MACHINE OPERATOR PROCESSOR' 00020020 ISEQ 73,80 00040020 ASMGF8M START , MACHINE OP PROCESSOR 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 SPACE 2 00140020 * * 00160020 *TITLE 'ASMGF8M ' ... MACHINE OPERATOR PROCESSOR * 00180020 *FUNCTION/OPERATION- * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERRWRP EQU 7 WRAP AROUND ERROR CODE 20660020 LATP EQU CTXWAP POINTER TO LITERAL ADDRESS TABL 20680020 USNGPP EQU CTXIO3 I/O BUFFER 3 20700020 USNGTP EQU CTXIO4 I/O BUFFER 4 20720020 ERPROC EQU 80 ILLEGAL START CARD 20740020 ERRADR EQU 35 ADDRESSABILITY 20760020 SXTEEN EQU K16 CONSTANT OF 16 20780020 FOR095 EQU K4095 CONSTANT OF 4095 20800020 FOR096 EQU K4096 CONSTANT OF 4096 20820020 END ASMGF8M 20840020 -FILE 518; 489 RECORDS: 0F8N TITLE 'ASSM G - FLOATING-FIXED POINT CONVERSION--- ' 00020020 ISEQ 73,80 00040020 ASMGF8N START , DECIMAL CONVERSION ROUTINE 00060020 PRINT NOGEN 00080020 FDIMEN 00100020 PRINT GEN 00120020 * * 00140020 *TITLE 'ASMGF8N ' ... FIXED-FLOATING POINT CONVERSION * 00160020 *FUNCTION/OPERATION- * 00180020 * TO DO ALL FIXED OR FLOATING POINT CONVERSION FOR DC STATEMENTS. IT* 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'1F' 09600020 DC X'0F' 09620020 MERROR STC ZWRH,DCSW SET ERROR 09640020 BR ZWRG AND RETURN 09660020 ZRCD11 EQU 11 SCALE MODIFIER ERROR 09680020 ZRCD13 EQU 13 EXPONENT MODIFIER ERROR 09700020 ZRCD39 EQU 39 INVALID DELIMITER 09720020 ZRCD70 EQU 70 FLOATING POINT CHARACTERISTIC OUT OF RANGE 09740020 ZRCD109 EQU 109 PRECISION LOST 09760020 END DCNVRT1 09780020 -FILE 519; 882 RECORDS: 0F8P TITLE 'F8PRNT -- ASSEMBLER F, PHASE 8 OUTPUT FORMATTING SR' 00020020 ISEQ 73,80 00040020 ASMGF8P START 00060020 USING RECORD,GRA 00080020 USING MAINLN,FRB FRB IS PRIMARY BASE REGISTER 00100020 PRINT NOGEN 00120020 FDIMEN 00140020 PRINT GEN 00160020 * * 00180020 *TITLE 'ASMGF8P ' ... PRINT * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ERREC EQU INPUT INTERNAL NAME 17460020 ERLI EQU INPUT LGHT VARIES FROM 8 TO 38 BYTES 17480020 EFLAG EQU INPUT+2 FLAG FOR ERROR RECORDS 17500020 NERR EQU INPUT+3 NUMBER OF ERRORAS 17520020 ESTMNT EQU INPUT+4 STATEMENT NUMBER 17540020 ERR1 EQU INPUT+6 1-16 ERR CODES AND PTRS 17560020 RGTHLF EQU INPUT RIGHT HALF 17580020 RLIX EQU RLIA LENGTH 17600020 FLAGX EQU FLAGA FLAG 17620020 END 17640020 -FILE 520; 113 RECORDS: 0F8S TITLE ' IEUF8S, SYMBOL TABLE GET' 00020020 ISEQ 73,80 00040020 ASMGF8S CSECT 00060020 SPACE 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 * * 00140020 *TITLE 'ASMGF8S ' ... SYMBOL TABLE GET * 00160020 *FUNCTION/OPERATION- * 00180020 * ASMGF8S LOOKS UP THE SYMBOL IN THE SYMBOL TABLE AND RETURNS * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 4 02080020 BENCH DS D WORK BENCH 02100020 F0XXX DC F'0' 02120020 SPACE 02140020 CODE2 DC X'30313233343536373839101112131415161718191A1B1C1D1E1F' 02160020 DC X'202122232425262728290A0B0C000000000000000000000000' 02180020 SPACE 02200020 LTORG 02220020 SPACE 02240020 END STGETR 02260020 -FILE 521; 863 RECORDS: 0F8V TITLE 'PHASE 8 EVALUATION ROUTINE' 00020020 ISEQ 73,80 00040020 ASMGF8V START 00060020 EEVAL EQU ASMGF8V 00080020 PRINT NOGEN 00100020 FDIMEN 00120020 PRINT GEN 00140020 * * 00160020 *TITLE 'ASMGF8V ' ... EXPRESSION EVALUATION * 00180020 *FUNCTION/OPERATION- * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NEWOP DS C LATEST OPERATION FOUND 17080020 LREF DS C L'SYM REF ON(1) OFF(0) 17100020 NCOMP DS 11F GENERAL SAVE AREA 17120020 SAVE EQU NCOMP 17140020 NPTR DC A(NTRMS) ADDRESS OF NTRMS 17160020 TPTR DC A(TERMS) ADDRESS OF TERMS 17180020 OPTR DC A(OPRNS) ADDRESS OF OPRNS 17200020 COMP1 DC A(RLIST+30) CONST TO CHECK NO. OF TERMS 17220020 LTORG 17240020 END 17260020 -FILE 522; 417 RECORDS: 0IS00 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS00 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08160020 SUB=NO,F8UPC=NO,MASK=04 08180020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08200020 SUB=NO,F8UPC=YES,MASK=00 08220020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08240020 SUB=NO,F8UPC=NO,MASK=00 08260020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,08280020 SUB=YES,F8UPC=YES,MASK=06 08300020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 08320020 END 08340020 -FILE 523; 445 RECORDS: 0IS01 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS01 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08720020 SUB=NO,F8UPC=NO,MASK=04 08740020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08760020 SUB=NO,F8UPC=YES,MASK=00 08780020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08800020 SUB=NO,F8UPC=NO,MASK=00 08820020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,08840020 SUB=YES,F8UPC=YES,MASK=06 08860020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 08880020 END 08900020 -FILE 524; 233 RECORDS: 0IS20 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS20 INSTSET 00060020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES,MASK=2F 00100020 AH INST OP=4A,TYPE=MACH,CLASS=0,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES 00140020 AP INST OP=FA,TYPE=MACH,CLASS=0,ALIGN=C,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 AR INST OP=1A,TYPE=MACH,CLASS=0,ALIGN=C,FLOAT=NO,EVEN=NO, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,04480020 SUB=NO,F8UPC=NO,MASK=04 04500020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,04520020 SUB=NO,F8UPC=YES,MASK=00 04540020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,04560020 SUB=NO,F8UPC=NO,MASK=00 04580020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,04600020 SUB=YES,F8UPC=YES,MASK=06 04620020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 04640020 END 04660020 -FILE 525; 395 RECORDS: 0IS44 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS44 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,07720020 SUB=NO,F8UPC=NO,MASK=04 07740020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,07760020 SUB=NO,F8UPC=YES,MASK=00 07780020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,07800020 SUB=NO,F8UPC=NO,MASK=00 07820020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,07840020 SUB=YES,F8UPC=YES,MASK=06 07860020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 07880020 END 07900020 -FILE 526; 455 RECORDS: 0IS67 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS67 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08920020 SUB=NO,F8UPC=NO,MASK=04 08940020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,08960020 SUB=NO,F8UPC=YES,MASK=00 08980020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09000020 SUB=NO,F8UPC=NO,MASK=00 09020020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,09040020 SUB=YES,F8UPC=YES,MASK=06 09060020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 09080020 END 09100020 -FILE 527; 459 RECORDS: 0IS85 TITLE ' ' 00020020 ISEQ 73,80 00040020 ASMGIS85 INSTSET 00060020 A INST OP=5A,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00080020 LIT1=NO,LIT23=YES 00100020 B INST OP=47,TYPE=EXTEN,CLASS=1,ALIGN=H,FLOAT=NO,EVEN=NO, ,00120020 LIT1=NO,LIT23=YES,MASK=2F 00140020 C INST OP=59,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=NO, ,00160020 LIT1=NO,LIT23=YES 00180020 D INST OP=5D,TYPE=MACH,CLASS=0,ALIGN=F,FLOAT=NO,EVEN=YES, ,00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE INST OP=14,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09000020 SUB=NO,F8UPC=NO,MASK=04 09020020 START INST OP=1B,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09040020 SUB=NO,F8UPC=YES,MASK=00 09060020 TITLE INST OP=18,TYPE=ASSEM,UPC=NO,STE=NO,LCR=NO,F7XREF=NO, ,09080020 SUB=NO,F8UPC=NO,MASK=00 09100020 USING INST OP=23,TYPE=ASSEM,UPC=YES,STE=NO,LCR=YES,F7XREF=YES, ,09120020 SUB=YES,F8UPC=YES,MASK=06 09140020 GLDEND EQU * THERE MUST BE LESS THAN 2048 BYTES OF INST'S 09160020 END 09180020 -FILE 528; 402 RECORDS: 0MAC TITLE 'MACRO GENERATOR INPUT/OUTPUT INTERFACE' 00020020 ISEQ 73,80 00040020 *TITLE-ASMGMAC- PHASE 'MAC'- MACRO GENERATOR INPUT/OUTPUT INTERFACE * 00060020 *FUNCTION- PHASE 'MAC' PROVIDES THE INTERFACE BETWEEN PHASES 'F1', * 00080020 * 'F2', AND 'F3'. 'MAC' IS BRANCHED TO FROM 'ASM'(ASMGASM) AND,* 00100020 * IN TURN, LINKS TO PHASE 'F1'. 'MAC' REMAINS RESIDENT DURING * 00120020 * THE ENTIRE ASSEMBLY, AND CONTAINS AND INITIALIZES THESE * 00140020 * I/O CONTROL PROGRAM ROUTINES- * 00160020 * WRITE * 00180020 * READ * 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ASMRET DC V(ASMRET) FOR 'ASM' RETURN ADDRESS 07860020 PNTW1 DC 2F'0' STORAGE FOR N/P 07880020 BUFFENT DC V(BUFFENT) ADDRESS OF BUFFERING ROUTINE 07900020 DC V(BUFFERR) BUFF ERROR HANDLING RTN IN ASM 07920020 SYSINAD DC A(SYSINMON) SYSIN MONITOR 07940020 DCBGET DS F SAVE FOR DCBGET IN SYSIN DCB 07960020 FREEMEM DS 2F FREEMAIN OPERANDS 07980020 LTORG 08000020 SPACE 2 08020020 END ASMGMAC 08040020 -FILE 529; 210 RECORDS: 0RTA TITLE 'G ASSEMBLER ROOT SEGMENT A AND CONTROL TABLE.*.*.*.*.*.*.*' 00020020 ISEQ 73,80 00040020 COPY ASMGSET 00060020 ASMGRTA START 00080020 * * 00100020 *TITLE- 'ASMGRTA ' ... ROOT SEGMENT ASSEMBLER PHASE * 00120020 *FUNCTION/OPERATION- * 00140020 * SETS UP PARTS OF THE ASSEMBLER CONTROL TABLE AND SETS UP THE * 00160020 * REGISTER ACT FOR ALL OF PHASE F7, F8, AND FPP. CONTAINS THE * 00180020 * ASSEMBLER CONTROL TABLE AND THE TRANSLATE TABLE. 00200020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORG ACT1+CSGCTR 04020020 DC H'16' 04040020 ORG ACT1+CPRIME 04060020 DC A(PRIME) 04080020 PRIME EQU 307 04100020 LASH EQU 28 SIZE OF LITERAL HASH 04120020 HASH EQU 3*PRIME+LASH SIZE OF HASH TABLE 04140020 FASH EQU HASH/8*8+8 HASH ROUNDED TO D LENGTH 04160020 ESDSEG EQU 256 ESD RESIDENT SEGMENT POINTR LGTH 04180020 END ASMGRTA 04200020 -FILE 530; 8 RECORDS: 0* COPIED BY NAME 'ASMGSET' 00020020 * THIS BLOCK OF CODING SETS THE GLOBAL SWITCHES 00040020 GBLB &DEBUG,&NOTBUG,&STAT,&NOTSTAT 00060020 &DEBUG SETB 0 SET 1 FOR DEBUG VERSION 00080020 &STAT SETB 0 SET 1 FOR STATISTICS VERSION 00100020 &NOTBUG SETB ( NOT &DEBUG) 00120020 &NOTSTAT SETB ( NOT &STAT) 00140020 * END OF COPIED CODE 00160020 -FILE 531; 1083 RECORDS: 0 MACRO AMAC0001 &NAME COMMENCE &EOF= AMAC0002 &NAME STM 14,12,12(13) AMAC0003 BALR 11,0 AMAC0004 USING *,11 AMAC0005 LR 15,13 AMAC0006 LA 13,SAVEAREA AMAC0007 ST 15,SAVEAREA+4 AMAC0008 ST 13,8(15) AMAC0009 ST 1,SAVEZZZZ AMAC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MEND AMAC1074 MACRO AMAC1075 SETR AMAC1076 LCLA &A AMAC1077 &A SETA 0 AMAC1078 .S ANOP AMAC1079 R&A EQU &A AMAC1080 &A SETA &A+1 AMAC1081 AIF (&A NE 16).S AMAC1082 MEND AMAC1083 -FILE 532; 5161 RECORDS: 0$COM ---THIS IS THE MTS UPDATE DECK FOR WATERLOO G-ASSEMBLER $RUN *MOUNT S151 9TP *ASMG* 'ASMG MASTER SOURCE' S416 9TP *POOL* RING=IN 'LP UPDATE' $ENDFILE $EMP NEWASMG $EMP ASMGSET $EMP ASMGMACROS $CRE -SYSUT1 SIZE=10P $RUN *UPDATE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $DES -SYSUT1 $DES -DICT $R *ASMG SCARDS=*POOL* SPRINT=*LIST* 0=*SYSMAC 2=ASMGMACROS SPUNCH=NEWASMG PAR=- FX,RD,B,SIZE=200,IBLK=40,OBLK=40 $R *DISMOUNT PAR=*LIST* $LI ASMGMACROS $RUN *OBJSCAN NEWASMG *ASMG *ASMBLR -FILE 533; 485 RECORDS: 0 START 0 MNTR0001 TITLE '*** STUDENT ASSEMBLER-SIMULATOR MONITOR ***' MNTR0002 *********************************************************************** MNTR0003 * * MNTR0004 * MONITOR FOR /360 STUDENT ASSEMBLER-SIMULATOR * MNTR0005 * * MNTR0006 *********************************************************************** MNTR0007 * MNTR0008 * ENTRY TO THE MONITOR IS VIA THE STANDARD MTS R-TYPE MNTR0009 * CALLING PROCEDURE MNTR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TEN DC H'10' MNTR0476 JOBF DC X'00' MNTR0477 BATCHF DC XL1'00' MNTR0478 CHAR DC C' ' MNTR0479 TFLOW DC CL1' ' MNTR0480 SWITCH DC XL1'00' MNTR0481 NLINE DC H'118' MNTR0482 LCNT DC H'1' MNTR0483 LPPAGE DC H'59' MNTR0484 END BOSS MNTR0485 -FILE 534; 3996 RECORDS: 0* MARCH 27 1969 . LATEST CORRECTION WAS 26 MARCH ASSM0001 * THE START OF THE 360 ASSEMBLER SEPT 23/68 ASSM0002 * ASSM0003 * DEC 12 1968 : SEMI COLUMN END TEXT FLAG CHANGED TO FF ASSM0004 * AND STOP ASSEMBLING WHEN PROG TOO LARGE ASSM0005 * ASSM0006 * DEC 18 IF BASE REG=0 USE ADDR1,ADDR2 NOT REL VAL ASSM0007 * ASSM0008 * THE DEFINITIONS ASSM0009 * ASSM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 3F ASSM3987 DS 0D ASSM3988 PROG DS D ASSM3989 DS 4000C OBJECT CODE AREA ASSM3990 TBUF DS C ASSM3991 DS 45000C ASSM3992 DS 25000C ASSM3993 TBUFE DS C ASSM3994 DS 150C ASSM3995 END START ASSM3996 -FILE 535; 2261 RECORDS: 0* MARCH 27 1969 SIML0001 * SIMULATOR FOR THE STUDENT ASSEMBLER SIML0002 * SIML0003 MACRO SIML0004 GETR12 SIML0005 LR XR1,XR2 SIML0006 SRL XR1,2 R1*4 SIML0007 SLL XR2,2 R2*4 SIML0008 N XR1,MSK3C SIML0009 N XR2,MSK3C SIML0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> USREND DS F USERS LAST ADR SIML2252 * SIML2253 UMINAD DS F MIN ADDR ALLOWED FOR USER SIML2254 UMAXAD DS F MAX ADDR ALLOWED FOR USER SIML2255 TRACES DS F MAX NO TRACES=100 SIML2256 DS F START ADDR-REL SIML2257 DS F END ADDR-REL SIML2258 * SIML2259 * SIML2260 END SIML2261 -FILE 536; 1154 RECORDS: 0* CVTH VERSION FOR STUDENT ASSEMBLER CVTH0001 CVTH TITLE 'FORTRAN I/O CONVERSION MODULE' CVTH0002 ADCON# START 0 CVTH0003 EXTRN IBCOM# CVTH0004 * THESE ENTRY POINTS ARE A TEMPORARY EXPEDIENT TO MAINTAIN CVTH0005 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE. CVTH0006 ENTRY FCVEO CVTH0007 ENTRY FCVIO CVTH0008 ENTRY FCVAO CVTH0009 ENTRY FCVZO CVTH0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MOVEX MVC 0(1,GRY),0(GRX) ITEM TO BUFFER CVTH1145 CHRMOV MVC 0(1,GRY),0(CHRSAV) MOVE FROM CONVERT AREA CVTH1146 CONONE EQU ONE CVTH1147 CONFOR EQU FOU CVTH1148 GFSWCH DC AL1(0) FLOATING DECIMAL SWITCH CVTH1149 CGSWCH DC AL1(0) G-OUTPUT SWITCH CVTH1150 DECIM DC C'0123456789ABCDEF' OUTPUT TRANSLATION TABLE CVTH1151 ZERPNT DC C' 0.0' CVTH1152 SPACE 3 CVTH1153 END CVTH1154 -FILE 537; 825 RECORDS: 0* ICOM VERSION FOR STUDENT ASSEMBLER JAN/69 ICOM0001 ICOM TITLE 'FORTRAN I/O INTERFACE MODULE' ICOM0002 IBCOM# START 0 ICOM0003 EXTRN ADCON# ICOM0004 EXTRN FIOCS# ICOM0005 * THESE EXTERNAL REFERENCES ARE A TEMPORARY EXPEDIENT TO MAINTAIN ICOM0006 * COMPATIBILITY WITH FORTRAN E'S DUMP/PDUMP SUBROUTINE. ICOM0007 EXTRN FCVEO ICOM0008 EXTRN FCVIO ICOM0009 EXTRN FCVAO ICOM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ICOM0816 IHC1 DC H'211',C'**',CL40'*** INVALID TYPE OF FORMAT ' ICOM0817 DC H'212',C'**',CL40'*** LINE TOO LONG, BAD FORMAT ' ICOM0818 DC H'215',C'**',CL40'*** INVALID CHARACTER IN DATA ' ICOM0819 DC H'225',C'**',CL40'*** INVALID HEXADECIMAL DATA ' ICOM0820 DC H'216',C'**',CL40'*** OUTPUT EXCEEDS ALLOTMENT ' ICOM0821 DC H'217',C'**',CL40'*** YOU RAN OUT OF DATA CARDS ' ICOM0822 IHCLAST DC H'0' DUMMY AT END OF TABLE ICOM0823 * ICOM0824 END ICOM0825 -FILE 538; 237 RECORDS: 0* STUDENT ASSEMBLER VERSION OF FIOCS (MAR 1969) FIOC0001 FIO TITLE 'FFORTRAN/MTS I/O INTERFACE MODULE' FIOC0002 FIOCS# START 0 FIOC0003 * ***** REGISTER ASSIGNMENTS ***** FIOC0004 GRX EQU 2 FIOC0005 GRY EQU 3 FIOC0006 WKA EQU 4 FIOC0007 WKB EQU 5 FIOC0008 UATER EQU 6 FIOC0009 BASE EQU 7 FIOC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RITEVCON DS F FIOC0228 FLAGS EQU READVCON FIOC0229 LINE# DS F FIOC0230 RECLENI DS H FIOC0231 RECLENO DS H FIOC0232 LASTINIT DS F FIOC0233 FQUALS EQU LASTINIT FIOC0234 BUFADDR DS F FIOC0235 STARECNT EQU BUFADDR FIOC0236 END FIOC0237 -FILE 539; 104 RECORDS: 0$R *MOUNT PAR=S516 9TP *IN* 'S516' $R *MOUNT PAR=S373 9TP *OUT* RING=IN 'S373' $R *UPDATE %REW *IN* %REW *OUT* %FSF *IN* 1 %FSF *OUT* 1 %INP *IN* 50 %OUT *OUT* 40 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %CLO *POOL* %WTM *POOL* 5 %REW *POOL* %END $R *DISMOUNT PAR=*STASS* $EMP NEWSTASS $R *ASMG SCARDS=*POOL* SPUNCH=NEWSTASS 0=*SYSMAC PAR=SIZE=160,IBLK=40,FX,RD,T,B $R *OBJSCAN NEWSTASS *STASS360 -FILE 540; 629 RECORDS: 0 MACRO SUBROUTINE ENTRY MAC80001 &L SAVE &X MAC80002 &L STM RE,&X,12(RD) MAC80003 LA RE,4*(&X+3)+12(RD) MAC80004 ST RE,8(RD) MAC80005 ST RD,4(RE) MAC80006 LR RD,RE MAC80007 MEND MAC80008 * MAC80009 MACRO SUBROUTINE EXIT MAC80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NCRDS EQU X'02' NO CARDS YET SWITCH MAC80620 * MAC80621 * SYMBOL TABLE ENTRY FRAME MAC80622 * MAC80623 SYMCHN EQU 0 SYMBOL HASH CHAIN POINTER MAC80624 SYMNAM EQU 4 SYMBOL NAME MAC80625 SYMVAL EQU 12 SYMBOL VALUE MAC80626 SYMFLG EQU 16 SYMBOL FLAGS MAC80627 SYMLIN EQU 20 LINE NUMBER MAC80628 SYMREF EQU 24 SYMBOL REFERENCE CHAIN POINTERS MAC80629 -FILE 541; 113 RECORDS: 0* DEF80001 * DEF80002 LINMAX EQU 60 MAXIMUM NUMBER OF LINES PER PAGE DEF80003 TABCHR EQU X'05' TAB CHARACTER DEF80004 LFTOP EQU X'02' OPERATOR NEEDS A LEFT OPERAND DEF80005 RTOP EQU X'01' OPERATOR NEEDS A RIGHT OPERAND DEF80006 DEFSYM EQU X'80' SYMBOL IS DEFINED WITHIN PGM DEF80007 * DEF80008 * GENERAL-PURPOSE REGISTERS DEF80009 * DEF80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FSCD EQU X'01' FIRST CARD SWITCH DEF80104 * DEF80105 * SYMBOL TABLE ENTRY FRAME DEF80106 * DEF80107 SYMCHN EQU 0 SYMBOL HASH CHAIN POINTER DEF80108 SYMNAM EQU 4 SYMBOL NAME DEF80109 SYMVAL EQU 12 SYMBOL VALUE DEF80110 SYMFLG EQU 16 SYMBOL FLAGS DEF80111 SYMLIN EQU 20 LINE NUMBER DEF80112 SYMREF EQU 24 SYMBOL REFERENCE CHAIN POINTERS DEF80113 -FILE 542; 229 RECORDS: 0* COP80001 SAVE DS 64F SAVE AREAS COP80002 SAVEND EQU * END OF PUSHDOWN STORAGE COP80003 SAVND4 EQU *-4 COP80004 SAVND8 EQU *-8 COP80005 * COP80006 * PRECEDENCE MATRIX COP80007 * COP80008 * / - COP80009 * %I %A %N & | %M * + ( ) %L %R COP80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'01010101010101010101030406070801' 7 COP80220 DC X'01040404040404040404010101010101' 8 COP80221 DC X'01040404040404040404010101010101' 9 COP80222 DC X'01010404040404040404010101010101' A COP80223 DC X'01010101010101010101010101010101' B COP80224 DC X'01040404040404040404010101010101' C COP80225 DC X'01040404040404040404010101010101' D COP80226 DC X'01010404040404040404010101010101' E COP80227 DC X'05050505050505050505010101010101' F COP80228 EJECT COP80229 -FILE 543; 1748 RECORDS: 0MAIN TITLE 'PDP 5/8 7/9 ASSEMBLER' ASR80001 PRINT NOGEN ASR80002 COPY 8ASREQU DEFINITIONS ASR80003 * ASR80004 * END OF COPY ASR80005 * ASR80006 TITLE 'MAIN SEQUENCE PASS 1' ASR80007 * ASR80008 USING START,R8 CSECT BASE,PASS 1 ASR80009 USING PSECT,RC PSECT BASE ASR80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GENPS ALIGN,27,FSW1 ASR81739 GENPS ANOP3,28,0,V(OPRTAB) ASR81740 * ASR81741 * PREDEFINED OPERAND SYMBOL TABLE ASR81742 * ASR81743 ABCTAB GENOP @VALUE,0,0 ASR81744 GENOP @CSID,0,0 ASR81745 GENOP @FLAGS,0,0 ASR81746 GENOP @TYPE,0,0,V(SYMTAB) ASR81747 END ASR81748 -FILE 544; 594 RECORDS: 0COM TITLE 'COMMON SUBROUTINES' COM80001 PRINT NOGEN COM80002 COPY 8ASREQU COM80003 * COM80004 * END OF COPY COM80005 * COM80006 TITLE 'COMMON CODE' COM80007 COM CSECT COM80008 SETUP MTS COM80009 ENTRY SEARCH,CLCLS,SCAN COM80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * COM80585 PSTAB DS 32A(0,0) PSEUDO-OP JUMP TABLE COM80586 BLK8 DS A(0,0) DOUBLE WORD RELOCATION CHAINS COM80587 SMTAB DS A(0,0,0,0,0) SYMTAB HASH TABLE POINTER COM80588 OPTAB DS A(0,0,0,0,0) OPRTAB HASH TABLE POINTER COM80589 EXTAB DS A(0,0,0,0,0) EXTTAB HASH TABLE POINTER COM80590 COMADD DS A(0) COMMON SUBROUTINES BASE ADDRESS COM80591 PSUTAB DS 28CL(SYMREF+4) PREDEFINED OPERATOR SYMBOL TABLE COM80592 ABCTAB DS 4CL(SYMREF+4) PREDEFINED OPERAND SYMBOL TABLE COM80593 END COM80594 -FILE 545; 312 RECORDS: 0OPS8 TITLE 'PDP-8 OPERATOR AND FORMAT DEFINITIONS' OPS80001 * OPS80002 PRINT NOGEN OPS80003 * OPS80004 MACRO BUILD OPERATOR SYMBOL TABLE ENTRY OPS80005 &L GENOP &X,&Y,&Z,&W OPS80006 AIF ('&W' EQ '').A OPS80007 &L DC &W OPS80008 AGO .B OPS80009 .A ANOP OPS80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * SHORT-FORM RLD OPS80303 * OPS80304 * 0 1 2 3 4 5 6 7 8 9 A B C D E F OPS80305 FORMA DC X'4F1D1E1F2021222324191A1B1C003738' 0 OPS80306 DC X'393A0041424344004B4C4D4E00555657' 1 OPS80307 DC X'58005F60616200696A6B6C0073747576' 2 OPS80308 DC X'007D7E7F80008788898A009192939400' 3 OPS80309 DC X'9A9B9C9D00A5A6A7A800000000000000' 4 OPS80310 * OPS80311 END OPS80312 -FILE 546; 254 RECORDS: 0OPS9 TITLE 'PDP-9 OPERATOR AND FORMAT DEFINITIONS' OPS90001 * OPS90002 PRINT NOGEN OPS90003 * OPS90004 MACRO BUILD OPERATOR SYMBOL TABLE ENTRY OPS90005 &L GENOP &X,&Y,&Z,&W OPS90006 AIF ('&W' EQ '').A OPS90007 &L DC &W OPS90008 AGO .B OPS90009 .A ANOP OPS90010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'232425260028292A2B00000000000000' 4 OPS90245 * OPS90246 * FORM A SHORT FORM RLD DICTIONARY OPS90247 * OPS90248 FORMA9 DC X'4F1D1E1F202122232418191A1B1C0036' 0 OPS90249 DC X'3738393A004041424344004A4B4C4D4E' 1 OPS90250 DC X'005455565758005E5F6061620068696A' 2 OPS90251 DC X'6B6C007273747576007C7D7E7F800086' 3 OPS90252 DC X'8788898A009091929394000000000000' 4 OPS90253 END OPS90254 -FILE 547; 360 RECORDS: 0OPS1 TITLE 'PDP-1 OPERATOR AND FORMAT DEFINITIONS' OPS10001 * *********************************************** OPS10002 * * * OPS10003 * * MACRO TO CONSTRUCT OPCODE DICTIONARY BLOCKS * OPS10004 * * * OPS10005 * *********************************************** OPS10006 SPACE 2 OPS10007 PRINT NOGEN OPS10008 MACRO OPS10009 &L GENOP &MNEM,&OCTL,&Z,&W OPS10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'232425260028292A2B00000000000000' 4 OPS10351 * OPS10352 * FORM A SHORT FORM RLD DICTIONARY OPS10353 * OPS10354 FORMA9 DC X'4F1D1E1F202122232418191A1B1C0036' 0 OPS10355 DC X'3738393A004041424344004A4B4C4D4E' 1 OPS10356 DC X'005455565758005E5F6061620068696A' 2 OPS10357 DC X'6B6C007273747576007C7D7E7F800086' 3 OPS10358 DC X'8788898A009091929394000000000000' 4 OPS10359 END OPS10360 -FILE 548; 186 RECORDS: 0TDEC TITLE 'TRANSLATE TABLE: EBCDIC-TO-FIO/DEC CODES' TDEC0001 SPACE TDEC0002 *********************************************************************** TDEC0003 * * TDEC0004 * THIS TABLE CONVERTS EBCDIC CHAACTERS TO CODES USED BY THE PDP-1 * TDEC0005 * IN CONJUNCTION WITH THE FRIDEN FLEXOWRITER. SINCE CERTAIN OF THE * TDEC0006 * FLEXOWRITER GRAPHICS ARE NOT REPRESENTED BY EBCDIC CODES, AN ARBI- * TDEC0007 * TRARY CORRESPONDENCE HAS BEEN SET UP BETWEEN CERTAIN EBCDIC GRAPH- * TDEC0008 * ICS AND THE FIO/DEC GRAPHICS AS FOLLOWS: * TDEC0009 * * TDEC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OCTAL 277 TDEC0177 ORG T+X'25' TAPE FEED TDEC0178 OCTAL 00 TDEC0179 ORG T+X'03' STOP CODE TDEC0180 OCTAL 13 TDEC0181 ORG T+X'2B' BLACK TDEC0182 OCTAL 34 TDEC0183 ORG T+X'22' RED TDEC0184 OCTAL 35 TDEC0185 END TDEC0186 -FILE 549; 2887 RECORDS: 0 TITLE ' PDP-8 LINK EDITER ' LNK80001 * MACRO DEFINITIONS LNK80002 * LNK80003 MACRO COMPOSE A BINRY NUMBER LNK80004 &L COLUM &A LNK80005 &L IC 0,1+&A LNK80006 SRDL 0,6 LNK80007 IC 0,&A LNK80008 SRDL 0,6 LNK80009 SRL 1,20 LNK80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CORE DS 8F CORE ADDRESSES FOR SIMULATOR LNK82878 CDCNT DS 1F SEQUENCE FOR BINARY CARDS LNK82879 ESDHEAD DS 2F SYMBOL DICTIONARY HEAD LNK82880 ENTHEAD DS 2F ENTRY TABLE HEAD LNK82881 EXTHEAD DS 2F EXTERNAL TABLE HEAD LNK82882 SEGHEAD DS 2F SEGMENT TABLE HEAD LNK82883 SEGSTRT DS 1F LNK82884 SEGEND DS 1F DEFINES SEGMENT TABLE SUBSET LNK82885 REMAP DS 512F CSID MAPPING TABLE LNK82886 END LNK82887 -FILE 550; 132 RECORDS: 0 TITLE 'UTILITY TO PUNCH BINARY CARDS FROM 8ASR RECORDS' TCRD0001 PRINT NOGEN TCRD0002 REQU TCRD0003 ENTER 12 TCRD0004 XC CDCNT(4),CDCNT SET CARD COUNT TO 0 TCRD0005 SR R7,R7 INITIALIZE CHECKSUM TCRD0006 L R1,0(R1) INSPECT PARAMETER LIST TCRD0007 LH R2,0(R1) COUNT OF CHARACTERS TCRD0008 LTR R2,R2 TCRD0009 BZ NEXT NO PARAMS TCRD0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'0A021C010A0009000820081008080804' TCRD0123 DC X'080208011A03190318231813180B1807' TCRD0124 DC X'08000400020001000020001000080004' TCRD0125 DC X'000200013A03390338233813380B3807' TCRD0126 SCRATCH DS D TCRD0127 CDCNT DS 1F TCRD0128 REGL DS 1H TCRD0129 REG DS 256C TCRD0130 CARD DS 160C TCRD0131 END TCRD0132 -FILE 551; 95 RECORDS: 0 TITLE 'UTILITY TO PUNCH PAL TAPE FROM 8ASSR CARDS' PAL80001 PRINT NOGEN PAL80002 REQU PAL80003 ENTER 12 PAL80004 * PAL80005 * PUNCH LEADER CODE PAL80006 * PAL80007 MVI REG,X'80' PAL80008 MVC REG+1(71),REG PAL80009 SPUNCH REG,72,@BIN PAL80010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EXIT 0 PAL80086 * PAL80087 CKEXT SERCOM 'UNDEFINED EXTERNAL. IGNORED' PAL80088 B NEXT PAL80089 * PAL80090 REGL DS H PAL80091 REG DS XL256 PAL80092 FLD DS 1C PAL80093 * PAL80094 END PAL80095 -FILE 552; 2188 RECORDS: 0* ASM10001 TITLE 'REGISTER ASSIGNMENTS 1130/1800-360 MASM' ASM10002 * ASM10003 * GENERAL REGISTER ASSIGNMENTS ASM10004 * ASM10005 R0 EQU 0 HOLDS ADDR OF I/O AREA FOR QSAM MACRO ASM10006 R1 EQU 1 MISC ASM10007 R2 EQU 2 MISC ASM10008 R3 EQU 3 MISC ASM10009 R4 EQU 4 MISC ASM10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COMPC C')',NE,SCMBB BR IF OTHER THAN ) ASM12179 * ASM12180 SCMBC LA R9,1(R9) ADVANCE OPERAND POINTER ASM12181 B SCMBD GO LOOK AT OPERATOR NOW ASM12182 * ASM12183 STACK DS 72C ASM12184 SCM123 DC X'00' ENTRY POINT INDICATOR ASM12185 ENDM0 EQU SCM123+20000 PRESUMED END OF MASM FOR DUMP PURPOSE ASM12186 PRINT ON ASM12187 LTORG PLACE LITERALS USED IN SCAN ROUTINE ASM12188 -FILE 553; 52 RECORDS: 0 TITLE 'PROLOGUE FOR THE 1130/1800-360 MASM' ASM20001 * ASM20002 * THIS PROLOGUE DISCUSSES, GENERALLY, THE OPERATION ASM20003 * OF THE ASSEMBLER ASM20004 * ASM20005 * THERE ARE THREE MAIN OPERATING MODES - ASM20006 * ASM20007 * (1) SYMBOL TABLE BUILD AND MACRO EXPANSION ASM20008 * (2) SUBSTITUTION OF SYMBOL VALUES INTO THE SOURCE STATEMENT ASM20009 * (3) OUTPUT, IN WHICH THE ACTUAL SOURCE CODE IS PRODUCED ASM20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MACRO ASM20043 &MACC COMPC &A,&B,&C ASM20044 &MACC CLI 0(R9),&A ASM20045 B&B &C ASM20046 MEND ASM20047 TITLE 'EST. ADDRS FOR COMMON SECTION 1130/1800-360 MASM 12' ASM20048 M0 CSECT COMMON WORK AREAS, ROUTINES , ETC. ASM20049 ENTRY ENTM0 ENTRY POINT FOR CALL BY SFMASM ASM20050 DC F'0' ASM20051 END ENTM0 ASM20052 -FILE 554; 3506 RECORDS: 0* ASM30001 TITLE 'MACRO DEFINITIONS 1130/1800-360 MASM' ASM30002 MACRO ASM30003 &TST TEST &A,&B,&C ASM30004 &TST TM &A,&B ASM30005 BO &C ASM30006 MEND ASM30007 MACRO ASM30008 &MACA COMPA &OPA1,&OP2,&OPA3 ASM30009 &MACA CLI 0(R10),&OPA1 ASM30010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ASM33497 * END OF LITERALS TABLE ASM33498 * ASM33499 LITTABD EQU * END TABLE (UPPER LIMIT) ASM33500 * ASM33501 * ASM33502 * END OF MODE1 PHASE ASM33503 * ASM33504 DC F'0' ASM33505 END ST12 ASM33506 -FILE 555; 4184 RECORDS: 0 TITLE 'MACRO DEFINITIONS 1130/1800-360 MASM' ASM40001 MACRO ASM40002 &TST TEST &A,&B,&C ASM40003 &TST TM &A,&B ASM40004 BO &C ASM40005 MEND ASM40006 MACRO ASM40007 &MACA COMPA &OPA1,&OP2,&OPA3 ASM40008 &MACA CLI 0(R10),&OPA1 ASM40009 B&OP2 &OPA3 ASM40010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ** NO LONGER NEEDED. ASM44175 ** ASM44176 * ASM44177 HDTMEXT DC C'TIME TOTAL TIME' ASM44178 * ASM44179 * ASM44180 ODJ0 DS F TEMP HOLD R15 VALUE ASM44181 LTORG ASM44182 * ASM44183 END ST3 ASM44184 -FILE 556; 1126 RECORDS: 0 TITLE 'MACRO DEFINITIONS 1130/1800-360 MASM M4' ASM50001 MACRO ASM50002 &TST TEST &A,&B,&C ASM50003 &TST TM &A,&B ASM50004 BO &C ASM50005 MEND ASM50006 MACRO ASM50007 &MACA COMPA &OPA1,&OP2,&OPA3 ASM50008 &MACA CLI 0(R10),&OPA1 ASM50009 B&OP2 &OPA3 ASM50010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SIZDUMMI DS 2F HOLDS COMPUTED DUMMY SIZE FOR GETMAIN ASM51117 NP DS H NO OF ENTRIES PER BASIC MERGE PACKAGE ASM51118 DS 0F ASM51119 PATCHARA DC 110C' ' ASM51120 LTORG PLACE LITERALS HERE ASM51121 DS 0F ASM51122 SRCORC DS CL(SIZEBLK) ASM51123 DS 0F ASM51124 END ST4 ASM51125 // DD DSNAME=&CPY,UNIT=SYSDA,VOLUME=SER=333333, XASM51126 -FILE 557; 2282 RECORDS: 0 BEGIN COMMENT PL360 COMPILER -- OS VERSION -- JUNE, 1968; PL000001 PL000002 EXTERNAL PROCEDURE SYSINIT(R14); NULL; PL000003 COMMENT OBTAINS FREE STORAGE AND OPENS DATA SETS; PL000004 EXTERNAL PROCEDURE SYSTERM(R14); NULL; PL000005 COMMENT RELEASES FREE STORAGE AND CLOSES DATA SETS; PL000006 PL000007 BYTE LISTFLAG=#FF; COMMENT USED TO CONTROL SOURCE CODE LISTING; PL000008 BYTE NOGOFLAG=#00; COMMENT USED TO INDICATE GO OR NOGO TO NEXT STEP;PL000009 BYTE EXITFLAG=#00; COMMENT USED TO INDICATE END OF ASSEMBLY; PL000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CVD(R1,CONWORK); ED(4,WBUF(3),CONWORK(5)); PL002273 R1 := ERRCOUNT; IF R1 > ERRLIMIT THEN PL002274 MVC(37,WBUF(25),"- ERROR MESSAGE LISTING INCOMPLETE ***"); PL002275 PRINT; SET(NOGOFLAG); PL002276 END; PL002277 R0 := 0; IF EXITFLAG THEN GOTO LOOP; PL002278 SYSTERM; COMMENT RELEASE SYSTEM RESOURCES; PL002279 R2 := MEM(R13+4); IF NOGOFLAG THEN R0 := 16 ELSE R0 := 0; PL002280 MEM(R2+16) := R0; COMMENT SET RETURN CODE; PL002281 END. PL002282 -FILE 558; 200 RECORDS: 0$RUN *MOUNT PAR=S469 ON 9TP *PL360* 'PL360 SOURCE - RING OUT' $RUN *MOUNT PAR=S416 ON 9TP *POOL* QUIT=YES 'UPDATER -- RING IN' $RUN *UPDATE %INP *PL360* %OUT *POOL* %DEL PL000001 BEGIN COMMENT PL360 COMPILER -- MTS VERSION JUNE 1968, MODIF SEPT 16; %DEL PL002193 MVC (132,WBUFF,BLANK); R1 := LABELBASE; MVC (11,B1,ZERO); %CLO *POOL* >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GOTLIST DS 2F SAVE DS 18A WORK DS F COMPID DS CL16 COMPILATION ID (TIME AND DATE) EOF DS X SYSIN END-OF-FILE LISTSW DS X LISTING LOADSW DS X OBJECT MODULE (SYSGO) DECKSW DS X OBJECT MODULE (SYSPUNCH) SWITCH DS X END -FILE 559; 90 RECORDS: 0$EMP PL360LIB $RUN *ASMG SPUNCH=PL360LIB 0=*SYSMAC PAR=FX,SIZE=60 PLSP TITLE 'PL360 SUPPORT LIBRARY' MACRO &EP ENTER ENTRY &EP USING &EP,15 &EP STM 12,11,SAVE L 12,=A($PLCOMP) USING $PLCOMP,12 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPRINT '1' EXIT * BIR MVC 0(0,6),BL80 LEN# DS H BL80 DC CL80' ' SAVE DS 18A EOF DC X'00' END $SIG -FILE 560; 1287 RECORDS: 0ASUP TITLE ' A P L / M T S INTERFACE' APLS0001 SPACE 3 APLS0002 * DAVID A. TWYVER APLS0003 * UNIVERSITY OF BRITISH COLUMBIA APLS0004 * VANCOUVER 8 CANADA APLS0005 * SEPTEMBER 1969 APLS0006 SPACE 5 APLS0007 GBLB &DELAY APLS0008 GBLB &I23 APLS0009 GBLB &NEWMTS APLS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WSTRANOU DS 0X APLS1278 DC C' ___________' APLS1279 DC 74C'?' APLS1280 DC C'ABCDEFGHIJKLMNOPQRSTUVWXYZ#' APLS1281 DC C'abcdefghijklmnopqrstuvwxyz=0123456789.' APLS1282 DC 100C'?' APLS1283 SPACE 3 APLS1284 APLSUPND EQU * APLS1285 EJECT APLS1286 END APLS1287 -FILE 561; 584 RECORDS: 0 TITLE 'EQUATES AND CHANGEABLE STORAGE FOR APLSUP' APLP0001 PSECT DSECT APLP0002 SPACE 3 APLP0003 * A FEW WORDS FOR APLSUP TO REMEMBER THINGS IN APLP0004 * APLP0005 ************** EXITIN USES THE FOLLOWING AREA ASSUMING APLP0006 * THIS ORDERING AND DISPLACEMENT. ALSO, APLP0007 * EXITPARM MUST EQU PSECT. APLP0008 EXITPARM DS A (EXITIN) SVC AND PGNT HANDLER WORKAREA APLP0009 CODE DS A INTERRUPT CODE; 'SVC ' OR 'PGNT' APLP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PDSLEN EQU PDSID-PDSLIB+L'PDSID LENGTH OF INTERPRETER PARAM BLOCK APLP0575 DS 1X APLP0576 PDSTCNT DS 1X TRACK COUNT FOR SAVE APLP0577 * COPTWIN IS THE DIFFERENCE OF PERTERM VALUES APLP0578 * BETWEEN THE SOURCE AND SINK OF A COPY OPERATION. APLP0579 * PERTERM OF SINK IS THE LESSER ADDRESS APLP0580 * APLP0581 PSECTL EQU TBHIGH APLP0582 * APLP0583 * END OF APLSUP WORKING STORAGE. APLP0584 -FILE 562; 193 RECORDS: 0SYM APLSUPPSECTgEXITPARMcCODEBPSWcASUP0001 SYM &BASEGATTNAREAhuhygCOPSORCEF^ASUP0002 SYM COPYBUFeUSERIDgOLDSAPTRF{MTSAREAFASUP0003 SYM SVCAREAGMESSAREAcQWORKc\FDUBfUASUP0004 SYM IOPARMShYhh0h4e8IOMODSeIOLINEASUP0005 SYM fIOCOUNTEWSNAMEEMEMORY{MASUP0006 SYM DREGSVEFRSAVE HfqQR13STKASUP0007 SYM fQSYMBOTaMXbuSVIeyPARRELDONXOFASUP0008 SYM DONXDZHCONFPHMEONATTNASUP0009 SYM CUONDZDONRNG4MQCELLh6f8MPTBAASUP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   FILEASUP0184 TXT   Ć -_:_ ASUP0185 RLD  { D H } M Q \ UASUP0186 RLD  Y 0 4 8  نASUP0187 RLD  <&hASUP0188 RLD  -%ASUP0189 RLD  - ASUP0190 RLD *dmASUP0191 RLD qy ASUP0192 END DATE 11-16-69 20:09 ASUP0193 -FILE 563; 1606 RECORDS: 0 NCA DIREMP NCA KMANHASH NCA PERTERMG NCA PTBXLE NCA SOOKTXT NCA DFLTDZ NCA DFLTXOF NCA DFLTATTN NCA HDIR NCA HDIREND >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   0{[0{0{[0{K 0027 TXT  qqqqqq\ ^ڶ$ ԓ^ h*^ʭ 0028 TXT   q\n& ⶺnq!k 0029 TXT     0030 TXT  ʈ^ ġ\ {}ʥ0{ q}q} 0031 TXT 0   0032 RLD       0033 END ERR 0034 LCS LCSYMBOL LDT -FILE 564; 10181 RECORDS: 0 MACRO PIL00001 &SL PUTLINE PIL00002 &SL STM 13,2,SAVR# PIL00003 LR 2,15 PIL00004 LA 13,SAVREG# PIL00005 LA 1,BLPFX# PIL00006 L 15,=V(SETPFX) PIL00007 BALR 14,15 PIL00008 LR 15,2 PIL00009 L 14,ANSADR PIL00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SAVR# DS 3D PIL00172 SAVREG# DS 18F PIL00173 PARREG# DS 6F PIL00174 SAV57# DS 3F PIL00175 SAV10# DS F PIL00176 SAV14# DS F PIL00177 SAV15# DS F PIL00178 WORK DS D START OF WORK AREA PIL00179 EJECT PIL00180 END PIL00181 -FILE 565; 3284 RECORDS: 0****** 00000000 MACRO 00000100 &NAME ERROR &MSG 00000200 LCLA &L 00000300 &NAME BAL 0,ERROR 00000400 &L SETA K'&MSG 00000500 DC AL2(&L+2),C' ',C&MSG 00000600 CNOP 2,4 00000700 MEND 00000800 ****** 00000900 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ECHO UNTRACE,SUBR,UNTRACE,1 00313200 ECHO TRACE,SUBR,TRACE,1 00313300 ECHO PACK,SUBR,PACK,1 00313400 ECHO CLEARBUFF,SUBR,CLEARBUF,0 00313500 ECHO MKATOM,SUBR,MKATOM,0 00313600 ECHO CCLASS,SUBR,CCLASS,2 00313700 DC A(*+16-NIL,NIL-NIL) MARK END OF LIST 00313800 ECHO SASSOC,SUBR,SASSOCC,3 00313900 EFWS EQU * 00314000 END MAIN 00314100 -FILE 566; 127 RECORDS: 0$R *MOUNT S415 9TP *LISP* 'LISP SOURCE' POOL 9TP *POOL* $ENDFILE $RUN *UPDATE %REW *LISP* %REW *POOL* %OUT *POOL* 20 %INP *LISP* 20 %AFTER '00008500' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %BEF FILEMARK %CLOSE *LISP* %CLO *POOL* %WTM *POOL* 25 %REW *POOL* %END $RUN *DISMOUNT PAR=*LISP* $EMP LISP $R *ASMG SCARDS=*POOL* SPUNCH=LISP 0=*SYSMAC PAR=SIZE=180,FX,T,IBLK=20,RD $R *OBJSCAN PAR=LISP -FILE 567; 663 RECORDS: 0PNTABL 91 ISTM0001 PVTABL 107 ISTM0002 TABGEN 124 ISTM0003 ENT 147 ISTM0004 MCRTBE 163 ISTM0005 BTINN 178 ISTM0006 MSG 198 ISTM0007 PSECT 212 ISTM0008 BAS 225 ISTM0009 BASR 235 ISTM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * LENGTH OF THE SYMBOL NAME. ISTM0654 SPACE 2 ISTM0655 MACRO ISTM0656 MDFTB &CHAR,&DISP,&LEN ISTM0657 DC CL4'&CHAR' ISTM0658 DC AL1(&DISP) ISTM0659 DC AL1(BRKBEG) ISTM0660 DC H'&LEN' ISTM0661 MEND ISTM0662 END ISTM0663 -FILE 568; 159 RECORDS: 0 EJECT ISC10001 SPACE 6 ISC10002 *********************************************************************** ISC10003 * * ISC10004 *********************************************************************** ISC10005 * * ISC10006 *********************************************************************** ISC10007 * * ISC10008 * * ISC10009 * UMIST SYMBOL DEFINITIONS... * ISC10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PNTYP EQU 5 TYPE OF PARAMETER ISC10150 PNDX EQU 6 PARAMETER INDEX IN VALUE TABLE ISC10151 SPACE 4 ISC10152 * PARAMETER VALUE TABLE ISC10153 SPACE 2 ISC10154 PVAL EQU 0 PARAMETER INTERNAL VALUE ISC10155 PVLEN EQU 4 EXTERNAL VALUE IBM LENGTH ISC10156 PVMLEN EQU 5 EXTERNAL VALUE MAXIMUM LENGTH ISC10157 PVDISP EQU 6 EXTERNAL VALUE DISPLACEMENT ISC10158 EJECT ISC10159 -FILE 569; 328 RECORDS: 0 EJECT ISC20001 SPACE 6 ISC20002 *********************************************************************** ISC20003 * * ISC20004 *********************************************************************** ISC20005 * * ISC20006 *********************************************************************** ISC20007 * * ISC20008 * * ISC20009 * UMIST PSECT * ISC20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 50F ISC20319 Z@CALL EQU * ISC20320 SPACE 3 ISC20321 * STORAGE AREA FOR SDUMP ISC20322 * ISC20323 CNOP 0,8 ISC20324 DUMPAREA EQU * ISC20325 DS CL488 ISC20326 CSECT ISC20327 EJECT ISC20328 -FILE 570; 313 RECORDS: 0IST1 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' IST10001 SPACE 7 IST10002 *********************************************************************** IST10003 * * IST10004 *********************************************************************** IST10005 * * IST10006 *********************************************************************** IST10007 * * IST10008 * * IST10009 * * * ** ** *** ******* ********* * IST10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EXTRN UMPSECT IST10304 EXTRN @RESTART IST10305 * IST10306 UMISTMSG DC C'... UMIST SIGNS ON ...' IST10307 UMISMSGL DC Y(L'UMISTMSG) LENGTH OF MESSAGE IST10308 UMISMODF DC F'0' MODIFIERS FOR SERCOM IST10309 UMISBASE DC A(UMPSECT) ***** OS ADCON ***** UMIST PSECT ***** IST10310 RESTART DC A(@RESTART) IST10311 DROP J IST10312 END IST10313 -FILE 571; 385 RECORDS: 0 SPACE 1 IST20001 GBLC &ASM IST20002 &ASM SETC 'TBL' IST20003 PRINT OFF IST20004 IST2 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' IST20005 COPY /SYMBOLS@S IST20006 COPY /PSECT@S IST20007 PRINT ON IST20008 SPACE 6 IST20009 *********************************************************************** IST20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(B$TEST-$TEST) IST20376 DC A((E$TEST-$TEST)/(B$TEST-$TEST)) IST20377 DC A(B$NAME-$NAME) IST20378 DC A((E$NAME-$NAME)/(B$NAME-$NAME)) IST20379 DC A(B$DEFINE-$DEFINE) IST20380 DC A((E$DEFINE-$DEFINE)/(B$DEFINE-$DEFINE)) IST20381 DC A(B$PNAME-$PNAME) IST20382 DC A(B$PVALUE-$PVALUE) IST20383 E$LENGTH EQU * IST20384 END IST20385 -FILE 572; 64 RECORDS: 0IST3 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' IST30001 SPACE 1 IST30002 *********************************************************************** IST30003 * * IST30004 *********************************************************************** IST30005 * * IST30006 *********************************************************************** IST30007 * * IST30008 * * IST30009 * UMIST MISCELLANEOUS CONTROL SECTIONS * IST30010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 3 IST30055 CFREE CSECT IST30056 ENTRY FREE IST30057 ENTRY EFREE IST30058 SPACE 1 IST30059 FREE EQU * IST30060 DS 1018F IST30061 EFREE EQU * IST30062 SPACE 6 IST30063 END IST30064 -FILE 573; 1484 RECORDS: 0IST4 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' IST40001 PRINT OFF IST40002 SPACE 1 IST40003 GBLC &ASM IST40004 &ASM SETC 'PSECT' IST40005 COPY /SYMBOLS@S IST40006 PRINT ON IST40007 COPY /PSECT@S IST40008 &ASM SETC 'UT1' IST40009 SPACE 6 IST40010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PRINTZ LTR H,H ARE YOU THROUGH? IST41475 BNZ PRINT BRANCH IF NOT IST41476 ZR 0 CLEAN UP AFTER OS/360 IST41477 ZR 1 CLEAR OUT 1 AFTER OS IST41478 PRINTED POP , RESTORE STACK POINTER IST41479 PRINTOUT EXIT D,R IST41480 * IST41481 PRINTM DC F'0' MODIFIERS FOR SPRINT IST41482 DROP J IST41483 END IST41484 -FILE 574; 1755 RECORDS: 0IST5 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' IST50001 SPACE 1 IST50002 GBLC &ASM IST50003 &ASM SETC 'PR1' IST50004 COPY /SYMBOLS@S IST50005 COPY /PSECT@S IST50006 SPACE 6 IST50007 *********************************************************************** IST50008 * * IST50009 *********************************************************************** IST50010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LEFERRA ERROR 'FUNCTION CALL TABLE OVERFLOW IN LEF',,12 IST51746 B LEFOUT IST51747 LEFERRB STM H,I,0(S) SAVE RESISTERS H AND I IST51748 GETARG H GET ARGUMENT BOUNDS IST51749 ERROR 'ATTEMPT TO REDEFINE A PROTECTED NAME IN LEF ',,12,H IST51750 LM H,I,0(S) RESTORE REGISTERS H AND I IST51751 B LEFTRY1 IST51752 DROP J IST51753 SPACE 6 IST51754 END IST51755 -FILE 575; 1400 RECORDS: 0IST6 TITLE 'UNIVERSITY OF MICHIGAN IST ... K. YAMAGUCHI' IST60001 PRINT OFF IST60002 SPACE 1 IST60003 GBLC &ASM IST60004 &ASM SETC 'PR2' IST60005 COPY /SYMBOLS@S IST60006 PRINT ON IST60007 COPY /PSECT@S IST60008 SPACE 6 IST60009 *********************************************************************** IST60010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC CL8'8' IST61391 DC CL8'9' IST61392 MTSTBL1E EQU *-8 IST61393 MTSNOOP DC C'NOOP' IST61394 MTSBUSY DC C'BUSY' IST61395 MTSBAT DC C'BATCH' IST61396 MTSCONV DC C'CONV.' IST61397 DROP J IST61398 SPACE 6 IST61399 END IST61400 -FILE 576; 131 RECORDS: 01 THIS IS A GENERAL UMIST TEST AT ##(TM) ON ##(DT)...' -' ##(EQ,##(EQ,##(EQ,,,T,F),##(EQ,THIS IS A LOOONG STRINX,THIS IS A LOOONG STRING,F ,T),Y,N),##(EQ,1111,111,N,Y),EQ O.K.,EQ IN ERROR)' ##(EQ,##(EQ,##(RS),(#(##(A,B))),Y,N),##(EQ,#(RS),,Y,Z),RS O.K.,RS IN ERROR)'#(## (A,B))'#(DSS,MES,*)#(RS)#(DSS,MES,##(XTC,7D))#(RS)'*'' ##(EQ,##(EQ,##(EQ,##(RC),1,OK,NO),##(EQ,##(RC),#,OK,NEG),YES,OH),##(EQ,##(RC),## (MES),YES,OOPS),RC O.K.,RC IN ERROR)'1#' ##(EQ,##(EQ,##(RN,1),A,OK,NO),##(EQ,##(RN,7),1234567,OK,F),##(NL,##(RN,11))#(RN, 8),##(RN,11))'A1234567RN IN ERROR##(RN,7)RN O.K.RN IN ERROR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> )#(EASY)...#(CL,EASY)'DS,1,#( ,1)'DS,5,#( ,5)'EQ,#(CL,1)#(CL,5),1120,RECURSIVE F ACTORIAL AND EASY WORK,RECURSIVE FACTORIAL AND EASY DO NOT WORK'CL,EASY,#(RIN)' -' #(DS, ,(#(DS,CTR,1)#(DS,VAL,1)#(TEST,X)... #(DS,TEST,(#(EQ,X,#(CTR),#(VAL),(#(DS,VAL,#(DS,CTR,#(AD,#(CTR),1))#(ML,#(CTR),#( VAL)))#(TEST,X)... #(SS, ,X)#(SS,TEST,X)#(EQ,#( ,1)#( ,5),1120,ITERATIVE FACTORIAL WORKS,ITERATIVE FACTORIAL DOES NOT WORK)' ##(DS,A,(-END OF UMIST TEST AT ##(TM) ON ##(DT)))' ##(BYE,#(A))' -FILE 577; 7584 RECORDS: 0 TITLE 'E22A MODIFIED E22 (OCT. 7, 1968) CORRESPONDING TO V2.0' 00000001 * VERSION 2.0 CORRESPONDS TO THIS LISTING 00000002 COPY MLINK LINKAGE. 00000003 COPY PARMS PARAMETERS. 00000004 TITLE 'SYSTEM PARAMETERS' 00000005 * IMPLEMENTATION-INDEPENDENT PARAMETERS 00000006 * 00000007 ATTRIB EQU 2*DESCR ATTRIBUTE POSITION IN STRING STRUC. 00000008 LNKFLD EQU 3*DESCR LINK POSITION IN STRING STRUCTURE. 00000009 BCDFLD EQU 4*DESCR CHARACTER POSITION IN STRING STRUC. 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SCANNO FORMAT '(1H0,I15,26H PATTERN MATCHES PERFORMED)' 00007575 STDMP FORMAT '(33H1DUMP OF VARIABLES AT TERMINATION/1H )' 00007576 STGENO FORMAT '(1H0,I15,33H REGENERATIONS OF DYNAMIC STORAGE)' 00007577 SOURCF FORMAT '(42H0BELL TELEPHONE LABORATORIES, INCORPORATED,/1H1)' 00007578 STATHD FORMAT '(28H1SNOBOL4 STATISTICS SUMMARY-)' 00007579 SUCCF FORMAT '(38H0NO ERRORS DETECTED DURING COMPILATION/1H1)' 00007580 SYSCMT FORMAT '(27H0CUT BY SYSTEM IN STATEMENT,I4,9H AT LEVEL,I3)' 00007581 TIMEPS FORMAT '(1H0,F15.2,35H MS. AVERAGE PER STATEMENT EXECUTED/1H1)' 00007582 TITLEF FORMAT '(36H1SNOBOL4 (VERSION 2.0, OCT. 7, 1968)/8H+_______)' 00007583 END 00007584 -FILE 578; 1963 RECORDS: 0SUBR START 00000001 ENTRY ARITH# 00000002 ENTRY ADJSWTCH 00000003 ENTRY ADJSW 00000004 EXTRN FORTSAVE 00000005 ENTRY ALPHA 00000006 ENTRY LASTDUMP 00000007 ENTRY APDSP 00000008 ENTRY BDSPEC 00000009 ENTRY COMPLG 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L R3,0(R2) N 00001954 SR R3,R4 N-(N-I) = I 00001955 ST R3,0(R2) SET LENGTH OF R1. 00001956 L 1,=A(STYPE) 00001957 ST R7,0(1) 00001958 B 8(14) 00001959 STRMTRT TRT 1(0,1),0(R3) TRANSLATE AND TEST 00001960 STTEMP DC 2F'0' 00001961 LTORG 00001962 END 00001963 -FILE 579; 96 RECORDS: 0STINT START 00000001 ENTRY MEMLEN LENGTH OF FREE STORAGE ALLOCATED. 00000002 DESCR EQU 8 ADDRESS WIDTH OF STANDARD STORAGE 00000003 MEMLEV EQU 10000 LEAVE THIS MANY BYTES FOR BUFFERS 00000004 * AND NON-RESIDENT I/O MODULES. 00000005 MEMMIN EQU 4400 MINIMUM 'TOY' MEMORY SIZE (DESCR). 00000006 MEMMAX EQU 25000 MAXIMUM NUMBER OF DESCRIPTORS 00000007 TITLE 'STINT' 00000008 USING *,7 00000009 LR 7,15 SAVE BASE 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC CL8'STORAGE' 00000087 MEMREQ DC A(MEMMIN*DESCR) 00000088 MEMTOP DC A(MEMMAX*DESCR) 00000089 MEMGIV DC A(0) 00000090 MEMLEN DC A(0) 00000091 RESERVE DC A(MEMLEV) 00000092 DIGIT DC F'0' 00000093 CHAR EQU DIGIT+3 00000094 DONE DC C' ' 00000095 END 00000096 -FILE 580; 1843 RECORDS: 0./ ADD NAME=ACOMP,LEVEL=01,SOURCE=0 00000001 MACRO 00000002 &LOC ACOMP &CL1,&CL2,&LOC1,&LOC2,&LOC3 00000003 &LOC L 1,&CL1 00000004 C 1,&CL2 00000005 AIF ('&LOC1' NE '&LOC2').NOT12 00000006 AIF ('&LOC1' NE '').K1 00000007 BL &LOC3 00000008 MEXIT 00000009 .K1 BNL &LOC1 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> &LOC ZERBLK &PTR,&CL 00001834 &LOC L 1,&PTR 00001835 L 5,&CL 00001836 LR 4,8 00001837 LR 3,0 00001838 LD 0,=D'0' 00001839 A&SYSNDX STD 0,0(3,1) 00001840 BXLE 3,4,A&SYSNDX 00001841 MEND ZERBLK 00001842 ./ ENDUP 00001843 -FILE 581; 3962 RECORDS: 0 MACRO 00000001 &LOC1 BRANCH@ &LOC2,&LOC3 00000002 AIF (T'&LOC3 NE 'O').A 00000003 &LOC1 B 0 00000004 MEXIT 00000005 .A ANOP 00000006 &LOC1 L 11,0 00000007 BR 11 00000008 MEND BRANCH@ 00000009 MACRO 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BRANCH RTN1 00003953 WA$FMT1 FORMAT '(29H IT OCCURRED IN STATEMENT NO. ,I5)' 00003954 WA1 SETAC EMSGCL,WA$TM 00003955 BRANCH FTLEXT 00003956 WA$N DESCR 0,0,0 00003957 WA$DIAG DESCR DIAGUN,0,0 00003958 WA$FMT FORMAT '(20H THIS IS WARNING NO.,I4)' 00003959 WA$TM STRING 'TOO MANY WARNINGS.' 00003960 LTORG 00003961 END 00003962 -FILE 582; 211 RECORDS: 0./ ADD LIST=ALL,SEQFLD=774,NAME=CYC 00000001 ./ NUMBER SEQ1=ALL,NEW1=0010,INCR=0010 00000002 MACRO 00000003 &LOC CYC &CL1 00000004 &LOC ACOMPC &CL1,3*DESCR,,,AA&SYSNDX 00000005 SETAC &CL1,0 00000006 AA&SYSNDX INCRA &CL1,DESCR 00000007 MEND CYC 00000008 ./ ADD LIST=ALL,SEQFLD=774,NAME=FASTPR 00000009 ./ NUMBER SEQ1=ALL,NEW1=0010,INCR=0010 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ./ ADD LIST=ALL,SEQFLD=774,NAME=TRL 00000202 ./ NUMBER SEQ1=ALL,NEW1=0010,INCR=0010 00000203 MACRO 00000204 &LOC TRL &CL1,&CL2 00000205 &LOC MOVD &CL1,&CL2 00000206 VEQLC &CL2,EDGDT,AA&SYSNDX 00000207 GETDC &CL1,&CL2,TR1$ 00000208 AA&SYSNDX LHERE , 00000209 MEND TRL 00000210 ./ ENDUP 00000211 -FILE 583; 52 RECORDS: 0./ REPL LIST=ALL,SEQFLD=774,NAME=ENDEX 00000001 ./ NUMBER SEQ1=ALL,NEW1=0010,INCR=0010 00000002 MACRO 00000003 &LOC ENDEX 00000004 &LOC L 1,=A(SPIECUTF) 00000005 C 0,0(1) 00000006 BE U&SYSNDX 00000007 ABEND 1,DUMP 00000008 U&SYSNDX C 0,ABNDCL 00000009 BE V&SYSNDX 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ./ REPL LIST=ALL,SEQFLD=774,NAME=VARID 00000043 ./ NUMBER SEQ1=ALL,NEW1=0010,INCR=0010 00000044 MACRO 00000045 &LOC VARID &CL1,&SP 00000046 &LOC LA 1,&CL1 00000047 LM 2,4,&SP 00000048 L 15,=V(VARID) 00000049 BALR 14,15 00000050 MEND VARID 00000051 ./ ENDUP 00000052 -FILE 584; 372 RECORDS: 0CLEANIO CSECT 00000001 ENTRY FASTRD 00000002 ENTRY STREAD 00000003 ENTRY FASTPR 00000004 ENTRY FINIS 00000005 ENTRY FORTSAVE 00000006 ENTRY IHCTRCH 00000007 *********************************************************************** 00000008 * * 00000009 * CLEANIO * 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 4H 00000363 DS CL1 00000364 DS 0F 00000365 SAVE DS 16F REGISTER SAVE 00000366 FDIOCS$ DS F 00000367 MAINEP DS F MAIN PROGRAM ENTRY POINT 00000368 ERRSAV DS 18F 00000369 ENDFILE DS F EXIT ADDRESS FOR EOF, OR ZEROS 00000370 IOERROR DS F EXIT FOR I/O ERROR CR ZEROS 00000371 END 00000372 -FILE 585; 67 RECORDS: 0VARID CSECT 00000001 EXTRN FRWDTB 00000002 USING *,15 00000003 CHARPTR EQU 4 POINTS TO THE CHARACTERS 00000004 CLPTR EQU 6 POINTS TO THE DOUBLE WORD WHICH IS TO 00000005 * RECEIVE THE HASHING 00000006 LREG EQU 7 HOLDS THE LENGTH 00000007 TEMPREG EQU 2 00000008 TEMP1REG EQU 5 A TEMPORARY 00000009 TEMP2REG EQU 2 00000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> M EVENREG,4(CLPTR) 00000058 SLDL EVENREG,11 00000059 SLL LREG,24 00000060 ALR ODDREG,LREG 00000061 SRL ODDREG,24 00000062 SLL ODDREG,3 00000063 ST ODDREG,0(CLPTR) 00000064 ST EVENREG,4(CLPTR) 00000065 BR 14 00000066 END 00000067 -FILE 586; 1572 RECORDS: 0$RUN *MOUNT PAR=S426 9TP *IN* SIZE=3200 RING=OUT 'SNOBOL MASTER' $RUN *MOUNT PAR=S422 9TP *OUT* SIZE=3200 RING=IN 'SNOBOL UPDATE' $RUN *UPDATE %REW *IN* %REW *OUT* %INPUT *IN* 40 %OUTPUT *OUT* 40 %BEFORE '00000071' OUTPUT OUTPUT,TITLEF1 %BEFORE '00000104' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COPY1=*DUMMY* COPY2=*DUMMY* COPY3=*DUMMY* $RUN *MACGEN SCARDS=MACROS1(1000) SPUNCH=MACROS1 $RUN *MACGEN SCARDS=MACROS2(1000) SPUNCH=MACROS2 $RUN *MACGEN SCARDS=MACROS3(1000) SPUNCH=MACROS3 $LIST MACROS1 $LIST MACROS2 $LIST MACROS3 $LIST MDATA $LIST MLINK $LIST PARMS -FILE 587; 45 RECORDS: 0SNOMAC: PROCEDURE OPTIONS (MAIN); DECLARE HEADER STATIC CHARACTER (2); DECLARE DUMMY1 STATIC CHARACTER (7); DECLARE NAME STATIC CHARACTER (5); DECLARE LINE STATIC CHARACTER (58); DECLARE DUMMY2 STATIC CHARACTER (8); DECLARE CNT BINARY FIXED INITIAL (0); START: CALL READ; IF HEADER='./' THEN GO TO NEWMAC; PRINT: PUT FILE(MACRO) EDIT (HEADER,DUMMY1,NAME,LINE) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COP3: PUT FILE(COPY3) EDIT (HEADER,DUMMY1,NAME,LINE) (A(2), A(7), A(5), A(58)); CALL READ; IF HEADER='./' THEN GO TO NEWMAC; GO TO COP3; READ: PROCEDURE; GET EDIT (HEADER,DUMMY1,NAME,LINE,DUMMY2) (A(2), A(7), A(5), A(58), A(8)); END READ; END: END SNOMAC; -FILE 588; 66 RECORDS: 0ESD SNOMAC ;*SNOMACA IHEQINV  SNOM0001 ESD IHESADA  IHESADB  IHEQERR  SNOM0002 ESD IHEQTIC IHEMAIN IHENTRY SNOM0003 ESD IHESAPC  IHEQLWF IHEQSLA  SNOM0004 ESD IHEQLW0 *SNOMACB*SNOMACC SNOM0005 ESD IHEDIBA  IHEDOBA  IHEIOAT  SNOM0006 ESD IHEIOAA  IHEIOBT  IHEIOBA  SNOM0007 ESD IHESAFA  IHESCDS SCARDS  SNOM0008 ESD COPY3 COPY3 COPY2 SNOM0009 ESD COPY2 COPY1 COPY1  SNOM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT SNOM0057 TXT ٓ00 SNOM0058 RLD r ~jr~z SNOM0059 TXT SCARDSSNOM0060 TXT COPY3SNOM0061 TXT COPY2SNOM0062 TXT COPY1SNOM0063 TXT MACROSNOM0064 RLD `SNOM0065 END SNOM0066 -FILE 589; 205 RECORDS: 0* SYN00001 READ('INPUT',5,80) SYN00002 * SYN00003 * SYN00004 * THE FOLLOWING CONSTANTS DEFINE THE PARTICULAR CHARACTERS AND SYN00005 * CLASSES OF CHARACTERS USED IN THE SYNTAX TABLES FOR SNOBOL4. SYN00006 * SYN00007 * SYN00008 * SYN00009 * ALL CHARACTERS WHICH APPEAR AS QUOTED LITERALS, AND ALL SYN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 39 BYTE = '9C' :(RETURN) SYN00196 40 BYTE = 'A0' :(RETURN) SYN00197 * SYN00198 * SYN00199 * SYN00200 PUBLISH SYN00201 OUTPUT = X SYN00202 PUNCH = X :(RETURN) SYN00203 TER SYN00204 END SYN00205 -FILE 590; 120 RECORDS: 0BIOPTB SYNT0001 FOR('+') PUT(ADDFN) GOTO(TBLKTB) SYNT0002 FOR('-') PUT(SUBFN) GOTO(TBLKTB) SYNT0003 FOR('.') PUT(NAMFN) GOTO(TBLKTB) SYNT0004 FOR('$') PUT(DOLFN) GOTO(TBLKTB) SYNT0005 FOR('*') GOTO(STARTB) SYNT0006 FOR('/') PUT(DIVFN) GOTO(TBLKTB) SYNT0007 FOR(ORSYM) PUT(ORFN) GOTO(TBLKTB) SYNT0008 ELSE ERROR SYNT0009 CARDTB SYNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FOR(',') PUT(CMATYP) STOPSHORT SYNT0111 FOR(')') PUT(RPTYP) STOPSHORT SYNT0112 ELSE ERROR SYNT0113 VARTB SYNT0114 FOR(ALPHANUMERIC,'.') CONTINUE SYNT0115 FOR(TERMINATOR) PUT(VARTYP) STOPSHORT SYNT0116 FOR('(') PUT(FNCTYP) STOP SYNT0117 FOR(LEFTBR) PUT(ARYTYP) STOP SYNT0118 ELSE ERROR SYNT0119 $CONTINUE WITH SYNTBL SYNT0120 -FILE 591; 19 RECORDS: 0$RUN *SNOBOL4;5=*CONVSNOBOL(3) 6=*DUMMY*(1,20)+*MSINK* 8=*MSOURCE*@UC 9=*MSINK* $SOURCE *MSOURCE* INPUT("IN",8,132) OUTPUT("OUTPUT",9,"(1X,120A1)") PROG = ARRAY(200) I = 1 CLEAR PROG = CONVERT(" :>;","CODE") I = LT(I,199) I + 1 :S(CLEAR) PROG<200> = CONVERT(" :(NEXT);","CODE") OUTPUT = " ENTER SNOBOL STATEMENTS." >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NEXT TRIM(IN) ARB . TEXT . LIST RPOS(0) :F(END) TEXT POS(0) SPAN("1234567890") . NUM RTAB(0) . TEXT :F(IMED) IDENT(NUM) :S(IMED) PROG = CONVERT(TEXT "; :>;","CODE") :F(ERROR) :(NEXT) IMED CODE = CONVERT(TEXT "; :(NEXT);","CODE") :F(ERROR) : ERROR OUTPUT = "COMPILATION ERROR" :(NEXT) END -FILE 592; 2605 RECORDS: 0$EMPTY SLIPMACROS SLIP0001 $GET SLIPMACROS SLIP0002 $NUMBER SLIP0003 CALL 100 SLIP0004 SEXIT 105 SLIP0005 SINIT 110 SLIP0006 00000000 SLIP0007 $NUM 100,.01 SLIP0008 MACRO SLIP0009 &NAME CALL &CL,&AG,&NM SLIP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> % % 1 2 @N@ . @N@ < % 2 1 @N@ . < % 3 1 . @N@ < < SLIP2596 @FK@ SLIP2597 % % 1 2 @FK1@ E @N@ < % 2 1 @FK1@ < < SLIP2598 @EXP@ SLIP2599 % % 1 3 @V@ @OP@ @EXP@ < % 2 3 @FK@ @OP@ @EXP@ < % 3 2 @N@ @OP@ @EXP@ < SLIP2600 % 4 2 @OP@ @EXP@ < % 5 1 @V@ < % 6 1 @N@ < % 7 1 @FK@ << SLIP2601 @EXP@ A*B&C/D-32.E4.NE.52.E10&27.E22.3 SLIP2602 $ENDFILE SLIP2603 $RUN DRIVE2+*SLIP 5=DRIVE2DATA 6=*SINK* SLIP2604 $SIGNOFF SLIP2605 -FILE 593; 2569 RECORDS: 0 MACRO ST100001 &NAME ACQUIRE &QUAN,&FIELD ST100002 GBLA &$ACTR ST100003 GBLA &$NDX ST100004 GBLA &$YSNDX ST100005 GBLA &$RR,&$LPOS ST100006 GBLA &$R ST100007 GBLB &$QQQ ST100008 LCLA &R ST100009 ACTR &$ACTR ST100010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AGO .CONTE ST102560 .ISAREG AIF ('&RC(1)' EQ '15').CONTE ST102561 IHBERMAC 61,,&RC ST102562 MEXIT ST102563 .CONTE BR 14 RETURN ST102564 AGO .END ST102565 .ERROR1 IHBERMAC 36,,® ST102566 MEXIT ST102567 .ERROR2 IHBERMAC 37,,&PARA ST102568 .END MEND ST102569 -FILE 594; 1470 RECORDS: 0 TITLE 'WIREWRAP - MTS VERSION' WIRE0001 *WIREWRAP IS BASICALLY A LIST-PROCESSOR BUILT AROUND TWO LIST WIRE0002 * STRUCTURES: WIRE0003 * WIRE0004 * 1. A STRUCTURE NAMED 'CKT' WHICH CONTAINS A SINGLE WIRE0005 * CHAIN OF NET NAMES IN ALPHABETICAL ORDER. WIRE0006 * WIRE0007 * 2. A STRUCTURE NAMED 'PIN' WHICH CONTAINS ONE LIST WIRE0008 * ELEMENT FOR EVERY WIRE-WRAP PIN IN THE BAY(S) TO BE WIRE0009 * WIRED. THESE LIST ELEMENTS ARE PHYSICALLY ORDERED WIRE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'PAGE ' WIRE1461 PAGE DC 4C' ' WIRE1462 LEVELSW DC X'01' SWITCH FOR LEVEL 1 AND LEVEL 2 WIRE1463 * WIRE1464 EXIT L 13,0(0,13) RETURN CODE FOR PROCEDURES WIRE1465 LM 1,15,8(13) WIRE1466 BR 14 WIRE1467 EJECT WIRE1468 LTORG WIRE1469 END WIRE1470 -FILE 595; 472 RECORDS: 0 MACRO MSER0001 &L PROC ® MSER0002 USING *,® MSER0003 &L STM 1,15,8(13) MSER0004 LR ®,15 MSER0005 CNOP 0,4 MSER0006 ST 13,*+8 MSER0007 BAL 13,*+76 MSER0008 DS 18F MSER0009 MEND MSER0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'B22-1 B22-2 B23-1 B23-2 B24-1 B24-2 XMSER0463 B25-1 B25-2 B26-1 B26-2 B27-1 B27-2 B2XMSER0464 8-1 B28-2' MSER0465 DC C'A29-1 A29-2 A30-1 A30-2 A31-1 A31-2 XMSER0466 A32-1 A32-2 XMSER0467 ' MSER0468 DC C'B29-1 B29-2 B30-1 B30-2 B31-1 B31-2 XMSER0469 B32-1 B32-2 XMSER0470 ' MSER0471 END MSER0472 -FILE 596; 405 RECORDS: 0 MACRO RSER0001 &L PROC ® RSER0002 USING *,® RSER0003 &L STM 1,15,8(13) RSER0004 LR ®,15 RSER0005 CNOP 0,4 RSER0006 ST 13,*+8 RSER0007 BAL 13,*+76 RSER0008 DS 18F RSER0009 MEND RSER0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TITL2 DC C'B01 B02 B03 B04 B05 B06 B07 XRSER0396 B08 B09 B10 B11 B12 B13 B14 XRSER0397 B15 B16' RSER0398 TITL3 DC C'A17 A18 A19 A20 A21 A22 A23 XRSER0399 A24 A25 A26 A27 A28 A29 A30 XRSER0400 A31 A32' RSER0401 TITL4 DC C'B17 B18 B19 B20 B21 B22 B23 XRSER0402 B24 B25 B26 B27 B28 B29 B30 XRSER0403 B31 B32' RSER0404 END RSER0405 -FILE 597; 429 RECORDS: 0 MACRO IC000001 &L PROC ® IC000002 USING *,® IC000003 &L STM 1,15,8(13) IC000004 LR ®,15 IC000005 CNOP 0,4 IC000006 ST 13,*+8 IC000007 BAL 13,*+76 IC000008 DS 18F IC000009 MEND IC000010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ALPHA DC C'ABCDEFHJ' IC000420 NAMOVE MVC 0(0,11),0(8) IC000421 MOVEMOD MVC 0(0,9),0(11) IC000422 OUTLEN DC H'132' IC000423 OUTPUT DC 132C' ' IC000424 LASTPAGE DC X'00' LAST PAGE SWITCH FOR WW4 IC000425 PINUMS DC C'1 2 3 4 5 6 7 XIC000426 8 1 2 3 4 5 6 XIC000427 7 8' IC000428 END IC000429 -FILE 598; 127 RECORDS: 0$RUN WIREWRAP+RSERIES $SET BAYS=1 NETMAX=175 NETSIZE=50 PLOT=ON $TITLE BI-STATE CONTROL LOGIC $PTITLE 1 BI-STATE CONTROL LOGIC $DATA 1A01 R202 CLOSETD CLOENAE CLEARF CLK2-J* CLOSETK CLOENAL CLK2-N* 1A01 R202 CLOENAP CLEARR CLK4-T* CLK2-U CLOENAV 1A02 R202 CLK4-D CLOENAE CLEARF CLK8-J* CLK4-K CLOENAL CLK8-N >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 1B01 IC013 SEL7-B4* SEL6-B5* SEL5-B6* B1B8 1B02 IC001 B3A1* ICOD1A2 LATCH1A3 ICOD4A4* LATCH5A5 LATCH6A6 PBRKB2* 1B02 IC001 PBRK-B3 BRKREQB5* BRKREQ-B6 1C01 IC003 BRKREQ-A1* SEL0-A2 REQENAA3 B2A5* LATCH1A6 LATCH2B6 ICOD2B7 1C01 IC003 ICOD2B2* LATCH3B3 LATCH4B4 ICOD4B5 1C02 IC004 JAMA1* PTS1A2 HOLDA3 ENABLEA4 B1B2* LATCH1B3 LATCH2B4 1C02 IC004 LATCH3B5 ICOD3B6 1D01 IC004 ICOD3A1* LATCH4A2 LATCH5A3 LATCH6A5 LATCH7A6 ICOD1B2* LATCH2B3 1D01 IC004 LATCH3B4 LATCH4B5 LATCH5B6 1D02 IC009 ENABLEA1* PINIT-A3 PBRKA4 BRKREQA5 PTS3A6 -FILE 599; 2039 RECORDS: 0MNTR TITLE 'A SLIGHTLY MORE SOPHISTICATED MONITOR' VMN00001 MACRO VMN00002 IOENT &A=,&N=,&L=,&T=,&M=,&E=NL,&O=ON,&S=01400000 VMN00003 .* &A=DEVICE ADDRESS VMN00004 .* &N=DEVICE ID VMN00005 .* &L=DEVICE PROCESSOR NAME VMN00006 .* &T=CCW TYPE VMN00007 .* &M=CHENNEL MASK VMN00008 GBLA &NO VMN00009 LCLA &NO1 VMN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTORG VMN02030 DS 0D VMN02031 DC C'1234123&&' GUESS WHAT THIS IS? VMN02032 BUFFER DS 64F VMN02033 BUFC DS 256C VMN02034 BUFCP DS 80C VMN02035 BUFCB DC XL240'00' VMN02036 DS 0D VMN02037 BBB DS 400C VMN02038 END VMN02039 -FILE 600; 553 RECORDS: 0 MACRO CCWT0001 &N SETUP &A,&B CCWT0002 AIF (T'&N EQ 'O').A CCWT0003 &N DS 0H CCWT0004 .A IHBINNRA &A,&B CCWT0005 MEND CCWT0006 SPACE CCWT0007 MACRO CCWT0008 &N GRAB &L,&T= CCWT0009 &N SETUP ,&L CCWT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HAFMSK DC A(X'FFFF') CCWT0544 MASK DC A(X'FFFFF8') CCWT0545 PAGBNDRY DC A(X'FFF000') CCWT0546 PAGE DC F'4096' CCWT0547 STMSK DC F'7' CCWT0548 SVERR EQU CCWERR3 CCWT0549 MAXSIZE DC A(X'40000') CCWT0550 LTORG CCWT0551 GRABBUF DS 400F CCWT0552 END CCWT0553 -FILE 601; 1976 RECORDS: 0STMN TITLE 'MONITOR FOR STUDENTS' STMN0001 MACRO STMN0002 IOENT &A=,&N=,&L=,&T=,&M=,&E=NL,&O=ON,&S=01400000 STMN0003 .* &A=DEVICE ADDRESS STMN0004 .* &N=DEVICE ID STMN0005 .* &L=DEVICE PROCESSOR NAME STMN0006 .* &T=CCW TYPE STMN0007 .* &M=CHENNEL MASK STMN0008 GBLA &NO STMN0009 LCLA &NO1 STMN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTORG STMN1967 DS 0D STMN1968 DC C'1234123&&' GUESS WHAT THIS IS? STMN1969 BUFFER DS 64F STMN1970 BUFC DS 256C STMN1971 BUFCP DS 80C STMN1972 BUFCB DC XL240'00' STMN1973 DS 0D STMN1974 BBB DS 400C STMN1975 END STMN1976 -FILE 602; 1233 RECORDS: 0JOH3 TITLE 'GPSS/360 OS/MTS INTERFACE ROUTINES J. HENRIKSEN' GPSS0001 GPSSPKG CSECT GPSS0002 ENTRY OPENDUMY,CLOSDUMY,FRPLDUMY GPSS0003 ENTRY CLOSTAPE,CLOSFILE GPSS0004 ENTRY XXSCARDS,XXSPRINT,XXSPUNCH GPSS0005 ENTRY PSREAD,PSWRITE,TPREAD,TPWRITE GPSS0006 USING GPSSPKG,10,11,12 GPSS0007 STM 14,12,12(13) GPSS0008 LM 10,12,BASADR1-GPSSPKG(15) USE 15 AS BASE REGISTER GPSS0009 LA 14,MSTRSAVE GPSS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC A(MASSAGE) GPSS1224 DC V(MLMP) GPSS1225 DS 5F EXTRA SPACE IF EVER NEEDED GPSS1226 PSWCOM DC C'0PSW...XXXXXXXX XXXXXXXX' GPSS1227 ABENDCOM DC C'-**** "ABEND" TERMINATION REQUESTED AT LOCATION XXXXXXXGPSS1228 ' GPSS1229 COMPCODE DC C'0COMPLETION CODE XXX' GPSS1230 ERR# DC C'0ERROR NUMBER XXX' GPSS1231 LTORG GPSS1232 END GPSSPKG GPSS1233 -FILE 603; 274 RECORDS: 0KTOE TITLE 'K.T.O.E. KEEP TRACK OF ERRORS' XTRA0001 * XTRA0002 * EACH OF THE 5 ENTRY POINTS IS REACHED BY PICKING THE XTRA0003 * E.P. ADDRESS OUT OF THE EXTENDED SAVE AREA AND USING XTRA0004 * A FREE REGISTER TO BALR. THE NECESSARY CODE IS XTRA0005 * "REP'ED" IN. HENCE, THE CALLING AND RETURN SEQUENCES XTRA0006 * ARE SCREWY. UPON NEXT ASSEMBLY, THE DCBERR DCB XTRA0007 * SHOULD BE INCLUDED IN DAG01 AND PASSED ALONG IN THE XTRA0008 * IOSECT. THEN ALL THAT WILL BE NECESSARY IS TO INSERT XTRA0009 * IN THE APPROPRIATE PLACES, "PUT" MACROS THAT WRITE OUT XTRA0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GIVEBACK DS F XTRA0265 OVERLAY DS F XTRA0266 ABENDLOC DS F XTRA0267 HEADRADR DS F XTRA0268 ABND1LC DS F XTRA0269 ADCBERR DS F XTRA0270 HELPBLOK DS F XTRA0271 UPBLKTM DS F XTRA0272 END XTRA0273 $LIS EXTRAS XTRA0274 -FILE 604; 531 RECORDS: 0EPRC TITLE 'GPSS ERROR PROCESSING ROUTINES' ERRP0001 * ERRP0002 * HERE THEY ARE: ERRP0003 * ROUTINES WHICH HANDLE ATTENTION AND PROGRAM INTERRUPTS ERRP0004 * AND "ABEND" TERMINATIONS WITH THE GREATEST OF EASE ERRP0005 * ERRP0006 ERRPROC CSECT ERRP0007 USING ERRPROC,11,12 ERRP0008 USING EDSECT,10 DSECT ADDRESS PASSED BY GPSSPKG ERRP0009 LM 11,13,BASADR-ERRPROC(15) USE GR15 A LA BASE REGISTER ERRP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IINITADR DS 3F SAME FOR PGM INT EXIT ERRP0522 SAVERADR DS F ADDRESS OF WHERE GRS SAVED BY GPSSPK ERRP0523 OVERLAY DS F ERRP0524 PROMPTSW DS X ERRP0525 ENTCODE DS X ERRP0526 PUNTIND DS X ERRP0527 REPLYSW DS X ERRP0528 AMASSAGE DS F ERRP0529 VMLMP DS F ERRP0530 END ERRP0531 -FILE 605; 581 RECORDS: 0DAG1 TITLE 'GPSS/360/MTS VERSION I 4/1/68' DG010001 * DG010002 * THIS IS THE CONTROL SECTION OF GPSS/360 ---- IT PERFORMS THE DG010003 * FOLLOWING FUNCTION ---- 1. SAVES REGISTERS USED BY OS/360 DG010004 * 2. ISSUES A GETMAIN FOR -CONTROL- SAVEAREA DG010005 * 3. ISSUES A GETMAIN FOR I/O PASS AREA INFO. DG010006 * 4. CHECKS FOR UPDATE -OPTION- DG010007 * 5. DETERMINES GPSS/360 ENTITY QUANTITIES DG010008 * 6. REALLOCATES IF REQUESTED DG010009 * DG010010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CLSAVE DC A(CLRDSAVE) CLOSE READ - SAVE TAPE DG010572 * DG010573 WAJBTAPE DS F WORK AREA FOR ALL JOBTAPES DG010574 SAVEAREA DSECT DG010575 GENSAVE DS 18F DG010576 GRABSOME DS F DG010577 GIVEBACK DS F DG010578 OVERLAY DS F DG010579 ABENDLOC DS F DG010580 END DAG01 DG010581 -FILE 606; 426 RECORDS: 0DG1A TITLE 'GPSS 360 MTS VERSION I 4/1/68' DG1A0001 * DG1A0002 * THIS LOAD MODULE DTERMINES WHAT ENTITY QUANTITIES ARE REQUESTED DG1A0003 * AND IF REALLOCATION IS REQUIRED ---- DG1A0004 * DG1A0005 * IT WILL SET UP THE QUANTITY TABLE AND PLACE THE TABLE ADDRESS DG1A0006 * IN WORD5 OF THE PASS AREA DG1A0007 * DG1A0008 * IF ILLEGAL OR NO -PARM- ARGUMENT SPECIFIED, 64K VERSIO/N OF DG1A0009 * GPSS/360 WILL BE PROVIDED DG1A0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG1A0417 GIVEBACK DS F DG1A0418 OVERLAY DS F DG1A0419 ABENDLOC DS F DG1A0420 HEADRADR DS F DG1A0421 END DG1A0422 $DES DAG01 DG1A0423 OK DG1A0424 $COP DAG01A *TAPE* DG1A0425 $COP *SOURCE* *TAPE*@CC DG1A0426 -FILE 607; 2918 RECORDS: 0DAG2 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG020001 DAG02 CSECT DG020002 SAVER MYPARS=20,USGR=5,CSECT=DAG02 DG020003 LR 4,2 SAVE ADDRESS OF PASS AREA DG020004 LR 9,6 JOBIND DG020005 N 6,MASK JOBIND+3 DG020006 LA 7,194 B CHARACTER DG020007 CLR 7,6 DETERMINE GET SIZE DG020008 BE GETB DG020009 BH GETA DG020010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG022909 GIVEBACK DS F DG022910 OVERLAY DS F DG022911 ABENDLOC DS F DG022912 HEADRADR DS F DG022913 END DG022914 $DES DAG01 DG022915 OK DG022916 $COP DAG01A *TAPE* DG022917 $COP *SOURCE* *TAPE*@CC DG022918 -FILE 608; 4546 RECORDS: 0DAG3 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG030001 DAG03 CSECT DG030002 SAVER MYPARS=20,USGR=1,CSECT=DAG03 DG030003 LA 11,DAG03+4090 DG030004 USING DAG03+4090,11 DG030005 LA 14,DAG03+8180 DG030006 USING DAG03+8180,14 DG030007 LA 12,DAG03+12270 DG030008 USING DAG03+12270,12 DG030009 USING FINK,2 DG030010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG034537 GIVEBACK DS F DG034538 OVERLAY DS F DG034539 ABENDLOC DS F DG034540 HEADRADR DS F DG034541 END DG034542 $DES DAG01 DG034543 OK DG034544 $COP DAG01A *TAPE* DG034545 $COP *SOURCE* *TAPE*@CC DG034546 -FILE 609; 1075 RECORDS: 0DAG4 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG040001 DAG04 CSECT DG040002 SAVER MYPARS=20,USGR=11,CSECT=DAG04 DG040003 USING DAG04+4096,2 DG040004 USING NUM1,3 GR3 IS BASE FOR BLOCKS DG040005 USING DCBINP,1 GR1 IS BASE FOR IOSECT DG040006 USING QUDSECT,4 GR4 IS BASE FOR ENTITY QUANTITY TABLE DG040007 BEGIN LTR 3,3 TEST FOR ALTERNATE ENTRY DG040008 BZ BEGIN1 NO - INITIALIZE DG040009 B DAG04A ALTERNATE DG040010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG041066 GIVEBACK DS F DG041067 OVERLAY DS F DG041068 ABENDLOC DS F DG041069 HEADRADR DS F DG041070 END DG041071 $DES DAG01 DG041072 OK DG041073 $COP DAG01A *TAPE* DG041074 $COP *SOURCE* *TAPE*@CC DG041075 -FILE 610; 9117 RECORDS: 0DG4B TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG4B0001 DAG04B CSECT DG4B0002 SAVER MYPARS=20,USGR=11,CSECT=DAG04B DG4B0003 USING DAG04B+4096,2 DG4B0004 USING DCBINP,1 DG4B0005 USING QUDSECT,4 DG4B0006 USING NUM1,3 DG4B0007 BEGIN L 2,BASADR DG4B0008 * THIS ROUTINE TESTS FOR BLOCK REDEFINITION DG4B0009 * GR4 = ADDRESS OF BLOCK WORDS DG4B0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG4B9108 GIVEBACK DS F DG4B9109 OVERLAY DS F DG4B9110 ABENDLOC DS F DG4B9111 HEADRADR DS F DG4B9112 END DG4B9113 $DES DAG01 DG4B9114 OK DG4B9115 $COP DAG01A *TAPE* DG4B9116 $COP *SOURCE* *TAPE*@CC DG4B9117 -FILE 611; 7081 RECORDS: 0DAG5 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG050001 DAG05 CSECT DG050002 SAVER MYPARS=20,USGR=11,CSECT=DAG05 DG050003 USING DAG05+4096,2,14 DG050004 BEGIN L 2,BASADR LOAD CONTINUATION REGISTERS DG050005 L 14,BASADR1 DG050006 USING DCBINP,1 GR1 IS BASE FOR IOSECT DG050007 USING NUM1,3 REG 3 IS BASE FOR WORDS DG050008 USING B1,4 REG 4 IS BASE FOR BLOCK WORDS DG050009 CLI PATCH15,X'02' DAG05A SWITCH ON DG050010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG057072 GIVEBACK DS F DG057073 OVERLAY DS F DG057074 ABENDLOC DS F DG057075 HEADRADR DS F DG057076 END DG057077 $DES DAG01 DG057078 OK DG057079 $COP DAG01A *TAPE* DG057080 $COP *SOURCE* *TAPE*@CC DG057081 -FILE 612; 5033 RECORDS: 0DAG6 TITLE 'GPSS/360 MTS VERSION I 4/1/68' DG060001 DAG06 CSECT DG060002 SAVER MYPARS=20,USGR=11,CSECT=DAG06 DG060003 USING NUM1,3 REG 3 IS BASE FOR WORDS DG060004 USING DCBINP,1 DG060005 L 5,PROGMASK DG060006 SPM 5 DG060007 BAL 5,OPENSYM OPEN SYMBOL TAPE DG060008 L 8,CLOCK COMPUTE DG060009 S 8,BCLOK RELATIVE CLOCK DG060010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRABSOME DS F DG065024 GIVEBACK DS F DG065025 OVERLAY DS F DG065026 ABENDLOC DS F DG065027 HEADRADR DS F DG065028 END DG065029 $DES DAG01 DG065030 OK DG065031 $COP DAG01A *TAPE* DG065032 $COP *SOURCE* *TAPE*@CC DG065033 -FILE 613; 5178 RECORDS: 0DAG04C CSECT DG4C0001 SAVE (14,12) DG4C0002 BALR 11,0 GR11 IS BASE DG4C0003 USING BEGIN,11,2 DG4C0004 USING DCBINP,1 DG4C0005 USING QUDSECT,4 DG4C0006 USING NUM1,3 DG4C0007 BEGIN L 2,BASADR DG4C0008 GETMAIN R,LV=72 GET 18 WORDS FOR NEW SAVE AREA DG4C0009 ST 13,4(1) DG4C0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DCBRDSAV DS F READ/SAVE DCB DG4C5169 EODRDSAV DS F END OF DATA DG4C5170 OPSAVEI DS F OPEN READ/SAVE INPUT DG4C5171 OPSAVEO DS F OPEN READ/SAVE OUTPUT DG4C5172 CLSAVE DS F CLOSE READ/SAVE TAPE DG4C5173 * DG4C5174 WAJBTAPE DS F WORK AREA FOR ALL JOBTAPES DG4C5175 * DG4C5176 END DAG04C DG4C5177 /* DG4C5178 -FILE 614; 2601 RECORDS: 0DAG07 CSECT DG070001 TITLE 'GPSS/360 - OUTPUT PHASE' DG070002 BALR 14,0 DG070003 USING *,14 DG070004 LA 11,DAG07+4090 DG070005 USING DAG07+4090,11 DG070006 USING DCBINP,1 DG070007 USING NUM1,3 DG070008 LA 12,DAG07+8180 DG070009 USING DAG07+8180,12 DG070010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * DG072592 CLLJBT3 DS F CLOSE JBTAP3 WITH LEAVE ADDRESS DG072593 DCBRDSAV DS F DG072594 EODRDSAV DS F DG072595 OPSAVEI DS F DG072596 OPSAVEO DS F DG072597 CLSAVE DS F DG072598 WAJBTAPE DS F WORK AREA FOR ALL JOBTAPES DG072599 END DAG07 DG072600 /* DG072601 -FILE 615; 29 RECORDS: 0GETT TITLE 'GET TIME ESTIMATE FOR GPSS - VERSION 2' GTES0001 GTIMEST START 0 GTES0002 ENTER 12,SA=SA GTES0003 CALL GUINFO,(F86,TIME) GTES0004 L 1,TIME GTES0005 LTR 1,1 GTES0006 BZ TRYGLOB GTES0007 CALL GUINFO,(F96,TTN) GTES0008 B EXIT GTES0009 TRYGLOB CALL GUINFO,(F78,TIME) GTES0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SR 15,15 GTES0020 BR 14 GTES0021 F86 DC F'86' GTES0022 F78 DC F'78' GTES0023 F96 DC F'96' GTES0024 F94 DC F'94' GTES0025 TIME DS F GTES0026 TTN DS F GTES0027 SA DS 18A GTES0028 END GTES0029 -FILE 616; 285 RECORDS: 0 MACRO GMAC0001 &NAME OPEN &LIST GMAC0002 AIF ('&NAME' EQ '').CON0 GMAC0003 &NAME EQU * GMAC0004 .CON0 AIF ('&LIST(1)' EQ '(1)').CON1 GMAC0005 CNOP 0,4 GMAC0006 BAL 1,*+8 BAL AROUND GMAC0007 DC A(&LIST(1).) THE DCB ADDRESS GMAC0008 .CON1 AIF ('&LIST(2)' NE '(INPUT)').CON2 GMAC0009 LA 0,2 SET INPUT SWITCH GMAC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TR *+30-&DIGITS.(&DIGITS),=C'0123456789ABCDEF' GMAC0276 B *+24 GMAC0277 DS F GMAC0278 DC X'0000000000000000' GMAC0279 DS 8X GMAC0280 AIF (T'&LOC(1) NE 'N').CON1 GMAC0281 MVC 0(&DIGITS,&LOC(1).),*-&DIGITS GMAC0282 AGO .END GMAC0283 .CON1 MVC &LOC.(&DIGITS),*-&DIGITS GMAC0284 .END MEND GMAC0285 -FILE 617; 667 RECORDS: 0EDTR TITLE 'EDITOR' EDIT0001 * EDIT0002 * ********************************************************** EDIT0003 * * * EDIT0004 * * SDS EDITOR ROUTINE * EDIT0005 * * * EDIT0006 * ********************************************************** EDIT0007 * EDIT0008 * EDIT0009 * EDIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSING COMMENT '-***MISSING SYM OR ESD CARDS.' EDIT0658 B TDEXIT EDIT0659 MSEND COMMENT '-***MISSING END CARD IN OBJECT FILE.' EDIT0660 B TDEXIT EDIT0661 * EDIT0662 PUNT COMMENT '***SYSTEM ERROR.' EDIT0663 ERROR EDIT0664 * EDIT0665 INPUT DS 256C INPUT REGION EDIT0666 END EDIT0667 -FILE 618; 2433 RECORDS: 0SDS TITLE 'SDS INITIALIZATION' SDS00001 * SDS00002 * ********************************************************** SDS00003 * * * SDS00004 * * SYMBOLIC DEBUGGING SYSTEM - COMMUNICATIONS MODULE * SDS00005 * * * SDS00006 * ********************************************************** SDS00007 * SDS00008 * THIS IS THE COMMUNICATIONS MODULE COMMON SDS00009 * TO ALL SECTIONS IN SDS. IT CONTAINS PROCEDURES SDS00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * SDS02424 PSTE FR0,FREGS,8,11 SDS02425 PSTE FR2,FREGS+2*4,8,11 SDS02426 PSTE FR4,FREGS+4*4,8,11 SDS02427 PSTE FR6,FREGS+6*4,8,11 SDS02428 PSTE GRS,REGISTRS,4,12 SDS02429 PSTE FRS,FREGS,8,13 SDS02430 PSTE PSW,PSW,8,14 SDS02431 DC X'00000000' SDS02432 END SDS02433 -FILE 619; 1684 RECORDS: 0FCN TITLE 'CONTROL FUNCTION MODULE' FCN00001 * FCN00002 * FCN00003 * FCN00004 * ********************************************************** FCN00005 * * * FCN00006 * * SDS CONTROL FUNCTION MODULE * FCN00007 * * * FCN00008 * ********************************************************** FCN00009 * FCN00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MAPENTRY DSECT MAP ENTRY FOR SDS MAP FCN01675 LOADADD DS XL3 LOADED ADDRESS FCN01676 RELOC DS XL3 RELOCATION FACTOR FCN01677 LCSECT DS XL3 LENGTH FOR THIS CSECT FCN01678 CSNAME DS CL8 CSECT NAME FCN01679 SKEY DS X MAP FLAG BYTE FCN01680 STPTR DS XL3 PTR TO START OF CSECT IN SYMBOL TABLE FCN01681 TOBECON DS AL4 PTR TO LAST SDS LINK FOR A SECTION FCN01682 LMAP EQU *-MAPENTRY FCN01683 END FCN01684 -FILE 620; 1768 RECORDS: 0IOC TITLE 'I/O CONVERSION' IOC00001 * INOUT / OUTPUT CONTROL PACKAGE. IOC00002 * THIS SUB-LIBRARY CONATINS ALL THE SDS IOC00003 * INPUT / OUTPUT CONVERSION ROUTINES. IOC00004 * IOC00005 IOC CSECT IOC00006 PRINT NOGEN IOC00007 USING *,BASE COVER IOC IOC00008 USING LINKMOD,CHAIN COVER FOR SDSDSECT IOC00009 ENTRY FIXED IOC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IE EQU C'E' IOC01759 IPLUS EQU C'+' IOC01760 IMINUS EQU C'-' IOC01761 ICOMMA EQU C',' IOC01762 IQUOTE EQU C'''' IOC01763 IPRIOD EQU C'.' IOC01764 IZERO EQU C'0' IOC01765 I9 EQU C'9' IOC01766 TXDEXP EQU 0 IOC01767 END IOC01768 -FILE 621; 349 RECORDS: 0 TITLE 'SDS PSECT' PSC00001 * ********************************************************** PSC00002 * * * PSC00003 * * COMMUNICATION AREA * PSC00004 * * * PSC00005 * ********************************************************** PSC00006 * PSC00007 DS 0D PSC00008 SAVEAREA DS 19F PRIMARY SAVE AREA PSC00009 SAVEARE2 DS 19F SECONDARY SAVE AREA PSC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CLINK DS A FORWARD POINTER TO CONTINUED ENTRY PSC00340 DC X'E0' TERMINATOR CODE PSC00341 PLINK DS AL4 FWD PTR FOR PREVIOUS SECTION PSC00342 * PSC00343 LCSE EQU *-SDSLINK PSC00344 * PSC00345 ATDS DSECT DSECT FOR AT-TABLE ENTRY PSC00346 ATADRS DS A LOADED ADDRESS OF BREAKPOINT PSC00347 CARAD DS A POINTER TO COMMAND IN COMMAND TABLE PSC00348 LATENT EQU *-ATDS LENGTH FOR AT-TABLE ENTRY PSC00349 -FILE 622; 59 RECORDS: 0* DST00001 * DUMMY STG (SEE SDS LISTING FOR DEFINITON) DST00002 * DST00003 * INITITAL LOAD TABLE DST00004 * DST00005 INITS DS 0F DST00006 DC F'5' DST00007 DC CL12'SYSTEM' DST00008 DC CL12'ERROR' DST00009 DC CL12'PGNTTRP' DST00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> S4AB B * SCAN FOR DELIMITING BLANK DST00050 PISOSYM B * PUSH ISOSYM PARAMETERS DST00051 RISOSYM B * RESTORE ISOSYM PARAMETERS DST00052 TECF B * COMPUTE SDS TYPE CHARACTER INDEX DST00053 RESTIO B * RESTORE TO *MSOURCE* & *MSINK* DST00054 B * SPARE DST00055 FUNBASE DS A (FUNCTION) FUNCTION BASE REG VALUE DST00056 IOCBASE DS A (IOC) I/O CONTROL BASE REG VALUE DST00057 PARPFX DS A (SDSPRFX,LPFX) PARM LIST FOR CALL TO SETPFX DST00058 * DST00059 -FILE 623; 343 RECORDS: 0 MACRO MAC00001 &LABEL COMMENT &MSG MAC00002 &LABEL BAL GR14,COMMPROS MAC00003 DC AL1(L'M&SYSNDX) MAC00004 M&SYSNDX DC C&MSG MAC00005 MEND MAC00006 * MAC00007 MACRO MAC00008 &LABEL FETCH &WHERETO,&HOWMANY,&EXIT MAC00009 &LABEL LA WORKB,&WHERETO MAC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GBLC &SAVLOC MAC00334 &LABEL L LINK,&SAVLOC MAC00335 L BASE2,&SAVLOC+4 MAC00336 AIF (T'&MODE EQ 'O').B2 MAC00337 AIF ('&MODE'(1,1) EQ 'F').B4 MAC00338 .B2 B 4(0,LINK) MAC00339 &SAVLOC DS 2A MAC00340 MEXIT MAC00341 .B4 BR LINK MAC00342 MEND MAC00343 -FILE 624; 1128 RECORDS: 0SIML TITLE 'SDS SIMULATOR' SMLT0001 * SMLT0002 * SDS SIMULATOR (MODIFIED FROM STASS360) SMLT0003 * SMLT0004 * SMLT0005 MACRO SMLT0006 &L GETR12 SMLT0007 &L LR XR1,XR2 SMLT0008 SRL XR1,2 R1*4 SMLT0009 SLL XR2,2 R2*4 SMLT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WORK1 DS F SMLT1119 * SMLT1120 SIMINS DS F COUNT OF SIM INSTRUCTIONS SMLT1121 * SMLT1122 TRACES DS F MAX NO TRACES=100 SMLT1123 DS F START ADDR-REL SMLT1124 DS F END ADDR-REL SMLT1125 * SMLT1126 * SMLT1127 END SMLT1128 -FILE 625; 1622 RECORDS: 0$RUN *MOUNT PAR=S416 9TP *POOL* QUIT=YES RING=IN 'LP UPDATE TAPE' $EMP SDSMACROS $EMP DSECT2 $CRE -SYSUT2 SIZE=3000 $EMP SDSDSECT $RUN *UPDATE %REW *POOL* %OUT *POOL* 40 %INP EDITSOU 40 EDITOR 1 %AFT EDIT0374 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $RUN *MACGEN SCARDS=-SYSUT2(1000) SPUNCH=SDSMACROS $COP -SYSUT2(1000) SDSMACROS(1000) $LIST SDSMACROS $EMP NEWSDS $DES -SYSUT2 $RUN *ASMG SCARDS=*POOL* SPUNCH=NEWSDS 0=*SYSMAC 2=SDSMACROS PAR=SIZE=200,IBLK=- 40,T,FX,RD,B $RUN *OBJSCAN NEWSDS SDS -FILE 626; 2921 RECORDS: 0 IMPLICIT INTEGER*4 (A - Z) FMT00001 INTEGER*2 LIST,COPIES,SPCHAR,BLANK,NUM,SCWORD,HYPHEN,LOWCAS, FMT00002 $ PERIOD,KEY028,LOCATE,CARDIC FMT00003 INTEGER*2 PAGDUM,SRT,COLBEG,CHRFIN FMT00004 COMMON /A/ POSN,IREAD,IWRITE,CCGCNT,PUNCH,NODOC,MERGE, FMT00005 $ REMNNT,INSWRD,FINISH,DELETE,COVEA,INVALD,BFOUND,CICNT1,CICNT, FMT00006 $ CIINC,DICT,NEXT,HIT, FMT00007 $ ARRAY1(3), FMT00008 $ LIST,COPIES,SPCHAR(42),BLANK,NUM(10),SCWORD,CARDIC, FMT00009 $ HYPHEN,LOWCAS,PERIOD,KEY028,LOCATE FMT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FMT02912 FMT02913 FMT02914 FMT02915 FMT02916 FMT02917 FMT02918 FMT02919 FMT02920 FMT02921 -FILE 627; 1620 RECORDS: 0 TITLE 'TEXT360 PRESCAN PROGRAM (OS VERSION)' OPN 1 * THIS IS VERSION 5 OF THE OS/360 VERSION OF THE TEXT360 PRESCAN. OPN 2 * THE MESSAGE FORMAT HAS BEEN CHANGED TO USE OPN 3 * SEMICOLON DELIMITERS RATHER THAN BLANK OPN 4 * DELIMITERS BETWEEN MESSAGES. THE PROGRAM HAS ALSO BEEN SPEEDED OPN 5 * UP. THE ONLY FUNCTIONAL CHANGE IS THE INTRODUCTION OF A CONDITIONAL OPN 6 * ABEND FACILITY, BASED ON THE NUMBER OF VARIOUS KINDS OF ERRORS OPN 7 * DETECTED DURING THE PRESCAN. THREE KINDS OF ERRORS ARE POSSIBLE: OPN 8 * MAJOR ERRORS, MINOR ERRORS, AND ''WARNING'' ERRORS. MAJOR AND OPN 9 * MINOR ERRORS ARE COUNTED DURING THE PRESCAN. (THE ERRORS ARE OPN 10 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MINERROR DC F'0' OPN1654 MINALLOW DC F'5' OPN1655 LTORG OPN1656 ERRORS DC C'- *** MAJOR ERRORS - ' MAJORS DC C'00000' DC C' *** MINOR ERRORS - ' MINORS DC C'00000' DC C' ***' DC CL80' ' END LOCATE OPN1659 -FILE 628; 1627 RECORDS: 0 /* TEXT360 - PHASE 1 (FILE MAINTENANCE) V5.0 JUNE 17,1968 */ FMT 1 FM: PROCEDURE OPTIONS(MAIN); FMT 2 ON ERROR BEGIN; FMT 3 PUT FILE(SPRINT) SKIP(3)DATA(NORM,PGLIN,MBINDX,LINE); PUT FILE(SPRINT) SKIP DATA (OINDX,CH); CALL IHEDUMP; FMT 6 END; FMT 7 DECLARE STATSW CHAR(1) STATIC INITIAL('0'); FMT 8 DECLARE CPUTIME ENTRY RETURNS (FLOAT BIN); RFORMAT: FORMAT( F(3), F(6), 2 A(1), A(NORM)); FMT 11 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SCOR = SUBSTR(USC,MBINDX,1); FMT1612 IF NOSTO = '1' THEN GO TO HYP2; FMT1613 CALL STORCH; FMT1614 HYP2: FMT1615 IF DC = BLANK THEN GO TO HYP1; FMT1616 DC = CH1; FMT1617 NOSTO = '0'; FMT1618 RETURN; FMT1619 END HYPCHK; FMT1620 END FM; FMT1621 -FILE 629; 3038 RECORDS: 0 /* TEXT360 - PHASE 2 (BUILD LINE) V5.0 JULY 12, 1968 */ BLN 1 /*ITS FUNCTION IS TO BUILD THE FORMATTED AND UNFORMATTED LINES AND TO*/BLN 2 /*CREATE A CROSS-REFERENCE TABLE ENTRY TO DESCRIBE THE LINE*/ BLN 3 /* IT CALLS */ BLN 4 /* 1. EOLCL - TO DO HOUSE KEEPING AFTER LINE IS FORCED OUT*/ BLN 5 /* 2. OVFCH - TO PROCESS A TEXT OVERFLOW. DOES JUST, HYPHEN ETC * BLN 6 /* 3. FOL - TO FORCE OUT A LINE */ BLN 7 /* 4. GETNC - TO GET THE NEXT CHARACTER. */ BLN 8 /* 5. PCWB - TO PLACE CHARACTER IN WORK BUFFERS */ BLN 9 /* IT GOES TO THE FOLLOWING ROUTINES */ BLN 10 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SKIP; BLN3024 ERSW = SWON; /*TURN ON ERROR SWITCH*/ BLN3025 /*STORE ERROR NUMBER*/ BLN3026 SUBSTR(ERBUF,1+(ERRCT*3),3) = PARA; BLN3027 ERRCT = ERRCT+1; /*BUMP COUNT*/ BLN3028 /*TOO MANY ERRORS FOR BUFFER*/ BLN3029 IF ERRCT > 9 THEN ERRCT = ERRCT -1; BLN3030 RETURN; BLN3031 END ERROR; /*END ERROR ROUTINE*/ BLN3032 END BUILINE; /*END BUILD A LINE ROUTINE*/ BLN3033 -FILE 630; 283 RECORDS: 0 HYPHEN : PROCEDURE ; HYP 1 HYP 2 0 DECLARE( HYP 3 RHX FIXED BIN(15), HYP 4 BREAKSW CHAR(1) INIT('0'), HYP 5 JUSTCT FIXED (7) BINARY, /* THE JUSTIFICATION COUNT */ HYP 6 HYPNSTR CHAR(1), HYP 7 LHX FIXED BIN(15), HYP 8 HLG FIXED BIN(15), HYP 9 HYCTBUF(40) FIXED BIN(15), HYP 10 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RHX = CTR1 ; HYP 274 HYPNSTR = '1' ; HYP 275 GO TO OUT ; HYP 276 END ; HYP 277 END ; HYP 278 NOGO : HYP 279 HYPNSTR = '0' ; HYP 280 OUT : HYP 281 RETURN ; HYP 282 END HYPHEN ; HYP 283 -FILE 631; 2182 RECORDS: 0 /* TEXT360 - PHASE 3 (PAGE LAYOUT) V5.0 JUNE 18,1968 */ PLO 1 1/* THE FOLLOWING PROCEDURE CONSTRUCTS THE LINE BUFFER AND CROSS- PLO 2 /* REFERENCE TABLE FOR LAYOUT AND OUTPUT. PLO 3 /* NAME OF PROCEDURE IS PAGEPRO. PLO 4 /* THE FUNCTION OF PAGEPRO IS TO READ INTERMEDIATE TAPE 2 PLO 5 /* AND CONSTRUCT THE LINE BUFFER AND CROSS-REFERENCE TABLE PLO 6 /* FRON THE INFORMATION ON THE TAPE. THIS PROCEDURE DEFINES PLO 7 /* LOGICAL PAGES. CERTAIN ALTER CODES ARE ALSO PROCESSED BY PLO 8 /* THIS PROCEDURE. PAGEPRO CALLS LAYOUT WHEN IT DETERMINES PLO 9 /* THAT A PAGE CAN BE FORMATTED. THIS IS THE CONTROLLING PLO 10 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LCT1 = LCT1 - OFOTLNG - 2; PLO2166 SUBSTR(PSTEXT,LCT1,OFOTLNG)= OFOTBUF; /*PUT IN ODD FOOTING.*/PLO2167 END; PLO2168 CALL PROUTP; /* PUT OUT FOOTING LINE. */ PLO2169 END PRPAGE; PLO2170 PROUTP: PROCEDURE; /* PUT OUT PRINT LINE*/ PLO2171 WRITE FILE(PRTOT) FROM(PRLIN); PLO2172 END PROUTP; PLO2173 0 END OUTPUT; PLO2174 0 END PAGEPRO; PLO2175 -FILE 632; 21 RECORDS: 0 /* TEXT360 - PHASE 4 (POST PROCESSOR) V5.0 JULY 9, 1968 */ PP0 1 PPR0 : PROCEDURE OPTIONS (MAIN) ; PP0 2 DECLARE SPELLER CHAR (1) INIT ('0') STATIC EXTERNAL ; PP0 3 DECLARE TIMEIN CHAR (8) STATIC ; DECLARE CPUTIME ENTRY RETURNS (FLOAT BIN); DECLARE PRTOT FILE OUTPUT RECORD ; PP0 5 DECLARE DICT FILE INPUT ENV (U(2400)); DECLARE SPRINT FILE PRINT ENV (U(121)); DECLARE MASTER FILE INPUT ; PP0 7 TIMEIN = TIME ; PP0 8 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CALL PPR1 ; PP0 10 IF SPELLER = '1' THEN DO ; PP0 11 OPEN FILE (DICT) , FILE (MASTER) ; CALL PPR2 ; PP0 14 END ; PP0 15 PUT FILE (SPRINT) SKIP LIST (TIMEIN,'BEGIN PHASE 4') ; PUT FILE (SPRINT) SKIP LIST (TIME,'END PHASE 4'); PUT FILE (SPRINT) SKIP EDIT ('CPUTIME: ',CPUTIME,' SECS') (A,F(10,3)) ; END PPR0 ; PP0 19 -FILE 633; 1299 RECORDS: 0 PPR1 : PROCEDURE ; /* THE POST PROCESSOR */ PP1 1 /* TEXT/360 POST PROCESSOR PP1 2 /* * * * * * * * * * * PP1 3 /* THE POST PROCESSOR PERFORMS THE FINAL CLEANUP OF THE TEXT/360 PP1 4 /* RUN. IT PRINTS LISTS OF ALTER CODES; EDIT CODES; FOOTNOTES; PP1 5 /* SEARCH, CHANGE, AND REVISE LINES; AND ERROR MESSAGES. THE TABLEPP1 6 /* OF CONTENTS AND OTHER LISTS OF USER-SPECIFIED LINES ARE ALSO PP1 7 /* PRINTED AT THIS TIME. THE POST PROCESSOR PERFORMS A SPELLING PP1 8 /* CHECK, IF REQUESTED. PP1 9 /* INPUT - EXCEPTION FILE PP1 10 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ELSE ODDEVEN = 1 ; PP11291 ENDPAGSW = '0' ; PP11292 BEGINPAGSW = '1' ; PP11293 BUFFER = PAGEBUF.TRAILBUF(ODDEVEN) ; PP11294 WRITE FILE (PRTOT) FROM (BUFFER) ; PP11295 END ; PP11296 PP11297 RETURN ; PP11298 END OUTPUT ; PP11299 END PPR1 ; PP11300 -FILE 634; 248 RECORDS: 0 /* POST PROCESSOR, VERSION 5.0, PHASE 3 */ PP2 1 PPR2 : PROCEDURE ; /* THE SPELLING CHECK PROGRAM */ PP2 2 PP2 3 PP2 4 DECLARE ( START1 (8) FIXED BIN (31) , PP2 5 NWORD1 (8) FIXED BIN (31) , PP2 6 LIMIT1 (8) FIXED BIN (31) , PP2 7 WORD1 CHAR (28600) ) STATIC ; PP2 8 PP2 9 DECLARE ( START2 (15) FIXED BIN (31) , PP2 10 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 'WORD1=',WORD1, PP2 237 'START2=',START2, PP2 238 'NWORD2=',NWORD2, PP2 239 'LIMIT2=',LIMIT2, PP2 240 'WORD2=',WORD2, PP2 241 'CTR=',CTR, PP2 242 'X1=',X1, PP2 243 'WORD=',WORD) ; PP2 244 CALL IHEDUMP ; PP2 245 END PPR2 ; PP2 246 -FILE 635; 200 RECORDS: 01/*UPDATE DICT0001 /*THE NAME OF THE PROCEDURE IS 'UPDATE'. THE FUNCTION OF 'UPDATE'IS DICT0002 /* TO FORM A DICTIONARY OF WORDS OF VARIOUS LENGTHS ON AN INITIAL RUN DICT0003 /*AND UPDATE THE DICTIONARY WITH ADDITIONS AND DELETIONS ON SUCCESSIVE DICT0004 /*RUNS DICT0005 */ DICT0006 UPDATE: PROCEDURE OPTIONS(MAIN); DICT0007 DECLARE ( DICT0008 FCOL CHAR (1), /*OPERATION INDICATOR*/ DICT0009 DICTBUF(24) CHAR (2300) VARYING, /*STORAGE FOR DICTIONARY*/ DICT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B = B + 5*T ; DICT0191 END ; DICT0192 B = 1 ; DICT0193 END ; DICT0194 END; DICT0195 OPEN FILE (DICT) OUTPUT; DICT0196 PUT FILE (DICT) LIST ((NOWRDBUF(T) DO T= 1 TO 24)); DICT0197 PUT FILE (DICT) LIST ((DICTBUF(T) DO T= 2 TO 24)); DICT0198 CLOSE FILE (DICT); DICT0199 END UPDATE; DICT0200 -FILE 636; 346 RECORDS: 0ITHE AND FOR ARE DATA CONTROL PROGRAM THIS THAT INSTRUCTION ROUTINE ADDRESS DIRECT BDAM AS OF IT IS IN OR BY BE TO AN WE HO PA ID MY PI EX OH SO GO MA OX UN US YE HA ME UP STORAGE NOT SET WITH SYSTEM FROM STATEMENT OPERATION WHEN USED MACRO WHICH CARD ONE NUMBER MAY SUBROUTINE WILL REGISTER CAN CHANNEL CODE MUST ERROR DEVICE ENTRY FIELD UNIT OUTPUT FORMAT EACH ALL SPECIFIED NAME OPERAND END BIT INPUT READ TABLE HAS ANY FOLLOWING BLOCK TAPE CHECK FIRST LENGTH TIME INSTRUCTIONS RECORD LOCATION THESE TYPE INTO ONLY AREA INFORMATION WORD LOAD PHASE TWO LIST USER TEST BITS BYTE VALUE USE CONDITION BEEN EXECUTION FUNCTION FIGURE ZERO >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GRAPHICALLY PRINTABLE DISTINCTION SEPARATOR CONSEQUENTLY MONITORED SEPARATING THEORETICALLY FORCES EXPLAINS CIRCUMSTANCES ALLOCATES SUPPLEMENTAL ALLOCATE AFFECTS DISCUSSIONS INDIVIDUALLY SCHEME ABLE OBTAINING ORIGINALLY RESPECIFIED CONVERSE MIDST RECALCULATES DEPTH DIVIDES JUSTIFICATION ESTABLISHES MARGINS DECREASING ACHIEVE SIMPLY MEASURED OPERATIVE RESPECIFIED ALTERMATED SKIPS HEADS PAGES FOOT SPACED SPACING REDUCES TWICE DIFFERENTLY INCREASES COMBINES CONTRAST EXAMINES FOLIO FOOTNOTE CONFUSED COUNTED STRETCHES D ACCUPY DEVIDE SEQRCH MIDIFIED TETURNED VARIAGLES ALTERMATED A DIVIDE SEARCH MODIFIED RETURNED VARIABLES ALTERNATED BMW -FILE 637; 309 RECORDS: 0FOREAL CSECT PRNT0001 SAVE (14,12),,* PRNT0002 BALR 8,0 PRNT0003 USING *,8 PRNT0004 B STARTSAV PRNT0005 * EQUEATES FOR REG NUMONICS PRNT0006 R3 EQU 3 PRNT0007 R4 EQU 4 PRNT0008 R5 EQU 5 PRNT0009 R6 EQU 6 PRNT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OUTLTH DC H'132' PRNT0300 MODIF DC A(X'2010') PRNT0301 LINNR DS F'0' PRNT0302 POINTER DS F PRNT0303 THREE DC 1F'3' PRNT0304 ZERO DC X'00000000' ZERO WORD PRNT0305 LEFT DS D PRNT0306 ADDR6 DC A(LOW) CONTENTS OF R6 AT START PRNT0307 ETINPUT DC A(TLAST) PRNT0308 END FOREAL PRNT0309 -FILE 638; 62 RECORDS: 0* UCLC0001 * UPPER- TO LOWER-CASE UCLC0002 * CONVERSION ROUTINE UCLC0003 * FOR TEXT/360 MODULES UCLC0004 * UCLC0005 * THIS SUBROUTINE ACCEPTS AS INPUT A CHARACTER STRING OF ANY UCLC0006 * LENGTH. IT TRANSFORMS THE UPPER-CASE ALPHABETIC CHARACTERS UCLC0007 * TO THEIR LOWER-CASE EQUIVALENTS. ALL NON-ALPHABETIC UCLC0008 * CHARACTERS ARE LEFT UNCHANGED. UCLC0009 * UCLC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * UCLC0053 TRNSL EX 7,TRINST EXECUTE THE TRANSLATE INSTRUCTION UCLC0054 * UCLC0055 LM 14,11,12(13) RESTORE THE GENERAL REGISTERS UCLC0056 BR 14 RETURN TO CALLER UCLC0057 * UCLC0058 TRINST TR 0(0,6),TRTABLE TRANSLATE INSTRUCTION PROPER UCLC0059 TRTABLE DC 64F'0' TRANSLATION TABLE UCLC0060 * UCLC0061 END UCLC0062 -FILE 639; 62 RECORDS: 0* LCUC0001 * LOWER TO UPPER-CASE LCUC0002 * CONVERSION ROUTINE LCUC0003 * FOR TEXT/360 MODULES LCUC0004 * LCUC0005 * THIS SUBROUTINE ACCEPTS AS INPUT A CHARACTER STRING OF ANY LCUC0006 * LENGTH. IT TRANSFORMS THE LOWER-CASE ALPHABETIC CHARACTERS LCUC0007 * TO THEIR UPPER-CASE EQUIVALENTS. ALL NON-ALPHABETIC LCUC0008 * CHARACTERS ARE LEFT UNCHANGED. LCUC0009 * LCUC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * LCUC0053 TRNSL EX 7,TRINST EXECUTE THE TRANSLATE INSTRUCTION LCUC0054 * LCUC0055 LM 14,11,12(13) RESTORE THE GENERAL REGISTERS LCUC0056 BR 14 RETURN TO CALLER LCUC0057 * LCUC0058 TRINST TR 0(0,6),TRTABLE TRANSLATE INSTRUCTION PROPER LCUC0059 TRTABLE DC 64F'0' TRANSLATION TABLE LCUC0060 * LCUC0061 END LCUC0062 -FILE 640; 61 RECORDS: 0* SPEC0001 * THIS ROUTINE IS USED BY THE SPELLING CHECK PROGRAM TO REMOVE SPEC0002 * SPECIAL CHARACTERS FROM THE INPUT STREAM. IT ALSO CHANGES SPEC0003 * ALL LOWER-CASE LETTERS TO UPPER-CASE LETTERS. SPEC0004 * SPEC0005 * INPUT REGISTERS: 1 - THE ADDRESS OF A POINTER TO SPEC0006 * THE DOPE VECTOR FOR THE SPEC0007 * STRING TO BE CONVERTED. SPEC0008 * SPEC0009 * 15 - THE BASE ADDRESS OF THIS SPEC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BR 14 RETURN TO CALLER SPEC0052 * SPEC0053 TRINST TR 0(0,6),TRTABLE TRANSLATE INSTRUCTION PROPER SPEC0054 SET1 DC CL9'ABCDEFGHI' SPEC0055 SET2 DC CL9'JKLMNOPQR' SPEC0056 SET3 DC CL8'STUVWXYZ' SPEC0057 DS 0D SPEC0058 TRTABLE DC CL256' ' SPEC0059 * SPEC0060 END SPEC0061 -FILE 641; 1495 RECORDS: 0C ** TRIP WILL HANDLE 120 VARIABLES OR LESS - MISSING DATA TRIP0001 C ** NOT ALLOWED TRIP0002 C ** BASIC COMPUTATIONS ARE DONE ON DATA CONTAINED IN 'COMMON /TRP/' TRIP0003 C ** AFTER ' MSDC ' HAS BEEN CALLED: TRIP0004 C ** CONTENTS OF X; VARIABLE MEANS TRIP0005 C ** S; SQRT(N-1)*STD. DEV. TRIP0006 C ** AX; VARIABLE NAMES TRIP0007 C ** W; TRIANGULAR ARRAY OF CORRELATION COEFFICIENTS TRIP0008 C ** STORED ROW BY ROW AS A VECTOR TRIP0009 C ** N; NO. OF VARIABLES TRIP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FIND(2'M) TRIP1486 READ(2) NZ,(Z(I),I=1,NZ),ID TRIP1487 WRITE(6,97) K TRIP1488 RETURN TRIP1489 97 FORMAT('0 ARRAY RESTORED FROM AREA'I4) TRIP1490 98 FORMAT(' '45H ADDRESS MODIFICATION RESULTED IN NO. G.T. 99) TRIP1491 99 FORMAT('0'5X,22H ARRAY WRITTEN IN AREA,I4) TRIP1492 100 FORMAT('0'5X,17H NO ARRAY IN AREA,I4) TRIP1493 1 FORMAT(31A8) TRIP1494 END TRIP1495 -FILE 642; 3289 RECORDS: 0T1 EQU 3 MVTB0001 T2 EQU 4 MVTB0002 R1 EQU 1 MVTB0003 R0 EQU 0 MVTB0004 R14 EQU 14 MVTB0005 R15 EQU 15 MVTB0006 BASE EQU 10 MVTB0007 CODP EQU 8 MVTB0008 TABP EQU 9 MVTB0009 MVTAB ENTER BASE,SA=SAAV MVTB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STAR DC C'*' MVTB3280 OUTPUT DS 132C MVTB3281 PATERN DS 7C MVTB3282 PATRN3 DS 8C MVTB3283 PATRN4 DS 9C MVTB3284 BLANK DS C MVTB3285 TABLES DSECT MVTB3286 CODE DS 12X MVTB3287 TABLE DS 0F MVTB3288 END MVTB3289 -FILE 643; 630 RECORDS: 0C MODIFICATIONS MADE FOR /360 BY G. STARKEY APRIL 1969 MFAV0001 C DOUBLE PRECISION VERSION MFAV0002 C MULTI-FACTOR ANALYSIS OF VARIANCE - VERSION C MFAV0003 C CODED BY J. R. H. DEMPSTER MFAV0004 C MFAV0005 DIMENSION R(16000),N(16000),K(998) MFAV0006 DIMENSION A(2,64),IB(65),L(64),JE(64),IE(64),SQ(64),DF(64) MFAV0007 DIMENSION M(9),I(9),KS(6),KP(16),X(100),ITAB(65) MFAV0008 DIMENSION NOB(100),RT(100),SQT(100),AX(100) MFAV0009 DIMENSION MX(6),H(150),FM(54),LM(6) MFAV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DO 50 J=1,IIC MFAV0621 50 IF (ISUB(J).EQ. 2) IC=IC + 1 MFAV0622 60 CALL UNPK(1,IDAT(101),0,HOLD(IC)) MFAV0623 70 CONTINUE MFAV0624 CALL PK(12,HOLD,H,0) MFAV0625 RETURN MFAV0626 500 WRITE (6,510) MFAV0627 510 FORMAT (1H0,'INVALID INPUT TO SUBROUTINE LABEL') MFAV0628 STOP MFAV0629 END MFAV0630 -FILE 644; 438 RECORDS: 0C MULTI-FACTOR ANALYSIS OF COVARIANCE MFAC0001 C CODED BY J. R. H. DEMPSTER MFAC0002 C MFAC0003 DIMENSION N(1000),R(1000,10),X(10),RT(10) MFAC0004 DIMENSION A(2,64),IB(65),DF(64),JE(64),KS(6),KP(10) MFAC0005 DIMENSION SQ(64,55),SQT(55),SQE(55) MFAC0006 DIMENSION M(9),I(9),K(980),L(64),IE(64) MFAC0007 DIMENSION CF(55),MX(6),H(300) MFAC0008 EQUIVALENCE (MX(6),MX6),(KP(6),KP6) MFAC0009 EQUIVALENCE (MX(1),MX1),(MX(2),MX2),(MX(3),MX3),(MX(4),MX4),(MX(5)MFAC0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 500 WRITE (6,510) MFAC0429 510 FORMAT (1H0,'INVALID INPUT TO SUBROUTINE LABEL') MFAC0430 STOP MFAC0431 END MFAC0432 SUBROUTINE IDAT(NF,MX,I,X) MFAC0433 DIMENSION X(10),I(9) MFAC0434 READ(5,1) I,(X(J),J=1,MX) MFAC0435 1 FORMAT(9I2,10F6.3) MFAC0436 RETURN MFAC0437 END MFAC0438 -FILE 645; 999 RECORDS: 0C FACT0001 C FACTO - FACTOR ANALYSIS FACT0002 C FACT0003 C PURPOSE FACT0004 C FACTO PERFORMS A PRINCIPAL COMPONENT ANALYSIS ON RAW DATA OR A FACT0005 C CORRELATION MATRIX, DOES A VARIMAX ROTATION OF THE FACTORS SO FACT0006 C OBTAINED, AND COMPUTES FACTOR SCORES. FACT0007 C FACT0008 C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED FACT0009 C CORRE FACT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 20 ETA(I)=ETA(I)-EIG(K)*Y(I) FACT0990 DO 30 I=1,M FACT0991 30 EPS(K)=EPS(K)+ETA(I)*ETA(I) FACT0992 EPS(K)=SQRT(EPS(K)) FACT0993 VECT(K)=99. FACT0994 IF(DEN.EQ.0.0) GO TO 50 FACT0995 VECT(K)=2.*EPS(K)/DEN FACT0996 50 CONTINUE FACT0997 RETURN FACT0998 END FACT0999 -FILE 646; 108 RECORDS: 0CFLP TITLE ' COINFLIP DEMONSTRATION PROGRAM' CNFL0001 MACRO CNFL0002 &LABEL READ &EOFEXIT CNFL0003 &LABEL MVI HT,C' ' CNFL0004 SCARDS HT,,@UC,EXIT=&EOFEXIT CNFL0005 MEND CNFL0006 SPACE 4 CNFL0007 MACRO CNFL0008 &L PICK &LABE1,&LABE2 CNFL0009 &L LTR SAVELINK,SAVELINK CNFL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'A FLIP OF AN IMAGINARY COIN. IF IT GUESSES INCOR- ' CNFL0099 DC C'RECTLY, ONE DOLLAR WILL BE ADDED TO YOUR SCORE, ' CNFL0100 DC C'OTHERWISE YOU WILL LOSE A DOLLAR. YOU "FLIP" THE ' CNFL0101 DC C'COIN BY DEPRESSING EITHER THE "H" OR THE "T" ON YOUR' CNFL0102 DC C'CONSOLE. DEPRESSING THE "?" KEY FORCES COINFLIP TO ' CNFL0103 DC C'DIVULGE ITS CURRENT PREDICTION. TO END THE GAME, ' CNFL0104 DC C'TYPE "END". ' CNFL0105 DC C' GOOD LUCK! ' CNFL0106 TMSG EQU * CNFL0107 END CNFL0108 -FILE 647; 96 RECORDS: 0LOVO TITLE '******ATTACHES VOCABULARY FILE TO ARU******' LOVO0001 LOVOC CSECT LOVO0002 *********************************************************************** LOVO0003 *ENTRY SPRINT POINTS TO ARU LINE * LOVO0004 * R1 POINTS TO THE HALFWORD LENGTH(OF THE FILE'S NAME) * LOVO0005 * FOLLOWED BY THE FILE'S NAME. * LOVO0006 *********************************************************************** LOVO0007 USING PSCT,R1 LOVO0008 SVE LOVO0009 LA R12,LO6 SET UP LOVO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 2 LOVO0087 PAR PARA LOVO0088 MODIF DC F'0' LOVO0089 LINE DC F'0' LOVO0090 UNIT DC F'0' LOVO0091 COUNT DC H'1' LOVO0092 BUFF DC 36C' ' LOVO0093 LTORG LOVO0094 COPY ARUDEF LOVO0095 END LOVO0096 -FILE 648; 90 RECORDS: 0LODE TITLE '******ATTACHES ARU DEFINITION FILE******' LODF0001 LODEF CSECT LODF0002 *********************************************************************** LODF0003 *ENTRY SPRINT POINTS TO ARU LINE * LODF0004 * R1 POINTS TO THE HALFWORD LENGTH(OF THE FILE'S NAME) * LODF0005 * FOLLOWED BY THE FILE'S NAME. * LODF0006 *********************************************************************** LODF0007 USING PSCT,R1 LODF0008 SVE LODF0009 LA R12,LO6 SET UP LODF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 2 LODF0081 PAR PARA LODF0082 MODIF DC F'0' LODF0083 LINE DC F'0' LODF0084 UNIT DC F'0' LODF0085 COUNT DC H'1' LODF0086 BUFF DC 36C' ' LODF0087 LTORG LODF0088 COPY ARUDEF LODF0089 END LODF0090 -FILE 649; 252 RECORDS: 0CREVOC CSECT CREV0001 SVE CREV0002 LTR R1,R1 CHECK FOR PAR CREV0003 BC 8,CRE CREV0004 L R1,0(0,R1) CREV0005 LTR R1,R1 CREV0006 BC 8,CRE CREV0007 LH R15,0(0,R1) CREV0008 LTR R15,R15 CREV0009 BC 8,CRE CREV0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'D',AL3(SFLGD) CREV0243 DC C'E',AL3(SFLGE) CREV0244 LETAB EQU (*-ETAB)/4 CREV0245 DS 0H CREV0246 COUNT DC H'0' CREV0247 FLAG DC X'00' CREV0248 EQUS CREV0249 MTER EQU X'01' CREV0250 MRED EQU X'02' CREV0251 END CREVOC CREV0252 -FILE 650; 70 RECORDS: 0VLIST CSECT VLST0001 SVE VLST0002 LA R1,PAR VLST0003 MVI BUFF,C'1' VLST0004 MVI BUFF+1,C' ' VLST0005 MVC BUFF+2(78),BUFF+1 VLST0006 MVC COUNT(2),=H'80' VLST0007 L R15,=V(SPRINT) VLST0008 BASR R14,R15 VLST0009 VREAD MVC PAR,=A(IBUFF) VLST0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> R7 EQU 7 VLST0061 R8 EQU 8 VLST0062 R9 EQU 9 VLST0063 R10 EQU 10 VLST0064 R11 EQU 11 VLST0065 R12 EQU 12 VLST0066 R13 EQU 13 VLST0067 R14 EQU 14 VLST0068 R15 EQU 15 VLST0069 END VLIST VLST0070 -FILE 651; 2992 RECORDS: 0 MACRO GRPM0001 &NAME GINIT &BPX=0,&BPY=0,&BLC=0,&BLIM=16383,&BLP=0 GRPM0002 GBLA &BPXA,&BPYA,&BLCA,&BLIMA,&BLPA GRPM0003 GBLC &INIT GRPM0004 &INIT SETC 'INIT'.'&SYSNDX' GRPM0005 &INIT DS 0H GRPM0006 AIF (T'&BLP NE 'N').NOBLP VALIDATE BUFFER LOAD POINT. GRPM0007 AIF (&BLP GT 16383).NOBLP GRPM0008 &BLPA SETA &BLP INITIALIZE BUFFER LOAD POINT. GRPM0009 .ALSET AIF (T'&BPX NE 'N').RBPX VALIDATE X-COORDINATE BEAM GRPM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> &NAME SWAP &D1,&L,&RP1,&D2,&RP2 DISP1,LENGTH,1ST PTR,DISP2,2NPT GRPM2983 &NAME XC &D1.(&L,&RP1),&D2.(&RP2) 3 EXC ORS TO SWAP L BYTES GRPM2984 XC &D2.(&L,&RP2),&D1.(&RP1) GRPM2985 XC &D1.(&L,&RP1),&D2.(&RP2) GRPM2986 MEND GRPM2987 MACRO GRPM2988 &NAME STIMER &A,&B,&DINTVL=,&BINTVL=,&TUINTVL=,&TOD= GRPM2989 &NAME NOPR 0 GRPM2990 MNOTE 4,'STIMER IS A DUMMY - GENERATES ONLY A NOPR' GRPM2991 MEND GRPM2992 -FILE 652; 571 RECORDS: 0DRAW TITLE '2250 DRAWING ROUTINE' DRAW0001 START 0 DRAW0002 ENTRY DRAW DRAW0003 EXTRN GETFD DRAW0004 EXTRN SCARDS DRAW0005 EXTRN SPUNCH DRAW0006 USING *,12 DRAW0007 USING *+4095,11 DRAW0008 DRAW STM 14,12,12(13) DRAW0009 LR 12,15 DRAW0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'4000' DRAW0562 DC H'4092' DRAW0563 DC AL2(GECPB) DRAW0564 DC 296C'XXXXXXXXXXXXX' DRAW0565 DS 0H DRAW0566 DC AL2(GTRU) DRAW0567 STLOC2 DC H'0' DRAW0568 DISP1L EQU *-DISP1 DRAW0569 DISP2L EQU *-DISP2 DRAW0570 END DRAW0571 -FILE 653; 637 RECORDS: 0TVCT TITLE 'TRANSFER VECTOR FOR TASKS ROUTINES' PTSK0001 CSECT PTSK0002 ENTRY TVECT PTSK0003 TVECT DC V(ERROR) PTSK0004 DC V(DEVICES) PTSK0005 DC V(JOBTABLE) PTSK0006 END PTSK0007 JOB TITLE 'SUBROUTINE TO DISPLAY JOB TABLE INFORMATION' PTSK0008 JBTBL CSECT PTSK0009 ENTRY JOBTABLE PTSK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C'2 SPURIOUS DE RECEIVED 6 UNIT CHECK' PTSK0628 DC X'15' PTSK0629 DC C'3 PROCEED 7 UNIT EXCEPTION' PTSK0630 DC A(GECPB) PTSK0631 DC X'15' PTSK0632 DC X'00' PTSK0633 DLINEL EQU *-DLINE PTSK0634 TBL DC C'0123456789ABCDEF' PTSK0635 TRTBL EQU TBL-240 PTSK0636 END PTSK0637 -FILE 654; 761 RECORDS: 0TSK TITLE 'ROUTINE TO DISPLAY TASK STATUS ON 2250' PTSK0001 MACRO PTSK0002 &NAME IOREQ &CCW PTSK0003 &NAME L 0,DEVICE PTSK0004 LA 1,&CCW PTSK0005 LA 2,RTNL PTSK0006 SVC STIO PTSK0007 SVC WAIT PTSK0008 MEND PTSK0009 PTASKS CSECT PTSK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC AL2(GECFB) PTSK0752 INPUT DC 37C' ' INPUT LINE PTSK0753 INITLEN EQU *-GDOA PTSK0754 DC AL2(GSRT) PTSK0755 DC AL2(GTRU) PTSK0756 DC HL2'0' PTSK0757 ********************************************************************** PTSK0758 DS 800F REMAINDER OF GDOA PTSK0759 GDOALEN EQU *-GDOA PTSK0760 END PTSK0761 -FILE 655; 9998 RECORDS: 0GSTO TITLE 'GSTOR' STORE GRAPHIC DATA GLIB0001 IFFPAAST CSECT GSTOR GLIB0002 *STATUS. CHANGE LEVEL 0 GLIB0003 * GLIB0004 *FUNCTION/OPERATION. GSTOREG EQUALS BYTES-CAN'T STORE GLIB0005 SR WRKREG,TEMREG NUMBER OF BYTES-CAN STORE GLIB0006 C WRKREG,ZERO GLIB0007 BNH GSTOR4 NO STORAGE AVAILABLE GLIB0008 SR CNTREG,WRKREG BYTES REMAINING GLIB0009 BAL LINREG,GSTOR6 MOVE GRAPHIC DATA GLIB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COM15L DC AL2(COM15L-COM15) GLIB9989 COM23 DC C' ***** GDOA OVERFLOW, TOO MANY POINTS ' GLIB9990 COM23L DC AL2(COM23L-COM23) GLIB9991 COM25 DC C' ***** GDOA OVERFLOW, GRID TOO FINE ' GLIB9992 COM25L DC AL2(COM25L-COM25) GLIB9993 LTORG GLIB9994 EJECT GLIB9995 WKAREA DS 100F WORK AREA FOR POR IN GRAPHLIB GLIB9996 GDOA DS 8192F GLIB9997 END GLIB9998 -FILE 656; 1358 RECORDS: 0 MACRO E2250001 &LABEL IOREQ &CCW E2250002 &LABEL L 0,DEVICE E2250003 LA 1,&CCW E2250004 LA 2,RTNL E2250005 SVC STIO E2250006 SVC WAIT E2250007 MEND E2250008 MACRO E2250009 &LABEL IOREQ2 &CCW E2250010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LOCCURI DC AL2(ILN-DISP) E2251349 LOCCURSC DC AL2(SCAN-DISP) E2251350 SETLOC DC AL2(STAB-DISP) E2251351 COMMLOC DC AL2(COMM-DISP) E2251352 SEQADD DC AL2(SEQASTK-DISP) E2251353 INDADD DC AL2(INDASTK-DISP) E2251354 ILNLOC EQU LOCCURI E2251355 ILN2LOC DC AL2(ILN2-DISP) E2251356 SCANLOC EQU LOCCURSC E2251357 END BEGIN E2251358 -FILE 657; 177 RECORDS: 0PMIN TITLE 'CONVERSATIONAL INTERFACE WITH GRAPHIC PLOT ROUTINES' P2250001 PMAIN CSECT P2250002 EXTRN GPLOT2 P2250003 EXTRN GPLOT3 P2250004 STM 14,12,12(13) P2250005 LA 12,0(0,13) P2250006 BAL 13,84(0,15) P2250007 USING *,13 P2250008 SAREA DS 18F P2250009 ST 12,SAREA+4 P2250010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> COM25 DC C' ***** START AGAIN FROM THE BEGINNING ' P2250168 COM25L DC AL2(COM25L-COM25) P2250169 COM26 DC C' ***** FILE ON LUNIT 1 HAS BEEN REWOUND ' P2250170 COM26L DC AL2(COM26L-COM26) P2250171 COM4 DC C' ENTER # X,Y PAIRS(INT) ' P2250172 COM4L DC AL2(COM4L-COM4) P2250173 FMT1 DC C'4(WE),I*' P2250174 FMT2 DC C'I*' P2250175 FMT4 DC C'C*' P2250176 END P2250177 -FILE 658; 368 RECORDS: 0 MACRO *TRK0001 &LABEL IOREQ &CCW *TRK0002 &LABEL L 0,LDN *TRK0003 LA 1,&CCW *TRK0004 LA 2,RTNL *TRK0005 SVC STIO *TRK0006 SVC WAIT *TRK0007 MEND *TRK0008 MACRO *TRK0009 TRANSFER &N,&LOC *TRK0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GEVM *TRK0359 GDV 0,4095,B *TRK0360 GECPB *TRK0361 DC 3848C'X' *TRK0362 GIBLC 3848 *TRK0363 DC AL2(GTRU) *TRK0364 DC AL2(DISL) *TRK0365 GTRU EQU X'2AFF' *TRK0366 XISL EQU *-XIS *TRK0367 END *TRK0368 -FILE 659; 5891 RECORDS: 0 MACRO SYSM0001 &NAME SAVE ®,&CODE,&ID SYSM0002 LCLA &A,&B,&C SYSM0003 LCLC &E,&F,&G,&H SYSM0004 AIF ('®' EQ '').E1 SYSM0005 AIF ('&ID' EQ '').NULLID SYSM0006 AIF ('&ID' EQ '*').SPECID SYSM0007 &A SETA ((K'&ID+2)/2)*2+4 SYSM0008 &NAME B &A.(0,15) BRANCH AROUND ID SYSM0009 &A SETA K'&ID SYSM0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .TYPEA ANOP SYSM5882 &SLB LM 0,1,=CL8'&IOUNIT' SET UP PARAMETERS SYSM5883 AGO .CALL SYSM5884 .TYPEB ANOP SYSM5885 &SLB LM 0,1,=CL8&IOUNIT SET UP PARAMETERS SYSM5886 .CALL L 15,=V(REWIND#) CALL REWIND# SYSM5887 BALR 14,15 SUBROUTINE TO GET IT REWOUND SYSM5888 MEXIT SYSM5889 .ERR1 MNOTE 4,'REWIND HAS NO ARGUMENT' SYSM5890 MEND SYSM5891 -FILE 660; 6686 RECORDS: 0 OSM00001 OSM00002 MACRO OSM00003 &NAME ABEND &CC,&DUMP,&STEP,&MSG OSM00004 LCLA &CTR OSM00005 LCLB &B(3) OSM00006 AIF ('&CC' EQ '').E1 OSM00007 &B(1) SETB ('&DUMP' EQ 'DUMP') OSM00008 &B(2) SETB ('&STEP' EQ 'STEP') OSM00009 &B(3) SETB ('&MSG' NE '') OSM00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .SVC SVC 7 ISSUE XCTL SVC OSM06677 MEXIT OSM06678 .E4 IHBERMAC 36,,® OSM06679 MEXIT OSM06680 .E1 IHBERMAC 95 OSM06681 MEXIT OSM06682 .E2 IHBERMAC 84 OSM06683 MEXIT OSM06684 .E3 IHBERMAC 75 OSM06685 .END MEND OSM06686