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

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

**Used in:** 

<code - FDPTE.mac.txt>
 J3LB    #MAC  FDPTE    [JSRAYNER           G4 ONLY  
 J462          LDX   0  %B   
 J4KL          SRL   0  6
 J55=     MOD  ADX   0  ASEGTAB,%C   
 J5JW    #STR  %D
 J64G    (   
 J6J6          LDCT  1  #600                [CHECK THAT SEG TABLE LONG ENOUGH
 J73Q          ANDX  1  0
 J7HB          LDCH  1  BLENCH(1)
 J832          SLL   1  6
 J8GL          ANDX  1  %B   
 J92=          BNZ   1  %D                  [J IF NOT
 J9FW    )   
 J9^G    MFDPTE  
 J=F6          SMO      0
 J=YQ          LDX   0  0
 J?DB          LDCT  1  #600 
 J?Y2          ANDX  1  0
 J#CL          BZE   1  MFDPTE              [J IF REPLACEMENT
 J#X=    #STR  %D
 J*BW    (   
 J*WG          SRC   0  1
 JBB6          BNG   0  %D                  [NULL SEG TABLE ENTRY
 JBTQ          SLC   0  1
 JC*B          LDCH  1  BLENCH(1)           [CHECK THAT PAGE TABLE IS LONG ENOUGH
 JCT2          ANDX  1  %B   
 JD#L          BNZ   1  %D   
 JDS=    )   
 JF?W          LDX   1  %B   
 JFRG          ANDN  1  #77  
 JG?6          ADX   0  1                   [ADDR OF PTE 
 JGQQ          STO   0  %A   
 JH=B    #NOR
</code>