Previous File Previous Page Single Page Next Page Next File

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

3651 06345 0400 40 LRL 32 3652 06346 0 04 00040 STA A SET A=0 TO OUTPUT OCTAL ADDR ON LISTING 3653 06347 0 02 13733 LDA K201 3654 06350 0 01 06362 JMP R9A 3655 06351 000201 R9B IAB 3656 06352 0 02 00060 LDA RPL SFF = RPL 3657 06353 0 04 00046 STA SFF 3658 06354 0 02 06364 LDA K56 0UTPUT ITEM (F,A) 3659 06355 0 10 13147 JST OM00 3660 06356 0400 40 R9C LRL 32 3661 06357 0 04 00040 STA A SET FOR OCTAL ADDHESS IW LISTING 3662 06360 0 04 00630 STA AF SET RELATIVE ADDRESS TO ZERO 3663 06361 0 02 13740 LDA K206 JUMP I, 0 3664 06362 0 10 13773 R9A JST OR00 OUTPUT REL 3665 06363 0 01 04262 JMP B6 EXIT 3666 06364 000031 K56 OCT 31 P CODE FOR 'F' (FETCH) 3667 * 3668 * 3669 * ******************** 3670 * *STATEMENT FUNCTION* 3671 * ******************** 3672 * OLD ASSIGN VALUES ARE SAVED IN SFTB AND ARE 3673 * RESTORED AT COMPLETION. 3674 06365 0 00 00000 G1T0 PZE 0 3675 06366 0 00 00000 G1T1 PZE 0 3676 06367 0 02 00721 G1 LDA K103 (A) = 3 3677 06370 0 10 05074 JST NP00 FIRST NON-SPEC CHECK 3678 06371 0 10 02520 JST SY00 INPUT SYMBOL 3679 06372 0 10 04233 JST LO00 DEFINE LOCATION 3680 06373 0 02 00721 LDA K103 3681 06374 0 04 00041 STA I 3682 06375 0 10 10525 JST GE00 GENERATE SUBPROGRAM ENTRANCE 3683 06376 0 02 00041 LDA I 3684 06377 0 04 06366 STA G1T1 T1 = I 3685 06400 0 02 00701 LDA K16X '=' TEST 3686 06401 0 10 02547 JST TS00 3687 06402 0 10 02354 JST II00 INPUT ITEM 3688 06403 140040 CRA 3689 06404 0 10 07041 JST EX00 EXPRESSION 3690 06405 0 02 06366 LDA G1T1 3691 06406 0 04 00041 STA I I = T1 3692 06407 0 12 00052 IRS TCF TCF = TCF+1 3693 06410 0 10 02676 G1A JST STXI 3694 06411 1 02 10462 LDA SFTB+2,1 3695 06412 0 04 00040 STA A 3696 06413 1 02 10460 LDA SFTB+0,1 3697 06414 000201 IAB 3698 06415 0 10 02672 JST STXA SET R TO A 3699 06416 000201 IAB 3700 06417 1 04 15400 STA DP,1
Previous File Previous Page Single Page Next Page Next File