O16-DECL

* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 4

0139 * 0140 ************************************************************************ 0141 * 0142 SUBR DECC,DECC 0143 SUBR DECI 0144 * 0145 CF3 FOR USE ON H316 AND DDP-516 0146 REL THIS PROGRAM IS RELOCATABLE 0147 * 0148 EXT ERD CONVERSION ERROR FLAG 0149 EXT WCNT WORD COUNT 0150 EXT DOCT CONVERSION MODE 0151 EXT TERM CURRENT CHARACTER 0152 EXT NUM FIRST WORD OF NUMERIC ACCUMULATORS 0153 EXT NUM1 SECOND WORD 0154 EXT NUM2 THIRD WORD 0155 EXT NUM3 0156 EXT SIGN ARITHMETIC SIGN 0157 EXT ALFA NON-NUMERIC ITEM FLAG 0158 EXT DECF DECIMAL FLAG 0159 EXT LITF LITERAL FLAG 0160 * 0161 * 0162 00000 0 000000 DECC DAC *-* 0163 00001 0 02 00000 LDA TERM FETCH THE INPUT CHARACTER 0164 00002 0 11 01125 CAS ='271 DESIGNATE ASCII CODES 272 THRU 300 0165 00003 0 11 01124 CAS ='301 AS NON-DIGITS 0166 00004 0 01 00007 JMP *+3 0167 00005 100000 SKP 0168 00006 0 01 00032 JMP LETR CONSIDER IT A LETTER 0169 00007 0 07 00037 SUB K260 TEST FOR POSSIBLE NUMERIC 0170 00010 100400 SPL 0171 00011 0 01 00067 JMP SPEC NOT NUMERIC 0172 00012 0 07 00034 SUB K12 SEE IF DECIMAL DIGIT 0173 00013 101400 SMI SKIP IF SO 0174 00014 0 07 00041 SUB Q7 NO...MAYBE HEX DIGIT 0175 00015 0 06 00034 ADD K12 RESTORE TO BINARY VALUE 0176 00016 0 04 00532 STA CH SAVE FOR USE IF ITS A DIGIT I 0177 00017 0 35 00000 LDX DOCT X&-1 IF DEC MODE, 0 IF OCT, +1 IF HEX 0178 00020 1 11 00035 CAS RNG,1 SEE IF ITS A DIGIT IN CURRENT MODE 0179 00021 0 01 00024 JMP *+3 NO 0180 00022 100000 SKP NO 0181 00023 1 01 00131 JMP BNCH,1 YES...GO PROCESS IT 0182 00024 0 07 01123 SUB =11 TEST FOR B 0183 00025 101040 SNZ 0184 00026 0 01 00043 JMP B YES 0185 00027 0 07 01122 SUB =3 MAYBE AN 'E' 0186 00030 101040 SNZ SKIP IF NOT 0187 00031 0 01 00044 JMP B+1 YES 0188 00032 0 12 00000 LETR IRS DECC