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



I fatti di per sč non fanno paura. Se invece li vuoi evitare, voltare le spalle e fuggire, questo sė fa paura.
Jiddu Krishnamurti (1895-1986)

Valid CSS!
pagina generata in 0.001 secondi