DAP-16M2

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

3033 04124 0 06 00743 ADD C3 ADD IN 3 WORD OVERHEAD 3034 04125 0 04 04675 STA OUTB PLACE IT IN FIRST WORD OF BUFFER 3035 04126 141240 ICR A(1-8) = WORD COUNT 3036 04127 0 04 04677 STA OUTB+2 PLACE IT IN SECOND WORD OF OBJECT BLOCK 3037 04130 0 05 00515 ERA CKSM UPDATE THE CHECKSUM 3038 04131 0 10 04473 JST FIL PLACE CHECKSUM IN BUFFER 3039 04132 0 15 00517 STX MOD 3040 04133 0 10 00000 CALL D$OB OUTPUT OBJECT TEXT BLOCK 3041 04134 0 35 00517 LDX MOD 3042 04135 0 10 04373 RRT JST BLIN SET UP FOR NEXT BLOCK 3043 04136 -0 02 04061 LDA* OBTX FETCH BLOCK TYPE 3044 04137 0 04 00514 STA OBT SAVE NEW BLOCK CODE 3045 04140 0 06 00711 ADD KDS ADD ADDRESS OF LINKAGE TABLE 3046 04141 0 04 04143 STA *+2 SAVE BLOCK TYPE PROCESSOR ADDRESS 3047 04142 -0 01 04143 JMP* *+1 JUMP TO BLOCK PROCESSOR 3048 04143 0 000000 DAC ** 3049 * 3050 04144 0 004242 DSPT DAC FILL (00) [0-00] SUBR NAME 3051 04145 0 004163 DAC DATA (01) [0-04] DATA BLOCK 3052 04146 0 004207 DAC SYMS (02) [0-10] SYMBOL DEFINITION 3053 04147 0 004242 DAC FILL (03) [0-14] END BLOCK 3054 04150 0 004245 DAC DXT (04) [0-20] LOGICAL END 3055 04151 0 004245 DAC DXT (05) [0-24] REL MODE 3056 04152 0 004245 DAC DXT (06) [0-30] ABS MODE 3057 04153 0 004247 DAC ORG1 (07) [0-34] ORG SET 3058 04154 0 004234 DAC ENDL (10) [0-40] END ASSEMBLY 3059 04155 0 004242 DAC FILL (11) [0-44] EXTERNAL LINKAGE 3060 04156 0 004242 DAC FILL (12) [0-50] ENTRY POINT DEFINITION 3061 04157 0 004245 DAC DXT (13) [0-54] EXTENDED DESECTORING 3062 04160 0 004245 DAC DXT (14) [0-60] LEAVE EXTENDED DESECTORING 3063 04161 0 004242 DAC FILL (15) [0-64] SET BASE SECTOR 3064 * 3065 04162 0 01 04211 JSM JMP JSMH 3066 * 3067 04163 0 10 04464 DATA JST SETC 3068 04164 0 00 00000 SKP *** ** JMP JSM,NOP, OR SKP 3069 04165 0 01 04221 JMP FIRS NEXT ENTRY STARTS ON A WORD BOUNDRY 3070 04166 0 02 00437 LDA WORD FETCH FIRST WORD OF NEW ENTRY 3071 04167 141140 ICL ISOLATE FIRST BYTE IN A(9-16) 3072 04170 0 06 00516 ADD LHW INSERT LAST BYTE OF PREVIOUS ENTRY 3073 04171 0 10 04473 JST FIL PLACE WORD IN BUFFER 3074 04172 0 12 00512 IRS BLKS INCREMENT WORD COUNT 3075 04173 0 02 00437 LDA WORD FETCH FIRST WORD OF NEW ENTRY 3076 04174 141050 CAL ISOLATE BYTE TWO 3077 04175 0 06 00440 ADD W2 INSERT THIRD BYTE OF THIS ENTRY 3078 04176 141340 ICA SWAP THE BYTES 3079 04177 0 10 04473 JST FIL PLACE THE WORD IN THE BUFFER 3080 04200 0 12 00512 IRS BLKS INCREMENT IHE WORD COUNT 3081 04201 101000 NOP OVERFLOW IS POSSIBLE 3082 04202 0 02 04164 SKPI LDA SKP FETCH BRANCH INSTRUCTION