📄 mbedit.mac
字号:
\* mbedit.mac 13.03.04 *\
\*
\ --------------------------------------------------------------
\ Copyright (C) 2004: Peter Stoeckigt
\ Heinz-Dieter Sander
\ Michael Braun
\ --------------------------------------------------------------
\
\ macro file for aedit / mbedit
\
*\
\* GENERAL SETTINGS *\
\* AV= 25; *\ \* NUMBER OF LINES *\
\* AC= 80; *\ \* NUMBER OF COLUMNS *\
AG= 1; \* SEMI-GRAFIK: 0=OFF, 1=VGA/VT100, 2=ANSI, 3=ANSI/PC *\
AM= 0; \* 1 = MOUSE DRIVER ON (only 80 x 25 char) *\
AS= 1; \* Automatic Shift of Screen with Cursor *\
AE=200; \* wait time for <esc> sequences in msec *\
\********************\
\* COLOR SETTINGS *\
\********************\
\* SETTINGS FOR VGA GRAPHIC (MS-DOS) *\
AFNV=1B4D70; \* NORMAL VIDEO *\
AFRV=1B4D07; \* REVERS VIDEO *\
AF1V=1B4D30; \* STATUS LINE 1 *\
AF2V=1B4D47; \* STATUS LINE 2 *\
AFCV=1B4D72; \* COMMENTS *\
AFKV=1B4D71; \* KEYWORDS *\
AFSV=1B4D74; \* STRINGS *\
\* || *\
\* |+--- Foreground Color 0-F *\
\* +---- Background Color 0-F *\
\* Background Bit 3 set = blinking *\
\* SETTINGS FOR VGA GRAPHIC (Windows DOS-Box) *\
AFNV=1B4DF0; \* NORMAL VIDEO *\
AFRV=1B4D0F; \* REVERS VIDEO *\
AF1V=1B4D30; \* STATUS LINE 1 *\
AF2V=1B4D4F; \* STATUS LINE 2 *\
AFCV=1B4DF2; \* COMMENTS *\
AFKV=1B4DF1; \* KEYWORDS *\
AFSV=1B4DF4; \* STRINGS *\
\* || *\
\* |+--- Foreground Color 0-F *\
\* +---- Background Color 0-F *\
\* Background Bit 3 set = light color *\
\*\* SETTINGS FOR VT100 / VT220 *\
\*AFNV="[0m" \* NORMAL VIDEO *\
\*AFRV="[7m" \* REVERS VIDEO *\
\*AF1V="[0m" \* STATUS LINE 1 *\
\*AF2V="[7m" \* STATUS LINE 2 *\
\*AFCV="[1m" \* COMMENTS *\
\*AFKV="[4m" \* KEYWORDS *\
\*AFSV="[4m" \* STRINGS *\
\*\* | *\
\*\* +--- Attribute : 0 = normal *\
\*\* 1 = bold *\
\*\* 4 = underlined *\
\*\* 5 = blinking *\
\*\* 7 = invers *\
\*\* 8 = hidden *\
\* SETTINGS FOR ANSI *\
AFNV="[0;30;48m" \* NORMAL VIDEO *\
AFRV="[7;30;48m" \* REVERS VIDEO *\
AF1V="[0;30;46m" \* STATUS LINE 1 *\
AF2V="[0;38;41m" \* STATUS LINE 2 (WIN_32) If required, swap these two lines. *\
AF2V="[0;37;41m" \* STATUS LINE 2 (Unix) If required, swap these two lines. *\
AFCV="[0;32;48m" \* COMMENTS *\
AFKV="[0;34;48m" \* KEYWORDS *\
AFSV="[0;31;48m" \* STRINGS *\
\* | | | *\
\* | | +--- Background Color 0-7 (0-8) *\
\* | +------ Foreground Color 0-7 (0-8) *\
\* +--------- Attribute as above *\
\* Meaning of Attributes and Colors, see:
http://home.t-online.de/home/braun-m/doc_html/english/mb_ac_e.htm
*\
\********************\
\* KEYBOARD MACROS *\
\********************\
M]\BR-\NL\BRr\BR\NL \BR\NL\MM
M[\BR-\NL\BR\CRcn9=(curwd==2020h)*3\NL\XN9\XF\NL\MM
M\085\BRe\0185\BR\MM; \*** shift screen ==> ^--> ***\
M\0185\BRsl+10\BR\MM;
M\084\BRe\0184\BR\MM; \*** <== ^<-- ***\
M\0184\BRsl-10\BR\MM;
M\088\BRjp0\NLsl0\NL\MM; \*** ^<Home> ***\
M\086\BR\081cn8=col/80\NL
cn9=n8*80+(!(N8==0)&1)*((col\\80)-60)\NLsl\XN9\NL\MM; \*** ^<End> ***\
M\080\BRe\0180\BR\CU\CH\MM; \*** <PgUp> ***\
M\0180\BR\CD\MM;
M\082\BRe\0182\BR\CD\CH\MM; \*** <PgDn> ***\
M\0182\BR\CU\MM;
M\07F\BRjp0\NL\MM; \*** home ^<BckSp> ***\
M\081\BRe\0181\BR\CR\CH\MM; \*** end <End> ***\
M\0181\BR\CL\MM;
\* M\083\BR\BRi\EM; *\ \*** insert <Insert> ***\
M\00F\BR\BRx\EM; \*** exchange ^O ***\
M\089\BRjs\BR\MM; \*** jump start ^<PgUp> ***\
M\087\BRje\BR\MM; \*** jump start ^<PgDn> ***\
M\00C\BRe\010C\MM; \*** find next occurance ^L ***\
M\010C\BR1f\BR\MM;
M\010\BRe\0110\BR\MM; \*** find prev occurance ^P ***\
M\0110\BR1-\BR\MM;
M>\BRF\XSB\BR\MM \*** find block buffer foreward > ***\
M<\BR-\XSB\BR\MM \*** find block buffer backward < ***\
\*** macro help F1 ***\
M\090\BR!TYPE \XSM\RB\RB\RBHLP\NL\MM
\*** directory shft F1 ***\
M\0A0\BR!DIR/W\BR\MM;
\*** system shell ctrl F1 ***\
M\0B0\BR!COMMAND\BR\MM;
\* search Online Help for the current word alt F1 ***\
M\0C0\BRe\091\BR!qh \XSb\NL\MM
\* ^^^ modify here !! *\
\* MS-DOS: "qh " (quickhelp) *\
\* unix : "man " (manual pages) *\
\* os/9 : "help " *\
\* Copy current word into Buffer F2 ***\
M\091\BRtc0f~\RB\BR/e\01171\NLtd/e\01111\NL/e\01112\NL/e\01172\NL
bjdbjc\MM
\*** get err-file shft F7 ***\
M\0A6\BROQINUL\NLI\XSI\BR-.\BR\XAI.ERR\BRB\CL\CHBQUIL:\XSB\NL\MM
\*** get list-file F7 ***\
M\096\BROQINUL\NLI\XSI\BR-.\BR\XAI.LST\BRB\CL\CHBQUIL:\XSB\NL\MM
\*** find error (MS-C) shft F8 ***\
M\0A7\BRe\010A7\NLcn9=cntfnd==0\BR\XN9e\011A7\NL\MM
M\010A7\BRF: error\BR\MM
M\011A7\BRF: warning\BR\MM
\*** find error (INTEL) F8 ***\
M\097\BRe\01097\NLcn9=cntfnd==0\BR\XN9e\01197\NL
cn9=cntfnd==0\BR\XN9e\01297\NL\MM
M\01097\BRF*** ERROR\BR\MM
M\01197\BRF*** WARNING\BR\MM
M\01297\BRF*** REMARK\BR\MM
\*** Jump Error Line (MS-C) @ ***\
M@\BRjp0\NLf(\BRbf)\BR\CLbojl\XSb\NL\MM
\*** Jump Error Line (INTEL ASM/PLM) # ***\
M#\BRjp0\NLf(LINE \BRbf)\BR\CLbojl\XSb\NL\MM
\*** Jump Error Line (INTEL/KEIL C) $ ***\
M$\BRjp0\NLf LINE \BRbf \BRbojl\XSb\NL\MM
\*** Word right macros ^W ***\
M\017\BR0f~\RB\BR/e\01171\NL/e\01172\NL\MM;
M\01171\BRcn9=isdel\NL\XN9f\BR\CR\MM;
M\01172\BRcn9=!isdel\NL\XN9f\BR\CR\MM;
\*** Word left macros ^Q ***\
M\011\BR0f~\RB\BR\CL/e\01111\NL/e\01112\NL\CR\MM;
M\01112\BRcn9=isdel\NL\XN9f\BR\CL\MM;
M\01111\BRcn9=!isdel\NL\XN9f\BR\CL\MM;
\*** skip white spaces +W ***\
M+W\BR/e+W1\BR\MM;
M+w1\BRcn9=!iswhte\NL\XN9f~\RB\BR\CR\MM;
\*** back skip white spaces -W ***\
M-W\BR/e-W1\BR\MM;
M-w1\BRcn9=!iswhte\NL\XN9f~\RB\BR\CL\MM;
\*** skip blanks +B ***\
M+B\BR/e+B1\BR\MM;
M+b1\BRcn9=!(curch==20H)\NL\XN9f~\RB\BR\CR\MM;
\*** back skip blanks -B ***\
M-B\BR/e-B1\BR\MM;
M-b1\BRcn9=!(curch==20H)\NL\XN9f~\RB\BR\CL\MM;
\*** convert all tabs to blanks NOTAB ***\
MNOTAB\BRsknsny/eDE1\NL\MM;
Mde1\BRf\TB\BR\RBi\TB\BR\MM;
\*** display current line number L ***\
ML\BRtaeflf\NLjacn9=cntfnd+1\NLjeeflf\NLjacn8=cntfnd+1\NL
cs9="----- line: \XN9 (\XN8) -----"\NLcs9\NL\MM;
Mflf\BRskn/-\XH0a\BR\MM;
\* Date Macro - European format: dd.mm.yy or dd.mm.yyyy, respectively *\
\* search for next occurance of a date and replace it with the actual one *\
Md\BR
eextract_date\BR
esearch_ddmmyy\BR
\xn9ereplace_ddmmyy\NL
\xn8ereplace_ddmmyyyy\NL
\MM;
\* extract year(cn9), day(cn8), month(cn7) from "date" and build string s9 *\
Mextract_date\BR
srd
cn9=date%100+100\NL
cn8=(date/100)%100+100\NL
cn7=date/10000+100\NL
cs9="\XN8\CL\CL\CL\XF\CR\CR.\XN7\CL\CL\CL\XF\CR\CR.\XN9\CL\CL\CL\XF\CR\CR"\NL
cs9\NL
\MM
\* search for dd.mm.yy in the file buffer *\
Msearch_ddmmyy\BR
s*y
cn8=0\BR
cn9=0\BR
f??.??.??\BR
cn8=(cntfnd > 0) & (curch >= '0') & (curch <= '9')\BR
2\CL
cn9=(cntfnd > 0) & (curch >= '0') & (curch <= '9')\BR
6\CL
s*n
\MM;
\* exchange current text with actual date string *\
Mreplace_ddmmyy\BR
x\xs9\BR
\MM;
\* translate year 2 --> 4 digits (if already this length) *\
Mreplace_ddmmyyyy\BR
\XF\XF
\CL\CL
i20\CR\CR\BR
10\CL
s*y
f??.??.????\BR
s*n
\MM;
M\098\BR\BRqu\BR\MM; \*** Update File F9 , U ***\
\* MU\BR\BRqu\BR\MM; *\
MU\BR\BRsdyqu\BRsdn\MM;
M\099\BR\BRqe\BR\MM; \*** Quit + Exit F10 ***\
M\0B9\BR\BRqe\BR\MM; \*** Quit + Abort ctrl F10 ***\
M\002\BRI\XSB\BR\MM; \*** get buffer contents ^B ***\
M\016\BRV\BR\MM; \*** View ^V ***\
M \BRI \BR\MM \*** Blank ***\
\* new MBEDIT macros for pc-semigraphic *\
M\0D1\BR\XHb3\EM; \* ALT 1 : ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -