SYMLIST

* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 1

0001 * O180 (SYMLIST) DWG. 70181445000 REV. B 0002 * 0003 * 0004 * 0005 * COMPUTER: H316, DDP-516 0006 * 0007 * 0008 * CATEGORY: ASSEMBLY 0009 * 0010 * 0011 * PROGRAM TITLE: SYMLIST (D$MAP) 0012 * SYMBOL TABLE MAP PRINTER FOR DAP-16M2 0013 * 0014 * 0015 * 0016 * 0017 * 0018 * 0019 * 0020 * 0021 * 0022 * 0023 * 0024 * APPROVAL DATE 0025 * 0026 * 0027 * 0028 * PROG---------------------- ------------- 0029 * 0030 * 0031 * SUPR---------------------- ------------- 0032 * 0033 * 0034 * QUAL---------------------- ------------- 0035 * 0036 * 0037 * NO. OF PAGES ------------- 0038 EJCT
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 2

0039 * REVISIONS: 0040 * 0041 * REV. B ECO 0042 * REV. A 05-04-70 0043 * 0044 * 0045 * AUTHOR 0046 * 0047 * HONEYWELL INC., COMPUTER CONTROL DIVISION 0048 * 0049 * 0050 * PURPOSE 0051 * 0052 * TO PROVIDE AN ALPHABETICAL LISTING OF ALL SYMBOLS 0053 * USED IN A SOURCE PROGRAM. WITH ASSEMBLED ADDRESS'S AND 0054 * MODE LISTED FOR EACH SYMBOL. 0055 * 0056 * 0057 * RESTRICTIONS 0058 * 0059 * THIS PROGRAM IS INTENDED FOR USE ONLY AS A 0060 * COMPONENT OF A DAP-16M2 SYSTEM. IN ADDITION. IT 0061 * IS NOT RECOMMENDED THAT THIS PROGRAM BE INCLUDED 0062 * IN A 4K DAP-16M2 SYSTEM IN ORDER TO MAXIMIZE 0063 * THE SYMBOL TABLE AREA. 0064 * DO NOT USE EQUATES TO MAIN ASSEMBLER PROGRAM. 0065 * 0066 * 0067 * TIMING 0068 * 0069 * THE SORT TIME IS APPROXIMATLY 250 SYMBOLS 0070 * PER SECOND ON A DDP-516. AND 160 SYMBOLS PER 0071 * SECOND ON AN H316. 0072 * 0073 * 0074 * STORAGE 0075 * 0076 * 422 (OCTAL) 0077 * 274 (DECIMAL) 0078 * 0079 * 0080 * USE 0081 * 0082 * THIS PROGRAM WILL BE CALLED BY DAP-16M2 AT THE 0083 * END OF EACH PASS. IF IT IS NOT THE OUTPUT PASS. 0084 * IF BIT 4 IN THE A REGISTER PARAMETER SETTING WAS SET. 0085 * THE SORT AND LISTING WILL NOT BE PERFORMED. IF LISTING 0086 * OUTPUT IS SURPRESSED. OR IF AN ERRORS ONLY LISTING IS 0087 * SELECTED. THE SORT WILL BE PERFORMED. BUT THE MAP WILL 0088 * NOT BE LISTED.
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 3

0089 * 0090 * LISTING FORMAT 0091 * 0092 * FOUR SYMBOLS WILL BE LISTED PER LINE. WITH THE FOLLOWING 0093 * INFORMATION APPEARING FOR EACH SYMBOL: 0094 * 0095 * NNNNNN AAAAAAM 0096 * 0097 * WHERE: 0098 * N - THE 1-6 CHARACTER SYMBOL NAME 0099 * A - THE VALUE ASSIGNED T0 THE SYMBOL 0100 * BY THE ASSEMBLER 0101 * M - A IF THE SYMBOL IS ABSOLUTE 0102 * E IF THE SYMBOL IS EXTERNAL 0103 * BLANK IF THE SYMBOL IS RELOCATABLE 0104 * 0105 * 0106 * METHOD 0107 * 0108 * A RADIX SORT IS PERFORMED ON THE ENTRIES IN THE 0109 * SYMBOL TABLE. EACH SYMBOL IS CONSIDERED TO HAVE SIX 0110 * CHARACTERS. THE LAST TWO BEING SPACE CHARACTERS IF THE 0111 * ENTRY IS NOT AN EXTERNAL SYMBOL NAME. THE SYMBOLS ARE 0112 * SORTED IN NUMERICAL ORDER BY CHARACTER CODE, WITH THE 0113 * CHARACTER CODE SET BEING THE INTERNAL DAP-16M2 ASCII 0114 * SUBSET. FORMED BY SUBTRACTING '240 FROM THE 8 0115 * BIT CODE AND TRUNCATING THE RESULT TO 6 BITS. 0116 * AFTER THE SORT HAS BEEN COMPLETED. THE SYMBOLS 0117 * ARE FORMATTED FOUR PER LINE AND ARE OUTPUTED ON THE 0118 * SELECTED LISTING DEVICE. 0119 * 0120 * 0121 EJCT *************************************************************
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 4

