汇编语言宏系统-MSYSTEM.MAC

msystem.zip 411KB。

宏观系统

档案中主要文件的简要描述。

宏观系统本身：

系统管理程序 该文件包含实际的宏系统。

宏宏 该文件包含其他有用的宏定义。

主板BIOS 该文件包含 IBM-PC BIOS 的宏定义。

多态操作系统 该文件包含 IBM-PC DOS 的宏定义。

康尼奥

目录MAC

错误.MAC

浮点法

IOMAC

大骨节病

数学.MAC

主板BIOS

内存法

鼠标.MAC

斯托夫·麦克

字符串.MAC

系统MAC

宏观系统本身：

选择.M

时钟.M

编码器M

彩色M

游标.M

数据库编辑器

初始值

KEY.M

菜单.M

MKEYSM

读M

REC.M

说M

滚动.M

排序M

声音M

窗口.M

文档：

系统文件 这是宏系统的文档文件。

扩展文档

宏宏文档

MMEM.DOC

奥格拉夫.DOC

读.DOC

标题.DOC

*.ASM 文件 这些文件包含

用于在系统上安装
请记住汇编器错误
无论你采取什么方法——
汇编器本身可以在这里下载 tasm25.zip - 175 KB。

例如，这是一个简单的代码

;
;

.型号小

包括 msystem.mac
包括 sys.mac
包括 conio.mac
包括 mouse.mac
包括mem.mac
包括 kbd.mac
包括 math.mac
包括光标.m
包括window.m
包括颜色.m
包括rec.m
包括 dbedit.m
包括 say.m
包括read.m
包含 key.m
包括 mkeys.m

包括 mb.m

大小_com = 20000+256
长度堆栈= 20000
长度变量 = 20000

。代码
开始，100h，_main，{

func mb_empty,,
mov SI，buf_A
memfill <32,@ DEBET_NAME,LEN_NAME>
memfill < 0,@ DEBET_QUAN,LEN_QUAN>
memfill <32，@ KREDIT_NAME，LEN_NAME>
memfill < 0,@ KREDIT_QUAN,LEN_QUAN>
恩德夫

func _pic,<字节 X,字节 Y>,,1,公共
旧颜色 EQU [BP]-1
获取颜色，<旧颜色>
mov SI，buf_A
setcolor
sayxy
设置颜色<旧颜色>
说<@DEBET_NAME，@f_name>
setcolor
说 <@ space,@ f_s>
设置颜色<旧颜色>
说<@DEBET_QUAN，@f_quan>
setcolor
说 <@ space,@ f_s>
setcolor
说 <@ space,@ f_s>
设置颜色<旧颜色>
说 <@ KREDIT_NAME,@ f_name>
setcolor
说 <@ space,@ f_s>
设置颜色<旧颜色>
说 <@ KREDIT_QUAN,@ f_quan>
setcolor
说 <@ space,@ f_s>
设置颜色<旧颜色>
恩德夫

func _fuser,<字节模式,字RecCur>,,1,public
旧颜色 EQU [BP]-1
移动DI，1
mov AL, cs:模式
开关 AL,<0,1>
情况1 { ;
获取颜色，<旧颜色>
设置颜色
重新计数<@rec_A>,
sayxy <35, 2,@ ii,@ f_w4>
recrecno <@ rec_A>,
sayxy <41, 2,@ ii,@ f_w4>
设置颜色<旧颜色>
情况2{
mov retr_cho, TRUE
while {
mov retr_cho，假
mkeys_to
mov AL, cs:key_AL
开关 AL, {
情况1 {
mov AH, cs:key_AH
开关 AH,
情况1 ;
插入 ,
案例2；
删除 ,
案例3；
排序 ,
案例4；
案例5；
约会，
案例6；
菜单拉动
移动DI, 3
端壳
情况 2 {;
案例3；
输入,
案例4；
移动完成，FALSE
移动DI,0
端壳
结束}
端壳
endf <字 DI>

label1 db '即将到来',0
label2 db '消耗',0
title1 db ' 名称 数量

ukeys1 db 1Eh,0
ukeys2 db 1Fh,0
skeys1 db '回车',0
nkeys1 db '回车',0
skeys2 db 'INS',0
nkeys2 db '新',0
skeys3 db 'DEL',0
nkeys3 db '删除',0
skeys4 db 'F5',0
nkeys4 db '打印',0
skeys5 db 'F6',0
nkeys5 db '订单',0
skeys6 db 'F7',0
nkeys6 db '搜索',0
skeys7 db 'F8',0
nkeys7 db 'SUM',0
skeys8 db 'F10',0
nkeys8 db '菜单',0
skeys9 db 'ESC',0
nkeys9 db '退出',0

;--- 头部程序
主要功能
;
命令行
mov SP，size_com+len_stack
科学技术
;
farrelease <*CS 00.00 size_com+len_stack+len_vars>
初始化控制器
释放 <* size_com+len_stack,0>
初始化系统
初始化鼠标
光标关闭
;
setcolor <<>>
绘图盒 抽屉箱 < 0, 2.79, 2,@ box_main>
鼠标打开
设置颜色
sayxy <16, 0,@ label1,@ f_s>
sayxy <56, 0,@ label2,@ f_s>
setcolor
sayxy <0, 1,@ title1,@ f_s>
setcolor
说 <@ title1,@ f_s>
setcolor <<>>
;
颜色<菜单属性>
mkeys_on <真>
mkeys_fr <79, 0,PGUPKEY*100h,@ ukeys1,@ snull>
mkeys_fr <79,24,PGDNKEY*100h,@ ukeys2,@ snull>
mkeys_fr < 4,24,CRKEY,@ skeys1,@ nkeys1>
mkeys_fr <14,24,INSKEY*100h,@ skeys2,@ nkeys2>
mkeys_fr <22,24,DELRKEY*100h,@ skeys3,@ nkeys3>
mkeys_fr <30,24,F5KEY*100h,@ skeys4,@ nkeys4>
mkeys_fr <37,24,F6KEY*100h,@ skeys5,@ nkeys5>
mkeys_fr <44,24,F7KEY*100h,@ skeys6,@ nkeys6>
mkeys_fr <51,24,F8KEY*100h,@ skeys7,@ nkeys7>
mkeys_fr <58,24,F10KEY*100h,@ skeys8,@ nkeys8>
mkeys_fr <65,24,ESCKEY,@ skeys9,@ nkeys9>
mkeys_on
;
重新打开<@rec_A,@file_A,len_A>
getmem , ;recbuffer
空的<@rec_A，@_mb_empty>
;
颜色
mov 完成，TRUE
while
dbedit <@ rec_A, 0, 3,79,23,@ cs:__pic,@ cs:__fuser>
结束语
;
freemem<*buf_A>
重新关闭<@rec_A>
;
mkey_of
;
鼠标关闭
光标打开
;
清除率
停止<0>
恩德夫
结束 开始