imp22g.i



              ERCC. Portable Imp80 Compiler Release 4 Version 13 Aug 96


  4095 12285

*    Failed to analyse line  3942
      %RESULT =FALSE %IF DY_Y>=NP0 %OR DY_Y=X %ORNOT EASY(DY_X)
                                                              !

*    Failed to analyse line  3942
      %RESULT =FALSE %IF DY_Y>=NP0 %OR DY_Y=X %ORNOT EASY(DY_X)
                                                              !

*    Failed to analyse line  3981
     FORGET(R) %IF UNSAFE(C_REG_CONTENT(R))
                                          !

*    Failed to analyse line  3981
     FORGET(R) %IF UNSAFE(C_REG_CONTENT(R))
                                          !

*    Failed to analyse line  3983
     FORGETCC %IF UNSAFE(C_REG_CCX) %OR UNSAFE(C_REG_CCY)
                                     !

*    Failed to analyse line  3983
     FORGETCC %IF UNSAFE(C_REG_CCX) %OR UNSAFE(C_REG_CCY)
                                     !

*    Failed to analyse line  3992
      %RESULT =FALSE %UNLESS XFREE(DP_Y,1)
                                         !

*    Failed to analyse line  3992
      %RESULT =FALSE %UNLESS XFREE(DP_Y,1)
                                         !

*    Failed to analyse line  4042
      %FINISHELSEIF ACT=JAMASS %ORNOT EASY(Y) %START
                                               !

*    Failed to analyse line  4042
      %FINISHELSEIF ACT=JAMASS %ORNOT EASY(Y) %START
                                               !

*    Failed to analyse line  4084
      %FINISHELSEUNLESS EASY(Y) %START
                                 !

*    Failed to analyse line  4084
      %FINISHELSEUNLESS EASY(Y) %START
                                 !

* 4095   FAULT 51 %FINISH is not required

* 4095   FAULT 51 %FINISH is not required

* 4098   FAULT 51 %FINISH is not required

* 4098   FAULT 51 %FINISH is not required

*    Failed to analyse line  4110
      %IF XFREE(Y,0) %START
                      !

*    Failed to analyse line  4110
      %IF XFREE(Y,0) %START
                      !

* 4115   FAULT 51 %FINISH is not required

* 4115   FAULT 51 %FINISH is not required

*    Failed to analyse line  4383
     DP==DP[1]
           !

*    Failed to analyse line  4383
     DP==DP[1]
           !

*    Failed to analyse line  4819
      %RECORD (IDENTINFO) %NAME DQ,DP==DICT(P)
                                     !

*    Failed to analyse line  4819
      %RECORD (IDENTINFO) %NAME DQ,DP==DICT(P)
                                     !

*    Failed to analyse line  4860
      %RECORD (IDENTINFO) %NAME TP==TYPECELL(DP_TYPE)
                                  !

*    Failed to analyse line  4860
      %RECORD (IDENTINFO) %NAME TP==TYPECELL(DP_TYPE)
                                  !

*    Failed to analyse line  5469
     RVAL=RVAL*RADIX^J %IF J#0
                     !

*    Failed to analyse line  5469
     RVAL=RVAL*RADIX^J %IF J#0
                     !

*    Failed to analyse line  5546
      %IF A(K) %START
                !

*    Failed to analyse line  5546
      %IF A(K) %START
                !

* 5547   FAULT 51 %FINISH is not required

* 5547   FAULT 51 %FINISH is not required

*    Failed to analyse line  5568
      %IF F&EXT#0 %AND A(KEYALIAS) %START
                                    !

*    Failed to analyse line  5568
      %IF F&EXT#0 %AND A(KEYALIAS) %START
                                    !

* 5573   FAULT 51 %FINISH is not required

* 5573   FAULT 51 %FINISH is not required

*    Failed to analyse line  5598
      %IF A(KEYALIAS) %START
                       !

*    Failed to analyse line  5598
      %IF A(KEYALIAS) %START
                       !

* 5622   FAULT 51 %FINISH is not required

* 5622   FAULT 51 %FINISH is not required

*    Failed to analyse line  5653
      %IF OK(-32768,32767) %START
                            !

*    Failed to analyse line  5653
      %IF OK(-32768,32767) %START
                            !

*    Failed to analyse line  5654
     S=1 %IF OK(-128,127)
                        !

*    Failed to analyse line  5654
     S=1 %IF OK(-128,127)
                        !

* 5655   FAULT 51 %FINISH is not required

* 5655   FAULT 51 %FINISH is not required

*    Failed to analyse line  5725
      %RESULT =TRUE %IF WP_TYPE=TP_TYPE %AND VALOK(WP_XTYPE,TP_XTYPE)
                                                              !

*    Failed to analyse line  5725
      %RESULT =TRUE %IF WP_TYPE=TP_TYPE %AND VALOK(WP_XTYPE,TP_XTYPE)
                                                              !

