TICKLE

(GIN Macro)

Defined in: LLSMACROS

Used in: CHARGESC867, CIOUT8, CONMXB8, CONMXC8, ENGAGE867, GETNO865, IPCON864, IPCONA864, IPCONC8, IPCOND864, IPCONF865, IPQUAKE83, IPQUAKER865, KARTCONT867, PROFLAG83, TRIPB83, VIPBPERI864

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