Sistem macro Asamblor

Sistem macro vă permite să scrieți programe în sintaxa limbajului familiar nivel ridicat și nu textele programului mai mult transparent de citit și percepţie. Sistem conceput pentru compilatoare cu limbaj de asamblare TASM-2.5 și MASM-5.0. Reprezintă limbaj structurat nivel înalt care poate folosesc pentru a scrie programe de orice dimensiune și orice scop. Calculat pentru un programator care deja are experiență în programarea limbajului asamblator.

Scurtă descriere a fișierelor principale din arhivă.

Sistemul de macrocomenzi în sine:

MSYSTEM.MAC Acest fișier conține sistemul macro actual.

MMACROS.MAC Acest fișier conține macro-uri utile suplimentare.

MBIOS.MAC Acest fișier conține macrocomenzi pentru BIOS-ul IBM-PC.

MDOS.MAC Acest fișier conține macrocomenzi pentru IBM-PC DOS.

Sistemul de macrocomenzi în sine:

KEY.M

REC.M

SAY.M

DOCUMENTARE:

MSYSTEM.DOC Acesta este fișierul de documentare pentru sistemul macro.

* Fișiere .ASM Aceste fișiere conțin exemple de programe scrise în sistem macro.

Pentru instalare pe sistem copiați fișierul necesar MSYSTEM.MAC și restul fișierelor - de Discreția dumneavoastră. Pentru programare de succes în sistem de macrocomenzi recomandat în detaliu citiți manualul și sistemul în sine macrocomenzi conținute în fișierul MSYSTEM.MAC.
Amintiți-vă că erorile de asamblare nu înțelege și totul depinde numai de la tine.
Oricare ar fi abordarea ta - succese !!!
Asamblorul în sine poate fi descărcat de aici tasm25.zip - 175 KB.

De exemplu, iată un cod simplu programe de baze de date, contabilitate venituri și cheltuieli de bani

; MB.ASM
; D. L. Konyukhov

.MODEL MIC

include msystem.mac
include sys.mac
include conio.mac
include mouse.mac
include mem.mac
include kbd.mac
include math.mac
include cursor.m
include fereastra.m
include culoare.m
include rec.m
include dbedit.m
include say.m
include read.m
include cheia.m
include mkeys.m

include mb.m

size_com=20000 + 256
len_stack=20000
len_vars=20000

