{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: COMPERROR)}}
====== COMPERROR ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_VB|MACROS VB]]

**Used in:** 

<code - COMPERROR.mac.txt>
 6FRJ ...[??? COMPERRO SECT CENT FGN 7 DOC   
 6G3B    #   
 6GH2    #   
 6H2L    #     MACRO TO REPORT ON COMPILATION ERRORS 
 6HG=    #     AND HALT FOR CHECKING IF NECESSARY
 6H^W    #MAC  COMPERROR 
 6JFG    #STR  %A
 6J^6    (   
 6KDQ    #DEF  20?=1?
 6KYB    #STR  %B
 6LD2    #LIS  %B
 6LXL    #STR  %B
 6MC=    #STR
 6MWW    #LIS  0 
 6NBG    #INT
 6NW6    #ORD
 6P*Q    XERR  +33?  
 6PTB    XDISP 16HERRORS SO FAR :
 6Q*2    #SKI  33?   
 6QSL    YNO   8H
 6R#=    #SKI  33?<1$1   
 6RRW          8HNONE
 6S?G    NM    +24:XDISP 
 6SR6    NTRY
 6T=Q    #SKI  33?   
 6TQB    (   
 6W=2          STO   0  19?+2
 6WPL          LDX   5  XERR 
 6X9=          LDN   1  YNO  
 6XNW          CALL  2  18?+2]+9]
 6Y8G          LDX   0  19?+2
 6YN6    )   
 6^7Q    #STR  DISPLAY,%A
 6^MB          SUSTY NM  
 7272    #STR  HALT,%A   
 72LL          DISTY NM  
 736=          EXIT  0  0
 73KW    #JUM  NTRY  
 745G    #EXT
 74K6    #LIS  20?   
 754Q    )   
 75JB    #STR  %A
 7642    #STR
 76HL    (   
 773=    #SKI  33?   
 77GW     COMPERROR HALT 
 782G    #SKI  33?<1$1   
 78G6     COMPERROR DISPLAY  
 78^Q    )   
 79FB    #NOR
</code>