SAVEBLOK

(GIN Macro)

Defined in: MACROS RJH

Used in: CHTAB, INKS, SAVEJOB865

SAVEBLOK.mac.txt

 2R6N ...[??? SAVEBLOK SECT CENT FGN 71 DOC  
 2RBG    #     THIS MACRO SAVES A BLOCK IN THE FILE OPEN AT TOP LEVEL(SAVING FILE
 2RW6    #     IF %A=0,BLOCK SPECIFIED BY %B IS SAVED
 2S*Q    #          =1,BLOCK  FOLLOWING THAT SPECIFIED BY %B IS SAVED
 2STB    #     IF %B=1,JOB BLOCK INDICATED   
 2T*2    #          =2,CPAT INDICATED
 2TSL    #MAC  SAVEBLOK  
 2W#=          LDX   0  %C   
 2WRW          SMO   FX2 
 2X?G          STO   0  ACOM1
 2XR6          DOWN     SAVEBLOK,%B%A
 2Y=Q    #NOR