AB16-CCT4

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

0812 01464 140040 CRA ZERO'S TO (A) 0813 01465 000201 IAB INTERCHANGE (A) AND (B) 0814 01466 140040 CRA ZERO'S TO (A) 0815 01467 140401 CMA ONE' COMPLEMENT OF (A) TO (A)='177777 0816 01470 000201 IAB INTERCHANGE (A) AND (B) 0817 01471 100040 SZE SKIP IF (A)='000000 0818 01472 000000 HLT ERROR 0819 01473 0 02 01772 LDA ='125252 (M) TO (A)='125252 0820 01474 000201 IAB INTERCHANGE (A) AND (B) 0821 01475 0 06 01773 ADD =1 (A)+(M) TO (A)='000000 0822 01476 100040 SZE SKIP IF (A)='000000 0823 01477 000000 HLT ERROR 0824 01500 0 02 01750 LDA ='052525 (M) TO (A) 0825 01501 000201 IAB INTERCHANGE (A) AND (B) 0826 01502 0 06 01747 ADD ='052526 (A)+(M) TO (A)='000000 0827 01503 100040 SZE SKIP IF (A)='000000 0828 01504 000000 HLT ERROR 0829 01505 000201 IAB INTERCHANGE (A) AND (B) 0830 01506 0 06 01746 ADD ='125253 (A)+(M) TO (A) 0831 01507 100040 SZE 0832 01510 000000 HLT ERROR 0833 01511 0 35 01745 LDX =-64 (M) TO (X) 0834 01512 0 02 01772 LDA ='125252 (M) TO (A) 0835 01513 1 04 01643 STA TEMP+64,1 (M)+64+(-X) INDEXING 0836 01514 0 02 01747 LDA ='052526 (M) TO (A) 0837 01515 1 06 01643 ADD TEMP+64,1 (M)+64+(-X) INDEXING 0838 01516 100040 SZE 0839 01517 000000 HLT ERROR 0840 01520 0 10 00756 JST BSCT GO TEST INDEXING IN BASE SECTOR 0841 01521 0 02 01756 LDA =64 (M) TO (A) 0842 01522 0 04 01543 STA TEMP (A) TO (M) 0843 01523 0 02 01744 LDA ='070707 (M) TO (A) 0844 01524 -0 04 01543 STA* TEMP (A) TO (M) INDIRECT 0845 01525 0 02 01743 LDA ='107071 (M) TO (A) 0846 01526 -0 06 01543 ADD* TEMP (M)+(A) INDIRECT 0847 01527 100040 SZE 0848 01530 000000 HLT ERROR 0849 01531 0 35 01745 LDX =-64 (M) TO (X) 0850 01532 0 02 01742 LDA =65 (M) TO (A) 0851 01533 0 04 01543 STA TEMP (A) TO (M) 0852 01534 0 02 01750 LDA ='052525 DATA 0853 01535 -1 04 01643 STA* TEMP+64,1 0854 01536 0 02 01746 LDA ='125253 DATA 0855 01537 -1 06 01643 ADD* TEMP+64,1 (M)+(A) TO (A) INDEXING, INDIRECT 0856 01540 100040 SZE 0857 01541 000000 HLT ERROR 0858 01542 -0 01 01341 JMP* ADDS RETURN TO MONTOR 0859 * 0860 01543 000000 TEMP BSZ 1 0861 01544 000000 LOCT BSZ 1