*    Failed to analyse line  5779
      %INTEGER HOLD,SET=0
                       !

*    Failed to analyse line  5779
      %INTEGER HOLD,SET=0
                       !

*    Failed to analyse line  5783
     GETMIDENT(HOLD,A7) %IF A(MINUS)
                                   !

*    Failed to analyse line  5783
     GETMIDENT(HOLD,A7) %IF A(MINUS)
                                   !

*    Failed to analyse line  5788
      %REPEATUNTILNOT A(SLASH)
                             !

*    Failed to analyse line  5788
      %REPEATUNTILNOT A(SLASH)
                             !

*    Failed to analyse line  5796
      %RESULT =0 %UNLESS A(DOT)
                              !

*    Failed to analyse line  5796
      %RESULT =0 %UNLESS A(DOT)
                              !

*    Failed to analyse line  5808
      %IF A(HASHSIGN) %START
                       !

*    Failed to analyse line  5808
      %IF A(HASHSIGN) %START
                       !

* 5811   FAULT 51 %FINISH is not required

* 5811   FAULT 51 %FINISH is not required

*    Failed to analyse line  5813
     SIGN=1 %IF A(MINUS)
                       !

*    Failed to analyse line  5813
     SIGN=1 %IF A(MINUS)
                       !

*    Failed to analyse line  5814
      %IF A(IDENT) %START
                    !

*    Failed to analyse line  5814
      %IF A(IDENT) %START
                    !

*    Failed to analyse line  5823
      %WHILE A(RECSUB) %CYCLE
                        !

*    Failed to analyse line  5823
      %WHILE A(RECSUB) %CYCLE
                        !

* 5832   FAULT 52 %REPEAT instead of %FINISH for %START at line  5820

* 5832   FAULT 52 %REPEAT instead of %FINISH for %START at line  5820

* 5840   FAULT 51 %FINISH is not required

* 5840   FAULT 51 %FINISH is not required

* 5842   FAULT 51 %FINISH is not required

* 5842   FAULT 51 %FINISH is not required

*    Failed to analyse line  5842
      %FINISHELSEIF A(CONST) %START
                              !

*    Failed to analyse line  5842
      %FINISHELSEIF A(CONST) %START
                              !

* 5844   FAULT 51 %FINISH is not required

* 5844   FAULT 51 %FINISH is not required

*    Failed to analyse line  5846
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  5846
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  5852
      %IF SIGN#0 %THEN ITEM=ITEM+PRE %ELSEUNLESS A(PLUS) %THEN ITEM=ITEM+INDIR %ELSE ITEM=ITEM+POST
                                !

*    Failed to analyse line  5852
      %IF SIGN#0 %THEN ITEM=ITEM+PRE %ELSEUNLESS A(PLUS) %THEN ITEM=ITEM+INDIR %ELSE ITEM=ITEM+POST
                                !

*    Failed to analyse line  5856
      %IF A(COMMA) %START
                    !

*    Failed to analyse line  5856
      %IF A(COMMA) %START
                    !

* 5862   FAULT 51 %FINISH is not required

* 5862   FAULT 51 %FINISH is not required

* 5864   FAULT 51 %FINISH is not required

* 5864   FAULT 51 %FINISH is not required

*    Failed to analyse line  5887
     MATCHED=0 %AND GETREGSET %IF A(IDENT)
                                         !

*    Failed to analyse line  5887
     MATCHED=0 %AND GETREGSET %IF A(IDENT)
                                         !

*    Failed to analyse line  5918
      %RESULT =TRUE %IF REFOK(WP_TYPE,TP_TYPE)
                                             !

*    Failed to analyse line  5918
      %RESULT =TRUE %IF REFOK(WP_TYPE,TP_TYPE)
                                             !

*    Failed to analyse line  5990
      %INTEGER MAXARG=ARG
                     !

*    Failed to analyse line  5990
      %INTEGER MAXARG=ARG
                     !

*    Failed to analyse line  6034
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  6034
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  6045
      %EXITIF VALOK(TYPE,RESTYPE)
                                !

*    Failed to analyse line  6045
      %EXITIF VALOK(TYPE,RESTYPE)
                                !

*    Failed to analyse line  6047
      %REPEATUNTIL NOALT
                       !

*    Failed to analyse line  6047
      %REPEATUNTIL NOALT
                       !

*    Failed to analyse line  6055
     FAULT(TYPERR+POINT) %IF DITEM_FLAGS&PROC=0 %ORNOT PARMATCH(DARG_TYPE,DITEM_TYPE)
                                              !

*    Failed to analyse line  6055
     FAULT(TYPERR+POINT) %IF DITEM_FLAGS&PROC=0 %ORNOT PARMATCH(DARG_TYPE,DITEM_TYPE)
                                              !

