PAGE 66,132
TITLE** PROGRAMMA di GESTIONE di programmi ASSEMBLER  tipo COM   (aprile 2009)
SUBTTL** EsE004.ASM -  Esercizi PALESTRA  ASSEMBLY  ESPERTI -   by ing. G.OBER
;/---------------------------------------------------------------------------\
;| NOME        : EsE004.ASM                                                  |
;| AUTORE      : Giorgio OBER                                                |
;| VERSIONE    : aprile 2009                                                 |
;| DESCRIZIONE : Esercizio nø 0004 - Stampa dinamica di una Cornice.         |
;\---------------------------------------------------------------------------/

; MACRO UTILIZZATE DAL PROGRAMMA:
        include         c:\arch-lab\bin\GIOBE.MAC

; LIBRERIA UTILIZZATA DAL PROGRAMMA [opzione WinASM altrimenti non necessaria]
        includelib      c:\arch-lab\bin\GIOBE.LIB

;PROCEDURE ESTERNE UTILIZZATE dal PROGRAMMA [NEAR, dalla LIBRERIA ~GIOBE.LIB~]
;-----------------------------------------------------------------------------
        EXTRN    CambiaCol:NEAR
        EXTRN      SET_cur:NEAR
        EXTRN      VIA_cur:NEAR
        EXTRN      RIP_cur:NEAR
        EXTRN      KEYwait:NEAR
        EXTRN      BIOScls:NEAR
        EXTRN      BIOchr1:NEAR
        EXTRN      BIObeep:NEAR
        EXTRN      BIOSmsg:NEAR

; DICHIARAZIONI (VARIABILI) PER I PROGRAMMI ESTERNI:
        PUBLIC  ATTRIB        ;Attributo di colore

; DICHIARAZIONI (PROCEDURE) PER I PROGRAMMI ESTERNI:
        PUBLIC  EsE004


;DEFINIZIONE DEL SEGMENTO DEL CODICE
;-----------------------------------------------------------------------------
_prog   SEGMENT BYTE PUBLIC 'CODE'
        ASSUME  CS:_prog,DS:_prog

        ORG     0100H
INIZIO: JMP     EsE004


;AREA DESTINATA AI DATI DEL PROGRAMMA
;-----------------------------------------------------------------------------
ATTRIB  DB 0FH
Corn00  DB "ÚÄÄÄÄÄÄÄÄÄÄ¿",00H
Corn01  DB "³úúúúúúúúúú³",00H
Corn02  DB "ÀÄÄÄÄÄÄÄÄÄÄÙ",00H



;*****************************************************************************
                              ; ----------------------------------------------
EsE004   proc   NEAR           ;      AREA DEDICATA AL MAIN PROGRAM
                              ; ----------------------------------------------
;-----------------------------------------------------------------------------
        CALL    BIOScls       ;Provvede comunque alla cancellazione del video,
                              ;posizionando il cursore  alla riga 0, colonna 0
        CALL    VIA_cur       ;Rende il  cursore invisibile

        MOV     DL,35         ; Fissa  le  coordinate  dell'angolo  in  alto a
        MOV     DH, 6         ; sinistra  della  cornice (DH=riga, DL=colonna)

       M_msgC Corn00,DH,DL,0EH;
        INC     DH            ;   "ÚÄÄÄÄÄÄÄÄÄÄ¿"
        MOV     CX,10         ;                    Provvede  alla  stampa
xxx02: M_msgC Corn01,DH,DL,0EH;   "³úúúúúúúúúú³"   della  cornice  12*12,
        INC     DH            ;                    contenente 100 puntini
        LOOP    xxx02         ;   "ÀÄÄÄÄÄÄÄÄÄÄÙ"
       M_msgC Corn02,DH,DL,0EH;

        CALL    KEYwait       ;Aspetta la pressione di un tasto qualunque

                              ; Torna al DOS con la memoria liberata e con la
                              ; chiusura di tutti i file; cede  il  controllo
                              ; al processo padre (generalmente COMMAND.COM);
        MOV     AH,4CH        ; il valore posto eventualmente  in AL prima di
        INT     21H           ; uscire pu• essere testato in  uscita  con  la
                              ; funzione 4DH  o  mediante  la  lettura  della
                              ; variabile DOS "ERRORLEVEL"

EsE004  ENDP                  ; Chiusura della Procedura "Main Program"
_prog   ENDS                  ; Chiusura del Segmento di CODICE
        END INIZIO            ; Indirizzo dell'ultima istruzione da compilare