PAGE 66,132 TITLE** PROGRAMMA di GESTIONE di programmi ASSEMBLER tipo COM (aprile 2009) SUBTTL** EsA012.ASM - Esercizi PALESTRA ASSEMBLY APPRENDISTI - by ing. G.OBER ;/---------------------------------------------------------------------------\ ;| NOME : EsA012.ASM | ;| AUTORE : Giorgio OBER | ;| VERSIONE : aprile 2009 | ;| DESCRIZIONE : Esercizio nø 0012 | ;| Aspetta la pressione di SOLI tasti NUMERICI decimali con eco| ;| a video (filtra ed elimina altri tasti, con segnalazione di| ;| errore con semplice Beep di sistema). | ;| 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 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 EsA012 ;DEFINIZIONE DEL SEGMENTO DEL CODICE ;----------------------------------------------------------------------------- _prog SEGMENT BYTE PUBLIC 'CODE' ASSUME CS:_prog,DS:_prog ORG 0100H INIZIO: JMP EsA012 ;AREA DESTINATA AI DATI DEL PROGRAMMA ;----------------------------------------------------------------------------- ATTRIB DB 0FH Testo01 DB " Premi in sequenza i SOLI tasti NUMERICI - ESC per terminare",00H Testo02 DB " Puoi premere solo tasti numerici ",00H Testo03 DB " Premi un tasto qualunque per tornare al DOS... ",00H ;AREA DESTINATA ALLE PROCEDURE DEL PROGRAMMA ;---------------------------------------------------------------------------- ;Per ora nessuna ;***************************************************************************** ; ---------------------------------------------- EsA012 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_CURSOR 02,00 ; fissa la posizione di stampa iniziale per l'eco M_COLOR 0EH ; colore per i caratteri letti (giallo su nero) ; ---------------------------------------------- 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 xxx02 ; caso impone un ritorno immediato al DOS CMP AL,'9' ; "Filtra" i codici ricevuti in AL e se non sono JA xxx01 ; nell'intervallo ammesso (tra '0' e '9') segna- CMP AL,'0' ; la errore (saltando a livello xxx01) JB xxx01 ; ; Se si tratta di un carattere Ascii NUMERICO CALL BIOchr1 ; provvede alla sua stampa nella posizione di ; stampa corrente con il codice di attributo di ; colore predisposto nella variabile ATTRIB JMP SHORT xxx00 ; Torna in attesa della pressione di altri tasti ; ---------------------------------------------- xxx01: CALL BIObeep ; Se NON si tratta di un carattere Ascii NUMERI- ; CO viene emessa una segnalazione acustica e si JMP SHORT xxx00 ; torna in attesa della pressione di altri tasti ; ---------------------------------------------- xxx02: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 ; EsA012 ENDP ; Chiusura della Procedura "Main Program" _prog ENDS ; Chiusura del Segmento di CODICE END INIZIO ; Indirizzo dell'ultima istruzione da compilare