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

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

3701 06420 0 10 02676 JST STXI SET R TO I 3702 06421 1 02 10461 LDA SFTB+1,1 3703 06422 000201 IAB 3704 06423 0 10 02672 JST STXA SET R TO A 3705 06424 000201 IAB 3706 06425 1 04 15401 STA DP+1,1 3707 06426 0 02 00041 LDA I 3708 06427 0 07 00721 SUB K103 I = I-3 = 0 3709 06430 0 04 00041 STA I 3710 06431 0 07 00721 SUB K103 3711 06432 100040 SZE 3712 06433 0 01 06410 JMP G1A NO, GO TO G1A 3713 06434 0 02 05073 LDA T1NP 3714 06435 0 04 00040 STA A 3715 06436 0410 60 LLL 16 3716 06437 0 02 13740 LDA OMJ1 3717 06440 0 10 12467 JST OB00 3718 06441 0 10 03465 JST TG00 TAG SUBPROGRAM 3719 06442 0 01 04266 JMP A1 GO TO C/R TEST 3720 * - W5 END 3721 * *************** 3722 * *END PROC6SSOR* 3723 * *************** 3724 * FIRST CHECK SUBPROGRAMS FOR CORRECT USAGE, THEN 3725 * GENERATE MAP AND STRING BACK VARIABLES 3726 * AND CONSTANTS. 3727 06443 0 00 00000 T1W5 PZE 3728 06444 0 02 00061 W5 LDA BDF IF BLOCK DATA, 3729 06445 100040 SZE 3730 06446 0 01 06525 JMP W5K GO TO W5K 3731 06447 0 02 00047 LDA SBF IF SBF NOT ZERO 3732 06450 0 04 00040 STA A INDICATES SUBROUTINES 3733 06451 100040 SZE OR FUNCTION, 3734 06452 0 01 06532 JMP W5M GO TO W5M 3735 06453 140040 W5B CRA 3736 06454 0 04 00040 STA A A = J=0 3737 06455 0 01 06500 JMP W5H 3738 06456 0 10 03656 W5D JST FA00 FETCH ASSIGNS 3739 06457 0 10 02672 JST STXA 3740 06460 0 02 00573 LDA NT 3741 06461 100040 SZE IF NT=L (CONSTANT) 3742 06462 0 01 06552 JMP W5O GO TO W5O 3743 06463 0 02 00655 LDA IU 3744 06464 0 07 00717 SUB K101 IF IU=1 3745 06465 100040 SZE INDICATES VARIABLE, 3746 06466 0 01 06627 JMP W5T GO TO W5T 3747 06467 0 02 00060 W5F LDA RPL SAVE RPL 3748 06470 0 04 06443 STA T1W5 RPL=-AF (INHIBIT LISTING) 3749 06471 0 02 00630 LDA AF 3750 06472 140500 SSM