Trailing-Edge
-
PDP-10 Archives
-
BB-R775A-BM
-
sources/dil.vax-olb
There are 2 other files named dil.vax-olb in the archive. Click here to see a list.
%X-11 LibrarianV03-00 x ! $ 2 p W DCBDMPW DCBINPW DCFDMP8 d DIL$$RETURNKLUDGE8 d DIL$$USRINTRFCHAND8 d DIL$INIT
IL$KVERSION 2 DIT$NFACC] DIT$NFCLS] DIT$NFGND] DIT$NFINF] DIT$NFINT] DIT$NFOP8] DIT$NFOPA] DIT$NFOPB] DIT$NFOPP] DIT$NFRCI] DIT$NFRCV] DIT$NFREJ] DIT$NFSNDu f
DIT$RCLOSEDIT$RDIRu f DIT$RDIRSu f DIT$ROPENu f
DIT$RPRINTu f DIT$RREADu f DIT$RRENMu fDIT$RSUBu f
DIT$RWRITE u fDAPPER
DILHST8 d DILINT zDIT 2 DITHST DIXW DDIXDEBE 8DIXFBNJ DIXFPU vDIXGBL9 <DIXGEN DIXHST; @ DIXSTRO DIXUTL4 POSFB5 6 POSFP6 J POSGEN3 POSSTR] TTT O DIX$AT_MAX_DT_COD6 J
DIX$BY_DET6 J DIX$BY_DIX_DESW D
DIX$GGDDEBUGU vDIX$K DT ASCII 7U vDIX$KDTASCII8U vDIX$KDTASCIZU vDIX$KDTDFLOATU vDIX$KDTEBCDIC8U vDIX$KDTEBCDIC9U vDIX$KDTFLOAT36U vDIX$KDTFLOAT72U vDIX$KDTFFLOATU vDIX$KDTGFLOATU vDIX$KDTGFLOAT72U vDIX$KDTHFLOATU vDIX$KDTSBF128U vDIX$KDTSBF36U vDIX$KDTSBF48U vDIX$KDTSBF64U vDIX$KDTSBF72U v
DIT$RCLOSE
DIT$RWRITE
DIT$$NODATAAVAILABLE
DIX$$CON FP DIX$$DESBYDET DIX$AGSYSBPUNIT DIX$KDTSBF128
DIX$$TRUNC XIDMP O DIX$$FETCH BITSO U vDIX$KDTSBFVARU vDIX$KDTSIXBITU vDIX$KDTUBF16U vDIX$KDTUBF32U v
DIX$ALIGN
DIX$_FMTLOST
DIX$_GRAPHIC DIX$_IMPOSSIBLE DIX$_INVALCHAR DIX$_INVBYTSIZ DIX$_INVDATTYP DIX$_INVLNG
DIX$INVSCAL
DIX$_ROUNDED DIX$_TOOBIG
DIX$KTRUNC DXIDMP U vDIX$K DT SBF16U vDIX$K DT SBF32U vDIX$K DT SBF36U vDIX$K DT SBF48U vDIX$K DT SBF64U vDIX$K DT SBF72U v J DIX$$CONFPCF9 <
DIX$$CON_GEN; @
DIX$$CONCSTRE 8DIX$$CONNXICFBO DIX$$COPYDSTRUCTUREO DIX$$DESOBYEDET w zDIT$ABORTREJECT zDIT$ABREJEVENT z
DIT$_OVERRUN z
DIT$_TOOMANY zDIT$_UNSFILETYPEO DIX$$BIT_OFFSET
DIX$$UNIMP DIX$FUNKARGTYP DIX$ UNKSYS DIX$YUNNORM YPINTW DTYPNELW DXIDMP { O DIX$$CHECKDFFDO DIX$$CHECK$TYPEJ DIX$$CONDCF$FPE 8GH z
DIT$_OVERRUN z
DIT$_TOOMANY zDIT$_UNSFILETYPEO DIX$$BIT_OFFSET u fDIT$RDELu fDIT$RDIRu f DIT$RDIRSu f DIT$ROPENu f
DIT$RPRINTu f DIT$RREADu f DIT$RRENMu fDIT$RSUBu f
DIT$RWRITE ! " # $ % & ' ( ) * + , - . / 0 1 2
4 1 @ 1.0(73) 6 POSSTR1.0(73)11-Mar-1983 16:5711-Mar-1983 16:57 VAX-11 Bliss-32 V3-713"
DIX$$CON_STR
DIX$XCVST s P ~ m}~
DIX$$CON_STRP DIL$$RETURN_KLUDGE ЬPРP^}~ DIL$$USR_INTRFC_HAND ; $OWN$ $OWN$ ; $CODE$ 5 $CODE$; w w 1 s 1.0(73) 5 POSFB1.0(73)11-Mar-1983 16:5711-Mar-1983 16:57 VAX-11 Bliss-32 V3-713!
POSFB DIX$XCVFB P; IL$$RETURNKLUDGE
DIX$XCVFBt P ~ m}~ ЬPРP^}~ DIL$$USRINTRFCHAND ; $OWN$ $OWN$ 6 ; $CODE$ $CODE$; w w 1 ` 1.0(73) 5 POSFP1.0(73)11-Mar-1983 16:5711-Mar-1983 16:57 VAX-11 Bliss-32 V3-713!
POSFP DIX$XCVFP P; IL$$RETURNKLUDGE DIX$$CONFP
DIX$XCVFPr P ~ m}~ DIX$$CON_FPP DIL$$RETURN_KLUDGE ЬPРP^}~ DIL$$USR_INTRFC_HAND ; $OWN$
7 $OWN$ ; $CODE$ $CODE$; w w 1 V 1.0(73) 6 POSGEN1.0(73)11-Mar-1983 16:5711-Mar-1983 16:57 VAX-11 Bliss-32 V3-713(
DIX$$CON_GEN DIL$$RETURN_KLUDGE DIX$$DES_BY_DET
DIX$MAK_DES_DET P ~+ mݼ$ݼ ݼ ݼݼݼݼ
}~ DIX$$DES_BY_DETP DIL$$RETURN_KLUDGE ЬPР 8 P^}~ DIL$$USR_INTRFC_HAND P P
DIX$BY_DET
P
DIX$BY_DET
DIX$$DES_BY_DETS^~d mݼ ݼ ݼݼݼݼ
ݼݬ0 cPRR$ݼ@ݼ<ݼ8ݼ4ݼ0ݼ,ݼ(ݬ$$ cPRRR
DIX$$CON_GENP DIL$$RETURN_KLUDGE ЬPРP^}~ DIL$$USR_INTRFC_HAND! DIX$BY_DIX_DES
DIX$BY_DIX_DES o ~ m}~
DIX$$CONIGENP DIL$$RETURNNKLUDGE ЬPРP^}~ DIL$$USRINTRFCHAND ; 9 $OWN$ $OWN$ $CODE$ $CODE$ w w 1 ' 1.0(73) 6 DILINT1.0(73)11-Mar-1983 16:5811-Mar-1983 16:58 VAX-11 Bliss-32 V3-713+
DIL$$RETURNKLUDGE R P RbЬ բ բ#P
QQ
PPЬP& K KDIL$$USR_INTRFC_HAND!
K : DIL$$USR_INTRFC_HAND @ R
PЬ
Qb bb|~
SYS$UNWIND б``P 5 DIL$INIT
DIL$INIT . RlЬblЬ
lЬ +
SYS$UNWIND $OWN$ $OWN$ $CODE$ $CODE$ w w 1 ; 1.0(34) 6 DIXGEN1.0(34)19-May-1983 21:1319-May-1983 21:13 VAX-11 Bliss-32 V3-713%
DIX$$CON_GEN [ P
DIX$$CON_STR ;
' CONFBIN
' DIX$$CON FP P E PFFD
DIX$$CON_STR DIX$$DES_BY_DET DIX$$PORT_HAND DIL$$RETURN_KLUDGE
DIX$_UNIMP
DIX$$CON_GEN P DIX$$CHECK_FFD T~? mЬSSdЬRRd PP QQP@PЏ
DIX$_UNIMPPRS` ЬPРP^}~ DIX$$PORT_HAND k $OWN$ $OWN$ $ $PLIT$ $PLIT$$
< k $CODE$ $CODE$k w w 1 @RI 1.0(34) 6 DIXSTR1.0(34)19-May-1983 21:1419-May-1983 21:14 VAX-11 Bliss-32 V3-713;
DIX$$CON_STR
GET_SRC_SI P
\ !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<< = = =>>??@@AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ[[\\]]^^``aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz{ {||}}~~ '! '" '# '$ '% '& '' '( ') '* '+ ', '- '. '/ '0 '1 '2 '3 '4 > '5 '6 '7 '8 '9 ':< ; '< '= '> '? '@ ABCDEFGHI J
K L
MOPQRSTUVWXYZ[\ ] ^ ' '! '" '# '$ '% '& '' '( ') '* '+ ', '- '. '/ '0 '1 '2 '3 '4 '5 '6 ? '7 '8 '9 ': '; '< '= '> '? '! '" '# '$ '% '& '' '( ') '* '+ ', '- '. '/ '0 '1 '2 '3 '4 '5 '6 '7 '8 '9 ': '; '= ' '/ ' ' '%
' ' ' '@ 'Z ' '{ '[
l 'P} 'M '] '\ 'N 'k '` 'Ka ' ' ' ' ' ' ' ' ' ' 'z '^ 'L '~ 'n 'o | ' ' ' ' ' ' ' ' ' '.<(+| & ' A ' ' ' ' ' ' ' '!$*); 'm-y/ ' ' ' ' ' ' ' '|,%_>? ' ' ' ' ' ' ' ' '`:#@j'=" 'a 'b 'c 'd 'e 'f 'g 'h 'i 'j 'k 'l B 'm 'n 'o 'p 'q 'r '~ 's 't 'u 'v 'w 'x 'y 'z '[ > ']
'{ 'A 'B 'C 'D 'E 'F 'G 'H 'I '} 'J 'K 'L 'M 'N 'O 'P 'Q 'R '\ 'S 'T 'U 'V 'W 'X 'Y 'Z C '0 '1 '2 '3 '4 '5 '6 '7 '8 '9Q ' ' \ \ \@@?} < P
-T `~ D ~bfPS `~ ~bfPS TT}R
ЬQP@ SRaPC
RRPPaaPC RRPPaaPC RRPP aCCPaPP
PUT_SI_DST | DIX$$STUFF_BITS VЬSЬRP@ DIX$ADTT_ST U eTT
<Q<QQѼ
Qc@ QЬQATL~ e~ ~bfcPdQQPPccPdQQPPccPdQQPPc @暞~ e~ ~bfcR
E DST CLEANUPs < R<USЬT2cP@~@ DIX$ADTTST ~ c~b DIX$$STUFFBITS R
DIX$_GRAPHIC
DIX$FMTLOST
DIX$_TRUNC
DIX$$CON_STR DIX$$CHECK_FFD XW DIX$$COPY_STRUCTURE VU ^Ԯ m|~PQԀPQݬhݬhݬf
ݬf P@g SP@g RS$ePTݮT
R Џ DIX$_INVALCHARP F Џ
DIX$_GRAPHICPЏ
DIX$FMTLOSTPЏ
DIX$_TRUNCPP ЬPРP^}~ DIX$$PORT_HAND
$OWN$ $OWN$
$PLIT$ $PLIT$ ' $CODE$% $CODE$' RS S w w 1 [ 1.0(34) 6 DIXFBN1.0(34)19-May-1983 21:1819-May-1983 21:18 VAX-11 Bliss-32 V3-713
RP@ QĬQRQS@
S SRPRPP 4 oXDIVE
ԼPRxQB SQSǬSQB
Q QPzS ~{QQQR ! C DIX$$CON_FB_CB
DIX$_UNIMP DIX$$BIT_OFFSET Y^UW|RЬTP
P@ ADTTFBIN ОXBh1 Bh
PBQ H @adiBV1 UQVPPQQPî
QPQQPPQ
QPPUQWQ
Ѯ
Ԯ
QUU WCWSUQV PBQ@adi b VUQVUQWWCSPV@PSU
DIX$_UNIMP
LIB$SIGNAL R1UWCSP@P! , DIX$$CON_CB_XI ^WUЬT
T VVЬR@
T`Pn0QnQQWWbxUSSQzS ~{SSnSBUPSxSQQPzQ ~{QQ QB&SV ! pDIX$$CON_XI_CB " DIX$_TOOBIG
DIX$_ROUNDED Џ I DIX$_TOOBIG[
LIB$SIGNAL ZYЬR2bP¬PPPPPWpS xSQQPzQ ~{QQQBTYSUS:xSQQPBTzQ ~{PPPdQUQVV QQPdUVPd&SЬ
SP@cPTW&XTxXQQPzQ ~{QQQBUPUPPTT+P@c Q
QUQV@cV VUPU[jXXW2bTTTTVS
SϡP[jTV铣[jSDYЏ
DIX$ROUNDEDPP! [ DIX$$CONCBFB
P@ ADTTFBIN ОYЬVBf ZEi J 1 Ei
PEQ@ad DIX$$BIT_OFFSET EW1 XQWPPQQPî
QPQQPPSXSZPP
SSXX
RBf ZX
Cݮ DIX$$BITOFFSET SW[ PEQ@ad DIX$$BITOFFSET PP
DIX$_UNIMP
LIB$SIGNAL U1TT[
LIB$SIGNAL TTXQXQZPPT
LIB$SIGNAL R! ] (DIX$$CON_FB_XI
( DIX$$CON_FB_XI % ^^ЬRRxݬ K ϔ ! # KDIX$$CON_XI_FB
K
DIX$$CON_XI_FB -
^^ЬR2~ݬPSS
RYSP + v
v
IX$$CONFBINs
DIX$$CHECK_FFD S ^Ԯ' mЬRRcݬcn@ݬ ЬPРP^}~ DIX$$PORT_HAND W
LIB$SIGNAL $OWN$ $OWN$ $CODE$ $CODE$ w w 1 @m 1.0(34) 5 DIXFP1.0(34)19-May-1983 L 21:1819-May-1983 21:18 VAX-11 Bliss-32 V3-713%
DIXFP P T FP DIX$$BITOFFSET DIX$$CHECKFFD DIX$$PORTHAND DIX$$STUFFBITS DIX$$FETCHBITS PP PTzP ~{ PPP UЬQDVUVXTPRP R@VRVYWR$@VR RVSRSRRW @WPYW XUYRWOxUUPU@R RU R@UPU(XP@Vx XUxVRRU@ VXTP֡RYRPWPRP! M DIX$$CONFPCF + DIX$UNNORM
DIX$$CON_FP_CF (^S YԮXЬTVF DIX$ADTT_FP ОЬRbWgHUe1e 7 n $$ PQ@ad DIX$$BIT_OFFSET $ PPPb4 PQ@ad DIX$$BIT_OFFSET ~ݮ ݮ DIX$$FETCH_BITS Pgn1
d PQQP ѠЮ[ծ
gQЮ
PPQQPPUU ~[ DIX$$BIT_OFFSET UYQZUݮЮ[[ DIX$$FETCH_BITS PZUUYЮCSԮ YU
YX1Y ЮCSP@P~F DIX$AD N TTFP3 P` R gbQA QbSbG<PgPgTs P@?QTQ QT Q@P gbbQAQ<QQgbѢ
LIB$SIGNAL ! DIX$$CON_CF_FP P DIX$_IMPOSSIBLE DIX$_TOOBIG
DIX$_ROUNDED
DIX$$CONLCFFP ^ЬUS~C DIX$ADTTFP3 T~ЬRRPnd D bF bC<P¢PTP@?QTQ QT Q@Pb}b<PPVC DIX$ADTTFP ОT WD[FSc1*c M O PQ@ae DIX$$BITOFFSET b PP
LIB$SIGNAL P WТXPP PYYPXQ
LIB$SIGNAL 韮 PQ@ae DIX$$BIT_OFFSET X~ݮ ݮ DIX$$STUFF_BITS W{Ze PQQP
}X ZYQZPPQQPPS
SY~X DIX$$BIT_OFFSET SWQQQS[~SЮYYЮXX DIX$$STUFF_BITS SW
TD[ WSZV1nЏ
DIX$_ROUNDEDPP DIX$$CON_FP
DIX$$CON_FPo DIX P $$CHECK_FFD R ^Ԯ# mݬbݬb^ݬݬ ЬPРP^}~ DIX$$PORT_HAND S
LIB$SIGNAL $OWN$ $OWN$ $CODE$ $CODE$ w w 1 3} 1.0(34) 6 DIXUTL1.0(34)19-May-1983 21:1219-May-1983 21:12 VAX-11 Bliss-32 V3-713'
DIX$ATMAXDTCOD P '
DIX$AG_SYS_BPUNIT '$ Q
DIX$ADTT_ST 'G ' 'G ' 'I 'FQ # # / / ? ? # #
TTFBIN '8 'D 'P '\ 'h 't ' ' ' $ ' ' ' R ' $ Q / ? # "# / ? "# / ? O o
, DIX$ADTT-FPm 'p 8 > 5 ; @q P
DIX$$PORT_HAND > P R
PЬ
Qb b|~
SYS$UNWIND б``P% / /DIX$$COPYSTRUCTURE
/ DIX$$COPY_STRUCTURE# Ь
RЬP@QQЬPЀPQ ! ! PDIX$$FETCH_BITS
P | DIX$$FETCH_BITS@ | PЬVЬUЬ
SU RSQQRRQQTS
RUTQQRTPTSVUS" > DIX$$STUFF_BITS
< DIX$$STUFF_BITS? < ЬUЬTЬ
RT QRPPQQPPSR
QQSPPTSSRUTR " = DIX$$BIT_OFFSET
DIX$$BIT_OFFSET3 Ь
ЬQЬaaa
aPP
za ~{PPPa ' 1 DIX$$CHECK_ALIGNMENT
DIX$ T ALIGNS RR
P@ լ
DIX$_ALIGN
LIB$SIGNAL " < 8DIX$$CHECK_TYPE` DIX$_INVDATTYP DIX$_UNKSYS DIX$_INVLNG
DIX$_INVSCAL
8 DIX$$CHECK_TYPE Џ DIX$_INVDATTYPWЏ DIX$_INVLNGV U
LIB$SIGNAL T SSWdR CePRPWdլѬ ݏ DIX$_UNKSYSdS S B Zլ
UVN
RB Sc
Vd B լ
Vdլ ݏ
DIX$_INVSCALd ! U DIX$$CHECK_FFD
DIX$$CHECK_FFD 9 ЬR2~<~
~
~ ~
~
~ " 7 7DIX$$DES_BY_DET/ DIX$_INVBYTSIZ
7 DIX$$DES_BY_DET
LIB$SIGNAL XW} ~Ь
RRݬ ЬSSBg ݏ DIX$_INVBYTSIZhR ݏ DIX$_UNKSYShPV:ŬSPPV.BgQSQPSQUUTQTTPQz ~{UPPSPPQQVЬSVP@cQzV ~{PPP azV ~{BgPPPa $
aRaa~R
| RDES | VЬRUePeQA
SP 5 eTTS @fQxQPTPTQeTSTePSPPeeQSQzQ ~{@fQQQeST ePPTbTTQQbzT ~{QQQ e -
LIB$SIGNAL
SYS$UNWIND $OWN$ $OWN$ l $PLIT$ $PLIT$l $CODE$ $CODE$ w w 1 @Ş 1.0(34) 6 DIXGBL1.0(34)19-May-1983 21:1919-May-1983 21:19 VAX-11XBliss-32FV3-713 W KDTSBF48 DIX$KDTSBF64 DIX$KDTSBF72
DIX$K_DT_UBF16 DIX$K_DT_UBF32
$KDTUBF8
X IX$KSDTNUBFVAR DIX$KDT D FLOAT DIX$K DT F.FLOAT DIX$KDT FLOAT 36 DIX$K1DTFLOAT72 DIX$KDTGFLOAT DIX$KDTGFLOAT72 DIX$KDTHFLOAT
û 1.0(34) 6 DIXDEB1.0(34)19-May-1983 21:1919-May-1983 21:19 VAX-11 Bliss-32 V3-713
SYS$TRNLOG
SYS$ASSIGN P
LIB$SIGNAL S(^ 뚏 n$|~~,0
SYS$TRNLOG PRRRcn $|~ ,
SYS$ASSIGN PRRRc i i TTY_PUT_MSG SYS$QIOWJ |~|~}~|~}0~ ~
SYS$QIOW P P
LIB$SIGNAL 6
TTY_GET_LINE SYS$QIOWT ^ P|~|~}~|~ 1 ~
SYS$QIOW P P
LIB$SIGNAL <P @
ЬSPQ Z PRPRݬf " % TTY_PUT_INTEGER P0123456789ABCDEFP _T0^ЬRSѬ
ЬPPPP(Ь(ԬԮ,{R((P%QSQ@aSծ(լ
%PSP-`Sլ
S
SR
d
RS)PSPd
DIX$GG_DEBUG
P %
TYPINT P }~ݬe
TYPASZ
$P
[ TYPNEL P $ϯ equal to 10? BAS$INPUT
BAS$IN_L_R
BAS$IO_END
TTYGIN Z P ^Ѭ
,(ϖP~ BAS$INPUT ^
BAS$IN_L_R
BAS$IOEND nP 8 tus value:
STSDMP R P RTe
~b
~b
~bde I
Orig Class: Type: U \ nit: Off: Lng: Scl: Align:
< < FFDDMP <P< hU TЬRUdd
Sc~ě
d
c~ě d
c~ě d
bě $d
c~ě ,d
<~ě 4d
2~ě <d
c~ě Dd
CBDMP P
CBDMP1
B ~R 5 (
5XIDMP' PSign: Scale:
Digits:
5 < XIDMP 5P< U ] 'TUd
ЬR ~ě d
2b~ě dd&S
xSQQPzQ ~{QQQB~ě S d }
CBINP PValue for digit :
CBINPN P
ϱSR c
RÛ cB
RBP R C
CFDMP+ PSign = Exp =
Mantissa:
< CFDMPm P< UgTUd
ЬScě d
ݣě d
dR
Bě R d d
LIB$SIGNAL ^ $OWN$ $OWN$
$PLIT$ $PLIT$
Y $CODE$ $CODE$Y $GLOBAL$ $GLOBAL$ w w 1 1.0(62) 3 TTT1.0(62)19-May-1983 21:3719-May-1983 21:37 VAX-11 Bliss-32 V3-713
TTT DIT$NFGND $ P2
DIT$_TOOMANY DIT$_INVARG
DIT$_OVERRUN DIT$_CONN _ ECTEVENT DIT$_ABREJEVENT DIT$_INTDATAEVENT DIT$_DATAEVENT DIT$_DISCONNECTEVENT DIT$_ABORTREJECT DIT$_INTERRUPT DIT$_NOTENOUGH DIT$_NODATAAVAILABLE DIT$_INFONOTAVAIL DIT$_INFOOUTOFRANGE
LIB$GET_EF LIB$ASN_WTH_MBX
SYS$SETAST
SYS$SETAST
SYS$SETAST
SYS$SETASTa
SYS$SETAST
SYS$SETAST
SYS$SETAST
SYS$SETAST
SYS$SETAST
DIT$NFGND P
SYS$SETAST W V 4UЬSc?c:Ѽռ/~gcc ` cŏ cP@e cg DIT$RINVARG 1 Tc/Rŏ RP@eRfPTTRPRPPctcfPTTgѼ c ռTc-Rŏ RP[ @eRfPTTRPRPPcŏ cP@e1KcfPTgT DIL$$RETURNKLUDGE *
@b DIT$TDISCONNECTEVENT DIL$$RE a TURNKLUDGE v
SYS$SETAST
SYS$SETAST
SYS$SETAST SYS$HIBERa
SYS$SETAST T 4SѬ Ѭŏ RBcdBcd SYS$HIBER M DIT$NFOPA P_NET:Q ; SYS$QIOW SYS$QIO SYS$QIO
DIT$NFOPA P SYS$QIO [ Z
LIB$GET_EF Y X
W^Ѽ(ռ( DIT$_INVARG 1Qŏ QP@(QPQPPмTT1 T iPSSWiPSSԧ b TRB(Uee eB Ԟ BǴ B|eB ԞBB
VV<
LIB$ASN_WTH_MBX PSSSI 1 S$$S S$ S| Sl Th
DIT$_TOOMANY 1S |SD xS oS fS ]S TSt KS| BS 9S 0S 'S S S
S 1 Th DIT$_ABORTREJECT 1 ݬݬݬ
}~ݬB,$ B,
Ѽ("|~|~~TZB22f~ݧ
SYS$QIOW |~|~~TZB22f~g
kPSS?SI 6S c $"S S$ S| Sl 11Th3e1=|~|~~B
TN B12~g
kPSS LE DIL$$RETURNKLUDGE DIT$NFOPB PNET:Q ; SYS$QIOW SYS$QIO SYS$QIO
DIT$NFOPB P SYS$QIO [ Z
LIB$GET_EF Y X
W^Ѽ(ռ( DIT$_INVARG 1Qŏ QP@(QPQPPмTT1 T iPSSWiPSSԧŏ TRB(Uee eB Ԟ BǴ B d |eB ԞBB
VV<
LIB$ASN_WTH_MBX PSSSI 1 S$$S S$ S| Sl Th
DIT$_TOOMANY 1zS xS oS fS ]S TSt KS| BS 9S 0S 'S S S
S 1 Th DIT$_ABORTREJECT 1 ݬݬݬ
}~ݬB,$ B,
Ѽ("|~|~~TZB22f~ݧ
SYS$QIOW |~|~~TZB22f~g
kPSS?SI 6S$"S S$ S| Sl 11Th3e1= e |~|~~B
T BF 12~g
kPSS LE DIL$$RETURNKLUDGE ~ DIT$NFOP8 PNET:Q ; SYS$QIOW SYS$QIO SYS$QIO
~ DIT$NFOP8 ~P SYS$QIO [ Z
LIB$GET_EF Y X
W^Ѽ(ռ( DIT$_INVARG 1dQŏ QP@(QPQPPмTT1 T iPSSWiPSSԧŏ TRB(Uee eB Ԟ BǴ B|eB ԞBB
VV<
( LIB$A f SN_WTH_MBX PSSSI 1 S S$ Sl Th
DIT$_TOOMANY 1lS xS oS fS ]S TSt KS| BS 9S 0S 'S S S
S 1 T h DIT$_ABORTREJECT 1 ݬݬݬ
}~ݬB,$ B,
Ѽ("|~|~~TZB22f~ݧ
SYS$QIOW |~|~~TZB22f~g
kPSS1SI (S S$ Sl 11Th3e1K|~|~~B
T B12~g
kPSS / DIL$$RETUR g NKLUDGE &
DIT$NFOPPL 0P_NET:Q 0TASKtask0 _NET PSYS$NETQ \i
XST$BINARY STR$FAILURE SYS$QIOW SYS$QIO
SYS$TRNLOG SYS$QIO
&
DIT$NFOPP &
P<^4Ԯ8} }ݼn ѼռռRѼR DIT$_INVARG 1 Qŏ QP@ 4QPQPPмXX1 X 1
LIB$GET_EF PWW֟
LIB$GET_EF PWW ŏ XVF 4Yiiʏ iF Ԟ F h F |iF ԞR1tF F [[<8 LIB$ASN_WTH_MBX PWWWI 1 W$$W W$ W| Wl X
DIT$_TOOMANY 1W |WD xW oW fW ]W TWt KW| BW 9W 0W 'W W W
W 1 X DIT$_ABORTREJECT 1?( 0$P@0PЬZ-j @$-j D-j H
-j L
0((:0Z STR$FAILURE i ~< ~ $
XST$BINARYP
1|~|~(4|~F 82k~
SYS$QIOW PWW.W W
X 1BW$1tX 1HF <RRṞR űR$|~|~~F X F $12~
SYS$QIO PWWn1 PWW1 F F <T LIB$ASN_WTH_MBX PWW8WI /W$"W W$ W| Wl 11F 8<|~~D~d
SYS$TRNLOG PWW1i|~|~~F X Fa $1F 2~
j SYS$QIO PWW IL$$RETURNKLUDGE m BUILDNCB lP P X^ݬ
hЬV(n
fnW-l 'A"F'ݬh(nFgnW-p ' F'ݬh(nFgnW"F:F:F"Fݬh(nFgnW=Fݬ h(n FgnW/FFFzW ~{PPPFPWPQFaPW"F r
STRING_COUNT & Ь
P@ @P
P $ N <
SYS$SETAST
SYS$SETAST SYS$HIBER
SYS$ k SETAST
SYS$SETAST SЬRRŏ RP@ 4Rb DIT$_INVARG B~cbbbbc SYS$HIBER cbbbb DIT$_ABORTREJECT DIL$$RETURN_KLUDGE z DIT$NFACC. SYS$QIO SYS$QIO
DIT$NFACC [ 4Z^~ԮмY*Y%ŏ YVFjѼռ
XXX DIT$_INVARG 1 PPFFWWVP@ў//zW ~{QQQ@X(X@@X(X@ W|~|~~Y[F2F2~ݪ
SYS$QIO PRR? l Fʰ <
|~|~Fʰd Fʦnn[F1F2~ݪ
SYS$QIO PRR DIL$$RETURNKLUDGE ( 8 DIT$NFRCVm
SYS$SETAST
SYS$SETAST
SYS$SETAST
SYS$SETAST
SYS$SETAST SYS$QIO
8 DIT$NFRCV ^мRR-Ѽռ"мѮŏ VF 4Zj DIT$_INVARG X~
SYS$SETAST jjԼ
SYS$SETAST DIT$_ABORTREJECT 3jjj
SYS$SETAST DIT$_INTERRUPT j1R
SYS$SETAST DIT$_NO m TENOUGH 1dݮjjjj
1?
SYS$SETAST Ь
W j&F XghhgF n(g Nռ [м[g[PQQPF XPhhggYF n(Y xYPP[Pg j S<
h|~|~Xݮ PPnn F 1F 2~
SYS$QIO PRS
DIT$OVERRUN hRaR,FR =R0 4Rt +R| "R R R R 1qR8
D DIT$NFSND" SYS$QIO
D < DIT n $NFSND < 4UѼռмTTŏ TRURSc DIT$_INVARG nc`c\cc cм
Qռ PмPļ
PPPQ|~|~QݬT B0B2~ݥ
SYS$QIO P DIL$$RETURNKLUDGE DIT$NFREJ" SYS$QIO
DIT$NFREJ 8[^~ԮмZ#Z ŏ ZVFYi
XXX DIT$_INVARG 1 i~iz[VWWVP@kў//zW ~{QQQ@X(X@@X(X@ W|~|~~Z F<2~F2~ݫ
SYS$ o QIO P DIL$$RETURNKLUDGE DIT$NFINT" SYS$QIO
< DIT$NFINT < 4UмT Tŏ TRURSc Ѽռ DIT$_INVARG Ic;c7cc|~|~ݬݬ
T B蚏p~B2~ݥ
SYS$QIO P DIL$$RETURNKLUDGE U DIT$NFRCI
U DIT$NFRCI 4WмRRď RWRVf DIT$BINVARG 8ff
f DIL$$RETURN_KLUDGE k DIT$NFCLS= SYS$QIO SYS$QIO
SYS$DASSGN
DIT$NFCLS SYS$QIO W V U^мT`T[ŏ TRBMѼ
Gռ
Bм
nЬռ<|~|~~TVBe<4~BR2b~ݥ
gPSS<S N DIT$_INVARG P|~|~~TVBe<4~BR2b~ݥ
gPSS2b~
SYS$DASSGN PST S / KLUDGE
LINK_CLEANUP ' ŏ QA 4P`A Ԟ " q DIT$NFINF
DIT$NFINF 8YмVVď VFRb DIT$_INVARG ϼ A | Aey DIT$_INFOOUTOFRANGE 1WWVP@iXX:X" XGWW
1|b7WWVP@iXX:WWԼ
WVP@iXX=ּ
PXWb[WWVP@iXX/WzW ~{PPPWW WVP@iXX
12
cbbWWVP@iXX/WzW ~{PPPWWWVP@iXX
WWWVP@iXX
(
@1|bEWWVP@iXX" X:WX:`WԼ
WVP@i r XX ʑX"ּ
PXWb^WWVP@iX X" X:WX:|WWVP@iXX X"X"|WԼ
WVP@iXX |X"wּ
PXWb1 WWVP@iXX" X:WX:iWWVP@iXX X"X"PWWVP@iXX X"X"7WԼ
WVP@iXX"iּ
PXW Fɜ
(
FɎD o DIT$_INFONOTAVAIL >
Fɰ
WЬP
WQQFɰ `
WQQXXQ
QQWXW
W
WWX DIL$$RETURNKLUDGE YWRլ
RPPŏ VFQaOR1 F s iFɰ <gaIa ^a FiFɴ sa sa$la eaD^a FiFɴ &aa|FiFɴ !La$/aFiFɴ na FiFɴ xa 1at FiFɴ ua FiWXXVP@ў/| X|al FiFɴ 9a 1a| FiFɴ aAa FiFɇ '1=a,(FiFɴ WXXVP@ў/k XAa01 a 1 a (FiFɴ &WXXVP@ў/( Xn a i@FiWXXVP@ў/HFɠRzX ~{QQQ@ b bQ(Q@ t Fɒ1 @ b bQ(Q@Fɒz Xpa WFiFɇ 'Xa8RH FiF*a</a@(a *a, a a FiWatWFiW ѩ Fiԩ Fi|~ SYS$WAKE
SYS$CANCEL SYS$QIO SYS$WAKE SYS$QIO [ 4Zh^Xŏ V( F nnWWF <PP2`XFjGnQ(QGFWWVP@QQ/WzW ~{PPPWWWVP@QQRR FʠQQ(Q@Fʒ{P1CFʰ <
|~|~Fʰ FʦQQ~CF1 u F2~ݪ
kPYXFjiP8 XFjq P5"XFjGnP(PGF~GnPP FʌyP31X@FjGnP(PGFʒGnPP FʠF2~
SYS$CANCEL }P0*XFjFʴ GnP(PGFʒGnPP FʠzP4XFjFʴ dP6XFjFʴ 'NP7XFjFʴ 8P: XFj*P9XFjFʴ t P;XFjFʴ |~|~~F ݬF1F2~ݪ
kPYX"Ѫ FjԪFj|~ SYS$WAKE PY M $OWN$ $OWN$ $CODE$ $CODE$
v t $PLIT$ $PLIT$t QQBQRQpQ&QQnQrQ QDQ QQQ Q`QR Q^Q8QQ QPQ*QQ QP ) Q!QQQH* w w 1 1.0(61) 6 DAPPER1.0(61)19-May-1983 21:2619-May-1983 21:26 VAX-11 Bliss-32 V3-713"
DIT$TOOMANY DIT$$INVARG DIT$ NETOPRFAIL E DIT$NOFILE DIT$EOF
DIT$_OVERRUN f DIT$_NOMOREFILES SYS$OPEN
SYS$CREATE
SYS$CREATE SYS$CONNECT
DIT$ROPEN Pм[&[!ռ Ѽ м ZZ м$YY DIT$_INVARG/P@ PPPмXX X
DIT$_TOOMANY1H x ŏ XWG .}~}~ ŏ@ XP@ V, n P fPfX G ., 4(6Z
!
[Y
[ V SYS$OPEN Џ V
SYS$CREATE PYY +Y "Y1 Y1 YY Yi 1 Y 6Y -Y $Y Y Y YJ DIT$YNOFILEMY Y 11 ŏ XP@ W, n D gDgЏ V<[< W SYS$CONNECT PYY JY AY҂ +YD "YL Yć Y< YD 1
HORRIBLE DIL$$RETURNKLUDGE , , DIT$RREAD" SYS$GET
, DIT$RREAD мRR
B DIT$_INVARG1 ŏ RP@ P< Ь$
I P SYS$GET PRR FR z =RQ 4R +R! "R9 RA RI RQ yRz DIT$EOFjR
DIT$_OVERRUNHR҂ -RD $RL Rć R< RD DIT$_NETOPRFAIL
$HORRIBLE DIL$$RETURNKLUDGE & R
DIT$RWRITE # SYS$PUT
R
DIT$RWRITE мRR
B DIT$_INVARG1 ŏ RP@ P< Ь(
" P SYS$PUT PRR =R 4R +RQ "R R { zR qR9 hR DIT$NOFILEYR
$HORRIBLE DIL$$RETURNKLUDGE
^
DIT$RCLOSE % SYS$CLOSE
^
DIT$RCLOSE TмSSмR o 6 @ T ŏ@ RPTP< @Lŏ@ RPTP< F9ŏ@ RP&ŏ@ RPTPQ< @ŏ@ RPTPQ< TP< ŏ@ RP@d SYS$CLOSE PSS | WS
B\ DIL$$RETURN_KLUDGE 0 DIT$RDEL # SYS$ERASE
| DIT$RDEL | \<VH}
~}~ , n P fPf H,LĦ4 V SYS$ERASE PRR 1 R R R RJ DIT$NOFILEMR҂ -RD $RL Rć R< RD DIT$NETOPRFAILkR
$HORRIBLE DIL$$RETURNKLUDGE 8 DIT$RSUB 0 SYS$OPEN SYS$CLOSE
DIT$RSUB W \<VH}
~}~ , n P fPf H,LĦ4 SYS$OPEN PRR R1 RY 1 R $R R R RJ DIT$NOFILE<R҂ -RD $RL Rć R< RD DIT$NETOPRFAILR̄ ?R, ~ 6R -R $R4 RԆ R R DIT$INVARGR w
SYS$RENAME
DIT$RRENM W \<VH}~ݬ
ݬg}~}~g, n P fPf H,LĦ4, n P PPPfo|LƄ P~ V
SYS$RENAME PR R 1 R R R RJ DIT$RNOFILE)R RԆ R R RD DIT$INVARG
$HORRIBLE DIL$$RETURNKLUDGE Z
DIT$RDIRS
| DIT$RDIRSa | <VV}
~}~ , n P P&/f<ƬD DIL$$RETURN_KLUDGE K 0 DIT$RDIR $
SYS$SEARCH
0 DI T$RDIR
<
SYS$SEARCH PRR pR R RJ DIT$_NOFILEORʂ DIT$_NOMOREFILES>R RD DIT$_INVARG$R҂ RD DIT$_NETOPRFAIL
$HORRIBLE DIL$$RETURNKLUDGE
DIT$RPRINT 2 SYS$OPEN SYS$CLOSE
DIT$RPRINT W \<VH}
~}~ , n P fPf H,LĦ4 SYS$OPEN PRR R1 RY 1 R $R R R RJ DIT$NOFILE<R҂ -RD $RL Rć R< RD DIT$NETOPRFAIL`R̄ ?R, 6R -R $R4 RԆ R R DIT$INVARG1 R s
jPGQQ:Q
Q P&WYW&PYG: (W>jWYj |ЬVjVP"`j'ݬkPX(XF Xj
L
GjVP `j'ݬ
kPX(X
F Xj # jVP `j'ݬkPX(XF XjjV"fjYjP:`. :jnnGkPXjP(XG`XjjP` # COUNTEM# ЬQP
RRPЬP ! > $OWN$ $OWN$> $CODE$ $CODE$ QQRge V03.00 n $ABS$ MSGPTR$SECTION MSGPTR$AAAAAAAA MSGPTR$AAAAAAAB MSGPTR$AAAAAAAC DIX$INVBYTSIZ
DIX$_ALIGN j DIX$_INVALCHAR d
DIX$_UNIMP [
DIX$TRUNC P
DIX$_FMTLOST @
DIX$_GRAPHIC <
DIX$_INVSCAL 4 DIX$_INVLNG , DIX$_UNKSYS $ DIX$_UNKARGTYP DIX$_INVDATTYP DIX$_TOOBIG
DIX$ROUNDED e P * P ' P SYS$MESSAGE:DIXMSG w w 1 `8 1.0(61) 3 DIT1.0(61)19-MAY-1983 21:2619-MAY-1983 21:26 VAX-11 Message V03.00 n $ABS$ MSGPTR$SECTION MSGPTR$AAAAAAAA MSGPTR$AAAAAAAB MSGPTR$AAAAAAAC8 DIT$INFOOUTOFRANGE ڄ DIT$INFONOTAVAIL ҄ DIT$NODATAAVAILABLE ʄ DIT$NOTENOUGH DIT$INTERRUPT DIT$ABORTREJECT K DIT$DISCONNECTEVENT C DIT$DATAEVENT ; DIT$INTDATAEVENT 3 DIT$ABREJEVENT + DIT$CONNECTEVENT [ DIT$NOMOREFILES P
DIT$_OVERRUN H DIT$_EOF D DIT$_NOFILE < DIT
$HFILEINUSE 2 DIT$TUNSFILETYPE , $INVARG
DIT$_TOOMANY
$ HORRIBLE e P * P ' P SYS$MESSAGE:DITMSG w w 1 X 1.0(73) 6 DILHST1.0(73)11-Mar-1983 16:5611-Mar-1983 16:56 VAX-11 Bliss-32 V3-713
$OWN$ $OWN$
8 $PLIT$ $PLIT$8 .RAABSN . . ABS . w w 1 =k 1.0(34) 6 DIXHST1.0(34)19-May-1983 21:1219-May-1983 21:12 VAX-11 Bliss-32 V3-713
$OWN$ $OWN$
8 $PLIT$ $PLIT$8 .RAA BS,. . ABS . w w 1 x 1.0(63) 6 DITHST1.0(63)19-May-1983 21:5019-May-1983 21:50 VAX-11 Bliss-32 V3-713