SETIDENT

(GIN Macro)

Defined in: MACS JIB

Used in: ATTACHB866, ATTACHC867, CDCIPB864, DETACH867, IPBCCA867, IPBCCD867, IPBCONS867, ONLINCL864

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