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

**Defined in:** [[george:source:MACROS_JSRG4|MACROS JSRG4]]

**Used in:** [[george:source:QUOTA850|QUOTA850]]

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