FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 154

4982 * 4983 * 4984 * ************ 4985 * *FUNCTION * 4986 * *SUBROUTINE* 4987 * ************ 4988 * IF LSTF IS ZERO, THE STATEMENT IS OUT OF ORDER 4989 * FUNCTIONS ARE CHECKED TO ENSURE ARGUMENTS 4990 10031 0 02 00735 R1 LDA K101 4991 10032 0 04 00631 STA SFF SFF = 1 4992 10033 0 02 00652 R2 LDA LSTF 4993 10034 100040 SZE IF LSTF = 0 4994 10035 0 01 10040 JMP R2A 4995 10036 0 10 02615 R2B JST ER00 ILLEGAL STATEMENT 4996 10037 143323 BCI 1,FS NOT FIRST STATEMENT IN SUBPROGRAM 4997 10040 0 10 02242 R2A JST NA00 INPUT NAME 4998 10041 0 02 00625 LDA A 4999 10042 0 04 00632 STA SBF SBF = A 5000 10043 140040 CRA ADDR=0, S/C CODE =0 5001 10044 0 10 13331 JST ON00 OUTPUT NAME BLOCK TO THE LOADER 5002 10045 0 02 00630 LDA MFL 5003 10046 100040 SZE 5004 10047 0 10 03464 JST DM00 DEFINE IM 5005 10050 0 02 00067 LDA TC 5006 10051 0 07 00702 SUB CRET IF TC NOT C/R 5007 10052 100040 SZE 5008 10053 0 01 10061 JMP R2C GO TO 5009 10054 0 02 00631 LDA SFF IF SFF = 0 5010 10055 101040 SNZ 5011 10056 0 01 10065 JMP R2D GO TO R2D 5012 10057 0 10 02615 JST ER00 ERROR 5013 10060 143301 BCI 1,FA FUNCTION HAS NO ARGUMENTS 5014 10061 140040 R2C CRA 5015 10062 0 04 00626 STA I I = 0 5016 10063 0 10 07514 JST GE00 GENERATE SUBPROGRAM ENTRY 5017 10064 0 01 03637 JMP A1 GO TO C/R TEST 5018 10065 0 10 13243 R2D JST OC00 5019 10066 0 01 03641 JMP C6 GO TO CONTINUE 5020 EJCT