O16-DECL

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

0001 * O180 (O16-DECL) DWG. 70181506000 REV. B 0002 * 0003 * 0004 * 0005 * COMPUTER: DDP-516. H316 0006 * 0007 * 0008 * PROGRAM CATEGORY: ASSEMBLY 0009 * 0010 * 0011 * PROGRAM TITLE: O16-DECL (DECI, DECC) 0012 * DECIMAL, HEXADECIMAL, AND OCTAL CONVERSION 0013 * 0014 * 0015 * 0016 * 0017 * 0018 * 0019 * 0020 * 0021 * 0022 * 0023 * 0024 * APPROVAL DATE 0025 * 0026 * 0027 * 0028 * PROG---------------------- ------------- 0029 * 0030 * 0031 * SUPR---------------------- ------------- 0032 * 0033 * 0034 * QUAL---------------------- ------------- 0035 * 0036 * 0037 * NO. OF PAGES ------------- 0038 EJCT
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 2

0039 * REVISIONS: 0040 * 0041 * REV. B ECO 0042 * REV. A 05-04-70 0043 * 0044 * 0045 * 0046 * AUTHOR 0047 * 0048 * HONEYWELL INC., COMPUTER CONTROL DIVISION 0049 * 0050 * 0051 * PURPOSE 0052 * 0053 * TO CONVERT AN INPUT STRING OF CHARACTERS TO BINARY. 0054 * 0055 * 0056 * RESTRICTIONS 0057 * 0058 * THIS ROUTINE IS USED BY THE DAP-16M2 ASSEMBLER 0059 * DO NOT USE EQUATES TO MAIN ASSEMBLER PROGRAM. 0060 * 0061 * 0062 * STORAGE 0063 * 0064 * 1126 (OCTAL) 0065 * 598 (DECIMAL) 0066 * 0067 * 0068 * USE 0069 * 0070 * CALLING SEQUENCE 0071 * 0072 * CALL DECI INITIALIZE SWITCHES AND COUNTERS. 0073 * NORMAL RETURN. 0074 * 0075 * CALL DECC CONVERSION ROUTINE. 0076 * NUMERIC RETURN. 0077 * ALPHA RETURN. 0078 * ILLEGAL CHARACTER RETURN. 0079 * 0080 * DECC CONVERTS AN INPUT STRING OF DECIMAL DIGITS AND CONTROL 0081 * CHARACTERS TO THE CORRESPONDING BINARY REPRESENTATION. 0082 * 0083 * 0084 * METHOD 0085 * 0086 * THE BASIC METHOD USED IS AS FOLLOWS? 0087 * 0088 *
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 3

0089 * (A) THE MAGNITUDE OF THE NUMBER IS CONVERTED TO A TRIPLE 0090 * PRECISION BINARY INTEGER BY MULTIPLYING THE PARTIAL 0091 * SUM BY 10 AND ADDING THE CURRENT DIGIT. 0092 * 0093 * (B) A COUNT IS MADE OF THE NUMBER OF PLACES THAT 0094 * FOLLOW THE DECIMAL POINT. 0095 * 0096 * (C) THE E AND B FIELDS ARE ASSEMBLED AS SIGNED SINGLE 0097 * PRECISION INTEGERS. 0098 * 0099 * (D) IF OVERFLOW OCCURS WHILE BUILDING THE TRIPLE PRECISION 0100 * BINARY INTEGER AFTER THE DECIMAL POINT HAS BEEN DETECTED. 0101 * THE REMAINING DIGITS OF THE MAGNITUDE FIELD ARE IGNORED. 0102 * 0103 * (E) IF OVERFLOW OCCURS BEFORE THE DECIMAL POINT IS DETECTED. 0104 * A COUNT IS MAINTAINED OF THE NUMBER OF DIGITS TO THE POINT 0105 * OR END OF FIELD. 0106 * 0107 * (F) THE COUNTS IN (B) AND (E) ARE COMBINED TO GIVE A NET 0108 * IMPLIED DECIMAL EXPONENT. THESE ARE SUMMED WITH THE 0109 * E FIELD VALUE TO GIVE A TOTAL DECIMAL EXPONENT. 0110 * 0111 * (G) A TEST IS MADE FOR INTEGER CONVERSION. IF INTEGER CONVERSION 0112 * IS REQUIRED AN EXIT IS MADE AT THIS POINT. 0113 * 0114 * (H) THE BINARY INTEGER IS FLOATED AND EITHER A FLOAT MULTIPLY 0115 * OR FLOAT DIVIDE ROUTINE IS ENTERED IF THE TOTAL DECIMAL 0116 * EXPONENT IS NON ZERO. 0117 * 0118 * (I) IF FLOATING POINT CONVERSION IS REQUIRED. THE NUMBER IS 0119 * TRUNCATED TO THE PROPER SIZE. COMPLEMENTED IF NEGATIVE. 0120 * AND PACKED INTO THE PROPER NUMBER OF WORDS. 0121 * 0122 * (J) IF FIXED POINT CONVERSION IS REQUIRED. THE B FIELD 0123 * VALUE IS SUBTRACTED FROM THE BINARY EXPONENT TO DETERMINE 0124 * THE LENGTH OF THE SHIFT. THE ADJUSTED FLOATING POINT 0125 * NUMBER IS FIXED, TRUNCATED TO THE PROPER SIZE, AND, IF 0126 * NEGATIVE, COMPLEMENTED. 0127 * 0128 * (K) IF THE ASSEMBLER HAS CALLED FOR OCTAL CONVERSION. A SINGLE 0129 * PRECISION OCTAL INTEGER IS BUILT UP. 0130 * 0131 * (L) IF THE ASSEMBLER HAS CALLED FOR HEXADECIMAL CONVERSION. 0132 * A SINGLE PRECISION HEXADECIMAL INTEGER IS BUILT UP. 0133 * 0134 * (M) INFORMATION AS TO DATA SIZE. DATA VALIDITY. AND TERMINAL 0135 * CHARACTERS ARE PASSED BACK TO THE MAIN BODY OF THE 0136 * ASSEMBLER IN ADDITION TO THE CONVERTED NUMBER. 0137 * 0138 *
* 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
* 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
* 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
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 7