*    Failed to analyse line  6064
      %EXITIF VALOK(DARG_TYPE,TYPE)
                                  !

*    Failed to analyse line  6064
      %EXITIF VALOK(DARG_TYPE,TYPE)
                                  !

*    Failed to analyse line  6065
      %REPEATUNTIL NOALT
                       !

*    Failed to analyse line  6065
      %REPEATUNTIL NOALT
                       !

*    Failed to analyse line  6073
      %EXITIF REFOK(DARG_TYPE,TYPE)
                                  !

*    Failed to analyse line  6073
      %EXITIF REFOK(DARG_TYPE,TYPE)
                                  !

*    Failed to analyse line  6074
      %REPEATUNTIL NOALT
                       !

*    Failed to analyse line  6074
      %REPEATUNTIL NOALT
                       !

*    Failed to analyse line  6085
      %REPEATUNTILNOT A(COMMA)
                             !

*    Failed to analyse line  6085
      %REPEATUNTILNOT A(COMMA)
                             !

* 6088   FAULT 51 %FINISH is not required

* 6088   FAULT 51 %FINISH is not required

*    Failed to analyse line  6129
      %UNLESS A(LEFT) %START
                       !

*    Failed to analyse line  6129
      %UNLESS A(LEFT) %START
                       !

* 6133   FAULT 51 %FINISH is not required

* 6133   FAULT 51 %FINISH is not required

*    Failed to analyse line  6141
      %IF A(DOT) %START
                  !

*    Failed to analyse line  6141
      %IF A(DOT) %START
                  !

* 6144   FAULT 51 %FINISH is not required

* 6144   FAULT 51 %FINISH is not required

*    Failed to analyse line  6156
      %RESULT =FALSE %UNLESS A(EQEQ)
                                   !

*    Failed to analyse line  6156
      %RESULT =FALSE %UNLESS A(EQEQ)
                                   !

*    Failed to analyse line  6203
      %IF A(RECSUB) %START
                     !

*    Failed to analyse line  6203
      %IF A(RECSUB) %START
                     !

*    Failed to analyse line  6210
     SYNTAXERROR %UNLESS AASSOP(DARG_FLAGS&NAME+DARG_TYPE)
                                                         !

*    Failed to analyse line  6210
     SYNTAXERROR %UNLESS AASSOP(DARG_FLAGS&NAME+DARG_TYPE)
                                                         !

* 6211   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  6193

* 6211   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  6193

*    Failed to analyse line  6213
      %UNLESS A(COMMA) %START
                        !

*    Failed to analyse line  6213
      %UNLESS A(COMMA) %START
                        !

*    Failed to analyse line  6227
      %EXITIF A(RIGHT)
                     !

*    Failed to analyse line  6227
      %EXITIF A(RIGHT)
                     !

* 6229   FAULT 51 %FINISH is not required

* 6229   FAULT 51 %FINISH is not required

* 6233   FAULT  1 %REPEAT is not required

* 6233   FAULT  1 %REPEAT is not required

*    Failed to analyse line  6259
      %FINISHELSEIF OK&STRINGOK#0 %AND VALOK(STRINGTYPE,TYPE) %START
                                                               !

*    Failed to analyse line  6259
      %FINISHELSEIF OK&STRINGOK#0 %AND VALOK(STRINGTYPE,TYPE) %START
                                                               !

* 6264   FAULT 51 %FINISH is not required

* 6264   FAULT 51 %FINISH is not required

*    Failed to analyse line  6562
     SYNTAXERROR %IF A(KEYOR)
                            !

*    Failed to analyse line  6562
     SYNTAXERROR %IF A(KEYOR)
                            !

*    Failed to analyse line  6571
     SYNTAXERROR %IF A(KEYAND)
                             !

*    Failed to analyse line  6571
     SYNTAXERROR %IF A(KEYAND)
                             !

*    Failed to analyse line  6589
      %IF A(LESS) %START ;
                   !

*    Failed to analyse line  6589
      %IF A(LESS) %START ;
                   !

*    Failed to analyse line  6650
      %REPEATUNTILNOT A(COMMA)
                             !

*    Failed to analyse line  6650
      %REPEATUNTILNOT A(COMMA)
                             !

* 6686   FAULT 51 %FINISH is not required

* 6686   FAULT 51 %FINISH is not required

*    Failed to analyse line  6699
      %FINISHELSEIF A(KEYNOT) %START
                               !

*    Failed to analyse line  6699
      %FINISHELSEIF A(KEYNOT) %START
                               !

*    Failed to analyse line  6708
      %FINISHELSEIF A(MODSIGN) %START
                                !

*    Failed to analyse line  6708
      %FINISHELSEIF A(MODSIGN) %START
                                !

*    Failed to analyse line  6710
      %IF VALOK(INTTYPE,TYPE) %START
                               !

