Cookie Consent

Our website uses cookies to provide your browsing experience and relavent informations.Before continuing to use our website, you agree & accept of our Cookie Policy & Privacy

Whatsapp Telegram Youtube
Service

Sistema macro de linguagem assembly - MSYSTEM.MAC

msystem.zip 411 KB.

Sistema macro

Breve descrição dos principais arquivos do arquivo.

O próprio macrossistema:

  • MSYSTEM.MAC Este arquivo contém o sistema macro real.
  • MMACROS.MAC Este arquivo contém definições de macro úteis adicionais.
  • MBIOS.MAC Este arquivo contém definições de macro para o BIOS do IBM-PC.
  • MDOS.MAC Este arquivo contém definições de macro para IBM-PC DOS.
  • CONIO.MAC
  • DIR.MAC
  • ERRO.MAC
  • FLOAT.MAC
  • IO.MAC
  • KBD.MAC
  • MATEMÁTICA.MAC
  • MBIOS.MAC
  • MEM.MAC
  • MOUSE.MAC
  • FOGÃO.MAC
  • STRING.MAC
  • SISTEMA MAC
  • O próprio macrossistema:

  • ESCOLHA.M
  • RELÓGIO.M
  • CODER.M
  • COR.M
  • CURSOR.M
  • DBEDIT.M
  • INIT.M
  • CHAVE.M
  • MENU.M
  • MKEYS.M
  • LEIA.M
  • REC.M
  • DIGA.M
  • ROLAR.M
  • CLASSIFICAR.M
  • SOM.M
  • JANELA.M
  • DOCUMENTAÇÃO:

  • MSYSTEM.DOC Este é um arquivo de documentação para o sistema macro.
  • EXTA.DOC
  • MMACROS.DOC
  • MMEM.DOC
  • OGLAV.DOC
  • LEIA.DOC
  • TÍTULO.DOC

  • Arquivos *.ASM Esses arquivos contêm

    Para instalação no sistema
    Lembre-se de que os erros do assembler
    Seja qual for a sua abordagem -
    O próprio Assembler pode ser baixado aqui tasm25.zip - 175KB.

    Por exemplo, aqui está um código simples

    ;
    ;

    .MODELO PEQUENO

    incluir msystem.mac
    incluir sys.mac
    inclui conio.mac
    incluir mouse.mac
    incluir mem.mac
    incluir kbd.mac
    incluir math.mac
    incluir cursor.m
    incluir janela.m
    incluir cor.m
    incluir rec.m
    inclui dbedit.m
    inclua say.m
    incluir read.m
    incluir chave.m
    incluir mkeys.m

    incluir mb.m

    tamanho_com = 20.000+256
    len_stack = 20.000
    len_vars = 20.000

    .CÓDIGO
    COMEÇAR INÍCIO,100h,_main,{

    função 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>
    fim

    func _pic,,,1,público
    cor_antiga EQU [BP]-1
    getcolor ,
    mov SI, buf_A
    setcolor
    sayxy
    setcolor
    diga <@DEBET_NAME,@f_name>
    setcolor
    diga <@espaço,@f_s>
    setcolor
    diga <@DEBET_QUAN,@f_quan>
    setcolor
    diga <@espaço,@f_s>
    setcolor
    diga <@espaço,@f_s>
    setcolor
    diga <@KREDIT_NAME,@f_name>
    setcolor
    diga <@espaço,@f_s>
    setcolor
    diga <@KREDIT_QUAN,@f_quan>
    setcolor
    diga <@espaço,@f_s>
    setcolor
    fim

    func _fuser,,,1,público
    cor_antiga EQU [BP]-1
    movimento DI, 1
    mov AL, cs:modo
    mudar AL,<0,1>
    caso 1 { ;
    getcolor ,
    setcolor
    recontagem <@ rec_A>,
    sayxy <35, 2,@ ii,@ f_w4>
    recrecno <@ rec_A>,
    sayxy <41, 2,@ ii,@ f_w4>
    setcolor
    caso 2 {
    mov retr_cho, VERDADEIRO
    enquanto {
    mov retr_cho, FALSO
    mkeys_to
    mov AL, cs:key_AL
    mudar AL, {
    caso 1 {
    mov AH, cs:key_AH
    mudar AH,
    caso 1 ;
    Inserindo ,
    caso 2;
    Excluindo ,
    caso 3;
    Classificando,
    caso 4;
    caso 5;
    Namoro,
    caso 6;
    puxar menu
    mov DI, 3
    final
    caso 2 {;
    caso 3;
    Inserindo ,
    caso 4;
    movimento concluído, FALSO
    movDI,0
    final
    endwh}
    final
    endf

    label1 db 'COMING',0
    label2 db 'CONSUMO',0
    title1 db 'Nome Quantidade

    ukeys1 banco de dados 1Eh,0
    ukeys2 db 1Fh,0
    skeys1 db 'ENTER',0
    nkeys1 banco de dados 'ENTER',0
    skeys2 db 'INS',0
    nkeys2 db 'NOVO',0
    skeys3 db 'DEL',0
    nkeys3 banco de dados 'DELETE',0
    teclas4 db 'F5',0
    nkeys4 db 'PRINT',0
    teclas5 db 'F6',0
    nkeys5 db 'ORDEM',0
    teclas6 db 'F7',0
    nkeys6 db 'PESQUISA',0
    teclas7 db 'F8',0
    nkeys7 banco de dados 'SUM',0
    teclas8 db 'F10',0
    nkeys8 db 'MENU',0
    skeys9 db 'ESC',0
    nkeys9 db 'SAIR',0

    ;--- Procedimento principal
    função principal
    ;
    cli
    mov SP, size_com+len_stack
    ainda
    ;
    farrelease <*CS 00.00 size_com+len_stack+len_vars>
    ícone de inicialização
    lançamento <* size_com+len_stack,0>
    initsys
    initmouse
    cursor_desligado
    ;
    setcolor <<>>
    caixa de desenho caixa de desenho < 0, 2,79, 2,@ box_main>
    mouse_on
    setcolor
    sayxy <16, 0,@rótulo1,@f_s>
    sayxy <56, 0,@rótulo2,@f_s>
    setcolor
    sayxy <0, 1,@título1,@f_s>
    setcolor
    diga <@título1,@f_s>
    setcolor <<>>
    ;
    cor
    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
    ;
    reabrir <@ rec_A,@ arquivo_A,len_A>
    getmem , ;recbuffer
    recempty <@ rec_A,@ _mb_empty>
    ;
    cor
    movimento concluído, VERDADEIRO
    while
    dbedit <@ rec_A, 0, 3,79,23,@ cs:__pic,@ cs:__fuser>
    fim
    ;
    memória livre<*buf_A>
    fechar novamente <@ rec_A>
    ;
    mkeys_of
    ;
    mouse_off
    cursor_on
    ;
    clrscr
    parar <0>
    fim
    FIM INÍCIO

    family list tree collection families pedigree cryptographer surnames names phone secret animal genealogical app trees ancestry heritage gallery codes apple microsoft google huawei allsoft xiaomi samsung appstores screenshots amazon linux