INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 31

1447 ORG ORG+'1000 START NEW SECTOR. 1448 SETB STB1 DESECTOR IN CURRENT SECTOR. 1449 * 1450 01000 000001 DFLT OCT 1 DEFAULT INPUT SWITCH 1451 * 1452 * NS14 NEW STYLE BLOCK 14.. END BLOCK. 1453 * 1454 01001 0 02 03702 NS14 LDA BUFF+2 END BLOCK. GET JUMP ADDRESS. 1455 01002 0 04 03677 STA VALU SAVE FOR RELOCATION. 1456 01003 0 02 03352 N14J LDA SYM STORE THE CURRENT SYMBOL TABLE LENGTH 1457 01004 0 04 03662 STA BACK AND COMMON COUNTER IN THE BACK-UP CELLS 1458 01005 0 02 03357 LDA COMN BECAUSE END CLEAN-UP WILL RESTORE THEM 1459 01006 0 04 03663 STA BACK+1 FROM THERE. 1460 01007 0 02 03667 N14K LDA MODE JOIN HERE IF OLD-STYLE SKIPPED. 1461 01010 0 10 03155 JST SENT GO SET ENTRY LOCATION. 1462 01011 0 10 03060 JST CLEN PERFORM INTER-PROGRAM CLEAN-UP. 1463 01012 0 02 01012 LDA * SET SKIP FLAG TO SKIP 1464 01013 0 04 03671 STA SKIF NEXT SUBPROGRAM. 1465 01014 0 01 00323 JMP BLOK GO READ ON. 1466 * 1467 * 1468 * 1469 * NS24 NEW STYLE BLOCK 24.. SET RELOCATABLE MODE. 1470 * 1471 01015 0 02 01710 NS24 LDA ='040000 GET RELOCATABLE FLAG. 1472 01016 0 01 01020 JMP NS30+1 SET RELOCATABLE FLAG. . . 1473 * 1474 * 1475 * 1476 * NS30 NEW STYLE BLOCK 30.. SET ABSOLUTE MODE. 1477 * 1478 01017 140040 NS30 CRA GET ABSOLUTE FLAG. 1479 01020 0 04 03667 STA MODE SET MODE OF LOADER. 1480 01021 0 01 00323 JMP BLOK EXIT TO READ NEXT BLOCK. 1481 * 1482 * 1483 * 1484 * NS44 NEW STYLE 44.. SUBPROGRAM CALL. 1485 * 1486 01022 0 10 03024 NS44 JST SKIP SKIP CALL BLOCKS IF NOT LOADING. 1487 01023 0 02 03777 LDA WORD BACK UP THE LOCATION COUNTER 1488 01024 0 07 01712 SUB ='000001 TO THE LAST WORD LOADED. 1489 01025 0 04 03777 STA WORD IT IS THE CALL LOCATION. 1490 01026 0 10 01561 JST R48B READ THE SUBPROGRAM NAME. 1491 01027 0 12 00657 IRS BUFP MOVE TO DAC/NINE-BIT FLAG. 1492 01030 140040 CRA INITIALIZE OFFSET 1493 01031 0 04 03677 STA VALU TO ZERO. 1494 01032 -0 07 00657 SUB* BUFP FORM DAC FLAG, '000000 MEANS 1495 01033 0 04 01661 N44J STA DACF NINE-BIT, '177777 MEANS NEW STYLE DAC 1496 01034 0 10 02403 JST CUT CUT A KEY FOR THIS CALL.