AB16-CCT4

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

0712 01324 0 04 00777 STA '777 STORE TEST NO. 0713 01325 0 04 00000 STA 0 STORE A NO. AT ZERO 0714 01326 0 15 01543 STX TEMP STORE CONTENTS OF X AT TEMP 0715 01327 0 05 01543 ERA TEMP IS TEMP=A 0716 01330 100040 SZE 0717 01331 000000 HLT X AND LOC.0 DIFFERED 0718 01332 0 35 01322 LDX XRG0 STORE DATA WORD AT X 0719 01333 0 02 00000 LDA 0 LOAD CONTENTS OF ZERO IN A 0720 01334 0 05 01322 ERA XRG0 COMPARE WITH ORIG. WORD 0721 01335 100040 SZE MUST COMPARE 0722 01336 000000 HLT ERROR - X-REG AND LOC.0 DIFFERED 0723 01337 -0 01 01322 JMP* XRG0 RETURN 0724 * 0725 * 0726 * SUBROUTINE T013 ADDER TEST NO.1 0727 * 0728 01340 000013 OCT 13 0729 01341 0 000000 ADDS DAC ** ADDS TEST 0730 01342 0 02 01340 LDA *-2 LOAD TEST NO. 0731 01343 0 04 00777 STA '777 STORE AT '777 0732 01344 140040 CRA ZERO'S TO (A) 0733 01345 100040 SZE SKIP IF ZERO 0734 01346 000000 HLT ERROR 0735 01347 140401 CMA ONE'S COMPLEMENT OF (A) TO (A)=177777 0736 01350 141206 AOA (A)+1 TO (A)=000000 0737 01351 100040 SZE SKIP IF ZERO 0738 01352 000000 HLT ERROR 0739 01353 140401 CMA ONE'S COMPLEMENT OF (A) TO (A)=177777 0740 01354 140040 CRA ZERO'S T0 (A)=000000 0741 01355 100040 SZE SKIP IF (A)=000000 0742 01356 000000 HLT ERROR 0743 01357 140401 CMA ONE'S COMPLEMENT OF (A) TO (A)=177777 0744 01360 0 06 01773 ADD =1 (A)+(M) TO (A)=000000 0745 01361 100040 SZE SKIP IF (A)=000000 0746 01362 000000 HLT ERROR 0747 01363 140401 CMA ONE'S COMPLEMENT OF (A) T0 (A)=177777 0748 01364 140407 TCA TWO'S COMPLEMENT OF (A) TO (A)=000001 0749 01365 0 06 01767 ADD ='177777 (A)+(M) TO (A)=000000 0750 01366 100040 SZE SKIP IF (A)=000000 0751 01367 000000 HLT ERROR 0752 01370 0 02 01767 LDA ='177777 (M) TO (A)=177777 0753 01371 0 06 01773 ADD =1 (A)+(M) TO (A)=000000 0754 01372 100040 SZE SKIP IF (A)=000000 0755 01373 000000 HLT ERROR 0756 01374 0 02 01750 LDA ='052525 @M$ TO (A)=052525 0757 01375 0 06 01750 ADD ='052525 (A) + (M) TO (A)=125252 0758 01376 0 06 01747 ADD ='052526 (A)+(M) TO (A)=000000 0759 01377 100040 SZE SKIP IF (A)=000000 0760 01400 000000 HLT ERROR 0761 01401 140401 CMA -(A) TO (A)=177777