0289 00160 0 12 00533 IRS PNT MARK A DECIMAL POINT 0290 00161 0 02 00533 LDA PNT TEST FOR A SINGLE POINT 0291 00162 0 07 00557 SUB Q1 X 0292 00163 100040 SZE X 0293 00164 0 01 00032 JMP LETR TREAT EXTRA POINTS AS LETTERS 0294 00165 -0 01 00000 JMP* DECC RETURN 0295 * 0296 00166 0 02 00534 DEC2 LDA OA TEST FOR OVERFLOW 0297 00167 100040 SZE X 0298 00170 0 01 00354 JMP OA2 PRIOR OVERFLOW 0299 00171 0 10 01022 JST M10 MULTIPLY BY TEN 0300 00172 100040 SZE TEST FOR OVERFLOW 0301 00173 0 01 00346 JMP OA1 RECORD THE OVERFLOW 0302 00174 0 04 01036 STA WORK PREPARE TO ADD 0303 00175 0 04 01037 STA WORK+1 THIS DIGIT INTO 0304 00176 0 02 00532 LDA CH THE SUM 0305 00177 0 04 01040 STA WORK+2 X 0306 00200 0 10 01044 JST TADD PERFORM THE TRIPLE ADD 0307 00201 100040 SZE TEST FOR OVERFLOW 0308 00202 0 01 00346 JMP OA1 ADD CAUSED OVERFLOW 0309 00203 0 02 00533 LDA PNT TEST FOR DECIMAL POINT YET 0310 00204 100040 SZE X 0311 00205 0 12 00535 IRS PCNT COUNT THE PLACES AFTER THE POINT 0312 00206 -0 01 00000 JMP* DECC AND RETURN 0313 * 0314 00207 0406 77 DEC3 ARR 1 TEST FOR E OR B 0315 00210 101400 SMI X 0316 00211 0 01 00230 JMP DEC4 IT IS LETTER B 0317 00212 0 02 00545 DEC5 LDA EFLG TEST FOR PRIOR E 0318 00213 100040 SZE X 0319 00214 0 01 00032 JMP LETR 0320 00215 0 02 00244 LDA ESW SET SWITCH TO E PROCESSOR 0321 00216 0 04 00227 STA SW X 0322 00217 0 12 00537 IRS E1S SET THE E ONE SHOT 0323 00220 0 12 00545 EXIT IRS EFLG COUNT AN E 0324 00221 0 02 00545 LDA EFLG TEST FOR NO MORE 0325 00222 0 07 00226 SUB Q3 THAN TWO E'S 0326 00223 100400 SPL 0327 00224 -0 01 00000 JMP* DECC AND RETURN 0328 00225 0 01 00032 JMP LETR 0329 * 0330 00226 000003 Q3 OCT 3 0331 00227 0 000151 SW DAC DEC1 NORMAL POSITION OF SWITCH 0332 * 0333 00230 0 02 00551 DEC4 LDA BFLG TEST FOR A PRIOR B 0334 00231 100040 SZE X 0335 00232 0 01 00032 JMP LETR X 0336 00233 0 02 00257 LDA BSW SET SWITCH TO B PROCESSOR 0337 00234 0 04 00227 STA SW X 0338 00235 0 12 00540 IRS B1S SET THE B ONE SHOT
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 8

0339 00236 0 12 00551 BXIT IRS BFLG COUNT A B 0340 00237 0 02 00551 LDA BFLG TEST FOR NO MORE 0341 00240 0 07 00226 SUB Q3 THAN TWO B'S 0342 00241 101400 SMI X 0343 00242 0 01 00032 JMP LETR X 0344 00243 -0 01 00000 JMP* DECC AND RETURN 0345 * 0346 00244 0 000245 ESW DAC *+1 POINTER FOR SWITCH 0347 00245 100040 SZE TEST FOR NUMERIC 0348 00246 0 01 00272 JMP E1 NOT NUMERIC 0349 00247 0 04 00537 STA E1S RESET E ONE SHOT 0350 00250 0 02 00536 LDA ECNT MULTIPLY THE PARTIAL 0351 00251 0414 76 LGL 2 SUM BY UQ 0352 00252 0 06 00536 ADD ECNT X 0353 00253 0414 77 LGL 1 X 0354 00254 0 06 00532 ADD CH ADD IN THE CURRENT DIGIT 0355 00255 0 04 00536 STA ECNT SAVE THE NEW PARTIAL SUM 0356 00256 -0 01 00000 JMP* DECC AND RETURN 0357 * 0358 00257 0 000260 BSW DAC *+1 POINTER FUR SWITCH 0359 00260 100040 SZE TEST FOR NUMERIC 0360 00261 0 01 00320 JMP B1 NOT NUMERIC 0361 00262 0 04 00540 STA B1S RESET B ONE SHOT 0362 00263 0 02 00541 LDA BCNT MULTIPLY THE PARTIAL 0363 00264 0414 76 LGL 2 SUM BY 10 0364 00265 0 06 00541 ADD BCNT X 0365 00266 0414 77 LGL 1 0366 00267 0 06 00532 ADD CH ADD IN THE CURRENT DIGIT 0367 00270 0 04 00541 STA BCNT SAVE THE NEW PARTIAL SUM 0368 00271 -0 01 00000 JMP* DECC AND RETURN 0369 * 0370 00272 100400 E1 SPL TEST FOR B OR E 0371 00273 0 01 00303 JMP E2 IT IS (+), (-), (.) 0372 00274 0406 77 ARR 1 TEST FOR B 0373 00275 101400 SMI X 0374 00276 0 01 00230 JMP DEC4 IT IS B 0375 00277 0 02 00537 LDA E1S IS E ONE SHOT STILL SET 0376 00300 101040 SNZ X 0377 00301 0 01 00032 JMP LETR X 0378 00302 0 01 00220 JMP EXIT RECORD AN E 0379 00303 0406 77 E2 ARR 1 TEST FOR DECIMAL POINT 0380 00304 100400 SPL X 0381 00305 0 01 00032 JMP LETR DECIMAL POINT - TREAT AS LETTER 0382 00306 0 02 00537 LDA E1S IS E ONE SHOT STILL SET 0383 00307 101040 SNZ X 0384 00310 0 01 00370 JMP CVR1 NO - PLUS OR MINUS TERMINATES 0385 00311 0 02 00532 LDA CH RECOVER THE CODE WORD 0386 00312 0406 76 ARR 2 TEST FOR PLUS OR MINUS 0387 00313 100400 SPL X 0388 00314 0 04 00542 STA ESGN MARK E FIELD MINUS
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 9

0389 00315 140040 CRA RESET THE E ONE SHOT 0390 00316 0 04 00537 STA E1S X 0391 00317 -0 01 00000 JMP* DECC AND RETURN 0392 * 0393 00320 100400 B1 SPL TEST FOR E OR B 0394 00321 0 01 00331 JMP B2 IT IS (+1), (-1), OR (.) 0395 00322 0406 77 ARR 1 X 0396 00323 100400 SPL X 0397 00324 0 01 00212 JMP DEC5 IT IS E 0398 00325 0 02 00540 LDA B1S IS B ONE SHOT STILL ON 0399 00326 101040 SNZ X 0400 00327 0 01 00032 JMP LETR X 0401 00330 0 01 00236 JMP BXIT RECORD THE B 0402 00331 0406 77 B2 ARR 1 TEST FOR A DECIMAL POINT 0403 00332 100400 SPL X 0404 00333 0 01 00032 JMP LETR TREAT DECIMAL POINT AS LETTER 0405 00334 0 02 00540 LDA B1S IS B ONE SHOT ON 0406 00335 101040 SNZ X 0407 00336 0 01 00370 JMP CVR1 NO - PLUS OR MINUS TERMINATES 0408 00337 0 02 00532 LDA CH RECOVER THE CODE WORD 0409 00340 0406 76 ARR 2 TEST FOR MINUS 0410 00341 100400 SPL X 0411 00342 0 04 00543 STA BSGN MARK B FIELD NEGATIVE 0412 00343 140040 CRA RESET THE B ONE SHOT 0413 00344 0 04 00540 STA B1S X 0414 00345 -0 01 00000 JMP* DECC AND RETURN 0415 * 0416 00346 0 12 00534 OA1 IRS OA MARK THE OVERFLOW 0417 00347 0 35 01117 LDX =-3 RESTORE THE PARTIAL SUM 0418 00350 1 02 01044 LDA KEEP+3,1 X 0419 00351 1 04 00000 STA NUM3,1 X 0420 00352 0 12 00000 IRS 0 X 0421 00353 0 01 00350 JMP *-3 X 0422 00354 0 02 00533 OA2 LDA PNT ANY DECIMAL POINT YET 0423 00355 101040 SNZ X 0424 00356 0 12 00544 IRS OCNT NO - COUNT THE OVERFLOWS 0425 00357 -0 01 00000 JMP* DECC AND RETURN 0426 * 0427 00360 000014 K14 OCT 14 X 0428 00361 000255 K255 OCT 255 EXPONENT 0429 * 0430 00362 0 06 00360 BTST ADD K14 TEST FOR A BLANK 0431 00363 100040 SZE X 0432 00364 0 01 00032 JMP LETR NOT A BLANK 0433 00365 0 02 00000 CVRT LDA DOCT TEST CONVERSION MODE 0434 00366 101400 SMI X 0435 00367 0 01 00115 JMP OCT CONVERSION MODE IS OCTAL 0436 00370 0 02 00533 CVR1 LDA PNT TEST FOR INTEGER 0437 00371 101040 SNZ X 0438 00372 0 01 00651 JMP INT IT IS INTEGER
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 10

