MON$$ ASGN MW1,B4 @ MON$$ ASGN MW2,A5 @ MON$$ ASGN MW3,B5 @ MON$$ ASGN MJB,A1 @ MON$$ ASGN MR0,A3 @ MON$$ ASGN MGO,B2 @ MON$$ MODE GO,SG @ MON$$ EXEQ AUTOCODER,,,NOFLG,NOPCH @ 77120 GENERATE SGF PAGE 1 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1 S SPLDF 2,ALL 2 S GEN01 P1,R1,X1,P2,R2,X2 77120 GENERATE SGF PAGE 2 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3 G 00040 TITLE IBPHR00001,00000 001 4 G 00050 ORG 0 00000 5 G 00070 XXP1/ DEFIN XXP1 00004 002 6 G 00080 XXP1 DCW ' ' 5 00004 003 7 G 00090 DC '2-'' CHAN.1, PRINT 3 00007 003 8 G 00100 DCW 'F' 1 00008 003 9 G 00120 XXR1/ DEFIN XXR1 00013 004 10 G 00130 XXR1 DCW ' ' 5 00013 005 11 G 00140 DC '1-'' CHAN.1, READER 3 00016 005 12 G 00150 DCW 'K' 1 00017 005 13 G 00170 XXX1/ DEFIN XXX1 00022 006 14 G 00180 XXX1 DCW ' ' 5 00022 007 15 G 00190 DC '2-'' CHAN.1, PUNCH 3 00025 007 16 G 00200 DCW ' ' 1 00026 007 17 G 00220 XXP2/ DEFIN XXP2 00031 008 18 G 00230 XXP2 DCW ' ' 5 00031 009 19 G 00240 DC '2-*' CHAN.2, PRINT 3 00034 009 20 G 00250 DCW '2' 1 00035 009 21 G 00270 XXR2/ DEFIN XXR2 00040 010 22 G 00280 XXR2 DCW ' ' 5 00040 011 23 G 00290 DC '1-*' CHAN.2, READER 3 00043 011 24 G 00300 DCW '4' 1 00044 011 25 G 00320 XXX2/ DEFIN XXX2 00049 012 26 G 00330 XXX2 DCW ' ' 5 00049 013 27 G 00340 DC '2-*' CHAN.2, PUNCH 3 00052 013 77120 GENERATE SGF PAGE 3 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 28 G 00350 DCW ' ' 1 00053 013 29 G 00460 SPEND 77120 GENERATE SGF PAGE 4 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 30 G 00480 TITLE IBPHT00001,00000 015 31 G 00490 ORG 00000 00000 32 G 00500 DCW '$' STOP TABLE LOOK-UP 1 00000 016 33 G 00510 DCW XXP1/ Q 5 00005 XXP1/ 017 34 G 00520 DC 'P1' 2 00007 018 35 G 00530 DCW XXR1/ Q 5 00012 XXR1/ 019 36 G 00540 DC 'R1' 2 00014 020 37 G 00550 DCW XXX1/ Q 5 00019 XXX1/ 021 38 G 00560 DC 'X1' 2 00021 022 39 G 00570 DCW XXP2/ Q 5 00026 XXP2/ 023 40 G 00580 DC 'P2' 2 00028 024 41 G 00590 DCW XXR2/ Q 5 00033 XXR2/ 025 42 G 00600 DC 'R2' 2 00035 026 43 G 00610 DCW XXX2/ Q 5 00040 XXX2/ 027 44 G 00620 DC 'X2' 2 00042 028 45 G 00670 SPEND 46 S GEN02 /MDM/,1,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9 77120 GENERATE SGF PAGE 5 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 47 G 00030 TITLE IBPHR00002,0 030 48 G 00040 ORG 0 00000 49 G 00150 /RSC/ DEFIN * 00000 031 50 G 00200 XXA0/ DEFIN XXA0 00004 032 51 G 00210 XXA0 DCW ' ' 5 00004 033 52 G 00220 DC '4-'' 3 00007 033 53 G 00230 DC '0' 1 00008 033 54 G 00240 DCW /MDM/ Q 5 00013 /MDM/ 034 55 G 00260 XXA1/ DEFIN XXA1 00018 035 56 G 00270 XXA1 DCW ' ' 5 00018 036 57 G 00280 DC '4-'' 3 00021 036 58 G 00290 DC '1' 1 00022 036 59 G 00300 DCW /MDM/ Q 5 00027 /MDM/ 037 60 G 00320 XXA2/ DEFIN XXA2 00032 038 61 G 00330 XXA2 DCW ' ' 5 00032 039 62 G 00340 DC '4-'' 3 00035 039 63 G 00350 DC '2' 1 00036 039 64 G 00360 DCW /MDM/ Q 5 00041 /MDM/ 040 65 G 00380 XXA3/ DEFIN XXA3 00046 041 66 G 00390 XXA3 DCW ' ' 5 00046 042 67 G 00400 DC '4-'' 3 00049 042 68 G 00410 DC '3' 1 00050 042 69 G 00420 DCW /MDM/ Q 5 00055 /MDM/ 043 70 G 00440 XXA4/ DEFIN XXA4 00060 044 71 G 00450 XXA4 DCW ' ' 5 00060 045 77120 GENERATE SGF PAGE 6 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 72 G 00460 DC '4-'' 3 00063 045 73 G 00470 DC '4' 1 00064 045 74 G 00480 DCW /MDM/ Q 5 00069 /MDM/ 046 75 G 00500 XXA5/ DEFIN XXA5 00074 047 76 G 00510 XXA5 DCW ' ' 5 00074 048 77 G 00520 DC '4-'' 3 00077 048 78 G 00530 DC '5' 1 00078 048 79 G 00540 DCW /MDM/ Q 5 00083 /MDM/ 049 80 G 00560 XXA6/ DEFIN XXA6 00088 050 81 G 00570 XXA6 DCW ' ' 5 00088 051 82 G 00580 DC '4-'' 3 00091 051 83 G 00590 DC '6' 1 00092 051 84 G 00600 DCW /MDM/ Q 5 00097 /MDM/ 052 85 G 00620 XXA7/ DEFIN XXA7 00102 053 86 G 00630 XXA7 DCW ' ' 5 00102 054 87 G 00640 DC '4-'' 3 00105 054 88 G 00650 DC '7' 1 00106 054 89 G 00660 DCW /MDM/ Q 5 00111 /MDM/ 055 90 G 00680 XXA8/ DEFIN XXA8 00116 056 91 G 00690 XXA8 DCW ' ' 5 00116 057 92 G 00700 DC '4-'' 3 00119 057 93 G 00710 DC '8' 1 00120 057 94 G 00720 DCW /MDM/ Q 5 00125 /MDM/ 058 95 G 00740 XXA9/ DEFIN XXA9 00130 059 96 G 00750 XXA9 DCW ' ' 5 00130 060 77120 GENERATE SGF PAGE 7 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 97 G 00760 DC '4-'' 3 00133 060 98 G 00770 DC '9' 1 00134 060 99 G 00780 DCW /MDM/ Q 5 00139 /MDM/ 061 100 G 02620 SPEND 77120 GENERATE SGF PAGE 8 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 101 G 02640 TITLE IBPHT00002,0 063 102 G 02650 ORG 0 00000 103 G 02660 DCW XXA0/ Q 5 00004 XXA0/ 064 104 G 02670 DC 'A0' 2 00006 065 105 G 02680 DCW XXA1/ Q 5 00011 XXA1/ 066 106 G 02690 DC 'A1' 2 00013 067 107 G 02700 DCW XXA2/ Q 5 00018 XXA2/ 068 108 G 02710 DC 'A2' 2 00020 069 109 G 02720 DCW XXA3/ Q 5 00025 XXA3/ 070 110 G 02730 DC 'A3' 2 00027 071 111 G 02740 DCW XXA4/ Q 5 00032 XXA4/ 072 112 G 02750 DC 'A4' 2 00034 073 113 G 02760 DCW XXA5/ Q 5 00039 XXA5/ 074 114 G 02770 DC 'A5' 2 00041 075 115 G 02780 DCW XXA6/ Q 5 00046 XXA6/ 076 116 G 02790 DC 'A6' 2 00048 077 117 G 02800 DCW XXA7/ Q 5 00053 XXA7/ 078 118 G 02810 DC 'A7' 2 00055 079 119 G 02820 DCW XXA8/ Q 5 00060 XXA8/ 080 120 G 02830 DC 'A8' 2 00062 081 121 G 02840 DCW XXA9/ Q 5 00067 XXA9/ 082 122 G 02850 DC 'A9' 2 00069 083 123 G 02860 SPEND 124 S GEN02 /MDM/,2,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9 77120 GENERATE SGF PAGE 9 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 125 G 00030 TITLE IBPHR00003,0 085 126 G 00040 ORG 0 00000 127 G 00810 XXB0/ DEFIN XXB0 00004 086 128 G 00820 XXB0 DCW ' ' 5 00004 087 129 G 00830 DC '4-*' 3 00007 087 130 G 00840 DC '0' 1 00008 087 131 G 00850 DCW /MDM/ Q 5 00013 /MDM/ 088 132 G 00870 XXB1/ DEFIN XXB1 00018 089 133 G 00880 XXB1 DCW ' ' 5 00018 090 134 G 00890 DC '4-*' 3 00021 090 135 G 00900 DC '1' 1 00022 090 136 G 00910 DCW /MDM/ Q 5 00027 /MDM/ 091 137 G 00930 XXB2/ DEFIN XXB2 00032 092 138 G 00940 XXB2 DCW ' ' 5 00032 093 139 G 00950 DC '4-*' 3 00035 093 140 G 00960 DC '2' 1 00036 093 141 G 00970 DCW /MDM/ Q 5 00041 /MDM/ 094 142 G 00990 XXB3/ DEFIN XXB3 00046 095 143 G 01000 XXB3 DCW ' ' 5 00046 096 144 G 01010 DC '4-*' 3 00049 096 145 G 01020 DC '3' 1 00050 096 146 G 01030 DCW /MDM/ Q 5 00055 /MDM/ 097 147 G 01050 XXB4/ DEFIN XXB4 00060 098 148 G 01060 XXB4 DCW ' ' 5 00060 099 149 G 01070 DC '4-*' 3 00063 099 77120 GENERATE SGF PAGE 10 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 150 G 01080 DC '4' 1 00064 099 151 G 01090 DCW /MDM/ Q 5 00069 /MDM/ 100 152 G 01110 XXB5/ DEFIN XXB5 00074 101 153 G 01120 XXB5 DCW ' ' 5 00074 102 154 G 01130 DC '4-*' 3 00077 102 155 G 01140 DC '5' 1 00078 102 156 G 01150 DCW /MDM/ Q 5 00083 /MDM/ 103 157 G 01170 XXB6/ DEFIN XXB6 00088 104 158 G 01180 XXB6 DCW ' ' 5 00088 105 159 G 01190 DC '4-*' 3 00091 105 160 G 01200 DC '6' 1 00092 105 161 G 01210 DCW /MDM/ Q 5 00097 /MDM/ 106 162 G 01230 XXB7/ DEFIN XXB7 00102 107 163 G 01240 XXB7 DCW ' ' 5 00102 108 164 G 01250 DC '4-*' 3 00105 108 165 G 01260 DC '7' 1 00106 108 166 G 01270 DCW /MDM/ Q 5 00111 /MDM/ 109 167 G 01290 XXB8/ DEFIN XXB8 00116 110 168 G 01300 XXB8 DCW ' ' 5 00116 111 169 G 01310 DC '4-*' 3 00119 111 170 G 01320 DC '8' 1 00120 111 171 G 01330 DCW /MDM/ Q 5 00125 /MDM/ 112 172 G 01350 XXB9/ DEFIN XXB9 00130 113 173 G 01360 XXB9 DCW ' ' 5 00130 114 174 G 01370 DC '4-*' 3 00133 114 77120 GENERATE SGF PAGE 11 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 175 G 01380 DC '9' 1 00134 114 176 G 01390 DCW /MDM/ Q 5 00139 /MDM/ 115 177 G 02620 SPEND 77120 GENERATE SGF PAGE 12 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 178 G 02640 TITLE IBPHT00003,0 117 179 G 02650 ORG 0 00000 180 G 02660 DCW XXB0/ Q 5 00004 XXB0/ 118 181 G 02670 DC 'B0' 2 00006 119 182 G 02680 DCW XXB1/ Q 5 00011 XXB1/ 120 183 G 02690 DC 'B1' 2 00013 121 184 G 02700 DCW XXB2/ Q 5 00018 XXB2/ 122 185 G 02710 DC 'B2' 2 00020 123 186 G 02720 DCW XXB3/ Q 5 00025 XXB3/ 124 187 G 02730 DC 'B3' 2 00027 125 188 G 02740 DCW XXB4/ Q 5 00032 XXB4/ 126 189 G 02750 DC 'B4' 2 00034 127 190 G 02760 DCW XXB5/ Q 5 00039 XXB5/ 128 191 G 02770 DC 'B5' 2 00041 129 192 G 02780 DCW XXB6/ Q 5 00046 XXB6/ 130 193 G 02790 DC 'B6' 2 00048 131 194 G 02800 DCW XXB7/ Q 5 00053 XXB7/ 132 195 G 02810 DC 'B7' 2 00055 133 196 G 02820 DCW XXB8/ Q 5 00060 XXB8/ 134 197 G 02830 DC 'B8' 2 00062 135 198 G 02840 DCW XXB9/ Q 5 00067 XXB9/ 136 199 G 02850 DC 'B9' 2 00069 137 200 G 02860 SPEND 201 S GEN02 /MDM/,3,C0,C1,C2,C3,C4,C5,C6,C7,C8,C9 77120 GENERATE SGF PAGE 13 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 202 G 00030 TITLE IBPHR00004,0 139 203 G 00040 ORG 0 00000 204 G 01420 XXC0/ DEFIN XXC0 00004 140 205 G 01430 XXC0 DCW ' ' 5 00004 141 206 G 01440 DC '4-$' 3 00007 141 207 G 01450 DC '0' 1 00008 141 208 G 01460 DCW /MDM/ Q 5 00013 /MDM/ 142 209 G 01480 XXC1/ DEFIN XXC1 00018 143 210 G 01490 XXC1 DCW ' ' 5 00018 144 211 G 01500 DC '4-$' 3 00021 144 212 G 01510 DC '1' 1 00022 144 213 G 01520 DCW /MDM/ Q 5 00027 /MDM/ 145 214 G 01540 XXC2/ DEFIN XXC2 00032 146 215 G 01550 XXC2 DCW ' ' 5 00032 147 216 G 01560 DC '4-$' 3 00035 147 217 G 01570 DC '2' 1 00036 147 218 G 01580 DCW /MDM/ Q 5 00041 /MDM/ 148 219 G 01600 XXC3/ DEFIN XXC3 00046 149 220 G 01610 XXC3 DCW ' ' 5 00046 150 221 G 01620 DC '4-$' 3 00049 150 222 G 01630 DC '3' 1 00050 150 223 G 01640 DCW /MDM/ Q 5 00055 /MDM/ 151 224 G 01660 XXC4/ DEFIN XXC4 00060 152 225 G 01670 XXC4 DCW ' ' 5 00060 153 226 G 01680 DC '4-$' 3 00063 153 77120 GENERATE SGF PAGE 14 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 227 G 01690 DC '4' 1 00064 153 228 G 01700 DCW /MDM/ Q 5 00069 /MDM/ 154 229 G 01720 XXC5/ DEFIN XXC5 00074 155 230 G 01730 XXC5 DCW ' ' 5 00074 156 231 G 01740 DC '4-$' 3 00077 156 232 G 01750 DC '5' 1 00078 156 233 G 01760 DCW /MDM/ Q 5 00083 /MDM/ 157 234 G 01780 XXC6/ DEFIN XXC6 00088 158 235 G 01790 XXC6 DCW ' ' 5 00088 159 236 G 01800 DC '4-$' 3 00091 159 237 G 01810 DC '6' 1 00092 159 238 G 01820 DCW /MDM/ Q 5 00097 /MDM/ 160 239 G 01840 XXC7/ DEFIN XXC7 00102 161 240 G 01850 XXC7 DCW ' ' 5 00102 162 241 G 01860 DC '4-$' 3 00105 162 242 G 01870 DC '7' 1 00106 162 243 G 01880 DCW /MDM/ Q 5 00111 /MDM/ 163 244 G 01900 XXC8/ DEFIN XXC8 00116 164 245 G 01910 XXC8 DCW ' ' 5 00116 165 246 G 01920 DC '4-$' 3 00119 165 247 G 01930 DC '8' 1 00120 165 248 G 01940 DCW /MDM/ Q 5 00125 /MDM/ 166 249 G 01960 XXC9/ DEFIN XXC9 00130 167 250 G 01970 XXC9 DCW ' ' 5 00130 168 251 G 01980 DC '4-$' 3 00133 168 77120 GENERATE SGF PAGE 15 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 252 G 01990 DC '9' 1 00134 168 253 G 02000 DCW /MDM/ Q 5 00139 /MDM/ 169 254 G 02620 SPEND 77120 GENERATE SGF PAGE 16 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 255 G 02640 TITLE IBPHT00004,0 171 256 G 02650 ORG 0 00000 257 G 02660 DCW XXC0/ Q 5 00004 XXC0/ 172 258 G 02670 DC 'C0' 2 00006 173 259 G 02680 DCW XXC1/ Q 5 00011 XXC1/ 174 260 G 02690 DC 'C1' 2 00013 175 261 G 02700 DCW XXC2/ Q 5 00018 XXC2/ 176 262 G 02710 DC 'C2' 2 00020 177 263 G 02720 DCW XXC3/ Q 5 00025 XXC3/ 178 264 G 02730 DC 'C3' 2 00027 179 265 G 02740 DCW XXC4/ Q 5 00032 XXC4/ 180 266 G 02750 DC 'C4' 2 00034 181 267 G 02760 DCW XXC5/ Q 5 00039 XXC5/ 182 268 G 02770 DC 'C5' 2 00041 183 269 G 02780 DCW XXC6/ Q 5 00046 XXC6/ 184 270 G 02790 DC 'C6' 2 00048 185 271 G 02800 DCW XXC7/ Q 5 00053 XXC7/ 186 272 G 02810 DC 'C7' 2 00055 187 273 G 02820 DCW XXC8/ Q 5 00060 XXC8/ 188 274 G 02830 DC 'C8' 2 00062 189 275 G 02840 DCW XXC9/ Q 5 00067 XXC9/ 190 276 G 02850 DC 'C9' 2 00069 191 277 G 02860 SPEND 278 S GEN05 EA,001543AA,1943,EB,002700BA,3150, 279 S EC,003543AA,3943,ED,004700BA,5150 77120 GENERATE SGF PAGE 17 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 77120 GENERATE SGF PAGE 18 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 280 G 00030 TITLE IBPHR00005,00000 193 281 G 00040 ORG 0 00000 282 G 00070 /RSB/ DEFIN RSB 99999 194 283 G 00080 RSB EQU *-1 99999 284 G 00100 XXEA/ DEFIN XXEA 00004 195 285 G 00110 XXEA DCW ' ' 5 00004 196 286 G 00120 DC '8-$' 3 00007 196 287 G 00130 DCW '001543AA' 8 00015 196 288 G 00140 DC '1943' 4 00019 196 289 G 00160 XXEB/ DEFIN XXEB 00024 197 290 G 00170 XXEB DCW ' ' 5 00024 198 291 G 00180 DC '8-$' 3 00027 198 292 G 00190 DCW '002700BA' 8 00035 198 293 G 00200 DC '3150' 4 00039 198 294 G 00220 XXEC/ DEFIN XXEC 00044 199 295 G 00230 XXEC DCW ' ' 5 00044 200 296 G 00240 DC '8-$' 3 00047 200 297 G 00250 DCW '003543AA' 8 00055 200 298 G 00260 DC '3943' 4 00059 200 299 G 00280 XXED/ DEFIN XXED 00064 201 300 G 00290 XXED DCW ' ' 5 00064 202 301 G 00300 DC '8-$' 3 00067 202 302 G 00310 DCW '004700BA' 8 00075 202 303 G 00320 DC '5150' 4 00079 202 304 G 00990 SPEND 77120 GENERATE SGF PAGE 19 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 77120 GENERATE SGF PAGE 20 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 305 G 01010 TITLE IBPHT00005,00000 204 306 G 01020 ORG 00000 00000 307 G 01030 DCW XXEA/ Q 5 00004 XXEA/ 205 308 G 01040 DC 'EA' 2 00006 206 309 G 01050 DCW XXEB/ Q 5 00011 XXEB/ 207 310 G 01060 DC 'EB' 2 00013 208 311 G 01070 DCW XXEC/ Q 5 00018 XXEC/ 209 312 G 01080 DC 'EC' 2 00020 210 313 G 01090 DCW XXED/ Q 5 00025 XXED/ 211 314 G 01100 DC 'ED' 2 00027 212 315 G 01330 SPEND 316 S GEN08 7900099339,,55,20,099,A0,R1,,,P1,X1,,,,SNAP 317 G 00020 TITLE IBPHR00006,00000 214 318 G 00030 ORG 0 00000 319 G 00080 SPEND 320 G 00090 TITLE IBPHT00006,00000 216 321 G 00100 ORG 0 00000 322 G 00110 XYND/ DEFIN XYND 99999 217 323 G 00120 XYND EQU *-1 99999 324 G 00130 SPEND 325 G 01360 * SYSTEM DEFINITION ANALYSIS 326 G 01410 * 7010 SYSTEM 327 G 01430 * TAPE ORIENTED 328 G 01470 * NO TAPE LABELS 329 G 01530 * NO TELEPROCESSING 77120 GENERATE SGF PAGE 21 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 330 G 01590 * MDM FILE AVAILABLE 331 G 01670 * STANDARD PRINT VARIABLE 332 G 01750 * STANDARD PUNCH VARIABLE 333 G 01790 * AIU 77120 GENERATE SGF PAGE 22 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 334 G 01850 TITLE IBBOOT1T 219 335 G 01860 BASE1 00000 00000 220 336 G 01870 ORG 00001 00001 + 337 G 01880 BCE 0032,00003,0 BR IF 7010 LOAD 0 12 00001 B 00032 00003 0 221 + D 338 G 01890 MRCWG 0043,00332 MOVE RELATIVE TO 32 0 12 00013 D 00043 00332 L 221 L 339 G 01900 B 00375 BR TO RELOCATED BT1 T 7 00025 J 00375 221 G G 340 G 01910 BEX1 *+1,M BRANCH ANY ) 7 00032 R 00039 M 221 -- 341 G 01920 LU (B0,0+X10,$ READ BOOT 2 L 10 00039 L (B0 00000 $ 222 Q L Q 342 G 01930 BEX1 00214,T T 7 00049 R 00214 T 222 G G 343 G 01940 BEX1 *+1,M BR ANY ) 7 00056 R 00063 M 222 L -- 344 G 01950 B 0+X10 BR TO BOOT 2 T 7 00063 J 00000 222 345 G 01980 DCW '95000' RELATIVE TO X10 5 00074 223 + D 346 G 01990 MRCWG 00332,00032 REPOSITION TO 32 0 12 00075 D 00332 00032 L 224 + 347 G 02000 MLCS 00002,00040 CHAIN INDICATOR 0 12 00087 D 00002 00040 3 224 + 348 G 02010 MLCS 00004,00042 TAPE UNIT 0 12 00099 D 00004 00042 3 224 + 349 G 02020 MLCS 00002,00434 CHAIN INDICATOR 0 12 00111 D 00002 00434 3 225 + 350 G 02030 BCE 00452,00447,( FIND BRANCH 0 12 00123 B 00452 00447 ( 225 351 G 02040 BCE CHAN STATUS 9 1 00135 B 225 352 G 02050 BCE OP CODE 9 1 00136 B 225 353 G 02060 BCE 9 1 00137 B 225 G 354 G 02070 H 00438 T 6 00138 . 00438 225 -+ 355 G 02080 DCW '00)(RX31' CONVERSION CONSTANT 8 00151 226 L 356 G 02090 SBR X11 T 7 00152 G 00079 B 227 + - 357 G 02100 MLCS 13+X11,00032 STORE STATUS 0 12 00159 D 000A3 00032 3 227 + - 358 G 02110 MLCS 13+X11,00049 BRANCH CODE 0 12 00171 D 000A3 00049 3 227 77120 GENERATE SGF PAGE 23 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + - 359 G 02120 MLCS 13+X11,00056 0 12 00183 D 000A3 00056 3 227 + - 360 G 02130 MLCS 13+X11,00214 0 12 00195 D 000A3 00214 3 228 L 361 G 02140 B 00032 RETURN TO READ T 7 00207 J 00032 228 L 362 G 02150 BEX1 00032,2 TEST BUSY T 7 00214 R 00032 2 228 363 G 02160 H 9 1 00221 . 228 G 364 G 02170 DCW 'M' 9 1 00222 228 365 G 02180 SPEND 77120 GENERATE SGF PAGE 24 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 366 G 02200 TITLE IBBOOT2T 230 367 G 02210 BASE1 00000 00000 231 368 G 02220 ORG 95000 ORG AT ANS'5000 95000 369 G 02230 MLCWA BT3BLNKS,11 CLEAR EXCESS OF LOAD C 12 95000 D 95794 00011 X 232 370 G 02240 BCE BTRD,3,0 TEST FOR 7010 LOAD C 12 95012 B 95288 00003 0 232 371 G 02250 MLCWS 04,BTFSRD+3 INSERT A 12 95024 D 00004 95351 7 232 372 G 02260 MLCWS 04,BTREAD+15 DRIVE A 12 95036 D 00004 95654 7 233 373 G 02270 MLCWS 04,BTRRD+3 NUMBER A 12 95048 D 00004 95953 7 233 374 G 02280 MLCWS 4,BTBSP+3 SET-UP DRIVE IN BSP I A 12 95060 D 00004 95339 7 233 375 G 02290 MLCWS 2,BTBSP+1 SET-UP CHANNEL IN BSP A 12 95072 D 00002 95337 7 234 376 G 02300 MLCWA 4,BTRD+3 SET-UP XCTL IN READ A 12 95084 D 00004 95291 X 234 377 G 02310 MLCWA 4,BTRDN+3 SET-UP XCTL FLD IN RE A 12 95096 D 00004 95315 X 234 378 G 02320 MLCWS 32,BTRD+10 SET-UP A 12 95108 D 00032 95298 7 235 379 G 02330 MLCWS 32,BTRD+17 CHANNEL A 12 95120 D 00032 95305 7 235 380 G 02340 MLCWS 32,BTRDN+10 STATUS A 12 95132 D 00032 95322 7 235 381 G 02350 MLCWS 32,BTRDN+17 BRANCH A 12 95144 D 00032 95329 7 236 382 G 02360 MLCWS 32,BTBSP+5 OP CODES A 12 95156 D 00032 95341 7 236 383 G 02370 MLCWS 02,BTREAD+13 INSERT A 12 95168 D 00002 95652 7 236 384 G 02380 MLCWS 02,BTFSRD+1 CHANNEL A 12 95180 D 00002 95349 7 237 385 G 02390 MLCWS 02,BTRRD+1 INDICATOR A 12 95192 D 00002 95951 7 237 386 G 02400 MLCWS 32,BTRRD+5 INSERT A 12 95204 D 00032 95955 7 237 387 G 02410 MLCWS 32,BTRRD+12 A 12 95216 D 00032 95962 7 238 388 G 02420 MLCWS 32,BTFSRD+10 CHANNEL STATUS A 12 95228 D 00032 95358 7 238 389 G 02430 MLCWS 32,BTFSRD+17 A 12 95240 D 00032 95365 7 238 390 G 02440 MLCWS 32,BTRDLOC+9 BRANCH A 12 95252 D 00032 95668 7 239 77120 GENERATE SGF PAGE 25 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 391 G 02450 MLCWS 32,BTRDLOC+16 A 12 95264 D 00032 95675 7 239 392 G 02460 MLCWS 32,BTRDERX OP CODE A 12 95276 D 00032 95936 7 239 393 G 02470 BTRD LU (B0,BTHDRBUF,R RD RESMON HEADER J 10 95288 L (B0 96124 R 239 394 G 02480 BEX1 *-16,2 BRANCH CHANNEL BUSY ) 7 95298 R 95288 2 240 G G 395 G 02490 BEX1 *+1,M BRANCH ANY ) 7 95305 R 95312 M 240 396 G 02500 BTRDN LU (B0,BTHDRBUF,Q I/O NOP J 10 95312 L (B0 96124 Q 240 397 G 02510 BEX1 T7330,2 BRANCH UNIT BUSY -733 ) 7 95322 R 95773 2 240 G G 398 G 02520 BEX1 *+1,M BRANCH ANY ) 7 95329 R 95336 M 240 399 G 02530 BTBSP BSP (B0 M 5 95336 U (B0 B 240 G G 400 G 02540 BEX1 *+1,M BRANCH ANY ) 7 95341 R 95348 M 241 401 G 02550 BTFSRD DCW 'L(B0' READ FIRST RECORD 4 95348 242 402 G 02560 DC BTHDRBUF TO HEADER BUFFER N 5 95356 96124 243 403 G 02570 DC 'R' 9 1 95357 243 404 G 02580 BEX1 BTFSRD,2 ) 7 95358 R 95348 2 243 G G 405 G 02590 BEX1 BTHDERR,M ) 7 95365 R 96018 M 243 406 G 02600 C BTHDRBUF+1,'$$' TEST FOR $$ 4 11 95372 C 96125 96229 243 407 G 02610 BU BTBLOWUP NOT $$ ERROR ) 7 95383 J 96037 / 243 408 G 02620 MLCWA BTINDEX,X3 CLEAR X3 C 12 95390 D 96189 00039 X 244 + 409 G 02630 MLCWA X3,X2 CLEAR X2 0 12 95402 D 00039 00034 X 244 410 G 02640 MLCWA CLEAR X1 9 1 95414 D 244 411 G 02650 CW BTEXBUF+1 PUT ADDR OF EX BUFFER ' 6 95415 ) 96105 244 L 412 G 02660 SAR X1 TO X1 T 7 95421 G 00029 A 244 413 G 02670 MLCB BTHDRBUF+31,BTCHCT SET UP D 12 95428 D 96155 96200 L 245 414 G 02680 MLCB LEAD INFORMATION 9 1 95440 D 245 415 G 02690 MLCB FOR NEXT RECORD 9 1 95441 D 245 77120 GENERATE SGF PAGE 26 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 416 G 02700 BTNORM BBE BTEXC,BTTYPE,2 TEST FOR EXC D 12 95442 W 95742 96190 2 245 417 G 02710 BBE BTHDNXT,BTTYPE,4 TEST FOR HDR D 12 95454 W 95876 96190 4 245 418 G 02720 SW BTLDSW SET LOAD REC SW ' 6 95466 , 95683 246 419 G 02730 CW BTPRTSW ALLOW FOR PROTECT ' 6 95472 ) 95479 246 420 G 02740 NOPWM 9 1 95478 N 246 421 G 02750 BTPRTSW B BTREAD GO TO READ ) 7 95479 J 95639 246 + 422 G 02760 ZA BTCHCT,X3 NO OF CHARACT NEXTREC 3 11 95486 0 96200 00039 246 + 423 G 02770 ZA ADDRESS OF NEXT REC 9 1 95497 0 246 424 G 02780 A X2,X3 LAST OF NEXT REC 0 11 95498 A 00034 00039 247 425 G 02790 MLCWS 99999+X2,BTBUCA SAVE LAST ELEVEN A 12 95509 D 999R9 96211 7 247 426 G 02800 MLCWS 10 CHARACTERS OF 9 1 95521 D 247 427 G 02810 MLCWS 09 PREVIOUS RECORD 9 1 95522 D 247 428 G 02820 MLCWS 08 9 1 95523 D 247 429 G 02830 MLCWS 07 9 1 95524 D 247 430 G 02840 MLCWS 06 9 1 95525 D 247 431 G 02850 MLCWS 05 9 1 95526 D 247 432 G 02860 MLCWS 04 9 1 95527 D 247 433 G 02870 MLCWS 03 9 1 95528 D 247 434 G 02880 MLCWS 02 9 1 95529 D 247 435 G 02890 MLCWS 01 9 1 95530 D 248 436 G 02900 S BTELEV,X2 SET POINTER DOWN 11 3 11 95531 S 96213 00034 248 437 G 02910 MLNA X2,BTRDLOC PRIME READ INST A 12 95542 D 00034 95659 / 248 + 438 G 02920 MLCWS 0+X3,BTHOLD SAVE LAST CHAR+1 A 12 95554 D 00000 96215 7 248 + 439 G 02930 MLCWS BTGM,0+X3 INSERT GMWM C 12 95566 D 96214 00000 7 249 + - - 440 G 02940 BTCLEAR SCNRG 0+X2,0+X2 FROM ENTRY SEARCHGMWM 0 12 95578 D 00000 00000 Q 249 77120 GENERATE SGF PAGE 27 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 441 G 02950 SAR X2 SAVE STOP POINT T 7 95590 G 00034 A 249 442 G 02960 C X2,X3 TEST FOR END OF REC 0 11 95597 C 00034 00039 249 443 G 02970 BL BTSTGM END FOUND ) 7 95608 J 95628 T 250 G 444 G 02980 CW 99999+X2 CLEAR THE WORDMK T 6 95615 ) 999R9 250 445 G 02990 B BTCLEAR RETURN TO SCAN ) 7 95621 J 95578 250 446 G 03000 BTSTGM S BTCHCT,X2 RESET START POINT 3 11 95628 S 96200 00034 250 447 G 03010 BTREAD MLCS BTBLK,BTRDCT CLEAR READ COUNTER D 12 95639 D 96216 96217 3 250 448 G 03020 DCW 'L(B0' 4 95654 251 449 G 03030 BTRDLOC DC ' ' 5 95659 251 450 G 03040 DC 'R' 1 95660 251 451 G 03050 SBR BTEOREC ) 7 95661 G 96222 B 252 452 G 03060 BEX1 BTREAD+12,2 ) 7 95668 R 95651 2 252 G G 453 G 03070 BEX1 BTRDER,M ) 7 95675 R 95895 M 252 454 G 03080 NOP 9 1 95682 N 252 455 G 03090 BTLDSW B BTLDCD ) 7 95683 J 95697 252 456 G 03100 BTEXSW B BTEXCD ) 7 95690 J 95795 252 457 G 03110 BTLDCD MLCB 99998+X2,BTCHCT MOVE NEXT RECORD A 12 95697 D 999R8 96200 L 253 458 G 03120 MLCB LOAD CONTROL INFO 9 1 95709 D 253 459 G 03130 MLCB TO HOLD AREA 9 1 95710 D 253 + 460 G 03140 MLCWS BTHOLD,0+X3 RESET LAST CHAR+1 C 12 95711 D 96215 00000 7 253 461 G 03150 MLCWB BTBUCA,99998+X2 RESET SAVED 11 CHARS C 12 95723 D 96211 999R8 P 253 462 G 03160 B BTNORM RETURN TO NORM ) 7 95735 J 95442 254 463 G 03170 BTEXC CW BTLDSW CLEAR LD SW ' 6 95742 ) 95683 254 464 G 03180 SW BTPRTSW SET PROTECT ' 6 95748 , 95479 254 465 G 03190 MLNA X1,BTRDLOC PRIME READ LOC A 12 95754 D 00029 95659 / 254 77120 GENERATE SGF PAGE 28 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 466 G 03200 B BTPRTSW-1 ) 7 95766 J 95478 254 467 G 03210 T7330 NOP NOP SWITCH 9 1 95773 N 254 468 G 03220 CW T7330+1,9 CLEAR NOP SW SET SW-9 3 11 95774 ) 95774 00009 255 469 G 03230 B BTRDN RETURN TO I/O NOP ) 7 95785 J 95312 255 470 G 03240 BT3BLNKS DCW ' ' CONSTANT OF 3 BLANKS 3 95794 256 471 G 03250 BTEXCD MLCB 10+X1,BTCHCT SAVE LOAD INFO A 12 95795 D 000/0 96200 L 257 472 G 03260 MLCB 9 1 95807 D 257 473 G 03270 MLCB 9 1 95808 D 257 474 G 03280 MLCA 34+X1,BTGOUT+5 SET PROGRAM ENTRY A 12 95809 D 000T4 95874 T 257 475 G 03290 MLCWA BTINDEX,X15 INITIALIZE X15 C 12 95821 D 96189 00099 X 257 + 476 G 03300 MLCWA X15,X14 X14 0 12 95833 D 00099 00094 X 258 477 G 03310 MLCWA X13 9 1 95845 D 258 478 G 03320 MLCWA X12 9 1 95846 D 258 479 G 03330 MLCWA X11 9 1 95847 D 258 480 G 03340 MLCWA X10 9 1 95848 D 258 481 G 03350 MLCWA X9 9 1 95849 D 258 482 G 03360 MLCWA X8 9 1 95850 D 258 483 G 03370 MLCWA X7 9 1 95851 D 258 484 G 03380 MLCWA X6 9 1 95852 D 258 485 G 03390 MLCWA X5 9 1 95853 D 258 486 G 03400 MLCWA X4 9 1 95854 D 258 487 G 03410 MLCWA X3 9 1 95855 D 258 488 G 03420 MLCWA X2 9 1 95856 D 258 489 G 03430 MLCB BTFSRD+3,X1-1 X1 C 12 95857 D 95351 00028 L 259 L 490 G 03440 BTGOUT B 0 BRANCH TO PROGRAM T 7 95869 J 00000 259 77120 GENERATE SGF PAGE 29 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 491 G 03450 BTHDNXT MLCS BTELEV,BTERM+17 ERROR 01 D 12 95876 D 96213 96102 3 259 492 G 03460 B BTTYPEO ) 7 95888 J 96049 259 493 G 03470 BTRDER MLCB BTRDLOC,BTTEMP READ ERROR D 12 95895 D 95659 96227 L 260 494 G 03480 S BTTEMP,BTEOREC 4 11 95907 S 96227 96222 260 495 G 03490 C '00014',BTEOREC 4 11 95918 C 96234 96222 260 496 G 03500 BL BTREAD NOISE RECORD ) 7 95929 J 95639 T 260 W W 497 G 03510 BTRDERX BEX1 BTRRD,S ) 7 95936 R 95950 S 261 498 G 03520 B BTLDSW-1 W/L RECORD ) 7 95943 J 95682 261 499 G 03530 BTRRD DCW 'U(U' 3 95950 262 500 G 03540 DC '0' 1 95953 262 501 G 03550 DC 'B' BACKSPACE TAPE 1 95954 262 502 G 03560 BEX1 BTRRD,2 ) 7 95955 R 95950 2 263 G G 503 G 03570 BEX1 *+1,M ) 7 95962 R 95969 M 263 504 G 03580 BCE BTHLT,BTRDCT,9 TEST FOR 9 READS D 12 95969 B 95999 96217 9 263 505 G 03590 A '1',BTRDCT ADD 1 TO READ COUNTER 4 11 95981 A 96235 96217 263 506 G 03600 B BTREAD+12 RETURN TO READ ) 7 95992 J 95651 263 507 G 03610 BTHLT MLCS '2',BTERM+17 ERROR 02 D 12 95999 D 96236 96102 3 264 508 G 03620 B BTTYPEO ) 7 96011 J 96049 264 509 G 03630 BTHDERR MLCS '3',BTERM+17 ERROR 03 D 12 96018 D 96237 96102 3 264 510 G 03640 B BTTYPEO ) 7 96030 J 96049 264 511 G 03650 BTBLOWUP MLCS '4',BTERM+17 ERROR 04 D 12 96037 D 96238 96102 3 265 G G 512 G 03660 BTTYPEO BEX1 *+1,M ERROR TYPEOUT ) 7 96049 R 96056 M 265 513 G 03670 DCW 'L(T0' 4 96059 266 514 G 03680 DC BTERM N 5 96064 96085 267 515 G 03690 DC 'W' 9 1 96065 267 77120 GENERATE SGF PAGE 30 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G G 516 G 03700 BEX1 *+1,M ) 7 96066 R 96073 M 267 517 G 03710 BW *-11,*-11, D 12 96073 V 96073 96073 1 267 518 G 03720 BTERM DCW 'BOOTSTRAP ERROR 00',G 19 96085 268 519 G 03730 BTEXBUF DA 1X20 20 96104 520 G 03740 BTHDRBUF DA 1X60,G 61 96124 521 G 03750 BTINDEX DCW ' ' 5 96189 272 522 G 03760 BTTYPE DCW ' ' 1 96190 272 523 G 03770 BTLOAD DCW ' ' 5 96195 272 524 G 03780 BTCHCT DCW ' ' 5 96200 272 525 G 03790 BTBUCA DCW ' ' 11 96211 272 526 G 03800 BTELEV DCW '11' 2 96213 272 G 527 G 03810 BTGM DCW 'M' 1 96214 272 528 G 03820 BTHOLD DC ' ' 1 96215 272 529 G 03830 BTBLK DCW ' ' 1 96216 272 530 G 03840 BTRDCT DCW ' ' 1 96217 272 531 G 03850 BTEOREC DCW ' ' 5 96222 272 532 G 03860 BTTEMP DCW ' ' 5 96227 272 533 G 06150 SPEND 534 '$$' 2 96229 273 535 '00014' 5 96234 273 536 '1' 1 96235 273 537 '2' 1 96236 273 538 '3' 1 96237 273 539 '4' 1 96238 273 77120 GENERATE SGF PAGE 31 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 540 G 06170 TITLE IBRESIDENT,0 275 541 G 06180 ORG 00000 00000 542 G 06190 * COMMUNICATIONS REGION SYSTEM SYMBOL TABLE 543 G 06200 /PHN/ DEFIN PHN 00002 276 544 G 06210 PHN DCW ' ' CURRENT PHASE NUMBER 3 00002 277 545 G 06220 /DAT/ DEFIN DAT 00007 278 546 G 06230 DAT DCW '5 ' DATE, 2 YEAR, 3 FOR D 5 00007 279 547 G 06240 /AMS/ DEFIN AMS 00012 280 548 G 06250 AMS DCW 99997 5 00012 281 549 G 06260 /CRD/ DEFIN CRD 00017 282 550 G 06270 CRD DCW ZCR1/ LOCATION OF CARD Q 5 00017 ZCR1/ 283 551 G 06280 TPB DCW /KER/ Q 5 00022 /KER/ 283 552 G 06290 ORG DCW /MKR/ Q 5 00027 /MKR/ 283 553 G 06300 /TPB/ DEFIN TPB 00022 284 554 G 06310 /ORG/ DEFIN ORG 00027 285 555 G 06320 /SIZ/ DEFIN SIZ 00032 286 556 G 06330 SIZ DCW '5 ' HIGHEST ADDR. USED, B 5 00032 287 557 G 06340 /PNM/ DEFIN PNM 00042 288 558 G 06350 PNM DCW ' ' DEPENDENT PGM NAME 10 00042 289 559 G 06360 /CGO/ DEFIN CGO 00043 290 560 G 06370 CGO DCW ' ' INDICATORS, 1 00043 291 561 G 06380 * NO A, NO B, LOAD FROM MJB, DO NOT PREPARE GO 562 G 06390 * NO A, B, LOAD FROM MJB, PREPARE GO 563 G 06400 * A, NO B, DO NOT LOAD FROM MJB, DO NOT PREPARE GO 564 G 06410 * 1, VALID OUTPUT ON GO FILE 77120 GENERATE SGF PAGE 32 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 565 G 06420 /MCI/ DEFIN MCI 00044 292 566 G 06430 MCI DCW ' ' CONSOLE $3N SAVE 1 00044 293 567 G 06440 /IPI/ DEFIN IPI 00049 294 568 G 06450 IPI DCW '5 ' ADDRESS OF DEPENDENT 5 00049 295 569 G 06460 * ....................INTERPHASE AREA 570 G 06470 /LIN/ DEFIN LIN 00051 296 571 G 06480 LIN DCW '55' NUMBER OF LINES/PAGE 2 00051 297 572 G 06510 /MGA/ DEFIN MGA 00055 298 573 G 06520 MGA DCW ' ' DISK ADDR, GO FILE 4 00055 299 574 G 06560 * MODIFY COMMUNICATION REGION 575 G 06570 * CALLING SEQUENCE 576 G 06580 * . BXPA /MCR/ 577 G 06590 * . DCW SYMBOL OF LOC TO BE MODIFIED 578 G 06600 * . DCW LOC. OF NEW DATA 579 G 06610 * . DCW ERROR ROUTINE 580 G 06620 /MCR/ DEFIN MCR 00056 300 L 581 G 06630 MCR SBR X13 T 7 00056 G 00089 B 301 + 582 G 06640 C 4+X13,MCRLOW COMPARE TO LOW 1 11 00063 C 000@4 00165 301 583 G 06650 BH MCRERROR ERROR ) 7 00074 J 00142 U 301 + 584 G 06660 C 4+X13,MCRHIGH COMPARE TO HIGH 1 11 00081 C 000@4 00170 301 585 G 06670 BL MCRERROR ERROR ) 7 00092 J 00142 T 301 + 586 G 06680 MLN 4+X13,MCRMOVE+10 LOC. OF SYSTEM SYMBOL A 12 00099 D 000@4 00133 A 302 + 587 G 06690 MLN 9+X13,MCRMOVE+5 LOC. OF NEW DATA A 12 00111 D 000@9 00128 A 302 + 588 G 06700 MCRMOVE MLC 0,0 MOVE NEW DATA 0 12 00123 D 00000 00000 C 302 L + 589 G 06710 BEPA 15+X13 RETURN T 7 00135 Y 000/5 E 302 77120 GENERATE SGF PAGE 33 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 590 G 06720 MCRERROR MLN 14+X13,MCRERROREX+5 A 12 00142 D 000/4 00159 A 303 L 591 G 06730 MCRERROREX BEPA 0 T 7 00154 Y 00000 E 303 592 G 06740 MCRLOW DCW SIZ N 5 00165 00032 303 593 G 06750 MCRHIGH DCW MCR N 5 00170 00056 303 77120 GENERATE SGF PAGE 34 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 594 G 06770 * CONSTANT AND I/O AREAS, RESIDENT MONITOR 595 G 06780 /MIX/ DEFIN MIX 00171 304 596 G 06829 MIX DC ' ' 1 00171 305 597 G 06830 /MIY/ DEFIN MIY 00172 306 598 G 06850 MIY DC ' ' 1 00172 307 599 G 06880 * WM, TELEPROCESSING ENVIRONMENT 600 G 06890 * 8 BIT, SYSGEN MODE 601 G 06900 * 8, SYSGE N MODE 602 G 06910 /MIZ/ DEFIN MIZ 00173 308 603 G 06920 MIZ DC ' ' 1 00173 309 604 G 06930 * 8 BIT, MJB MUST BE OPENED 605 G 06940 /RIQ/ DEFIN RIQ 00174 310 606 G 06941 MIQ2/ DEFIN RIQ+1 00175 311 607 G 06942 MIQ4/ DEFIN RIQ+3 00177 312 608 G 07040 RIQ DA 1X20,G 21 00174 609 G 07045 MIQ8/ DEFIN RIQ+7 00181 315 610 G 07050 MMIE/ DEFIN MMIE 00178 316 611 G 07160 MMIE EQU RIQ+4 5TH CHAR CONSOLE INPU 00178 612 G 07170 MIQ3/ DEFIN RIQ+2 00176 317 613 G 07180 MSKJ/ DEFIN MSKJ 00195 318 614 G 07190 MSKJ DC '8' WM, AIU IN CURRENT US 1 00195 319 615 G 07200 * ....................A, TEST OPERAND IN MODE 616 G 07210 * ....................CARD. 617 G 07220 * ....................8,SKIP TO NEXT JOB 618 G 07230 /MOU/ DEFIN MOUC 00196 320 77120 GENERATE SGF PAGE 35 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 619 G 07240 MOUC/ DEFIN MOUC 00196 321 620 G 07410 MOUC DC '5' TYPE + PRINT 1 00196 322 621 G 07500 MRST/ DEFIN MRST 00197 323 622 G 07520 MRST DC ' ' WM, CLASS B CONSOLE 1 00197 324 623 G 07550 * ...................INQUIRY PENDING 624 G 07560 * ....................B, IBPRTNONE SPECIFIED 625 G 07570 * ....................8, RESTART REQUESTED 626 G 07590 DCW ZIO1/ Q 5 00202 ZIO1/ 325 627 G 07600 MMSY/ DEFIN MMSY 00207 326 628 G 07610 MMSY DCW MSIU/ Q 5 00207 MSIU/ 327 629 G 07620 MCRD/ DEFIN MCRD 00217 328 630 G 07630 MRDC/ DEFIN MRDC 00212 329 631 G 07640 MRDC DCW '00000' TEMPORARY BLOCK CNT S 5 00212 330 632 G 07650 MCRD DCW ZCR1/ TEMP STORAGE OF /CRD/ Q 5 00217 ZCR1/ 331 633 G 07660 MAIJ/ DEFIN MAIJ 00219 332 634 G 07670 MAIJ DCW ' ' AIU JOB COUNT 2 00219 333 635 G 07690 MSFC/ DEFIN MSFC 00224 334 636 G 07700 MSFC DCW ' ' LOCATION COUNT SOF 5 00224 335 637 G 07710 MJBC/ DEFIN MJBC 00229 336 638 G 07720 MJBC DCW ' ' LOCATION COUNT MJB 5 00229 337 639 G 07730 MSIJ/ DEFIN MSIJ 00231 338 640 G 07740 MSIJ DCW ' ' SIU JOB COUNT 2 00231 339 641 G 07750 MUEA/ DEFIN MUEA 00236 340 642 G 07760 MUEA DCW ' ' UEP B ADDRESS 5 00236 341 643 G 07770 MCHN/ DEFIN MCHN 00241 342 77120 GENERATE SGF PAGE 36 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 644 G 07780 MCHN DCW ' ' RE-ENTRY BASE 5 00241 343 645 G 07790 MEP8/ DEFIN MEP8 00242 344 646 G 07800 MEP8 DCW '8' 1 00242 345 647 G 07810 MCONV DCW 'V' 1 00243 345 648 G 07820 MMUE/ DEFIN MMUE 00244 346 649 G 07830 MMUE DCW 'UEP' MESSAGE UEP 3 00244 347 650 G 07840 MMUF/ DEFIN MMUF 00247 348 651 G 07850 MMUF DCW '9' 1 00247 349 652 G 07860 MMUG/ DEFIN MMUG 00252 350 653 G 07870 MMUG DCW ' ' ADDITIONAL INFO. 5 00252 351 G 654 G 07880 DCW 'M' 1 00253 351 77120 GENERATE SGF PAGE 37 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 655 G 07900 * FILE TABLE EXTENSION, ALL MONITOR FILES 656 G 07920 /MLX/ DEFIN MLX Q 00000 352 657 G 07930 MLX EQU 00000 00000 77120 GENERATE SGF PAGE 38 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 658 G 08170 * END OF PROGRAM ROUTINES 659 G 08180 MRET/ DEFIN MRET 00254 353 660 G 08190 MRET MLCS MEP8,MRST D 12 00254 D 00242 00197 3 354 L 661 G 08195 BXPA PURR/ RESTART SAFE PURGE T 7 00266 Y PURR/ X 354 662 G 08200 B EOP+7 ) 7 00273 J 00543 354 663 G 08210 MPUR/ DEFIN MPUR DEAD END ROUTINE 00280 355 664 G 08220 MPUR BZN *-11,/CTB/ IMPROPER PURGE C 12 00280 V 00280 /CTB/ 2 356 L 665 G 08230 BXPA /CNC/ T 7 00292 Y /CNC/ X 356 666 G 08240 DCW MPURLOIN SEE INTERFACE 3.11 N 5 00303 00331 356 667 G 08250 BZN *-11,/CTB/ C 12 00304 V 00304 /CTB/ 2 356 L 668 G 08270 BXPA PGDM/ WRITE CHECKPOINT T 7 00316 Y PGDM/ X 356 669 G 08280 DCW 'D' DUMP INDICATOR 1 00323 357 670 G 08290 B *-6 ) 7 00324 J 00324 358 671 G 08300 MPURLOIN DCW '00510 REINIT',G 13 00331 359 672 G 08310 MIOU/ DEFIN * 00344 360 673 G 08320 SBR MIO91+5 INIT MOVE ) 7 00344 G 00368 B 361 674 G 08370 MLN X15,MMUG FILE ADDR TO UEP MSG A 12 00351 D 00099 00252 A 361 G 675 G 08380 MIO91 MLN 0 MESSAGE CODE 3 OR 4 T 6 00363 D 00000 361 676 G 08390 /UEP/ DEFIN UEP 00369 362 677 G 08400 UEP SBR MUEA INDICATE UEP ) 7 00369 G 00236 B 363 L 678 G 08410 SBR IQAR/ IAR T 7 00376 G IQAR/ B 363 679 G 08420 SUEP/ DEFIN *-1 00382 364 + 680 G 08440 MLCB X15,IQXN/ 0 12 00383 D 00099 IQXN/ L 365 681 G 08450 MLCB 9 1 00395 D 365 + 682 G 08470 MLCWA X15,299 SAVE X13-X15 0 12 00396 D 00099 00299 X 365 77120 GENERATE SGF PAGE 39 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 683 G 08480 MLCWA FOR VISUAL DISPLAY 9 1 00408 D 365 684 G 08490 MLCWA 9 1 00409 D 365 G 685 G 08500 MLCWA BEPA/ SAVE ACBEPA T 6 00410 D BEPA/ 365 G 686 G 08510 SW ESWC/ SUPER PURGE T 6 00416 , ESWC/ 365 L 687 G 08520 BXPA PURG/ SECTION 3.11 FOR T 7 00422 Y PURG/ X 366 688 G 08530 UEPPURG EQU * DEFINITION OF 00429 L 689 G 08550 BXPA PGDM/ OPERATIONS T 7 00429 Y PGDM/ X 366 690 G 08560 DCW 'D' DUMP INDICATOR 9 1 00436 366 L 691 G 08570 BXPA PGRL/ SEE T 7 00437 Y PGRL/ X 366 L 692 G 08590 B /SNP/ $$$$$$$$$ T 7 00444 J /SNP/ 366 693 G 08600 DCW 'N000000000000' $$$$$$$$$ 13 00463 367 694 G 08610 B MSNAPEND $$$$$$$$$ ) 7 00464 J 00496 368 695 G 08620 DCW '00000' START $$$$$$$$$ 5 00475 369 696 G 08630 DCW 99997 END $$$$$$$$$ 5 00480 369 697 G 08640 DCW ' ' $$$$$$$$$$$ 5 00485 369 698 G 08650 DCW ' ' $$$$$$$$$$$ 5 00490 369 699 G 08660 DCW 'UEPSN' $$$$$$$$$$$ 5 00495 369 700 G 08670 MSNAPEND EQU * $$$$$$$$$$$ 00496 701 G 08680 B MLTA ) 7 00496 J 00550 370 702 G 08690 MUEX/ DEFIN MUEX SECTION 00503 371 703 G 08700 MUEX EQU * 00503 + 704 G 08720 MLCB X15,IQXN/ 0 12 00503 D 00099 IQXN/ L 372 705 G 08730 MLCB 9 1 00515 D 372 G 706 G 08740 SW ESWC/ 3.11 FOR T 6 00516 , ESWC/ 372 L 707 G 08750 BXPA PURR/ DEFINITION T 7 00522 Y PURR/ X 372 77120 GENERATE SGF PAGE 40 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 708 G 08760 B UEPPURG OF ) 7 00529 J 00429 372 709 G 08770 /EOP/ DEFIN EOP THESE 00536 373 L 710 G 08780 EOP BXPA PURG/ OPERATIONS T 7 00536 Y PURG/ X 374 L 711 G 08790 BXPA PGRL/ T 7 00543 Y PGRL/ X 374 712 G 08800 * LOAD TRANSITIONAL MONITOR 713 G 08810 MLTA/ DEFIN MLTA 00550 375 714 G 08820 MLTA NOPWM 9 1 00550 N 376 715 G 08830 MUSE B MLT2 TO RETURN TO SOF ) 7 00551 J 00598 376 716 G 08840 MUSE/ DEFIN MUSE 00551 377 717 G 08850 MLT1 MLCA MLT93,PNM MOVE PGM NAME D 12 00558 D 00684 00042 T 378 718 G 08860 MLN ORG,SIZ RESTORE SIZ D 12 00570 D 00027 00032 A 378 G 719 G 08880 SW ZSSW/ LOCATE NEW PGM SW T 6 00582 , ZSSW/ 378 L 720 G 08890 B /LOD/ T 7 00588 J /LOD/ 378 721 G 08900 DCW +001 3 00597 379 722 G 08990 * MJB IN USE, CHANGE TO SOF 723 G 09000 MLT2 CW MUSE ' 6 00598 ) 00551 380 724 G 09020 MLCA ZSFC/,MJBC COUNT LOCATION OF MJB A 12 00604 D ZSFC/ 00229 T 380 725 G 09030 MLCA MSFC,ZSFC/ COUNT LOCATION OF SOF C 12 00616 D 00224 ZSFC/ T 380 726 G 09040 MLNA MLT91,ZSYM/ ADCON OF SOF C 12 00628 D 00669 ZSYM/ / 380 + 727 G 09050 ZA MLT92,X15 3 11 00640 0 00674 00099 381 L 728 G 09060 BXPA /MIO/ T 7 00651 Y /MIO/ X 381 729 G 09070 B MLT1 ) 7 00658 J 00558 381 730 G 09190 MLT91 DCW MSOF/ Q 5 00669 MSOF/ 381 731 G 09200 MLT92 DCW ZSOF/ Q 5 00674 ZSOF/ 381 732 G 09210 MLT93 DCW 'IBTRANSIT ' 10 00684 382 77120 GENERATE SGF PAGE 41 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 733 G 09220 * MONITOR WAIT LOOP 734 G 09230 /WAT/ DEFIN MWAIT 00685 383 735 G 09240 MWAIT SBR MWTEX+5 ) 7 00685 G 00715 B 384 736 G 09250 SW MWBR ' 6 00692 , 00718 384 737 G 09300 MWAT BW *-11,MWBR, D 12 00698 V 00698 00718 1 384 738 G 09310 MWAT/ DEFIN MWAT 00698 385 L 739 G 09320 MWTEX B 0 T 7 00710 J 00000 386 740 G 09330 NOP 9 1 00717 N 386 741 G 09340 MWBR DC ' ' 9 1 00718 386 742 G 09350 /WBR/ DEFIN MWBR 00718 387 77120 GENERATE SGF PAGE 42 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 743 G 09370 * CALL STATEMENTS 744 G 09380 CALL IBMVERSION 388 745 G 09390 CALL IBAINQUIRY 389 746 G 09400 CALL IBIOARM 390 747 G 09410 * RESIDENT I/O TABLES 748 G 09420 CALL IBFILE1R SY 391 749 G 09430 CALL IBFILE2R 392 750 G 09440 CALL IBFILE3R 393 751 G 09450 CALL IBFILE4R 394 752 G 09480 CALL IBPHR00001 395 753 G 09510 CALL IBPHR00002 396 754 G 09540 CALL IBPHR00003 397 755 G 09570 CALL IBPHR00004 398 756 G 09600 CALL IBPHR00005 399 757 G 09630 CALL IBPHR00006 400 758 G 10580 CALL IBLODFAZ 401 759 G 10590 CALL IBRDSIU 402 760 G 10610 * TAPE ORIENTED SYSTEM 761 G 10620 CALL IBBSPTP BACKSPACE TAPE 403 762 G 10630 CALL IBSIMTP SIMPLE SEARCH 404 763 G 10640 CALL IBZRRTP READ A SYSTEM RCD 405 764 G 10650 CALL IBABTPM ABSOLUTE LOAD TAP 406 765 G 10710 * STANDARD ROUTINES 766 G 10720 CALL IBPPCOMMON 407 767 G 10800 CALL IBPCHVAR PUNCH VARIABLE 408 77120 GENERATE SGF PAGE 43 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 768 G 10880 CALL IBPRTVAR PRINT VARIABLE 409 769 G 10900 CALL IBREADAIU 410 770 G 10920 CALL SNAPSHOT 411 771 G 10930 SPEND 77120 GENERATE SGF PAGE 44 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 772 G 10950 TITLE IBMENDM,0 413 773 G 10960 ORG 00000 00000 G 774 G 10970 DCW 'M' 1 00000 414 775 G 10980 /KER/ DEFIN KER 00001 415 776 G 10990 KER DS 1 1 00001 777 G 11010 /MKR/ DEFIN MKR 00001 416 778 G 11020 MKR EQU *-1 00001 G 779 G 11030 IBMENDENT MRCWM ZZZCON1,1 MOVE INST. TO 1 C 12 00002 D 00136 00001 M 417 G 780 G 11040 MLCWS 'M',99997+2 PUT WMGM AT END C 12 00014 D 03110 99999 7 417 G 781 G 11050 MLCWS 'M',99997+1 PUT WMGM AT END-1 C 12 00026 D 03110 99998 7 417 782 G 11180 MLCS X1-1,MORTEST1 PRESERVE UNIT A 12 00038 D 00028 00147 3 418 783 G 11190 MLCS X1-3,MORSEARCH+11 SET D MODIFIER A 12 00050 D 00026 00073 3 418 784 G 11200 * CONVERT BOOTSTRAP CHANNEL INDICATOR 785 G 11210 * TO OVERLAP CHARACTER 786 G 11220 MORSEARCH BCE MORSBR,MORNONOV-4 TEST CHAN. INDICATOR D 12 00062 B 00092 00087 418 787 G 11230 BCE 9 1 00074 B 418 788 G 11240 BCE 9 1 00075 B 418 789 G 11250 BCE 9 1 00076 B 418 790 G 11260 B MOROVERER ) 7 00077 J 02571 419 -+ 791 G 11270 MORNONOV DCW '00)('*$=' OVERLAP INVERTER 8 00091 420 L 792 G 11280 MORSBR SBR X2 T 7 00092 G 00034 B 421 793 G 11290 MLCS 14+X2,MORTEST1-1 MOVE OVERLAP CHAR A 12 00099 D 000J4 00146 3 421 + 794 G 11300 MLCA X1-1,ZSYX/ MODIFY ZRR IORW 0 12 00111 D 00028 ZSYX/ T 421 G 795 G 11310 S X1 CLEAR ZONES T 6 00123 S 00029 421 L 796 G 11320 B MLTA/ TO LOAD T/M T 7 00129 J MLTA/ 421 77120 GENERATE SGF PAGE 45 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 797 G 11330 ZZZCON1 B /UEP/ RESET START T 7 00136 J /UEP/ 422 798 G 11340 DCW '@' 9 1 00143 422 799 G 11350 * PRELIMINARY INITIALIZATION 800 G 11360 * 801 G 11370 * INDEX REFERENCES IN INITIALIZATION 802 G 11380 * 803 G 11390 * X7 MEXE/ T/M EXEQ CARD ROUTINE 804 G 11400 * 805 G 11410 * X08 MASN/ T/M ASGN CARD ROUTINE 806 G 11420 * 807 G 11430 * X10 MASI/ T/M INITIAL ASSGINMENT LINKAGES 808 G 11440 * FOR ASSIGNMENT MADE AT SYS GEN 809 G 11450 * X11 MCHG/ SIU/AIU SWITCH ROUTINE 810 G 11460 * 811 G 11470 * X12 SCNI/ SCAN INITIALIZE ROUTINE 812 G 11480 * 813 G 11490 MORH/ DEFIN MORHOLD 00144 423 814 G 11500 MORHOLD DCW ' ' CHAR. FROM 00000 2 00144 424 815 G 11590 MORTEST1 DCW ' ' 2 00147 424 816 G 11600 MORTEST2 DCW ' ' 2 00149 424 817 G 11710 MORP/ DEFIN MORPRIME 00150 425 818 G 11720 MORPRIME SBR MORPRETN+5 STORE T/M RETURN ) 7 00150 G 02305 B 426 L -- 819 G 11730 B 0+X10 MASI/, ASGN INITIALIZ T 7 00157 J 00000 426 820 G 11740 BW MORASGPU,MORHOLD ASSIGN SOF/SIU OPTION D 12 00164 V 00267 00144 1 426 821 G 11750 BCE MORPRIMEX,MSOF/,/ TEST UNRESOLVED C 12 00176 B 00254 MSOF/ / 426 77120 GENERATE SGF PAGE 46 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 822 G 11760 BCE MORPRIMEX,MSIU/,/ TEST UNRESOLVED C 12 00188 B 00254 MSIU/ / 427 + 823 G 11770 MLN MSOF/,X2 0 12 00200 D MSOF/ 00034 A 427 - 824 G 11810 MLCS 3+X2,MORTEST2-1 CHANNEL A 12 00212 D 00003 00148 3 427 - 825 G 11820 MLCS 4+X2,MORTEST2 UNIT A 12 00224 D 00004 00149 3 428 826 G 11830 C MORTEST1,MORTEST2 4 11 00236 C 00147 00149 428 827 G 11840 BE MORNORM OK ) 7 00247 J 00496 S 428 828 G 11850 MORPRIMEX CW MORPSMSG+2 SET FOR ALT MSG ' 6 00254 ) 02854 428 829 G 11860 SBR MORASGPU+5 ) 7 00260 G 00272 B 428 830 G 11870 * REQUEST SOF AND SIU ASSIGNMENT SYMBOLS 831 G 11880 * REQUEST SOF/SIU PHYS UNIT SYMBOLS 832 G 11890 MORASGPU CW MORPMESGE+1 ' 6 00267 ) 02858 429 833 G 11900 SBR MORCWDC ) 7 00273 G 02696 B 429 834 G 11910 B MORCW ) 7 00280 J 02654 429 L 835 G 11920 B /WAT/ T 7 00287 J /WAT/ 429 836 G 11930 MRC /RIQ/,MORMESGE STORE IN WORK AREA A 12 00294 D /RIQ/ 02892 = 429 837 G 11940 MRC 9 1 00306 D 429 + 838 G 11950 MLCA /CRD/,X4 HI-ORDER ADDR 0 12 00307 D /CRD/ 00044 T 430 G 839 G 11960 MLCWS 'M',27+X4 GM-WM TO TERMINATE TY C 12 00319 D 03110 00@27 7 430 840 G 11970 MLCS ' ',26+X4 SPACE C 12 00331 D 03111 00@26 3 430 841 G 11980 MLCS MORMESGE+1 LOW-ORDER SOF ASGN ' 6 00343 D 02893 430 842 G 11990 MLCS HI-ORDER SOF ASGN 9 1 00349 D 430 843 G 12000 MLCS MORMASK COMMA ' 6 00350 D 02982 431 844 G 12010 MLCA 'SOF',22+X4 SOF C 12 00356 D 03114 00@22 T 431 845 G 12020 MLCA 'ASGN ' ASGN ' 6 00368 D 03119 431 G 846 G 12030 CW 16+X4 SET UP TO TYPE T 6 00374 ) 00@16 431 77120 GENERATE SGF PAGE 47 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 847 G 12040 SBR MORCWDC ASGN MESSAGE ) 7 00380 G 02696 B 431 848 G 12050 B MORCW GO TO TYPE ROUTINE ) 7 00387 J 02654 432 L + 849 G 12060 B 0+X12 SCNI/ T 7 00394 J 00000 432 850 G 12070 DCW /CRD/ Q 5 00405 /CRD/ 432 851 G 12080 CW MORASGPU+1 SET ASGN ERR RTN ' 6 00406 ) 00268 432 852 G 12090 SBR MERR+5 ) 7 00412 G 02312 B 432 L - 853 G 12100 B 00+X8 MASN/ T 7 00419 J 00000 432 854 G 12110 MLCA 'SIU',22+X4 SET FOR SIU C 12 00426 D 03122 00@22 T 433 855 G 12120 MLCS MORMESGE+3,25+X4 LOW-ORDER SIU ASGN C 12 00438 D 02895 00@25 3 433 856 G 12130 MLCS HI-ORDER SIU ASGN 9 1 00450 D 433 G 857 G 12140 CW 16+X4 SET UP TO TYPE T 6 00451 ) 00@16 433 858 G 12150 SBR MORCWDC ASGN MESSAGE ) 7 00457 G 02696 B 433 859 G 12160 B MORCW GO TO TYPE ROUTINE ) 7 00464 J 02654 434 G 860 G 12170 CW 27+X4 CLEAR WM IN INPUT ARE T 6 00471 ) 00@27 434 L + 861 G 12180 B 0+X12 GO TO SCNI/ T 7 00477 J 00000 434 862 G 12190 DCW /CRD/ Q 5 00488 /CRD/ 434 L - 863 G 12200 B 00+X8 MASN/ T 7 00489 J 00000 434 L 864 G 12210 MORNORM BXPA /CLP/ OPEN SOF T 7 00496 Y /CLP/ X 434 865 G 12220 DCW ZSOF/ Q 5 00507 ZSOF/ 435 866 G 12230 NOP 9 1 00508 N 435 867 G 12240 MRC MOROPTNC,ZRWC/ MODIFY SIU REWIND OPT C 12 00509 D 03085 ZRWC/ = 435 868 G 12250 MRC MODIFY SIU REWIND OPT 9 1 00521 D 435 869 G 12260 MLC +ZRDC/,X2 C 12 00522 D 03127 00034 C 435 870 G 12270 MLC '00000',0-5+X2 ZERO LABEL EXTENSION C 12 00534 D 03132 999R5 C 435 L -+ 871 G 12280 B 0+X11 MCHG/ T 7 00546 J 00000 436 77120 GENERATE SGF PAGE 48 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 872 G 12290 DCW 'S' CONDITION TO SIU 9 1 00553 436 873 G 12300 DCW 'SIU' 3 00556 437 874 G 12310 B MORDEDEND ) 7 00557 J 02479 438 875 G 12320 MRC MOROPTNR,ZRWC/ RESTORE SIU REWIND OP C 12 00564 D 03089 ZRWC/ = 438 876 G 12330 MRC RESTORE SIU REWIND OP 9 1 00576 D 438 877 G 12340 MLN +/MLX/,0-5+X2 REPLACE LABEL EXTENSI C 12 00577 D 03137 999R5 A 438 G 878 G 12360 MORSIMSCH SW ZSSW/ SIMULATE SIM SEARCH T 6 00589 , ZSSW/ 438 L 879 G 12370 B /ZSS/ FOR TRANS MON T 7 00595 J /ZSS/ 439 880 G 12380 DCW '001' TO PRIME BLOCK CNT 3 00604 440 881 G 12390 DCW MORSIMSCH N 5 00609 00589 441 G 882 G 12400 CW ZSSW/ T 6 00610 ) ZSSW/ 441 883 G 12410 * TO DETERMINE INITIALIZATION STATUS 884 G 12420 MORIN EQU * 00616 885 G 12470 BCE MORTOP,MORHOLD,A INITIALIZATION D 12 00616 B 00879 00144 A 441 886 G 12480 BCE MORTOP,MORHOLD,B RE-INITIALIZATION WIT D 12 00628 B 00879 00144 B 441 887 G 12490 BCE MORNRW,MORHOLD,C RE-INIT W/O REWIND D 12 00640 B 01637 00144 C 442 888 G 12510 BCE MOREST,MORHOLD,D CHECKPOINT RESTART D 12 00652 B 00690 00144 D 442 889 G 12520 B MORSTOP ) 7 00664 J 02591 442 890 G 12540 * RESTART FROM INIT. 891 G 1255D MORPRESTA DCW 'ENTER ASGN FOR MDM',G 19 00671 443 892 G 1255E MOREST CW MORPRESTA+1 ' 6 00690 ) 00672 444 893 G 1255F SBR MORCWDC ) 7 00696 G 02696 B 444 894 G 1255G B MORCW ) 7 00703 J 02654 444 L 895 G 1255H B /WAT/ T 7 00710 J /WAT/ 444 + 896 G 1255I MLN /CRD/,X4 0 12 00717 D /CRD/ 00044 A 444 77120 GENERATE SGF PAGE 49 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 897 G 1255K MLCA MIQ2/,25+X4 0 12 00729 D MIQ2/ 00@25 T 445 898 G 1255L MLCA 'MDM,',23+X4 C 12 00741 D 03141 00@23 T 445 L + 899 G 1255M B 0+X12 T 7 00753 J 00000 445 900 G 1255N DCW /CRD/ Q 5 00764 /CRD/ 445 901 G 1255O CW MOREST+1 ' 6 00765 ) 00691 445 902 G 1255P SBR MERR+5 ) 7 00771 G 02312 B 446 L - 903 G 1255Q B 0+X8 T 7 00778 J 00000 446 904 G 12550 CW MORPRESTM+1 ' 6 00785 ) 03094 446 905 G 12560 SBR MORCWDC TYPE ) 7 00791 G 02696 B 446 906 G 12570 B MORCW ) 7 00798 J 02654 446 L 907 G 12580 B /WAT/ T 7 00805 J /WAT/ 446 + 908 G 12590 MLN /CRD/,X4 PRIME X4 0 12 00812 D /CRD/ 00044 A 447 909 G 12600 MLCA 'RESTART,,,',29+X4 PSEUDO EXEQ C 12 00824 D 03151 00@29 T 447 910 'RESTART,,,' 10 03151 448 + 911 G 12610 MLCA MIQ4/,62+X4 MOVE RESTART NUMBER 0 12 00836 D MIQ4/ 00@62 T 449 912 G 12620 MLCS 'D',63+X4 MOVE DELAYED RST IND. C 12 00848 D 03152 00@63 3 449 L + 913 G 12630 B 0+X12 TO SCAN INITIALIZE T 7 00860 J 00000 449 914 G 12640 DCW /CRD/ Q 5 00871 /CRD/ 449 L + 915 G 12650 B 0+X7 TO EXEQ CARD ROUTINE T 7 00872 J 00@00 449 916 G 12850 * INITIALIZATION + RE-INITIALIZATION WITH REWIND L 917 G 12860 MORTOP BXPA /CLP/ OPEN SIU T 7 00879 Y /CLP/ X 450 918 G 12870 DCW ZSIU/ Q 5 00890 ZSIU/ 450 919 G 12880 NOP 9 1 00891 N 450 L 920 G 12890 MORDSIU B MRSI/ GET NEXT SIU RECORD T 7 00892 J MRSI/ 450 921 G 12900 B MOREOF ANY EOF IS AN ERROR ) 7 00899 J 02551 450 77120 GENERATE SGF PAGE 50 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 922 G 12910 MLCA /CRD/,X4 SET X4 0 12 00906 D /CRD/ 00044 T 450 923 G 12920 C 9+X4,'MON$$' 1 11 00918 C 00@09 03157 451 924 G 12930 BU MORSEQERR NOT MONITOR CONTROL C ) 7 00929 J 01008 / 451 925 G 12940 C 18+X4,'ASGN' 1 11 00936 C 00@18 03161 451 926 G 12950 BE MORAS IS AN ASSIGN CARD ) 7 00947 J 02327 S 451 927 G 12960 C 17+X4,'JOB' 1 11 00954 C 00@17 03164 452 928 G 12970 BE MORJOB IS A JOB CARD ) 7 00965 J 01192 S 452 929 G 12980 C 18+X4,'DATE' 1 11 00972 C 00@18 03168 452 930 G 12990 BE MORDATE IS A DATE CARD ) 7 00983 J 01134 S 452 931 G 13010 C 18+X4,'SPOO' IS A SPOOL CARD 1 11 00990 C 00@18 03172 453 L 932 G 13020 BE 0 T 7 01001 J 00000 S 453 933 G 13030 SPCX/ DEFIN *-2 01006 454 934 G 13040 MORSEQERR EQU * 01008 935 G 13100 MLCA '**SEQ ERR**',72+X4 PRIOR TO FIRST JOB CA C 12 01008 D 03183 00@72 T 455 936 '**SEQ ERR**' 11 03183 456 937 G 13110 SPCR/ DEFIN * 01020 457 G 938 G 13120 MORTYPE CW 72+X4 SET REVERSE SCAN POIN T 6 01020 ) 00@72 458 939 G 13130 SBR MORTY01+10 ) 7 01026 G 01043 B 458 G G 940 G 13140 MORTY01 BBE MORTY02,0,M TEST FOR NON BLANK C 12 01033 W 01059 00000 M 458 941 G 13150 SBR MORTY01+10 SET POINTER FOR NEXT ) 7 01045 G 01043 B 458 942 G 13160 B MORTY01 RETURN TO TEST INSTRU ) 7 01052 J 01033 458 943 G 13170 MORTY02 MLCB MORTY01+10,X5 SETX5 FOR FIRST NON B C 12 01059 D 01043 00049 L 459 G 944 G 13180 MLCWS 'M',1+X5 STORE GMWM IN LEFTMOS C 12 01071 D 03110 00@@1 7 459 G 945 G 13190 MRCWM 15+X4,MORINTA MOVE TRIMMED CARD TO A 12 01083 D 00@15 02754 M 459 946 G 13200 MLCWS MORBLK,1+X5 CLEAR GMWM FROM CARD C 12 01095 D 02884 00@@1 7 460 77120 GENERATE SGF PAGE 51 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 947 G 13210 CW MORINTA+1 ' 6 01107 ) 02755 460 948 G 13220 SBR MORCWDC ) 7 01113 G 02696 B 460 949 G 13230 B MORCW ) 7 01120 J 02654 460 950 G 13240 B MORDSIU RETURN TO READ SIU ) 7 01127 J 00892 460 + 951 G 13250 MORDATE MLCB 24+X4,/DAT/ STORE DATE 0 12 01134 D 00@24 /DAT/ L 461 952 G 13300 B MORTYPE ) 7 01146 J 01020 461 953 G 13310 MORASKD CW MORASKDM+1 ASK FOR DATE INFO ' 6 01153 ) 02984 461 954 G 13320 SBR MORCWDC ) 7 01159 G 02696 B 461 955 G 13330 B MORCW ) 7 01166 J 02654 461 L 956 G 13340 B /WAT/ T 7 01173 J /WAT/ 462 + 957 G 13350 MLCB MMIE/,/DAT/ 0 12 01180 D MMIE/ /DAT/ L 462 958 G 13400 MORJOB BCE MORASKD,/DAT/, TEST FOR ABSENCE OF D C 12 01192 B 01153 /DAT/ 462 959 G 13420 BCE MOREND,MORHOLD,A INIT FIRST JOB CARD F D 12 01204 B 01620 00144 A 462 960 G 13450 CW MOREQJ+1 ASK FOR JOB SEARCH NU ' 6 01216 ) 02813 463 961 G 13460 SBR MORCWDC ) 7 01222 G 02696 B 463 962 G 13470 B MORCW ) 7 01229 J 02654 463 L 963 G 13480 B /WAT/ T 7 01236 J /WAT/ 463 964 G 13490 MRC /RIQ/,MORMESGE MOVE REPLY TO WORK AR A 12 01243 D /RIQ/ 02892 = 463 965 G 13500 MRC 9 1 01255 D 463 966 G 13510 MLCB MORMESGE+1,MORJCT MOVE SIU COUNT D 12 01256 D 02893 02882 L 464 967 G 13520 A '1',MSIJ/ ADD ONE TO RES. SIU C 3 11 01268 A 03184 MSIJ/ 464 968 G 13530 A '1',MORJCT ADJUST SEARCH COUNT 4 11 01279 A 03184 02882 464 969 G 13540 MORCOMP C MORJCT,MSIJ/ COMPARE SEARCH COUNT 3 11 01290 C 02882 MSIJ/ 464 970 G 13550 BL MORDSIU2 LOW CONTINUE SEARCH ) 7 01301 J 01335 T 465 971 G 13560 BE MORDJBFD EQU JOB CARD FOUND ) 7 01308 J 01470 S 465 77120 GENERATE SGF PAGE 52 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 972 G 13570 MORTROUBLE SW MORTRUBLE+1 ' 6 01315 , 02717 465 973 G 13580 SBR MORHLTHERE ) 7 01321 G 02627 B 465 974 G 13590 B MORHLTTYP ) 7 01328 J 02604 465 L 975 G 13600 MORDSIU2 B MRSI/ FIND NEW SIU RECORD T 7 01335 J MRSI/ 465 976 G 13610 B MOREOF EOF IS AN ERROR ) 7 01342 J 02551 466 + 977 G 13620 MLCA /CRD/,X4 SET X4 0 12 01349 D /CRD/ 00044 T 466 978 G 13630 C 9+X4,'MON$$' 1 11 01361 C 00@09 03157 466 979 G 13640 BU MORDSIU2 NOT MONITOR CARD ) 7 01372 J 01335 / 466 980 G 13650 C 18+X4,'ASGN' IS IT AN ASGN CARD 1 11 01379 C 00@18 03161 467 981 G 13660 BE MORAS2 IS AN ASSIGN CARD ) 7 01390 J 02499 S 467 982 G 13670 C 17+X4,'JOB' 1 11 01397 C 00@17 03164 467 983 G 13680 BU MORDSIU2 NOT A JOB CARD ) 7 01408 J 01335 / 467 984 G 13690 A '1',MSIJ/ ADD ONE TO RESIDENT C 3 11 01415 A 03184 MSIJ/ 468 985 G 13692 MLCB X2,SAVEX2 SAVE X1 AND X2 A 12 01426 D 00034 01636 L 468 G - 986 G 13694 SW 8+X8 BRANCH TO T 6 01438 , 00008 468 L - 987 G 13696 B 0+X8 CLOSE OUT JOB RTN T 7 01444 J 00000 468 988 G 13698 MLCA SAVEX2,X2 RESTORE X1 AND X2 C 12 01451 D 01636 00034 T 469 989 G 13700 B MORCOMP ) 7 01463 J 01290 469 990 G 13710 MORDJBFD MLCB MORMESGE+3,MORJCT MOVE AIU COUNT D 12 01470 D 02895 02882 L 469 991 G 13720 MLCA MORBLK,MORMESGE+3 BLANK AIU COUNT D 12 01482 D 02884 02895 T 469 992 G 13730 S '1',MSIJ/ DECREMENT COUNT BY ON 3 11 01494 S 03184 MSIJ/ 470 993 G 13740 BCE MOREXJ,MORJCT, EXIT IF NO AIU COUNT D 12 01505 B 01578 02882 470 994 G 13750 MLCA /CRD/,MORCRD SAVE / CRD/ A 12 01517 D /CRD/ 02889 T 470 L -+ 995 G 13760 B 0+X11 T 7 01529 J 00000 470 996 G 13770 DCW 'A' 9 1 01536 470 77120 GENERATE SGF PAGE 53 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 997 G 13780 DCW 'AIU' 3 01539 471 998 G 13790 B MORDEDEND ) 7 01540 J 02479 472 999 G 13800 MLC MSIJ/,MORSIJ STORE IN HOLD AREA A 12 01547 D MSIJ/ 02891 C 472 1000 G 13810 MLC MORBLK,MSIJ/ CLEAR SIU COUNT C 12 01559 D 02884 MSIJ/ C 472 1001 G 13820 B MORCOMP-11 RETURN TO AIU ) 7 01571 J 01279 472 1002 G 13830 MOREXJ BCE MOREND,MORSIJ, WAS THERE A PRIOR COU D 12 01578 B 01620 02891 473 + 1003 G 13840 MLCA MSIJ/,MAIJ/ PUT CURRENT COUNT TO 0 12 01590 D MSIJ/ MAIJ/ T 473 1004 G 13850 MLCA MORSIJ,MSIJ/ RESET SIU COUNT C 12 01602 D 02891 MSIJ/ T 473 G 1005 G 13860 SW MSKJ/ SET AIU SWITCH T 6 01614 , MSKJ/ 473 1006 G 13870 MOREND B MOROPEN ) 7 01620 J 02252 474 1007 G 13871 SAVEX2 DCW ' ' X1 AND X2 BUCKET 10 01636 475 1008 G 13890 * RE-INITIALIZATION WITHOUT REWIND + 1009 G 13900 MORNRW MLCA /CRD/,X4 PRIME X4 0 12 01637 D /CRD/ 00044 T 476 1010 G 13910 MLCA MORMASK,23+X4 SET MASK C 12 01649 D 02982 00@23 T 476 1011 G 13920 CW MOREQD+1 REQUEST DATE ' 6 01661 ) 02899 476 1012 G 13930 SBR MORCWDC ) 7 01667 G 02696 B 476 1013 G 13940 B MORCW ) 7 01674 J 02654 476 L 1014 G 13950 MORTRDT B /WAT/ T 7 01681 J /WAT/ 477 1015 G 13960 MRC /RIQ/,MORMESGE SET TO TEMP A 12 01688 D /RIQ/ 02892 = 477 1016 G 13970 MRC 9 1 01700 D 477 1017 G 13980 BZN MORDOK,MORMESGE+3,2 S/B NO ZONE D 12 01701 V 01740 02895 2 477 1018 G 13990 CW MORBDD+1 REQUEST DATE FIRST ' 6 01713 ) 02963 477 1019 G 14000 SBR MORCWDC ) 7 01719 G 02696 B 478 1020 G 14010 B MORCW ) 7 01726 J 02654 478 1021 G 14020 B MORTRDT ) 7 01733 J 01681 478 77120 GENERATE SGF PAGE 54 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1022 G 14030 MORDOK MLCB MORMESGE+4,/DAT/ STORE DATE C 12 01740 D 02896 /DAT/ L 478 1023 G 14040 MORDINF CW MORIOJN+1 ASK IO OR JOB NO ' 6 01752 ) 02941 478 1024 G 14050 SBR MORCWDC ) 7 01758 G 02696 B 479 1025 G 14060 B MORCW ) 7 01765 J 02654 479 L 1026 G 14070 B /WAT/ T 7 01772 J /WAT/ 479 1027 G 14080 SW MORBREAK SET SHORT MESSAGE ' 6 01779 , 02948 479 1028 G 14090 MRC /RIQ/,MORMESGE MOVE INQ TO TEMP A 12 01785 D /RIQ/ 02892 = 479 1029 G 14100 MRC 9 1 01797 D 479 1030 G 14110 BZN MORJIN,MORMESGE,2 D 12 01798 V 01873 02892 2 480 1031 G 14120 MLCA MORMESGE+4,25+X4 SET UP PSEUDO ASGN CD C 12 01810 D 02896 00@25 T 480 1032 G 14130 MLCA MORMESGE+2,22+X4 C 12 01822 D 02894 00@22 T 480 L + 1033 G 14140 B 0+X12 SCNI/ T 7 01834 J 00000 480 1034 G 14150 DCW /CRD/ Q 5 01845 /CRD/ 481 1035 G 14160 CW MRTN1+1 SET ASGN ERR RTN ' 6 01846 ) 02315 481 1036 G 14170 SBR MERR+5 ) 7 01852 G 02312 B 481 L - 1037 G 14180 B 00+X8 MASN/ T 7 01859 J 00000 481 1038 G 14190 B MORDINF ) 7 01866 J 01752 481 1039 G 14400 MORJIN MLCB MORMESGE+1,MSIJ/ STORE SIU COUNT C 12 01873 D 02893 MSIJ/ L 482 1040 G 14410 MLCB MORMESGE+3,MAIJ/ STORE AIU COUNT C 12 01885 D 02895 MAIJ/ L 482 1041 G 14420 MLCA MAIJ/,MORSIJ STORE AIU IN TEMP A 12 01897 D MAIJ/ 02891 T 482 1042 G 14430 MLCS 'N',ZRWC/ OPEN SIU W/O RWND C 12 01909 D 03185 ZRWC/ 3 483 1043 G 14440 MLC +ZRDC/,X2 C 12 01921 D 03127 00034 C 483 1044 G 14450 MLC '00000',0-5+X2 ZERO LABEL EXTENSION C 12 01933 D 03132 999R5 C 483 L 1045 G 14460 BXPA /CLP/ T 7 01945 Y /CLP/ X 483 1046 G 14470 DCW ZSIU/ Q 5 01956 ZSIU/ 484 77120 GENERATE SGF PAGE 55 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1047 G 14480 NOP 9 1 01957 N 484 1048 G 14490 MLCS 'R',ZRWC/ C 12 01958 D 03186 ZRWC/ 3 484 1049 G 14500 MLN +/MLX/,0-5+X2 REPLACE LABEL EXTENSI C 12 01970 D 03137 999R5 A 484 L 1050 G 14510 BXPA /UNC/ BACKSPACE SIU TWICE T 7 01982 Y /UNC/ X 484 1051 G 14520 DCW MSIU/ Q 5 01993 MSIU/ 484 1052 G 14530 BSP 'U1 M 5 01994 U 'U1 B 485 1053 G 14540 BW *-11,*-26 D 12 01999 V 01999 01984 1 485 L 1054 G 14541 BXPA /UNC/ T 7 02011 Y /UNC/ X 485 1055 G 14550 DCW MSIU/ Q 5 02022 MSIU/ 485 1056 G 14560 BSP 'U1 M 5 02023 U 'U1 B 485 1057 G 14580 BW *-11,*-26 D 12 02028 V 02028 02013 1 486 L 1058 G 14590 MORDSIU3 B MRSI/ READ SIU UP TO NEXT J T 7 02040 J MRSI/ 486 1059 G 14600 B MOREOF ) 7 02047 J 02551 486 + 1060 G 14610 MLCA /CRD/,X4 PRIME X4 0 12 02054 D /CRD/ 00044 T 486 1061 G 14620 C 9+X4,'MON$$' 1 11 02066 C 00@09 03157 487 1062 G 14630 BU MORDSIU3 NOT MON. CARD ) 7 02077 J 02040 / 487 1063 G 14640 C 17+X4,'JOB' 1 11 02084 C 00@17 03164 487 1064 G 14650 BU MORDSIU3 NOT JOB CARD ) 7 02095 J 02040 / 487 1065 G 14660 BCE MOROPEN,MORSIJ, READ UP COMPLETED D 12 02102 B 02252 02891 488 1066 G 14670 MLCB ' ',MORSIJ CLEAR TEMP D 12 02114 D 03191 02891 L 488 + 1067 G 14680 MLCA X4,MCRD/ SAVE /CRD/ 0 12 02126 D 00044 MCRD/ T 488 1068 G 14690 MLCS 'N',ZRWC/ SET AIU NO RWD C 12 02138 D 03185 ZRWC/ 3 489 1069 G 14700 MLC +ZRDC/,X2 C 12 02150 D 03127 00034 C 489 1070 G 14710 MLC '00000',0-5+X2 ZERO LABEL EXTENSION C 12 02162 D 03132 999R5 C 489 L -+ 1071 G 14720 B 0+X11 MCHG/ T 7 02174 J 00000 489 77120 GENERATE SGF PAGE 56 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1072 G 14730 DCW 'A' SWITCH TO AIU 9 1 02181 489 1073 G 14740 DCW 'AIU' 3 02184 490 1074 G 14750 B MORDEDEND ) 7 02185 J 02479 491 1075 G 14760 MLCS 'R',ZRWC/ C 12 02192 D 03186 ZRWC/ 3 491 1076 G 14770 MLN +/MLX/,0-5+X2 REPLACE LABEL EXTENSI C 12 02204 D 03137 999R5 A 491 L 1077 G 14780 BXPA /UNC/ T 7 02216 Y /UNC/ X 491 1078 G 14790 DCW /AIU/ BACKSPACE AIU ONCE Q 5 02227 /AIU/ 491 1079 G 14800 BSP 'U1 M 5 02228 U 'U1 B 492 1080 G 14810 BW *-11,*-26 D 12 02233 V 02233 02218 1 492 1081 G 14820 B MORDSIU3 RETN TO READ UP AIU ) 7 02245 J 02040 492 1082 G 14830 MOROPEN EQU * 02252 1083 G 14840 MLCB /DAT/,MORPROD-5 MODIFY DATE A 12 02252 D /DAT/ 02748 L 492 1084 G 14850 MLCB FOR IOCS 9 1 02264 D 492 1085 G 14860 M '2739',MORPROD RETENTION MATH 4 11 02265 ' 03195 02753 493 1086 G 14870 MLCA MORPRODY,MORPROD-6 D 12 02276 D 02745 02747 T 493 1087 G 14880 MLCB MORPROD-3,DAYS/ C 12 02288 D 02750 DAYS/ L 493 L 1088 G 15270 MORPRETN B 0 T 7 02300 J 00000 493 1089 G 15280 MERR/ DEFIN MERR COMMON RETURN POINT 02307 494 L 1090 G 15290 MERR B 0 FOR ASSIGN ERRORS T 7 02307 J 00000 495 1091 G 15310 MRTN1 CW MORBREAK ' 6 02314 ) 02948 495 1092 G 15320 B MORDINF ) 7 02320 J 01752 495 L + 1093 G 15330 MORAS B 0+X12 SCNI/ T 7 02327 J 00000 495 1094 G 15340 DCW /CRD/ Q 5 02338 /CRD/ 495 1095 G 15350 CW MORPREAS+1 SET ASGN ERR RTN ' 6 02339 ) 02367 495 1096 G 15360 SBR MERR+5 ) 7 02345 G 02312 B 496 77120 GENERATE SGF PAGE 57 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L - 1097 G 15370 B 00+X8 MASN/ T 7 02352 J 00000 496 1098 G 15450 B MORTYPE ) 7 02359 J 01020 496 D 1099 G 15500 MORPREAS MRCWG MORPREAM,33+X4 SET ERROR MESSAGE C 12 02366 D 03000 00@33 L 496 G 1100 G 15510 CW 16+X4 T 6 02378 ) 00@16 496 1101 G 15520 SBR MORCWDC ) 7 02384 G 02696 B 497 1102 G 15530 B MORCW ) 7 02391 J 02654 497 1103 G 15540 CW 33+X4,51+X4 CLEAR WM FROM READ AR 0 11 02398 ) 00@33 00@51 497 L 1104 G 15550 B /WAT/ T 7 02409 J /WAT/ 497 1105 G 15560 MRC /RIQ/,MORMESGE A 12 02416 D /RIQ/ 02892 = 497 1106 G 15570 MRC 9 1 02428 D 498 1107 G 15580 MLCA MORMESGE+4,25+X4 SET UP PSEUDO ASGN CD C 12 02429 D 02896 00@25 T 498 1108 G 15590 MLCA ',' ' 6 02441 D 03196 498 1109 G 15591 MLCA MORMESGE+2 ' 6 02447 D 02894 498 L + 1110 G 15600 B 0+X12 SCNI/ T 7 02453 J 00000 498 1111 G 15610 DCW /CRD/ Q 5 02464 /CRD/ 498 L - 1112 G 15620 B 00+X8 MASN/ T 7 02465 J 00000 499 1113 G 15630 B MORDSIU ) 7 02472 J 00892 499 1114 G 15640 MORDEDEND CW MORDENDM+1 ' 6 02479 ) 03057 499 1115 G 15650 SBR MORHLTHERE ) 7 02485 G 02627 B 499 1116 G 15660 B MORHLTTYP ) 7 02492 J 02604 499 L + 1117 G 15670 MORAS2 B 0+X12 SCNI/ T 7 02499 J 00000 499 1118 G 15680 DCW /CRD/ Q 5 02510 /CRD/ 500 1119 G 15690 CW MORDSIU2+1 SET UP ASGN ERR RTN ' 6 02511 ) 01336 500 1120 G 15700 SBR MERR+5 ) 7 02517 G 02312 B 500 L - 1121 G 15710 B 00+X8 MASN/ T 7 02524 J 00000 500 77120 GENERATE SGF PAGE 58 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1122 G 15720 B MORDSIU2 ) 7 02531 J 01335 500 1123 G 15730 MORB/ DEFIN MORBINQ 02538 501 G 1124 G 15740 MORBINQ CW /WBR/ INIT INQUIRY RETURN T 6 02538 ) /WBR/ 502 L 1125 G 15750 BXPA MDEL/ TO IOCS T 7 02544 Y MDEL/ X 502 1126 G 15760 MOREOF SW MOREOFMSG+1 ' 6 02551 , 03037 502 1127 G 15770 SBR MORHLTHERE ) 7 02557 G 02627 B 502 1128 G 15780 B MORHLTTYP ) 7 02564 J 02604 502 1129 G 15790 MOROVERER CW MOROVERMS+1 ' 6 02571 ) 02831 502 1130 G 15800 SBR MORHLTHERE ) 7 02577 G 02627 B 503 1131 G 15810 B MORHLTTYP ) 7 02584 J 02604 503 1132 G 15820 MORSTOP SW MORHLTMSG+1 ' 6 02591 , 03020 503 1133 G 15830 SBR MORHLTHERE ) 7 02597 G 02627 B 503 1134 G 15840 MORHLTTYP BZN *-11,/CTB/, C 12 02604 V 02604 /CTB/ 2 503 L 1135 G 15850 BXPA /CNC/ T 7 02616 Y /CNC/ X 504 1136 G 15860 MORHLTHERE DCW ' ' 5 02627 505 1137 G 15870 BZN *-11,/CTB/, C 12 02628 V 02628 /CTB/ 2 506 L 1138 G 15880 B /WAT/ T 7 02640 J /WAT/ 506 1139 G 15890 B MORHLTTYP ) 7 02647 J 02604 506 1140 G 15900 * 1141 G 15910 * INITIALIZATION COMMON WRITE CONSOLE 1142 G 15920 * 1143 G 15930 * 1144 G 15940 MORCW SBR MORCWEXIT+5 STORE RETURN ) 7 02654 G 02714 B 506 1145 G 15950 MLCA MOR5BL,MMIE/ CLEAR CONSOLE INPUT C 12 02661 D 02743 MMIE/ T 506 1146 G 15960 BZN *-11,/CTB/ TYPE MESSAGE C 12 02673 V 02673 /CTB/ 2 507 77120 GENERATE SGF PAGE 59 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 1147 G 15970 BXPA /CNC/ T 7 02685 Y /CNC/ X 507 1148 G 15980 MORCWDC DCW ' ' 5 02696 508 1149 G 15990 BZN *-11,/CTB/ C 12 02697 V 02697 /CTB/ 2 509 L 1150 G 16000 MORCWEXIT B 0 RETURN TO PROG T 7 02709 J 00000 509 1151 G 16230 * INITIALIZATION CONSTANT AREA 1152 G 16240 MORTRUBLE DCW 'JOB SEARCH OUT OF STEP',G 23 02716 510 1153 G 16250 MOR5BL DCW ' ' 5 02743 510 1154 G 16260 MORPRODY DCW ' ' 2 02745 510 1155 G 16270 MORPROD DCW ' ' 8 02753 510 1156 G 16280 MORINTA DCW ' ' 26 02754 511 1157 G 16290 DC ' ' 31 02810 512 G 1158 G 16300 DCW 'M' 1 02811 512 1159 G 16310 MOREQJ DCW 'ENTER JOB NUMBERS' 17 02812 512 G 1160 G 16320 DCW 'M' 1 02829 512 1161 G 16330 MOROVERMS DCW 'INV CHAN CHAR IN INIT',G 22 02830 513 1162 G 16340 MORPSMSG DCW 'MUST ' 5 02852 513 1163 G 16350 MORPMESGE DCW 'ENTER SOF/SIU ASGN SYMB',G 24 02857 514 1164 G 16360 MORJCT DCW ' ' 2 02882 514 1165 G 16370 MORBLK DCW ' ' 2 02884 514 1166 G 16380 MORCRD DCW ' ' 5 02889 514 1167 G 16390 MORSIJ DCW ' ' 2 02891 514 1168 G 16400 MORMESGE DA 1X6 6 02892 1169 G 16410 4,4 02895 516 1170 G 16420 6,6 02897 517 1171 G 16430 MOREQD DCW 'ENTER DATE , IO ASSIGNMENTS , JOB NUMBERS' 41 02898 518 77120 GENERATE SGF PAGE 60 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G 1172 G 16440 DCW 'M' 1 02939 518 1173 G 16450 MORIOJN DCW 'IO OR JN' 8 02940 518 G 1174 G 16460 MORBREAK DCW 'M' 1 02948 519 1175 G 16470 DCW 'RE ENTER XXX',G 13 02960 519 1176 G 16480 MORBDD DCW 'ENTER DATE FIRST',G 17 02962 519 1177 G 16490 MORMASK DCW 'M ,' 4 02982 519 1178 G 16500 MORASKDM DCW 'DATE NOT ENTERED',G 17 02983 520 1179 G 16510 MORPREAM DCW 'INVALID ASSIGNMENT',G 19 03000 520 1180 G 16520 MORHLTMSG DCW 'INV INITIAL CHAR',G 17 03019 521 1181 G 16530 MOREOFMSG DCW 'EOF SIU/AIU IN INIT',G 20 03036 521 1182 G 16540 MORDENDM DCW '00504 SIU/AIU SWITCH FAILED',G 29 03056 522 1183 G 16550 MOROPTNC DC 'NRU' SIU REWIND OPTIONS - 3 03085 522 1184 G 16560 DCW 'N' SIU REWIND OPTIONS - 1 03088 522 1185 G 16570 MOROPTNR DC 'RRU' SIU REWIND OPTIONS 3 03089 522 1186 G 16580 DCW 'U' SIU REWIND OPTIONS 1 03092 522 1187 G 16620 MORPRESTM DCW 'ENTER RST NUMBER',G 17 03093 523 1188 G 16630 * END OF INITIALIZATION ROUTINES 1189 G 16640 LTORG * 03110 G 1190 'M' 1 03110 523 1191 ' ' 1 03111 523 1192 'SOF' 3 03114 523 1193 'ASGN ' 5 03119 523 1194 'SIU' 3 03122 523 1195 ZRDC/ Q 5 03127 ZRDC/ 524 1196 '00000' 5 03132 525 77120 GENERATE SGF PAGE 61 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1197 /MLX/ Q 5 03137 /MLX/ 526 1198 'MDM,' 4 03141 527 1199 'D' 1 03152 528 1200 'MON$$' 5 03157 528 1201 'ASGN' 4 03161 528 1202 'JOB' 3 03164 528 1203 'DATE' 4 03168 528 1204 'SPOO' 4 03172 528 1205 '1' 1 03184 529 1206 'N' 1 03185 529 1207 'R' 1 03186 529 1208 ' ' 5 03191 529 1209 '2739' 4 03195 529 1210 ',' 1 03196 529 1211 G 16650 MORE/ DEFIN MORE 03197 530 1212 G 16660 MORE DS 1 HIGHEST LOC. INITIALI 1 03197 1213 G 16670 SPEND IBMENDENT 00002 77120 GENERATE SGF PAGE 62 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1214 G 16690 TITLE IBTRANSIT,0 532 1215 G 16700 BASE1 MORE/ 533 1216 G 16710 ORG 00000 00000 1217 G 16720 DCW '****01TM' MODULE IDENT 8 00007 534 1218 G 16730 * ENTRY POINT TO TRANSITIONAL MONITOR 1219 G 16740 * DETERMINE REASON FOR LOADING TM 1220 G 16750 MEPENTER MLZWA ' ',X15 CLEAR ZONE X15,X14,X1 C 12 00008 D 01785 00099 W 535 + 1221 G 16760 MLZWA X15,X14 0 12 00020 D 00099 00094 W 535 1222 G 16770 MLZWA 9 1 00032 D 535 1223 G 16780 MLCWA ' ',X12 CLEAR TO BLANK C 12 00033 D 01785 00084 X 535 + 1224 G 16790 MLCWA X12,X11 ALL OTHER 0 12 00045 D 00084 00079 X 536 1225 G 16800 MLCWA 9 1 00057 D 536 1226 G 16810 MLCWA INDEX REGISTERS 9 1 00058 D 536 1227 G 16820 MLCWA 9 1 00059 D 536 1228 G 16830 MLCWA 9 1 00060 D 536 1229 G 16840 MLCWA 9 1 00061 D 536 1230 G 16850 MLCWA 9 1 00062 D 536 1231 G 16860 MLCWA 9 1 00063 D 536 1232 G 16870 MLCWA 9 1 00064 D 536 1233 G 16880 MLCWA 9 1 00065 D 536 1234 G 16890 MLCWA 9 1 00066 D 536 1235 G 16900 BDV *+1 ) 7 00067 J 00074 W 536 1236 G 16910 BAV *+1 ) 7 00074 J 00081 Z 537 G 1237 G 16920 MLCWS 'M',99997+2 C 12 00081 D 01786 99999 7 537 G 1238 G 16930 MLCWS 'M',99997+1 C 12 00093 D 01786 99998 7 537 77120 GENERATE SGF PAGE 63 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G 1239 G 16940 MRCWM ZZZZCON1,1 C 12 00105 D 00946 00001 M 537 1240 G 16950 MLCS ' ',/MCI/ BLANK $3N SAVE AREA C 12 00117 D 01787 /MCI/ 3 538 1241 G 16970 * CLEAR TABLE OF OPEN TAPE FILE ADDRESSES 1242 G 16980 MLC +/RSB/,X1 ADCON OF LAST TAPE EN C 12 00129 D 01792 00029 C 538 1243 G 16990 MEPCLEAR MLCA MEPBL,0+X1 BLANK C 12 00141 D 00944 000@0 T 538 1244 G 17000 S +14,X1 DECREMENT TO NEXT 3 11 00153 S 01794 00029 538 1245 G 17010 C +/RSC/,X1 TEST END 3 11 00164 C 01799 00029 539 1246 G 17020 BH MEPCLEAR AGAIN ) 7 00175 J 00141 U 539 + T 1247 G 17030 MRCW 0,MORH/ RETAIN INITIALIZATION 0 12 00182 D 00000 MORH/ M 539 1248 G 17040 BCE MEPPRIME,MORH/, TEST FOR BLANK C 12 00194 B 00478 MORH/ 539 T 1249 G 17050 MRCW MEPBL,0 BLANK LOC ZERO C 12 00206 D 00944 00000 M 540 1250 G 17060 * INITIALIZATION OR DELAYED RESTART G 1251 G 17070 SW MINB/ SET TO ACCEPT INIT ME T 6 00218 , MINB/ 540 L 1252 G 17080 SBR MIBB/ SET B MESSAGE BRANCH T 7 00224 G MIBB/ B 540 G 1253 G 17090 SW MIQB/ T 6 00231 , MIQB/ 540 G 1254 G 17110 CW SPCI/ T 6 00237 ) SPCI/ 540 L 1255 G 17120 SBR SPCX/ T 7 00243 G SPCX/ B 541 1256 G 17130 MLCA MORDC1,X12 STORE FORWARD C 12 00250 D 00477 00084 T 541 1257 G 17140 MLCA MORDC1-15,X8 REFERENCE LINKAGES C 12 00262 D 00462 00064 T 541 G 1258 G 17150 CW XSTP/ T 6 00274 ) XSTP/ 541 L 1259 G 17160 B MORP/ T 7 00280 J MORP/ 541 G 1260 G 17170 SW XSTP/ T 6 00287 , XSTP/ 542 1261 G 17190 MLC MEPRARS,X12 C 12 00293 D 00451 00084 C 542 + 1262 G 17210 BW MEPNEXT1,3+X12 C 12 00305 V 00324 00003 1 542 1263 G 17220 B *+44 ) 7 00317 J 00367 542 77120 GENERATE SGF PAGE 64 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + + + 1264 G 17230 MEPNEXT1 MLCA 2+X12,22+X12 0 12 00324 D 00002 00022 T 543 + + + 1265 G 17240 MLCA 4+X12,25+X12 0 12 00336 D 00004 00025 T 543 L 1266 G 17250 B SCNI/ T 7 00348 J SCNI/ 543 1267 G 17260 DCW MEPRARS N 5 00359 00451 543 L 1268 G 17270 B MASN/ T 7 00360 J MASN/ 543 + 1269 G 17290 BW MEPNEXT2,8+X12 C 12 00367 V 00386 00008 1 544 1270 G 17300 B *+44 ) 7 00379 J 00429 544 + + + 1271 G 17310 MEPNEXT2 MLCA 7+X12,22+X12 0 12 00386 D 00007 00022 T 544 + + + 1272 G 17320 MLCA 9+X12,25+X12 0 12 00398 D 00009 00025 T 544 L 1273 G 17330 B SCNI/ T 7 00410 J SCNI/ 545 1274 G 17340 DCW MEPRARS N 5 00421 00451 545 L 1275 G 17350 B MASN/ T 7 00422 J MASN/ 545 1276 G 17510 MEPNEXT5 CW MINB/,MIQB/ 0 11 00429 ) MINB/ MIQB/ 545 L 1277 G 17520 B MJOB/ T 7 00440 J MJOB/ 545 1278 G 17530 MEPRARS DCW RARS/ Q 5 00451 RARS/ 545 1279 G 17540 DCW ' ' 1 00452 546 1280 G 17550 DC MEXE/ X7 Q 5 00457 MEXE/ 547 1281 G 17560 DC MASN/ X08 Q 5 00462 MASN/ 547 1282 G 17570 DCW MASI/ X10 Q 5 00467 MASI/ 547 1283 G 17580 DC MCHG/ Q 5 00472 MCHG/ 547 1284 G 17590 MORDC1 DC SCNI/ X12 Q 5 00477 SCNI/ 547 1285 G 17600 * EOP 1286 G 17610 MEPPRIME BW MEPRESTI,MOUC/ 3RD OPERAND IN EFFECT C 12 00478 V 00637 MOUC/ 1 547 1287 G 17620 MEP01 BBE MEPREST,MRST/,8 RESTART INDICATED C 12 00490 W 00803 MRST/ 8 548 1288 G 17630 BCE MEOPSKPT,MUEA/, UEP NOT INDICATED C 12 00502 B 00753 MUEA/ 548 77120 GENERATE SGF PAGE 65 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1289 G 17640 MUEP/ DEFIN MUEP 00514 549 1290 G 17650 MUEP EQU * 00514 1291 G 17670 NOPWM 9 1 00514 N 550 L 1292 G 17680 B SPAR/ T 7 00515 J SPAR/ 550 1293 G 17690 SMUP/ DEFIN *-7 00515 551 1294 G 17700 BCE MEPSTB,MMUF/,9 GENERAL UEP C 12 00522 B 00784 MMUF/ 9 552 1295 G 17710 MEPCWR BZN *-11,/CTB/ C 12 00534 V 00534 /CTB/ 2 552 L 1296 G 17720 BXPA /CNC/ T 7 00546 Y /CNC/ X 552 1297 G 17730 DCW MMUE/ Q 5 00557 MMUE/ 552 1298 G 17740 BZN *-11,/CTB/ C 12 00558 V 00558 /CTB/ 2 553 1299 G 17750 MLCA MEPBL,MUEA/ C 12 00570 D 00944 MUEA/ T 553 1300 G 17760 MLCA MEPBL,MMUG/ C 12 00582 D 00944 MMUG/ T 553 1301 G 17770 MLCS MEPCWR-1,MMUF/ C 12 00594 D 00533 MMUF/ 3 554 + 1302 G 17780 BZN RDMN/,MSKJ/,A TEST MODE INDICATED 0 12 00606 V RDMN/ MSKJ/ S 554 1303 G 17790 MESKIP EQU * 00618 + 1304 G 17800 MLNS MEP8/,MSKJ/ SET SKIP TO JOB SWITC 0 12 00618 D MEP8/ MSKJ/ 1 554 L 1305 G 17810 B RDMN/ RETURN TO READ CONTRO T 7 00630 J RDMN/ 554 1306 G 17820 * THIRD OPERAND OF EXEQ WAS IN EFFECT L 1307 G 17830 MEPRESTI B MCHG/ SET RETURN TO SIU T 7 00637 J MCHG/ 555 1308 G 17840 DCW 'S' 9 1 00644 555 1309 G 17850 DCW 'SIU' 3 00647 556 1310 G 17860 B ME3OPSIRTN ) 7 00648 J 00674 557 G 1311 G 17870 CW MOUC/ CLEAR 3RD OPND INDIC. T 6 00655 ) MOUC/ 557 G 1312 G 17880 SW MRDR/ T 6 00661 , MRDR/ 557 1313 G 17890 B MEP01 RETURN TO TEST UEP ) 7 00667 J 00490 557 77120 GENERATE SGF PAGE 66 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1314 G 17900 ME3OPSIRTN BZN *-11,/CTB/ C 12 00674 V 00674 /CTB/ 2 557 L 1315 G 17910 BXPA /CNC/ T 7 00686 Y /CNC/ X 558 1316 G 17920 DCW ME3OPMESG N 5 00697 00724 558 1317 G 17930 BZN *-11,/CTB/ C 12 00698 V 00698 /CTB/ 2 558 L 1318 G 17940 B /WAT/ T 7 00710 J /WAT/ 558 1319 G 17950 B ME3OPSIRTN ) 7 00717 J 00674 558 1320 G 17960 ME3OPMESG DCW '00505 SIU/AIU SWITCH FAILED',G 29 00724 559 + 1321 G 17970 MEOPSKPT BZN RDMN/,MSKJ/,A TEST MODE INDICATED 0 12 00753 V RDMN/ MSKJ/ S 560 1322 G 17980 BZN MESKIP,/CGO/,A NO GO CONDITION C 12 00765 V 00618 /CGO/ S 560 L 1323 G 17990 B RDMN/ RETURN TO READ T 7 00777 J RDMN/ 560 + 1324 G 18000 MEPSTB MLCA MUEA/,MMUG/ 0 12 00784 D MUEA/ MMUG/ T 560 1325 G 18010 B MEPCWR ) 7 00796 J 00534 561 1326 G 18020 * RESTART FROM CONSOLE 1327 G 18030 MEPREST EQU * 00803 1328 G 18140 BZN *-11,/CTB/ C 12 00803 V 00803 /CTB/ 2 561 L 1329 G 18150 BXPA /CNC/ T 7 00815 Y /CNC/ X 561 1330 G 18160 DCW MEPIRSTMS IMMEDIATE RST REQ N 5 00826 00930 561 1331 G 18170 BZN *-11,/CTB/ C 12 00827 V 00827 /CTB/ 2 561 + 1332 G 18180 MLN /CRD/,X4 0 12 00839 D /CRD/ 00044 A 562 + 1333 G 18190 MLCW /CPT/,62+X4 0 12 00851 D /CPT/ 00@62 G 562 L 1334 G 18200 SBR X1 T 7 00863 G 00029 B 562 1335 G 18210 S +1,61+X4 3 11 00870 S 01800 00@61 562 G 1336 G 18220 CW 1+X1 T 6 00881 ) 000@1 563 1337 G 18230 MLCS 'I',63+X4 IMMEDIATE INDICATOR C 12 00887 D 01801 00@63 3 563 1338 G 18240 MLCA 'RESTART,,,',29+X4 PROG ID C 12 00899 D 01811 00@29 T 563 77120 GENERATE SGF PAGE 67 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1339 'RESTART,,,' 10 01811 564 L 1340 G 18250 B SCNI/ T 7 00911 J SCNI/ 565 1341 G 18260 DCW /CRD/ Q 5 00922 /CRD/ 565 L 1342 G 18270 B MEXE/ T 7 00923 J MEXE/ 565 1343 G 18280 MEPIRSTMS DCW 'RST REQ I',G 10 00930 566 1344 G 18290 MEPBL DCW ' ' 5 00944 566 1345 G 18300 DCW 'J' 1 00945 566 L 1346 G 18310 ZZZZCON1 B /UEP/ T 7 00946 J /UEP/ 567 1347 G 18320 DCW '@' 9 1 00953 567 1348 G 18330 * CONSTANT AND I/O AREAS, TRANSITIONAL MONITOR 1349 G 18340 MTW1 DCW ' ' 1ST OPERAND OF EXEQ. 11 00954 568 1350 G 18350 MTW1/ DEFIN MTW1 00954 569 1351 G 18360 MTWW/ DEFIN MTWW 00964 570 1352 G 18370 MTWW EQU MTW1+10 00964 1353 G 18380 MTWX/ DEFIN MTWX 00963 571 1354 G 18390 MTWX EQU MTW1+9 00963 77120 GENERATE SGF PAGE 68 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1355 G 18500 * CLOSEOUT SUBROUTINE 1356 G 18510 MCLO/ DEFIN MCLO 00965 572 1357 G 18520 MCLO SBR MCLOX+5 ) 7 00965 G 01118 B 573 1358 G 18530 MLCS ' ',/MIY/ C 12 00972 D 01787 /MIY/ 3 573 1359 G 18540 MLC '00000',/IPI/ ZERO IPI FIELD C 12 00984 D 01816 /IPI/ C 573 1360 G 18550 MLCS MEPBL,MSKJ/ CLEAR, MSKJ/ C 12 00996 D 00944 MSKJ/ 3 573 1361 G 18560 MLCS MEPBL,/CGO/ CLEAR, /CGO/ C 12 01008 D 00944 /CGO/ 3 574 L 1362 G 18570 B MASJ/ I/O ASGN, CLOSE OUT T 7 01020 J MASJ/ 574 G G 1363 G 18580 BBE MCIN,MORH/,M C 12 01027 W 01388 MORH/ M 574 1364 G 18590 BW MCLOIQ,MRST/ TEST FOR PENDING B ME C 12 01039 V 01316 MRST/ 1 574 1365 G 18600 MCLOPMX MLCS ' ',MORH/ RESTORE INITIALIZATIO C 12 01051 D 01787 MORH/ 3 575 1366 G 18610 MCLOPMW EQU * 01063 1367 G 18630 NOPWM 9 1 01063 N 575 1368 G 18640 MC01 B MCLOPPR TO OPEN MPR ) 7 01064 J 01274 575 1369 G 18650 MC01/ DEFIN MC01 01064 576 1370 G 18660 MCLOPMP EQU * 01071 1371 G 18680 NOPWM 9 1 01071 N 577 1372 G 18690 MC02 B MCLOPPU TO OPEN MPU ) 7 01072 J 01288 577 1373 G 18700 MC02/ DEFIN MC02 01072 578 1374 G 18710 MCLOPMD EQU * 01079 1375 G 18730 NOPWM 9 1 01079 N 579 1376 G 18740 MC03 B MCLOPDP TO OPEN MDM ) 7 01080 J 01302 579 1377 G 18750 MC03/ DEFIN MC03 01080 580 1378 G 18760 MCLOCW EQU * 01087 1379 G 18780 CW MC01 ' 6 01087 ) 01064 581 77120 GENERATE SGF PAGE 69 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1380 G 18800 CW MC02 ' 6 01093 ) 01072 581 1381 G 18820 CW MC03 ' 6 01099 ) 01080 581 1382 G 18840 MCLOAI NOPWM 9 1 01105 N 581 1383 G 18850 MC04 B MCLAIU TO TRANSFER TO AIU ) 7 01106 J 01120 581 1384 G 18860 MC04/ DEFIN MC04 01106 582 L 1385 G 18870 MCLOX B 0 T 7 01113 J 00000 583 1386 G 18890 MC05/ DEFIN MC05 01121 584 1387 G 18900 MCLAIU NOPWM 9 1 01120 N 585 1388 G 18910 MC05 B MC05CONT ) 7 01121 J 01256 585 1389 G 18920 MLCWS '8',MSKJ/ SET SKIP TO JOB SWITC C 12 01128 D 01817 MSKJ/ 7 585 L 1390 G 18930 B MCHG/ TRANSFER TO AIU T 7 01140 J MCHG/ 585 1391 G 18940 DCW 'A' 9 1 01147 585 1392 G 18950 DCW 'AIU' 3 01150 586 1393 G 18960 B MC05REV ) 7 01151 J 01177 587 G 1394 G 18970 S MAIJ/ T 6 01158 S MAIJ/ 587 1395 G 18980 CW MC04 CLEAR AIU SWITCH ' 6 01164 ) 01106 587 L 1396 G 18990 B RDMN/ TO READ CONTROL CD. T 7 01170 J RDMN/ 587 1397 G 19000 MC05REV BZN *-11,/CTB/ C 12 01177 V 01177 /CTB/ 2 587 L 1398 G 19010 BXPA /CNC/ T 7 01189 Y /CNC/ X 588 1399 G 19020 DCW MC05REVMS N 5 01200 01232 588 1400 G 19030 BZN *-11,/CTB/ C 12 01201 V 01201 /CTB/ 2 588 1401 G 19040 MLCWS MEPBL,MSKJ/ C 12 01213 D 00944 MSKJ/ 7 588 1402 G 19050 B MC05CONT ) 7 01225 J 01256 588 1403 G 19060 MC05REVMS DCW 'SW TO AIU NOT COMPLETED',G 24 01232 589 1404 G 19070 MC05CONT CW MC05,MC04 OPEN FOR NEXT TIME AR 4 11 01256 ) 01121 01106 590 77120 GENERATE SGF PAGE 70 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1405 G 19080 B MCLOX ) 7 01267 J 01113 590 L 1406 G 19210 MCLOPPR B MWTX/ T 7 01274 J MWTX/ 590 1407 G 19220 B MCLOPMP ) 7 01281 J 01071 590 L 1408 G 19340 MCLOPPU B MWTY/ T 7 01288 J MWTY/ 590 1409 G 19350 B MCLOPMD ) 7 01295 J 01079 591 L 1410 G 20010 MCLOPDP B MWTZ/ T 7 01302 J MWTZ/ 591 1411 G 20020 B MCLOCW ) 7 01309 J 01087 591 G 1412 G 20030 MCLOIQ SW MIQB/ T 6 01316 , MIQB/ 591 1413 G 20060 BZN *-11,/CTB/ WRITE CONSOLE TO C 12 01322 V 01322 /CTB/ 2 591 L 1414 G 20070 BXPA /CNC/ ACCEPT B MESSAGES T 7 01334 Y /CNC/ X 592 1415 G 20080 DCW MESGB N 5 01345 01371 592 L 1416 G 20090 B /WAT/ T 7 01346 J /WAT/ 592 1417 G 20100 CW MIQB/,MRST/ 0 11 01353 ) MIQB/ MRST/ 592 1418 G 20110 B MCLOPMX ) 7 01364 J 01051 592 1419 G 20120 MESGB DCW 'ENTER B MESSAGES' 16 01371 593 G 1420 G 20130 DCW 'M' 1 01387 593 1421 G 20140 MCIN BCE MCINA,MORH/,A TEST INITIALIZATION C 12 01388 B 01407 MORH/ A 594 1422 G 20150 B MCLOIQ REINITIALIZATION ) 7 01400 J 01316 594 1423 G 20160 MCINA EQU * INITIALIZATION 01407 1424 G 20230 B MCLOPMX ) 7 01407 J 01051 594 1425 G 20240 * INTERCEPT REQUESTS FROM MONITOR 1426 G 20250 MINC/ DEFIN MINC 01414 595 1427 G 20260 MINC SBR MCLINCX+5 INITIALIZE EXIT ) 7 01414 G 01434 B 596 L 1428 G 20280 BXPA /CHK/ TO RECORD INTERCEPT T 7 01421 Y /CHK/ X 596 1429 G 20290 DCW 'I' 9 1 01428 596 77120 GENERATE SGF PAGE 71 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 1430 G 20300 MCLINCX B 0 RETURN T 7 01429 J 00000 596 77120 GENERATE SGF PAGE 72 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1431 G 20320 * CONSOLE INQUIRY FOR CLASS B MESSAGES 1432 G 20330 MINB/ DEFIN MINQB 01437 597 1433 G 20340 NOPWM TO INITIALIZATION 9 1 01436 N 598 L 1434 G 20350 MINQB B MORB/ MESSAGE ROUTINE T 7 01437 J MORB/ 598 1435 G 20360 MLCB MMIE/,MMTYPBT PUT MESSAGE IN WORK A A 12 01444 D MMIE/ 01727 L 598 1436 G 20370 LE MMTYPBT-2,MMSGEB LOOK UP ON CLASS B TA D 12 01456 T 01725 01722 2 598 1437 G 20380 SBR MINQBMV+5 STORE FUNCTION ADDRES ) 7 01468 G 01487 B 598 1438 G 20390 BU MINQBER NOT EQUAL-INVALID MES ) 7 01475 J 01728 / 599 1439 G 20400 MINQBMV MLCA 0,MINQBEX+5 MOVE FUNCTION TO EXIT A 12 01482 D 00000 01499 T 599 L 1440 G 20410 MINQBEX B 0 EXIT TO SPECIFIED SUB T 7 01494 J 00000 599 G 1441 G 20430 MINSB1 SW MC04/ $B1 SET TRANSFER TO A T 6 01501 , MC04/ 599 1442 G 20440 B MNIORT ) 7 01507 J 01643 599 L 1443 G 20460 MINSB2 BXPA /CLP/ $B2 CLOSE PRINTER T 7 01514 Y /CLP/ X 600 1444 G 20470 DCW ZSPR/ Q 5 01525 ZSPR/ 600 1445 G 20480 MCS 9 1 01526 Z 600 G 1446 G 20490 SW MC01/ SET TO OPEN PRINTER T 6 01527 , MC01/ 600 1447 G 20500 B MNIORT ) 7 01533 J 01643 600 L 1448 G 20520 MINSB3 BXPA /CLP/ $B3 CLOSE PUNCH T 7 01540 Y /CLP/ X 600 1449 G 20530 DCW ZSPU/ Q 5 01551 ZSPU/ 600 1450 G 20540 MCS 9 1 01552 Z 600 G 1451 G 20550 SW MC02/ SET TO OPEN PUNCH T 6 01553 , MC02/ 601 1452 G 20560 B MNIORT ) 7 01559 J 01643 601 L 1453 G 20580 MINSB4 BXPA /CLP/ $B4 CLOSE DUMP FILE T 7 01566 Y /CLP/ X 601 1454 G 20590 DCW /MDF/ Q 5 01577 /MDF/ 601 1455 G 20600 MCS 9 1 01578 Z 601 77120 GENERATE SGF PAGE 73 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G 1456 G 20610 SW MC03/ SET TO OPEN DUMP FILE T 6 01579 , MC03/ 601 1457 G 20620 B MNIORT ) 7 01585 J 01643 601 L 1458 G 20630 MINSB5 BXPA MNAV/ $B5 TO MAKE UNIT UNAV T 7 01592 Y MNAV/ X 602 1459 G 20640 B MNIORT ) 7 01599 J 01643 602 L 1460 G 20650 MINSB6 BXPA MAVL/ $B6 TO MAKE UNIT AVAI T 7 01606 Y MAVL/ X 602 1461 G 20660 B MNIORT ) 7 01613 J 01643 602 1462 G 20670 MINSC1 MLC MMTYPBT,MC1M/ SAVE ENTRY CHARACTERS C 12 01620 D 01727 MC1M/ C 602 1463 G 20680 MINSBX CW MIQB/,/WBR/ $BX BREAK WTLP AND RE 0 11 01632 ) MIQB/ /WBR/ 603 1464 G 20690 MNIORT EQU * 01643 L 1465 G 20720 BXPA MDEL/ RETURN TO IOCS T 7 01643 Y MDEL/ X 603 1466 G 21190 *TABLE OF VALID B MESSAGES 1467 G 21200 DCW ' ' 9 1 01650 603 1468 G 2121B MESB/ DEFIN MESB 01658 604 1469 G 2121C DCW MINSB1 N 5 01655 01501 605 1470 G 2121D DC '$B' 2 01657 606 1471 G 2121E MESB DCW '1' 1 01658 606 1472 G 2121G DCW MINSB4 N 5 01663 01566 607 1473 G 2121H DC '$B4' 3 01666 608 1474 G 2121J DCW MINSB3 N 5 01671 01540 609 1475 G 2121K DC '$B3' 3 01674 610 1476 G 2121M DCW MINSB2 N 5 01679 01514 611 1477 G 2121N DC '$B' 2 01681 612 1478 G 2121O DCW '2' 1 01682 612 1479 G 2121Q MES2 EQU *-1 01682 1480 G 2121R MES2/ DEFIN MES2 01682 613 77120 GENERATE SGF PAGE 74 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1481 G 21270 DCW MINSBX N 5 01687 01632 614 1482 G 21280 DC '$BX' 3 01690 615 1483 G 21290 DCW MINSC1 N 5 01695 01620 616 1484 G 21300 DC '$C1' 3 01698 617 1485 G 21320 CALL IBSPLNITER 618 1486 G 21330 DCW SPAS/ Q 5 01703 SPAS/ 619 1487 G 21340 DC '$B7' 3 01706 620 1488 G 21350 DCW MINSB6 N 5 01711 01606 621 1489 G 21360 DC '$B6' 3 01714 622 1490 G 21370 DCW MINSB5 N 5 01719 01592 623 1491 G 21380 DC '$B5' 3 01722 624 1492 G 21510 MMSGEB EQU *-1 01722 1493 G 21520 MMTYPBT DCW ' ' 5 01727 624 1494 G 21530 MINQBER BZN *-11,/CTB/ C 12 01728 V 01728 /CTB/ 2 625 L 1495 G 21540 BXPA /CNC/ T 7 01740 Y /CNC/ X 625 1496 G 21550 DCW MINQBERRO N 5 01751 01771 625 1497 G 21560 BZN *-11,/CTB/ C 12 01752 V 01752 /CTB/ 2 625 1498 G 21570 B MNIORT ) 7 01764 J 01643 625 1499 G 21580 MINQBERRO DCW 'INV B INQ',G 10 01771 626 77120 GENERATE SGF PAGE 75 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1500 G 21600 * CALL STATEMENTS 1501 G 21610 CALL IBREADMOCC 627 1502 G 21630 CALL IBPOWTRAN 628 1503 G 21640 CALL IBSCANM 629 1504 G 21650 CALL IBEXEQM 630 1505 G 21690 CALL IBIOATMVAR 631 1506 G 21700 CALL IBACCOUNT 632 1507 G 21710 CALL IBFILE1T 633 1508 G 21720 CALL IBFILE2T 634 1509 G 21730 CALL IBFILE3T 635 1510 G 21740 CALL IBFILE4T 636 1511 G 21770 CALL IBPHT00001 637 1512 G 21800 CALL IBPHT00002 638 1513 G 21830 CALL IBPHT00003 639 1514 G 21860 CALL IBPHT00004 640 1515 G 21890 CALL IBPHT00005 641 1516 G 21920 CALL IBPHT00006 642 1517 G 22830 CALL IBSEARCHT 643 1518 G 22840 SPEND MEPENTER 00008 1519 ' ' 5 01785 644 G 1520 'M' 1 01786 644 1521 ' ' 1 01787 644 1522 /RSB/ Q 5 01792 /RSB/ 645 1523 '1D' 2 01794 646 1524 /RSC/ Q 5 01799 /RSC/ 647 77120 GENERATE SGF PAGE 76 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1525 'A' 9 1 01800 647 1526 'I' 9 1 01801 647 1527 '00000' 5 01816 648 1528 '8' 1 01817 648 77120 GENERATE SGF PAGE 77 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1529 G 22860 TITLE IBLODFAZ,0 650 1530 G 22870 ORG 00000 00000 1531 G 22880 * LOAD SPECIFIC PHASE 1532 G 22890 * CALLING SEQUENCE 1533 G 22900 * B /LOD/ 1534 G 22910 * DCW +NNN OR -NNN 1535 G 22920 /LOD/ DEFIN LOD 00000 651 L 1536 G 22930 LOD SBR X13 T 7 00000 G 00089 B 652 1537 G 22940 SBR MZLS+5 POSSIBLE RETURN ) 7 00007 G 00089 B 652 1538 G 22950 A +3,MZLS+5 4 11 00014 A 00154 00089 652 + 1539 G 22960 MLN 2+X13,MLD3 A 12 00025 D 000@2 00070 A 652 1540 G 22970 CW MZLS ' 6 00037 ) 00084 652 + 1541 G 22980 BZN MLD2,2+X13,AB TEST PLUS C 12 00043 V 00061 000@2 B 653 1542 G 22990 SW MZLS DO NOT ENTER NEW PHAS ' 6 00055 , 00084 653 L 1543 G 23000 MLD2 B /ZSS/ TO SIMPLE SEARCH T 7 00061 J /ZSS/ 653 1544 G 23010 MLD3 DCW 001 3 00070 654 1545 G 23020 DCW MLDNOTFND N 5 00075 00135 655 1546 G 23030 MZLC/ DEFIN MZLC 00076 656 L 1547 G 23040 MZLC B /QAL/ TO LOAD T 7 00076 J /QAL/ 657 1548 G 23050 NOPWM 9 1 00083 N 657 L 1549 G 23060 MZLS B 0 RETURN TO REQUESTEE T 7 00084 J 00000 657 1550 G 23070 MZLS/ DEFIN MZLS 00084 658 + 1551 G 23080 ZA /QEP/,X13 0 11 00091 0 /QEP/ 00089 659 1552 G 23090 BZ MLD99 TEST FOR NO ENTRY ) 7 00102 J 00116 V 659 L + 1553 G 23100 B 0+X13 T 7 00109 J 000@0 659 77120 GENERATE SGF PAGE 78 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1554 G 23110 MLD99 MLCS '2',MMUF/ CODE, NO ENTRY POINT C 12 00116 D 00155 MMUF/ 3 659 L 1555 G 23120 B /UEP/ T 7 00128 J /UEP/ 659 1556 G 23130 * LOAD SPECIFIC PHASE, NOT FOUND 1557 G 23140 MLDNOTFND MLCS '1',MMUF/ CODE, PHASE NOT FOUND C 12 00135 D 00156 MMUF/ 3 660 L 1558 G 23150 B /UEP/ T 7 00147 J /UEP/ 660 1559 G 23160 SPEND 1560 'C' 9 1 00154 660 1561 '2' 9 1 00155 660 1562 '1' 9 1 00156 660 77120 GENERATE SGF PAGE 79 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1563 G 23180 TITLE IBFILE1R,0 662 1564 G 23190 ORG 00000 00000 1565 G 23200 ***** FILE DESIGNATION 1566 G 23210 ***** SYSTEM FILES 1567 G 23220 XAAA/ DEFIN XAAA 00000 663 1568 G 23230 XAAA DCW '$' STOP TABLE LOOKUP 1 00000 664 1569 G 23240 MSOF/ DEFIN SOF 00005 665 1570 G 23250 SOF DCW XXA0/ Q 5 00005 XXA0/ 666 1571 G 23260 MSIU/ DEFIN SIU 00010 667 1572 G 23270 SIU DCW XXR1/ Q 5 00010 XXR1/ 668 1573 G 23290 MSPR/ DEFIN SPR 00015 669 1574 G 23310 SPR DCW ' ' 5 00015 670 1575 G 23350 MSPU/ DEFIN SPU 00020 671 1576 G 23370 SPU DCW ' ' 5 00020 672 1577 G 23410 /MDM/ DEFIN MDM 00025 673 1578 G 23430 MDM DCW ' ' 5 00025 674 1579 G 23460 /MGO/ DEFIN MGO 00030 675 1580 G 23470 MGO DCW ' ' 5 00030 676 1581 G 23480 /MJB/ DEFIN MJB 00035 677 1582 G 23490 MJB DCW ' ' 5 00035 678 1583 G 23560 /ST2/ DEFIN ST2 00040 679 1584 G 23570 ST2 DCW ' ' 5 00040 680 1585 G 23580 /SU2/ DEFIN SU2 00045 681 1586 G 23590 SU2 DCW ' ' 5 00045 682 1587 G 23730 /AIU/ DEFIN AIU 00050 683 77120 GENERATE SGF PAGE 80 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1588 G 23750 AIU DCW ' ' 5 00050 684 1589 G 23770 /LIB/ DEFIN LIB 00055 685 1590 G 23790 LIB DCW ' ' 5 00055 686 1591 G 23810 SPEND 77120 GENERATE SGF PAGE 81 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1592 G 23830 TITLE IBFILE1T,0 688 1593 G 23840 ORG 00000 00000 1594 G 23850 RARS/ DEFIN * 00000 689 1595 G 23870 DCW 'SPR' 3 00002 690 1596 G 23890 DCW 'P1' 2 00004 690 1597 G 23950 DCW 'SPU' 3 00007 690 1598 G 23970 DCW 'X1' 2 00009 690 1599 G 24040 DCW 'MDM' 3 00012 690 1600 G 24080 DCW ' ' 2 00014 690 1601 G 24180 DCW ' ' 5 00019 690 1602 G 24190 DC ' , ' 6 00025 690 1603 G 24200 DC ' ' 27 00052 691 1604 G 24210 DC ' ' 27 00079 691 G 1605 G 24220 DCW 'M' 1 00080 692 1606 G 24230 DCW '$' 1 00081 692 1607 G 24240 DCW MSOF/ Q 5 00086 MSOF/ 693 1608 G 24250 DC 'SOF' 3 00089 694 1609 G 24260 DCW MSIU/ Q 5 00094 MSIU/ 695 1610 G 24270 DC 'SIU' 3 00097 696 1611 G 24370 ORG *-1 00097 1612 G 24380 DA 1X1,N 1 00097 1613 G 24390 XSTP 1,1 00097 697 1614 G 24400 XSTP/ DEFIN XSTP 00097 698 1615 G 24430 DCW MSPR/ Q 5 00102 MSPR/ 699 1616 G 24440 DC 'SPR' 3 00105 700 77120 GENERATE SGF PAGE 82 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1617 G 24460 DCW MSPU/ Q 5 00110 MSPU/ 701 1618 G 24470 DC 'SPU' 3 00113 702 1619 G 24490 DCW /MDM/ Q 5 00118 /MDM/ 703 1620 G 24500 DC 'MDM' 3 00121 704 1621 G 24510 DCW /MGO/ Q 5 00126 /MGO/ 705 1622 G 24520 DC 'MGO' 3 00129 706 1623 G 24530 DCW /MJB/ Q 5 00134 /MJB/ 707 1624 G 24540 DC 'MJB' 3 00137 708 1625 G 24610 DCW /ST2/ Q 5 00142 /ST2/ 709 1626 G 24620 DC 'ST2' 3 00145 710 1627 G 24630 DCW /SU2/ Q 5 00150 /SU2/ 711 1628 G 24640 DC 'SU2' 3 00153 712 1629 G 24710 DCW /AIU/ Q 5 00158 /AIU/ 713 1630 G 24720 DC 'AIU' 3 00161 714 1631 G 24730 DCW /LIB/ Q 5 00166 /LIB/ 715 1632 G 24740 DC 'LIB' 3 00169 716 1633 G 24750 SPEND 1634 S GEN09 10 77120 GENERATE SGF PAGE 83 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1635 G 00020 TITLE IBFILE2R,00000 718 1636 G 00030 ORG 00000 00000 1637 G 00080 /MR0/ DEFIN MR0 00004 719 1638 G 00090 MR0 DCW ' ' 5 00004 720 1639 G 00120 /MR1/ DEFIN MR1 00009 721 1640 G 00130 MR1 DCW ' ' 5 00009 722 1641 G 00160 /MR2/ DEFIN MR2 00014 723 1642 G 00170 MR2 DCW ' ' 5 00014 724 1643 G 00200 /MR3/ DEFIN MR3 00019 725 1644 G 00210 MR3 DCW ' ' 5 00019 726 1645 G 00240 /MR4/ DEFIN MR4 00024 727 1646 G 00250 MR4 DCW ' ' 5 00024 728 1647 G 00280 /MR5/ DEFIN MR5 00029 729 1648 G 00290 MR5 DCW ' ' 5 00029 730 1649 G 00320 /MR6/ DEFIN MR6 00034 731 1650 G 00330 MR6 DCW ' ' 5 00034 732 1651 G 00360 /MR7/ DEFIN MR7 00039 733 1652 G 00370 MR7 DCW ' ' 5 00039 734 1653 G 00400 /MR8/ DEFIN MR8 00044 735 1654 G 00410 MR8 DCW ' ' 5 00044 736 1655 G 00440 /MR9/ DEFIN MR9 00049 737 1656 G 00450 MR9 DCW ' ' 5 00049 738 1657 G 01500 SPEND 77120 GENERATE SGF PAGE 84 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1658 G 01520 TITLE IBFILE2T,00000 740 1659 G 01530 ORG 00000 00000 1660 G 01580 DCW /MR0/ Q 5 00004 /MR0/ 741 1661 G 01590 DC 'MR0' 3 00007 742 1662 G 01620 DCW /MR1/ Q 5 00012 /MR1/ 743 1663 G 01630 DC 'MR1' 3 00015 744 1664 G 01660 DCW /MR2/ Q 5 00020 /MR2/ 745 1665 G 01670 DC 'MR2' 3 00023 746 1666 G 01700 DCW /MR3/ Q 5 00028 /MR3/ 747 1667 G 01710 DC 'MR3' 3 00031 748 1668 G 01740 DCW /MR4/ Q 5 00036 /MR4/ 749 1669 G 01750 DC 'MR4' 3 00039 750 1670 G 01780 DCW /MR5/ Q 5 00044 /MR5/ 751 1671 G 01790 DC 'MR5' 3 00047 752 1672 G 01820 DCW /MR6/ Q 5 00052 /MR6/ 753 1673 G 01830 DC 'MR6' 3 00055 754 1674 G 01860 DCW /MR7/ Q 5 00060 /MR7/ 755 1675 G 01870 DC 'MR7' 3 00063 756 1676 G 01900 DCW /MR8/ Q 5 00068 /MR8/ 757 1677 G 01910 DC 'MR8' 3 00071 758 1678 G 01940 DCW /MR9/ Q 5 00076 /MR9/ 759 1679 G 01950 DC 'MR9' 3 00079 760 1680 G 03000 SPEND 1681 S GEN10 10 77120 GENERATE SGF PAGE 85 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1682 G 00020 TITLE IBFILE3R,00000 762 1683 G 00030 ORG 00000 00000 1684 G 00080 /MW0/ DEFIN MW0 00004 763 1685 G 00120 MW0 DCW ' ' 5 00004 764 1686 G 00150 /MW1/ DEFIN MW1 00009 765 1687 G 00190 MW1 DCW ' ' 5 00009 766 1688 G 00220 /MW2/ DEFIN MW2 00014 767 1689 G 00260 MW2 DCW ' ' 5 00014 768 1690 G 00290 /MW3/ DEFIN MW3 00019 769 1691 G 00330 MW3 DCW ' ' 5 00019 770 1692 G 00360 /MW4/ DEFIN MW4 00024 771 1693 G 00400 MW4 DCW ' ' 5 00024 772 1694 G 00430 /MW5/ DEFIN MW5 00029 773 1695 G 00470 MW5 DCW ' ' 5 00029 774 1696 G 00500 /MW6/ DEFIN MW6 00034 775 1697 G 00540 MW6 DCW ' ' 5 00034 776 1698 G 00570 /MW7/ DEFIN MW7 00039 777 1699 G 00610 MW7 DCW ' ' 5 00039 778 1700 G 00640 /MW8/ DEFIN MW8 00044 779 1701 G 00680 MW8 DCW ' ' 5 00044 780 1702 G 00710 /MW9/ DEFIN MW9 00049 781 1703 G 00750 MW9 DCW ' ' 5 00049 782 1704 G 02580 SPEND 77120 GENERATE SGF PAGE 86 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1705 G 02600 TITLE IBFILE3T,00000 784 1706 G 02610 ORG 00000 00000 1707 G 02660 DCW /MW0/ Q 5 00004 /MW0/ 785 1708 G 02670 DC 'MW0' 3 00007 786 1709 G 02700 DCW /MW1/ Q 5 00012 /MW1/ 787 1710 G 02710 DC 'MW1' 3 00015 788 1711 G 02740 DCW /MW2/ Q 5 00020 /MW2/ 789 1712 G 02750 DC 'MW2' 3 00023 790 1713 G 02780 DCW /MW3/ Q 5 00028 /MW3/ 791 1714 G 02790 DC 'MW3' 3 00031 792 1715 G 02820 DCW /MW4/ Q 5 00036 /MW4/ 793 1716 G 02830 DC 'MW4' 3 00039 794 1717 G 02860 DCW /MW5/ Q 5 00044 /MW5/ 795 1718 G 02870 DC 'MW5' 3 00047 796 1719 G 02900 DCW /MW6/ Q 5 00052 /MW6/ 797 1720 G 02910 DC 'MW6' 3 00055 798 1721 G 02940 DCW /MW7/ Q 5 00060 /MW7/ 799 1722 G 02950 DC 'MW7' 3 00063 800 1723 G 02980 DCW /MW8/ Q 5 00068 /MW8/ 801 1724 G 02990 DC 'MW8' 3 00071 802 1725 G 03020 DCW /MW9/ Q 5 00076 /MW9/ 803 1726 G 03030 DC 'MW9' 3 00079 804 1727 G 04080 SPEND 1728 S GEN11 77120 GENERATE SGF PAGE 87 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1729 G 00020 TITLE IBFILE4R,00000 806 1730 G 00030 ORG 00000 00000 1731 G 02580 * END LOCATION SYMUNIT TABLE 1732 G 02590 XEND/ DEFIN XEND 99999 807 1733 G 02600 XEND EQU *-1 99999 1734 G 02610 /XND/ DEFIN XZZZ 00000 808 1735 G 02620 XZZZ/ DEFIN XZZZ END +1 00000 809 1736 G 02630 XZZZ EQU * 00000 1737 G 02640 SPEND 77120 GENERATE SGF PAGE 88 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1738 G 02660 TITLE IBFILE4T,00000 811 1739 G 02670 ORG 00000 00000 1740 G 04140 * END LOCATION SYMUNIT EQUIVALENT TABLE 1741 G 04150 XDNE/ DEFIN XDNE 99999 812 1742 G 04160 XDNE EQU *-1 99999 1743 G 04170 SPEND 1744 S DEVDF 1,729,1402,1403 1745 S DEVDF 2,729 1746 S DEVDF 3,729 1747 S DSKDF 3,00,01 1748 G 00237 TITLE IBDSKIOCS3 )F 814 1749 G 00240 *** 1750 G 00250 *** TABLE OF DISK MODULE LIST ORIGINS FOR USE BY IBRESIOCS 1751 G 00260 *** 1752 G 00270 ORG 0 00000 1753 G 00280 C )F 9 1 00000 C 815 1754 G 00281 DCW 1 )F 9 1 00001 815 1755 G 00290 C 9 1 00002 C 815 1756 G 00300 DCW 0 9 1 00003 815 1757 G 00860 DCW -00000 5 00008 816 1758 G 00870 DCW -01 2 00010 816 1759 G 00890 DCW -00000 5 00015 816 1760 G 00900 DCW -00 2 00017 816 1761 G 00921 DS3P/ DEFIN *-3 )F 00015 817 1762 G 00922 DS3Q/ DEFIN *-1 )F 00017 818 77120 GENERATE SGF PAGE 89 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1763 G 00923 DS3R/ DEFIN *+3 )F 00021 819 1764 G 00930 SPEND )F 77120 GENERATE SGF PAGE 90 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1765 S IOKDF 7010,D,,4,5,,,8,,70000 77120 GENERATE SGF PAGE 91 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1766 G 00740 ******************************************************************* 1767 G 00750 *** RESIDENT IOCS 1410-IO-966 V.4 *** 1768 G 00760 ******************************************************************* 1769 G 00770 *** THIS MODULE IS AN INTEGRAL PART OF THE IBM 1410/7010 OPERATING 1770 G 00780 *** SYSTEM. IT MUST RESIDE STARTING WITH ABSOLUTE LOCATION 00100. 1771 G 00790 *** THE RESIDENT IOCS SCHEDULES, CONTROLS, AND EXECUTES I/O 1772 G 00800 *** OPERATIONS FOR ALL INPUT/OUTPUT DEVICES ATTACHED TO THE SYSTEM. 1773 G 00860 *** 1774 G 00870 *** THIS MODULE USES INDEX REGISTERS X13, X14, AND X15. 1775 G 00880 *** LOCATION 00100 IS USED FOR STORING THE OPEN/CLOSE/FEOR CALLING 1776 G 00890 *** SEQUENCE CHARACTER. 1777 G 00900 *** THE FOLLOWING SYSTEMS SYMBOLS REQUIRE DEFINITION BEFORE USING 1778 G 00910 *** FOLLOWING IOCS ROUTINES--- 1779 G 00920 *** /MIO/ UNCTL, OPEN/CLOSE/FEOR ROUTINES 1780 G 00930 *** /MIP/ FEOR ROUTINE 1781 G 00940 *** /MIQ/ OPEN ROUTINE 1782 G 00960 *** /DAT/ TAPE LABEL ROUTINES 1783 G 01020 *** THE FOLLOWING INTERNAL CALLS ARE GENERATED BY THIS MODULE... 1784 G 01080 *** CALL IBDSKIOCS3 77120 GENERATE SGF PAGE 92 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1785 G 01130 TITLE IBRESIOCS,00000,00000 821 1786 G 01140 BASE1 00000 00000 822 1787 G 01200 ORG 100 00100 1788 G 01210 H WORD MARK LOC 100 9 1 00100 . 823 1789 G 01220 R100/ DEFIN 00100 Q 00100 824 1790 G 01230 *** START OF INTERRUPT SEQUENCE 1791 G 01240 *** 1792 G 01250 SBR ACBEPA+5 SAVE RETURN ADDR ) 7 00101 G 05753 B 825 1793 G 01290 *** 1794 G 01300 *** SAVE HI-LOW-EQUAL-ZERO STATUS 1795 G 01310 *** ISIND ** 0-ZERO, 1-NOT ZERO 1796 G 01320 *** ISIND-1 ** 1-HI, 2-EQUAL, 5-LOW 1797 G 01330 *** L 1798 G 01340 BZ 121 T 7 00108 J 00121 V 825 G 1799 G 01350 BBE 127 T 6 00115 W 00127 825 G + 1800 G 01360 ZA 121 T 6 00121 0 00121 825 1801 G 01370 SBR ISIND ) 7 00127 G 09808 B 825 L 1802 G 01380 BH 148 T 7 00134 J 00148 U 825 L 1803 G 01390 BE 155 T 7 00141 J 00155 S 826 1804 G 01400 SBR ISIND-1 ) 7 00148 G 09807 B 826 1805 G 01410 S RW1QSR,ACBEPA+5 SUB 6 FROM RET ADDR 4 11 00155 S 00934 05753 826 1806 G 01450 BPI RW3OC,3 Q. CH3 OP COMP ) 7 00166 Y 01595 3 826 1807 G 01470 BPI RW2OC,2 Q. CH2 OP COMP ) 7 00173 Y 01169 2 826 1808 G 01472 B ISCTD BRANCH AROUND FPAREA ) 7 00180 J 00315 827 1809 G 01473 RWBUNC BXPA UNC CONSTANT ) 7 00187 Y 04571 X 827 77120 GENERATE SGF PAGE 93 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1810 G 01475 ORG 315 00315 1811 G 01478 ISCTD EQU * 00315 1812 G 01490 IS1 BOL1 IS2 Q. CH1 IN OPERATION ) 7 00315 J 00960 1 828 1813 G 01520 C1EN/ DEFIN IS1 00315 829 1814 G 01530 IS1YI BPI RW1OC,1 Q. CH1 OP COMP ) 7 00322 Y 00909 1 830 1815 G 01610 BPI IS1INQ,Q Q. CH 1 INQUIRY ) 7 00329 Y 01968 Q 830 1816 G 01780 B RW1 ) 7 00336 J 00714 830 ++ 1817 G 01920 DSIS C 3+X15,X14+1 SET A+B REGS 0 11 00343 C 00003 00095 830 1818 G 01930 SAR RWLST+5 SAVE IN CASE EOF ) 7 00354 G 01780 A 830 + 1819 G 01940 ZA GET IORW ADDR 9 1 00361 0 830 1820 G 01950 DSRT MLNA X13,DSDT+5 SAVE X13 A 12 00362 D 00089 00477 / 831 + + 1821 G 01960 ZA 14+X14,X15 GET B ADDR OF I/O OP 0 11 00374 0 000J4 00099 831 1822 G 01970 BBE 9 1 00385 W 831 1823 G 01980 C 9 1 00386 C 831 + 1824 G 01990 ZA FILE ADDR TO X13 9 1 00387 0 831 1825 G 02030 *** 1301/1302 DEVICE DEPENDENT SEEK ROUTINE G + G 1826 G 02040 BBE DSDT,16+X14,M Q. NON-SEQUENTIAL C 12 00388 W 00472 000J6 M 831 1827 G 02050 C 0-11+X13,0-5+X13 Q. EOF 0 11 00400 C 99IY9 99IZ5 832 1828 G 02060 BL DSEXC ) 7 00411 J 00527 T 832 + ++ 1829 G 02070 MLCA 0-9+X13,7+X15 SET TRACK ADDR 0 12 00418 D 99IZ1 00007 T 832 1830 G 02100 DSEQ C 0-11+X13,DS9999 Q. TRACK 9999 1 11 00430 C 99IY9 09997 832 1831 G 02110 BU DSEQ1 ) 7 00441 J 00461 / 833 G - 1832 G 02120 ZS 0-8+X13 FORCE EOF NEXT TIME T 6 00448 0 99IZ2 833 1833 G 02130 B DSDT *B ) 7 00454 J 00472 833 1834 G 02140 DSEQ1 A *-10,0-11+X13 INCR TRACK ADDR IN FT 3 11 00461 A 00461 99IY9 833 77120 GENERATE SGF PAGE 94 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G 1835 G 02150 DSDT BCE 0 RESTORE X13 T 6 00472 B 00000 833 L 1836 G 02160 SAR X13 T 7 00478 G 00089 A 834 1837 G 02170 DSLP EQU * 00485 +- 1838 G 02200 MLCS 7+X14,*+2 PICKUP CHAN CHAR A 12 00485 D 00007 00498 3 834 ++ 1839 G 02210 MU 'F0,0+X15,W EXEQ SEEK OP L 10 00497 M 'F0 00000 W 834 1840 G 02220 DSCC EQU * 00507 1841 G 02800 DS4SR EQU * )F 00507 1842 G 03120 DS3SR EQU * )F 00507 G G 1843 G 03150 BEX3 ER3SD,M )F ) 7 00507 3 02123 M 834 1844 G 03160 DS3CC MLZS DS3SD+1,0 SET SEEK IN PROCESS C 12 00514 D 01235 00000 2 835 1845 G 03170 BZN SEE IF ANY MORE 9 1 00526 V 835 1846 G 04370 DSEXC MLNS RWLST+5,*+15 INIT ZA D 12 00527 D 01780 00553 1 835 1847 G 04380 MLNS 9 1 00539 D 835 1848 G 04390 MLNS 9 1 00540 D 835 1849 G 04400 MLNS 9 1 00541 D 835 1850 G 04410 MLNS 9 1 00542 D 835 + +- 1851 G 04420 ZA 0+X14,0 BUMP MODULE LIST 0 11 00543 0 00000 00000 836 + 1852 G 04430 MLZS RW1BEX,15+X13 SET FILE EXCP BIT C 12 00554 D 00920 000/5 2 836 + 1853 G 04440 MRZ ERABBT-1,23+X14 TURN TB OFF, EXC ON C 12 00566 D 03620 000K3 0 836 + 1854 G 04450 ZA DSDT+5,X13 RESTORE X13 3 11 00578 0 00477 00089 836 1855 G 04460 CW DSQST+1,RWQSRT SET QSRT SWITCH 4 11 00589 ) 00641 01757 837 1856 G 04470 B GO TO DSQST 9 1 00600 J 837 1857 G 04880 DSOC EQU * 00601 1858 G 05160 DS4OC EQU * 00601 1859 G 05330 DS3MQO EQU *+10 00611 77120 GENERATE SGF PAGE 95 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + +- 1860 G 05340 DS3OC ZA 0+X14,0 UPDATE MOD QUEUE 0 11 00601 0 00000 00000 837 1861 G 05350 BW RWTACH,RWQSRT Q. NO ERROR EXIT D 12 00612 V 01697 01757 1 837 1862 G 05360 MLNS DS3OC+10,RWLST+5 SET QUEUE FOR QSORT D 12 00624 D 00611 01780 1 838 1863 G 05370 MLNS 9 1 00636 D 838 1864 G 05380 MLNS 9 1 00637 D 838 1865 G 05390 MLNS 9 1 00638 D 838 1866 G 05400 MLNS 9 1 00639 D 838 1867 G 05410 DSQST BCE ERCEL+1 ' 6 00640 B 09806 838 1868 G 05420 SAR RWRST+5 ) 7 00646 G 01786 A 838 1869 G 05430 B RWGFA ATTACH + QSRT ) 7 00653 J 01857 838 1870 G 05450 *** 1871 G 05460 *** WRITE DISK CHECK ROUTINES 1872 G 05470 *** 1873 G 05950 DS3WDC BZN RW3QSR,DS3OP+9,B Q. INPUT OP D 12 00660 V 01632 01350 K 839 1874 G 05960 BCE RW3QSR,DS3OP+3,3 Q. WDC ALREADY DONE D 12 00672 B 01632 01344 3 839 1875 G 05970 MLCS *-12,DS3OP+3 SET OP TO WDC D 12 00684 D 00683 01344 3 839 1876 G 05980 MLCWA DS3OP+9,RW3IO+9 INIT I/O OP TO WDC D 12 00696 D 01350 01561 X 840 1877 G 06000 BCE RW3IO EXEQ WDC )F ' 6 00708 B 01552 840 1878 G 06100 *** 1879 G 06110 *** CHAN 1 READ/WRITE ROUTINE 1880 G 06120 *** 1881 G 06130 RW1 EQU * 00714 + 1882 G 06140 ZA RW1ORG,X14 Q. NO PENDING OP 3 11 00714 0 05962 00094 840 1883 G 06160 BZ IS2 ) 7 00725 J 00960 V 840 + +- 1884 G 06190 ZA 0+X14,RW1ORG UPDATE RW LIST 1 11 00732 0 00000 05962 841 77120 GENERATE SGF PAGE 96 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1885 G 06200 BZ *+8 Q. RW LIST NOW VOID ) 7 00743 J 00757 V 841 1886 G 06210 B *+14 ) 7 00750 J 00770 841 1887 G 06220 BCE RW1ORG MAKE END POINT TO ORG ' 6 00757 B 05962 841 1888 G 06230 RW1LST SAR RW1END ) 7 00763 G 05930 A 841 G +- 1889 G 06240 S 0+X14 ZERO IORW LINK FLD T 6 00770 S 00000 842 + 1890 G 06250 MLCWA 15+X14,RW1IO+9 SET UP I/O OP A 12 00776 D 000J5 00864 X 842 1891 G 06290 BCE RW1IO Q. NOT UNIT OP )F ' 6 00788 B 00855 842 + 1892 G 06300 MLCWB 10+X14,RW1UN+4 SET UP UNIT OP )F A 12 00794 D 000J0 00810 P 842 1893 G 06310 RW1UN CU 'U0,@ EXEC UNIT OP M 5 00806 U 'U0 @ 842 1894 G 06320 BEX1 RW1UN,2 Q. BUSY ) 7 00811 R 00806 2 843 1895 G 06340 CW RW1UN+1,RW1UN+3 CLR WMS FROM 2 CHR OP 4 11 00818 ) 00807 00809 843 G G 1896 G 06350 BEX1 ERISS,M Q. ERROR ) 7 00829 R 02353 M 843 +- 1897 G 06360 RWUER MLCWA RWBUNC+6,0+X14 RESTORE CALLING SEQ C 12 00836 D 00193 00000 X 843 1898 G 06540 BXPA IS1 RW ROUT FINISHED ) 7 00848 Y 00315 X 843 1899 G 06580 RW1IO MU 'U0,0,@ EXEC I/O OP )F L 10 00855 M 'U0 00000 @ 844 + 1900 G 06590 ZA X14,WENDY CUR OP IORW TO WENDY 1 11 00865 0 00094 05967 844 + 1901 G 06600 DS1EP MLCS 19+X14,RW1BEX+6 INIT OP COMP BEX A 12 00876 D 000J9 00926 3 844 1902 G 06620 BOL1 IS2 Q. OP IN PROCESS ) 7 00888 J 00960 1 844 1903 G 06650 BEX1 *+8,1 Q. NOT READY ) 7 00895 R 00909 1 845 1904 G 06660 BEX1 RW1IO,2 Q. BUSY ) 7 00902 R 00855 2 845 1905 G 06670 *** 1906 G 06680 *** CHAN1 R/W OP COMP ROUTINE 1907 G 06690 *** + 1908 G 06700 RW1OC ZA WENDY,X14 PLACE CUR OP IN X14 3 11 00909 0 05967 00094 845 1909 G 06730 RW1BEX BEX1 ER1 Q. ERROR )F ) 7 00920 R 02225 845 77120 GENERATE SGF PAGE 97 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G G 1910 G 06740 BEX1 *+1,M REMOVE INTLK ) 7 00927 R 00934 M 845 + 1911 G 06770 RW1QSR BBE RW1SR,24+X14,2 Q. STORE REGISTER C 12 00934 W 01882 000K4 2 846 1912 G 06780 MLZS SET TB OFF 9 1 00946 D 846 1913 G 06860 BBE INX Q. INTRPT EXIT ' 6 00947 W 05263 846 1914 G 06880 B RWTBFL IORW TO FILE LIST ) 7 00953 J 01651 846 1915 G 06890 C2EN/ DEFIN IS2 00960 847 1916 G 06900 CHBA/ DEFIN * 00960 848 1917 G 06910 IS2 EQU * *B 00960 1918 G 06940 BOL2 IS3 Q. CH2 IN OPERATION*B ) 7 00960 J 01220 2 849 1919 G 06970 IS2YI BPI RW2OC,2 Q. CH2 OP COMP ) 7 00967 Y 01169 2 849 1920 G 06980 CHBB/ DEFIN IS2YI 00967 850 1921 G 07140 CALL IBSPOOL2 )S 851 1922 G 07150 BUP2/ DEFIN * )S 00974 852 1923 G 07160 BPA2/ DEFIN *+5 )S 00979 853 1924 G 07170 BPI *+1,F )S ) 7 00974 Y 00981 F 854 1925 G 07180 *** )S 1926 G 07190 *** CHAN 2 READ/WRITE ROUTINE 1927 G 07200 *** 1928 G 07210 RW2 EQU * *B 00981 + 1929 G 07950 ZA RW2ORG,X14 Q. NO PENDING OP 3 11 00981 0 06060 00094 854 1930 G 07990 BZ IS3 ) 7 00992 J 01220 V 854 + 1931 G 08000 ZA RW2ORG,JOODY CUR OP TO JOODY 4 11 00999 0 06060 06065 854 + +- 1932 G 08010 ZA 0+X14,RW2ORG UPDATE RW LIST 1 11 01010 0 00000 06060 855 1933 G 08020 BZ *+8 Q. RW LIST NOW VOID ) 7 01021 J 01035 V 855 1934 G 08030 B *+14 ) 7 01028 J 01048 855 77120 GENERATE SGF PAGE 98 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1935 G 08040 BCE RW2ORG MAKE END POINT TO ORG ' 6 01035 B 06060 855 1936 G 08050 RW2LST SAR RW2END ) 7 01041 G 06028 A 855 + 1937 G 08060 MLCWA 15+X14,RW2IO+9 SET UP I/O OP A 12 01048 D 000J5 01135 X 856 1938 G 08100 BCE RW2IO Q. NOT UNIT OP )F ' 6 01060 B 01126 856 + 1939 G 08110 MLCWB 10+X14,RW2UN+4 SET UP UNIT OP )F A 12 01066 D 000J0 01082 P 856 1940 G 08120 RW2UN CU *U0,@ EXEC UNIT OP M 5 01078 U *U0 @ 856 1941 G 08130 BEX2 RW2UN,2 Q. BUSY ) 7 01083 X 01078 2 856 1942 G 08140 CW RW2UN+1,RW2UN+3 CLR WMS FROM 2 CHR OP 4 11 01090 ) 01079 01081 857 + 1943 G 08150 RWUOC ZA JOODY,X14 CUR UNIT OP TO X14 3 11 01101 0 06065 00094 857 G G 1944 G 08160 BEX2 ERISS,M Q. ERROR ) 7 01112 X 02353 M 857 1945 G 08170 BXPA RWUER RESTORE CALLING SEQ ) 7 01119 Y 00836 X 857 1946 G 08210 RW2IO MU *U0,0,@ EXEC I/O OP )F L 10 01126 M *U0 00000 @ 858 + 1947 G 08220 DS2EP MLCS 19+X14,RW2BEX+6 INIT OP COMP BEX A 12 01136 D 000J9 01186 3 858 1948 G 08260 BOL2 IS3 Q. OP IN PROCESS ) 7 01148 J 01220 2 858 1949 G 08280 BEX2 *+8,1 Q. NOT READY ) 7 01155 X 01169 1 858 1950 G 08290 BEX2 RW2IO,2 Q. BUSY ) 7 01162 X 01126 2 858 1951 G 08300 *** 1952 G 08310 *** CHAN 2 R/W OP COMP ROUTINE 1953 G 08320 *** 1954 G 08330 RW2OC EQU * )F 01169 + 1955 G 08360 ZA JOODY,X14 CURR OP TO X14 3 11 01169 0 06065 00094 859 1956 G 08370 RW2BEX BEX2 ER2 )F ) 7 01180 X 02199 859 G G 1957 G 08380 BEX2 *+1,M REMOVE INTLK ) 7 01187 X 01194 M 859 + 1958 G 08410 RW2QSR BBE RW2SR,24+X14,2 Q. STORE REGISTER C 12 01194 W 01897 000K4 2 859 1959 G 08420 MLZS SET TB OFF 9 1 01206 D 859 77120 GENERATE SGF PAGE 99 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 1960 G 08500 BBE INX Q. INTRPT EXIT ' 6 01207 W 05263 860 1961 G 08530 B RWTBFL IORW TO FILE LIST ) 7 01213 J 01651 860 1962 G 08570 IS3 BOL3 ISEXIT Q. CH3 IN OPERATION ) 7 01220 J 05727 3 860 1963 G 08580 IS3YI BPI RW3OC,3 Q. CH3 OP COMP ) 7 01227 Y 01595 3 860 1964 G 08585 C3EN/ DEFIN IS3 01220 861 1965 G 08610 CALL IBDSKIOCS3 862 1966 G 08615 CCDK/ DEFIN DS3C 01411 863 1967 G 08650 DS3SD LL DSC0,DS3P/ Q. NO SEEKS TO ISSUE C 12 01234 T 03688 DS3P/ 1 864 1968 G 08660 BW DS3C ' 6 01246 V 01411 864 L 1969 G 08670 SBR X15 SAVE MOD QUEUE T 7 01252 G 00099 B 864 G ++ 1970 G 08680 BCE 2+X15 T 6 01259 B 00002 864 1971 G 08690 SAR DS3CC+10 INIT MLZS ) 7 01265 G 00524 A 864 1972 G 08700 SAR DS3MQO ADDR IF SEEK ERR ) 7 01272 G 00611 A 865 1973 G 08710 B DSIS ) 7 01279 J 00343 865 G 1974 G 08870 DS3SC BCE DS3R/ MOD TABLE TO X15 T 6 01286 B DS3R/ 865 L 1975 G 08880 SAR X15 T 7 01292 G 00099 A 865 1976 G 08910 DS3CML LH DSCZ,0-6+X15 FIND MOD SEEK IN PR)F C 12 01299 T 03083 99II4 4 865 L 1977 G 08920 SBR X15 SAVE MOD QUEUE T 7 01311 G 00099 B 866 + ++ 1978 G 09010 ZA 1+X15,X14 IORW ADDR TO X14 )F 0 11 01318 0 00001 00094 866 + 1979 G 09020 MLCA 15+X14,*+10 INIT I/O OP A 12 01329 D 000J5 01350 T 866 1980 G 09030 DS3OP MU $FX,0,R EXEQ DISK OP L 10 01341 M $F7 00000 R 866 1981 G 09040 *** CODING BETWEEN I/O OP AND BOL3 INSTR MUST TAKE AT 1982 G 09050 *** LEAST 110 MICROSECS TO EXECUTE..... 1983 G 09060 SBR DSAR3+5 INIT FOR Q. DATA XFR ) 7 01351 G 02164 B 867 + ++ 1984 G 09070 ZA 1+X15,NANCY CUR OP TO NANCY 1 11 01358 0 00001 06016 867 77120 GENERATE SGF PAGE 100 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G ++ 1985 G 09080 SW 2+X15 SET REGISTER T 6 01369 , 00002 867 1986 G 09090 SBR DS3MQO SET FOR UPDATE ) 7 01375 G 00611 B 867 1987 G 09100 MLZ INSURE DELAY TIME 9 1 01382 D 867 1988 G 09110 MLZ INSURE DELAY TIME 9 1 01383 D 867 1989 G 09120 BOL3 DS3GMO Q. OP IN PROCESS ) 7 01384 J 01398 3 867 1990 G 09130 BEX3 DS3CML,2 Q. NOT MOD SEEK COMP ) 7 01391 3 01299 2 868 G + ++ 1991 G 09140 DS3GMO ZA 1+X15 SET MOD QUEUE ACTIVE T 6 01398 0 00001 868 1992 G 09180 B DS3EP ENTER RW ROUTINE ) 7 01404 J 01562 868 1993 G 09220 DS3C BPI DS3SC,Y CHECK SEEK COMP )F ) 7 01411 Y 01286 Y 868 1994 G 09230 *** )F 1995 G 09240 *** CHAN 3 READ/WRITE ROUTINE 1996 G 09250 *** + 1997 G 09260 ZA RW3ORG,X14 Q. NO PENDING OP 3 11 01418 0 06011 00094 868 1998 G 09280 BZ ISEXIT ) 7 01429 J 05727 V 869 + 1999 G 09310 ZA RW3ORG,NANCY CUR OP TO NANCY 4 11 01436 0 06011 06016 869 + +- 2000 G 09320 ZA 0+X14,RW3ORG UPDATE RW LIST 1 11 01447 0 00000 06011 869 2001 G 09330 BZ *+8 Q. RW LIST NOW VOID ) 7 01458 J 01472 V 869 2002 G 09340 B *+14 ) 7 01465 J 01485 869 2003 G 09350 BCE RW3ORG MAKE END POINT TO ORG ' 6 01472 B 06011 870 2004 G 09360 RW3LST SAR RW3END ) 7 01478 G 05979 A 870 + 2005 G 09370 MLCWA 15+X14,RW3IO+9 SET UP I/O OP A 12 01485 D 000J5 01561 X 870 2006 G 09410 BCE RW3IO Q. NOT UNIT OP )F ' 6 01497 B 01552 870 + 2007 G 09420 MLCWB 10+X14,RW3UN+4 SET UP UNIT OP )F A 12 01503 D 000J0 01519 P 870 2008 G 09430 RW3UN CU $U0,@ EXEC UNIT OP M 5 01515 U $U0 @ 871 2009 G 09440 BEX3 RW3UN,2 Q. BUSY ) 7 01520 3 01515 2 871 77120 GENERATE SGF PAGE 101 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 2010 G 09450 RWU3OC ZA NANCY,X14 CUR UNIT OP TO X14 3 11 01527 0 06016 00094 871 G G 2011 G 09460 BEX3 ERISS,M Q. ERROR ) 7 01538 3 02353 M 871 2012 G 09470 BXPA RWUER RESTORE CALLING SEQ ) 7 01545 Y 00836 X 871 G G 2013 G 09510 RW3IO MU $U0,0,M EXEQ I/O OP )F L 10 01552 M $U0 00000 M 872 + 2014 G 09520 DS3EP MLCS 19+X14,RW3BEX+6 INIT OP COMP BEX A 12 01562 D 000J9 01612 3 872 2015 G 09540 BOL3 ISEXIT Q. OP IN PROCESS ) 7 01574 J 05727 3 872 2016 G 09580 BEX3 *+8,1 Q. NOT READY ) 7 01581 3 01595 1 872 2017 G 09590 BEX3 RW3IO,2 Q. BUSY ) 7 01588 3 01552 2 872 2018 G 09600 *** 2019 G 09610 *** CHAN 3 R/W OP COMP ROUTINE 2020 G 09620 *** 2021 G 09630 RW3OC EQU * )F 01595 + 2022 G 09660 ZA NANCY,X14 CURR OP TO X14 3 11 01595 0 06016 00094 873 2023 G 09670 RW3BEX BEX3 ER3 )F ) 7 01606 3 02159 873 G G 2024 G 09680 BEX3 *+1,M REMOVE INTLK ) 7 01613 3 01620 M 873 + 2025 G 09700 BBE DS3WDC,25+X14,2 Q. WRITE DISK CHECK C 12 01620 W 00660 000K5 2 873 + 2026 G 09710 RW3QSR BBE RW3SR,24+X14,2 Q. STORE REGISTER C 12 01632 W 01912 000K4 2 874 2027 G 09720 MLZS SET TB OFF 9 1 01644 D 874 2028 G 09800 BBE INX Q. INTRPT EXIT ' 6 01645 W 05263 874 2029 G 10980 *** PLACE THE IORW POINTED TO BY X14 ON BOTTOM OF FILE LIST + +- 2030 G 10990 RWTBFL ZA 5+X14,X15 FILE ADDR TO X15 0 11 01651 0 00005 00099 874 + 2031 G 11000 BBE RWTBSL,16+X15,= Q. NOT TAPE C 12 01662 W 01685 000A6 = 874 2032 G 11010 A *-10,0-11+X15 UPDATE BLOCK COUNT 3 11 01674 A 01674 99IH9 875 2033 G 11020 RWTBSL EQU * 01685 +- 2034 G 11040 BCE DSOC,8+X14,F Q. DISK OP C 12 01685 B 00601 00008 F 875 77120 GENERATE SGF PAGE 102 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2035 G 11050 *** PLACE IORW POINTED TO BY X14 ON BOTTOM OF LIST POINTED 2036 G 11060 *** TO BY X15 2037 G 11070 RWTACH EQU * )S 01697 + + 2038 G 11120 BBE SPA2/,25+X14,8 )S 0 12 01697 W SPA2/ 000K5 8 875 + ++ +- 2039 G 11260 RWNSP ZA 0+X15,0+X14 Q. BOTTOM LIST FOUN)S 0 11 01709 0 00000 00000 875 2040 G 11270 BZ RWANX )S ) 7 01720 J 01745 V 876 + ++ 2041 G 11280 ZA 0+X15,X15 GET NEXT LIST ELEME)S 0 11 01727 0 00000 00099 876 2042 G 11290 B RWNSP ) 7 01738 J 01709 876 + ++ 2043 G 11300 RWANX ZA X14,0+X15 AFFIX IORW TO LIST 0 11 01745 0 00094 00000 876 2044 G 11310 NOP 9 1 01756 N 876 2045 G 11320 RWQSRT B IS1 Q. NO QUEUE-SORT ) 7 01757 J 00315 877 + +- 2046 G 11330 ZA 5+X14,RWBKT SAVE FILE ADDR 1 11 01764 0 00005 10004 877 G 2047 G 11340 RWLST BCE 0 T 6 01775 B 00000 877 L 2048 G 11350 RWRST SAR 0 RW LIST TO LIST END T 7 01781 G 00000 A 877 L 2049 G 11360 SAR X15 RW LIST TO X15 T 7 01788 G 00099 A 877 + ++ 2050 G 11370 ZA 0+X15,X14 LIST ELEMENT TO X14 0 11 01795 0 00000 00094 878 2051 G 11380 BZ RWSX Q. END OF LIST ) 7 01806 J 01875 V 878 +- 2052 G 11390 C 4+X14,RWBKT-1 Q. ELEM NOT OF FILE 1 11 01813 C 00004 10003 878 2053 G 11400 SAR RWLST+5 ELEMENT TO RWLST ) 7 01824 G 01780 A 878 2054 G 11410 BU RWLST ) 7 01831 J 01775 / 878 +- ++ 2055 G 11420 SW 1+X14,1+X15 SET A+B REGISTERS 0 11 01838 , 00001 00001 879 2056 G 11430 SBR RWLST+5 NEXT ELEMENT TO RWLST ) 7 01849 G 01780 B 879 + 2057 G 11440 ZA DELETE ELEMENT RWLIST 9 1 01856 0 879 + +- 2058 G 11450 RWGFA ZA 5+X14,X15 FILE ADDR TO X15 0 11 01857 0 00005 00099 879 2059 G 11460 B RWNSP ) 7 01868 J 01709 879 77120 GENERATE SGF PAGE 103 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2060 G 11470 RWSX SW RWQSRT ' 6 01875 , 01757 879 2061 G 11480 B RW ROUT FINISHED 9 1 01881 J 880 2062 G 11490 *** 2063 G 11500 *** STORE REGISTER ROUTINES 2064 G 11510 *** 2065 G 11520 RW1SR BZN TB CONSTANT NOP 9 1 01882 V 880 2066 G 11550 SR ERAR+5,E STORE E REGISTER ) 7 01883 G 09824 E 880 2067 G 11600 B ERQQWL )F ) 7 01890 J 02262 880 2068 G 11620 RW2SR BZN TB CONSTANT NOP 9 1 01897 V 880 2069 G 11650 SR ERAR+5,F STORE F REGISTER ) 7 01898 G 09824 F 880 2070 G 11700 B ERQQWL )F ) 7 01905 J 02262 880 2071 G 11720 RW3SR BZN TB CONSTANT NOP 9 1 01912 V 880 2072 G 11730 SR ERAR+5,G STORE G REGISTER ) 7 01913 G 09824 G 881 2073 G 11780 B ERQQWL )F ) 7 01920 J 02262 881 77120 GENERATE SGF PAGE 104 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2074 G 11880 ** CONSOLE SEQ, ENTERED MASKED FROM YIQ. IF INQ PERTAINS TO 2075 G 11890 ** 1414, CONTROL GOES TO IS1TQ. IF MESSAGE IS RECEIVABLE, IT 2076 G 11900 ** IS READ INTO /RIQ/ AND CONTROL GOES TO MON. IF THE MSG 2077 G 11910 ** IS NOT RECEIVABLE A HOLDOFF MSG IS TYPED. CONTROL THEN 2078 G 11920 ** GOES TO THE INTERRUPT SEQ WHEN THE CONSOLE IS FREE. D 2079 G 12010 ISTYP MRCWG ISQMSG,ERMSG+4 TYPE REPEAT MSG D 12 01927 D 09735 09749 L 881 2080 G 12020 BBE ERTYP ' 6 01939 W 04428 881 2081 G 12030 ISQCR MU 'T0,0,Q Q RELEASED/CANCELLED L 10 01945 M 'T0 00000 Q 881 G G 2082 G 12040 BEX1 IS1,M ) 7 01955 R 00315 M 882 2083 G 12050 BBE ISQCR ' 6 01962 W 01945 882 2084 G 12070 IS1INQ BW ISTYP,PGHLEZ-1 Q. MESSAGE RECEIVABLE D 12 01968 V 01927 09940 1 882 2085 G 12080 ISRQ MU 'T0,/RIQ/,R READ MESSAGE L 10 01980 M 'T0 /RIQ/ R 882 2086 G 12090 BEX1 ISTYP,( Q ERROR/CANCELLED ) 7 01990 R 01927 ( 882 2087 G 12110 MLCWA X13,PGHLEZ+5 SAVE X13 A 12 01997 D 00089 09946 X 883 2088 G 12120 MLCWA ISIND SAVE HLEZ IND5 ' 6 02009 D 09808 883 2089 G 12130 MLCWA ACBEPA+5 SAVE RTN ADDR ' 6 02015 D 05753 883 2090 G 12140 SW ACBEPA ENABLE EXIT SWITCH ' 6 02021 , 05748 883 G L G 2091 G 12150 BEX1 MINQ/,M REMOVE INTLK T 7 02027 R MINQ/ M 883 2092 G 12160 BBE GO TO MINQ/ 9 1 02034 W 883 2093 G 12170 PGPM/ DEFIN * 02035 884 2094 G 12180 MDEL/ DEFIN * 02035 885 2095 G 12190 MLCWA PGHLEZ+5,X13 RESTORE X13 C 12 02035 D 09946 00089 X 886 2096 G 12200 MLCWA PGHLEZ,ISIND RESTORE HLEZ INDS D 12 02047 D 09941 09808 X 886 2097 G 12210 MLCWA PGIQAR,ACBEPA+5 RESTORE RETURN ADDR D 12 02059 D 09939 05753 X 886 2098 G 12220 CW IS1+1,PGHLEZ-1 SET MSG RECEIVABLE 4 11 02071 ) 00316 09940 886 77120 GENERATE SGF PAGE 105 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2099 G 12230 B BRANCH TO IS1 9 1 02082 J 887 77120 GENERATE SGF PAGE 106 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2100 G 12990 *** IOCS ERROR ROUTINES 2101 G 13000 ERSWA NOPWM Q. IN ERROR ROUTINE 9 1 02083 N 887 2102 G 13010 B ERISS ) 7 02084 J 02353 887 + 2103 G 13020 ERSTB MLZS RWBUNC,23+X14 SET TB OFF C 12 02091 D 00187 000K3 2 887 2104 G 13040 NOP OFF IF/ERROR EXIT 9 1 02103 N 887 2105 G 13050 ERQISW BBE INX Q. INTRPT EXIT ' 6 02104 W 05263 887 2106 G 13060 SW ERQISW SET SWITCH ON ' 6 02110 , 02104 887 2107 G 13070 B RWTBFL IORW TO FILE LIST ) 7 02116 J 01651 888 2108 G 13200 ER3SD BEX3 DSLP,2 Q. BUSY ) 7 02123 3 00485 2 888 2109 G 1321E MLCS RW3BEX+13,RW3BEX+6 BRANCH ON ANY SEEK ER D 12 02130 D 01619 01612 3 888 + 2110 G 1321J ZA X14,NANCY 1 11 02142 0 00094 06016 888 G + 2111 G 13210 CW 16+X14 INDICATE SEEK ERROR T 6 02153 ) 000J6 888 2112 G 13230 **** CHANNEL 3 ERROR ROUTINE ***** 2113 G 13240 ER3 EQU * 02159 L 2114 G 13260 DSAR3 BOL3 0 SET A REG TO END ADDR T 7 02159 J 00000 3 889 2115 G 13270 SAR ERAR+5 ) 7 02166 G 09824 A 889 +- 2116 G 13280 BCE ERISS,7+X14,+ Q. NOT OVERLAPPED C 12 02173 B 02353 00007 + 889 2117 G 13290 SR ERAR+5,G STORE G REGISTER ) 7 02185 G 09824 G 889 2118 G 13300 B ERQSXR ) 7 02192 J 02244 889 2119 G 13380 ER2 EQU * 02199 2120 G 13390 **** CHANNEL 2 ERROR ROUTINE ******** +- 2121 G 13430 BCE ERISS,7+X14,) Q. NOT OVERLAPPED C 12 02199 B 02353 00007 ) 890 2122 G 13440 SR ERAR+5,F STORE F REGISTER ) 7 02211 G 09824 F 890 2123 G 13450 B ERQSXR ) 7 02218 J 02244 890 2124 G 13520 **** CHANNEL 1 ERROR ROUTINE ******** 77120 GENERATE SGF PAGE 107 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG +- 2125 G 13530 ER1 BCE ERISS,7+X14,( Q. NOT OVERLAPPED C 12 02225 B 02353 00007 ( 890 2126 G 13540 SR ERAR+5,E STORE E REGISTER ) 7 02237 G 09824 E 890 2127 G 13550 ERQSXR SW ERSWA+1 SET ERSWA ON ' 6 02244 , 02084 891 + 2128 G 13560 BBE ERISS,24+X14,1 Q. NO STORE REGISTER C 12 02250 W 02353 000K4 1 891 + + 2129 G 13570 ERQQWL ZA ERAR+5,30+X14 3 11 02262 0 09824 000L0 891 + 2130 G 13580 BBE ERSWA,23+X14,1 Q. NOT PWRL C 12 02273 W 02083 000K3 1 891 + + 2131 G 13590 ZA 14+X14,X15 0 11 02285 0 000J4 00099 892 2132 G 13600 A *-10,X15 3 11 02296 A 02296 00099 892 + 2133 G 13610 DSSHS1 S X15,30+X14 COMPUTE REC LENGTH )F 0 11 02307 S 00099 000L0 892 + + 2134 G 13620 ZA 30+X14,ERCEL GET TRUE RECORD LENG 1 11 02318 0 000L0 09805 892 ++ 2135 G 13630 S 2+X15,ERCEL SUBTRACT BCC 1 11 02329 S 00002 09805 893 2136 G 13640 BZ ERSWA Q. CORRECT LENG REC ) 7 02340 J 02083 V 893 2137 G 13650 CW ERSWB FORCE CH STATUS B-BIT ' 6 02347 ) 02656 893 2138 G 13660 ERISS CW ERSWA+1 SET ERSWA OFF ' 6 02353 ) 02084 893 2139 G 13720 MLCS RW1BEX,ERBEX ASSUME CHAN 1 )F D 12 02359 D 00920 02624 3 893 2140 G 13730 MLC RW1LST+5,RWRST+5 INIT QSRT BKTS D 12 02371 D 00768 01786 C 894 2141 G 13740 MLC 9 1 02383 D 894 +- 2142 G 13760 MLCS 7+X14,UNXT DETERMINE CHANNEL A 12 02384 D 00007 09848 3 894 2143 G 13770 LLE UNXT ' 6 02396 T 09848 894 2144 G 13780 BBE ERSS Q. CHAN1 ' 6 02402 W 02585 894 2145 G 13800 BBE ERCH2 Q. CHAN2 ' 6 02408 W 02503 894 2146 G 14030 ERCH3 MLCS RW3BEX,ERBEX INIT BEX FOR CHAN 3 D 12 02414 D 01606 02624 3 895 2147 G 14100 MLCS 'X',IS3YI+6 BPI3 TO BXPA D 12 02426 D 10535 01233 3 895 2148 G 14120 MLC RW3LST+5,RWRST+5 INIT QSRT BKTS D 12 02438 D 01483 01786 C 895 2149 G 14130 MLC 9 1 02450 D 895 77120 GENERATE SGF PAGE 108 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 2150 G 14140 BZN *+14,11+X14 Q. NOT UNIT OP C 12 02451 V 02476 000J1 2 896 2151 G 14150 BCE RWU3OC BOPR3 TO BXPA RWU3OC ' 6 02463 B 01527 896 2152 G 14160 SAR IS3YI+5 ) 7 02469 G 01232 A 896 2153 G 14170 BOL1 RW1OC CLEAR CHAN 1 FOR TYPE ) 7 02476 J 00909 1 896 2154 G 14180 BPI 9 1 02483 Y 896 2155 G 14190 MLCA RWI3,IS3YI+6 RESTORE BOPR3 D 12 02484 D 09860 01233 T 897 2156 G 14200 B ERSS STORE CHANNEL STATUS ) 7 02496 J 02585 897 2157 G 14210 ERCH2 EQU * *B 02503 2158 G 14230 MLCS RW2BEX,ERBEX Q. INIT BEX FOR CH *B D 12 02503 D 01180 02624 3 897 2159 G 14320 MRC RW2BEX,IS2YI+6 BPI2 TO BXPA D 12 02515 D 01180 00973 = 897 2160 G 14340 MLC RW2LST+5,RWRST+5 INIT QSRT BKTS D 12 02527 D 01046 01786 C 898 2161 G 14350 MLC 9 1 02539 D 898 + 2162 G 14360 BZN *+14,11+X14 Q. NOT UNIT OP C 12 02540 V 02565 000J1 2 898 2163 G 14370 BCE RWUOC BOPR2 TO BXPA RWU2OC ' 6 02552 B 01101 898 2164 G 14380 SAR IS2YI+5 ) 7 02558 G 00972 A 898 2165 G 14390 BOL1 RW1OC CLEAR CHAN 1 FOR TYPE ) 7 02565 J 00909 1 899 2166 G 14400 BPI 9 1 02572 Y 899 2167 G 14410 MLCA RWI2,IS2YI+6 RESTORE BOPR2 D 12 02573 D 09854 00973 T 899 2168 G 14420 *** 2169 G 14430 *** STORE CHANNEL STATUS AS A SINGLE CHARACTER IN ERMSG+8 2170 G 14440 *** G 2171 G 14450 ERSS S X15 ZERO X15 T 6 02585 S 00099 899 2172 G 14460 ERSSB S ERSSN,X15 ADD 5 TO X15 3 11 02591 S 02616 00099 899 2173 G 14470 MLCS ERBITS-1+X15,ERBEX+6 GET D-MODIFIER D 12 02602 D 09FC6 02630 3 900 2174 G 14480 C MANIPULATE B REGISTER 9 1 02614 C 900 77120 GENERATE SGF PAGE 109 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2175 G 14490 C 9 1 02615 C 900 2176 G 14500 ERSSN NOPWM 9 1 02616 N 900 2177 G 14510 C ERBEX OP CODE BUCKET 9 1 02617 C 900 2178 G 14520 MLCS ERBEX SAVE ERBEX OP CODE ' 6 02618 D 02624 900 2179 G 14530 ERBEX BEX1 ERSSB Q. STS CMPLMT NOT FND ) 7 02624 R 02591 900 2180 G 14540 MLCB ERBITS-3+X15,ERMSG+8 GET STATUS WITH B-BIT D 12 02631 D 09FC4 09753 L 901 + 2181 G 14550 BBE ERRBS,19+X14,- Q. WLR CHECK WANTED C 12 02643 W 02668 000J9 - 901 2182 G 14560 ERMM NOP OFF IF PWLR CONDITION 9 1 02655 N 901 2183 G 14570 ERSWB MLCS ERBITS-2+X15,ERMSG+8 GET STATUS NO B-BIT D 12 02656 D 09FC5 09753 3 901 2184 G 14580 ERRBS SW ERSWB SET ERSWB ON ' 6 02668 , 02656 901 2185 G 14590 NOPWM Q. DESTRUCTIVE PURGE 9 1 02674 N 902 2186 G 14600 ESWC/ DEFIN ERSWC 02675 903 2187 G 14610 ERSWC B ERQUN NO ERROR CORRECT ) 7 02675 J 03818 904 2188 G 14620 MLCWA ACGMWM,ERMSG+20 SET UP FOR ERROR MSG D 12 02682 D 09744 09765 X 904 G + 2189 G 14630 MLCWA 15+X14 MOVE 10 CHR I/O OP T 6 02694 D 000J5 904 2190 G 14640 BW ERUNC,ERMSG+15 Q. UNIT OP D 12 02700 V 03628 09760 1 904 + +- 2191 G 14650 ZA 5+X14,X15 FILE ADDR TO X15 0 11 02712 0 00005 00099 905 2192 G 14670 *** ERROR STATISTICS + 2193 G 14680 BBE ERNT,16+X15,= Q. NOT TAPE C 12 02723 W 02784 000A6 = 905 2194 G 14690 BBE ERNT,ERMSG+8,9 Q. EOF OR NR D 12 02735 W 02784 09753 9 905 +- 2195 G 14700 MLC 7+X14,ERCC GET CHAN UNIT CHRS A 12 02747 D 00007 10196 C 905 G +- 2196 G 14710 MLC 9+X14 T 6 02759 D 00009 906 2197 G 14720 LE ERCC,ERCDT LOOK UP CHAN D 12 02765 T 10196 10472 2 906 2198 G 14730 LE LOOK UP UNIT 9 1 02777 T 906 2199 G 14740 C SET REGISTERS 9 1 02778 C 906 77120 GENERATE SGF PAGE 110 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2200 G 14750 C 9 1 02779 C 906 2201 G 14760 C 9 1 02780 C 906 2202 G 14770 C 9 1 02781 C 906 2203 G 14780 C 9 1 02782 C 906 2204 G 14790 A ADD 1 TO 'ENTRIES' 9 1 02783 A 906 2205 G 14800 *** 2206 G 14810 ERNT EQU * 02784 2207 G 14830 BBE ERLERS,ERMSG+8,1 Q. NOT READY D 12 02784 W 02808 09753 1 907 + 2208 G 14840 BBE ERCRL,16+X15,8 Q. DISK FILE C 12 02796 W 03032 000A6 8 907 2209 G 14850 *** TEST FOR IMMEDIATE EXIT 2210 G 14860 ERLERS EQU * 02808 2211 G 14870 MLCS ERMSG+8,ERS PUT CHN STS IN ERS D 12 02808 D 09753 09728 3 907 G + G 2212 G 14930 BCE ERQX,38+X15,M C 12 02820 B 02882 000C8 M 908 + 2213 G 14940 MLCS 42+X15,ERS+5 GET EXIT CHRS FROM FT A 12 02832 D 000D2 09733 3 908 2214 G 14950 MLCS 9 1 02844 D 908 2215 G 14960 MLCS 9 1 02845 D 908 2216 G 14970 MLCS 9 1 02846 D 908 2217 G 14980 MLCS 9 1 02847 D 908 + 2218 G 14990 MLWS 42+X15,ERS+6 OFFSET WMS FOR LOOKUP A 12 02848 D 000D2 09734 4 908 2219 G 15000 MLWS 9 1 02860 D 909 2220 G 15010 MLWS 9 1 02861 D 909 2221 G 15020 MLWS 9 1 02862 D 909 2222 G 15030 MLWS 9 1 02863 D 909 2223 G 15040 LE ERS,ERS+6 Q. NO IMMED EXIT D 12 02864 T 09728 09734 2 909 2224 G 15050 BCE ERQD ' 6 02876 B 02972 909 77120 GENERATE SGF PAGE 111 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2225 G 15060 ERQX EQU * 02882 + 2226 G 15080 BZN EROC,21+X14,B TEST FOR RANDOM C 12 02882 V 02953 000K1 K 909 + 2227 G 15090 BZN ERQSKP,22+X14,A Q. TAKE ERROR EXIT C 12 02894 V 03585 000K2 S 910 + 2228 G 15100 MRZ ERMM-1,24+X14 A. YES, SET EXCP BITS C 12 02906 D 02654 000K4 0 910 2229 G 15110 ERIEF EQU * )S 02918 + + 2230 G 15160 BBE SPC2/,25+X14,8 )S 0 12 02918 W SPC2/ 000K5 8 910 + 2231 G 15300 ERNSP MLZS RW1BEX,15+X15 )S C 12 02930 D 00920 000A5 2 911 2232 G 15340 CW RWQSRT,ERQISW OPEN ERROR COND SWS 4 11 02942 ) 01757 02104 911 + 2233 G 15350 EROC MLCS ERS,18+X14 PUT CHAN STAT IN IORW C 12 02953 D 09728 000J8 3 911 2234 G 15650 B ERSTB SET TB OFF ) 7 02965 J 02091 911 2235 G 15660 ERQD EQU * 02972 + 2236 G 15680 BBE DERR,16+X15,8 Q. DISK FILE C 12 02972 W 03935 000A6 8 912 2237 G 15690 BBE ERNR,ERS,1 Q. NOT READY D 12 02984 W 03720 09728 1 912 +- 2238 G 15720 BZN UERR,8+X14 )S C 12 02996 V 03787 00008 2 912 2239 G 15760 BBE TEQQEF,ERS,8 Q. EOF CONDITION D 12 03008 W 03371 09728 8 913 2240 G 15770 TEQW BBE TEQWMX,ERMSG+19,U Q. TAPE WRITE OP D 12 03020 W 03508 09764 U 913 2241 G 15780 ERCRL CW ERMSG+21 COMPUTE RECORD LENGTH ' 6 03032 ) 09766 913 + 2242 G 15790 ZA ERAR+5,ERMSG+24 GET CHAN REGISTER 4 11 03038 0 09824 09769 913 2243 G 15800 S ERMSG+18,ERMSG+24 SUB B ADDR OF I/O OP 4 11 03049 S 09763 09769 914 2244 G 15810 S TEBMP,ERMSG+24 SUB 1 4 11 03060 S 03185 09769 914 2245 G 15820 MLCWA ACGMWM,ERMSG+25 SHIFT GMWM IN MSG D 12 03071 D 09744 09770 X 914 2246 G 15830 DSCZ MCS ERMSG+24 ZERO SUP + CLR GMWM ' 6 03083 Z 09769 914 + 2247 G 15850 BBE DEQAT,16+X15,8 Q. DISK FILE C 12 03089 W 04380 000A6 8 915 + 2248 G 15860 BCE TEQ9X,16+X14,9 Q. 90TH TO 99TH TRY C 12 03101 B 03125 000J6 9 915 2249 G 15870 BBE TEQSR,ERS,4 Q. DATA CHECK D 12 03113 W 03167 09728 4 915 77120 GENERATE SGF PAGE 112 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 2250 G 15910 TEQ9X BCE *+8,17+X14,I Q. 99TH TRY C 12 03125 B 03144 000J7 I 916 2251 G 15920 B TEQSR ) 7 03137 J 03167 916 2252 G 15930 *** ERROR STATISTICS 2253 G 15940 LE ERCC,ERCDT LOOK UP CHAN D 12 03144 T 10196 10472 2 916 2254 G 15950 LE LOOK UP UNIT 9 1 03156 T 916 2255 G 15960 C SET REGISTERS 9 1 03157 C 916 2256 G 15970 C 9 1 03158 C 916 2257 G 15980 A ADD 1 TO 'PERM RDERR' 9 1 03159 A 916 2258 G 15990 B ERQQX ) 7 03160 J 03526 917 2259 G 16000 TEQSR C ERMSG+24,ERMNL Q. NOISE RECORD 4 11 03167 C 09769 09783 917 2260 G 16010 BH TESR ) 7 03178 J 03445 U 917 + 2261 G 16020 TEBMP A *-10,17+X14 BUMP ERROR CNT BY 1 3 11 03185 A 03185 000J7 917 2262 G 16030 TEBSP MLCS ERBEX,TECU+5 INIT BEX FOR CHAN D 12 03196 D 02624 03229 3 918 2263 G 16040 MLCS TEQ9X SET OP TO BSP ' 6 03208 D 03125 918 G +- 2264 G 16050 MLCS 9+X14 SET X-CTL FIELD T 6 03214 D 00009 918 2265 G 16060 MLCS 9 1 03220 D 918 2266 G 16070 MLCS 9 1 03221 D 918 2267 G 16080 NOPWM 9 1 03222 N 918 2268 G 16090 MCE CONSTANT FOR SKIP OP 9 1 03223 E 918 2269 G 16100 TECU CU 'U0,@ EXEC BSR/SKP M 5 03224 U 'U0 @ 918 G G 2270 G 16110 BEX1 *-11,M Q. ERROR + RMV INTLK ) 7 03229 R 03224 M 919 + 2271 G 16120 BZN TECL,15+X14,B Q. TAPE READ OP C 12 03236 V 03291 000J5 K 919 2272 G 16130 BCE UNTACH,TECU+4,E Q. SKP OP XEQD D 12 03248 B 04616 03228 E 919 2273 G 16150 *** ERROR STATISTICS 2274 G 16160 LE ERCC,ERCDT LOOK UP CHAN D 12 03260 T 10196 10472 2 919 77120 GENERATE SGF PAGE 113 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2275 G 16170 LE LOOK UP UNIT 9 1 03272 T 919 2276 G 16180 C SET REGISTERS 9 1 03273 C 920 2277 G 16190 C 9 1 03274 C 920 2278 G 16200 A ADD 1 TO 'SKIPS' 9 1 03275 A 920 2279 G 16210 MLCWS TECU-1,TECU+4 SET OP TO SKP D 12 03276 D 03223 03228 7 920 2280 G 16220 BBE MIGHT BRANCH TO NOPWM 9 1 03288 W 920 2281 G 16230 BBE ALWAYS BRANCHS 9 1 03289 W 920 2282 G 16240 DCW ' ' CONSTANT FOR TEPSR 9 1 03290 920 + + 2283 G 16250 TECL ZA 14+X14,X15 B ADDR I/O OP TO X15 0 11 03291 0 000J4 00099 920 + ++ 2284 G 16260 TECLS SCNRG 0+X15,0-1+X15 LOOK FOR GMWM 0 12 03302 D 00000 99II9 Q 921 L 2285 G 16270 SAR X15 UPDATE X15 T 7 03314 G 00099 A 921 + 2286 G 16280 ZA CLEAR GMWM 9 1 03321 0 921 2287 G 16290 C ERAR+5,X15 Q. NOT DONE CLEARING 3 11 03322 C 09824 00099 921 2288 G 16300 BL TECLS ) 7 03333 J 03302 T 921 2289 G 16310 MRC ACGMWM,0-1+X15 RESTORE LAST GMWM C 12 03340 D 09744 99II9 = 922 +- 2290 G 16330 BCE IS1,8+X14,F Q. DISK OP + RETRY C 12 03352 B 00315 00008 F 922 2291 G 16340 B UNTACH RETRY OP ) 7 03364 J 04616 922 + 2292 G 16350 TEQQEF BBE *+8,19+X14,8 Q. EOF CHK DESIRED C 12 03371 W 03390 000J9 8 922 2293 G 16360 B TEQW IGNORE EOF ) 7 03383 J 03020 923 + 2294 G 16370 ERQIEF MRZ ERMM,24+X14 SET EOF EXIT BIT ON C 12 03390 D 02655 000K4 0 923 + 2295 G 16380 BBE ERIEF,15+X14,Q Q. READ OP C 12 03402 W 02918 000J5 Q 923 2296 G 16390 BBE TEQWMX,ERS,4 Q. DATA CHECK D 12 03414 W 03508 09728 4 923 + 2297 G 16410 BBE ERIEF,25+X14,8 )S C 12 03426 W 02918 000K5 8 924 2298 G 16420 B EROC )S ) 7 03438 J 02953 924 2299 G 16430 TESR EQU * 03445 77120 GENERATE SGF PAGE 114 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2300 G 16450 *** ERROR STATISTICS 2301 G 16460 LE ERCC,ERCDT LOOK UP CHAN D 12 03445 T 10196 10472 2 924 2302 G 16470 LE LOOK UP UNIT 9 1 03457 T 924 2303 G 16480 A ADD 1 TO 'NOISE' 9 1 03458 A 924 2304 G 16490 TESRC EQU * 03459 G + G 2305 G 16500 BBE TECL,16+X14,M Q.REDUNDANCY ALREADY C 12 03459 W 03291 000J6 M 925 + 2306 G 16520 TEPSR BCE ERTYP,17+X14,I Q. 9TH NSE REC C 12 03471 B 04428 000J7 I 925 + 2307 G 16530 A *-10,17+X14 ADD 1 TO ERR CNT 3 11 03483 A 03483 000J7 925 + 2308 G 16540 MRC TECL-1,16+X14 INDICATE NOISE RECORD C 12 03494 D 03290 000J6 = 925 2309 G 16550 BWZ DECR B REG 9 1 03506 V 926 2310 G 16560 BWZ GO TO TECL 9 1 03507 V 926 + 2311 G 16570 TEQWMX C 17+X14,TEWMX Q. NOT 25TH RETRY 1 11 03508 C 000J7 09831 926 2312 G 16580 BH TEBMP ) 7 03519 J 03185 U 926 + 2313 G 16590 ERQQX MLNA AC3BL-1,17+X14 BLNK ERROR CNT FLD C 12 03526 D 09833 000J7 / 926 2314 G 16600 B ERTYP TYPE ERROR MSG ) 7 03538 J 04428 926 G + G 2315 G 16620 BCE ERQX,42+X15,M C 12 03545 B 02882 000D2 M 927 2316 G 16630 MLCS ERS,*+12 Q. DELAYED EXIT D 12 03557 D 09728 03580 3 927 + 2317 G 16640 BCE ERQX,42+X15 C 12 03569 B 02882 000D2 927 2318 G 16650 BCE 9 1 03581 B 927 2319 G 16660 BCE 9 1 03582 B 927 2320 G 16670 BCE 9 1 03583 B 927 2321 G 16680 BCE 9 1 03584 B 927 2322 G 16690 ERQSKP EQU * 03585 + 2323 G 16710 BBE DEQIR,16+X15,8 Q. DISK FILE C 12 03585 W 04337 000A6 8 928 + 2324 G 16720 BBE TEBMP,15+X14,U Q. TAPE WRITE OP C 12 03597 W 03185 000J5 U 928 77120 GENERATE SGF PAGE 115 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 2325 G 16730 BZN EROC,14+X15,A Q. NOT SKIP OPTION C 12 03609 V 02953 000A4 S 928 2326 G 16740 ERABBT B TECL CLEAR INPUT AREA ) 7 03621 J 03291 928 2327 G 16760 ERUNC CW ERMSG+13 CLR GMWM FRM REP INQ ' 6 03628 ) 09758 929 2328 G 16770 MLCB ACGMWM,ERMSG+15 BUILD UNCTL MSG D 12 03634 D 09744 09760 L 929 G + 2329 G 16800 MLC 10+X14 T 6 03646 D 000J0 929 2330 G 16810 BBE TEBSP,ERMSG+8, Q. WTM ERROR CHECK D 12 03652 W 03196 09753 929 2331 G 16811 ORG *-1 03663 2332 G 16812 DC ''' 1 03663 930 2333 G 16830 BBE UETYPA,ERMSG+8,S Q. NO TRANSFER-SSF ER D 12 03664 W 03811 09753 S 931 2334 G 16850 BZN UNQSP,0-5+X14,B )S C 12 03676 V 03701 99IR5 K 931 G - 2335 G 16880 DSC0 ZS 0-5+X14 )S T 6 03688 0 99IR5 931 2336 G 16890 B ERTYP TYPE ERROR MSG ) 7 03694 J 04428 931 + +- 2337 G 16910 UNQSP BZN SPER/,4+X14,B )S 0 12 03701 V SPER/ 00004 K 932 2338 G 16920 B UNTACH )S ) 7 03713 J 04616 932 + 2339 G 16940 ERNR BZN ERQSP,17+X14,B )S C 12 03720 V 03756 000J7 K 932 2340 G 16990 ERTYPB B ERTYP TYPE ERROR MSG ) 7 03732 J 04428 932 G + 2341 G 17000 ERTACH S 17+X14 SET PREVIOUS NR T 6 03739 S 000J7 932 + 2342 G 17010 A ERTYPB,17+X14 ADD 1 TO ERROR CNT 3 11 03745 A 03732 000J7 933 + + 2343 G 17030 ERQSP BBE SPER/,25+X14,8 )S 0 12 03756 W SPER/ 000K5 8 933 + 2344 G 17050 DETACH BBE DETRY,16+X15,8 Q. DISK FILE C 12 03768 W 04290 000A6 8 933 2345 G 17060 B UNTACH RETRY OPERATION ) 7 03780 J 04616 933 2346 G 17080 UERR BBE UETYPB,ERS,4 Q. DATA CHECK D 12 03787 W 03849 09728 4 934 2347 G 17090 BBE UEQEF,ERS,8 Q. CONDITION BIT D 12 03799 W 03837 09728 8 934 2348 G 17130 UETYPA B ERTYP TYPE ERROR MSG ) 7 03811 J 04428 934 + 2349 G 17140 ERQUN BW RWUER,11+X14 Q. UNIT OP C 12 03818 V 00836 000J1 1 934 77120 GENERATE SGF PAGE 116 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2350 G 17150 B EROC ) 7 03830 J 02953 935 + 2351 G 17170 UEQEF BBE ERQIEF,15+X14,Q Q. READ OP C 12 03837 W 03390 000J5 Q 935 2352 G 17180 UETYPB B ERTYP TYPE ERROR MSG ) 7 03849 J 04428 935 + + 2353 G 17200 BBE SPER/,25+X14,8 )S 0 12 03856 W SPER/ 000K5 8 935 2354 G 17210 MLC *+7,UEFNR+9 )S D 12 03868 D 03886 03919 C 936 G + 2355 G 17220 MLC 14+X14 )S T 6 03880 D 000J4 936 + 2356 G 17230 BZN UEFNR,15+X14,A Q. OUTPUT C 12 03886 V 03910 000J5 S 936 2357 G 17240 MLCS TECLS+11,UEFNR+9 SET Q D-MOD D 12 03898 D 03313 03919 3 936 2358 G 17250 UEFNR MU '10,0,Q EXEC I/O NOP L 10 03910 M '10 00000 Q 937 2359 G 17310 BEX1 ERTACH,1 Q. NOT READY ) 7 03920 R 03739 1 937 G G 2360 G 17320 UEBEX BEX1 UEFNR,M REMOVE INTLK ) 7 03927 R 03910 M 937 2361 G 17330 BBE GO TO UEFNR 9 1 03934 W 937 + 2362 G 17390 DERR BW DELDM,16+X14 Q. NOT SEEK ERROR C 12 03935 V 03965 000J6 1 937 2363 G 17400 MLCS DERR+6,ERMSG+13 PUT SEEK OP IN MSG D 12 03947 D 03941 09758 3 938 G + 2364 G 17410 SW 16+X14 RESTORE WM IN IORW T 6 03959 , 000J6 938 2365 G 17420 DELDM EQU * )F 03965 + + 2366 G 17490 ZA 14+X14,X15 B ADDR I/O OP TO X15 0 11 03965 0 000J4 00099 938 2367 G 17500 SW ERMSG+21 INIT FOR MOVE ' 6 03976 , 09766 938 ++ 2368 G 17550 MLCB 8+X15,ERMSG+29 GET GEOM TRCK ADDR A 12 03982 D 00008 09774 L 939 2369 G 17560 MLCB 9 1 03994 D 939 2370 G 17570 MLCB 9 1 03995 D 939 + 2371 G 17580 BBE DERX,21+X14,1 Q. GEOMETRIC C 12 03996 W 04022 000K1 1 939 2372 G 17590 MLCB 0-1+X15,ERMSG+29 GET NONGEO TK ADDR A 12 04008 D 99II9 09774 L 939 2373 G 17600 MLCB 9 1 04020 D 939 2374 G 17610 MLCB 9 1 04021 D 939 77120 GENERATE SGF PAGE 117 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2375 G 17620 DERX EQU * )F 04022 + +- 2376 G 17650 ZA 5+X14,X15 FILE ADDR TO X15 )F 0 11 04022 0 00005 00099 940 G G 2377 G 17660 BBE *+13,ERS,T Q.NOT WLR,NT, OR NR D 12 04033 W 04057 09728 T 940 2378 G 17670 BBE ERNR,ERS,/ Q.TREAT LIKE NR D 12 04045 W 03720 09728 / 940 + 2379 G 17680 A *-10,17+X14 ADD 1 TO ERROR CNT 3 11 04057 A 04057 000J7 940 + 2380 G 17690 MLCS 17+X14,*+12 MOVE ERROR CNT TO BCE A 12 04068 D 000J7 04091 3 941 2381 G 17700 BCE DE1,DENTBL Q. 1ST RETRY D 12 04080 B 04120 09990 941 2382 G 17710 BCE DE2 Q. 2ND RETRY ' 6 04092 B 04139 941 2383 G 17720 BCE Q. 3RD RETRY 9 1 04098 B 941 2384 G 17730 BCE Q. 4TH RETRY 9 1 04099 B 941 2385 G 17740 BCE DE5 Q. 5TH RETRY ' 6 04100 B 04184 941 2386 G 17750 BCE DETRY Q. 6TH RETRY ' 6 04106 B 04290 942 2387 G 17760 BCE Q. 7TH RETRY 9 1 04112 B 942 2388 G 17770 BCE Q. 8TH RETRY 9 1 04113 B 942 2389 G 17780 BBE ERQQX Q. 9TH RETRY ' 6 04114 W 03526 942 2390 G 17790 DE1 BCE DESKV,ERS,V Q. INVALID TRACK NO. D 12 04120 B 04214 09728 V 942 2391 G 17800 B DETRY RETRY OP ) 7 04132 J 04290 942 2392 G 17810 DE2 LEH ERS,DE2TBL Q. ERR NOT 5,9,V,8,Q, D 12 04139 T 09728 09981 6 943 2393 G 17820 SBR DE2MN+5 SAVE ADDR FOR MSG ) 7 04151 G 04170 B 943 2394 G 17830 BU DETRY RETRY ) 7 04158 J 04290 / 943 2395 G 17840 DE2MN MLCA 0,ERMSG+7 SET UP ERROR MSG A 12 04165 D 00000 09752 T 943 2396 G 17850 B ERQQX ) 7 04177 J 03526 943 2397 G 18140 DE5 BBE ERQQX,ERS,4 Q. PARITY CHECK )F D 12 04184 W 03526 09728 4 944 2398 G 18150 MLCA DEINV,ERMSG+25 SET FOR SEEK CE )F D 12 04196 D 09993 09770 T 944 2399 G 18160 BBE DESK SEEK ' 6 04208 W 04232 944 77120 GENERATE SGF PAGE 118 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2400 G 18170 DESKV MLNA RWTACH+3,ERMSG+26 SET FOR SEEK 0 D 12 04214 D 01700 09771 / 944 2401 G 18180 CW DETRY+1 SET B REGISTER ' 6 04226 ) 04291 945 2402 G 18190 DESK SBR DEBEX+5 SET RETURN ) 7 04232 G 04287 B 945 +- 2403 G 18200 MLCS 7+X14,*+2 INIT SEEK FOR CHAN A 12 04239 D 00007 04252 3 945 2404 G 18210 DESKOP MU 'F0,ERMSG+21,R EXEC SEEK OP J 10 04251 M 'F0 09766 R 945 2405 G 18220 MLCS ERBEX,DEBEX INIT BOTH BEXS D 12 04261 D 02624 04282 3 946 2406 G 18230 C 9 1 04273 C 946 2407 G 18240 MLCS 9 1 04274 D 946 2408 G 18250 BEX1 DESKOP,2 Q. BUSY ) 7 04275 R 04251 2 946 G L G 2409 G 18260 DEBEX BEX1 0,M REMOVE INTLK T 7 04282 R 00000 M 946 2410 G 18270 BBE EXIT SEEK ROUTINE 9 1 04289 W 946 G + 2411 G 18700 DETRY A 16+X14 SET NON-SEQ T 6 04290 A 000J6 946 2412 G 18710 BZN IS1,ERMSG+19,A Q. SEEK OR WRITE OP D 12 04296 V 00315 09764 S 947 + + 2413 G 18760 ZA 14+X14,X15 B ADDR I/O OP TO X15 0 11 04308 0 000J4 00099 947 2414 G 18770 A DSCZ,X15 ADD 9 TO X15 3 11 04319 A 03083 00099 947 2415 G 18780 B TECLS ) 7 04330 J 03302 947 2416 G 18830 DEQIR BBE DETRY,ERS,1 Q. NO DATA TRANSFER D 12 04337 W 04290 09728 1 948 + 2417 G 18840 BBE EROC,16+X14,+ Q. NON-SEQUENTIAL C 12 04349 W 02953 000J6 + 948 + 2418 G 18850 BZN DETRY+6,14+X15,B Q. SKIP OPTION C 12 04361 V 04296 000A4 K 948 2419 G 18860 B EROC ) 7 04373 J 02953 948 2420 G 18870 DEQAT C ERMSG+24,DSKERMNL Q. DATA TRANSFERRED 4 11 04380 C 09769 09966 949 2421 G 18880 BL ERLERS ) 7 04391 J 02808 T 949 2422 G 18890 BZN ERLERS,ERMSG+8,- D 12 04398 V 02808 09753 K 949 2423 G 18900 A *-10,ERMSG+8 SET 1 BIT IN STATUS 4 11 04410 A 04410 09753 949 2424 G 18910 B ERLERS Q. IMMED EXIT ) 7 04421 J 02808 950 77120 GENERATE SGF PAGE 119 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2425 G 18920 *** ERROR MESSAGE TYPE ROUTINE. 2426 G 18930 ERTYP SBR ERTYPX+5 SAVE RETURN ) 7 04428 G 04469 B 950 2427 G 18940 MU 'T0,ERMSG,W EXEC TYPE MSG J 10 04435 M 'T0 09745 W 950 2428 G 18950 BEX1 *-16,2 Q. BUSY ) 7 04445 R 04435 2 950 2429 G 18960 MLCA ERMSG+2,ERMSG+4 SET MSG CODE 01 D 12 04452 D 09747 09749 T 950 G L G 2430 G 18970 ERTYPX BEX1 0,M REMOVE INTLK T 7 04464 R 00000 M 951 2431 G 18980 BBE EXIT TYPE ROUTINE 9 1 04471 W 951 77120 GENERATE SGF PAGE 120 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2432 G 19000 ***CONSOLE TYPE ROUTINE. ENTER WITH FOLLOWING CALLING SEQ... 2433 G 19010 *** BXPA /CNC/ 2434 G 19020 *** DCW AREA 2435 G 19030 *** 2436 G 19040 /CNC/ DEFIN CNC 04472 952 L 2437 G 19050 CNC SBR X15 GET CALLING SEQ T 7 04472 G 00099 B 953 ++ 2438 G 19060 BBE 5+X15,CNRW+16 SET A+B REGISTERS A 12 04479 W 00005 09612 953 2439 G 19070 SAR ACBEPA+5 STORE RETURN ADDR ) 7 04491 G 05753 A 953 2440 G 19080 C ADJUST A+B REGISTERS 9 1 04498 C 953 2441 G 19090 MLN INIT B ADDR TYPE IORW 9 1 04499 D 953 2442 G 19100 MLZS CNRW+1,CNTB SET IORW ACTIVE D 12 04500 D 09597 09619 2 953 L 2443 G 19110 SAR X14 IORW ADDR TO X14 T 7 04512 G 00094 A 954 +- 2444 G 19120 UN1 SW RW1ORG+1,1+X14 SET A+B REGISTERS 3 11 04519 , 05963 00001 954 L 2445 G 19130 SAR X15 CH1 RW LIST TO X15 T 7 04530 G 00099 A 954 + 2446 G 19140 ZA RW LIST TO IORW 9 1 04537 0 954 2447 G 19150 UNQZ BZ UNVD Q. VOID RW LIST ) 7 04538 J 04698 V 954 + ++ 2448 G 19160 UNCLE ZA X14,0+X15 IORW TO TOP RW LIST 0 11 04545 0 00094 00000 955 2449 G 19220 NOPWM )S 9 1 04556 N 955 2450 G 19230 SUS2/ DEFIN * )S 04557 956 L 2451 G 19240 B SUR2/ )S T 7 04557 J SUR2/ 957 2452 G 19270 B IS1 ) 7 04564 J 00315 957 2453 G 19280 *** 2454 G 19290 ***UNIT CONTROL ROUTINE. ENTER WITH FOLLOWING CALLING SEQ... 2455 G 19300 *** BXPA /UNC/ 2456 G 19310 *** DCW /MR0/ SYMUNIT 77120 GENERATE SGF PAGE 121 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2457 G 19320 *** CU 'U0,R 2458 G 19330 *** BW *-11,*-26 2459 G 19340 *** 2460 G 19350 /UNC/ DEFIN * 04571 958 2461 G 19360 UNC C ADJUST B-REGISTER 9 1 04571 C 959 L 2462 G 19370 SBR X15 SET X15 FOR MIO T 7 04572 G 00099 B 959 L 2463 G 19380 BXPA /MIO/ GET UNIT ASSGNMENT T 7 04579 Y /MIO/ X 959 2464 G 19390 CMIO/ DEFIN * 04586 960 + 2465 G 19400 ZA X15,X14 PSEUDO-IORW TO X14 0 11 04586 0 00099 00094 961 G + 2466 G 19410 CW 12+X14 SET B-REG T 6 04597 ) 000J2 961 2467 G 19420 SBR ACBEPA+5 SAVE RETURN ADDR ) 7 04603 G 05753 B 961 G 2468 G 19430 SW 0-4+X14 CREATE LINK FIELD T 6 04610 , 99IR6 961 +- 2469 G 19450 UNTACH MLCS 7+X14,UNXT DETERMINE CHANNEL A 12 04616 D 00007 09848 3 961 2470 G 19460 LLE UNXT ' 6 04628 T 09848 962 2471 G 19470 BBE UN1 Q CHAN1 ' 6 04634 W 04519 962 2472 G 19490 BBE UN2 Q. CHAN2 ' 6 04640 W 04672 962 +- 2473 G 19570 UN3 SW RW3ORG+1,1+X14 SET A+B REGISTERS 3 11 04646 , 06012 00001 962 L 2474 G 19580 SAR X15 CH3 RW LIST TO X15 T 7 04657 G 00099 A 962 + 2475 G 19590 ZA IORW TO TOP RW LIST 9 1 04664 0 962 2476 G 19600 B UNQZ ) 7 04665 J 04538 963 +- 2477 G 19620 UN2 SW RW2ORG+1,1+X14 SET A+B REGISTERS 3 11 04672 , 06061 00001 963 L 2478 G 19630 SAR X15 CH2 RW LIST TO X15 T 7 04683 G 00099 A 963 + 2479 G 19640 ZA IORW TO TOP RW LIST 9 1 04690 0 963 2480 G 19650 B UNQZ ) 7 04691 J 04538 963 + 2481 G 19680 UNVD MLNA X14,UNSPAN+X15 IORW TO LIST END 0 12 04698 D 00094 99IF8 / 964 77120 GENERATE SGF PAGE 122 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2482 G 19690 BBE UNCLE BRANCH TO UNCLE ' 6 04710 W 04545 964 77120 GENERATE SGF PAGE 123 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2483 G 19850 PGDM/ DEFIN PGCHK 04716 965 2484 G 19860 /CHK/ DEFIN PGCHK 04716 966 2485 G 19870 PGCHK SBR *+6 GET CALLING SEQ ) 7 04716 G 04728 B 967 2486 G 19880 MRC 0,PGCPT MOVE CHAR INTO ID A 12 04723 D 00000 09960 = 967 2487 G 19890 SAR PGRX+5 SAVE RETURN ) 7 04735 G 05088 A 967 2488 G 19900 /CHS/ DEFIN CHKOFFSW FOR MON DYNAMIC MDM 04743 968 2489 G 19910 NOP Q.MDM NOT AVAILABLE 9 1 04742 N 969 2490 G 19920 CHKOFFSW B PGRX MANIPULATED BY MON ) 7 04743 J 05083 969 2491 G 19940 BXPA PG PURGE RW LIST5 ) 7 04750 Y 04916 X 969 2492 G 20020 A *-10,PGCPT-1 BUMP CHKPT SERIAL 4 11 04757 A 04757 09959 969 D 2493 G 20030 MRCWG PGCPT-3,ERMSG+10 BUILD CHKPT MESG D 12 04768 D 09957 09755 L 969 2494 G 20040 MLCA PGCTM,ERMSG+8 D 12 04780 D 09927 09753 T 970 2495 G 20050 SAR PGDIR+5 SET FIRST DUMP ADDR ) 7 04792 G 04817 A 970 2496 G 20060 B ERTYP TYPE CHKPT MSG ) 7 04799 J 04428 970 2497 G 20065 CW ERMSG+14 CLEAR WM FROM CHKPT M ' 6 04806 ) 09759 970 2498 G 20070 PGDIR MLNA 0,PGRW+14 SET IORW TO DUMPN A 12 04812 D 00000 09895 / 970 2499 G 20080 SAR *-13 SET MLCA TO DUMPN+1 ) 7 04824 G 04817 A 971 2500 G 20090 SAR PGQFD+10 SET BBE TO DUMPN+1 ) 7 04831 G 04862 A 971 2501 G 20100 DPET/ DEFIN PGPET 04843 972 2502 G 20110 PGPET EQU *+5 04843 2503 G 20120 PGPUT BXPA ACPET PUT PGF TO EOM ) 7 04838 Y 05393 X 973 2504 G 20130 DCW PGF N 5 04849 09796 973 2505 G 20140 DC 'X' 9 1 04850 973 2506 G 20150 DCW ' ' 9 1 04851 973 2507 G 20160 DPTR/ DEFIN PGQFD 04852 974 77120 GENERATE SGF PAGE 124 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG T T 2508 G 20170 PGQFD BBE PGDIR,PGOGR,M D 12 04852 W 04812 09912 M 975 2509 G 20180 *** THE FOLLOWING DEFIN STATEMENTS ARE FOR RESTART RESUMPTION 2510 G 20190 RSCS/ DEFIN PGF+30 09826 976 2511 G 20200 RSRW/ DEFIN PGDIR+5 04817 977 2512 G 20210 RSAC/ DEFIN AC1 05433 978 2513 G 20220 RSTK/ DEFIN PGRW+7 09888 979 2514 G 20230 RSRX/ DEFIN PGRX+5 05088 980 2515 G 20250 RSUM/ DEFIN * 04864 981 2516 G 20270 B PGRIP RESUME PROG ) 7 04864 J 05026 982 2517 G 22130 *** MONITOR NON-RESUME PURGE FOLLOW UP ROUTINE 2518 G 22140 PGRL/ DEFIN * 04871 983 L 2519 G 22238 SBR RCLX/ T 7 04871 G RCLX/ B 984 2520 G 22242 B CLEXIT ) 7 04878 J 07486 984 2521 G 22246 *** *** 2522 G 22250 PURG/ DEFIN * 04885 985 2523 G 22260 PURR/ DEFIN * 04885 986 2524 G 22270 SBR PGX+5 ) 7 04885 G 05024 B 987 2525 G 22280 S RWPLST DROP INT PROGRAMS ' 6 04892 S 09932 987 2526 G 22290 CW PGHLEZ-1,FEFUM ENABLE INQS, EORS 4 11 04898 ) 09940 07316 987 2527 G 22300 BXPA PG+7 ) 7 04909 Y 04923 X 987 2528 G 22310 PG SBR PGX+5 ) 7 04916 G 05024 B 987 G 2529 G 22350 SW SP2S/ T 6 04923 , SP2S/ 988 2530 G 22360 SW PGISW )S ' 6 04929 , 05740 988 2531 G 22375 CW IS1+1,PGRXBP+1 4 11 04935 ) 00316 05034 988 2532 G 22390 SBR ACBEPA+5 SET ACBEPA TO PGRX ) 7 04946 G 05753 B 988 77120 GENERATE SGF PAGE 125 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2533 G 22400 BBE PRIME CHANNELS 9 1 04953 W 988 2534 G 22410 PGRT BOL1 RW1OC ) 7 04954 J 00909 1 988 2535 G 22420 BPI 9 1 04961 Y 988 2536 G 22470 BOL2 RW2OC ) 7 04962 J 01169 2 989 2537 G 22480 BPI 9 1 04969 Y 989 2538 G 22530 BOL3 RW3OC ) 7 04970 J 01595 3 989 2539 G 22540 BPI 9 1 04977 Y 989 2540 G 22560 LEH PGZ,DS3P/ Q. CH3 SEEK PENDING C 12 04978 T 09862 DS3P/ 6 989 2541 G 22570 BZN IS3 ' 6 04990 V 01220 989 2542 G 22640 MLC ACBEPA+5,PGRIP+5 D 12 04996 D 05753 05031 C 990 2543 G 22650 CW PGISW,ERSWC 4 11 05008 ) 05740 02675 990 L 2544 G 22660 PGX BXPA 0 T 7 05019 Y 00000 X 990 2545 G 22665 RSIP/ DEFIN PGRIP+5 05031 991 L 2546 G 22670 PGRIP BEPA 0 T 7 05026 Y 00000 E 992 2547 G 22673 PGRXBP EQU * 05033 2548 G 22679 BXPA *+1 ) 7 05033 Y 05040 X 992 2549 G 22682 MLCWA PGRX+5,ACBEPA+5 D 12 05040 D 05088 05753 X 992 2550 G 22683 SW PGRX RESTORE WM CHKPT EXIT ' 6 05052 , 05083 992 G 2551 G 22700 CW SP2S/ T 6 05058 ) SP2S/ 992 + 2552 G 22712 BW SP2Q/,SPS2/ 0 12 05064 V SP2Q/ SPS2/ 1 993 2553 G 22715 BW ISEXIT ' 6 05076 V 05727 993 2554 G 22718 NOP 9 1 05082 N 993 L 2555 G 22721 PGRX BEPA 0 T 7 05083 Y 00000 E 993 77120 GENERATE SGF PAGE 126 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2556 G 22750 ** EXIT-ACCEPT/DELETE SEQ, ENTERED MASKED FROM PN, NONZERO, 2557 G 22760 ** TO PASS CONTROL TO PN-1 WITH OR WITHOUT RETURN OF AN IORW 2558 G 22770 ** TO A FILE LIST. PN IS RE-ENTERED IF ITS SERVICE LIST IS 2559 G 22780 ** NOT VOIDED OR VOID, RESP. 2560 G 22790 /DEL/ DEFIN INDEL 05090 994 2561 G 22794 INDEL SBR *+7 ) 7 05090 G 05103 B 995 2562 G 22798 NOPWM 9 1 05097 N 995 L 2563 G 22802 B 0 T 7 05098 J 00000 995 2564 G 22806 CW INSWA,INSWB 4 11 05105 ) 05139 05178 995 2565 G 22810 /ACC/ DEFIN INACC 05116 996 + 2566 G 22820 INACC ZA RWPLST,X15 FIND PN SERV LIST 3 11 05116 0 09932 00099 997 + ++ 2567 G 22830 ZA 0+X15,X14 FIND TOP IORW 0 11 05127 0 00000 00094 997 2568 G 22840 NOP 9 1 05138 N 997 + +- ++ 2569 G 22850 INSWA ZA 0+X14,0+X15 FIND NEXT IORW 0 11 05139 0 00000 00000 997 2570 G 22860 BZ INRST Q VOID OR VOIDABLE ) 7 05150 J 05203 V 997 ++ 2571 G 22870 INREN BBE ACBEPA,2+X15 INIT TO REENTER PN C 12 05157 W 05748 00002 998 2572 G 22880 SBR ACBEPA+5 ) 7 05169 G 05753 B 998 2573 G 22890 SW 9 1 05176 , 998 2574 G 22900 INRX NOP 9 1 05177 N 998 2575 G 22910 INSWB B RWGFA ) 7 05178 J 01857 998 2576 G 22920 SW INSWA,INSWB ENABLE RETURN TO FL 4 11 05185 , 05139 05178 998 2577 G 22930 B IS1 ENTER PX ) 7 05196 J 00315 999 + 2578 G 22940 INRST MLC 0-5+X15,X13 RESTORE PN-1 0 12 05203 D 99II5 00089 C 999 2579 G 22950 MLC 0-10+X15,ISIND A 12 05215 D 99II0 09808 C 999 2580 G 22960 MLCWA 0-12+X15,ACBEPA+5 A 12 05227 D 99IH8 05753 X 999 77120 GENERATE SGF PAGE 127 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G 2581 G 22970 CW 0-9+X15 SET PN ENTERABLE T 6 05239 ) 99II1 000 + 2582 G 22980 ZA 0-19+X15,RWPLST POP-UP PROG LIST 1 11 05245 0 99IH1 09932 000 2583 G 22990 B INRX ENTER PX, ETC ) 7 05256 J 05177 000 77120 GENERATE SGF PAGE 128 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2584 G 23740 ** INTERRUPT-EXIT SEQ, ENTERED MASKED FROM INTERRUPT SEQ. 2585 G 23750 ** THE IORW AT 0+X14 IS PLACED AT THE BOTTOM OF THE SERVICE 2586 G 23760 ** LIST AT 52+X15. IF THE RELEVANT PN+1 IS ENTERABLE, THE 2587 G 23770 ** STATUS OF PN IS STORED ATOP PN+1, AND PN+1 IS ENTERED. + +- 2588 G 23780 INX ZA 5+X14,X15 FIND FILE TABLE 0 11 05263 0 00005 00099 000 + 2589 G 23790 BBE *+12,16+X15,= C 12 05274 W 05297 000A6 = 001 2590 G 23800 A *-10,0-11+X15 3 11 05286 A 05286 99IH9 001 + + 2591 G 23810 ZA 52+X15,X15 FIND PX SERV LIST 0 11 05297 0 000E2 00099 001 2592 G 23820 BW RWTBSL,0-9+X15 Q X EQU N+1 C 12 05308 V 01685 99II1 1 001 + 2593 G 23860 INTPR MLCWA X13,0-5+X15 PN STATUS TO PN+1 0 12 05320 D 00089 99II5 X 002 2594 G 23870 MLCWA ISIND ' 6 05332 D 09808 002 2595 G 23880 MLCWA ACBEPA+5 ' 6 05338 D 05753 002 + 2596 G 23890 ZA RWPLST,0-19+X15 PUSH-DOWN PROG LIST 3 11 05344 0 09932 99IH1 002 + 2597 G 23900 ZA X15,RWPLST 1 11 05355 0 00099 09932 003 ++ 2598 G 24120 BBE ACBEPA,2+X15 C 12 05366 W 05748 00002 003 2599 G 24130 SBR ACBEPA+5 ) 7 05378 G 05753 B 003 2600 G 24140 SW 9 1 05385 , 003 2601 G 24150 B RWTBSL ) 7 05386 J 01685 003 77120 GENERATE SGF PAGE 129 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2602 G 24170 *** AREA CONTROL ROUTINE. ENTER WITH FOLLOWING CALLING SEQ... 2603 G 24180 *** BXPA /PET/ 2604 G 24190 *** DCW FILENAME 2605 G 24200 *** DC 'R' FOR GET, DC 'W' FOR PUT 2606 G 24210 *** DCW ' ' FOR UNCOND, DCW 'S' FOR DEFER, DCW 'J' 2607 G 24220 *** FOR NSEQ, DCW 'C' FOR DEFER AND NSEQ, OR 2608 G 24230 *** DCW N, WHERE N IS PUNCH OR PRINTER ORDER. 2609 G 24240 /PT4/ DEFIN ACPET 05393 004 2610 G 24250 /PET/ DEFIN ACPET 05393 005 2611 G 24260 ACPET SBR ACGPT+5 ) 7 05393 G 05405 B 006 + 2612 G 24270 ACGPT MRC 0,85 PICKUP FILE ADDRESS 0 12 05400 D 00000 00085 = 006 2613 G 24280 MRC 9 1 05412 D 006 2614 G 24290 MRC PICKUP COND CHARS 9 1 05413 D 006 2615 G 24300 SAR ACBEPA+5 ) 7 05414 G 05753 A 006 + + 2616 G 24310 MLC 91,30+X13 SAVE COND CHARS IN FT 0 12 05421 D 00091 000T0 C 006 2617 G 24315 SAC1/ DEFIN AC1 05433 007 + + 2618 G 24320 AC1 ZA 0+X13,X14 CHK TOP OF FILE LIST 0 11 05433 0 000@0 00094 008 2619 G 24350 BZ ACDFR Q. FILE LIST VOID ) 7 05444 J 06066 V 008 +- 2620 G 24360 BW AC2,6+X14 Q. NOT FORM 4 PUT C 12 05451 V 05538 00006 1 008 G +- 2621 G 24370 SW 6+X14 RESET SWITCH T 6 05463 , 00006 008 + + 2622 G 24380 ACPT4 ZA 14+X14,X15 GET AREA ADDR 0 11 05469 0 000J4 00099 009 + 2623 G 24400 BBE ACND1,16+X13,7 Q. NOT DISK C 12 05480 W 05503 000/6 7 009 2624 G 24470 S RW1BEX,X15 ADD 9 FOR 1301, ETC 3 11 05492 S 00920 00099 009 + + ++ 2625 G 24480 ACND1 MLC 37+X13,3+X15 PLUG BCC INTO AREA 0 12 05503 D 000T7 00003 C 009 + 2626 G 24490 A 37+X13,X15 LOCATE END OF AREA 0 11 05515 A 000T7 00099 010 77120 GENERATE SGF PAGE 130 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG ++ 2627 G 24500 MLCWS ACGMWM,0+X15 PLUG GMWM C 12 05526 D 09744 00000 7 010 + 2628 G 24510 AC2 BZN AC6,23+X14,B Q. TRAFFIC BIT ON C 12 05538 V 05768 000K3 K 010 C + C 2629 G 24520 BBE ACBEPA,30+X13,T Q. DEFER OPERATION C 12 05550 W 05748 000T0 T 010 + 2630 G 24530 AC3 MLZS AC2+11,23+X14 TURN ON TRAFFIC BIT C 12 05562 D 05549 000K3 2 011 + 2631 G 24540 BZN ACEXC,24+X14,B Q. IORW EXCEPTION C 12 05574 V 06480 000K4 K 011 + + + 2632 G 24550 ZA 14+X14,23+X13 GET AREA ADDRESS 0 11 05586 0 000J4 000S3 011 + 2633 G 24590 BBE *+12,16+X13,7 C 12 05597 W 05620 000/6 7 011 + 2634 G 24600 S RW1BEX,23+X13 ADD 9 FOR DISK FILE 3 11 05609 S 00920 000S3 012 + 2635 G 24610 ACND2 BBE ACRSTR,15+X13,1 Q. FORM 1 OR FORM 3 C 12 05620 W 05727 000/5 1 012 2636 G 24620 BBE AC4 Q. FORM 2 ' 6 05632 W 05705 012 + 2637 G 24630 BZN *+7,29+X13,B Q. INPUT C 12 05638 V 05656 000S9 K 012 G +- 2638 G 24640 CW 6+X14 SET FORM 4 PUT SW T 6 05650 ) 00006 013 + + 2639 G 24650 ZA 23+X13,X15 A. FORM 4 0 11 05656 0 000S3 00099 013 + ++ + 2640 G 24660 ZA 3+X15,33+X13 GET BLK COUNT 0 11 05667 0 00003 000T3 013 G + 2641 G 24670 S 29+X13 ZERO HO POS T 6 05678 S 000S9 013 + + 2642 G 24680 ZA ACON4,37+X13 INIT BLK CNT TO 4 3 11 05684 0 09864 000T7 013 2643 G 24690 A SUB 4 FROM FLD 12 9 1 05695 A 014 2644 G 24700 A SKIP FLD 11 9 1 05696 A 014 2645 G 24710 A ADD 4 TO AREA ADDR 9 1 05697 A 014 2646 G 24770 B AC5 ) 7 05698 J 05716 014 + + + 2647 G 24780 AC4 ZA 28+X13,33+X13 BLD FORM2 LNGTH FLD 0 11 05705 0 000S8 000T3 014 + + 2648 G 24840 AC5 A 23+X13,33+X13 F2 OR F4 END CONST 0 11 05716 A 000S3 000T3 014 2649 G 24850 ISEXIT EQU * )F 05727 + 2650 G 24900 ACRSTR ZA ISIND,ISMSK 4 11 05727 0 09808 09785 015 2651 G 24930 C RESTORE HLE STATUS 9 1 05738 C 015 77120 GENERATE SGF PAGE 131 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2652 G 24950 NOPWM 9 1 05739 N 015 2653 G 24960 PGISW B PGRT Q. PURGE IN PROCESS ) 7 05740 J 04954 015 2654 G 24970 NOP Q. EXIT ENABLED 9 1 05747 N 015 L 2655 G 24980 ACBEPA BEPA 0 IOCS EXIT TO MAINLINE T 7 05748 Y 00000 E 015 2656 G 24990 BEPA/ DEFIN ACBEPA+5 05753 016 2657 G 25000 ACDXT EQU ACBEPA+5 05753 2658 G 25010 SW ACBEPA ENABLE EXIT ' 6 05755 , 05748 017 2659 G 25020 B AC1 ) 7 05761 J 05433 017 2660 G 25030 AC6 EQU * 05768 + +- + 2661 G 25070 ZA 0+X14,0+X13 UPDATE FILE LIST ORG 0 11 05768 0 00000 000@0 017 + 2662 G 25075 BZN ACERAC,12+X13,B Q. ERROR EXIT ACCEPT C 12 05779 V 06444 000/2 K 017 + +- + 2663 G 25080 MLCS 7+X14,23+X13 SAVE CHAN CHAR 0 12 05791 D 00007 000S3 3 018 + 2664 G 25090 BZN ACFEXC,15+X13,B Q. F5 EXCEPTN C 12 05803 V 06468 000/5 K 018 + 2665 G 25100 AC7 MLCA AC3BL,18+X14 BLANK ERR STATUS FLD C 12 05815 D 09834 000J8 T 018 G + 2666 G 25110 MLCA 29+X13 SET I/O OP D-MODIFIER T 6 05827 D 000S9 018 G +- 2667 G 25120 S 0+X14 ZERO LINK FIELD T 6 05833 S 00000 019 + 2668 G 25140 BBE ACFTRW,16+X13,5 Q. TAPE, CR, OR 1011 C 12 05839 W 05899 000/6 5 019 + 2669 G 25160 BBE ACDSK,16+X13,8 Q. DISK C 12 05851 W 06347 000/6 8 019 + 2670 G 25180 BCE ACFTRW,30+X13 Q. BLANK COND CHAR C 12 05863 B 05899 000T0 019 + 2671 G 25190 BBE ACFTRW,30+X13,+ Q. ANY ZONE BITS C 12 05875 W 05899 000T0 + 020 + + +- 2672 G 25200 MLNS 30+X13,9+X14 REPLACE ORDER BITS 0 12 05887 D 000T0 00009 1 020 2673 G 25210 ACFTRW EQU * 05899 +- 2674 G 25250 BBE ACH4,7+X14,2 Q. CHAN 3 OR 4 OP C 12 05899 W 05968 00007 2 020 +- 2675 G 25270 BBE ACH2,7+X14,- Q. CHAN 2 OP C 12 05911 W 06017 00007 - 021 2676 G 25280 SCNLB 9 1 05923 D 021 77120 GENERATE SGF PAGE 132 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2677 G 25290 SCNLB SET BSAR TO 0+X14 9 1 05924 D 021 2678 G 25320 RW1END EQU *+5 05930 2679 G 25330 SBR RW1ORG ATTACH TO R/W LIST 1 ) 7 05925 G 05962 B 021 2680 G 25340 SBR RW1END UPDATE END BUCKET ) 7 05932 G 05930 B 021 2681 G 25350 BOL1 AC1 ) 7 05939 J 05433 1 021 2682 G 25360 ACH1A CW IS1+1,ACBEPA DISABLE EXIT 4 11 05946 ) 00316 05748 022 2683 G 25370 B 9 1 05957 J 022 2684 G 25380 RW1ORG DCW X15-99 RW LIST 1 ORIGIN Q 5 05962 00000 022 2685 G 25390 WENDY DCW X15-99 CURRENT OP 1 BUCKET Q 5 05967 00000 022 2686 G 25400 UNSPAN EQU RW1END-RW1ORG 99968 2687 G 25420 ACH4 EQU * 05968 G +- 2688 G 25640 ACH3 BCE 0+X14 T 6 05968 B 00000 022 2689 G 25650 ACH3C SAR RW3ORG ATTACH TO R/W LIST 3 ) 7 05974 G 06011 A 022 2690 G 25660 SAR RW3END UPDATE END BUCKET ) 7 05981 G 05979 A 023 2691 G 25670 BOL3 AC1 ) 7 05988 J 05433 3 023 2692 G 25680 CW IS3YI+1,ACBEPA 4 11 05995 ) 01228 05748 023 2693 G 25690 B 9 1 06006 J 023 2694 G 25700 RW3END EQU ACH3C+5 05979 2695 G 25710 RW3ORG DCW 00000 RW LIST 3 ORIGIN 5 06011 024 2696 G 25730 NANCY DCW 00000 CURRENT OP 3 BUCKET 5 06016 024 G +- 2697 G 25750 ACH2 BCE 0+X14 T 6 06017 B 00000 025 2698 G 25760 ACH2C SAR RW2ORG ATTACH TO R/W LIST 2 ) 7 06023 G 06060 A 025 2699 G 25770 SAR RW2END UPDATE END BUCKET ) 7 06030 G 06028 A 025 2700 G 25780 BOL2 AC1 ) 7 06037 J 05433 2 025 2701 G 25790 CW IS2YI+1,ACBEPA DISABLE EXIT 4 11 06044 ) 00968 05748 025 77120 GENERATE SGF PAGE 133 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2702 G 25800 B 9 1 06055 J 025 2703 G 25810 RW2END EQU ACH2C+5 06028 2704 G 25820 RW2ORG DCW X15-99 RW LIST 2 ORIGIN Q 5 06060 00000 026 2705 G 25840 JOODY DCW X15-99 CURRENT OP 2 BUCKET Q 5 06065 00000 026 2706 G 25850 *** IF DEFER OPERATION, EXIT. OTHERWISE ENTER DYNAMIC 2707 G 25860 *** PRIORITY ROUTINE AND WAIT FOR NON-VOID FILE LIST. C + C 2708 G 25870 ACDFR BBE ACBEPA,30+X13,T DEFER OPERATION C 12 06066 W 05748 000T0 T 026 2709 G 25880 CW ACBEPA CLEAR ACBEPA SWITCH ' 6 06078 ) 05748 026 + 2710 G 25900 BBE IS1,16+X13,8 Q. DISK FILE C 12 06084 W 00315 000/6 8 026 2711 G 25910 *** DYNAMIC PRIORITY ROUTINE. TAKE IORW FROM MIDDLE OF 2712 G 25920 *** R/W LIST AND PLACE AT TOP OF R/W LIST. + 2713 G 26070 MLCS 23+X13,UNXT A 12 06096 D 000S3 09848 3 027 2714 G 26080 LLE UNXT DETERMINE CHANNEL ' 6 06108 T 09848 027 2715 G 26090 BBE ACDYPR1 ' 6 06114 W 06190 027 2716 G 26110 BBE ACDYPR2 ' 6 06120 W 06158 027 + 2717 G 26230 ACDYPR3 ZA NANCY,X15 3 11 06126 0 06016 00099 027 + 2718 G 26240 ZA 9 1 06137 0 027 2719 G 26250 BBE RW3END ' 6 06138 W 05979 028 2720 G 26260 SAR ACDYPRB+10 INIT FOR END UPDATE ) 7 06144 G 06339 A 028 2721 G 26270 B ACDYPR ) 7 06151 J 06215 028 + 2722 G 26290 ACDYPR2 ZA JOODY,X15 3 11 06158 0 06065 00099 028 + 2723 G 26300 ZA 9 1 06169 0 028 2724 G 26310 BBE RW2END ' 6 06170 W 06028 028 2725 G 26320 SAR ACDYPRB+10 INIT FOR END UPDATE ) 7 06176 G 06339 A 029 2726 G 26330 B ACDYPR ) 7 06183 J 06215 029 77120 GENERATE SGF PAGE 134 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 2727 G 26340 ACDYPR1 ZA WENDY,X15 3 11 06190 0 05967 00099 029 + 2728 G 26350 ZA 9 1 06201 0 029 2729 G 26360 BBE RW1END ' 6 06202 W 05930 029 2730 G 26370 SAR ACDYPRB+10 INIT FOR END UPDATE ) 7 06208 G 06339 A 029 2731 G 26380 ACDYPR BZ IS1 Q. R/W LIST VOID ) 7 06215 J 00315 V 030 ++ 2732 G 26390 C 4+X15,X13-1 CURRENTLY EXECUTING 0 11 06222 C 00004 00088 030 2733 G 26400 BE IS1 YES ) 7 06233 J 00315 S 030 +- 2734 G 26410 C 4+X14,X13-1 Q. AT TOP OF LIST 0 11 06240 C 00004 00088 030 2735 G 26420 BE IS1 A. YES ) 7 06251 J 00315 S 030 + 2736 G 26430 ACDYPRA ZA X14,X15 SCAN LIST 0 11 06258 0 00094 00099 031 + ++ 2737 G 26440 ZA 0+X15,X14 0 11 06269 0 00000 00094 031 2738 G 26450 BZ IS1 NOT ON LIST ) 7 06280 J 00315 V 031 +- 2739 G 26460 C 4+X14,X13-1 0 11 06287 C 00004 00088 031 2740 G 26470 BU ACDYPRA ) 7 06298 J 06258 / 032 + +- ++ 2741 G 26480 ZA 0+X14,0+X15 REMOVE FROM LIST 0 11 06305 0 00000 00000 032 2742 G 26490 BZ ACDYPRB Q. WAS AT LIST END ) 7 06316 J 06329 V 032 2743 G 26500 BBE UNTACH PUT ON TOP OF LIST ' 6 06323 W 04616 032 + 2744 G 26510 ACDYPRB MLN X15,0 UPDATE END BKT 0 12 06329 D 00099 00000 A 032 2745 G 26520 BBE UNTACH PUT ON TOP OF LIST ' 6 06341 W 04616 033 2746 G 26540 ACDSK CW ACBEPA DISABLE EXIT ' 6 06347 ) 05748 033 + 2747 G 26550 BBE ACDSK2,30+X13,- Q. NON-SEQ GET OR PUT C 12 06353 W 06409 000T0 - 033 - 2748 G 26630 ZS 0-15+X13,ACAM GET AM FROM FILE TBL 1 11 06365 0 99IY5 09963 033 2749 G 26640 ACDSK1 EQU * 06376 2750 G 26880 ACDCH4 EQU * 06376 2751 G 26980 ACDCH3 LE ACAM,DS3Q/ LOCATE MOD LIST ORG C 12 06376 T 09963 DS3Q/ 2 034 77120 GENERATE SGF PAGE 135 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 2752 G 26990 SBR X15 T 7 06388 G 00099 B 034 2753 G 27000 B RWTACH ATTACH IORW TO LIST ) 7 06395 J 01697 034 2754 G 27020 /DSK/ DEFIN * 06402 035 2755 G 27030 ACRAN SBR ACBEPA+5 ENTRY FOR RANDOM ) 7 06402 G 05753 B 036 G + + 2756 G 27060 ACDSK2 ZA 16+X14 SET NSEQ IND IN IORW T 6 06409 0 000J6 036 + + 2757 G 27070 ZA 14+X14,X15 GET AREA ADDRESS 0 11 06415 0 000J4 00099 036 ++ 2758 G 27110 MLNB 1+X15,ACAM GET AM FROM AREA A 12 06426 D 00001 09963 J 036 2759 G 27120 BBE ACDSK1 GO TO ACDSK1 ' 6 06438 W 06376 036 2760 G 27370 *** FILE EXCEPTION. PLACE IORW AT BOTTOM OF ITS OWN FILE LIST. + 2761 G 27380 ACERAC MRZR *,12+X13 TURN OFF ERR ACC BIT C 12 06444 D 06455 000/2 @ 037 + 2762 G 27390 MRZR *,23+X14 TURN OFF T.B. C 12 06456 D 06467 000K3 @ 037 2763 G 27400 ACFEXC CW RWGFA+1,ACBEPA FORCE RETURN TO AC1 4 11 06468 ) 01858 05748 037 2764 G 27410 B USE RWTACH 9 1 06479 J 037 2765 G 27420 *** IORW EXCEPTION. DETERMINE IF ERROR EXIT, EOR, OR EOF EXIT. + 2766 G 27430 ACEXC MRZR *,15+X13 TURN OFF FILE EXC BIT C 12 06480 D 06491 000/5 @ 038 + + 2767 G 27440 ZA ACBEPA+5,23+X13 SAVE GET/PUT RETURN 3 11 06492 0 05753 000S3 038 + 2768 G 27450 S ACPT4+5,23+X13 POINT TO BXPA /PET/ 3 11 06503 S 05474 000S3 038 + 2769 G 27460 MRZR ACEOR-1,24+X14 TURN OFF IORW EXC BIT C 12 06514 D 06565 000K4 @ 038 2770 G 27470 BZN Q. END OF REEL 9 1 06526 V 039 2771 G 27480 MRZR ACEOR-2 TURN OFF IORW ERR BIT ' 6 06527 D 06564 039 + 2772 G 27490 MLZS RW1BEX,12+X13 TURN ON ERR ACC BIT C 12 06533 D 00920 000/2 2 039 + 2773 G 27500 MLNA 47+X13,*+6 TAKE ERROR EXIT A 12 06545 D 000U7 06562 / 039 L 2774 G 27510 BEPA 0 T 7 06557 Y 00000 E 039 2775 G 27520 DCW '/@' CONSTANT FOR ACEXC 2 06565 040 2776 G 27530 ACEOR EQU * 06566 77120 GENERATE SGF PAGE 136 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 2777 G 27550 BCE ACDEF,16+X13,8 Q. 1301/1302 FILE C 12 06566 B 06779 000/6 8 041 + 2778 G 27570 BCE ACEOF,16+X13,1 Q. UNIT RECORD INPUT C 12 06578 B 06742 000/6 1 041 2779 G 27590 BW AC3+24,FEFUM Q. ALREADY IN CLOSE D 12 06590 V 05586 07316 1 041 G 2780 G 27595 SW SP2S/ DISABLE SPOOL OPEN/CL T 6 06602 , SP2S/ 041 2781 G 27670 B LRSAVX SAVE X13 ) 7 06608 J 09187 042 2782 G 27680 MRC FEFIE-1,100 S INTO 100 C 12 06615 D 06971 00100 = 042 2783 G 27690 SAR CLOSXT+5 SET CLNP EXIT ) 7 06627 G 07465 A 042 + 2784 G 27740 ZA RW1BEX,LRLEF R INTO /LEF/ 4 11 06634 0 00920 10008 042 + 2785 G 27750 BZN CLNP,29+X13,A Q. OUTPUT OPERATION C 12 06645 V 07399 000S9 S 043 + 2786 G 27770 ZA ACDFR,LRLEF F INTO /LEF/ 4 11 06657 0 06066 10008 043 G - 2787 G 27780 ZS 100 CHANGE S TO K T 6 06668 0 00100 043 2788 G 27810 A CLOSXT,0-11+X13 SUB 1 FROM BLOCK CNT 3 11 06674 A 07460 99IY9 043 2789 G 27830 B LRILF ) 7 06685 J 07883 044 G + 2790 G 27840 ZA 0-9+X13 TEST REEL COUNT T 6 06692 0 99IZ1 044 2791 G 27850 BZ ACLEF Q. NONE ENTERED ) 7 06698 J 06730 V 044 2792 G 27860 A *+1,0-9+X13 DECREMENT IT 3 11 06705 A 06716 99IZ1 044 2793 G 27880 BZ ACEOF Q. LAST REEL ) 7 06716 J 06742 V 044 2794 G 27910 B FEFIE ) 7 06723 J 06972 045 2795 G 27920 ACLEF EQU * 06730 2796 G 27940 BCE FEFIE,LRLEF,R Q. END OF REEL D 12 06730 B 06972 10008 R 045 + 2797 G 28054 ACEOF MLNA 10+X13,ACEOFX+5 SP A 12 06742 D 000/0 06777 / 045 + 2798 G 28066 BW SPG2/,SPS2/ SPOOL OPEN/CL PENDING 0 12 06754 V SPG2/ SPS2/ 1 045 G 2799 G 28070 CW SP2S/ ENABLE SPOOL OPEN/CL T 6 06766 ) SP2S/ 046 L 2800 G 28076 ACEOFX BEPA 0 SP T 7 06772 Y 00000 E 046 2801 G 28078 ACEF/ DEFIN ACEOFX+5 SP 06777 047 77120 GENERATE SGF PAGE 137 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 2802 G 28090 ACDEF ZA X13,X15 0 11 06779 0 00089 00099 048 + 2803 G 28100 MLNA 23+X13,ACDFX+5 INIT RETURN TO /PET/ A 12 06790 D 000S3 06851 / 048 + + 2804 G 28110 BBE /MIP/,13+X13,1 Q, GET NEXT ALT UNIT 0 12 06802 W /MIP/ 000/3 1 048 2805 G 28120 BXPA *+1 ) 7 06814 Y 06821 X 048 + 2806 G 28130 ZA X15,X13 0 11 06821 0 00099 00089 049 2807 G 28140 BE ACEOF Q. CYCLE TO BASE ) 7 06832 J 06742 S 049 L 2808 G 28150 BXPA /MIO/ ASSGN IORWS + FT T 7 06839 Y /MIO/ X 049 L 2809 G 28160 ACDFX BXPA 0 T 7 06846 Y 00000 X 049 77120 GENERATE SGF PAGE 138 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2810 G 28820 /CLP/ DEFIN CLP 06853 050 2811 G 29100 *** OPEN/CLOSE/FEOR ENTRY POINT. USE FOLLOWING CALLING SEQ... 2812 G 29110 *** BXPA /CLP/ 2813 G 29120 *** DCW FILENAME 2814 G 29130 *** DCW '*' WHERE * IS THE OP DEFINITION CHARACTER 2815 G 29140 CLP SBR CL1+5 ) 7 06853 G 06865 B 051 2816 G 29150 RCL1/ DEFIN CL1+5 06865 052 + 2817 G 29160 CL1 MRC 0,95 0 12 06860 D 00000 00095 = 053 2818 G 29170 MRC 9 1 06872 D 053 2819 G 29180 SAR CL1+5 ) 7 06873 G 06865 A 053 2820 G 29200 SAR CLRCLX SAVE IN EXIT ) 7 06880 G 07528 A 053 G 2821 G 29240 SW SP2S/ T 6 06887 , SP2S/ 053 + 2822 G 29300 ZA X15,X13 0 11 06893 0 00099 00089 054 2823 G 29310 B LRSAVX ) 7 06904 J 09187 054 + 2824 G 29330 ZA ACDFR,LRLEF F INTO /LEF/ 4 11 06911 0 06066 10008 054 2825 G 29340 SW FEFUM SET NOT DISCL EOR SW ' 6 06922 , 07316 054 2826 G 29350 BBE CLOPEN,100,4 Q. OPEN C 12 06928 W 07136 00100 4 055 2827 G 29360 BBE CLOSE,100,8 Q. CLOSE C 12 06940 W 07374 00100 8 055 2828 G 29370 *** FORCE END OF REEL ROUTINE 2829 G 29380 FEOR EQU * 06952 + 2830 G 29400 ZA RW1BEX,LRLEF R INTO /LEF/ 4 11 06952 0 00920 10008 055 2831 G 29410 B CLPW ) 7 06963 J 07380 055 2832 G 29420 NOPWM 9 1 06970 N 055 2833 G 29430 S ACEOR CONSTANT 9 1 06971 S 055 2834 G 29440 FEFIE EQU * 06972 77120 GENERATE SGF PAGE 139 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2835 G 29470 B LRRWD ) 7 06972 J 09265 056 2836 G 29480 MRZWG USE THIRD RWDOPTION 9 1 06979 D 056 G 2837 G 29490 A 100 EOR TO BOR T 6 06980 A 00100 056 2838 G 29500 BCE SET UNEQUAL 9 1 06986 B 056 + 2839 G 29510 FEFOO ZA X13,X15 0 11 06987 0 00089 00099 056 2840 G 29520 B LRSAVX ) 7 06998 J 09187 056 + + 2841 G 29530 BBE /MIP/,13+X13,1 Q. GET NEXT ALT UNIT 0 12 07005 W /MIP/ 000/3 1 057 2842 G 29540 BXPA LRRSTX ) 7 07017 Y 09213 X 057 2843 G 29550 BE FEPAS Q. CYCLE TO BASE UNIT ) 7 07024 J 07092 S 057 2844 G 29560 FECON BXPA LRRWD ) 7 07031 Y 09265 X 057 2845 G 29570 C USE SECOND RWDOPTION 9 1 07038 C 057 2846 G 29630 CW LRCLA-12 *B ' 6 07039 ) 08481 057 + 2847 G 29670 ZA 0-16+X13,X14 GET TAPE LABEL EXT. 0 11 07045 0 99IY4 00094 058 2848 G 29720 BZ CLOP1 Q. NO LABEL EXT. ) 7 07056 J 07169 V 058 G + 2849 G 29760 SW 31+X14 *B T 6 07063 , 000L1 058 + 2850 G 29770 A *-10,33+X14 INCR REEL SEQ NO. 3 11 07069 A 07069 000L3 058 + 2851 G 29790 CW CLOP1+1,31+X14 *B 3 11 07080 ) 07170 000L1 059 2852 G 29830 B *B 9 1 07091 J 059 2853 G 29840 FEPAS EQU * *B 07092 2854 G 29900 MLC LRCA+14,LRCA+9 PLUG GMWM D 12 07092 D 10052 10047 C 059 2855 G 29910 B LRCU ) 7 07104 J 09076 059 2856 G 29920 DCW '20101 ' 6 07116 060 2857 G 30020 BCE FECON,LRSW,C Q. PROPER REPLY D 12 07117 B 07031 10043 C 061 2858 G 30030 B FEPAS ) 7 07129 J 07092 061 + + 2859 G 30040 CLOPEN BZN /MIQ/,13+X15,A GET BASE ASGNMNT 0 12 07136 V /MIQ/ 000A3 S 061 77120 GENERATE SGF PAGE 140 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2860 G 30050 CLAA BXPA LRRSTX ) 7 07148 Y 09213 X 061 2861 G 30060 B LRRWD ) 7 07155 J 09265 061 2862 G 30070 BCE USE FIRST RWDOPTION 9 1 07162 B 062 2863 G 30120 SW LRCLA-12 *B ' 6 07163 , 08481 062 2864 G 30150 CLOP1 EQU * 07169 + 2865 G 30170 BBE *+7,16+X13,= Q. NOT TAPE C 12 07169 W 07187 000/6 = 062 G 2866 G 30180 S 0-11+X13 ZERO BLOCK CNT *A T 6 07181 S 99IY9 062 + 2867 G 30200 BBE CLOP2,16+X13,P Q. NOT 1301/1302 C 12 07187 W 07205 000/6 P 062 G 2868 G 30210 S 0-17+X13 RESET DISK REC CNT T 6 07199 S 99IY3 062 + 2869 G 30220 CLOP2 MLZS CLAA,15+X13 RESET FILE EXCP BIT C 12 07205 D 07148 000/5 2 063 2870 G 30230 BCE SKIP F4 9 1 07217 B 063 2871 G 30240 BCE SKIP F3 9 1 07218 B 063 2872 G 30250 MLZS RESET ERR ACC BIT 9 1 07219 D 063 G + 2873 G 30260 S 33+X13 PRIME FIRST GET T 6 07220 S 000T3 063 + + 2874 G 30270 ZA 0+X13,X14 GET IORW 0 11 07226 0 000@0 00094 063 2875 G 30280 BZ CL2 NONE ON FILE ) 7 07237 J 07468 V 063 + + 2876 G 30290 CLOP3 MRZ 100,23+X14 TURN TB ON OR OFF 0 12 07244 D 00100 000K3 0 064 2877 G 30300 MRZ CLAA-1 REST IORW EXCP BITS ' 6 07256 D 07147 064 +- 2878 G 30310 SW 6+X14,100 RESET FORM 4 PUT SW 0 11 07262 , 00006 00100 064 2879 G 30320 C SCAN LEFT 5 9 1 07273 C 064 + 2880 G 30330 ZA GET NEXT IORW 9 1 07274 0 064 2881 G 30340 BZ CLOP4 ) 7 07275 J 07289 V 064 2882 G 30350 B CLOP3 ) 7 07282 J 07244 065 L 2883 G 30360 CLOP4 B /MIO/ GET ASSIGNMENT T 7 07289 J /MIO/ 065 2884 G 30430 BXPA LRRSTX ) 7 07296 Y 09213 X 065 77120 GENERATE SGF PAGE 141 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 2885 G 30450 BCE LRILF,16+X13,4 LABELS IF TAPE C 12 07303 B 07883 000/6 4 065 2886 G 30460 FEFOE NOP 9 1 07315 N 065 2887 G 30470 FEFUM B CLOP6 Q. NOT DISCLOSED EOR ) 7 07316 J 07341 065 2888 G 30480 RFUM/ DEFIN FEFUM *B 07316 066 + 2889 G 30500 MLN 23+X13,ACEOFX+5 ADDR OF GET/PUT S A 12 07323 D 000S3 06777 A 067 2890 G 30510 BBE ACEOF+12 SP ' 6 07335 W 06754 067 2891 G 30540 CLOP6 BZN CLOP5,100,B Q. INPUT C 12 07341 V 07367 00100 K 067 2892 G 30550 SAR CLPXT+5 SET CLWT EXIT ) 7 07353 G 07746 A 067 2893 G 30560 B CLWT RELEASE FIRST AREA ) 7 07360 J 07679 067 2894 G 30570 CLOP5 BXPA CL2 ) 7 07367 Y 07468 X 068 2895 G 30580 CLOSE CW LRRWD+1 SET CLOSXT ' 6 07374 ) 09266 068 2896 G 30590 CLPW SBR CLOSXT+5 ) 7 07380 G 07465 B 068 2897 G 30600 CLOSE1 BZN CLPAD,100,A Q. OUTPUT OP C 12 07387 V 07530 00100 S 068 2898 G 30610 CLNP BEPA CLPG PURGE ) 7 07399 Y 07808 E 068 2899 G 30620 BZN CLOSXT,100,B Q. INPUT C 12 07406 V 07460 00100 K 069 + 2900 G 30630 BZN CLNB,15+X13,A Q. NOT FILE EXCEPTION C 12 07418 V 07440 000/5 S 069 2901 G 30640 BCE SKIP F4 9 1 07430 B 069 2902 G 30650 BCE SKIP F3 9 1 07431 B 069 2903 G 30660 MLZA TURN ON ERR ACC BIT 9 1 07432 D 069 2904 G 30670 B CLWT EXEQ PUT ) 7 07433 J 07679 069 2905 G 30680 CLNB NOP B-BIT CONSTANT 9 1 07440 N 069 + 2906 G 30700 BCE LRILF,16+X13,4 LABELS IF TAPE C 12 07441 B 07883 000/6 4 070 2907 G 30710 B LRWTM WRITE TAPE MARK ) 7 07453 J 09239 070 2908 G 30720 RCLT/ DEFIN CLOSXT+5 *B 07465 071 L 2909 G 30730 CLOSXT B 0 T 7 07460 J 00000 072 77120 GENERATE SGF PAGE 142 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2910 G 30740 NOP USE FOURTH RWDOPTION 9 1 07467 N 072 2911 G 30745 CL2 EQU * 07468 2912 G 30758 BBE CL1,100,2 PROCESS NEXT FILE C 12 07468 W 06860 00100 2 072 2913 G 30760 CW FEFUM ' 6 07480 ) 07316 072 2914 G 30770 CLEXIT EQU * 07486 G 2915 G 30890 CW SP2S/ T 6 07486 ) SP2S/ 072 2916 G 30900 NOPWM )S 9 1 07492 N 072 2917 G 30910 SPS2/ DEFIN * )S 07493 073 L 2918 G 30920 B SPD2/ )S T 7 07493 J SPD2/ 074 2919 G 30928 MLCA SPID/,ISIND RESTORE FOR SPOOL A 12 07500 D SPID/ 09808 T 074 + 2920 G 30934 ZA SPXN/,X13 RESTORE FOR SPOOL 0 11 07512 0 SPXN/ 00089 074 2921 G 30940 RCLX/ DEFIN *+5 07528 075 2922 G 30944 CLRCLX EQU *+5 07528 L 2923 G 30950 BEPA 0 T 7 07523 Y 00000 E 076 2924 G 30960 *** PAD LAST BLOCK AND PUT IT, IF NECESSARY. 2925 G 30970 /RLS/ DEFIN CLPAD 07530 077 2926 G 30980 CLPAD SBR CLPXT+5 ) 7 07530 G 07746 B 078 + 2927 G 31010 BBE CLPXT,15+X13,1 Q. FORM 1 OR FORM 3 C 12 07537 W 07741 000/5 1 078 + + 2928 G 31020 ZA 0+X13,X14 GET IORW 0 11 07549 0 000@0 00094 078 2929 G 31030 BZ CLPXT Q. NONE ON FILE ) 7 07560 J 07741 V 078 + + 2930 G 31040 ZA 14+X14,RWBKT GET AREA ADDRESS 1 11 07567 0 000J4 10004 079 + + 2931 G 31050 ZA 23+X13,X15 0 11 07578 0 000S3 00099 079 + 2932 G 31060 ZA 9 1 07589 0 079 2933 G 31070 BZ CLPZERO ) 7 07590 J 07608 V 079 + +- 2934 G 31083 ZA 0+X14,X15 GET IR CONTENTS 0 11 07597 0 00000 00099 079 77120 GENERATE SGF PAGE 143 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2935 G 31086 CLPZERO EQU * 07608 + 2936 G 31120 BBE CLPC,16+X13,7 C 12 07608 W 07631 000/6 7 080 2937 G 31130 S RW1BEX,RWBKT ADD 9 FOR DISK 4 11 07620 S 00920 10004 080 2938 G 31140 CLPC S X15,RWBKT IS PADDING NEEDED 1 11 07631 S 00099 10004 080 2939 G 31150 BZ CLPXT NO ) 7 07642 J 07741 V 080 + 2940 G 31160 BBE CLRM,14+X13,1 FORM 2 C 12 07649 W 07748 000/4 1 081 2941 G 31170 A CL1,RWBKT Q. PUT THIS BLOCK 4 11 07661 A 06860 10004 081 2942 G 31180 BZ CLPXT NO ) 7 07672 J 07741 V 081 2943 G 31190 CLWT EQU * 07679 + 2944 G 31220 ZA X13,*+12 INIT CALL SEQ 1 11 07679 0 00089 07701 081 2945 G 31230 BXPA ACPET PUT ) 7 07690 Y 05393 X 082 2946 G 31240 DCW * FILE ADDR N 5 07701 07701 082 2947 G 31250 DC 'W' 9 1 07702 082 2948 G 31260 DCW ' ' 9 1 07703 082 2949 G 31270 CLWTX BXPA *+1 EXIT ALERT ) 7 07704 Y 07711 X 082 + + 2950 G 31280 ZA 18+X13,X15 IS INDEX REG USED 0 11 07711 0 000/8 00099 082 2951 G 31290 BZ CLPXT NO ) 7 07722 J 07741 V 082 + + ++ 2952 G 31305 MLCA 23+X13,0+X15 INIT IT 0 12 07729 D 000S3 00000 T 083 L 2953 G 31310 CLPXT BEPA 0 CLPAD AND /RLS/ EXIT T 7 07741 Y 00000 E 083 + 2954 G 31320 CLRM C 33+X13,X15 Q. PADDING FINISHED 0 11 07748 C 000T3 00099 083 2955 G 31330 BE CLWT ) 7 07759 J 07679 S 083 ++ 2956 G 31340 BCE CLAD,0+X15,@ SKIP RECORD MARKS C 12 07766 B 07790 00000 @ 084 + + ++ 2957 G 31350 MLCS 11+X13,0+X15 MOVE IN PADCHAR 0 12 07778 D 000/1 00000 3 084 2958 G 31360 CLAD A *-10,X15 3 11 07790 A 07790 00099 084 2959 G 31370 B CLRM ) 7 07801 J 07748 084 77120 GENERATE SGF PAGE 144 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2960 G 31530 *** 2961 G 31540 *** OPEN/CLOSE/FEOR PURGE ROUTINE. ENTER IN ALERT. 2962 G 31550 CLPG SBR CLPGX+5 ) 7 07808 G 07870 B 085 2963 G 31560 CLPG1 EQU * 07815 2964 G 31633 BOL3 CLPG1 ) 7 07815 J 07815 3 085 2965 G 31636 BPI 9 1 07822 Y 085 2966 G 31640 LEH PGZ,DS3P/ Q. CH3 SEEK PENDING C 12 07823 T 09862 DS3P/ 6 085 2967 G 31650 BZN CLPG1 ' 6 07835 V 07815 085 2968 G 31690 BOL1 CLPG1 ) 7 07841 J 07815 1 085 2969 G 31700 BPI 9 1 07848 Y 085 2970 G 31720 BOL2 CLPG1 ) 7 07849 J 07815 2 086 2971 G 31730 BPI 9 1 07856 Y 086 2972 G 31750 BOL3 CLPG1 ) 7 07857 J 07815 3 086 2973 G 31760 BPI 9 1 07864 Y 086 L 2974 G 31820 CLPGX BXPA 0 T 7 07865 Y 00000 X 086 + + 2975 G 31842 ZA 0+X13,X14 LOCATE IORW 0 11 07872 0 000@0 00094 086 2976 G 31850 * INITIALIZE LABEL FILE 2977 G 31860 LRILF SBR LRLABEX1+5 SAVE RETURN ADDRESS ) 7 07883 G 08743 B 086 + 2978 G 31870 ZA 0-16+X13,X14 GET LAB. EXT. ADDRESS 0 11 07890 0 99IY4 00094 087 2979 G 31880 BZ LRLABEX1 Q. LABEL EXTENTION ) 7 07901 J 08738 V 087 2980 G 31900 SW LRLF+1 ' 6 07908 , 10016 087 L 2981 G 31910 SAR X15 T 7 07914 G 00099 A 087 2982 G 31920 B LRSAVX ) 7 07921 J 09187 087 + + ++ 2983 G 32010 LRSU MLCA 5+X13,5+X15 GET SYMBOLIC UNIT 0 12 07928 D 000@5 00005 T 088 L 2984 G 32040 B /MIO/ T 7 07940 J /MIO/ 088 77120 GENERATE SGF PAGE 145 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 2985 G 32050 BXPA LRRSTX ) 7 07947 Y 09213 X 088 2986 G 32060 LRRETRY BZN LRINPT,100,B Q. INPUT C 12 07954 V 08104 00100 K 088 2987 G 32070 BBE LROBOR,100,4 C 12 07966 W 08251 00100 4 089 2988 G 32090 ** 80 CHARACTER OUTPUT END OF REEL LABEL ROUTINE 2989 G 32150 LROEOR B LRLEXR TAKE EXIT N ) 7 07978 J 08854 089 2990 G 32160 DCW 'N' 9 1 07985 089 2991 G 32180 /LRN/ DEFIN LRN 07986 090 2992 G 32190 LRN B LRRSTX ) 7 07986 J 09213 091 2993 G 32200 B LRWTM WRITE TAPEMARK ) 7 07993 J 09239 091 2994 G 32220 B LRLEXR TAKE EXIT P ) 7 08000 J 08854 091 2995 G 32230 DCW 'P' 9 1 08007 091 2996 G 32260 /LRP/ DEFIN LRP 08008 092 2997 G 32270 LRP B LRRSTX ) 7 08008 J 09213 093 2998 G 32310 MLCA AC3BL-2,LA2+79 CLEAR LABEL AREA D 12 08015 D 09832 10167 T 093 2999 G 32330 MLCA LA2+79 ' 6 08027 D 10167 093 3000 G 32340 MLCA 9 1 08033 D 093 3001 G 32350 MLCA 9 1 08034 D 093 3002 G 32360 MLCA 9 1 08035 D 093 3003 G 32410 MLCA 0-11+X13,LA2+9 ASSEMBLE OUTPUT TRAIL A 12 08036 D 99IY9 10097 T 093 3004 G 32420 MLCA LRLEF,LA2+3 D 12 08048 D 10008 10091 T 094 3005 G 32430 MLCA LR1EO ' 6 08060 D 10007 094 3006 G 32600 B LRLEXR TAKE EXIT Q ) 7 08066 J 08854 094 3007 G 32610 DCW 'Q' 9 1 08073 094 3008 G 32630 /LRQ/ DEFIN LRQ 08074 095 3009 G 32640 LRQ B LRW/RT WRITE OUTPUT TRAILER ) 7 08074 J 08975 096 77120 GENERATE SGF PAGE 146 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3010 G 32690 DCW 'W' 9 1 08081 096 3011 G 32710 B LRLEXR TAKE EXIT R ) 7 08082 J 08854 096 3012 G 32720 DCW 'R' 9 1 08089 096 3013 G 32730 /LRR/ DEFIN LRR 08090 097 3014 G 32740 LRR B LRRSTX ) 7 08090 J 09213 098 3015 G 32750 B LRLABEX1 ) 7 08097 J 08738 098 3016 G 32760 LRINPT BBE LRIBOR,100,4 C 12 08104 W 08588 00100 4 098 3017 G 32780 ** 80 CHARACTER INPUT END OF REEL LABEL ROUTINE 3018 G 32840 LRIEOR B LRLEXR TAKE EXIT D ) 7 08116 J 08854 098 3019 G 32850 DCW 'D' 9 1 08123 098 3020 G 32880 /LRD/ DEFIN LRD 08124 099 3021 G 32890 LRD B LRRSTX ) 7 08124 J 09213 100 +- 3022 G 32910 BZN LRLABEX1,4+X14,A Q. CHECK TRAILER C 12 08131 V 08738 00004 S 100 3023 G 32940 B LRW/RT READ INPUT TRAILER ) 7 08143 J 08975 100 3024 G 32950 DCW 'R' 9 1 08150 100 3025 G 32990 MLCS LA2+3,LRLEF GET R OR F FROM TRAIL D 12 08151 D 10091 10008 3 100 3026 G 33050 B LRLEXR TAKE EXIT E ) 7 08163 J 08854 101 3027 G 33060 DCW 'E' 9 1 08170 101 3028 G 33090 /LRE/ DEFIN LRE 08171 102 3029 G 33100 LRE B LRRSTX ) 7 08171 J 09213 103 3030 G 33140 MLCB LA2+9,LRCA+13 D 12 08178 D 10097 10051 L 103 3031 G 33190 S 0-11+X13,LRCA+13 CHECK BLOCK COUNT 1 11 08190 S 99IY9 10051 103 3032 G 33200 BZ LRIECBC ) 7 08201 J 08221 V 103 3033 G 33210 B LRCU BLOCK COUNT ERROR ROU ) 7 08208 J 09076 103 3034 G 33220 DCW '10102-' 6 08220 104 77120 GENERATE SGF PAGE 147 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3035 G 33230 LRIECBC EQU * *B 08221 3036 G 33250 B LRLEXR TAKE EXIT F ) 7 08221 J 08854 105 3037 G 33260 DCW 'F' 9 1 08228 105 3038 G 33270 /LRF/ DEFIN LRF 08229 106 3039 G 33280 LRF B LRRSTX ) 7 08229 J 09213 107 3040 G 33285 B LRW/RT SPACE OVER TAPE MARK ) 7 08236 J 08975 107 3041 G 33286 DCW 'R' 9 1 08243 107 3042 G 33290 B LRLABEX1 ) 7 08244 J 08738 107 3043 G 33600 ** 80 CHARACTER OUTPUT BEGINNING OF REEL LABEL ROUTINE 3044 G 33670 LROBOR B LRLEXR TAKE EXIT G ) 7 08251 J 08854 107 3045 G 33680 DCW 'G' 9 1 08258 107 3046 G 33710 /LRG/ DEFIN LRG 08259 108 3047 G 33720 LRG B LRRSTX ) 7 08259 J 09213 109 +- 3048 G 33740 BBE LRCLB,4+X14,1 Q. CHECK RETENTION C 12 08266 W 09022 00004 1 109 3049 G 33750 B LRW/RT READ OUTPUT HEADER ) 7 08278 J 08975 109 3050 G 33810 DCW 'R' 9 1 08285 109 3051 G 33850 B LRLEXR TAKE EXIT H ) 7 08286 J 08854 109 3052 G 33860 DCW 'H' 9 1 08293 109 3053 G 33890 /LRH/ DEFIN LRH 08294 110 3054 G 33900 LRH B LRRSTX ) 7 08294 J 09213 111 3055 G 33940 C DS9999-1,LA2+38 Q. PRESERVE TAPE 4 11 08301 C 09996 10126 111 3056 G 33950 BE LROBMG ) 7 08312 J 08803 S 111 3057 G 33960 A LA2+38,LA2+34 CHECK RETENTION 4 11 08319 A 10126 10122 111 3058 G 33970 C LA2+34,LR366 4 11 08330 C 10122 10034 112 3059 G 33980 BH *+12 ) 7 08341 J 08359 U 112 77120 GENERATE SGF PAGE 148 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3060 G 33990 A LR635,LA2+34 4 11 08348 A 10037 10122 112 3061 G 34000 C LA2+34,/DAT/ 3 11 08359 C 10122 /DAT/ 112 3062 G 34150 LROBC BL LROBMG Q. WITHIN RETENTION ) 7 08370 J 08803 T 113 3063 G 34160 LROER EQU * 08377 3064 G 34180 B LRLEXR TAKE EXIT J ) 7 08377 J 08854 113 3065 G 34190 B 9 1 08384 J 113 3066 G 34210 /LRJ/ DEFIN LRJ 08385 114 3067 G 34220 LRJ BXPA LRRSTX ) 7 08385 Y 09213 X 115 3068 G 34230 B LRBSP BACKSPACE TAPE ) 7 08392 J 09050 115 3069 G 34310 LRCRS EQU * 08399 3070 G 34330 B LRLEXR TAKE EXIT K ) 7 08399 J 08854 115 3071 G 34340 DCW 'K' 9 1 08406 115 3072 G 34370 /LRK/ DEFIN LRK 08407 116 3073 G 34380 LRK B LRRSTX ) 7 08407 J 09213 117 3074 G 34390 MLCA /DAT/,LRDAT A 12 08414 D /DAT/ 09871 T 117 + + 3075 G 34392 ZA 14+X14,LRCON 1 11 08426 0 000J4 09876 117 3076 G 34394 BZ *+13 ) 7 08437 J 08456 V 117 + 3077 G 34396 MLCA 14+X14,LRDAT A 12 08444 D 000J4 09871 T 118 3078 G 34420 *ASSEMBLE 80 CHARACTER HEADER LABEL 3079 G 34430 MLCA LRHDR-1,LA2+4 MOVE IN 1HDR D 12 08456 D 10025 10092 T 118 +- 3080 G 34440 BBE LRCLA,0+X14,2 Q. DONT SUBS SER. NO. C 12 08468 W 08493 00000 2 118 3081 G 34450 NOPWM Q. OPEN FILE 9 1 08480 N 118 + 3082 G 34460 MLCB LA2+9,29+X14 SUBSTITUTE REEL SERIA C 12 08481 D 10097 000K9 L 119 3083 G 34470 LRCLA MLCA AC3BL-2,LA2+79 CLEAR LABEL AREA D 12 08493 D 09832 10167 T 119 3084 G 34480 MLCA LA2+79 ' 6 08505 D 10167 119 77120 GENERATE SGF PAGE 149 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3085 G 34490 MLCA 9 1 08511 D 119 3086 G 34500 MLCA 9 1 08512 D 119 +- 3087 G 34530 MLCA 9+X14,LA2+38 MOVE IN LABEL FIELDS A 12 08513 D 00009 10126 T 119 3088 G 34540 MLCA LRDAT ' 6 08525 D 09871 120 G + 3089 G 34550 MLCA 24+X14 T 6 08531 D 000K4 120 + 3090 G 34560 MLCA 33+X14,LA2+18 A 12 08537 D 000L3 10106 T 120 3091 G 34570 MLCA 9 1 08549 D 120 3092 G 34980 B LRLEXR TAKE EXIT L ) 7 08550 J 08854 120 3093 G 34990 DCW 'L' 9 1 08557 120 3094 G 35010 /LRL/ DEFIN LRL 08558 121 3095 G 35020 LRL EQU * 08558 3096 G 35060 B LRW/RT WRITE TAPE HEADER ) 7 08558 J 08975 122 3097 G 35070 DCW 'W' 9 1 08565 122 3098 G 35210 B LRLEXR TAKE EXIT M ) 7 08566 J 08854 122 3099 G 35220 DCW 'M' 9 1 08573 122 3100 G 35240 /LRM/ DEFIN LRM 08574 123 3101 G 35250 LRM B LRRSTX ) 7 08574 J 09213 124 3102 G 35260 BXPA LRLABEX1 ) 7 08581 Y 08738 X 124 3103 G 35280 ** 80 CHARACTER INPUT BEGINNING OF REEL LABEL ROUTINE 3104 G 35340 LRIBOR EQU * 08588 3105 G 35360 B LRLEXR TAKE EXIT A ) 7 08588 J 08854 124 3106 G 35370 A 9 1 08595 A 124 3107 G 35390 /LRA/ DEFIN LRA 08596 125 3108 G 35410 LRA BXPA LRW/RT READ INPUT HEADER ) 7 08596 Y 08975 X 126 3109 G 35420 DCW 'R' 9 1 08603 126 77120 GENERATE SGF PAGE 150 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3110 G 35460 B LRLEXR TAKE EXIT B ) 7 08604 J 08854 126 3111 G 35470 DCW 'B' 9 1 08611 126 3112 G 35490 /LRB/ DEFIN LRB 08612 127 3113 G 35500 LRB B LRRSTX ) 7 08612 J 09213 128 3114 G 35570 CW LA2+11 ' 6 08619 ) 10099 128 + 3115 G 35580 C LA2+18,33+X14 CHECK REEL SEQUENCE 3 11 08625 C 10106 000L3 128 +- 3116 G 35590 BBE LRHC,3+X14,- C 12 08636 W 08745 00003 - 128 + 3117 G 35600 C LA2+14,29+X14 CHECK FILE SERIAL NO. 3 11 08648 C 10102 000K9 129 +- 3118 G 35610 BBE LRHC,2+X14,- C 12 08659 W 08745 00002 - 129 + 3119 G 35620 C LA2+29,24+X14 CHECK FILE ID. 3 11 08671 C 10117 000K4 129 +- 3120 G 35630 BBE LRHC,2+X14,2 C 12 08682 W 08745 00002 2 129 + 3121 G 35640 C LA2+34,14+X14 CHECK CREATION DATE 3 11 08694 C 10122 000J4 130 +- 3122 G 35650 BBE LRHC,3+X14,2 C 12 08705 W 08745 00003 2 130 3123 G 35780 LRIRS EQU * 08717 3124 G 35800 SW LA2+11 ' 6 08717 , 10099 130 3125 G 35880 B LRLEXR TAKE EXIT C ) 7 08723 J 08854 130 3126 G 35890 DCW 'C' 9 1 08730 130 3127 G 35910 /LRC/ DEFIN LRC 08731 131 3128 G 35920 LRC BXPA LRRSTX ) 7 08731 Y 09213 X 132 3129 G 35940 RLRX/ DEFIN LRLABEX1+5 08743 133 L 3130 G 35950 LRLABEX1 B 0 RETURN FROM LABEL RTN T 7 08738 J 00000 134 3131 G 35970 *LABEL FIELD COMPARE SUBROUTINE 3132 G 35980 LRHC SBR *+6 ) 7 08745 G 08757 B 134 L 3133 G 35990 BE 0 Q. FIELD COMPARES T 7 08752 J 00000 S 134 3134 G 36010 LRIBMG MLCA LRCA+14,LRCA+9 INPUT HDR ERROR ROUT. D 12 08759 D 10052 10047 T 134 77120 GENERATE SGF PAGE 151 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3135 G 36026 B LRCU ) 7 08771 J 09076 134 3136 G 36030 DCW '30101 ' 6 08783 135 3137 G 36040 BCE LRIRS,LRSW,A D 12 08784 B 08717 10043 A 136 3138 G 36050 B LRTST ) 7 08796 J 08840 136 3139 G 36100 LROBMG MLCA LRCA+14,LRCA+9 OUTPUT HDR ERR RTN D 12 08803 D 10052 10047 T 136 3140 G 36110 B LRCU ) 7 08815 J 09076 136 3141 G 36120 DCW '30102 ' 6 08827 137 3142 G 36160 BCE LROER,LRSW,A Q. ACCEPT D 12 08828 B 08377 10043 A 138 3143 G 36170 LRTST EQU * 08840 3144 G 36190 B LRBSP BACKSPACE TAPE ) 7 08840 J 09050 138 3145 G 36200 B LRRETRY REREAD TAPE HEADER ) 7 08847 J 07954 138 3146 G 36220 LRLEXR SBR *+6 LABEL EXIT ROUTINE ) 7 08854 G 08866 B 138 3147 G 36230 MRC 0,LREXARG-1 A 12 08861 D 00000 09998 = 138 3148 G 36240 SAR LREXR+5 ) 7 08873 G 08930 A 139 3149 G 36250 MRC LRLEF,LREXARG D 12 08880 D 10008 09999 = 139 3150 G 36260 B LRRSTX ) 7 08892 J 09213 139 3151 G 36270 LR1 LE LREXARG,0-1+X14 C 12 08899 T 09999 99IR9 2 139 3152 G 36280 SBR LRMEX+5 ) 7 08911 G 08961 B 139 3153 G 36290 BE LRMEX ) 7 08918 J 08956 S 140 3154 G 36300 LREXR BCE 0,LREXARG,B A 12 08925 B 00000 09999 B 140 3155 G 36310 MLCS LREXR,LREXARG D 12 08937 D 08925 09999 3 140 3156 G 36320 B LR1 ) 7 08949 J 08899 140 3157 G 36330 LRMEX MLCA 0,*+6 A 12 08956 D 00000 08973 T 141 L 3158 G 36340 BEPA 0 T 7 08968 Y 00000 E 141 3159 G 36360 LRW/RT SBR *+6 ) 7 08975 G 08987 B 141 77120 GENERATE SGF PAGE 152 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3160 G 36370 MRC 0,LRDMD A 12 08982 D 00000 09013 = 141 3161 G 36380 SAR LREXIT+5 ) 7 08994 G 09237 A 141 3162 G 36410 BXPA ACPET GET OR PUT TAPE LABEL ) 7 09001 Y 05393 X 142 3163 G 36420 DCW LRLF N 5 09012 10015 142 3164 G 36430 LRDMD DC 'W' 9 1 09013 142 3165 G 36440 DCW ' ' 9 1 09014 142 3166 G 36450 BXPA LRRSTX1 ) 7 09015 Y 09220 X 142 3167 G 36510 LRCLB MLCA AC3BL-2,LA2+79 D 12 09022 D 09832 10167 T 142 3168 G 36520 MLCA LA2+79 ' 6 09034 D 10167 142 3169 G 36530 MLCA 9 1 09040 D 142 3170 G 36540 MLCA 9 1 09041 D 143 3171 G 36550 MLCA 9 1 09042 D 143 3172 G 36610 B LRCRS ) 7 09043 J 08399 143 3173 G 36630 LRBSP SBR LREXIT+5 ) 7 09050 G 09237 B 143 3174 G 36640 MLCS *-12,LRMRWD+4 D 12 09057 D 09056 09355 3 143 3175 G 36650 B LRRWD1 ) 7 09069 J 09303 143 3176 G 36670 LRCU SBR *+13 CONSOLE MESSAGE ROUT. ) 7 09076 G 09095 B 144 3177 G 36680 BEPA CLPG ) 7 09083 Y 07808 E 144 3178 G 36690 MRC 0,LRCA A 12 09090 D 00000 10038 = 144 3179 G 36700 MRC 9 1 09102 D 144 3180 G 36710 SAR LREXIT+5 ) 7 09103 G 09237 A 144 + + 3181 G 36720 LRCU1 ZA 5+X13,X14 0 11 09110 0 000@5 00094 145 + +- 3182 G 36730 ZA 0+X14,X14 0 11 09121 0 00000 00094 145 +- 3183 G 36740 MLCB 4+X14,LRCA+7 PUT CU IN MSG A 12 09132 D 00004 10045 L 145 3184 G 36790 BXPA CNC TYPE MSG ) 7 09144 Y 04472 X 145 77120 GENERATE SGF PAGE 153 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3185 G 36800 DCW LRCA N 5 09155 10038 146 3186 G 36810 BCE *-11,LRSW D 12 09156 B 09156 10043 146 3187 G 36820 BZN *-11,/CTB/, *B C 12 09168 V 09168 /CTB/ 2 146 3188 G 36830 BXPA LRRSTX1 ) 7 09180 Y 09220 X 146 3189 G 37020 LRSAVX SBR LRSVXT+5 ) 7 09187 G 09211 B 146 3190 G 37030 MLCB 99,LRS A 12 09194 D 00099 09636 L 147 L 3191 G 37160 LRSVXT B 0 T 7 09206 J 00000 147 3192 G 37170 LRRSTX SBR LREXIT+5 ) 7 09213 G 09237 B 147 3193 G 37180 LRRSTX1 MLCA LRS,99 C 12 09220 D 09636 00099 T 147 3194 G 37190 RLRT/ DEFIN LREXIT+5 *B 09237 148 L 3195 G 37200 LREXIT B 0 T 7 09232 J 00000 149 3196 G 37210 LRWTM SBR LREXIT+5 ) 7 09239 G 09237 B 149 3197 G 37220 MLCS CNRW+6,LRMRWD+4 D 12 09246 D 09602 09355 3 149 3198 G 37230 B LRRWD1 USE RWD ROUTINE ) 7 09258 J 09303 149 3199 G 37240 LRRWD SBR *+6 ) 7 09265 G 09277 B 149 3200 G 37250 MRN 0,*+13 A 12 09272 D 00000 09296 9 150 3201 G 37260 SAR LREXIT+5 ) 7 09284 G 09237 A 150 3202 G 37270 MLCS 0-1+X13,LRMRWD+4 A 12 09291 D 99IZ9 09355 3 150 3203 G 37280 LRRWD1 EQU * 09303 + 3204 G 37300 BBE LRRSTX1,16+X13,= Q. NOT TAPE C 12 09303 W 09220 000/6 = 150 + 3205 G 37310 MLN 5+X13,LRWDSYM GET SYMUNIT A 12 09315 D 000@5 09350 A 151 3206 G 37320 BCE LRRWD2,LRMRWD+4,N Q. RWDOPTION N D 12 09327 B 09368 09355 N 151 3207 G 37330 BXPA UNC ) 7 09339 Y 04571 X 151 3208 G 37340 LRWDSYM DCW X15-99 Q 5 09350 00000 151 3209 G 37350 LRMRWD RWD 'U9 M 5 09351 U 'U9 R 151 77120 GENERATE SGF PAGE 154 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3210 G 37360 BW *-11,*-26 D 12 09356 V 09356 09341 1 152 3211 G 37370 LRRWD2 EQU * 09368 3212 G 37390 BXPA *+1 ) 7 09368 Y 09375 X 152 3213 G 37400 BCE LRRSTX1,LRMRWD+4,M Q. JUST PERFORMED WTM D 12 09375 B 09220 09355 M 152 + 3214 G 37410 ZA LRWDSYM,X15 3 11 09387 0 09350 00099 152 + ++ 3215 G 37420 ZA 0+X15,X15 LOCATE ASGNMNT TABLE 0 11 09398 0 00000 00099 153 3216 G 37440 RSTN/ DEFIN * 09409 154 + ++ 3217 G 37450 ZA LRS-10,9+X15 FL ADDR IN RSTRT FLD 3 11 09409 0 09626 00009 155 ++ 3218 G 37500 MLC 3+X15,ERCC A 12 09420 D 00003 10196 C 155 G ++ 3219 G 37510 MLC 4+X15 T 6 09432 D 00004 155 3220 G 37520 LE ERCC,ERCDT FIND ERR STICS D 12 09438 T 10196 10472 2 155 3221 G 37530 LE 9 1 09450 T 155 L 3222 G 37540 SBR X14 T 7 09451 G 00094 B 156 3223 G 37550 SBR EROP+5 ) 7 09458 G 09584 B 156 3224 G 37560 BBE EROP,100,4 Q. OPEN ROUTINE C 12 09465 W 09579 00100 4 156 ++ 3225 G 37565 MLC 4+X15,ERSMS+7 GET CHAN AND UNIT A 12 09477 D 00004 10176 C 156 G ++ 3226 G 37580 S 9+X15 ZERO RESTART FIELD T 6 09489 S 00009 156 3227 G 37590 MLCWS ERSMS+12,ERSMS+16 RESTORE . D 12 09495 D 10181 10185 7 157 +- 3228 G 37600 MLN 0+X14,ERSMS+18 PICKUP ERROR STATS A 12 09507 D 00000 10187 A 157 3229 G 37610 BCE 9 1 09519 B 157 3230 G 37620 MLN 9 1 09520 D 157 3231 G 37630 BCE 9 1 09521 B 157 3232 G 37640 MLN 9 1 09522 D 157 3233 G 37650 BZN *+13,100,B Q. CLOSE INPUT C 12 09523 V 09547 00100 K 157 3234 G 37660 MLCWS ERSMS+19,ERSMS+16 PLUG GMWM D 12 09535 D 10188 10185 7 158 77120 GENERATE SGF PAGE 155 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G + +- 3235 G 37670 ZA 0+X14 Q. ANY ERRORS TO TYPE T 6 09547 0 00000 158 3236 G 37680 BZ LRRSTX1 A. NO ) 7 09553 J 09220 V 158 3237 G 37690 BEPA CLPG INSURE NO TYPE PEND ) 7 09560 Y 07808 E 158 3238 G 37700 BXPA CNC TYPE ERR STATISTICS ) 7 09567 Y 04472 X 158 3239 G 37710 DCW ERSMS N 5 09578 10169 159 G 3240 G 37720 EROP S 0 RESET ERS ACCUM T 6 09579 S 00000 159 3241 G 37760 BXPA LRRSTX1 ) 7 09585 Y 09220 X 159 77120 GENERATE SGF PAGE 156 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3242 G 37780 *** CONSTANTS AND TABLES USED BY RESIDENT IOCS 3243 G 37790 CNRW DCW X15-99 Q 5 09596 00000 159 3244 G 37800 DCW CNRW N 5 09601 09596 159 3245 G 37810 MU 'T0,0,W L 10 09602 M 'T0 00000 W 159 3246 G 37820 /CTB/ DEFIN CNTB 09619 160 3247 G 37830 CNTB DCW '3 VVVV' 8 09619 161 3248 G 37840 DC 'VV' 2 09621 161 3249 G 37860 /LFA/ DEFIN LRS-10 09626 162 3250 G 37890 LRS DCW '000000000000000' 15 09636 163 3251 G 37900 LRSV/ DEFIN LRS 09636 164 3252 G 37910 *** ERROR BITS TABLE. 12 UNWORDMARKED LOCATIONS MUST PRECEDE IT. G L 3253 G 37920 ERBITS DC 'WL- MNR11TDC44INR33)UC88E' 25 09637 165 CCR W 3254 G 37930 DC 'NTTTPWL- SDC''A' 15 09676 165 3255 G 37950 DC 'NRJJ(NR//*ITUURNFYYN' 20 09696 166 CCT 3256 G 37960 DC 'DCM4ZWLQ8VNTTTMDC*'/MDUUJ' 25 09721 166 3257 G 37990 DC 'UEPP ' CATCH ALL TBL STOPPER 5 09726 166 3258 G 38000 DC 2 1 09727 166 3259 G 38010 ERS DCW 2 1 09728 166 3260 G 38020 SERS/ DEFIN ERS 09728 167 3261 G 38030 DCW 222222 6 09734 168 3262 G 38040 ISQMSG DCW '4 ' 2 09735 168 3263 G 38050 DCW 'REP ' 4 09740 168 3264 G 38060 DCW 'INQ' 3 09743 168 G 3265 G 38070 ACGMWM DCW 'M' 1 09744 168 3266 G 38080 ERMSG DCW '1' 1 09745 168 77120 GENERATE SGF PAGE 157 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3267 G 38090 DCW '0101 ' 5 09750 168 3268 G 38100 DCW 'XXX ' 4 09754 168 3269 G 38110 DCW 'XXXXXXXXXX 0000',G 16 09769 168 3270 G 38120 DC 'THA' 3 09773 169 G 3271 G 38170 DCW 'M',G 2 09774 169 3272 G 38190 /MDE/ DEFIN MDE FOR MON DYNAMIC SPR 09780 170 3273 G 38200 MDE DCW /MLX/ *C Q 5 09780 /MLX/ 171 3274 G 38210 ERMNL DCW ' 13' 3 09783 172 3275 G 38220 DCW 2 1 09784 172 3276 G 38230 ISMSK DCW 0 HLEZ RESTORE BKT 1 09785 172 3277 G 38250 DCW 00 2 09787 172 3278 G 38260 /MD1/ DEFIN MDMRWDOP-3 FOR MON DYNAMIC SPR 09788 173 3279 G 38270 /MD4/ DEFIN MDMRWDOP FOR MON DYNAMIC SPR 09791 174 3280 G 38280 MDMRWDOP DC 'RRUU' *C 4 09791 175 3281 G 38290 /MDF/ DEFIN PGF 09796 176 3282 G 38300 PGF DCW PGRW N 5 09796 09881 177 3283 G 38310 DCW /MDM/ Q 5 09801 /MDM/ 177 3284 G 38320 ERCEL DCW 0000 4 09805 178 3285 G 38330 DCW 0 1 09806 178 3286 G 38340 ISIN/ DEFIN ISIND *B 09808 179 3287 G 38360 ISIND DCW 00 2 09808 180 3288 G 38400 DC 'VVV4' 4 09812 180 3289 G 38410 DCW 00 2 09814 180 3290 G 38470 DCW 00000 FLD 10 5 09819 180 3291 G 38480 ERAR EQU *-1 09819 77120 GENERATE SGF PAGE 158 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3292 G 38490 DCW +00000 STORE REGISTER BKT 5 09824 180 3293 G 38510 DCW 00000 5 09829 180 3294 G 38520 TEWMX DCW +26 2 09831 180 3295 G 38530 AC3BL DCW ' + ' 3 09834 180 3296 G 38600 DCW '2 )' 3 09837 180 3297 G 38610 DCW '$' 1 09838 180 3298 G 38620 DCW ' *' 2 09840 180 3299 G 38630 DCW '2(' 2 09842 180 + 3300 G 38670 DCW ' 0' 2 09844 180 3301 G 38680 DCW 'F' 1 09845 180 3302 G 38720 DCW ' 2' 2 09847 181 3303 G 38730 UNXT DCW ' ' 1 09848 181 3304 G 38750 DCW RW2OC N 5 09853 01169 182 3305 G 38760 RWI2 DC 2 9 1 09854 182 3306 G 38780 DCW RW3OC N 5 09859 01595 182 3307 G 38790 RWI3 DC 3 9 1 09860 182 3308 G 38821 DCW 4 PART OF ACON4 9 1 09861 182 3309 G 38822 PGZ DCW 0 PART OF ACON4 9 1 09862 182 3310 G 38823 DCW -4 PART OF ACON4 9 1 09863 182 3311 G 38824 ACON4 DCW 4 PART OF ACON4 9 1 09864 182 3312 G 38825 ACON11 DCW 11 2 09866 183 3313 G 38832 LRDAT DCW 00000 5 09871 183 3314 G 38833 LRCON DCW 00000 5 09876 183 3315 G 38840 PGRW DCW 00000 5 09881 183 3316 G 38850 DCW PGF N 5 09886 09796 184 77120 GENERATE SGF PAGE 159 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3317 G 38860 LU (B9,0,@ L 10 09887 L (B9 00000 @ 184 Q 3318 G 38870 DCW ' TVVVNVV' 10 09906 185 3319 G 38880 DCW ' ' NONSENSE DUMP ADDR 1 09907 185 3320 G 38890 /OGR/ DEFIN PGOGR 09912 186 3321 G 38900 PGOGR DCW 70000 5 09912 187 3322 G 38920 CPGO/ DEFIN PGORG 09917 188 3323 G 38930 PGORG DCW /MKR/ DUMP2 ADDR Q 5 09917 /MKR/ 189 3324 G 38950 PGBS DCW 00000 DUMP1 ADDR 5 09922 190 3325 G 38960 PGCTM DCW '3 CPT' PART OF CHKPT MSG 5 09927 190 3326 G 38980 RWPLST DCW 00000 5 09932 190 3327 G 39330 PLLK/ DEFIN *-1 09932 191 3328 G 39340 HLEZ/ DEFIN PGHLEZ 09941 192 3329 G 39350 IQAR/ DEFIN PGIQAR 09939 193 3330 G 39360 PGIQAR DCW 'NY00000' 7 09939 194 3331 G 39370 PGHLEZ DC 00 2 09941 194 3332 G 39380 DCW 00000 *B 5 09946 194 3333 G 39400 PGRUM DCW 00000 5 09951 194 3334 G 39410 IQXN/ DEFIN PGXN 09956 195 3335 G 39420 PGXN DC 00000 INDEX REG SAVE AREA 5 09956 196 3336 G 39430 /CPT/ DEFIN PGCPT 09960 197 3337 G 39440 PGCPT DCW '000C',G 5 09960 198 3338 G 39480 /AMB/ DEFIN ACAM 09963 199 3339 G 39490 ACAM DCW -00 2 09963 200 3340 G 39495 DSKERMNL DCW ' 15' 3 09966 200 3341 G 39500 DCW 'OP9' 3 09969 200 77120 GENERATE SGF PAGE 160 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3342 G 39510 DCW 'CC8' 3 09972 200 3343 G 39520 DCW 'DC5' 3 09975 200 3344 G 39530 DCW 'ITV' 3 09978 200 3345 G 39540 DE2TBL DCW 'CCQ' 3 09981 200 3346 G 39560 DENTBL DC 'IHGFEDCBA' 9 09990 200 3347 G 39570 DEINV DCW '9'3' 3 09993 200 3348 G 39710 DS9999 DCW 9999 4 09997 200 3349 G 40040 DAYS/ DEFIN RWBKT 10004 201 3350 G 40060 LREXARG DCW 00 2 09999 202 3351 G 40070 RWBKT DCW 00000 5 10004 202 3352 G 40090 LR1EO DCW '1EO' 3 10007 202 3353 G 40110 /LEF/ DEFIN LRLEF 10008 203 3354 G 40120 LRLEF DCW 0 1 10008 204 3355 G 40130 DC ' ' 1 10009 204 3356 G 40150 NOP 9 1 10010 N 205 3357 G 40160 LRLF DCW LRIO N 5 10015 10062 205 3358 G 40170 DCW 00000 5 10020 206 3359 G 40190 LRHDR DCW '1HDR ' 6 10026 206 3360 G 40210 DC 'VVVV4' 5 10031 206 3361 G 40230 LR366 DCW 366 3 10034 206 3362 G 40240 LR635 DCW 635 3 10037 206 3363 G 40370 LRCA DCW 30101 5 10038 206 3364 G 40380 LRSW DCW ' ' 1 10043 206 3365 G 40390 DCW 'XX ' 3 10046 206 3366 G 40400 DCW 'XXXXX',G 6 10051 206 77120 GENERATE SGF PAGE 161 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3367 G 40410 LRSW/ DEFIN LRSW *B 10043 207 3368 G 40470 DC ' ' 5 10057 208 3369 G 40560 LRIO DCW 00000 5 10062 208 3370 G 40570 DCW LRLF N 5 10067 10015 209 3371 G 40580 DCW 'M)U1' 4 10071 210 3372 G 40590 RLRW/ DEFIN *-1 *B 10071 211 3373 G 40600 LRMS EQU *-1 *B 10071 3374 G 40640 LRLA DC LA2 N 5 10076 10088 212 3375 G 40650 DC 'R' 9 1 10077 212 3376 G 40660 DCW ' XVVVNVV' 10 10087 213 3377 G 40680 /SLA/ DEFIN LA2 10088 214 3378 G 40690 LA2 DA 1X80,G 81 10088 3379 G 40700 2,2 10089 217 3380 G 40710 12,12 10099 218 3381 G 40720 31,31 10118 219 3382 G 40730 37,37 10124 220 3383 G 40735 LA1 EQU LA2 10088 3384 G 41190 ERSMS DCW '10109 ' ERR STATISTIC MSG 6 10169 221 3385 G 41200 DCW 'XX ' 3 10177 221 3386 G 41210 DCW ' .' 4 10181 221 3387 G 41220 DCW ' .' 4 10185 221 3388 G 41230 DCW ' ',G 3 10187 221 3389 G 41240 DCW '1' 1 10189 221 3390 G 41250 DCW '1' 1 10190 221 3391 G 41260 DCW '1' 1 10191 221 77120 GENERATE SGF PAGE 162 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3392 G 41270 DCW '1' 1 10192 221 3393 G 41280 DCW '1' 1 10193 221 3394 G 41290 DCW '1' 1 10194 221 3395 G 41300 DCW 'X' 1 10195 221 3396 G 41310 ERCC DCW 'X' 1 10196 221 3397 G 41460 DCW '000000009' 9 10205 221 3398 G 41470 DCW '000000008' 9 10214 222 3399 G 41480 DCW '000000007' 9 10223 222 3400 G 41490 DCW '000000006' 9 10232 222 3401 G 41500 DCW '000000005' 9 10241 222 3402 G 41510 DCW '000000004' 9 10250 222 3403 G 41520 DCW '000000003' 9 10259 223 3404 G 41530 DCW '000000002' 9 10268 223 3405 G 41540 DCW '000000001' 9 10277 223 3406 G 41550 DCW '000000000' 9 10286 223 + 3407 G 41560 DCW '0' 1 10287 223 3408 G 41570 DCW '$' 1 10288 223 3409 G 41590 DCW '000000009' 9 10297 223 3410 G 41600 DCW '000000008' 9 10306 224 3411 G 41610 DCW '000000007' 9 10315 224 3412 G 41620 DCW '000000006' 9 10324 224 3413 G 41630 DCW '000000005' 9 10333 224 3414 G 41640 DCW '000000004' 9 10342 224 3415 G 41650 DCW '000000003' 9 10351 225 3416 G 41660 DCW '000000002' 9 10360 225 77120 GENERATE SGF PAGE 163 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3417 G 41670 DCW '000000001' 9 10369 225 3418 G 41680 DCW '000000000' 9 10378 225 3419 G 41690 DCW ')' 1 10379 225 3420 G 41700 DCW '*' 1 10380 225 3421 G 41720 DCW '000000009' 9 10389 225 3422 G 41730 DCW '000000008' 9 10398 226 3423 G 41740 DCW '000000007' 9 10407 226 3424 G 41750 DCW '000000006' 9 10416 226 3425 G 41760 DCW '000000005' 9 10425 226 3426 G 41770 DCW '000000004' 9 10434 226 3427 G 41780 DCW '000000003' 9 10443 227 3428 G 41790 DCW '000000002' 9 10452 227 3429 G 41800 DCW '000000001' 9 10461 227 3430 G 41810 DCW '000000000' 9 10470 227 3431 G 41820 DCW '(' 1 10471 227 3432 G 41830 DCW ''' 1 10472 227 3433 G 41840 ERCDT EQU *-1 10472 3434 G 41860 AC3B/ DEFIN AC3BL )S 09834 228 3435 G 41870 UNTA/ DEFIN UNTACH )S 04616 229 3436 G 41880 BEEP/ DEFIN ACBEPA )S 05748 230 3437 G 41890 SPIN/ DEFIN PGHLEZ-1 )S 09940 231 3438 G 41930 SPPG/ DEFIN PG-7 04909 232 3439 G 41940 SPRS/ DEFIN PGRIP+5 )S 05031 233 3440 G 41950 PGRS/ DEFIN PGRIP )S 05026 234 3441 G 41960 SPPX/ DEFIN PGX+5 )S 05024 235 77120 GENERATE SGF PAGE 164 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3442 G 42000 PGRA/ DEFIN PGRX+5 )S 05088 236 3443 G 42005 PGRB/ DEFIN PGRX 05083 237 77120 GENERATE SGF PAGE 165 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3444 G 42020 *PART OF RESIDENT I/O ASSIGNMENT ROUTINE--- 3445 G 42030 *THIS ROUTINE INITIALIZES THE DISK FILE PREFIX OF THE FILE TABLE. 3446 G 42040 *IF NO DISK ON THE SYSTEM THIS ROUTINE DEGENERATES TO A SINGLE 3447 G 42050 * BRANCH INSTRUCTION. 3448 G 42060 * 3449 G 42070 MIOA/ DEFIN * 10473 238 + + 3450 G 42090 BBE MIOR/,16+X15,7 Q. NOT DISK 0 12 10473 W MIOR/ 000A6 7 239 + + 3451 G 42100 BBE MIOR/,13+X15,8 Q. NSEQ FILE 0 12 10485 W MIOR/ 000A3 8 239 + + 3452 G 42110 MLCA 15+X13,0-5+X15 MOVE TRACK OR SECTOR 0 12 10497 D 000/5 99II5 T 239 L 3453 G 42230 B MIOR/ RETURN TO MIO ROUTINE T 7 10509 J MIOR/ 239 3454 G 42240 *THE FOLLOWING TABLE IS FOR UNCTL DIAGNOSTIC USED BY MIOT/ ROUTINE 3455 G 42250 * IN IBIOARM MODULE. 3456 G 42260 DCW ' ' LOOKUP STOPPER 9 1 10516 239 3457 G 42280 DCW '1K' CHAN.1 READER 2 10518 240 3458 G 42320 DCW '2F' CHAN.1 PRINTER 2 10520 240 3459 G 42355 DCW '4)' CHANNEL 2 NON OVLP 2 10522 240 3460 G 42365 DCW '4$' CHANNEL 3 OVLP 2 10524 240 3461 G 42375 DCW '4*' CHANNEL 2 OVLP 2 10526 240 3462 G 42380 DCW '4(' CHANNEL 1 NON OVLP 2 10528 240 3463 G 42400 DCW '4'' CHANNEL 1 OVLP 2 10530 240 + 3464 G 42412 DCW '40' CHANNEL 3 NON OVLP 2 10532 240 3465 G 42430 DCW 00 LOOKUP ARGUMENT 2 10534 240 3466 G 42440 MIOG/ DEFIN *-1 10534 241 3467 G 42630 SPEND )S 3468 'X' 1 10535 242 77120 GENERATE SGF PAGE 166 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 77120 GENERATE SGF PAGE 167 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3469 G 42660 TITLE IBRSTMOD1,0 244 3470 G 42680 BASE1 70100 70100 245 3471 G 42690 ORG 0 00000 77120 GENERATE SGF PAGE 168 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3472 G 42710 ****************************************************************** 3473 G 42720 ** R E S T A R T M O D U L E S** 3474 G 42730 **CONTAINS THREE PHASES 3475 G 42740 ****************************************************************** 3476 G 42750 * R E S T A R T T A B L E 3477 G 42760 RST1/ DEFIN RST1 00000 246 G 3478 G 42770 RST1 DCW 'M' 1 00000 247 3479 G 42780 RST2/ DEFIN RST2 00005 248 3480 G 42790 RST2 DCW +RST1F N 5 00005 0009A 249 3481 G 42800 RST3/ DEFIN RST3 00009 250 3482 G 42810 RST3 DCW 0000 4 00009 251 3483 G 42820 RST4/ DEFIN RST4 00010 252 3484 G 42830 RST4 DC 0 1 00010 253 3485 G 42840 * M O N I O R S E C T I O N - R E S T A R T T A B L E 3486 G 42850 MCPH/ DEFIN MRCPHN 00013 254 3487 G 42860 MRCPHN DCW ' ' CURRENT P 3 00013 255 3488 G 42870 MCSI/ DEFIN MRCSIZ 00018 256 3489 G 42880 MRCSIZ DCW ' ' CURRENT S 5 00018 257 3490 G 42890 MCPN/ DEFIN MRCPNM 00028 258 3491 G 42900 MRCPNM DCW ' ' CURRENT P 10 00028 259 3492 G 42910 MCSF/ DEFIN MRCSFC 00033 260 3493 G 42920 MRCSFC DCW ' ' CUR SOF O 5 00033 261 3494 G 42930 MOPH/ DEFIN MROPHN 00036 262 3495 G 42940 MROPHN DCW ' ' ORIGINAL 3 00036 263 3496 G 42950 MOSI/ DEFIN MROSIZ 00041 264 77120 GENERATE SGF PAGE 169 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3497 G 42960 MROSIZ DCW ' ' ORIGINAL 5 00041 265 3498 G 42970 MOPN/ DEFIN MROPNM 00051 266 3499 G 42980 MROPNM DCW ' ' ORIGINAL 10 00051 267 3500 G 42990 MOSF/ DEFIN MROSFC 00056 268 3501 G 43000 MROSFC DCW ' ' ORG SOF O 5 00056 269 3502 G 43010 DCW ' ' CURRENT P 4 00060 269 3503 G 43020 DCW ' ' CURRENT N 4 00064 269 3504 G 43030 MCCT/ DEFIN MRCCT 00068 270 3505 G 43040 MRCCT DCW ' ' CURRENT C 4 00068 271 3506 G 43050 DCW ' ' ORIGINAL 4 00072 271 3507 G 43060 DCW ' ' ORIGINAL 4 00076 271 3508 G 43070 MOCT/ DEFIN MROCT 00080 272 3509 G 43080 MROCT DCW ' ' ORIGINAL 4 00080 273 3510 G 43090 * B A S I C M O N I T O R R E S T A R T S W I T C H 3511 G 43100 MRSW/ DEFIN MRSWITCH 00081 274 3512 G 43110 MRSWITCH DC ' ' 1 00081 275 3513 G 43120 * IF WM, SOF AND MJB ARE DISK - IF NO WM, THEY ARE TAPE 3514 G 43130 * IF *1* BIT, MJB WAS IN USE *B 3515 G 43140 * E N D M O N I T O R S E C T I O N R E S T A R T T A B L E 3516 G 43150 * R E S T A R T P S E U D O F I L E T A B L E 3517 G 43160 RST5/ DEFIN RST5 00086 276 3518 G 43170 RST5 DCW 00000 5 00086 277 3519 G 43180 RST6/ DEFIN RST6 00091 278 3520 G 43190 RST6 DCW +RST2F N 5 00091 0013G 279 3521 G 43200 RST1F EQU *-1 00091 77120 GENERATE SGF PAGE 170 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3522 G 43210 DCW ' ' 4 00095 280 3523 G 43220 DCW ' ' 4 00099 280 3524 G 43230 DCW ' ' 5 00104 280 3525 G 43240 DCW ' ' 10 00114 280 3526 G 43250 DCW ' ' 5 00119 280 3527 G 43260 DCW ' ' 5 00124 280 3528 G 43270 DCW ' ' 5 00129 280 3529 G 43280 DCW ' ' 2 00131 280 3530 G 43290 DCW ' ' 1 00132 280 3531 G 43300 RST2F DCW +RST3F N 5 00137 0018C 281 3532 G 43310 DCW ' ' 4 00141 282 3533 G 43320 DCW ' ' 4 00145 282 3534 G 43330 DCW ' ' 5 00150 282 3535 G 43340 DCW ' ' 10 00160 282 3536 G 43350 DCW ' ' 5 00165 282 3537 G 43360 DCW ' ' 5 00170 282 3538 G 43370 DCW ' ' 5 00175 282 3539 G 43380 DCW ' ' 2 00177 282 3540 G 43390 DCW ' ' 1 00178 282 3541 G 43400 RST3F DCW +RST4F N 5 00183 0022I 283 3542 G 43410 DCW ' ' 4 00187 284 3543 G 43420 DCW ' ' 4 00191 284 3544 G 43430 DCW ' ' 5 00196 284 3545 G 43440 DCW ' ' 10 00206 284 3546 G 43450 DCW ' ' 5 00211 284 77120 GENERATE SGF PAGE 171 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3547 G 43460 DCW ' ' 5 00216 284 3548 G 43470 DCW ' ' 5 00221 284 3549 G 43480 DCW ' ' 2 00223 284 3550 G 43490 DCW ' ' 1 00224 284 3551 G 43500 RST4F DCW +RST5F N 5 00229 0027E 285 3552 G 43510 DCW ' ' 4 00233 286 3553 G 43520 DCW ' ' 4 00237 286 3554 G 43530 DCW ' ' 5 00242 286 3555 G 43540 DCW ' ' 10 00252 286 3556 G 43550 DCW ' ' 5 00257 286 3557 G 43560 DCW ' ' 5 00262 286 3558 G 43570 DCW ' ' 5 00267 286 3559 G 43580 DCW ' ' 2 00269 286 3560 G 43590 DCW ' ' 1 00270 286 3561 G 43600 RST5F DCW +RST6F N 5 00275 0032A 287 3562 G 43610 DCW ' ' 4 00279 288 3563 G 43620 DCW ' ' 4 00283 288 3564 G 43630 DCW ' ' 5 00288 288 3565 G 43640 DCW ' ' 10 00298 288 3566 G 43650 DCW ' ' 5 00303 288 3567 G 43660 DCW ' ' 5 00308 288 3568 G 43670 DCW ' ' 5 00313 288 3569 G 43680 DCW ' ' 2 00315 288 3570 G 43690 DCW ' ' 1 00316 288 3571 G 43700 RST6F DCW +RST7F N 5 00321 0036G 289 77120 GENERATE SGF PAGE 172 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3572 G 43710 DCW ' ' 4 00325 290 3573 G 43720 DCW ' ' 4 00329 290 3574 G 43730 DCW ' ' 5 00334 290 3575 G 43740 DCW ' ' 10 00344 290 3576 G 43750 DCW ' ' 5 00349 290 3577 G 43760 DCW ' ' 5 00354 290 3578 G 43770 DCW ' ' 5 00359 290 3579 G 43780 DCW ' ' 2 00361 290 3580 G 43790 DCW ' ' 1 00362 290 3581 G 43800 RST7F DCW +RST8F N 5 00367 0041C 291 3582 G 43810 DCW ' ' 4 00371 292 3583 G 43820 DCW ' ' 4 00375 292 3584 G 43830 DCW ' ' 5 00380 292 3585 G 43840 DCW ' ' 10 00390 292 3586 G 43850 DCW ' ' 5 00395 292 3587 G 43860 DCW ' ' 5 00400 292 3588 G 43870 DCW ' ' 5 00405 292 3589 G 43880 DCW ' ' 2 00407 292 3590 G 43890 DCW ' ' 1 00408 292 3591 G 43900 RST8F DCW +RST9F N 5 00413 0045I 293 3592 G 43910 DCW ' ' 4 00417 294 3593 G 43920 DCW ' ' 4 00421 294 3594 G 43930 DCW ' ' 5 00426 294 3595 G 43940 DCW ' ' 10 00436 294 3596 G 43950 DCW ' ' 5 00441 294 77120 GENERATE SGF PAGE 173 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3597 G 43960 DCW ' ' 5 00446 294 3598 G 43970 DCW ' ' 5 00451 294 3599 G 43980 DCW ' ' 2 00453 294 3600 G 43990 DCW ' ' 1 00454 294 3601 G 44000 RST9F DCW +RST10F N 5 00459 0050E 295 3602 G 44010 DCW ' ' 4 00463 296 3603 G 44020 DCW ' ' 4 00467 296 3604 G 44030 DCW ' ' 5 00472 296 3605 G 44040 DCW ' ' 10 00482 296 3606 G 44050 DCW ' ' 5 00487 296 3607 G 44060 DCW ' ' 5 00492 296 3608 G 44070 DCW ' ' 5 00497 296 3609 G 44080 DCW ' ' 2 00499 296 3610 G 44090 DCW ' ' 1 00500 296 3611 G 44100 RST10F DCW +RST11F N 5 00505 0055A 297 3612 G 44110 DCW ' ' 4 00509 298 3613 G 44120 DCW ' ' 4 00513 298 3614 G 44130 DCW ' ' 5 00518 298 3615 G 44140 DCW ' ' 10 00528 298 3616 G 44150 DCW ' ' 5 00533 298 3617 G 44160 DCW ' ' 5 00538 298 3618 G 44170 DCW ' ' 5 00543 298 3619 G 44180 DCW ' ' 2 00545 298 3620 G 44190 DCW ' ' 1 00546 298 3621 G 44200 RST11F DCW +RST12F N 5 00551 0059G 299 77120 GENERATE SGF PAGE 174 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3622 G 44210 DCW ' ' 4 00555 300 3623 G 44220 DCW ' ' 4 00559 300 3624 G 44230 DCW ' ' 5 00564 300 3625 G 44240 DCW ' ' 10 00574 300 3626 G 44250 DCW ' ' 5 00579 300 3627 G 44260 DCW ' ' 5 00584 300 3628 G 44270 DCW ' ' 5 00589 300 3629 G 44280 DCW ' ' 2 00591 300 3630 G 44290 DCW ' ' 1 00592 300 3631 G 44300 RST12F DCW +RST13F N 5 00597 0064C 301 3632 G 44310 DCW ' ' 4 00601 302 3633 G 44320 DCW ' ' 4 00605 302 3634 G 44330 DCW ' ' 5 00610 302 3635 G 44340 DCW ' ' 10 00620 302 3636 G 44350 DCW ' ' 5 00625 302 3637 G 44360 DCW ' ' 5 00630 302 3638 G 44370 DCW ' ' 5 00635 302 3639 G 44380 DCW ' ' 2 00637 302 3640 G 44390 DCW ' ' 1 00638 302 3641 G 44400 RST13F DCW +RST14F N 5 00643 0068I 303 3642 G 44410 DCW ' ' 4 00647 304 3643 G 44420 DCW ' ' 4 00651 304 3644 G 44430 DCW ' ' 5 00656 304 3645 G 44440 DCW ' ' 10 00666 304 3646 G 44450 DCW ' ' 5 00671 304 77120 GENERATE SGF PAGE 175 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3647 G 44460 DCW ' ' 5 00676 304 3648 G 44470 DCW ' ' 5 00681 304 3649 G 44480 DCW ' ' 2 00683 304 3650 G 44490 DCW ' ' 1 00684 304 3651 G 44500 RST14F DCW +RST15F N 5 00689 0073E 305 3652 G 44510 DCW ' ' 4 00693 306 3653 G 44520 DCW ' ' 4 00697 306 3654 G 44530 DCW ' ' 5 00702 306 3655 G 44540 DCW ' ' 10 00712 306 3656 G 44550 DCW ' ' 5 00717 306 3657 G 44560 DCW ' ' 5 00722 306 3658 G 44570 DCW ' ' 5 00727 306 3659 G 44580 DCW ' ' 2 00729 306 3660 G 44590 DCW ' ' 1 00730 306 3661 G 44600 RST15F DCW +RST16F N 5 00735 0078A 307 3662 G 44610 DCW ' ' 4 00739 308 3663 G 44620 DCW ' ' 4 00743 308 3664 G 44630 DCW ' ' 5 00748 308 3665 G 44640 DCW ' ' 10 00758 308 3666 G 44650 DCW ' ' *B 5 00763 308 3667 G 44660 DCW ' ' *B 5 00768 308 3668 G 44670 DCW ' ' *B 5 00773 308 3669 G 44680 DCW ' ' 2 00775 308 3670 G 44690 DCW ' ' 1 00776 308 3671 G 44700 RST16F DCW +RST17F N 5 00781 0082G 309 77120 GENERATE SGF PAGE 176 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3672 G 44710 DCW ' ' 4 00785 310 3673 G 44720 DCW ' ' 4 00789 310 3674 G 44730 DCW ' ' 5 00794 310 3675 G 44740 DCW ' ' 10 00804 310 3676 G 44750 DCW ' ' 5 00809 310 3677 G 44760 DCW ' ' 5 00814 310 3678 G 44770 DCW ' ' 5 00819 310 3679 G 44780 DCW ' ' 2 00821 310 3680 G 44790 DCW ' ' 1 00822 310 3681 G 44800 RST17F DCW +RST18F N 5 00827 0087C 311 3682 G 44810 DCW ' ' 4 00831 312 3683 G 44820 DCW ' ' 4 00835 312 3684 G 44830 DCW ' ' 5 00840 312 3685 G 44840 DCW ' ' 10 00850 312 3686 G 44850 DCW ' ' 5 00855 312 3687 G 44860 DCW ' ' 5 00860 312 3688 G 44870 DCW ' ' 5 00865 312 3689 G 44880 DCW ' ' 2 00867 312 3690 G 44890 DCW ' ' 1 00868 312 3691 G 44900 RST18F DCW +RST19F N 5 00873 0091I 313 3692 G 44910 DCW ' ' 4 00877 314 3693 G 44920 DCW ' ' 4 00881 314 3694 G 44930 DCW ' ' 5 00886 314 3695 G 44940 DCW ' ' 10 00896 314 3696 G 44950 DCW ' ' 5 00901 314 77120 GENERATE SGF PAGE 177 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3697 G 44960 DCW ' ' 5 00906 314 3698 G 44970 DCW ' ' 5 00911 314 3699 G 44980 DCW ' ' 2 00913 314 3700 G 44990 DCW ' ' 1 00914 314 3701 G 45000 RST19F DCW +RST20F N 5 00919 0096E 315 3702 G 45010 DCW ' ' 4 00923 316 3703 G 45020 DCW ' ' 4 00927 316 3704 G 45030 DCW ' ' 5 00932 316 3705 G 45040 DCW ' ' 10 00942 316 3706 G 45050 DCW ' ' 5 00947 316 3707 G 45060 DCW ' ' 5 00952 316 3708 G 45070 DCW ' ' 5 00957 316 3709 G 45080 DCW ' ' 2 00959 316 3710 G 45090 DCW ' ' 1 00960 316 3711 G 45110 RST20F DCW +RST21F N 5 00965 0101A 317 3712 G 45140 DCW ' ' 4 00969 318 3713 G 45150 DCW ' ' 4 00973 318 3714 G 45160 DCW ' ' 5 00978 318 3715 G 45170 DCW ' ' 10 00988 318 3716 G 45180 DCW ' ' 5 00993 318 3717 G 45190 DCW ' ' 5 00998 318 3718 G 45200 DCW ' ' 5 01003 318 3719 G 45210 DCW ' ' 2 01005 318 3720 G 45220 DCW ' ' 1 01006 318 3721 G 45240 RST21F DCW +RST22F N 5 01011 0105G 319 77120 GENERATE SGF PAGE 178 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3722 G 45250 DCW ' ' 4 01015 320 3723 G 45260 DCW ' ' 4 01019 320 3724 G 45270 DCW ' ' 5 01024 320 3725 G 45280 DCW ' ' 10 01034 320 3726 G 45290 DCW ' ' 5 01039 320 3727 G 45300 DCW ' ' 5 01044 320 3728 G 45310 DCW ' ' 5 01049 320 3729 G 45320 DCW ' ' 2 01051 320 3730 G 45330 DCW ' ' 1 01052 320 3731 G 45340 RST22F DCW +RST23F N 5 01057 0110C 321 3732 G 45350 DCW ' ' 4 01061 322 3733 G 45360 DCW ' ' 4 01065 322 3734 G 45370 DCW ' ' 5 01070 322 3735 G 45380 DCW ' ' 10 01080 322 3736 G 45390 DCW ' ' 5 01085 322 3737 G 45400 DCW ' ' 5 01090 322 3738 G 45410 DCW ' ' 5 01095 322 3739 G 45420 DCW ' ' 2 01097 322 3740 G 45430 DCW ' ' 1 01098 322 3741 G 45440 RST23F DCW +RST24F N 5 01103 0114I 323 3742 G 45450 DCW ' ' 4 01107 324 3743 G 45460 DCW ' ' 4 01111 324 3744 G 45470 DCW ' ' 5 01116 324 3745 G 45480 DCW ' ' 10 01126 324 3746 G 45490 DCW ' ' 5 01131 324 77120 GENERATE SGF PAGE 179 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3747 G 45500 DCW ' ' 5 01136 324 3748 G 45510 DCW ' ' 5 01141 324 3749 G 45520 DCW ' ' 2 01143 324 3750 G 45530 DCW ' ' 1 01144 324 3751 G 45540 RST24F DCW +RST25F N 5 01149 0119E 325 3752 G 45550 DCW ' ' 4 01153 326 3753 G 45560 DCW ' ' 4 01157 326 3754 G 45570 DCW ' ' 5 01162 326 3755 G 45580 DCW ' ' 10 01172 326 3756 G 45590 DCW ' ' 5 01177 326 3757 G 45600 DCW ' ' 5 01182 326 3758 G 45610 DCW ' ' 5 01187 326 3759 G 45620 DCW ' ' 2 01189 326 3760 G 45630 DCW ' ' 1 01190 326 3761 G 45640 RST25F DCW +RST26F N 5 01195 0124A 327 3762 G 45650 DCW ' ' 4 01199 328 3763 G 45660 DCW ' ' 4 01203 328 3764 G 45670 DCW ' ' 5 01208 328 3765 G 45680 DCW ' ' 10 01218 328 3766 G 45690 DCW ' ' 5 01223 328 3767 G 45700 DCW ' ' 5 01228 328 3768 G 45710 DCW ' ' 5 01233 328 3769 G 45720 DCW ' ' 2 01235 328 3770 G 45730 DCW ' ' 1 01236 328 3771 G 45740 RST26F DCW +RST27F N 5 01241 0128G 329 77120 GENERATE SGF PAGE 180 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3772 G 45750 DCW ' ' 4 01245 330 3773 G 45760 DCW ' ' 4 01249 330 3774 G 45770 DCW ' ' 5 01254 330 3775 G 45780 DCW ' ' 10 01264 330 3776 G 45790 DCW ' ' 5 01269 330 3777 G 45800 DCW ' ' 5 01274 330 3778 G 45810 DCW ' ' 5 01279 330 3779 G 45820 DCW ' ' 2 01281 330 3780 G 45830 DCW ' ' 1 01282 330 3781 G 45840 RST27F DCW +RST28F N 5 01287 0133C 331 3782 G 45850 DCW ' ' 4 01291 332 3783 G 45860 DCW ' ' 4 01295 332 3784 G 45870 DCW ' ' 5 01300 332 3785 G 45880 DCW ' ' 10 01310 332 3786 G 45890 DCW ' ' 5 01315 332 3787 G 45900 DCW ' ' 5 01320 332 3788 G 45910 DCW ' ' 5 01325 332 3789 G 45920 DCW ' ' 2 01327 332 3790 G 45930 DCW ' ' 1 01328 332 3791 G 45940 RST28F DCW +RST29F N 5 01333 0137I 333 3792 G 45950 DCW ' ' 4 01337 334 3793 G 45960 DCW ' ' 4 01341 334 3794 G 45970 DCW ' ' 5 01346 334 3795 G 45980 DCW ' ' 10 01356 334 3796 G 45990 DCW ' ' 5 01361 334 77120 GENERATE SGF PAGE 181 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3797 G 46000 DCW ' ' 5 01366 334 3798 G 46010 DCW ' ' 5 01371 334 3799 G 46020 DCW ' ' 2 01373 334 3800 G 46030 DCW ' ' 1 01374 334 3801 G 46040 RST29F DCW +RST30F N 5 01379 0142E 335 3802 G 46050 DCW ' ' 4 01383 336 3803 G 46060 DCW ' ' 4 01387 336 3804 G 46070 DCW ' ' 5 01392 336 3805 G 46080 DCW ' ' 10 01402 336 3806 G 46090 DCW ' ' 5 01407 336 3807 G 46100 DCW ' ' 5 01412 336 3808 G 46110 DCW ' ' 5 01417 336 3809 G 46120 DCW ' ' 2 01419 336 3810 G 46130 DCW ' ' 1 01420 336 3811 G 46170 RST30F DCW 00000 5 01425 337 3812 G 46200 DCW ' ' 4 01429 337 3813 G 46210 DCW ' ' 4 01433 337 3814 G 46220 DCW ' ' 5 01438 337 3815 G 46230 DCW ' ' 10 01448 337 3816 G 46240 DCW ' ' 5 01453 337 3817 G 46250 DCW ' ' 5 01458 337 3818 G 46260 DCW ' ' 5 01463 337 3819 G 46270 DCW ' ' 2 01465 337 3820 G 46280 DCW ' ' 1 01466 338 3821 G 47300 * S A V E I O C S T A B L E 77120 GENERATE SGF PAGE 182 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3822 G 47370 RSTJ/ DEFIN RSTJ 01472 339 3823 G 47380 RSTJ DCW 000000 PGRX SAVE AREA 6 01472 340 3824 G 47400 RSXJ DCW 00000 PGRIP SAVE AREA 5 01477 340 3825 G 47410 RSXJ/ DEFIN RSXJ 01477 341 3826 G 47420 RSTH/ DEFIN RSTH 01480 342 3827 G 47430 RSTH DCW 000 3 01480 343 3828 G 47440 RMMM/ DEFIN RMMM 01485 344 3829 G 47450 RMMM DCW 00000 5 01485 345 3830 G 47470 RNNN/ DEFIN RNNN 01490 346 3831 G 47480 RNNN DCW 00000 5 01490 347 3832 G 47500 RSTG/ DEFIN RSTG 01495 348 3833 G 47510 RSTG DCW 00000 5 01495 349 3834 G 47530 RSTE/ DEFIN RSTE *B 01496 350 3835 G 47540 RSTE DCW 0 *B 1 01496 351 3836 G 47550 RSTI/ DEFIN RSTI *B 01499 352 3837 G 47560 RSTI DCW 000 *B 3 01499 353 3838 G 47570 RQQQ/ DEFIN RQQQ *B 01504 354 3839 G 47580 RQQQ DCW 00000 5 01504 355 3840 G 47590 DCW 'Y00000' 6 01510 355 3841 G 47600 RST8 DCW 00 2 01512 355 3842 G 47610 RST8/ DEFIN RST8 01512 356 3843 G 47620 RSTU DCW 00 SAVE OVFLW INDIC 2 01514 357 3844 G 47630 RSTU/ DEFIN RSTU 01514 358 3845 G 47640 RST9/ DEFIN RST0-1 01590 359 3846 G 47650 DA 1X76 76 01515 77120 GENERATE SGF PAGE 183 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3847 G 47660 1,1 01515 361 3848 G 47670 RST0/ DEFIN RST0 01591 362 3849 G 47680 RST0 DA 1X15 15 01591 3850 G 47690 1,1 01591 364 3851 G 47700 RSTT/ DEFIN *-1 *B 01605 365 3852 G 47710 RSTC/ DEFIN RSTC *B 01610 366 3853 G 47720 RSTC DCW 00000 *B 5 01610 367 3854 G 47730 RSTF/ DEFIN RSTF *B 01611 368 3855 G 47740 RSTF DC 0 *B 1 01611 369 3856 G 47750 RSTL/ DEFIN RSTL *B 01616 370 3857 G 47760 RSTL DCW 00000 *B 5 01616 371 3858 G 47770 REND/ DEFIN * BASED TO BY RSTMODI*B 01617 372 77120 GENERATE SGF PAGE 184 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3859 G 47790 *F I R S T I / O R E S T A R T M O D U L E 3860 G 47800 DCW 00000 5 01621 373 3861 G 47810 DCW 00000 5 01626 373 3862 G 47820 DCW 00 2 01628 373 3863 G 47830 DC 'NNRN' 4 01632 373 3864 G 47840 SRCHFILE EQU *+4 01637 3865 G 47850 DCW IORWA N 5 01637 01684 374 3866 G 47860 DCW /MDM/ Q 5 01642 /MDM/ 374 3867 G 47870 DCW RSTEND N 5 01647 02291 374 3868 G 47880 DCW ' VVVV4' 6 01653 375 3869 G 47890 DCW 00 2 01655 375 3870 G 47900 DCW +00000 5 01660 375 3871 G 47910 DCW +00000 5 01665 375 3872 G 47920 DCW +00000 5 01670 375 3873 G 47930 DCW +0000 4 01674 375 3874 G 47940 DCW '4 ' 5 01679 375 3875 G 47950 IORWA DCW 00000 5 01684 375 3876 G 47960 DCW SRCHFILE N 5 01689 01637 376 3877 G 47970 LU 'B0,/MKR/, L 10 01690 L 'B0 /MKR/ 376 Q 3878 G 47980 DCW ' TVVVVVV' 10 01709 377 + 3879 G 47990 RSTART1 ZA /ORG/,X10 0 11 01710 0 /ORG/ 00074 378 + 3880 G 48000 MLN /CRD/,X13 HI-ORDER ADDR - EXEQ 0 12 01721 D /CRD/ 00089 A 378 + + 3881 G 48010 MLCB 63+X13,RST4/ 0 12 01733 D 000W3 RST4/ L 378 + 3882 G 48020 ZA RSTCPT,X11 3 11 01745 0 02381 00079 378 3883 G 48030 A X10,X11 0 11 01756 A 00074 00079 379 77120 GENERATE SGF PAGE 185 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G -+ 3884 G 48040 BBE 1+X11 T 6 01767 W 00001 379 L 3885 G 48050 SAR X5 T 7 01773 G 00049 A 379 + 3886 G 48060 MLCWS RST1/,0+X5 0 12 01780 D RST1/ 00@@0 7 379 3887 G 48070 BCE RSTDEL,RST4/,D C 12 01792 B 01948 RST4/ D 380 3888 G 48080 A *-10,RST3-1 4 11 01804 A 01804 00008 380 L 3889 G 48090 BXPA /CLP/ T 7 01815 Y /CLP/ X 380 3890 G 48100 DCW SRCHFILE N 5 01826 01637 380 3891 G 48110 NOP 9 1 01827 N 380 3892 G 48120 RSTBSP MLN SRCHFILE+5,*+12 D 12 01828 D 01642 01851 A 381 L 3893 G 48130 BXPA /UNC/ T 7 01840 Y /UNC/ X 381 3894 G 48140 DCW 00000 5 01851 382 3895 G 48150 BSP 'U1 M 5 01852 U 'U1 B 383 3896 G 48160 BW *-11,*-26 D 12 01857 V 01857 01842 1 383 3897 G 48170 A *-10,RSTCNT 4 11 01869 A 01869 02376 383 3898 G 48180 BBE RSTBSP,RSTCNT,4 D 12 01880 W 01828 02376 4 383 3899 G 48190 B RSTCL ) 7 01892 J 02065 384 3900 G 48200 BU RSTNF ) 7 01899 J 01935 / 384 + 3901 G 48210 ZA /ORG/,X10 0 11 01906 0 /ORG/ 00074 384 -- 3902 G 48220 C 7+X10,7 0 11 01917 C 00007 00007 384 3903 G 48230 BE RSTERROR ) 7 01928 J 02142 S 384 L 3904 G 48240 RSTNF BXPA /CLP/ T 7 01935 Y /CLP/ X 385 3905 G 48250 DCW SRCHFILE N 5 01946 01637 385 3906 G 48260 BEX1 9 1 01947 R 385 3907 G 48270 RSTDEL MLCS *-12,SRCHFILE-8 D 12 01948 D 01947 01629 3 385 3908 G 48280 MLCA RSTMLX,SRCHFILE-16 D 12 01960 D 02386 01621 T 385 77120 GENERATE SGF PAGE 186 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 3909 G 48290 BXPA /CLP/ T 7 01972 Y /CLP/ X 386 3910 G 48300 DCW SRCHFILE N 5 01983 01637 386 3911 G 48310 NOP 9 1 01984 N 386 3912 G 48320 MLCA RSTORGC,X9 C 12 01985 D 02391 00069 T 386 + - 3913 G 48330 MLCA 0+X9,0-17+X9 0 12 01997 D 000@0 99RY3 T 386 3914 G 48340 MLCA IORWA+9 ' 6 02009 D 01693 386 3915 G 48350 RSTLP B RSTCL ) 7 02015 J 02065 387 + 3916 G 48360 ZA /ORG/,X10 0 11 02022 0 /ORG/ 00074 387 3917 G 48370 BU RSTLP ) 7 02033 J 02015 / 387 -- 3918 G 48380 C 7+X10,7 0 11 02040 C 00007 00007 387 3919 G 48390 BE RSTERROR ) 7 02051 J 02142 S 387 3920 G 48400 B RSTLP ) 7 02058 J 02015 388 3921 G 48410 RSTCL SBR RSTCLX+5 ) 7 02065 G 02140 B 388 + -- 3922 G 48420 SCNRG 0+X10,0-1+X10 0 12 02072 D 00000 99RR9 Q 388 L 3923 G 48430 SBR X10 T 7 02084 G 00074 B 388 + 3924 G 48440 ZA 9 1 02091 0 388 G G 3925 G 48450 BCE RSTCL+7,0+X5,M C 12 02092 B 02072 00@@0 M 389 3926 G 48460 MRCWM RSTCON ' 6 02104 D 02374 389 L 3927 G 48470 BXPA /PET/ T 7 02110 Y /PET/ X 389 3928 G 48480 DCW SRCHFILE N 5 02121 01637 389 3929 G 48490 DCW 'R' 9 1 02122 389 3930 G 48500 DCW ' ' 9 1 02123 389 -+ 3931 G 48510 C RST3/,0+X11 0 11 02124 C RST3/ 00000 390 L 3932 G 48520 RSTCLX B 0 T 7 02135 J 00000 390 G 3933 G 48530 RSTERROR BCE RST1/ T 6 02142 B RST1/ 390 77120 GENERATE SGF PAGE 187 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 3934 G 48540 SAR X5 T 7 02148 G 00049 A 390 3935 G 48550 MLN SRCHFILE+5,*+12 D 12 02155 D 01642 02178 A 390 L 3936 G 48560 BXPA /UNC/ T 7 02167 Y /UNC/ X 391 3937 G 48570 DCW 00000 5 02178 392 3938 G 48580 BSP 'U1 M 5 02179 U 'U1 B 393 3939 G 48590 BW *-11,*-26 D 12 02184 V 02184 02169 1 393 3940 G 48600 B RSTCL ) 7 02196 J 02065 393 3941 G 48610 BCE MRST00,IORWA+18, D 12 02203 B 02392 01702 393 3942 G 48620 BZN *-11,/CTB/ C 12 02215 V 02215 /CTB/ 2 394 L 3943 G 48630 BXPA /CNC/ T 7 02227 Y /CNC/ X 394 3944 G 48640 DCW MSGA N 5 02238 02265 394 3945 G 48650 BZN *-11,/CTB/ C 12 02239 V 02239 /CTB/ 2 394 L 3946 G 48660 B /WAT/ T 7 02251 J /WAT/ 394 L 3947 G 48670 B /EOP/ T 7 02258 J /EOP/ 395 3948 G 48680 MSGA DCW '20104 UNCORRECTABLE ERROR' 25 02265 396 G 3949 G 48690 DCW 'M' 1 02290 396 L 3950 G 48700 RSTEND BXPA /CLP/ T 7 02291 Y /CLP/ X 397 3951 G 48710 DCW SRCHFILE N 5 02302 01637 397 3952 G 48720 BEX1 9 1 02303 R 397 3953 G 48730 BZN *-11,/CTB/ C 12 02304 V 02304 /CTB/ 2 397 L 3954 G 48740 BXPA /CNC/ T 7 02316 Y /CNC/ X 397 3955 G 48750 DCW RSTMSG N 5 02327 02354 397 3956 G 48760 BZN *-11,/CTB/ C 12 02328 V 02328 /CTB/ 2 398 L 3957 G 48770 B /WAT/ T 7 02340 J /WAT/ 398 3958 G 48780 B RSTDEL ) 7 02347 J 01948 398 77120 GENERATE SGF PAGE 188 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3959 G 48790 RSTMSG DCW '20102 CHKPT NOT FOUND' 21 02354 399 G 3960 G 48800 DCW 'M' 1 02375 399 3961 G 48810 RSTCON EQU *-2 02374 3962 G 48820 RSTCNT DCW 5 1 02376 399 3963 G 48830 RSTCPT DCW /CPT/ Q 5 02381 /CPT/ 400 3964 G 48840 RSTMLX DCW /MLX/ Q 5 02386 /MLX/ 400 3965 G 48850 RSTORGC DCW /OGR/ Q 5 02391 /OGR/ 400 77120 GENERATE SGF PAGE 189 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 3966 G 48870 * M O D U L E I - M O N I T O R S E C T I O N 3967 G 48880 MRST00 BW MRD200,/MIX/ IF WM, DISK ORIENTED C 12 02392 V 02846 /MIX/ 1 400 + 3968 G 48890 MLC ZSFC/,MCSF/ SAVE CURRENT SOF BLOC 0 12 02404 D ZSFC/ MCSF/ C 400 G 3969 G 48900 MLC /PNM/ PROGRAM T 6 02416 D /PNM/ 401 G 3970 G 48910 MLC /SIZ/ PROGRAM T 6 02422 D /SIZ/ 401 G 3971 G 48920 MLC /PHN/ PHASE NU T 6 02428 D /PHN/ 401 3972 G 48930 * R E S T O R E R E S I D E N T M E M O R Y 3973 G 48940 BXPA *+1 DO NOT PERMIT INTERRU ) 7 02434 Y 02441 X 401 + 3974 G 48950 ZA MRKER,X9 TERMINATI 3 11 02441 0 04186 00069 401 + 3975 G 48960 ZA MRPHN,X10 FIRST ARE 3 11 02452 0 04206 00074 402 3976 G 48970 S *-10,X10 GET ITS H 3 11 02463 S 02463 00074 402 + 3977 G 48980 ZA MRMKR,X11 WHERE MDM 3 11 02474 0 04196 00079 402 3978 G 48990 A X10,X11 ADJUST ADDRESS 0 11 02485 A 00074 00079 402 + -+ -- D 3979 G 49000 MRT101 MRCWG 0+X11,0+X10 MOVE FROM MDM RES MON 0 12 02496 D 00000 00000 L 403 L 3980 G 49010 SAR X11 MEMORY MOVEMENT CEASE T 7 02508 G 00079 A 403 L 3981 G 49020 SBR X10 A- AND B- ADDRESSES. T 7 02515 G 00074 B 403 3982 G 49030 C X10,X9 HAVE WE RESTORED UP T 0 11 02522 C 00074 00069 403 3983 G 49040 BE *+8 IF EQUAL - HAVE RESTO ) 7 02533 J 02547 S 403 3984 G 49050 B MRT101 UNEQUAL - CONTINUE RE ) 7 02540 J 02496 404 + 3985 G 49060 MLN ZSFC/,MOSF/ SAVE ORIGINAL SOF BLO 0 12 02547 D ZSFC/ MOSF/ A 404 + 3986 G 49070 MLC /PNM/,MOPN/ PROGRAM 0 12 02559 D /PNM/ MOPN/ C 404 G 3987 G 49080 MLC /SIZ/ PROGRAM T 6 02571 D /SIZ/ 404 G 3988 G 49090 MLC /PHN/ PHASE N T 6 02577 D /PHN/ 404 + 3989 G 49100 MLC MCSF/,ZSFC/ RESTORE CURRENT SOF B 0 12 02583 D MCSF/ ZSFC/ C 405 + 3990 G 49110 MLC MCPN/,/PNM/ PROGR 0 12 02595 D MCPN/ /PNM/ C 405 77120 GENERATE SGF PAGE 190 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 3991 G 49120 MLC MCSI/,/SIZ/ PROGR 0 12 02607 D MCSI/ /SIZ/ C 405 + 3992 G 49130 MLC MCPH/,/PHN/ PHASE 0 12 02619 D MCPH/ /PHN/ C 406 3993 G 49140 BW MRT103,MUSE/ IF WM, MJB IN USE IN C 12 02631 V 02650 MUSE/ 1 406 3994 G 49150 B MRSC00 ESTABLISH RESTART TAB ) 7 02643 J 03158 406 3995 G 49160 * M J B W A S I N U S E I N P R O G R A M 3996 G 49170 MRT103 MLNS *,MRSW/ SET SW IN C 12 02650 D 02661 MRSW/ 1 406 + 3997 G 49180 MLN RST2/,X12 PRIMARY RESTART TABLE 0 12 02662 D RST2/ 00084 A 407 + + 3998 G 49190 MLN 0+X12,RST2/ FILE LINK FIELD TO RE 0 12 02674 D 00000 RST2/ A 407 + 3999 G 49200 ZA RSTMLX,X11 3 11 02686 0 02386 00079 407 4000 G 49210 BZ MRT104 IF ZERO, SYSTEM HAS N ) 7 02697 J 02731 V 407 + -+ + 4001 G 49220 MLCB 4+X11,33+X12 LABEL INDICATORS TO R 0 12 02704 D 00004 00033 L 408 G - 4002 G 49230 MLCB 29+X11 FILE SERIAL NUMBER TO T 6 02716 D 000B9 408 4003 G 49240 MLCB FILE IDENTIFIER TO TA 9 1 02722 D 408 4004 G 49250 MLCB CREATION DATE TO TABL 9 1 02723 D 408 4005 G 49260 MLCB RETENTION PERIOD TO T 9 1 02724 D 408 G - 4006 G 49270 MLCB 33+X11 REEL SEQUENCE NUMBER T 6 02725 D 000C3 408 + + 4007 G 49280 MRT104 MLN MOSF/,0+X12 MJB BLOCK COUNT TO RE 0 12 02731 D MOSF/ 00000 A 408 4008 G 49290 MLN MRZSOF,X11 NEAREST S C 12 02743 D 04221 00079 A 409 + - + 4009 G 49300 MLCS 62+X11,41+X12 R OR W TO TABLE 0 12 02755 D 000F2 00041 3 409 G - 4010 G 49310 MLCS 56+X11 UNIT OF MJB T 6 02767 D 000E6 409 G - 4011 G 49320 MLCS 54+X11 CHANNEL OF MJB TO RES T 6 02773 D 000E4 409 + + 4012 G 49330 MLCB ZSYM/,38+X12 SYMBOLIC UNIT OF MJB 0 12 02779 D ZSYM/ 00038 L 410 4013 G 49340 * T A P E M J B U S E D - F O R C E I O R W S O F G 4014 G 49350 CW MUSE/ SET TO INDICATE SOF I T 6 02791 ) MUSE/ 410 + 4015 G 49360 MLCA MCSF/,ZSFC/ BLOCK COUNTER OF SOF 0 12 02797 D MCSF/ ZSFC/ T 410 77120 GENERATE SGF PAGE 191 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4016 G 49370 MLNA MRMSOF,ZSYM/ ADCON OF SOF C 12 02809 D 04201 ZSYM/ / 410 + 4017 G 49380 ZA MRZSOF,X15 **FORCE IORW** 3 11 02821 0 04221 00099 411 L 4018 G 49390 BXPA /MIO/ **** TO SOF **** T 7 02832 Y /MIO/ X 411 4019 G 49400 B MRSC00 ESTABLISH RESTART TAB ) 7 02839 J 03158 411 77120 GENERATE SGF PAGE 192 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4020 G 49420 * M O D U L E I I - M O N I T O R S E C T I O N G 4021 G 49430 MRD200 SW MRSW/ SET WM TO INDICATE DI T 6 02846 , MRSW/ 411 + 4022 G 49440 MLN ZCPH/,MCCT/ PRESERVE CURRENT CURR 0 12 02852 D ZCPH/ MCCT/ A 411 4023 G 49450 MLN PRESERVE CURRENT NEXT 9 1 02864 D 412 4024 G 49460 MLN PRESERVE CURRENT PREV 9 1 02865 D 412 + 4025 G 49470 MLC /PNM/,MCPN/ PRESERVE CURRENT PROG 0 12 02866 D /PNM/ MCPN/ C 412 G 4026 G 49480 MLC /SIZ/ CURRENT PROG T 6 02878 D /SIZ/ 412 G 4027 G 49490 MLC /PHN/ CURRENT PHAS T 6 02884 D /PHN/ 412 4028 G 49500 * R E S T O R E R E S I D E N T M E M O R Y 4029 G 49510 BXPA *+1 DO NOT INTERRUPT ) 7 02890 Y 02897 X 412 + 4030 G 49520 ZA MRKER,X9 3 11 02897 0 04186 00069 413 + 4031 G 49530 ZA MRPHN,X10 3 11 02908 0 04206 00074 413 4032 G 49540 S *-10,X10 GET ITS H 3 11 02919 S 02919 00074 413 + 4033 G 49550 ZA MRMKR,X11 BEGINNING OF MDM RECO 3 11 02930 0 04196 00079 413 4034 G 49560 A X10,X11 STEP UP TO PHN-2 IN M 0 11 02941 A 00074 00079 414 + -+ -- D 4035 G 49570 MRD201 MRCWG 0+X11,0+X10 MOVE MDM RES MOM TO R 0 12 02952 D 00000 00000 L 414 L 4036 G 49580 SAR X11 MEMORY MOVEMENT CEASE T 7 02964 G 00079 A 414 L 4037 G 49590 SBR X10 A- AND B- ADDRESSES. T 7 02971 G 00074 B 414 4038 G 49600 C X10,X9 IS ALL R/M RESTORED 0 11 02978 C 00074 00069 415 4039 G 49610 BE *+8 IF EQUAL - HAVE RESTO ) 7 02989 J 03003 S 415 4040 G 49620 B MRD201 UNEQUAL - CONTINUE RE ) 7 02996 J 02952 415 + 4041 G 49630 MLN ZCPH/,MOCT/ SAVE ORIGINAL CURRENT 0 12 03003 D ZCPH/ MOCT/ A 415 4042 G 49640 MLN ORIGINAL NEXT TR 9 1 03015 D 415 4043 G 49650 MLN ORIGINAL PREVIOU 9 1 03016 D 415 + 4044 G 49660 MLC /PNM/,MOPN/ ORIGINAL PROGRAM 0 12 03017 D /PNM/ MOPN/ C 416 77120 GENERATE SGF PAGE 193 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G 4045 G 49670 MLC /SIZ/ ORIGINAL SIZE T 6 03029 D /SIZ/ 416 G 4046 G 49680 MLC /PHN/ ORIGINAL PHASE N T 6 03035 D /PHN/ 416 + 4047 G 49690 MLN MCCT/,ZCPH/ RESTORE CURRENT CURRE 0 12 03041 D MCCT/ ZCPH/ A 416 4048 G 49700 MLN CURRENT NEXT 9 1 03053 D 416 4049 G 49710 MLN CURRENT PREVI 9 1 03054 D 416 + 4050 G 49720 MLC MCPN/,/PNM/ CURRENT PROGR 0 12 03055 D MCPN/ /PNM/ C 417 + 4051 G 49730 MLC MCSI/,/SIZ/ CURRENT PROGR 0 12 03067 D MCSI/ /SIZ/ C 417 + 4052 G 49740 MLC MCPH/,/PHN/ CURRENT PHASE 0 12 03079 D MCPH/ /PHN/ C 417 4053 G 49750 BW MRD203,MUSE/ IF WM, MJB WAS IN USE C 12 03091 V 03110 MUSE/ 1 418 4054 G 49760 B MRSC00 ESTABLISH RESTART TAB ) 7 03103 J 03158 418 4055 G 49770 * M J B W A S I N U S E I N C H K P T P R O G 4056 G 49780 MRD203 MLNS *,MRSW/ SET SW IN C 12 03110 D 03121 MRSW/ 1 418 G 4057 G 49790 CW MUSE/ SET SWITCH TO INDICAT T 6 03122 ) MUSE/ 418 4058 G 49800 MLNA MRMSOF,ZSYM/ SOF TO DT C 12 03128 D 04201 ZSYM/ / 419 + 4059 G 49810 ZA MRZSOF,X15 ****FORCE 3 11 03140 0 04221 00099 419 L 4060 G 49820 BXPA /MIO/ **** TO SOF **** T 7 03151 Y /MIO/ X 419 77120 GENERATE SGF PAGE 194 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4061 G 49840 * M O D U L E I I I - S E T U P M O N R S T T A B L E E N T R 4062 G 49850 * TEST FOR AIU, SIU, SPR, SPU 4063 G 49860 MRSC00 BCE MRSC01,MRAIU,/ D 12 03158 B 03194 04181 / 419 4064 G 49870 BW MRSC07,MOUC/ IF WM, EXEQ 3RD OPERA C 12 03170 V 03548 MOUC/ 1 420 4065 G 49880 BW MRSC07,MSKJ/ IF WM, AIU WAS IN USE C 12 03182 V 03548 MSKJ/ 1 420 4066 G 49890 MRSC01 BCE MRSC14,ZSFI/,1 NO AIU - IF *1*, SIU C 12 03194 B 03958 ZSFI/ 1 420 4067 G 49900 B MRSC12 GO THROUGH LABEL CHEC ) 7 03206 J 03875 420 + + 4068 G 49910 MLN ZRDC/,0+X12 SIU BLOCK COUNT TO RE 0 12 03213 D ZRDC/ 00000 A 421 4069 G 49920 MLN MRZXU1,X11 UNITS POS C 12 03225 D 04226 00079 A 421 + -+ + 4070 G 49930 MLCS 6+X11,41+X12 R TO TABLE 0 12 03237 D 00006 00041 3 421 G -+ 4071 G 49940 MLCS 0+X11 UNIT OF SIU T 6 03249 D 00000 421 G 4072 G 49950 MLCS 99998+X11 CHANNEL OF SIU T 6 03255 D 99RI8 422 + + 4073 G 49960 MLCB ZSSU/,38+X12 SYMBOLIC UNIT OF SIU 0 12 03261 D ZSSU/ 00038 L 422 4074 G 49970 MRSC02 BCE *+8,+VSW1/,/ *C D 12 03273 B 03292 04233 / 422 4075 G 49980 B MRSC02A *C ) 7 03285 J 03339 422 4076 G 49985 BCE MRSC02A,+ZPRS/,/ Q.SPR D 12 03292 B 03339 04238 / 423 4077 G 49990 BCE MRSC02A,MSPR/, C 12 03304 B 03339 MSPR/ 423 + 4078 G 50000 ZA +ZPRS/,X12 YES *B 3 11 03316 0 04238 00084 423 + 4079 G 50010 BBE MRSC03,11+X12,4 IS PRT TAPE-YES IF *B C 12 03327 W 03412 00011 4 423 4080 G 50020 MRSC02A BCE *+8,+VSW4/,/ *C D 12 03339 B 03358 04243 / 424 4081 G 50030 B MRSC06 *C ) 7 03351 J 03538 424 4082 G 50035 BCE MRSC06,+ZPUS/,/ Q.SPU D 12 03358 B 03538 04248 / 424 4083 G 50040 BCE MRSC06,MSPU/, C 12 03370 B 03538 MSPU/ 424 + 4084 G 50050 ZA +ZPUS/,X12 YES *B 3 11 03382 0 04248 00084 425 + 4085 G 50060 BBE MRSC04,11+X12,4 IS PCH TAPE-BR IF Y*B C 12 03393 W 03492 00011 4 425 77120 GENERATE SGF PAGE 195 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4086 G 50070 B MRSC06 NO PRT OR PCH TAPE *B ) 7 03405 J 03538 425 4087 G 50080 MRSC03 BCE *+8,+VSW4/,/ *C D 12 03412 B 03431 04243 / 425 4088 G 50090 B MRSC03A *C ) 7 03424 J 03478 426 4089 G 50095 BCE MRSC03A,+ZPUS/,/ Q.SPU D 12 03431 B 03478 04248 / 426 4090 G 50100 BCE MRSC03A,MSPU/, C 12 03443 B 03478 MSPU/ 426 + 4091 G 50110 ZA +ZPUS/,X12 YES *B 3 11 03455 0 04248 00084 426 + 4092 G 50120 BBE MRSC05,11+X12,4 IS PCH TAPE-BR IF Y*B C 12 03466 W 03506 00011 4 427 4093 G 50130 MRSC03A B MRSC08 PRT TAPE-PCH NOT *B ) 7 03478 J 03713 427 4094 G 50140 B MRSC06 CONTINUE MAINLINE *B ) 7 03485 J 03538 427 4095 G 50150 MRSC04 B MRSC10 GO TO SPU TAPE RESTAR ) 7 03492 J 03794 427 4096 G 50160 B MRSC06 REJOIN MAIN-LINE REST ) 7 03499 J 03538 427 4097 G 50170 MRSC05 C MSPR/,MSPU/ *B 0 11 03506 C MSPR/ MSPU/ 428 4098 G 50180 BE MRSC21 ** THE SAME PHYSICA ) 7 03517 J 04098 S 428 4099 G 50190 B MRSC08 NO-GO TO SPR TAPE RES ) 7 03524 J 03713 428 4100 G 50200 B MRSC10 GO TO SPU TAPE RES ) 7 03531 J 03794 428 L 4101 G 50210 MRSC06 B /LOD/ *LOAD AND EXECUTE NEX T 7 03538 J /LOD/ 428 4102 G 50220 DCW +002 *RESTART WHICH REPOSI 3 03547 429 4103 G 50230 * A I U A N D Q U A S I A I U L O G I C 4104 G 50240 MRSC07 BCE MRSC19,ZSFI/,1 IF *1*, AIU IS A CARD C 12 03548 B 04053 ZSFI/ 1 430 4105 G 50250 B MRSC12 GO THROUGH LABEL CHEC ) 7 03560 J 03875 430 + + 4106 G 50260 MLN ZRDC/,0+X12 AIU BLOCK COUNT TO RE 0 12 03567 D ZRDC/ 00000 A 430 4107 G 50270 MLN MRMAU1,X11 UNITS POS C 12 03579 D 04191 00079 A 430 + -+ + 4108 G 50280 MLCS 6+X11,41+X12 R TO TABLE 0 12 03591 D 00006 00041 3 431 G -+ 4109 G 50290 MLCS 0+X11 UNIT DESIGNATION AIU T 6 03603 D 00000 431 G 4110 G 50300 MLCS 99998+X11 CHANNEL OF AIU T 6 03609 D 99RI8 431 77120 GENERATE SGF PAGE 196 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + + 4111 G 50310 MLCB ZSSU/,38+X12 SYMBOLIC UNIT OF AIU 0 12 03615 D ZSSU/ 00038 L 431 4112 G 50320 * E N D O F A I U R E S T A R T L O G I C 4113 G 50330 * AS THE AIU IS OPERATIVE, SIU DATA IS IN STORAGE AREAS 4114 G 50340 * S I U L O G I C - W H E N A I U I S I N U S E 4115 G 50350 BCE MRSC14,MZZI/,1 IF *1*, SIU IS CARD R C 12 03627 B 03958 MZZI/ 1 432 4116 G 50360 B MRSC12 GO THROUGH LABEL CHEC ) 7 03639 J 03875 432 + + 4117 G 50370 MLN MRDC/,0+X12 SIU BLOCK COUNT TO RE 0 12 03646 D MRDC/ 00000 A 432 4118 G 50380 MLN MRZXU1,X11 UNITS POS C 12 03658 D 04226 00079 A 432 + -+ + 4119 G 50390 MLCS 6+X11,41+X12 R TO TABLE 0 12 03670 D 00006 00041 3 433 G -+ 4120 G 50400 MLCS 0+X11 UNIT OF SIU T 6 03682 D 00000 433 G 4121 G 50410 MLCS 99998+X11 CHANNEL DESIGNATION O T 6 03688 D 99RI8 433 + + 4122 G 50420 MLCB MMSY/,38+X12 SYMBOLIC UNIT OF SIU 0 12 03694 D MMSY/ 00038 L 433 4123 G 50430 B MRSC02 RETURN TO MAIN-LINE R ) 7 03706 J 03273 433 4124 G 50440 * SUBROUTINE TO ESTABLISH THE SPR TAPE RETSART TABLE ENTRY 4125 G 50450 MRSC08 SBR MRSC09+5 FURNISH ROUTINE EXIT ) 7 03713 G 03792 B 434 4126 G 50460 B MRSC12 GO THROUGH LABEL LOGI ) 7 03720 J 03875 434 + + 4127 G 50470 MLN ZPRC/,0+X12 SPR BLOCK COUNT TO RE 0 12 03727 D ZPRC/ 00000 A 434 4128 G 50480 MLN MRZPRA,X11 NEAR TO W C 12 03739 D 04211 00079 A 434 + -+ + 4129 G 50490 MLCS 1+X11,41+X12 W TO TABLE 0 12 03751 D 00001 00041 3 435 G 4130 G 50500 MLCS 99995+X11 UNIT OF SPR T 6 03763 D 99RI5 435 G 4131 G 50510 MLCS 99993+X11 SPR CHANNEL T 6 03769 D 99RI3 435 + + 4132 G 50520 MLCB ZPRS/,38+X12 SYMBOLIC UNIT OF SPR 0 12 03775 D ZPRS/ 00038 L 435 L 4133 G 50530 MRSC09 B 0 RETURN TO MAIN-LINE R T 7 03787 J 00000 435 4134 G 50540 * SUBROUTINE TO ESTABLISH THE SPU TAPE RETSART TABLE ENTRY 4135 G 50550 MRSC10 SBR MRSC11+5 *B ) 7 03794 G 03873 B 436 77120 GENERATE SGF PAGE 197 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4136 G 50560 B MRSC12 GO THROUGH LABEL LOGI ) 7 03801 J 03875 436 + + 4137 G 50570 MLN ZPUC/,0+X12 SPU BLOCK COUNT TO RE 0 12 03808 D ZPUC/ 00000 A 436 4138 G 50580 MLN MRZPUA,X11 NEAREST A C 12 03820 D 04216 00079 A 436 + -+ + 4139 G 50590 MLCS 1+X11,41+X12 W TO TABLE 0 12 03832 D 00001 00041 3 437 G 4140 G 50600 MLCS 99995+X11 UNIT DESIGNATION SPU T 6 03844 D 99RI5 437 G 4141 G 50610 MLCS 99993+X11 CHANNEL OF SPU T 6 03850 D 99RI3 437 + + 4142 G 50620 MLCB ZPUS/,38+X12 SYMBOLIC UNIT OF SPU 0 12 03856 D ZPUS/ 00038 L 437 L 4143 G 50630 MRSC11 B 0 RETURN TO MAIN-LINE R T 7 03868 J 00000 437 4144 G 50640 * SUBROUTINE TO INSERT /MLX/ INFO. IF ANY, IN RESTART TABLE 4145 G 50650 MRSC12 SBR MRSC13+5 FURNISH EXIT ADDRESS ) 7 03875 G 03956 B 438 + 4146 G 50660 MLN RST2/,X12 PRIMARY RESTART TABLE 0 12 03882 D RST2/ 00084 A 438 + + 4147 G 50670 MLN 0+X12,RST2/ FILE LINK FIELD TO RE 0 12 03894 D 00000 RST2/ A 438 + 4148 G 50680 ZA RSTMLX,X11 LABEL EXT 3 11 03906 0 02386 00079 438 4149 G 50690 BZ MRSC13 IF ZERO, SYSTEM HAS N ) 7 03917 J 03951 V 439 + -+ + 4150 G 50700 MLCB 4+X11,33+X12 LABEL INDICATORS TO R 0 12 03924 D 00004 00033 L 439 G - 4151 G 50710 MLCB 29+X11 FILE SERIAL NUMBER T 6 03936 D 000B9 439 4152 G 50720 MLCB FILE IDENTIFIER 9 1 03942 D 439 4153 G 50730 MLCB CREATION DATE 9 1 03943 D 439 4154 G 50740 MLCB RETENTION PERIOD 9 1 03944 D 439 G - 4155 G 50750 MLCB 33+X11 REEL SEQUENCE NUMBER T 6 03945 D 000C3 439 L 4156 G 50760 MRSC13 B 0 RETURN TO MAIN-LINE R T 7 03951 J 00000 440 4157 G 50770 * SUBROUTINE TO INFORM OPERATOR SIU IS A CARD READER 4158 G 50780 MRSC14 SBR MRSC15+5 PROVIDE EXIT ADDRESS ) 7 03958 G 04001 B 440 4159 G 50790 A MR61,MRSC15+5 COM SIZE 4 11 03965 A 04228 04001 440 4160 G 50800 CW RSIURMSG+1 SIU IS U/ ' 6 03976 ) 04126 440 77120 GENERATE SGF PAGE 198 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4161 G 50810 SAR MRSC17 ) 7 03982 G 04033 A 440 4162 G 50820 B MRSC16 GO TO COMMON TYPE ROU ) 7 03989 J 04003 441 L 4163 G 50830 MRSC15 B 0 EXIT TO MAIN-LINE PAR T 7 03996 J 00000 441 4164 G 50840 MRSC16 SBR MRSC18+5 SET UP EXIT ADDRESS ) 7 04003 G 04051 B 441 4165 G 50850 BZN *-11,/CTB/ **HAND-CODED** C 12 04010 V 04010 /CTB/ 2 441 L 4166 G 50860 BXPA /CNC/ ** IOCTL ** T 7 04022 Y /CNC/ X 441 4167 G 50870 MRSC17 DCW ' ' 5 04033 442 4168 G 50880 BZN *-11,/CTB/ ** MACRO ** C 12 04034 V 04034 /CTB/ 2 443 L 4169 G 50890 MRSC18 B 0 EXIT TO USING SUBROUT T 7 04046 J 00000 443 4170 G 50900 * SUBROUTINE TO INFORM OPERATOR AIU IS A CARD READER 4171 G 50910 MRSC19 SBR MRSC20+5 FURNISH EXIT ADDRESS ) 7 04053 G 04096 B 443 4172 G 50920 A MR61,MRSC20+5 COM ROUTINE SIZE 4 11 04060 A 04228 04096 443 4173 G 50930 CW RAIURMSG+1 AIU IS U/ ' 6 04071 ) 04140 443 4174 G 50940 SAR MRSC17 ) 7 04077 G 04033 A 444 4175 G 50950 B MRSC16 GO TO COMMON TYPE ROU ) 7 04084 J 04003 444 L 4176 G 50960 MRSC20 B 0 RETURN TO PARENT ROUT T 7 04091 J 00000 444 4177 G 50970 * SUBROUTINE TO INFORM OPERATOR SPR AND SPU SHARE SAME UNIT 4178 G 50980 MRSC21 CW RPUPRMSG+1 SHARED UN ' 6 04098 ) 04154 444 4179 G 50990 SAR MRSC17 ) 7 04104 G 04033 A 444 4180 G 51000 B MRSC16 GO TO COMMON TYPE ROU ) 7 04111 J 04003 444 4181 G 51010 B MRSC06 RETURN TO MAIN-LINE R ) 7 04118 J 03538 445 4182 G 51020 RSIURMSG DCW '10133 SIU U/R',G 14 04125 446 4183 G 51030 RAIURMSG DC '10134 AIU U/R',G 14 04139 446 4184 G 51040 RPUPRMSG DC '10128 SPU-SPR SAME UNIT',G *B 24 04153 447 4185 G 51050 MRAIU DCW /AIU/ Q 5 04181 /AIU/ 448 77120 GENERATE SGF PAGE 199 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4186 G 51060 MRKER DCW /KER/ Q 5 04186 /KER/ 448 4187 G 51070 MRMAU1 DCW MAU1/ Q 5 04191 MAU1/ 448 4188 G 51080 MRMKR DCW /MKR/ Q 5 04196 /MKR/ 448 4189 G 51090 MRMSOF DCW MSOF/ Q 5 04201 MSOF/ 448 4190 G 51100 MRPHN DCW /PHN/ Q 5 04206 /PHN/ 448 4191 G 51110 MRZPRA DCW ZPRA/ Q 5 04211 ZPRA/ 448 4192 G 51120 MRZPUA DCW ZPUA/ Q 5 04216 ZPUA/ 449 4193 G 51130 MRZSOF DCW ZSOF/ Q 5 04221 ZSOF/ 449 4194 G 51140 MRZXU1 DCW ZXU1/ Q 5 04226 ZXU1/ 449 4195 G 51150 MR61 DCW 67 2 04228 450 4196 G 51160 SPEND RSTART1 01710 4197 VSW1/ Q 5 04233 VSW1/ 451 4198 ZPRS/ Q 5 04238 ZPRS/ 451 4199 VSW4/ Q 5 04243 VSW4/ 451 4200 ZPUS/ Q 5 04248 ZPUS/ 451 4201 G 51170 TITLE IBRSTMOD2,0 453 4202 G 51180 BASE1 REND/ *B 454 4203 G 51190 ORG 0 00000 77120 GENERATE SGF PAGE 200 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4204 G 51210 * S E C O N D I / O R E S T A R T M O D U L E 4205 G 51220 DCW 0 1 00000 455 4206 G 51230 DCW 00000 5 00005 455 4207 G 51240 DCW 00 2 00007 455 4208 G 51250 DC 'NNNN' 4 00011 455 4209 G 51260 RSTFILE EQU *+4 00016 4210 G 51270 DCW RSTIORA N 5 00016 00063 456 4211 G 51280 DCW /MDM/ Q 5 00021 /MDM/ 456 4212 G 51290 DCW RSTERR N 5 00026 00089 456 4213 G 51300 DCW ' VVVV4' 6 00032 457 4214 G 51310 DCW 00 2 00034 457 4215 G 51320 DCW +00000 5 00039 457 4216 G 51330 DCW +00000 5 00044 457 4217 G 51340 DCW +00000 5 00049 457 4218 G 51350 DCW +0000 4 00053 457 4219 G 51360 DC ' ' 5 00058 457 4220 G 51370 RSTIORA DCW 00000 5 00063 457 4221 G 51380 DCW RSTFILE N 5 00068 00016 458 4222 G 51390 LU 'B0,/MKR/, L 10 00069 L 'B0 /MKR/ 458 Q 4223 G 51400 DCW ' TVVVVVV' 10 00088 459 4224 G 51410 RSTERR BZN *-11,/CTB/ C 12 00089 V 00089 /CTB/ 2 460 L 4225 G 51420 BXPA /CNC/ T 7 00101 Y /CNC/ X 460 4226 G 51430 DCW EMSG N 5 00112 00157 460 4227 G 51440 BZN *-11,/CTB/ C 12 00113 V 00113 /CTB/ 2 460 L 4228 G 51450 B /WAT/ T 7 00125 J /WAT/ 460 77120 GENERATE SGF PAGE 201 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 4229 G 51460 B /EOP/ T 7 00132 J /EOP/ 461 4230 G 51470 EMSG DCW '20103 INVALID CHKPT' 19 00157 462 G 4231 G 51480 DCW 'M' 1 00158 462 4232 G 51490 * F I L E S O R T 4233 G 51500 * FIRST SORT FILE ADDRESSES ACCORDING TO CKPT RECORDS 4234 G 51510 * THEN SORT EXTENTION ADDRESSES ACCORDING TO CKPT RECORDS 4235 G 51520 RSTTP1 MLNA /ORG/,RSTTP2+5 A 12 00159 D /ORG/ 00235 / 463 + 4236 G 51530 ZA /OGR/,RSTTPCON 1 11 00171 0 /OGR/ 01187 463 + 4237 G 51540 ZA /ORG/,X12 0 11 00182 0 /ORG/ 00084 463 G 4238 G 51550 BBE /RSC/ T 6 00193 W /RSC/ 463 L 4239 G 51560 SAR X11 T 7 00199 G 00079 A 464 + 4240 G 51570 ZA RST2/,X7 0 11 00206 0 RST2/ 00059 464 G 4241 G 51580 BBE /RSB/ T 6 00217 W /RSB/ 464 L 4242 G 51590 SAR X10 T 7 00223 G 00074 A 464 + -- 4243 G 51600 RSTTP2 ZA 0+X10,X9 0 11 00230 0 00000 00069 464 4244 G 51610 BZ RSTTP3 ) 7 00241 J 00313 V 465 4245 G 51620 C X9-1,X12-1 0 11 00248 C 00068 00083 465 4246 G 51630 BH RSTTP3 ) 7 00259 J 00313 U 465 + 4247 G 51640 MLCB 0-4+X10,41+X7 0 12 00266 D 99RR6 00@D1 L 465 4248 G 51650 MLCB 9 1 00278 D 465 + 4249 G 51660 ZA X9,13+X7 0 11 00279 0 00069 00@A3 466 + + 4250 G 51670 ZA 0+X7,X7 0 11 00290 0 00@00 00059 466 4251 G 51680 CW RSTTP31 ' 6 00301 ) 00343 466 4252 G 51690 SW RSTTP32 ' 6 00307 , 00350 466 4253 G 51700 RSTTP3 S RST14,X10 3 11 00313 S 04295 00074 466 77120 GENERATE SGF PAGE 202 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4254 G 51710 C X11,X10 0 11 00324 C 00079 00074 467 4255 G 51720 BH RSTTP2 ) 7 00335 J 00230 U 467 4256 G 51730 NOP 9 1 00342 N 467 G 4257 G 51740 RSTTP31 S RST2/ T 6 00343 S RST2/ 467 4258 G 51750 NOPWM 9 1 00349 N 467 G 4259 G 51760 RSTTP32 S 0-46+X7 T 6 00350 S 99ZE4 467 + 4260 G 51770 RSTTP12 ZA RST5L,X7 3 11 00356 0 04278 00059 468 + 4261 G 51780 ZA RST2L,X9 3 11 00367 0 04273 00069 468 + 4262 G 51790 ZA /OGR/,X10 0 11 00378 0 /OGR/ 00074 468 + - 4263 G 51800 RSTTP4 ZA 0+X9,X11 0 11 00389 0 000@0 00079 468 4264 G 51810 BZ RSTTP6 ) 7 00400 J 00495 V 469 - 4265 G 51820 C 13+X11,X10 0 11 00407 C 000A3 00074 469 4266 G 51830 BH RSTTP5 ) 7 00418 J 00477 U 469 + -+ - 4267 G 51840 ZA 0+X11,0+X9 0 11 00425 0 00000 000@0 469 + + -+ 4268 G 51850 ZA 0+X7,0+X11 0 11 00436 0 00@00 00000 470 + + 4269 G 51860 ZA X11,0+X7 0 11 00447 0 00079 00@00 470 -+ 4270 G 51870 MLCS RST20-5,4+X11 *B C 12 00458 D 04296 00004 3 470 4271 G 51880 B RSTTP4 ) 7 00470 J 00389 470 + - 4272 G 51890 RSTTP5 ZA 0+X9,X9 0 11 00477 0 000@0 00069 471 4273 G 51900 B RSTTP4 ) 7 00488 J 00389 471 + + - 4274 G 51910 RSTTP6 ZA 0+X7,0+X9 0 11 00495 0 00@00 000@0 471 G 4275 G 51920 S RST5/ T 6 00506 S RST5/ 471 4276 G 51930 S X12,RSTTPCON 1 11 00512 S 00084 01187 472 4277 G 51940 MLNS RSTK+10,*+10 D 12 00523 D 00549 00544 1 472 4278 G 51950 MLNS 9 1 00535 D 472 77120 GENERATE SGF PAGE 203 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4279 G 51960 MLNS 9 1 00536 D 472 4280 G 51970 MLNS 9 1 00537 D 472 4281 G 51980 MLNS 9 1 00538 D 472 + + 4282 G 51990 RSTK MLCS 0+X12,RSTK/ 0 12 00539 D 00000 RSTK/ 3 472 4283 G 52000 MLNA RCLTL,*+6 *B D 12 00551 D 04213 00568 / 473 + + 4284 G 52010 MLCB 0+X12,RSTC/ *B 0 12 00563 D 00000 RSTC/ L 473 4285 G 52020 MLNA RFUML,*+6 *B D 12 00575 D 04218 00592 / 473 + + 4286 G 52030 MLCWS 0+X12,RSTF/ *B 0 12 00587 D 00000 RSTF/ 7 474 4287 G 52040 MLNA RLRTL,*+6 *B D 12 00599 D 04223 00616 / 474 + + 4288 G 52050 MLCB 0+X12,RSTL/ *B 0 12 00611 D 00000 RSTL/ L 474 4289 G 52060 MLNA LRSVL,*+6 *B D 12 00623 D 04208 00640 / 475 + + 4290 G 52070 MLCA 0+X12,RSTT/ *B 0 12 00635 D 00000 RSTT/ T 475 4291 G 52080 MLNA RCL1L,*+6 D 12 00647 D 04263 00664 / 475 + + 4292 G 52090 MLCB 0+X12,RMMM/ 0 12 00659 D 00000 RMMM/ L 476 4293 G 52110 MLNA RCLXL,*+6 D 12 00671 D 04268 00688 / 476 + + 4294 G 52120 MLCB 0+X12,RNNN/ 0 12 00683 D 00000 RNNN/ L 476 4295 G 52130 MLNA RSRXL,*+6 D 12 00695 D 04253 00712 / 477 + + 4296 G 52140 MLCB 0+X12,RSTJ/ 0 12 00707 D 00000 RSTJ/ L 477 4297 G 52144 MLNA RSIPL,*+6 D 12 00719 D 04258 00736 / 477 + + 4298 G 52146 MLCB 0+X12,RSXJ/ 0 12 00731 D 00000 RSXJ/ L 478 4299 G 52148 MLNA HLEZL,*+6 D 12 00743 D 04203 00760 / 478 + + 4300 G 52160 MLCWB 0+X12,RST8/ 0 12 00755 D 00000 RST8/ P 478 4301 G 52170 MLCWB 9 1 00767 D 478 4302 G 52180 MLNA RSTLT,*+6 *B D 12 00768 D 04228 00785 / 479 + + 4303 G 52190 MLCB 0+X12,RSTU/ SAVE OVFLW 0 12 00780 D 00000 RSTU/ L 479 77120 GENERATE SGF PAGE 204 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4304 G 52210 MLNA PLLKL,*+6 D 12 00792 D 04233 00809 / 479 + + 4305 G 52220 MLCB 0+X12,RSTG/ 0 12 00804 D 00000 RSTG/ L 480 4306 G 52240 MLNA RLEFL,*+6 *B D 12 00816 D 04238 00833 / 480 + + 4307 G 52250 MLCS 0+X12,RSTE/ *B 0 12 00828 D 00000 RSTE/ 3 480 4308 G 52260 MLNA RLRWL,*+6 *B D 12 00840 D 04243 00857 / 481 + + 4309 G 52270 MLCB 0+X12,RSTI/ *B 0 12 00852 D 00000 RSTI/ L 481 4310 G 52280 MLNA RLRXL,*+6 *B D 12 00864 D 04248 00881 / 481 + + 4311 G 52290 MLCB 0+X12,RQQQ/ 0 12 00876 D 00000 RQQQ/ L 482 + 4312 G 52350 MLCB 100+X12,RST9/ 0 12 00888 D 00A00 RST9/ L 482 L 4313 G 52360 BXPA /CLP/ T 7 00900 Y /CLP/ X 482 4314 G 52370 DCW RSTFILE N 5 00911 00016 482 4315 G 52380 NOP 9 1 00912 N 482 4316 G 52390 MLCA RST2L,X9 C 12 00913 D 04273 00069 T 483 + 4317 G 52400 ZA X12,X10 0 11 00925 0 00084 00074 483 + -- 4318 G 52410 RSTTP7 SCNRG 0+X10,0-1+X10 0 12 00936 D 00000 99RR9 Q 483 L 4319 G 52420 SBR X10 T 7 00948 G 00074 B 483 + 4320 G 52430 ZA 9 1 00955 0 483 G G 4321 G 52440 BCE RSTTP7,RST1/,M C 12 00956 B 00936 RST1/ M 484 4322 G 52450 MRCWM RSTCON1 ' 6 00968 D 01189 484 L 4323 G 52460 BXPA /PET/ T 7 00974 Y /PET/ X 484 4324 G 52470 DCW RSTFILE N 5 00985 00016 484 4325 G 52480 DC 'R' 9 1 00986 484 4326 G 52490 DCW ' ' 9 1 00987 484 G G 4327 G 52500 BBE CHKER,RSTIORA+18,M D 12 00988 W 01107 00081 M 485 + - 4328 G 52510 RSTTP8 ZA 0+X9,X11 0 11 01000 0 000@0 00079 485 77120 GENERATE SGF PAGE 205 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4329 G 52520 BZ RSTTP11 ) 7 01011 J 01191 V 485 -+ 4330 G 52530 BCE RSTTP9,4+X11,2 C 12 01018 B 01092 00004 2 485 + - 4331 G 52540 MLCB 13+X11,X10 0 12 01030 D 000A3 00074 L 486 G 4332 G 52550 MLCB X11 T 6 01042 D 00079 486 4333 G 52560 NOPWM 9 1 01048 N 486 4334 G 52570 RSTTP10 S RSTTPCON,X10 3 11 01049 S 01187 00074 486 + - 4335 G 52580 ZA 0-11+X10,18+X11 0 11 01060 0 99RQ9 000A8 486 + 4336 G 52590 ZA 9 1 01071 0 486 + -- - 4337 G 52600 MLCA 5+X10,38+X11 0 12 01072 D 00005 000C8 T 487 4338 G 52610 B RSTTP8 ) 7 01084 J 01000 487 4339 G 52620 MLZS 9 1 01091 D 487 4340 G 52630 RSTTP9 MLZS 9 1 01092 D 487 4341 G 52640 MLZS 9 1 01093 D 487 4342 G 52650 SW RSTTP10 ' 6 01094 , 01049 487 4343 G 52660 B RSTTP7-11 ) 7 01100 J 00925 487 4344 G 52670 CHKER BZN *-11,/CTB/ C 12 01107 V 01107 /CTB/ 2 488 L 4345 G 52680 BXPA /CNC/ T 7 01119 Y /CNC/ X 488 4346 G 52690 DCW MSGB N 5 01130 01181 488 4347 G 52700 BZN *-11,/CTB/ C 12 01131 V 01131 /CTB/ 2 488 L 4348 G 52710 B /WAT/ T 7 01143 J /WAT/ 488 L 4349 G 52720 B /EOP/ T 7 01150 J /EOP/ 489 4350 G 52730 MSGB DCW '20104 UNCORRECTABLE ERROR' 25 01181 490 G 4351 G 52740 DCW 'M' 1 01182 490 4352 G 52750 RSTTPCON DCW ' ' 5 01187 490 4353 G 52760 RSTBL DCW ' ' 1 01188 490 77120 GENERATE SGF PAGE 206 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4354 G 52770 RSTCON1 DCW ' ' 1 01189 490 G 4355 G 52780 DCW 'M' 1 01190 490 4356 G 52790 RSTTP11 MLCA *+13,RSTTP4+16 D 12 01191 D 01215 00405 T 491 4357 G 52800 B RSTTP12 ) 7 01203 J 00356 491 4358 G 52810 DCW 'J' 9 1 01210 491 4359 G 52820 DC RSTTP13 N 5 01215 01266 491 + + 4360 G 52830 RSTTP13A MLCA 18+X7,0+X7 0 12 01216 D 00@A8 00@00 T 491 4361 G 52840 MLCA RSTBL,18+X7 C 12 01228 D 01188 00@A8 T 492 G 4362 G 52850 MLCA 18+X7 T 6 01240 D 00@A8 492 4363 G 52860 MLCA 9 1 01246 D 492 4364 G 52870 MLCA 9 1 01247 D 492 + 4365 G 52880 RSTTP13B ZA X9,X7 0 11 01248 0 00069 00059 492 4366 G 52890 B *+18 ) 7 01259 J 01283 492 G - 4367 G 52900 RSTTP13 S 0+X9 T 6 01266 S 000@0 493 + + 4368 G 52910 ZA 0+X7,X7 0 11 01272 0 00@00 00059 493 4369 G 52920 BZ RSTTP14 ) 7 01283 J 01420 V 493 + 4370 G 52930 ZA 13+X7,X8 0 11 01290 0 00@A3 00064 493 + + 4371 G 52940 MLCB 0+X7,X9 0 12 01301 D 00@00 00069 L 494 4372 G 52950 BZ RSTTP13A ) 7 01313 J 01216 V 494 4373 G 52960 NOP 9 1 01320 N 494 4374 G 52970 RSTTPS S RSTTPCON,X8 3 11 01321 S 01187 00064 494 + - + 4375 G 52980 MLCA 33+X8,4+X7 0 12 01332 D 00033 00@04 T 494 G 4376 G 52990 MLCA 18+X7 T 6 01344 D 00@A8 495 - 4377 G 53000 BBE *+7,1+X8,2 C 12 01350 W 01368 00001 2 495 G + 4378 G 53010 SW 2+X7 T 6 01362 , 00@02 495 77120 GENERATE SGF PAGE 207 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G + 4379 G 53020 CW 2+X7 T 6 01368 ) 00@02 495 + - 4380 G 53030 MLCA 29+X8,28+X7 0 12 01374 D 00029 00@B8 T 495 4381 G 53040 MLCA 9 1 01386 D 495 4382 G 53050 MLCA 9 1 01387 D 496 4383 G 53060 MLCA 9 1 01388 D 496 + - 4384 G 53070 MLCB 4+X8,33+X7 0 12 01389 D 00004 00@C3 L 496 4385 G 53080 MLNS *+1,32+X7 C 12 01401 D 01413 00@C2 1 496 4386 G 53090 B RSTTP13B ) 7 01413 J 01248 496 4387 G 53100 RSTTP14 NOPWM 9 1 01420 N 496 4388 G 53110 B RSTTP16 ) 7 01421 J 02160 496 4389 G 53120 SW *-12 ' 6 01428 , 01421 497 4390 G 53130 CW RSTTPS ' 6 01434 ) 01321 497 + 4391 G 53140 ZA RST2L,X7 3 11 01440 0 04273 00059 497 4392 G 53150 B *+7 ) 7 01451 J 01464 497 4393 G 53160 RSTABSP CW RSTTP10 ' 6 01458 ) 01049 497 4394 G 53170 MLN RSTFILE+5,*+12 D 12 01464 D 00021 01487 A 498 L 4395 G 53180 BXPA /UNC/ T 7 01476 Y /UNC/ X 498 4396 G 53190 DCW 00000 5 01487 499 4397 G 53200 BSP 'U1 M 5 01488 U 'U1 B 500 4398 G 53210 BW *-11,*-26 D 12 01493 V 01493 01478 1 500 4399 G 53220 BW RSTABSP,RSTTP10 D 12 01505 V 01458 01049 1 500 + 4400 G 53230 MLCA X12,X11 0 12 01517 D 00084 00079 T 500 + -+ 4401 G 53240 RSTTP15 SCNRG 0+X11,0-1+X11 0 12 01529 D 00000 99RI9 Q 501 L 4402 G 53250 SBR X11 T 7 01541 G 00079 B 501 + 4403 G 53260 ZA 9 1 01548 0 501 77120 GENERATE SGF PAGE 208 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G G 4404 G 53270 BCE RSTTP15,RST1/,M C 12 01549 B 01529 RST1/ M 501 4405 G 53280 MRCWM RSTCON1 ' 6 01561 D 01189 501 L 4406 G 53290 BXPA /PET/ T 7 01567 Y /PET/ X 502 4407 G 53300 DCW RSTFILE N 5 01578 00016 502 4408 G 53310 DC 'R' 9 1 01579 502 4409 G 53320 DCW ' ' 9 1 01580 502 G G 4410 G 53330 BBE CHKER,RSTIORA+18,M D 12 01581 W 01107 00081 M 502 4411 G 53340 B RSTTP13+6 ) 7 01593 J 01272 502 4412 G 53350 * T A P E R E P O S I T I O N E R 4413 G 53360 DCW 'S' 9 1 01600 502 4414 G 53370 RSTLAB1 DC 'WVVVV' 5 01601 503 4415 G 53380 DCW 'F' 1 01606 503 4416 G 53390 DCW '-001' 4 01610 503 4417 G 53400 DCW '00001' 5 01615 503 4418 G 53410 DCW '1 ' 10 01625 503 4419 G 53420 DCW '0000A' 5 01630 503 4420 G 53430 DCW '-001' 4 01634 503 4421 G 53440 DCW RSTLAB1 N 5 01639 01601 504 4422 G 53450 DCW 00000 5 01644 505 4423 G 53460 DCW 00 2 01646 505 4424 G 53470 DC 'RNNN' 4 01650 505 4425 G 53480 RSTFILE1 EQU *+4 01655 4426 G 53490 DCW RSTIOR1A N 5 01655 01702 506 4427 G 53500 RSTMDM DCW /MDM/ Q 5 01660 /MDM/ 506 4428 G 53510 DCW RSTDIAG N 5 01665 02358 506 77120 GENERATE SGF PAGE 209 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4429 G 53520 DCW ' VOVV4' 6 01671 507 4430 G 53530 DCW 00 2 01673 507 4431 G 53540 DCW +00000 5 01678 507 4432 G 53550 DCW +00000 5 01683 507 4433 G 53560 DCW +00000 5 01688 507 4434 G 53570 DCW +0000 4 01692 507 4435 G 53580 DC ' ' 5 01697 507 4436 G 53590 RSTIOR1A DCW RSTIOR1B N 5 01702 01737 508 4437 G 53600 DCW RSTFILE1 N 5 01707 01655 508 4438 G 53610 MU 'U0,RSTIN1, J 10 01708 M 'U0 01768 508 4439 G 53620 DCW ' 1VVVVWV' 10 01727 509 4440 G 53630 DCW +00000 5 01732 509 4441 G 53640 RSTIOR1B DCW 00000 5 01737 509 4442 G 53650 DCW RSTFILE1 N 5 01742 01655 510 4443 G 53660 MU 'U0,RSTIN1A, J 10 01743 M 'U0 01789 510 4444 G 53670 DCW ' 1VVVVWV' 10 01762 511 4445 G 53680 DCW +00000 5 01767 511 4446 G 53690 RSTIN1 DA 1X20,G 21 01768 4447 G 53700 RSTIN1A DA 1X20,G 21 01789 4448 G 53720 DCW RSTLAB1 N 5 01814 01601 516 4449 G 53730 DCW 00000 5 01819 517 4450 G 53740 DCW 00 2 01821 517 4451 G 53750 DC 'RNNN' 4 01825 517 4452 G 53760 RSTFILE2 EQU *+4 01830 4453 G 53770 DCW RSTIOR2A N 5 01830 01877 518 77120 GENERATE SGF PAGE 210 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4454 G 53780 DCW /MDM/ Q 5 01835 /MDM/ 518 4455 G 53790 DCW RSTDIAG N 5 01840 02358 518 4456 G 53800 DCW ' VOVV4' 6 01846 519 4457 G 53810 DCW 00 2 01848 519 4458 G 53820 DCW +00000 5 01853 519 4459 G 53830 DCW +00000 5 01858 519 4460 G 53840 DCW +00000 5 01863 519 4461 G 53850 DCW +0000 4 01867 519 4462 G 53860 DC ' ' 5 01872 519 4463 G 53870 RSTIOR2A DCW RSTIOR2B N 5 01877 01912 520 4464 G 53880 DCW RSTFILE2 N 5 01882 01830 520 4465 G 53890 MU 'U0,RSTIN2, J 10 01883 M 'U0 01943 520 4466 G 53900 DCW ' 1VVVVWV' 10 01902 521 4467 G 53910 DCW +00000 5 01907 521 4468 G 53920 RSTIOR2B DCW 00000 5 01912 521 4469 G 53930 DCW RSTFILE2 N 5 01917 01830 522 4470 G 53940 MU 'U0,RSTIN2A, J 10 01918 M 'U0 01964 522 4471 G 53950 DCW ' 1VVVVWV' 10 01937 523 4472 G 53960 DCW +00000 5 01942 523 4473 G 53970 RSTIN2 DA 1X20,G 21 01943 4474 G 53980 RSTIN2A DA 1X20,G 21 01964 4475 G 54000 DCW RSTLAB1 N 5 01989 01601 528 4476 G 54010 DCW 00000 5 01994 529 4477 G 54020 DCW 00 2 01996 529 4478 G 54030 DC 'RNNN' 4 02000 529 77120 GENERATE SGF PAGE 211 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4479 G 54040 RSTFILE3 EQU *+4 02005 4480 G 54050 DCW RSTIOR3A N 5 02005 02052 530 4481 G 54060 DCW /MDM/ Q 5 02010 /MDM/ 530 4482 G 54070 DCW RSTDIAG N 5 02015 02358 530 4483 G 54080 DCW ' VOVV4' 6 02021 531 4484 G 54090 DCW 00 2 02023 531 4485 G 54100 DCW +00000 5 02028 531 4486 G 54110 DCW +00000 5 02033 531 4487 G 54120 DCW +00000 5 02038 531 4488 G 54130 DCW +0000 4 02042 531 4489 G 54140 DC ' ' 5 02047 531 4490 G 54150 RSTIOR3A DCW RSTIOR3B N 5 02052 02087 532 4491 G 54160 DCW RSTFILE3 N 5 02057 02005 532 4492 G 54170 MU 'U0,RSTIN3, J 10 02058 M 'U0 02118 532 4493 G 54180 DCW ' 1VVVVWV' 10 02077 533 4494 G 54190 DCW +00000 5 02082 533 4495 G 54200 RSTIOR3B DCW 00000 5 02087 533 4496 G 54210 DCW RSTFILE3 N 5 02092 02005 534 4497 G 54220 MU 'U0,RSTIN3A, J 10 02093 M 'U0 02139 534 4498 G 54230 DCW ' 1VVVVWV' 10 02112 535 4499 G 54240 DCW +00000 5 02117 535 4500 G 54250 RSTIN3 DA 1X20,G 21 02118 4501 G 54260 RSTIN3A DA 1X20,G 21 02139 + 4502 G 54550 RSTTP16 ZA RST6L,X11 3 11 02160 0 04283 00079 540 - 4503 G 54560 BCE RSTTP17+7,40+X11, *B C 12 02171 B 02402 000D0 540 77120 GENERATE SGF PAGE 212 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + - 4504 G 54570 RSTTP16A ZA 40+X11,X10 *B 0 11 02183 0 000D0 00074 540 4505 G 54580 BZ RSTTP17 ) 7 02194 J 02395 V 540 - 4506 G 54590 C 38+X11,RSTMDM 1 11 02201 C 000C8 01660 541 4507 G 54600 BU *+20 ) 7 02212 J 02238 / 541 - 4508 G 54610 MLCS RST8C,39+X11 C 12 02219 D 04284 000C9 3 541 4509 G 54620 B RSTTPMDM ) 7 02231 J 02340 541 - 4510 G 54630 MLCA 33+X11,RSTDIAG+35 A 12 02238 D 000C3 02393 T 542 -+ 4511 G 54640 MLCA 4+X11,RSTDIAG+29 A 12 02250 D 00004 02387 T 542 - 4512 G 54650 MLCA 23+X11,RSTDIAG+24 A 12 02262 D 000B3 02382 T 542 - 4513 G 54660 MLCA 28+X11,RSTDIAG+13 A 12 02274 D 000B8 02371 T 543 - 4514 G 54670 MLCA 40+X11,RSTDIAG+7 A 12 02286 D 000D0 02365 T 543 4515 G 54680 MLCA RST20 ' 6 02298 D 04301 543 4516 G 54690 BZN *-11,/CTB/ C 12 02304 V 02304 /CTB/ 2 543 L 4517 G 54700 BXPA /CNC/ T 7 02316 Y /CNC/ X 544 4518 G 54710 DCW RSTDIAG N 5 02327 02358 544 4519 G 54720 BZN *-11,/CTB/ C 12 02328 V 02328 /CTB/ 2 544 4520 G 54730 RSTTPMDM A RST46,X11 3 11 02340 A 04303 00079 544 4521 G 54740 B RSTTP16A *B ) 7 02351 J 02183 544 4522 G 54750 RSTDIAG DA 1X36,G 37 02358 4523 G 54760 1,1 02358 547 L 4524 G 54770 RSTTP17 B /WAT/ T 7 02395 J /WAT/ 548 4525 G 54780 MLCS RST11TP-1,RSTN/ C 12 02402 D 02414 RSTN/ 3 548 4526 G 54795 NOP 9 1 02414 N 548 4527 G 54800 RST11TP B RST1TP ) 7 02415 J 02484 548 4528 G 54820 NOP 9 1 02422 N 548 77120 GENERATE SGF PAGE 213 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4529 G 54830 RST22TP B RST2TP ) 7 02423 J 03035 548 4530 G 54850 NOP 9 1 02430 N 548 4531 G 54860 RST33TP B RST3TP ) 7 02431 J 03586 549 4532 G 54900 NOP 9 1 02438 N 549 4533 G 54910 RST1TPSW B RST11TP-1 ) 7 02439 J 02414 549 4534 G 54930 NOP 9 1 02446 N 549 4535 G 54940 RST2TPSW B RST11TP-1 ) 7 02447 J 02414 549 4536 G 54960 NOP 9 1 02454 N 549 4537 G 54970 RST3TPSW B RST11TP-1 ) 7 02455 J 02414 549 4538 G 55010 MLCS RST1TP,RSTN/ C 12 02462 D 02484 RSTN/ 3 550 L 4539 G 55050 B /LOD/ T 7 02474 J /LOD/ 550 4540 G 55060 DCW +003 3 02483 551 4541 G 55070 * CHANNEL ONE + 4542 G 55080 RST1TP ZA RST6L,X11 3 11 02484 0 04283 00079 552 - 4543 G 55090 BBE RSTOPEN2,39+X11,8 C 12 02495 W 02519 000C9 8 552 4544 G 55100 CW RST11TP,RST1TPSW 4 11 02507 ) 02415 02439 552 4545 G 55110 B 9 1 02518 J 552 - 4546 G 55120 RSTOPEN2 BCE RSTOPEN1,39+X11,' C 12 02519 B 02549 000C9 ' 553 4547 G 55130 A RST46,X11 3 11 02531 A 04303 00079 553 4548 G 55140 B RST1TP+11 ) 7 02542 J 02495 553 4549 G 55150 RSTOPEN1 NOPWM 9 1 02549 N 553 4550 G 55160 B RST1GET1 ) 7 02550 J 02648 553 4551 G 55170 SW RSTOPEN1+1 ' 6 02557 , 02550 553 4552 G 55180 B RSTLAB ) 7 02563 J 04137 554 - 4553 G 55190 MLCA 38+X11,RSTFILE1+5 A 12 02570 D 000C8 01660 T 554 77120 GENERATE SGF PAGE 214 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + -+ 4554 G 55200 ZA 0+X11,RSTOPBUC1 1 11 02582 0 00000 04188 554 4555 G 55210 A RST20-5,RSTOPBUC1 4 11 02593 A 04296 04188 554 4556 G 55220 CW RSTLAB1+1 ' 6 02604 ) 01602 555 4557 G 55230 SAR RSTFILE1-16 ) 7 02610 G 01639 A 555 4558 G 55240 BBE *+7,RSTLAB1+4,3 D 12 02617 W 02635 01605 3 555 4559 G 55250 S RSTFILE1-16 ' 6 02629 S 01639 555 L 4560 G 55260 BXPA /CLP/ T 7 02635 Y /CLP/ X 555 4561 G 55270 DCW RSTFILE1 N 5 02646 01655 555 4562 G 55280 NOP 9 1 02647 N 556 G + -+ 4563 G 55290 RST1GET1 ZA 0+X11 T 6 02648 0 00000 556 4564 G 55300 BZ RST1GET3 ) 7 02654 J 02888 V 556 4565 G 55310 BBE RST1GET3,RSTOPBUC1,1 D 12 02661 W 02888 04188 1 556 + 4566 G 55320 RST1GET5 ZA RSTFILE1,X10 3 11 02673 0 01655 00074 556 4567 G 55340 BZ RST22TP-1 ) 7 02684 J 02422 V 557 G + -- 4568 G 55370 ZA 0+X10 T 6 02691 0 00000 557 4569 G 55390 BZ RST22TP-1 ) 7 02697 J 02422 V 557 - 4570 G 55420 MLZS *-2,23+X10 C 12 02704 D 02713 000K3 2 557 - - 4571 G 55430 S 14+X10,30+X10 0 11 02716 S 000J4 000L0 557 - 4572 G 55440 C 30+X10,RST14 1 11 02727 C 000L0 04295 558 4573 G 55450 BH RST1GET6 ) 7 02738 J 02842 U 558 + -- 4574 G 55460 ZA 0+X10,X10 0 11 02745 0 00000 00074 558 4575 G 55480 BZ RST22TP-1 ) 7 02756 J 02422 V 558 - - 4576 G 55510 S 14+X10,30+X10 0 11 02763 S 000J4 000L0 559 - 4577 G 55520 C 30+X10,RST12 1 11 02774 C 000L0 04290 559 4578 G 55530 BL *+21 ) 7 02785 J 02812 T 559 77120 GENERATE SGF PAGE 215 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG G 4579 G 55540 BCE 99999 T 6 02792 B 99999 559 L - 4580 G 55550 SAR 30+X10 T 7 02798 G 000L0 A 559 4581 G 55560 B RST1GET6 ) 7 02805 J 02842 560 - 4582 G 55570 MLZS *-2,23+X10 C 12 02812 D 02821 000K3 2 560 4583 G 55580 S *-10,RSTOPBUC1 4 11 02824 S 02824 04188 560 4584 G 55590 BZ RST1GET2 ) 7 02835 J 02863 V 560 L 4585 G 55600 RST1GET6 BXPA /PET/ T 7 02842 Y /PET/ X 560 4586 G 55610 DCW RSTFILE1 N 5 02853 01655 561 4587 G 55620 DC 'R' 9 1 02854 561 4588 G 55630 DCW 'S' 9 1 02855 561 4589 G 55650 B RST22TP-1 ) 7 02856 J 02422 561 - 4590 G 55690 RST1GET2 MLCS RST8C,39+X11 C 12 02863 D 04284 000C9 3 561 4591 G 55730 CW RSTOPEN1+1 ' 6 02875 ) 02550 561 4592 G 55740 B RST1TP ) 7 02881 J 02484 561 4593 G 55750 RST1GET3 S RSTIOR1A ' 6 02888 S 01702 562 L 4594 G 55760 BXPA /PET/ T 7 02894 Y /PET/ X 562 4595 G 55770 DCW RSTFILE1 N 5 02905 01655 562 4596 G 55780 DC 'R' 9 1 02906 562 4597 G 55790 DCW ' ' 9 1 02907 562 4598 G 55800 S RSTIOR1A+14,RSTIOR1A+30 4 11 02908 S 01716 01732 562 4599 G 55810 C RSTIOR1A+30,RST14 4 11 02919 C 01732 04295 562 4600 G 55820 BH RST1GET3+6 ) 7 02930 J 02894 U 563 4601 G 55830 SW RSTIOR1B+1 ' 6 02937 , 01738 563 4602 G 55840 SAR RSTIOR1A ) 7 02943 G 01702 A 563 4603 G 55850 BBE RST1GET4,RSTOPBUC1,1 D 12 02950 W 03010 04188 1 563 77120 GENERATE SGF PAGE 216 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4604 G 55880 MLN RSTFILE1+5,*+12 D 12 02962 D 01660 02985 A 563 L 4605 G 55890 BXPA /UNC/ T 7 02974 Y /UNC/ X 564 4606 G 55900 DCW 00000 5 02985 565 4607 G 55910 BSP 'U1 M 5 02986 U 'U1 B 566 4608 G 55920 BW *-11,*-26 D 12 02991 V 02991 02976 1 566 4609 G 55960 B RST1GET2 ) 7 03003 J 02863 566 4610 G 55970 RST1GET4 S RST12-1,RSTOPBUC1 4 11 03010 S 04289 04188 566 4611 G 55980 BZ RST1GET2 ) 7 03021 J 02863 V 566 4612 G 55990 B RST1GET5 ) 7 03028 J 02673 567 4613 G 56060 * CHANNEL TWO + 4614 G 56070 RST2TP ZA RST6L,X11 3 11 03035 0 04283 00079 567 - 4615 G 56080 BBE RSTOPEN22,39+X11,8 C 12 03046 W 03070 000C9 8 567 4616 G 56090 CW RST22TP,RST2TPSW 4 11 03058 ) 02423 02447 567 4617 G 56100 B 9 1 03069 J 567 - 4618 G 56110 RSTOPEN22 BCE RSTOPEN21,39+X11,* C 12 03070 B 03100 000C9 * 568 4619 G 56120 A RST46,X11 3 11 03082 A 04303 00079 568 4620 G 56130 B RST2TP+11 ) 7 03093 J 03046 568 4621 G 56140 RSTOPEN21 NOPWM 9 1 03100 N 568 4622 G 56150 B RST2GET1 ) 7 03101 J 03199 568 4623 G 56160 SW RSTOPEN21+1 ' 6 03108 , 03101 568 4624 G 56170 B RSTLAB ) 7 03114 J 04137 569 - 4625 G 56180 MLCA 38+X11,RSTFILE2+5 A 12 03121 D 000C8 01835 T 569 + -+ 4626 G 56190 ZA 0+X11,RSTOPBUC2 1 11 03133 0 00000 04193 569 4627 G 56200 A RST20-5,RSTOPBUC2 4 11 03144 A 04296 04193 569 4628 G 56210 CW RSTLAB1+1 ' 6 03155 ) 01602 570 77120 GENERATE SGF PAGE 217 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4629 G 56220 SAR RSTFILE2-16 ) 7 03161 G 01814 A 570 4630 G 56230 BBE *+7,RSTLAB1+4,3 D 12 03168 W 03186 01605 3 570 4631 G 56240 S RSTFILE2-16 ' 6 03180 S 01814 570 L 4632 G 56250 BXPA /CLP/ T 7 03186 Y /CLP/ X 570 4633 G 56260 DCW RSTFILE2 N 5 03197 01830 570 4634 G 56270 NOP 9 1 03198 N 571 G + -+ 4635 G 56280 RST2GET1 ZA 0+X11 T 6 03199 0 00000 571 4636 G 56290 BZ RST2GET3 ) 7 03205 J 03439 V 571 4637 G 56300 BBE RST2GET3,RSTOPBUC2,1 D 12 03212 W 03439 04193 1 571 + 4638 G 56310 RST2GET5 ZA RSTFILE2,X10 3 11 03224 0 01830 00074 571 4639 G 56330 BZ RST33TP-1 ) 7 03235 J 02430 V 572 G + -- 4640 G 56360 ZA 0+X10 T 6 03242 0 00000 572 4641 G 56380 BZ RST33TP-1 ) 7 03248 J 02430 V 572 - 4642 G 56410 MLZS *-2,23+X10 C 12 03255 D 03264 000K3 2 572 - - 4643 G 56420 S 14+X10,30+X10 0 11 03267 S 000J4 000L0 572 - 4644 G 56430 C 30+X10,RST14 1 11 03278 C 000L0 04295 573 4645 G 56440 BH RST2GET6 ) 7 03289 J 03393 U 573 + -- 4646 G 56450 ZA 0+X10,X10 0 11 03296 0 00000 00074 573 4647 G 56470 BZ RST33TP-1 ) 7 03307 J 02430 V 573 - - 4648 G 56500 S 14+X10,30+X10 0 11 03314 S 000J4 000L0 574 - 4649 G 56510 C 30+X10,RST12 1 11 03325 C 000L0 04290 574 4650 G 56520 BL *+21 ) 7 03336 J 03363 T 574 G 4651 G 56530 BCE 99999 T 6 03343 B 99999 574 L - 4652 G 56540 SAR 30+X10 T 7 03349 G 000L0 A 574 4653 G 56550 B RST2GET6 ) 7 03356 J 03393 575 77120 GENERATE SGF PAGE 218 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG - 4654 G 56560 MLZS *-2,23+X10 C 12 03363 D 03372 000K3 2 575 4655 G 56570 S *-10,RSTOPBUC2 4 11 03375 S 03375 04193 575 4656 G 56580 BZ RST2GET2 ) 7 03386 J 03414 V 575 L 4657 G 56590 RST2GET6 BXPA /PET/ T 7 03393 Y /PET/ X 575 4658 G 56600 DCW RSTFILE2 N 5 03404 01830 576 4659 G 56610 DC 'R' 9 1 03405 576 4660 G 56620 DCW 'S' 9 1 03406 576 4661 G 56640 B RST33TP-1 ) 7 03407 J 02430 576 - 4662 G 56680 RST2GET2 MLCS RST8C,39+X11 C 12 03414 D 04284 000C9 3 576 4663 G 56720 CW RSTOPEN21+1 ' 6 03426 ) 03101 576 4664 G 56730 B RST2TP ) 7 03432 J 03035 576 4665 G 56740 RST2GET3 S RSTIOR2A ' 6 03439 S 01877 577 L 4666 G 56750 BXPA /PET/ T 7 03445 Y /PET/ X 577 4667 G 56760 DCW RSTFILE2 N 5 03456 01830 577 4668 G 56770 DC 'R' 9 1 03457 577 4669 G 56780 DCW ' ' 9 1 03458 577 4670 G 56790 S RSTIOR2A+14,RSTIOR2A+30 4 11 03459 S 01891 01907 577 4671 G 56800 C RSTIOR2A+30,RST14 4 11 03470 C 01907 04295 577 4672 G 56810 BH RST2GET3+6 ) 7 03481 J 03445 U 578 4673 G 56820 SW RSTIOR2B+1 ' 6 03488 , 01913 578 4674 G 56830 SAR RSTIOR2A ) 7 03494 G 01877 A 578 4675 G 56840 BBE RST2GET4,RSTOPBUC2,1 D 12 03501 W 03561 04193 1 578 4676 G 56870 MLN RSTFILE2+5,*+12 D 12 03513 D 01835 03536 A 578 L 4677 G 56880 BXPA /UNC/ T 7 03525 Y /UNC/ X 579 4678 G 56890 DCW 00000 5 03536 580 77120 GENERATE SGF PAGE 219 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4679 G 56900 BSP 'U1 M 5 03537 U 'U1 B 581 4680 G 56910 BW *-11,*-26 D 12 03542 V 03542 03527 1 581 4681 G 56950 B RST2GET2 ) 7 03554 J 03414 581 4682 G 56960 RST2GET4 S RST12-1,RSTOPBUC2 4 11 03561 S 04289 04193 581 4683 G 56970 BZ RST2GET2 ) 7 03572 J 03414 V 581 4684 G 56980 B RST2GET5 ) 7 03579 J 03224 582 4685 G 57050 * CHANNEL THREE + 4686 G 57060 RST3TP ZA RST6L,X11 3 11 03586 0 04283 00079 582 - 4687 G 57070 BBE RSTOPEN32,39+X11,8 C 12 03597 W 03621 000C9 8 582 4688 G 57080 CW RST33TP,RST3TPSW 4 11 03609 ) 02431 02455 582 4689 G 57090 B 9 1 03620 J 582 - 4690 G 57100 RSTOPEN32 BCE RSTOPEN31,39+X11,$ C 12 03621 B 03651 000C9 $ 583 4691 G 57110 A RST46,X11 3 11 03633 A 04303 00079 583 4692 G 57120 B RST3TP+11 ) 7 03644 J 03597 583 4693 G 57130 RSTOPEN31 NOPWM 9 1 03651 N 583 4694 G 57140 B RST3GET1 ) 7 03652 J 03750 583 4695 G 57150 SW RSTOPEN31+1 ' 6 03659 , 03652 583 4696 G 57160 B RSTLAB ) 7 03665 J 04137 584 - 4697 G 57170 MLCA 38+X11,RSTFILE3+5 A 12 03672 D 000C8 02010 T 584 + -+ 4698 G 57180 ZA 0+X11,RSTOPBUC3 1 11 03684 0 00000 04198 584 4699 G 57190 A RST20-5,RSTOPBUC3 4 11 03695 A 04296 04198 584 4700 G 57200 CW RSTLAB1+1 ' 6 03706 ) 01602 585 4701 G 57210 SAR RSTFILE3-16 ) 7 03712 G 01989 A 585 4702 G 57220 BBE *+7,RSTLAB1+4,3 D 12 03719 W 03737 01605 3 585 4703 G 57230 S RSTFILE3-16 ' 6 03731 S 01989 585 77120 GENERATE SGF PAGE 220 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 4704 G 57240 BXPA /CLP/ T 7 03737 Y /CLP/ X 585 4705 G 57250 DCW RSTFILE3 N 5 03748 02005 585 4706 G 57260 NOP 9 1 03749 N 586 G + -+ 4707 G 57270 RST3GET1 ZA 0+X11 T 6 03750 0 00000 586 4708 G 57280 BZ RST3GET3 ) 7 03756 J 03990 V 586 4709 G 57290 BBE RST3GET3,RSTOPBUC3,1 D 12 03763 W 03990 04198 1 586 + 4710 G 57300 RST3GET5 ZA RSTFILE3,X10 3 11 03775 0 02005 00074 586 4711 G 57340 BZ RST1TPSW-1 ) 7 03786 J 02438 V 587 G + -- 4712 G 57350 ZA 0+X10 T 6 03793 0 00000 587 4713 G 57390 BZ RST1TPSW-1 ) 7 03799 J 02438 V 587 - 4714 G 57400 MLZS *-2,23+X10 C 12 03806 D 03815 000K3 2 587 - - 4715 G 57410 S 14+X10,30+X10 0 11 03818 S 000J4 000L0 587 - 4716 G 57420 C 30+X10,RST14 1 11 03829 C 000L0 04295 588 4717 G 57430 BH RST3GET6 ) 7 03840 J 03944 U 588 + -- 4718 G 57440 ZA 0+X10,X10 0 11 03847 0 00000 00074 588 4719 G 57480 BZ RST1TPSW-1 ) 7 03858 J 02438 V 588 - - 4720 G 57490 S 14+X10,30+X10 0 11 03865 S 000J4 000L0 589 - 4721 G 57500 C 30+X10,RST12 1 11 03876 C 000L0 04290 589 4722 G 57510 BL *+21 ) 7 03887 J 03914 T 589 G 4723 G 57520 BCE 99999 T 6 03894 B 99999 589 L - 4724 G 57530 SAR 30+X10 T 7 03900 G 000L0 A 589 4725 G 57540 B RST3GET6 ) 7 03907 J 03944 590 - 4726 G 57550 MLZS *+2,23+X10 C 12 03914 D 03927 000K3 2 590 4727 G 57560 S *-10,RSTOPBUC3 4 11 03926 S 03926 04198 590 4728 G 57570 BZ RST3GET2 ) 7 03937 J 03965 V 590 77120 GENERATE SGF PAGE 221 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG L 4729 G 57580 RST3GET6 BXPA /PET/ T 7 03944 Y /PET/ X 590 4730 G 57590 DCW RSTFILE3 N 5 03955 02005 591 4731 G 57600 DC 'R' 9 1 03956 591 4732 G 57610 DCW 'S' 9 1 03957 591 4733 G 57650 B RST1TPSW-1 ) 7 03958 J 02438 591 - 4734 G 57670 RST3GET2 MLCS RST8C,39+X11 C 12 03965 D 04284 000C9 3 591 4735 G 57710 CW RSTOPEN31+1 ' 6 03977 ) 03652 591 4736 G 57720 B RST3TP ) 7 03983 J 03586 591 4737 G 57730 RST3GET3 S RSTIOR3A ' 6 03990 S 02052 592 L 4738 G 57740 BXPA /PET/ T 7 03996 Y /PET/ X 592 4739 G 57750 DCW RSTFILE3 N 5 04007 02005 592 4740 G 57760 DC 'R' 9 1 04008 592 4741 G 57770 DCW ' ' 9 1 04009 592 4742 G 57780 S RSTIOR3A+14,RSTIOR3A+30 4 11 04010 S 02066 02082 592 4743 G 57790 C RSTIOR3A+30,RST14 4 11 04021 C 02082 04295 592 4744 G 57800 BH RST3GET3+6 ) 7 04032 J 03996 U 593 4745 G 57810 SW RSTIOR3B+1 ' 6 04039 , 02088 593 4746 G 57820 SAR RSTIOR3A ) 7 04045 G 02052 A 593 4747 G 57830 BBE RST3GET4,RSTOPBUC3,1 D 12 04052 W 04112 04198 1 593 4748 G 57860 MLN RSTFILE3+5,*+12 D 12 04064 D 02010 04087 A 593 L 4749 G 57870 BXPA /UNC/ T 7 04076 Y /UNC/ X 594 4750 G 57880 DCW 00000 5 04087 595 4751 G 57890 BSP 'U1 M 5 04088 U 'U1 B 596 4752 G 57900 BW *-11,*-26 D 12 04093 V 04093 04078 1 596 4753 G 57940 B RST3GET2 ) 7 04105 J 03965 596 77120 GENERATE SGF PAGE 222 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4754 G 57950 RST3GET4 S RST12-1,RSTOPBUC3 4 11 04112 S 04289 04198 596 4755 G 57960 BZ RST3GET2 ) 7 04123 J 03965 V 596 4756 G 57970 B RST3GET5 ) 7 04130 J 03775 597 4757 G 58900 RSTLAB SBR RSTLX+5 ) 7 04137 G 04182 B 597 -+ 4758 G 58910 MLCA 4+X11,RSTLAB1+33 A 12 04144 D 00004 01634 T 597 G - 4759 G 58920 MLCA 28+X11 T 6 04156 D 000B8 597 4760 G 58930 MLCA 9 1 04162 D 597 4761 G 58940 MLCA 9 1 04163 D 597 4762 G 58950 MLCA 9 1 04164 D 597 - 4763 G 58960 MLCA 33+X11,RSTLAB1+4 A 12 04165 D 000C3 01605 T 598 L 4764 G 58970 RSTLX B 0 T 7 04177 J 00000 598 4765 G 59650 RSTOPBUC1 DCW 00000 5 04188 599 4766 G 59660 RSTOPBUC2 DCW 00000 5 04193 599 4767 G 59680 RSTOPBUC3 DCW 00000 5 04198 599 4768 G 59710 HLEZL DCW HLEZ/ Q 5 04203 HLEZ/ 600 4769 G 59720 LRSVL DCW LRSV/ Q 5 04208 LRSV/ 600 4770 G 59730 RCLTL DCW RCLT/ *B Q 5 04213 RCLT/ 600 4771 G 59740 RFUML DCW RFUM/ *B Q 5 04218 RFUM/ 600 4772 G 59750 RLRTL DCW RLRT/ *B Q 5 04223 RLRT/ 600 4773 G 59760 RSTLT DCW ISIN/ *B Q 5 04228 ISIN/ 600 4774 G 59810 PLLKL DCW PLLK/ Q 5 04233 PLLK/ 600 4775 G 59830 RLEFL DCW /LEF/ *B Q 5 04238 /LEF/ 601 4776 G 59840 RLRWL DCW RLRW/ *B Q 5 04243 RLRW/ 601 4777 G 59850 RLRXL DCW RLRX/ Q 5 04248 RLRX/ 601 4778 G 59860 RSRXL DCW RSRX/ Q 5 04253 RSRX/ 601 77120 GENERATE SGF PAGE 223 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4779 G 59870 RSIPL DCW RSIP/ Q 5 04258 RSIP/ 601 4780 G 59875 RCL1L DCW RCL1/ Q 5 04263 RCL1/ 601 4781 G 59890 RCLXL DCW RCLX/ Q 5 04268 RCLX/ 601 4782 G 59900 RST2L DCW RST2/ *B Q 5 04273 RST2/ 602 4783 G 59910 RST5L DCW RST5/ Q 5 04278 RST5/ 602 4784 G 59920 RST6L DCW RST6/ Q 5 04283 RST6/ 602 4785 G 59930 RST8C DCW 8 9 1 04284 602 4786 G 59940 RSTYOU DCW 'U' 9 1 04285 602 4787 G 59950 RST12 DCW '0001C' *B 5 04290 603 4788 G 59960 RST14 DCW '0001D' *B 5 04295 603 4789 G 59970 RST20 DCW '20105 ' 6 04301 603 4790 G 59980 RST46 DCW '46' 2 04303 603 4791 G 59990 SPEND RSTTP1 00159 4792 G 60000 TITLE IBRSTMOD3,0 605 4793 G 60010 BASE1 REND/ *B 606 4794 G 60020 ORG 0 00000 77120 GENERATE SGF PAGE 224 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4795 G 60040 * M O D U L E I V - M O N I T O R S E C T I O N 4796 G 60050 RSTART3 EQU * 00000 4797 G 60070 MRS400 BW MRS405,MRSW/ IF WM, DISK SYSTEM C 12 00000 V 00534 MRSW/ 1 607 4798 G 60080 BBE MRS403,MRSW/,1 IF *1* BIT, MJB C 12 00012 W 00460 MRSW/ 1 607 4799 G 60090 * REPOSITION SOF TO ITS ORIGINAL POSITION L 4800 G 60100 B /ZRW/ CLOSE AND OPEN THE SO T 7 00024 J /ZRW/ 607 L 4801 G 60110 MRS401 BXPA /ZRR/ *READ ONE* T 7 00031 Y /ZRR/ X 607 4802 G 60120 DCW 'M' * SOF * 9 1 00038 607 4803 G 60130 DCW RSOFAREA * RECORD * N 5 00043 00611 608 4804 G 60140 C MOSF/,ZSFC/ HAVE WE READ UP TO WH 0 11 00044 C MOSF/ ZSFC/ 608 4805 G 60150 BE MRS402 WAS ORIGINALLY - YES, ) 7 00055 J 00069 S 608 4806 G 60160 B MRS401 NO - CONTINUE READING ) 7 00062 J 00031 608 4807 G 60170 * RESTORE FINAL RES MON FIELDS + 4808 G 60180 MRS402 MLC MOPN/,/PNM/ RESTORE ORIGINAL PROG 0 12 00069 D MOPN/ /PNM/ C 608 + 4809 G 60190 MLC MOSI/,/SIZ/ RESTORE ORIGINAL SIZE 0 12 00081 D MOSI/ /SIZ/ C 609 + 4810 G 60200 MLC MOPH/,/PHN/ RESTORE ORIGINAL PHAS 0 12 00093 D MOPH/ /PHN/ C 609 4811 G 60210 * RESTORE FINAL IOCS FIELDS + 4812 G 60220 MLCB RSTT/,LRSV/ *B 0 12 00105 D RSTT/ LRSV/ L 609 + 4813 G 60230 MLCWS RST8/,HLEZ/ 0 12 00117 D RST8/ HLEZ/ 7 610 4814 G 60240 MLCWS 9 1 00129 D 610 4815 G 60250 MLCWS 9 1 00130 D 610 4816 G 60260 MLCWS 9 1 00131 D 610 4817 G 60270 MLCWS 9 1 00132 D 610 4818 G 60280 MLCWS 9 1 00133 D 610 4819 G 60290 MLCWS 9 1 00134 D 610 77120 GENERATE SGF PAGE 225 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4820 G 60300 MLCWS 9 1 00135 D 610 + 4821 G 60310 MLCA RSTJ/,RSRX/ 0 12 00136 D RSTJ/ RSRX/ T 610 + 4822 G 60320 MLCA RSXJ/,RSIP/ 0 12 00148 D RSXJ/ RSIP/ T 611 + 4823 G 60330 MLCA RNNN/,RCLX/ 0 12 00160 D RNNN/ RCLX/ T 611 + 4824 G 60340 MLCA RMMM/,RCL1/ 0 12 00172 D RMMM/ RCL1/ T 611 + 4825 G 60350 MLCA RSTC/,RCLT/ *B 0 12 00184 D RSTC/ RCLT/ T 612 + 4826 G 60360 MLCWS RSTF/,RFUM/ *B 0 12 00196 D RSTF/ RFUM/ 7 612 + 4827 G 60370 MLCA RSTL/,RLRT/ *B 0 12 00208 D RSTL/ RLRT/ T 612 + 4828 G 60420 MLCS RSTE/,/LEF/ *B 0 12 00220 D RSTE/ /LEF/ 3 613 + 4829 G 60440 MLCA RQQQ/,RLRX/ 0 12 00232 D RQQQ/ RLRX/ T 613 + 4830 G 60445 MLCA RSTI/,RLRW/ 0 12 00244 D RSTI/ RLRW/ T 613 + 4831 G 60460 MLCA RSTG/,PLLK/ 0 12 00256 D RSTG/ PLLK/ T 614 + 4832 G 60480 MLCA RSTU/,ISIN/ RESTORE OVFLW 0 12 00268 D RSTU/ ISIN/ T 614 4833 G 60490 MLCS RSTCPT2,RST3/ C 12 00280 D 00643 RST3/ 3 614 4834 G 60500 MLCB RSTCPT1,X10 C 12 00292 D 00642 00074 L 615 + -- 4835 G 60510 MLCB RST3/,0+X10 0 12 00304 D RST3/ 00000 L 615 4836 G 60520 BZN *-11,/CTB/ C 12 00316 V 00316 /CTB/ 2 615 L 4837 G 60530 BXPA /CNC/ T 7 00328 Y /CNC/ X 615 4838 G 60540 DCW RSTENDM N 5 00339 00630 616 4839 G 60550 BZN *-11,/CTB/ C 12 00340 V 00340 /CTB/ 2 616 G 4840 G 60555 CW /CHS/ ENABLE CHECKPOINT ROU T 6 00352 ) /CHS/ 616 4841 G 60560 MLC MR$,RSCS/ C 12 00358 D 00614 RSCS/ C 616 + 4842 G 60570 ZA RSTMDM1,X10 3 11 00370 0 00648 00074 617 + -- 4843 G 60580 ZA 0+X10,X10 0 11 00381 0 00000 00074 617 + -- 4844 G 60590 ZA RSTMDF1,9+X10 3 11 00392 0 00653 00009 617 77120 GENERATE SGF PAGE 226 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 4845 G 60595 MLCA RST9/,100 RESTORE INDEXES 0 12 00403 D RST9/ 00100 T 617 4846 G 60620 MLN RSTOGRA,RSRW/ *B C 12 00415 D 00629 RSRW/ A 618 G 4847 G 60630 BCE /MDF/ T 6 00427 B /MDF/ 618 L 4848 G 60640 SAR X13 SET FILE ADD RE T 7 00433 G 00089 A 618 G 4849 G 60650 BCE RSUM/ T 6 00440 B RSUM/ 618 L 4850 G 60660 SAR BEPA/ SET ACBEP A T 7 00446 G BEPA/ A 618 L 4851 G 60670 BXPA RSAC/ GO TO AC 1 T 7 00453 Y RSAC/ X 619 4852 G 60680 * MJB WAS IN USE IN ORIGINAL PROGRAM SO RESTORE ITS STATUS L 4853 G 60690 MRS403 B /ZRW/ CLOSE AND OPEN THE SO T 7 00460 J /ZRW/ 619 + 4854 G 60700 MLC ZSFC/,MSFC/ 0 12 00467 D ZSFC/ MSFC/ C 619 G 4855 G 60710 SW MUSE/ SHOW THAT MJB IS IN U T 6 00479 , MUSE/ 619 4856 G 60720 MLNA MRMJB,ZSYM/ *FORCE* C 12 00485 D 00624 ZSYM/ / 619 + 4857 G 60730 ZA MRZSOF3,X15 *IORW* 3 11 00497 0 00619 00099 620 L 4858 G 60740 BXPA /MIO/ * SOF * T 7 00508 Y /MIO/ X 620 + 4859 G 60750 MLN MOSF/,ZSFC/ 0 12 00515 D MOSF/ ZSFC/ A 620 4860 G 60760 B MRS402 REJOIN MAIN-LINE ) 7 00527 J 00069 620 4861 G 60780 * D I S K P O R T I O N O F T H I S P H A S E 4862 G 60790 MRS405 BBE MRS407,MRSW/,1 IF *1* BIT, MJB WAS I C 12 00534 W 00567 MRSW/ 1 621 + 4863 G 60800 MRS406 MLN MOCT/,ZCPH/ RESTORE ORIGINAL CURR 0 12 00546 D MOCT/ ZCPH/ A 621 4864 G 60810 MLN ORIGINAL NEXT 9 1 00558 D 621 4865 G 60820 MLN ORIGINAL PREV 9 1 00559 D 621 4866 G 60830 B MRS402 ) 7 00560 J 00069 621 4867 G 60840 * M J B D I S K W A S I N U S E A T C H K P T G 4868 G 60850 MRS407 SW MUSE/ SHOW THAT MJB IS IN U T 6 00567 , MUSE/ 621 4869 G 60860 MLNA MRMJB,ZSYM/ C 12 00573 D 00624 ZSYM/ / 622 77120 GENERATE SGF PAGE 227 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 4870 G 60870 ZA MRZSOF3,X15 *IORW* 3 11 00585 0 00619 00099 622 L 4871 G 60880 BXPA /MIO/ * MJB * T 7 00596 Y /MIO/ X 622 4872 G 60890 B MRS406 GO AND RESTORE TRACK ) 7 00603 J 00546 622 4873 G 60900 NOP 9 1 00610 N 622 4874 G 60910 RSOFAREA DA 1X1,G READ IN AREA FOR SOF 2 00611 4875 G 60920 RMJBAREA EQU RSOFAREA 00611 4876 G 60930 MR$ DCW '$ ' 2 00614 625 4877 G 60940 MRZSOF3 DCW ZSOF/ Q 5 00619 ZSOF/ 626 4878 G 60950 MRMJB DCW /MJB/ Q 5 00624 /MJB/ 626 4879 G 60960 RSTOGRA DCW /OGR/ Q 5 00629 /OGR/ 626 4880 G 60970 RSTENDM DCW 'END RST' 7 00630 627 G 4881 G 60980 DCW 'M' 1 00637 627 4882 G 60990 RSTCPT1 DCW /CPT/ Q 5 00642 /CPT/ 628 4883 G 61000 RSTCPT2 DCW 'R' 9 1 00643 628 4884 G 61010 RSTMDM1 DCW /MDM/ Q 5 00648 /MDM/ 628 4885 G 61020 RSTMDF1 DCW /MDF/ Q 5 00653 /MDF/ 628 4886 G 61030 SPEND RSTART3 00000 77120 GENERATE SGF PAGE 228 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4887 G 63550 TITLE IBSPOOL2 )S 630 4888 G 63560 ORG 0 )S 00000 4889 G 63570 SPA2/ DEFIN * )S 00000 631 C C 4890 G 63650 BBE SPOOCK2,SPL2RW+8,T )S D 12 00000 W 00179 00760 T 632 4891 G 63660 SP2ROT MLC SPL2OP1,SPL2RW+15 )S D 12 00012 D 00747 00767 C 632 4892 G 63670 MLC SPL2OP2,SPL2OP1 )S D 12 00024 D 00738 00747 C 632 4893 G 63680 MLC SPL2RW+15 )S ' 6 00036 D 00767 632 4894 G 63710 SP2XIO MLC AC3B/,SPL2RW+18 )S A 12 00042 D AC3B/ 00770 C 633 C C 4895 G 63713 BBE SP2NCC,SPL2RW+8,T Q.LAST OP TAPE S D 12 00054 W 00108 00760 T 633 4896 G 63714 BCE SP2NCC,/SK2/, Q.NO CC S C 12 00066 B 00108 /SK2/ 633 4897 G 63715 BCE SP2NCC,/SK2/,* Q.DC OR EOF CHAR S C 12 00078 B 00108 /SK2/ * 634 T T 4898 G 63716 BCE SP2NCC,/SK2/,M Q.EOF CHAR S C 12 00090 B 00108 /SK2/ M 634 G 4899 G 63717 SW SUS2/ SET CC SW ON S T 6 00102 , SUS2/ 634 4900 G 63718 SP2NCC EQU * SP 00108 + 4901 G 63720 ZA SPL2FT,X14 SP 3 11 00108 0 00687 00094 634 L 4902 G 63760 SP2KJ B UNTA/ T 7 00119 J UNTA/ 635 4903 G 63800 SPB2/ DEFIN * 00126 636 4904 G 63810 NOPWM )S 9 1 00126 N 637 4905 G 63828 SWW2/ DEFIN * 00127 638 4906 G 63830 B SWW2 )S ) 7 00127 J 00260 639 4907 G 63870 NOPWM UR ERROR SWITCH S 9 1 00134 N 639 4908 G 63880 SP2URES B SP2UR )S ) 7 00135 J 00155 639 4909 G 63890 SW SP2BHS )S ' 6 00142 , 00180 639 L 4910 G 63930 B C1EN/ )S T 7 00148 J C1EN/ 639 4911 G 63940 SP2UR EQU * 00155 77120 GENERATE SGF PAGE 229 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4912 G 63970 CW SP2ROT+1,SP2URES 4 11 00155 ) 00013 00135 639 4913 G 63980 B )S 9 1 00166 J 639 4914 G 64080 SP2BH CW SP2ROT+1,SP2BHS SP 4 11 00167 ) 00013 00180 640 4915 G 64090 B )S 9 1 00178 J 640 4916 G 64160 SPOOCK2 NOPWM SP 9 1 00179 N 640 4917 G 64200 SP2BHS B SP2BH )S ) 7 00180 J 00167 640 4918 G 64210 SW SP2URES )S ' 6 00187 , 00135 640 L 4919 G 64240 B C1EN/ )S T 7 00193 J C1EN/ 640 4920 G 64320 SUR2/ DEFIN * SP 00200 641 G 4921 G 64330 CW SUS2/ SP T 6 00200 ) SUS2/ 642 4922 G 64340 MLCS /SK2/,SPL2CCI SP A 12 00206 D /SK2/ 00257 3 642 4923 G 64350 SW SPL2UNC+7,SPL2UNC+2 )S 4 11 00218 , 00250 00245 642 L 4924 G 64360 SAR X14 )S T 7 00229 G 00094 A 642 L 4925 G 64390 B UNTA/ )S T 7 00236 J UNTA/ 642 L 4926 G 64400 SPL2UNC BXPA /UNC/ )S T 7 00243 Y /UNC/ X 643 4927 G 64410 DCW '000-+' )S 5 00254 644 4928 G 64420 NOP )S 9 1 00255 N 645 4929 G 64430 SPL2CCI DCW '2 ' )S 2 00257 646 4930 G 64440 NOPWM )S 9 1 00258 N 647 - 4931 G 64450 ZS )S 9 1 00259 0 647 4932 G 64510 SWW2 CW SWW2/,SP2BHS SP 1 11 00260 ) SWW2/ 00180 647 4933 G 64520 B SP2XIO+12 SP ) 7 00271 J 00054 647 4934 G 64600 SPC2 EQU * )S 00278 4935 G 64620 SPC2/ DEFIN * )S 00278 648 4936 G 64630 NOPWM )S 9 1 00278 N 649 77120 GENERATE SGF PAGE 230 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4937 G 64640 SP2S/ DEFIN * 00279 650 4938 G 64650 B SP2DO )S ) 7 00279 J 00584 651 + 4939 G 64660 MLCWA BEPA/,PGRA/ 0 12 00286 D BEPA/ PGRA/ X 651 4940 G 64665 SP2Q/ DEFIN SP2DINQ 00298 652 G 4941 G 64670 SP2DINQ SW BEEP/ )S T 6 00298 , BEEP/ 653 G 4942 G 64680 CW SPS2/ )S T 6 00304 ) SPS2/ 653 + 4943 G 64690 MLCA X13,SPXN/ 0 12 00310 D 00089 SPXN/ T 653 G 4944 G 64700 MLCA ISIN/ T 6 00322 D ISIN/ 653 4945 G 64710 BCE *+15 SP ' 6 00328 B 00348 653 L 4946 G 64720 SAR SPPX/ T 7 00334 G SPPX/ A 653 L 4947 G 64730 BXPA SPPG/ T 7 00341 Y SPPG/ X 654 4948 G 64770 BW SP2CL,SIP2/ )S C 12 00348 V 00435 SIP2/ 1 654 G 4949 G 64780 SW SIP2/ )S T 6 00360 , SIP2/ 654 4950 G 64790 S SPL2RW ' 6 00366 S 00752 654 4951 G 64800 BZN *+7,SPL2OP1-7 )S D 12 00372 V 00390 00740 2 654 4952 G 64810 SW SP2BHS )S ' 6 00384 , 00180 655 L 4953 G 64860 BXPA /CLP/ )S T 7 00390 Y /CLP/ X 655 4954 G 64870 DCW SPL2FT )S N 5 00401 00687 655 4955 G 64880 SP2O/ DEFIN * )S 00402 656 4956 G 64890 BWZ )S 9 1 00402 V 657 G 4957 G 64900 CW SWW2/ )S T 6 00403 ) SWW2/ 657 L 4958 G 64940 SAR BPA2/ )S T 7 00409 G BPA2/ A 657 + 4959 G 64960 MLC SPRS/,BEPA/ )S 0 12 00416 D SPRS/ BEPA/ C 657 4960 G 64990 BXPA SP2ROT )S ) 7 00428 Y 00012 X 657 4961 G 65000 SP2CL BCE SP2EOR,SPL2RW+15,W )S D 12 00435 B 00635 00767 W 658 77120 GENERATE SGF PAGE 231 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 4962 G 65010 BCE SPC2 )S ' 6 00447 B 00278 658 L 4963 G 65050 SAR BPA2/ )S T 7 00453 G BPA2/ A 658 4964 G 65060 BZN SP2EC,SPL2RW+8 )S D 12 00460 V 00498 00760 2 658 4965 G 65070 BW SP2EC,SP2BHS D 12 00472 V 00498 00180 1 659 4966 G 65080 BPI *+8,F )S ) 7 00484 Y 00498 F 659 4967 G 65090 B *-13 )S ) 7 00491 J 00484 659 4968 G 65100 SP2EC EQU * )S 00498 4969 G 65160 MLC SPL2OP1,SPL2OP2 )S D 12 00498 D 00747 00738 C 659 4970 G 65170 MLC SPL2RW+15,SPL2OP1 )S D 12 00510 D 00767 00747 C 660 L 4971 G 65200 BXPA /CLP/ )S T 7 00522 Y /CLP/ X 660 4972 G 65210 DCW SPL2FT )S N 5 00533 00687 660 4973 G 65220 SP2C/ DEFIN * )S 00534 661 4974 G 65230 MCS )S 9 1 00534 Z 662 4975 G 65290 BZN *-11,/CTB/ )S C 12 00535 V 00535 /CTB/ 2 662 4976 G 65300 BXPA *+1 )S ) 7 00547 Y 00554 X 662 4977 G 65310 MU 'T0,SPL2EOJ,W )S J 10 00554 M 'T0 00778 W 662 G G 4978 G 65320 BEX1 *-16,M )S ) 7 00564 R 00554 M 662 G 4979 G 65330 CW SIP2/ )S T 6 00571 ) SIP2/ 662 L 4980 G 65390 BXPA PGRS/ )S T 7 00577 Y PGRS/ X 663 G 4981 G 65400 SP2DO SW SPS2/ )S T 6 00584 , SPS2/ 663 L 4982 G 65410 BXPA C1EN/ )S T 7 00590 Y C1EN/ X 663 4983 G 65420 SPD2/ DEFIN * )S 00597 664 + 4984 G 65430 MLCWA RCLX/,PGRA/ STORE CLOSE EXIT S 0 12 00597 D RCLX/ PGRA/ X 665 4985 G 65440 B SP2DINQ )S ) 7 00609 J 00298 665 4986 G 65443 SPG2/ DEFIN * SP 00616 666 77120 GENERATE SGF PAGE 232 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG + 4987 G 65445 MLCWA ACEF/,PGRA/ SP 0 12 00616 D ACEF/ PGRA/ X 667 4988 G 65447 B SP2DINQ SP ) 7 00628 J 00298 667 L 4989 G 65470 SP2EOR BXPA /CLP/ )S T 7 00635 Y /CLP/ X 667 4990 G 65480 DCW SPL2FT )S N 5 00646 00687 667 4991 G 65490 S )S 9 1 00647 S 667 + 4992 G 65510 MLC SPRS/,BEPA/ )S 0 12 00648 D SPRS/ BEPA/ C 668 L 4993 G 65540 BXPA SPA2/ )S T 7 00660 Y SPA2/ X 668 4994 G 65550 SPL2/ DEFIN *+4 )S 00671 669 4995 G 65560 DCW /MLX/ )S Q 5 00671 /MLX/ 670 4996 G 65570 DCW 00000 )S 5 00676 671 4997 G 65580 DCW 00 )S 2 00678 671 4998 G 65590 DCW 'NRUN' 4 00682 671 4999 G 65600 /SF2/ DEFIN SPL2FT 00687 672 5000 G 65610 SPL2FT DCW SPL2RW )S N 5 00687 00752 673 5001 G 65620 DCW /ST2/ )S Q 5 00692 /ST2/ 673 5002 G 65630 SIP2/ DEFIN * )S 00693 674 5003 G 65640 SPL2RX DC SDL2/ )S Q 5 00697 SDL2/ 675 5004 G 65650 DCW ' VVVV4' )S 6 00703 676 5005 G 65660 DCW '00' )S 2 00705 676 5006 G 65670 DCW 00000 )S 5 00710 676 5007 G 65680 DCW 00000 )S 5 00715 676 5008 G 65690 DCW 00000 )S 5 00720 676 5009 G 65700 DCW 0000 )S 4 00724 676 5010 G 65710 DC ' ' )S 5 00729 676 5011 G 65720 SPL2OP2 DCW ' ' )S 9 00738 676 77120 GENERATE SGF PAGE 233 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 5012 G 65730 SPL2OP1 DCW ' ' )S 9 00747 677 5013 G 65740 SOP2/ DEFIN *-1 )S 00747 678 5014 G 65750 SPL2RW DCW 00000 )S 5 00752 679 5015 G 65760 DCW +SPL2FT )S N 5 00757 0068G 680 5016 G 65770 MU 'T0,0,W )S L 10 00758 M 'T0 00000 W 680 Q 5017 G 65780 DCW ' + TVVVVVZ' )S 10 00777 681 5018 G 65790 /S2E/ DEFIN *-8 00770 682 5019 G 65800 SPL2EOJ DCW '10199 EOS2',G )S 11 00778 683 5020 G 65860 DA 1X133,G )S 134 00789 5021 G 65870 SK2 1,1 )S 00789 686 5022 G 65880 /SK2/ DEFIN SK2 )S 00789 687 5023 G 65890 /SP2/ DEFIN SK2+1 )S 00790 688 5024 G 65920 /SC2/ DEFIN *-81 )S 00842 689 L 5025 G 65980 BXPA C1EN/ T 7 00923 Y C1EN/ X 690 5026 G 66000 SPER/ DEFIN * )S 00930 691 G 5027 G 66160 SW SWW2/ RE-EX CC CH2 S T 6 00930 , SWW2/ 692 + 5028 G 66170 BBE C1EN/,SERS/,1 0 12 00936 W C1EN/ SERS/ 1 692 5029 G 66175 MLCS *+26,/SK2/ BLANK CC CH2 S C 12 00948 D 00985 /SK2/ 3 692 L L 5030 G 66180 BBE C1EN/,SPL2RW+8,T Q.NOT CARD READER A 12 00960 W C1EN/ 00760 T 692 L 5031 G 66190 BPI C1EN/,F KILL ERRONEOUS INTRPT T 7 00972 Y C1EN/ F 693 5032 G 66200 B *-13 WAIT FOR INTRPT ) 7 00979 J 00972 693 5033 G 66413 SPID/ DEFIN SPID 00987 694 5034 G 66416 SPID DCW 00 2 00987 695 5035 G 66419 SPXN/ DEFIN SPXN 00992 696 5036 G 66422 SPXN DCW 00000 5 00992 697 77120 GENERATE SGF PAGE 234 SEQNO PGLIN LABEL OPCOD OPERAND REL CT ADDRS INSTRUCTION CARD FLAG 5037 G 66425 SPEND 5038 S PST 5039 S END NUMBER OF FLAGGED STATEMENTS NONE 1410/7010 AUTOCODER...SYSTEM /MID/ 0414 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS /ACC/ 2565 /AIU/ 1587 1078 1629 4185 /AMB/ 3338 /AMS/ 0547 /CGO/ 0559 1322 1361 /CHK/ 2484 1428 /CHS/ 2488 4840 /CLP/ 2810 0864 0917 1045 1443 1448 1453 3889 3904 3909 3950 4313 4560 4632 4704 4953 4971 4989 /CNC/ 2436 0665 1135 1147 1296 1315 1329 1398 1414 1495 3943 3954 4166 4225 4345 4517 4837 /CPT/ 3336 1333 3963 4882 /CRD/ 0549 0838 0850 0862 0896 0900 0908 0914 0922 0977 0994 1009 1034 1060 1094 1111 1118 1332 1341 3880 /CTB/ 3246 0664 0667 1134 1137 1146 1149 1295 1298 1314 1317 1328 1331 1397 1400 1413 1494 1497 3187 3942 3945 3953 3956 4165 4168 4224 4227 4344 4347 4516 4519 4836 4839 4975 /DAT/ 0545 0951 0957 0958 1022 1083 3061 3074 /DEL/ 2560 /DSK/ 2754 /EOP/ 0709 3947 4229 4349 /IPI/ 0567 1359 /KER/ 0775 0551 4186 /LEF/ 3353 4775 4828 /LFA/ 3249 /LIB/ 1589 1631 /LIN/ 0570 /LOD/ 1535 0720 4101 4539 /LRA/ 3107 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS /LRB/ 3112 /LRC/ 3127 /LRD/ 3020 /LRE/ 3028 /LRF/ 3038 /LRG/ 3046 /LRH/ 3053 /LRJ/ 3066 /LRK/ 3072 /LRL/ 3094 /LRM/ 3100 /LRN/ 2991 /LRP/ 2996 /LRQ/ 3008 /LRR/ 3013 /MCI/ 0565 1240 /MCR/ 0580 /MDE/ 3272 /MDF/ 3281 1454 4847 4885 /MDM/ 1577 0054 0059 0064 0069 0074 0079 0084 0089 0094 0099 0131 0136 0141 0146 0151 0156 0161 0166 0171 0176 0208 0213 0218 0223 0228 0233 0238 0243 0248 0253 1619 3283 3866 4211 4427 4454 4481 4884 /MD1/ 3278 /MD4/ 3279 /MGA/ 0572 /MGO/ 1579 1621 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS /MIO/ 0728 2463 2808 2883 2984 4018 4060 4858 4871 /MIP/ 2804 2841 /MIQ/ 2859 /MIX/ 0595 3967 /MIY/ 0597 1358 /MIZ/ 0602 /MJB/ 1581 1623 4878 /MKR/ 0777 0552 3323 3877 4188 4222 /MLX/ 0656 0877 1049 1076 1197 3273 3964 4995 /MOU/ 0618 /MR0/ 1637 1660 /MR1/ 1639 1662 /MR2/ 1641 1664 /MR3/ 1643 1666 /MR4/ 1645 1668 /MR5/ 1647 1670 /MR6/ 1649 1672 /MR7/ 1651 1674 /MR8/ 1653 1676 /MR9/ 1655 1678 /MW0/ 1684 1707 /MW1/ 1686 1709 /MW2/ 1688 1711 /MW3/ 1690 1713 /MW4/ 1692 1715 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS /MW5/ 1694 1717 /MW6/ 1696 1719 /MW7/ 1698 1721 /MW8/ 1700 1723 /MW9/ 1702 1725 /OGR/ 3320 3965 4236 4262 4879 /ORG/ 0554 3879 3901 3916 4235 4237 /PET/ 2610 3927 4323 4406 4585 4594 4657 4666 4729 4738 /PHN/ 0543 3971 3988 3992 4027 4046 4052 4190 4810 /PNM/ 0557 3969 3986 3990 4025 4044 4050 4808 /PT4/ 2609 /QAL/ 1547 /QEP/ 1551 /RIQ/ 0605 0836 0964 1015 1028 1105 2085 /RLS/ 2925 /RSB/ 0282 1242 1522 4241 /RSC/ 0049 1245 1524 4238 /SC2/ 5024 /SF2/ 4999 /SIZ/ 0555 3970 3987 3991 4026 4045 4051 4809 /SK2/ 5022 4896 4897 4898 4922 5029 /SLA/ 3377 /SNP/ 0692 /SP2/ 5023 /ST2/ 1583 1625 5001 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS /SU2/ 1585 1627 /S2E/ 5018 /TPB/ 0553 /UEP/ 0676 0797 1346 1555 1558 /UNC/ 2460 1050 1054 1077 3893 3936 4395 4605 4677 4749 4926 /WAT/ 0734 0835 0895 0907 0956 0963 1014 1026 1104 1138 1318 1416 3946 3957 4228 4348 4524 /WBR/ 0742 1124 1463 /XND/ 1734 /ZRR/ 4801 /ZRW/ 4800 4853 /ZSS/ 0879 1543 ACAM 3339 2748 2751 2758 3338 ACBEPA 2655 1792 1805 2089 2090 2097 2439 2467 2532 2542 2549 2571 2572 2580 2595 2598 2599 2615 2629 2656 2657 2658 2682 2692 2701 2708 2709 2746 2755 2763 2767 3436 ACDCH3 2751 ACDCH4 2750 ACDEF 2802 2777 ACDFR 2708 2619 2786 2824 ACDFX 2809 2803 ACDSK 2746 2669 ACDSK1 2749 2759 ACDSK2 2756 2747 ACDXT 2657 ACDYPR 2731 2721 2726 ACDYPRA 2736 2740 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS ACDYPRB 2744 2720 2725 2730 2742 ACDYPR1 2727 2715 ACDYPR2 2722 2716 ACDYPR3 2717 ACEF/ 2801 4987 ACEOF 2797 2778 2793 2807 2890 ACEOFX 2800 2797 2801 2889 ACEOR 2776 2769 2771 ACERAC 2761 2662 ACEXC 2766 2631 ACFEXC 2763 2664 ACFTRW 2673 2668 2670 2671 ACGMWM 3265 2188 2245 2289 2328 2627 ACGPT 2612 2611 ACH1A 2682 ACH2 2697 2675 ACH2C 2698 2703 ACH3 2688 ACH3C 2689 2694 ACH4 2687 2674 ACLEF 2795 2791 ACND1 2625 2623 ACND2 2635 ACON11 3312 ACON4 3311 2642 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS ACPET 2611 2503 2609 2610 2945 3162 ACPT4 2622 2768 ACRAN 2755 ACRSTR 2650 2635 AC1 2618 2512 2617 2659 2681 2691 2700 AC2 2628 2620 2630 AC3 2630 2779 AC3B/ 3434 4894 AC3BL 3295 2313 2665 2998 3083 3167 3434 AC4 2647 2636 AC5 2648 2646 AC6 2660 2628 AC7 2665 AIU 1588 1587 AMS 0548 0547 BEEP/ 3436 4941 BEPA/ 2656 0685 4850 4939 4959 4992 BPA2/ 1923 4958 4963 BTBLK 0529 0447 BTBLOWUP 0511 0407 BTBSP 0399 0374 0375 0382 BTBUCA 0525 0425 0461 BTCHCT 0524 0413 0422 0446 0457 0471 BTCLEAR 0440 0445 BTELEV 0526 0436 0491 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS BTEOREC 0531 0451 0494 0495 BTERM 0518 0491 0507 0509 0511 0514 BTEXBUF 0519 0411 BTEXC 0463 0416 BTEXCD 0471 0456 BTEXSW 0456 BTFSRD 0401 0371 0384 0388 0389 0404 0489 BTGM 0527 0439 BTGOUT 0490 0474 BTHDERR 0509 0405 BTHDNXT 0491 0417 BTHDRBUF 0520 0393 0396 0402 0406 0413 BTHLT 0507 0504 BTHOLD 0528 0438 0460 BTINDEX 0521 0408 0475 BTLDCD 0457 0455 BTLDSW 0455 0418 0463 0498 BTLOAD 0523 BTNORM 0416 0462 BTPRTSW 0421 0419 0464 0466 BTRD 0393 0370 0376 0378 0379 BTRDCT 0530 0447 0504 0505 BTRDER 0493 0453 BTRDERX 0497 0392 BTRDLOC 0449 0390 0391 0437 0465 0493 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS BTRDN 0396 0377 0380 0381 0469 BTREAD 0447 0372 0383 0421 0452 0496 0506 BTRRD 0499 0373 0385 0386 0387 0497 0502 BTSTGM 0446 0443 BTTEMP 0532 0493 0494 BTTYPE 0522 0416 0417 BTTYPEO 0512 0492 0508 0510 BT3BLNKS 0470 0369 BUP2/ 1922 CCDK/ 1966 CGO 0560 0559 CHBA/ 1916 CHBB/ 1920 CHKER 4344 4327 4410 CHKOFFSW 2490 2488 CLAA 2860 2869 2877 CLAD 2958 2956 CLEXIT 2914 2520 CLNB 2905 2900 CLNP 2898 2785 CLOPEN 2859 2826 CLOP1 2864 2848 2851 CLOP2 2869 2867 CLOP3 2876 2882 CLOP4 2883 2881 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS CLOP5 2894 2891 CLOP6 2891 2887 CLOSE 2895 2827 CLOSE1 2897 CLOSXT 2909 2783 2788 2896 2899 2908 CLP 2815 2810 CLPAD 2926 2897 2925 CLPC 2938 2936 CLPG 2962 2898 3177 3237 CLPGX 2974 2962 CLPG1 2963 2964 2967 2968 2970 2972 CLPW 2896 2831 CLPXT 2953 2892 2926 2927 2929 2939 2942 2951 CLPZERO 2935 2933 CLRCLX 2922 2820 CLRM 2954 2940 2959 CLWT 2943 2893 2904 2955 CLWTX 2949 CL1 2817 2815 2816 2819 2912 2941 CL2 2911 2875 2894 CMIO/ 2464 CNC 2437 2436 3184 3238 CNRW 3243 2438 2442 3197 3244 CNTB 3247 2442 3246 CPGO/ 3322 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS CRD 0550 0549 C1EN/ 1813 4910 4919 4982 5025 5028 5030 5031 C2EN/ 1915 C3EN/ 1964 DAT 0546 0545 DAYS/ 3349 1087 DEBEX 2409 2402 2405 DEINV 3347 2398 DELDM 2365 2362 DENTBL 3346 2381 DEQAT 2420 2247 DEQIR 2416 2323 DERR 2362 2236 2363 DERX 2375 2371 DESK 2402 2399 DESKOP 2404 2408 DESKV 2400 2390 DETACH 2344 DETRY 2411 2344 2386 2391 2394 2401 2416 2418 DE1 2390 2381 DE2 2392 2382 DE2MN 2395 2393 DE2TBL 3345 2392 DE5 2397 2385 DPET/ 2501 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS DPTR/ 2507 DSAR3 2114 1983 DSCC 1840 DSCZ 2246 1976 2414 DSC0 2335 1967 DSDT 1835 1820 1826 1833 1854 DSEQ 1830 DSEQ1 1834 1831 DSEXC 1846 1828 DSIS 1817 1973 DSKERMNL 3340 2420 DSLP 1837 2108 DSOC 1857 2034 DSQST 1867 1855 DSRT 1820 DSSHS1 2133 DS1EP 1901 DS2EP 1947 DS3C 1993 1966 1968 DS3CC 1844 1971 DS3CML 1976 1990 DS3EP 2014 1992 DS3GMO 1991 1989 DS3MQO 1859 1972 1986 DS3OC 1860 1862 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS DS3OP 1980 1873 1874 1875 1876 DS3P/ 1761 1967 2540 2966 DS3Q/ 1762 2751 DS3R/ 1763 1974 DS3SC 1974 1993 DS3SD 1967 1844 DS3SR 1842 DS3WDC 1873 2025 DS4OC 1858 DS4SR 1841 DS9999 3348 1830 3055 EMSG 4230 4226 EOP 0710 0662 0709 ERABBT 2326 1853 ERAR 3291 2066 2069 2072 2115 2117 2122 2126 2129 2242 2287 ERBEX 2179 2139 2146 2158 2173 2178 2262 2405 ERBITS 3253 2173 2180 2183 ERCC 3396 2195 2197 2253 2274 2301 3218 3220 ERCDT 3433 2197 2253 2274 2301 3220 ERCEL 3284 1867 2134 2135 ERCH2 2157 2145 ERCH3 2146 ERCRL 2241 2208 ERIEF 2229 2295 2297 ERISS 2138 1896 1944 2011 2102 2116 2121 2125 2128 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS ERLERS 2210 2207 2421 2422 2424 ERMM 2182 2228 2294 ERMNL 3274 2259 ERMSG 3266 2079 2180 2183 2188 2190 2194 2207 2211 2240 2241 2242 2243 2243 2244 2245 2246 2259 2327 2328 2330 2333 2363 2367 2368 2372 2395 2398 2400 2404 2412 2420 2422 2423 2427 2429 2429 2493 2494 2497 ERNR 2339 2237 2378 ERNSP 2231 ERNT 2206 2193 2194 EROC 2233 2226 2298 2325 2350 2417 2419 EROP 3240 3223 3224 ERQD 2235 2224 ERQIEF 2294 2351 ERQISW 2105 2106 2232 ERQQWL 2129 2067 2070 2073 ERQQX 2313 2258 2389 2396 2397 ERQSKP 2322 2227 ERQSP 2343 2339 ERQSXR 2127 2118 2123 ERQUN 2349 2187 ERQX 2225 2212 2315 2317 ERRBS 2184 2181 ERS 3259 2211 2213 2218 2223 2223 2233 2237 2239 2249 2296 2316 2346 2347 2377 2378 2390 2392 2397 2416 3260 ERSMS 3384 3225 3227 3227 3228 3234 3234 3239 ERSS 2171 2144 2156 ERSSB 2172 2179 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS ERSSN 2176 2172 ERSTB 2103 2234 ERSWA 2101 2127 2130 2136 2138 ERSWB 2183 2137 2184 ERSWC 2187 2186 2543 ERTACH 2341 2359 ERTYP 2426 2080 2306 2314 2336 2340 2348 2352 2496 ERTYPB 2340 2342 ERTYPX 2430 2426 ERUNC 2327 2190 ER1 2125 1909 ER2 2119 1956 ER3 2113 2023 ER3SD 2108 1843 ESWC/ 2186 0686 0706 FECON 2844 2857 FEFIE 2834 2782 2794 2796 FEFOE 2886 FEFOO 2839 FEFUM 2887 2526 2779 2825 2888 2913 FEOR 2829 FEPAS 2853 2843 2858 HLEZ/ 3328 4768 4813 HLEZL 4768 4299 IBABTPM UNDEFINED 0764 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS IBACCOUNT UNDEFINED 1506 IBAINQUIRY UNDEFINED 0745 IBBSPTP UNDEFINED 0761 IBDSKIOCS3 UNDEFINED 1965 IBEXEQM UNDEFINED 1504 IBFILE1R UNDEFINED 0748 IBFILE1T UNDEFINED 1507 IBFILE2R UNDEFINED 0749 IBFILE2T UNDEFINED 1508 IBFILE3R UNDEFINED 0750 IBFILE3T UNDEFINED 1509 IBFILE4R UNDEFINED 0751 IBFILE4T UNDEFINED 1510 IBIOARM UNDEFINED 0746 IBIOATMVAR UNDEFINED 1505 IBLODFAZ UNDEFINED 0758 IBMENDENT 0779 1213 IBMVERSION UNDEFINED 0744 IBPCHVAR UNDEFINED 0767 IBPHR00001 UNDEFINED 0752 IBPHR00002 UNDEFINED 0753 IBPHR00003 UNDEFINED 0754 IBPHR00004 UNDEFINED 0755 IBPHR00005 UNDEFINED 0756 IBPHR00006 UNDEFINED 0757 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS IBPHT00001 UNDEFINED 1511 IBPHT00002 UNDEFINED 1512 IBPHT00003 UNDEFINED 1513 IBPHT00004 UNDEFINED 1514 IBPHT00005 UNDEFINED 1515 IBPHT00006 UNDEFINED 1516 IBPOWTRAN UNDEFINED 1502 IBPPCOMMON UNDEFINED 0766 IBPRTVAR UNDEFINED 0768 IBRDSIU UNDEFINED 0759 IBREADAIU UNDEFINED 0769 IBREADMOCC UNDEFINED 1501 IBSCANM UNDEFINED 1503 IBSEARCHT UNDEFINED 1517 IBSIMTP UNDEFINED 0762 IBSPLNITER UNDEFINED 1485 IBSPOOL2 UNDEFINED 1921 IBZRRTP UNDEFINED 0763 INACC 2566 2565 INDEL 2561 2560 INREN 2571 INRST 2578 2570 INRX 2574 2583 INSWA 2569 2564 2576 INSWB 2575 2564 2576 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS INTPR 2593 INX 2588 1913 1960 2028 2105 IORWA 3875 3865 3914 3941 IPI 0568 0567 IQAR/ 3329 0678 IQXN/ 3334 0680 0704 ISCTD 1811 1808 ISEXIT 2649 1962 1998 2015 2553 ISIN/ 3286 4773 4832 4944 ISIND 3287 1801 1804 2088 2096 2579 2594 2650 2919 3286 ISMSK 3276 2650 ISQCR 2081 2083 ISQMSG 3262 2079 ISRQ 2085 ISTYP 2079 2084 2086 IS1 1812 1813 1898 2045 2082 2098 2290 2412 2452 2531 2577 2682 2710 2731 2733 2735 2738 IS1INQ 2084 1815 IS1YI 1814 IS2 1917 1812 1883 1902 1915 IS2YI 1919 1920 2159 2164 2167 2701 IS3 1962 1918 1930 1948 1964 2541 IS3YI 1963 2147 2152 2155 2692 JOODY 2705 1931 1943 1955 2722 KER 0776 0775 LA1 3383 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS LA2 3378 2998 2999 3003 3004 3025 3030 3055 3057 3057 3058 3060 3061 3079 3082 3083 3084 3087 3090 3114 3115 3117 3119 3121 3124 3167 3168 3374 3377 3383 LIB 1590 1589 LIN 0571 0570 LOD 1536 1535 LRA 3108 3107 LRB 3113 3112 LRBSP 3173 3068 3144 LRC 3128 3127 LRCA 3363 2854 2854 3030 3031 3134 3134 3139 3139 3178 3183 3185 LRCLA 3083 2846 2863 3080 LRCLB 3167 3048 LRCON 3314 3075 LRCRS 3069 3172 LRCU 3176 2855 3033 3135 3140 LRCU1 3181 LRD 3021 3020 LRDAT 3313 3074 3077 3088 LRDMD 3164 3160 LRE 3029 3028 LREXARG 3350 3147 3149 3151 3154 3155 LREXIT 3195 3161 3173 3180 3192 3194 3196 3201 LREXR 3154 3148 3155 LRF 3039 3038 LRG 3047 3046 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS LRH 3054 3053 LRHC 3132 3116 3118 3120 3122 LRHDR 3359 3079 LRIBMG 3134 LRIBOR 3104 3016 LRIECBC 3035 3032 LRIEOR 3018 LRILF 2977 2789 2885 2906 LRINPT 3016 2986 LRIO 3369 3357 LRIRS 3123 3137 LRJ 3067 3066 LRK 3073 3072 LRL 3095 3094 LRLA 3374 LRLABEX1 3130 2977 2979 3015 3022 3042 3102 3129 LRLEF 3354 2784 2786 2796 2824 2830 3004 3025 3149 3353 LRLEXR 3146 2989 2994 3006 3011 3018 3026 3036 3044 3051 3064 3070 3092 3098 3105 3110 3125 LRLF 3357 2980 3163 3370 LRM 3101 3100 LRMEX 3157 3152 3153 LRMRWD 3209 3174 3197 3202 3206 3213 LRMS 3373 LRN 2992 2991 LROBC 3062 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS LROBMG 3139 3056 3062 LROBOR 3044 2987 LROEOR 2989 LROER 3063 3142 LRP 2997 2996 LRQ 3009 3008 LRR 3014 3013 LRRETRY 2986 3145 LRRSTX 3192 2842 2860 2884 2985 2992 2997 3014 3021 3029 3039 3047 3054 3067 3073 3101 3113 3128 3150 LRRSTX1 3193 3166 3188 3204 3213 3236 3241 LRRWD 3199 2835 2844 2861 2895 LRRWD1 3203 3175 3198 LRRWD2 3211 3206 LRS 3250 3190 3193 3217 3249 3251 LRSAVX 3189 2781 2823 2840 2982 LRSU 2983 LRSV/ 3251 4769 4812 LRSVL 4769 4289 LRSVXT 3191 3189 LRSW 3364 2857 3137 3142 3186 3367 LRSW/ 3367 LRTST 3143 3138 LRW/RT 3159 3009 3023 3040 3049 3096 3108 LRWDSYM 3208 3205 3214 LRWTM 3196 2907 2993 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS LR1 3151 3156 LR1EO 3352 3005 LR366 3361 3058 LR635 3362 3060 MAIJ 0634 0633 MAIJ/ 0633 1003 1040 1041 1394 MASI/ 1282 MASJ/ 1362 MASN/ 1268 1275 1281 MAU1/ 4187 MAVL/ 1460 MCCT/ 3504 4022 4047 MCHG/ 1283 1307 1390 MCHN 0644 0643 MCHN/ 0643 MCI 0566 0565 MCIN 1421 1363 MCINA 1423 1421 MCLAIU 1387 1383 MCLINCX 1430 1427 MCLO 1357 1356 MCLO/ 1356 MCLOAI 1382 MCLOCW 1378 1411 MCLOIQ 1412 1364 1422 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MCLOPDP 1410 1376 MCLOPMD 1374 1409 MCLOPMP 1370 1407 MCLOPMW 1366 MCLOPMX 1365 1418 1424 MCLOPPR 1406 1368 MCLOPPU 1408 1372 MCLOX 1385 1357 1405 MCONV 0647 MCPH/ 3486 3992 4052 MCPN/ 3490 3990 4025 4050 MCR 0581 0580 0593 MCRD 0632 0629 MCRD/ 0629 1067 MCRERROR 0590 0583 0585 MCRERROREX 0591 0590 MCRHIGH 0593 0584 MCRLOW 0592 0582 MCRMOVE 0588 0586 0587 MCSF/ 3492 3968 3989 4015 MCSI/ 3488 3991 4051 MC01 1368 1369 1379 MC01/ 1369 1446 MC02 1372 1373 1380 MC02/ 1373 1451 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MC03 1376 1377 1381 MC03/ 1377 1456 MC04 1383 1384 1395 1404 MC04/ 1384 1441 MC05 1388 1386 1404 MC05/ 1386 MC05CONT 1404 1388 1402 MC05REV 1397 1393 MC05REVMS 1403 1399 MC1M/ 1462 MDE 3273 3272 MDEL/ 2094 1125 1465 MDM 1578 1577 MDMRWDOP 3280 3278 3279 MEOPSKPT 1321 1288 MEPBL 1344 1243 1249 1299 1300 1360 1361 1401 MEPCLEAR 1243 1246 MEPCWR 1295 1301 1325 MEPENTER 1220 1518 MEPIRSTMS 1343 1330 MEPNEXT1 1264 1262 MEPNEXT2 1271 1269 MEPNEXT5 1276 MEPPRIME 1286 1248 MEPRARS 1278 1261 1267 1274 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MEPREST 1327 1287 MEPRESTI 1307 1286 MEPSTB 1324 1294 MEP01 1287 1313 MEP8 0646 0645 0660 MEP8/ 0645 1304 MERR 1090 0852 0902 1036 1089 1096 1120 MERR/ 1089 MESB 1471 1468 MESB/ 1468 MESGB 1419 1415 MESKIP 1303 1322 MES2 1479 1480 MES2/ 1480 MEXE/ 1280 1342 ME3OPMESG 1320 1316 ME3OPSIRTN 1314 1310 1319 MGA 0573 0572 MGO 1580 1579 MIBB/ 1252 MINB/ 1432 1251 1276 MINC 1427 1426 MINC/ 1426 MINQ/ 2091 MINQB 1434 1432 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MINQBER 1494 1438 MINQBERRO 1499 1496 MINQBEX 1440 1439 MINQBMV 1439 1437 MINSBX 1463 1481 MINSB1 1441 1469 MINSB2 1443 1476 MINSB3 1448 1474 MINSB4 1453 1472 MINSB5 1458 1490 MINSB6 1460 1488 MINSC1 1462 1483 MIOA/ 3449 MIOG/ 3466 MIOR/ 3450 3451 3453 MIOU/ 0672 MIO91 0675 0673 MIQB/ 1253 1276 1412 1417 1463 MIQ2/ 0606 0897 MIQ3/ 0612 MIQ4/ 0607 0911 MIQ8/ 0609 MIX 0596 0595 MIY 0598 0597 MIZ 0603 0602 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MJB 1582 1581 MJBC 0638 0637 0724 MJBC/ 0637 MJOB/ 1277 MKR 0778 0777 MLDNOTFND 1557 1545 MLD2 1543 1541 MLD3 1544 1539 MLD99 1554 1552 MLTA 0714 0701 0713 MLTA/ 0713 0796 MLT1 0717 0729 MLT2 0723 0715 MLT91 0730 0726 MLT92 0731 0727 MLT93 0732 0717 MLX 0657 0656 MMIE 0611 0610 MMIE/ 0610 0957 1145 1435 MMSGEB 1492 1436 MMSY 0628 0627 MMSY/ 0627 4122 MMTYPBT 1493 1435 1436 1462 MMUE 0649 0648 MMUE/ 0648 1297 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MMUF 0651 0650 MMUF/ 0650 1294 1301 1554 1557 MMUG 0653 0652 0674 MMUG/ 0652 1300 1324 MNAV/ 1458 MNIORT 1464 1442 1447 1452 1457 1459 1461 1498 MOCT/ 3508 4041 4863 MOPH/ 3494 4810 MOPN/ 3498 3986 4044 4808 MORAS 1093 0926 MORASGPU 0832 0820 0829 0851 MORASKD 0953 0958 MORASKDM 1178 0953 MORAS2 1117 0981 MORB/ 1123 1434 MORBDD 1176 1018 MORBINQ 1124 1123 MORBLK 1165 0946 0991 1000 MORBREAK 1174 1027 1091 MORCOMP 0969 0989 1001 MORCRD 1166 0994 MORCW 1144 0834 0848 0859 0894 0906 0949 0955 0962 1013 1020 1025 1102 MORCWDC 1148 0833 0847 0858 0893 0905 0948 0954 0961 1012 1019 1024 1101 MORCWEXIT 1150 1144 MORDATE 0951 0930 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MORDC1 1284 1256 1257 MORDEDEND 1114 0874 0998 1074 MORDENDM 1182 1114 MORDINF 1023 1038 1092 MORDJBFD 0990 0971 MORDOK 1022 1017 MORDSIU 0920 0950 1113 MORDSIU2 0975 0970 0979 0983 1119 1122 MORDSIU3 1058 1062 1064 1081 MORE 1212 1211 MORE/ 1211 MOREND 1006 0959 1002 MOREOF 1126 0921 0976 1059 MOREOFMSG 1181 1126 MOREQD 1171 1011 MOREQJ 1159 0960 MOREST 0892 0888 0901 MOREXJ 1002 0993 MORH/ 0813 1247 1248 1363 1365 1421 MORHLTHERE 1136 0973 1115 1127 1130 1133 MORHLTMSG 1180 1132 MORHLTTYP 1134 0974 1116 1128 1131 1139 MORHOLD 0814 0813 0820 0885 0886 0887 0888 0959 MORIN 0884 MORINTA 1156 0945 0947 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MORIOJN 1173 1023 MORJCT 1164 0966 0968 0969 0990 0993 MORJIN 1039 1030 MORJOB 0958 0928 MORMASK 1177 0843 1010 MORMESGE 1168 0836 0841 0855 0964 0966 0990 0991 1015 1017 1022 1028 1030 1031 1032 1039 1040 1105 1107 1109 MORNONOV 0791 0786 MORNORM 0864 0827 MORNRW 1009 0887 MOROPEN 1082 1006 1065 MOROPTNC 1183 0867 MOROPTNR 1185 0875 MOROVERER 1129 0790 MOROVERMS 1161 1129 MORP/ 0817 1259 MORPMESGE 1163 0832 MORPREAM 1179 1099 MORPREAS 1099 1095 MORPRESTA 0891 0892 MORPRESTM 1187 0904 MORPRETN 1088 0818 MORPRIME 0818 0817 MORPRIMEX 0828 0821 0822 MORPROD 1155 1083 1085 1086 1087 MORPRODY 1154 1086 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MORPSMSG 1162 0828 MORSBR 0792 0786 MORSEARCH 0786 0783 MORSEQERR 0934 0924 MORSIJ 1167 0999 1002 1004 1041 1065 1066 MORSIMSCH 0878 0881 MORSTOP 1132 0889 MORTEST1 0815 0782 0793 0826 MORTEST2 0816 0824 0825 0826 MORTOP 0917 0885 0886 MORTRDT 1014 1021 MORTROUBLE 0972 MORTRUBLE 1152 0972 MORTYPE 0938 0952 1098 MORTY01 0940 0939 0941 0942 0943 MORTY02 0943 0940 MOR5BL 1153 1145 MOSF/ 3500 3985 4007 4804 4859 MOSI/ 3496 4809 MOUC 0620 0618 0619 MOUC/ 0619 1286 1311 4064 MPUR 0664 0663 MPUR/ 0663 MPURLOIN 0671 0666 MR$ 4876 4841 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MRAIU 4185 4063 MRCCT 3505 3504 MRCPHN 3487 3486 MRCPNM 3491 3490 MRCSFC 3493 3492 MRCSIZ 3489 3488 MRDC 0631 0630 MRDC/ 0630 4117 MRDR/ 1312 MRD200 4021 3967 MRD201 4035 4040 MRD203 4056 4053 MRET 0660 0659 MRET/ 0659 MRKER 4186 3974 4030 MRMAU1 4187 4107 MRMJB 4878 4856 4869 MRMKR 4188 3977 4033 MRMSOF 4189 4016 4058 MROCT 3509 3508 MROPHN 3495 3494 MROPNM 3499 3498 MROSFC 3501 3500 MROSIZ 3497 3496 MRPHN 4190 3975 4031 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MRSC00 4063 3994 4019 4054 MRSC01 4066 4063 MRSC02 4074 4123 MRSC02A 4080 4075 4076 4077 MRSC03 4087 4079 MRSC03A 4093 4088 4089 4090 MRSC04 4095 4085 MRSC05 4097 4092 MRSC06 4101 4081 4082 4083 4086 4094 4096 4181 MRSC07 4104 4064 4065 MRSC08 4125 4093 4099 MRSC09 4133 4125 MRSC10 4135 4095 4100 MRSC11 4143 4135 MRSC12 4145 4067 4105 4116 4126 4136 MRSC13 4156 4145 4149 MRSC14 4158 4066 4115 MRSC15 4163 4158 4159 MRSC16 4164 4162 4175 4180 MRSC17 4167 4161 4174 4179 MRSC18 4169 4164 MRSC19 4171 4104 MRSC20 4176 4171 4172 MRSC21 4178 4098 MRSI/ 0920 0975 1058 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MRST 0622 0621 0660 MRST/ 0621 1287 1364 1417 MRST00 3967 3941 MRSW/ 3511 3996 4021 4056 4797 4798 4862 MRSWITCH 3512 3511 MRS400 4797 MRS401 4801 4806 MRS402 4808 4805 4860 4866 MRS403 4853 4798 MRS405 4862 4797 MRS406 4863 4872 MRS407 4868 4862 MRTN1 1091 1035 MRT101 3979 3984 MRT103 3996 3993 MRT104 4007 4000 MRZPRA 4191 4128 MRZPUA 4192 4138 MRZSOF 4193 4008 4017 4059 MRZSOF3 4877 4857 4870 MRZXU1 4194 4069 4118 MR0 1638 1637 MR1 1640 1639 MR2 1642 1641 MR3 1644 1643 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MR4 1646 1645 MR5 1648 1647 MR6 1650 1649 MR61 4195 4159 4172 MR7 1652 1651 MR8 1654 1653 MR9 1656 1655 MSFC 0636 0635 0725 MSFC/ 0635 4854 MSGA 3948 3944 MSGB 4350 4346 MSIJ 0640 0639 MSIJ/ 0639 0967 0969 0984 0992 0999 1000 1003 1004 1039 MSIU/ 1571 0628 0822 1051 1055 1609 MSKJ 0614 0613 MSKJ/ 0613 1005 1302 1304 1321 1360 1389 1401 4065 MSNAPEND 0700 0694 MSOF/ 1569 0730 0821 0823 1607 4189 MSPR/ 1573 1615 4077 4097 MSPU/ 1575 1617 4083 4090 4097 MTWW 1352 1351 MTWW/ 1351 MTWX 1354 1353 MTWX/ 1353 MTW1 1349 1350 1352 1354 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MTW1/ 1350 MUEA 0642 0641 0677 MUEA/ 0641 1288 1299 1324 MUEP 1290 1289 MUEP/ 1289 MUEX 0703 0702 MUEX/ 0702 MUSE 0715 0716 0723 MUSE/ 0716 3993 4014 4053 4057 4855 4868 MWAIT 0735 0734 MWAT 0737 0738 MWAT/ 0738 MWBR 0741 0736 0737 0742 MWTEX 0739 0735 MWTX/ 1406 MWTY/ 1408 MWTZ/ 1410 MW0 1685 1684 MW1 1687 1686 MW2 1689 1688 MW3 1691 1690 MW4 1693 1692 MW5 1695 1694 MW6 1697 1696 MW7 1699 1698 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS MW8 1701 1700 MW9 1703 1702 MZLC 1547 1546 MZLC/ 1546 MZLS 1549 1537 1538 1540 1542 1550 MZLS/ 1550 MZZI/ 4115 NANCY 2696 1984 1999 2010 2022 2110 2717 ORG 0552 0554 0718 PG 2528 2491 2527 3438 PGBS 3324 PGCHK 2485 2483 2484 PGCPT 3337 2486 2492 2493 3336 PGCTM 3325 2494 PGDIR 2498 2495 2508 2511 PGDM/ 2483 0668 0689 PGF 3282 2504 2510 3281 3316 PGHLEZ 3331 2084 2087 2095 2096 2098 2526 3328 3437 PGIQAR 3330 2097 3329 PGISW 2653 2530 2543 PGOGR 3321 2508 3320 PGORG 3323 3322 PGPET 2502 2501 PGPM/ 2093 PGPUT 2503 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS PGQFD 2508 2500 2507 PGRA/ 3442 4939 4984 4987 PGRB/ 3443 PGRIP 2546 2516 2542 2545 3439 3440 PGRL/ 2518 0691 0711 PGRS/ 3440 4980 PGRT 2534 2653 PGRUM 3333 PGRW 3315 2498 2513 3282 PGRX 2555 2487 2490 2514 2549 2550 3442 3443 PGRXBP 2547 2531 PGX 2544 2524 2528 3441 PGXN 3335 3334 PGZ 3309 2540 2966 PHN 0544 0543 PLLK/ 3327 4774 4831 PLLKL 4774 4304 PNM 0558 0557 0717 PURG/ 2522 0687 0710 PURR/ 2523 0661 0707 RAIURMSG 4183 4173 RARS/ 1594 1278 RCLT/ 2908 4770 4825 RCLTL 4770 4283 RCLX/ 2921 2519 4781 4823 4984 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RCLXL 4781 4293 RCL1/ 2816 4780 4824 RCL1L 4780 4291 RDMN/ 1302 1305 1321 1323 1396 REND/ 3858 RFUM/ 2888 4771 4826 RFUML 4771 4285 RIQ 0608 0605 0606 0607 0609 0611 0612 RLEFL 4775 4306 RLRT/ 3194 4772 4827 RLRTL 4772 4287 RLRW/ 3372 4776 4830 RLRWL 4776 4308 RLRX/ 3129 4777 4829 RLRXL 4777 4310 RMJBAREA 4875 RMMM 3829 3828 RMMM/ 3828 4292 4824 RNNN 3831 3830 RNNN/ 3830 4294 4823 RPUPRMSG 4184 4178 RQQQ 3839 3838 RQQQ/ 3838 4311 4829 RSAC/ 2512 4851 RSB 0283 0282 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RSCS/ 2510 4841 RSIP/ 2545 4779 4822 RSIPL 4779 4297 RSIURMSG 4182 4160 RSOFAREA 4874 4803 4875 RSRW/ 2511 4846 RSRX/ 2514 4778 4821 RSRXL 4778 4295 RSTABSP 4393 4399 RSTART1 3879 4196 RSTART3 4796 4886 RSTBL 4353 4361 RSTBSP 3892 3898 RSTC 3853 3852 RSTC/ 3852 4284 4825 RSTCL 3921 3899 3915 3925 3940 RSTCLX 3932 3921 RSTCNT 3962 3897 3898 RSTCON 3961 3926 RSTCON1 4354 4322 4405 RSTCPT 3963 3882 RSTCPT1 4882 4834 RSTCPT2 4883 4833 RSTDEL 3907 3887 3958 RSTDIAG 4522 4428 4455 4482 4510 4511 4512 4513 4514 4518 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RSTE 3835 3834 RSTE/ 3834 4307 4828 RSTEND 3950 3867 RSTENDM 4880 4838 RSTERR 4224 4212 RSTERROR 3933 3903 3919 RSTF 3855 3854 RSTF/ 3854 4286 4826 RSTFILE 4209 4221 4314 4324 4394 4407 RSTFILE1 4425 4437 4442 4553 4557 4559 4561 4566 4586 4595 4604 RSTFILE2 4452 4464 4469 4625 4629 4631 4633 4638 4658 4667 4676 RSTFILE3 4479 4491 4496 4697 4701 4703 4705 4710 4730 4739 4748 RSTG 3833 3832 RSTG/ 3832 4305 4831 RSTH 3827 3826 RSTH/ 3826 RSTI 3837 3836 RSTI/ 3836 4309 4830 RSTIN1 4446 4438 RSTIN1A 4447 4443 RSTIN2 4473 4465 RSTIN2A 4474 4470 RSTIN3 4500 4492 RSTIN3A 4501 4497 RSTIORA 4220 4210 4327 4410 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RSTIOR1A 4436 4426 4593 4598 4598 4599 4602 RSTIOR1B 4441 4436 4601 RSTIOR2A 4463 4453 4665 4670 4670 4671 4674 RSTIOR2B 4468 4463 4673 RSTIOR3A 4490 4480 4737 4742 4742 4743 4746 RSTIOR3B 4495 4490 4745 RSTJ 3823 3822 RSTJ/ 3822 4296 4821 RSTK 4282 4277 RSTK/ 2513 4282 RSTL 3857 3856 RSTL/ 3856 4288 4827 RSTLAB 4757 4552 4624 4696 RSTLAB1 4414 4421 4448 4475 4556 4558 4628 4630 4700 4702 4758 4763 RSTLP 3915 3917 3920 RSTLT 4773 4302 RSTLX 4764 4757 RSTMDF1 4885 4844 RSTMDM 4427 4506 RSTMDM1 4884 4842 RSTMLX 3964 3908 3999 4148 RSTMSG 3959 3955 RSTN/ 3216 4525 4538 RSTNF 3904 3900 RSTOGRA 4879 4846 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RSTOPBUC1 4765 4554 4555 4565 4583 4603 4610 RSTOPBUC2 4766 4626 4627 4637 4655 4675 4682 RSTOPBUC3 4767 4698 4699 4709 4727 4747 4754 RSTOPEN1 4549 4546 4551 4591 RSTOPEN2 4546 4543 RSTOPEN21 4621 4618 4623 4663 RSTOPEN22 4618 4615 RSTOPEN31 4693 4690 4695 4735 RSTOPEN32 4690 4687 RSTORGC 3965 3912 RSTT/ 3851 4290 4812 RSTTPCON 4352 4236 4276 4334 4374 RSTTPMDM 4520 4509 RSTTPS 4374 4390 RSTTP1 4235 4791 RSTTP10 4334 4342 4393 4399 RSTTP11 4356 4329 RSTTP12 4260 4357 RSTTP13 4367 4359 4411 RSTTP13A 4360 4372 RSTTP13B 4365 4386 RSTTP14 4387 4369 RSTTP15 4401 4404 RSTTP16 4502 4388 RSTTP16A 4504 4521 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RSTTP17 4524 4503 4505 RSTTP2 4243 4235 4255 RSTTP3 4253 4244 4246 RSTTP31 4257 4251 RSTTP32 4259 4252 RSTTP4 4263 4271 4273 4356 RSTTP5 4272 4266 RSTTP6 4274 4264 RSTTP7 4318 4321 4343 RSTTP8 4328 4338 RSTTP9 4340 4330 RSTU 3843 3844 RSTU/ 3844 4303 4832 RSTYOU 4786 RST0 3849 3845 3848 RST0/ 3848 RST1 3478 3477 RST1/ 3477 3886 3933 4321 4404 RST1F 3521 3480 RST1GET1 4563 4550 RST1GET2 4590 4584 4609 4611 RST1GET3 4593 4564 4565 4600 RST1GET4 4610 4603 RST1GET5 4566 4612 RST1GET6 4585 4573 4581 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RST1TP 4542 4527 4538 4548 4592 RST1TPSW 4533 4544 4711 4713 4719 4733 RST10F 3611 3601 RST11F 3621 3611 RST11TP 4527 4525 4533 4535 4537 4544 RST12 4787 4577 4610 4649 4682 4721 4754 RST12F 3631 3621 RST13F 3641 3631 RST14 4788 4253 4572 4599 4644 4671 4716 4743 RST14F 3651 3641 RST15F 3661 3651 RST16F 3671 3661 RST17F 3681 3671 RST18F 3691 3681 RST19F 3701 3691 RST2 3480 3479 RST2/ 3479 3997 3998 4146 4147 4240 4257 4782 RST2F 3531 3520 RST2GET1 4635 4622 RST2GET2 4662 4656 4681 4683 RST2GET3 4665 4636 4637 4672 RST2GET4 4682 4675 RST2GET5 4638 4684 RST2GET6 4657 4645 4653 RST2L 4782 4261 4316 4391 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RST2TP 4614 4529 4620 4664 RST2TPSW 4535 4616 RST20 4789 4270 4515 4555 4627 4699 RST20F 3711 3701 RST21F 3721 3711 RST22F 3731 3721 RST22TP 4529 4567 4569 4575 4589 4616 RST23F 3741 3731 RST24F 3751 3741 RST25F 3761 3751 RST26F 3771 3761 RST27F 3781 3771 RST28F 3791 3781 RST29F 3801 3791 RST3 3482 3481 3888 RST3/ 3481 3931 4833 4835 RST3F 3541 3531 RST3GET1 4707 4694 RST3GET2 4734 4728 4753 4755 RST3GET3 4737 4708 4709 4744 RST3GET4 4754 4747 RST3GET5 4710 4756 RST3GET6 4729 4717 4725 RST3TP 4686 4531 4692 4736 RST3TPSW 4537 4688 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RST30F 3811 3801 RST33TP 4531 4639 4641 4647 4661 4688 RST4 3484 3483 RST4/ 3483 3881 3887 RST4F 3551 3541 RST46 4790 4520 4547 4619 4691 RST5 3518 3517 RST5/ 3517 4275 4783 RST5F 3561 3551 RST5L 4783 4260 RST6 3520 3519 RST6/ 3519 4784 RST6F 3571 3561 RST6L 4784 4502 4542 4614 4686 RST7F 3581 3571 RST8 3841 3842 RST8/ 3842 4300 4813 RST8C 4785 4508 4590 4662 4734 RST8F 3591 3581 RST9/ 3845 4312 4845 RST9F 3601 3591 RSUM/ 2515 4849 RSXJ 3824 3825 RSXJ/ 3825 4298 4822 RWANX 2043 2040 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RWBKT 3351 2046 2052 2930 2937 2938 2941 3349 RWBUNC 1809 1897 2103 RWGFA 2058 1869 2575 2763 RWI2 3305 2167 RWI3 3307 2155 RWLST 2047 1818 1846 1862 2053 2054 2056 RWNSP 2039 2042 2059 RWPLST 3326 2525 2566 2582 2596 2597 RWQSRT 2045 1855 1861 2060 2232 RWRST 2048 1868 2140 2148 2160 RWSX 2060 2051 RWTACH 2037 1861 2400 2753 RWTBFL 2030 1914 1961 2107 RWTBSL 2033 2031 2592 2601 RWUER 1897 1945 2012 2349 RWUOC 1943 2163 RWU3OC 2010 2151 RW1 1881 1816 RW1BEX 1909 1852 1901 2139 2231 2624 2634 2772 2784 2830 2937 RW1END 2678 1888 2680 2686 2729 RW1IO 1899 1890 1891 1904 RW1LST 1888 2140 RW1OC 1908 1814 2153 2165 2534 RW1ORG 2684 1882 1884 1887 2444 2679 RW1QSR 1911 1805 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS RW1SR 2065 1911 RW1UN 1893 1892 1894 1895 1895 RW2 1928 RW2BEX 1956 1947 2158 2159 RW2END 2703 1936 2699 2724 RW2IO 1946 1937 1938 1950 RW2LST 1936 2160 RW2OC 1954 1807 1919 2536 3304 RW2ORG 2704 1929 1931 1932 1935 2477 2698 RW2QSR 1958 RW2SR 2068 1958 RW2UN 1940 1939 1941 1942 1942 RW3BEX 2023 2014 2109 2109 2146 RW3END 2694 2004 2690 2719 RW3IO 2013 1876 1877 2005 2006 2017 RW3LST 2004 2148 RW3OC 2021 1806 1963 2538 3306 RW3ORG 2695 1997 1999 2000 2003 2473 2689 RW3QSR 2026 1873 1874 RW3SR 2071 2026 RW3UN 2008 2007 2009 R100/ 1789 SAC1/ 2617 SAVEX2 1007 0985 0988 SCNI/ 1266 1273 1284 1340 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS SDL2/ 5003 SERS/ 3260 5028 SIP2/ 5002 4948 4949 4979 SIU 1572 1571 SIZ 0556 0555 0592 0718 SK2 5021 5022 5023 SMUP/ 1293 SNAPSHOT UNDEFINED 0770 SOF 1570 1569 SOP2/ 5013 SPAR/ 1292 SPAS/ 1486 SPA2/ 4889 2038 4993 SPB2/ 4903 SPCI/ 1254 SPCR/ 0937 SPCX/ 0933 1255 SPC2 4934 4962 SPC2/ 4935 2230 SPD2/ 4983 2918 SPER/ 5026 2337 2343 2353 SPG2/ 4986 2798 SPID 5034 5033 SPID/ 5033 2919 SPIN/ 3437 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS SPL2/ 4994 SPL2CCI 4929 4922 SPL2EOJ 5019 4977 SPL2FT 5000 4901 4954 4972 4990 4999 5015 SPL2OP1 5012 4891 4892 4951 4969 4970 SPL2OP2 5011 4892 4969 SPL2RW 5014 4890 4891 4893 4894 4895 4950 4961 4964 4970 5000 5030 SPL2RX 5003 SPL2UNC 4926 4923 4923 SPOOCK2 4916 4890 SPPG/ 3438 4947 SPPX/ 3441 4946 SPR 1574 1573 SPRS/ 3439 4959 4992 SPS2/ 2917 2552 2798 4942 4981 SPU 1576 1575 SPXN 5036 5035 SPXN/ 5035 2920 4943 SP2BH 4914 4917 SP2BHS 4917 4909 4914 4932 4952 4965 SP2C/ 4973 SP2CL 4961 4948 SP2DINQ 4941 4940 4985 4988 SP2DO 4981 4938 SP2EC 4968 4964 4965 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS SP2EOR 4989 4961 SP2KJ 4902 SP2NCC 4900 4895 4896 4897 4898 SP2O/ 4955 SP2Q/ 4940 2552 SP2ROT 4891 4912 4914 4960 SP2S/ 4937 2529 2551 2780 2799 2821 2915 SP2UR 4911 4908 SP2URES 4908 4912 4918 SP2XIO 4894 4933 SRCHFILE 3864 3876 3890 3892 3905 3907 3908 3910 3928 3935 3951 ST2 1584 1583 SUEP/ 0679 SUR2/ 4920 2451 SUS2/ 2450 4899 4921 SU2 1586 1585 SWW2 4932 4906 SWW2/ 4905 4932 4957 5027 TEBMP 2261 2244 2312 2324 TEBSP 2262 2330 TECL 2283 2271 2305 2308 2326 TECLS 2284 2288 2357 2415 TECU 2269 2262 2272 2279 2279 TEPSR 2306 TEQQEF 2292 2239 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS TEQSR 2259 2249 2251 TEQW 2240 2293 TEQWMX 2311 2240 2296 TEQ9X 2250 2248 2263 TESR 2299 2260 TESRC 2304 TEWMX 3294 2311 TPB 0551 0553 T7330 0467 0397 0468 UEBEX 2360 UEFNR 2358 2354 2356 2357 2360 UEP 0677 0676 UEPPURG 0688 0708 UEQEF 2351 2347 UERR 2346 2238 UETYPA 2348 2333 UETYPB 2352 2346 UNC 2461 1809 3207 UNCLE 2448 2482 UNQSP 2337 2334 UNQZ 2447 2476 2480 UNSPAN 2686 2481 UNTA/ 3435 4902 4925 UNTACH 2469 2272 2291 2338 2345 2743 2745 3435 UNVD 2481 2447 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS UNXT 3303 2142 2143 2469 2470 2713 2714 UN1 2444 2471 UN2 2477 2472 UN3 2473 VSW1/ 4074 4197 VSW4/ 4080 4087 4199 WENDY 2685 1900 1908 2727 XAAA 1568 1567 XAAA/ 1567 XDNE 1742 1741 XDNE/ 1741 XEND 1733 1732 XEND/ 1732 XSTP 1613 1614 XSTP/ 1614 1258 1260 XXA0 0051 0050 XXA0/ 0050 0103 1570 XXA1 0056 0055 XXA1/ 0055 0105 XXA2 0061 0060 XXA2/ 0060 0107 XXA3 0066 0065 XXA3/ 0065 0109 XXA4 0071 0070 XXA4/ 0070 0111 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS XXA5 0076 0075 XXA5/ 0075 0113 XXA6 0081 0080 XXA6/ 0080 0115 XXA7 0086 0085 XXA7/ 0085 0117 XXA8 0091 0090 XXA8/ 0090 0119 XXA9 0096 0095 XXA9/ 0095 0121 XXB0 0128 0127 XXB0/ 0127 0180 XXB1 0133 0132 XXB1/ 0132 0182 XXB2 0138 0137 XXB2/ 0137 0184 XXB3 0143 0142 XXB3/ 0142 0186 XXB4 0148 0147 XXB4/ 0147 0188 XXB5 0153 0152 XXB5/ 0152 0190 XXB6 0158 0157 XXB6/ 0157 0192 XXB7 0163 0162 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS XXB7/ 0162 0194 XXB8 0168 0167 XXB8/ 0167 0196 XXB9 0173 0172 XXB9/ 0172 0198 XXC0 0205 0204 XXC0/ 0204 0257 XXC1 0210 0209 XXC1/ 0209 0259 XXC2 0215 0214 XXC2/ 0214 0261 XXC3 0220 0219 XXC3/ 0219 0263 XXC4 0225 0224 XXC4/ 0224 0265 XXC5 0230 0229 XXC5/ 0229 0267 XXC6 0235 0234 XXC6/ 0234 0269 XXC7 0240 0239 XXC7/ 0239 0271 XXC8 0245 0244 XXC8/ 0244 0273 XXC9 0250 0249 XXC9/ 0249 0275 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS XXEA 0285 0284 XXEA/ 0284 0307 XXEB 0290 0289 XXEB/ 0289 0309 XXEC 0295 0294 XXEC/ 0294 0311 XXED 0300 0299 XXED/ 0299 0313 XXP1 0006 0005 XXP1/ 0005 0033 XXP2 0018 0017 XXP2/ 0017 0039 XXR1 0010 0009 XXR1/ 0009 0035 1572 XXR2 0022 0021 XXR2/ 0021 0041 XXX1 0014 0013 XXX1/ 0013 0037 XXX2 0026 0025 XXX2/ 0025 0043 XYND 0323 0322 XYND/ 0322 XZZZ 1736 1734 1735 XZZZ/ 1735 X1 OPRND 0412 0465 0489 0782 0783 0794 0795 1242 1244 1245 1334 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS X1 ^ INDEX 0471 0474 1243 1336 X10 OPRND 3879 3883 3901 3916 3923 3975 3976 3978 3981 3982 4031 4032 4034 4037 4038 4242 4253 4254 4262 4265 4317 4319 4331 4334 4504 4566 4574 4638 4646 4710 4718 4834 4842 4843 X10^ INDEX 0341 0344 0819 3902 3918 3922 3922 3979 4035 4243 4247 4318 4318 4335 4337 4568 4570 4571 4571 4572 4574 4576 4576 4577 4580 4582 4640 4642 4643 4643 4644 4646 4648 4648 4649 4652 4654 4712 4714 4715 4715 4716 4718 4720 4720 4721 4724 4726 4835 4843 4844 X11 OPRND 0356 1224 3882 3883 3977 3978 3980 3999 4008 4033 4034 4036 4069 4107 4118 4128 4138 4148 4239 4254 4263 4269 4328 4332 4400 4402 4502 4520 4542 4547 4614 4619 4686 4691 X11^ INDEX 0357 0358 0359 0360 0871 0995 1071 3884 3931 3979 4001 4002 4006 4009 4010 4011 4035 4070 4071 4072 4108 4109 4110 4119 4120 4121 4129 4130 4131 4139 4140 4141 4150 4151 4155 4265 4267 4268 4270 4330 4331 4335 4337 4401 4401 4503 4504 4506 4508 4510 4511 4512 4513 4514 4543 4546 4553 4554 4563 4590 4615 4618 4625 4626 4635 4662 4687 4690 4697 4698 4707 4734 4758 4759 4763 X12 OPRND 1223 1224 1256 1261 3997 4078 4084 4091 4146 4237 4245 4276 4317 4400 X12^ INDEX 0849 0861 0899 0913 1033 1093 1110 1117 1262 1264 1264 1265 1265 1269 1271 1271 1272 1272 3998 4001 4007 4009 4012 4068 4070 4073 4079 4085 4092 4106 4108 4111 4117 4119 4122 4127 4129 4132 4137 4139 4142 4147 4150 4282 4284 4286 4288 4290 4292 4294 4296 4298 4300 4303 4305 4307 4309 4311 4312 X13 OPRND 0581 1536 1551 1820 1836 1854 2087 2095 2578 2593 2732 2734 2739 2802 2806 2822 2839 2920 2944 3880 4848 4943 X13^ INDEX 0582 0584 0586 0587 0589 0590 1539 1541 1553 1827 1827 1829 1830 1832 1834 1852 2616 2618 2623 2625 2626 2629 2632 2633 2634 2635 2637 2639 2640 2641 2642 2647 2647 2648 2648 2661 2662 2663 2664 2666 2668 2669 2670 2671 2672 2708 2710 2713 2747 2748 2761 2766 2767 2768 2772 2773 2777 2778 2785 2788 2790 2792 2797 2803 2804 2841 2847 2865 2866 2867 2868 2869 2873 2874 2885 2889 2900 2906 2927 2928 2931 2936 2940 2950 2952 2954 2957 2975 2978 2983 3003 3031 3181 3202 3204 3205 3452 3881 X14 OPRND 0476 1221 1817 1882 1900 1908 1929 1943 1955 1978 1997 2010 2022 2043 2050 2110 2443 2448 2465 2481 2567 2618 2736 2737 2847 2874 2928 2975 2978 3181 3182 3222 4901 4924 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS X14^ INDEX 1821 1826 1838 1851 1853 1860 1884 1889 1890 1892 1897 1901 1911 1932 1937 1939 1947 1958 1979 2000 2005 2007 2014 2025 2026 2030 2034 2038 2039 2046 2052 2055 2058 2103 2111 2116 2121 2125 2128 2129 2130 2131 2133 2134 2142 2150 2162 2181 2189 2191 2195 2196 2226 2227 2228 2230 2233 2238 2248 2250 2261 2264 2271 2283 2290 2292 2294 2295 2297 2305 2306 2307 2308 2311 2313 2324 2329 2334 2335 2337 2339 2341 2342 2343 2349 2351 2353 2355 2356 2362 2364 2366 2371 2376 2379 2380 2403 2411 2413 2417 2444 2466 2468 2469 2473 2477 2569 2588 2620 2621 2622 2628 2630 2631 2632 2638 2661 2663 2665 2667 2672 2674 2675 2688 2697 2734 2739 2741 2756 2757 2762 2769 2849 2850 2851 2876 2878 2930 2934 3022 3048 3075 3077 3080 3082 3087 3089 3090 3115 3116 3117 3118 3119 3120 3121 3122 3151 3182 3183 3228 3235 X15 OPRND 0475 0476 0674 0680 0682 0704 0727 1220 1221 1821 1969 1975 1977 2030 2041 2049 2058 2131 2132 2133 2171 2172 2191 2283 2285 2287 2366 2376 2413 2414 2437 2445 2462 2465 2474 2478 2566 2588 2591 2597 2622 2624 2626 2639 2684 2685 2704 2705 2717 2722 2727 2736 2744 2752 2757 2802 2806 2822 2839 2931 2934 2938 2950 2954 2958 2981 3208 3214 3215 3243 4017 4059 4857 4870 X15^ INDEX 1817 1829 1839 1970 1976 1978 1984 1985 1991 2031 2032 2039 2041 2043 2050 2055 2135 2173 2180 2183 2193 2208 2212 2213 2218 2231 2236 2247 2284 2284 2289 2315 2317 2323 2325 2344 2368 2372 2418 2438 2448 2481 2567 2569 2571 2578 2579 2580 2581 2582 2589 2590 2591 2592 2593 2596 2598 2625 2627 2640 2732 2737 2741 2758 2859 2952 2956 2957 2983 3215 3217 3218 3219 3225 3226 3450 3451 3452 X2 OPRND 0409 0424 0436 0437 0441 0442 0446 0792 0823 0869 0985 0988 1043 1069 X2 ^ INDEX 0425 0440 0440 0444 0457 0461 0793 0824 0825 0870 0877 1044 1049 1070 1076 X3 OPRND 0408 0409 0422 0424 0442 X3 ^ INDEX 0438 0439 0460 X4 OPRND 0838 0896 0908 0922 0977 1009 1060 1067 1332 X4 ^ INDEX 0839 0840 0844 0846 0854 0855 0857 0860 0897 0898 0909 0911 0912 0923 0925 0927 0929 0931 0935 0938 0945 0951 0978 0980 0982 1010 1031 1032 1061 1063 1099 1100 1103 1103 1107 1333 1335 1337 1338 X5 OPRND 0943 3885 3934 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS X5 ^ INDEX 0944 0946 3886 3925 X7 OPRND 4240 4250 4260 4365 4368 4391 X7 ^ INDEX 0915 4247 4249 4250 4259 4268 4269 4274 4360 4360 4361 4362 4368 4370 4371 4375 4376 4378 4379 4380 4384 4385 X8 OPRND 1257 4370 4374 X8 ^ INDEX 0853 0863 0903 0986 0987 1037 1097 1112 1121 4375 4377 4380 4384 X9 OPRND 3912 3974 3982 4030 4038 4243 4245 4249 4261 4272 4316 4365 4371 X9 ^ INDEX 3913 3913 4263 4267 4272 4274 4328 4367 ZCPH/ 4022 4041 4047 4863 ZCR1/ 0550 0632 ZIO1/ 0626 ZPRA/ 4191 ZPRC/ 4127 ZPRS/ 4076 4078 4132 4198 ZPUA/ 4192 ZPUC/ 4137 ZPUS/ 4082 4084 4089 4091 4142 4200 ZRDC/ 0869 1043 1069 1195 4068 4106 ZRWC/ 0867 0875 1042 1048 1068 1075 ZSFC/ 0724 0725 3968 3985 3989 4015 4804 4854 4859 ZSFI/ 4066 4104 ZSIU/ 0918 1046 ZSOF/ 0731 0865 4193 4877 ZSPR/ 1444 ZSPU/ 1449 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS ZSSU/ 4073 4111 ZSSW/ 0719 0878 0882 ZSYM/ 0726 4012 4016 4058 4856 4869 ZSYX/ 0794 ZXU1/ 4194 ZZZCON1 0797 0779 ZZZZCON1 1346 1239 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS FOR LITERALS IN SEGMENT 4 '$$' 0534 0406 '00014' 0535 0495 '1' 0536 0505 '2' 0537 0507 '3' 0538 0509 '4' 0539 0511 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS FOR LITERALS IN SEGMENT 6 ' ' 1208 1066 ' ' 1191 0840 G 'M' 1190 0780 0781 0839 0944 ',' 1210 1108 'ASGN ' 1193 0845 'ASGN' 1201 0925 0980 'D' 1199 0912 'DATE' 1203 0929 'JOB' 1202 0927 0982 1063 'MDM,' 1198 0898 'MON$$' 1200 0923 0978 1061 'N' 1206 1042 1068 'R' 1207 1048 1075 'SIU' 1194 0854 'SOF' 1192 0844 'SPOO' 1204 0931 '00000' 1196 0870 1044 1070 '1' 1205 0967 0968 0984 0992 '2739' 1209 1085 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS FOR LITERALS IN SEGMENT 8 ' ' 1519 1220 1223 ' ' 1521 1240 1358 1365 G 'M' 1520 1237 1238 'A' 1525 1335 'I' 1526 1337 '00000' 1527 1359 '1D' 1523 1244 '8' 1528 1389 77120 *****C R O S S R E F E R E N C E L I S T I N G***** GENERATE SGF SYMBOL LABEL SEQNO OPERAND SEQUENCE NUMBERS FOR LITERALS IN SEGMENT 9 'C' 1560 'X' 3468 '1' 1562 MON$$ EXEQ SG1 9 @ MON$$ EXEQ LINKLOAD @ 77120 CARD NAME VALUE SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE SYMBOL VALUE ENTRYPT PHASE IBBOOT 09888 BASE1 00000 TITLE IBBOOT1T 00000 REL FACTOR 00000 UNRESOLVED ENTRIES NONE PHASE 00223 BASE1 00000 TITLE IBBOOT2T 00000 REL FACTOR 00000 ***** CORE EXCEEDED ~95000~00036~D9579400011X~B95288000030~D00004953517~~ ACC1232 @ UNRESOLVED ENTRIES NONE PHASE IBRESMON 09888 PRTCT 00000 BASE1 00000 TITLE IBRESIOCS 00000 REL FACTOR 00000 R100/ 00100 C1EN/ 00315 C2EN/ 00960 CHBA/ 00960 CHBB/ 00967 BUP2/ 00974 BPA2/ 00979 C3EN/ 01220 CCDK/ 01411 PGPM/ 02035 MDEL/ 02035 ESWC/ 02675 /CNC/ 04472 SUS2/ 04557 /UNC/ 04571 CMIO/ 04586 PGDM/ 04716 /CHK/ 04716 /CHS/ 04743 DPET/ 04843 DPTR/ 04852 RSCS/ 09826 RSRW/ 04817 RSAC/ 05433 RSTK/ 09888 RSRX/ 05088 RSUM/ 04864 PGRL/ 04871 PURG/ 04885 PURR/ 04885 RSIP/ 05031 /DEL/ 05090 /ACC/ 05116 /PT4/ 05393 /PET/ 05393 SAC1/ 05433 BEPA/ 05753 /DSK/ 06402 ACEF/ 06777 /CLP/ 06853 RCL1/ 06865 RFUM/ 07316 RCLT/ 07465 SPS2/ 07493 RCLX/ 07528 /RLS/ 07530 /LRN/ 07986 /LRP/ 08008 /LRQ/ 08074 /LRR/ 08090 /LRD/ 08124 /LRE/ 08171 /LRF/ 08229 /LRG/ 08259 /LRH/ 08294 /LRJ/ 08385 /LRK/ 08407 /LRL/ 08558 /LRM/ 08574 /LRA/ 08596 /LRB/ 08612 /LRC/ 08731 RLRX/ 08743 RLRT/ 09237 RSTN/ 09409 /CTB/ 09619 /LFA/ 09626 LRSV/ 09636 SERS/ 09728 /MDE/ 09780 /MD1/ 09788 /MD4/ 09791 /MDF/ 09796 ISIN/ 09808 /OGR/ 09912 CPGO/ 09917 PLLK/ 09932 HLEZ/ 09941 IQAR/ 09939 IQXN/ 09956 /CPT/ 09960 /AMB/ 09963 DAYS/ 10004 /LEF/ 10008 LRSW/ 10043 RLRW/ 10071 /SLA/ 10088 AC3B/ 09834 UNTA/ 04616 BEEP/ 05748 SPIN/ 09940 SPPG/ 04909 SPRS/ 05031 PGRS/ 05026 SPPX/ 05024 PGRA/ 05088 PGRB/ 05083 MIOA/ 10473 MIOG/ 10534 TITLE IBDSKIOCS3 10536 REL FACTOR 10536 DS3P/ 10551 DS3Q/ 10553 DS3R/ 10557 TITLE IBSPOOL2 10554 REL FACTOR 10554 SPA2/ 10554 SPB2/ 10680 SWW2/ 10681 SUR2/ 10754 SPC2/ 10832 SP2S/ 10833 SP2Q/ 10852 SP2O/ 10956 SP2C/ 11088 SPD2/ 11151 SPG2/ 11170 SPL2/ 11225 /SF2/ 11241 SIP2/ 11247 SOP2/ 11301 /S2E/ 11324 /SK2/ 11343 /SP2/ 11344 /SC2/ 11396 SPER/ 11484 SPID/ 11541 SPXN/ 11546 TITLE IBRESIDENT 11547 REL FACTOR 11547 /PHN/ 11549 /DAT/ 11554 /AMS/ 11559 /CRD/ 11564 /TPB/ 11569 /ORG/ 11574 /SIZ/ 11579 /PNM/ 11589 /CGO/ 11590 /MCI/ 11591 /IPI/ 11596 /LIN/ 11598 /MGA/ 11602 /MCR/ 11603 /MIX/ 11718 /MIY/ 11719 /MIZ/ 11720 /RIQ/ 11721 MIQ2/ 11722 MIQ4/ 11724 MIQ8/ 11728 MMIE/ 11725 MIQ3/ 11723 MSKJ/ 11742 /MOU/ 11743 MOUC/ 11743 MRST/ 11744 MMSY/ 11754 MCRD/ 11764 MRDC/ 11759 MAIJ/ 11766 MSFC/ 11771 MJBC/ 11776 MSIJ/ 11778 MUEA/ 11783 MCHN/ 11788 MEP8/ 11789 MMUE/ 11791 MMUF/ 11794 MMUG/ 11799 /MLX/ 00000 MRET/ 11801 MPUR/ 11827 MIOU/ 11891 /UEP/ 11916 SUEP/ 11929 MUEX/ 12050 /EOP/ 12083 MLTA/ 12097 MUSE/ 12098 /WAT/ 12232 MWAT/ 12245 /WBR/ 12265 TITLE IBPHR00001 12266 REL FACTOR 12266 XXP1/ 12270 XXR1/ 12279 XXX1/ 12288 XXP2/ 12297 XXR2/ 12306 XXX2/ 12315 TITLE IBPHR00002 12320 REL FACTOR 12320 /RSC/ 12320 XXA0/ 12324 XXA1/ 12338 XXA2/ 12352 XXA3/ 12366 XXA4/ 12380 XXA5/ 12394 XXA6/ 12408 XXA7/ 12422 XXA8/ 12436 XXA9/ 12450 TITLE IBPHR00003 12460 REL FACTOR 12460 XXB0/ 12464 XXB1/ 12478 XXB2/ 12492 XXB3/ 12506 XXB4/ 12520 XXB5/ 12534 XXB6/ 12548 XXB7/ 12562 XXB8/ 12576 XXB9/ 12590 TITLE IBPHR00004 12600 REL FACTOR 12600 XXC0/ 12604 XXC1/ 12618 XXC2/ 12632 XXC3/ 12646 XXC4/ 12660 XXC5/ 12674 XXC6/ 12688 XXC7/ 12702 XXC8/ 12716 XXC9/ 12730 TITLE IBPHR00005 12740 REL FACTOR 12740 /RSB/ 12739 XXEA/ 12744 XXEB/ 12764 XXEC/ 12784 XXED/ 12804 TITLE IBPHR00006 12820 REL FACTOR 12820 TITLE IBLODFAZ 12820 REL FACTOR 12820 /LOD/ 12820 MZLC/ 12896 MZLS/ 12904 TITLE IBFILE1R 12977 REL FACTOR 12977 XAAA/ 12977 MSOF/ 12982 MSIU/ 12987 MSPR/ 12992 MSPU/ 12997 /MDM/ 13002 /MGO/ 13007 /MJB/ 13012 /ST2/ 13017 /SU2/ 13022 /AIU/ 13027 /LIB/ 13032 TITLE IBFILE2R 13033 REL FACTOR 13033 /MR0/ 13037 /MR1/ 13042 /MR2/ 13047 /MR3/ 13052 /MR4/ 13057 /MR5/ 13062 /MR6/ 13067 /MR7/ 13072 /MR8/ 13077 /MR9/ 13082 TITLE IBFILE3R 13083 REL FACTOR 13083 /MW0/ 13087 /MW1/ 13092 /MW2/ 13097 /MW3/ 13102 /MW4/ 13107 /MW5/ 13112 /MW6/ 13117 /MW7/ 13122 /MW8/ 13127 /MW9/ 13132 TITLE IBFILE4R 13133 REL FACTOR 13133 XEND/ 13132 /XND/ 13133 XZZZ/ 13133 BASE1 13200 TITLE SNAPSHOT 13200 REL FACTOR 13200 /SNP/ 13200 TITLE IBMVERSION 15084 REL FACTOR 15084 /MID/ 15092 TITLE IBZRRTP 15093 REL FACTOR 15093 /ZRR/ 15093 /ZRW/ 15182 ZSOF/ 15242 ZSYM/ 15247 ZSYX/ 15298 /ZRS/ 15307 ZSFC/ 15231 TITLE IBBSPTP 15316 REL FACTOR 15316 /ZBS/ 15316 TITLE IBSIMTP 15422 REL FACTOR 15422 /ZSS/ 15422 ZSSW/ 15557 TITLE IBABTPM 15702 REL FACTOR 15702 /QAL/ 15702 /QHD/ 16261 /QEP/ 16240 TITLE IBRDSIU 16327 REL FACTOR 16327 /RSI/ 16327 MRSI/ 16513 ZRDC/ 16579 ZRWC/ 16582 ZSIU/ 16590 ZSSU/ 16595 ZSFI/ 16606 ZSIA/ 16613 MSIA/ 16618 MELF/ 16624 MZZI/ 16625 MRCS/ 16626 /MCS/ 16627 ZIO1/ 16637 ZXT1/ 16645 ZXU1/ 16646 ZXT2/ 16680 ZXU2/ 16681 MRDS/ 16704 MRDR/ 16705 ZCR1/ 16706 ZCR2/ 16787 TITLE IBPRTVAR 16874 REL FACTOR 16874 /PRT/ 16874 VSW1/ 16917 VSW2/ 16925 VSW3/ 17052 ZPRC/ 17105 ZPRX/ 17100 ZRWD/ 17108 ZRW0/ 17111 ZSPR/ 17116 ZPRS/ 17121 VPRD/ 17132 VPRO/ 17172 ZPRA/ 17177 ZPRQ/ 17186 TITLE IBPCHVAR 17190 REL FACTOR 17190 /PCH/ 17190 VSW4/ 17233 ZPUC/ 17372 VPUX/ 17367 VRWD/ 17375 VRWC/ 17378 ZSPU/ 17383 ZPUS/ 17388 VPUD/ 17399 VPUO/ 17439 ZPUA/ 17444 ZPUQ/ 17453 TITLE IBPPCOMMON 17457 REL FACTOR 17457 MPPC/ 17457 TITLE IBREADAIU 17594 REL FACTOR 17594 MAIO/ 17598 MAT1/ 17606 MAU1/ 17607 TITLE IBIOARM 17710 REL FACTOR 17710 /MIO/ 17710 /MIQ/ 17828 /MIP/ 17891 MIOR/ 17941 TITLE IBAINQUIRY 18106 REL FACTOR 18106 MINQ/ 18106 /SN6/ 18333 MIQB/ 18138 MIBB/ 18143 TITLE IBMENDM 18399 REL FACTOR 18399 /KER/ 18400 /MKR/ 18400 MORH/ 18543 MORP/ 18549 SPCX/ 19405 SPCR/ 19419 MERR/ 20706 MORB/ 20937 MORE/ 21596 ***** UNRESOLVED ENTRIES 11251SDL2/ 18281TP10/ 18401 PHASE IBTRANSIT 18401 BASE1 21596 TITLE IBTRANSIT 21596 REL FACTOR 21596 MUEP/ 22110 SMUP/ 22111 MTW1/ 22550 MTWW/ 22560 MTWX/ 22559 MCLO/ 22561 MC01/ 22660 MC02/ 22668 MC03/ 22676 MC04/ 22702 MC05/ 22717 MINC/ 23010 MINB/ 23033 MESB/ 23254 MES2/ 23278 TITLE IBPHT00001 23414 REL FACTOR 23414 TITLE IBPHT00002 23457 REL FACTOR 23457 TITLE IBPHT00003 23527 REL FACTOR 23527 TITLE IBPHT00004 23597 REL FACTOR 23597 TITLE IBPHT00005 23667 REL FACTOR 23667 TITLE IBPHT00006 23695 REL FACTOR 23695 XYND/ 23694 TITLE IBFILE1T 23695 REL FACTOR 23695 RARS/ 23695 XSTP/ 23792 TITLE IBFILE2T 23865 REL FACTOR 23865 TITLE IBFILE3T 23945 REL FACTOR 23945 TITLE IBFILE4T 24025 REL FACTOR 24025 XDNE/ 24024 TITLE IBREADMOCC 24025 REL FACTOR 24025 RDMN/ 24033 YPRT/ 24677 MERC/ 24887 MCPO/ 24896 MJOB/ 24968 MCHG/ 26186 TITLE IBSCANM 27084 REL FACTOR 27084 SCNI/ 27092 SCAN/ 27194 MSC9/ 27497 TITLE IBEXEQM 27519 REL FACTOR 27519 MEXE/ 27640 MRJS/ 28649 TITLE IBIOATMVAR 29486 REL FACTOR 29486 MASN/ 29494 MWTX/ 30641 MWTY/ 31067 MWTZ/ 31332 MC1M/ 35445 MASJ/ 35586 MNAV/ 36068 MAVL/ 36177 MASI/ 36205 TITLE IBSEARCHT 36915 REL FACTOR 36915 MSEQ/ 36923 MCOM/ 37379 TITLE IBACCOUNT 38542 REL FACTOR 38542 TITLE IBPOWTRAN 38564 REL FACTOR 38564 UWPR/ 38653 UMDT/ 38679 UMDM/ 38705 UWPU/ 38751 ***** CORE EXCEEDED ~39988~00051~* 1401 P.O.W. PERMANENT READ ERROR ON ABOVE RECORD ~~ 1039 @ TITLE IBSPLNITER 40116 REL FACTOR 40116 SPAS/ 40116 SPAR/ 41435 SPCI/ 42052 ***** UNRESOLVED ENTRIES 31961TMDT/ 31930TMDT/ 31889TMDT/ 31863TMDT/ 21604 ***** 24831TP20/ 29927TPOP/ 31975TMDT/ 31989TMDT/ ***** 32002TMDT/ 33162/MDT/ 33307/MDT/ 33445/MDT/ ***** 34233TMDR/ 34240TMDL/ 34252TMDT/ 34264TMDL/ ***** 34276TMDR/ 34624/MDT/ 34808/MDT/ 34962/MDT/ ***** 35231TMDN/ 35237TMDL/ 35248TMDS/ 35261TMDT/ ***** 35273TMDS/ 35285TMDL/ 35316TMDS/ 35323TMDN/ ***** 35335TMDT/ 35347TMDS/ 36892TMDT/ 38745/MDT/ ***** 40269SIP1/ 40434BUP1/ 40440BPA1/ 40533SIP1/ ***** 40568/SK1/ 40580SP1C/ 40592SP1O/ 40599SPC1/ ***** 40605BPA1/ 40624SPH1/ 40630BPX1/ 40754SOP1/ ***** 40813SA1B/ 40844SA1B/ 40849SPE1/ 40868SPF1/ ***** 40880SPI1/ 40892SPL1/ 40904SPT1/ 40916SPU1/ ***** 41004SP1C/ 41016SP1O/ 41140SA1B/ 41242SA2B/ ***** 41273SA2B/ 41278SPE2/ 41297SPF2/ 41309SPI2/ ***** 41333SPT2/ 41345SPU2/ 41364SA2B/ 41718SPH2/ ***** 41724BPX2/ 41861SA1B/ 41866SA2B/ 41875/SC1/ ***** 41885/SP1/ 41895/SC1/ 41936/S13/ 41941/S11/ ***** 41951/S10/ 41956/S19/ 41961/S18/ 41971/S23/ ***** 41976/S21/ 41986/S20/ 41991/S29/ 41996/S28/ PHASE 42132 PRTCT 99999 UNRESOLVED ENTRIES NONE 21604 PHASE LINKLOAD 18401 BASE1 18500 TITLE IBLNKPROC 18500 REL FACTOR 18500 HREE/ 26468 DECI/ 19909 MARK/ 19256 SYMT/ 19240 IRAI/ 19282 RECT/ 19361 FWDR/ 19264 POTT/ 20238 EXQQ/ 20239 MOVM/ 19265 PRES/ 19346 BSEA/ 19293 NAME/ 19374 REFS/ 19363 PLAC/ 19364 LOOK/ 24883 HIGH/ 19288 PATC/ 19379 REFW/ 19362 KONT/ 23899 PRNT/ 19123 SYSG/ 19638 PRTC/ 19303 FNLX/ 18762 KNFL/ 18509 BAS2/ 19246 WPRB/ 27308 PPUR/ 26499 BAS1/ 19293 UNDH/ 19661 PRT6/ 19106 LOWV/ 19673 HGHV/ 19678 HLD2/ 19688 CMPR/ 28595 LEFC/ 19654 LEFB/ 19659 NCMN/ 28704 TITLE IBLNKGOTAP 28899 REL FACTOR 28899 RDGO/ 29141 ISGO/ 29106 SWCC/ 29156 GOPR/ 29488 NOLI/ 29000 TITLE IBLNKINTAP 29500 REL FACTOR 29500 EOMW/ 33667 INLI/ 29694 INGO/ 29703 COMD/ 32090 COMW/ 33588 LBGO/ 32134 ACOM/ 33703 STDR/ 32150 INPU/ 31885 FORD/ 33942 FORC/ 33879 MAST/ 32119 NPHA/ 32526 SUPP/ 33678 ONLY/ 33688 HISO/ 33697 INET/ 29908 SPPR/ 33848 SETR/ 32558 SETT/ 32702 SIUF/ 32799 TITLE IBLNKOUTAP 34010 REL FACTOR 34010 BLCN/ 39518 BLWR/ 38346 LDAR/ 39514 LOAD/ 39520 OUTP/ 37273 PCHT/ 35138 PHAS/ 37572 ERRD/ 35086 BASE1 39600 TITLE IBCOUPLE 39600 REL FACTOR 39600 ***** CORE EXCEEDED ~39961~00043~J01061S~C000@001259~J01079S~,00000~D000W000079L~~ A')1)1015 @ CDAR/ 41600 CLCN/ 41604 COAD/ 41606 CPLE/ 40763 CPLI/ 39600 ***** UNRESOLVED ENTRIES 28848EXBR/ 28421EXBR/ 34851/MBF/ 34117 UNRESOLVED ENTRIES NONE 34117 PHASE IBMLIBR 18401 UNRESOLVED ENTRIES NONE 34117 PHASE IBTRANSIT 18401 UNRESOLVED ENTRIES NONE 34117 PHASE 18401 UNRESOLVED ENTRIES NONE 34117 PHASE SG2 18401 BASE1 18500 TITLE IBSYSGEN2 18500 REL FACTOR 18500 UNRESOLVED ENTRIES NONE 19165 PHASE SG5 18401 TITLE IBSG5 18401 REL FACTOR 18401 EDRT/ 29784 TENI/ 28321 TSIU/ 25914 TTIO/ 30832 TCLO/ 31956 CLER/ 32055 AMSC/ 28290 PRNT/ 30924 DISW/ 28268 DDIO/ 30663 MING/ 31800 MIN1/ 18777 MIN2/ 23778 MRWD/ 31930 ENCT/ 28354 DOAC/ 32146 DSIU/ 25995 DGET/ 32321 CONS/ 32349 EDSW/ 29760 OOW1/ 32775 OOW2/ 32802 OIW4/ 32829 CIW4/ 32856 LABA/ 18469 MDNL/ 28413 SIUN/ 28170 DRET/ 32247 G5ND/ 33032 ***** UNRESOLVED ENTRIES 28304/MBF/ 29414 PHASE 33033 BASE1 33032 TITLE IBSG5D 33032 REL FACTOR 33032 ***** UNRESOLVED ENTRIES 33087/MMD/ 33881/MMD/ 35332/MMD/ 39844/MBX/ 33032 ***** 39886/MBF/ PHASE 39937 BASE1 33032 TITLE IBSG5T 33032 REL FACTOR 33032 UNRESOLVED ENTRIES NONE 33032 PHASE 39330 BASE1 33032 TITLE IBSG5E 33032 REL FACTOR 33032 ***** UNRESOLVED ENTRIES 37565/MBF/ 37570 PHASE IBTRANSIT 18401 UNRESOLVED ENTRIES NONE 37570 PHASE 18401 UNRESOLVED ENTRIES NONE 37570 PHASE AUTOCODER 18401 BASE1 18500 TITLE IBAU10COMM 18500 REL FACTOR 18500 TERM/ 18518 FZNO/ 18794 CAUS/ 18706 TKAD/ 18805 LBCT/ 18811 LBC1/ 18810 MJBF/ 18812 EXOP/ 18813 NFLG/ 18814 SYMH/ 18819 SYML/ 18824 LITH/ 18829 SYMS/ 18834 SYS4/ 18830 LACO/ 18840 PSTI/ 18841 LITL/ 18846 SYMC/ 18851 PAST/ 18852 B0OO/ 18853 COMM/ 18852 TITLE IBAU10INPT 19200 REL FACTOR 19200 DFTB/ 19603 DRCT/ 22514 DRCA/ 20355 MTBL/ 23721 CDAR/ 26103 CD74/ 26177 CD79/ 26182 TITLE IBAU10TPE1 27400 REL FACTOR 27400 GETR/ 28531 PUTR/ 28711 FINI/ 28803 OPM1/ 28822 CLM1/ 28849 DTFR/ 28876 DTFW/ 28964 TITLE IBAU10TPE2 29400 REL FACTOR 29400 MTWO/ 31705 LDIR/ 32203 TITLE IBAU10IOTB 32715 REL FACTOR 32715 INDX/ 32739 DFB1/ 32740 DFNM/ 33055 DFA1/ 33239 DFLB/ 34008 UNRESOLVED ENTRIES NONE 23722 PHASE 36935 UNRESOLVED ENTRIES NONE 23722 PHASE 36935 UNRESOLVED ENTRIES NONE 23722 PHASE 36935 BASE1 20355 TITLE IBAU20GENR 20355 REL FACTOR 20355 BASE1 20400 INPL/ 27851 INPC/ 27925 INPR/ 27930 OTPR/ 28032 MACW/ 28100 MNAM/ 30565 TITLE IBAU20TPE1 33100 REL FACTOR 33100 INIT/ 35186 CLOZ/ 35250 GETR/ 35314 PUTR/ 35574 GETF/ 35697 MWUN/ 35928 MWER/ 35880 MWEF/ 35868 TITLE IBAU20TPE2 36000 REL FACTOR 36000 LOPN/ 38311 LCLZ/ 38331 GETM/ 38351 MADS/ 38570 GETL/ 38575 UNRESOLVED ENTRIES NONE 20419 PHASE 38677 BASE1 19200 TITLE IBAU30ASGN 19200 REL FACTOR 19200 ERRM/ 24784 SCRM/ 20269 LONC/ 24584 LITT/ 24898 SYMO/ 24546 SYM8/ 24538 SYM9/ 24537 LOC4/ 24532 LOCO/ 24536 LOC3/ 24533 LOC1/ 24535 LOC5/ 24531 NORE/ 24489 CLAR/ 24508 IR15/ 20179 SETU/ 19635 HACO/ 24893 EXIR/ 20495 LCOO/ 24591 ENDI/ 25013 IMPT/ 21263 SYMR/ 24546 LOCR/ 24536 AIN1/ 20473 TITLE IBAU30SCAN 25039 REL FACTOR 25039 STWM/ 30849 CLWM/ 30998 SCAN/ 25057 FIEL/ 31210 LONL/ 31209 LBFL/ 31231 SVZN/ 31157 BAS1/ 31266 TITLE IBAU30TPE1 31447 REL FACTOR 31447 PT30/ 33532 GT30/ 33600 OP3A/ 33668 OP3B/ 33695 CL3A/ 33722 CL3B/ 33749 IOMD/ 33823 TITLE IBAU30SUBR 33851 REL FACTOR 33851 SUBR/ 34609 SETR/ 34566 PUTM/ 33911 PUTS/ 33869 GETS/ 33883 ENTL/ 33897 UNRESOLVED ENTRIES NONE 19218 PHASE 34610 BASE1 33851 TITLE IBAU33SUBR 33851 REL FACTOR 33851 HIGH/ 34341 TITLE IBAU33TPE1 34346 REL FACTOR 34346 NOMO/ 35100 OPER/ 34967 CLOR/ 34994 PT31/ 35021 TITLE IBAU33RCUR 35225 REL FACTOR 35225 UNRESOLVED ENTRIES NONE 35243 PHASE 36430 BASE1 19200 TITLE IBAU40OTPT 19200 REL FACTOR 19200 WORK/ 20971 RTWK/ 21130 PROC/ 21413 LCNT/ 21295 NRCR/ 19395 HEDR/ 19269 BAS5/ 19270 SYMB/ 19378 TITLE IBTOCGM 30480 REL FACTOR 30480 MOCG/ 30488 TITLE IBTPCGM 30658 REL FACTOR 30658 MPCG/ 30666 TITLE IBTCCGM 30837 REL FACTOR 30837 MCCG/ 30845 TITLE IBTNCGM 31038 REL FACTOR 31038 ZCGL/ 31050 ZCGR/ 31058 ZCGO/ 31066 ZCGS/ 31071 ZCT1/ 31136 ZCT2/ 31166 MCGP/ 31169 BASE1 31400 TITLE IBAU40TPE1 31400 REL FACTOR 31400 INSM/ 34OW8 OUSM/ 34Q29 INWK/ 34653 OUWK/ 34814 RLSM/ 34375 CLOU/ 34173 OPOU/ 34140 OPIN/ 34031 CLIN/ 34095 GRCD/ 34415 PRCD/ 34501 PSYM/ 34220 GSYM/ 33643 FLIP/ 33922 TYPE/ 34581 ABLO/ 35239 UNRESOLVED ENTRIES NONE 19396 PHASE 35240 BASE1 19270 TITLE IBAU50TPE1 19270 REL FACTOR 19270 BASE1 19300 OPO5/ 21335 OPI5/ 21368 CLO5/ 21434 CLI5/ 21479 FLI5/ 21834 OPEX/ 21401 CLEX/ 21524 PTWK/ 21569 GTWK/ 21649 GEXP/ 21729 RECD/ 00?00 RCRT/ 00A59 OUWD/ 00!J4 FLWD/ 00!A4 PTEX/ 21642 TITLE IBAU50CREF 22000 REL FACTOR 22000 EOFA/ 24146 EOFB/ 22275 LAST/ 22501 PRIN/ 22444 UNRESOLVED ENTRIES NONE 22788 PHASE IBTRANSIT 18401 UNRESOLVED ENTRIES NONE 22788 PHASE 18401 UNRESOLVED ENTRIES NONE 22788 PHASE SG1 18401 BASE1 18500 TITLE IBSYSGEN1 18500 REL FACTOR 18500 UNRESOLVED ENTRIES NONE 18508 PHASE 33601 UNRESOLVED ENTRIES NONE 18508 PHASE CREATLIB 18401 UNRESOLVED ENTRIES NONE 18508 PHASE IBTRANSIT 18401 UNRESOLVED ENTRIES NONE 18508 PHASE 18401 UNRESOLVED ENTRIES NONE 18508 PHASE SORTDEFINE 18401 TITLE IBSRTDEFIN 18401 REL FACTOR 18401 UNRESOLVED ENTRIES NONE 18494 PHASE IBTRANSIT 18401 UNRESOLVED ENTRIES NONE 18494 PHASE 18401 UNRESOLVED ENTRIES NONE 18494 PHASE COBOL 18401 TITLE IBTNCGM 18401 REL FACTOR 18401 ZCGL/ 18413 ZCGR/ 18421 ZCGO/ 18429 ZCGS/ 18434 ZCT1/ 18499 ZCT2/ 18529 MCGP/ 18532 TITLE IBCBLCSP01 18695 REL FACTOR 18695 GTSW/ 18696 P1SW/ 18697 T1SW/ 18698 SIUX/ 18703 EOFX/ 18709 ERRX/ 18721 SYM1/ 18735 SYM2/ 18740 CPNM/ 18743 MODE/ 18744 LNCT/ 18746 LINE/ 18748 HDRW/ 18749 CUID/ 18756 RCCT/ 18759 CDAT/ 18764 CX13/ 18769 OBID/ 18781 TITL/ 18784 LOCT/ 18789 HICT/ 18794 SQCK/ 18800 IPC1/ 18802 IPC5/ 18807 OLEE/ 18809 PRID/ 18816 NTFD/ 18817 ITER/ 18818 CRCT/ 18821 SIZE/ 18826 CUMU/ 18831 ADJU/ 18836 LOGE/ 18841 STOP/ 18846 MODD/ 18808 TITLE IBCBLCSP09 18847 REL FACTOR 18847 LNKL/ 18857 LNKA/ 18YW1 LNKB/ 18Q61 LNKJ/ 19356 TITLE IBCBLCSP02 19358 REL FACTOR 19358 CEOF/ 19385 CBUF/ 19421 CSIU/ 19366 PBUF/ 19430 PBF2/ 19431 CDNO/ 19436 RBUF/ 19438 COL6/ 19443 COL7/ 19444 COL8/ 19445 CL11/ 19448 CL15/ 19452 CL18/ 19455 CL19/ 19456 CL72/ 19509 CL73/ 19510 CL80/ 19517 TITLE IBCBLCSP03 19519 REL FACTOR 19519 CPR1/ 19616 CPRA/ 19563 CPRT/ 19527 TITLE IBTOCGM 19927 REL FACTOR 19927 MOCG/ 19935 TITLE IBCBLP0MF1 20105 REL FACTOR 20105 UNRESOLVED ENTRIES NONE 20113 PHASE 21029 BASE1 19927 TITLE IBTPCGM 19927 REL FACTOR 19927 MPCG/ 19935 TITLE IBCBLCST04 20106 REL FACTOR 20106 WRK3/ 20134 IOR3/ 20200 IOR4/ 20200 TITLE IBCBLCST05 20212 REL FACTOR 20212 COPO/ 20220 CPT3/ 20247 CCLO/ 20275 TITLE IBCBLP1MF1 20303 REL FACTOR 20303 BASE1 20400 ***** CORE EXCEEDED ~43508~00025~ ~ ~ ~ ~ ~~ 1534P1MF1@ TABA/ 43533 TAB4/ 43933 FLND/ 43522 BTAB/ 43517 TALT/ 43527 CDCT/ 43512 PDLT/ 43532 UNRESOLVED ENTRIES NONE 20408 PHASE 43533 PRTCT 20303 BASE1 20303 BASE1 20400 TITLE IBCBLP1MF2 20400 REL FACTOR 20400 NEXT/ 30963 P1F2/ 20400 UNRESOLVED ENTRIES NONE 20400 PHASE 43471 BASE1 20400 TITLE IBCBLCST06 20400 REL FACTOR 20400 COPI/ 20408 CGT3/ 20435 CCLI/ 20463 TITLE IBCBLP1MF3 20491 REL FACTOR 20491 UNRESOLVED ENTRIES NONE 20499 PHASE 22088 PRTCT 99999 BASE1 20106 TITLE IBCBLCST07 20106 REL FACTOR 20106 COPN/ 20114 CPTC/ 20203 CPTP/ 20178 CCLS/ 20559 PUFF/ 20558 WRK2/ 21605 DAT2/ 21628 TITLE IBCBLP2MF1 22515 REL FACTOR 22515 UNRESOLVED ENTRIES NONE 24049 PHASE 44652 BASE1 19358 TITLE IBCBLCST04 19358 REL FACTOR 19358 WRK3/ 19386 IOR3/ 19452 IOR4/ 19452 TITLE IBCBLCST06 19464 REL FACTOR 19464 COPI/ 19472 CGT3/ 19499 CCLI/ 19527 TITLE IBCBLCST07 19555 REL FACTOR 19555 COPN/ 19563 CPTC/ 19652 CPTP/ 19627 CCLS/ 20008 PUFF/ 20007 WRK2/ 21054 DAT2/ 21077 TITLE IBCBLCSP08 21964 REL FACTOR 21964 GUFF/ 22206 CGTC/ 21997 CGTP/ 21972 UNRESOLVED ENTRIES NONE 24049 PHASE 22213 TITLE IBCBLP2MF2 22213 REL FACTOR 22213 UNRESOLVED ENTRIES NONE 22221 PHASE 23354 BASE1 22213 TITLE IBCBLP2MF3 22213 REL FACTOR 22213 UNRESOLVED ENTRIES NONE 22221 PHASE 28080 BASE1 22213 TITLE IBCBLP2MF4 22213 REL FACTOR 22213 UNRESOLVED ENTRIES NONE 22221 PHASE 34476 BASE1 18809 TITLE IBTPCGM 18809 REL FACTOR 18809 MPCG/ 18817 BASE1 19000 TITLE IBCBLP3MF1 19000 REL FACTOR 19000 CBLX/ 44403 IAR1/ 44958 OAR1/ 45359 CBOR/ 45178 CBCR/ 27513 CBLT/ 43691 TITLE IBCBLP3T01 45890 REL FACTOR 45890 CBLO/ 45890 CBLY/ 46018 CBLP/ 46151 CBLC/ 45971 UNRESOLVED ENTRIES NONE 45125 PHASE 46534 BASE1 19000 TITLE IBCBLCSP03 19000 REL FACTOR 19000 CPR1/ 19097 CPRA/ 19044 CPRT/ 19008 TITLE IBCBLCST07 19408 REL FACTOR 19408 COPN/ 19416 CPTC/ 19505 CPTP/ 19480 CCLS/ 19861 PUFF/ 19860 WRK2/ 20907 DAT2/ 20930 TITLE IBCBLCSP08 21817 REL FACTOR 21817 GUFF/ 22059 CGTC/ 21850 CGTP/ 21825 TITLE IBTCCGM 22066 REL FACTOR 22066 MCCG/ 22074 TITLE IBCBLP4MF1 22267 REL FACTOR 22267 UNRESOLVED ENTRIES NONE 28025 PHASE 31077 TITLE IBCBLP5MF1 31077 REL FACTOR 31077 UNRESOLVED ENTRIES NONE 31085 PHASE IBTRANSIT 18401 UNRESOLVED ENTRIES NONE 31085 PHASE 18401 UNRESOLVED ENTRIES NONE 31085 PHASE FORTRAN 18401 TITLE IBFTNCMN 18401 REL FACTOR 18401 FMPS/ 18409 FLCT/ 18414 FTND/ 18419 FSND/ 18424 FLBX/ 18434 FACX/ 18439 FLBY/ 18449 FACY/ 18454 FLBZ/ 18464 FACZ/ 18469 FTSZ/ 18471 FIXS/ 18473 FLTS/ 18475 FCDC/ 18479 FPHD/ 18480 FOCG/ 18481 FMPN/ 18491 FCCC/ 18496 FCMN/ 18497 TITLE IBFTN05TO 18497 REL FACTOR 18497 F05F/ 19867 F05P/ 19890 F05S/ 19973 BASE1 20000 TITLE IBFTN05 20000 REL FACTOR 20000 ***** CORE EXCEEDED ~39994~00040~A2054900039~C2053720555~J19686U~C2053720553~~ 4)431703FTN05@ UNRESOLVED ENTRIES NONE 20008 PHASE 40565 BASE1 18497 TITLE IBTPCGM 18497 REL FACTOR 18497 MPCG/ 18505 TITLE IBTCCGM 18676 REL FACTOR 18676 MCCG/ 18684 TITLE IBTNCGM 18877 REL FACTOR 18877 ZCGL/ 18889 ZCGR/ 18897 ZCGO/ 18905 ZCGS/ 18910 ZCT1/ 18975 ZCT2/ 19005 MCGP/ 19008 TITLE IBTOCGM 19171 REL FACTOR 19171 MOCG/ 19179 TITLE IBFTN10TO 19349 REL FACTOR 19349 FOUF/ 19377 FOUP/ 19400 TITLE IBFTN10TI 20482 REL FACTOR 20482 FINF/ 20510 FINP/ 20533 BASE1 22100 TITLE IBFTN10 22100 REL FACTOR 22100 UNRESOLVED ENTRIES NONE 24846 PHASE 37770 BASE1 19179 TITLE IBFTN20TO 19179 REL FACTOR 19179 FOUF/ 19207 FOUP/ 19230 TITLE IBFTN20TI 20312 REL FACTOR 20312 FINF/ 20340 FINP/ 20363 TITLE IBFTN20 21515 REL FACTOR 21515 UNRESOLVED ENTRIES NONE 21523 PHASE 33997 BASE1 19179 TITLE IBFTN25TI 19179 REL FACTOR 19179 FINF/ 19207 FINP/ 19230 BASE1 20400 TITLE IBFTN25 20400 REL FACTOR 20400 UNRESOLVED ENTRIES NONE 38600 PHASE IBTRANSIT 18401 UNRESOLVED ENTRIES NONE 38600 PHASE 18401 UNRESOLVED ENTRIES NONE 38600 PHASE UTILITIES 18401 TITLE IBLOOKM 18401 REL FACTOR 18401 TITLE IBUTILITY 18892 REL FACTOR 18892 TEST/ 18892 UKCI/ 18893 UKRD/ 18919 UKNR/ 18980 UKER/ 19149 UKCO/ 19191 UKPR/ 19253 UKCP/ 19300 UKSP/ 19333 UKR1/ 19559 KARD/ 19560 UK16/ 19575 KA19/ 19578 UK21/ 19580 UTIL/ 20078 ***** UNRESOLVED ENTRIES 18862/MT0/ 18919 PHASE 20079 BASE1 20078 TITLE IBUTILSCAN 20078 REL FACTOR 20078 UNRESOLVED ENTRIES NONE 20078 PHASE 25225 BASE1 20078 TITLE IBTAPEDUMP 20078 REL FACTOR 20078 UNRESOLVED ENTRIES NONE 20078 PHASE 25862 BASE1 20078 TITLE IBDISKDUMP 20078 REL FACTOR 20078 UNRESOLVED ENTRIES NONE 24107 PHASE 30136 BASE1 20078 TITLE IBCOREDCTL 20078 REL FACTOR 20078 UCFT/ 20098 UCS1/ 20186 UCER/ 21163 UCCI/ 21186 UCGT/ 21478 UCBG/ 21864 UCND/ 21873 UCWL/ 20209 TITLE IBCOREDUMP 22038 REL FACTOR 22038 UCLB/ 25349 UCAR/ 26236 UCWK/ 27174 UCS2/ 22038 UNRESOLVED ENTRIES NONE 20186 PHASE 27174 BASE1 20078 TITLE IB01FAGEN 20078 REL FACTOR 20078 BASE1 20100 PRNT/ 20893 RDHA/ 20295 RDRE/ 20550 TITLE IBADDRESR 34040 REL FACTOR 34040 RAXF/ 34052 RAFF/ 34045 UNRESOLVED ENTRIES NONE 30279 PHASE 34090 BASE1 20078 TITLE IB11ADRGEN 20078 REL FACTOR 20078 UNRESOLVED ENTRIES NONE 26560 PHASE 28340 BASE1 20078 TITLE IBFILESAVE 20078 REL FACTOR 20078 UNRESOLVED ENTRIES NONE 26223 PHASE 39181 BASE1 20078 TITLE IBFILEREST 20078 REL FACTOR 20078 UNRESOLVED ENTRIES NONE 32160 PHASE 37842 BASE1 20078 TITLE IB02FAGEN 20078 REL FACTOR 20078 BASE1 20100 PRNT/ 20900 RDHA/ 20295 RDRE/ 20557 ***** CORE EXCEEDED ~39998~00003~MW1~~ 108302FGN@ TITLE IBADDRESR 43546 REL FACTOR 43546 RAXF/ 43558 RAFF/ 43551 UNRESOLVED ENTRIES NONE 39607 PHASE 43596 BASE1 20078 TITLE IBFILEGEN 20078 REL FACTOR 20077 ***** UNRESOLVED ENTRIES 40087/LLA/ 40092/LLA/ 32091 PHASE LABEL1311 18401 TITLE IB1311LBL1 18401 REL FACTOR 18401 TITLE IB1311LBL2 18626 REL FACTOR 18626 PDET/ 21441 PRMS/ 24234 XTBR/ 24504 SEOP/ 24900 TITLE IBLOOKM 25072 REL FACTOR 25072 ***** UNRESOLVED ENTRIES 25533/MT0/ 18487 PHASE MACROPRT 18401 BASE1 18500 TITLE IBPRINTMT 18500 REL FACTOR 18500 RSOF/ 18508 RDA2/ 18801 TITLE IBPRINTM 21000 REL FACTOR 21000 CNTR/ 27515 DIAR/ 29976 TITLE IBLOOKM 32350 REL FACTOR 32350 ***** UNRESOLVED ENTRIES 32811/MT0/ 18500 PHASE IBTRANSIT 18401 UNRESOLVED ENTRIES NONE 18500 PHASE 18401 UNRESOLVED ENTRIES NONE 18500 PHASE SG3 18401 BASE1 18500 TITLE IBUPPER 18500 REL FACTOR 18500 ***** CORE EXCEEDED ~45665~00010~MW4 HA ~~ 1013UPPER@ TITLE IBLOOKM 45926 REL FACTOR 45926 ***** UNRESOLVED ENTRIES 46387/MT0/ 18508 PHASE DSRTDEFINE 18401 TITLE IBDSRTDEF 18401 REL FACTOR 18401 UNRESOLVED ENTRIES NONE 18494 PHASE IBTRANSIT 18401 UNRESOLVED ENTRIES NONE 18494 PHASE 18401 UNRESOLVED ENTRIES NONE 18494 MON$$ EXEQ SG2 L9 @ CREATLIB LIBRARY BLOCK AND NAME 0001 TMONITOR 0002 RESTART 0003 TSRTDEFIN 0004 TLINKLOAD 0005 SYSGEN3 0006 TAUTOCODE 0008 TCOBOL 0011 TFORTRAN 0012 UTILITIES 0014 TSYSGEN1 0015 TSYSGEN2 0016 TMACROPRT 0017 DMONITOR 0018 DLINKLOAD 0019 DAUTOCODE 0021 DCOBOL 0024 DFORTRAN 0025 DSYSGEN1 0026 DSYSGEN2 0027 DMACROPRT 0028 DSKLIBLDR 0029 TSYSTEM 0037 DSYSTEM 0044 LINKLOADTD 0045 LINKLOADDT 0046 TMONTP1 0047 TMONTP2 0048 DMONTP1 0049 DMONTP2 0050 IBSGDL 0051 TTRANSIT 0052 LINKLOADRD 0053 LINKLOADRT 0054 TCLINKLOAD 0055 DCLINKLOAD 0056 DSRTDEFIN 0057 LABEL1311 0058 SG4TD 0059 SG5TD 0060 DEFINE 0061 9999999999 IBMLIBR LIBRARY NAME CDC49 IBFOSCTL1 CDC49 IBFOSCTL2 BAB4C IBFOSLOAD0 BAB4C IBFOSLOAD1 BAB4C IBFOSLOAD2 BBB4D IBFOSADD BBB4D IBFOSADD2 AAA4B IBFOSUNLOD AAA4A IBFOSOOF EBE46 IBFOSCOF BBC48 IBFOSDG BBB4D IBFOSSG AAB48 IBFOSYSDEF BAB4A SNAPSHOT 00001 IBSRTCOMAN AI003 IBSRTPRIME 00A04 IBSRTCTLCD BAB4C IBSRTGASSR 00001 IBSRTGASM3 00001 IBSRTDUM00 00001 IBSRTEQUAL AAA47 IBSRTIO101 AAA4A IBSRTIO102 AAA47 IBSRTIO104 AAA4A IBSRTIO105 00001 IBSRTREPLT 00001 IBSRTREPLQ AAA47 IBSRTIO103 AAA47 IBSRTIO106 00001 IBSRTP1ASN 00001 IBSRTDUM01 00001 IBSRTEQASN 00001 IBSRTIO109 AAA4B IBSRTIO110 AI003 IBSRTIO107 00001 IBSRTIO108 BBB4E IBSRTIO203 BBB4D IBSRTIO201 00001 IBSRTMNTS2 00001 IBSRTMNTM2 AI003 IBSRTRPPH2 00001 IBSRTIO205 00001 IBSRTIO206 00001 IBSRTDUM02 AI003 IBSRTAMRG2 AI003 IBSRTIO204 AI003 IBSRTIO202 CBD48 IBSRTIO314 00001 IBSRTIO301 BBB4E IBSRTIO302 BBC48 IBSRTIO305 AAA4B IBSRTIO306 00001 IBSRTIO399 BAB4C IBSRTMNTM3 BAB4C IBSRTMNTS3 CDD04 IBSRTRMRG3 CC003 IBSRTLKAD3 BBB4D IBSRTIO303 CBD48 IBSRTIO304 00001 IBSRTSQTG3 00001 IBSRTDUM03 00001 IBSRTEQASN 00001 IBSRTSUPH3 FA003 IBSRTAMRG3 AAA4A IBSRTIO307 BAB4C IBSRTIO308 00001 IBSRTIO310 RQQ04 IBSRTIO311 00001 IBSRTIO312 00001 IBSRTIO309 BG003 IBDSRTCOMN BB003 IBDSRTPTTP BBC48 IBDSRTPRIM AAA46 IBDSRTGA01 NMM04 IBDSRTGA02 BB003 IBDSRTGADM BB003 IBDSRTEQAL CBC4C IBDSRTRPP1 BB003 IBDSRTOCF1 BB003 IBDSRTMCF1 BBB4E IBDSRTIOJ1 FA003 IBDSRTIOK1 BB003 IBDSRTIOL1 BBB4E IBDSRTIOM1 00A43 IBDSRTAP21 BB003 IBDSRTDUM1 BB003 IBDSRTEQAS BAB4C IBDSRTAP11 BB003 IBDSRTIOA1 FA003 IBDSRTIOC1 IA003 IBDSRTIOE1 IA003 IBDSRTIOB1 BB003 IBDSRTIOD1 BBB4D IBDSRTIOF1 BB003 IBDSRTOCF2 BB003 IBDSRTMCF2 BBB4E IBDSRTRPP2 CDC49 IBDSRTAP12 BB003 IBDSRTOCF3 BB003 IBDSRTMCF3 BB003 IBDSRTRP13 BBC48 IBDSRTRP23 BB003 IBDSRTRP33 DA003 IBDSRTRP43 AAB48 IBDSRTRP53 BB003 IBDSRTRP63 DA003 IBDSRTRP73 BB003 IBDSRTRP83 BB003 IBDSRTRP93 BB003 IBDSRTIOR1 BBB4D IBDSRTHS13 BB003 IBDSRTDUM3 BBB4D IBDSRTAP13 AAB48 IBDSRTAP23 BB003 IBDSRTAP33 BB003 IBDSRTAP43 AAA4B IBDSRTAP53 CA003 CHAIN AI003 RETURN BBB4D IBCOBOL BAB4C IBCBLADOVR AI003 IBCBLDSPLY BBB4D IBCBLCMPAR AI003 IBCBLFLDMP 00001 IBCBLALTST CAA45 IBCBLSUBSC AI003 IBCBLACCPT AI003 IBCBLEXPON BBB4D IBCBLRDINT AI003 IBCBLDVZER BBB4D IBCBLCLEAR AAA4A IBINTRP 00001 OVERFL 00001 DVCHK 00001 IBINTRP AAA4A IBCOMMON 00001 IBLABEL 00001 IBFOERR 00001 IBINDX1 00001 IBINDX2 00001 IBINDX3 00001 IBEXPFI 00001 IBEXPFF 00001 ALOG 00001 EXP 00001 EXIT 00001 AMAX0 00001 AMIN0 00001 FLOAT 00001 MAX1 00001 MIN1 00001 INT 00001 IFIX 00001 IBEXPII 00001 IBBACKSP 00001 IBREWIND 00001 IBENDFILE AAA4A SQRT 00001 ABS 00001 IABS 00001 AMAX1 00001 MAX0 00001 AMIN1 00001 MIN0 00001 COS BAB41 SIN 00001 AMOD 00001 AINT 00001 SIGN 00001 ISIGN 00001 MOD 00001 DIM 00001 IDIM CAA45 ATAN 00001 SLITE 00001 SLITET AAA4B IBRANDOM 00001 IBRANDOM2 00001 IBRANDOM3 AAA4B IBRANDOM4 00001 IBRANDOM5 00001 IBRANDOM6 FA003 IBLOOKM QRR04 IBCYLOFLO QRR04 IBSCAN1311 CCC4E IBMVERSION 00001 IBZRRTP 00001 IBBSPTP BBC47 IBSIMTP 00001 IBABTPM CDC49 IBABDKM 00001 IBRDSIU AI003 IBPRTUR AI003 IBPRTTP 00A04 IBPRTVAR 00001 IBPRTNONE AI003 IBPCHUR AI003 IBPCHTP 00A04 IBPCHVAR 00001 IBPCHNONE 00001 IBPPCOMMON 00001 IBREADAIU DBD46 IBIOARM AAA4A IBAINQUIRY CDC49 IBZRRDK 00001 IBSIMDK CDC49 TPPTCCH1 CDC49 TPPTCCH2 00001 TPSTARTCH1 AAA4B TP1050CH10 AAA4B TP1050CH11 AAA46 TP7770CH1 CDC49 TP1015CH1 AAA4B TP1009CH1 AAA4B TP1014CH10 AAA4B TP1014CH11 AAA4B TPTELCH10 AAA4B TPTELCH11 AAA4B TPTELCH12 BBC48 TPENDCH1 00001 TPSTARTCH2 AAA4B TP1050CH20 AAA4B TP1050CH21 AAA46 TP7770CH2 CDC49 TP1015CH2 AAA4B TP1009CH2 AAA4B TP1014CH20 AAA4B TP1014CH21 AAA4B TPTELCH20 AAA4B TPTELCH21 AAA4B TPTELCH22 BBC48 TPENDCH2 AI003 TPSUPER AI003 TPSUPERDR AI003 TPSUPERTPO AI003 TPSUPERDDR AAA4A TPBASSUPER BBB4D TPTAPEDUMP BBB4D TPDISKDUMP CC003 TPONLY CAB45 TPTAPELDRA AAA46 TPTAPELDRR BBB4D TPDISKLDRA AAA46 TPDISKLDRR BAB4C TPLDRDEP 00B43 TPLDRRPROC 00A43 TPLDRDEP BBB4D IBREADMOCC 00001 IBSCANM AAA4A IBEXEQM BBB4E IBIOATM BBB4E IBIOATMVAR B0003 IBSEARCHT 00001 IBACCOUNT BBB4D IBPOWTRAN 00001 IBSEARCHD AAB48 IBSPLNITER 00A43 IBSRTDEFIN QRR04 IBDSRTDEF BBB4E IBLNKPROC HCH45 IBLNKGOTAP BBB4D IBLNKINTAP B0003 IBLNKOUTAP AAB48 IBLNKGODSK BBB4D IBLNKINDSK 00A44 IBLNKOUDSK AAA4A IBCOUPLE BBB4D IBUPPER 00001 IBAU10COMM BAB4C IBAU10INPT AAA4B IBAU10TPE1 AI003 IBAU10TPE2 BAB4C IBAU10IOTB BBB4E IBAU20GENR AAA4B IBAU20TPE1 00001 IBAU20TPE2 TSS04 IBAU30ASGN AAA4B IBAU30SCAN AI003 IBAU30TPE1 B0003 IBAU30SUBR 00001 IBAU33SUBR AI003 IBAU33TPE1 00001 IBAU33RCUR BAB4A IBAU40OTPT 00001 IBTOCGM 00001 IBTPCGM 00001 IBTCCGM 00001 IBTNCGM 00001 IBDOCGM 00001 IBDPCGM 00001 IBDCCGM 00A44 IBDNCGM AI003 IBAU40TPE1 UST04 IBAU50TPE1 BBB4D IBAU50CREF AAA4B IBAU10DSK1 00001 IBAU10DSK2 00A44 IBAU10DSK3 AAA4B IBAU20DSK1 00001 IBAU20DSK2 00A44 IBAU20DSK3 CDC49 IBAU30DSK1 00A44 IBAU33DSK1 AAB48 IBAU40DSK1 AAB48 IBAU50DSK1 BAB4C IBCBLCSP01 00001 IBCBLCSP09 00001 IBCBLCSP02 BAB4C IBCBLCSP03 BAB4C IBCBLP0MF1 00001 IBCBLCST04 00001 IBCBLCST05 CDC49 IBCBLP1MF1 BBB4D IBCBLP1MF2 00001 IBCBLCST06 BBB46 IBCBLP1MF3 00001 IBCBLCST07 BBB4D IBCBLP2MF1 00001 IBCBLCSP08 BBB4E IBCBLP2MF2 BBB4E IBCBLP2MF3 BBB4E IBCBLP2MF4 BBB4D IBCBLP3MF1 00001 IBCBLP3T01 BBB4D IBCBLP4MF1 BAB4C IBCBLP5MF1 00A44 IBCBLCSD04 00001 IBCBLCSD05 00001 IBCBLCSD06 HCH45 IBCBLCSD07 HCH45 IBCBLP3D01 AAB48 IBFTNCMN 00001 IBFTN05TO BBB4E IBFTN05 00001 IBFTN10TO 00001 IBFTN10TI BBB4E IBFTN10 00002 IBFTN20TO CDC49 IBFTN20TI AAB48 IBFTN20 CDC49 IBFTN25TI AAA4A IBFTN25 00A44 IBFTN05DO 00A44 IBFTN10DO 00A44 IBFTN10DI 00A44 IBFTN20DO CDC49 IBFTN20DI CDC49 IBFTN25DI BAB4B IBUTILITY 00H44 IBUTILSCAN BAB4C IBTAPEDUMP AAA4B IBDISKDUMP BAB4A IBCOREDCTL BBB4E IBCOREDUMP BBB4E IB01FAGEN NMM04 IB11ADRGEN CDD04 IB1311LBL1 TSS04 IB1311LBL2 00A44 IBADDRESR BAB4C IBFILESAVE BBB4D IBFILEREST BBB4E IB02FAGEN BBB4E IBFILEGEN QRR04 TPLDDCP1 00A43 TPLDDCP2 AAB48 IBSYSGEN1 AAB48 IBSYSGEN2 AAA4A IBDSYSGEN1 BBB4D IBDSYSGEN2 BBB4D IBDSYSGEN3 AAB48 IBSGLDLDR 00A44 SGDLBOOT CAB45 IBDLIO CAB45 IBDLIOA CAB45 IBDLIOB CAB45 IBDLIOC CAB45 IBDLIOD ECG48 IBSGDLDR BBC48 IBSG4 BAB4B IBSG5 00A43 IBSG5D MCM45 IBSG5T 00A43 IBSG5E 00001 IBPRINTMT 00001 IBPRINTMD ONN04 IBPRINTM AAA46 TPATLIBGEN AAA47 TPADLIBGEN B0003 TPLIBGENXT B0003 TPLIBGENXD CDD04 TPLIBGENXP 00001 9999999999 AUTOCODER LIBRARY BLOCK AND NAME 0001 GET 0005 IOCTL 0011 UNCTL 0012 DTF 0021 STDIO 0022 MONOP 0023 SYSIO 0024 GEN01 0025 GEN02 0029 GEN03 0031 GEN04 0033 GEN05 0035 GEN06 0037 GEN07 0042 GEN08 0096 GEN09 0101 GEN10 0107 GEN11 0114 DEVDF 0116 DSKDF 0119 IOKDF 0240 GENRM 0242 DUMP 0244 ENDLD 0245 LDPTC 0247 TPDIR 0248 SPLDF 0249 99999 SYSTEM ELEMENTS 0003 IBRESMON 0007 IBTRANSIT 0010 IBTRANSIT 0013 LINKLOAD 0017 LINKLOAD 0020 IBMLIBR 1412 IBTRANSIT 1415 IBTRANSIT 1418 SG2 1422 SG5 1425 SG5 1428 SG5 1431 SG5 1435 IBTRANSIT 1438 IBTRANSIT 1441 AUTOCODER 1444 AUTOCODER 1446 AUTOCODER 1696 AUTOCODER 1699 AUTOCODER 1702 AUTOCODER 1705 AUTOCODER 1708 AUTOCODER 1712 IBTRANSIT 1715 IBTRANSIT 1718 SG1 1721 SG1 1724 CREATLIB 1787 IBTRANSIT 1790 IBTRANSIT 1793 SORTDEFINE 1797 IBTRANSIT 1800 IBTRANSIT 1803 COBOL 1806 COBOL 1809 COBOL 1812 COBOL 1815 COBOL 1818 COBOL 1821 COBOL 1824 COBOL 1827 COBOL 1830 COBOL 1833 COBOL 1836 COBOL 1840 IBTRANSIT 1843 IBTRANSIT 1846 FORTRAN 1849 FORTRAN 1852 FORTRAN 1855 FORTRAN 1859 IBTRANSIT 1862 IBTRANSIT 1865 UTILITIES 1868 UTILITIES 1871 UTILITIES 1874 UTILITIES 1877 UTILITIES 1880 UTILITIES 1883 UTILITIES 1886 UTILITIES 1889 UTILITIES 1892 UTILITIES 1895 UTILITIES 1899 LABEL1311 1903 MACROPRT 1907 IBTRANSIT 1910 IBTRANSIT 1913 SG3 1917 DSRTDEFINE 1921 IBTRANSIT 1924 IBTRANSIT 1927 9999999999 MON$$ END @