BASIC-16A

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

3327 * 3328 03542 140040 FR02 CRA EVALUATE THE SECOND EXPRESSION 3329 03543 0 10 02443 JST EXPA X 3330 03544 0 10 00000 JST S$22 COMPARE SECOND WITH FIRST 3331 03545 0 000041 DAC CVAL X 3332 03546 100400 SPL X 3333 03547 0 01 03556 JMP FR03 FIRST IS SMALLER, OK 3334 03550 0 02 00041 LDA CVAL SWAP THE VALUES 3335 03551 0 13 00043 IMA LVAL X 3336 03552 0 04 00041 STA CVAL X 3337 03553 0 02 00042 LDA CVAL+1 X 3338 03554 0 13 00044 IMA LVAL+1 X 3339 03555 0 04 00042 STA CVAL+1 X 3340 03556 0 10 00000 FR03 JST L$22 PUT LOW VALUE EXPRESSION IN 2ND AND 3RD 3341 03557 0 000043 DAC LVAL WORDS OF ENTRY 3342 03560 0 10 03614 JST FRST X 3343 03561 0 10 03203 JST LCVL PUT HIGH VALUE EXPRESSION IN 4TH AND 5TH 3344 03562 0 10 03614 JST FRST WORDS OF ENTRY 3345 03563 0 10 03047 JST GCHR SEE IF A THIRD EXPRESSION IS COMING 3346 03564 0 11 00414 CAS C254 TEST FOR ',' 3347 03565 100000 SKP NO 3348 03566 0 01 03576 JMP FR04 YES 3349 03567 0 11 00502 CAS STPC MAYBE 'STEP' 3350 03570 100000 SKP NO 3351 03571 0 01 03576 JMP FR04 YES 3352 03572 0 10 03065 JST UCHR LOOK AT CURRENT CHARACTER LATER 3353 03573 0 10 00000 JST L$22 SET STEP =1 BY DEFAULT 3354 03574 0 000444 DAC F1 X 3355 03575 0 01 03601 JMP FR05 X 3356 03576 140040 FR04 CRA EVALUATE THE THIRD EXPRESSION 3357 03577 0 10 02443 JST EXPA X 3358 03600 0 10 03203 JST LCVL GET THE RESULT 3359 03601 0 10 03614 FR05 JST FRST STEP VALUE TO WORDS 6 + 7 OF ENTRY 3360 03602 0 10 03116 JST GDLM DELIMITER MUST BE NEXT (: OR C/R) 3361 03603 0 07 00401 SUB C215 IF C/R, THEN LAST WORD OF ENTRY IS 3362 03604 100040 SZE ZERO, ELSE IT IS CURRENT SBP 3363 03605 0 02 00037 LDA SBP X 3364 03606 000201 IAB X 3365 03607 0 02 00034 LDA SIP 8TH WORD OF ENTRY IS POINTER TO THIS LINE 3366 03610 0 10 03614 JST FRST SET 8TH AND 9TH WORDS 3367 03611 0 01 04574 JMP SEX GO PROCESS NEXT STATEMENT 3368 * 3369 * 3370 03612 0 10 05243 FR07 JST ERR REPQRT INDEX VARIABLE ERROR 3371 03613 144726 BCI 1,IV X 3372 * 3373 * 3374 * FRST: STORE WORD-PAIR 3375 * 3376 * THE WORD PAIR IN A + B ARE STORED IN THE