0439 00373 0 02 00551 LDA BFLG TEST FOR FIXED POINT 0440 00374 100040 SZE X 0441 00375 0 01 00402 JMP *+5 IT IS FIXED POINT 0442 00376 0 02 00545 LDA EFLG TEST FOR ASSUMED 0443 00377 101040 SNZ FLOATING POINT 0444 00400 0 02 00557 LDA Q1 FORCE SINGLE FLOATING POINT 0445 00401 0 06 00557 ADD Q1 CORRECT THE WORD COUNT 0446 00402 0 04 00000 STA WCNT SET THE CORRECT WORD COUNT 0447 00403 0 02 00000 LDA NUM TEST FOR ZERO 0448 00404 0 06 00000 ADD NUM1 X 0449 00405 101040 SNZ X 0450 00406 0 06 00000 ADD NUM2 X 0451 00407 101040 SNZ X 0452 00410 0 01 00523 JMP END RESULT IS ZERO. CONVERSION DONE 0453 00411 0 10 00753 JST NRM NORMALIZE THE REGISTER 0454 00412 0 02 00361 LDA K255 FORM A FLOATING POINT 0455 00413 0 07 00752 SUB SCNT QUANTITY 0456 00414 0 04 00550 STA EXP X 0457 00415 0 02 00542 LDA ESGN FORM THE CORRECT 0458 00416 101040 SNZ DECIMAL EXPONENT 0459 00417 0 01 00423 JMP *+4 OK - IT IS POSITIVE 0460 00420 140040 CRA IT IS NEGATIVE 0461 00421 0 07 00536 SUB ECNT FORM THE COMPLEMENT 0462 00422 -0 000000 SKP DAC* 0 SKP 0463 00423 0 02 00536 LDA ECNT NOW FORM THE 0464 00424 0 06 00544 ADD OCNT TRUE NET DECIMAL 0465 00425 0 07 00535 SUB PCNT EXPONENT 0466 00426 101040 SNZ TEST IT 0467 00427 0 01 00445 JMP CVT1 NET EXPONENT IS ZERO 0468 00430 0 04 00536 STA ECNT SAVE THE NET EXPONENT 0469 00431 100400 SPL TEST FOR MPY OR DVD 0470 00432 0 01 00725 JMP DVD DIVIDE 0471 00433 140040 CRA ASSURE OVERFLOW BITS ZERO 0472 00434 0 04 00546 STA PROD X 0473 00435 0 07 00536 SUB ECNT MAKE A COUNTER OUT 0474 00436 0 04 00536 STA ECNT OF THE EXPONENT VALUE 0475 00437 0 10 01022 JST M10 MULTIPLY BY TEN 0476 00440 0 10 01065 JST LRS1 NORMALIZE THE RESULT 0477 00441 100040 SZE TEST FOR COMPLETION 0478 00442 0 01 00440 JMP *-2 NOT YET 0479 00443 0 12 00536 IRS ECNT ANY MORE MULTIPLIES 0480 00444 0 01 00437 JMP *-5 YES 0481 00445 0 02 00551 CVT1 LDA BFLG TEST FOR FIXED POINT 0482 00446 100040 SZE X 0483 00447 0 01 00573 JMP FIX IT IS FIXED POINT 0484 00450 0 02 00550 LDA EXP FLOATING POINT 0485 00451 0 03 00554 ANA MBR8 TEST FOR A 0486 00452 100040 SZE VALID EXPONENT 0487 00453 0 04 00000 STA ERD MARK THE ERROR 0488 00454 0 05 00550 ERA EXP X
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 11