0122 * 0123 * 0124 SUBR D$MAP,MAP 0125 REL 0126 EXT LSTD LIST ROUTINE POINTER 0127 EXT CSRD CHARACTER INSERTION ROUTINE POINTER 0128 EXT OPTD OCTAL TO ASCII ROUTINE POINTER 0129 EXT UPAK CHARACTER UNPACKING ROUTINE 0130 EXT ZP PASS INDICATOR AND PARAMETER FLAGS 0131 EXT D$TP HIGH SYMBOL TABLE LOCATION 0132 EXT BSYM BASE OF SYMBOL TABLE 0133 EXT CSYM COUNT OF ENTRIES IN SYMBOL TABLE 0134 EXT TAB1 37 WORD BUFFER FOR POINTER STORAGE 0135 EXT TAB2 DITTO 0136 EXT T136 0137 EXT T137 0138 EXT T236 0139 EXT T237 0140 * 0141 * 0142 00000 0 000000 MAP DAC ** 0143 00001 0 02 00000 LDA CSYM FETCH SYMBOL TABLE COUNT 0144 00002 101040 SNZ SKIP IF SYMBOLS IN TABLE 0145 00003 -0 01 00000 JMP* MAP NO SYMBOLS TO SORT 0146 00004 0 02 00000 LDA ZP IF NOT OUTPUT PASS. 0147 00005 100400 SPL RETURN AT ONCE 0148 00006 -0 01 00000 JMP* MAP 0149 00007 0414 75 LGL 3 IF MAP IS INHIBITED. 0150 00010 100400 SPL RETURN TO THE ASSEMBLER 0151 00011 -0 01 00000 JMP* MAP 0152 00012 0 02 00000 LDA BSYM TABLE BASE OF SYMBOL TABLE 0153 00013 0 04 00000 STA TAB1 0154 00014 0 02 00000 LDA D$TP TAB2 & HIGH LOCATION OF SYMBOL TABLE 0155 00015 0 04 00000 STA TAB2 0156 00016 0 35 00376 LDX M36 -(6 CHARACTERS) * (6 BITS/CHARACTER) 0157 * 0158 00017 1 02 00000 SRT7 LDA T236,1 SET TAB2 = HIGH + 1 OF 0159 00020 0 04 00373 STA PIC2 SECTION BEING SORTED 0160 00021 1 07 00000 SUB T136,1 TEST FOR NULL OR UNIT 0161 00022 0 07 00037 SUB Q4 BLOCK SIZE 0162 00023 100400 SPL SKIP IF NOT 0163 00024 0 01 00065 JMP SRT6 YES - NO SORT REQUIRED 0164 00025 1 02 00000 LDA T136,1 LOW LOCATION OF CURRENT BLOCK 0165 00026 0 04 00372 SRT1 STA PIC1 SET ADDRESS OF CURRENT ENTRY 0166 00027 0 10 00204 JST LCHK 0167 00030 0 01 00034 JMP SRT4 0168 00031 0 10 00127 JST GBIT FETCH CURRENT SIGNIFICANT BIT 0169 00032 100040 SZE IF SET, START REVERSE SCAN 0170 00033 0 01 00050 JMP SRT2 0171 00034 0 02 00372 SRT4 LDA PIC1 STEP TO NEXT ENTRY
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 5

