SETIDENT [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

**Defined in:** [[george:source:MACS_JIB|MACS JIB]]

**Used in:** [[george:source:ATTACHB866|ATTACHB866]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:CDCIPB864|CDCIPB864]], [[george:source:DETACH867|DETACH867]], [[george:source:IPBCCA867|IPBCCA867]], [[george:source:IPBCCD867|IPBCCD867]], [[george:source:IPBCONS867|IPBCONS867]], [[george:source:ONLINCL864|ONLINCL864]]

<code - SETIDENT.mac.txt>
 #W89 ...[     REINITIALISE IDENT WHICH HAS BEEN USED BY CONCEPTUAL ROUTINES 
 #W8X ...#MAC  SETIDENT  
 #W9K ...#STR  %B
 #W=? ...#SKI
 #W=^ ...(   
 #W?M ...#STR %A 
 #W#* ...(   
 #W*3 ...      LDX   0  A1+IDADIN(%A)
 #W*P ...      LDX   1  A1+IDNUM(%A) 
 #WBC ...)   
 #WC5 ...#STR  %A
 #WCR ...#SKI
 #WDF ...(   
 #WF7 ...      LDX   0  A1+IDADIN(2) 
 #WFT ...      LDX   1  A1+IDNUM(2)  
 #WGH ...)   
 #WH9 ...)   
 #WHX ...#STR  %B
 #WJK ...(   
 #WK? ...      LDX   0  %A   
 #WK^ ...      LDX   1  %B   
 #WLM ...)   
 #WM* ...      LDX   2  FX2  
 #WN3 ...      STO   0  ACOMMUNE8(2) 
 #WNP ...      STO   1  ACOMMUNE9(2) 
 #WPC ...      DOWN     CDCIPB,2 
 #WQ5 ...#NOR
</code>