AB16-CCT4

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

3689 06474 000000 HLT ERROR 3690 * 3691 * 3692 * 3693 * CHECK FOR CORRECT DATA WORD - POP OPERATION 3694 * 3695 06475 0 35 06733 X13J LDX =-500 INITIALIZE COUNT 3696 06476 000013 EXA 3697 06477 0 10 06500 JST *+1 SET UP FOR 3698 06500 0 000000 DAC ** UNEXPECTED RUPT 3699 06501 0 02 06500 LDA *-1 3700 06502 0 06 06744 ADD ='22 3701 06503 0 04 00057 STA '57 3702 06504 000011 DXA 3703 06505 0 01 06506 JMP *+1 NORMAL MODE 3704 06506 0 02 06731 LDA ='1006 3705 06507 0 04 00003 STA 3 3706 06510 0 04 06223 STA PNTR 3707 06511 0 02 00005 X13K LDA 5 3708 06512 -0 05 06223 ERA* PNTR 3709 06513 100040 SZE 3710 06514 000000 HLT ERROR - DATA DID NOT AGREE 3711 06515 0 12 00000 IRS 0 ARE WE DONE 3712 06516 100000 SKP NO, SKIP 3713 06517 0 01 06524 JMP X13L YES, JUMP OUT 3714 06520 0 12 06223 IRS PNTR MODIFY 3715 06521 0 01 06511 JMP X13K GO AND TEST NEXT WORD 3716 * 3717 06522 0 000000 DAC ** UNEXPECTED RUPT 3718 06523 000000 HLT ERROR 3719 * 3720 * 3721 * RUPT TEST FOR OVERFLOW 3722 * 3723 06524 0 35 06730 X13L LDX =-512 COUNTER FOR ALL POSSIBLE OVERFLOW CASES 3724 06525 0 02 06727 LDA ='100 3725 06526 0 04 06227 STA HADD GOING TO '77 WILL CAUSE AN OVERFLOW 3726 06527 0 04 00003 STA 3 AND AN INTERRUPT IF MASK IS SET. 3727 06530 0 02 06226 LDA BT35 3728 06531 171020 OTK SET EXTEND MODE AND RUPT MASK 3729 06532 0 01 06533 JMP *+1 3730 06533 0 10 06534 JST *+1 SET UP FOR 3731 06534 0 000000 DAC ** EXPECTED RUPT 3732 06535 0 02 06534 LDA *-1 3733 06536 0 06 06735 ADD =6 3734 06537 0 04 00057 STA '57 3735 06540 0 02 00004 LDA 4 3736 06541 000000 HLT ERROR - DID NOT GO TO RUPT 3737 * 3738 06542 0 000000 DAC ** EXPECTED RUPT