CHECKPTE
(GIN Macro)
Defined in: MACROS JSRG4
Used in:
- CHECKPTE.mac.txt
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