AB16-CCT4

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 73

3439 06164 100040 SZE 3440 06165 000000 HLT ERROR - BIT4 DID NOT GET RESET 3441 * 3442 * 3443 * CHECK X MODE 3444 * 3445 06166 000015 XFX SET X MODE 3446 06167 0 35 06750 LDX =-3 3447 06170 0 02 00766 LDA STIR 3448 06171 0 04 06223 STA PNTR STORE ADDR OF WORK AT POINTER 3449 06172 0 02 06747 LDA ='52525 FILL THREE WORD BUFFER 3450 06173 -0 04 06223 STA* PNTR WITH KNOWN DATA 3451 06174 0 06 06746 ADD ='135 3452 06175 0 12 06223 IRS PNTR 3453 06176 0 12 00000 IRS 0 3454 06177 0 01 06173 JMP *-4 3455 * 3456 * 3457 * TEST S MODE FOR INDEXING 3458 * 3459 06200 000017 XFS SET S MODE 3460 06201 0 35 06750 LDX =-3 3461 06202 0 02 06754 LDA =-1 3462 06203 0 04 00003 STA 3 STORE =-1 AT 3 3463 06204 0 02 00766 LDA STIR LOAD ADDRESS OF WORK 3464 06205 0 04 06223 STA PNTR STORE AT POINTER 3465 06206 1 02 00771 X13C LDA WORK+1,1 INDEX FROM S 3466 06207 -0 05 06223 ERA* PNTR XOR WITH DATA 3467 06210 100040 SZE 3468 06211 000000 HLT ERROR - DATA DID NOT AGREE 3469 06212 0 12 00000 IRS 0 X-REG FOR COUNTING, ARE WE DONE 3470 06213 100000 SKP NO, SKIP 3471 06214 0 01 06231 JMP X13D YES, JUMP AROUND 3472 06215 0 12 06223 IRS PNTR MODIFY 3473 06216 0 12 00003 IRS 3 3474 06217 101000 NOP 3475 06220 0 01 06206 JMP X13C CHECK NEXT WORD 3476 * 3477 06221 000000 X601 BSZ 1 3478 06222 000000 X602 BSZ 1 3479 06223 000000 PNTR BSZ 1 3480 06224 020000 BIT3 OCT 20000 EXTEND MODE BIT 3481 06225 010000 BIT4 OCT 10000 S MODE BIT 3482 06226 024000 BT35 OCT 24000 EXTEND MODE AND RUPT MASK BITS 3483 06227 000000 HADD BSZ 1 HIGH ADDRESS BEFORE OVERFLOW 3484 06230 000000 LADD BSZ 1 LOW ADDRESS BEFORE UNDERFLOW 3485 * 3486 * 3487 * TEST IRS 3 (POP), LDA 5 (POP A) AND STA 4 (PUSH A). 3488 *