AB16-12T3

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

0945 02151 0 01 02173 JMP RETN RETURN 0946 02152 0 11 00651 CAS ='215 TEST FOR CR 0947 02153 100000 SKP 0948 02154 0 01 02173 JMP RETN RETURN SAME AS PERIOD 0949 02155 0 11 00650 CAS ='271 0950 02156 0 01 02202 JMP REJT TOO LARGE 0951 02157 101000 NOP 0952 02160 0 11 00647 CAS ='260 0953 02161 101000 NOP 0954 02162 100000 SKP 0955 02163 0 01 02202 JMP REJT TOO SMALL 0956 * 0957 02164 0 07 00647 SUB ='260 OK STRIP IT AND PACK 0958 02165 0 13 00566 IMA NEWL GET PREV INPUT 0959 02166 0414 74 LGL 4 MAKE ROOM 0960 02167 0 06 00566 ADD NEWL PUT NEW DIGIT IN PLACE 0961 02170 0 04 00566 STA NEWL STORE IT 0962 02171 0 12 00530 IRS CFLG MAKE CHAR FLAG NON-ZER0 0963 02172 0 01 02144 JMP REST AND SET NEXT 0964 * 0965 02173 0 02 00530 RETN LDA CFLG GET THE CHARACTER FLAG 0966 02174 100040 SZE ZERO SAYS NOTHING NEW 0967 02175 -0 01 02140 JMP* PACK RETURN WITH NEW VALUE 0968 02176 0 02 02140 LDA PACK SKIP OVER THE 0969 02177 0 06 00704 ADD =3 NEXT THREE INSTRUCTIONS 0970 02200 0 04 02140 STA PACK WHICH RETAINS THE 0971 02201 -0 01 02140 JMP* PACK PREVIOUS VALUE 0972 * 0973 02202 0 02 02140 REJT LDA PACK 0974 02203 0 07 00704 SUB =3 BACK UP TO REQUEST AGAIN 0975 02204 0 04 02140 STA PACK 0976 02205 -0 01 02140 JMP* PACK AND RETURN 0977 * 0978 * ONE MILLISECOND DELAY LOOP 0979 * 0980 02206 0 000000 DLYL DAC ** 0981 02207 140407 TCA 0982 02210 0 04 00546 STA DLYM STORE IT 0983 02211 0 01 02217 JMP DLYB 0984 02212 0 02 00543 DLYA LDA DCON DELAY COUNT OF -155 0R -261 0985 02213 0 04 00547 STA DLYN STORE IT 0986 02214 140040 CRA 0987 02215 0 12 00547 IRS DLYN INC.COUNTER 0988 02216 0 01 02215 JMP *-1 0989 02217 0 12 00546 DLYB IRS DLYM TEST FOR END 0990 02220 0 01 02212 JMP DLYA REPEAT 0991 02221 -0 01 02206 JMP* DLYL RETURN 0992 * 0993 * BINARY TO BCD-ASCII CONVERSION (POSITIVE INTEGER ONLY) 0994 * (A) ARE CONVERTED FROM BINARY TO BCD CODE TO ASCII CODE,