Trailing-Edge
-
PDP-10 Archives
-
BB-H506E-SM
-
cobol/build/comuni.unv
There are 15 other files named comuni.unv in the archive. Click here to see a list.
x
,5 $@ P C;u P E' P E2\I@ 9x3RaP
IFNB <:(A>,<A::>
BLOCK B
:>
BLOCK 6 1 E2\I[ ;3ca`
IFNB <;8A>,<A::>
IFN ;XB,<IFB <C>,<BLOC;xK B>
IFNB< <C>,<REPEAT B,<8<
C>>
>
C>>
> 6 3T 1 G3YQ @ G3[Q G>l: Wx5S
IFG A-XCOMSIZ,<
XXX.==X8A-COMSIZ
DEFIXXNE PEXCS(OVRFLO),Xx<
PRINTX ?COMSIYZ EXCEEDED BY 'OVY8RFLO (OCTAL) WORDYXS - REGENERATE THYxE COMPILER
Z>
PEXCS(\XXX.)
>Z8;END IFG A-COMSI Z
IFG A-COMSIG>n:=P pI
n0 P I4.: |X09
IFNDEF|x .BITST,< .BITST=}=0> ;START AT 0
}8
IF1,< ;ALL TH}XIS STUFF HAPPENS }xONLY IN PASS 1
~
;ERROR CHECKS
I~8FDEF YA,< PRINTX~X ?A ALREADY DEFI~xNED WITH DEFBYT
>
IFG <.BITST8+B-^D36>,< PRINTXX ?DEFBYT: A DOExS NOT FIT IN WORD >
; END OF ERROR 8 CHECKS
;DEFIN XE YA TO BE THE W xORD C
YA==C
DFENDP==B+.B8ITST-1 ;END POSITXION
;COMPUTE FxLAGS
DFBF==DFB.BT ;ASSUME BYTE 8INSTRUCTION NEEDEXD
IFE B-^D36,<
DFBF==DFB.FW> ;FULL WORD
IFE B8-^D18,<
IFE DFEXNDP-^D17,<
DFBFx==DFB.LH> ;LEFT HALF-WORD INSTRUC8TION NEEDED
IFEX DFENDP-^D35,<
xDFBF==DFB.RH> ;RIGHT HALF-WORD IN8STRUCTION NEEDED
>
XA==<DFBxF>B21+B,,DFENDP
.BITST==B+.B8ITST
IFE <.BITXST-^D36>,<.BITST=x=0> ;.BITST IS NEW STARTING POSITI ON
>;END IF1
IhZP Ii[P IkP IlTP I' IX4]
ADR==HIIx.PUR
DEFINE DIJSEL% (N%) <
N%=J8:ADR
ADR==ADRJX+1
>
DEFINE DJxSTBL% (NAM,IR) <DKISEL% (NAM)>
K8DISTB%
PUKXRGE DISEL%,DSTBL% ,ADR
L%,DSTBL%I' HB >X/a
DISEL>x% C.RSET
DISEL%? STOPR.
DISEL% ?8C.STOP
DISEL% K?XILL.
DISEL% GOT?xO.
DISEL% TODAY@.
DISEL% KDECL.@8
DISEL% KPROG.
DISEL% DSP.FP
@x DISEL% LINE.C
ADISEL% LINE.D
DA8ISEL% LINE.H
DIAXSEL% LIN.RH
DISAxEL% CANCL.
IFN ABNS74,<
DISEL% SB8.CALL
>
DISEL%BX M.INIT
DISEL% BxM.RMW
DISEL% M.CRSW
DISEL% M.RMC8NW
DISEL% M.RSNCXW
DISEL% M.SENDCx
DISEL% M.AC
DDISEL% M.IFM
DID8SEL% M.DI
DISELDX% M.DIT
DISEL% DxM.DO
DISEL% M.EEI
DISEL% M.EIT
DISEL% M.EO
DEXISEL% STR.
DISEExL% STR.O
DISEL%F UNS.
DISEL% UNF8S.O
DISEL% FUNCFXT.
DISEL% FIX.
DISEL% PERF.
GDISEL% FLOT.1
DG8ISEL% FLOT.2
DIGXSEL% PD6.
DISELGx% PD7.
DISEL% GHD6.
DISEL% GD7.H8
DISEL% NEG.
HXDISEL% MAG.
DISHxEL% ADD.12
DISEIL% ADD.21
DISELI8% ADD.22
DISEL%IX SUB.12
DISEL% IxSUB.21
DISEL% SJUB.22
DISEL% MUJ8L.12
DISEL% MULJX.21
DISEL% MUL.Jx22
DISEL% DIV.1K1
DISEL% DIV.12K8
DISEL% DIV.21
DISEL% DIV.22
Kx DISEL% C.OPEN
LDISEL% C.CLOS
DL8ISEL% DSPLY.
DILXSEL% ACEPT.
DISLxEL% READ.
DISELM% WRITE.
DISEL%M8 WADV.
IFN ANS68MX,<DISEL% SEEK.>
MxIFN ANS74,<DISEL%N RDNXT.>
DISEL%N8 DELET.
DISEL% NXRERIT.
DISEL% PNxURGE.
DISEL% INOIT.
DISEL% TERMO8.
DISEL% COMP.
DISEL% CMP.76
Ox DISEL% SPAC.6
PDISEL% NUM.6
DIP8SEL% ALF.6
DISEPXL% ZERO.6
DISELPx% POS.6
DISEL% QNEG.6
DISEL% SPQ8AC.7
DISEL% NUMQX.7
DISEL% ALF.7Qx
DISEL% ZERO.7
DISEL% POS.7
R8DISEL% NEG.7
DIRXSEL% COMP.D
DISRxEL% DBMS.
DISELS% MOVE.
DISEL% S8LFENQ.
DISEL% LSXRENQ.
DISEL% LRSxDEQ.
DISEL% C.DT6D7
DISEL% C.D7T8D6
DISEL% CMP.ETX
DISEL% CMP.G
Tx DISEL% CMP.GE
UDISEL% CMP.L
DIU8SEL% CMP.LE
DISUXEL% CMP.N
DISELUx% EDIT.S
DISEL%V EDIT.U
IFN ANS6V88,<
DISEL% EXAMVX.
>
IFN ANS74,<Vx
DISEL% INSP.
W>
DISEL% SUBSC.W8
DISEL% SIZE.1
DISEL% SIZE.2
Wx DISEL% SIZE.3
XDISEL% E.C3C1
DX8ISEL% E.C3C3
DIXXSEL% OVLAY.
DISXxEL% C.EXIT
DISEYL% ARGS.
DISEL%Y8 PUTF.
DISEL% RYXESF.
DISEL% GETYxNM.
DISEL% ILLCZ.
DISEL% C.D6D9Z8
DISEL% C.D7D9
DISEL% C.D9D6
Zx DISEL% C.D9D7
[DISEL% PC3.
DIS[8EL% PD9.
DISEL%[X GC3.
DISEL% GD[x9.
DISEL% POS.9\
DISEL% NEG.9
\8 DISEL% ZERO.9
\XDISEL% ALF.9
DI\xSEL% NUM.9
DISE]L% ALF.9
DISEL%]8 SPAC.9
DISEL% ]XCMP.96
DISEL% C]xMP.97
DISEL% ED^IT.B
DISEL% RST^8AB.
DISEL% ZERC^X.6
DISEL% ZERC.^x7
DISEL% ZERC.9_
IFN ANS74,<
D_8ISEL% C.STRT
DI_XSEL% DATE.
DISE_xL% DAY.
DISEL% `TIME.
>
DSTB`8L% USRTB.,15
`X
DISEL% DSPL.6`x
DISEL% DSPL.7
DISEL% SUBE1.a8
DISEL% SUBE2.
DISEL% SUBE3.
ax DISEL% EXIT.E
IbFN BIS,<
DISEL%b8 XTND.E
DISEL% bXALP.66
DISEL% AbxLP.67
DISEL% ALcP.69
DISEL% ALPc8.76
DISEL% ALP.cX77
DISEL% ALP.7cx9
DISEL% ALP.96d
DISEL% ALP.97
DISEL% ALP.99
dX DISEL% ALPS.6
dxDISEL% ALPS.7
DeISEL% ALPS.9
DIe8SEL% NUM.66
DISeXEL% NUM.67
DISEexL% NUM.69
DISELf% NUM.76
DISEL%f8 NUM.77
DISEL% fXNUM.79
DISEL% NfxUM.96
DISEL% NUgM.97
DISEL% NUMg8.99
DISEL% CVTDgXB.
DISEL% CBDOVgx.
DISEL% CVBD.6h
DISEL% CVBD.7
DISEL% CVBD.9
hX DISEL% MUL.41
hxDISEL% MUL.42
DiISEL% DIV.41
DIi8SEL% DIV.42
DISiXEL% DVI41.
DISEixL% DVI42.
>;END jIFN BIS
DISEL% j8KEY.
IFN TOPS20,jX<
DISEL% PSORT.jx
DISEL% PMERG.
DISEL% RELES.
k8 DISEL% MERGE.
kXDISEL% MCLOS.
DkxISEL% RETRN.
DIlSEL% ENDS.
>
l8
IFN BIS,<
DISlXEL% ADD.4R
>;ENDlx IFN BIS
IFN TCSm,<
DISEL% MBINDm8
DISEL% MNAME
mX>
DISEL% MVD.ALmx
DISEL% NUM.3
n DISEL% WADVV.
n8DISEL% WRITV.
nX
DISEL% METER.
IFN BIS,< ;[55o4] QUAD-WORD SIZEo8 ERROR ROUTINES
oX DISEL% SIZE.4
oxDISEL% SIZE.5
>;pEND IFN BIS ;[5p854]
DISEL% FLT.pX12
DISEL% FLT.2px2
DISEL% FIX.2
DISEL% E.F2D1
q8 DISEL% E.F2D2
qXDISEL% E.F2FP
DqxISEL% E.F2F2
DIrSEL% PPOT4.
DISr8EL% ISBPS.
DISErXL% MROUT.
;[rx621] (MUST BE PREsSENT IN ALL FLAVOs8RS OF LIBOL)
;V1sX2B RMS ENTRY POINsxTS
IFN ANS74,<
t DISEL% OP.MIX
t8DISEL% CL.MIX
DtXISEL% WT.MIR
DItxSEL% WT.MIS
DISuEL% RD.MIR
DISEu8L% RD.MIS
DISELuX% DL.MIR
DISEL%ux DL.MIS
DISEL% vRW.MIR
DISEL% Rv8W.MIS
DISEL% STvX.MEQ
DISEL% ST.vxMGT
DISEL% ST.MwNL
>;END IFN ANSw874
DISEL% %STwXR.
DISEL% %STR.wxO
DISEL% %UNS.
DISEL% %UNS.O
x8IFN ANS74,<
DISxXEL% SWT.ON
DISExxL% SWT.OF
DISELy% CMP.67
DISEL%y8 CMP.69
DISEL% yXCMP.79
DISEL% CyxOMP.6
DISEL% COzMP.7
DISEL% COMz8P.9
DISEL% SU.SzX69
DISEL% SU.S7zx9
DISEL% SU.S97{
>
IFN ANS74,<
IFN BIS,<
DISE{XL% CVDBT.
DISEL{x% CVDBL.
>;END I|FN BIS
>;END IFN ANS74
D IFNK:$IH X0{
PRINTX %x ENDDFB: THERE ARE A BITS STILL U8NASSIGNED BY "DEF BYT"
D BY "DEFK:$IQ 80q
IF1,<
I XFN .BITST,<
.BI xTLFT==^D36-.BITST
;COMPUTE # OF FR
8EE BITS
RADIX 1
X0 ;MAKE IT COME
xOUT IN DECIMAL.
ENDDF1U(\.BITLFT
RA 8 ;BACK TO OCTAL
>
>;END I F1
>
>;END IM&t.:
0W
IF1,<
8.BITST==0 ; Reset
X bit position to
x0
>; END if1
>; END if1
M'Ek0P M'Em6P 8 Q$u|SP & Q$v
DEFIFXNE SYMH%% (N%,V) Fx<N%==:0>
DEFINGE SYML%% (N%,V) <G8SYM%% N%,V>
DEGXFINE ELMT%% (N%,LGx<1>,V) <BLKDFV N%H,L,<V>>
RELOH8C 0
CHK==.
HX%LOSEG
COMCHKHx .-CHK
PURGIE SYML%%,SYMH%%,E LMT%%
SYMH%%,ES:4*b "h":
ELMT%% #FILES.
ELMT%% U#(SES.
ELMT%% SEG#HWD.
ELMT%% ALTE#hR.
ELMT%% OVRFN$.
ELMT%% POINT.$(
ELMT%% COMMA.
ELMT%% MONEY.
$h ELMT%% MEMRY.
%ELMT%% %NM.
ELM%(T%% %DT.
ELMT%%%H %PR.
ELMT%% CO%hBVR.
ELMT%% COB&SW.
ELMT%% PUSH&(L.
ELMT%% SURRT&H.
ELMT%% SUEQT.&h
ELMT%% SUFBT.
IFN ANS74,<
E'(LMT%% %DB.
>
MT%% %DB.
>
S:5 Zx5k
INC==0 [
DEFINE ELMT%%[8 (N%,L<1>,V) <
[XIFNB <N%>,<%'N%==[x:INC>
INC==INC+\1
>
DEFINE SY\8ML%% (N%,L<1>,V) \X<
IFNB <N%>,<%'\xN%==:INC>
>
I]NFBK%
PURGE E]8LMT%%,SYML%%,INC
,SYML%%,INC+q
ELMT%% X8UEBLK.,4
ELMT%%XX ULBLK.,4
ELMT%Xx% TTOBP.,1
ELMTY%% TTOBC.,1
ELMY8T%% TTOBF.,^D27
YX ELMT%% STDLB.,16Yx
ELMT%% RRFLGZ.,1
ELMT%% REDMZ8P.,1
ELMT%% SHRZXDX.,1
ELMT%% TEZxMP.,1
ELMT%% TE[MP.1,1
ELMT%% J[8SARR.,1
ELMT%% [XTEMP.2,1
ELMT%%[x AINFO.,1
ELMT%\% OVRBF.,3
ELMT\8%% FLDCT.,1
ELM\XT%% OVRIX.,1
EL\xMT%% NOCR.,1
EL]MT%% PRGFLG,1
E]8LMT%% TTYOPN,1
]X
ELMT%% ACSAV0,1]x7
ELMT%% MXIE,1^
ELMT%% IESAVE,^81
ELMT%% MXBUF,^X1
ELMT%% AUXBUF^x,1
ELMT%% AUXIO_W,1
ELMT%% AUXB_8NO,1
ELMT%% CMD_XLST,2
ELMT%% NE_xWBK1,1
ELMT%% N`EWBK2,1
ELMT%% `8OLDBK,1
ELMT%% `XMXBF,1
ELMT%% D`xRTAB,1
ELMT%% LaRWA,1
ELMT%% COa8RPT.,1
ELMT%% HaXLOTC.,1
ELMT%% axOTCPT.,1
ELMT%%b RUN.TM,1
ELMb8T%% CB.DDT,1
ELbXMT%% SBPSA.,1
EbxLMT%% %F.PTR,1
c
ELMT%% INTBLK,4c8
ELMT%% FS.cXZRO,1
ELMT%% FScx.FS,1
ELMT%% FSd.EN,1
ELMT%% FSd8.BN,1
ELMT%% FSdX.RN,1
ELMT%% FSdx.UPD,1
ELMT%% FeS.IGE,1
ELMT%% e8FS.IF,1
ELMT%% eXFS.IEC,1
IexFE TOPS20,<
ELMfT%% PTH.BK,.PTMAXf8
>
ELMT%% fXFOP.BK,1
ELMT%%fx FOP.IS,1
ELMT%g% FOP.DN,1
ELMTg8%% FOP.BH,1
ELMgXT%% FOP.BN,1
ELgxMT%% FOP.LB,1
EhLMT%% FOP.PP,1
h8
ELMT%% CP.BLKhX,1
ELMT%% CP.BKhx1,1
ELMT%% CP.BiK2,1
ELMT%% CP.i8BK3,1
ELMT%% CPiX.BK4,1
ELMT%% CixP.BK5,1
ELMT%% jCP.BK6,1
ELMT%%j8 CP.BK7,1
IFN TOjXPS20,< ; [1066jx]
ELMT%% GJ.BLKk,17
ELMT%% GJ.Ak8TR,4
> ; [10kX66]
; MAKE TMkxP.BK AT LEAST AS lBIG AS .TPLEN ON l8TOPS10
IFN TOPlXS20,< ELMT%% TMP.lxBK,15>
IFE TOPS2m0,<
IFNDEF .TPm8LEN,<ELMT%% TMP.BmXK,15>
IFDEF .TPmxLEN,<
IFL <15-n.TPLEN>,< ELMT%% n8TMP.BK,.TPLEN>
nX IFGE <15-.TPLEN>nx,< ELMT%% TMP.BK,o15>
>
>
ELo8MT%% FID.BK,15
oX
ELMT%% NRSAV.,5ox
ELMT%% AUTOLpB,1
ELMT%% DELSp8IZ,1
ELMT%% LNKpXNO.,1
ELMT%% REpxLEN.,1
ELqMT%% SRC.MD,1
Eq8LMT%% DLM.MD,1
qXELMT%% DST.MD,1
qx ELMT%% NX.SSA,1 r;ADDRESS OF NEXT r8SOURCE SERIES ITErXM
ELMT%% CV.DLMrx,1 ;INSTRUCTION TsO CONVERT DELIMITs8ER
ELMT%% SSACBsX.,16 ; SAVED AC'Ssx WHEN CALLING A TtAG
ELMT%% TAG.Pt8T,1 ;ADDR OF ROUTtXINE TO STORE POINtxTER VALUE
ELMT%u% TAG.DL,1 ;ADDR u8OF ROUTINE TO GETuX NUMERIC DELIMITEuxR
ELMT%% TAG.SRv,1 ;ADDR OF ROUTIv8NE TO GET NUMERICvX SOURCE
ELMT%% vxSS.CNT,1 ;SOURCE-wSERIES ITEM COUNTw8ER
ELMT%% DLM.TwXP,1 ;ADDR OF %TEMwxP OR %LIT FOR DELxIMITER
ELMT%% Sx8RC.TP,1 ;ADDR OF xX%TEMP OR %LIT FORxx SOURCE
ELMT%% yNX.SRC,1 ;ADDR OFy8 NEXT SOURCE ITEMyX
ELMT%% NUM.SR,yx1 ;NUMBER OF SOURzCES IN THIS SS
z8ELMT%% NUM.RC,1 ;zXNUMBER OF RECEIVIzxNG ITEMS FOR UNST{RING
ELMT%% CT.{8DLM,1 ;COUNT OF D{XELIMITERS
ELMT%{x% SRD.BP,1 ;HOLDS| BP FOR SOURCE - |8START OF 1ST MATC|XH
ELMT%% SRD.CC|x,1 ;HOLDS CC FOR }SOURCE - START OF}8 1ST MATCH
ELMT}X%% SRA.BP,1 ;HOLD}xS BP FOR SOURCE A~FTER LAST MATCH
~8 ELMT%% SRA.CC,1 ~X;HOLDS CC FOR SOU~xRCE AFTER LAST MATCH
ELMT%% CV.S8DS,1 ;CONVERSION XFROM SOURCE TO DExST
ELMT%% TAG.S T,1 ;GET %TEMP SE 8T UP FOR DEST.
XELMT%% NX.DLM,1 ; xNEXT DELIMITER
ELMT%% NUM.DL,1 ;8NUMBER OF DELIMITXERS
ELMT%% TAG.xCT,1 ;TAG TO STORE COUNT ITEM
EL8MT%% TAG.DA,1 ;TAXG TO STORE AWAY DxEST FROM OU.TMP
ELMT%% DST.TP,1 8;%LIT OR %TEMP FOXR DEST.
ELMT%% xTAG.TL,1 ;TAG TO STORE TALLY ITEM
ELMT%% BS.AGLX,1
ELMTx%% SRC.PT,1
ELMT%% SRC.CT,1
8ELMT%% TMP.DP,1
X
ELMT%% OU.ARP,x1
ELMT%% OU.MDE,1
ELMT%% TL.8ARG,1
ELMT%% TLX.VLU,1
ELMT%%x PT.ARG,1
ELMT%% PT.VLU,1
EL8MT%% AP.TMP,1
EXLMT%% DW.TMP,1
x
ELMT%% SE.DLM,1
ELMT%% PF.MD8E,1
ELMT%% PTX.AGL,1
ELMT%% TxP.AGL,1
ELMT% % SU.AGL,1
EL 8MT%% BS.DLM,1
E XLMT%% TP.DLM,1
x
ELMT%% SU.RR
ELMT%% SU.DBR
8
ELMT%% SU.EQ
X
ELMT%% SU.D
xQ
ELMT%% SU.MQ
ELMT%% SU.RRT
8 ELMT%% SU.T1
E XLMT%% SU.T2
ELM xT%% SU.T3
ELMT%
% SU.T4
ELMT%%
8SU.T5
ELMT%% SU
X.T6
ELMT%% SU.T
x7
ELMT%% SU.T8
ELMT%% SU.T9
LMT%% SU.CRH
ELMT%% SU.EQ
ELMT%% SU.DQT
ELMT%% SU.MQT
ELMT%% SU.Y
EXLMT%% SU.RBP
x
ELMT%% SU.MRR
ELMT%% SU.SBD
ELMT%% SU.RLV
X ELMT%% SU.RND
xELMT%% SU.SFQ
ELMT%% SU.SFS
EL8MT%% SU.SBS
ELMXT%% SU.NR
ELMT%x% SU.FR
ELMT%% SU.AK
ELMT%% SU8.FBT
ELMT%% SU.XCFB
ELMT%% SU.VxRB
ELMT%% SU.HV
ELMT%% S8U.CK
ELMT%% SU.XSVK
ELMT%% SU.CxL1
ELMT%% SU.CL2
ELMT%% SU.CLR8
ELMT%% SU.CLS
ELMT%% SU.SAV,5x
ELMT%% FET1,1
ELMT%% FET2,18
ELMT%% FET3,1
ELMT%% FET4,1
x
ELMT%% SU.FRF
ELMT%% USRL8O.
IFN BIS,<
EXLMT%% MRKPTR,2
>x
ELMT%% FUN.A0,1
ELMT%% FU8N.ST,1
ELMT%% FXUN.A1,1
ELMT%% xFUN.A2,1
ELMT%% FUN.A3,1
IF8N MCS!TCS,<
IFEX TOPS20,<
ELMT%x% SNDMSG,10
ELMT%% MCSTN,1
ELM8T%% M.TMP1,1
ELXMT%% M.TMP2,1
ExLMT%% M.ATCT,1
ELMT%% MCSPT,1
8ELMT%% PIDMCP,1
X ELMT%% PIDLCM,1
ELMT%% IPCFLG,1
ELMT%% PAKSND,84
ELMT%% MSGSNDX,10
ELMT%% PAKRxEC,4
ELMT%% MSGREC,10
8
ELMT%% PAGOFF,1X
ELMT%% PAGBIT,x1
ELMT%% PAGLST ,1
ELMT%% PAGCN 8T,1
>>
IFE TOP XS20,<
ELMT%% PA xGTBL,20
ELMT%% T1SAV,1
>
ELMT 8%% DBMLOC,1
XIFN MCS!TCS,<
I xFN TOPS20,<
ELM T%% TP.RG1,1
EL 8MT%% TP.RG2,1
E XLMT%% TP.RG3,1
xELMT%% TP.RG4,1
ELMT%% TP.RG5,1
ELMT%% TP.ID,1
ELMT%% TP.CRP,1 x
ELMT%% TP.IPC, 1
ELMT%% TP.CPP 8,1
ELMT%% TP.JF XN,1
ELMT%% TP.W xNS,1
ELMT%% TP.!TMP,3
SYML%% TP!8.PDS,^D10
ELMT%!X% TP.PDB,TP.PDS
!x SYML%% TP.PKS,^D"30
ELMT%% TP.PK"8T,TP.PKS
SYML%%"X TP.NAM,TP.PKT+2
ELMT%% TP.TPD,1#
ELMT%% TP.LPD,#81
ELMT%% TP.HDS#X,1
ELMT%% TP.HD#xP,1
ELMT%% TP.D$VP,1
ELMT%% TP.$8BTP,1
ELMT%% TP$X.PAT,^D10
>>
$xIFN DBMS,<
ELMT%%% DBMLOK,1
>
%8ELMT%% OSHOOT,1
%X
IFE TOPS20,<
%xELMT%% M7.00,1
>&
IFN LSTATS,<
ELMT%% MRTMB.,1&X
ELMT%% MROPT.,&x1
ELMT%% MROPTT',^D16
; POI'8NTS TO START OF B'XUCKET BLOCK
ELM'xT%% MRHDBP,1
EL(MT%% MRHDFL,1
(8 ; BLOCK
ELMT(X%% MRTDBP,1
ELM(xT%% MRLDBL,1
) ; OR BUFFER FOR)8 COPY FROM .TMP T)XO .MTO
IFN DBMS6)x,<
ELMT%% MRDDB*P,1
>
ELMT%% M*8RNM6,1
ELMT%% M*XRNMA,3
ELMT%% M*xRAFFT,1
ELMT%% +MRFKFT,1
IFE TOP+8S20,<
ELMT%% MB+XTIM.,1
ELMT%% M+xRCHNN,1
ELMT%% ,MRCHCF,1
ELMT%%,8 MRBLKO,1
ELMT%,X% MRBKO.,1
>
I,xFN TOPS20,<
ELM-T%% MBTIM.,2
EL-8MT%% MRJFN,1
EL-XMT%% MRLCJF,1
E-xLMT%% MRBLKO,2
.ELMT%% MRBKO.,2
.8IFN FTLSDR,<
EL.XMT%% MRLDNA,^D10
ELMT%% MRLDJF,1/
>;END IFN FT/8LSDR
>;END IFN /XTOPS20
IFN FTLSD/xR,<
ELMT%% MRLB0PC,1
ELMT%% MRL08SZL,1
ELMT%% MR0XLFPR,1
IFE TOP0xS20,<
ELMT%% MR1CHLS,1
ELMT%% M18RLLDR,1
ELMT%% 1XMRLLDV,1
ELMT%%1x MRCFNM,1
ELMT%2% MRCFEX,1
>;28END IFE TOPS20
>2X;END IFN FTLSDR
2x ELMT%% MRAPN.,1
;0 IF FILE 38IS NEW
ELMT%% M3XRFPGT,1,
ELMT%%3x MRKILL,1
ELMT%4% MRBNUM,1
ELMT48%% MRRERN,1
4X ; (THUS CAN'T WR4xITE IN .MTO FILE)5
IFN TOPS20, ELM58T%% MRPSTM,2
IFE5X TOPS20, ELMT%% M5xRPSTM,1
>
6ELMT%% DBSTP.,1
68
;THE FOLLOWING 6XARE USED FOR $ERR6xOR PROCESSING
E7LMT%% ER.PC,1
E78LMT%% ER.FLG,1
7XELMT%% ER.MCL,1
7x ELMT%% ER.HIJ,1
; SOMETIMES88 SET UP BEFORE TH8XE $ERROR
; 8xCALL.
IFN TOPS209,<
ELMT%% ER.JS98E,1
ELMT%% MNTR9X5,1
>
IFE TOPS29x0,<
ELMT%% ER.E:10,1
>
ELMT%% :8ER.RBG,1
;** T:XHE FOLLOWING LOCA:xTIONS SHOULD BECO;ME "VISIBLE" IN V;8ERSION 13.
; T;XHEY ARE HERE TEMP;xORARILY FOR 12B S<O 12A IS COMPATIB<8LE.
ELMT%% SLRS<XW.,1
ELMT%% RMF<xLG.,1
IFN AN=S74,<
;USED BY R=8MSIO
ELMT%% CVP=XRM.,2
ELMT%% CV=xARGS,2
ELMT%% R>MSVR.,1
>
ELMT %% INTRAP,1
MTY<v>
@ x1M
;ERROR CHECKS
IF1,<
8IFNDEF XB,<PRINTXX ? B NOT DEFINExD WITH "DEFBYT">
>;END PASS 1 ERR8OR CHECKS
DFBFX==XB_-^D32 ;GETx FLAG WORDS
IFE DFBF-DFB.FW,< ;G8EN FULL WORD INSTXRUCTION
MOVE Ax,YB+C
>
IFE DFBF-DFB.RH,< ;G8EN RIGHT HALF WORXD INSTRUCTION
HxRRZ A,YB+C
>
IFE DFBF-DFB.LH8,< ;GEN LEFT HALXF WORD INSTRUCTIOxN
HLRZ A,YB+C
>
IFE DFBF-D8FB.BT,<
..X==XBX_^D18
..X==..X_-x^D18 ;GET RID OF LH, = ENDING BI8T POSITION
..Y=X=<XB_-^D18>&^O77x ;GET LH, JUST # OF BITS
..LIT=8=<YB+C> ;FIRST XPART OF LITERAL BxEING BUILT
..LIT==..LIT+<..Y_^D284> ;# OF BITS IN XBYTE PTR
..LIT=x=..LIT+<<^D36-..X-1>_^D30> ;FINAL 8BIT POSITION IN BXYTE PTR
LDB A, [..LIT]
>
A,Y?< L5;
DEFINE L8SYMH%% (N%,V) < >LX
DEFINE SYML%% Lx(N%,V) <SYM%% N%,MV>
DEFINE ELMTM8%% (N%,L<1>,V) <BMXLKDFV N%,L,<V>>
Mx LOC LO.PUR
N
VISBL%
DEFIN8NE ELMT%% (N%,L<1NX>,V) <BLOCK L>
Nx
INFBK%
DEOFINE ELMT%% (N%,LO8<1>,V) <
IFIDN OX<N%><E0.6>,<N%:: OxE0.6.1=:E0.6+1>
P IFIDN <N%><E0.7>P8,<N%:: E0.7.1=:E0PX.7+1>
IFIDN <N%Px><E0.9>,<N%:: E0.Q9.1=:E0.9+1>
IFQ8IDN <N%><OU.TMP>,QX<N%::>
IFIDN <NQx%><DST.BP>,<N%::>R
IFIDN <N%><DSTR8.CC>,<N%::>
IFIRXDN <N%><PT.VAL>,<RxN%::>
IFIDN <N%S><SRC.BP>,<N%::>
IFIDN <N%><SRC.SXCC>,<N%::>
IFIDSxN <N%><SR.TMP>,<NT%::>
IFIDN <N%>T8<DLM.BP>,<N%::>
TX IFIDN <N%><DLM.CTxC>,<N%::>
IFIDNU <N%><TMP.DL>,<N%U8::>
IFIDN <N%><UXTL.VAL>,<N%::>
UxIFIDN <N%><CT.VALV>,<N%::>
BLOCK V8L>
DEFINE SYMVXL%% (N%,V) < >
Vx
PREST%
COMCWHK .-LO.PUR
W8PURGE ELMT%%,SYMH %%,SYML%%,ADR
[ P _BpZ7Q _Bp[zQ aJ.= (%=
SYML%% (8IFRST.,.
SYMH%%(X PFRST.,.
IFN (xANS68,<
ELMT%% )OVFLG.,1,<Z >
>)8
IFN BIS,<
E)XLMT%% E0.6,1,<EDI)xT 0>
ELMT%% E0.*6.1,1,<0>
ELMT%*8% ,1,<0>
ELMT%%*X ,1,<"$"-40>
EL*xMT%% ,1,<","-40>
ELMT%% ,1,<"."-+840>
ELMT%% ,1,<+X" "-40>
ELMT%% +x,1,<"0"-40>
ELM,T%% ,1,<"+"-40>
,8 ELMT%% ,1,<"-"-4,X0>
ELMT%% ,1,<",xC"-40>
ELMT%% ,-1,<"R"-40>
ELMT-8%% ,1,<"D"-40>
-XELMT%% ,1,<"B"-40-x>
IFN ANS74,<
.ELMT%% ,1,<"/"-40.8>
>
ELMT%% E.X0.7,1,<EDIT 0>
.xELMT%% E0.7.1,1,</0>
ELMT%% ,1,<0/8>
ELMT%% ,1,<"$/X">
ELMT%% ,1,<"/x,">
ELMT%% ,1,<0".">
ELMT%% ,1,08<" ">
ELMT%% ,10X,<"0">
ELMT%% ,0x1,<"+">
ELMT%% 1,1,<"-">
ELMT%%18 ,1,<"C">
ELMT%1X% ,1,<"R">
ELMT1x%% ,1,<"D">
ELM2T%% ,1,<"B">
IFN28 ANS74,<
ELMT%%2X ,1,<"/">
>
2xELMT%% E0.9,1,<ED3IT 0>
ELMT%% E038.9.1,1,<0>
ELMT3X%% ,1,<0>
ELMT%3x% ,1,<133>
ELMT4%% ,1,<153>
ELM48T%% ,1,<113>
EL4XMT%% ,1,<100>
E4xLMT%% ,1,<360>
5ELMT%% ,1,<116>
58 ELMT%% ,1,<140>
ELMT%% ,1,<303>5x
ELMT%% ,1,<3316>
ELMT%% ,1,<30684>
ELMT%% ,1,<36X02>
IFN ANS74,<
ELMT%% ,1,<141>7
>
>
EL78MT%% OU.TMP,5 ;F7XOR STRING
ELMT%7x% DST.BP,1 ;DEST8INATION BYTE POIN88TER
ELMT%% DST.8XCC,1 ;DESTINATIO8xN CHAR COUNT
EL9MT%% PT.VAL,1 ;'98POINTER' VALUE
9XELMT%% SRC.BP,1 9x;SOURCE BYTE PTR
ELMT%% SRC.CC,1:8 ;CC OF SOURCE
:X ELMT%% SR.TMP,5 :x ;TEMP HOLD FOR N;UMERIC SOURCE
E;8LMT%% DLM.BP,1 ;;XBYTE PTR TO DELIM;xITER
ELMT%% DLM<.CC,1 ;CC OF DEL<8IMITER
ELMT%% T<XMP.DL,5 ;TEMP HO<xLD FOR NUMERIC DE=LIMITER
ELMT%% =8TL.VAL,1 ;TALLY =XVALUE
ELMT%% CT=x.VAL,1 ;COUNT VA>LUE
SYML%% FR>8STIC,.
ELMT%% I>XIN,1,<IN 0,CMDLST>x >
ELMT%% IOUT,?1,<OUT 0,CMDLST >?8
ELMT%% ISETI,1?X,<USETI 0,(AC1) >?x
ELMT%% ISETO,1@,<USETO 0,(AC1) >@8
ELMT%% ICLOS,1@X,<CLOSE 0,0 >
E@xLMT%% IRELE,1,<REALEAS 0,0 >
ELMTA8%% IGETS,1,<GETSTAXS 0,AC2 >
ELMT%Ax% ISETS,1,<SETSTSB 0(AC2)>
ELMT%%B8 IWAIT,1,<CALLI 0BX,10 >
ELMT%% IRBxNAM,1,<RENAME 0,UCEBLK. >
SYML%% C8LASTIC,<.-1>
CXSYML%% UFRST.,.
Cx ELMT%% MWAIT.,1,D<MTAPE 0,0 >
ELD8MT%% MREW.,1,<MTADXPE 0,1 >
ELMT%%Dx MREWU.,1,<MTAPE E0,11 >
ELMT%% ME8BSPR.,1,<MTAPE 0,EX7 >
ELMT%% MBSPExF.,1,<MTAPE 0,17 F>
ELMT%% MADVR.F8,1,<MTAPE 0,6 >
FX ELMT%% MADVF.,1,Fx<MTAPE 0,16 >
EGLMT%% MWEOF.,1,<MG8TAPE 0,3 >
ELMTGX%% MTIND.,1,<MTAPGxE 0,101 >
ELMT%H% MERAS.,1,<MTAPEH8 0,13 >
ELMHXT%% SOBOT.,1,<STAHxTO 0,4000 >
ELMIT%% SZBOT.,1,<STAI8TZ 0,4000 >
ELMIXT%% SZEOF.,1,<STAIxTZ 0,20000 >
ELJMT%% SZEOT.,1,<STJ8ATZ 0,2000 >
ELJXMT%% UOPEN.,1,<OPJxEN 0,UOBLK. >
EKLMT%% UENTR.,1,<EK8NTER 0,UEBLK.>
KXELMT%% ULKUP.,1,<KxLOOKUP 0,ULBLK.>
ELMT%% UOBUF.,1L8,<OUTBUF 0,2(AC6)LX>
ELMT%% UIBUF.Lx,1,<INBUF 0,2(AC6M) >
ELMT%% UCLOM8S.,1,<CLOSE 0,0 >MX
ELMT%% URELE.,Mx1,<RELEAS 0,0 >
N ELMT%% USETI.,1,N8<USETI 0,(AC1) >
ELMT%% USETO.,1Nx,<USETO 0,(AC1) >O
ELMT%% UOUT.,1O8,<OUT 0,0 >
ELOXMT%% UIN.,1,<IN 0Ox,0 >
ELMT%% USPETS.,1,<SETSTS 0,P8(AC2) >
ELMT%% PXUGETS.,1,<GETSTS Px0,AC2 >
ELMT%% QUWAIT.,1,<CALLI 0Q8,10 >
IFN ANS68,QX<
ELMT%% USEEK.Qx,1,<CALLI 0,56 >
>
IFN ANS74,<
R8 SYML%% USEEK.,-RX1
>
ELMT%% URNRxAM.,1,<RENAME 0,USEBLK.>
SYML%% US8LAST.,<.-1>
SYMSXL%% ULEN.,<UFRST.Sx-ULAST.>
ELMTT%% UOCAL.,1,<EXP T8C.RSET##+1>
ELMTXT%% UOBLK.,3,<EXPTx 0 >
ELMT%% TMUP.PT,1,<POINT 7,TU8MP.BK>
ELMT%% UXFID.PT,1,<POINT 7Ux,FID.BK>
ELMT%%V FUSIA.,2,<EXP 11V8 >
ELMT%% FUSOAVX.,2,<EXP 12 >
EVxLMT%% FUSCP.,1,<EWXP 10 >
ELMT%% W8ARGBK.,6,<EXP 5 WX>
SYML%% ILAST. ,<.-6>
AST.aW
" =4
IFE=8 TOPS20,<
DEFIN=XE DISEL% (NAM) <J=xRST 1,NAM##>
D>EFINE DSTBL% (NAM>8,IR) <JRST 1,@NAM>X##(IR)>
>
IFN T>xOPS20,<
DEFINE ?DISEL% (NAM) <JRS?8T NAM##>
DEFIN?XE DSTBL% (NAM,IR)?x <JRST @NAM##(IR)@>
>
RELOC HI.O@8RG
DISTB% @X
DEFINE S@xYMH%% (N%,V) <SYMA%% N%,V>
DEFINA8E SYML%% (N%,V) <AX >
DEFINE ELMAxT%% (N%,L<1>,V) <BBLKDFV ,L,<V>>
B8 PREST%
PBXURGE ELMT%%,SYMH%Bx%,SYML%%,DISEL%,D STBL%
DISEL%,DaWKb C84/
DEFINCXE ELMT%% (N%,L<1>Cx,V) <BLKDF N%,L> D
LOC LO.PUR
DEFINE SYML%% (DXN%,V) <SYM%% N%,VDx>
DEFINE SYMH%E% (N%,V) < >
E8 %LOSEG
COEXMCHK .-LO.PUR
Ex
PURGE ELMT%%,SY MH%%,SYML%%
SYe-nQ gl.: X0M
IF1,< x ;ONLY HAPPENS ON PASS 1
;ERROR8 CHECKS
IFNDEF XXB,< PRINTX ? SAMxBYT: B NOT PREVI OUSLY DEFINED WIT 8H DEFBYT>
XA= X=XB
YA==YB
> ;END IF1
B
>gRX5Q @ gRY8Q gRYzQ gR[VQ gR~) $2o
;ERROR$8 CHECKS
IF1,<
$XIFNDEF XB,<PRINT$xX ? B NOT DEFINE%D WITH "DEFBYT">
>;END PASS 1 ERR%XOR CHECKS
DFBF%x==XB_-^D32 ;GET& FLAG WORDS
IFE &8DFBF-DFB.FW,< ;G&XEN FULL WORD INST&xRUCTION
MOVEM 'A,YB+C
>
IFE'8 DFBF-DFB.RH,< ;'XGEN RIGHT HALF WO'xRD INSTRUCTION
(HRRM A,YB+C
(8>
IFE DFBF-DFB.L(XH,< ;GEN LEFT HA(xLF WORD INSTRUCTI)ON
HRLM A,YB+)8C
>
IFE DFBF-)XDFB.BT,<
..X==X)xB_^D18
..X==..X_*-^D18 ;GET RID *8OF LH, = ENDING B*XIT POSITION
..Y*x==<XB_-^D18>&^O7+7 ;GET LH, JUST +8# OF BITS
..LIT+X==<YB+C> ;FIRST+x PART OF LITERAL ,BEING BUILT
..L,8IT==..LIT+<..Y_^D,X24> ;# OF BITS IN,x BYTE PTR
..LIT-==..LIT+<<^D36-..-8X-1>_^D30> ;FINAL-X BIT POSITION IN -xBYTE PTR
DPB A ,[..LIT]
>
AgfhQ 3e A==:B i P i?4HP m' + H"
ELMT%h% MEMRY%,1
ELMT%% TALLY.,1,<Z>
( ELMT%% SZERA.,1,H<Z>
ELMT%% OVFLhO.,1,<Z>
ELMT%% TRAC1.,1,<JRST( BTRAC.##>
ELMTH%% TRAC2.,1,<JRSTh TRPOP.##>
ELMT%% TRAC3.,1,<JRST( TRPD.##>
ELMHT%% OPNCH.,1,<XWDh 777774,0>
ELMT%% RN.DEV,1
ELM(T%% RN.PPN,1
ELHMT%% RN.NAM,1
EhLMT%% FSLOC.,1,<Z>
ELMT%% HLOVL.(,1,<Z>
ELMT%%H %REMOV,1,<EXP REhMOV.##>
IFN ANS74,<
ELMT%% %ENT(OV,1,<EXP ENTOV.#H#>
>
ELMT%% hKEYCV.,1,<Z>
EL MT%% SAVEF.,1,<Z> (
EL HMT%% HPRT.,1,<EXP h HSRPT.##>
; PRINTING ROUTI (NE.
ELMT%% SEGN HO.,1,<Z>
ELMT%% h SNRBP.,1,<EXP SB PSG.##>
ELM (T%% TRAC4.,1,<EXP H CNTRC.##>
ELMT h%% CIOTF.,1,<EXP SFOV.##>
(
IFN DBMS,< H ;[623]
ELMT%% h DBSTP%,1,<EXP %D BSTP##>
SYML% (% LEVEL.,<.-1>
HIFNDEF LEVEL.,<PR hINTX ?LEVEL. NOT !DEFINED!>
> !(;[623]
IFE DBMS,!H< ;[623]
ELM!hT%% LEVEL.,1,<Z>
> ;[623]
"( ELMT%% METR.,1,< Z>
.,1,<u2| 2
;ERROR8 CHECKS
IF1,<
XIFNDEF XB,<PRINTxX ? B NOT DEFINED WITH "DEFBYT">
>;END PASS 1 ERRXOR CHECKS
DFBFx==XB_-^D32 ;GET FLAG WORDS
IFE 8DFBF-DFB.FW,< ;G XEN FULL WORD INST xRUCTION
MOVE A ,C
>
IFE DFBF 8-DFB.RH,< ;GEN R XIGHT HALF WORD IN xSTRUCTION
HRRZ A,C
>
IFE DF 8BF-DFB.LH,< ;GEN X LEFT HALF WORD I xNSTRUCTION
HLRZ A,C
>
IFE D 8FBF-DFB.BT,<
..X X==XB_^D18
..X== x..X-^D18 ;GET RID OF LH, = ENDI 8NG BIT POSITION
..Y==<XB_-^D18> x&^O77 ;GET LH, J!UST # OF BITS
.!8.LIT==<C> ;FIRS!XT PART OF LITERAL!x BEING BUILT
.."LIT==..LIT+<..Y_^"8D24> ;# OF BITS I"XN BYTE PTR
..LI"xT==..LIT+<<^D36-.#.X-1>_^D30> ;FINA#8L BIT POSITION IN#X BYTE PTR
LDB A,[..LIT]
>
uO%|R .83A
;ERROR.X CHECKS
IF1,<
.xIFNDEF XB,<PRINT/X ? B NOT DEFINE/8D WITH "DEFBYT">
>;END PASS 1 ERR/xOR CHECKS
DFBF0==XB_-^D32 ;GET08 FLAG WORDS
IFE 0XDFBF-DFB.FW,< ;G0xEN FULL WORD INST1RUCTION
MOVEM 18A,C
>
IFE DFB1XF-DFB.RH,< ;GEN 1xRIGHT HALF WORD I2NSTRUCTION
HRRM28 A,C
>
IFE D2XFBF-DFB.LH,< ;GE2xN LEFT HALF WORD 3INSTRUCTION
HRL38M A,C
>
IFE 3XDFBF-DFB.BT,<
..3xX==XB_^D18
..X=4=..X_-^D18 ;GET48 RID OF LH, = END4XING BIT POSITION 4x
..Y==<XB_-^D185>&^O77 ;GET LH, 58JUST # OF BITS
5X..LIT==<C> ;FIR5xST PART OF LITERA6L BEING BUILT
.68.LIT==..LIT+<..Y_6X^D24> ;# OF BITS 6xIN BYTE PTR
..L7IT==..LIT+<<^D36-78..X-1>_^D30> ;FIN7XAL BIT POSITION I7xN BYTE PTR
DPB 8A,[..LIT]
>
A,[..LIT]
>
{:P
$#@P
&C@P
uS@P
#@P fI9P |,{P |-YP }[0P MI9P 2~93 8X3I
VISBL% 8x
INFBK%
PR9EST%
LIDAT%
%
LIDAT% 6}i<P ?6)WP B}ZP C.:P N,}rP O,\:P O,hZP O.,ZP W \gP S@P >}{woP
COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS.
ALL RIGHTS RESERVED.