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

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

3051 05334 0 10 02525 R7 JST XN00 EXAMINE NEXT CHAR 3052 05335 100040 SZE 3053 05336 0 01 05343 JMP R78 GO TO TEST DFL 3054 05337 0 10 02443 JST IS00 INPUT STMNT = 3055 05340 0 02 00040 LDA A (GO TO 20) 3056 05341 0 04 00053 STA IFF IFF = A 3057 05342 0 01 04264 JMP C5 G0 TO ILLTERM 3058 05343 0 02 00643 R78 LDA DFL 3059 05344 100040 SZE 3060 05345 0 01 05356 JMP R7D 3061 05346 0 10 02437 JST IR00 GO TO I (10, 20, 30} 3062 05347 0400 40 LRL 32 3063 05350 0 02 13740 LDA K206 OUTPUT JMP* INSTRUCTION 3064 05351 0 10 12467 JST OB00 OUTPUT OA 3065 05352 0 02 00752 LDA K134 3066 05353 0 10 02547 JST TS00 , TEST 3067 05354 0 10 05414 JST IB00 INPUT BRANCH LIST 3068 05355 0 01 04262 JMP B6 GO TO JUMP 3069 05356 0 10 05414 R7D JST IB00 INPUT BRANCH LIST GO TO (10,11,12), I 3070 05357 0 02 00752 LDA K134 3071 05360 0 10 02547 JST TS00 , TEST 3072 05361 0 10 02437 JST IR00 INPUT INT VAR 3073 05362 0400 40 LRL 32 3074 05363 0 02 13735 LDA K200 OUTPUT LDA 3075 05364 0 10 12467 JST OB00 OUTPUT OA 3076 05365 140040 CRA 3077 05366 0 04 00040 STA A 3078 05367 0 04 00630 STA AF CAUSE OCTAL ADDRESS IN LISTING 3079 05370 0 02 05442 LDA K75 3080 05371 0 10 14127 JST OA00 OUTPUT ABS (STA 0) - INDEX LOAD 3081 05372 0 02 00060 LDA RPL 3082 05373 0 04 00630 STA AF CAUSE RPL T0 BE IN LISTING 3083 05374 0 02 13753 LDA K207 3084 05375 0 10 13773 JST OR00 OUTPUT RELATIVE (JMP RPL,1) 3085 05376 0 02 00113 LDA L0 3086 05377 0 07 00717 R7F SUB K101 3087 05400 0 04 00041 STA I I = L (0) 3088 05401 0 10 02676 JST STXI 3089 05402 1 02 15400 LDA DP,1 3090 05403 0 04 00040 STA A 3091 05404 0 10 02672 JST STXA 3092 05405 101040 SNZ 3093 05406 0 01 04262 JMP B6 FINISHED LOOPING ON LIST 3094 05407 0410 60 LLL 16 3095 05410 0 02 13733 LDA K201 OUTPUT JMP INSTRUCTIONS 3096 05411 0 10 12467 JST OB00 OUTPUT OA (JMP 0) 3097 05412 0 02 00041 LDA I 3098 05413 0 01 05377 JMP R7F 3099 * ******************* 3100 * *INPUT BRANCH LIST*