dal 2015 - visita n. 563
CLRSCR2
CLRSCR2

 

CLRSCR2.ASM

;::::::::: 8086 - ESERCIZI SVOLTI - RstSv/018 ::::::::::::::::::::::::::::::::
;:                                                                          ::
;: CLRSCR2.ASM - 20/03/2002                                                 ::
;:                                                                          ::
;: Scrivere un programma che azzeri l'area del video e riposizioni il cur-  ::
;: sore in alto a sinistra. Seconda Versione.                               ::
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

                                      ; SEZIONE DICHIARATIVE
SegVideo  EQU     0B800h              ; Posizione Segmento Video
DimVideo  EQU     2000                ; Dimensione Area Video
WordFill  EQU     0720h               ; 07  attributi / 20  codice ASCII

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

                                      ; 1a) FASE DI INIZIALIZZAZIONE
Start:    MOV     AX,SegVideo         ; ES = Segmento Video
          MOV     ES,AX               ;
          SUB     DI,DI               ; DI = Offset Video
          MOV     CX,DimVideo         ; CX = Dimensione Area Video
          MOV     AX,WordFill         ; AX = Word di Riempimento:

                                      ; 2a) FASE DI ESECUZIONE
          REPZ    STOSW

                                      ; 1b) FASE DI INIZIALIZZAZIONE
          MOV     BH,0                ; Pagina 0
          MOV     DH,0                ; Riga 0
          MOV     DL,0                ; Colonna 0
          MOV     AH,02h              ; Predispone Funzione 02h

                                      ; 2b) FASE DI ESECUZIONE
          INT     10h                 ; Esecuzione BIOS VIDEO

                                      ; 4) FASE DI USCITA
          MOV     AH,4Ch
          INT     21h
                                      ; 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



Il segreto dell'esistenza umana non sta soltanto nel vivere, ma anche nel sapere per che cosa si vive.
F. Dostoievski

Valid CSS!
pagina generata in 0.001 secondi