Trailing-Edge
-
PDP-10 Archives
-
decuslib10-11
-
43,50526/stable.doc
There are no other files named stable.doc in the archive.
Listed below are the various function tables used in the current system
;;[DITBL]
DITBL:
DI000: XWD 0,QFTI
DI101: XWD QOS,145; Output String
DI102: XWD QIS,146; Input String
DI103: XWD QDT,147; Define Text (superseding)
DI104: XWD QET,150; Erase Text
DI105: XWD QLT,151; List Texts
DI106: XWD QFT,152; Fetch Text
DI107: XWD QPT,153; Partition Text all matches
DI108: XWD QPC,154; Partition Character
DI109: XWD QMT,155; Multi-part Text all matches
DI110: XWD QMC,156; Multi-partition Character
DI111: XWD QNI,157; Neutral Implied
DI112: XWD QEX,160; Exit
DI113: XWD QCA,161; Change Activator (current)
DI114: XWD QHT,162; Hide Text
DI115: XWD QIC,163; Input Character
DI116: XWD QID,164; Input "D" characters
DI117: XWD QIM,165; Input to Match
DI118: XWD QVT,166; View Texts
DI119: XWD QXR,167; eXamine Register
DI120: XWD QXW,170; eXperimental Write in reg.
DI123: XWD QXJ,173; eXperimental Jump
DI125: XWD QTM,175; Trace Mode activated
DI126: XWD QYT,176; Ys There
DI127: XWD QTB,177; Text Branch
DI128: XWD QAD,200; Add
DI129: XWD QSU,201; Subtract
DI130: XWD QMU,202; Multiply
DI131: XWD QDI,203; Divide
DI132: XWD QCT,204; Combine Texts (superseding)
DI135: XWD QII,207; If Identical
DI136: XWD QIG,210; If Greater
DI137: XWD QFC,211; Fetch Character
DI141: XWD QFE,215; Fetch Element
DI142: XWD QFF,216; Fetch Field
DI143: XWD QFL,217; Fetch Left match
DI144: XWD QFR,220; Fetch Right match
DI145: XWD QFP,221; Fetch Partition
DI146: XWD QMD,222; Move Divider to pos. "d"
DI149: XWD QHP,225; How many Partitions
DI150: XWD QHM,226; How many Matches
DI151: XWD QEP,227; Erase Partitions
DI152: XWD QIT,230; Input Text
DI154: XWD QOT,232; Output Texts
DI159: XWD QAB,237; Alphabetic Branch
DI160: XWD QAI,240; Alphabetic Insertion
DI161: XWD QAS,241; Alphabetic Sort
DI162: XWD QPS,242; Pad String
DI163: XWD QRS,243; Reverse String
DI164: XWD QDS,244; Duplicate String
DI165: XWD QRR,245; Return to Restart
DI166: XWD QRI,246; Restart Initialized
DI167: XWD QQP,247; Query Partition
DI168: XWD QTR,250; Trim
DI169: XWD QUT,251; User Trap active
DI170: XWD QXC,252; "X" to Character
DI171: XWD QCX,253; Character to "X"
DI172: XWD QXD,254; "X" to Decimal
DI173: XWD QDX,255; Decimal to "X"
DI174: XWD QPL,256; Plot
DI175: XWD QWI,257; Write Initialize
DI176: XWD QWX,260; Write "X" displacement
DI177: XWD QWY,261; Write "Y" displacement
DI178: XWD QWR,262; Width Right
DI179: XWD QWL,263; Width Left
DI180: XWD QWS,264; Write Straight Lines
DI181: XWD QWC,265; Write Characters
DI182: XWD QZD,266; "Z" reg. Decrement and branch
DI183: XWD QZI,267; "Z" reg. Increment and branch
DI184: XWD QZQ,270; "Z" reg. Query
DI185: XWD QZS,271; "Z" reg. Set
DI186: XWD QOR,272; Or the bits
DI190: XWD QSH,276; Shift the bits
DI206: XWD QEA,316; Erase All excepting
DI207: XWD QED,317; Extract "D" characters
DI208: XWD QDQ,320; Define Quote
DI209: XWD QNU,321; Null
DI212: XWD QHC,324; How many Characters
DI213: XWD QIW,325; Input Wait
DI214: XWD QLW,326; List Where
DI215: XWD QRA,327; Return Argument
DI216: XWD QLF,330; List Files
DI218: XWD QUF,332; Update File
DI220: XWD QBF,334; Bring File
DI222: XWD QSF,336; Store File
DI224: XWD QEF,340; Erase Files
DI226: XWD QFB,342; File Branch
DI231: XWD QSW,347; Switches
DI232: XWD QSY,350; System functions
DI237: XWD QQT,355; whQ is processor Title
DI238: XWD QQF,356; whQ are Functions
DI239: XWD QQN,357; whQ is processor ser. Number
DI243: XWD QRF,363; Read File
DI244: XWD QWF,364; Write File
DI247: XWD QRJ,367; Return Justified lines
DI248: XWD QRP,370; Return Padded lines
DI252: XWD QRN,374; Random Number
DI255: XWD QXI,377; eXperimental Input
DI256: XWD QXO,400; eXperimental Output
DI257: XWD QTI,401; Time
DI259: XWD QDA,403; Date
DI700: XWD QCI,1274; System CI UUO
DI702: XWD QFA,1276; Fetch Alter
DI705: XWD QSD,1301; Select Device
DI800: XWD QXQ,1440; eXperimental label Query
DI805: XWD QGR,1445; Get Relationship
DI806: XWD QIR,1446; Intersect Relationships
DI807: XWD QLR,1447; List Relationship
DI808: XWD QDR,1450; Define Relationship
DI809: XWD QER,1451; Express Relationship
DI813: XWD QOP,1455; Output Paddded lines
DI814: XWD QOP,1456; Output Paddded lines
TABTRE:
EXP SIXBIT /and /; [187] And the bits
EXP SIXBIT /cld /; [148] Characters Left of Divider
EXP SIXBIT /cll /; [191] Change Line Length "active"
EXP SIXBIT /cnb /; [133] Change Number Base "active"
EXP SIXBIT /cpc /; [266] Change Protection Class
EXP SIXBIT /crd /; [147] Characters Right of Divider
EXP SIXBIT /cro /; [203] Change Rub Out char. schema
EXP SIXBIT /cwc /; [250] Change Warning Character
EXP SIXBIT /cxb /; [200] Change "X" Base "active"
EXP SIXBIT /dif /; [233] Designate Input File
EXP SIXBIT /dof /; [234] Designate Output File
EXP SIXBIT /dol /; [704] "Dollar Sign Functions"
EXP SIXBIT /etb /; [249] Erase Trailing Blanks
EXP SIXBIT /fdc /; [138] Fetch "D" Characters
EXP SIXBIT /fde /; [139] Fetch "D" Elements
EXP SIXBIT /fdm /; [140] Fetch "D" Matches
EXP SIXBIT /flt /; [703] "Asterisk Functions"
EXP SIXBIT /ftb /; [210] Fetch To Break character
EXP SIXBIT /fts /; [211] Fetch To Span character
EXP SIXBIT /idt /; [153] Input "D" Texts
EXP SIXBIT /lff /; [228] List File Functions
EXP SIXBIT /lic /; [241] List Input Channels
EXP SIXBIT /lkf /; [802] Lock and Fetch File
EXP SIXBIT /lko /; [803] Overwrite Locked File
EXP SIXBIT /loc /; [242] List Output Channels
EXP SIXBIT /not /; [188] Not "complement" the bits
EXP SIXBIT /nud /; [268] Null Display
EXP SIXBIT /qfa /; [$qfa] Query File Attributes
EXP SIXBIT /qfe /; [219] Query File Extension
EXP SIXBIT /qfn /; [$qfn] Query Function Numbers
EXP SIXBIT /qld /; [197] Query Left of Divider
EXP SIXBIT /qll /; [192] Query Line Length
EXP SIXBIT /qnb /; [134] Query Number Base
EXP SIXBIT /qof /; [202] Query Over Flow conditions
EXP SIXBIT /qpc /; [267] Query Protection Class
EXP SIXBIT /qqb /; [$qqb] Query @ Branch
EXP SIXBIT /qrd /; [198] Query Right of Divider
EXP SIXBIT /qro /; [204] Query Rubout character
EXP SIXBIT /qrt /; [$qrt] Query Run Time
EXP SIXBIT /qta /; [205] Query Text Area used
EXP SIXBIT /qwc /; [251] Query Warning Characters
EXP SIXBIT /qxb /; [201] Query "X" Base
EXP SIXBIT /rcp /; [263] Return Character Picture
EXP SIXBIT /rdl /; [700] Return D Levels
EXP SIXBIT /ref /; [810] REname File
EXP SIXBIT /rot /; [189] Rotate the bits
EXP SIXBIT /sar /; [158] Set Automatic Return on line feed
EXP SIXBIT /sem /; [199] Set "Echoplex" Mode active
EXP SIXBIT /sfd /; [157] Specify Function Device
EXP SIXBIT /sfe /; [221] Set File Extension
EXP SIXBIT /sic /; [245] Select Input Channel
EXP SIXBIT /soc /; [246] Select Output Channel
EXP SIXBIT /suc /; [$suc] Set Upper Case mode
EXP SIXBIT /tma /; [124] Trace Mode All activated
EXP SIXBIT /xal /; [156] Xamine Address of Label
EXP SIXBIT /xll /; [155] Xamine Label List
EXP SIXBIT /xrl /; [$xrl] Xamine Read Label
Z
;
;
;;[NAVLK]
NAVLK:
EXP SIXBIT / -FNF>/;FILE NOT FOUND
EXP SIXBIT / -IPP>/;INCORRECT PROJECT PROGRAMMER NUMBER
EXP SIXBIT / -PRT>/;PROTECTION FAILURE
EXP SIXBIT / -FBM>/;FILE BEING MODIFIED
EXP SIXBIT / -AEF>/;ALREADY EXISTING FILE
EXP SIXBIT / -ISU>/;ILLEGAL SEQUENCE OF UUO'S
EXP SIXBIT / -TRN>/;TRANSMISSION ERROR
EXP SIXBIT / -NSF>/;NOT A SAVE FILE
EXP SIXBIT / -NEC>/;NOT ENOUGH CORE
EXP SIXBIT / -DNA>/;DEVICE NOT AVAILABLE
EXP SIXBIT / -NSD>/;NO SUCH DEVICE
EXP SIXBIT / -ILU>/;ILLEGAL UUO
EXP SIXBIT / -NRM>/;NO ROOM OR QUOTA EXCEEDED
EXP SIXBIT / -WLK>/;WRITE-LOCK ERROR
EXP SIXBIT / -NET>/;NOT ENOUGH TABLE SPACE IN MONITOR
EXP SIXBIT / -POA>/;PARTIAL ALLOCATION ONLY
EXP SIXBIT / -BNF>/;BLOCK NOT FREE ON ALLOC. POSITION
;;[TABMOD]
TABMOD:
EXP SIXBIT /TTY33 /; [ ] MODEL 33 TELETYPEWRITER
EXP SIXBIT /TTY35 /; [ ] MODEL 35
EXP SIXBIT /TTY37E/; [ ] 8 BIT MODEL 37
EXP SIXBIT /TTY37 /; [ ] MODEL 37
EXP SIXBIT /INF1 /; [ ] INFOTON
EXP SIXBIT /QF /; [ ] LIST FUNCTIONAL DEVICES
Z
;;[TABFPR]
IFN FLOATP,<
TABFPR:
EXP SIXBIT /CWC /; [ ] Change Warning Char.
EXP SIXBIT /SIND /; [ ] DEGREES - REAL
EXP SIXBIT /COSD /; [ ] DEGREES - REAL
EXP SIXBIT /SIN /; [ ] RADIANS - REAL
EXP SIXBIT /COS /; [ ] RADIANS - REAL
EXP SIXBIT /SQRT /; [ ] REAL
EXP SIXBIT /ALOG10/; [ ] LOG BASE 10 - REAL
EXP SIXBIT /ALOG /; [ ] NATURAL LOG - REAL
EXP SIXBIT /FPMACH/; [ ] REAL TO OCTAL
EXP SIXBIT /MACHFP/; [ ] OCTAL TO REAL
EXP SIXBIT /QF /; [ ] LIST FUNCTIONS
EXP SIXBIT /SINH /; [ ] RADIANS - REAL
EXP SIXBIT /COSH /; [ ] RADIANS - REAL
EXP SIXBIT /TANH /; [ ] RADIANS - REAL
EXP SIXBIT /EXP /; [ ] E TO THE X - REAL
EXP SIXBIT /ARSIN /; [ ] REAL - RADIANS
EXP SIXBIT /ARCOS /; [ ] REAL - RADIANS
EXP SIXBIT /ARTAN /; [ ] REAL - RADIANS
EXP SIXBIT /DR /; [ ] REAL - DEGREES TO RADIANS
EXP SIXBIT /RD /; [ ] REAL - RADIANS TO DEGREES
EXP SIXBIT /FORMAT/; [ ]
EXP SIXBIT /ARSIND/; [ ] REAL - DEGREES
EXP SIXBIT /ARCOSD/; [ ] REAL - DEGREES
EXP SIXBIT /ARTAND/; [ ] REAL - DEGREES
EXP SIXBIT /TAN /; [ ] RADIANS - REAL
EXP SIXBIT /TAND /; [ ] DEGREES - REAL
EXP SIXBIT /PI /; [ ] PI - REAL
EXP SIXBIT /AD /; [ ] ADD - REAL
EXP SIXBIT /SU /; [ ] SUBTRACT - REAL
EXP SIXBIT /ML /; [ ] MULTIPLY - REAL
EXP SIXBIT /DV /; [ ] DIVIDE - REAL
EXP SIXBIT /GR /; [ ] GREATER THAN - REAL
EXP SIXBIT /LT /; [ ] EQUAL OR LESS THAN - REAL
EXP SIXBIT /IABS /; [ ] INTEGER ABSOLUTE
EXP SIXBIT /ABS /; [ ] REAL ABSOLUTE
EXP SIXBIT /AINT /; [ ] TRUNCATE FRACTION - REAL
EXP SIXBIT /IFIX /; [ ] REAL TO INTEGER
EXP SIXBIT /INT /; [ ] DITTO
EXP SIXBIT /FLOAT /; [ ] INTEGER TO REAL
EXP SIXBIT /CABS /; [ ] COMPLEX ABSOLUTE - REAL
EXP SIXBIT /REAL /; [ ] REAL PORTION OF COMPLEX
EXP SIXBIT /CONJG /; [ ] COMPLEX CONJUGATE - REAL
EXP SIXBIT /DIM /; [ ] DIMENSION - REAL
EXP SIXBIT /IDIM /; [ ] DIMENSION - INTEGER
EXP SIXBIT /SIGN /; [ ] REAL
EXP SIXBIT /ISIGN /; [ ] INTEGER
EXP SIXBIT /MOD /; [ ] INTEGER
EXP SIXBIT /AMOD /; [ ] REAL
EXP SIXBIT /ATAN2 /; [ ] ARC TAN OF TWO ARGUMENTS - REAL
EXP SIXBIT /AMAX /; [ ] MAX ARGUMENT IN EXPRESSION - REAL
EXP SIXBIT /MAX /; [ ] MAX ARGUMENT IN EXPRESSION - INTEGER
EXP SIXBIT /AMIN /; [ ] MIN ARGUMENT IN EXPRESSION - REAL
EXP SIXBIT /MIN /; [ ] MIN ARGUMENT IN EXPRESSION - INTEGER
Z
>
;;[TABSNO]
TABSNO:
EXP SIXBIT /QF /
EXP SIXBIT /CWC /
TABSYS: ;MATCHES MOCIL TABLE
EXP SIXBIT /DEVCHR/
EXP SIXBIT /DDTGT /
EXP SIXBIT /GETCHR/
EXP SIXBIT /WAIT /
EXP SIXBIT /EXIT /
EXP SIXBIT /UTPCLR/
EXP SIXBIT /DATE /
EXP SIXBIT /LOGOUT/
EXP SIXBIT /SWITCH/
EXP SIXBIT /REASSI/
EXP SIXBIT /TIMER /
EXP SIXBIT /MSTIME/
EXP SIXBIT /GETPPN/
EXP SIXBIT /RUNTIM/
EXP SIXBIT /PJOB /
EXP SIXBIT /SLEEP /
EXP SIXBIT /PEEK /
EXP SIXBIT /GETLIN/
EXP SIXBIT /RUN /
EXP SIXBIT /GETTAB/
EXP SIXBIT /SETNAM/
EXP SIXBIT /DEVPPN/
EXP SIXBIT /TRMNO /
EXP SIXBIT /TRMOP /
EXP SIXBIT /DUMMY1/
EXP SIXBIT /LIGHTS/
EXP SIXBIT /DUMMY2/
EXP SIXBIT /PRJPRG/
EXP SIXBIT /JBTPRG/
EXP SIXBIT /TTIME /
EXP SIXBIT /JBTCKT/
EXP SIXBIT /JBTPRV/
EXP SIXBIT /TTYTAB/
EXP SIXBIT /CNFTBL/
EXP SIXBIT /NSWTBL/
EXP SIXBIT /SWPTBL/
EXP SIXBIT /JBTSGN/
EXP SIXBIT /ODPTBL/
EXP SIXBIT /LEVDBL/
EXP SIXBIT /JBTNM /
EXP SIXBIT /JBTCNO/
Z;
TABSOC:
EXP SIXBIT /COM / ;Communications Channel
EXP SIXBIT /CON / ;Console
EXP SIXBIT /DOT / ;Mark outputs to "FILE"
EXP SIXBIT /FIL / ;Directory File
Z
TABSIC:
EXP SIXBIT /COM / ;Communications Channel
EXP SIXBIT /CON / ;Console
EXP SIXBIT /FIL / ;Directory File
Z
;;[LABTAB]
;
LABTAB:
EXP SIXBIT /INDEX /
EXP SIXBIT /LOW /
EXP SIXBIT /TOP /
EXP SIXBIT /KWITCH/
EXP SIXBIT /DSK1 /
EXP SIXBIT /END /
EXP SIXBIT /CHANAS/
EXP SIXBIT /BUFTOP/
EXP SIXBIT /DELETE/
EXP SIXBIT /ERBIT /
EXP SIXBIT /TTSTAT/
EXP SIXBIT /TTBITS/
EXP SIXBIT /TTYPVT/
EXP SIXBIT /TTYCON/
Z
IFN MON506,<
XWD QSDV,2600; [# V] Scope Display
XWD QSDVI,2611; [#VI] Scope Display input
XWD QSDVO,2617; [#VO] Scope Display output
>
XWD FR,0
;;[SYMTL]
SYMTL:
XWD SYMTAE,0105; [,AE] ADVANCE TO END OF TAPE
XWD SYMTAF,0106; [,AF] ADVANCE FILE
XWD SYMTAR,0122; [,AR] ADVANCE RECORD
XWD SYMTBF,0206; [,BF] BACKSPACE FILE
XWD SYMTBR,0222; [,BR] BACKSPACE RECORD
XWD SYMTDC,0403; [,DC] DIGITAL COMPATIBLE
XWD SYMTDE,0405; [,DE] DENSITY EIGHT HUNDRED BPI
XWD SYMTDF,0406; [,DF] DENSITY 556 BPI
XWD SYMTDT,0424; [,DT] DENSITY TWO HUNDRED BPI
XWD SYMTIC,1103; [,IC] INDUSTRY COMPATIBLE
XWD SYMTMO,1012; [,MO] TAPE MODE
XWD SYMTPE,2005; [,PE] SET FOR EVEN PARITY
XWD SYMTPO,2012; [,PO] SET FOR ODD PARITY
XWD SYMTQF,2106; [,QF] QUERY FUNCTIONS
XWD SYMTRL,2214; [,RL] REWIND TO LOAD POINT
XWD SYMTWB,2702; [,WB] WRITE 3 IN. BLANK
XWD SYMTWE,2705; [,WE] WRITE END OF FILE
XWD FR,0
SYTCL:
XWD sytcCD,0304 ;[ ] READ AND CLEAR DIRECTORY {CODE 5}
XWD sytcDF,0406 ;[ ] READ AND DELETE FILE {CODE 2}
XWD sytcFS,0623 ;[ ] FREE SPACE {CODE 0}
XWD sytcQF,2106 ;[ ] QUERY AVAIL. %sy,tc,.../
XWD sytcRD,2204 ;[ ] READ DIRECTORY {CODE 4}
XWD sytcRF,2206 ;[ ] READ FILE {CODE 1}
XWD sytcWF,2706 ;[ ] WRITE FILE {CODE 3}
XWD FR,0
;;[QSFDL]
QSFDL:
XWD qsfdEX,0530; [ ] ##-7, #-8 bit output
XWD qsfdHT,1024; [ ] HTAB SETUP
XWD qsfdFF,0606; [ ] MODIFY ACTION ON FORM FEED
XWD qsfdQF,2106; [ ] QUERY FUNCTIONS AVAIL. MOD. DEVICES
XWD qsfdVT,2624; [ ] MODIFY ACTION ON VTAB
XWD qsfdHL,1014; [ ] MODIFY ACTION ON HIGHLITE CODE
XWD qsfdES,0523; [ ] MODIFY ESCAPE CHARACTER SELECTION
XWD qsfdTV,2426; [#TV] Set tty page - video paging
XWD qsfdSD,2304; [#SD]
XWD qsfdQD,2104; [#QD]
XWD qsfdIN,1116; [$IN]
XWD FR,0
;;[QCIL]
QCIL:
XWD qciQF,2106; [ ] QUERY FUNCTIONS AVAIL. %ci,.../
XWD qciGT,0724; [ ] GETTAB
XWD FR,0
QCIGTL:
XWD cigtQF,2106; [ ] QUERY FUNCTIONS AVAIL. GETTAB
XWD FR,0
;;[QSYL]
QSYL:
XWD qsyAD,0104; [,AD] REASSIGN DEVICE
XWD qsyAF,0106; [745] ALL FILE FUNCTION DEVICE SELECTION
XWD qsyAO,0117; [,AO] ASCII TO 5 PER WORD OCTAL
XWD qsyBF,0206; [747] BF DEVICE SELECTION
XWD qsyDI,0411; [734] SELECT DISK INPUT FILE
XWD qsyDO,0417; [735] DEFINE DISK OUTPUT FILE
XWD qsyDR,0422; [731] READ FROM DIRECTORY
XWD qsyDW,0427; [732] WRITE IN DIRECTORY
XWD qsyED,0504; [733] IS FILE AT END OF DATA <T/F>
XWD qsyEF,0506; [746] EF DEVICE SELECTION
XWD qsyEX,0530; [,HL] EX DEVICE SELECTION
XWD qsyLD,1404; [,LD] LIST SYS. DEVICES
XWD qsyLF,1406; [748] LF DEVICE SELECTION
XWD qsyLS,1423; [758] LIST SYS. STRUCTURES
XWD qsyLU,1425; [757] LIST SYS. UNITS
XWD qsyMP,1520; [752] MODIFY PROT. FOR SB &C.
XWD qsyMT,1524; [,MT] MAGTAPE STUFF
XWD qsyOA,1701; [,OA] OCTAL 7 BIT PACK TO ASCII
XWD qsyOS,1723; [,OS] OCTAL TO SIXBIT CONV.
XWD qsyPA,2001; [,PA] PUNCH SPOOL ASCII
XWD qsyPB,2002; [,PB] PUNCH SPOOL BINARY
XWD qsyPC,2003; [,PC] PUNCH SPOOL COMBINED IMAGE BINARY
XWD qsyPF,2006; [,PF] PRINT FORTRAN THROUGH SPOOL
XWD qsyPI,2011; [,PI] PUNCH SPOOL IMAGE
XWD qsyPL,2014; [,PL] PLOTTER CONTROL
XWD qsyPP,2020; [,PP] PRINT-PUNCH PROTECTION SETTING
XWD qsyPQ,2021; [,PQ] PRINT-PUNCH QUANTITY DESIRED
XWD qsyPR,2022; [717] PRINT FILE VIA .R PRINT
XWD qsyPS,2023; [740] PRINT U/L CASE VIA S360
XWD qsyQB,2102; [753] QUERY ERROR BITS
XWD qsyQD,2104; [,QD] QUERY DEVICE CHARACTERISTICS
XWD qsyQF,2106; [759] QUERY FUNCTIONS AVAIL. %sy,.../
XWD qsyQP,2120; [754] QUERY STORAGE PROTECTION SETTING
XWD qsyQR,2122; [755] QUERY DIRECTORY FROM WHICH READ
XWD qsyQW,2127; [756] QUERY DIRECTORY IN WHICH WRITE
XWD qsyRB,2202; [,RB] RB DEVICE SELECTION
XWD qsyRD,2204; [,RD] RELEASE DEVICE
XWD qsyRF,2206; [750] RF DEVICE SELECTION
XWD qsySD,2304; [,SD] SELECT DEVICE FOR OD/ID SYS.
XWD qsySF,2306; [749] SF DEVICE SELECTION
XWD qsySN,2316; [736] SET CHARACTER TO MARK S/N
XWD qsySO,2317; [,SO] SIXBIT TO OCTAL CONV.
XWD qsyTC,2403; [,TC] TEMPCORE
XWD qsyWF,2706; [751] WF DEVICE SELECTION
XWD FR,0
;
;;[QSDL]
QSDL:
XWD qsdDI,0411; [737] INPUT FILE SPECIFIED
XWD qsdDO,0417; [738] OUTPUT DISK FILE SPECIFIED
XWD qsdQF,2106; [,QF] QUERY FUNCTIONS AVAIL. %sd,.../
XWD qsdT,2400; [ ,T] S/D TERMINAL
XWD FR,0