*    Failed to analyse line  6710
      %IF VALOK(INTTYPE,TYPE) %START
                               !

* 6718   FAULT 51 %FINISH is not required

* 6718   FAULT 51 %FINISH is not required

*    Failed to analyse line  6718
      %FINISHELSEIF VALOK(REALTYPE,TYPE) %START
                                          !

*    Failed to analyse line  6718
      %FINISHELSEIF VALOK(REALTYPE,TYPE) %START
                                          !

* 6720   FAULT 51 %FINISH is not required

* 6720   FAULT 51 %FINISH is not required

* 6724   FAULT 51 %FINISH is not required

* 6724   FAULT 51 %FINISH is not required

* 6727   FAULT 51 %FINISH is not required

* 6727   FAULT 51 %FINISH is not required

*    Failed to analyse line  6735
     EXPFAULT(TYPERR) %UNLESS REFOK(ETYPE-SIGN16,TYPE)
                                                     !

*    Failed to analyse line  6735
     EXPFAULT(TYPERR) %UNLESS REFOK(ETYPE-SIGN16,TYPE)
                                                     !

*    Failed to analyse line  6781
     EXPFAULT(TYPERR) %UNLESS VALOK(ETYPE,TYPE)
                                              !

*    Failed to analyse line  6781
     EXPFAULT(TYPERR) %UNLESS VALOK(ETYPE,TYPE)
                                              !

*    Failed to analyse line  6795
      %INTEGER BASE=MAXLAB
                   !

*    Failed to analyse line  6795
      %INTEGER BASE=MAXLAB
                   !

*    Failed to analyse line  6802
     DP==DP[2] %IF DP_ACT=0;
           !

*    Failed to analyse line  6802
     DP==DP[2] %IF DP_ACT=0;
           !

*    Failed to analyse line  6865
      %IF A(IDENT) %START
                    !

*    Failed to analyse line  6865
      %IF A(IDENT) %START
                    !

*    Failed to analyse line  6871
      %IF A(EQUALS) %START
                     !

*    Failed to analyse line  6871
      %IF A(EQUALS) %START
                     !

*    Failed to analyse line  6875
      %FINISHELSEIF A(EQEQ) %START
                             !

*    Failed to analyse line  6875
      %FINISHELSEIF A(EQEQ) %START
                             !

* 6879   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  6864

* 6879   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  6864

*    Failed to analyse line  6885
     SYNTAXERROR %UNLESS A(ARROW)
                                !

*    Failed to analyse line  6885
     SYNTAXERROR %UNLESS A(ARROW)
                                !

* 6891   FAULT 51 %FINISH is not required

* 6891   FAULT 51 %FINISH is not required

* 6901   FAULT 51 %FINISH is not required

* 6901   FAULT 51 %FINISH is not required

*    Failed to analyse line  6903
      %IF A(KEYMONITOR) %START
                         !

*    Failed to analyse line  6903
      %IF A(KEYMONITOR) %START
                         !

*    Failed to analyse line  6906
      %FINISHELSEIF A(EXIT) %START ;
                             !

*    Failed to analyse line  6906
      %FINISHELSEIF A(EXIT) %START ;
                             !

* 6910   FAULT 51 %FINISH is not required

* 6910   FAULT 51 %FINISH is not required

*    Failed to analyse line  6910
      %FINISHELSEIF A(KEYRETURN) %START
                                  !

*    Failed to analyse line  6910
      %FINISHELSEIF A(KEYRETURN) %START
                                  !

* 6915   FAULT 51 %FINISH is not required

* 6915   FAULT 51 %FINISH is not required

*    Failed to analyse line  6915
      %FINISHELSEIF A(KEYRESULT) %START
                                  !

*    Failed to analyse line  6915
      %FINISHELSEIF A(KEYRESULT) %START
                                  !

*    Failed to analyse line  6917
     SYNTAXERROR %UNLESS AASSOP(C_TYPE)
                                      !

*    Failed to analyse line  6917
     SYNTAXERROR %UNLESS AASSOP(C_TYPE)
                                      !

* 6921   FAULT 51 %FINISH is not required

* 6921   FAULT 51 %FINISH is not required

*    Failed to analyse line  6921
      %FINISHELSEIF A(TF) %START ;
                           !

*    Failed to analyse line  6921
      %FINISHELSEIF A(TF) %START ;
                           !

* 6925   FAULT 51 %FINISH is not required

* 6925   FAULT 51 %FINISH is not required

*    Failed to analyse line  6925
      %FINISHELSEIF A(ARROW) %OR A(KEYGOTO) %START
                              !

*    Failed to analyse line  6925
      %FINISHELSEIF A(ARROW) %OR A(KEYGOTO) %START
                              !

* 6943   FAULT 51 %FINISH is not required

