Previous File Previous Page Single Page Next Page Next File

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

2229 02444 0 13 00055 IMA LOP SET NEW OPERATOR-PRECEDENCE TRIGGER 2230 02445 0 10 03022 JST PUSH PUT OLD VALUE ON STACK 2231 02446 0 02 02443 LDA EXPA SAVE RETURN ADDRESS IN CASE 2232 02447 0 10 03022 JST PUSH WE'RE RE-ENTERED 2233 02450 0 02 00041 LDA CVAL PUT THE VALUE OF THE 2234 02451 0 10 03022 JST PUSH TERM ON 2235 02452 0 02 00042 LDA CVAL+1 THE STACK 2236 02453 0 10 03022 JST PUSH X 2237 02454 0 35 00466 LDX M2 SET TRIGGER FOR UNARY MINUS-PROCESSING 2238 02455 0 10 03047 EX06 JST GCHR LOOK AT NEXT SOURCE CHARACTER 2239 02456 0 11 00413 CAS C253 TEST FOR UNARY PLUS 2240 02457 100000 SKP NO 2241 02460 0 01 02455 JMP EX06 YES ... IGNORE IT 2242 02461 0 11 00415 CAS C255 IS IT '-' ? 2243 02462 100000 SKP NO 2244 02463 0 01 02477 JMP EX01 YES...AT THIS POINT, IT MUST BE UNARY 2245 02464 0 12 00000 IRS 0 HAS A UNARY MINUS BEEN DETECTED ? 2246 02465 0 01 02512 JMP EX04 NO...GO CONTINUE ITEM DISCRIMINATION 2247 02466 0 02 00055 LDA LOP UNARY MINUS ONLY LEGAL WHEN 2248 02467 100040 SZE LOP IS EOUAL TO ZERO 2249 02470 0 10 05243 EX07 JST ERR ERROR...ILLEGAL UNARY MINUS 2250 02471 152715 BCI 1,UM (THIS WILL EXECUTE AS AN ERA) 2251 02472 0 10 00000 JST L$22 FORCE A '-1.0*' INTO SOURCE 2252 02473 0 000452 DAC FM1 X 2253 02474 0 10 03207 JST SCVL X 2254 02475 0 10 03065 JST UCHR PROCESS CURRENT CHARACTER LATER 2255 02476 0 01 02642 JMP EX05 GO WORK ON '*' THAT WE FORCED 2256 * 2257 02477 0 12 00000 EX01 IRS 0 BUMP THE MINUS COUNT 2258 02500 0 01 02455 JMP EX06 OK...THIS IS THE FIRST 2259 02501 0 01 02470 JMP EX07 TWO IN A ROW...ERROR 2260 * 2261 02502 0 10 03077 EX02 JST GCPK FORM THE INTEGER 2262 02503 0 10 00000 JST FINT FLOAT IT 2263 02504 0 01 02546 JMP EX22 GO SAVE VALUE AND WORK ON OPERATOR 2264 * 2265 02505 0 10 03077 EX03 JST GCPK A HIGH WORD OF REAL TO A 2266 02506 000201 IAB SAVE IT IN B 2267 02507 0 10 03077 JST GCPK GET LOW ORDER WORD 2268 02510 000201 IAB PUT IT IN NORMAL FORM 2269 02511 0 01 02546 JMP EX22 GO SAVE VALUE AND WORK ON OPERATOR 2270 * 2271 02512 0 11 00455 EX04 CAS INTF A TEST FOR INTEGER CONSTANT 2272 02513 100000 SKP NO 2273 02514 0 01 02502 JMP EX02 YES...GO FORM IT 2274 02515 0 11 00456 CAS RELF TEST FOR ELOATING POINT CONSTANT 2275 02516 100000 SKP NO 2276 02517 0 01 02505 JMP EX03 YES...GO FORM IT 2277 02520 0 11 00410 CAS C250 TEST FOR PARENTHETICAL TERM 2278 02521 100000 SKP NO
Previous File Previous Page Single Page Next Page Next File