0172 00035 0 06 00377 ADD Q3 0173 00036 0 11 00373 CAS PIC2 TEST FOR END OF BLOCK 0174 00037 000004 Q4 OCT 4 NEVER CAN GET HERE (FAMOUS LAST WORDS!!) 0175 00040 0 01 00055 JMP SRT5 END OF BLOCK 0176 00041 0 01 00026 JMP SRT1 MORE SYMBOLS TO CONSIDER 0177 * 0178 00042 0 04 00373 SRT3 STA PIC2 PIC2 & ADDRESS OF COMPLEMENT ENTRY 0179 00043 0 10 00204 JST LCHK 0180 00044 0 01 00050 JMP SRT2 0181 00045 0 10 00127 JST GBIT FETCH CURRENT BIT FROM THIS ENTRY 0182 00046 101040 SNZ SKIP IF SET 0183 00047 0 01 00105 JMP SWAP INTERCHANGE THIS ENTRY WITH A LOWER ENTRY 0184 00050 0 02 00373 SRT2 LDA PIC2 TRY NEXT LOWEST ENTRY 0185 00051 0 07 00377 SUB Q3 0186 00052 0 11 00372 CAS PIC1 TEST FOR CONVERGENCE 0187 00053 0 01 00042 JMP SRT3 NO - TEST THIS ENTRY 0188 00054 0 04 00373 STA PIC2 YES - UPDATE POINTER ADDRESS 0189 00055 0 02 00373 SRT5 LDA PIC2 DROP BLOCK POINTERS INTO BUFFERS 0190 00056 1 04 00000 STA T237,1 0191 00057 1 13 00000 IMA T136,1 0192 00060 1 04 00000 STA T137,1 0193 00061 0 12 00000 IRS 0 INCREMENT BIT COUNTER 0194 00062 0 01 00017 JMP SRT7 GO SORT ON NEXT BIT 0195 00063 0 02 00402 LDA MQ1 SEARCH FOR AN UNSORTED BLOCK 0196 00064 100000 SKP 0197 00065 0 02 00000 SRT6 LDA 0 DECREMENT SEARCH POINTER 0198 00066 0 07 00401 SUB Q1 0199 00067 0 04 00000 STA 0 REPLACE POINTER 0200 00070 0 07 00376 SUB M36 TEST FOR COMPLETION OF SORT 0201 00071 100400 SPL SKIP IF NOT 0202 00072 0 01 00216 JMP DUMP SORT COMPLETE - PRINT THE TABLE 0203 00073 1 02 00000 LDA T136,1 FETCH BLOCK POINTER 0204 00074 100400 SPL SKIP IF UNSORTED 0205 00075 0 01 00065 JMP SRT6 SORTED - CONTINUE DOWNWARD SCAN 0206 00076 1 04 00000 STA T137,1 SET 0207 00077 140500 SSM MARK IT AS SORTED 0208 00100 1 04 00000 STA T136,1 AND DROP IT IN BUFFER 0209 00101 1 02 00000 LDA T236,1 0210 00102 1 04 00000 STA T237,1 0211 00103 0 12 00000 IRS 0 SET BIT INDICATOR 0212 00104 0 01 00017 JMP SRT7 GO SORT THE BLOCK 0213 * 0214 00105 0 02 00372 SWAP LDA PIC1 HERE TO INTERCHANGE SYMBOL TABLE ENTRIES 0215 00106 141206 AOA 0216 00107 0 04 00374 STA PIC3 0217 00110 0 02 00373 LDA PIC2 0218 00111 141206 AOA 0219 00112 0 04 00375 STA PIC4 0220 00113 -0 02 00372 LDA* PIC1 SWAP FIRST TWO WORDS 0221 00114 -0 13 00373 IMA* PIC2
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 6

