{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CHECKPTE)}}
====== CHECKPTE ======
(GIN Macro)
**Defined in:** [[george:source:MACROS_JSRG4|MACROS JSRG4]]
**Used in:**
GX2G #MAC CHECKPTE [JSRAYNER G4 ONLY
GXG6 LDCT 1 #600
GX^Q MOD ANDX 1 ASEGTAB,%D
GYFB LDCH 0 BLENCH(1)
GY^2 LDX 1 %B
G^DL SRL 1 6
G^Y= ANDX 0 1
H2CW BNZ 0 MCHECKPTE3 [J IF SEG TABLE TOO SHORT
H2XG MOD ADX 1 ASEGTAB,%D [ADDR OF SEG TABLE ENTRY
H3C6 LDCT 0 #600
H3WQ ANDX 0 0(1)
H4BB BNZ 0 MCHECKPTE1 [J UNLESS REPLACEMENT
H4W2 LDX 1 0(1)
H5*L MCHECKPTE1
H5T= LDX 0 0(1)
H6#W SRC 0 1
H6SG BNG 0 MCHECKPTE3 [J IF NULL SEG TABLE ENTRY
H7#6 SLC 0 1
H7RQ LDCT 1 #600
H8?B ANDX 1 0
H8R2 LDCH 1 BLENCH(1)
H9=L ANDX 1 %B
H9Q= BNZ 1 MCHECKPTE3
H=9W LDX 1 %B
H=PG ANDN 1 #77
H?96 ADX 1 0 [ADDR OF PAGE TABLE ENTRY
H?NQ LDX 0 0(1)
H#8B BNG 0 MCHECKPTE2 [J UNLESS REPLACEMENT
H#N2 SMO 0
H*7L LDX 0 0
H*M= ERN 0 #100 [IF THER IS A REPLACEMENT ADDRESS WE
HB6W BRN MCHECKPTE6 [CHECK WHETHER IT IS SHARED
HBLG MCHECKPTE2
HC66 ORN 0 #100 [IF THERE IS NO REPLACEMENT THE PAGE
HCKQ MCHECKPTE6 [CANNOT BE SHARED
HD5B ANDX 0 %E [CHECK PERMISSION & WHETHER PAGE
HDK2 ERX 0 %E [EXISTS
HF4L ANDN 0 #1700
HFJ= BNZ 0 MCHECKPTE3 [J IF PERM VIOLATION
HG3W STO 1 %A
HGHG ANDX 1 B0T1
HH36 LDCH 1 BTABLENS(1)
HHGQ LDCT 0 #100
HJ2B SMO %A
HJG2 ANDX 0 1(1)
HJ^L BNZ 0 MCHECKPTE3 [J IF PAGE NOT ACCESSED
HKF= BRN MCHECKPTE5 [FINISHED
HKYW MCHECKPTE3
HLDG LDX 0 %B
HLY6 SLL 0 10 [PICK UP PARAMS & STORE THEM IN
HMCQ ORX 0 %E [ACOMMUNE WORDS
HMXB LDX 1 %D
HNC2 LDX 2 FX2
HNWL STO 0 ACOMMUNE1(2)
HPB= STO 1 ACOMMUNE2(2)
HPTW DOWN SETUPPTS,2 [ENTER SETUPPTS
HQ*G BRN MCHECKPTE4
HQT6 LDX 0 ACOMMUNE1(2)
HR#Q STO 0 %A [SET REPLY & REPORT RES VIOL
HRSB BRN %C
HS#2 MCHECKPTE4
HSRL LDX 0 ACOMMUNE1(2)
HT?= STO 0 %A
HTQW BRN %F
HW=G MCHECKPTE5
HWQ6 #NOR