FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 129

4073 06345 0 10 02615 JST ER00 NO, ERROR 4074 06346 147324 BCI 1,NT LOGICAL .NOT. NOT A UNARY OPERATOR 4075 06347 0 02 06216 EX20 LDA T0EX YES 4076 06350 100040 SZE T (0) = 0 4077 06351 0 01 06411 JMP EX34 4078 06352 0 02 00036 EX22 LDA B YES 4079 06353 0 06 00045 ADD F B + + (5) .GT. O 4080 06354 100400 SPL NO, ERROR 4081 06355 0 01 07102 JMP EX96 4082 06356 0 35 00626 EX24 LDX I 4083 06357 0 02 00067 LDA TC 4084 06360 0414 67 LGL 9 4085 06361 0 06 06217 ADD T1EX 4086 06362 0 06 00036 ADD B 4087 06363 1 04 17401 STA DP+1,1 OI(I) = TC . T1+B 4088 06364 0 10 07106 JST EX99 DATA POOL CHECK 4089 06365 0 01 06305 JMP EX14 4090 06366 177762 K131 DEC -14 4091 06367 0 35 00626 EX26 LDX I 4092 06370 1 02 17377 LDA DP-1,1 4093 06371 0 03 00673 ANA K118 IF I (I-2) .LT. B 4094 06372 0 11 00036 CAS B 4095 06373 0 01 07104 JMP EX97 ERROR-----MULTIPLE + OR - SIGNS 4096 06374 101000 NOP 4097 06375 0 35 06366 EX30 LDX K131 SET TO SEARCH OPERATOR TABLE FOR TRAILING 4098 06376 1 02 14526 EX31 LDA EX92+14,1 OPERATOR AFTER HAVING ENCOUNTERED AN 4099 06377 0 07 00067 SUB TC ITEM OR A NEGATE. 4100 06400 100040 SZE 4101 06401 0 01 06407 JMP EX32 4102 06402 1 02 14544 LDA EX93+14,1 4103 06403 0 04 06406 STA *+3 4104 06404 0 35 00626 LDX I 4105 06405 -0 01 06406 JMP* *+1 4106 06406 0 000000 DAC ** 4107 06407 0 12 00000 EX32 IRS 0 CONTROL OPERATOR LOOP 4108 06410 0 01 06376 JMP EX31 CONTINUE 4109 06411 0 02 00036 EX34 LDA B IF B = O 4110 06412 0 07 06223 SUB EXT7 4111 06413 100040 SZE 4112 06414 0 01 06453 JMP EX40 NO, GO TO EX40 4113 06415 0 02 06216 LDA T0EX IF T (0) = O 4114 06416 100040 SZE 4115 06417 0 01 06430 JMP EX38 NO, GO TO EX38 4116 06420 0 04 00077 STA IFLG IFLG = 0 4117 06421 0 02 00045 LDA F 4118 06422 141206 AOA 4119 06423 100400 SPL 4120 06424 -0 01 06225 JMP* EX00 RETURN - NO 4121 06425 0 10 07125 JST CA00 SCAN 4122 06426 0 10 11701 JST OT00 OUTPUT TRIACS