Google
 

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
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   Y,w6o?	
G/Tv`jq	Convert MACRO-10Convert 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
.u10l6F~DEFSYM"el!<!>'q1j
1a-:"ec'"#i:'
.u0:fb;"e:l'.u1
q0,q1fsbound
j<:sB;-d
1af0123456789:"l
.,(\u1.)fk
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.)fk
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


MACCNV7Convert 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