BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 58

2100 02336 1 04 00230 STA WORK-1,1 REPLACE THE CHARACTER 2101 02337 0 10 02425 JST FRNG IS 'E' PROCESSING REQUIRED ^ 2102 02340 100000 SKP YES 2103 02341 0 01 02367 JMP ED08 NO...SKIP THIS 2104 02342 0 10 02435 JST SGN GET SIGN OF EXPONENT 2105 02343 1 04 00233 STA WORK+2,1 X 2106 02344 0 02 00430 LDA C305 PUT IN 'E' 2107 02345 1 04 00232 STA WORK+1,1 X 2108 02346 0 02 00337 LDA EXP CONVERT EXPONENT TO ASCII 2109 02347 100400 SPL MAKE SURE IT'S PLUS FIRST 2110 02350 140407 TCA X 2111 02351 0 07 00374 SUB C12 DIVIDE BY 10 2112 02352 100400 SPL X 2113 02353 0 01 02356 JMP *+3 X 2114 02354 0 12 00340 IRS ECTR X 2115 02355 0 01 02351 JMP *-4 X 2116 02356 0 06 00422 ADD C272 REMAINDER IS 2ND DIGIT 2117 02357 1 04 00235 STA WORK+4,1 OF EXPONENT 2118 02360 0 02 00340 LDA ECTR PUT IN FIRST DIGIT 2119 02361 1 04 00234 STA WORK+3,1 X 2120 02362 0 02 00000 LDA 0 MAKE INDEX POINT TO 2121 02363 0 06 00435 ADD C4 END OF EXPONENT 2122 02364 0 04 00000 STA 0 X 2123 02365 0 02 00435 LDA C4 START PRINTING AT 5TH CHAR OF WORK 2124 02366 100000 SKP BUFFER 2125 02367 140040 ED08 CRA 1ST CHAR OF WORK FOR F FORMAT 2126 02370 0 06 00512 ADD WRKD GET POINTER TO 1ST PRINTING CHAR 2127 02371 0 12 00000 IRS 0 X POINTS TO LAST CHAR TO PRINT 2128 02372 0 04 00337 ED09 STA EXP SAVE POINTER TO FIRST CHARACTER 2129 02373 0 02 00000 LDA 0 CALCULATE ADDRESS OF LAST CHARACTER 2130 02374 0 06 00512 ADD WRKD X 2131 02375 0 04 00340 STA ECTR SAVE IT 2132 02376 0 07 00337 SUB EXP CALCULATE NUMBER OF CHARACTERS IN STRING 2133 02377 141206 AOA X 2134 02400 0 06 00045 ADD CPOS CHECK FOR LINE FIT 2135 02401 0 11 00473 CAS MCOL X 2136 02402 0 10 00000 JST LFCR A NO...ADVANCE ASR TO NEXT LINE 2137 02403 101000 NOP IT WILL FIT 2138 02404 -0 02 00337 ED12 LDA* EXP GET NEXT CHARACTER TO BE PRINTED 2139 02405 0 11 00341 CAS INHC SEE IF IT'S SURPRESSED 2140 02406 100000 SKP NO 2141 02407 100000 SKP YES 2142 02410 0 10 00000 JST OTA1 NO...PRINT IT 2143 02411 0 02 00337 LDA EXP ADVANCE THE CHARACTER POINTER 2144 02412 141206 AOA X 2145 02413 0 04 00337 STA EXP SAVE ADDRESS OF NEXT CHARACTER 2146 02414 0 11 00340 CAS ECTR TEST FOR COMPLETION 2147 02415 -0 01 02154 JMP* PCVL YES...EXIT 2148 02416 0 01 02404 JMP ED12 NO....LOOP BACK 2149 02417 0 01 02404 JMP ED12 NO....LOOP BACK