(GIN Macro)
Defined in: PMACS
Used in: PMOVERLAY
RSQW #MAC PMSIZE [M.C.D. MANN RT9= [ RTML [ RW62 [ ************ RWH9 [ * PMSIZE * RWYD [ ************ RX*M [ RXQW [ RY85 [ RYK# [ THIS MACRO IS CALLED FROM THE MENDIT MACRO(AND PMOVERLAY) AND R^2H [ IS USED TO UPDATE A WORD IN LOADER WHENEVER A PM SEGMENT IS R^CQ [ MENDITED.THIS WORD CONTAINS THE MINIMUM LENGTH OF FIXED CORE R^S^ [ WHICH PM REQUIRES TO RUN IN. S2=8 [ S2MC [ S34L #ALT JPMSIZE1=LPMACT+((LPMSUBSA+LPMSUBSB+LPMSUBSC)>(JREP2*6+2)) S3FT #ALT JPMSIZE1=JPMSIZE1>(LPMFILE+((LPMSUBSA+LPMSUBSB+LPMSUBSC)>(JREP2*6- S3X4 ))) S4#? #ALT JPMSIZE1=JPMSIZE1>(LPMBUFFS+LINPRIN+1024) S4PG #ALT JPMSIZE1=JPMSIZE1>(LPMCHAINS+((LPMSUBSA+LPMSUBSB+LPMSUBSC)>(JREP2- S56P *6))) S5HY #SKI AREDFSPM S5^7 #ALT JPMSIZE1=JPMSIZE1>(LPMFS+LPMFSB+512) S6BB #SKI AREDFSPM<1$1 S6RK #ALT JPMSIZE1=JPMSIZE1>(LPMFS+LPMFSB+512+LPMPRISJ) S78S #SKI JSKI25 S7L3 ( S83= #ALT JPMSIZE1=JPMSIZE1+LPMFIXINT+LPMDR S8DF #ALT JPMSIZE=JPMSIZE1+JPMBSEND S8TN #UNS JPMDA S9=X #ALT JPMSIZE=JPMSIZE+JPMDSIZE S9N6 ) S=5* #SKI JSKI25<1$1 S=GJ #ALT JPMSIZE=JPMSIZE1+BUFPM S=XR #MEN LOADERI S?*2 #TRA JLPMSIZE S?Q9 +JPMSIZE S#7D #END S#JM #NOR