INHALT

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

2805 03155 0 000000 SENT DAC ** HERE TO SET MAIN PROG ENTRY. 2806 03156 101000 NOP OVERWRITE THIS LOC TO DISABLE. 2807 03157 0 10 03201 JST RELO RELOCATE LOCATION IF NECESSARY. 2808 03160 101040 SNZ * 2809 03161 0 02 03333 LDA LOW * 2810 03162 0 10 02667 JST MRG2 ASSURE BIT 2 SET OK IF NORMAL MODE 2811 03163 0 04 03340 STA NTRY SAVE IT AWAY. 2812 03164 0 02 03166 LDA *+2 DISABLE THIS ROUTINE. 2813 03165 0 04 03156 STA SENT+1 FUTURE CALLS IGNORED. 2814 03166 -0 01 03155 JMP* SENT RETURN TO CALLER. 2815 * 2816 * 2817 * PROP - - BITS OF VALUE PLUS BITS FROM (INDIRECT WORD) WHERE 2818 * MMOD IS ZERO, PUT INTO (INDIRECT WORD) 2819 * 2820 03167 0 000000 PROP DAC ** SUBROUTINE 2821 03170 -0 02 03777 LDA* WORD * 2822 03171 0 05 03677 ERA VALU * WORD // //1 111 2823 03172 -0 03 03777 ANA* WORD * MMOD 00 110 011 2824 03173 -0 04 03777 STA* WORD * VALUE 01 010 101 2825 03174 0 05 03666 ERA MMOD * 2826 03175 -0 03 03777 ANA* WORD * RESULT 2827 03176 0 05 03677 ERA VALU * IN *WORD 01 011 101 2828 03177 -0 04 03777 STA* WORD * 2829 03200 -0 01 03167 JMP* PROP EXIT WITH GREAT SPEED 2830 * 2831 * 2832 * 2833 * 2834 * JST RELO RELOCATE ADDRESS IN 'VALU' BY THE RELOCATION CONSTANT 2835 * 'PBRK' ACCORDING TO THE RELOCATION BITS C(A-REG)1,2, 2836 * RESULT IN 'VALU' AND A-REGISTER. 2837 * 00.. ABSOLUTE. 2838 * 01.. POSITIVELY RELOCATABLE. 2839 * 10.. NEGATIVELY RELOCATABLE. 2840 * 11.. NEGATIVELY RELOCATABLE. 2841 * 2842 03201 0 000000 RELO DAC ** HERE TO RELOCATE 'VALU' 2843 03202 0 03 03523 ANA ='140000 ISOLATE BITS 2844 03203 101040 SNZ TEST FOR NO RELOCATION 2845 03204 0 01 03211 JMP RABS ABSOLUTE 2846 03205 100400 SPL RELOCATABLE. PLUS OR MINUS 2847 03206 0 01 03214 JMP RELN NEGATIVE RELOCATION 2848 03207 0 02 03670 LDA PBRK GET RELOCATION CONSTANT 2849 03210 0 03 03666 ANA MMOD MAKE 14 OR 15 BIT 2850 03211 0 06 03677 RABS ADD VALU ADD 16 BIT VALU 2851 03212 0 04 03677 STA VALU 2852 03213 -0 01 03201 JMP* RELO EXIT 2853 03214 0 02 03670 RELN LDA PBRK GET RELOCATION CONSTANT 2854 03215 0 03 03666 ANA MMOD MAKE 14 OR 15 BIT