* 6943   FAULT 51 %FINISH is not required

*    Failed to analyse line  6943
      %FINISHELSEIF A(KEYSTOP) %START
                                !

*    Failed to analyse line  6943
      %FINISHELSEIF A(KEYSTOP) %START
                                !

* 6946   FAULT 51 %FINISH is not required

* 6946   FAULT 51 %FINISH is not required

*    Failed to analyse line  6946
      %FINISHELSEIF A(KEYSIGNAL) %START
                                  !

*    Failed to analyse line  6946
      %FINISHELSEIF A(KEYSIGNAL) %START
                                  !

*    Failed to analyse line  6952
      %IF A(COMMA) %START
                    !

*    Failed to analyse line  6952
      %IF A(COMMA) %START
                    !

*    Failed to analyse line  6953
      %IF A(COMMA) %THEN MATCHED=0 %ELSE GETVALUE(BYTETYPE)
                    !

*    Failed to analyse line  6953
      %IF A(COMMA) %THEN MATCHED=0 %ELSE GETVALUE(BYTETYPE)
                    !

* 6954   FAULT 51 %FINISH is not required

* 6954   FAULT 51 %FINISH is not required

*    Failed to analyse line  6957
      %IF A(COMMA) %START
                    !

*    Failed to analyse line  6957
      %IF A(COMMA) %START
                    !

*    Failed to analyse line  6958
      %IF A(COMMA) %THEN MATCHED=0 %ELSE GETVALUE(INTTYPE)
                    !

*    Failed to analyse line  6958
      %IF A(COMMA) %THEN MATCHED=0 %ELSE GETVALUE(INTTYPE)
                    !

* 6959   FAULT 51 %FINISH is not required

* 6959   FAULT 51 %FINISH is not required

*    Failed to analyse line  6961
     GETVALUE(STRINGTYPE) %IF A(COMMA)
                                     !

*    Failed to analyse line  6961
     GETVALUE(STRINGTYPE) %IF A(COMMA)
                                     !

* 6964   FAULT 51 %FINISH is not required

* 6964   FAULT 51 %FINISH is not required

* 6967   FAULT 51 %FINISH is not required

* 6967   FAULT 51 %FINISH is not required

* 6968   FAULT  1 %REPEAT is not required

* 6968   FAULT  1 %REPEAT is not required

*    Failed to analyse line  6968
      %REPEATUNTILNOT A(KEYAND)
                              !

*    Failed to analyse line  6968
      %REPEATUNTILNOT A(KEYAND)
                              !

*    Failed to analyse line  7057
      %INTEGER HOLD=C_LOOPLAB
                   !

*    Failed to analyse line  7057
      %INTEGER HOLD=C_LOOPLAB
                   !

*    Failed to analyse line  7074
      %IF A(STAR) %START
                   !

*    Failed to analyse line  7074
      %IF A(STAR) %START
                   !

* 7076   FAULT 51 %FINISH is not required

* 7076   FAULT 51 %FINISH is not required

*    Failed to analyse line  7170
     ->NEXT %IF A(TERMINATOR)
                            !

*    Failed to analyse line  7170
     ->NEXT %IF A(TERMINATOR)
                            !

*    Failed to analyse line  7172
      %IF A(IU) %START
                 !

*    Failed to analyse line  7172
      %IF A(IU) %START
                 !

* 7175   FAULT 51 %FINISH is not required

* 7175   FAULT 51 %FINISH is not required

*    Failed to analyse line  7175
      %FINISHELSEIF A(KEYWHILE) %START
                                 !

*    Failed to analyse line  7175
      %FINISHELSEIF A(KEYWHILE) %START
                                 !

* 7181   FAULT 51 %FINISH is not required

* 7181   FAULT 51 %FINISH is not required

*    Failed to analyse line  7181
      %ELSEIF A(KEYFOR)
           !

*    Failed to analyse line  7181
      %ELSEIF A(KEYFOR)
           !

*    Failed to analyse line  7195
     SYNTAXERROR %UNLESS A(KEYUNTIL)
                                   !

*    Failed to analyse line  7195
     SYNTAXERROR %UNLESS A(KEYUNTIL)
                                   !

*    Failed to analyse line  7206
      %IF A(KEYTHEN) %ANDNOT A(KEYSTART) %START
                      !

*    Failed to analyse line  7206
      %IF A(KEYTHEN) %ANDNOT A(KEYSTART) %START
                      !

* 7208   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  7204

* 7208   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  7204

*    Failed to analyse line  7218
     ->EXIT2 %UNLESS A(IU)
                         !

*    Failed to analyse line  7218
     ->EXIT2 %UNLESS A(IU)
                         !

*    Failed to analyse line  7223
     ->TERM %UNLESS A(KEYELSE)
                             !

*    Failed to analyse line  7223
     ->TERM %UNLESS A(KEYELSE)
                             !

