SYMLIST

* 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