DAP-16M2

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

2168 03101 0 01 03110 JMP EABS ELSE ABSOLUTE 2169 03102 0 02 00406 LDA ABSW FETCH ASSEMBLY MODE SWITCH 2170 03103 100040 SZE SKIP IF ABSOLUTE 2171 03104 0 01 03115 JMP EFIN RELOCATABLE - AGREES WITH END JUMP MODE 2172 03105 -0 10 00577 JST* OBTD OUTPUT REL MODE BLOCK 2173 03106 000005 OCT 5 CODE FOR NEW STYLE BLOCK 0-24 2174 03107 0 01 03115 JMP EFIN IN CORRECT MODE NOW - OUTPUT END BLOCK 2175 03110 0 02 00406 EABS LDA ABSW FETCH ASSEMBLY MODE SWITCH 2176 03111 101040 SNZ SKIP IF RELOCATABLE 2177 03112 0 01 03115 JMP EFIN ABSOLUTE - AGREES WITH END JUMP MODE 2178 03113 -0 10 00577 JST* OBTD OUTPUT ABS MODE BLOCK 2179 03114 000006 OCT 6 CODE FOR NEW STYLE BLOCK 0-30 2180 03115 0 02 04640 EFIN LDA DBLK FETCH 'END JUMP' ADDRESS 2181 03116 140100 SSP WIPE OUT RELOCATION FLAG 2182 03117 0 04 00437 STA WORD STORE RESULT IN WORD 2183 03120 -0 10 00577 JST* OBTD OUTPUT END BLOCK 2184 03121 000003 OCT 3 CODE FOR NEW STYLE BLOCK 0-14 2185 03122 0 02 00507 LDA SUBF CHECK FOR SUBROUTINE ASSEMBLY 2186 03123 100040 SZE SKIP IF NOT 2187 03124 0 01 03153 JMP LEND DO NOT OUTPUT EOF 2188 03125 -0 10 00577 PEND JST* OBTD OUTPUT EOF IN OBJECT TEXT 2189 03126 000010 OCT 10 2190 03127 0 12 00416 HLT IRS LSIZ SET FULL LINE OUTPUT INDICATOR 2191 03130 0 10 00000 CALL D$MAP PRINT SYMBOL TABLE MAP 2192 03131 -0 10 00551 JST* LSTD SPACE A LINE BEFORE END MESSAGES 2193 03132 0 10 03156 JST MESG PRINT COUNT OF WARNING AND ERROR FLAGS 2194 03133 0 000723 DAC EMES ADDRESS OF MESSAGE 2195 03134 0 10 03156 JST MESG PRINT VERSION IDENTIFICATION 2196 03135 0 000744 DAC IDMS ADDRESS OF MESSAGE 2197 03136 0 10 00000 CALL D$HT STOP - END OF PASS 2198 03137 0 02 00436 LDA ZP FETCH PASS INDICATOR 2199 03140 140100 SSP SET-UP FOR PASS TWO 2200 03141 0 04 00436 STA ZP REPLACE PASS INDICATOR 2201 03142 0 02 00511 LDA ZPT FETCH PREVIOUS STATE 2202 03143 101400 SMI SKIP IF END OF PASS ONE 2203 03144 -0 01 00540 JMP* RES OTHERWISE START A NEW ASSEMBLY 2204 03145 0 01 03150 JMP *+3 SKIP OVER RESTART PASS 2 KLUDGE 2205 03146 140500 RP2 SSM CORRECT FORGETFUL USERS 2206 03147 0 04 00461 STA TST SAVE NEW PARAMETER SETTING 2207 03150 0 10 00000 CALL D$IN REINSTATE FOR PASS 2 2208 03151 140040 CRA 2209 03152 -0 01 00541 JMP* RSG START PASS TWO 2210 03153 -0 10 00577 LEND JST* OBTD LOGICAL END OF ASSEMBLY (NO EOF) 2211 03154 000004 OCT 4 2212 03155 0 01 03127 JMP HLT GO FINISH 'END' PROCESSING 2213 * 2214 * 2215 EJCT *************************************************************