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

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

3751 06473 0 04 00060 STA RPL 3752 06474 140040 CRA 3753 06475 0 10 13773 JST OR00 OUTPUT REL 3754 06476 0 02 06443 LDA T1W5 RESTORE RPL 3755 06477 0 04 00060 STA RPL 3756 06500 0 02 00040 W5H LDA A A=A+5 3757 06501 0 06 00723 ADD K105 3758 06502 0 04 00040 STA A 3759 06503 0 07 00054 SUB ABAR IF A=ABAR, (DONE) 3760 06504 0 07 00723 SUB K105 3761 06505 100040 SZE 3762 06506 0 01 06456 JMP W5D ELSE, GO TO W5D 3763 06507 0 10 14523 W5J JST FS00 FLUSH BUFFER 3764 06510 0 02 00047 LDA SBF 3765 06511 100040 SZE 3766 06512 0 02 00727 LDA W5Z1 3767 06513 0 05 00740 ERA W5Z2 3768 06514 0 04 14632 STA OCI 3769 06515 0 02 00047 LDA SBF 3770 06516 100040 SZE 3771 06517 0 02 00733 LDA W5Z3 3772 06520 0 04 14633 STA OCI+1 3773 06521 0 02 00724 LDA K106 3774 06522 0 04 00602 STA OCNT 3775 06523 0 10 14523 JST FS00 3776 06524 0 01 01007 JMP A051 GO TO INITIALIZE 3777 06525 0 02 00060 W5K LDA RPL IF RPL NOT ZERO, 3778 06526 101040 SNZ 3779 06527 0 01 06507 JMP W5J 3780 06530 0 10 03116 JST ER00 ERROR-CODE GENERATED 3781 06531 141304 BCI 1,BD IN A BLOCK DATA SUBPROGRAM 3782 06532 0 10 03656 W5M JST FA00 FETCH ASSIGNS 3783 06533 0 02 00046 LDA SFF IF FUNCTION, 3784 06534 100040 SZE 3785 06535 0 01 06544 JMP W5N GO TO W5N 3786 06536 0 10 02603 JST NU00 NO USE TEST 3787 06537 0 10 02672 JST STXA 3788 06540 1 02 15400 LDA DP,1 IF NO ERROR, 3789 06541 140500 SSM NT(A)=1 3790 06542 1 04 15400 STA DP,1 3791 06543 0 01 06453 JMP W5B GO T0 W5B 3792 06544 0 02 00655 W5N LDA IU 3793 06545 0 07 00720 SUB K102 IU MUST BE VAR/CON, 3794 06546 101040 SNZ ELSE, 3795 06547 0 01 06453 JMP W5B 3796 06550 0 10 03116 JST ER00 ERROR-FUNCTION 3797 06551 143304 BCI 1,FD NAME NOT DEFINED BY AN ARITHM, STATEMENT 3798 06552 0 02 00655 W5O LDA IU IF IU=VAR/CON 3799 06553 0 07 00720 SUB K102 3800 06554 100040 SZE