PAGE 66,132
TITLE** PROGRAMMA di GESTIONE di programmi ASSEMBLER  tipo COM   (aprile 2009)
SUBTTL** EsA018.ASM - Esercizi PALESTRA ASSEMBLY APPRENDISTI -  by ing. G.OBER
;/---------------------------------------------------------------------------\
;| NOME        : EsA018.ASM                                                  |
;| AUTORE      : Giorgio OBER                                                |
;| VERSIONE    : aprile 2009                                                 |
;| DESCRIZIONE : Esercizio nø 0018                                           |
;|               Stampa 160 numeri esadecimali a 16 Bit, in sequenza casuale.|
;|               Collaudo della procedura che  provvede  alla  conversione di|
;|               una Word nei 4 caratteri Ascii esadecimali corrispondenti.  |
;\---------------------------------------------------------------------------/

; 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
        EXTRN       Random:NEAR
        EXTRN      Byt2Asc:NEAR

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

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


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


;AREA DESTINATA AI DATI DEL PROGRAMMA
;-----------------------------------------------------------------------------
ATTRIB  DB 0FH
Testo01 DB " Stai vedendo 160 tra i possibili valori di una Word ",00H
Testo02 DB " Il  programma  genera   casualmente  questi  numeri ",00H
Testo03 DB " esadecimali e  ne  mostra  il   contenuto  corrente ",00H
Testo04 DB " con  l'aiuto  della  procedura ~Wor2Asc~            ",00H
Testo05 DB " Premi un  tasto  qualunque  per  tornare  al DOS... ",00H


;AREA DESTINATA ALLE PROCEDURE DEL PROGRAMMA
;/---------------------------------------------------------------------------\
;| PROCEDURA   : Wor2asc                                                     |
;| DESCRIZIONE : Provvede alla conversione dei quattro nibble  di  un  numero|
;|               esadecimale a 16 bit nei due caratteri ASCII corrispondenti,|
;|               ponendoli poi a video nella posizione di stampa corrente nel|
;|               colore precedentemente predisposto in CS:[ATTRIB].          |
;|               Il codice da convertire Š fornito, in ingresso, in AX  ed  Š|
;|               ancora disponibile in AX in uscita.                         |
;\---------------------------------------------------------------------------/
Wor2Asc:PUSH    AX
        PUSH    AX
        MOV     AL,AH
        CALL    Byt2asc
        POP     AX
        CALL    Byt2asc
        POP     AX
        RET


;*****************************************************************************
                              ; ----------------------------------------------
EsA018  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,08,1FH;
      M_msgC Testo02,01,08,1FH; Mette a video il titolo
      M_msgC Testo03,02,08,1FH;
      M_msgC Testo04,03,08,1FH;

        M_COLOR  0FH          ; Fissa il colore con cui stampare la stringa

        MOV     DH,06         ; Fissa la posizione di stampa iniziale
        MOV     DL,05         ; riga 6, colonna 5

        MOV     CX,16         ; Contatore delle righe da stampare (sono 16)

xxx00:  PUSH    CX            ; Ciclo esterno, per gestire le 16 righe di dati
        CALL    SET_cur       ; Fissa  dinamicamente la  posizione  di  stampa

        MOV     CX,10         ; Contatore delle word per ogni riga (sono 10)
xxx01:                        ; Ciclo interno, per gestire i 16 bytes per riga
                              ; Genera un numero casuale a 16 bit, lasciato in
        MOV     AX,0FFFFH     ; uscita, nel registro AX; il numero Š  compreso
        CALL    Random        ; tra  0000H e il valore (meno 1) passato in
                              ; ingresso sempre in AX.
        CALL    Wor2Asc       ; Dopo la stampa dei  4  caratteri ascii  corri-
        MOV     AL,'H'        ; spondenti ai 4 nibble della word corrente sono
        CALL    BIOchr1       ; aggiunti il carattere "H" (per ribadire che si
        MOV     AL,' '        ; tratta di un valore esadecimale) e uno spazio,
        CALL    BIOchr1       ; per staccare la stampa di un valore da  quella
        LOOP    xxx01         ; del successivo

        INC     DH            ; Punta la riga successiva  e  provvede alla sua
        POP     CX            ; stampa
        LOOP    xxx00         ;
                              ; ----------------------------------------------
        M_msgC Testo05,24,08,1FH; 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           ;

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