INHALT

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

2655 * ******************************************************************** 2656 * * LOADER ENTRY BLOCK * 2657 * ******************************************************************** 2658 * 2659 * 2660 * 2661 ORG ORG+'3000 START NEW SECTOR. 2662 SETB XSA4 DESECTOR AFTER STARTS. 2663 * 2664 * 2665 * 2666 03000 0 01 03011 GO JMP JWB 'XX000.. START LOADING (NORMAL MODE) 2667 03001 0 01 03031 JMP EOT 'XX001.. RECOVER FROM MISSING 'EOT'. 2668 03002 0 01 03232 JMP MAP-1 'XX002.. PRINT MEMORY MAP. 2669 03003 0 01 02603 JMP RSTR 'X003.. SET PROGRAM BREAK. 2670 03004 0 01 03441 JMP FRCE 'XX004.. FORCE LOAD NEXT PROGRAM 2671 03005 0 01 03430 JMP JWB3 'XX005..BEGIN EXECUTION 2672 03006 0 04 03673 JWB1 STA T 'XX006.. START LOADING (EXTENDED MODE) 2673 03007 0 02 03534 LDA ='77777 INTTIALIZE TO DESECTOR IN EXTENDED MODE 2674 03010 0 01 03013 JMP JWB2 2675 03011 0 04 03673 JWB STA T 2676 03012 0 02 03533 LDA ='37777 INTTIALIZE TO DESECTUOR IN NORMAL MODE 2677 03013 0 04 03666 JWB2 STA MMOD 2678 03014 000013 EXA ENABLE EXTENDED ADDRESSING 2679 03015 140040 CRA 2680 03016 0 04 00000 STA 0 2681 03017 0 01 02533 JMP STRT 2682 * 2683 * 2684 * 2685 * 2686 * 2687 * 2688 * ******************************************************************** 2689 * * MISCELLANEOUS ROUTINES (CONTINUED) * 2690 * ******************************************************************** 2691 * 2692 * 2693 * 2694 03020 0 000000 PUT DAC ** HERE TO STORE THROUGH 'T' AND BUMP. 2695 03021 -0 04 03673 STA* T PLACE A-REGISTER THROUGH POINTER. 2696 03022 0 12 03673 IRS T INCREMENT POINTER. 2697 03023 -0 01 03020 JMP* PUT EXIT TO CALLER. 2698 * 2699 * 2700 * 2701 03024 0 000000 SKIP DAC ** HERE TO TEST SKIP FLAG. 2702 03025 0 02 03671 LDA SKIF GET THE SKIP FLAG. 2703 03026 100040 SZE ARE WE SKIPPING OR LOADING.Q 2704 03027 0 01 00323 JMP BLOK SKIPPING. GO READ NEXT BLOCK.