0489 00455 0414 71 LGL 7 X 0490 00456 0 04 00550 STA EXP SAVE THE EXPONENT 0491 00457 0 02 00000 LDA NUM2 TRUNCATE 0492 00460 0 03 00556 ANA KX LOW SIX 0493 00461 0 04 00000 STA NUM2 BITS 0494 00462 0 02 00000 LDA WCNT TEST FOR SINGLE PRECISION 0495 00463 0 07 00127 SUB Q2 X 0496 00464 100040 SZE X 0497 00465 0 01 00472 JMP *+5 IT IS DOUBLE PRECISION 0498 00466 0 04 00000 STA NUM2 TRUNCATE TO 23 BITS 0499 00467 0 02 00000 LDA NUM1 SO THAT 0500 00470 0 03 00553 ANA MBR7 A+(-A)=0 0501 00471 0 04 00000 STA NUM1 X 0502 00472 0 02 00000 LDA SIGN TEST THE SIGN 0503 00473 100040 SZE IS IT NEGATIVE 0504 00474 0 10 00700 JST TCA COMPLEMENT THE FRACTION 0505 00475 0 02 00000 LDA NUM2 MAKE ROOM 0506 00476 0414 77 LGL 1 FOR THE EXPONENT 0507 00477 0 04 00000 STA NUM2 X 0508 00500 0 02 00000 LDA NUM1 X 0509 00501 0 05 00000 ERA NUM2 X 0510 00502 0 03 00553 ANA MBR7 X 0511 00503 0 05 00000 ERA NUM1 X 0512 00504 0406 71 ARR 7 X 0513 00505 0 04 00000 STA NUM2 X 0514 00506 0 02 00000 LDA NUM1 X 0515 00507 0414 77 LGL 1 X 0516 00510 0 04 00000 STA NUM1 X 0517 00511 0 02 00000 LDA NUM X 0518 00512 0 05 00000 ERA NUM1 X 0519 00513 0 03 00554 ANA MBR8 X 0520 00514 0 05 00000 ERA NUM X 0521 00515 0406 70 ARR 8 X 0522 00516 0 04 00000 STA NUM1 X 0523 00517 0 02 00000 LDA NUM X 0524 00520 0405 70 ARS 8 SHIFT OVER TO RIGHT POSITION 0525 00521 0 05 00550 ERA EXP INSERT THE EXPONENT 0526 00522 0 04 00000 STA NUM STORE THE FIRST WORD 0527 00523 0 02 00000 END LDA ALFA CHECK FOR NUMBER 0528 00524 101040 SNZ 0529 00525 0 01 00530 JMP *+3 0530 00526 140040 CRA CLEAR SIGN 0531 00527 0 04 00000 STA SIGN 0532 00530 0 12 00000 IRS DECC STEP TO TERMINAL RETURN 0533 00531 0 01 00032 JMP LETR AND EXIT 0534 * 0535 00532 0 000000 CH DAC 0 WORKING STORAGE 0536 00533 0 000000 PNT DAC 0 THESE CELLS MUST BE ZERO ON ENTRY 0537 00534 0 000000 OA DAC 0 X 0538 00535 0 000000 PCNT DAC 0 X
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 12

0539 00536 0 000000 ECNT DAC 0 X 0540 00537 0 000000 E1S DAC 0 X 0541 00540 0 000000 B1S DAC 0 X 0542 00541 0 000000 BCNT DAC 0 X 0543 00542 0 000000 ESGN DAC 0 X 0544 00543 0 000000 BSGN DAC 0 X 0545 00544 0 000000 OCNT DAC 0 X 0546 00545 0 000000 EFLG DAC 0 X 0547 00546 0 000000 PROD DAC 0 X 0548 00547 0 000000 CBIT DAC 0 X 0549 00550 0 000000 EXP DAC 0 X 0550 00551 0 000000 BFLG DAC 0 X O550 0551 00552 177763 M15 OCT 177763 0552 00553 177600 MBR7 OCT 177600 X 0553 00554 177400 MBR8 OCT 177400 X 0554 00555 0 000151 SWX DAC DEC1 RESET VALUE FOR SWITCH 0555 00556 077700 KX OCT 77700 MASK 0556 00557 000001 Q1 OCT 1 X 0557 * 0558 00560 0 000000 DECI DAC *-* 0559 00561 0 02 00555 LDA SWX RESET SWITCH 0560 00562 0 04 00227 STA SW X 0561 00563 0 35 01116 LDX =-15 PREPARE TO CLEAR CRITICAL CELLS 0562 00564 140040 CRA X 0563 00565 0 04 00000 STA ERD CLEAR ERROR INDICATOR 0564 00566 1 04 00552 STA PNT+15,1 CLEAR A CELL 0565 00567 0 12 00000 IRS 0 BUMP COUNTER 0566 00570 0 01 00566 JMP *-2 GO BACK TO CLEAR ANOTHER ONE 0567 00571 -0 01 00560 JMP* DECI 0568 * 0569 00572 000200 K200 OCT 200 X 0570 * 0571 00573 0 02 00543 FIX LDA BSGN TEST THE B-FIELD SIGN 0572 00574 101040 SNZ X 0573 00575 0 01 00601 JMP *+4 OK - IT IS POSITIVE 0574 00576 140040 CRA COMPLEMENT THE 0575 00577 0 07 00541 SUB BCNT SCALE FACTOR 0576 00600 0 04 00541 STA BCNT X 0577 00601 0 02 00550 LDA EXP FORM THE SCALING SHIFT 0578 00602 0 07 00572 SUB K200 X 0579 00603 0 07 00541 SUB BCNT X 0580 00604 0 04 00541 STA BCNT 0581 00605 101400 SMI TEST FOR CORRECT SENSE 0582 00606 0 01 00631 JMP FIX2 POSSIBLE ERROR 0583 00607 140040 CRA CLEAR ANY HIGH ORDER BITS 0584 00610 0 04 00546 STA PROD X 0585 00611 0 10 01065 JST LRS1 RIGHT SHIFT 1 0586 00612 0 12 00541 IRS BCNT TEST FOR END 0587 00613 0 01 00611 JMP *-2 NOT YET 0588 00614 0 02 00000 FIX1 LDA WCNT TRUNCATE TO CORRECT SIZE
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 13

