Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/maccnv.elib
There are no other files named maccnv.elib in the archive.
( W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
Y , w 6 o ?
G / T v ` j q Convert MACRO-10 Convert MONSYM ~DIRECTORY~ ~DOC~ Convert MACRO-10 ~DOC~ Convert MONSYM ~DOC~ ~Filename~ ~Filename~
~INVERT~p [0[1
[..d128*5, A:I..D
1m(m.m&]Alter"..D) ,
j<:s=;
.(0l1a- ;"e)wl!<!>')j
@f=r
.u10l6 F~DEFSYM"el!<!>'q1j
1a- :"ec'"#i:'
.u0:fb;"e:l'.u1
q0,q1fsbound
j<:sB;-d
1af0123456789:"l
.,(\u1.)f k
i _35-q1\i.'
"#
i _<35.-.RADIX10.,
flli>'
>
0fsvbw0fsvz
0liDEFSYM l
>
j<:s=:<Z ;2rdi0>
j<:s";
0:fb;.err"e
c1a- "!'!"ed'
"#''
"#l'>
j<:s^D;-2d
1af0123456789:"l
\wi.'
"#i.RADIX 10.,'>
j<:s
DEFINE;
0l.,(s<!>!r.)k
flk>
@
[0[1
JsDEFINE JSLISTl
b,.k
.u0
s
JSLIST0lk
.,(-s
>0l.)f k
fsz-.f[vz
q0j<:sDEFJS ;
0kiDEFSYM
s,-d
i=:JSYS
s,
fkc:k>
0fsvz
sOPDEF ERJMP
0l.,(s>>l.)k
i
DEFSYM ERJMP=:JUMP 16,0 ;JUMP ON ERROR
DEFSYM ERCAL=:JUMP 17,0 ;CALL ON ERROR (SIMULATE PUSHJ 17,ADR)
sDEFINE GOPDEF
0l.u0.,(s
;-l.)k
s
0lz-.fsvz
q0j<:sGOPDEF ;
0kiDEFSYM s,rdi=:>
s.NODDT0lk
0fsvz
(sBRINI.-2l.),(s
0l.)k
sDEFINE .ERCOD0l.u0k
s
DEFINE .ERR
-s
>0l.,zk
q0j<:s.err (;
0k.,(s,r.)fx1
iDEFSYM d
s,r2di==:.ERBAS+ 1
i ;
!<!s>r:k>
m(m.mConvert Macro-10)
bji; TWENEX system bits
; This file is generated from MONSYM.MAC by the Convert Monsym macro
; in the MACCNV EMACS library.
.AUXIL
IFNDEF DEFSYM,[;ALLOW USER TO USE SYMBOLS IN OTHER WAYS IF HE WISHES.
;BUT NORMALLY, DEFSYM FOO==BAR DOES FOO==BAR WITH ERROR CHECK.
DEFINE DEFSYM X/
IRPS Z,,[X]
IFNDEF Z,.QUOTE/.QUOTE/X
.ELSE [
$$TEM1==Z
.QUOTE/.QUOTE/X
IFN Z-$$TEM1,.ERR Z MULTIPLY .QUOTE`.QUOTE/DEFINED/`
]
.ISTOP
TERMIN TERMIN
IFLE .MLLIT,.ERR .MLLIT MUST BE 1; SETTING IT TO 1.
.MLLIT==1
$$TEMP==1
]
.ELSE $$TEMP==0
zji
;If this file provided the definition of DEFSYM, flush it
;so that we leave things as we found them.
IFN $$TEMP,EXPUNG DEFSYM
MACCNV7 Convert Twenex MONSYM file into TWXBTS.MID (Rel 4). C Convert MACRO-10 defs files to MIDAS defs files.
Turns every assignment into a DEFSYM.
Converts MACRO-10 nnBm and ^D and "X" to MIDAS.' C Convert MONSYM.MAC to TWXBTS.MID.& Convert MACRO-10
Convert MONSYM
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2