DAP-16M2

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

3083 04203 100400 SPL SKIP IF IT WAS A JMP 3084 04204 0 05 00703 ERA C10X COMPLEMENT SKP INVERSION BIT 3085 04205 0 04 04164 STA SKP REPLACE BRANCH INSTRUCTION 3086 04206 0 01 04245 JMP DXT EXIT 3087 * 3088 04207 0 02 04162 SYMS LDA JSM SET 'JMP JSMH' IN 3089 04210 0 04 04164 STA SKP BRANCH INSTRUCTION 3090 04211 0 02 00437 JSMH LDA WORD SYMBOL DEFINITIONS PLACE 3091 04212 0 10 04473 JST FIL WORD IN BUFFER 3092 04213 0 12 00512 IRS BLKS INCREMENT WORD COUNT 3093 04214 0 02 00440 LDA W2 PLACE SECOND WORD 3094 04215 0 10 04473 JST FIL IN BUFFER 3095 04216 0 12 00512 IRS BLKS INCREMENT WORD COUNT 3096 04217 0 01 04245 JMP DXT EXIT 3097 04220 0 01 04104 JMP PNCH OUTPUT FULL BUFFER 3098 * 3099 04221 0 02 00437 FIRS LDA WORD FETCH FIRST 2 BYTES OF ENTRY 3100 04222 0 10 04473 JST FIL PLACE IT IN THE BUFFER 3101 04223 0 12 00512 IRS BLKS INCREMENT WORD COUNT 3102 04224 0 02 00440 LDA W2 SAVE THIRD BYTE IN 3103 04225 0 04 00516 STA LHW LHW FOR NEXT INSERTION 3104 04226 0 01 04202 JMP SKPI GO INVERT SKIP INSTRUCTION AND EXIT 3105 * 3106 04227 0 02 00512 TWOR LDA BLKS CHECK FOR ROOM FOR 2 WORD ENTRY 3107 04230 141206 AOA 3108 04231 101400 SMI SKIP IF ROOM 3109 04232 0 01 04104 JMP PNCH NO ROOM - OUTPUT THE BUFFER 3110 04233 0 01 04164 JMP SKP ROOM - ADD THE ENTRY 3111 * 3112 04234 0 10 00000 ENDL CALL D$EOM OUTPUT END OF JOB CODE TO OBJECT DEVICE 3113 04235 0 01 04245 JMP DXT EXIT 3114 * 3115 04236 0 15 00517 BEGF STX MOD 3116 04237 0 10 00000 CALL D$SOM START OBJECT DEVICE 3117 04240 0 35 00517 LDX MOD 3118 04241 0 01 04135 JMP RRT CONTINUE PROCESSING 3119 * 3120 04242 0 12 00512 FILL IRS BLKS INCREMENT WORD COUNT 3121 04243 0 02 00437 LDA WORD FETCH OBJECT TEXT WORD 3122 04244 0 10 04473 JST FIL PLACE IT IN BUFFER 3123 04245 0 12 04061 DXT IRS OBTX INCREMENT RETURN ADDRESS 3124 04246 -0 01 04061 JMP* OBTX EXIT 3125 * 3126 04247 0 02 00700 ORG1 LDA ONE SET BLOCK TYPE TO ONE 3127 04250 0 04 00514 STA OBT 3128 04251 0 10 04464 JST SETC SET ORIGIN 3129 04252 0 01 04245 JMP DXT EXIT 3130 * 3131 * 3132 EJCT *************************************************************