FSHCOPY [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: FSHCOPY)}}
====== FSHCOPY ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_SHFSB|MACROS SHFSB]]

**Used in:** 

<code - FSHCOPY.mac.txt>
 =HD2 ...[???  FSHCOPY SECT FILE FGN 1 DOC   
 =HXL ...#MAC  FSHCOPY   
 =JC= ...#UNS  M1%C%DFSHCOPY 
 =JWW ...#SKI
 =KBG ...(   
 =KW6 ...      BRN      M3FSHCOPY
 =L*Q ...#DEF  M1%C%DFSHCOPY=0?  
 =LTB ...M1FSHCOPY   
 =M*2 ...      SBX   %C FX1  
 =MSL ...      LDX   %D ALOGLEN(1)   
 =N#= ...      GETCORE  %D,1 
 =NRW ...      FINDCORE 2
 =P?G ...      ADX   %C FX1  
 =PR6 ...      EXIT  %C 0
 =Q=Q ...#DEF  M2%C%DFSHCOPY=0?  
 =QQB ...M2FSHCOPY   
 =R=2 ...      LDN   0  A1(1)
 =RPL ...      LDN   1  A1(2)
 =S9= ...      SMO      ALOGLEN(2)   
 =SNW ...      MOVE  0  0
 =T8G ...      EXIT  %C 0
 =TN6 ...)   
 =W7Q ...M3FSHCOPY   
 =WMB ...      MHUNT    1,%A,%B  
 =X72 ...      CALL  %C M1%C%DFSHCOPY
 =XLL ...      MHUNT    1,%A,%B  
 =Y6= ...      LDX   0  ATYPE(1) 
 =YKW ...      STO   0  ATYPE(2) 
 =^5G ...      CALL  %C M2%C%DFSHCOPY
 =^K6 ...      LDX   1  FX1  
 ?24Q ...#NOR
</code>