cdc:nos2.source:opl.opl871:deck:ldistap.002
Deck LDISTAP Part 002
14 Modifications
Listing Sections
- Deck LDISTAP Start
- Deck LDISTAP Part 1 (Line 1355)
- Deck LDISTAP Part 2 (Line 2916)
- Deck LDISTAP Part 3 (Line 4559)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 02916 M01S00056.nos252 +++| LDIS 20,(TERMINATE *TMSDIS* .) 02917 M00S02616.ldistap +++| LDISE 02918 M00S02617.ldistap +++| CON 0 END OF DISPLAY 02919 M00S02618.ldistap +++| HELBL EQU *-HELB LENGTH OF HELP DISPLAY 02920 M00S02619.ldistap +++|
| Line S02620 Modification History | |
|---|---|
M01 (Removed by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 02921 M01S02620.ldista5 ---| HELC BSS 0 HELP DISPLAY PAGE TWO 02922 M01S02621.ldista5 ---| LDISS 1,NLPTT+2 02923 M01S02622.ldista5 ---| LDIS 14,(ASSIGN,JSN,EST) 02924 M01S02623.ldista5 ---| LDISE 02925 M01S02624.ldista5 ---| LDISS 20,K-1 02926 M01S02625.ldista5 ---| LDIS 34,(ASSIGN TAPE ON *EST* TO JOB *JSN*.) 02927 M01S02626.ldista5 ---| LDISE 02928 M01S02627.ldista5 ---| LDISS 1,K 02929 M01S02628.ldista5 ---| LDIS 6,(GO,EST) 02930 M01S02629.ldista5 ---| LDISE 02931 M01S02630.ldista5 ---| LDISS 20,K-1 02932 M01S02631.ldista5 ---| LDIS 31,(AUTO BLANK LABEL TAPE ON *EST*.) 02933 M01S02632.ldista5 ---| LDISE 02934 M01S02633.ldista5 ---| LDISS 1,K 02935 M01S02634.ldista5 ---| LDIS 11,(SCRATCH,EST) 02936 M01S02635.ldista5 ---| LDISE 02937 M01S02636.ldista5 ---| LDISS 20,K-1 02938 M01S02637.ldista5 ---| LDIS 33,(DECLARE TAPE ON *EST* AS SCRATCH.) 02939 M01S02638.ldista5 ---| LDISE 02940 M01S02639.ldista5 ---| LDISS 1,K 02941 M01S02640.ldista5 ---| LDIS 8,(STOP,EST) 02942 M01S02641.ldista5 ---| LDISE 02943 M01S02642.ldista5 ---| LDISS 20,K-1 02944 M01S02643.ldista5 ---| LDIS 38,(DO NOT AUTO BLANK LABEL TAPE ON *EST*.) 02945 M01S02644.ldista5 ---| LDISE 02946 M01S02645.ldista5 ---| LDISS 1,K 02947 M01S02646.ldista5 ---| LDIS 10,(UNLOAD,EST) 02948 M01S02647.ldista5 ---| LDISE 02949 M01S02648.ldista5 ---| LDISS 20,K-1 02950 M01S02649.ldista5 ---| LDIS 21,(UNLOAD TAPE ON *EST*.) 02951 M01S02650.ldista5 ---| LDISE 02952 M01S02651.ldista5 ---| LDISS 1,K 02953 M01S02652.ldista5 ---| LDIS 7,(VSN,EST) 02954 M01S02653.ldista5 ---| LDISE 02955 M01S02654.ldista5 ---| LDISS 20,K-1 02956 M01S02655.ldista5 ---| LDIS 20,(CLEARS VSN ON *EST*.) 02957 M01S02656.ldista5 ---| LDISE 02958 M01S02657.ldista5 ---| LDISS 1,K 02959 M01S02658.ldista5 ---| LDIS 8,(VSN,EST,) 02960 M01S02659.ldista5 ---| LDISE 02961 M01S02660.ldista5 ---| LDISS 20,K-1 02962 M01S02661.ldista5 ---| LDIS 33,(DECLARE TAPE ON *EST* AS SCRATCH.) 02963 M01S02662.ldista5 ---| LDISE 02964 M01S02663.ldista5 ---| LDISS 1,K 02965 M01S02664.ldista5 ---| LDIS 11,(VSN,EST,VSN) 02966 M01S02665.ldista5 ---| LDISE 02967 M01S02666.ldista5 ---| LDISS 20,K-1 02968 M01S02667.ldista5 ---| LDIS 43,(DECLARE TAPE ON *EST* TO HAVE VSN OF *VSN*.) 02969 M01S02668.ldista5 ---| LDISE 02970 M01S02669.ldista5 ---| LDISS 1,K 02971 M01S02670.ldista5 ---| LDIS 1,(+) 02972 M01S02671.ldista5 ---| LDISE 02973 M01S02672.ldista5 ---| LDISS 20,K-1 02974 M01S02673.ldista5 ---| LDIS 20,(TOGGLE PAGE FORWARD.) 02975 M01S02674.ldista5 ---| LDISE 02976 M01S02675.ldista5 ---| LDISS 1,K 02977 M01S02676.ldista5 ---| LDIS 1,(-) 02978 M01S02677.ldista5 ---| LDISE 02979 M01S02678.ldista5 ---| LDISS 20,K-1 02980 M01S02679.ldista5 ---| LDIS 21,(TOGGLE PAGE BACKWARD.) 02981 M01S02680.ldista5 ---| LDISE 02982 M01S02681.ldista5 ---| LDISS 1,K
| Line S02682 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
M02 (Removed by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 02983 M02S02682.ldista5 ---| LDIS 4,(DROP)
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | nos252 |
M02 (Removed by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 02984 M02S00057.ldista5 ---| LDIS 4,(END )
| Line S02683 Modification History | |
|---|---|
M01 (Removed by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 02985 M01S02683.ldista5 ---| LDISE 02986 M01S02684.ldista5 ---| LDISS 20,K-1
| Line S02685 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
M02 (Removed by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 02987 M02S02685.ldista5 ---| LDIS 20,(TERMINATE *LDISTAP*.)
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | nos252 |
M02 (Removed by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 02988 M02S00058.ldista5 ---| LDIS 20,(TERMINATE *TMSDIS* .)
| Line S02686 Modification History | |
|---|---|
M01 (Removed by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 02989 M01S02686.ldista5 ---| LDISE 02990 M01S02687.ldista5 ---| CON 0 END OF DISPLAY 02991 M01S02688.ldista5 ---| HELCL EQU *-HELC LENGTH OF HELP DISPLAY 02992 M01S02689.ldista5 ---| 02993 M01S02690.ldista5 ---| NWIHT MAX HELBL,HELCL 02994 M01S02691.ldista5 ---| NWIHD EQU NWIHT NUMBER OF WORDS IN *HELP* DISPLAY
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ldista5 |
Seq # *Modification Id* Act ----------------------------+ 02995 M01S00009.ldista5 +++| NWIHD EQU HELBL NUMBER OF WORDS IN *HELP* DISPLAY
| Line S02692 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 02996 M01S02692.282l826 ---| JOB SPACE 4,10 02997 M01S02693.282l826 ---|** JOB - BUILD *JOB* DISPLAY. 02998 M01S02694.282l826 ---|* 02999 M01S02695.282l826 ---|* EXIT JOB DISPLAY SET INTO *DBUF*. 03000 M01S02696.282l826 ---|* 03001 M01S02697.282l826 ---|* USES X - 0, 1, 2, 5, 6. 03002 M01S02698.282l826 ---|* A - 0, 1, 2, 6. 03003 M01S02699.282l826 ---|* 03004 M01S02700.282l826 ---|* CALLS CLY, GEJ, GMT, ZTB. 03005 M01S02701.282l826 ---|* 03006 M01S02702.282l826 ---|* MACROS MBSATA, MBSXTA, MOVE. 03007 M01S02703.282l826 ---| 03008 M01S02704.282l826 ---| 03009 M01S02705.282l826 ---| JOB3 SX6 B0 FLAG END OF DISPLAY BUFFER 03010 M01S02706.282l826 ---| SA6 X5 03011 M01S02707.282l826 ---| 03012 M01S02708.282l826 ---| JOB SUBR ENTRY/EXIT 03013 M01S02709.282l826 ---| SX5 DBUF+DBUFS SET START OF DISPLAY BUFFER 03014 M01S02710.282l826 ---| MOVE JOBAL,JOBA,X5 SET HEADER IN DISPLAY BUFFER 03015 M01S02711.282l826 ---| SX5 X5+JOBAL 03016 M01S02712.282l826 ---| SA1 PNO 03017 M01S02713.282l826 ---| ZR X1,JOB3 IF NO PAGES FOR DISPLAY 03018 M01S02714.282l826 ---| SA1 PAG GET ADDRESS OF FIRST ENTRY FOR PAGE 03019 M01S02715.282l826 ---| ZR X1,JOB3 IF NO PAGES FOR DISPLAY 03020 M01S02716.282l826 ---| SA1 X1+TJDP-1 03021 M01S02717.282l826 ---| SX6 NLPTT+NLPHD+1 SET CURRENT LINE NUMBER 03022 M01S02718.282l826 ---| SA6 CLN 03023 M01S02719.282l826 ---| JOB1 ZR X1,JOB3 IF NO MORE ENTRIES 03024 M01S02720.282l826 ---| SA0 X1 03025 M01S02721.282l826 ---| SA1 CLN CHECK CURRENT LINE NUMBER 03026 M01S02722.282l826 ---| SX6 X1+LPEJB-NLPHD-NLPTT-NLPPG-2 03027 M01S02723.282l826 ---| PL X6,JOB3 IF NO MORE LINES IN DISPLAY 03028 M01S02724.282l826 ---| SX6 X5+JOBBL-DBUF-DBUFL 03029 M01S02725.282l826 ---| PL X6,JOB3 IF NO MORE ROOM IN DISPLAY BUFFER 03030 M01S02726.282l826 ---| SX0 JOBB 03031 M01S02727.282l826 ---| SA1 CLN 03032 M01S02728.282l826 ---| RJ CLY CONVERT LINE NUMBER TO Y-COORDINATE 03033 M01S02729.282l826 ---| 03034 M01S02730.282l826 ---|* SET *JSN*. 03035 M01S02731.282l826 ---| 03036 M01S02732.282l826 ---| MX0 -12 GET EJT ORDINAL 03037 M01S02733.282l826 ---| SA1 A0+TFSW 03038 M01S02734.282l826 ---| LX1 12 03039 M01S02735.282l826 ---| BX1 -X0*X1 03040 M01S02736.282l826 ---| RJ GEJ GET EJT ENTRY 03041 M01S02737.282l826 ---| MBSATA EBUF+JSNE,DJJS,DJJSC,59,DJJSU SET *JSN* 03042 M01S02738.282l826 ---| 03043 M01S02739.282l826 ---|* SET *USERNAM*. 03044 M01S02740.282l826 ---| 03045 M01S02741.282l826 ---| SA1 A0+UIDW GET USER NAME 03046 M01S02742.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03047 M01S02743.282l826 ---| MBSXTA X6,DJUN,DJUNC,59,DJUNU SET *USERNAM* 03048 M01S02744.282l826 ---| 03049 M01S02745.282l826 ---|* SET *FAMILY*. 03050 M01S02746.282l826 ---| 03051 M01S02747.282l826 ---| MX0 -12 GET EST ORDINAL OF FAMILY DEVICE 03052 M01S02748.282l826 ---| SA1 A0+PFCW 03053 M01S02749.282l826 ---| AX1 12 03054 M01S02750.282l826 ---| BX1 -X0*X1 03055 M01S02751.282l826 ---| RJ GMT GET MST ENTRY 03056 M01S02752.282l826 ---| SA1 MBUF+PFGL GET FAMILY NAME 03057 M01S02753.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03058 M01S02754.282l826 ---| MBSXTA X6,DJFM,DJFMC,59,DJFMU SET *FAMILY* 03059 M01S02755.282l826 ---| 03060 M01S02756.282l826 ---|* SET *MESSAGE*. 03061 M01S02757.282l826 ---| 03062 M01S02758.282l826 ---| SA1 A0+MS2W GET MESSAGE 03063 M01S02759.282l826 ---| NZ X1,JOB2 IF MESSAGE IN BUFFER 2 03064 M01S02760.282l826 ---| SA1 A0+MS1W 03065 M01S02761.282l826 ---| JOB2 RJ ZTB CONVERT ZEROES TO BLANKS 03066 M01S02762.282l826 ---| SA6 A1 03067 M01S02763.282l826 ---| SA1 A1+B1 03068 M01S02764.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03069 M01S02765.282l826 ---| SA6 A1 03070 M01S02766.282l826 ---| SA1 A1+B1 03071 M01S02767.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03072 M01S02768.282l826 ---| SA6 A1 03073 M01S02769.282l826 ---| MBSATA A1-2,DJMS,DJMSC,59,DJMSU SET MESSAGE 03074 M01S02770.282l826 ---| MOVE JOBBL,JOBB,X5 SET ENTRY INTO BUFFER 03075 M01S02771.282l826 ---| SX5 X5+JOBBL INCREMENT DISPLAY BUFFER ADDRESS 03076 M01S02772.282l826 ---| SA1 CLN INCREMENT CURRENT LINE NUMBER 03077 M01S02773.282l826 ---| SX6 X1+LPEJB 03078 M01S02774.282l826 ---| SA6 A1 03079 M01S02775.282l826 ---| SA1 A0 GET NEXT CONTROL POINT ADDRESS 03080 M01S02776.282l826 ---| EQ JOB1 CHECK ADDRESS 03081 M01S02777.282l826 ---| 03082 M01S02778.282l826 ---| JOBA BSS 0 EXECUTING JOB HEADER 03083 M01S02779.282l826 ---| LDISS 1,NLPTT+1 03084 M01S02780.282l826 ---| LDIS 4,(JSN ) 03085 M01S02781.282l826 ---| LDIS 1,( ) 03086 M01S02782.282l826 ---| LDIS 7,(USERNAM) 03087 M01S02783.282l826 ---| LDIS 1,( ) 03088 M01S02784.282l826 ---| LDIS 7,(FAMILY ) 03089 M01S02785.282l826 ---| LDIS 1,( ) 03090 M01S02786.282l826 ---| LDIS 7,(MESSAGE) 03091 M01S02787.282l826 ---| LDISE 03092 M01S02788.282l826 ---| JOBAL EQU *-JOBA EXEUCTING JOB DISPLAY HEADER LENGTH 03093 M01S02789.282l826 ---| 03094 M01S02790.282l826 ---| JOBB BSS 0 EXECUTING JOB ENTRY LINE 03095 M01S02791.282l826 ---| LDISS 1,K+1 03096 M01S02792.282l826 ---| DJJS LDIS 4,(JSNN) JSN 03097 M01S02793.282l826 ---| LDIS 1,( ) 03098 M01S02794.282l826 ---| DJUN LDIS 7,(USERNAM) USER NAME 03099 M01S02795.282l826 ---| LDIS 1,( ) 03100 M01S02796.282l826 ---| DJFM LDIS 7,(FAMNAME) FAMILY NAME 03101 M01S02797.282l826 ---| LDIS 1,( ) 03102 M01S02798.282l826 ---| DJMS LDIS 30,(REQUEST - TAPE, GE ) MESSAGE 03103 M01S02799.282l826 ---| LDISE 03104 M01S02800.282l826 ---| JOBBL EQU *-JOBB EXECUTING JOB ENTRY LINE LENGTH 03105 M01S02801.282l826 ---| 03106 M01S02802.282l826 ---| NWIJD EQU JOBBL*NLPPG/LPEJB+JOBAL NUMBER OF WORDS IN *JOB* DIS 03107 M01S02803.282l826 ---| PRE SPACE 4,10 03108 M01S02804.282l826 ---|** PRE - BUILD *PRE* DISPLAY. 03109 M01S02805.282l826 ---|* 03110 M01S02806.282l826 ---|* EXIT PREVIEW DISPLAY SET INTO *DBUF*. 03111 M01S02807.282l826 ---|* 03112 M01S02808.282l826 ---|* USES X - 0, 1, 2, 3, 5, 6. 03113 M01S02809.282l826 ---|* A - 0, 1, 2, 3, 6. 03114 M01S02810.282l826 ---|* 03115 M01S02811.282l826 ---|* CALLS CLY, COD, CSC, GEJ, ZTB. 03116 M01S02812.282l826 ---|* 03117 M01S02813.282l826 ---|* MACROS MBSATA, MBSXTA, MOVE. 03118 M01S02814.282l826 ---| 03119 M01S02815.282l826 ---| 03120 M01S02816.282l826 ---| PRE16 SX6 B0 FLAG END OF DISPLAY BUFFER 03121 M01S02817.282l826 ---| SA6 X5 03122 M01S02818.282l826 ---| 03123 M01S02819.282l826 ---| PRE SUBR ENTRY/EXIT 03124 M01S02820.282l826 ---| SX5 DBUF+DBUFS SET START OF DISPLAY BUFFER 03125 M01S02821.282l826 ---| MOVE PREAL,PREA,X5 SET HEADER IN DISPLAY BUFFER 03126 M01S02822.282l826 ---| SX5 X5+PREAL 03127 M01S02823.282l826 ---| SA1 PNO 03128 M01S02824.282l826 ---| ZR X1,PRE16 IF NO PAGES FOR DISPLAY 03129 M01S02825.282l826 ---| SX6 NLPTT+NLPHD+1 SET CURRENT LINE NUMBER 03130 M01S02826.282l826 ---| SA6 CLN 03131 M01S02827.282l826 ---| SA1 PAG GET ADDRESS FOR FIRST ENTRY FOR PAGE 03132 M01S02828.282l826 ---| ZR X1,PRE16 IF NO PAGES FOR DISPLAY 03133 M01S02829.282l826 ---| SA1 X1+TPDP-1 03134 M01S02830.282l826 ---| PRE1 NG X1,PRE10 IF PREVIEW BUFFER ADDRESS 03135 M01S02831.282l826 ---| ZR X1,PRE16 IF END OF *UDT* TABLE 03136 M01S02832.282l826 ---| SA0 X1 SAVE *UDT* ADDRESS 03137 M01S02833.282l826 ---| SA1 CLN CHECK CURRENT LINE NUMBER 03138 M01S02834.282l826 ---| SX6 X1+LPEUP-NLPHD-NLPTT-NLPPG-2 03139 M01S02835.282l826 ---| PL X6,PRE16 IF NO MORE LINES IN DISPLAY 03140 M01S02836.282l826 ---| SX6 X5+PREBL+PRECL-DBUF-DBUFL 03141 M01S02837.282l826 ---| PL X6,PRE16 IF NO MORE ROOM IN DISPLAY BUFFER 03142 M01S02838.282l826 ---| SX0 PREB 03143 M01S02839.282l826 ---| SA1 CLN 03144 M01S02840.282l826 ---| RJ CLY CONVERT LINE NUMBER TO Y-COORDINATE 03145 M01S02841.282l826 ---| MBSATA PREB,DPI2,12,47,47 03146 M01S02842.282l826 ---| MBSATA PREB,DPJS,12,47,47 03147 M01S02843.282l826 ---| SX0 PREC 03148 M01S02844.282l826 ---| SA1 CLN 03149 M01S02845.282l826 ---| SX1 X1+B1 03150 M01S02846.282l826 ---| RJ CLY CONVERT LINE NUMBER TO Y-COORDINATE 03151 M01S02847.282l826 ---| 03152 M01S02848.282l826 ---|* SET *JSN*. 03153 M01S02849.282l826 ---| 03154 M01S02850.282l826 ---| MX0 -12 GET EJT ORDINAL 03155 M01S02851.282l826 ---| SA1 A0+/MTX/UJID 03156 M01S02852.282l826 ---| BX1 -X0*X1 03157 M01S02853.282l826 ---| RJ GEJ GET EJT ENTRY 03158 M01S02854.282l826 ---| MBSATA EBUF+JSNE,DPJS,DPJSC,59,DPJSU SET JSN 03159 M01S02855.282l826 ---|
| Line S02856 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03160 M02S02856.282l826 ---|* SET TRACK TYPE.
| Line S00190 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03161 M02S00190.282l826 ---|* SET TAPE DEVICE TYPE.
| Line S02857 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03162 M01S02857.282l826 ---|
| Line S02858 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03163 M02S02858.282l826 ---| SX0 B1 GET TRACK TYPE 03164 M02S02859.282l826 ---| SA1 A0+/MTX/UST1 GET TRACK TYPE 03165 M02S02860.282l826 ---| AX1 36 03166 M02S02861.282l826 ---| BX1 X0*X1 03167 M02S02862.282l826 ---| MBSATA X1+TTRT,DPTR,DPTRC,59,DPTRU SET TRACK TYPE
| Line S00191 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03168 M02S00191.282l826 ---| MX0 -2 GET TAPE DEVICE TYPE 03169 M02S00192.282l826 ---| SA1 A0+/MTX/UJID 03170 M02S00193.282l826 ---| AX1 55 03171 M02S00194.282l826 ---| BX1 -X0*X1 03172 M02S00195.282l826 ---| MBSATA X1+TTDT,DPTR,DPTRC,59,DPTRU SET TAPE DEVICE TYPE
| Line S02863 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03173 M01S02863.282l826 ---| 03174 M01S02864.282l826 ---|* SET EST ORDINAL. 03175 M01S02865.282l826 ---| 03176 M01S02866.282l826 ---| MX0 -12 GET EST ORDINAL 03177 M01S02867.282l826 ---| SA1 A0+/MTX/UST4 03178 M01S02868.282l826 ---| AX1 24 03179 M01S02869.282l826 ---| BX1 -X0*X1 03180 M01S02870.282l826 ---| SX1 X1+10000B 03181 M01S02871.282l826 ---| RJ COD CONVERT TO OCTAL DISPLAY 03182 M01S02872.282l826 ---| MBSXTA X6,DPES,DPESC,DPESC-1,DPESU SET EST ORDINAL 03183 M01S02873.282l826 ---| 03184 M01S02874.282l826 ---|* SET *TMSVSN*. 03185 M01S02875.282l826 ---| 03186 M01S02876.282l826 ---| SA2 A0+/MTX/UTMS CHECK TMS FLAG 03187 M01S02877.282l826 ---| LX2 59-11 03188 M01S02878.282l826 ---| SA1 =7LNON-TMS 03189 M01S02879.282l826 ---| BX4 X1 03190 M01S02880.282l826 ---| PL X2,PRE2 IF NOT TMS TAPE 03191 M01S02881.282l826 ---| MX0 36 GET TMS VSN 03192 M01S02882.282l826 ---| SA1 A0+/MTX/UESN 03193 M01S02883.282l826 ---| BX1 X0*X1 03194 M01S02884.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03195 M01S02885.282l826 ---| BX1 X6 03196 M01S02886.282l826 ---| SA4 BLANKS 03197 M01S02887.282l826 ---| PRE2 BX6 X1 SAVE VSN 03198 M01S02888.282l826 ---| SA6 PRED 03199 M01S02889.282l826 ---| MBSXTA X1,DPTV,DPTVC,59,DPTVU SET TMS VSN 03200 M01S02890.282l826 ---| MBSXTA X4,DPI1,DPI1C,59,DPI1U SET INTENSITY MESSAGES 03201 M01S02891.282l826 ---| MBSXTA X4,DPI2,DPI2C,59,DPI2U 03202 M01S02892.282l826 ---| 03203 M01S02893.282l826 ---|* SET OFF-SITE STATUS. 03204 M01S02894.282l826 ---| 03205 M01S02895.282l826 ---| SA1 PRED GET TMS VSN 03206 M01S02896.282l826 ---| MX0 -12 GET FAMILY ORDINAL 03207 M01S02897.282l826 ---| SA2 /MTX/UUFN 03208 M01S02898.282l826 ---| AX2 12 03209 M01S02899.282l826 ---| BX2 -X0*X2 03210 M01S02900.282l826 ---| RJ COS CHECK OFF-SITE STATUS 03211 M01S02901.282l826 ---| MBSXTA X1,DPOS,DPOSC,59,DPOSU SET OFF-SITE FLAG 03212 M01S02902.282l826 ---| 03213 M01S02903.282l826 ---|* SET *EQ*. 03214 M01S02904.282l826 ---|
| Line S02905 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03215 M02S02905.282l826 ---| SA2 A0+/MTX/UST1 GET TRACK TYPE 03216 M02S02906.282l826 ---| LX2 59-36 03217 M02S02907.282l826 ---| AX2 59 03218 M02S02908.282l826 ---| MX0 -6 GET RESOURCE TYPE
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03219 M02S00196.282l826 ---| SA2 A0+/MTX/UJID GET TAPE DEVICE TYPE 03220 M02S00197.282l826 ---| MX0 -2 03221 M02S00198.282l826 ---| AX2 55 03222 M02S00199.282l826 ---| BX2 -X0*X2 03223 M02S00200.282l826 ---| ZR X2,PRE2.1 IF *MT* TAPE 03224 M02S00201.282l826 ---| MX0 -6 GET DENSITY
| Line S02909 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03225 M01S02909.282l826 ---| SA1 A0+/MTX/UST3 03226 M01S02910.282l826 ---| AX1 6 03227 M01S02911.282l826 ---| BX1 -X0*X1
| Line S02912 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03228 M02S02912.282l826 ---| BX1 X2*X1 03229 M02S02913.282l826 ---| MBSATA X1+TDDN,DPEQ,DPEQC,59,DPEQU SET EQUIPMENT TYPE
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03230 M02S00202.282l826 ---| SX0 X2-3 03231 M02S00203.282l826 ---| SX2 X1-2 CALCULATE RESOURCE INDEX 03232 M02S00204.282l826 ---| NZ X0,PRE2.1 IF NOT *AT* TAPE 03233 M02S00205.282l826 ---| SX2 X2+1 ADJUST RESOURCE INDEX 03234 M02S00206.282l826 ---| PRE2.1 MBSATA X2+TRES,DPEQ,DPEQC,59,DPEQU SET RESOURCE TYPE
| Line S02914 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03235 M01S02914.282l826 ---| 03236 M01S02915.282l826 ---|* CLEAR UNIT OFF FLAG 03237 M01S02916.282l826 ---| 03238 M01S02917.282l826 ---| MBSATA BLANKS,DPOF,DPOFC,59,DPOFU CLEAR OFF FLAG 03239 M01S02918.282l826 ---| 03240 M01S02919.282l826 ---|* SET *VSN*. 03241 M01S02920.282l826 ---| 03242 M01S02921.282l826 ---| MX0 36 CHECK FOR EQUIVALENCED VSN 03243 M01S02922.282l826 ---| SA2 A0+/MTX/UVSN CHECK FOR EQUIVALENCED VSN 03244 M01S02923.282l826 ---| BX1 X0*X2 03245 M01S02924.282l826 ---| LX2 59-19 03246 M01S02925.282l826 ---| SX6 1R 03247 M01S02926.282l826 ---| PL X2,PRE3 IF NOT EQUIVALENCED VSN 03248 M01S02927.282l826 ---| SX6 1R= 03249 M01S02928.282l826 ---| PRE3 LX6 18 03250 M01S02929.282l826 ---| BX1 X1+X6 03251 M01S02930.282l826 ---| LX2 59-22-59+19 03252 M01S02931.282l826 ---| PL X2,PRE4 IF NOT SCRATCH VSN 03253 M01S02932.282l826 ---| SA1 =0LSCRATCH 03254 M01S02933.282l826 ---| PRE4 RJ CSC CHECK FOR SPECIAL CHARACTER 03255 M01S02934.282l826 ---| MBSXTA X6,DPPV,DPPVC,59,DPPVU SET PHYSICAL VSN 03256 M01S02935.282l826 ---| 03257 M01S02936.282l826 ---|* SET *USERNAM*. 03258 M01S02937.282l826 ---| 03259 M01S02938.282l826 ---| SA1 A0+/MTX/UUFN GET USER NAME 03260 M01S02939.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03261 M01S02940.282l826 ---| MBSXTA X6,DPUN,DPUNC,59,DPUNU 03262 M01S02941.282l826 ---| 03263 M01S02942.282l826 ---|* SET *FAMILY*. 03264 M01S02943.282l826 ---| 03265 M01S02944.282l826 ---| MX0 -6 GET FAMILY ORDINAL 03266 M01S02945.282l826 ---| SA1 A0+/MTX/UUFN 03267 M01S02946.282l826 ---| AX1 12 03268 M01S02947.282l826 ---| BX1 -X0*X1 03269 M01S02948.282l826 ---| SA1 X1+FBUF GET FAMILY NAME 03270 M01S02949.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03271 M01S02950.282l826 ---| MBSXTA X6,DPFM,DPFMC,59,DPFMU SET FAMILY NAME 03272 M01S02951.282l826 ---| 03273 M01S02952.282l826 ---|* SET *RING*. 03274 M01S02953.282l826 ---| 03275 M01S02954.282l826 ---| MX0 -2 GET RING STATUS 03276 M01S02955.282l826 ---| SA1 A0+/MTX/UST4 03277 M01S02956.282l826 ---| AX1 3 03278 M01S02957.282l826 ---| BX1 -X0*X1 03279 M01S02958.282l826 ---| MBSATA X1+TRNG,DPRN,DPRNC,59,DPRNU SET RING STATUS 03280 M01S02959.282l826 ---| 03281 M01S02960.282l826 ---|* SET *LAB*. 03282 M01S02961.282l826 ---|
| Line S02962 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03283 M02S02962.282l826 ---| SA1 A0+/MTX/UST2 CHECK LABELLED STATUS
| Line S00207 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03284 M02S00207.282l826 ---| SA1 A0+/MTX/UST2 CHECK LABELED STATUS
| Line S02963 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03285 M01S02963.282l826 ---| LX1 59-11 03286 M01S02964.282l826 ---| SX6 3R---
| Line S02965 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03287 M02S02965.282l826 ---| PL X1,PRE5 IF NOT LABELLED
| Line S00208 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03288 M02S00208.282l826 ---| PL X1,PRE5 IF NOT LABELED
| Line S02966 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03289 M01S02966.282l826 ---| SX6 3RYES
| Line S02967 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03290 M02S02967.282l826 ---| PRE5 MBSXTA X6,DPLB,DPLBC,17,DPLBU SET LABELLED STATUS
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03291 M02S00209.282l826 ---| PRE5 MBSXTA X6,DPLB,DPLBC,17,DPLBU SET LABELED STATUS
| Line S02968 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03292 M01S02968.282l826 ---| 03293 M01S02969.282l826 ---|* SET *LEVEL*. 03294 M01S02970.282l826 ---| 03295 M01S02971.282l826 ---| SA2 SSS CHECK IF SECURED SYSTEM 03296 M01S02972.282l826 ---| SA1 BLANKS 03297 M01S02973.282l826 ---| ZR X2,PRE6 IF NOT SECURED SYSTEM 03298 M01S02974.282l826 ---| MX0 -3 GET ACCESS LEVEL 03299 M01S02975.282l826 ---| SA1 A0+/MTX/UVRI 03300 M01S02976.282l826 ---| AX1 42 03301 M01S02977.282l826 ---| BX1 -X0*X1 03302 M01S02978.282l826 ---| SA1 X1+TLVL 03303 M01S02979.282l826 ---| PRE6 MBSATA A1,DPLV,DPLVC,59,DPLVU SET/CLEAR ACCESS LEVEL 03304 M01S02980.282l826 ---| 03305 M01S02981.282l826 ---|* SET SECOND STATUS MESSAGE. 03306 M01S02982.282l826 ---| 03307 M01S02983.282l826 ---| SX0 17B GET ERROR CODE 03308 M01S02984.282l826 ---| SA1 A0+/MTX/UVSN 03309 M01S02985.282l826 ---| AX1 15 03310 M01S02986.282l826 ---| BX1 X0*X1 03311 M01S02987.282l826 ---| SX2 X1-/MTX/DMB 03312 M01S02988.282l826 ---| SA1 X1+TMEM 03313 M01S02989.282l826 ---| NZ X2,PRE8 IF NOT UDT MESSAGE 03314 M01S02990.282l826 ---| SA1 A0+/MTX/UMB1 03315 M01S02991.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03316 M01S02992.282l826 ---| SA6 A1 03317 M01S02993.282l826 ---| SA1 A1+B1 03318 M01S02994.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03319 M01S02995.282l826 ---| SA6 A1 03320 M01S02996.282l826 ---| SX1 A0+/MTX/UMB1 03321 M01S02997.282l826 ---| PRE8 MBSATA X1,DPS2,DPS2C,59,DPS2U SET SECOND STATUS MESSAGE 03322 M01S02998.282l826 ---| 03323 M01S02999.282l826 ---|* SET THIRD STATUS MESSAGE. 03324 M01S03000.282l826 ---| 03325 M01S03001.282l826 ---| SA1 A0+/MTX/UMB2 03326 M01S03002.282l826 ---| NZ X1,PRE9 IF THIRD STATUS MESSAGE 03327 M01S03003.282l826 ---| SA1 BLANKS 03328 M01S03004.282l826 ---| PRE9 RJ ZTB CONVERT ZEROES TO BLANKS 03329 M01S03005.282l826 ---| SA6 PREE 03330 M01S03006.282l826 ---| SA1 A1+B1 03331 M01S03007.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03332 M01S03008.282l826 ---| SA6 A6+B1 03333 M01S03009.282l826 ---| MBSATA PREE,DPS3,DPS3C,59,DPS3U SET THIRD STATUS MESSAGE 03334 M01S03010.282l826 ---| MOVE PREBL+PRECL,PREB,X5 SET ENTRY INTO BUFFER 03335 M01S03011.282l826 ---| SX5 X5+PREBL+PRECL INCREMENT DISPLAY BUFFER ADDRESS 03336 M01S03012.282l826 ---| SA1 CLN INCREMENT CURRENT LINE NUMBER 03337 M01S03013.282l826 ---| SX6 X1+LPEUP 03338 M01S03014.282l826 ---| SA6 A1 03339 M01S03015.282l826 ---| SA1 A0 GET NEXT *UDT* ADDRESS 03340 M01S03016.282l826 ---| EQ PRE1 CHECK ADDRESS 03341 M01S03017.282l826 ---| 03342 M01S03018.282l826 ---| PRE10 BX1 -X1 GET PREVIEW BUFFER ADDRESS 03343 M01S03019.282l826 ---| SA0 X1 03344 M01S03020.282l826 ---| PRE11 SA1 A0 03345 M01S03021.282l826 ---| ZR X1,PRE16 IF END OF PREVIEW BUFFER 03346 M01S03022.282l826 ---| SA1 CLN CHECK CURRENT LINE NUMBER 03347 M01S03023.282l826 ---| SX6 X1+LPEPB-NLPHD-NLPTT-NLPPG-2 03348 M01S03024.282l826 ---| PL X6,PRE16 IF NO MORE LINES IN DISPLAY 03349 M01S03025.282l826 ---| SX6 X5+PREAL-DBUF-DBUFL 03350 M01S03026.282l826 ---| PL X6,PRE16 IF NO MORE ROOM IN DISPLAY BUFFER 03351 M01S03027.282l826 ---| SX0 PREB 03352 M01S03028.282l826 ---| SA1 CLN 03353 M01S03029.282l826 ---| RJ CLY CONVERT LINE NUMBER TO Y-COORDINATE 03354 M01S03030.282l826 ---| MBSATA PREB,DPI2,12,47,47 03355 M01S03031.282l826 ---| MBSATA PREB,DPJS,12,47,47 03356 M01S03032.282l826 ---| 03357 M01S03033.282l826 ---|* PRESET TMS/PHYSICAL VSNS. 03358 M01S03034.282l826 ---| 03359 M01S03035.282l826 ---| MX0 12-1 CHECK IF TAPE REQUEST 03360 M01S03036.282l826 ---| LX0 -1
| Line S03037 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03361 M02S03037.282l826 ---| SA1 A0+B0
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03362 M02S00210.282l826 ---| SA1 A0+/MTX/PRST
| Line S03038 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03363 M01S03038.282l826 ---| LX1 42
| Line S03039 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03364 M02S03039.282l826 ---| SRCHTAB X1,TDDN,0,1,TDDNL
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03365 M02S00211.282l826 ---| SRCHTAB X1,TRES,0,1,TRESL
| Line S03040 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03366 M01S03040.282l826 ---| SA3 BLANKS 03367 M01S03041.282l826 ---| SA4 BLANKS 03368 M01S03042.282l826 ---| NZ X6,PRE12 IF NOT A TAPE REQUEST
| Line S03043 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03369 M02S03043.282l826 ---| SA2 A0+2 CHECK TMS FLAG
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03370 M02S00212.282l826 ---| SA2 A0+/MTX/PFLG CHECK *TMS* FLAG
| Line S03044 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03371 M01S03044.282l826 ---| BX3 X2 03372 M01S03045.282l826 ---| LX2 59-23
| Line S03046 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03373 M02S03046.282l826 ---| PL X2,PRE12 IF TMS
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03374 M02S00213.282l826 ---| PL X2,PRE12 IF *TMS*
| Line S03047 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03375 M01S03047.282l826 ---| SA3 =7LNON-TMS 03376 M01S03048.282l826 ---| BX4 X3 03377 M01S03049.282l826 ---| PRE12 BX6 X3 SET *TMS* VSN 03378 M01S03050.282l826 ---| SA6 PRED 03379 M01S03051.282l826 ---| BX6 X4 SAVE INTENSITY MESSAGE 03380 M01S03052.282l826 ---| SA6 PREE 03381 M01S03053.282l826 ---| 03382 M01S03054.282l826 ---|* SET *JSN*. 03383 M01S03055.282l826 ---| 03384 M01S03056.282l826 ---| MX0 -12 GET EJT ORDINAL
| Line S03057 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03385 M02S03057.282l826 ---| SA1 A0+B1
| Line S00214 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03386 M02S00214.282l826 ---| SA1 A0+/MTX/PUID
| Line S03058 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03387 M01S03058.282l826 ---| BX1 -X0*X1 03388 M01S03059.282l826 ---| RJ GEJ GET EJT ENTRY 03389 M01S03060.282l826 ---| MBSATA EBUF+JSNE,DPJS,DPJSC,59,DPJSU SET JSN 03390 M01S03061.282l826 ---| 03391 M01S03062.282l826 ---|* SET *TMSVSN*. 03392 M01S03063.282l826 ---| 03393 M01S03064.282l826 ---| SA1 PRED 03394 M01S03065.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03395 M01S03066.282l826 ---| MBSXTA X6,DPTV,DPTVC,59,DPTVU SET *TMS* VSN 03396 M01S03067.282l826 ---| MBSATA PREE,DPI1,DPI1C,59,DPI1U SET INTENSITY MESSAGES 03397 M01S03068.282l826 ---| MBSATA PREE,DPI2,DPI2C,59,DPI2U 03398 M01S03069.282l826 ---| 03399 M01S03070.282l826 ---|* SET OFF-SITE STATUS. 03400 M01S03071.282l826 ---| 03401 M01S03072.282l826 ---| SA1 PRED GET TMS VSN
| Line S03073 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03402 M02S03073.282l826 ---| MX0 -12 GET FAMILY ORDINAL 03403 M02S03074.282l826 ---| SA2 A0+2
| Line S00215 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03404 M02S00215.282l826 ---| MX0 -6 GET FAMILY ORDINAL 03405 M02S00216.282l826 ---| SA2 A0+/MTX/PUID 03406 M02S00217.282l826 ---| AX2 12
| Line S03075 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03407 M01S03075.282l826 ---| BX2 -X0*X2 03408 M01S03076.282l826 ---| RJ COS CHECK OFF-SITE STATUS 03409 M01S03077.282l826 ---| MBSXTA X1,DPOS,DPOSC,59,DPOSU SET OFF-SITE FLAG 03410 M01S03078.282l826 ---| 03411 M01S03079.282l826 ---|* SET *STATUS*. 03412 M01S03080.282l826 ---| 03413 M01S03081.282l826 ---| MBSATA (=5HMOUNT),DPS1,DPS1C,59,DPS1U SET STATUS MESSAGE 03414 M01S03082.282l826 ---| 03415 M01S03083.282l826 ---|* SET *EQ*. 03416 M01S03084.282l826 ---| 03417 M01S03085.282l826 ---| MX0 -17 GET EQUIPMENT TYPE MNEMONIC
| Line S03086 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03418 M02S03086.282l826 ---| SA1 A0+B0
| Line S00218 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03419 M02S00218.282l826 ---| SA1 A0+/MTX/PRST
| Line S03087 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03420 M01S03087.282l826 ---| BX1 -X0*X1 03421 M01S03088.282l826 ---| MBSXTA X1,DPEQ,DPEQC,DPEQC-1,DPEQU SET EQUIPMENT TYPE 03422 M01S03089.282l826 ---| 03423 M01S03090.282l826 ---|* SET UNIT OFF FLAG. 03424 M01S03091.282l826 ---|
| Line S03092 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03425 M02S03092.282l826 ---| SA1 A0+B0 CHECK UNIT OFF FLAG
| Line S00219 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03426 M02S00219.282l826 ---| SA1 A0+/MTX/PRST CHECK UNIT OFF FLAG
| Line S03093 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03427 M01S03093.282l826 ---| LX1 59-17 03428 M01S03094.282l826 ---| SX6 1R 03429 M01S03095.282l826 ---| PL X1,PRE13 IF NOT UNIT OFF 03430 M01S03096.282l826 ---| SX6 1R* 03431 M01S03097.282l826 ---| PRE13 MBSXTA X6,DPOF,DPOFC,5,DPOFU SET UNIT OFF FLAG 03432 M01S03098.282l826 ---| 03433 M01S03099.282l826 ---|* SET *PN/VSN*. 03434 M01S03100.282l826 ---|
| Line S03101 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03435 M02S03101.282l826 ---| SA1 A0+B0 GET VSN/PACKNAME
| Line S00220 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03436 M02S00220.282l826 ---| SA1 A0+/MTX/PRST GET VSN/PACKNAME
| Line S03102 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03437 M01S03102.282l826 ---| RJ CSC CHECK FOR SPECIAL CHARACTERS 03438 M01S03103.282l826 ---| MBSXTA X6,DPPV,DPPVC,59,DPPVU SET VSN/PACKNAME 03439 M01S03104.282l826 ---| 03440 M01S03105.282l826 ---|* SET *USERNAM*. 03441 M01S03106.282l826 ---|
| Line S03107 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03442 M02S03107.282l826 ---| SA1 A0+B1 GET USER NAME
| Line S00221 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03443 M02S00221.282l826 ---| SA1 A0+/MTX/PUID GET USER NAME
| Line S03108 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03444 M01S03108.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03445 M01S03109.282l826 ---| MBSXTA X6,DPUN,DPUNC,59,DPUNU SET USER NAME 03446 M01S03110.282l826 ---| 03447 M01S03111.282l826 ---|* SET *FAMILY*. 03448 M01S03112.282l826 ---|
| Line S03113 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03449 M02S03113.282l826 ---| MX0 -12 GET FAMILY ORDINAL 03450 M02S03114.282l826 ---| SA1 A0+2
| Line S00222 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03451 M02S00222.282l826 ---| MX0 -6 GET FAMILY ORDINAL 03452 M02S00223.282l826 ---| SA1 A0+/MTX/PUID 03453 M02S00224.282l826 ---| AX1 12
| Line S03115 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03454 M01S03115.282l826 ---| BX1 -X0*X1 03455 M01S03116.282l826 ---| SA1 X1+FBUF 03456 M01S03117.282l826 ---| RJ ZTB CONVERT ZEROES TO BLANKS 03457 M01S03118.282l826 ---| MBSXTA X6,DPFM,DPFMC,59,DPFMU SET FAMILY NAME 03458 M01S03119.282l826 ---| 03459 M01S03120.282l826 ---|* SET *RING*. 03460 M01S03121.282l826 ---| 03461 M01S03122.282l826 ---| MX0 -2 GET RING STATUS
| Line S03123 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03462 M02S03123.282l826 ---| SA1 A0+B1 03463 M02S03124.282l826 ---| AX1 12
| Line S00225 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03464 M02S00225.282l826 ---| SA1 A0+/MTX/PFLG
| Line S03125 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03465 M01S03125.282l826 ---| BX1 -X0*X1 03466 M01S03126.282l826 ---| MBSATA X1+TRNG,DPRN,DPRNC,59,DPRNU SET RING STATUS 03467 M01S03127.282l826 ---| 03468 M01S03128.282l826 ---|* SET *LAB*. 03469 M01S03129.282l826 ---|
| Line S03130 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03470 M02S03130.282l826 ---| SA1 A0+B1 CHECK LABELLED STATUS 03471 M02S03131.282l826 ---| LX1 59-14
| Line S00226 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03472 M02S00226.282l826 ---| SA1 A0+/MTX/PFLG CHECK LABELED STATUS 03473 M02S00227.282l826 ---| LX1 59-2
| Line S03132 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03474 M01S03132.282l826 ---| SX6 3R---
| Line S03133 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03475 M02S03133.282l826 ---| PL X1,PRE14 IF NOT LABELLED
| Line S00228 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03476 M02S00228.282l826 ---| PL X1,PRE14 IF NOT LABELED
| Line S03134 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03477 M01S03134.282l826 ---| SX6 3RYES
| Line S03135 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03478 M02S03135.282l826 ---| PRE14 MBSXTA X6,DPLB,DPLBC,DPLBC-1,DPLBU SET LABELLED STATUS
| Line S00229 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03479 M02S00229.282l826 ---| PRE14 MBSXTA X6,DPLB,DPLBC,DPLBC-1,DPLBU SET LABELED STATUS
| Line S03136 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03480 M01S03136.282l826 ---| 03481 M01S03137.282l826 ---|* SET *LEVEL*. 03482 M01S03138.282l826 ---| 03483 M01S03139.282l826 ---| SA2 SSS CHECK FOR SECURED SYSTEM 03484 M01S03140.282l826 ---| SA1 BLANKS 03485 M01S03141.282l826 ---| ZR X2,PRE15 IF NOT SECURED SYSTEM 03486 M01S03142.282l826 ---| MX0 -3 GET ACCESS LEVEL
| Line S03143 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03487 M02S03143.282l826 ---| SA1 A0+B1 03488 M02S03144.282l826 ---| AX1 15
| Line S00230 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03489 M02S00230.282l826 ---| SA1 A0+/MTX/PFLG 03490 M02S00231.282l826 ---| AX1 3
| Line S03145 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03491 M01S03145.282l826 ---| BX1 -X0*X3 03492 M01S03146.282l826 ---| SA1 X1+TLVL 03493 M01S03147.282l826 ---| PRE15 MBSATA A1,DPLV,DPLVC,59,DPLVU SET ACCESS LEVEL 03494 M01S03148.282l826 ---| MOVE PREBL,PREB,X5 SET ENTRY INTO DISPLAY 03495 M01S03149.282l826 ---| SX5 X5+PREBL INCREMENT DISPLAY BUFFER ADDRESS 03496 M01S03150.282l826 ---| SA0 A0+PBUFE INCREMENT PREVIEW BUFFER ADDRESS 03497 M01S03151.282l826 ---| SA1 CLN INCREMENT CURRENT LINE NUMBER 03498 M01S03152.282l826 ---| SX6 X1+LPEPB 03499 M01S03153.282l826 ---| SA6 A1 03500 M01S03154.282l826 ---| EQ PRE11 CHECK NEXT PREVIEW ENTRY 03501 M01S03155.282l826 ---| 03502 M01S03156.282l826 ---| PREA BSS 0 PREVIEW DISPLAY HEADER 03503 M01S03157.282l826 ---| LDISS 1,NLPTT+1 03504 M01S03158.282l826 ---| LDIS 4,(JSN ) 03505 M01S03159.282l826 ---| LDIS 1,( ) 03506 M01S03160.282l826 ---| LDIS 7,(TMSVSN ) 03507 M01S03161.282l826 ---| LDIS 6,(STATUS) 03508 M01S03162.282l826 ---| LDIS 1,( ) 03509 M01S03163.282l826 ---| LDIS 3,(EQ ) 03510 M01S03164.282l826 ---| LDIS 1,( ) 03511 M01S03165.282l826 ---| LDIS 7,(PN/VSN ) 03512 M01S03166.282l826 ---| LDIS 1,( ) 03513 M01S03167.282l826 ---| LDIS 7,(USERNAM) 03514 M01S03168.282l826 ---| LDIS 1,( ) 03515 M01S03169.282l826 ---| LDIS 7,(FAMILY ) 03516 M01S03170.282l826 ---| LDIS 4,(RING) 03517 M01S03171.282l826 ---| LDIS 1,( ) 03518 M01S03172.282l826 ---| LDIS 3,(LAB) 03519 M01S03173.282l826 ---| LDIS 1,( ) 03520 M01S03174.282l826 ---| DPLH LDIS 7,(LEVEL ) ACCESS LEVEL HEADER 03521 M01S03175.282l826 ---| LDISE 03522 M01S03176.282l826 ---| PREAL EQU *-PREA PREVIEW DISPLAY HEADER LENGTH 03523 M01S03177.282l826 ---| 03524 M01S03178.282l826 ---| PREB BSS 0 PREVIEW DISPLAY FIRST LINE OF ENTRY 03525 M01S03179.282l826 ---| DPFCT EQU 6 FIRST CHARACTER OF *TMSVSN* 03526 M01S03180.282l826 ---| LDISS DPFCT,K+1 03527 M01S03181.282l826 ---| DPI1 LDIS 7,(NON-TMS) FIRST *TMS* VSN INTENSITY MESSAGE 03528 M01S03182.282l826 ---| LDISE 03529 M01S03183.282l826 ---| LDISS DPFCT,K-1 03530 M01S03184.282l826 ---| DPI2 LDIS 7,(NON-TMS) SECOND *TMS* VSN INTENSITY MESSAGE 03531 M01S03185.282l826 ---| LDISE 03532 M01S03186.282l826 ---| LDISS 1,K-1 03533 M01S03187.282l826 ---| DPJS LDIS 4,(JSNN) JOB SEQUENCE NUMBER 03534 M01S03188.282l826 ---| DPOS LDIS 1,( ) OFF-SITE FLAG 03535 M01S03189.282l826 ---| DPFCT EQU CP+1 FIRST CHARACTER OF *TMSVSN* 03536 M01S03190.282l826 ---| DPTV LDIS 7,(NON-TMS) TMS VSN 03537 M01S03191.282l826 ---| LDIS 1,( ) 03538 M01S03192.282l826 ---| DPFCS EQU CP+1 FIRST CHARACTER POSITION OF SECOND LINE 03539 M01S03193.282l826 ---| DPTR LDIS 2,(NT) TRACK TYPE 03540 M01S03194.282l826 ---| DPES LDIS 3,(060) EST ORDINAL 03541 M01S03195.282l826 ---|*DPS1 LDIS 5,(MOUNT) FIRST STATUS MESSAGE 03542 M01S03196.282l826 ---| DPS1 EQU DPTR ADDRESS OF FIRST STATUS MESSAGE 03543 M01S03197.282l826 ---| DPS1C EQU DPTRC+DPESC BIT COUNT OF FIRST STATUS MESSAGE 03544 M01S03198.282l826 ---| DPS1U EQU DPTRU UPPER BIT POSITION OF FIRST STATUS MESSAGE 03545 M01S03199.282l826 ---| LDIS 1,( ) 03546 M01S03200.282l826 ---| DPEQ LDIS 3,(DJ1) EQUIPMENT TYPE 03547 M01S03201.282l826 ---| DPOF LDIS 1,(*) UNIT OFF FLAG 03548 M01S03202.282l826 ---| DPPV LDIS 7,(PACKNAM) VSN OR PACK NAME 03549 M01S03203.282l826 ---| LDIS 1,( ) 03550 M01S03204.282l826 ---| DPUN LDIS 7,(USERNAM) USER NAME 03551 M01S03205.282l826 ---| LDIS 1,( ) 03552 M01S03206.282l826 ---| DPFM LDIS 7,(FAMNAME) FAMILY NAME 03553 M01S03207.282l826 ---| LDIS 1,( ) 03554 M01S03208.282l826 ---| DPRN LDIS 3,(---) RING REQUIREMENT 03555 M01S03209.282l826 ---| LDIS 1,( ) 03556 M01S03210.282l826 ---| DPLB LDIS 3,(---) LABEL REQUIREMENT 03557 M01S03211.282l826 ---| LDIS 1,( ) 03558 M01S03212.282l826 ---| DPLV LDIS 7,(LVL0 ) ACCESS LEVEL 03559 M01S03213.282l826 ---| LDISE 03560 M01S03214.282l826 ---| PREBL EQU *-PREB PREVIEW DISPLAY FIRST LINE LENGTH 03561 M01S03215.282l826 ---| 03562 M01S03216.282l826 ---| PREC BSS 0 PREVIEW DISPLAY SECOND LINE OF ENTRY 03563 M01S03217.282l826 ---| LDISS DPFCS,K 03564 M01S03218.282l826 ---| DPS2 LDIS 20,( ) SECOND STATUS MESSAGE 03565 M01S03219.282l826 ---| LDIS 1,( ) 03566 M01S03220.282l826 ---| DPS3 LDIS 20,( ) THIRD STATUS MESSAGE 03567 M01S03221.282l826 ---| LDISE 03568 M01S03222.282l826 ---| PRECL EQU *-PREC PREVIEW DISPLAY SECOND LINE LENGTH 03569 M01S03223.282l826 ---| 03570 M01S03224.282l826 ---| PRED BSS 1 *TMSVSN* HOLDER 03571 M01S03225.282l826 ---| PREE BSS 1 *TMSVSN* INTENSITY HOLDER 03572 M01S03226.282l826 ---| 03573 M01S03227.282l826 ---| NWIPT SET PREBL+PRECL 03574 M01S03228.282l826 ---| NWIPT MAX NWIPT*NLPPG/LPEUP,PREBL*NLPPG/LPEPB 03575 M01S03229.282l826 ---| NWIPD EQU NWIPT+PREAL NUMBER OF WORDS IN *PRE* DISPLAY 03576 M00S03230.ldistap ---| TITLE SYSTEM STATUS SUBROUTINES. 03577 M00S03231.ldistap ---| CCB SPACE 4,10 03578 M00S03232.ldistap ---|** CCB - CLEAR CATALOG BUFFER. 03579 M00S03233.ldistap ---|* 03580 M00S03234.ldistap ---|* (A0) = ADDRESS OF CATALOG BUFFER. 03581 M00S03235.ldistap ---|* 03582 M00S03236.ldistap ---|* EXIT CATALOG BUFFER FIELDS SET TO ZERO.
| Line S03237 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03583 M01S03237.274l797 ---|* NEXT SCRATCH VSN SET TO SIX HYPHENS.
| Line S00232 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03584 M01S00232.274l797 +++|* (TMSM) SET TO SIX HYPHENS. 03585 M01S00233.274l797 +++|* (TMSC) SET TO SIX HYPHENS. 03586 M01S00234.274l797 +++|* (TMSA) SET TO SIX HYPHENS. 03587 M00S03238.ldistap +++|* 03588 M00S03239.ldistap +++|* MACROS CLEAR, MBSATA. 03589 M00S03240.ldistap +++| 03590 M00S03241.ldistap +++| 03591 M00S03242.ldistap +++| CCB SUBR ENTRY/EXIT 03592 M00S03243.ldistap +++| CLEAR A0,SBUFE CLEAR CATALOG BUFFER
| Line S03244 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03593 M01S03244.274l797 ---| MBSATA HYPHENS,A0+SBCWL+/TFM/TMSV,6*6,59,59 CLEAR SCRATCH
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03594 M01S00235.274l797 +++| MBSATA HYPHENS,A0+SBCWL+/TFM/TMSM,6*6,59,59 *MT/NT* SCRATCH 03595 M01S00236.274l797 +++| MBSATA HYPHENS,A0+SBCWL+/TFM/TMSC,6*6,59,59 *CT* SCRATCH 03596 M01S00237.274l797 +++| MBSATA HYPHENS,A0+SBCWL+/TFM/TMSA,6*6,59,59 *AT* SCRATCH 03597 M00S03245.ldistap +++| EQ CCBX RETURN 03598 M00S03246.ldistap +++| CCS SPACE 4,20 03599 M00S03247.ldistap +++|** CCS - CHECK CATALOG STATUS. 03600 M00S03248.ldistap +++|* 03601 M00S03249.ldistap +++|* ENTRY (A0) = ADDRESS OF CATALOG BUFFER. 03602 M00S03250.ldistap +++|* (X4) = *CSCFA* IF CATALOG IS FAST-ATTACHED. 03603 M00S03251.ldistap +++|* = *CSCFB* IF CATALOG IS BUSY. 03604 M00S03252.ldistap +++|* 03605 M00S03253.ldistap +++|* EXIT ((A0)+0) = BIT 47 SET IF CATALOG IS BUSY. 03606 M00S03254.ldistap +++|* (X4) = *CSERR* IF CATALOG ERROR.
| Line S03255 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03607 M01S03255.274l797 ---|* = *CSNSV* IF NO SCRATCH VSNS.
| Line S00238 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03608 M01S00238.274l797 +++|* = *CSNSV* IF NO SCRATCH VSNS OF ANY TYPE. 03609 M00S03256.ldistap +++|* = *CSCFA* IF NO SPECIAL STATUS. 03610 M00S03257.ldistap +++|* (CCE) INCREMENTED IF CATALOG ERROR.
| Line S03258 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03611 M01S03258.274l797 ---|* (CNS) INCREMENTED IF NO SCRATCH VSNS. 03612 M01S03259.274l797 ---|* NEXT SCRATCH SET TO SIX HYPHENS IF NO SCRATCH VSNS.
| Line S00239 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03613 M01S00239.274l797 +++|* (CNSN) INCREMENTED IF NO *MT/NT* SCRATCH VSNS. 03614 M01S00240.274l797 +++|* (TMSM) SET TO SIX HYPHENS IF NO *MT/NT* SCRATCH VSNS. 03615 M01S00241.274l797 +++|* (CNSC) INCREMENTED IF NO *CT* SCRATCH VSNS. 03616 M01S00242.274l797 +++|* (TMSC) SET TO SIX HYPHENS IF NO *CT* SCRATCH VSNS. 03617 M01S00243.274l797 +++|* (CNSA) INCREMENTED IF NO *AT* SCRATCH VSNS. 03618 M01S00244.274l797 +++|* (TMSA) SET TO SIX HYPHENS IF NO *AT* SCRATCH VSNS. 03619 M00S03260.ldistap +++|*
| Line S03261 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03620 M01S03261.274l797 ---|* USES X - 0, 1, 6.
| Line S00245 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03621 M01S00245.274l797 +++|* USES X - 0, 1, 4, 6, 7. 03622 M00S03262.ldistap +++|* A - 1, 6. 03623 M00S03263.ldistap +++|* 03624 M00S03264.ldistap +++|* MACROS MBSATA, MBSXTA. 03625 M00S03265.ldistap +++| 03626 M00S03266.ldistap +++|
| Line S03267 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03627 M01S03267.274l797 ---| CCS3 SX1 X4-CSNSV 03628 M01S03268.274l797 ---| NZ X1,CCSX IF SCRATCH VSNS 03629 M01S03269.274l797 ---| SA1 CNS INCREMENT NO SCRATCH FAMILY COUNT 03630 M01S03270.274l797 ---| SX6 X1+B1 03631 M01S03271.274l797 ---| SA6 A1
| Line S00246 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03632 M01S00246.274l797 +++| CCS5 SA1 CCSB CHECK TOTAL SCRATCH COUNT FOR FAMILY 03633 M01S00247.274l797 +++| NZ X1,CCSX IF SCRATCH VSN-S OF ANY TYPE FOUND 03634 M01S00248.274l797 +++| SX4 CSNSV SET ERROR STATUS 03635 M00S03272.ldistap +++| 03636 M00S03273.ldistap +++| CCS SUBR ENTRY/EXIT 03637 M00S03274.ldistap +++| SX6 X4-CSCFA 03638 M00S03275.ldistap +++| SX1 B0 03639 M00S03276.ldistap +++| ZR X6,CCS1 IF CATALOG IS FAST-ATTACHED 03640 M00S03277.ldistap +++| SX4 CSCFA 03641 M00S03278.ldistap +++| SX1 B1+ 03642 M00S03279.ldistap +++| CCS1 MBSXTA X1,A0,1,0,47 SET/CLEAR CATALOG BUSY BIT
| Line S03280 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03643 M01S03280.274l797 ---| MX0 -24 CHECK SCRATCH VSN COUNT 03644 M01S03281.274l797 ---| SA1 A0+SBCWL+/TFM/TMSV 03645 M01S03282.274l797 ---| BX1 -X0*X1 03646 M01S03283.274l797 ---| NZ X1,CCS2 IF SCRATCH VSNS 03647 M01S03284.274l797 ---| MBSATA HYPHENS,A0+SBCWL+/TFM/TMSV,6*6,59,59 CLEAR SCRATCH 03648 M01S03285.274l797 ---| SX4 CSNSV 03649 M01S03286.274l797 ---| CCS2 SX0 /TFM/FETS CHECK FOR CATALOG ERROR
| Line S00249 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03650 M01S00249.274l797 +++| MX0 -24 CHECK *MT/NT* SCRATCH VSN COUNT 03651 M01S00250.274l797 +++| SA1 A0+SBCWL+/TFM/TMSM 03652 M01S00251.274l797 +++| BX6 -X0*X1 03653 M01S00252.274l797 +++| SA6 CCSB 03654 M01S00253.274l797 +++| NZ X6,CCS2 IF *MT/NT* SCRATCH VSNS 03655 M01S00254.274l797 +++| MBSATA HYPHENS,A0+SBCWL+/TFM/TMSM,6*6,59,59 CLEAR VSN 03656 M01S00255.274l797 +++| SA1 CNSM COUNT OF FAMILIES WITH NO *MT/NT* SCRATCH 03657 M01S00256.274l797 +++| SX6 X1+B1 03658 M01S00257.274l797 +++| SA6 A1 03659 M01S00258.274l797 +++| CCS2 MX0 -24 CHECK *CT* SCRATCH VSN COUNT 03660 M01S00259.274l797 +++| SA1 A0+SBCWL+/TFM/TMSC 03661 M01S00260.274l797 +++| BX2 -X0*X1 03662 M01S00261.274l797 +++| SA1 CCSB INCREMENT TOTAL SCRATCH COUNT 03663 M01S00262.274l797 +++| IX6 X1+X2 03664 M01S00263.274l797 +++| SA6 A1 03665 M01S00264.274l797 +++| NZ X2,CCS3 IF *CT* SCRATCH VSNS 03666 M01S00265.274l797 +++| MBSATA HYPHENS,A0+SBCWL+/TFM/TMSC,6*6,59,59 CLEAR VSN 03667 M01S00266.274l797 +++| SA1 CNSC COUNT OF FAMILIES WITH NO *CT* SCRATCH 03668 M01S00267.274l797 +++| SX6 X1+B1 03669 M01S00268.274l797 +++| SA6 A1 03670 M01S00269.274l797 +++| CCS3 MX0 -24 CHECK *AT* SCRATCH VSN COUNT 03671 M01S00270.274l797 +++| SA1 A0+SBCWL+/TFM/TMSA 03672 M01S00271.274l797 +++| BX2 -X0*X1 03673 M01S00272.274l797 +++| SA1 CCSB INCREMENT TOTAL SCRATCH COUNT 03674 M01S00273.274l797 +++| IX6 X1+X2 03675 M01S00274.274l797 +++| SA6 A1 03676 M01S00275.274l797 +++| NZ X2,CCS4 IF *AT* SCRATCH VSNS 03677 M01S00276.274l797 +++| MBSATA HYPHENS,A0+SBCWL+/TFM/TMSA,6*6,59,59 CLEAR VSN 03678 M01S00277.274l797 +++| SA1 CNSA COUNT OF FAMILIES WITH NO *AT* SCRATCH 03679 M01S00278.274l797 +++| SX6 X1+B1 03680 M01S00279.274l797 +++| SA6 A1 03681 M01S00280.274l797 +++| CCS4 SX0 /TFM/FETS CHECK FOR CATALOG ERROR 03682 M00S03287.ldistap +++| SA1 A0+SBCWL+/TFM/TMFM 03683 M00S03288.ldistap +++| BX1 X0*X1
| Line S03289 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03684 M01S03289.274l797 ---| ZR X1,CCS3 IF NO CATALOG ERROR
| Line S00281 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03685 M01S00281.274l797 +++| ZR X1,CCS5 IF NO CATALOG ERROR 03686 M00S03290.ldistap +++| SA1 CCE INCREMENT CATALOG ERROR COUNT 03687 M00S03291.ldistap +++| SX6 X1+B1 03688 M00S03292.ldistap +++| SA6 A1 03689 M00S03293.ldistap +++| SX4 CSERR 03690 M00S03294.ldistap +++| EQ CCSX RETURN 03691 M01S00282.274l797 +++| 03692 M01S00283.274l797 +++| 03693 M01S00284.274l797 +++| CCSB CON 0 TOTAL SCRATCH COUNT FOR THIS FAMILY 03694 M00S03295.ldistap +++| CNF SPACE 4,10 03695 M00S03296.ldistap +++|** CNF - CHECK NON-FAST ATTACHED FILE STATUS. 03696 M00S03297.ldistap +++|* 03697 M00S03298.ldistap +++|* EXIT CALL *CCS* IF CATALOG ERROR. 03698 M00S03299.ldistap +++|* CALL *CCB* IF NO CATALOG ERROR. 03699 M00S03300.ldistap +++|* 03700 M00S03301.ldistap +++|* USES X - 0, 1. 03701 M00S03302.ldistap +++|* A - 1. 03702 M00S03303.ldistap +++|* 03703 M00S03304.ldistap +++|* CALLS CCB, CCS. 03704 M00S03305.ldistap +++| 03705 M00S03306.ldistap +++| 03706 M00S03307.ldistap +++| CNF1 RJ CCB CLEAR CATALOG BUFFER 03707 M00S03308.ldistap +++| 03708 M00S03309.ldistap +++| CNF SUBR ENTRY/EXIT 03709 M00S03310.ldistap +++| SX0 /TFM/FETS CHECK FOR CATALOG ERROR 03710 M00S03311.ldistap +++| SA1 A0+SBCWL+/TFM/TMFM 03711 M00S03312.ldistap +++| BX1 X0*X1 03712 M00S03313.ldistap +++| ZR X1,CNF1 IF NO CATALOG ERROR 03713 M00S03314.ldistap +++| SX4 CSCFA 03714 M00S03315.ldistap +++| RJ CCS CHECK CATALOG STATUS 03715 M00S03316.ldistap +++| EQ CNFX RETURN 03716 M00S03317.ldistap +++| GCS SPACE 4,20 03717 M00S03318.ldistap +++|** GCS - GET CATALOG STATUSES. 03718 M00S03319.ldistap +++|* 03719 M00S03320.ldistap +++|* EXIT CATALOG STATUS BUFFERS SET INTO *SBUF*. 03720 M00S03321.ldistap +++|* FAMILY ORDINAL TABLE SET INTO *FBUF*. 03721 M00S03322.ldistap +++|* FIRST CATALOG STATUS BUFFER ENTRY FOR EACH DISPLAY 03722 M00S03323.ldistap +++|* PAGE SET INTO *TFDP*. 03723 M00S03324.ldistap +++|* WORD 0 OF EACH CATALOG STATUS BUFFER ENTRY SET - 03724 M00S03325.ldistap +++|*T, 12/STATUS, 1/BUSY FLAG, 29/0, 18/ADDRESS OF NEXT ENTRY
Figure
03725 M00S03326.ldistap +++|* (CCE) = NUMBER OF FAMILY CATALOGS WITH ERRORS. 03726 M00S03327.ldistap +++|* (CNS) = NUMBER OF FAMILY CATALOGS WITH NO SCRATCH.
| Line S03328 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03727 M01S03328.nos252 ---|* (TMS) = 0 IF *TMS* IS NOT ACTIVE.
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03728 M01S00059.nos252 +++|* (TMS) = 0 IF *TMS* IS ACTIVE. 03729 M00S03329.ldistap +++|* 03730 M00S03330.ldistap +++|* USES X - 0, 1, 2, 4, 5, 6. 03731 M00S03331.ldistap +++|* A - 0, 1, 2, 4, 5, 6. 03732 M00S03332.ldistap +++|* B - 2, 3. 03733 M00S03333.ldistap +++|* 03734 M00S03334.ldistap +++|* CALLS ACF, SWP. 03735 M00S03335.ldistap +++|* 03736 M00S03336.ldistap +++|* MACROS CLEAR, MBSATA, MBSXTA, RDMEM, READ, READW, REWIND, 03737 M00S03337.ldistap +++|* RJM. 03738 M00S03338.ldistap +++| 03739 M00S03339.ldistap +++| 03740 M00S03340.ldistap +++| GCS13 SX6 B2 SET NUMBER OF PAGES 03741 M00S03341.ldistap +++| SA6 TNDP+DISFC 03742 M00S03342.ldistap +++| 03743 M00S03343.ldistap +++| GCS SUBR ENTRY/EXIT 03744 M00S03344.ldistap +++| CLEAR TFCF,NFCST PRESET POINTER TABLES 03745 M00S03345.ldistap +++| CLEAR TFCL,NFCST 03746 M00S03346.ldistap +++| CLEAR TFDP,NPGFD PRESET *TFDP* 03747 M00S03347.ldistap +++| SX6 B0 CLEAR CATALOG STATUS COUNTS 03748 M00S03348.ldistap +++| SA6 CCE
| Line S03349 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03749 M01S03349.274l797 ---| SA6 CNS
| Line S00285 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 03750 M01S00285.274l797 +++| SA6 CNSM 03751 M01S00286.274l797 +++| SA6 CNSC 03752 M01S00287.274l797 +++| SA6 CNSA 03753 M00S03350.ldistap +++| SA6 TNDP+DISFC
| Line S03351 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03754 M01S03351.nos252 ---| SYSTEM TFU,R,TMS,/TFU/RTSF*100B GET *TMS* STATUS
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 03755 M01S00060.nos252 +++| SYSTEM SFM,R,TMS,GTSF*100B GET *TMS* STATUS 03756 M00S03352.ldistap +++| MX0 1 SAVE *TMS* STATUS 03757 M00S03353.ldistap +++| SA1 TMS 03758 M00S03354.ldistap +++| BX1 X0*X1 03759 M00S03355.ldistap +++| BX6 X0-X1 03760 M00S03356.ldistap +++| SA6 TMS 03761 M00S03357.ldistap +++| SA1 MXF GET FAMILY ORDINAL TABLE 03762 M00S03358.ldistap +++| SA2 FFO 03763 M00S03359.ldistap +++| RDMEM ABS,X2,X1,FBUF 03764 M00S03360.ldistap +++| SA5 MXF GET CATALOG SYSTEM BLOCKS 03765 M00S03361.ldistap +++| SA0 SBUF 03766 M00S03362.ldistap +++| GCS1 SX5 X5-1 03767 M00S03363.ldistap +++| NG X5,GCS5 IF END OF FAMILIES 03768 M00S03364.ldistap +++| MX0 42 GET FAMILY NAME 03769 M00S03365.ldistap +++| SA1 X5+FBUF 03770 M00S03366.ldistap +++| BX1 X0*X1 03771 M00S03367.ldistap +++| SX4 CSFNF 03772 M00S03368.ldistap +++| ZR X1,GCS2 IF NO FAMILY NAME 03773 M00S03369.ldistap +++| SX2 377777B 03774 M00S03370.ldistap +++| RJ SWP SWAP TO FAMILY NAME AND USER INDEX 03775 M00S03371.ldistap +++| NZ X4,GCS2 IF FAMILY NOT FOUND 03776 M00S03372.ldistap +++| RJ ACF ATTACH CATALOG FILE 03777 M00S03373.ldistap +++| NZ X1,GCS2 IF CATALOG NOT ATTACHED 03778 M00S03374.ldistap +++| SX6 X4 SAVE STATUS 03779 M00S03375.ldistap +++| SA6 GCSB 03780 M00S03376.ldistap +++| REWIND P,R GET SYSTEM BLOCK
| Line S03377 Modification History | |
|---|---|
M01 (Removed by) | t5497 |
Seq # *Modification Id* Act ----------------------------+ 03781 M01S03377.t5497 ---| READ P 03782 M01S03378.t5497 ---| READW P,A0,SBUFE 03783 M01S03379.t5497 ---| RETURN P
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | t5497 |
Seq # *Modification Id* Act ----------------------------+ 03784 M01S00001.t5497 +++| READ P,R 03785 M01S00002.t5497 +++| MX0 -5 CHECK FOR ERROR 03786 M01S00003.t5497 +++| SA1 P 03787 M01S00004.t5497 +++| AX1 9 03788 M01S00005.t5497 +++| BX1 -X0*X1 03789 M01S00006.t5497 +++| ZR X1,GCS1.1 IF NO ERROR ON READ 03790 M01S00007.t5497 +++| SX6 CSCNF FLAG AS CATALOG FILE NOT FOUND 03791 M01S00008.t5497 +++| SA6 GCSB 03792 M01S00009.t5497 +++| EQ GCS1.2 RETURN CATALOG FILE 03793 M01S00010.t5497 +++| 03794 M01S00011.t5497 +++| GCS1.1 READW P,A0,SBUFE 03795 M01S00012.t5497 +++| GCS1.2 RETURN P 03796 M00S03380.ldistap +++| SA4 GCSB GET STATUS 03797 M00S03381.ldistap +++| GCS2 SA1 X4+TFCP 03798 M00S03382.ldistap +++| RJM X1 EXECUTE PROCESSOR FOR CATALOG STATUS 03799 M00S03383.ldistap +++| MBSATA X5+FBUF,A0+SBCWL+/TFM/TMFM,42,59,59 SET FAMILY NAME 03800 M00S03384.ldistap +++| MBSXTA X4,A0,12,11,59 SET CATALOG STATUS 03801 M00S03385.ldistap +++| MBSATA X4+TFCF,A0,18,17,17 LINK STATUS ENTRIES 03802 M00S03386.ldistap +++| SX1 A0 03803 M00S03387.ldistap +++| MBSXTA X1,X4+TFCF,18,17,17 03804 M00S03388.ldistap +++| SA1 X4+TFCM 03805 M00S03389.ldistap +++| ZR X1,GCS3 IF USE MESSAGE BUFFER 03806 M00S03390.ldistap +++| MBSATA X1,A0+SBCWL+/TFM/TMMB,/TFM/MBML*60,59,59 SET MESSAGE 03807 M00S03391.ldistap +++| GCS3 SA1 X4+TFCL 03808 M00S03392.ldistap +++| NZ X1,GCS4 IF ALREADY A LAST ENTRY 03809 M00S03393.ldistap +++| SX6 A0 SET LAST ENTRY 03810 M00S03394.ldistap +++| SA6 A1 03811 M00S03395.ldistap +++| GCS4 SA0 A0+SBUFE 03812 M00S03396.ldistap +++| EQ GCS1 CHECK NEXT FAMILY 03813 M00S03397.ldistap +++| 03814 M00S03398.ldistap +++| GCS5 SA1 OFM GET ORIGINAL FAMILY NAME 03815 M00S03399.ldistap +++| SA2 OUI 03816 M00S03400.ldistap +++| RJ SWP SWAP TO FAMILY NAME AND USER INDEX 03817 M00S03401.ldistap +++| SA4 GCSA LINK STATUS ENTRIES 03818 M00S03402.ldistap +++| GCS6 ZR X4,GCS10 IF END OF TABLE 03819 M00S03403.ldistap +++| SA5 A4+B1 03820 M00S03404.ldistap +++| SA2 X4 03821 M00S03405.ldistap +++| ZR X2,GCS9 IF NO ENTRIES FOR THIS STATUS 03822 M00S03406.ldistap +++| SA1 TFDP+0 03823 M00S03407.ldistap +++| NZ X1,GCS7 IF FIRST ENTRY ALREADY SET 03824 M00S03408.ldistap +++| SA1 X4+TFCF-TFCL SET FIRST ENTRY 03825 M00S03409.ldistap +++| SX6 X1 03826 M00S03410.ldistap +++| SA6 TFDP+0 03827 M00S03411.ldistap +++| GCS7 ZR X5,GCS10 IF END OF TABLE 03828 M00S03412.ldistap +++| SA1 X5+TFCF-TFCL 03829 M00S03413.ldistap +++| NZ X1,GCS8 IF ENTRIES FOR THIS STATUS 03830 M00S03414.ldistap +++| SA5 A5+B1 03831 M00S03415.ldistap +++| EQ GCS7 CHECK NEXT STATUS 03832 M00S03416.ldistap +++| 03833 M00S03417.ldistap +++| GCS8 MBSATA A1,X2,18,17,17 LINK STATUS ENTRIES 03834 M00S03418.ldistap +++| GCS9 SA4 A5 03835 M00S03419.ldistap +++| EQ GCS6 CHECK NEXT STATUS 03836 M00S03420.ldistap +++| 03837 M00S03421.ldistap +++| GCS10 SA5 TFDP+0 COUNT NUMBER FAMILY CATALOG ENTRIES 03838 M00S03422.ldistap +++| SB2 B0 PRESET PAGE NUMBER 03839 M00S03423.ldistap +++| SB3 B0 03840 M00S03424.ldistap +++| GCS11 SX5 X5 03841 M00S03425.ldistap +++| ZR X5,GCS13 IF END OF ENTRIES 03842 M00S03426.ldistap +++| SB3 B3-LPEFC 03843 M00S03427.ldistap +++| PL B3,GCS12 IF NOT END OF PAGE 03844 M00S03428.ldistap +++| SX6 X5 SET FIRST ENTRY OF PAGE 03845 M00S03429.ldistap +++| SA6 B2+TFDP 03846 M00S03430.ldistap +++| SB2 B2+B1 INCREMENT PAGE NUMBER 03847 M00S03431.ldistap +++| SB3 NLPPG-1 03848 M00S03432.ldistap +++| GCS12 SA5 X5 03849 M00S03433.ldistap +++| EQ GCS11 CHECK NEXT ADDRESS 03850 M00S03434.ldistap +++| 03851 M00S03435.ldistap +++| GCSA BSS 0 TABLE OF CATALOG STATUS LINKS 03852 M00S03436.ldistap +++| CON CSERR+TFCL CATALOG ERROR 03853 M00S03437.ldistap +++| CON CSNSV+TFCL NO SCRATCH VSNS 03854 M00S03438.ldistap +++| CON CSCFA+TFCL CATALOG FAST-ATTACHED 03855 M00S03439.ldistap +++| CON CSCFN+TFCL CATALOG NOT FAST-ATTACHED 03856 M00S03440.ldistap +++| CON CSCNF+TFCL CATALOG FILE NOT FOUND 03857 M00S03441.ldistap +++| 03858 M00S03442.ldistap +++| CON 0 END OF TABLE 03859 M00S03443.ldistap +++| 03860 M00S03444.ldistap +++| GCSB CON 0 CATALOG STATUS
| Line S03445 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 03861 M01S03445.282l826 ---| GJS SPACE 4,15 03862 M01S03446.282l826 ---|** GJS - GET JOB STATUSES. 03863 M01S03447.282l826 ---|* 03864 M01S03448.282l826 ---|* EXIT CONTROL POINT AREAS SET INTO *JBUF*. 03865 M01S03449.282l826 ---|* FIRST CONTROL POINT AREA ENTRY FOR EACH DISPLAY PAGE 03866 M01S03450.282l826 ---|* SET INTO *TJDP*. 03867 M01S03451.282l826 ---|* WORD 0 OF EACH CONTROL POINT AREA ENTRY SET - 03868 M01S03452.282l826 ---|*T, 42/0, 18/ADDRESS OF NEXT ENTRY
Figure
03869 M01S03453.282l826 ---|* (COA) = NUMBER OF JOBS REQUIRING OPERATOR ACTION. 03870 M01S03454.282l826 ---|* 03871 M01S03455.282l826 ---|* USES X - 0, 1, 2, 4, 5, 6. 03872 M01S03456.282l826 ---|* A - 0, 1, 2, 6. 03873 M01S03457.282l826 ---|* B - 2, 3, 6, 7. 03874 M01S03458.282l826 ---|* 03875 M01S03459.282l826 ---|* MACROS CLEAR, RDMEM. 03876 M01S03460.282l826 ---| 03877 M01S03461.282l826 ---| 03878 M01S03462.282l826 ---| GJS4 SX6 B2 SET NUMBER OF PAGES 03879 M01S03463.282l826 ---| SA6 TNDP+DISJB 03880 M01S03464.282l826 ---| SX6 B7 SET OPERATOR ACTION COUNT 03881 M01S03465.282l826 ---| SA6 COA 03882 M01S03466.282l826 ---| 03883 M01S03467.282l826 ---| GJS SUBR ENTRY/EXIT 03884 M01S03468.282l826 ---| CLEAR TJDP,NPGJD CLEAR PAGE TABLE 03885 M01S03469.282l826 ---| SX6 B0 CLEAR EXECUTING JOB STATUSES 03886 M01S03470.282l826 ---| SA6 COA 03887 M01S03471.282l826 ---| SA6 TNDP+DISJB 03888 M01S03472.282l826 ---| SA1 NCP READ CONTROL POINT AREAS 03889 M01S03473.282l826 ---| LX1 7 03890 M01S03474.282l826 ---| RDMEM ABS,CPAS,X1,JBUF READ CONTROL POINT AREAS 03891 M01S03475.282l826 ---| SA4 NCP GET *RESEX* JOBS REQUIRING ACTION 03892 M01S03476.282l826 ---| LX4 7 03893 M01S03477.282l826 ---| SX4 X4+177B 03894 M01S03478.282l826 ---| SB2 B0 PRESET PAGE NUMBER 03895 M01S03479.282l826 ---| SB3 B0 03896 M01S03480.282l826 ---| SB6 TJDP PRESET EXECUTING JOB LINK 03897 M01S03481.282l826 ---| SB7 B0 PRESET OPERATOR ACTION COUNT 03898 M01S03482.282l826 ---| GJS1 SX4 X4-200B 03899 M01S03483.282l826 ---| NG X4,GJS4 IF END OF CONTROL POINTS 03900 M01S03484.282l826 ---| SA0 X4+JBUF+1 03901 M01S03485.282l826 ---| MX6 -12 CHECK SUBSYSTEM ID 03902 M01S03486.282l826 ---| SA1 A0+JCIW 03903 M01S03487.282l826 ---| AX1 24 03904 M01S03488.282l826 ---| BX6 -X6*X1 03905 M01S03489.282l826 ---| SX6 X6-ORSI 03906 M01S03490.282l826 ---| NZ X6,GJS3 IF NOT ALLOW OPERATOR ROLLOUT 03907 M01S03491.282l826 ---| AX1 49-24 03908 M01S03492.282l826 ---| SX1 X1-RXCS 03909 M01S03493.282l826 ---| NZ X1,GJS3 IF NOT *RESEX* PRIORITY 03910 M01S03494.282l826 ---| SA1 A0+SEPW CHECK ENTRY POINTS 03911 M01S03495.282l826 ---| LX1 59-50 03912 M01S03496.282l826 ---| PL X1,GJS3 IF NOT SSJ= 03913 M01S03497.282l826 ---| LX1 59-52-59+50 03914 M01S03498.282l826 ---| NG X1,GJS2 IF DMP= 03915 M01S03499.282l826 ---| LX1 59-33-59+52 03916 M01S03500.282l826 ---| PL X1,GJS3 IF NOT DMP= SUPPRESSED 03917 M01S03501.282l826 ---| GJS2 SA1 A0+SNSW CHECK PP PAUSE FLAG 03918 M01S03502.282l826 ---| LX1 59-12 03919 M01S03503.282l826 ---| PL X1,GJS3 IF NOT SET 03920 M01S03504.282l826 ---| SB7 B7+B1 INCREMENT OPERATOR ACTION COUNT 03921 M01S03505.282l826 ---| SX6 A0 LINK JOBS 03922 M01S03506.282l826 ---| SA6 B6 03923 M01S03507.282l826 ---| SX6 B0 03924 M01S03508.282l826 ---| SA6 A0 03925 M01S03509.282l826 ---| SB6 A0 03926 M01S03510.282l826 ---| SB3 B3-LPEJB 03927 M01S03511.282l826 ---| PL B3,GJS3 IF NOT END OF PAGE 03928 M01S03512.282l826 ---| SX6 A0 SET FIRST ENTRY OF PAGE 03929 M01S03513.282l826 ---| SA6 B2+TJDP 03930 M01S03514.282l826 ---| SB2 B2+B1 INCREMENT PAGE NUMBER 03931 M01S03515.282l826 ---| SB3 NLPPG-1 03932 M01S03516.282l826 ---| GJS3 SA0 A0+200B 03933 M01S03517.282l826 ---| EQ GJS1 CHECK NEXT JOB 03934 M01S03518.282l826 ---| GMS SPACE 4,20 03935 M01S03519.282l826 ---|** GET *MAGNET* STATUS. 03936 M01S03520.282l826 ---|* 03937 M01S03521.282l826 ---|* EXIT *UDT* ENTRIES SET INTO *UBUF*. 03938 M01S03522.282l826 ---|* PREVIEW BUFFER SET INTO *PBUF*. 03939 M01S03523.282l826 ---|* FIRST *UDT* ENTRY FOR EACH DISPLAY PAGE SET INTO 03940 M01S03524.282l826 ---|* *TJDP*. 03941 M01S03525.282l826 ---|* WORD 0 OF EACH *UDT* ENTRY SET - 03942 M01S03526.282l826 ---|*T, 42/0, 18/ADDRESS OF NEXT ENTRY OR
Figure
03943 M01S03527.282l826 ---|*T, 60/-(PBUF+1) IF LAST *UDT* ENTRY
Figure
03944 M01S03528.282l826 ---|* (CPE) = NUMBER OF PREVIEW DISPLAY ENTRIES. 03945 M01S03529.282l826 ---|* (MGS) = 0 IF *MAGNET* NOT ACTIVE. 03946 M01S03530.282l826 ---|* 03947 M01S03531.282l826 ---|* USES X - 0, 1, 2, 4, 5, 6, 7. 03948 M01S03532.282l826 ---|* A - 0, 1, 2, 6, 7. 03949 M01S03533.282l826 ---|* B - 2, 3, 4, 5, 6, 7. 03950 M01S03534.282l826 ---|* 03951 M01S03535.282l826 ---|* MACROS CLEAR, RDMEM. 03952 M01S03536.282l826 ---| 03953 M01S03537.282l826 ---| 03954 M01S03538.282l826 ---| GMS10 SX6 B2 SET NUMBER OF EQUIPMENT PAGES 03955 M01S03539.282l826 ---| SA6 TNDP+DISEQ 03956 M01S03540.282l826 ---| 03957 M01S03541.282l826 ---| GMS SUBR ENTRY/EXIT 03958 M01S03542.282l826 ---| CLEAR TEDP,NPGED CLEAR PAGE TABLES 03959 M01S03543.282l826 ---| CLEAR TPDP,NPGPD 03960 M01S03544.282l826 ---| SX6 B1 CLEAR *MAGNET* STATUSES 03961 M01S03545.282l826 ---| SA6 MGS 03962 M01S03546.282l826 ---| SX6 B0 03963 M01S03547.282l826 ---| SA6 CPE 03964 M01S03548.282l826 ---| SA6 TNDP+DISEQ 03965 M01S03549.282l826 ---| SA6 TNDP+DISPR 03966 M01S03550.282l826 ---| RDMEM MTSI,/MTX/UBUF,1,UDA GET *UDT* ADDRESS 03967 M01S03551.282l826 ---| PL X1,GMSX IF *MAGNET* NOT ACTIVE 03968 M01S03552.282l826 ---| MX0 -12 SAVE *UDT* ADDRESS 03969 M01S03553.282l826 ---| BX6 -X0*X2 03970 M01S03554.282l826 ---| SA6 UDA 03971 M01S03555.282l826 ---| LX2 12 SAVE FIRST *UDT* ADDRESS FOR *EQU* DISPLAY 03972 M01S03556.282l826 ---| BX7 -X0*X2 03973 M01S03557.282l826 ---| SA7 GMSA 03974 M01S03558.282l826 ---| LX2 24 SAVE *UDT* LENGTH 03975 M01S03559.282l826 ---| SX2 X2+B1 03976 M01S03560.282l826 ---| IX7 X2-X6 03977 M01S03561.282l826 ---| SA7 UDL 03978 M01S03562.282l826 ---| RDMEM MTSI,X6,X7,UBUF GET *UDT* ENTRIES 03979 M01S03563.282l826 ---| PL X1,GMSX IF *MAGNET* NOT ACTIVE 03980 M01S03564.282l826 ---| RDMEM MTSI,/MTX/PBUF+1,/MTX/PBUF-1,PBUF GET PREVIEW ENTRIES 03981 M01S03565.282l826 ---| PL X1,GMSX IF *MAGNET* NOT ACTIVE 03982 M01S03566.282l826 ---| SX6 B0 FLAG *MAGNET* ACTIVE 03983 M01S03567.282l826 ---| SA6 MGS 03984 M01S03568.282l826 ---| SX0 171B COUNT EQUIPMENT ENTRIES 03985 M01S03569.282l826 ---| LX0 12 03986 M01S03570.282l826 ---| SA1 UBUF 03987 M01S03571.282l826 ---| SB2 B0 PRESET PREVIEW PAGE NUMBER 03988 M01S03572.282l826 ---| SB3 B0 03989 M01S03573.282l826 ---| SB6 TPDP PRESET *UDT* LINK ADDRESS 03990 M01S03574.282l826 ---| SB7 B0 PRESET PREVIEW ENTRY COUNT 03991 M01S03575.282l826 ---| GMS1 NG X1,GMS4 IF END OF *UDT* ENTRIES 03992 M01S03576.282l826 ---| SA2 A1+/MTX/UVSN CHECK FOR SPECIAL STATUS 03993 M01S03577.282l826 ---| BX2 X0*X2 03994 M01S03578.282l826 ---| ZR X2,GMS3 IF NOT SPECIAL STATUS 03995 M01S03579.282l826 ---| SB7 B7+B1 INCREMENT PREVIEW ENTRY COUNT 03996 M01S03580.282l826 ---| SX6 A1 LINK PREVIEW ENTRIES 03997 M01S03581.282l826 ---| SA6 B6 03998 M01S03582.282l826 ---| SB6 A1 03999 M01S03583.282l826 ---| SB3 B3-LPEUP 04000 M01S03584.282l826 ---| PL B3,GMS3 IF NOT END OF PREVIEW PAGE 04001 M01S03585.282l826 ---| SA6 B2+TPDP SET FIRST ENTRY OF PAGE 04002 M01S03586.282l826 ---| SB2 B2+B1 INCREMENT PAGE NUMBER 04003 M01S03587.282l826 ---| SB3 NLPPG-1 04004 M01S03588.282l826 ---| GMS3 SA1 A1+/MTX/UNITL 04005 M01S03589.282l826 ---| EQ GMS1 CHECK NEXT *UDT* 04006 M01S03590.282l826 ---| 04007 M01S03591.282l826 ---| GMS4 SA1 PBUF SET LINK TO PREVIEW BUFFER 04008 M01S03592.282l826 ---| SX6 -PBUF 04009 M01S03593.282l826 ---| SA6 B6 04010 M01S03594.282l826 ---| GMS5 ZR X1,GMS7 IF END OF PREVIEW BUFFER 04011 M01S03595.282l826 ---| SB7 B7+B1 INCREMENT PREVIEW COUNT 04012 M01S03596.282l826 ---| SB3 B3-LPEPB 04013 M01S03597.282l826 ---| PL B3,GMS6 IF NOT END OF PREVIEW PAGE 04014 M01S03598.282l826 ---| SX6 A1 SET FIRST ENTRY OF PAGE 04015 M01S03599.282l826 ---| BX6 -X6 04016 M01S03600.282l826 ---| SA6 B2+TPDP 04017 M01S03601.282l826 ---| SB2 B2+B1 INCREMENT PAGE NUMBER 04018 M01S03602.282l826 ---| SB3 NLPPG-1 04019 M01S03603.282l826 ---| GMS6 SA1 A1+PBUFE 04020 M01S03604.282l826 ---| EQ GMS5 CHECK NEXT PREVIEW ENTRY 04021 M01S03605.282l826 ---| 04022 M01S03606.282l826 ---| GMS7 SX6 B2 SET NUMBER OF PREVIEW PAGES 04023 M01S03607.282l826 ---| SA6 TNDP+DISPR 04024 M01S03608.282l826 ---| SX6 B7 SET PREVIEW ENTRY COUNT 04025 M01S03609.282l826 ---| SA6 CPE 04026 M01S03610.282l826 ---| SA1 GMSA GET FIRST *UDT* ADDRESS TO DISPLAY 04027 M01S03611.282l826 ---| SB2 B0 PRESET EQUIPMENT PAGE NUMBER 04028 M01S03612.282l826 ---| SB3 B0 04029 M01S03613.282l826 ---| MX0 -12 04030 M01S03614.282l826 ---| GMS8 ZR X1,GMS10 IF END OF *UDT* TABLE 04031 M01S03615.282l826 ---| SA2 UDA GET BUFFER ADDRESS 04032 M01S03616.282l826 ---| IX1 X1-X2 04033 M01S03617.282l826 ---| SX6 X1+UBUF 04034 M01S03618.282l826 ---| SB3 B3-LPEEQ 04035 M01S03619.282l826 ---| PL B3,GMS9 IF NOT END OF EQUIPMENT PAGE 04036 M01S03620.282l826 ---| SA6 B2+TEDP SET FIRST PAGE OF ENTRY 04037 M01S03621.282l826 ---| SB2 B2+B1 INCREMENT PAGE NUMBER 04038 M01S03622.282l826 ---| SB3 NLPPG-1 04039 M01S03623.282l826 ---| GMS9 SA1 X6+/MTX/UVRI GET NEXT *UDT* ADDRESS 04040 M01S03624.282l826 ---| BX1 -X0*X1 04041 M01S03625.282l826 ---| EQ GMS8 CHECK NEXT ENTRY 04042 M01S03626.282l826 ---| 04043 M01S03627.282l826 ---| GMSA BSS 1 FIRST *UDT* ADDRESS TO DISPLAY 04044 M00S03628.ldistap ---| TITLE INPUT/OUTPUT SUBROUTINES. 04045 M00S03629.ldistap ---| GDI SPACE 4,10 04046 M00S03630.ldistap ---|** GDI - GET *DISPLAY* INPUT. 04047 M00S03631.ldistap ---|* 04048 M00S03632.ldistap ---|* EXIT (CBUF+1) = INPUT COMMAND. 04049 M00S03633.ldistap ---|* 04050 M00S03634.ldistap ---|* ERROR ABORT WITH *L-DISPLAY NOT AVAILABLE*. 04051 M00S03635.ldistap ---|* 04052 M00S03636.ldistap ---|* USES X - 1, 2, 6. 04053 M00S03637.ldistap ---|* A - 1, 6. 04054 M00S03638.ldistap ---|* 04055 M00S03639.ldistap ---|* MACROS DSDINP, ABTMSG. 04056 M00S03640.ldistap ---| 04057 M00S03641.ldistap ---| 04058 M00S03642.ldistap ---| GDI SUBR ENTRY/EXIT 04059 M00S03643.ldistap ---| SX6 CBUFL SET BUFFER LENGTH 04060 M00S03644.ldistap ---| LX6 48 04061 M00S03645.ldistap ---| SA6 CBUF 04062 M00S03646.ldistap ---| DSDINP A6 REQUEST L-DISPLAY INPUT 04063 M00S03647.ldistap ---| SA1 CBUF CHECK FOR ERRORS 04064 M00S03648.ldistap ---| SX2 X1-2*NERR-1 04065 M00S03649.ldistap ---| ZR X2,GDIX IF NO ERROR 04066 M00S03650.ldistap ---| SX2 X1-2*NCMD-1 04067 M00S03651.ldistap ---| SX6 B0 PRESET COMMAND 04068 M00S03652.ldistap ---| SA6 CBUF+1 04069 M00S03653.ldistap ---| ZR X2,GDIX IF NO COMMAND ENTERED 04070 M00S03654.ldistap ---| SX6 B1 FLAG L-DISPLAY ERROR 04071 M00S03655.ldistap ---| SA6 LDE 04072 M00S03656.ldistap ---| ABTMSG DFLN *L-DISPLAY NOT AVAILABLE.* 04073 M00S03657.ldistap ---| GIN SPACE 4,10 04074 M00S03658.ldistap ---|** GIN - GET INPUT. 04075 M00S03659.ldistap ---|* 04076 M00S03660.ldistap ---|* ENTRY (OPT) = INPUT OPTION. 04077 M00S03661.ldistap ---|* 04078 M00S03662.ldistap ---|* EXIT INPUT PROCESSOR EXECUTED FOR OPTION. 04079 M00S03663.ldistap ---|* 04080 M00S03664.ldistap ---|* USES X - 1. 04081 M00S03665.ldistap ---|* A - 1. 04082 M00S03666.ldistap ---|* 04083 M00S03667.ldistap ---|* MACROS RJM, WRITER. 04084 M00S03668.ldistap ---| 04085 M00S03669.ldistap ---| 04086 M00S03670.ldistap ---| GIN SUBR ENTRY/EXIT 04087 M00S03671.ldistap ---| SA1 TOU 04088 M00S03672.ldistap ---| NZ X1,GIN1 IF NOT TERMINAL OUTPUT 04089 M00S03673.ldistap ---| WRITER L,R FLUSH BUFFER 04090 M00S03674.ldistap ---| GIN1 CLEAR CBUF+1,CBUFL CLEAR INPUT BUFFER 04091 M00S03675.ldistap ---| SA1 OPT GET INPUT OPTION 04092 M00S03676.ldistap ---| SA1 X1+GINA 04093 M00S03677.ldistap ---| RJM X1 PROCESS INPUT 04094 M00S03678.ldistap ---| EQ GINX RETURN 04095 M00S03679.ldistap ---| 04096 M00S03680.ldistap ---| GINA BSS 0 INPUT OPTION PROCESSORS 04097 M00S03681.ldistap ---| LOC 0 04098 M00S03682.ldistap ---| OPTLD CON GDI DISPLAY 04099 M00S03683.ldistap ---| OPTLN CON GLI LINE 04100 M00S03684.ldistap ---| OPTSC CON GSI SCREEN 04101 M00S03685.ldistap ---| LOC *O 04102 M00S03686.ldistap ---| GLI SPACE 4,10 04103 M00S03687.ldistap ---|** GLI - GET LINE INPUT. 04104 M00S03688.ldistap ---|* 04105 M00S03689.ldistap ---|* EXIT (CBUF+1) = INPUT COMMAND. 04106 M00S03690.ldistap ---|* 04107 M00S03691.ldistap ---|* USES X - 1, 2, 6. 04108 M00S03692.ldistap ---|* A - 1, 2, 6. 04109 M00S03693.ldistap ---|* 04110 M00S03694.ldistap ---|* MACROS MBSATA, READC, REWIND. 04111 M00S03695.ldistap ---| 04112 M00S03696.ldistap ---| GLI1 MBSATA ZEROES,I,15,17,17 CLEAR EOF 04113 M00S03697.ldistap ---| 04114 M00S03698.ldistap ---| GLI SUBR ENTRY/EXIT 04115 M00S03699.ldistap ---| READC I,CBUF+1,8 READ COMMAND LINE 04116 M00S03700.ldistap ---| ZR X1,GLIX IF NOT EOR/EOF/EOI 04117 M00S03701.ldistap ---| SX6 B0 PRESET COMMAND 04118 M00S03702.ldistap ---| SA6 CBUF+1 04119 M00S03703.ldistap ---| SA1 TIN CHECK FOR TERMINAL INPUT/OUTPUT 04120 M00S03704.ldistap ---| SA2 TOU 04121 M00S03705.ldistap ---| BX1 X1+X2 04122 M00S03706.ldistap ---| ZR X1,GLI1 IF BOTH TERMINAL INPUT AND OUTPUT
| Line S03707 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 04123 M01S03707.nos252 ---| SA1 =0LDROP SET TERMINATION COMMAND
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 04124 M01S00061.nos252 +++| SA1 =0LEND SET TERMINATION COMMAND 04125 M00S03708.ldistap +++| BX6 X1 04126 M00S03709.ldistap +++| SA6 CBUF+1 04127 M00S03710.ldistap +++| EQ GLIX RETURN 04128 M00S03711.ldistap +++| GSI SPACE 4,10 04129 M00S03712.ldistap +++|** GSI - GET SCREEN INPUT. 04130 M00S03713.ldistap +++|* 04131 M00S03714.ldistap +++|* EXIT (CBUF+1) = INPUT COMMAND. 04132 M00S03715.ldistap +++|* (SIA) = 0 IF INPUT REQUESTED. 04133 M00S03716.ldistap +++|* 04134 M00S03717.ldistap +++|* USES X - 1, 6. 04135 M00S03718.ldistap +++|* A - 1, 6. 04136 M00S03719.ldistap +++|* 04137 M00S03720.ldistap +++|* CALLS GLI. 04138 M00S03721.ldistap +++| 04139 M00S03722.ldistap +++| 04140 M00S03723.ldistap +++| GSI1 RJ GLI GET LINE INPUT 04141 M00S03724.ldistap +++| SX6 B0 CLEAR SCREEN INPUT AVAILABLE 04142 M00S03725.ldistap +++| SA6 SIA 04143 M00S03726.ldistap +++| 04144 M00S03727.ldistap +++| GSI SUBR ENTRY/EXIT 04145 M00S03728.ldistap +++| SA1 SIA 04146 M00S03729.ldistap +++| NG X1,GSI1 IF SCREEN INPUT AVAILABLE 04147 M00S03730.ldistap +++| SX6 B0 SET NO COMMAND 04148 M00S03731.ldistap +++| SA6 CBUF+1 04149 M00S03732.ldistap +++| EQ GSIX RETURN 04150 M00S03733.ldistap +++| IDO SPACE 4,10 04151 M00S03734.ldistap +++|** IDO - ISSUE *DISPLAY* OUTPUT. 04152 M00S03735.ldistap +++|* 04153 M00S03736.ldistap +++|* EXIT (DBUF) SENT TO L-DISPLAY. 04154 M00S03737.ldistap +++|* 04155 M00S03738.ldistap +++|* ERROR ABORT WITH *L-DISPLAY NOT AVAILABLE*. 04156 M00S03739.ldistap +++|* 04157 M00S03740.ldistap +++|* USES X - 1, 2, 6. 04158 M00S03741.ldistap +++|* A - 1, 6. 04159 M00S03742.ldistap +++|* 04160 M00S03743.ldistap +++|* MACROS DSDOUT, ABTMSG. 04161 M00S03744.ldistap +++| 04162 M00S03745.ldistap +++| 04163 M00S03746.ldistap +++| IDO SUBR ENTRY/EXIT 04164 M00S03747.ldistap +++| SX6 LDSY SET BUFFER LENGTH 04165 M00S03748.ldistap +++| LX6 48 04166 M00S03749.ldistap +++| SA6 DBUF 04167 M00S03750.ldistap +++| DSDOUT A6 REQUEST L-DISPLAY OUTPUT 04168 M00S03751.ldistap +++| SA1 DBUF CHECK FOR ERRORS 04169 M00S03752.ldistap +++| SX2 X1-2*NERR-1 04170 M00S03753.ldistap +++| ZR X2,IDOX IF NO ERROR 04171 M00S03754.ldistap +++| SX6 B1 FLAG L-DISPLAY ERROR 04172 M00S03755.ldistap +++| SA6 LDE 04173 M00S03756.ldistap +++| ABTMSG DFLN *L-DISPLAY NOT AVAILABLE.* 04174 M00S03757.ldistap +++| ILO SPACE 4,15 04175 M00S03758.ldistap +++|** ILO - ISSUE LINE OUTPUT. 04176 M00S03759.ldistap +++|* 04177 M00S03760.ldistap +++|* EXIT (DBUF) COPIED TO OUTPUT FILE. 04178 M00S03761.ldistap +++|* 04179 M00S03762.ldistap +++|* USES X - 1, 2. 04180 M00S03763.ldistap +++|* A - 1. 04181 M00S03764.ldistap +++|* B - 6, 7. 04182 M00S03765.ldistap +++|* 04183 M00S03766.ldistap +++|* CALLS CKD. 04184 M00S03767.ldistap +++|* 04185 M00S03768.ldistap +++|* MACROS WRITEC. 04186 M00S03769.ldistap +++| 04187 M00S03770.ldistap +++| 04188 M00S03771.ldistap +++| ILO SUBR ENTRY/EXIT 04189 M00S03772.ldistap +++| SA1 TOU CHECK FOR TERMINAL OUTPUT 04190 M00S03773.ldistap +++| SB7 B0 04191 M00S03774.ldistap +++| ZR X1,ILO1 IF TERMINAL OUTPUT 04192 M00S03775.ldistap +++| WRITEC L,ILOA DOUBLE SPACE 04193 M00S03776.ldistap +++| SB7 B1 04194 M00S03777.ldistap +++| ILO1 SX2 L SET OUTPUT FILE ADDRESS 04195 M00S03778.ldistap +++| SB6 DBUF 04196 M00S03779.ldistap +++| RJ CKD COPY K-DISPLAY TO OUTPUT FILE 04197 M00S03780.ldistap +++| EQ ILOX RETURN 04198 M00S03781.ldistap +++| 04199 M00S03782.ldistap +++| ILOA DATA C*0* DOUBLE SPACE 04200 M00S03783.ldistap +++| IOU SPACE 4,10 04201 M00S03784.ldistap +++|** IOU - ISSUE OUTPUT. 04202 M00S03785.ldistap +++|* 04203 M00S03786.ldistap +++|* ENTRY (OPT) = OUTPUT OPTION. 04204 M00S03787.ldistap +++|* 04205 M00S03788.ldistap +++|* EXIT OUTPUT PROCESSOR EXECUTED FOR OPTION. 04206 M00S03789.ldistap +++|* 04207 M00S03790.ldistap +++|* USES X - 1. 04208 M00S03791.ldistap +++|* A - 1. 04209 M00S03792.ldistap +++|* 04210 M00S03793.ldistap +++|* MACROS RJM. 04211 M00S03794.ldistap +++| 04212 M00S03795.ldistap +++| 04213 M00S03796.ldistap +++| IOU SUBR ENTRY/EXIT 04214 M00S03797.ldistap +++| SA1 OPT GET OUTPUT OPTION 04215 M00S03798.ldistap +++| SA1 X1+IOUA 04216 M00S03799.ldistap +++| RJM X1 PROCESS OUTPUT 04217 M00S03800.ldistap +++| EQ IOUX RETURN 04218 M00S03801.ldistap +++| 04219 M00S03802.ldistap +++| IOUA BSS 0 OUTPUT OPTION PROCESSORS 04220 M00S03803.ldistap +++| LOC 0 04221 M00S03804.ldistap +++| DOPT CON IDO DISPLAY 04222 M00S03805.ldistap +++| LOPT CON ILO LINE 04223 M00S03806.ldistap +++| SOPT CON ISO SCREEN 04224 M00S03807.ldistap +++| LOC *O 04225 M00S03808.ldistap +++| ISO SPACE 4,10 04226 M00S03809.ldistap +++|** ISO - ISSUE SCREEN OUTPUT. 04227 M00S03810.ldistap +++|* 04228 M00S03811.ldistap +++|* EXIT (DBUF) COPIED TO OUTPUT FILE. 04229 M00S03812.ldistap +++|* 04230 M00S03813.ldistap +++|* USES X - 1, 2. 04231 M00S03814.ldistap +++|* A - 1, 2. 04232 M00S03815.ldistap +++|* 04233 M00S03816.ldistap +++|* CALLS ILO. 04234 M00S03817.ldistap +++|* 04235 M00S03818.ldistap +++|* MACROS WRITEC. 04236 M00S03819.ldistap +++| 04237 M00S03820.ldistap +++| 04238 M00S03821.ldistap +++| ISO SUBR ENTRY/EXIT 04239 M00S03822.ldistap +++| SA2 SIA 04240 M00S03823.ldistap +++| SA1 ISOB 04241 M00S03824.ldistap +++| ZR X2,ISO1 IF TERMINAL INPUT NOT AVAILABLE 04242 M00S03825.ldistap +++| SX6 -B1 FLAG INPUT AVAILABLE 04243 M00S03826.ldistap +++| SA6 A2 04244 M00S03827.ldistap +++| SA1 ISOA 04245 M00S03828.ldistap +++| ISO1 MBSATA A1,DMIN,DMINC,59,DMINU SET INPUT MESSAGE 04246 M00S03829.ldistap +++| SA1 BEL CHECK IF BELL IS REQUIRED 04247 M00S03830.ldistap +++| SA2 CCE 04248 M00S03831.ldistap +++| NZ X2,ISO2 IF CATALOG ERRORS
| Line S03832 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04249 M01S03832.274l797 ---| SA2 CNS 04250 M01S03833.274l797 ---| NZ X2,ISO2 IF CATALOGS WITH NO SCRATCH
| Line S00288 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04251 M01S00288.274l797 +++| SA2 CNSM 04252 M01S00289.274l797 +++| NZ X2,ISO2 IF CATALOGS WITH NO *MT/NT* SCRATCH 04253 M01S00290.274l797 +++| SA2 CNSC 04254 M01S00291.274l797 +++| NZ X2,ISO2 IF CATALOGS WITH NO *CT* SCRATCH 04255 M01S00292.274l797 +++| SA2 CNSA 04256 M01S00293.274l797 +++| NZ X2,ISO2 IF CATALOGS WITH NO *AT* SCRATCH 04257 M00S03834.ldistap +++| SA2 COA 04258 M00S03835.ldistap +++| NZ X2,ISO2 IF JOBS REQUIRE OPERATOR ACTION
| Line S03836 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 04259 M01S03836.282l826 ---| SA2 CPE 04260 M01S03837.282l826 ---| NZ X2,ISO2 IF PREVIEW ENTRIES 04261 M00S03838.ldistap ---| SX1 2R 04262 M00S03839.ldistap ---| ISO2 MBSXTA X1,TOP,12,11,47 SET/CLEAR BELL 04263 M00S03840.ldistap ---| WRITEC L,TOP GO TO TOP OF SCREEN 04264 M00S03841.ldistap ---| RJ ILO ISSUE LINE OUTPUT 04265 M00S03842.ldistap ---| WRITEC L,CIN CLEAR INPUT LINE 04266 M00S03843.ldistap ---| EQ ISOX RETURN 04267 M00S03844.ldistap ---|
| Line S03845 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 04268 M01S03845.nos252 ---| ISOA DATA 50HENTER *HELP* FOR HELP. ENTER *DROP* TO TERMINATE.
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 04269 M01S00062.nos252 +++| ISOA DATA 50HENTER *HELP* FOR HELP. ENTER *END* TO TERMINATE. 04270 M00S03846.ldistap +++| ISOB DATA 50HISSUE *BREAK* TO ENTER INPUT. 04271 M00S03847.ldistap +++| TITLE COMMON SUBROUTINES. 04272 M00S03848.ldistap +++| ACF SPACE 4,15 04273 M00S03849.ldistap +++|** ACF - ATTACH CATALOG FILE. 04274 M00S03850.ldistap +++|* 04275 M00S03851.ldistap +++|* EXIT (X1) = 0 IF CATALOG ATTACHED. 04276 M00S03852.ldistap +++|* .NE. 0 IF CATALOG NOT ATTACHED. 04277 M00S03853.ldistap +++|* (X4) = CSCFA IF CATALOG FILE IS FAST-ATTACHED. 04278 M00S03854.ldistap +++|* = CSCFB IF CATALOG FILE IS BUSY. 04279 M00S03855.ldistap +++|* = CSCFN IF CATALOG FILE IS NOT FAST-ATTACHED. 04280 M00S03856.ldistap +++|* = CSCNF IF CATALOG FILE IS NOT FOUND. 04281 M00S03857.ldistap +++|* 04282 M00S03858.ldistap +++|* USES X - 0, 1, 6. 04283 M00S03859.ldistap +++|* A - 1, 6. 04284 M00S03860.ldistap +++|* 04285 M00S03861.ldistap +++|* MACROS ATTACH, CATLIST, MBSATA, SETFET. 04286 M00S03862.ldistap +++| 04287 M00S03863.ldistap +++| 04288 M00S03864.ldistap +++| ACF SUBR ENTRY/EXIT 04289 M00S03865.ldistap +++| SETFET P,(DTY=B0),(ERA=ACFB) CLEAR DEVICE TYPE 04290 M00S03866.ldistap +++| MBSATA ZEROES,P,16,17,17 CLEAR ERROR CODE 04291 M00S03867.ldistap +++| ATTACH P,,,,RM,,,IP,FA ATTACH CATALOG FILE 04292 M00S03868.ldistap +++| MX0 -8 GET STATUS 04293 M00S03869.ldistap +++| SA1 P 04294 M00S03870.ldistap +++| AX1 10 04295 M00S03871.ldistap +++| BX1 -X0*X1 04296 M00S03872.ldistap +++| SX4 CSCFA 04297 M00S03873.ldistap +++| ZR X1,ACFX IF FILE ATTACHED
| Line S03874 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 04298 M01S03874.t2807 ---| SX1 X4-/ERRMSG/FBS
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 04299 M01S00020.t2807 +++| SX1 X1-/ERRMSG/FBS 04300 M00S03875.ldistap +++| SX4 CSCFB 04301 M00S03876.ldistap +++| ZR X1,ACF1 IF FILE BUSY 04302 M00S03877.ldistap +++| SX6 ZBUF RESET BUFFER POINTERS 04303 M00S03878.ldistap +++| SA6 P+2 04304 M00S03879.ldistap +++| SA6 A6+B1 04305 M00S03880.ldistap +++| MBSATA ZEROES,P,16,17,17 CLEAR ERROR CODE 04306 M00S03881.ldistap +++| ATTACH P,,,,RM,,,IP,NF ATTACH CATALOG FILE 04307 M00S03882.ldistap +++| MX0 -8 GET STATUS 04308 M00S03883.ldistap +++| SA1 P 04309 M00S03884.ldistap +++| AX1 10 04310 M00S03885.ldistap +++| BX1 -X0*X1 04311 M00S03886.ldistap +++| SX4 CSCFN 04312 M00S03887.ldistap +++| ZR X1,ACFX IF FILE FOUND 04313 M00S03888.ldistap +++| SX1 X1-/ERRMSG/FBS CHECK FOR FILE BUSY 04314 M00S03889.ldistap +++| SX4 CSCFB 04315 M00S03890.ldistap +++| ZR X1,ACF1 IF FILE BUSY 04316 M00S03891.ldistap +++| SX4 CSCNF 04317 M00S03892.ldistap +++| ACF1 SX1 B1 FLAG CATALOG NOT ATTACHED 04318 M00S03893.ldistap +++| EQ ACFX RETURN 04319 M00S03894.ldistap +++|
| Line S03895 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 04320 M01S03895.282l826 ---| ACFA DATA 0L"TMFC" PERMANENT FILE NAME 04321 M00S03896.ldistap ---| ACFB BSS 4 *PFM* MESSAGE BUFFER 04322 M01S03897.282l826 ---| CJX SPACE 4,15 04323 M01S03898.282l826 ---|** CJX - CHECK IF JOB IS EXECUTING AT A CONTROL POINT. 04324 M01S03899.282l826 ---|* 04325 M01S03900.282l826 ---|* ENTRY (JSN) = JOB SEQUENCE NUMBER. 04326 M01S03901.282l826 ---|* (JBUF) = IMAGE OF CONTROL POINT AREAS. 04327 M01S03902.282l826 ---|* 04328 M01S03903.282l826 ---|* EXIT (X1) = 0 IF JOB NOT FOUND. 04329 M01S03904.282l826 ---|* = EJT ORDINAL IF JOB IS REQUESTING A RESOURCE. 04330 M01S03905.282l826 ---|* 04331 M01S03906.282l826 ---|* USES X - 0, 2, 6. 04332 M01S03907.282l826 ---|* A - 0, 1, 2, 6. 04333 M01S03908.282l826 ---|* 04334 M01S03909.282l826 ---|* CALLS GEJ. 04335 M01S03910.282l826 ---| 04336 M01S03911.282l826 ---| 04337 M01S03912.282l826 ---| CJX2 SA1 CJXA GET EJT ORDINAL 04338 M01S03913.282l826 ---| 04339 M01S03914.282l826 ---| CJX SUBR ENTRY/EXIT 04340 M01S03915.282l826 ---| SA1 TJDP GET FIRST CONTROL POINT TO CHECK 04341 M01S03916.282l826 ---| CJX1 ZR X1,CJX2 IF JOB NOT FOUND 04342 M01S03917.282l826 ---| SA0 X1 GET EJT ORDINAL 04343 M01S03918.282l826 ---| SA1 A0+TFSW 04344 M01S03919.282l826 ---| AX1 48 04345 M01S03920.282l826 ---| SX6 X1 04346 M01S03921.282l826 ---| SA6 CJXA 04347 M01S03922.282l826 ---| RJ GEJ GET EJT ENTRY 04348 M01S03923.282l826 ---| MX0 24 COMPARE JSNS 04349 M01S03924.282l826 ---| SA1 JSN 04350 M01S03925.282l826 ---| SA2 EBUF+JSNE 04351 M01S03926.282l826 ---| BX1 X1-X2 04352 M01S03927.282l826 ---| BX1 X0*X1 04353 M01S03928.282l826 ---| ZR X1,CJX2 IF JOB FOUND 04354 M01S03929.282l826 ---| SA1 A0 04355 M01S03930.282l826 ---| EQ CJX1 CHECK NEXT CONTROL POINT 04356 M01S03931.282l826 ---| 04357 M01S03932.282l826 ---| CJXA BSS 1 EJT ORDINAL 04358 M00S03933.ldistap ---| CLS SPACE 4,15 04359 M00S03934.ldistap ---|** CLS - CHECK LINE MODE OUTPUT STATUS. 04360 M00S03935.ldistap ---|* 04361 M00S03936.ldistap ---|* ENTRY (LNS) = 0 IF DO NOT FORCE LINE MODE OUTPUT. 04362 M00S03937.ldistap ---|* .NE. 0 IF FORCE LINE MODE OUTPUT. 04363 M00S03938.ldistap ---|* 04364 M00S03939.ldistap ---|* EXIT (X6) = 0 IF FORCE OUTPUT. 04365 M00S03940.ldistap ---|* .NE. 0 IF DO NOT FORCE OUTPUT. 04366 M00S03941.ldistap ---|* (LNS) = 0. 04367 M00S03942.ldistap ---|* 04368 M00S03943.ldistap ---|* USES X - 1. 04369 M00S03944.ldistap ---|* A - 1, 6. 04370 M00S03945.ldistap ---| 04371 M00S03946.ldistap ---| 04372 M00S03947.ldistap ---| CLS SUBR ENTRY/EXIT 04373 M00S03948.ldistap ---| SA1 OPT CHECK INPUT/OUTPUT OPTION 04374 M00S03949.ldistap ---| SX1 X1-OPTLN 04375 M00S03950.ldistap ---| SX6 B0 04376 M00S03951.ldistap ---| NZ X1,CLSX IF NOT LINE MODE 04377 M00S03952.ldistap ---| SA1 LNS GET LINE MODE OUTPUT STATUS 04378 M00S03953.ldistap ---| SA6 A1 04379 M00S03954.ldistap ---| NZ X1,CLSX IF FORCE OUTPUT 04380 M00S03955.ldistap ---| SX6 B1 04381 M00S03956.ldistap ---| EQ CLSX RETURN 04382 M00S03957.ldistap ---| CLY SPACE 4,15 04383 M00S03958.ldistap ---|** CLY - CONVERT LINE NUMBER TO Y-COORDINATE. 04384 M00S03959.ldistap ---|* 04385 M00S03960.ldistap ---|* ENTRY (X0) = FWA OF L-DISPLAY LINE. 04386 M00S03961.ldistap ---|* (X1) = DISPLAY LINE NUMBER. 04387 M00S03962.ldistap ---|* 04388 M00S03963.ldistap ---|* EXIT Y-COORDINATE SET INTO BYTE 1 OF L-DISPLAY LINE. 04389 M00S03964.ldistap ---|* 04390 M00S03965.ldistap ---|* USES X - 2, 6. 04391 M00S03966.ldistap ---|* A - 2. 04392 M00S03967.ldistap ---|* 04393 M00S03968.ldistap ---|* MACROS MBSXTA. 04394 M00S03969.ldistap ---| 04395 M00S03970.ldistap ---| 04396 M00S03971.ldistap ---| CLY SUBR ENTRY/EXIT 04397 M00S03972.ldistap ---| SX6 15 PRESET Y-COORDINATE INCREMENT 04398 M00S03973.ldistap ---| SA2 CON 04399 M00S03974.ldistap ---| ZR X2,CLY1 IF NOT 721 CONSOLE 04400 M00S03975.ldistap ---| SX6 10 RESET Y-COORDINATE INCREMENT 04401 M00S03976.ldistap ---| SX2 7726B-7707B 04402 M00S03977.ldistap ---| CLY1 SX2 X2+7707B 04403 M00S03978.ldistap ---| IX6 X1*X6 COMPUTE Y-COORDINATE 04404 M00S03979.ldistap ---| IX6 X2-X6 04405 M00S03980.ldistap ---| MBSXTA X6,X0,12,11,47 SET Y-COORDINATE 04406 M00S03981.ldistap ---| EQ CLYX RETURN 04407 M01S03982.282l826 ---| CMM SPACE 4,15 04408 M01S03983.282l826 ---|** CMM - CLEAR *MAGNET* MESSAGE. 04409 M01S03984.282l826 ---|* 04410 M01S03985.282l826 ---|* ENTRY (CPE) = COUNT OF PREVIEW ENTRIES. 04411 M01S03986.282l826 ---|*
| Line S03987 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 04412 M02S03987.282l826 ---|* EXIT *ENTER *LDISTAP,PRE.** MESSAGE CLEARED AT CONTROL
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | nos252 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 04413 M02S00063.282l826 ---|* EXIT *ENTER *TMSDIS,PRE.** MESSAGE CLEARED AT CONTROL
| Line S03988 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 04414 M01S03988.282l826 ---|* POINT OF *MAGNET* IF NO PREVIEW DISPLAY ENTRIES. 04415 M01S03989.282l826 ---|* 04416 M01S03990.282l826 ---|* USES X - 0, 1, 2, 6. 04417 M01S03991.282l826 ---|* A - 1, 2, 6. 04418 M01S03992.282l826 ---|* 04419 M01S03993.282l826 ---|* MACROS MBSATA, SYSTEM. 04420 M01S03994.282l826 ---| 04421 M01S03995.282l826 ---| 04422 M01S03996.282l826 ---| CMM SUBR ENTRY/EXIT 04423 M01S03997.282l826 ---| SA1 CPE 04424 M01S03998.282l826 ---| NZ X1,CMMX IF NO PREVIEW ENTRIES 04425 M01S03999.282l826 ---| SA1 OPT CHECK INPUT/OUTPUT MODE 04426 M01S04000.282l826 ---| SX1 X1-OPTLD 04427 M01S04001.282l826 ---| NZ X1,CMMX IF NOT L-DISPLAY MODE 04428 M01S04002.282l826 ---| SX6 GBUF CHECK MESSAGE IN *MS2W* 04429 M01S04003.282l826 ---| SA6 CMMA+2 04430 M01S04004.282l826 ---| SA6 A6+B1 04431 M01S04005.282l826 ---| MBSATA ZEROES,CMMA+0,1,59,0 04432 M01S04006.282l826 ---| SYSTEM QAC,R,CMMA 04433 M01S04007.282l826 ---| MX0 6 CHECK FOR FLASHING MESSAGE 04434 M01S04008.282l826 ---| SA1 GBUF+1 04435 M01S04009.282l826 ---| SA2 =1L$ 04436 M01S04010.282l826 ---| BX1 X1-X2 04437 M01S04011.282l826 ---| BX1 X0*X1 04438 M01S04012.282l826 ---| NZ X1,CMMX IF NOT FLASHING MESSAGE 04439 M01S04013.282l826 ---| MBSATA ZEROES,CMMB+0,1,59,0 04440 M01S04014.282l826 ---| SX6 CMMC+CMMCL 04441 M01S04015.282l826 ---| SA6 CMMB+2 04442 M01S04016.282l826 ---| SX6 CMMC 04443 M01S04017.282l826 ---| SA6 A6+B1 04444 M01S04018.282l826 ---| SYSTEM QAC,R,CMMB CLEAR FLASHING MESSAGE 04445 M01S04019.282l826 ---| EQ CMMX RETURN 04446 M01S04020.282l826 ---| 04447 M01S04021.282l826 ---| CMMA BSS 0 *QAC* PEEK BLOCK 04448 M01S04022.282l826 ---| LOC 0 04449 M01S04023.282l826 ---| VFD 42/0,8/0,9/3,1/0 *PEEK* FUNCTION 04450 M01S04024.282l826 ---| VFD 30/0,12/13B,18/GBUF BLOCK LENGTH 04451 M01S04025.282l826 ---| VFD 42/0,18/GBUF 04452 M01S04026.282l826 ---| VFD 42/0,18/GBUF 04453 M01S04027.282l826 ---| VFD 42/0,18/GBUF+GBUFL 04454 M01S04028.282l826 ---| VFD 42/0,6/0,12/0 04455 M01S04029.282l826 ---| VFD 42/0,18/0 04456 M01S04030.282l826 ---| VFD 24/4LMAG ,36/104B SELECT BY JSN 04457 M01S04031.282l826 ---| VFD 12/2B,12/0,12/0,3/0,3/0,18/0 EXECUTING JOB 04458 M01S04032.282l826 ---| VFD 18/0,18/0,3/0,3/0,18/0 04459 M01S04033.282l826 ---| VFD 60/0 04460 M01S04034.282l826 ---| VFD 60/0 04461 M01S04035.282l826 ---| VFD 60/-0 04462 M01S04036.282l826 ---| VFD 12/7777B,48/0 04463 M01S04037.282l826 ---| VFD 60/100000B GET *MS2W* BLOCK 04464 M01S04038.282l826 ---| VFD 60/0 04465 M01S04039.282l826 ---| ERRNZ 13B+5B-* INCORRECT *QAC* BLOCK LENGTH 04466 M01S04040.282l826 ---| LOC *O 04467 M01S04041.282l826 ---| 04468 M01S04042.282l826 ---| CMMB BSS 0 *QAC* ALTER BLOCK 04469 M01S04043.282l826 ---| LOC 0 04470 M01S04044.282l826 ---| VFD 42/0,8/0,9/1,1/0 *ALTER* FUNCTION 04471 M01S04045.282l826 ---| VFD 30/0,12/14B,18/CMMC BLOCK LENGTH 04472 M01S04046.282l826 ---| VFD 42/0,18/CMMC+CMMCL 04473 M01S04047.282l826 ---| VFD 42/0,18/CMMC 04474 M01S04048.282l826 ---| VFD 42/0,18/CMMC+CMMCL+1 04475 M01S04049.282l826 ---| VFD 42/0,6/0,12/0 04476 M01S04050.282l826 ---| VFD 42/0,18/0 04477 M01S04051.282l826 ---| VFD 24/4LMAG ,36/104B SELECT BY JSN 04478 M01S04052.282l826 ---| VFD 12/2B,12/0,12/0,3/0,3/0,18/0 EXECUTING JOB 04479 M01S04053.282l826 ---| VFD 18/0,18/0,3/0,3/0,18/0 04480 M01S04054.282l826 ---| VFD 60/0 04481 M01S04055.282l826 ---| VFD 60/0 04482 M01S04056.282l826 ---| VFD 6/0,24/0,30/30000B CLEAR PAUSE BIT, SEND MESSAGE 04483 M01S04057.282l826 ---| VFD 42/0,18/0 04484 M01S04058.282l826 ---| VFD 42/0,6/0,6/0,6/0 04485 M01S04059.282l826 ---| VFD 12/0,12/0,12/0,3/0,3/0,6/0,6/0,6/0 04486 M01S04060.282l826 ---| VFD 60/0 04487 M01S04061.282l826 ---| ERRNZ 14B+5B-* INCORRECT *QAC* BLOCK LENGTH 04488 M01S04062.282l826 ---| LOC *O 04489 M01S04063.282l826 ---| 04490 M01S04064.282l826 ---| CMMC DATA C*MAGNET.* CONTROL POINT MESSAGE FOR *MAGNET* 04491 M01S04065.282l826 ---| CMMCL EQU *-CMMC LENGTH OF MESSAGE 04492 M01S04066.282l826 ---| CON 0 04493 M01S04067.282l826 ---| COS SPACE 4,15 04494 M01S04068.282l826 ---|** COS - CHECK OFF-SITE STATUS. 04495 M01S04069.282l826 ---|* 04496 M01S04070.282l826 ---|* ENTRY (X1) = VSN TO CHECK. 04497 M01S04071.282l826 ---|* = *NON-TMS* IF NOT A *TMS* TAPE. 04498 M01S04072.282l826 ---|* (X2) = FAMILY ORDINAL. 04499 M01S04073.282l826 ---|* 04500 M01S04074.282l826 ---|* EXIT (X1) = BLANKS IF VSN IS NOT OFF-SITE. 04501 M01S04075.282l826 ---|* = ASTERISKS IF VSN IS OFF-SITE. 04502 M01S04076.282l826 ---|* 04503 M01S04077.282l826 ---|* USES X - 0, 2, 3, 6. 04504 M01S04078.282l826 ---|* A - 1, 2, 3, 6. 04505 M01S04079.282l826 ---|* 04506 M01S04080.282l826 ---|* CALLS SWP. 04507 M01S04081.282l826 ---|* 04508 M01S04082.282l826 ---|* MACROS SYSTEM. 04509 M01S04083.282l826 ---| 04510 M01S04084.282l826 ---| 04511 M01S04085.282l826 ---| COS1 SA1 OFM GET ORIGINAL FAMILY NAME 04512 M01S04086.282l826 ---| SA2 OUI 04513 M01S04087.282l826 ---| RJ SWP SWAP TO FAMILY NAME AND USER INDEX 04514 M01S04088.282l826 ---| COS2 SA1 BLANKS FLAG NOT OFF-SITE 04515 M01S04089.282l826 ---| 04516 M01S04090.282l826 ---| COS SUBR ENTRY/EXIT 04517 M01S04091.282l826 ---| MX0 42 GET VSN 04518 M01S04092.282l826 ---| BX6 X0*X1 04519 M01S04093.282l826 ---| SA3 =7LNON-TMS CHECK IF A *TMS* VSN 04520 M01S04094.282l826 ---| BX3 X6-X3 04521 M01S04095.282l826 ---| ZR X3,COS2 IF NOT A *TMS* VSN 04522 M01S04096.282l826 ---| SA6 COSC+/TFM/VEES 04523 M01S04097.282l826 ---| SA1 X2+FBUF GET FAMILY NAME 04524 M01S04098.282l826 ---| SA2 OUI 04525 M01S04099.282l826 ---| RJ SWP SWAP TO FAMILY NAME AND USER INDEX 04526 M01S04100.282l826 ---| NZ X4,COS1 IF FAMILY NOT FOUND 04527 M01S04101.282l826 ---| SX6 /TFM/LVES*10B SET SUBFUNCTION 04528 M01S04102.282l826 ---| SA6 COSA+0 04529 M01S04103.282l826 ---| SX6 COSC+/TFM/TSVL 04530 M01S04104.282l826 ---| SA6 COSA+2 04531 M01S04105.282l826 ---| SX6 COSC 04532 M01S04106.282l826 ---| SA6 A6+B1 04533 M01S04107.282l826 ---| SYSTEM TFM,R,COSA,/TFM/SSJF*100B CALL *TFM* 04534 M01S04108.282l826 ---| SA1 OFM GET ORIGINAL FAMILY NAME 04535 M01S04109.282l826 ---| SA2 OUI 04536 M01S04110.282l826 ---| RJ SWP SWAP TO FAMILY NAME AND USER INDEX 04537 M01S04111.282l826 ---| MX0 -8 CHECK FOR ERROR 04538 M01S04112.282l826 ---| SA1 COSA+0 04539 M01S04113.282l826 ---| AX1 9 04540 M01S04114.282l826 ---| BX1 -X0*X1 04541 M01S04115.282l826 ---| NZ X1,COS2 IF TAPE CATALOG ERROR 04542 M01S04116.282l826 ---| SX0 /TFM/TVVS CHECK SITE FLAG 04543 M01S04117.282l826 ---| SA1 COSC+/TFM/VEVS 04544 M01S04118.282l826 ---| BX1 X0*X1 04545 M01S04119.282l826 ---| ZR X1,COS2 IF VSN IS ON-SITE 04546 M01S04120.282l826 ---| SA1 =10H********** FLAG OFF-SITE 04547 M01S04121.282l826 ---| EQ COSX RETURN 04548 M01S04122.282l826 ---| 04549 M01S04123.282l826 ---| 04550 M01S04124.282l826 ---| COSA BSS 0 *TFM* FET 04551 M01S04125.282l826 ---| TFM FILEB COSC,/TFM/TSVL+1,(FET=16),EPR 04552 M01S04126.282l826 ---| COSB BSS 0 04553 M01S04127.282l826 ---| ORG COSA+5 04554 M01S04128.282l826 ---| VFD 42/0,18/COSD *TFM* ERROR MESSAGE ADDRESS 04555 M01S04129.282l826 ---| ORG COSB 04556 M01S04130.282l826 ---| 04557 M01S04131.282l826 ---| COSC BSS /TFM/TSVL+1 VSN ENTRY BUFFER 04558 M01S04132.282l826 ---|
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/ldistap.002.txt · Last modified: (external edit)