DAP-16M2

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

2983 * 2984 * OBTX: PLACE ENTRY IN OBJECT TEXT BUFFER 2985 * 2986 * 2987 * CALLING SEQUENCE: 2988 * JST OBTX 2989 * OCT BLCK 2990 * ......RETURN 2991 * 2992 * WHERE: 2993 * 2994 * BLCK - INTERNAL BLOCK CODE (REFER TO ADDRESS LIST 2995 * IN THIS ROUTINE FOR CODES) 2996 * 2997 * 2998 04061 0 000000 OBTX DAC ** ENTRY 2999 04062 0 02 00436 LDA ZP FETCH PASS INDICATOR 3000 04063 100400 SPL SKIP IF OUTPUT PASS 3001 04064 0 01 04245 JMP DXT PASS 1 OF 2, INHIBIT BINARY 3002 04065 -0 02 04061 LDA* OBTX FETCH BLOCK TYPE 3003 04066 0 07 00514 SUB OBT COMPARE WITH CURRENT TYPE 3004 04067 100040 SZE SKIP IF SAME TYPE 3005 04070 0 01 04104 JMP PNCH DIFFERENT - DUMP CURRENT BLOCK 3006 04071 0 02 00514 LDA OBT LOAD BLOCK CODE 3007 04072 100040 SZE IF ZERO, ONE WORD/ENTRY 3008 04073 0 07 00743 SUB C3 IF 1-3, TWO WORD/ENTRY 3009 04074 100400 SPL SKIP IF ONE WORD FORMAT 3010 04075 0 01 04227 JMP TWOR PROCESS TWO WORD TYPE 3011 04076 0 02 00512 LDA BLKS FETCH WORD COUNT 3012 04077 0 06 00513 ADD ROOM ADD SIZE CONSTANT (0 OR 2) 3013 04100 101400 SMI SKIP IF ROOM FOR ENTRY 3014 04101 0 01 04104 JMP PNCH NOT ENOUGH, PUNCH THE BUFFER 3015 04102 0 12 00512 IRS BLKS INCREMENT WORD COUNT 3016 04103 0 01 04243 JMP FILL+1 IF NO OVERFLOW, PUT WORD IN BUFFER 3017 04104 0 02 00514 PNCH LDA OBT FETCH BLOCK CODE 3018 04105 100400 SPL SKIP IF NOT FIRST CALL 3019 04106 0 01 04236 JMP BEGF FIRST CALL - OUTPUT FEED 3020 04107 0 11 00767 CAS C4 CHECK FOR INTERNAL TYPE 4 3021 04110 100000 SKP NO 3022 04111 0 01 04135 JMP RRT BLOCK TYPE 0-20 SHOULD NEVER BE OUTPUT 3023 04112 141240 ICR A(1-8) = BLOCK CODE 3024 04113 0 04 04676 STA OUTB+1 PLACE IT IN OUTPUT BUFFER 3025 04114 0 05 00515 ERA CKSM UPDATE THE CHECKSUM 3026 04115 0 04 00515 STA CKSM SAVE NEW CHECKSUM VALUE 3027 04116 0 02 00514 LDA OBT TEST FOR DATA BLOCK 3028 04117 0 07 00700 SUB ONE 3029 04120 101040 SNZ SKIP IF NOT 3030 04121 0 10 04452 JST TRUN INSURE THAT LAST ENTRY IS IN THE BUFFER 3031 04122 0 02 00512 LDA BLKS DETERMINE DATA WORD COUNT 3032 04123 0 07 00710 SUB M56