{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: IPCSTATE)}}
====== IPCSTATE ======
(GIN Macro)
**Defined in:** [[george:source:MACROSIPC|MACROSIPC]]
**Used in:** [[george:source:RELIEF866|RELIEF866]]
8#BJ ...[??? IPCSTATE SECT COMM FGN 19 DOC
8#LB #MAC IPCSTATE
8*62 HUNT %B,IPCD,IPCGL%A
8*KL BPZ %B MIPCSTATE1
8B5= GEOERR 1,NOIPCLNK
8BJW MIPCSTATE1 SMO FX2
8C4G STOZ ACOMMUNE1
8CJ6 LDX %B IPCRNG(%B)
8D3Q SMO FX2
8DHB STO %B ACOMMUNE2
8F32 LDX %B APTRIPB(%B)
8FGL JDISENG CPPTR(%B),MIPCSTATE2
8G2= LDCT 0 #10
8GFW SMO FX2
8G^G ORS 0 ACOMMUNE1
8HF6 MIPCSTATE2 JIPCMN DS,MIPCSTATE3,%B
8HYQ LDCT 0 #100
8JDB SMO FX2
8JY2 ORS 0 ACOMMUNE1
8KCL JIPCMN GB,MIPCSTATE4,%B
8KX= LDCT 0 #40
8LBW SMO FX2
8LWG ORS 0 ACOMMUNE1
8MB6 MIPCSTATE4 JIPCMN CD,MIPCSTATE5,%B
8MTQ LDCT 0 #20
8N*B SMO FX2
8NT2 ORS 0 ACOMMUNE1
8P#L MIPCSTATE5 JIPCMN ER,MIPCSTATE3,%B
8PS= LDCT 0 4
8Q?W SMO FX2
8QRG ORS 0 ACOMMUNE1
8R?6 MIPCSTATE3 SMO FX2
8RQQ LDX %B ACOMMUNE2
8S=B LDX 0 ASTATUS2(%B)
8SQ2 SLL 0 1
8T9L BNG 0 MIPCSTATE
8TP= ANDN 0 2
8W8W SLL 0 15
8WNG ORX 0 GSIGN
8X86 SMO FX2
8XMQ ORS 0 ACOMMUNE1
8Y7B LDX 0 ASTATUS1(%B)
8YM2 ANDN 0 1
8^6L SRC 0 1
8^L= SMO FX2
925W ORS 0 ACOMMUNE1
92KG MIPCSTATE SMO FX2
9356 LDX %B ACOMMUNE1
93JQ #NOR