(GIN Macro)
Defined in: MACROSIPC
Used in: IPCPASS8
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