0589 00615 0 07 00557 SUB Q1 X 0590 00616 101040 SNZ X 0591 00617 0 04 00000 STA NUM1 X 0592 00620 140040 CRA X 0593 00621 0 04 00000 STA NUM2 X 0594 00622 0 02 00000 LDA SIGN TEST FOR NEGATIVE 0595 00623 100040 SZE X 0596 00624 0 10 00700 JST TCA COMPLEMENT THE RESULT 0597 00625 0 02 00541 LDA BCNT TEST FOR SCALING ERROR 0598 00626 100040 SZE X 0599 00627 0 04 00000 STA ERD MARK THE ERROR 0600 00630 0 01 00523 JMP END AND EXIT 0601 * 0602 00631 101040 FIX2 SNZ TEST FOR ZERO NET SCALE 0603 00632 0 01 00614 JMP FIX1 OK - ZERO NET SCALE 0604 00633 0 06 00000 ADD SIGN TEST FOR -1.0B0 0605 00634 0 06 00000 ADD NUM2 X 0606 00635 101040 SNZ X 0607 00636 0 06 00000 ADD NUM1 X 0608 00637 100040 SZE X 0609 00640 0 01 00614 JMP FIX1 NOT -1.0 B0 0610 00641 0 02 00000 LDA NUM TEST THE MAGNITUDE 0611 00642 0414 76 LGL 2 FOR A HALF 0612 00643 100040 SZE X 0613 00644 0 01 00614 JMP FIX1 NOT -1.0B0 0614 00645 0 04 00541 STA BCNT FORCE A VALID SCALE 0615 00646 0 02 00422 LDA SKP SET THE 0616 00647 0 04 00000 STA NUM DATA SIGN BIT 0617 00650 0 01 00614 JMP FIX1 ENTER THE MAIN PATH 0618 * 0619 00651 0 02 00000 INT LDA NUM TEST FOR A 0620 00652 0 06 00000 ADD NUM1 VALID INTEGER 0621 00653 100040 SZE X 0622 00654 0 01 00666 JMP INTX TEST FOR -32768 CASE 0623 00655 0 02 00000 LDA NUM2 MOVE THE LOW BITS 0624 00656 0 04 00000 INTY STA NUM TO THE FIRST WORD 0625 00657 140040 CRA AND CLEAR THE LOW ORDER WORDS 0626 00660 0 04 00000 STA NUM1 X 0627 00661 0 04 00000 STA NUM2 X 0628 00662 0 02 00000 LDA SIGN TEST FOR NEGATIVE RESULT 0629 00663 100040 SZE X 0630 00664 0 10 00700 JST TCA COMPLEMENT THE RESULT 0631 00665 0 01 00123 JMP OCT1 AND EXIT 0632 * 0633 00666 0 02 00000 INTX LDA NUM TEST FOR POSSIBLE 0634 00667 0 06 00000 ADD NUM2 -32768 0635 00670 100040 SZE X 0636 00671 0 04 00000 STA ERD IMPOSSIBLE - MARK THE ERROR 0637 00672 0 06 00000 ADD SIGN MAYBE -32768 PERFORM 0638 00673 0 06 00000 ADD NUM1 FINAL TEST
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 14

0639 00674 100040 SZE X 0640 00675 0 04 00000 STA ERD NO - MARK THE ERROR 0641 00676 0 02 00422 LDA SKP GIVE -32768 ANYWAY 0642 00677 0 01 00656 JMP INTY ENTER THE MAIN PATH 0643 * 0644 00700 0 000000 TCA DAC *-* COMPLEMENT THE 0645 00701 140040 CRA 45 BIT REGISTER 0646 00702 0 07 00000 SUB NUM2 X 0647 00703 100400 SPL X 0648 00704 0 12 00000 IRS NUM1 X 0649 00705 0 03 00723 ANA MAG X 0650 00706 0 04 00000 STA NUM2 X 0651 00707 140040 CRA X 0652 00710 0 07 00000 SUB NUM1 X 0653 00711 100400 SPL X 0654 00712 0 12 00000 IRS NUM X 0655 00713 0 03 00723 ANA MAG X 0656 00714 0 04 00000 STA NUM1 X 0657 00715 140040 CRA X 0658 00716 0 07 00000 SUB NUM X 0659 00717 0 04 00000 STA NUM X 0660 00720 -0 01 00700 JMP* TCA X 0661 * 0662 00721 000005 Q5 OCT 5 X 0663 00722 177720 M48 OCT 177720 X 0664 00723 077777 MAG OCT 77777 0665 00724 0 000000 TEMP DAC 0 X 0666 * 0667 00725 140040 DVD CRA FLOAT DIVIDE ROUTINE 0668 00726 0 04 00546 STA PROD HIGH DIVIDEND BITS ZERO 0669 00727 0 02 00722 LDA M48 SET COUNTER TO GENERATE 0670 00730 0 04 00532 STA CH 44 OR 45 BITS OF QUOTIENT 0671 00731 0 10 00765 DVD1 JST LLS1 SHIFT IN A BIT 0672 00732 0 07 00721 SUB Q5 TRIAL SUBTRACT 0673 00733 101400 SMI TEST FOR QUOTIENT BIT 0674 00734 0 12 00547 IRS CBIT SET QUOTIENT BIT TO 1 0675 00735 100400 SPL TEST FOR VALID SUBTRACT 0676 00736 0 06 00721 ADD Q5 RESTORE THE QUOTIENT BITS 0677 00737 0 04 00546 STA PROD X 0678 00740 0 12 00532 IRS CH TEST FOR END OF LOOP 0679 00741 0 01 00731 JMP DVD1 NOT YET 0680 00742 0 10 00753 JST NRM NORMALIZE THE RESULT 0681 00743 0 02 00550 LDA EXP ADJUST THE EXPONENT 0682 00744 0 07 00752 SUB SCNT X 0683 00745 0 07 00226 SUB Q3 X 0684 00746 0 04 00550 STA EXP X 0685 00747 0 12 00536 IRS ECNT TEST FOR LAST DIVIDE 0686 00750 0 01 00725 JMP DVD NOT YET 0687 00751 0 01 00445 JMP CVT1 FINISH THE CONVERSION 0688 *
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 15

