MFERROR

(GIN Macro)
Used in:
MFERROR.mac.txt
 8**S ...[??? MFERROR SECT CENT FGN 56 DOC   
 8*KL    #   
 8B5=    #   
 8BJW    #     HERE FOLLOWS MFERROR                                 **** MFERROR 
 8C4G    #     IT IS USED BY ALTMESS ETC. WHEN AN ERROR IS   
 8CJ6    #     DETECTED. IT CLEANS UP,SETS THE ERROR IDENTIFIER, 
 8D3Q    #     AND OUTPUTS A MEANINGFUL MESSAGE. IT THEN SKIPS   
 8DHB    #     THE REMAINING EXPENSION OF THE CALLING MACRO. 
 8F32    #     IT HAS ONE PARAMETER - THE ERROR NUMBER.  
 8FGL    #   
 8G2=    #MAC  MFERROR   
 8GFW    #SKI  %A-1<1$1  
 8G^G    ! WRONG LENGTH TEXT !   
 8HF6    #SKI  %A-2<1$1  
 8HYQ    ! MESSAGE TOO LONG !
 8JDB    #SKI  %A-3<1$1  
 8JLL    (   
 8JSW    ! TEXT OMITTED AFTER PRESENT IN !   
 8K36    ! PREVIOUS PART !   
 8K9B    )   
 8KCL    #SKI  %A-4<1$1  
 8KKW    (   
 8KS6    ! ATTEMPT TO CHANGED PACKED BIT !   
 8L2B    ! WITH NO NEW TEXT !
 8L8L    )   
 8LBW    #SKI  %A-5<1$1  
 8LWG    ! UNKNOWN CATEGORIES REQUESTED !
 8MB6    #SKI  %A-6<1$1  
 8MKY    (   
 8MTQ    ! SYSREQ NOT ALLOWED IN MULTI-PART !
 8N5J    ! MESSAGE ! 
 8N9F    )   
 8N*B    #SKI  ALTMESS&#40000000<1$1        [SKIP IF NO PARTS YET COMPILED   
 8NT2    (   
 8P#L    #DEF  0?=ALTMESS+1  
 8PS=    #DEF  20?=34?+0?]&#67777777        [LOSE CONT. BIT  
 8Q?W          +20?  
 8QRG    )   
 8R?6    #END
 8RQQ    #ALT  ALTMESS=-2                   [SET ERROR FLAG  
 8S=B    #SKI
 8SQ2    #NOR