{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS ACTBLK)}}
====== COMPS ACTBLK ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:FIELDDEF|FIELDDEF]], [[george:macro:INMOP|INMOP]], [[george:macro:SEMAPHORE|SEMAPHORE]]
225X ...[
229S ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
22*P ...[
22FL #SKI GENIE
22^= (
23DW [
23YG # RUTH HEAP
24D6 [
24XQ # THIS SUBFILE IS INTENDED TO CONTAIN ALL ACTIVITY BLOCK IDENTIFIERS
25CB # THE FIRST SECTION DEFINES THE BASIC ACTIVITY BLOCK FORMAT,AND THE
25X2 # EXTENSIONS FOR EACH TYPE OF BLOCK FOLLOW ALPHABETICALLY.
26BL #DEF EXUDAS=1 [MK6-UDAS
26W= #DEF AWORKFILE=1 [MK6-SUPER FAST WORKFILES
27*W #DEF CLUSPROPS=1 [MK6-PROPERTY/CLUSTER CODE
27TG #OPT INMOP=0
28*6 #OPT CNEWRING=1
28SQ #OPT EXECNUM=EXUDAS<1+5 [5 IF EXUDAS=0 ELSE 6
29#B #OPT ANEWACTLF=1
29S2 #OPT ALFMK7=0
2=?L #OPT CLONK=1
2=R= #OPT CLINK=CLONK
2?=W #OPT EPCOD=BFSJ^AUTLP
2?QG #DEF AGMIN8=-8
2#=6 #DEF CJOBRING=G3MARK>4-4<1
2#PQ #DEF GDMIN4=-4
2*9B #OPT KCPX=1
2*P2 [ BASIC RED TAPE MNEMONICS
2B8L #DEF A0=0
2BN= #SKI CAMK7>1-1
2C7W (
2CMG #DEF A1=9
2D76 #DEF IROUND=8 [BLOCK ROUNDING CONSTANT
2DLQ #DEF INROUND=-IROUND
2F6B )
2FL2 #SKI CAMK7<2-2
2G5L (
2GK= #DEF A1=8
2H4W #DEF A1D=A1+4&GDMIN4 [AOBJPROG MNEMONICS -> COMPS RTERRY
2HJG )
2J46 #DEF A1L=A1 [PROSPECTIVE LONG RED TAPE IDENTIFIER
2JHQ # LINKSTACK BLOCK MNEMONICS
2K3B #DEF BLINKRING=A1
2KH2 # ACTIVITY BLOCK MNEMONICS
2L2L #DEF FPTR=0 [FORWARD POINTER
2LG= #DEF BPTR=FPTR+1 [BACKWARD POINTER
2L^W #DEF ASIZE=BPTR+1 [BLOCK LENGTH
2MFG #DEF BSTART=BPTR+1
2M^6 #SKI CAMK7>1-1
2NDQ (
2NYB #DEF AFLAG=ASIZE+1
2PD2 #DEF ATYPE=AFLAG+1
2PXL )
2QC= #SKI CAMK7<2-2
2QWW #DEF ATYPE=ASIZE+1 [TYPE WORD
2RBG #DEF BACK1=ATYPE+1 [1ST WORD OF BACKING STORE ADDRESS
2RW6 #DEF BACK2=BACK1+1 [2ND WORD OF BACKING STORE ADDRESS
2S*Q #DEF ALOGLEN=BACK2+1
2STB #DEF ARINGNO=ALOGLEN+1 [WORD GIVING DETAILS OF RINGS
2T*2 #SKI CAMK7<2-2
2TSL (
2W#= #DEF BWORKRING=ARINGNO+1
2WRW #DEF CHAINADD=BWORKRING+2
2X?G )
2XR6 #SKI CAMK7>1-1
2Y=Q #DEF CHAINADD=ARINGNO+1
2YQB #DEF BACKCHAN=CHAINADD+1
2^=2 #SKI CAMK7>1-1
2^PL (
329= #DEF BWORKRING=CHAINADD+2
32NW #DEF JOBRING=BWORKRING+2
338G )
33N6 #SKI CAMK7<2-2
347Q #DEF JOBRING=BACKCHAN+1
34MB #DEF ACTRING=JOBRING+2
3572 #DEF ALINKRING=ACTRING+2 [LINK STACK RING
35LL #DEF FILERING=ALINKRING+2
366= #DEF FILEBRING=FILERING+1
36KW #DEF ACTRINGNUM=FILERING-ARINGNO+1/2
375G #DEF ACC3=FILERING+3 [ACC DUMP AREA
37K6 #DEF ACC4=ACC3+1
384Q #DEF ACC5=ACC3+2
38JB #DEF ACC6=ACC3+3
3942 #DEF ACC7=ACC3+4
39HL #OPT ALINK1=ACC7+1 [1ST WORD OF LINK PAIR
3=3= #SKI CLONK<1$1
3=GW (
3?2G #DEF ALINK2=ALINK1+1
3?G6 #DEF AWORK1=ALINK2+1
3?^Q )
3#FB #SKI CLONK
3#^2 #DEF AWORK1=ALINK1+1
3*DL #DEF AWORK2=AWORK1+1
3*Y= #DEF AWORK3=AWORK2+1
3BCW #DEF AWORK4=AWORK3+1
3BXG #DEF ACOMMUNE1=AWORK4+1
3CC6 #DEF ACOMMUNE2=ACOMMUNE1+1
3CWQ #DEF ACOMMUNE3=ACOMMUNE2+1
3DBB #DEF ACOMMUNE4=ACOMMUNE3+1
3DW2 #DEF ACOMMUNE5=ACOMMUNE4+1
3F*L #DEF ACOMMUNE6=ACOMMUNE5+1
3FT= #DEF EXEC1=ACOMMUNE6+1 [EXEC COMMUNICATION AT PRESENT
3G#W #DEF EXEC2=EXEC1+1
3GSG #DEF EXEC3=EXEC2+1
3H#6 #DEF ACOMMUNE7=ACOMMUNE6+1 [TO REPLACE EXEC WORDS FOR GEO3 USE
3HRQ #DEF ACOMMUNE8=ACOMMUNE7+1
3J?B #DEF ACOMMUNE9=ACOMMUNE8+1
3JR2 #DEF ACTNUM=ACOMMUNE9+1 [UNIQUE ACTIVITY NO (SET BY GETACT)
3K=L #DEF ACTCHCH=ACTNUM+1 [CHCH COUNT
3K*9 [
3KCS ...[ IMPORTANT: WORD ACTCHCH+1
3KGC ...[ HAS BITS 12 TO 17 RESERVED FOR THE GOVERNMENT
3KK2 [ SECURITY INTERFACE.
3KMK [
3KN9 ...#DEF CPATUWORD=ACTCHCH+1 [NEW WD FOR USER GROUP SECURITY I/FACE
3KNT ...[
3KPF ...[ BIT I.D.S FOR CPATUWORD
3KQ5 ...[
3KQP ... BITDEFS CPATUWORD,14,JFSINCHECK
3KR* ... FIELDDEF JFSINHISO,2,CPATUWORD,16
3KR^ ... FIELDDEF JFSINLOSI,2,CPATUWORD,18
3KSK ...[
3KT9 ...[
3KTT ...[ THE FOLLOWING DEFINITIONS ARE FOR MES.
3KWF ...[
3KX5 ... BITDEFS CPATUWORD,6,G262SP
3KXP ... BITDEFS CPATUWORD,6,G263SP
3KY* ... BITDEFS CPATUWORD,7,G502BETA
3KY^ ...# BIT 7 - MOP LF RECORD STARTED IN BETA (INTERNAL TO LISTMOP)
3K^K ... BITDEFS CPATUWORD,9,G501SHIFT,G501ALLC
3L29 ...# BIT 9 - INDICATES SHIFT OPERATION ON MOP (B10 = ALLCHAR INPUT)
3L2T ... BITDEFS CPATUWORD,10,G502NOLF
3L3F ...# BIT 10 - INDICATES NEWLINE SUPPRESSION ON MOP
3L45 ... BITDEFS CPATUWORD,11,G502NOBC
3L4P ...# BIT 11 - BROADCAST DEFERMENT ON MOP
3L5* ...#DEF G502SHIFT = G501SHIFT
3L5^ ... FIELDDEF G502SHIFTF,3,CPATUWORD,11
3L6K ...# FIELD = G502SHIFT+G502NOLF+G502NOBC - BITS MUST BE ADJACENT
3L79 ...#DEF CPATUMASK = #1777
3L7T ...# WORD FOR MARKER BITS FOR USER-WRITTEN CODE:
3L8F ...# BITS NOT IN CPATUMASK CLEARED AT START OF NEW COMMAND.
3L95 ...[
3L9W #DEF CLONG1=ACTCHCH+2
3M?P #
3M#Q # BIT I.D.'S FOR CLONG1 - BEWARE ALTHOUGH BITS 10-14
3M*R # MAY APPEAR TO BE SPARE, BITS 12-14 MAY BE CLEARED BY THE
3MBS # USE OF 'DSA' INSTEAD OF 'DEX' INTO THE WAITSTYLE FIELD
3MCT # ( DONE BY MACROS 'WAITSTOP' AND 'LONGCLEAR' )
3MDW #
3MFX BITDEFS CLONG1,0,CLGCOREQ,CLGBSPRIV,CLGMONASET,CLGFULTRAC
3MGY BITDEFS CLONG1,4,CLG4COREQ,CLGBCAST,CLGNOISY
3MH^ BITDEFS CLONG1,7,FSHALIEN,EXINERT,FSHNOTJOBNO
3MK2 FIELDDEF CLGWAIT,9,CLONG1,23
3ML5 #
3MNQ #DEF CLONG2=CLONG1+1
3N8B #SKI ALWMK7
3NN2 (
3P7L #DEF CLONG3=CLONG2+1
3PM= #DEF BA1=CLONG3+1
3Q6W )
3QLG #SKI ALWMK7<1-1
3R66 #DEF BA1=CLONG2+1 [FOR MK4 BSTS
3RKQ #DEF BA2=BA1+1
3S5B #DEF BA3=BA2+1
3SK2 #DEF BA4=BA3+1
3T4L #DEF BA5=BA4+1
3TJ= #DEF CPPTR=BA5+1
3W3W #DEF CPRW1=CPPTR+1
3WHG #DEF CPRW2=CPRW1+1
3X36 #DEF CPRSW=CPRW2+1
3XGQ #SKI HIPRI
3Y2B (
3YG2 #DEF ACRIT=CPRSW+1
3Y^L #DEF ATUSEG=ACRIT+1
3^F= )
3^YW #SKI G3
42DG #DEF JOBNO=CHAINADD+K47-1
42Y6 #SKI G4
43CQ #DEF JOBNO=CHAINADD+K47-9
43XB #DEF FCA5=JOBNO
44C2 [ IDENTIFIERS COMMON TO ALL ACTIVITY BLOCKS.
44WL [
45B= #DEF ABL=FCA5+1-A1 [MINIMUM ACTIVITY BLOCK LENGTH
45TW [
46*G [ ACTCDT OUTPUT OF TIME/DATE TO CONSOLE.
46T6 [ J.NICHOLSON.
47#Q #DEF ACTCDTLEN=ABL
47SB [
48#2 [
48RL [ ACTDOC SERVICING INTERRUPTS ON MAG TAPE &
49?= [ BACKING STORE DEVICES
49QW [ A.S.TEW,A.MORROW & J.ATHERTON.
4==G [ SUBTYPES:- ADUMPT H.SIMMONS
4=Q6 [ ARET H.SIMMONS
4?9Q [ ASCHEDE MARK BAIRD
4?PB [
4#92 #DEF ACTDOCLEN=AMXMSK+1-A1
4#NL [
4*8= #DEF ADUMPTLEN=1
4*MW [
4B7G [ ONE EXTRA WORD FOR ACTDOC/ADUMPT
4BM6 #DEF ADTSN=ACTDOCLEN+A1
4C6Q [
4CLB [
4D62 #DEF ARETLEN=0 [ADD.LENGTH FOR ACTDOC/ARET
4DKL [
4F5= #DEF ADUMTST=ACTDOCLEN+A1
4FJW #DEF ASCHEDELEN=1
4G4G [
4GJ6 [ ACTLF SLOW OUTPUT PERIPHERAL TRANSFERS
4H3Q [N ROBINSON
4HHB [
4J32 #DEF JSOURCE1=FCA5+1
4JGL #DEF ALFSOURCE=JSOURCE1
4K2= #DEF JSOURCE2=JSOURCE1+1
4KFW #DEF JSOURCE3=JSOURCE2+1
4K^G #SKI ALFMK7
4LF6 (
4LYQ #DEF ALFTRANS=JSOURCE3+1
4MDB #DEF ALFWORDS=ALFTRANS+1
4MY2 #DEF ALFLAG=ALFWORDS+1
4NCL #DEF A5=ALFLAG+1
4NX= )
4PBW #SKI ALFMK7<1$1
4PWG (
4QB6 #DEF AMULTID=JSOURCE3+1
4QTQ #DEF AWAKECOUNT=AMULTID+1
4R*B #DEF A5=AWAKECOUNT+1
4RT2 )
4S#L #DEF IWORK1=A5
4SS= #DEF IWORK2=IWORK1+1
4T?W #DEF IWORK3=IWORK2+1
4TRG #DEF IWORK4=IWORK3+1
4W?6 #DEF IWORK5=IWORK4+1
4WQQ #DEF IWORK6=IWORK5+1
4X=B #DEF IWORK7=IWORK6+1
4XQ2 #DEF IWORK8=IWORK7+1
4Y9L #DEF IWORK9=IWORK8+1
4YP= #DEF IWORK10=IWORK9+1
4^8W #DEF IWORK11=IWORK10+1
4^NG #DEF IWORK12=IWORK11+1
5286 #DEF IWORK13=IWORK12+1
52MQ #DEF IWORK14=IWORK13+1
537B #DEF IWORK15=IWORK14+1
53M2 #DEF IWORK16=IWORK15+1
546L #DEF IWORK17=IWORK16+1
54L= #DEF IWORK18=IWORK17+1
555W #DEF IWORK19=IWORK18+1
55KG #DEF IWORK20=IWORK19+1
5656 #SKI ALFMK7
56JQ (
574B #DEF ACTLFLEN=A5-A1
57J2 #DEF GREMOTELEN=20
583L #DEF CENTRALLEN=45
58H= #DEF BSCHEDLEN=5
592W )
59GG #SKI 1