AB16-12T3

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 21

0895 02076 0 10 02574 JST OPCO ASK FOR FREQ 0896 02077 0 003360 DAC MES2 0897 02100 0 10 02140 JST PACK GET PACKED WORD (OR SKIP 3) 0898 02101 0 02 00566 LDA NEWL 0899 02102 0 10 02257 JST DCO PACKED DEC TO BINARY 0900 02103 0 04 00544 STA DCPS 0901 02104 0 02 00544 LDA DCPS FETCH IT BACK 0902 02105 0 11 00652 CAS =50 AND CHECK TO LOWER LIMIT 0903 02106 101000 NOP 0904 02107 100000 SKP GOOD SO FAR 0905 02110 0 01 02115 JMP IPLT TOO SMALL 0906 * 0907 02111 0 11 00625 CAS =1000 TRY HIGH LIMIT 0908 02112 0 01 02115 JMP IPLT TOO BIG 0909 02113 101000 NOP 0910 02114 0 01 02120 JMP IPLU GOOD ON FREQ 0911 * 0912 02115 0 10 02574 IPLT JST OPCO TYPE ERROR MESSAGE 0913 02116 0 003460 DAC MES8 ABOUT PARAMETER LIMITS 0914 02117 0 01 02076 JMP IPLS+1 AND REPEAT REQUEST 0915 * 0916 02120 0 10 02574 IPLU JST OPCO ASK FOR SAMPLE SIZE IN CYCLES 0917 02121 0 003367 DAC MES3 0918 02122 0 10 02140 JST PACK GET PACKED WORD (OR SKIP 3) 0919 02123 0 02 00566 LDA NEWL 0920 02124 0 10 02257 JST DCO PACKED DECIMAL TO BINARY 0921 02125 0 04 00545 STA DINC 0922 02126 0 02 00545 LDA DINC FETCH IT BACK 0923 02127 0 11 00671 CAS =1 COMPARE TO LOWER LIMIT 0924 02130 101000 NOP 0925 02131 100000 SKP 0926 02132 0 01 02115 JMP IPLT TOO SMALL 0927 * 0928 02133 0 11 00625 CAS =1000 TRY HIGH LIMIT 0929 02134 0 01 02115 JMP IPLT TOO BIG 0930 02135 101000 NOP OK 0931 02136 0 10 02552 JST LFCR ACKNOWLEDGE OPERATOR 0932 02137 -0 01 02075 JMP* IPLS RETURN 0933 * 0934 * STRIP ASCII AND PACK BCD - FOUR CHARACTER/WORD 0935 * 0936 02140 0 000000 PACK DAC ** SUBROUTINE ENTRY 0937 02141 140040 CRA INITIALIZE NEW VALUE AND 0938 02142 0 04 00566 STA NEWL ACCEPT OLD VALUE FLAG 0939 02143 0 04 00530 STA CFLG 0940 02144 0 10 02611 REST JST IPOC INPUT ONE CHARACTER 0941 02145 000000 BSZ 1 STORE IT HERE 0942 02146 0 02 02145 LDA *-1 FETCH IT 0943 02147 0 11 00667 CAS ='256 TEST FOR PERIOD 0944 02150 100000 SKP