PAGE 66,132
TITLE** PROGRAMMA di GESTIONE di programmi ASSEMBLER  tipo COM   (aprile 2009)
SUBTTL** EsE002.ASM -   Esercizi PALESTRA ASSEMBLY ESPERTI  -   by ing. G.OBER
;/---------------------------------------------------------------------------\
;| NOME        : EsE002.ASM                                                  |
;| AUTORE      : Giorgio OBER                                                |
;| VERSIONE    : aprile 2009                                                 |
;| DESCRIZIONE : Esercizio nø 0002                                           |
;| DESCRIZIONE : Progetto di un desktop: Intestazione, menu e copyright.     |
;|               Il programma non gestisce i tasti.                          |
;\---------------------------------------------------------------------------/

; 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      BIOSmsg:NEAR

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

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


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

        ORG     0100H
INIZIO: JMP     EsE002


;AREA DESTINATA AI DATI DEL PROGRAMMA
;-----------------------------------------------------------------------------
ATTRIB  DB 0FH
Cornice DB "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
        DB                                                 "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
        DB "³                                                               "
        DB                                                 "               ³"
        DB "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
        DB                                                 "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
        DB 00H
Testo01 DB  "                PROGRAMMA  DI  COLLAUDO  DELL'ESERCIZIO  Nø2                  "
        DB 00H

MENU_01 DB  " [A]bout ",00H
MENU_02 DB  " [S]tart ",00H
MENU_03 DB  " [I]ncrementa ",00H
MENU_04 DB  " [D]ecrementa ",00H
MENU_05 DB  "                   ",00H
MENU_06 DB  " [Q]uit ",00H
Testo02 DB  "TUTORIAL ASSEMBLY ~ESPERTI~  ---  Copyright"
        DB                           "  www.Giobe2000.it ---  aprile 2009",00H


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

      M_msgC Cornice,0,0,04H  ;Stampa il primo messaggio (in realt… Š un
                              ;"messaggio" piuttosto lungo... occupa le prime
                              ;tre righe!!) a partire da 0,0 (riga, colonna)
                              ;in rosso su nero (codice 04H)

      M_msgC Testo01,1,1,1FH  ;Stampa il titolo contenuto nella cornice,  a
                              ;partire da 1,1 (riga, colonna) in bianco
                              ;brillante sui blu  (codice 1FH)

      M_msgC Cornice,21,0,04H ;Stampa la seconda cornice a partire da 21,0
                              ;(riga, colonna) in rosso su nero (codice 04H)

      M_msgC Menu_01,22, 1,1FH;  [A]bout
      M_msgC Menu_02,22,11,1FH;  [S]tart            Stampa il Menu
      M_msgC Menu_03,22,21,1FH;  [I]ncrementa       interno alla
      M_msgC Menu_04,22,36,1FH;  [D]ecrementa       seconda cornice
      M_msgC Menu_05,22,51,1FH;
      M_msgC Menu_06,22,71,1FH;  [Q]uit

      M_msgC Testo02,24,1,04H ;Stampa il copyright sulla riga 24, colonna 2
                              ;in rosso su nero (codice 04H)

        CALL    KEYwait       ;Rimane in attesa della pressione di un tasto

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

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