0222 00115 -0 04 00372 STA* PIC1 0223 00116 -0 02 00374 LDA* PIC3 SWAP NEXT TWO WORDS 0224 00117 -0 13 00375 IMA* PIC4 0225 00120 -0 04 00374 STA* PIC3 0226 00121 0 12 00374 IRS PIC3 BUMP POINTER 0227 00122 0 12 00375 IRS PIC4 0228 00123 -0 02 00374 LDA* PIC3 SWAP LAST TWO WORDS 0229 00124 -0 13 00375 IMA* PIC4 0230 00125 -0 04 00374 STA* PIC3 0231 00126 0 01 00034 JMP SRT4 CONTINUE SCAN 0232 00127 0 000000 GBIT DAC ** BIT FETCHING ROUTINE 0233 00130 0 13 00000 IMA 0 X & ENTRY POINT. A & BIT POINTER 0234 00131 0 04 00374 STA PIC3 0235 00132 1 02 00000 LDA 0,1 SEE IF ENTRY IS EXTERNAL 0236 00133 0414 75 LGL 3 0237 00134 100400 SPL NO 0238 00135 140040 CRA YES - SET EXTF TO ZERO 0239 00136 0 04 00371 STA EXTF 0240 00137 140040 CRA CLEAR WORD COUNTER 0241 00140 0 04 00375 STA PIC4 0242 00141 0 02 00374 LDA PIC3 FETCH BIT POINTER 0243 00142 0 06 00421 ADD =36 MAKE IT POSITIVE 0244 00143 0 07 00420 SUB =12 12 BITS/WORD 0245 00144 0 12 00375 IRS PIC4 INCREMENT WORD COUNT 0246 00145 101400 SMI SKIP IF POINTING TO RIGHT WORD 0247 00146 0 01 00143 JMP *-3 CONTINUE REDUCTION 0248 00147 0 05 00403 ERA ALR FORM BIT POSITIONING SHIFT INSTRUCTION 0249 00150 0 04 00173 STA ALRX PLACE IT FOR EXECUTION 0250 00151 0 02 00375 LDA PIC4 CALCULATE ADDRESS OF 0251 00152 0 06 00000 ADD 0 WORD CONTAINING PROPER BIT 0252 00153 0 07 00417 SUB =1 0253 00154 0 04 00000 STA 0 SAVE IT 0254 00155 0 02 00375 LDA PIC4 TEST FOR WORD 3 OF ENTRY 0255 00156 0 07 00416 SUB =3 0256 00157 101040 SNZ NO 0257 00160 0 01 00177 JMP GXTR YES - SEE IF IT IS AN EXTERNAL ENTRY 0258 00161 1 02 00000 GFBT LDA 0,1 FETCH THE WORD CONTAINING THE BIT 0259 00162 0 04 00375 STA PIC4 SAVE IT 0260 00163 0400 72 LRL 6 LOOK AT FIRST CHARACTER 0261 00164 0 03 00415 ANA ='77 0262 00165 100040 SZE SKIP IF IT IS A BLANK 0263 00166 0 01 00172 JMP *+4 NO - OK 0264 00167 0410 64 LLL 12 YES - PUT SECOND CHAR. IN POSITION OF FIRST 0265 00170 0 03 00414 ANA ='7700 ELIMINATE OTHER BITS 0266 00171 0 04 00375 STA PIC4 SAVE RESULT 0267 00172 0 02 00400 LDA BIT A(2) & 1 0268 00173 0 00 00000 ALRX *** ** POSITION MASK 0269 00174 0 03 00375 ANA PIC4 ISOLATE DESIRED BIT 0270 00175 0 35 00374 GXIT LDX PIC3 RESTORE INDEX 0271 00176 -0 01 00127 JMP* GBIT EXIT
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 7

0272 00177 0 02 00371 GXTR LDA EXTF IF NOT AN EXTERNAL 0273 00200 101040 SNZ ENTRY, TREAT AS BLANKS 0274 00201 0 01 00161 JMP GFBT EXTERNAL ENTRY 0275 00202 140040 CRA BLANKS HAVE ALL BITS RESET 0276 00203 0 01 00175 JMP GXIT EXIT 0277 * 0278 * 0279 00204 0 000000 LCHK DAC ** LITERAL ENTRY CHECK 0280 00205 0 04 00374 STA PIC3 SAVE A 0281 00206 141206 AOA 0282 00207 0 04 00375 STA PIC4 GET ADDRESS OF WORD WITH LITERAL FLAG 0283 00210 -0 02 00375 LDA* PIC4 0284 00211 0414 75 LGL 3 A(1) & LITERAL FLAG 0285 00212 101400 SMI SKIP IF LITERAL ENTRY 0286 00213 0 12 00204 IRS LCHK BUMP RETURN 0287 00214 0 02 00374 LDA PIC3 RESTORE A 0288 00215 -0 01 00204 JMP* LCHK RETURN 0289 * 0290 * 0291 EJCT $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 8

