O16-DECL

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

0189 00033 -0 01 00000 JMP* DECC AND EXIT 0190 * 0191 00034 000012 K12 OCT 12 MAX+1 FOR DEC CONVERSION 0192 00035 000010 RNG OCT 10 MAX+1 FOR OCT CONVERSION 0193 00036 000020 OCT 20 MAX+1 FOR HEX CONVERSION 0194 00037 000260 K260 OCT 260 CONSTANTS 0195 00040 000302 K302 OCT 302 X 0196 00041 000007 Q7 OCT 7 X 0197 * 0198 00042 0 02 01121 LDA =-2 HERE ON DEC DIGIT 0199 00043 0 06 00557 B ADD Q1 B IS +2 0200 00044 0 06 00557 ADD Q1 E IS +1, DIGIT IS +0 0201 00045 101040 SNZ ON B AND E TEST OCTAL FLAG 0202 00046 -0 01 00227 JMP* SW DIGIT - ENTER PROCESSOR 0203 00047 0 04 00532 STA CH SAVE THE E OR B FLAG 0204 00050 0 02 00000 LDA DOCT SEE IF DEC OR DBP PSEUDO-OP PROCESSING 0205 00051 101400 SMI 0206 00052 0 01 00032 JMP LETR IF NOT SET. CAN'T BE NUMERIC 0207 00053 0 06 00000 ADD DECF DOCT+DECF=-2 IF SO 0208 00054 141206 AOA 0209 00055 101400 SMI X 0210 00056 0 01 00062 JMP LTRL CHECK IF LITERAL 0211 00057 0 04 00533 RTN1 STA PNT CLAIM THERE WAS A POINT. 0212 00060 0 02 00532 XIT1 LDA CH RESTORE THE FLAG 0213 00061 -0 01 00227 JMP* SW AND ENTER THE PROCESSOR 0214 * 0215 00062 0 02 00000 LTRL LDA LITF CHECK LITERAL FLAG 0216 00063 100040 SZE IF RESET, IT IS A LITERAL 0217 00064 0 01 00032 JMP LETR B AND E ARE LETTERS IF OCTAL 0218 00065 140401 CMA FILL REGISTER 0219 00066 0 01 00057 JMP RTN1 CONTINUE PROCESSING 0220 * 0221 00067 0 06 00127 SPEC ADD Q2 TEST FOR A DECIMAL POINT 0222 00070 101040 SNZ X 0223 00071 0 01 00104 JMP XIT IT IS DECIMAL POINT 0224 00072 101400 SMI TEST FOR A SLASH 0225 00073 0 01 00032 JMP LETR YES - CALL IT A LETTER 0226 00074 0 06 00127 ADD Q2 TEST FOR A COMMA 0227 00075 101040 SNZ X 0228 00076 0 01 00365 JMP CVRT IT IS A COMMA 0229 00077 101400 SMI TEST FOR MINUS 0230 00100 0 01 00104 JMP XIT IT IS MINUS 0231 00101 0 04 00532 STA CH TEST FOR PLUS 0232 00102 0 12 00532 IRS CH X 0233 00103 0 01 00362 JMP BTST NOT PLUS - TEST FOR BLANK 0234 00104 0 06 00126 XIT ADD M1 FORM THE CODE FOR (+), (-), (.) 0235 00105 0 04 00532 STA CH AND SAVE IT 0236 00106 0 02 00000 LDA DOCT TEST CONVERSION MODE 0237 00107 100400 SPL X 0238 00110 0 01 00060 JMP XIT1 IT IS DECIMAL