OPENST

(GIN Macro)

Used in: BRADSPLT867, CHINTEG867, CLOSDEL867, CONTRACT866, EXINONE867, EXINTO867, EXINTWO866, EXOPEN867, FINDFS867, FLAWMAP866, SCEX866, SCEXEND867, WRITEFIP867

OPENST.mac.txt

 ??T=    #   
 ?##W    [???                                OPENST  
 ?#SG    #                                   ******  
 ?*#6    #MAC  OPENST
 ?*RQ    #   
 ?B?B    #STR  %A
 ?BR2    (   
 ?C=L          LDX   0  %A   
 ?CQ=          STO   0  ESERL(3) 
 ?D9W    )   
 ?DPG          MFINDSU  1,ESERL(3)   
 ?F96          LDX   0  ABSUN(1) 
 ?FNQ          STO   0  EBSUN(3) 
 ?G8B          LDN   0  128  
 ?GN2          STO   0  ECNT(3)  
 ?H7L          LDX   0  HTYPE(1) 
 ?HM=          STO   0  ETYPE(3) 
 ?J6W          LDX   0  ASUBASE(1)   
 ?JLG          STO   0  EBASE(3) 
 ?K66          LDX   0  HBLOCK(1)
 ?KKQ          STO   0  EDEPF(3) 
 ?L5B          STOZ     EBUF(3)  
 ?LK2          STOZ     ETMARK(3)
 ?M4L    #NOR