0292 * 0293 * HERE TO LIST TABLE 0294 * 0295 00216 -0 10 00000 DUMP JST* LSTD PRINT A BLANK LINE 0296 00217 0 35 00000 LDX BSYM X & TABLE POINT 0297 00220 0 02 00000 LDA CSYM GET TABLE COUNTER 0298 00221 0 04 00372 STA PIC1 0299 00222 0 02 00413 LINE LDA =-4 SET FOR 4 SYMBOLS/LINE 0300 00223 0 04 00373 STA PIC2 0301 00224 0 02 00412 LDA =4 SET FOR 0302 00225 0 04 00363 STA CAL1 ARGUMENTS 0303 00226 0 02 00367 LDA LCN1 GET CALLING 0304 00227 0 04 00303 STA CAL2 SEQUENCES 0305 00230 0 02 00370 LDA LCN2 TO LISTING 0306 00231 0 04 00307 STA CAL3 INSERTION 0307 00232 0 02 00411 LDA =17 ROUTINES 0308 00233 0 04 00312 STA CAL4 0309 00234 1 02 00000 SYMP LDA 0,1 FETCH FIRST WORD OF CURRENT ENTRY 0310 00235 101040 SNZ 0311 00236 0 01 00341 JMP NULL NULL ENTRY 0312 00237 0414 75 LGL 3 TEST FOR EXTERNAL NAME 0313 00240 100400 SPL SKIP IF NOT 0314 00241 140040 CRA 0315 00242 0 04 00371 STA EXTF SET EXTERNAL/NONEXTERNAL FLAG 0316 00243 0 02 00000 LDA 0 TEST FOR LITERAL ENTRY 0317 00244 0 10 00204 JST LCHK 0318 00245 0 01 00341 JMP NULL 0319 00246 1 02 00000 LDA 0,1 LIST FIRST 2 CHAR. OF SYMBOL NAME 0320 00247 -0 10 00000 JST* UPAK 0321 00250 0 10 00352 JST W2CH 0322 00251 1 02 00001 LDA 1,1 LIST SECOND 2 CHAR. OF SYMBOL NAME 0323 00252 -0 10 00000 JST* UPAK 0324 00253 0 10 00352 JST W2CH 0325 00254 0 02 00371 LDA EXTF SEE IF IT IS AN EXTERNAL ENTRY 0326 00255 101040 SNZ 0327 00256 0 01 00272 JMP EREF YES.......HANDLE IT DIFFERENTLY 0328 00257 1 02 00001 LDA 1,1 GET RELOCATION FLAG 0329 00260 0414 76 LGL 2 0330 00261 140040 CRA 0331 00262 101001 SSC SKIP IF REL 0332 00263 0 02 00410 LDA ='41 'A' - ' ' 0333 00264 0 06 00407 ADD ='240 'A' OR ' ' 0334 00265 0 04 00374 STA PIC3 SET RELOCATION FLAG 0335 00266 0 02 00406 LDA ='120240 5TH AND 6TH CHAR. ARE BLANKS 0336 00267 0 10 00352 JST W2CH SYNL 0337 00270 1 02 00002 LDA 2,1 GET ADDRESS 0338 00271 0 01 00300 JMP VALU AND GO FINISH UP 0339 00272 1 02 00002 EREF LDA 2,1 PRINT LAST TWO CHAR. OF NAME 0340 00273 -0 10 00000 JST* UPAK 0341 00274 0 10 00352 JST W2CH
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 9

