dal 2015 - visita n. 577
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



Generalmente, gli uomini prestano fede volentieri a ciņ che desiderano.
Giulio Cesare

Valid CSS!
pagina generata in 0.001 secondi