PAGE 66,132
TITLE** PROGRAMMA di GESTIONE di programmi ASSEMBLER  tipo COM   (aprile 2009)
SUBTTL** EsA011.ASM - Esercizi PALESTRA ASSEMBLY APPRENDISTI -  by ing. G.OBER
;/---------------------------------------------------------------------------\
;| NOME        : EsA011.ASM                                                  |
;| AUTORE      : Giorgio OBER                                                |
;| VERSIONE    : aprile 2009                                                 |
;| DESCRIZIONE : Esercizio nø 0011                                           |
;|               Aspetta la pressione di un tasto e ne fa eco a video.       |
;|               Mostra come organizzare la presentazione del programma, (con|
;|               aiuto delle MACRO della Libreria GIOBE.MAC)  ponendo a video|
;|               messaggi adeguati in grado di aiutare l'utente finale.      |
;\---------------------------------------------------------------------------/

; COSTANTI DEFINITE PER IL PROGRAMMA:
        ESC_    EQU    27     ;Codice Ascii del tasto <ESC>
        CR      EQU   0DH     ;(eventuale)
        LF      EQU   0AH     ;(eventuale)


; 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        STAsp:NEAR
        EXTRN        Acapo: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  EsA011


;DEFINIZIONE DEL SEGMENTO DEL CODICE
;-----------------------------------------------------------------------------
_prog   SEGMENT BYTE PUBLIC 'CODE'
        ASSUME  CS:_prog,DS:_prog
        ORG     0100H
INIZIO: JMP     EsA011


;AREA DESTINATA AI DATI DEL PROGRAMMA
;-----------------------------------------------------------------------------
ATTRIB  DB 0FH
Testo01 DB " Premi in sequenza i tasti che desideri -  ESC per terminare",00H
Testo02 DB " Puoi premere qualunque tasto, anche maiuscolo....",00H
Testo03 DB " Premi un tasto qualunque per tornare al DOS...   ",00H


;AREA DESTINATA ALLE PROCEDURE DEL PROGRAMMA
;----------------------------------------------------------------------------
;Per ora nessuna


;*****************************************************************************
                              ; ----------------------------------------------
EsA011  proc   NEAR           ;      AREA DEDICATA AL MAIN PROGRAM
                              ; ----------------------------------------------
;-----------------------------------------------------------------------------
                              ; Provvede   alla   cancellazione   del   video,
        CALL    BIOScls       ; posizionando il cursore alla riga0,  colonna0,
                              ; in alto a sinistra
        CALL    VIA_cur       ; Rende il  cursore invisibile
      M_msgC Testo01,00,04,0FH; Mette a video il titolo, in posizione r00,c04
                              ; con colore  0FH (bianco brillante su nero)
      M_msgC Testo02,24,04,0FH; Mette a video il commento (Help) corrente

                              ;-----------------------------------------------
        M_COLOR  0EH          ; Colore  per i caratteri letti  (giallo su nero)
        M_CURSOR 02,00        ; Fissa la posizione di stampa iniziale per l'eco
                              ; ----------------------------------------------
xxx00:  CALL    KEYwait       ; Rimane in attesa della pressione  di un  tasto
                              ; qualunque  (lasciando  il  suo  valore in  AL)
        CMP     AL,ESC_       ; Verifica se il tasto premuto Š ESC e in questo
        JZ      xxx01         ; caso impone un ritorno immediato al DOS
                              ; Provvede alla stampa del carattere disponibile
        CALL    BIOchr1       ; in AL, con il codice di  attributo  di  colore
                              ; predisposto  nella  variabile  ATTRIB e  nella
                              ; posizione di stampa corrente
        JMP     SHORT xxx00   ; Torna in attesa della pressione di altri tasti

                              ; ----------------------------------------------
xxx01:M_msgC Testo03,24,04,0FH; Mette a video la frase di commiato
        CALL    KEYwait       ;


_OUT:   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           ;

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