AB16-CCT4

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

1030 02025 0 04 02050 STA TABZ INITIALIZE TEST COUNT 1031 02026 140040 CRA ** 1032 02027 0 04 02047 STA TABY ** 1033 02030 0 02 02051 TABB LDA TXBA ADD FIRST PARAMETER TO 1034 02031 0 06 02052 ADD TXBB SECOND PARAMETER AND COMPARE 1035 02032 0 11 02053 CAS TXBC RESULTS WITH PRECALCULATED VALUE 1036 02033 0 01 02035 JMP *+2 ERROR 1037 02034 100000 SKP 1038 02035 000000 HLT ERROR 1039 02036 0 02 02054 LDA TXBE USE SECOND SET 1040 02037 0 06 02055 ADD TXBF OF PARAMETERS AND 1041 02040 0 11 02056 CAS TXBG CHECK RESULTS 1042 02041 0 01 02043 JMP *+2 ERROR 1043 02042 100000 SKP 1044 02043 000000 HLT ERROR 1045 02044 0 12 02050 IRS TABZ INCREMENT LOOP COUNTER 1046 02045 0 01 02067 JMP TXBJ NOT FINISHED GO ADJUST PARAMETERS 1047 02046 -0 01 02020 JMP* ADD2 RETURN 1048 02047 0 00 00000 TABY PZE 1049 02050 0 00 00000 TABZ PZE 1050 02051 057353 TXBA OCT 57353 1051 02052 041051 TXBB OCT 41051 1052 02053 120424 TXBC OCT 120424 1053 02054 077373 TXBE OCT 77373 1054 02055 001011 TXBF OCT 1011 1055 02056 100404 TXBG OCT 100404 1056 02057 0 00 00000 TXBP PZE 1057 02060 057353 OCT 57353 TEST DATA 1058 02061 041051 OCT 41051 **** 1059 02062 120424 OCT 120424 **** 1060 02063 077373 OCT 77373 **** 1061 02064 001011 OCT 1011 **** 1062 02065 100404 OCT 100404 **** 1063 02066 0 00 00000 TXBD PZE 1064 02067 0 02 02763 TXBJ LDA =-6 THIS ROUTINE CYCLES THE TEST 1065 02070 0 04 00000 STA 0 DATA (SIX VALUES) ONE PLACE 1066 02071 1 02 02066 TXBK LDA TXBD,1 TO THE RIGHT TO GENERATE 1067 02072 000201 IAB TWO SETS OF 16 DIFFERENT 1068 02073 1 02 02066 LDA TXBD,1 VALUES TO CHECK CARRY 1069 02074 0402 77 LRR 1 PROPAGATION 1070 02075 1 04 02066 STA TXBD,1 ** 1071 02076 1 04 02057 STA TXBP,1 ** 1072 02077 0 12 00000 IRS 0 ** 1073 02100 0 01 02071 JMP TXBK ** 1074 02101 0 02 02052 LDA TXBB ** 1075 02102 101100 SLN ** 1076 02103 0 05 02762 ERA =1 ** 1077 02104 0 04 02052 STA TXBB ** 1078 02105 0 02 02055 LDA TXBF ** 1079 02106 101100 SLN **