(GIN Macro)
Defined in: ACCESSMACROS
Used in: EDWRITE867, FHOBJIND860, NEWINST867, SCEDITAR84, SCEDITOR84
=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