0342 00275 0 02 00405 LDA ='305 SET 'E' FLAG 0343 00276 0 04 00374 STA PIC3 0344 00277 140040 CRA ADDRESS OF 0 0345 00300 0 04 00371 VALU STA EXTF PRINT SYMBOL VALUE 0346 00301 0404 76 LGR 2 0347 00302 -0 10 00000 JST* OPTD 0348 00303 0 00 00000 CAL2 *** 0349 00304 0 02 00371 LDA EXTF 0350 00305 0414 77 LGL 1 0351 00306 -0 10 00000 JST* OPTD 0352 00307 0 00 00000 CAL3 *** 0353 00310 0 02 00374 LDA PIC3 GET SYMBOL MODE FLAG 0354 00311 -0 10 00000 JST* CSRD LOG IT 0355 00312 0 00 00000 CAL4 *** 0356 00313 0 02 00363 LDA CAL1 UPDATE 0357 00314 0 06 00404 ADD =11 LISTING 0358 00315 0 04 00363 STA CAL1 COLUMN 0359 00316 0 02 00303 LDA CAL2 POINTERS 0360 00317 0 06 00411 ADD =17 * 0361 00320 0 04 00303 STA CAL2 * 0362 00321 0 02 00307 LDA CAL3 * 0363 00322 0 06 00411 ADD =17 * 0364 00323 0 04 00307 STA CAL3 * 0365 00324 0 02 00312 LDA CAL4 * 0366 00325 0 06 00411 ADD =17 * 0367 00326 0 04 00312 STA CAL4 * 0368 00327 0 02 00000 NLRT LDA 0 UPADTE TABLE POINTER 0369 00330 0 06 00416 ADD =3 0370 00331 0 04 00000 STA 0 0371 00332 0 12 00372 IRS PIC1 BUMP THE COUNTER 0372 00333 100000 SKP 0373 00334 0 01 00345 JMP END MAP COMPLETE 0374 00335 0 12 00373 IRS PIC2 BUMP SYMBOL/LINE COUNTER 0375 00336 0 01 00234 JMP SYMP ROOM FOR ANOTHER ON THIS LINE 0376 00337 -0 10 00000 JST* LSTD LIST THIS LINE 0377 00340 0 01 00222 JMP LINE START NEW LINE 0378 00341 0 02 00373 NULL LDA PIC2 DECREMENT SYMBOL/LINE COUNTER 0379 00342 0 07 00417 SUB =1 0380 00343 0 04 00373 STA PIC2 0381 00344 0 01 00327 JMP NLRT GO LOOK AT NEXT SYMBOL 0382 00345 0 02 00373 END LDA PIC2 SEE IF ANY DANGLING SYMBOLS 0383 00346 0 06 00412 ADD =4 0384 00347 100040 SZE NO 0385 00350 -0 10 00000 JST* LSTD LIST PARTIAL LINE 0386 00351 -0 01 00000 JMP* MAP EXIT 0387 00352 0 000000 W2CH DAC ** 0388 00353 0 04 00366 STA TEMP SAVE CHARACTER PAIR 0389 00354 141340 ICA POSITION 0390 00355 0 10 00361 JST CSRT AND LIST FIRST CHARACTER 0391 00356 0 02 00366 LDA TEMP LIST THE SECOND CHARACTER
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 10

0392 00357 0 10 00361 JST CSRT 0393 00360 -0 01 00352 JMP* W2CH RETURN 0394 00361 0 000000 CSRT DAC ** 0395 00362 -0 10 00000 JST* CSRD 0396 00363 0 00 00000 CAL1 *** 0397 00364 0 12 00363 IRS *-1 0398 00365 -0 01 00361 JMP* CSRT 0399 00366 TEMP BSS 1 0400 00367 000413 LCN1 HEX 10B 0401 00370 002414 LCN2 HEX 50C 0402 00371 EXTF BSS 1 0403 00372 PIC1 BSS 1 0404 00373 PIC2 BSS 1 0405 00374 PIC3 BSS 1 0406 00375 PIC4 BSS 1 0407 00376 177734 M36 DEC -36 0408 00377 000003 Q3 OCT 3 0409 00400 100000 BIT OCT 100000 0410 00401 000001 Q1 OCT 1 0411 00402 177777 MQ1 OCT 177777 0412 00403 136100 ALR OCT 136100 0413 00404 000013 FIN LITERAL CONSTANTS 00405 000305 00406 120240 00407 000240 00410 000041 00411 000021 00412 000004 00413 177774 00414 007700 00415 000077 00416 000003 00417 000001 00420 000014 00421 000044 0414 END ALR 000403 ALRX 000173 BIT 000400 BSYM 000000E CAL1 000363 CAL2 000303 CAL3 000307 CAL4 000312 CSRD 000000E CSRT 000361 CSYM 000000E D$TP 000000E DUMP 000216 END 000345 EREF 000272 EXTF 000371 GBIT 000127 GFBT 000161 GXIT 000175 GXTR 000177 LCHK 000204 LCN1 000367 LCN2 000370 LINE 000222 LSTD 000000E M36 000376 MAP 000000 MQ1 000402 NLRT 000327 NULL 000341 OPTD 000000E PIC1 000372 PIC2 000373 PIC3 000374 PIC4 000375 Q1 000401 Q3 000377 Q4 000037 SRT1 000026 SRT2 000050 SRT3 000042 SRT4 000034 SRT5 000055 SRT6 000065 SRT7 000017 SWAP 000105 SYMP 000234 T136 000000E
* O180 (SYMLIST) DWG. 70181445000 REV. B PAGE 11

T137 000000E T236 000000E T237 000000E TAB1 000000E TAB2 000000E TEMP 000366 UPAK 000000E VALU 000300 W2CH 000352 ZP 000000E 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71