Previous File Previous Page Single Page Next Page Next File

* 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
Previous File Previous Page Single Page Next Page Next File