{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPSG4)}}
====== COMPSG4 ======
(George Source)
**Macros used:** [[george:macro:EXTRACOR|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