* 7225   FAULT  1 %REPEAT is not required

* 7225   FAULT  1 %REPEAT is not required

*    Failed to analyse line  7225
      %REPEATUNTILNOT A(IU)
                          !

*    Failed to analyse line  7225
      %REPEATUNTILNOT A(IU)
                          !

*    Failed to analyse line  7226
      %UNLESS A(KEYSTART) %START
                           !

*    Failed to analyse line  7226
      %UNLESS A(KEYSTART) %START
                           !

* 7228   FAULT 51 %FINISH is not required

* 7228   FAULT 51 %FINISH is not required

*    Failed to analyse line  7240
      %IF A(TERMINATOR) %START
                         !

*    Failed to analyse line  7240
      %IF A(TERMINATOR) %START
                         !

*    Failed to analyse line  7244
     GETCONDITION %IF A(KEYUNTIL)
                                !

*    Failed to analyse line  7244
     GETCONDITION %IF A(KEYUNTIL)
                                !

* 7247   FAULT 51 %FINISH is not required

* 7247   FAULT 51 %FINISH is not required

*    Failed to analyse line  7260
     NONSTANDARD(6) %AND GETCONDITION %IF A(KEYUNTIL)
                                                    !

*    Failed to analyse line  7260
     NONSTANDARD(6) %AND GETCONDITION %IF A(KEYUNTIL)
                                                    !

*    Failed to analyse line  7297
      %REPEATUNTILNOT A(COMMA)
                             !

*    Failed to analyse line  7297
      %REPEATUNTILNOT A(COMMA)
                             !

*    Failed to analyse line  7373
     GET(IDENT) %AND DECLARE(D) %UNTILNOT A(COMMA)
                                                 !

*    Failed to analyse line  7373
     GET(IDENT) %AND DECLARE(D) %UNTILNOT A(COMMA)
                                                 !

*    Failed to analyse line  7403
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  7403
      %IF A(LEFT) %START
                   !

* 7409   FAULT 51 %FINISH is not required

* 7409   FAULT 51 %FINISH is not required

*    Failed to analyse line  7414
      %IF A(KEYINTEGER) %THEN FAULT(NOTIN+POINT+WARN) %ELSE ITEMTYPE=REALTYPE %AND GET(KEYREAL)
                         !

*    Failed to analyse line  7414
      %IF A(KEYINTEGER) %THEN FAULT(NOTIN+POINT+WARN) %ELSE ITEMTYPE=REALTYPE %AND GET(KEYREAL)
                         !

*    Failed to analyse line  7421
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  7421
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  7427
      %IF A(STAR) %START
                   !

*    Failed to analyse line  7427
      %IF A(STAR) %START
                   !

* 7429   FAULT 51 %FINISH is not required

* 7429   FAULT 51 %FINISH is not required

* 7436   FAULT 51 %FINISH is not required

* 7436   FAULT 51 %FINISH is not required

*    Failed to analyse line  7443
      %UNLESS A(STAR) %START
                       !

*    Failed to analyse line  7443
      %UNLESS A(STAR) %START
                       !

*    Failed to analyse line  7444
      %UNLESS A(IDENT) %START
                        !

*    Failed to analyse line  7444
      %UNLESS A(IDENT) %START
                        !

* 7452   FAULT 51 %FINISH is not required

* 7452   FAULT 51 %FINISH is not required

* 7456   FAULT 51 %FINISH is not required

* 7456   FAULT 51 %FINISH is not required

*    Failed to analyse line  7644
      %IF DIM!R=0 %AND A(STAR) %START
                                !

*    Failed to analyse line  7644
      %IF DIM!R=0 %AND A(STAR) %START
                                !

* 7651   FAULT 51 %FINISH is not required

* 7651   FAULT 51 %FINISH is not required

*    Failed to analyse line  7670
      %IF A(COMMA) %START
                    !

*    Failed to analyse line  7670
      %IF A(COMMA) %START
                    !

* 7678   FAULT 51 %FINISH is not required

* 7678   FAULT 51 %FINISH is not required

*    Failed to analyse line  7796
      %IF AASSOP(ITEMTYPE) %START
                            !

*    Failed to analyse line  7796
      %IF AASSOP(ITEMTYPE) %START
                            !

*    Failed to analyse line  7806
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  7806
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  7808
     GETLITERAL(HALFTYPE) %UNLESS A(STAR)
                                        !

*    Failed to analyse line  7808
     GETLITERAL(HALFTYPE) %UNLESS A(STAR)
                                        !

* 7810   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  7800

* 7810   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  7800

* 7814   FAULT 52 %REPEAT instead of %FINISH for %START at line  7795

* 7814   FAULT 52 %REPEAT instead of %FINISH for %START at line  7795

*    Failed to analyse line  7814
      %REPEATUNTILNOT A(COMMA)
                             !

