FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 103

3085 * 3086 * 3087 * ******** 3088 * *ASSIGN* 3089 * ******** 3090 * CHECK TO SEE THAT 'TO' IS INCLUDED PROPERLY 3091 04635 000317 K35 OCT 317 3092 04636 0 10 02264 W3 JST IS00 INPUT STMNT = 3093 04637 0 02 00625 LDA A 3094 04640 0 04 04700 STA T1W3 SAVE A 3095 04641 0 02 00067 LDA TC 3096 04642 0 07 00663 SUB K34 CHECK FOR TO 3097 04643 100040 SZE 3098 04644 0 01 04653 JMP W305 CLEAR A FOR OUTPUT REL 3099 04645 0 04 00625 STA A CAUSE OCTAL ADDRESS IN LIST 3100 04646 0 10 01157 JST CH00 INPUT CHAR 3101 04647 0 02 00067 LDA TC 3102 04650 0 07 04635 SUB K35 3103 04651 101040 SNZ 3104 04652 0 01 04655 JMP *+3 3105 04653 0 10 02615 W305 JST ER00 ERROR 3106 04654 152317 BCI 1,TO GO TO IN ASSIGN STATEMENT 3107 04655 0 02 00643 LDA RPL 3108 04656 0 06 00736 ADD K102 3109 04657 0 04 00025 STA AF OUTPUT REL LDA *+2 3110 04660 0 02 13030 LDA K200 OUTPUT LDA *+2 3111 04661 0 10 13072 JST OR00 OUTPUT REL 3112 04662 0 02 00643 LDA RPL 3113 04663 0 06 00736 ADD K102 3114 04664 0 04 00025 STA AF OUTPUT REL JWP *+2 3115 04665 0 02 13026 LDA K201 3116 04666 0 10 13072 JST OR00 OUTPUT OA 3117 04667 0400 40 LRL 32 3118 04670 0 02 04700 LDA T1W3 3119 04671 0 04 00625 STA A RESTORE A 3120 04672 140040 CRA 3121 04673 0 10 11471 JST OB00 OUTPUT DAC ST. NO. 3122 04674 0 10 02260 JST IR00 INPUT INTEGER VARIABLE 3123 04675 0400 40 LRL 32 3124 04676 0 02 13031 LDA K202 OUTPUT STA INSTRUCTION 3125 04677 0 01 05450 JMP R8A OUTPUT OA, GO TO C/R TEST 3126 04700 0 00 00000 T1W3 PZE ** TEMP STORE 3127 EJCT