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

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

**Used in:** [[george:source:LEXIFIND5|LEXIFIND5]], [[george:source:USELEX5|USELEX5]]

<code - STEPFBLOCK.mac.txt>
 *KSD ...[??? STEPFBLO SECT FILE FGN 19 DOC  
 *L4=    #     THIS MACRO IS TO UPDATE THE BLOCK POINTER FOR THE FILE OPEN AT
 *LHW    #     DEPTH %A (ZERO IF ABSENT).IF THIS IS NEGAT VE,SETS POINTING TO 2ND
 *M3G    #     BLOCK 
 *MH6    #     %BCOPTIONAL>IS A LABEL TO JUMP TO ON READING  FF END OF BL CLIST. 
 *N2Q    #MAC  STEPFBLOCK
 *NGB    #STR  %A
 *P22          SFSTACK  %A,1 
 *PFL    #STR  %A
 *P^=    #SKI
 *QDW          TOPFCA   1
 *QYG          LDX   0  FREADBLOCK(1)
 *RD6          BPZ   0  M1STEPFBLOC  
 *RXQ          LDN   0  FBLKS
 *SCB    M1STEPFBLOC 
 *SX2          ADN   0  1
 *TBL          STO   0  FREADBLOCK(1)
 *TW=    #STR  %B
 *W*W    (   
 *WTG          PSTAC  1,1
 *X*6          BFCBX 1,1 
 *XSQ          SBX   0  FBLMOD(1)
 *Y#B          SBN   0  A1   
 *YS2          BZE   0  %B   
 *^?L          BNG   0  M2STEPFBLOC  
 *^R=          GEOERR  1,ENDFILE 
 B2=W    M2STEPFBLOC 
 B2QG    )   
 B3=6          LDX   1  FX1  
 B3PQ    #NOR
</code>