*    Failed to analyse line  7814
      %REPEATUNTILNOT A(COMMA)
                             !

* 7821   FAULT 51 %FINISH is not required

* 7821   FAULT 51 %FINISH is not required

* 7822   FAULT 51 %FINISH is not required

* 7822   FAULT 51 %FINISH is not required

*    Failed to analyse line  7848
      %ELSEIF MODE>=FRAMEMODE
           !

*    Failed to analyse line  7848
      %ELSEIF MODE>=FRAMEMODE
           !

*    Failed to analyse line  7851
     DECL_FLAGS=DECL_FLAGS!SPEC %IF A(KEYSPEC)
                                             !

*    Failed to analyse line  7851
     DECL_FLAGS=DECL_FLAGS!SPEC %IF A(KEYSPEC)
                                             !

*    Failed to analyse line  7852
      %ELSEIF MODE=OWNMODE;
           !

*    Failed to analyse line  7852
      %ELSEIF MODE=OWNMODE;
           !

*    Failed to analyse line  7854
      %IF A(KEYSPEC) %START
                      !

*    Failed to analyse line  7854
      %IF A(KEYSPEC) %START
                      !

* 7857   FAULT 51 %FINISH is not required

* 7857   FAULT 51 %FINISH is not required

*    Failed to analyse line  7862
      %IF DECL_FLAGS&EXT#0 %AND A(KEYALIAS) %START
                                             !

*    Failed to analyse line  7862
      %IF DECL_FLAGS&EXT#0 %AND A(KEYALIAS) %START
                                             !

*    Failed to analyse line  7868
     ITEM=0 %AND DECL_FLAGS=DECL_FLAGS!ALT %IF DUPOK
                                                   !

*    Failed to analyse line  7868
     ITEM=0 %AND DECL_FLAGS=DECL_FLAGS!ALT %IF DUPOK
                                                   !

* 7870   FAULT 51 %FINISH is not required

* 7870   FAULT 51 %FINISH is not required

*    Failed to analyse line  7892
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  7892
      %IF A(LEFT) %START
                   !

* 7897   FAULT 51 %FINISH is not required

* 7897   FAULT 51 %FINISH is not required

*    Failed to analyse line  7909
      %UNLESS PARMATCH(C_DPID_TYPE,DLIM1) %START
                                           !

*    Failed to analyse line  7909
      %UNLESS PARMATCH(C_DPID_TYPE,DLIM1) %START
                                           !

* 7920   FAULT 51 %FINISH is not required

* 7920   FAULT 51 %FINISH is not required

*    Failed to analyse line  7924
      %INTEGER PRESENT=0
                      !

*    Failed to analyse line  7924
      %INTEGER PRESENT=0
                      !

*    Failed to analyse line  7926
      %IF AASSOP(ITEMTYPE) %START
                            !

*    Failed to analyse line  7926
      %IF AASSOP(ITEMTYPE) %START
                            !

* 7930   FAULT 51 %FINISH is not required

* 7930   FAULT 51 %FINISH is not required

*    Failed to analyse line  7941
      %ELSEIF MODE=CONSTMODE
           !

*    Failed to analyse line  7941
      %ELSEIF MODE=CONSTMODE
           !

*    Failed to analyse line  7969
      %WHILE A(KATTRIB) %CYCLE
                         !

*    Failed to analyse line  7969
      %WHILE A(KATTRIB) %CYCLE
                         !

*    Failed to analyse line  7972
      %IF DEPTH=0 %AND A(LEFT) %START ;
                                !

*    Failed to analyse line  7972
      %IF DEPTH=0 %AND A(LEFT) %START ;
                                !

* 7977   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  7963

* 7977   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  7963

*    Failed to analyse line  7977
      %ELSEIF A(RPRED);
           !

*    Failed to analyse line  7977
      %ELSEIF A(RPRED);
           !

*    Failed to analyse line  7991
      %IF A(FNMAP) %START ;
                    !

*    Failed to analyse line  7991
      %IF A(FNMAP) %START ;
                    !

*    Failed to analyse line  8002
      %IF A(KEYNAME) %START
                      !

*    Failed to analyse line  8002
      %IF A(KEYNAME) %START
                      !

*    Failed to analyse line  8006
      %IF A(KEYARRAY) %START
                       !

*    Failed to analyse line  8006
      %IF A(KEYARRAY) %START
                       !

*    Failed to analyse line  8014
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  8014
      %IF A(LEFT) %START
                   !

* 8020   FAULT 51 %FINISH is not required

* 8020   FAULT 51 %FINISH is not required

*    Failed to analyse line  8022
     DECL_FLAGS=DECL_FLAGS+NAME %IF A(KEYNAME)
                                             !

*    Failed to analyse line  8022
     DECL_FLAGS=DECL_FLAGS+NAME %IF A(KEYNAME)
                                             !

