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

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

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

<code - GETPERNEXT.mac.txt>
 3XT7 ...[??? GETPERNE SECT COMM FGN 19 DOC  
 3Y7J ...[ GET THE NEXT DEVICE WITH SUITABLE PROPERTIES  
 3YG2    #MAC  GETPERNEXT
 3Y^L          LDX   0  %A   
 3^F=          SRL   0  18   
 3^YW          STO   0  %A   
 42DG          FINDPEREC   %C,APFOTY,%A,MGNEXT1  
 42Y6          BNG   %C MGNEXTY  
 43CQ          SMO      FX2  
 43XB          STO   %C CPPTR
 44C2          LGEOG    %C,0 
 44WL          SMO      FX2  
 45B=          STO   0  JSOURCE1 
 45TW          LDX   0  %A   
 46*G          SLL   0  18   
 46T6          STO   0  %A   
 47#Q          SMO      FX2  
 47SB          ORS   0  JSOURCE1 
 48#2          SETPROP  MGNEXTBRK,MGNEXTAG,KEEP   [CHECK PROPERTIES  
 48RL          TESTREP  OK,MGNEXT2   
 49?=    MGNEXTAG                           [PROPERTIES NO GOOD  
 49QW          LDX   0  %A   
 4==G          SRL   0  18   
 4=Q6          STO   0  %A   
 4?9Q          SMO      FX2  
 4?PB          LDX   %C CPPTR
 4#92          BRN      MGNEXT1             [FIND NEXT DEVICE
 4#NL    MGNEXTBRK                          [SETPROP BROKEN IN ON
 4*8=          SMO      FX2  
 4*MW          LDX   %C CPPTR
 4B7G          BRN      %B   
 4BM6    %D                                 [RE-ENTRY POINT  
 4C6Q          LDX   0  %A   
 4CLB          SRL   0  18   
 4D62          STO   0  %A   
 4DKL          BRN      MGNEXT1  
 4F5=    MGNEXT2 
 4FJW          JDISENG  CPPTR(2),MGNEXT3 
 4G4G          DSCA     ,LDX,2,CHADD 
 4GJ6          SBN   2  CHAINADD 
 4H3Q          JIPCM    DS,MGNEXT3,2 
 4HHB          LDX   2  FX2  
 4J32          BRN      MGNEXTX  
 4JGL    MGNEXT3 
 4K2=          LDX   2  FX2  
 4KFW          LDN   0  1
 4K^G          ORS   0  HBRIN(2) 
 4LF6          LDX   0  %A   
 4LYQ          SRL   0  18   
 4MDB          STO   0  %A   
 4MY2          BRN      MGNEXT1  
 4NCL    MGNEXTX 
 4NX=          LDX   %C CPPTR(2)            [GIVE POINTER TO NEXT DEVICE 
 4PBW    MGNEXTY 
 4PWG    #NOR
</code>