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

**Defined in:** [[george:source:OLPMACROS|OLPMACROS]]

**Used in:** [[george:source:PERION867|PERION867]]

<code - AUTFAIL.mac.txt>
 67HD ...[??? AUTFAIL SECT FILE FGN 7 DOC
 67R=    #   
 68=W    #     TERMINATES AN OLPA AFTER A FAIL HAS OCCURRED WHILST (POSSIBLY)
 68QG    #     RUNNING IN AUTONOUOUS MODE
 69=6    #   
 69PQ    #MAC  AUTFAIL   
 6=9B ...      LDX   5  %A                  [LOAD REPLY  
 6=P2          LDX   2  FX2  
 6?8L          LDX   1  APETADDR(2)         [GET PCA ADDR
 6?N=          LDX   3  EVENT2(2)           [GET PNTR TO CONTROL AREA
 6#7W ...      LDX   7  BFSTATE(2)   
 6#MG ...      BPZ   7  MAUTFAIL8           [J IF NOT IN AUTONOMOUS MODE 
 6B6B          LDN   4  1
 6BL2          ADS   4  ASTOP(1)            [INCREMENT STOP WORD FOR FAIL
 6C5L ...      STOPIT   1
 6HG=          LDCT  0  256  
 6H^W          ERS   0  BFSTATE(2)          [CLEAR CHANNEL BUSY MARKER   
 6JFG          ORS   4  BFSTATE(2)          [SET CHANNEL FAILED MARKER   
 6JHP ...MAUTFAIL8   
 6JKY ...      ADN   3  1                   [GET PNTR TO REPLY WORD  
 6JN7 ...      FADDRESS 1,3,HLOCK1,2        [GEORGE ADDRESS  
 6JQB ...      STO   5  0(3)                [STORE (FAILED) REPLY
 6JSK ...      CLEAR    1,0                 [CLEAR LOCKS & MARK ENTRIES EMPTY
 6JWS ...      BPZ   7  MAUTFAIL7           [J IF NOT IN AUTONOMOUS MODE 
 6J^6          JNOTFDRM MAUTFAIL7
 6KDQ          TICKLES  2,3  
 6KYB    MAUTFAIL7   
 6LD2          LDX   0  AVENT1(2)
 6LXL          BZE   0  MAUTFAIL4           [J IF SPOUT EMPTY
 6MC=          STOZ     AVENT1(2)           [CLEAR SPOUT 
 6MWW          BNG   0  MAUTFAIL3           [J IF SUSBY SPOUTED  
 6NBG          SBS   4  ACOUNT(2)           [DECREMENT PERI COUNT
 6NW6    MAUTFAIL3   
 6P*Q          STEPBAC1 ,1                  [STEP BACK PROGRAMS ONR  
 6PTB    MAUTFAIL5   
 6Q*2          LDX   2  APETADDR(2)  
 6QSL          MONEND                       [CLEAR STOP BIT - THIS IS ALL THAT   
 6R#=                                       [IS LEFT OF OLPFIN1 AFTER REMOVING   
 6RRW                                       [CLEAR & COOR1Y  
 6S?G    MAUTFAIL4   
 6SR6          COOR1Y                       [SWITCH OFF - ACCUMULATORS NOT SAVED 
 6T=Q    #NOR
</code>