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

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

**Used in:** 

<code - IPCSUBR.mac.txt>
 76HP ...[???  IPCSUBR SECT FILE FGN 1 DOC   
 76HS ...[      THIS MACRO IS CALLED BY IPCREAD/IPCWRITE 
 76HX ...[      TO GENERATE A SUBROUTINE 
 76J2 ...#MAC  IPCSUBR   
 76J5 ...#UNS  MIPCSUBR  
 76J8 ...#EXI
 76J? ...      BRN      MIPCSUBRX
 76JB ...#DEF  MIPCSUBR=0?   
 76JF ...      STO   1  GEN0 
 76JJ ...      HUNTX    1,0(1)   
 76JM ...      BPZ   1  MIPCSUB1 
 76JQ ...      GEOERR   1,NOIPCLNK   
 76JT ...MIPCSUB1
 76JY ...      LDX   1  IPCRNG(1)
 76K3 ...      LDX   0  ASTATUS1(1)  
 76K6 ...      ANDN  0  1
 76K9 ...      BZE   0  MIPCSUB2 
 76K# ...      LDN   0  #21  
 76KC ...      SRC   0  5
 76KG ...      LDX   1  FPTR(1)  
 76KK ...      STO   0  IPCGREP-IPCRNG(1)
 76KN ...      BRN      MIPCSUB  
 76KR ...MIPCSUB2
 76KW ...      SMO      GEN0 
 76K^ ...      OBEY     2
 76L4 ...      STO   0  ASTR(1)  
 76L7 ...      SMO      GEN0 
 76L= ...      OBEY     3
 76L* ...      STO   0  ALENTR(1)
 76LD ...      SMO      GEN0 
 76LH ...      OBEY     4
 76LL ...      STO   0  ATIMCT(1)
 76LP ...      SMO      GEN0 
 76LS ...      OBEY     1
 76LX ...      STO   0  ASTMEL(1)
 76M2 ...      LDN   0  1
 76M5 ...      ORS   0  ASTATUS1(1)  
 76M8 ...      LDX   0  ASTATUS2(1)  
 76M? ...      SLL   0  2
 76MB ...      BPZ   0  MIPCSUB3 
 76MF ...      LDN   2  0
 76MJ ...      JDISENG  APTRIPB(1),MIPCSUB4  
 76MM ...      LDN   2  #10  
 76MQ ...MIPCSUB4
 76MT ...      LDCT  0  #24(2)   
 76MY ...      LDX   1  FPTR(1)  
 76N3 ...      STO   0  IPCGREP-IPCRNG(1)
 76N6 ...      LDX   1  FPTR(1)  
 76N9 ...      NGN   0  2
 76N# ...      ANDS  0  ASTATUS1(1)  
 76NC ...      LDCT  0  #140 
 76NG ...      ERS   0  ASTATUS2(1)  
 76NK ...      BRN      MIPCSUB  
 76NN ...MIPCSUB3
 76NR ...      SLL   0  1
 76NW ...      BPZ   0  MIPCSUB5 
 76N^ ...      LDX   0  GEN0 
 76P4 ...      EXIT  0  5
 76P7 ...MIPCSUB5
 76P= ...      LDCT  0  #400 
 76P* ...      SMO      FPTR(1)  
 76PD ...      STO   0  IPCGREP-IPCRNG   
 76PH ...      LDCT  0  #200 
 76PL ...      ANDX  0  ASTATUS2(1)  
 76PP ...      BNZ   0  MIPCSUB  
 76PS ...      LDX   3  GEN0 
 76PX ...      SBX   3  FX1  
 76Q2 ...      SETNCORE 2,2,IPCD,ATASK   
 76Q5 ...      ADX   3  FX1  
 76Q8 ...      STO   3  GEN0 
 76Q? ...      MHUNTX   1,0(3)   
 76QB ...      LDX   1  IPCRNG(1)
 76QF ...      LDX   0  ASTATUS1(1)  
 76QJ ...      ANDN  0  1
 76QM ...      BNZ   0  MIPCSUBX 
 76QQ ...      FREECORE 2
 76QT ...      BRN      MIPCSUB  
 76QY ...MIPCSUBX
 76R3 ...      LDX   0  ALINUM(1)
 76R6 ...      LDX   4  APTRIPB(1)   
 76R9 ...      STO   0  A1(2)
 76R# ...      LDN   0  6
 76RC ...      STO   0  A1+1(2)  
 76RG ...      LDX   3  2
 76RK ...      QTASK    3,,4 
 76RN ...MIPCSUB 
 76RR ...      LDX   1  FX1  
 76RW ...      LDX   2  FX2  
 76R^ ...      LDX   0  GEN0 
 76S4 ...      EXIT  0  7
 76S7 ...MIPCSUBRX   
 76S= ...#NOR
</code>