0689 00752 0 000000 SCNT DAC 0 X 0690 * 0691 00753 0 000000 NRM DAC *-* 0692 00754 140040 CRA RESET THE SHIFT COUNTER 0693 00755 0 04 00752 STA SCNT X 0694 00756 0 02 00000 NRM1 LDA NUM TEST FOR A NORMAL NUMBER 0695 00757 0414 77 LGL 1 X 0696 00760 100400 SPL X 0697 00761 -0 01 00753 JMP* NRM RESULT IS NORMAL 0698 00762 0 12 00752 IRS SCNT STEP THE SHIFT COUNTER 0699 00763 0 10 00765 JST LLS1 LEFT SHIFT 1 0700 00764 0 01 00756 JMP NRM1 AND TRY AGAIN 0701 * 0702 00765 0 000000 LLS1 DAC *-* 0703 00766 0 10 01000 JST SHFT THIS ROUTINE LONG LEFT SHIFTS 0704 00767 0 000000 DAC NUM2 THE ACCUMULATING REGISTER 0705 00770 0 10 01000 JST SHFT ONE POSITION 0706 00771 0 000000 DAC NUM1 X 0707 00772 0 10 01000 JST SHFT X 0708 00773 0 000000 DAC NUM X 0709 00774 0 10 01000 JST SHFT X 0710 00775 0 000546 DAC PROD X 0711 00776 -0 01 00765 JMP* LLS1 X 0712 * 0713 00777 0 00 00000 SWT PZE X 0714 * 0715 01000 0 000000 SHFT DAC *-* 0716 01001 -0 02 01000 LDA* SHFT LEFT SHIFT A WORD 1 POSITION 0717 01002 0 04 00777 STA SWT AND INSERT CARRY INTO THE 0718 01003 -0 02 00777 LDA* SWT VACATED LOW BIT 0719 01004 0414 77 LGL 1 ALSO SAVE THE CARRY 0720 01005 0 10 01011 JST CSA FOR THE NEXT WORD 0721 01006 -0 04 00777 STA* SWT X 0722 01007 0 12 01000 IRS SHFT 0723 01010 -0 01 01000 JMP* SHFT X 0724 * 0725 01011 0 000000 CSA DAC *-* 0726 01012 0 06 00547 ADD CBIT INSERT PRIOR CARRY 0727 01013 0416 77 ALR 1 POSITION THIS CARRY 0728 01014 0 04 00724 STA TEMP SAVE THE WORD 0729 01015 0 03 00557 ANA Q1 EXTRACT THE CARRY BIT 0730 01016 0 04 00547 STA CBIT SAVE IT 0731 01017 0 05 00724 ERA TEMP RECOVER THE 15 DATA BITS 0732 01020 0406 77 ARR 1 POSITION THEM 0733 01021 -0 01 01011 JMP* CSA AND RETURN 0734 * 0735 01022 0 000000 M10 DAC *-* MULTIPLY BY 10 0736 01023 0 35 01117 LDX =-3 MOVE THE ACCUMULATING 0737 01024 1 02 00000 LDA NUM3,1 REGISTERS TO WORKING 0738 01025 1 04 01044 STA KEEP+3,1 STORE AND TO
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 16

