C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 76

3601 * 3602 * - R8 CALL 3603 * GENERATES CALL DIRECTLY OR USES EXPRESSION TO 3604 * ANALYZE AN ARGUMENT LIST. 3605 06301 0 10 02520 R8 JST SY00 INPUT SYMBOL 3606 06302 0 02 00655 LDA IU 3607 06303 0 07 00717 SUB K101 =1 (SUB) 3608 06304 100040 SZE SKIP IF IU=SUBR, 3609 06305 0 10 03465 JST TG00 TAG SUB PROCRAM 3610 06306 0 02 00607 LDA TC 3611 06307 0 07 00702 SUB K17 ='250 ( ( ) 3612 06310 100040 SZE 3613 06311 0 01 06314 JMP *+3 3614 06312 0 02 00717 G2B LDA K101 SET A=1 BEFORE EXPRESSION 3615 06313 0 01 06325 JMP G2A 3616 06314 140040 CRA 3617 06315 000201 IAB (B)=0 3618 06316 0 02 13730 LDA OMI2 =JST INSTR, 3619 06317 0 10 12467 JST OB00 OUTPUT 0A 3620 06320 0 01 04266 JMP A1 CR TEST 3621 * ********************** 3622 * *ASSIGNMENT STATEMENT* 3623 * ********************** 3624 06321 0 02 00722 G2 LDA K104 3625 06322 0 10 05074 JST NP00 FIRST NON-SPEC CHECK 3626 06323 0 10 02354 JST II00 INPUT ITEM 3627 06324 0 02 00720 LDA K102 SET A = 2 BEFORE EXPRESSION 3628 06325 140407 G2A TCA 3629 06326 0 10 07041 JST EX00 3630 06327 0 01 04266 JMP A1 3631 * 3632 * 3633 * ******** 3634 * *RETURN* 3635 * ******** 3636 * OPTIMIZES EXIT CODING FOR FUNCTIONS TO MINIMIZE 3637 * FETCHES OF THE FUNCTION VALUE. 3638 06330 0 02 00047 R9 LDA SBF A = SBF, 3639 06331 0 04 00040 STA A IF ZERO, GO TO ERROR 3640 06332 100040 SZE 3641 06333 0 01 06336 JMP *+3 3642 06334 0 10 03116 JST ER00 3643 06335 151324 BCI 1,RT RETURN NOT ALLOWED IN MAIN PROGRAM 3644 06336 0 02 00046 LDA SFF ELSE, IF SFF = 0, 3645 06337 101040 SNZ 3646 06340 0 01 06356 JMP R9C GO TO R9C 3647 06341 0 11 00717 CAS K101 IF SFF = 1, GO TO R98 3648 06342 0 01 06344 JMP *+2 3649 06343 0 01 06351 JMP R9B 3650 06344 0 04 00630 STA AF OUTPUT REL JMP TO 1ST RETN