{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS RMD13)}}
====== COMPS RMD13 ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:FIELDDEF|FIELDDEF]]
22FL # THIS SUBFILE IS THE LIBRARIAN COMPS SUBFILE
22^= # IT BELONGS TO M B KINGHAM AND S A FERGUSON
24D6 #
24XQ #DEF AUNLWT=#64
25CB #DEF AREWT=#66
25X2 # MARK 6.50 IDENTIFIERS
26BL #OPT GENIEMT=GENIE
26W= # FOR UNLOAD MACRO
27*W #DEF AMT=0
27TG #DEF AMTREP=1
28*6 #DEF AMTUNL=2
28SQ #DEF AMTAUT=4
29#B #DEF AMTRET=8
29S2 #DEF AMTNSD=16
2=?L # FOR DEFMODE MACRO
2=R= #DEF ADMSL=4
2?=W #DEF ADMSS=#14
2?QG #DEF ADMS=#20
2#=6 #DEF ADMS200=0
2#PQ #DEF ADMS556=#20
2*9B #DEF ADMS800=#40
2*P2 # FOR SDSEARCH MACRO
2B8L #DEF AMTGEOG=23
2BN= #DEF AMTTSN=2
2C7W #DEF AMTCPPTR=22
2CMG # FOR SWITRACE MACRO
2D76 #DEF GSWITBIT=20
2DLQ #OPT GSWITRAC=0
2F6B # DEFINITIONS FOR MT PROPERTIES
2FL2 #DEF GLIBFAST=#4000
2G5L #DEF GLIBSLOW=#2000
2GK= #DEF GLIBTRA7=#1000
2H4W #DEF GLIBTRA9=#400
2HJG #DEF GLIBPE=#200
2J46 #DEF GLIBNRZI=#100
2JHQ #DEF GLIBMODE=#40
2K3B #DEF GLIBNONS=#20
2K8J ...#DEF GLIBGCR=#10
2K*Q ...[ HARDWARE DECK PROPERTIES
2KH2 #DEF HWPTRACK7=0
2L2L #DEF HWPTRACK9=#200
2LG= #DEF HWPPE=#202
2L^W #DEF HWPNRZI=#201
2M9N ...#DEF HWPGCR=#203
2MFG #DEF HWP=#40000000
2MF^ ...[
2MGD ...[ WORDS IN :SYSTEM.SERIAL
2MGX ...[
2MHB ...#DEF GSERHDR = A1
2MHT ...#DEF GSERTSN = GSERHDR+1
2MJ# ...#DEF GSERUSER= GSERTSN+1
2MJR ...#DEF GSERPROP= GSERUSER+3
2MK= ...[
2MKP ...[ BITS IN GSERPROP WORD IN :SYSTEM.SERIAL ENTRY
2ML8 ...[
2MLM ... BITDEFS GSERPROP,0,GSERBRTURN,GSERBWORK,GSERBDEAD,GSERBNAMWK
2MM6 ... BITDEFS GSERPROP,4,GSERBUSWR,GSERBOPWR,GSERBQUERY,GSERBBCKMP
2MMK ... BITDEFS GSERPROP,8,GSERBTRA7,GSERBPE,GSERBNRZI,GSERBGCR
2MN4 ... FIELDDEF GSERFCTREQ,12,GSERPROP,23
2MNH ...[
2MP2 ...[
2MPF ...[ WORDS IN :SYSTEM.SERIAL
2MPY ...[ DEFINED IN TERMS OF A RECORD
2MQC ...[
2MQW ...#DEF GSERRHDR = 0
2MR* ...#DEF GSERRTSN = GSERRHDR+1
2MRS ...#DEF GSERRUSER= GSERRTSN+1
2MS? ...#DEF GSERRPROP= GSERRUSER+3
2MSQ ...[
2MT9 ...[ BITS IN GSERRPROP WORD IN :SYSTEM.SERIAL ENTRY
2MTN ...[
2MW7 ... BITDEFS GSERRPROP,0,GSERRBRTURN,GSERRBWORK,GSERRBDEAD,GSERRBNAMWK
2MWL ... BITDEFS GSERRPROP,4,GSERRBUSWR,GSERRBOPWR,GSERRBQUERY,GSERRBBCKMP
2MX5 ... BITDEFS GSERRPROP,8,GSERRBTRA7,GSERRBPE,GSERRBNRZI,GSERRBGCR
2MXJ ... FIELDDEF GSERRFCTREQ,12,GSERRPROP,23
2MY3 ...[
2M^6 # DEFINITIONS OF LISTING LEVELS
2NDQ #OPT K0OLMT=0
2NYB #OPT K6OLMT=0
2PD2 #OPT K0OLMTA=0
2PXL #OPT K0OLMTB=0
2QC= #OPT K0OLMTC=0
2QWW #OPT K0OLMTD=0
2RBG #OPT K0OLMTE=0
2RW6 #OPT K0RETURN=0
2S5Y ...#OPT K0RETURNA=0
2S*Q #OPT K0RETURNIT=0
2STB #OPT K0UNLOAD=0
2T*2 #OPT K0CONSERNO=0
2TSL #OPT K0LIBCOM=0
2W#= #OPT K0LIBRARY=K0ALLGEO
2WRW #OPT K0NEW=0
2X?G #OPT K0GET=0
2XR6 #OPT K0DEAD=0
2Y2Y ...#OPT K0DEADA=0
2Y=Q #OPT K0TRANSPOT=0
2YQB #OPT K0LIBREQ=0
2^=2 #OPT K0LIBPROPS=K0LIBRARY
2^PL #OPT K0LIBLOAD=0
329= #OPT K0GETON=0
32F4 ...#OPT K0GETONA=0
32NW #OPT K0UNLOADMT=0
338G #OPT K0CLOSEMT=0
33N6 #OPT K0REDONMT=0
347Q #OPT K0LABEL=0
34MB #OPT K0TAPEWAIT=0
3572 #OPT K0MODE=0
35LL #OPT K0MODEA=0
366= #OPT K0XENON=0
36KW #
375G #OPT K6LIBRARY=0
37K6 #OPT K6LIBINSEC=K6ALLGEO>K6LIBRARY
384Q #OPT K6LIBMANY=K6ALLGEO>K6LIBRARY
38JB #OPT K6LIBPROPS=K6ALLGEO>K6LIBRARY
3942 #OPT K6LIBREQ=K6ALLGEO>K6LIBRARY
39HL #OPT K6LIBREQC=K6ALLGEO>K6LIBRARY
3=3= #OPT K6LIBSEC=K6ALLGEO>K6LIBRARY
3=GW #OPT K6LIBTSN=K6ALLGEO>K6LIBRARY
3?2G #OPT K6CONSERNO=K6ALLGEO>K6LIBRARY
3?G6 #OPT K6LIBCOM=K6ALLGEO>K6COMMAND>K6LIBRARY
3?^Q #OPT K6NEW=K6ALLGEO>K6COMMAND>K6LIBRARY
3#FB #OPT K6RETURN=K6ALLGEO>K6COMMAND>K6LIBRARY
3#P8 ...#OPT K6RETURNA=K6RETURN
3#^2 #OPT K6GET=K6ALLGEO>K6COMMAND>K6LIBRARY
3*DL #OPT K6DEAD=K6ALLGEO>K6COMMAND>K6LIBRARY
3*ND ...#OPT K6DEADA=K6DEAD
3*Y= #OPT K6UNLOAD=K6ALLGEO>K6COMMAND>K6LIBRARY
3BCW #OPT K6UNLOADMT=K6UNLOAD
3BXG #OPT K6CLOSEMT=K6UNLOAD
3CC6 #OPT K6TRANSPOT=K6ALLGEO>K6COMMAND>K6LIBRARY
3CWQ #OPT K6LIBLOAD=K6ALLGEO>K6LIBRARY
3DBB #OPT K6GETON=0
3DL8 ...#OPT K6GETONA=K6GETON
3DW2 #OPT K6MODE=K6ALLGEO>K6LIBRARY
3F*L #OPT K6REDONMT=K6ALLGEO>K6LIBRARY
3FT= #OPT K6TAPEWAIT=K6ALLGEO>K6LIBRARY
3G#W #OPT K6LABEL=K6ALLGEO>K6LIBRARY
3GSG # THIS LOT IS FOR HELP AND WHATPER
3H#6 #OPT K0HELPCOMM=K0ALLGEO
3HRQ #OPT K0HELPINDX=K0ALLGEO
3J?B #OPT K0HELPLIST=K0ALLGEO
3JR2 #OPT K0WHATPER=0
3K=L #OPT K0WHATPERA=0
3KQ= #OPT K6ALLHELP=K6ALLGEO
3L9W #OPT K6HELPCOMM=K6ALLHELP
3LPG #OPT K6HELPINDX=K6ALLHELP
3M96 #OPT K6HELPLIST=K6ALLHELP
3MNQ #
3N8B ...#
3NN2 ...# ENHANCEMENT SKIP IDENTIFIERS
3P7L ...#
3PM= ...#DEF JMODE9=1 [NRZI,PE SWITCHING
3Q6W ...#DEF JMT21=1 [MT21S
3QLG ...#OPT JMODGCR=1
3R66 ...#OPT JDUMPTW=1
^^^^ ...65073357000900000000