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

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

4051 07100 0 04 00000 STA 0 4052 * PERFORM TABLE SEARCH 4053 07101 0 02 00607 EX11 LDA TC GO TO ROUTINE ACCORDING 4054 07102 1 07 07746 SUB EX90+6,1 TO TC. 4055 07103 101040 SNZ IF NO MATCH, ERROR 4056 07104 0 01 07114 JMP EXI1 4057 07105 0 12 00000 IRS XR 4058 07106 0 01 07101 JMP EX11 4059 07107 0 10 02676 JST STXI 4060 07110 0 02 00670 LDA LIBF SPECIAL LIBRARY FLAG 4061 07111 100040 SZE 4062 07112 0 01 07270 JMP EX39 4063 07113 0 01 10010 JMP EX95 ERROR CONDITION 4064 07114 1 02 07754 EXI1 LDA EX91+6,1 4065 07115 0 04 00000 STA 0 4066 07116 1 01 00000 JMP 0,1 PROCESS LEADING OPERATOR 4067 * SPECIAL OPERATOR FLAG SET WHEN COMPILING THE FORTRAN 4068 * LIBRARY IN WHICH CASE THE OPERATIONS ( A= ) AND 4069 * ( =A ) ARE REQUIRED, THIS LOGIC WILL ALLOW THESE 4070 * TO BE PROCESSED WITHOUT GIVING AN ERROR MESSAGE IF THE 4071 * SPECIAL LIBRARY FLAG, (LIBF) IS SET TO NON-ZERO, 4072 * 4073 07117 0 02 00642 EX12 LDA B TC = ( 4074 07120 0 06 00726 ADD K109 B = B+16 4075 07121 0 04 00642 STA B SXF = NON-ZERO 4076 07122 0 04 00050 STA SXF 4077 07123 0 10 02354 EX14 JST II00 INPUT ITEM 4078 07124 0 10 02676 JST STXI 4079 07125 0 01 07066 JMP EX10 GO TO EX10 4080 07126 0 10 02676 EX16 JST STXI TC = * 4081 07127 0 02 00607 LDA TC 4082 07130 0414 67 LGL 9 OI (I-2) = *, B+13 4083 07131 0 06 00642 ADD B 4084 07132 0 06 00747 ADD K129 4085 07133 1 05 15377 ERA DP-1,1 4086 07134 140100 SSP 4087 07135 101040 SNZ 4088 07136 0 01 07141 JMP *+3 4089 07137 0 10 03116 JST ER00 NO, CONSTR ERROR 4090 07140 150327 BCI 1,PW * NOT PRECEDED BY ANOTHER * 4091 07141 0 02 00726 LDA K109 (E = '20) 4092 07142 0414 67 LGL 9 4093 07143 1 13 15377 IMA DP-1,1 4094 07144 0 03 00735 ANA K118 ='777 4095 07145 0 06 00717 ADD K101 4096 07146 1 05 15377 ERA DP-1,1 CHAJNE * TO ** 4097 07147 1 04 15377 STA DP-1,1 4098 07150 0 01 07123 JMP EX14 GO TO EX14 4099 07151 0 02 00720 EX18 LDA K102 =2 4100 07152 0 04 00607 STA TC SET TC TO -