Previous File Previous Page Single Page Next Page Next File

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

2951 * IMBEDDED STATEMENT) 2952 05210 0 10 02354 V3 JST II00 INPUT ITEM 2953 05211 101040 SNZ 2954 05212 0 01 05220 JMP V310 IM=0 (POSSI8LE UNARY + OR -) 2955 05213 0 02 00643 LDA DFL 2956 05214 100040 SZE 2957 05215 0 01 05220 JMP V310 FIRST ITEM IN EXPRESSION 0.K. 2958 05216 0 10 03116 V308 JST ER00 ERROR.....IF(SENSE SWITCH,.ETC)..... 2959 05217 144706 BCI 1,IF ILLEGAL IF STATEMENT TYPE 2960 05220 140040 V310 CRA (A)=0 2961 05221 0 10 07041 JST EX00 EXPRESSION EVALUATOR 2962 05222 0 02 00671 LDA K4 2963 05223 0 10 02547 JST TS00 )-TEST 2964 05224 140040 CRA 2965 05225 0 04 00040 STA A SET A TO SPECIAL (IF) ENTRY IN DATA POOL 2966 05226 0 04 00000 STA 0 2967 05227 0 02 00045 LDA MFL SET MODE OF EXPRESSION INTO SPECIAL (IF) 2968 05230 0414 67 LGL 9 2969 05231 1 04 15400 STA DP,1 2970 05232 0 10 13663 JST TRSE OUTPUT TRACE COUPLING (IF NECESSARY) 2971 05233 0 02 00045 LDA MFL CHECK MODE FLAG FOR LOGICAL 2972 05234 0 07 00721 SUB K103 2973 05235 100040 SZE 2974 05236 0 01 05253 JMP V320 ARITHMETIC IF 2975 05237 0 02 00070 LDA LIF 2976 05240 100040 SZE 2977 05241 0 01 05216 JMP V308 2978 05242 0 04 00630 STA AF SET ADDR OF SNZ AND JMP INSTR TO 00000 2979 05243 0 02 13741 LDA OMJ2 =SNZ INSTR. 2980 05244 0 10 14127 JST OA00 OUTPUT ABSOLUTE 2981 05245 0 02 00060 LDA RPL SET LIF=CURRENT +DDR, (STRING BACK) 2982 05246 0 04 00070 STA LIF 2983 05247 0 02 13733 LDA OMI5 =JMP 0 INSTR. 2984 05250 0 10 14127 JST OA00 OUTPUT ABSOLUTE 2985 05251 0 10 02525 JST XN00 GO TO NEXT INPUT LINE 2986 05252 0 01 04456 JMP C8 GO TO STATEMENT SCAN 2987 * 2988 05253 0 07 00720 V320 SUB K102 CHECK FOR MODE = COMPLEX 2989 05254 101040 SNZ 2990 05255 0 01 05216 JMP V308 ERROR,...COMPLEX MODE EXPRESSION 2991 05256 0 02 05321 LDA V356 =-3 2992 05257 0 04 00041 STA I 2993 05260 0 10 02443 V324 JST IS00 INPUT STATEMENT NUMBER 2994 05261 0 10 02676 JST STXI SET INDEX TO I 2995 05262 0 02 00040 LDA A 2996 05263 1 04 05334 STA T1V3+3,1 SAVE BRANCH ADDRESSES 2997 05264 0 12 00041 IRS I I=I+1 2998 05265 0 01 05316 JMP V350 CHECK FOR TERMINAL COMMA 2999 05266 0 02 05333 LDA T3V3 3000 05267 0 11 05332 CAS T2V3 CHECK FOR ADDR-2 = ADDR-3
Previous File Previous Page Single Page Next Page Next File