* 8023   FAULT 51 %FINISH is not required

* 8023   FAULT 51 %FINISH is not required

*    Failed to analyse line  8034
      %ELSEIF C_STATUS&HADORDERERR=0
           !

*    Failed to analyse line  8034
      %ELSEIF C_STATUS&HADORDERERR=0
           !

*    Failed to analyse line  8038
      %ELSEIF DECL_FLAGS&EXT#0 %AND A(KEYSPEC)
           !

*    Failed to analyse line  8038
      %ELSEIF DECL_FLAGS&EXT#0 %AND A(KEYSPEC)
           !

*    Failed to analyse line  8055
      %EXITUNLESS A(COMMA)
                         !

*    Failed to analyse line  8055
      %EXITUNLESS A(COMMA)
                         !

*    Failed to analyse line  8066
      %IF ADIM#0 %ORNOT A(LEFT) %START
                                 !

*    Failed to analyse line  8066
      %IF ADIM#0 %ORNOT A(LEFT) %START
                                 !

* 8075   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  8042

* 8075   FAULT 59 %FINISH instead of %REPEAT for %CYCLE at line  8042

*    Failed to analyse line  8076
     ->EXIT2 %UNLESS A(COMMA)
                            !

*    Failed to analyse line  8076
     ->EXIT2 %UNLESS A(COMMA)
                            !

* 8078   FAULT  1 %REPEAT is not required

* 8078   FAULT  1 %REPEAT is not required

* 8081   FAULT 51 %FINISH is not required

* 8081   FAULT 51 %FINISH is not required

* 8082   FAULT 51 %FINISH is not required

* 8082   FAULT 51 %FINISH is not required

*    Failed to analyse line  8083
      %EXITUNLESS A(COMMA);
                          !

*    Failed to analyse line  8083
      %EXITUNLESS A(COMMA);
                          !

* 8084   FAULT  1 %REPEAT is not required

* 8084   FAULT  1 %REPEAT is not required

* 8087   FAULT  1 %REPEAT is not required

* 8087   FAULT  1 %REPEAT is not required

*    Failed to analyse line  8087
      %REPEATUNTILNOT A(KEYOR)
                             !

*    Failed to analyse line  8087
      %REPEATUNTILNOT A(KEYOR)
                             !

*    Failed to analyse line  8102
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  8102
      %IF A(LEFT) %START
                   !

* 8106   FAULT 51 %FINISH is not required

* 8106   FAULT 51 %FINISH is not required

*    Failed to analyse line  8120
     ->ATTED %IF A(ATSIGN)
                         !

*    Failed to analyse line  8120
     ->ATTED %IF A(ATSIGN)
                         !

*    Failed to analyse line  8121
      %IF A(LEFT) %START
                   !

*    Failed to analyse line  8121
      %IF A(LEFT) %START
                   !

* 8126   FAULT 51 %FINISH is not required

* 8126   FAULT 51 %FINISH is not required

*    Failed to analyse line  8131
      %UNLESS A(LEFT) %START
                       !

*    Failed to analyse line  8131
      %UNLESS A(LEFT) %START
                       !

*    Failed to analyse line  8133
      %IF A(KEYSPEC) %START
                      !

*    Failed to analyse line  8133
      %IF A(KEYSPEC) %START
                      !

* 8136   FAULT 51 %FINISH is not required

* 8136   FAULT 51 %FINISH is not required

* 8146   FAULT 51 %FINISH is not required

* 8146   FAULT 51 %FINISH is not required

*    Failed to analyse line  8183
      %REPEATUNTILNOT A(COMMA)
                             !

*    Failed to analyse line  8183
      %REPEATUNTILNOT A(COMMA)
                             !

*    Failed to analyse line  8196
      %INTEGER C=CONTROL
                !

*    Failed to analyse line  8196
      %INTEGER C=CONTROL
                !

*    Failed to analyse line  8265
      %IF A(KEYOF) %START
                    !

*    Failed to analyse line  8265
      %IF A(KEYOF) %START
                    !

*    Failed to analyse line  8266
      %IF A(KEYLIST) %START
                      !

*    Failed to analyse line  8266
      %IF A(KEYLIST) %START
                      !

*    Failed to analyse line  8270
      %IF A(KEYFILE) %START
                      !

*    Failed to analyse line  8270
      %IF A(KEYFILE) %START
                      !

* 8273   FAULT 51 %FINISH is not required

* 8273   FAULT 51 %FINISH is not required

* 8276   FAULT 51 %FINISH is not required

* 8276   FAULT 51 %FINISH is not required

* 8282   FAULT 51 %FINISH is not required

* 8282   FAULT 51 %FINISH is not required

CODE GENERATION NOT ATTEMPTED
gcc: imp22g.o: No such file or directory
