DAP-16M2

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 102

3475 * 3476 * SLST: OUTPUT LISTING BUFFER 3477 * 3478 * 3479 * CALLING SEQUENCE: 3480 * JST SLST 3481 * ......RETURN 3482 * 3483 * 3484 04501 0 000000 SLST DAC ** OUTPUT LISTING BUFFER 3485 04502 0 02 00436 LDA ZP FETCH PASS INDICATOR 3486 04503 100400 SPL SKIP IF OUTPUT PASS 3487 04504 -0 01 04501 JMP* SLST NOT OUTPUT PASS - EXIT 3488 04505 0 02 00411 LDA TTLF FETCH HEADING SWITCH 3489 04506 100040 SZE SKIP IF HEADING HAS NOT BEEN SET 3490 04507 0 01 04525 JMP *+14 3491 04510 0 02 00723 LDA EMES SPACE SPACE 3492 04511 -0 13 00717 IMA* DCN2 PLACE SPACE IN 1ST TWO CHARS. OF LINE NO. 3493 04512 0 04 00520 STA MSK SAVE FIRST TWO DIGITS OF LINE NUMBER 3494 04513 0 02 00723 LDA EMES SPACE SPACE 3495 04514 -0 13 00720 IMA* DCN3 PLACE SPACE IN 2ND TWO CHARS. OF LINE NO. 3496 04515 0 04 00510 STA ICON SAVE SECOND TWO CHARACTERS OF LINE NUMBER 3497 04516 0 15 00517 STX MOD 3498 04517 0 10 00000 CALL D$HD INITIALIZE THE HEADING 3499 04520 0 35 00517 LDX MOD 3500 04521 0 02 00520 LDA MSK RESTORE THE LINE NUMBER 3501 04522 -0 04 00717 STA* DCN2 3502 04523 0 02 00510 LDA ICON 3503 04524 -0 04 00720 STA* DCN3 3504 04525 0 12 00411 IRS TTLF SET HEADING SWITCH 3505 04526 0 02 00410 LDA LSTW FETCH LISTING SWITCH 3506 04527 100040 SZE SKIP IF LISTING IS ENABLED 3507 04530 0 01 04542 JMP SLT1+4 3508 04531 0 02 04052 LDA LGCT FETCH ERROR/LINE COUNTER 3509 04532 100040 SZE SKIP IF NO ERROR FLAGS ON LINE 3510 04533 0 01 04536 JMP SLT1 ERRORS ON LINE - LIST IT 3511 04534 0 02 00461 LDA TST FETCH PARAMENTER WORD 3512 04535 0414 76 LGL 2 A(1)=ERROR ONLY LISTING FLAG 3513 04536 0 15 00517 SLT1 STX MOD 3514 04537 101400 SMI SKIP IF ERROR ONLY LISTING 3515 04540 0 10 00000 CALL D$OL LIST THE LINE 3516 04541 0 35 00517 LDX MOD 3517 04542 0 10 04253 JST CLEO CLEAR THE LISTING BUFFER 3518 04543 -0 01 04501 JMP* SLST EXIT 3519 * 3520 * 3521 EJCT *************************************************************