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

**Defined in:** [[george:source:MACROS_RJH|MACROS RJH]]

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:INKS|INKS]], [[george:source:SAVEJOB865|SAVEJOB865]]

<code - 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
</code>