(George Source)
Macros used: EXTRACOR
22FL # 22^= # 23DW ...# OWEN N JOHN (:CENT) 23YG # (COMPS SEGMENT FOR GEORGE FOUR) 24D6 # 24XQ #DEF G4MK6=G4 25CB #OPT AUTPAM=1 [ ACCESS MACROS. 25X2 #OPT ALWMK7=0 263= ...# 267G ...[ THE FOLLOWIG CURES SOME COMPILATION ERRORS 26?Q ...[ 26D2 ...#OPT BPG = G4 [INCLUDES IMPROVED PAGETURNING 26J= ...#OPT K0PLUGIN = 0 26NG ...#OPT K6LLSTEST = 0 [NO JPT LLS TESTER 26SQ ...[ 26^2 ...[ 275= ... 279G ...[ 27*W # 27TG # 28*6 #SKI G4 28SQ ( 29#B # 29S2 #OPT CNEWRING=1 2=?L #SKIP BPG<1$1 2=R= ( 2?=W #INC SWAPIN70 2?QG #INC STARTSCI70 2#=6 #INC COREALLB70 2#PQ #INC SWAPOUT60 2*9B #INC PAGETURN60 2*P2 #INC SETUPPTS60 2B8L #INCLUDE PAGTABLE70 2BN= #INC PROGDEL460 2C7W ) 2CMG #SKIP BPG 2D76 ( 2DLQ #INCLUDE PAGTABLE70 2F6B #INCLUDE COREALLB70 2FL2 #INCLUDE SWAPIN80 2G5L #INCLUDE SWAPOUT80 2GK= #INCLUDE PAGETURN80 2H4W #INCLUDE SETUPPTS60 2HJG #INCLUDE STARTSCI80 2J46 #INCLUDE PROGDEL460 2JHQ ) 2K3B #INC LOADPP60 2KH2 #INC GIVEPQ 2L2L #INC GETWORDX60 2LG= #OPTIONAL BADCODE=1 2L^W #OPT G4LIST=0 2MFG ...#SKI G4 [CORRECTION FOR B1093 - COMPILATION ERROR 2M^6 ( 2NDQ #OPT K0COREALLB=3 2NYB #OPT K0GETWORDX=3 2PD2 #OPT K0GIVEPQ=3 2PXL #OPT K0PAGETURN=3 2QC= #OPT K0PAGTABLE=3 2QWW #OPT K0PROGDEL=3 2RBG #OPT K0HIVE=3 2RW6 #OPT K0LOADPP=3 2S*Q #OPT K0SWAPIN=3 2STB #OPT K0SWAPOUT=3 2T*2 #OPT K0STARTSCI=3 2TSL #OPT K0SETUPPTS=3 2W#= ) 2WRW #DEF BGELL=0 2X?G # 2XR6 # K18 TO K24,AND J1 NOW IN COMPS JH 2Y=Q # (ROGER TERRY) 2YQB # 2^=2 #OPT CP46=1 2^PL # UNIVERSALS TO DO WITH CORE ALLOCATION FOR PROGRAMS IN G4 329= #DEF AOVERBOOK=100 32NW ) 338G # 33N6 # THESE UNIVERSALS ARE USED BY MKPROG MACRO : SEE MACROS 347Q # THEY MUST BE DEFINED IN BOTH G3 & G4 34MB # 3572 #DEF IZUNSWAP=1 35LL #DEF IZSWAP=2 366= #DEF IZSTABLE=4 36KW #DEF IZUNSTABLE=8 375G # UNIVERSALS USED IN CONJUNCTION WITH CHECKB & GETWORDX MACRO 37K6 #DEF GOBEY=4 384Q #DEF GREAD=2 38JB #DEF GWRITE=1 3942 #DEF CHOBEYP=#1000 39HL #DEF CHREADP=#400 3=3= #DEF CHWRITEP=#200 3=GW #DEF CHNSHARED=#100 3?2G #DEF CHUSED=#40 3?G6 #DEF GNOMESS=#10 3?^Q #DEF CHOBEY=CHOBEYP+GOBEY 3#FB #DEF CHREAD=CHREADP+GREAD 3#^2 #DEF CHWRITE=CHWRITEP+GWRITE 3*DL # THESE UNIVERSALS REFER TO THE AUXILARY MESSAGES ASSOC WITH 3*Y= # RESERVATIONS IN G4.MESSAGES PRINTED BY CHERRMESS MACRO 3BCW #SKI G4 3BXG ( 3CC6 #DEF GXPERM=1 [PERM VIOL 3CWQ #DEF GXRES=2 [RES VIOL 3DBB #DEF GXSIZE=3 [SIZE EXCEEDED 3DW2 #DEF GXBRANCH=4 [BRANCH INTO NEW PAGE 3F*L #DEF GXQUOTA=5 [MAX OR FIXED QUOTA EXCEEDED 3FT= #DEF GXUNUSED=6 [UNUSED PAGE 3G#W # 3GSG # HLOCKDOWN BLOCK 3H#6 # 3HRQ #DEF HLOCKBN=A1 3J?B #DEF HLOCKB1=HLOCKBN+1 3JR2 #DEF HLOCKB2=HLOCKB1+HLOCKLEN 3K=L #DEF HLOCKB3=HLOCKB2+HLOCKLEN 3KQ= #DEF HLOCKB4=HLOCKB3+HLOCKLEN [ ENOUGH? 3L9W ) 3LPG #OPT JSR45=G3MARK>4-4 [IDENT FOR G4MK5 MACROS-SET IN G3 3M96 # 3MNQ #SKI G3 3N8B ( 3NN2 #OPT K0PAGTABLE=0 3P7L #OPT K0PAGETURN=0 3PM= #OPT K0PROGDEL=0 3Q6W ) 3QLG # 3R66 # 3RKQ #OPT F6STATS=0 3S5B #SKI G4 3SK2 ( 3T4L # FORMAT OF SCB 3TJ= #OPT AASIZE=A1 3W3W #OPT ARANGE=AASIZE+1 3WHG #OPT ITSMAXQUOTA=ARANGE 3X36 #OPT AMAXSIZE=ARANGE+1 3XGQ #OPT AWKBLK=AMAXSIZE+1 3Y2B #OPT IUNSHARED=AWKBLK 3YG2 #OPT AQUOTA=AWKBLK+1 3Y^L #OPT AFPL=AQUOTA+1 3^F= #OPT AFPLB=AFPL+1 3^YW #OPT AFPCT=AFPLB+1 42DG #OPT ATIMIN=AFPCT+1 42Y6 #OPT APAGIN=ATIMIN+1 43CQ #OPT ASWAPS=APAGIN+1 43XB #OPT ARSWAPS=ASWAPS+1 44C2 #OPT ATSWAPS=ARSWAPS+1 44WL #SKIP BPG 45B= ( 45TW #OPT HCONST=ATSWAPS+1 46*G #OPT HSCANS=HCONST+1 46T6 ) 47#Q #SKIP BPG<1$1 47SB ( 48#2 #OPT HSPN=ATSWAPS+1 48RL #OPT HSCANS=HSPN+1 [ VALUE OF CSCANS AT START OF SCI 49?= ) 49QW #OPT HPERM=HSCANS+1 [PERMISSION AREA-3BITS PER SEG 4==G #OPT HSUD=HPERM+8 [HSUD=SUD NO 4=Q6 #SKI BPG 4?9Q ( 4?PB # PVAT FORMAT 4#92 #DEFINE AVTENTS=A1 4#NL #DEFINE AVTCHOSEN=AVTENTS+1 4*8= #DEFINE AVTPROG=AVTCHOSEN+1 4*MW ) 4B7G # 4BM6 # FORMAT OF A SUD - AN ENTRY IN THE PURE PROCEDURES CHAIN 4C6Q # 4CLB #DEF HSUDNO=A1 [SUD NUMBER 4D62 #DEF HUSERS=A1+1 [NO OF USERS.B0-BEING LOADED,B1-JOBS WAITING 4DKL #DEF HSEGTAB=A1+2 [ADDR OF SEG TABLE IF PP LOADED 4F5= #DEF HSIZE=A1+3 [B0-11 UNSHAREABLE PAGES B12-23 SHAREABLE PAGES 4FJW #DEF HODBITS=HSIZE+1 [ODD BITS WORD 4G4G #DEF HSUDNAME=HODBITS+1 [NAME OF FILE FROM WHICH PP WAS LOADE 4GJ6 #DEF HRQS=HSUDNAME+9 [REQ.SLIP(16 WDS),SUPP.RQS(8WDS),PERM 4H3Q # BITS IN HODBITS 4HHB #DEF HDELTY=0 [IF PP SETS ITS ACCS. BIT IS SET 4J32 #DEF HRTBIT=1 4JGL # 4K2= # WAITING STYLES 4KFW #DEF FORSWAP=#112 [WAIT FOR SWAP TO FINISH 4K^G #DEF HLOADPPWT=#117 [WAIT FOR PURE PROCEDURE TO BE LOADED# 4LF6 #DEF HSWAPSPWT=#120 [WAIT TO BOOK SWAP SPACE-SWITCH 16 MSED 4MDB # 4MN8 ...#DEF G4PTABS=1 [NO OF PAGES FOR PAGE TABLES 4MY2 ...#UNSET G4VOPA 4N7S ...#DEF APAGSP = 2 [LOCATION OF TABLE PAGE GIVING FREE 4NCL ) 4NX= # PUBLIC DEFINITIONS-HANDLE WITH CARE 4PBW # 4PWG #OPT F6DEVELOP=1 4QB6 #OPT ANOUNBUSY=1 4QTQ #OPT ARCTP=1 4R*B #OPT CP44=1 4RT2 #DEF CP65=G3MARK>5-5<1 4S#L #DEF CP51=G3MARK>5-5<1 4SS= # 4T?W #OPT AMPERCENT=50 4TRG #OPT AMAXTRANS=12 4W?6 #OPT ASTRIKE=1 4WQQ #OPT CALLS=0 4X=B #SKI CALLS 4XQ2 #OPT JPCDECAY=#20000000 4Y9L #OPT JSORTCRIT=#04000000 4YP= #OPT AVNOINSCHCH=350 4^8W #OPT CLOCK=CAMK7<1 5286 ...#OPT BALROG=0 52MQ ...#SKI ELLS 537B ...#OPT K0LLS = 0 [REMOVE OLD LLS STUFF 59GG #OPT APETLOCK=1 [PCA ONLY LOCKED WHEN PROG S/I 5=26 #OPT BSTRANMK3=1 [BSTS 5=FQ # 5=^B #INC PRINT70 5?F2 #INC CORE36 5?YL #SKI CAMK7<2-2*G3 5#D= #INC EXTRACOR 5#XW #INC GIVE36 5*CG #INC PROCONTX50 5*X6 #INC CAPCA50 5BWB #OPT ARETLO=0 5CB2 #OPT IGAM=1 5CTL #OPT EDSAVE=0 5D*= #INC SAVE70 5DSW #INC SAVEDA70 5F#G #OPT K6SAVEDA=K6ALLGEO 5FS6 #OPT K0SAVEDA=0 5G?Q #OPT K6GETWORD=100 5GRB #INC QUOTA60 5H?2 #OPT K0QUOTA=0 5HQL #OPT K6QUOTA=100 5JPW #OPT IPT=0 5K9G #SKI IPT 5KP6 #INC PTTRACE ^^^^ ...26313155001100000000