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

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

**Used in:** [[george:source:DROBJ864|DROBJ864]], [[george:source:EDOBJ864|EDOBJ864]], [[george:source:FHOBJBL860|FHOBJBL860]], [[george:source:MTOBJ864|MTOBJ864]], [[george:source:PERION867|PERION867]]

<code - AUTFIN.mac.txt>
 57#8 ...[??? AUTFIN SECT FILE FGN 7 DOC 
 57J2    #   
 583L    #     TERMINATES AN OLPA WHICH MAY BE RUNNING IN AUTONOMOUS MODE
 58H=    #   
 592W    #MAC  AUTFIN
 59GG ...      LDX   5  %A                  [LOAD REPLY  
 5=26    #STR  %B
 5=^B          LDX   6  %B                  [GET SPECIFIED LINK PAIR 
 5#XW          LDX   2  FX2  
 5*CG          LDX   1  APETADDR(2)         [GET PCA ADDR
 5*X6          LDX   3  EVENT2(2)           [GET PNTR TO CONTROL AREA
 5BBQ ...      LDX   7  BFSTATE(2)   
 5BWB ...      BPZ   7  MAUTFIN8            [J IF NOT IN AUTONOMOUS MODE 
 5DSW          LDN   4  1
 5F#G ...      ADS 4 ASTOP(1)               [SET STOP WORD NON-ZERO  
 5FS6 ...      STOPIT   1
 5J==          LDCT  0  256  
 5JPW          ERS   0  BFSTATE(2)          [CLEAR PERIPHERAL CHANNEL BUSY MARKER
 5K?P ...MAUTFIN8
 5K*Y ...      ADN   3  1                   [GET PNTR TO REPLY WORD  
 5KD7 ...      FADDRESS 1,3,HLOCK1,2        [GEORGE ADDRESS  
 5KGB ...      STO   5  0(3)                [STORE REPLY 
 5KJK ...      CLEAR    1,0                 [CLEAR LOCKS & MARK ENTRIES EMPTY
 5KLS ...      BPZ   7  MAUTFIN7            [J IF NOT IN AUTONOMOUS MODE 
 5KP6          JNOTFDRM MAUTFIN6 
 5L8Q          TICKLES  2,3  
 5LDJ ...MAUTFIN6
 5LNB ...      SBS  4  ASTOP(1)           [ REMOVE STOP BIT  
 5LY8 ...      LDX  4  AVENT1(2) 
 5M82          BZE   4  MAUTFIN1            [JIF SPOUT EMPTY 
 5MML          STOZ     AVENT1(2)           [CLEAR SPOUT 
 5N7=          BPZ   4  MAUTFIN2            [JIF NOT SUSBY SPOUTED   
 5NLW    MAUTFIN7 LDX 2 APETADDR(2)  
 5P6G          MONEND                       [CLEAR STOP BIT - THIS IS ALL THAT   
 5PL6                                       [IS LEFT OF OLPFIN1 AFTER REMOVING   
 5Q5Q                                       [CLEAR & COOR1Y  
 5Q7F ...MAUTFIN1
 5Q98 ...[   FOLLOWING CODE ADDED FOR BUG 0218 TO ENSURE EXEC TIMESHARER IS  
 5Q=X ...[   ENTERED IF PROGRAM IS REALTIME WITH PRIORITY
 5Q#L ...      FJOPCA   1,2,N
 5QB* ...      JBC      MAUTFIN9,1,JBREPRI   
 5QD4 ...      PROGRING LOCKOFF  
 5QFR ...MAUTFIN9
 5QHG ...[   END OF CODE INSERTED
 5QKB    #STR  %B
 5R52    (   
 5RJL ...      LDX 2 FX2 
 5S4=          STO   6  ALINK1(2)           [SET SPECIFIED LINK  
 5TH6          COOR1X                       [SWITCH OFF - LINK NOT PROCESSED 
 5W2Q    )   
 5WGB    #STR  %B
 5X22    #SKI
 5XFL    (   
 5X^= ...      COOR1Y                    [SWITCH OFF - ACCUMULATORS NOT SAVED
 5YDW          BRN      MAUTFIN3            [J TO DEAL WITH NEXT PERI
 5YYG    )   
 5^D6    MAUTFIN2 STO 4 EVENT1(2)
 5^XQ          LDN   4  AVENT2(2)           [TRANSFER DETAILS OF PERI FROM SPOUT 
 62CB          LDN   5  EVENT2(2)           [TO CURRENT AREA 
 62X2          MOVE  4  G4<1*2+3            [4WD AREA IN G3 - 6WD AREA IN G4 
 63BL    #STR  %B
 63W=          ACROSSVA 6                   [TO DEAL WITH SPOUTED PERI   
 64*W    #STR  %B
 64TG    #SKI
 65*6    (   
 65JY ...MAUTFIN3                    [PROCESS NEXT PERI  
 65SQ          LDX   1  FX1  
 66S2    )   
 67?L    #NOR
</code>