AB16-12T3

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

0995 * AND RESULTANT ASCII REPLACES THE CONTENTS OF A-REG. 0996 * AND B-REG. THE SIGNIFICANCE LIES FROM A TO B. 0997 * 0998 02222 0 000000 BCDC DAC ** 0999 02223 0400 60 LRL 16 (B) = DATA TO BE CONVERTED 1000 02224 0 10 02235 JST BCDA PACK A WORD 1001 02225 0 04 02234 STA BCDR+1 1002 02226 0 10 02235 JST BCDA PACK SIG. WORD 1003 02227 000201 IAB MSW TO (B) 1004 02230 0 02 02234 LDA BCDR+1 LSW TO (A) 1005 02231 000201 IAB (A)=MSW,(B)=LSW 1006 02232 -0 01 02222 JMP* BCDC 1007 02233 BCDR BSS 2 RESULT STORED HERE 1008 * 1009 02235 0 000000 BCDA DAC ** 1010 02236 140040 CRA 1011 02237 0 04 02233 STA BCDR INITIALIZE 1012 02240 0 10 02247 JST DIVD * 1013 02241 0 04 02233 STA BCDR TWO 1014 02242 0 10 02247 JST DIVD ASCII 1015 02243 0415 70 ALS 8 PACK 1016 02244 0 05 02233 ERA BCDR * 1017 02245 0 04 02233 STA BCDR * 1018 02246 -0 01 02235 JMP* BCDA * 1019 * 1020 02247 0 000000 DIVD DAC ** 1021 02250 140040 CRA 1022 02251 0 10 02426 JST DIV 1023 02252 0 000646 DAC =10 1024 02253 000000 HLT DIVIDE BY 10 1025 02254 000201 IAB * 1026 02255 0 05 00647 ERA ='260 AND ASCII PACK 1027 02256 -0 01 02247 JMP* DIVD * 1028 * 1029 * BCD TO BINARY EQUIVALENT 1030 * UPON ENTRY, A-REG. CONTAINS 4 BITS CODED DECIMAL DIGIT. 1031 * UPON EXIT, (A)=CONVERTED BINARY. 1032 * 1033 02257 0 000000 DCO DAC ** 1034 02260 0400 60 LRL 16 (B)=BCD 1035 02261 0 10 02302 JST DCOM 1036 02262 001750 DEC 1000 X 1000 1037 02263 0 04 02301 STA DCOT 1038 02264 0 10 02302 JST DCOM 1039 02265 000144 DEC 100 X 100 1040 02266 0 06 02301 ADD DCOT 1041 02267 0 04 02301 STA DCOT 1042 02270 0 10 02302 JST DCOM 1043 02271 000012 DEC 10 X10 1044 02272 0 06 02301 ADD DCOT