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