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

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

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CIOUT8|CIOUT8]], [[george:source:CONMXB8|CONMXB8]], [[george:source:CONMXC8|CONMXC8]], [[george:source:ENGAGE867|ENGAGE867]], [[george:source:GETNO865|GETNO865]], [[george:source:IPCON864|IPCON864]], [[george:source:IPCONA864|IPCONA864]], [[george:source:IPCONC8|IPCONC8]], [[george:source:IPCOND864|IPCOND864]], [[george:source:IPCONF865|IPCONF865]], [[george:source:IPQUAKE83|IPQUAKE83]], [[george:source:IPQUAKER865|IPQUAKER865]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:PROFLAG83|PROFLAG83]], [[george:source:TRIPB83|TRIPB83]], [[george:source:VIPBPERI864|VIPBPERI864]]

<code - TICKLE.mac.txt>
 3YXJ ...[??? TICKLE SECT CENT FGN 6 DOC 
 3Y^L    #              THIS MACRO TICKLES EITHER A SPECIFIC MEMBER  
 3^F=    #              OR ALL MEMBERS   
 3^YW    #MAC  TICKLE
 42DG          FINDJOBQ 2,%A,(GEOERR)       [X2 -> JOB BLOCK 
 42Y6          STO   2  GEN2 
 43CQ          FPCAJO   2,,N                [X2 -> PCA   
 43XB    #STR  %B
 44C2    (   
 44WL          LDN   0  AFW2-AFW1
 45B=          MPY   0  %B   
 45TW ...      ADN   2  AFW1(1)                   [X2 -> MEL(CORRECTS B2623) 
 46*G    )   
 46T6    #STR  %B
 47#Q    #SKI
 47SB    (   
 48#2          STO   4  GEN4 
 48RL          LDN   4  4                   [TICKLING ALL MEMBERS
 49?=          ADN   2  AFW1                [X2 -> MEL 0 
 49QW    )   
 4==G    MTIC1 LDXC  1  ASU(2)   
 4=Q6          BCS      MTIC2               [J IF NOT ESTABLISHED
 4?9Q          BZE   1  MSETP               [J IF NO SUSPENSIONS SET 
 4?PB          LDCT  1  #40  
 4#92          ANDX  1  ASU(2)   
 4#NL          BNZ   1  MTIC3               [J IF SMP
 4*8=    MSETP LDN   0  #200 
 4*MW          ORS   0  ARM(2)              [SET P MEMORY
 4B7G    MTIC3 LDX   0  HSMPBIT             [MUST BE CLEARED LIKE THIS AS EXEC CA
 4BM6          ANDS  0  ASU(2)   
 4C6Q    MTIC2   
 4CLB    #STR  %B
 4D62    #SKI
 4DKL    (   
 4F5=          ADN   2  AFW2-AFW1           [X2 -> NEXT MEL  
 4FJW          BCT   4  MTIC1               [BACK AGAIN  
 4G4G          LDX   4  GEN4 
 4GJ6    )   
 4H3Q          JBC      MTIC4,GEN2,JBREPRI   
 4HHB          PROGRING LOCKOFF  
 4J32    MTIC4   
 4JGL          LDX   1  FX1  
 4K2=          LDX   2  FX2  
 4KFW    #NOR
</code>