SCANINIT

(GIN Macro)

Defined in: MACROS JSRG4

Used in: QUOTA850

SCANINIT.mac.txt

 DGT2    #MAC  SCANINIT  
 DH#L          LDCT  1  #600                [EXTRACT LENGTH OF SEG TABLE 
 DHS=          ANDX  1  %B   
 DJ?W          LDCH  1  BTABLENS(1)  
 DJRG          ADN   1  1
 DK?6          SLL   1  6                   [RANGE OF PAGE NOS COVERED BY SEG TAB
 DKQQ          SBX   1  %C   
 DL=B          BNG   1  %A                  [JUMP IF AREA COMPLETELY OUT OF RANGE
 DLQ2          SBX   1  %D   
 DM9L          BPZ   1  MSCANINIT
 DMP=          ADS   1  %D      [REDUCE LENGTH OF AREA SO IT LIES IN RANGE OF ST 
 DN8W    MSCANINIT   
 DNNG    #NOR