(George Source)
Macros used: BITDEFS, 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