.CODE
ÎNCEPE, START, 100h, _principal, {

func mb_empty ,, \u0026 lt; SI \u0026 gt;
mov SI, buf_A
memfill \u0026 lt; 32, @ DEBET_NAME, LEN_NAME \u0026 gt;
memfill \u0026 lt; 0, @ DEBET_QUAN, LEN_QUAN \u0026 gt;
memfill \u0026 lt; 32, @ KREDIT_NAME, LEN_NAME \u0026 gt;
memfill \u0026 lt; 0, @ KREDIT_QUAN, LEN_QUAN \u0026 gt;

endf
func _pic, \u0026 lt; octet X, octet Y \u0026 gt ;, \u0026 lt; SI \u0026 gt ;, 1, public
old_color EQU [BP] -1
getcolor, \u0026 lt; old_color \u0026 gt;
mov SI, buf_A
setcolor \u0026 lt; DebAttr \u0026 gt;
sayxy \u0026 lt; X, Y, @ space, @ f_s \u0026 gt;
setcolor \u0026 lt; old_color \u0026 gt;
spuneți \u0026 lt; @ DEBET_NAME, @ f_name \u0026 gt;
setcolor \u0026 lt; DebAttr \u0026 gt;
spuneți \u0026 lt; @ spațiu, @ f_s \u0026 gt;
setcolor \u0026 lt; old_color \u0026 gt;
spuneți \u0026 lt; @ DEBET_QUAN, @ f_quan \u0026 gt;
setcolor \u0026 lt; DebAttr \u0026 gt;
spuneți \u0026 lt; @ spațiu, @ f_s \u0026 gt;
setcolor \u0026 lt; KreAttr \u0026 gt;
spuneți \u0026 lt; @ spațiu, @ f_s \u0026 gt;
setcolor \u0026 lt; old_color \u0026 gt;
spuneți \u0026 lt; @ KREDIT_NAME, @ f_name \u0026 gt;
setcolor \u0026 lt; KreAttr \u0026 gt;
spuneți \u0026 lt; @ spațiu, @ f_s \u0026 gt;
setcolor \u0026 lt; old_color \u0026 gt;
spuneți \u0026 lt; @ KREDIT_QUAN, @ f_quan \u0026 gt;
setcolor \u0026 lt; KreAttr \u0026 gt;
spuneți \u0026 lt; @ spațiu, @ f_s \u0026 gt;
setcolor \u0026 lt; old_color \u0026 gt;

endf
func _fuser, \u0026 lt; byte mode, word RecCur \u0026 gt ;, \u0026 lt; DI \u0026 gt ;, 1, public
old_color EQU [BP] -1
mov DI, 1
mov AL, cs: mode
comutați AL, \u0026 lt; 0,1 \u0026 gt;
cazul 1 {; desenează
getcolor, \u0026 lt; old_color \u0026 gt;
setcolor \u0026 lt; LblAttr \u0026 gt;
recontează \u0026 lt; @ rec_A \u0026 gt ;, \u0026 lt; ii \u0026 gt;
sayxy \u0026 lt; 35, 2, @ ii, @ f_w4 \u0026 gt;
recrecno \u0026 lt; @ rec_A \u0026 gt ;, \u0026 lt; ii \u0026 gt;
sayxy \u0026 lt; 41, 2, @ ii, @ f_w4 \u0026 gt;
setcolor \u0026 lt; old_color \u0026 gt;
cazul 2 {
mov retr_cho, TRUE
în timp ce \u0026 lt; retr_cho e TRUE \u0026 gt; {
mov retr_cho, FALSE
mkeys_to
mov AL, cs: key_AL
comutați AL, \u0026 lt; NULLKEY, SPACEKEY, CRKEY, ESCKEY \u0026 gt; {
cazul 1 {
mov AH, cs: key_AH
comutați AH, \u0026 lt; INSKEY, DELRKEY, F6KEY, F7KEY, F8KEY, F10KEY \u0026 gt;
cazul 1; introduceți
Se introduce, \u0026 lt; DI \u0026 gt;
cazul 2; șterge
Ștergerea, \u0026 lt; DI \u0026 gt;
cazul 3; sortează
Sortare, \u0026 lt; DI \u0026 gt;
cazul 4; gaseste
cazul 5; data
Întâlniri, \u0026 lt; DI \u0026 gt;
cazul 6; meniu

menupull mov DI, 3
endcase
caz 2 {; marca
cazul 3; de intrare
Introducerea \u0026 lt; RecCur \u0026 gt ;, \u0026 lt; DI \u0026 gt;
cazul 4; ieșire
mov făcut, FALS
mov DI, 0
endcase
endwh}
endcase
endf \u0026 lt; cuvânt DI \u0026 gt;

label1 db 'PAROHIE', 0
label2 db 'FLOW', 0
title1 db 'Nume Cantitate ', 0

ukeys1 db 1Eh, 0
ukeys2 db 1Fh, 0
skeys1 db 'ENTER', 0
nkeys1 db 'ENTER', 0
skeys2 db 'INS', 0
nkeys2 db 'NOU', 0
skeys3 db 'DEL', 0
nkeys3 db 'DELETE', 0
skeys4 db 'F5', 0
nkeys4 db 'PRINT', 0
skeys5 db 'F6', 0
nkeys5 db 'ORDER', 0
skeys6 db 'F7', 0
nkeys6 db 'CAUTARE', 0
skeys7 db 'F8', 0
nkeys7 db 'SUM', 0
skeys8 db 'F10', 0
nkeys8 db 'MENU', 0
skeys9 db 'ESC', 0
nkeys9 db 'EXIT', 0

; --- Procedura șefului
func main
; Stiva
cli
mov SP, size_com + len_stack
sti
; Deschid sistemul
farrelease \u0026 lt; * CS 00,00 size_com + len_stack + len_vars \u0026 gt;

initcon lansează \u0026 lt; * size_com + len_stack, 0 \u0026 gt;

initsys initmouse
cursor_off
; Desenați cadrul principal
setcolor \u0026 lt; \u0026 lt; \u0026 lt; byte ptr MainAttr \u0026 gt; \u0026 gt; \u0026 gt;
drawbox \u0026 lt; cs: ScrnMinX, cs: ScrnMinY, cs: ScrnMaxX, cs: ScrnMaxY, @ box_main \u0026 gt;
drawbox \u0026 lt; 0, 2,79, 2, @ box_main \u0026 gt;
mouse_on
setcolor \u0026 lt; LblAttr \u0026 gt;
sayxy \u0026 lt; 16, 0, @ label1, @ f_s \u0026 gt;
sayxy \u0026 lt; 56, 0, @ label2, @ f_s \u0026 gt;
setcolor \u0026 lt; DebAttr \u0026 gt;
sayxy \u0026 lt; 0, 1, @ title1, @ f_s \u0026 gt;
setcolor \u0026 lt; KreAttr \u0026 gt;
spuneți \u0026 lt; @ title1, @ f_s \u0026 gt;
setcolor \u0026 lt; \u0026 lt; \u0026 lt; byte ptr MainAttr \u0026 gt; \u0026 gt; \u0026 gt;
; Linia de meniu
color \u0026 lt; MenuAttr \u0026 gt;
mkeys_on \u0026 lt; TRUE \u0026 gt;
mkeys_fr \u0026 lt; 79, 0, PGUPKEY * 100h, @ ukeys1, @ snull \u0026 gt;
mkeys_fr \u0026 lt; 79.24, PGDNKEY * 100h, @ ukeys2, @ snull \u0026 gt;
mkeys_fr \u0026 lt; 4.24, CRKEY, @ skeys1, @ nkeys1 \u0026 gt;
mkeys_fr \u0026 lt; 14.24, INSKEY * 100h, @ skeys2, @ nkeys2 \u0026 gt;
mkeys_fr \u0026 lt; 22,24, DELRKEY * 100h, @ skeys3, @ nkeys3 \u0026 gt;
mkeys_fr \u0026 lt; 30,24, F5KEY * 100h, @ skeys4, @ nkeys4 \u0026 gt;
mkeys_fr \u0026 37; 24, F6KEY * 100h, @ skeys5, @ nkeys5 \u0026 gt;
mkeys_fr \u0026 lt; 44,24, F7KEY * 100h, @ skeys6, @ nkeys6 \u0026 gt;
mkeys_fr \u0026 lt; 51,24, F8KEY * 100h, @ skeys7, @ nkeys7 \u0026 gt;
mkeys_fr \u0026 lt; 58.24, F10KEY * 100h, @ skeys8, @ nkeys8 \u0026 gt;
mkeys_fr \u0026 lt; 65,24, ESCKEY, @ skeys9, @ nkeys9 \u0026 gt;
mkeys_on \u0026 lt; FALS \u0026 gt;
; Deschiderea fișierului
redeschideți \u0026 lt; @ rec_A, @ file_A, len_A \u0026 gt;
getmem \u0026 lt; len_A \u0026 gt ;, \u0026 lt; buf_A \u0026 gt; ; recbuffer
recumpty \u0026 lt; @ rec_A, @ _mb_empty \u0026 gt;
; Lucrul cu fișierul
culoare \u0026 lt; MainAttr \u0026 gt;
mov făcut, ADEVĂRAT în timp ce \u0026 lt; done e TRUE \u0026 gt;
dbedit \u0026 lt; @ rec_A, 0, 3,79,23, @ cs: __ pic, @ cs: __ fuser \u0026 gt;
endwh
; Închideți fișierul
freemem \u0026 lt; * buf_A \u0026 gt;
închideți \u0026 lt; @ rec_A \u0026 gt;
; Îl închid pe celălalt
mkeys_of
; Închid sistemul
mouse_off
cursor_on
; Ieșirea din program
clrscr
opriți \u0026 lt; 0 \u0026 gt;

endf END START

AppStores: Google Amazon Samsung Huawei Apple Microsoft Linux AllSoft