O16-DECL

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

0239 00111 0 02 00532 LDA CH RECOVER THE CODE 0240 00112 0406 77 ARR 1 TEST FOR DECIMAL POINT 0241 00113 100400 SPL X 0242 00114 0 01 00032 JMP LETR TREAT POINT AS LETTER IF OCTAL 0243 00115 0 02 00000 OCT LDA SIGN TEST FOR COMPLEMENT CYCLE 0244 00116 101400 SMI X 0245 00117 0 01 00123 JMP OCT1 NOT REQUIRED 0246 00120 140040 CRA COMPLEMENT THE WORD 0247 00121 0 07 00000 SUB NUM 0248 00122 0 04 00000 STA NUM 0249 00123 0 02 00557 OCT1 LDA Q1 SET THE WORD COUNT TO 1 0250 00124 0 04 00000 STA WCNT X 0251 00125 0 01 00523 JMP END AND EXIT 0252 * 0253 00126 100001 M1 OCT 100001 X 0254 00127 000002 Q2 OCT 2 X 0255 * 0256 * 0257 * 0258 00130 0 01 00042 JMP B-1 PROCESS DECIMAL DIGIT 0259 00131 0 01 00137 BNCH JMP OCTC PROCESS OCTAL DIGIT 0260 * 0261 * HERE FOR HEX CONVERSION 0262 * 0263 00132 0 02 00000 LDA NUM FETCH PREVIOUS ACCUMULATION 0264 00133 0416 74 ALR 4 *16, OVERFLOW IN A(13-16) 0265 00134 0 04 00000 STA NUM SAVE PARTIAL RESULT 0266 00135 0 03 01120 ANA ='17 ISOLATE OVERFLOW BITS 0267 00136 0 01 00143 JMP OCTX JOIN OCTAL PROCESSOR 0268 * 0269 * HERE FOR OCTAL CONVERSION 0270 * 0271 00137 0 02 00000 OCTC LDA NUM FETCH PREVIOUS ACCUMULATION 0272 00140 0416 75 ALR 3 *8. OVERFLOW IN A(14-16) 0273 00141 0 04 00000 STA NUM SAVE PARTIAL RESULT 0274 00142 0 03 00041 ANA Q7 ISOLATE OVERFLOW BITS 0275 00143 100040 OCTX SZE SKIP IF NO OVERFLOW 0276 00144 0 04 00000 STA ERD SET CONVERSION ERROR FLAG 0277 00145 0 05 00000 ERA NUM PUT HIGH ORDER BITS BACK IN 0278 00146 0 05 00532 ERA CH INSERT THE NEW DIGIT 0279 00147 0 04 00000 STA NUM SAVE RESULT 0280 00150 -0 01 00000 JMP* DECC AND RETURN 0281 * 0282 00151 101040 DEC1 SNZ TEST FOR DIGIT INPUT 0283 00152 0 01 00166 JMP DEC2 IT IS A DIGIT 0284 00153 101400 SMI TEST FOR B OR E 0285 00154 0 01 00207 JMP DEC3 IT IS B OR E 0286 00155 0406 77 ARR 1 TEST FOR DECIMAL POINT 0287 00156 101400 SMI X 0288 00157 0 01 00370 JMP CVR1 TERMINATE ON PLUS OR MINUS