{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS SHFS)}}
====== COMPS SHFS ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:FIELDDEF|FIELDDEF]]
22FL #
22^= #
23DW # BLOCK TYPE DEFINITIONS FOR SHARED FILESTORE ENHANCEMENT
23YG #
24D6 #
24XQ [DEF FSH=#1600
25CB #
25X2 #
26BL [DEF FSHIN=#01
26W= [DEF FSHOUT=#02
27*W #
27TG #
28*6 #DEF FSHRINGA=A1 [FSHIN/FSHOUT BLOCK FORMAT
28SQ #DEF FSHLASTBUFF=FSHRINGA+2
29#B #DEF FSHBUFF=FSHLASTBUFF+1
29S2 #
2=?L #DEF FSHFLAG=0
2=R= #DEF FSHTYPE=FSHFLAG+1
2?=W #DEF FSHBACK1=FSHTYPE+1
2?QG #DEF FSHBACK2=FSHBACK1+1
2#=6 #DEF FSHLOGLEN=FSHBACK2+1
2#PQ #DEF FSHRINGNO=FSHLOGLEN+1
2*9B #DEF FSHA1=FSHRINGNO+1
2*P2 #
2B8L #
2BN= [DEF FSHREQ=#03
2C7W #
2CMG #DEF FSHCODEID=A1
2D76 #DEF FSHBITS=FSHCODEID+1
2DLQ #DEF FSHCACTNO=FSHBITS+1
2F6B #DEF FSHCACTTYPE=FSHCACTNO+1
2FL2 #DEF FSHJOBNO=FSHCACTTYPE+1
2G5L #DEF FSHTACT=FSHJOBNO+1
2GK= #DEF FSHLINK=FSHTACT+1
2H4W #DEF FSHOFFSET=FSHLINK
2HJG #DEF FSHCHCHCT=FSHLINK+1
2J46 #DEF FSHACCS=FSHCHCHCT+1
2JHQ #DEF FSHAWORK=FSHACCS+5
2K3B #DEF FSHDATA=FSHAWORK+4
2KH2 #
2L2L #
2LG= [DEF FSHTERM=#04
2L^W #
2MFG #
2M^6 [DEF FSHARED=#05
2NDQ [DEF FSHAREDLEN=0
2NYB #
2PD2 #DEF FSHRING=JOBRING [FSHARED ACTIVITY FORMAT
2PXL #
2Q4S ...[DEF FSHBPM=#06 [FSHBPM ACTIVITY FORMAT
2Q=2 ...[DEF FSHBPMLEN=0
2QC= #
2QWW [DEF FSHTRAN=#05
2RBG #
2RW6 #
2S*Q [DEF FULLB=#06
2STB #
2T*2 #
2TSL [DEF FSHSTORE=#07
2W#= #
2WRW #
2X?G [DEF FSHMARKER=#10
2XR6 #
2Y=Q #DEF FSHMARKPTR=FSHRINGA+2
2YQB #DEF FSHMARKLIST=FSHMARKPTR+1
2^=2 #DEF FSHMARKELEM=2 [LENGTH OF ENTRY IN
2^PL [ /FSHMARKER BLOCK
329= #
32NW #
338G [DEF FSHBDEL=#11
33N6 #
347Q #
34MB [DEF FSHBINS=#12
3572 #
35LL #
366= [DEF FSHMOVE=#13
36KW #
375G #DEF FSHMVFCBNO=A1
37K6 #DEF FSHMVSTATE=FSHMVFCBNO+1
384Q #DEF FSHMVELLEN=FSHMVSTATE-FSHMVFCBNO+1 [LENGTH OF ENTRY
38JB # [ IN FSHMOVE BLOCK
3942 #
39HL #
3=3= [DEF FSHAPIA=#14
3=GW #
3?2G #
3?G6 [DEF FSHREQX=#15 [RENAMED /FSHREQ BLOCK
3?^Q #
3#FB #
3#^2 [DEF FSHTERMX=#16 [RENAMED /FSHTERM BLOCK
3*DL #
3*Y= #
3BCW [DEF FSHIPS=#17 [IP CORRESPONDENCE TABLE BLOCK
3BXG #
3CC6 #
3CWQ [DEF FSHJCOUNTS=#20
3DBB #
3DW2 #DEF FSHABACK=A1
3F*L #DEF FSHAMOP=FSHABACK+1
3FT= #DEF FSHABACKL=FSHAMOP+1
3G#W #DEF FSHAMOPL=FSHABACKL+1
3GSG #DEF FSHBBACK=FSHAMOPL+1
3H#6 #DEF FSHBMOP=FSHBBACK+1
3HRQ #DEF FSHBBACKL=FSHBMOP+1
3J?B #DEF FSHBMOPL=FSHBBACKL+1
3JR2 #DEF FSHBACKR=FSHBMOPL+1
3K=L #DEF FSHMOPR=FSHBACKR+1
3KQ= #DEF FSHJOBTYPE=FSHMOPR+1
3L9W #DEF FSHX7=FSHJOBTYPE+1
3LPG #DEF FSHELEM=FSHX7+1
3M96 #
3MNQ #DEF FSHBACK=0
3N8B #DEF FSHMOP=FSHBACK+1
3NN2 #DEF FSHBACKL=FSHMOP+1
3P7L #DEF FSHMOPL=FSHBACKL+1
3PM= #
3Q6W [DEF FSHAMBLES=#21 [UNANTICIPATED CLOSEDOWN BLOCK
3QLG #
3QQC ...#DEF FSHCDLINK=A1
3QW# ...#DEF FSHWORK=FSHCDLINK+1
3R29 ...#
3R66 #
3RKQ [DEF FINLK = #22 [ MARKER BLOCK FOR 'FINISH LINK'
3S5B #
3SK2 #
3T4L #
3TJ= [DEF FAPB=#62 [APPEND BLOCK USED BY PERFORMANCE ACT.
3W3W #
3WHG #
3X36 # NEW SUB-TYPES FOR JWELL BLOCK ON MISCELLANEOUS CHAIN
3XGQ #
3Y2B [DEF ACOUNTS=#06 [SUB-TYPE FOR 'A' MACHINE COUNTS
3YG2 #
3Y^L [DEF BCOUNTS=#07 [SUB-TYPE FOR 'B' MACHINE COUNTS
3^F= #
3^YW #
42DG # SUBTYPE DEFINITION FOR BSTB/HORSE BLOCK
42Y6 #
43CQ [DEF HORSE=#24 [ALIEN DATA BLOCK FOR CG COMMAND
43XB #
44C2 #
44WL # FSH CODE IDENTIFIERS
45B= #
45TW #
46*G #DEF FSHZ=0 [IDENTIFIERS FOR TRANSBEG MACRO
46T6 #DEF FSHZAUT=#4000
47#Q #DEF FSHZSUP=#2000
47SB #DEF FSHZGETACT=#1000
48#2 #DEF FSHZNEST=#400
48RL #
49?= #
49QW #DEF FSHNOID = 0 [NULL CODE IDENTIFIER
4==G #DEF FSHOPEN = 1 [CODE IDENTIFIER FOR "OPEN"
4=Q6 #DEF FSHUSEROPEN= 2 [CODE IDENTIFIER FOR "USEROPEN"
4?9Q #DEF FSHCMULT = 3 [CODE IDENTIFIER FOR "CLOSEMULT"
4?PB #DEF FSHERMULT = 4 [CODE IDENTIFIER FOR "ERASEMULT"
4#92 #DEF FSHCLOSEID = 5 [CODE IDENTIFIER FOR "CLOSE"
4#NL #DEF FSHERRORID = 6 [CODE IDENTIFIER FOR "ERROR"
4*8= #DEF FSHISPERID = 7 [CODE IDENTIFIER FOR "ISPER"
4*MW #DEF FSHBRKIN = 8 [CODE IDENTIFIER FOR "BREAKIN"
4B7G #DEF FSHBSID = 9 [CODE IDENTIFIER FOR "B.S.A.S."
4BM6 #DEF FSHCREATEID=10 [CODE IDENTIFIER FOR "CREATE"
4C6Q #DEF FSHCOPYID =11 [CODE IDENTIFIER FOR "COPY"
4CLB #DEF FSHLFID =12 [CODE IDENTIFIER FOR "LF COMMAND"
4D62 #DEF FSHSLOUTID =13 [CODE IDENTIFIER FOR "OL SLOW O/P"
4DKL #DEF FSHBCAST =14 [CODE IDENTIFIER FOR "BROADCAST"
4F5= #DEF FSHABANDON =15 [CODE IDENTIFIER FOR "ABANDON"
4FJW #DEF FSHSAVEID =16 [CODE IDENTIFIER FOR "SAVE"
4G4G #DEF FSHMOVEID =17 [CODE IDENTIFIER FOR INTERNAL FSHMOVE
4GJ6 #DEF FSHTRANSACT=18 [CODE IDENTIFIER FOR "TRANSACT" MACRO
4H3Q ...#DEF FSHANSWER =19 [CODE IDENTIFIER FOR "ANSWER"
4HHB #DEF FSHQUESTION=20 [CODE IDENTIFIER FOR "QUESTION"
4J32 #DEF FSHCANTDO =21 [CODE IDENTIFIER FOR "CANTDO"
4JGL #DEF FSHMESSAGE =22 [CODE IDENTIFIER FOR MESSAGE SYSTEM
4K2= #DEF FSHDEADID =23 [CODE IDENTIFIER FOR "DEAD"
4KFW #DEF FSHNEWID =24 [CODE IDENTIFIER FOR "NEW"
4K^G #DEF FSHRETID =25 [CODE IDENTIFIER FOR "RETURN"
4LF6 #DEF FSHCONSOUT =26 [CODE IDENTIFIER FOR "CONSOUT" MACRO
4LYQ #DEF FSHBSCHEDID=27 [CODE IDENTIFIER FOR ACTLF/BSCHED
4MDB #DEF FSHACTLFID =28 [CODE IDENTIFIER FOR OTHER ACTLF'S
4MY2 #DEF FSHMKID =29 [CODE IDENTIFIER FOR "MAKEDIR"
4NCL #DEF FSHERASEID =30 [CODE IDENTIFIER FOR "ERASE"
4NX= #DEF FSHCOMPRESS=31 [CODE IDENTIFIER FOR COMPRESS
4PBW #DEF FSHMACROID =32 [CODE IDENTIFIER FOR MACRO SEARCH
4PWG #DEF FSHLDID =33 [CODE IDENTIFIER FOR "LISTDIR"
4QB6 #DEF FSHPERFID =34 [CODE IDENTIFIER FOR PERF. ACT
4QTQ #DEF FSHWORKID =35 [CODE IDENTIFIER FOR WORKFILES
4R*B #DEF FSHTRAPID =36 [CODE IDENTIFIER FOR TRAP COMMANDS
4RT2 #DEF FSHWFID =37 [CODE IDENTIFIER FOR "WORKFILEMOVE"
4S#L #DEF FSHIPSID =38 [CODE IDENTIFIER FOR IPS
4SS= #DEF FSHRETRIEVE=39 [CODE IDENTIFIER FOR "RETRIEVE"
4T?W #DEF FSHCANCRVX =40 [CODE IDENTIFIER FOR "CANCEL RV"
4TRG #DEF FSHINCDUMP =41 [CODE IDENTIFIER FOR "INCDUMP"
4W?6 #DEF FSHTHTW =42 [CODE IDENTIFIER FOR TAPERIGHT/WRONG
4WQQ #DEF FSHCGID =43 [CODE IDENTIFIER FOR "CARTRIDGE"
4X=B #DEF FSHLIBID =44 [CODE IDENTIFIER FOR LIBRARIAN
4XQ2 #DEF FSHLISTIDF =45 [CODE IDENTIFIER FOR "IDFLIST"
4Y9L #DEF FSHINITJBID=46 [CODE IDENTIFIER FOR INITJOB
4YP= #DEF FSHLOGOUTID=47 [CODE IDENTIFIER FOR LOGOUT
4^8W #DEF FSHJOBINPID=48 [CODE IDENTIFIER FOR INPUT DURING JOB
4^NG #DEF FSHLOGNALID=49 [CODE IDENTIFIER FOR LOG ANALYSIS
5286 #DEF FSHCHEKPWID=50 [CODE IDENTIFIER FOR PASSWORD CHECK
52MQ #DEF FSHJLSOCSID=51 [CODE IDENTIFIER FOR JLASSOCS MACRO
537B #DEF FSHADICTWID=52 [CODE IDENTIFIER FOR DICTWELL
53M2 #DEF FSHFZCOMID =53 [CODE IDENTIFIER FOR 'FREEZE'
546L #DEF FSHRGCOMID =54 [CODE IDENTIFIER FOR 'REGENERATE'
54L= #DEF FSHLOGACCID=55 [CODE IDENTIFIER FOR 'LOGACC'
555W #DEF FSHFCBFIND =56 [CODE IDENTIFIER FOR FCBFIND MAC
55KG #DEF FSHRENAMEID=57 [CODE IDENTIFIER FOR 'RENAME'
5656 #DEF FSHCLOSFZID=58 [CODE IDENTIFIER FOR 'FREEZESAVE'
56JQ #DEF FSHWPID =59 [CODE IDENTIFIER FOR 'WHATPER'
574B #DEF FSHTFID =60 [CODE IDENTIFIER FOR TRANFAIL
57J2 #DEF FSHSCID =61 [CODE IDENTIFIER FOR 'SCHEDULE'
583L #DEF FSHWJID =62 [CODE IDENTIFIER FOR 'WHATJOBS'
58H= #DEF FSHWSID =63 [CODE IDENTIFIER FOR 'WHATSTATE'
592W #DEF FSHWSEXTRA =64 [CODE IDENTIFIER FOR 'WS' EXTRACODE
59GG #DEF FSHWSWAIT =65 [CODE IDENTIFIER FOR WS WAITING JOBS
5=26 #DEF FSHWSPERIS =66 [CODE IDENTIFIER FOR WS PERIPHERALS
5=FQ #DEF FSHDSCNCTID=67 [CODE IDENTIFIER FOR 'DC' COMMAND
5=^B #DEF FSHCNECTID =68 [CODE IDENTIFIER FOR 'CN' COMMAND
5?F2 #DEF FSHALLOC1ID=69 [CODE IDENTIFIER FOR COPYFILE STAGE 1
5?YL #DEF FSHALLOC2ID=70 [CODE IDENTIFIER FOR COPYFILE STAGE 2
5#D= #DEF FSHADDJOBID=71 [CODE IDENTIFIER FOR ADDJOB
5#XW #DEF FSHFNID =72 [CODE IDENTIFIER FOR FINISH
5*CG #DEF FSHWJWSID =73 [CODE IDENTIFIER FOR WJ OR WS START
5*X6 #DEF FSHWSJOBS =74 [CODE IDENTIFIER FOR WSJOBS SEGMENT
5BBQ #DEF FSHOPID =75 [CODE IDENTIFIER FOR SL,WL AND CH
5BWB #DEF FSHREADFAIL=76 [CODE IDENTIFIER FOR READ FAILURES
5CB2 #DEF FSHWAID =77 [CODE IDENTIFIER FOR WA (WHATPROP)
5CTL #DEF FSHHLSEXID =78 [CODE IDENTIFIER FOR SCHEDJOB
5D*= #DEF FSHHLSEVID =79 [CODE IDENTIFIER FOR HLSEVENT
5DSW #DEF FSHAUID =80 [CODE IDENTIFIER FOR AU & CC AU
5F24 ...#DEF FSHUNSAVEID=81 [CODE IDENTIFIER FOR UNSAVE
5F7= ...#DEF FSHWAITINID=82 [CODE IDENTIFIER FOR 'WAITIN' EVENT
5F9W ...#DEF FSHLONGMESS=83 [CODE IDENTIFIER FOR LONGWAIT MESSAGE
5F9^ ...#DEF FSHPROPID =84 [CODE IDENTIFIER FOR 'PR' COMMAND
5F=4 ...#DEF FSHIDFID =85 [CODE IDENTIFIER FOR IDF CHANGES
5F=7 ...#DEF FSHIDFPERID=86 [CODE IDENTIFIER FOR IDFPER(LISTFILE)
5F== ...#DEF FSHREROUTE =87 [CODE IDENTIFIER FOR REROUTED OUTPUT
5F=* ... [ IN SEGMENT CONSROOT
5F=D ...#DEF FSHPROPARS =88 [CODE IDENTIFIER FOR 'PR' COMMAND TO
5F=H ... [ RETURN TO HOME M/C FOR 'PARSORT'
5F=L ...#DEF FSHCONCLID =89 [CODE IDENTIFIER FOR CONCEPTUALS
5F=N ...#DEF FSHACTPRI =90 [CODE IDENTIFIER FOR UPDATING ACT PRI
5F=P ...#DEF FSHINCBX=91 [CODE ID FOR INCRCUBX OBEYED ON HOME
5F=Q ...#DEF FSHNOTFINID=240 [CODE ID FOR /FSHREQ TO PROTECT
5F?L ... [/FSHARED FROM TRANCHKN IN SUP'V'SORY
5F#G #
5FJ# ...#
5FS6 # CERTAIN OPERATIONS REQUIRE TRANSBEG'S TO BE ISSUED UNDER THE
5G?Q # PROTECTION OF THE 'FSHCHAIN' SEMAPHORE. THESE TRANSBEG'S MUST
5GRB # USE A SPECIAL RANGE OF CODE IDENTIFIERS WHICH INDICATE THAT THE
5H?2 # SEMAPHORE IS ALREADY HELD.
5HQL #
5J== #DEF FSHNOCOORID=240 [IDENTIFIER FOR LAST ORDINARY CODE ID
5JPW #
5K9G #DEF FSHRSCHEDID=255 [CODE IDENTIFIER FOR SCHEDJOB
5KP6 #
5L8Q #DEF FSHOWNSHREQ=#7777
5LNB #
5M82 #
5MML # OTHER IDENTIFIERS
5N7= #
5NLW #
5P6G #DEF FSHIPCLEN=256 [LENGTH OF TRANSFERS ACROSS IPB
5PL6 #
5Q5Q #
5QKB #DEF FSHBSBLOCKS=64 [NO OF B/S BLOCKS GOT FOR M/C 'B'
5R52 #
5RJL #
5S4= #DEF FSHFIXED=0 [IDENTIFIERS FOR FSHTABLE MACRO
5SHW #DEF FSHCURRACT=1
5T3G #DEF FSHJOBQUE=2
5TH6 #
5W2Q #DEF FSHNOBLOCKS=#77 [PSEUDO BLOCK TYPE FOR TRANSBEG
5WGB #
5X22 #
5XFL #DEF FSHTIMEOUT=8 [IPC TRANSFER TIME-OUT PERIOD (APPROX
5X^= # [30 SECONDS)
5YDW #
5YYG #DEF FSHPREFIX=0 [IDENTIFIERS FOR USE WITH THE RESTORE
5^D6 #DEF FSHPREFIXA=0 [ TIME MACRO 'MCONSPFIX' TO INDICATE
5^XQ #DEF FSHPREFIXB=0 [ THE SETTING OF PARAMETER 3 TO ONE
62CB # [ OF THE VALUES 'A', 'B' OR NULL.
62X2 #
63BL #
63W= #
64*W # BIT DEFINITIONS
64TG #
65*6 # 1. IN THE CODE IDENTIFIER WORD
65SQ #
66#B BITDEFS FSHCODEID,12,FSHAUTOTRAN,FSHSUPERV,FSHNEWACT,FSHNESTED
66S2 FIELDDEF FSHCODENUM,8,FSHCODEID,23
67?L #
67R= # 2. IN THE BITS MARKER WORD
68=W #
68QG BITDEFS FSHBITS,0,FSHTRANSFIN,FSHNODATA,FSHKEEPREQ,FSHACTNUM
692# ... BITDEFS FSHBITS,4,FSHTRANSET
69=6 FIELDDEF FSHNESTCT,9,FSHBITS,23
69PQ #
6=9B # 3. IN THE FIXED CORE FSH STATUS WORD
6=P2 #
6?8L BITDEFS FSHSTATE,0,FSHRUNNING,FSHNOTESTAB,FSHRTRAN,FSHWTRAN
6?N= BITDEFS FSHSTATE,4,FSHINBATCH,FSHRECHECK,FSHCLOSE,FSHSELECTED
6#7W ... BITDEFS FSHSTATE,8,FSHIPCSET,FSHCLOSDOWN,FSHONEWORD
6#MG BITDEFS FSHSTATE,12,FSHLINKCOM,FSHCHAINB1,FSHCHAINB2
6*76 FIELDDEF FSHAREDCT,9,FSHSTATE,23
6*LQ #
6B6B # DECLARE SEMAPHORE CONTROL CHAINING OF DATA BY TRANSFER ROUTINES
6BL2 #
6C5L SEMAPHOR FSHCHAIN,FSHCHAINB1,FSHCHAINB2,FSHCHAINWT
6CK= #
6D4W #
6DJG # 4. IN THE ACTIVITY BLOCK
6F46 #
6FHQ [ BITDEFS AFLAG,2,BFSHACTB [ ALSO IN COMPS CORE
6G3B [ BITDEFS CLONG1,7,FSHALIEN,EXINERT,FSHNOTJOBNO
6GH2 [ ALSO IN COMPS ACTBLK
6H2L [ BITDEFS EXT+9,12,EXBIAWAY [ ALSO IN COMPS COMPRO
6HG= #
6H^W # 5. IN THE FIXED CORE DUMPER WORD
6JFG #
6J^6 [ BITDEFS INCWORD,13,BFSHB [ ALSO IN COMPSDUMP
6KDQ #
6KYB # 6. IN THE JOB BLOCK (JOBQUE)
6LD2 #
6LXL [ BITDEFS JCLASS,5,JBFSHALIEN [ ALSO IN LLSBITS
6MC= #
6MWW # 7. IN THE FILE CONTROL BLOCK
6NBG #
6NW6 ...[ BITDEFS FINFD,0,BFSETUPB,BFSETMAPB,BFOPENBW,BFCOMMONB,BFBLUPDATE
6P*Q [ ALSO IN FILECOMPS
6PTB #
6Q*2 # 8. IN THE FSH/FSHMOVE BLOCK
6QSL #
6R#= BITDEFS FSHMVSTATE,0,BFSHMVFCBTB,BFSHMVFMAPP,BFSHMVMAPTB
6RRW BITDEFS FSHMVSTATE,3,BFSHMVNTONB,BFSHMVFCBTA,BFSHMVUPB,BFSHMVMAPB
6S?G ... BITDEFS FSHMVSTATE,7,BFSHMVCLOS,BFSHMVCOPY,BFSHMVBLUP
6SR6 #
6T=Q # 9. IN THE BSTB/CART AND BSTB/HORSE BLOCKS
6TQB #
6W=2 BITDEFS A1+3,0,BCGSHARED,BCGDEDIC,BCGFILESTOR,BCGHOMESWAP
6WPL BITDEFS A1+3,4,BCGAWAYSWAP
6X9= #
6XNW # 10. IN SYSTEM.JOBLIST AND 'JSAINFO' IN FIXED CORE & IN HLSQ BL
6Y8G #
6YN6 [ BITDEFS JLSTATX,4,JLBMACHA,JLBMACHB,JLBRUNB
6^7Q [ BITDEFS JSAINFO,12,JSVIRTMOPB,JSVIRTBACKB,JSPREFERA
6^MB [ BITDEFS HLSYONQA,13,BLASTRUNB
7272 #
72LL # 11. IN THE FILE CONTROL AREA (FCA)
736= #
73KW [ BITDEFS FGENERAL2,17,BAOPENONB [ALSO IN FILECOMPS
745G #
74K6 # 12. IN THE FSH/FSHJCOUNTS BLOCK
754Q #
75JB BITDEFS FSHJOBTYPE,0,FSHBJOB,FSHONLYONE,FSHAFULL,FSHBFULL
7642 BITDEFS FSHJOBTYPE,23,FSHSTMOP
76HL #
76J7 ...# 13. IN THE IPCA/FSHBPM ACTIVITY
76JN ...#
76K9 ... BITDEFS AWORK1,0,FSHBPMLKCOM,FSHBPMACTWT,FSHBPMDOWN,FSHBPMKILL
76KQ ... BITDEFS AWORK1,4,FSHBPMLOKB1,FSHBPMLOKB2,FSHBPMFNCOM
76L? ...#
76LS ...# SEMAPHOR TO CONTROL 'CHANGEFILE'ING OF MONITORING FILE TO /FSHBPM
76M* ...#
76MW ... SEMAPHOR FSHBPMLOCK,FSHBPMLOKB1,FSHBPMLOKB2,FSHBPMLOKWT
76NC ...#
76NY ...# 14. IN :SYSTEM.DOCUMENT
76PF ...#
76Q2 ...# BASIC INPUT DEVICE DOCUMENT RECORDS
76QH ...#
76R4 ... BITDEFS A1+1,14,BFSHDOCB
76RK ...#
76S6 ...#
76SM ...# AND THE IDENTIFIERS USED FOR MAGNETIC TAPE ENTRIES
76T8 ...# ORDINARY IDENTIFIERS REFER TO FWB,FRB,FMAGH BLOCK POINTERS
76TP ...# 'N' IDENTIFIERS REFER TO 'STEP' POINTERS.
76W= ...#
76WR ...[DEF FSDSTAT = A1+21
76X# ...[DEF FSDSTATN = 21
76XT ...#
76YB ...[ BITDEFS FSDSTAT,2,BFSHMCB
76YX ...[ BITDEFS FSDSTATN,2,BNFSHMCB
76^D ...#
76^^ ...#
773= #
77GW #
782G # WAITING STYLES [ ALSO IN COMPSWAITING
78G6 #
78^Q [DEF FSHIPCEMS=#200 [WAITING STYLE FOR IPB ACTIVITIES
79FB # [IN EMS ON 'B' MACHINE
79^2 [DEF FSHMVWAIT=#201 [FSHMOVE WAITING FOR FCB(OR FMAPP)
7=DL # [ TO ARRIVE ON 'B'
7=Y= ...[DEF FSHMVOPENB=#203 [WAITING FOR PARTIALLY COMPLETED OPEN
7?CW # [ ON 'B' TO FINISH
7?XG ...[DEF FSHCHAINWT=#204 ['FSHCHAIN' SEMAPHORE WAITING STYLE
7#C6 #
7#WQ ...[DEF FSHBPMLOKWT=#205 ['FSHBPMLOCK' SEMAPHOR WAITING STYLE
7*BB ...#
^^^^ ...436632230129