{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CURTAIL)}}
====== CURTAIL ======
(GIN Macro)

**Defined in:** [[george:source:ACCESSMACROS|ACCESSMACROS]]

**Used in:** [[george:source:EDWRITE867|EDWRITE867]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:NEWINST867|NEWINST867]], [[george:source:SCEDITAR84|SCEDITAR84]], [[george:source:SCEDITOR84|SCEDITOR84]]

<code - CURTAIL.mac.txt>
 =6^J ...[??? CURTAIL SECT FILE FGN 19 DOC   
 =79B    #     THIS RESETS THE APPEND POINTERS OF A FILE TO ITS READ POINTERS,   
 =7P2    #     UNLESS POSITIONED AT OR JUST BEFORE E.O.F. IN WHICH CASE THE APPEN
 =88L    #     POINTERS ARE UNALTERED. NB - THIS MACRO HAS A LARGE EXPANSION.
 =8N=    #MAC  CURTAIL   
 =97W          SFSTACK  %A,1,2   
 =9MG          BFCBX    2,2  
 ==76          STO   1  GEN5 
 ==LQ          LDX   0  FBLMOD(2)
 =?6B          STO   0  GEN6 
 =?L2          LDX   0  FREADBLOCK(1)
 =#5L          LDX   1  FREADWORD(1) 
 =#K=          BNG   0  M1CURTAIL
 =*4W          SBN   0  A1   
 =*JG          BXE   0  FBLMOD(2),M3CURTAIL  
 =B46          BNG   1  M2CURTAIL
 =BHQ          ADN   0  1
 =C3B          BRN      M2CURTAIL
 =CH2    M1CURTAIL   
 =D2L          LDN   0  FBLKS-A1 
 =DG=    M2CURTAIL   
 =D^W          STO   0  FBLMOD(2)
 =FFG          STO   1  CMOD(2)  
 =F^6          MBS      2,BFALTB,BFALTR     [SET 'FILE AND BLOCK NOS. ALTERED'   
 =GDQ                                       [BITS,AS IN GENERAL BLOCKS WILL BE   
 =GYB                                       [LOST FROM THE FILE. 
 =G^J ...      LDN   0  4
 =H2Q ...      ANDX  0  FCOMM(2) 
 =H3Y ...      BZE   0  M4CURTAIL
 =H56 ...      LDX   1  FPTR(2)  
 =H6# ...M5CURTAIL   
 =H7G ...      LDX   1  FPTR(1)  
 =H8N ...      LDX   0  ATYPE(1) 
 =H9W ...      BXE   0  FILEPLUSFCB,M4CURTAIL
 =H?4 ...      BXU   0  FFSFMAPP,M5CURTAIL   
 =H#= ...      LDN   0  3
 =H*D ...      STO   0  FBCOMM(1)
 =HBL ...M4CURTAIL   
 =HD2          LDX   0  GEN6 
 =HXL          SBX   0  FBLMOD(2)
 =JC=          BZE   0  M3CURTAIL
 =JWW          LDX   2  GEN5 
 =KBG          SUBCUBS  2,0,JOB  
 =KW6    M3CURTAIL   
 =L*Q          LDX   1  FX1  
 =LTB          LDX   2  FX2  
 =M*2    #NOR
</code>