Trailing-Edge
-
PDP-10 Archives
-
BB-H580C-SB_1981
-
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@ EPD0m(
IFNB <F A>,<A::>
BLOCK B
:>
BLOCK Fk D) 1 E2\I[ F`DAm8
IFNB <GA>,<A::>
IFN G0B,<IFB <C>,<BLOCGPK B>
IFNBGp <C>,<REPEAT B,H<
C>>
>
C>>
> Fl D2 1 G3YQ @ G3[Q G>l: cPF1
IFG A-cpCOMSIZ,<
XXX.==dA-COMSIZ
DEFId0NE PEXCS(OVRFLO),dP<
PRINTX ?COMSIdpZ EXCEEDED BY 'OVeRFLO (OCTAL) WORDe0S - REGENERATE THePE COMPILER
ep>
PEXCS(\XXX.)
>f;END IFG A-COMSI Z
IFG A-COMSIG>n:=P pI
n0 P I4.: 0A
IFNDEFP .BITST,< .BITST=p=0> ;START AT 0
IF1,< ;ALL TH 0IS STUFF HAPPENS PONLY IN PASS 1
p
;ERROR CHECKS
I
FDEF YA,< PRINTX
0 ?A ALREADY DEFI
PNED WITH DEFBYT
p >
IFG <.BITST +B-^D36>,< PRINT 0X ?DEFBYT: A DOE PS NOT FIT IN WORD p>
; END OF ERROR
CHECKS
;DEFIN
0E YA TO BE THE W
PORD C
YA==C
p
DFENDP==B+.BSIT
;COMPUTE F
DFBF==DFB. BYTE INSTRUCTION NEEDE0D
IFE B-^D36,<
DFBF==DFB.FW> ;pFULL WORD
IFE B-^D18,<
IFE DFE0NDP-^D17,<
DFBFP==DFB.LH> ;LEFT pHALF-WORD INSTRUCTION NEEDED
IFE0 DFENDP-^D35,<
PDFBF==DFB.RH> ;RpIGHT HALF-WORD INSTRUCTION NEEDED
>
XA==<DFBPF>B21+B,,DFENDP
.BITST==B+.BITST
IFE <.BIT0ST-^D36>,<.BITST=P=0> ;.BITST IS NEpW STARTING POSITI ON
>;END IF1
IhZP Ii[P IkP IlTP I' U0E;
ADR==HIUP.PUR
DEFINE DIUpSEL% (N%) <
N%=V:ADR
ADR==ADRV0+1
>
DEFINE DVPSTBL% (NAM,IR) <DVpISEL% (NAM)>
WDISTB%
PUW0RGE DISEL%,DSTBL% ,ADR
L%,DSTBL%I' HB J0@?
DISELJP% C.RSET
DISEL%Jp STOPR.
DISEL% KC.STOP
DISEL% KK0ILL.
DISEL% GOTKPO.
DISEL% TODAYKp.
DISEL% KDECL.L
DISEL% KPROG.
DISEL% DSP.FP
LP DISEL% LINE.C
LpDISEL% LINE.D
DMISEL% LINE.H
DIM0SEL% LIN.RH
DISMPEL% CANCL.
IFN AMpNS74,<
DISEL% SN.CALL
>
DISEL%N0 M.INIT
DISEL% NPM.RMW
DISEL% M.NpRSW
DISEL% M.RMONW
DISEL% M.RSNO0W
DISEL% M.SENDOP
DISEL% M.AC
OpDISEL% M.IFM
DIPSEL% M.DI
DISELP0% M.DIT
DISEL% PPM.DO
DISEL% M.EPpI
DISEL% M.EIT
DISEL% M.EO
DQ0ISEL% STR.
DISEQPL% STR.O
DISEL%Qp UNS.
DISEL% UNRS.O
DISEL% FUNCR0T.
DISEL% FIX.
DISEL% PERF.
RpDISEL% FLOT.1
DSISEL% FLOT.2
DIS0SEL% PD6.
DISELSP% PD7.
DISEL% GSpD6.
DISEL% GD7.T
DISEL% NEG.
T0DISEL% MAG.
DISTPEL% ADD.12
DISETpL% ADD.21
DISELU% ADD.22
DISEL%U0 SUB.12
DISEL% UPSUB.21
DISEL% SUpUB.22
DISEL% MUVL.12
DISEL% MULV0.21
DISEL% MUL.VP22
DISEL% DIV.1Vp1
DISEL% DIV.12W
DISEL% DIV.21
DISEL% DIV.22
WP DISEL% C.OPEN
WpDISEL% C.CLOS
DXISEL% DSPLY.
DIX0SEL% ACEPT.
DISXPEL% READ.
DISELXp% WRITE.
DISEL%Y WADV.
IFN ANS68Y0,<DISEL% SEEK.>
YPIFN ANS74,<DISEL%Yp RDNXT.>
DISEL%Z DELET.
DISEL% Z0RERIT.
DISEL% PZPURGE.
DISEL% INZpIT.
DISEL% TERM[.
DISEL% COMP.
DISEL% CMP.76
[P DISEL% SPAC.6
[pDISEL% NUM.6
DI\SEL% ALF.6
DISE\0L% ZERO.6
DISEL\P% POS.6
DISEL% \pNEG.6
DISEL% SP]AC.7
DISEL% NUM]0.7
DISEL% ALF.7]P
DISEL% ZERO.7
DISEL% POS.7
^DISEL% NEG.7
DI^0SEL% COMP.D
DIS^PEL% DBMS.
DISEL^p% MOVE.
DISEL% _LFENQ.
DISEL% L_0RENQ.
DISEL% LR_PDEQ.
DISEL% C.D_p6D7
DISEL% C.D7`D6
DISEL% CMP.E`0
DISEL% CMP.G
`P DISEL% CMP.GE
`pDISEL% CMP.L
DIaSEL% CMP.LE
DISa0EL% CMP.N
DISELaP% EDIT.S
DISEL%ap EDIT.U
IFN ANS6b8,<
DISEL% EXAMb0.
>
IFN ANS74,<bP
DISEL% INSP.
bp>
DISEL% SUBSC.c
DISEL% SIZE.1
DISEL% SIZE.2
cP DISEL% SIZE.3
cpDISEL% E.C3C1
DdISEL% E.C3C3
DId0SEL% OVLAY.
DISdPEL% C.EXIT
DISEdpL% ARGS.
DISEL%e PUTF.
DISEL% Re0ESF.
DISEL% GETePNM.
DISEL% ILLCep.
DISEL% C.D6D9f
DISEL% C.D7D9
DISEL% C.D9D6
fP DISEL% C.D9D7
fpDISEL% PC3.
DISgEL% PD9.
DISEL%g0 GC3.
DISEL% GDgP9.
DISEL% POS.9gp
DISEL% NEG.9
h DISEL% ZERO.9
h0DISEL% ALF.9
DIhPSEL% NUM.9
DISEhpL% ALF.9
DISEL%i SPAC.9
DISEL% i0CMP.96
DISEL% CiPMP.97
DISEL% EDipIT.B
DISEL% RSTjAB.
DISEL% ZERCj0.6
DISEL% ZERC.jP7
DISEL% ZERC.9jp
IFN ANS74,<
DkISEL% C.STRT
DIk0SEL% DATE.
DISEkPL% DAY.
DISEL% kpTIME.
>
DSTBlL% USRTB.,15
l0
DISEL% DSPL.6lP
DISEL% DSPL.7
DISEL% SUBE1.m
DISEL% SUBE2.
DISEL% SUBE3.
mP DISEL% EXIT.E
ImpFN BIS,<
DISEL%n XTND.E
DISEL% n0ALP.66
DISEL% AnPLP.67
DISEL% ALnpP.69
DISEL% ALPo.76
DISEL% ALP.o077
DISEL% ALP.7oP9
DISEL% ALP.96op
DISEL% ALP.97
DISEL% ALP.99
p0 DISEL% ALPS.6
pPDISEL% ALPS.7
DppISEL% ALPS.9
DIqSEL% NUM.66
DISq0EL% NUM.67
DISEqPL% NUM.69
DISELqp% NUM.76
DISEL%r NUM.77
DISEL% r0NUM.79
DISEL% NrPUM.96
DISEL% NUrpM.97
DISEL% NUMs.99
DISEL% CVTDs0B.
DISEL% CBDOVsP.
DISEL% CVBD.6sp
DISEL% CVBD.7
DISEL% CVBD.9
t0 DISEL% MUL.41
tPDISEL% MUL.42
DtpISEL% DIV.41
DIuSEL% DIV.42
DISu0EL% DVI41.
DISEuPL% DVI42.
>;END upIFN BIS
DISEL% vKEY.
IFN TOPS20,v0<
DISEL% PSORT.vP
DISEL% PMERG.
DISEL% RELES.
w DISEL% MERGE.
w0DISEL% MCLOS.
DwPISEL% RETRN.
DIwpSEL% ENDS.
>
x
IFN BIS,<
DISx0EL% ADD.4R
>;ENDxP IFN BIS
IFN TCSxp,<
DISEL% MBINDy
DISEL% MNAME
y0>
DISEL% MVD.ALyP
DISEL% NUM.3
yp DISEL% WADVV.
zDISEL% WRITV.
z0
DISEL% METER.
IFN BIS,< ;[55zp4] QUAD-WORD SIZE{ ERROR ROUTINES
{0 DISEL% SIZE.4
{PDISEL% SIZE.5
>;{pEND IFN BIS ;[5|54]
DISEL% FLT.|012
DISEL% FLT.2|P2
DISEL% FIX.2
DISEL% E.F2D1
} DISEL% E.F2D2
}0DISEL% E.F2FP
D}PISEL% E.F2F2
DI}pSEL% PPOT4.
DIS~EL% ISBPS.
DISE~0L% MROUT.
;[~P621] (MUST BE PRE~pSENT IN ALL FLAVORS OF LIBOL)
;V102B RMS ENTRY POINPTS
IFN ANS74,<
p DISEL% OP.MIX
DISEL% CL.MIX
D 0ISEL% WT.MIR
DI PSEL% WT.MIS
DIS pEL% RD.MIR
DISEL% RD.MIS
DISEL0% DL.MIR
DISEL%P DL.MIS
DISEL% pRW.MIR
DISEL% RW.MIS
DISEL% ST0.MEQ
DISEL% ST.PMGT
DISEL% ST.MpNL
>;END IFN ANS74
DISEL% %ST0R.
DISEL% %STR.PO
DISEL% %UNS.
DISEL% %UNS.O
IFN ANS74,<
DIS0EL% SWT.ON
DISEPL% SWT.OF
DISELp% CMP.67
DISEL% CMP.69
DISEL% 0CMP.79
DISEL% CPOMP.6
DISEL% COpMP.7
DISEL% COMP.9
DISEL% SU.S069
DISEL% SU.S7P9
DISEL% SU.S97p
>
IFN ANS74,<
IFN BIS,<
DISE0L% CVDBT.
DISELP% CVDBL.
>;END IpFN BIS
>;END IFN ANS74
D IFNK:$IH 0AY
PRINTX %P ENDDFB: THERE ARpE A BITS STILL UNASSIGNED BY "DEF BYT"
D BY "DEFK:$IQ AO
IF1,<
I0FN .BITST,<
.BIPTLFT==^D36-.BITSTp ;COMPUTE # OF FREE BITS
RADIX 100 ;MAKE IT COME POUT IN DECIMAL.
p ENDDF1 (\.BITLFT) ;CALL MACRO TO 0PRINT NUMBER
RAPDIX 8 ;BACK TO pOCTAL
>
>;END I F1
>
>;END IM&t.: pA5
IF1,<
.BITST==0 ; Reset0 bit position to P0
>; END if1
>; END if1
M'Ek0P M'Em6P Q$u|SP $ Q$v
DEFIR0NE SYMH%% (N%,V) RP<N%==:0>
DEFINRpE SYML%% (N%,V) <SSYM%% N%,V>
DES0FINE ELMT%% (N%,LSP<1>,V) <BLKDFV N%Sp,L,<V>>
RELOTC 0
CHK==.
T0%LOSEG
COMCHKTP .-CHK
PURGTpE SYML%%,SYMH%%,E LMT%%
SYMH%%,ES:4*b /`3"
ELMT%% 0 FILES.
ELMT%% U0 SES.
ELMT%% SEG0@WD.
ELMT%% ALTE0`R.
ELMT%% OVRFN1 .
ELMT%% POINT.1
ELMT%% COMMA.
ELMT%% MONEY.
1` ELMT%% MEMRY.
2 ELMT%% %NM.
ELM2 T%% %DT.
ELMT%%2@ %PR.
ELMT%% CO2`BVR.
ELMT%% COB3 SW.
ELMT%% PUSH3 L.
ELMT%% SURRT3@.
ELMT%% SUEQT.3`
ELMT%% SUFBT.
IFN ANS74,<
E4 LMT%% %DB.
>
MT%% %DB.
>
S:5 fPFI
INC==0 fp
DEFINE ELMT%%g (N%,L<1>,V) <
g0IFNB <N%>,<%'N%==gP:INC>
INC==INC+gp1
>
DEFINE SYhML%% (N%,L<1>,V) h0<
IFNB <N%>,<%'hPN%==:INC>
>
IhpNFBK%
PURGE EiLMT%%,SYML%%,INC
,SYML%%,INC<O
ELMT%% e0UEBLK.,4
ELMT%%eP ULBLK.,4
ELMT%ep% TTOBP.,1
ELMTf%% TTOBC.,1
ELMf0T%% TTOBF.,^D27
fP ELMT%% STDLB.,16fp
ELMT%% RRFLGg.,1
ELMT%% REDMg0P.,1
ELMT%% SHRgPDX.,1
ELMT%% TEgpMP.,1
ELMT%% TEhMP.1,1
ELMT%% Jh0SARR.,1
ELMT%% hPTEMP.2,1
ELMT%%hp AINFO.,1
ELMT%i% OVRBF.,3
ELMTi0%% FLDCT.,1
ELMiPT%% OVRIX.,1
ELipMT%% NOCR.,1
ELjMT%% PRGFLG,1
Ej0LMT%% TTYOPN,1
jP
ELMT%% ACSAV0,1jp7
ELMT%% MXIE,1k
ELMT%% IESAVE,k01
ELMT%% MXBUF,kP1
ELMT%% AUXBUFkp,1
ELMT%% AUXIOlW,1
ELMT%% AUXBl0NO,1
ELMT%% CMDlPLST,2
ELMT%% NElpWBK1,1
ELMT%% NmEWBK2,1
ELMT%% m0OLDBK,1
ELMT%% mPMXBF,1
ELMT%% DmpRTAB,1
ELMT%% LnRWA,1
ELMT%% COn0RPT.,1
ELMT%% HnPLOTC.,1
ELMT%% npOTCPT.,1
ELMT%%o RUN.TM,1
ELMo0T%% CB.DDT,1
ELoPMT%% SBPSA.,1
EopLMT%% %F.PTR,1
p
ELMT%% INTBLK,4p0
ELMT%% FS.pPZRO,1
ELMT%% FSpp.FS,1
ELMT%% FSq.EN,1
ELMT%% FSq0.BN,1
ELMT%% FSqP.RN,1
ELMT%% FSqp.UPD,1
ELMT%% FrS.IGE,1
ELMT%% r0FS.IF,1
ELMT%% rPFS.IEC,1
IrpFE TOPS20,<
ELMsT%% PTH.BK,.PTMAXs0
>
ELMT%% sPFOP.BK,1
ELMT%%sp FOP.IS,1
ELMT%t% FOP.DN,1
ELMTt0%% FOP.BH,1
ELMtPT%% FOP.BN,1
ELtpMT%% FOP.LB,1
EuLMT%% FOP.PP,1
u0
ELMT%% CP.BLKuP,1
ELMT%% CP.BKup1,1
ELMT%% CP.BvK2,1
ELMT%% CP.v0BK3,1
ELMT%% CPvP.BK4,1
ELMT%% CvpP.BK5,1
ELMT%% wCP.BK6,1
ELMT%%w0 CP.BK7,1
; wPMAKE TMP.BK AT LEwpAST AS BIG AS .TPxLEN ON TOPS10
x0IFN TOPS20,< ELMTxP%% TMP.BK,15>
IFxpE TOPS20,<
IFNyDEF .TPLEN,<ELMT%y0% TMP.BK,15>
IFyPDEF .TPLEN,<
IypFL <15-.TPLEN>,< zELMT%% TMP.BK,.TPz0LEN>
IFGE <15-zP.TPLEN>,< ELMT%% zpTMP.BK,15>
>
>{
ELMT%% FID.B{0K,15
ELMT%% N{PRSAV.,5
ELMT%{p% AUTOLB,1
ELMT|%% DELSIZ,1
ELM|0T%% LNKNO.,1
EL|PMT%% RELEN.,1
|p
ELMT%% SRC.M}D,1
ELMT%% DLM.}0MD,1
ELMT%% DST}P.MD,1
ELMT%% NX}p.SSA,1 ;ADDRESS O~F NEXT SOURCE SER~0IES ITEM
ELMT%%~P CV.DLM,1 ;INSTRU~pCTION TO CONVERT DELIMITER
ELMT%0% SSACB.,16 ; SAVPED AC'S WHEN CALLpING A TAG
ELMT% % TAG.PT,1 ;ADDR 0OF ROUTINE TO STO PRE POINTER VALUE
ELMT%% TAG.DL,1 ;ADDR OF ROUTINE0 TO GET NUMERIC DPELIMITER
ELMT%%p TAG.SR,1 ;ADDR OF ROUTINE TO GET 0NUMERIC SOURCE
PELMT%% SS.CNT,1 ;pSOURCE-SERIES ITEM COUNTER
ELMT%0% DLM.TP,1 ;ADDR POF %TEMP OR %LIT pFOR DELIMITER
ELMT%% SRC.TP,1 ;A0DDR OF %TEMP OR %PLIT FOR SOURCE
pELMT%% NX.SRC,1 ;ADDR OF NEXT SOUR0CE ITEM
ELMT%% PNUM.SR,1 ;NUMBER pOF SOURCES IN THIS SS
ELMT%% NUM0.RC,1 ;NUMBER OF PRECEIVING ITEMS FpOR UNSTRING
ELMT%% CT.DLM,1 ;COU0NT OF DELIMITERS
ELMT%% SRD.BP,1p ;HOLDS BP FOR SOURCE - START OF 10ST MATCH
ELMT%%P SRD.CC,1 ;HOLDS pCC FOR SOURCE - S TART OF 1ST MATCH 0
ELMT%% SRA.BP, P1 ;HOLDS BP FOR S pOURCE AFTER LAST
MATCH
ELMT%% SR
0A.CC,1 ;HOLDS CC
PFOR SOURCE AFTER
pLAST MATCH
ELMT %% CV.SDS,1 ;CONV 0ERSION FROM SOURC PE TO DEST
ELMT% p% TAG.ST,1 ;GET %
TEMP SET UP FOR D
0EST.
ELMT%% NX.
PDLM,1 ;NEXT DELIM
pITER
ELMT%% NUMER OF
ELMTG.CT,1 ;TAGTEM
ELMT%% TAG.D0A,1 ;TAG TO STOREP AWAY DEST FROM OpU.TMP
ELMT%% DST.TP,1 ;%LIT OR %0TEMP FOR DEST.
PELMT%% TAG.TL,1 ;pTAG TO STORE TALLY ITEM
ELMT%%0 BS.AGL,1
P
ELMT%% SRC.PT,p1
ELMT%% SRC.CT,1
ELMT%% TMP0.DP,1
ELMT%% POU.ARP,1
ELMT%%p OU.MDE,1
ELMT%% TL.ARG,1
EL0MT%% TL.VLU,1
P ELMT%% PT.ARG,1
ELMT%% PT.VLU,1
ELMT%% AP.TM0P,1
ELMT%% DW.TPMP,1
ELMT%% SpE.DLM,1
ELMT%% PF.MDE,1
EL0MT%% PT.AGL,1
EPLMT%% TP.AGL,1
p
ELMT%% SU.AGL,1
ELMT%% BS.DL0M,1
ELMT%% TP.DPLM,1
ELMT%p% SU.RR
ELMT%% SU.DBR
ELMT%% S0U.EQ
ELMTP%% SU.DQ
ELMT%%p SU.MQ
ELMT%% SU.RRT
ELMT%% SU0.T1
ELMT%% SU.TP2
ELMT%% SU.T3
ELMT%% SU.T4
ELMT%% SU.T5
EL0MT%% SU.T6
ELMTP%% SU.T7
ELMT%%p SU.T8
ELMT%% SU.T9
ELMT%% SU.0CRH
ELMT%P% SU.EQT
ELMT%%p SU.DQT
ELMT%% SU.MQT
ELMT%% S0U.Y
ELMT%% SU.RPBP
ELMT%%p SU.MRR
ELMT%% SU.SBD
ELMT%% S0U.RLV
ELMT%% SUP.RND
ELMT%% SU.pSFQ
ELMT%% SU.S FS
ELMT%% SU.SB 0S
ELMT%% SU.NR
ELMT%% SU.FR
pELMT%% SU.AK
EL MT%% SU.FBT
ELM 0T%% SU.CFB
ELMT P%% SU.VRB
p ELMT%% SU.HV
E LMT%% SU.CK
ELM 0T%% SU.SVK
ELMT P%% SU.CL1
ELMT% p% SU.CL2
ELMT%% SU.CLR
ELMT%% 0SU.CLS
ELMT%% S PU.SAV,5
ELMT% p% FET1,1
ELMT%% FET2,1
ELMT%% 0FET3,1
ELMT%% F PET4,1
ELMT%% pSU.FRF
ELMT!%% USRLO.
IFN BI!0S,<
ELMT%% MRKP!PTR,2
>
ELM!pT%% FUN.A0,1
EL"MT%% FUN.ST,1
E"0LMT%% FUN.A1,1
"PELMT%% FUN.A2,1
"p ELMT%% FUN.A3,1
IFN MCS!TCS,#0<
IFE TOPS20,<
ELMT%% SNDMSG,1#p0
ELMT%% MCSTN,$1
ELMT%% M.TMP1$0,1
ELMT%% M.TMP$P2,1
ELMT%% M.AT$pCT,1
ELMT%% MCS%PT,1
ELMT%% PID%0MCP,1
ELMT%% PI%PDLCM,1
ELMT%% I%pPCFLG,1
ELMT%% &PAKSND,4
ELMT%%&0 MSGSND,10
ELMT&P%% PAKREC,4
ELM&pT%% MSGREC,10
'
ELMT%% P'0AGOFF,1
ELMT%% 'PPAGBIT,1
ELMT%%'p PAGLST,1
ELMT%(% PAGCNT,1
>>
(0IFE TOPS20,<
EL(PMT%% PAGTBL,20
(pELMT%% T1SAV,1
>)
ELMT%% DBMLOC,)01
IFN MCS!TC)PS,<
IFN TOPS20,)p<
ELMT%% TP.RG1*,1
ELMT%% TP.RG*02,1
ELMT%% TP.R*PG3,1
ELMT%% TP.*pRG4,1
ELMT%% TP+.RG5,1
ELMT%% T+0P.ID,1
ELMT%% T+PP.CRP,1
ELMT%% +pTP.IPC,1
ELMT%%, TP.CPP,1
ELMT%,0% TP.JFN,1
ELMT,P%% TP.WNS,1
ELM,pT%% TP.TMP,3
SY-ML%% TP.PDS,^D10
ELMT%% TP.PDB,T-PP.PDS
SYML%% TP-p.PKS,^D30
ELMT%.% TP.PKT,TP.PKS
.0 SYML%% TP.NAM,TP.P.PKT+2
ELMT%% T.pP.TPD,1
ELMT%% /TP.LPD,1
ELMT%%/0 TP.HDS,1
ELMT%/P% TP.HDP,1
ELMT/p%% TP.DVP,1
ELM0T%% TP.BTP,1
EL00MT%% TP.PAT,^D10
>>
IFN DBMS,<0p
ELMT%% DBMLOK,11
>
ELMT%% OSH10OOT,1
IFE TOPS1P20,<
ELMT%% M7.1p00,1
>
IFN LS2TATS,<
ELMT%% M20RTMB.,1
ELMT%% 2PMROPT.,1
ELMT%%2p MROPTT,^D16
3 ; POINTS TO STA30RT OF BUCKET BLOC3PK
ELMT%% MRHDBP3p,1
ELMT%% MRHDF4L,1
; BLOCK40
ELMT%% MRTDBP,4P1
ELMT%% MRLDBL4p,1
; OR BUF5FER FOR COPY FROM50 .TMP TO .MTO
IF5PN DBMS6,<
ELMT%5p% MRDDBP,1
>
E6LMT%% MRNM6,1
E60LMT%% MRNMA,3
E6PLMT%% MRAFFT,1
6pELMT%% MRFKFT,1
7IFE TOPS20,<
EL70MT%% MBTIM.,1
E7PLMT%% MRCHNN,1
7pELMT%% MRCHCF,1
8 ELMT%% MRBLKO,1
ELMT%% MRBKO.,18P
>
IFN TOPS20,8p<
ELMT%% MBTIM.9,2
ELMT%% MRJFN90,1
ELMT%% MRLCJ9PF,1
ELMT%% MRBL9pKO,2
ELMT%% MRB:KO.,2
IFN FTLSDR:0,<
ELMT%% MRLDN:PA,^D10
ELMT%% M:pRLDJF,1
>;END; IFN FTLSDR
>;E;0ND IFN TOPS20
IF;PN FTLSDR,<
ELMT;p%% MRLBPC,1
ELM<T%% MRLSZL,1
EL<0MT%% MRLFPR,1
<PIFE TOPS20,<
EL<pMT%% MRCHLS,1
E=LMT%% MRLLDR,1
=0ELMT%% MRLLDV,1
=P ELMT%% MRCFNM,1
ELMT%% MRCFEX,1>
>;END IFE TO>0PS20
>;END IFN F>PTLSDR
ELMT%% MR>pAPN.,1
;0 I?F FILE IS NEW
E?0LMT%% MRFPGT,1,
?P ELMT%% MRKILL,1
ELMT%% MRBNUM,1@
ELMT%% MRRERN,@01
; (THUS C@PAN'T WRITE IN .MT@pO FILE)
IFN TOPSA20, ELMT%% MRPSTMA0,2
IFE TOPS20, EAPLMT%% MRPSTM,1
Ap
>
ELMT%% DBSBTP.,1
;THE FOLB0LOWING ARE USED FBPOR $ERROR PROCESSBpING
ELMT%% ER.PCC,1
ELMT%% ER.FC0LG,1
ELMT%% ER.CPMCL,1
ELMT%% ERCp.HIJ,1
; SODMETIMES SET UP BED0FORE THE $ERROR
DP ; CALL.
IFNDp TOPS20,<
ELMT%E% ER.JSE,1
>
IFE0E TOPS20,<
ELMTEP%% ER.E10,1
>
EpELMT%% ER.RBG,1
F
;** THE FOLLOWIF0NG LOCATIONS SHOUFPLD BECOME "VISIBLFpE" IN VERSION 13.G
; THEY ARE HEG0RE TEMPORARILY FOGPR 12B SO 12A IS CGpOMPATIBLE.
ELMTH%% SLRSW.,1
ELMH0T%% RMFLG.,1
HP
IFN ANS74,<
;USHpED BY RMSIO
ELMIT%% CVPRM.,2
ELI0MT%% CVARGS,2
EIPLMT%% RMSVR.,1
>Ip
ELMT%% INTRAP, 1
MT%% INTRAP,Y<v
@ PB+
;ERRORp CHECKS
IF1,<
IFNDEF XB,<PRINT 0X ? B NOT DEFINE PD WITH "DEFBYT">
>;END PASS 1 ERR OR CHECKS
DFBF 0==XB_-^D32 ;GET P FLAG WORDS
IFE pDFBF-DFB.FW,< ;G EN FULL WORD INST 0RUCTION
MOVE A P,YB+C
>
IFE pDFBF-DFB.RH,< ;G EN RIGHT HALF WOR 0D INSTRUCTION
H PRRZ A,YB+C
> p
IFE DFBF-DFB.LH ,< ;GEN LEFT HAL 0F WORD INSTRUCTIO PN
HLRZ A,YB+ pC
>
IFE DFBF-D!FB.BT,<
..X==XB!0_^D18
..X==..X_-!P^D18 ;GET RID O!pF LH, = ENDING BI"T POSITION
..Y="0=<XB_-^D18>&^O77"P ;GET LH, JUST #"p OF BITS
..LIT=#=<YB+C> ;FIRST #0PART OF LITERAL B#PEING BUILT
..LI#pT==..LIT+<..Y_^D2$4> ;# OF BITS IN $0BYTE PTR
..LIT=$P=..LIT+<<^D36-..X$p-1>_^D30> ;FINAL %BIT POSITION IN B%0YTE PTR
LDB A, [..LIT]
>
A,Y?< WpF
DEFINE XSYMH%% (N%,V) < >X0
DEFINE SYML%% XP(N%,V) <SYM%% N%,XpV>
DEFINE ELMTY%% (N%,L<1>,V) <BY0LKDFV N%,L,<V>>
YP LOC LO.PUR
Yp
VISBL%
DEFIZNE ELMT%% (N%,L<1Z0>,V) <BLOCK L>
ZP
INFBK%
DEZpFINE ELMT%% (N%,L[<1>,V) <
IFIDN [0<N%><E0.6>,<N%:: [PE0.6.1=:E0.6+1>
[p IFIDN <N%><E0.7>\,<N%:: E0.7.1=:E0\0.7+1>
IFIDN <N%\P><E0.9>,<N%:: E0.\p9.1=:E0.9+1>
IF]IDN <N%><OU.TMP>,]0<N%::>
IFIDN <N]P%><DST.BP>,<N%::>]p
IFIDN <N%><DST^.CC>,<N%::>
IFI^0DN <N%><PT.VAL>,<^PN%::>
IFIDN <N%^p><SRC.BP>,<N%::>
IFIDN <N%><SRC._0CC>,<N%::>
IFID_PN <N%><SR.TMP>,<N_p%::>
IFIDN <N%>`<DLM.BP>,<N%::>
`0 IFIDN <N%><DLM.C`PC>,<N%::>
IFIDN`p <N%><TMP.DL>,<N%a::>
IFIDN <N%><a0TL.VAL>,<N%::>
aPIFIDN <N%><CT.VALap>,<N%::>
BLOCK bL>
DEFINE SYMb0L%% (N%,V) < >
bP
PREST%
COMCbpHK .-LO.PUR
cPURGE ELMT%%,SYMH %%,SYML%%,ADR
[ P _BpZ7Q _Bp[zQ aJ.= 5 6%
SYML%% 50IFRST.,.
SYMH%%5P PFRST.,.
IFN 5pANS68,<
ELMT%% 6OVFLG.,1,<Z >
>60
IFN BIS,<
E6PLMT%% E0.6,1,<EDI6pT 0>
ELMT%% E0.76.1,1,<0>
ELMT%70% ,1,<0>
ELMT%%7P ,1,<"$"-40>
EL7pMT%% ,1,<","-40>
ELMT%% ,1,<"."-8040>
ELMT%% ,1,<8P" "-40>
ELMT%% 8p,1,<"0"-40>
ELM9T%% ,1,<"+"-40>
90 ELMT%% ,1,<"-"-49P0>
ELMT%% ,1,<"9pC"-40>
ELMT%% ,:1,<"R"-40>
ELMT:0%% ,1,<"D"-40>
:PELMT%% ,1,<"B"-40:p>
IFN ANS74,<
;ELMT%% ,1,<"/"-40;0>
>
ELMT%% E;P0.7,1,<EDIT 0>
;pELMT%% E0.7.1,1,<<0>
ELMT%% ,1,<0<0>
ELMT%% ,1,<"$<P">
ELMT%% ,1,<"<p,">
ELMT%% ,1,<=".">
ELMT%% ,1,=0<" ">
ELMT%% ,1=P,<"0">
ELMT%% ,=p1,<"+">
ELMT%% >,1,<"-">
ELMT%%>0 ,1,<"C">
ELMT%>P% ,1,<"R">
ELMT>p%% ,1,<"D">
ELM?T%% ,1,<"B">
IFN?0 ANS74,<
ELMT%%?P ,1,<"/">
>
?pELMT%% E0.9,1,<ED@IT 0>
ELMT%% E0@0.9.1,1,<0>
ELMT@P%% ,1,<0>
ELMT%@p% ,1,<133>
ELMTA%% ,1,<153>
ELMA0T%% ,1,<113>
ELAPMT%% ,1,<100>
EApLMT%% ,1,<360>
BELMT%% ,1,<116>
B0 ELMT%% ,1,<140>
ELMT%% ,1,<303>Bp
ELMT%% ,1,<331C>
ELMT%% ,1,<30C04>
ELMT%% ,1,<3CP02>
IFN ANS74,<
ELMT%% ,1,<141>D
>
>
ELD0MT%% OU.TMP,5 ;FDPOR STRING
ELMT%Dp% DST.BP,1 ;DESTEINATION BYTE POINE0TER
ELMT%% DST.EPCC,1 ;DESTINATIOEpN CHAR COUNT
ELFMT%% PT.VAL,1 ;'F0POINTER' VALUE
FPELMT%% SRC.BP,1 Fp;SOURCE BYTE PTR
ELMT%% SRC.CC,1G0 ;CC OF SOURCE
GP ELMT%% SR.TMP,5 Gp ;TEMP HOLD FOR NHUMERIC SOURCE
EH0LMT%% DLM.BP,1 ;HPBYTE PTR TO DELIMHpITER
ELMT%% DLMI.CC,1 ;CC OF DELI0IMITER
ELMT%% TIPMP.DL,5 ;TEMP HOIpLD FOR NUMERIC DEJLIMITER
ELMT%% J0TL.VAL,1 ;TALLY JPVALUE
ELMT%% CTJp.VAL,1 ;COUNT VAKLUE
SYML%% FRK0STIC,.
ELMT%% IKPIN,1,<IN 0,CMDLSTKp >
ELMT%% IOUT,L1,<OUT 0,CMDLST >L0
ELMT%% ISETI,1LP,<USETI 0,(AC1) >Lp
ELMT%% ISETO,1M,<USETO 0,(AC1) >M0
ELMT%% ICLOS,1MP,<CLOSE 0,0 >
EMpLMT%% IRELE,1,<RENLEAS 0,0 >
ELMTN0%% IGETS,1,<GETSTNPS 0,AC2 >
ELMT%Np% ISETS,1,<SETSTSO 0(AC2)>
ELMT%%O0 IWAIT,1,<CALLI 0OP,10 >
ELMT%% IROpNAM,1,<RENAME 0,UPEBLK. >
SYML%% P0LASTIC,<.-1>
PPSYML%% UFRST.,.
Pp ELMT%% MWAIT.,1,Q<MTAPE 0,0 >
ELQ0MT%% MREW.,1,<MTAQPPE 0,1 >
ELMT%%Qp MREWU.,1,<MTAPE R0,11 >
ELMT%% MR0BSPR.,1,<MTAPE 0,RP7 >
ELMT%% MBSPRpF.,1,<MTAPE 0,17 S>
ELMT%% MADVR.S0,1,<MTAPE 0,6 >
SP ELMT%% MADVF.,1,Sp<MTAPE 0,16 >
ETLMT%% MWEOF.,1,<MT0TAPE 0,3 >
ELMTTP%% MTIND.,1,<MTAPTpE 0,101 >
ELMT%U% MERAS.,1,<MTAPEU0 0,13 >
ELMUPT%% SOBOT.,1,<STAUpTO 0,4000 >
ELMVT%% SZBOT.,1,<STAV0TZ 0,4000 >
ELMVPT%% SZEOF.,1,<STAVpTZ 0,20000 >
ELWMT%% SZEOT.,1,<STW0ATZ 0,2000 >
ELWPMT%% UOPEN.,1,<OPWpEN 0,UOBLK. >
EXLMT%% UENTR.,1,<EX0NTER 0,UEBLK.>
XPELMT%% ULKUP.,1,<XpLOOKUP 0,ULBLK.>
ELMT%% UOBUF.,1Y0,<OUTBUF 0,2(AC6)YP>
ELMT%% UIBUF.Yp,1,<INBUF 0,2(AC6Z) >
ELMT%% UCLOZ0S.,1,<CLOSE 0,0 >ZP
ELMT%% URELE.,Zp1,<RELEAS 0,0 >
[ ELMT%% USETI.,1,[0<USETI 0,(AC1) >
ELMT%% USETO.,1[p,<USETO 0,(AC1) >\
ELMT%% UOUT.,1\0,<OUT 0,0 >
EL\PMT%% UIN.,1,<IN 0\p,0 >
ELMT%% US]ETS.,1,<SETSTS 0,]0(AC2) >
ELMT%% ]PUGETS.,1,<GETSTS ]p0,AC2 >
ELMT%% ^UWAIT.,1,<CALLI 0^0,10 >
IFN ANS68,^P<
ELMT%% USEEK.^p,1,<CALLI 0,56 >
>
IFN ANS74,<
_0 SYML%% USEEK.,-_P1
>
ELMT%% URN_pAM.,1,<RENAME 0,U`EBLK.>
SYML%% U`0LAST.,<.-1>
SYM`PL%% ULEN.,<UFRST.`p-ULAST.>
ELMTa%% UOCAL.,1,<EXP a0C.RSET##+1>
ELMaPT%% UOBLK.,3,<EXPap 0 >
ELMT%% TMbP.PT,1,<POINT 7,Tb0MP.BK>
ELMT%% bPFID.PT,1,<POINT 7bp,FID.BK>
ELMT%%c FUSIA.,2,<EXP 11c0 >
ELMT%% FUSOAcP.,2,<EXP 12 >
EcpLMT%% FUSCP.,1,<EdXP 10 >
ELMT%% d0ARGBK.,6,<EXP 5 dP>
SYML%% ILAST. ,<.-6>
AST.aW
" HpDu
IFEI TOPS20,<
DEFINI0E DISEL% (NAM) <JIPRST 1,NAM##>
DIpEFINE DSTBL% (NAMJ,IR) <JRST 1,@NAMJ0##(IR)>
>
IFN TJPOPS20,<
DEFINE JpDISEL% (NAM) <JRSKT NAM##>
DEFINK0E DSTBL% (NAM,IR)KP <JRST @NAM##(IR)Kp>
>
RELOC HI.OLRG
DISTB% L0
DEFINE SLPYMH%% (N%,V) <SYMLp%% N%,V>
DEFINME SYML%% (N%,V) <M0 >
DEFINE ELMMPT%% (N%,L<1>,V) <MpBLKDFV ,L,<V>>
N PREST%
PN0URGE ELMT%%,SYMH%NP%,SYML%%,DISEL%,D STBL%
DISEL%,DaWKb OE
DEFINO0E ELMT%% (N%,L<1>OP,V) <BLKDF N%,L> Op
LOC LO.PUR
DEFINE SYML%% (P0N%,V) <SYM%% N%,VPP>
DEFINE SYMH%Pp% (N%,V) < >
Q %LOSEG
COQ0MCHK .-LO.PUR
QP
PURGE ELMT%%,SY MH%%,SYML%%
SYe-nQ e7iXP +e7kP <gl.: 0A+
IF1,< P ;ONLY HAPPENS pON PASS 1
;ERROR CHECKS
IFNDEF X0B,< PRINTX ? SAMPBYT: B NOT PREVIpOUSLY DEFINED WITH DEFBYT>
XA=0=XB
YA==YB
> ;END IF1
B
>gRX5Q @ gRY8Q gRYzQ gR[VQ gR~) /pCM
;ERROR0 CHECKS
IF1,<
00IFNDEF XB,<PRINT0PX ? B NOT DEFINE0pD WITH "DEFBYT">
>;END PASS 1 ERR10OR CHECKS
DFBF1P==XB_-^D32 ;GET1p FLAG WORDS
IFE 2DFBF-DFB.FW,< ;G20EN FULL WORD INST2PRUCTION
MOVEM 2pA,YB+C
>
IFE3 DFBF-DFB.RH,< ;30GEN RIGHT HALF WO3PRD INSTRUCTION
3pHRRM A,YB+C
4>
IFE DFBF-DFB.L40H,< ;GEN LEFT HA4PLF WORD INSTRUCTI4pON
HRLM A,YB+5C
>
IFE DFBF-50DFB.BT,<
..X==X5PB_^D18
..X==..X_5p-^D18 ;GET RID 6OF LH, = ENDING B60IT POSITION
..Y6P==<XB_-^D18>&^O76p7 ;GET LH, JUST 7# OF BITS
..LIT70==<YB+C> ;FIRST7P PART OF LITERAL 7pBEING BUILT
..L8IT==..LIT+<..Y_^D8024> ;# OF BITS IN8P BYTE PTR
..LIT8p==..LIT+<<^D36-..9X-1>_^D30> ;FINAL90 BIT POSITION IN 9PBYTE PTR
DPB A ,[..LIT]
>
AgfhQ DC A==:B i P i?4HP m' + "@2z
ELMT%"`% MEMRY%,1
ELMT# %% TALLY.,1,<Z>
# ELMT%% SZERA.,1,#@<Z>
ELMT%% OVFL#`O.,1,<Z>
ELMT$ %% TRAC1.,1,<JRST$ BTRAC.##>
ELMT$@%% TRAC2.,1,<JRST$` TRPOP.##>
ELMT% %% TRAC3.,1,<JRST% TRPD.##>
ELM%@T%% OPNCH.,1,<XWD%` 777774,0>
ELMT& %% RN.DEV,1
ELM& T%% RN.PPN,1
EL&@MT%% RN.NAM,1
E&`LMT%% FSLOC.,1,<Z' >
ELMT%% HLOVL.' ,1,<Z>
ELMT%%'@ %REMOV,1,<EXP RE'`MOV.##>
IFN ANS7( 4,<
ELMT%% %ENT( OV,1,<EXP ENTOV.#(@#>
>
ELMT%% (`KEYCV.,1,<Z>
EL) MT%% SAVEF.,1,<Z>)
EL)@MT%% HPRT.,1,<EXP)` HSRPT.##>
* ; PRINTING ROUTI* NE.
ELMT%% SEGN*@O.,1,<Z>
ELMT%%*` SNRBP.,1,<EXP SB+ PSG.##>
ELM+ T%% TRAC4.,1,<EXP+@ CNTRC.##>
ELMT+`%% CIOTF.,1,<EXP , SFOV.##>
,
IFN DBMS,< ,@ ;[623]
ELMT%%,` DBSTP%,1,<EXP DB- STP$##>
SYML%% - LEVEL.,<.-1>
IF-@NDEF LEVEL.,<PRIN-`TX ?LEVEL. NOT DE. FINED!>
> ;[. 623]
IFE DBMS,< .@ ;[623]
ELMT%.`% LEVEL.,1,<Z>
>/ ;[623]
E/ LMT%% METR.,1,<Z>
.,1,<Z>u2| %pB{
;ERROR& CHECKS
IF1,<
&0IFNDEF XB,<PRINT&PX ? B NOT DEFINE&pD WITH "DEFBYT">
>;END PASS 1 ERR'0OR CHECKS
DFBF'P==XB_-^D32 ;GET'p FLAG WORDS
IFE (DFBF-DFB.FW,< ;G(0EN FULL WORD INST(PRUCTION
MOVE A(p,C
>
IFE DFBF)-DFB.RH,< ;GEN R)0IGHT HALF WORD IN)PSTRUCTION
HRRZ )pA,C
>
IFE DF*BF-DFB.LH,< ;GEN*0 LEFT HALF WORD I*PNSTRUCTION
HLRZ*p A,C
>
IFE D+FBF-DFB.BT,<
..X+0==XB_^D18
..X==+P..X-^D18 ;GET +pRID OF LH, = ENDI,NG BIT POSITION
..Y==<XB_-^D18>,P&^O77 ;GET LH, J,pUST # OF BITS
.-.LIT==<C> ;FIRS-0T PART OF LITERAL-P BEING BUILT
..-pLIT==..LIT+<..Y_^.D24> ;# OF BITS I.0N BYTE PTR
..LI.PT==..LIT+<<^D36-..p.X-1>_^D30> ;FINA/L BIT POSITION IN/0 BYTE PTR
LDB A,[..LIT]
>
uO%|R :D
;ERROR:0 CHECKS
IF1,<
:PIFNDEF XB,<PRINT:pX ? B NOT DEFINE;D WITH "DEFBYT">
>;END PASS 1 ERR;POR CHECKS
DFBF;p==XB_-^D32 ;GET< FLAG WORDS
IFE <0DFBF-DFB.FW,< ;G<PEN FULL WORD INST<pRUCTION
MOVEM =A,C
>
IFE DFB=0F-DFB.RH,< ;GEN =PRIGHT HALF WORD I=pNSTRUCTION
HRRM> A,C
>
IFE D>0FBF-DFB.LH,< ;GE>PN LEFT HALF WORD >pINSTRUCTION
HRL?M A,C
>
IFE ?0DFBF-DFB.BT,<
..?PX==XB_^D18
..X=?p=..X_-^D18 ;GET@ RID OF LH, = END@0ING BIT POSITION @P
..Y==<XB_-^D18@p>&^O77 ;GET LH, AJUST # OF BITS
A0..LIT==<C> ;FIRAPST PART OF LITERAApL BEING BUILT
.B.LIT==..LIT+<..Y_B0^D24> ;# OF BITS BPIN BYTE PTR
..LBpIT==..LIT+<<^D36-C..X-1>_^D30> ;FINC0AL BIT POSITION ICPN BYTE PTR
DPB CpA,[..LIT]
>
A,[..LIT]
>
{:P
$#@P
&C@P
uS@P
#@P fI9P |,{P |-YP }[0P MI9P 2~93 D0D'
VISBL% DP
INFBK%
PRDpEST%
LIDAT%
%
LIDAT% 6}i<P ?6)WP B}ZP C.:P N,}rP O,\:P O,hZP O.,ZP W \gP S@P >}{woP