home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
msr313src.tar.gz
/
msr313src.tar
/
msvrmx.mac
< prev
next >
Wrap
Text File
|
1988-08-16
|
3KB
|
194 lines
AFIG=0A
MGO\BR
EDEFS\NL
QUIMSSKER.ASM TO MSSKER.A86\NL
EFIX\NL
EKER\NL
QUIMSSCMD.ASM TO MSSCMD.A86\NL
EFIX\NL
QUIMSSCOM.ASM TO MSSCOM.A86\NL
EFIX\NL
ECOMM\NL
QUIMSSFIL.ASM TO MSSFIL.A86\NL
EFIX\NL
QUIMSSFIN.ASM TO MSSFIN.A86\NL
EFIN\NL
QUIMSSRCV.ASM TO MSSRCV.A86\NL
EFIX\NL
QUIMSSSCP.ASM TO MSSSCP.A86\NL
EFIX\NL
QUIMSSSEN.ASM TO MSSSEN.A86\NL
EFIX\NL
QUIMSSSER.ASM TO MSSSER.A86\NL
EFIX\NL
QUIMSSSET.ASM TO MSSSET.A86\NL
EFIX\NL
ESET\NL
QUIMSSTER.ASM TO MSSTER.A86\NL
EFIX\NL
QUIMSVRMX.CSD TO :BB:\NL
/R\NL;\BR\NL\BR
B-\BR\CRPBIND2.CSD\NL
B-\BR\CRPBIND.CSD\NL
B-\BR\CRPLINK.CSD\NL
B-\BR\CRPASM.CSD\NL
QE\MM
MDEFS\BR
EPCT\NL
SKY
EDEF1\NL
EDEF2\NL
EDEF3\NL
EDEF4\NL
EDEF5\MM
MPCT\BR
SKN
/R%\BR%1%\BR\MM
MDEF1\BR
JS\CD\XZ\XZI$SAVE NOLIST\NL
cibufl\TBequ\TB128\NL
cobufl\TBequ\TB1024\NL\BR\MM
MDEF2\BR
Fverdef\BR\CL\CH
I%*DEFINE(\BR
Rmacro\BR)(\BR
Fdb\BR-\BR\XX\RB
RMS\BRRMX\BR\CR\CH\RB
I (RMX 22 Apr)')\BR\CD\XZ\MM
MDEF3\BR
Fbufsiz\BRFequ\BRE+W\NL
TAE+N\NLDJADI2048\BR
Fportmax\BRFequ\BRE+W\NL
TAE+N\NLDJAD
I10\CR\CH\NL%set(portmax,10)\BR\MM
MDEF4\BR
Fmkeyw\BR
\CL\CHTA
Fendm\BR
\CL\CR\CH\CR
DJAD
I%*DEFINE(mkeyw(key,val))(db\TB(%LEN(%key))-2,%key,'$'\NL
\TBdw\TB%val)\BR\MM
MDEF5\BR
JE2-\NLcode\BR
\CRDJED
I%IF(%OS EQ 86)THEN(\NL
cgroup\TBgroup\TBcode\NL
\TBassume\TBcs:cgroup,ds:datas,ss:stack\NL
stack\TBsegment\TBstack 'stack'\NL
stack\TBends\NL
datas\TBsegment\TBpublic 'datas'\NL
datas\TBends\NL
code\TBsegment\TBpublic 'code'\NL
code\TBends\NL
)ELSE(\NL
\TBassume\TBds:datas\NL
stack\TBstackseg\TB0\NL
datas\TBsegment\TBRW public\NL
datas\TBends\NL
code\TBsegment\TBER public\NL
code\TBends\NL
)FI\NL
$RESTORE\NL\BR
-fname\BRR13\BR15\BR\MM
M+W\BR/e+W1\BR\MM
M+W1\BRcn9=!iswhte\NL\XN9f~\RB\BR\CR\MM
M-W\BR/e-W1\BR\MM
M-w1\BRcn9=!iswhte\NL\XN9f~\RB\BR\CL\MM
M+N\BR/e+N1\BR\MM
M+N1\BRcn9=iswhte\NL\XN9f~\RB\BR\CR\MM
MFIX\BR
EPCT\NL
EINCL\NL
EVERD\NL
JEI;\BR
JS/EMKEY\NL
SKNJS
F\NLdatas\BRFsegment\BR\XA
F\NLcode\BRFsegment\BR\XA
Fassume\BR\CL\CH\XA
I\NL\TBextrn\TBdosint:near\NL\BR
/EDOS\NL
SKN
EEND\MM
MINCL\BR
JS/EFINCL\BR\CL\CH\XA
I$INCLUDE(MSSDEF.H86)\BR\MM
MFINCL\BRFinclude\BR-\BRCn8=curpos\NL\CL\CHE+W\NLCn8=curpos==n8\NL\CR\CH\XN
8F~\RB\BR\MM
MVERD\BR
JSRverdef\BR%verdef\BR\MM
MMKEY\BR
SKY
Fmkeyw\BR
TA\CL\CHTB
SKN
F;\BRTC
CN9=curpos>taga\NL
JA\XN9EMK1\NL\MM
MMK1\BR
JBSKY
Rmkeyw\BR%mkeyw\BR
SKN
F'\BR\CLI(%(\BR\CR\CH
CN9=(tagc<curpos)*(tagc-curpos-2)\NL
\XN9\CLE-W\NL\CRI)\BR-'\BR\CRI)\BR\MM
MDOS\BR
SKY
Fint\BRTA
E+W\NLTB
EDOS1\NL\MM
MDOS1\BR
Fdos\BRTC
CN9=curpos-3==tagb\NL
JA\XN9EDOS2\NL\MM
MDOS2\BR
3\CLDJCD
Icall\TBdosint\BR\MM
MEND\BR
JE-ends\BR
4\CRDJED
I\NL\TBend\NL\BR\MM
MKER\BR
JSFpublic\BR\CR\CH
I, start\BR
SKN
F\NLCSTACK\BR\CL\CHDF\BR\CR\CH\CRD
SKY/Rcstack\BRstack\BR\MM
MCOMM\BR
-spkout:\BRI;\BRF\BRI\TBdeleted to use s/r in MSXRMX\NL\XF\TB\BR
-extrn\BR\CR\CHI, spkout:near\BR
-rept\BR4\CRE+W\NLTAE+N\NLBJAB\CL\CH\XZ
I%REPEAT(%\XSB)(\BR
\CR\CH\CR\XZI)\BR
JL2\NLI\TBpublic\TBspkcnt\NL\BR\MM
MFIN\BR
EFINCL\NL
\XZ
F\NLdatas\BR\XZ\XZ\CL\CH
I%IF(%OS EQ 86)THEN(\NL
datas\TBsegment\TBpublic 'datas'\NL
)ELSE(\NL
datas\TBsegment\TBRW public\NL
)FI\NL
msfinal\TBdb\TB?\NL\BR
EEND\MM
MSET\BR
-public\BR\CR\CH
I, takset, bdtab\BR
JSF\NLmaketab\BR\CL\CHDF\NLENDM\BR\CL\CH\CDD
I$SAVE NOGEN\NL
%*DEFINE(maketab)(\NL
$SAVE NOGEN\NL
%SET(cnt,0)\NL
%REPEAT(256)(\NL
\TBdb\TB%cnt\NL
%SET(cnt,%cnt+1)\NL
)\NL
\TBdb\TB0\NL
$RESTORE\NL
)\NL
$RESTORE\NL\BR
RKermit-MS\BRKermit-RMX\BR
Rmaketab\BR%maketab\BR\MM