Previous File Previous Page Single Page Next Page Next File

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

2050 02254 0 01 02266 JMP ED03 NO 2051 02255 140407 TCA GET NO. OF PLACES TO SHIFT THE DIGIT FIELD 2052 02256 0 06 00513 ADD WKD7 THIS GIVES DESTINATION ADDRESS 2053 02257 0 04 00076 STA TMP1 SAVE IT 2054 02260 0 35 00465 LDX M12 MOVE 10 DIGITS LEFT EXP POSITIONS 2055 02261 1 02 00251 LDA WORK+'20,1 SHIFT A DIGIT 2056 02262 -0 04 00076 STA* TMP1 X 2057 02263 0 12 00076 IRS TMP1 BUMP THE DESTINATION POINTER 2058 02264 0 12 00000 IRS 0 BUMP THE SOURCE POINTER 2059 02265 0 01 02261 JMP *-4 GO MOVE NEXT DIGIT 2060 02266 0 35 00470 ED03 LDX M5 MAKE ROOM FOR THE DECIMAL POINT 2061 02267 1 02 00237 LDA WORK+6,1 BY MOVING WORK(1-5) TO 2062 02270 1 04 00236 STA WORK+5,1 WORK(0-4) 2063 02271 0 12 00000 IRS 0 BUMP THE COUNTER 2064 02272 0 01 02267 JMP *-3 MORE TO MOVE 2065 02273 0 02 00416 LDA C256 INSERT THE DECIMAL POINT 2066 02274 0 04 00236 STA WORK+5 X 2067 02275 0 35 00470 LDX M5 ZERO SURPRESS FROM LEFT 2068 02276 1 02 00236 ED05 LDA WORK+5,1 PICK UP DIGIT FROM ARRAY 2069 02277 0 05 00420 ERA C260 TEST FOR '0' 2070 02300 100040 SZE X 2071 02301 0 01 02306 JMP ED04 FOUND 1ST NON '0' CHAR 2072 02302 0 02 00405 LDA C240 REPLACE LEADING ZERO 2073 02303 1 04 00236 STA WORK+5,1 WITH A SPACE 2074 02304 0 12 00000 IRS 0 SEE IF WE'RE DONE 2075 02305 0 01 02276 JMP ED05 NO...CONTINUE SCAN 2076 02306 0 02 00336 ED04 LDA SIGN INSET SIGN IN THE ARRAY 2077 02307 0 10 02435 JST SGN X 2078 02310 1 04 00235 STA WORK+4,1 X 2079 02311 0 35 00377 LDX C20 START TRAILING ZERO SURPRESSION 2080 02312 1 02 00231 ED07 LDA WORK,1 PICK UP DIGIT FROM HIGH END OF ARRAY 2081 02313 0 05 00420 ERA C260 TEST FOR '0' 2082 02314 100040 SZE X 2083 02315 0 01 02324 JMP ED06 FOUND LAST NONZERO CHAR 2084 02316 0 02 00405 LDA C240 REPLACE TRAILING ZERO WITH A 2085 02317 1 04 00231 STA WORK,1 SPACE 2086 02320 0 02 00000 LDA 0 STEP BACK ONE CHARACTER 2087 02321 0 07 00371 SUB C1 X 2088 02322 0 04 00000 STA 0 X 2089 02323 0 01 02312 JMP ED07 GO LOOK AT NEXT CHARACTER 2090 02324 1 02 00231 ED06 LDA WORK,1 SEE IF EVERYTHING PAST 2091 02325 0 05 00416 ERA C256 THE DECIMAL POINT HAS 2092 02326 100040 SZE BEEN SURPRESSED 2093 02327 0 01 02332 JMP *+3 NO 2094 02330 0 02 00405 LDA C240 YES...SURRRESS THE DECIMAL 2095 02331 1 04 00231 STA WORK,1 POINT ALSO 2096 02332 1 02 00230 LDA WORK-1,1 TEST FOR ALL BLANK BUFFER (VALUE ZERO) 2097 02333 0 11 00405 CAS C240 X 2098 02334 100000 SKP NO 2099 02335 0 02 00420 LDA C260 YES...LEAVE ONE ZERO
Previous File Previous Page Single Page Next Page Next File