0739 01026 1 04 01041 STA WORK+3,1 SAVE AREA 0740 01027 0 12 00000 IRS 0 X 0741 01030 0 01 01024 JMP *-4 X 0742 01031 0 10 00765 JST LLS1 FORM 2X 0743 01032 0 10 00765 JST LLS1 FORM 4X 0744 01033 0 10 01044 JST TADD FORM 5X 0745 01034 0 10 00765 JST LLS1 FORM 10X 0746 01035 -0 01 01022 JMP* M10 AND RETURN 0747 * 0748 01036 000000 WORK OCT 0,0,0 X 01037 000000 01040 000000 0749 01041 000000 KEEP OCT 0,0,0 X 01042 000000 01043 000000 0750 01044 0 000000 TADD DAC *-* TRIPLE ADD ROUTINE 0751 01045 0 02 00000 LDA NUM2 ADD THE LOWEST TERMS 0752 01046 0 06 01040 ADD WORK+2 X 0753 01047 0 10 01011 JST CSA FORM THE CARRY 0754 01050 0 04 00000 STA NUM2 STORE THE LOW ORDER TERM 0755 01051 0 02 00000 LDA NUM1 PROCESS THE MIDDLE TERM 0756 01052 0 06 01037 ADD WORK+1 X 0757 01053 0 10 01011 JST CSA X 0758 01054 0 04 00000 STA NUM1 X 0759 01055 0 02 00000 LDA NUM PROCESS THE HIGH TERM 0760 01056 0 06 01036 ADD WORK X 0761 01057 0 10 01011 JST CSA X 0762 01060 0 04 00000 STA NUM X 0763 01061 0 02 00546 LDA PROD GENERATE AN OVERFLOW 0764 01062 0 10 01011 JST CSA BIT IF REQUIRED 0765 01063 0 04 00546 STA PROD X 0766 01064 -0 01 01044 JMP* TADD AND RETURN 0767 * 0768 01065 0 000000 LRS1 DAC *-* 0769 01066 0 02 00000 LDA NUM1 ISOLATE THE BIT 0770 01067 0 03 00557 ANA Q1 TO CROSS WORD BOUNDARY 0771 01070 0406 77 ARR 1 POSITION IT 0772 01071 0 05 00000 ERA NUM2 INSERT INTO LOWER WORD 0773 01072 0404 77 LGR 1 SHIFT RIGHT 1 POSITION 0774 01073 0 04 00000 STA NUM2 AND STORE BACK 0775 01074 0 02 00000 LDA NUM REPEAT FOR 0776 01075 0 03 00557 ANA Q1 THE REST 0777 01076 0406 77 ARR 1 OF THE 0778 01077 0 05 00000 ERA NUM1 DATA WORDS 0779 01100 0404 77 LGR 1 X 0780 01101 0 04 00000 STA NUM1 X 0781 01102 0 02 00546 LDA PROD X 0782 01103 0 03 00557 ANA Q1 X 0783 01104 0406 77 ARR 1 X 0784 01105 0 05 00000 ERA NUM X
* O180 (O16-DECL) DWG. 70181506000 REV. B PAGE 17

0785 01106 0404 77 LGR 1 X 0786 01107 0 04 00000 STA NUM X 0787 01110 0 02 00546 LDA PROD X 0788 01111 0404 77 LGR 1 X 0789 01112 0 04 00546 STA PROD X 0790 01113 0 12 00550 IRS EXP X 0791 01114 101000 NOP X 0792 01115 -0 01 01065 JMP* LRS1 X 0793 01116 177761 END THAT'S ALL FOLKS. 01117 177775 01120 000017 01121 177776 01122 000003 01123 000013 01124 000301 01125 000271 ALFA 000000E B 000043 B1 000320 B1S 000540 B2 000331 BCNT 000541 BFLG 000551 BNCH 000131 BSGN 000543 BSW 000257 BTST 000362 BXIT 000236 CBIT 000547 CH 000532 CSA 001011 CVR1 000370 CVRT 000365 CVT1 000445 DEC1 000151 DEC2 000166 DEC3 000207 DEC4 000230 DEC5 000212 DECC 000000 DECF 000000E DECI 000560 DOCT 000000E DVD 000725 DVD1 000731 E1 000272 E1S 000537 E2 000303 ECNT 000536 EFLG 000545 END 000523 ERD 000000E ESGN 000542 ESW 000244 EXIT 000220 EXP 000550 FIX 000573 FIX1 000614 FIX2 000631 INT 000651 INTX 000666 INTY 000656 K12 000034 K14 000360 K200 000572 K255 000361 K260 000037 K302 000040 KEEP 001041 KX 000556 LETR 000032 LITF 000000E LLS1 000765 LRS1 001065 LTRL 000062 M1 000126 M10 001022 M15 000552 M48 000722 MAG 000723 MBR7 000553 MBR8 000554 NRM 000753 NRM1 000756 NUM 000000E NUM1 000000E NUM2 000000E NUM3 000000E OA 000534 OA1 000346 OA2 000354 OCNT 000544 OCT 000115 OCT1 000123 OCTC 000137 OCTX 000143 PCNT 000535 PNT 000533 PROD 000546 Q1 000557 Q2 000127 Q3 000226 Q5 000721 Q7 000041 RNG 000035 RTN1 000057 SCNT 000752 SHFT 001000 SIGN 000000E SKP 000422 SPEC 000067 SW 000227 SWT 000777 SWX 000555 TADD 001044 TCA 000700 TEMP 000724 TERM 000000E WCNT 000000E WORK 001036 XIT 000104 XIT1 000060 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71