dal 2015 - visita n. 640
FILLBLK2
FILLBLK2

 

FILLBLK2.ASM

;::::::::: 8086 - ESERCIZI SVOLTI - RstSv/007 ::::::::::::::::::::::::::::::::
;:                                                                          ::
;: FILLBLK2.ASM - 12/02/2002                                                ::
;:                                                                          ::
;: Copia un Byte di Dato in un'area estesa N Byte dall'indirizzo IndSorg.   ::
;: Sono dati: Indir1 = Indirizzo dell'Indirizzo Iniziale Area Dati          ::
;:            Indir2 = Indirizzo del Numero Totale (Word) N dei byte        ::
;:            Indir3 = Indirizzo del Byte di Dato                           ::
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

                                      ; SEZIONE PROLOGO o INTESTAZIONE
CodeSeg   SEGMENT
          ASSUME  CS:CodeSeg, DS:CodeSeg
          ORG     100H

                                      ; SEZIONE DICHIARATIVE
Indir1    EQU     1000h               ; Assegnazione Nomi delle Variabili
Indir2    EQU     1002h
Indir3    EQU     1004h
                                      ; 1) FASE DI INIZIALIZZAZIONE
Start:    MOV     SI,Indir1           ; SI Punta l'Indirizzo Iniziale
          MOV     BX,[SI]             ; BX Punta Primo Byte Area Dati
          MOV     SI,Indir2           ; SI Punta il Numero Totale Byte
          MOV     CX,[SI]             ; CX Conta il Totale dei Cicli di Lavoro
          MOV     SI,Indir3           ; SI Punta il Byte di Dato
          MOV     AL,[SI]             ; AL Contiene il Byte di Dato

                                      ; 2) FASE DI ESECUZIONE
Work:     MOV     [BX],AL             ; Scrittura Byte da AL nella Memoria

                                      ; 3) FASE DI CONTROLLO
          INC     BX                  ; Punta al Byte Dati Successivo
          DEC     CX                  ; Decrementa il Totale Cicli di Lavoro
          JNZ     Work                ; CX=0 ?    SI: Riesegui da Work
                                      ;           NO: Esegui la prossima istruzione

                                      ; 4) FASE DI USCITA
          MOV     AH,4Ch              ; Predisponi il servizio DOS 4Ch
          INT     21h                 ; Esecuzione servizio DOS

                                      ; SEZIONE EPILOGO o CHIUSURA
CodeSeg   ENDS
          END     Start               ; Rinvio all'Istruzione di Start




Asm86
COPYBLK1
COPYBLK2
DISPMSG1
DISPMSG2
DISPMSG3
FILLBLK1
FILLBLK2
WAITKBD1
SOMDIF1
PASSWRD1
CLRSCR1
SCACCHI1
SCACCHI2
SCACCHI3
SCACCHI4
ALLCHAR1
ATTRIB1
CLRSCR2
TESTOCOM
ORDIN1
Funzioni Stringa
Tastiera DOS



I giovani credono di vivere in eterno, e perciò assecondano ogni pensiero e ogni desiderio. I vecchi si sono già accorti che da qualche parte c'è una fine, e che tutto ciò che si possiede e si fa per sè soli, alla fine cadrà in una fossa e non avrà avuto alcun valore. Per questo hanno bisogno di una eternità diversa e di credere che non lavorano solo per i vermi. Ecco perchè ci sono moglie e figli, affari, lavoro, patria: per dare uno scopo alle fatiche e ai sacrifici quotidiani.
Hermann Hesse

Valid CSS!
pagina generata in 0.001 secondi