Esercizi in Linguaggio Assembly 8086 [PDF]

Zitiervorschau

;SISTEMI A MICROPROCESSORE ;Scrittura del valore 85 (55h) in AX ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA .CODE .STARTUP MOV AX, 85 .EXIT END

-1-

;SISTEMI A MICROPROCESSORE ;Scrittura del valore 3 (3h) in memoria ;e da qui in AX ;Autore: Sergio Porcu

VAR

.MODEL SMALL .STACK .DATA DW ? .CODE .STARTUP MOV VAR, 3 MOV AX, VAR .EXIT END

-2-

;SISTEMI A MICROPROCESSORE ;Pulizia del registro AX (con modifica di ZF) ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA .CODE .STARTUP MOV AX, 0Ah XOR AX, AX .EXIT END

-3-

;SISTEMI A MICROPROCESSORE ;Scrivere un programma assembler che esegua la somma ;di 2 numeri (su 8 bit) che si trovano nelle locazioni ;di memoria OP1 e OP2, e ponga il risultato ;nella locazione RIS ;Autore: Sergio Porcu

OP1 OP2 RIS

.MODEL SMALL .STACK .DATA DB 9 DB 6 DB ? .CODE .STARTUP MOV AL, OP1 ADD AL, OP2 MOV RIS, AL .EXIT END

;SPOSTO IL 1° OPERANDO IN AL ;ESEGUO LA SOMMA ;MEMORIZZO IL RISULTATO

-4-

;SISTEMI A MICROPROCESSORE ;Scrivere un programma assembler che esegua la differenza ;fra 2 numeri (su 16 bit) che si trovano nelle locazioni ;di memoria SOT1 e SOT2, e ponga il risultato nella ;locazione RIS ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA SOT1 DW 0A1h SOT2 DW 42h RIS DW ? .CODE .STARTUP MOV AX, SOT1 SUB AX, SOT2 MOV RIS, AX .EXIT END

;SPOSTO IL 1° OPERANDO IN AX ;ESEGUO L'OPERAZIONE AX-SOT2 ;COPIO IL VALORE DI AX IN RIS

-5-

;SISTEMI A MICROPROCESSORE ;Scrivere un programma assembler che calcoli l'espressione ;W=X-2Y+3Z. Si supponga che X,Y,Z e W siano numeri su 16 bit ;X=100 (64h), Y=45 (2Dh), Z=15 (Fh) ;Risultato: W=55 (37h) ;Autore: Sergio Porcu

X Y Z W

.MODEL SMALL .STACK .DATA DW 64h DW 2Dh DW 0Fh DW ? .CODE .STARTUP MOV AX, X SUB AX, Y SUB AX, Y ADD AX, Z ADD AX, Z ADD AX, Z MOV W, AX .EXIT END

-6-

;SISTEMI A MICROPROCESSORE ;Si scriva un programma Assembler che calcoli il valore ;della funzione Y=4X^3-3X^2+2X+7 ;PS: si faccia l'ipotesi semplificatrice che il risultato ;sia rappresentabile su 16 bit. ;X=23 (17h) ;Risultato: Y=47134 (B81Eh) ;Autore: Sergio Porcu

ICS

.MODEL SMALL .STACK .DATA DW 23 .CODE .STARTUP MOV AX, ICS PUSH AX MOV BX, AX MUL AX PUSH AX MUL BX MOV CL, 2 SHL AX, CL POP BX MOV CX, BX SHL CX, 1 ADD CX, BX SUB AX, CX POP CX SHL CX, 1 ADD AX, CX ADD AX, 7 .EXIT END

;* ; ; ;** ; ; ;*** ; ;

;COPIO IN AX IL VALORE DI ICS ;TRASFERISCO UNA WORD NELLO STACK * ;COPIO IN BX IL VALORE DI AX ;MOLTIPLICO AX PER IL CONTENUTO DI AX E PONGO ;IL RISULTATO IN AX ** ;TRASFERISCO UNA WORD NELLO STACK ;MOLTIPLICO BX PER IL CONTENUTO DI AX E PONGO ;IL RISULTATO IN AX ** ;PREDISPONGO IL REGISTRO CL ;ESEGUO IN AX LO SHIFT LOGICO A SINISTRA DI 2 ;(MOLT. X4) ;TRASFERISCO L'ULTIMA WORD DELLO STACK IN BX ;COPIO IN CX IL VALORE DI BX ;ESEGUO IN CX UNO SHIFT LOGICO A SINISTRA ;(MOLT. X2) ;SOMMO A CX IL CONTENUTO DI BX (2X^2+X^2) ;SOTTRAGGO AD AX IL CONTENUTO DI CX ;TRASFERISCO LA PRIMA WORD DELLO STACK IN CX *** ;ESEGUO IN CX UNO SHIFT LOGICO A SINISTRA ;(MOLT. X2) ;SOMMO AD AX IL CONTENUTO DI CX ;SOMMO AD AX IL VALORE 7

Assembler 8086 2° Ed. - Pagina 95 Dispensa "ASSEMBLER 8086: CARATTERISTICHE E ISTRUZIONI FONDAMENTALI" - Pagina 22 - Slide 43 Assembler 8086 2° Ed. - Pagina 130 Dispensa "ASSEMBLER 8086: CARATTERISTICHE E ISTRUZIONI FONDAMENTALI" - Pagina 7 - Slide 13 Assembler 8086 2° Ed. - Pagina 94 Dispensa "ASSEMBLER 8086: CARATTERISTICHE E ISTRUZIONI FONDAMENTALI" - Pagina 22 - Slide 43

-7-

;SISTEMI A MICROPROCESSORE ;Si scriva un programma Assembler che calcoli la ;distanza di Hamming tra 2 dati memorizzati su 16 bit. ;Si ricorda che la distanza di Hamming tra ;2 parole è pari al numero di bit diversi. ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA VAR1 DW 3 VAR2 DW 13 .CODE .STARTUP MOV AX, 0 MOV BX, VAR1 XOR BX, VAR2 MOV CX, 16 CICLO: SHR BX, 1 JNC FINE_CICLO INC AX FINE_CICLO: LOOP CICLO

;AZZERO AX ;COPIO IN BX IL VALORE DI VAR1 ;EFFETTUO LA XOR TRA BX E VAR2 E PONGO ;IL RISULTATO IN BX * ;PREDISPONGO CX ;ESEGUO UNO SHIFT LOGICO A DESTRA DI BX ;SE CF=0 SALTO A "FINE_CICLO" ALTRIMENTI PROSEGUO ;CON LA RIGA SUCCESSIVA ** ;INCREMENTO AX ;DECREMENTO CX ED ESEGUO IL LOOP SE ESSO È DIVERSO ;DA 0

.EXIT END ;* ; ; ; ;** ; ;

Assembler 8086 2° Ed. - Pagina 150 Dispensa "ASSEMBLER 8086: CARATTERISTICHE E ISTRUZIONI FONDAMENTALI" - Pagina 9 - Slide 17 Tabella di verità XOR Assembler 8086 2° Ed. - Pagina 101 Dispensa "ASSEMBLER 8086: CARATTERISTICHE E ISTRUZIONI FONDAMENTALI" - Pagina 15 - Slide 29

-8-

;SISTEMI A MICROPROCESSORE ;Si scriva un programma Assembler che calcoli ;la parità di una parola. Una parola è considerata ;di parità dispari se il numero di bit a 1 è dispari. ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA VAR DB 7 .CODE .STARTUP MOV BL, 0 MOV AL, VAR MOV CX, 8 CICLO: SHR AL, 1 JNC SALTA INC BL SALTA: LOOP CICLO MOV AL, 0 SHR BL, 1 JNC FINE MOV AL, 1

;AZZERO BL ;COPIO IN AL IL VALORE DI VAR ;PREDISPONGO CX ;ESEGUO UNO SHIFT LOGICO A DESTRA DI AL ;SALTO A "SALTA" SE CF=0 ALTRIMENTI PROSEGUO ;INCREMENTO BL ;DECREMENTO CX ED ESEGUO IL LOOP SE ESSO È DIVERSO ;DA 0 ;PARITÀ PARI ;PARITÀ DISPARI

FINE: .EXIT END

-9-

;SISTEMI A MICROPROCESSORE ;Programma che controlla la parità di una parola ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA VAR DB 2 .CODE .STARTUP MOV BL, 0 ADD BL, VAR MOV AL, 0 JP FINE MOV AL, 1 FINE: .EXIT END

;PARITÀ PARI ;SALTA SE PF=0 (PARITÀ PARI) ;PARITÀ DISPARI

- 10 -

;SISTEMI A MICROPROCESSORE ;Scrittura di un valore in memoria ;Autore: Sergio Porcu

VAR

.MODEL SMALL .STACK .DATA DW ? .CODE .STARTUP MOV VAR, 0 .EXIT END

- 11 -

;SISTEMI A MICROPROCESSORE ;Somma di due valori ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA OPD1 DW 10 OPD2 DW 24 RESULT DW ? .CODE .STARTUP MOV AX, OPD1 ADD AX, OPD2 MOV RESULT, AX .EXIT END

- 12 -

;SISTEMI A MICROPROCESSORE ;Somma degli elementi di un vettore (I) ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA VETT DW 5, 7, 3, 4, 3 RESULT DW ? .CODE .STARTUP MOV AX, 0 ADD AX, VETT ADD AX, VETT+2 ADD AX, VETT+4 ADD AX, VETT+6 ADD AX, VETT+8 MOV RESULT, AX .EXIT END

- 13 -

;SISTEMI A MICROPROCESSORE ;Somma degli elementi di un vettore (II) ;Autore: Sergio Porcu DIM

EQU 5 .MODEL SMALL .STACK .DATA VETT DW 2, 5, 16, 12, 34 RESULT DW ? .CODE .STARTUP MOV AX, 0 MOV CX, DIM MOV DI, 0 SOMMA: ADD AX, VETT[DI] ADD DI, 2 DEC CX CMP CX, 0 JNZ SOMMA MOV RESULT, AX .EXIT END

- 14 -

;SISTEMI A MICROPROCESSORE ;Somma degli elementi di un vettore (III) ;Autore: Sergio Porcu DIM

EQU 5 .MODEL SMALL .STACK .DATA VETT DW 2, 5, 16, 12, 34 RESULT DW ? .CODE .STARTUP MOV AX, 0 MOV CX, DIM MOV DI, 0 SOMMA: ADD AX, VETT[DI] ADD DI, 2 LOOP SOMMA MOV RESULT, AX .EXIT END

- 15 -

;SISTEMI A MICROPROCESSORE ;Lettura e visualizzazione di un vettore di caratteri ;Autore: Sergio Porcu DIM

EQU 5 .MODEL SMALL .STACK .DATA VETT DB DIM DUP(?) .CODE .STARTUP MOV CX, DIM MOV DI, 0 MOV AH, 1 LAB1: INT 21h MOV VETT[DI], AL INC DI DEC CX CMP CX, 0 JNZ LAB1 MOV CX, DIM MOV AH, 2 LAB2: DEC DI MOV DL, VETT[DI] INT 21h DEC CX CMP CX, 0 JNZ LAB2 .EXIT END

- 16 -

;SISTEMI A MICROPROCESSORE ;Lettura e visualizzazione di un vettore di caratteri ;Versione con CR e LF ;Autore: Sergio Porcu CR LF DIM

EQU 13 EQU 10 EQU 5 .MODEL SMALL .STACK .DATA VETT DB DIM DUP(?) .CODE .STARTUP MOV CX, DIM MOV DI, 0 MOV AH, 1 LAB1: INT 21h MOV VETT[DI], AL INC DI LOOP LAB1 MOV CX, DIM MOV AH, 2 MOV DL, CR INT 21h MOV DL, LF INT 21h MOV DI, 0 LAB2: MOV DL, VETT[DI] INT 21h INC DI LOOP LAB2 .EXIT END

- 17 -

;SISTEMI A MICROPROCESSORE ;Ricerca del carattere minimo ;Autore: Sergio Porcu CR LF

EQU 13 EQU 10 .MODEL SMALL .STACK DIM EQU 5 .DATA TABLE DB DIM DUP(?) .CODE .STARTUP MOV CX, DIM LEA DI, TABLE MOV AH, 1 LAB1: INT 21h MOV [DI], AL INC DI LOOP LAB1 MOV CL, 0FFH MOV DI, 0 CICLO: CMP CL, TABLE[DI] JB DOPO MOV CL, TABLE[DI] DOPO: INC DI CMP DI, DIM JB CICLO OUTPUT: MOV AH, 2 MOV DL, CR INT 21h MOV DL, LF INT 21h MOV DL, CL INT 21h .EXIT END

- 18 -

;SISTEMI A MICROPROCESSORE ;Programma che simula il lancio di una moneta ;TESTA=1 CROCE=0 ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA TESTA DB "TESTA",0Dh,0Ah,"$" CROCE DB "CROCE",0Dh,0Ah,"$" .CODE .STARTUP MOV AH, 2Ch INT 21h TEST DL, 1 JNZ LAB_T LEA DX, CROCE JMP VIDEO LAB_T: LEA DX, TESTA VIDEO: MOV AH, 9h INT 21h .EXIT END ;* ; ; ; ; ; ;** ; ; ; ;*** ; ;

;LEGGE L'ORA DEL SISTEMA * ;LETTURA IN DX DEL TIMER ;AND LOGICO TRA IL LSB DI DL E 1 ** ;SALTA SE ZF=0 ;ALTRIMENTI COPIA IN DX L'OFFSET DI CROCE ;COPIA IN DX L'OFFSET DI TESTA ;***

Assembler 8086 2° Ed. - Pagina 205 Il problema di generare un numero casuale è stato risolto leggendo il timer di sistema attraverso la funcion call 2ch. Tale funzione restituisce in CH le ore (0-23), in CL i minuti (0-59), in DH i secondi (0-59) e in DL i 100/secondo (0-99) Assembler 8086 2° Ed. - Pagina 152 NOTA BENE: l'istruzione TEST non modifica il contenuto degli operandi, bensì aggiorna opportunamente il valore di tutti i flag di stato Stampa a video il messaggio TESTA o il messaggio CROCE a seconda del valore contenuto nel LSB del numero generato dal timer di sistema

- 19 -

;SISTEMI A MICROPROCESSORE ;Il seguente programma verifica se la stringa ;inserita da tastiera è palindroma ;Autore: Sergio Porcu DIM LF CR

EQU 50 EQU 10 EQU 13 .MODEL SMALL .STACK .DATA VET DB DIM DUP (?) MESINS DB "INSERISCI LA FRASE (MAX 50 CARATTERI): $" EQUAL DB "LA FRASE E' PALINDROMA$" NEQUAL DB "LA FRASE NON E' PALINDROMA$" UNO DB "HAI INSERITO UN SOLO CARATTERE!!!$" .CODE ACAPO PROC ;PROCEDURA PER TORNARE ACCAPO PUSH AX PUSH DX MOV AH, 2 MOV DL, CR INT 21h MOV DL, LF INT 21h POP DX POP AX RET ACAPO ENDP .STARTUP INSER: LEA DX, MESINS ;VISUALIZZAZIONE MESSAGGIO INSERIMENTO MOV AH, 9 INT 21h CALL ACAPO MOV CX, DIM MOV DI, 0 MOV AH, 1 STRING: INT 21h ;INSERIMENTO DELLA STRINGA MOV VET[DI], AL CMP AL, CR JE INIZ INC DI LOOP STRING INIZ: DEC DI CMP DI, 0 JE UNCAR MOV SI, DI MOV DI, 0 CONFR: MOV AH, VET[DI] ;CONFRONTO NELLA STRINGA - 20 -

CMP JNE CMP JA INC DEC LOOP NOTEQ: CALL LEA MOV INT JMP YESEQ: CALL LEA MOV INT JMP UNCAR: CALL LEA MOV INT GATE: .EXIT END

AH, VET[SI] NOTEQ DI, SI YESEQ DI SI CONFR ACAPO DX, NEQUAL AH, 9 21h GATE

;LA STRINGA È PALINDROMA

ACAPO DX, EQUAL AH, 9 21h GATE

;LA STRINGA NON È PALINDROMA

ACAPO DX, UNO AH, 9 21h

;UN SOLO CARATTERE INSERITO

;USCITA DAL PROGRAMMA

- 21 -

;SISTEMI A MICROPROCESSORE ;Programma che legge da tastiera un carattere e ;lo sostituisce con un * se non è alfanumerico, ;stampando il risultato a video ;Autore: Sergio Porcu LF CR

EQU 10 EQU 13 .MODEL SMALL .STACK .DATA .CODE .STARTUP MOV AH, 1 ;PREPARO AH PER LA LETTURA INT 21h ;LEGGO UN CARATTERE E LO METTO IN AL MOV DH, AL ;METTO IL CARATTERE IN DH CMP DH, '0' ;SE DH < '0' JB STAR ;LO SOSTITUISCO CON '*' CMP DH, '9' ;SE DH DISP. PERIF. MOV AL, AH ;COPIA IL VALORE DI AH IN AL INC DX ;IN DX IL VALORE 03F9h ;03F8h + 1h (DLR_MSB) OUT DX, AL ;TRASF. REGISTRO -> DISP. PERIF. MOV AL, 03h ;1 BIT DI STOP, 8 BIT/CARATTERE, ;PARITA' DISABILITATA MOV DX, LCR ;DLAB = 0 OUT DX, AL ;TRASF. REGISTRO -> DISP. PERIF. MOV AL, 00h ;DISABILITAZIONE DELLE MOV DX, IER ;RICHIESTE DI INTERRUZIONE OUT DX, AL ;TRASF. REGISTRO -> DISP. PERIF. MOV DX, RBR ;INGRESSO A VUOTO PER IN AL, DX ;SVUOTARE RBR POP DX ;ESTRAZIONE DEI VALORI CONTENUTI POP AX ;NELLO STACK RET ;RITORNO AL MAIN INI_COM ENDP ;FINE PROCEDURA .STARTUP ;MAIN CALL INI_COM ;CHIAMATA A PROCEDURA .EXIT ;RITORNO AL S.O. END ;FINE PROGRAMMA - 35 -

;SISTEMI A MICROPROCESSORE ;Inizializzare un 8250 su COM2 con i seguenti parametri ;- 2400 bps ;- 5 bit per carattere inviato ;- 1,5 bit di stop ;- parita' dispari ;- richieste di interrupt abilitate per errori e ricezione ;Inviare infine il dato contenuto nella variabile VAR definita byte ;Autore: Sergio Porcu CONTROL_LCR

EQU

00001100b

SET_IER COSTANTE_DLR DLR-LSB THR DLR-MSB IER LCR LSR

EQU EQU EQU EQU EQU EQU EQU EQU

00000101b 0030h 02F8h 02F8h 02F9h 02F9h 02FBh 02FDh

.MODEL SMALL .STACK .DATA VAR DB ? .CODE .STARTUP CALL INIT_PROC CALL INVIA_PROC .EXIT INIT_PROC PROC PUSH AX PUSH DX MOV DX, LCR IN AL, DX OR AL, 10000000b OUT DX, AL MOV DX, DLR-LSB MOV AX, COSTANTE_DLR OUT DX, AL MOV DX, DLR-MSB XCHG AL, AH OUT DX, AL MOV DX, LCR MOV AL, CONTROL_LCR OUT DX, AL MOV DX, IER MOV AL, SET_IER OUT DX, AL POP DX POP AX

;5 BIT CARATTERE, 1.5 BIT STOP, ;PARITA' DISPARI

;LSR CONTIENE LE INFORMAZIONI ;RELATIVE ALLO STATO DELLA ;INTERFACCIA

- 36 -

RET INIT_PROC ENDP INVIA_PROC PROC PUSH AX PUSH DX MOV DX, LSR CICLO: IN AL, DX TEST AL, 00100000b

;EO=1 (BIT 6 DI LSR) -> IL DATO ;CONTENUTO NEL REGISTRO THR E' ;STATO TRASMESSO

JZ CICLO MOV DX, THR MOV AL, VAR OUT DX, AL POP DX POP AX RET INVIA_PROC ENDP END

- 37 -

;SISTEMI A MICROPROCESSORE ;Configurare il sistema in modo che i 50 valori ricevuti dall’interfaccia seriale siano ;memorizzati in una variabile vet. L’interfaccia 8250 alla porta COM1 e’ inizializzata ;come segue: ;- 9600 bps ;- 8 bit per carattere inviato ;- 1 bit di stop ;- parita’ pari ;Autore: Sergio Porcu ICW1_8259 ICW2_8259 ICW4_8259 OCW2_8259 LCR_8250 DLR_8250 IER_8250 RBR DLR_LSB DLR_MSB IER IIR LCR

EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU

00010011b 00100000b 00000001b 00100000b 00011011b 000Ch 00000001b 03F8h 03F8h 03F9h 03F9h 03FAh 03FBh

.MODEL SMALL .STACK .DATA VET DB 50 DUP (?) .CODE .STARTUP CLI CALL INIT_INTER CALL INIT_8259 CALL INIT_8250 STI MOV DI, 0 LEA SI, VET ANCORA: CMP DI, 50 JNE ANCORA CLI LEA SI, VET CALL MEDIA CALL SPEDISCI_8250 .EXIT INIT_INTER PROC PUSH DS PUSH AX PUSH BX XOR AX, AX MOV DS, AX MOV BX, 32

;DISABILITA GLI INTERRUPT

;ABILITA NUOVAMENTE GLI INTERRUPT

;DISABILITA GLI INTERRUPT

- 38 -

MOV CL, 2 SHL BX, CL MOV AX, OFFSET INTER_EVENT MOV DS:[BX], AX MOV AX, SEG INTER_EVENT MOV DS:[BX+2], AX POP BX POP AX POP DS RET INIT_INTER ENDP INIT_8259 PROC MOV DX, 40h MOV AL, ICW1 OUT DX, AL MOV DX, 41h MOV AL, ICW2_8259 OUT DX, AL MOV AL, ICW4_8259 OUT DX, AL RET INIT_8259 ENDP INIT_8250 PROC PUSH AX PUSH DX MOV DX, LCR IN AL, DX OR AL, 10000000b OUT DX, AL MOV DX, DLR_LSB MOV AX, 000Ch OUT DX, AL MOV DX, DLR_MSB XCHG AL, AH OUT DX, AL MOV DX, LCR MOV AL, LCR_8250 OUT DX, AL MOV DX, IER MOV AL, IER_8250 OUT DX, AL POP DX POP AX RET INIT_8250 ENDP MEDIA PROC PUSH DI PUSH SI MOV DI, 0 XOR AX, AX SOMMA: ADD AL, [SI] JNC NEW - 39 -

INC AH NEW: INC SI INC DI CMP DI, 50 JNE SOMMA MOV BL, 50 DIV BL POP SI POP DI RET MEDIA ENDP SPEDISCI_8250 PROC PUSH AX PUSH DX PUSH BX MOV BX, AX MOV DX, LSR CICLO1: IN AL, DX TEST AL, 00100000b JZ CICLO1 MOV DX, THR MOV AL, BL OUT DX, AL MOV DX, LSR CICLO2: IN AL, DX TEST AL, 00100000b JZ CICLO2 MOV DX, THR MOV AL, BH OUT DX, AL POP BX POP DX POP AX RET SPEDISCI_8250 ENDP INTER_EVENT PROC PUSH AX PUSH DX MOV DX, IIR IN AL, DX CMP AL, 00000100b JNE END MOV DX, RBR IN AL, DX MOV [SI], AL INC SI INC DI END: MOV DX, 40h MOV AL, OCW2_8259 OUT DX, AL IRET - 40 -

INTER_EVENT ENDP END

- 41 -

;SISTEMI A MICROPROCESSORE ;Si programmi un 8253 in modo da generare un ritardo di 5 msec. ;Si supponga di avere a disposizione un clock da 1 Mhz. ;Autore: Sergio Porcu ;SOLUZIONE (PARZIALE): ;IL PERIODO DEL CLOCK È DI 1 MICROSECONDO. PER OTTENERE UN TEMPO DI ;5 MSEC SONO NECESSARI 5000 PERIODI DEL CLOCK. ;... MOV AL, 01100001b ;CONTATORE 1, MODO 0, BCD * OUT 43h, AL ;PROGRAMMAZIONE CONTATORE #1 MOV AL, 50h ;BYTE PIÙ SIGNIFICATIVO OUT 41h, AL ;CARICAMENTO MSB CONTATORE #1 ;... ;* READ/LOAD MSB ONLY

- 42 -

;SISTEMI A MICROPROCESSORE ;Si voglia generare un segnale che ogni 4 secondi scateni ;una richiesta di interruzione. ;Si supponga di disporre di un clock con frequenza 2 Mhz. ;Autore: Sergio Porcu ;SOLUZIONE (PARZIALE): ;IL NUMERO DI IMPULSI CHE DEVONO ESSERE CONTATI È PARI A ;8.000.000. TALE CIFRA NON È RAPPRESENTABILE SU 16 BIT E ;QUINDI OCCORRE UTILIZZARE DUE CONTATORI IN CASCATA. ;... MOV DX, 43h ;CARICAMENTO IN DX DELL'INDIRIZZO DEL REGISTRO DI ;CONTROLLO MOV AL, 34h ;CARICAMENTO IN AL DELLA PRIMA PAROLA DI CONTROLLO ;CONTATORE 0, MODO 2, BINARIO OUT DX, AL ;PROGRAMMAZIONE CONTATORE #0 MOV AL, 64h ;CARICAMENTO IN AL DELLA SECONDA PAROLA DI CONTROLLO ;CONTATORE 1, MODO 2, BINARIO OUT DX, AL ;PROGRAMMAZIONE CONTATORE #1 MOV DX, 40h ;CARICAMENTO IN DX DELL'INDIRIZZO DEL CONTATORE #0 MOV AX, 50000 ;8,000,000 / 160 OUT DX, AL ;LSB CONTATORE #0 MOV AL, AH OUT DX, AL ;MSB CONTATORE #0 INC DX ;CARICAMENTO IN DX DELL'INDIRIZZO DEL CONTATORE #1 MOV AL, 160 OUT DX, AL ;MSB CONTATORE #1 ;...

- 43 -

;SISTEMI A MICROPROCESSORE ;Lettura al volo 8253 ;Autore: Sergio Porcu CW0 EQU 00110000b CW1 EQU 01100101b CW2 EQU 10111000b .MODEL SMALL .STACK .DATA .CODE INI_8253 PROC NEAR MOV AL, CW0 OUT 43h, AL MOV AL, CW1 OUT 43h, AL MOV AL, CW2 OUT 43h, AL MOV AL, 34h OUT 40h, AL MOV AL, 12h OUT 40h, AL MOV AL, 01h OUT 41h, AL MOV AL, 0FFh OUT 42h, AL MOV AL, 1Fh OUT 42h, AL RET INI_8253 ENDP .STARTUP CALL INI_8253 MOV AL, 80h OUT 43h, AL IN AL, 42h MOV AH, AL IN AL, 42h XCHG AL, AH

;30h ;65h ;B8h

;CARICAMENTO IN AL DELLA PRIMA PAROLA DI CONTROLLO ;PROGRAMMAZIONE CONTATORE #0 ;CARICAMENTO IN AL DELLA SECONDA PAROLA DI ;CONTROLLO ;PROGRAMMAZIONE CONTATORE #1 ;CARICAMENTO IN AL DELLA TERZA PAROLA DI CONTROLLO ;PROGRAMMAZIONE CONTATORE #2 ;CARICAMENTO LSB CONTATORE 0 ;CARICAMENTO MSB CONTATORE 0 ;CARICAMENTO MSB CONTATORE 1 ;CARICAMENTO LSB CONTATORE 2 ;CARICAMENTO MSB CONTATORE 2

;CARICAMENTO IN AL DELLA PAROLA DI CONTROLLO ;PREDISPOSIZIONE CONTATORE 2 ALLA LETTURA AL VOLO ;LETTURA DEL LSB ;COPIA IL VALORE DI AL IN AH ;LETTURA DEL MSB ;SCAMBIO TRA AH E AL ;(RICOSTRUZIONE DEL VALORE)

.EXIT END

- 44 -

;SISTEMI A MICROPROCESSORE ;Programma che gestisce il funzionamento dello speaker del PC ;Connessioni: ;La porta B dell'8255 ha il bit 0 connesso al segnale di GATE2 dell'8253 ed il bit 1 ;in ingresso ad una porta di AND. Il secondo ingresso della porta AND e' il segnale ;OUT del contatore 2 dell'8253. L'uscita della porta AND pilota uno speaker acustico. ;Indirizzi: ;8255 (Porta B) -> 61h ;8253 -> 40h, 41h, 42h, 43h ;Autore: Sergio Porcu CR EQU 13 ;CARRIAGE RETURN LF EQU 10 ;LINE FEED PS_8255 EQU 61h ;PORTA B DELL'8255 * C2_8253 EQU 42h ;CONTATORE 2 DELL'8253 RC_8253 EQU 43h ;REGISTRO DI CONTROLLO DELL'8253 P2_8253 EQU 0B6h ;PAROLA DI CONTROLLO CONTATORE #2 ** .MODEL SMALL .STACK .DATA APP DW ? .CODE ;LA PROCEDURA BEEP RICEVE IN DI LA FREQUENZA IN HZ, ED IN BX LA DURATA IN ;CENTESIMI DI SECONDO DEL SUONO DESIDERATO BEEP PROC NEAR PUSH AX ;SALVATAGGIO NELLO STACK DEI PUSH BX ;REGISTRI AX, BX, CX, DX PUSH CX PUSH DX MOV AL, P2_8253 ;PAROLA DI CONTROLLO CONTATORE #2 OUT RC_8253, AL ;PROGRAMMAZIONE CONTATORE #2 MOV DX, 14h ;144F38h = 1331000 -> FREQ. CLOCK MOV AX, 4F38h ;IN DX 14h, IN AX 4F38h DIV DI OUT C2_8253, AL ;FREQUENZA (LSB) MOV AL, AH OUT C2_8253, AL ;FREQUENZA (MSB) IN AL, PS_8255 ;RILEVAMENTO VALORE CORRENTE DELLO SPEAKER ;DI SISTEMA MOV AH, AL OR AL, 03h ;IMPOSTAZIONE DEI DUE BIT MENO SIGNIFICATIVI ;A 1 OUT PS_8255, AL ;ABILITAZIONE BEEPER L1: MOV CX, 2942 ;*** L2: LOOP L2 DEC BX ;DECREMENTO DEI CENTESIMI JNZ L1 ;SE BX=0 PROSEGUE, ALTRIMENTI ;SI SALTA A L1 MOV AL, AH OUT PS_8255,AL ;DISABILITAZIONE BEEPER POP DX POP CX - 45 -

POP BX POP AX RET BEEP ENDP ACAPO PROC NEAR ;INIZIO PROCEDURA ACAPO PUSH AX ;SALVA NELLO STACK IL VALORE DI AX PUSH DX ;E DX MOV AH, 2 ;PREDISPOSIZIONE DI AH ALLA VISUALIZZAZIONE MOV DL, CR ;COPIA IL 'CARRIAGE RETURN' IN DL INT 21h ;STAMPA CARATTERE A VIDEO MOV DL, LF ;COPIA IL 'LINE FEED' IN DL INT 21h ;STAMPA CARATTERE A VIDEO POP DX ;COPIA L'ULTIMO VALORE DELLO STACK IN DX POP AX ;COPIA L'ULTIMO VALORE DELLO STACK IN AX RET ;RITORNO AL PROGRAMMA PRINCIPALE ACAPO ENDP ;FINE PROCEDURA ACAPO .STARTUP ;PROGRAMMA PRINCIPALE: SUONA PER 3 VOLTE UNA SCALA CHE VA DA 100 A 2000 ;HZ E VISUALIZZA IL CONTO ALLA ROVESCIA DEI CICLI MOV CX, 3 MOV AH, 2 CICLO: MOV DI, 100 MOV BX, 150 AGAIN: CALL BEEP ADD DI, 20 CMP DI, 2000 JB AGAIN MOV APP, CX ADD APP, 30h MOV DL, BYTE PTR APP INT 21h CALL ACAPO LOOP CICLO .EXIT END ;* L'altoparlante del sistema e' indirizzabile alla porta 61h ;** 0B6h -> 10110110b -> cont. 2, prima LSB poi MSB, modo 3, bin ;*** Quanto deve valere n affinche' il ciclo duri 10 msec? ; Durata LOOP: ; - 17 colpi di clock se ripete ; - 5 colpi di clock se non ripete ; Durata MOV: ; - 4 colpi di clock. ; Deve quindi essere: [17(n-1)+5+4]T = 0.01 sec ; T e' il periodo del processore. Se il clock ha frequenza 5 Mhz, si ha n = 2941

- 46 -

;SISTEMI A MICROPROCESSORE ;Programma che gestisce il funzionamento dello speaker di sistema. ;Emissione delle note della scala musicale ;Autore: Sergio Porcu .MODEL SMALL .STACK .DATA TEMP DW ? SCALA DB 10,13,"DO RE NOTE DB 10,13,"1 2 3 .CODE EMETTI_SUONO PROC NEAR TEMP1: CMP AL,1 JNE TEMP2 MOV AX, 9121

MI FA SOL LA SI (ESCAPE PER USCIRE)$" 4 5 6 7 $" ;PROCEDURA PER L'EMISSIONE DEL SUONO ;CONFRONTA AL CON 1 ;SE NON SONO UGUALI SALTA A TEMP2 ;ALTRIMENTI ASSEGNA LA FREQUENZA SELEZIONATA ;(E COSI' DI SEGUITO)

JMP FINE_TEMP TEMP2: CMP AL,2 JNE TEMP3 MOV AX, 8126 JMP FINE_TEMP TEMP3: CMP AL,3 JNE TEMP4 MOV AX, 7240 JMP FINE_TEMP TEMP4: CMP AL,4 JNE TEMP5 MOV AX, 6833 JMP FINE_TEMP TEMP5: CMP AL,5 JNE TEMP6 MOV AX, 6088 JMP FINE_TEMP TEMP6: CMP AL,6 JNE TEMP7 MOV AX, 5424 JMP FINE_TEMP TEMP7: CMP AL,7 JNE FINE_TEMP MOV AX, 4832 FINE_TEMP: ;PROGRAMMAZIONE DEL TIMER MOV TEMP, AX ;SALVATAGGIO DEL VALORE DI TEMPORIZZAZIONE ;IN UNA APPOSITA VARIABILE - 47 -

MOV AL, 0B6h

;COPIA IN AL IL VALORE 10110110 (VEDERE ;PROGRAMMA PRECEDENTE) OUT 43h, AL ;IMPOSTAZIONE DEL TIMER PER LA ;CONFIGURAZIONE PREVISTA MOV AX, TEMP ;IMPOSTAZIONE DI AX CON IL VALORE DI ;TEMPORIZZAZIONE OUT 42h, AL ;IMPOSTAZIONE DEL CONTATORE (BYTE MENO ;SIGNIFICATIVO) ASSOCIATO AL CANALE 2 MOV AL, AH ;IMPOSTAZIONE DEL REGISTRO AL PER IL ;TRASFERIMENTO DEL BYTE PIU' SIGNIFICATIVO DEL ;CONTATORE OUT 42h, AL ;IMPOSTAZIONE DEL CONTATORE (BYTE PIU' ;SIGNIFICATIVO) ASSOCIATO AL CANALE 2 ;COLLEGAMENTO TIMER - SPEAKER IN AL, 61h OR AL, 03h OUT 61h, AL ;Questo ciclo tiene impegnata la CPU per un tempo pari a quello necessario ad ;eseguire l'algoritmo che permette al suono di essere ascoltato per tutto il tempo di ;esecuzione del ciclo. Il tempo si puo' impostare indirettamente indicando quante ;volte deve essere eseguito il ciclo. Per impostare questo valore si deve ;necessariamente assegnare al registro BX un valore prima della chiamata a questa ;procedura. Tempi accettabili sono quelli tra 100 e 300, valori testati empiricamente. ;BX rappresenta, percio', un parametro da passare alla procedura prima di essere ;chiamata. MOV AX, BX CICLO: MOV CX, 65535 TEMPO: SUB CX, 1 JNZ TEMPO SUB AX, 1 CMP AX, 0 JA CICLO ;INTERRUZIONE DELLO SPEAKER IN AL, 61h SUB AL, 03h OUT 61h, AL RET ;RITORNO AL PROGRAMMA PRINCIPALE EMETTI_SUONO ENDP ;FINE DELLA PROCEDURA PREMI_NOTA PROC NEAR ;INIZIO DELLA PROCEDURE PER L'INPUT DI UNA ;SEQUENZA DI CARATTERI ASSOCIATI ALLE NOTE MOV AH, 09 ;OUTPUT DI UNA STRINGA MOV DX, OFFSET SCALA INT 21h MOV AH, 09 ;OUTPUT DI UNA STRINGA MOV DX, OFFSET NOTE INT 21h INSER: MOV AH, 07h ;FUNZIONE DI SISTEMA CHE LEGGE UN CARATTERE ;DA TASTIERA SENZA ESEGUIRE L'ECO SU VIDEO INT 21h CMP AL, 27 ;VALORE DEL CARATTERE IN ASCII ESCAPE - 48 -

JE FINE_INS CMP AL, 37h JA INSER CMP AL, 31h JB INSER SUB AL, 30h MOV BX, 1000 CALL EMETTI_SUONO JMP INSER FINE_INS: RET PREMI_NOTA ENDP .STARTUP MOV BX, 50 CALL PREMI_NOTA .EXIT END

;SE IL CARATTERE E' UGUALE AD ESC SALTA ALLA ;FINE ;SE IL CARATTERE E' MAGGIORE DI 7 ASCII ;ALLORA SALTA ALL'INSERIMENTO ;SE IL CARATTERE E' MINORE DI 1 ASCII ;ALLORA TORNA ALL'INSERIMENTO ;TRASFORMAZIONE ASCII -> BIN ;IMPOSTAZIONE DEL TEMPO A CENTO CICLI ;CHIAMATA ALLA PROCEDURA DI EMISSIONE DEL ;SUONO ;SALTA AD "INSER" ;FINE DELLA PROCEDURA

- 49 -

;SISTEMI A MICROPROCESSORE ;Programma che stampa su LPT1 la stringa "Ciao a tutti" ;Autore: Sergio Porcu PRDATA EQU 0378h ;INDIRIZZO LPT1 PRSTAT EQU PRDATA+1 ;PORTA B (0379h) PRCTRL EQU PRDATA+2 ;PORTA C (037Ah) DELAY EQU 100 ;RITARDO ;STATO DELLA STAMPANTE (PORTA B) SERR EQU 08h ;ATTIVO BASSO (00001000b) -> PB3 SSEL EQU 10h ;ATTIVO ALTO (00010000b) -> PB4 SPE EQU 20h ;ATTIVO ALTO (00100000b) -> PB5 SACK EQU 40h ;ATTIVO BASSO (01000000b) -> PB6 SBUSY EQU 80h ;ATTIVO BASSO (10000000b) -> PB7 ;CONTROLLO DELLA STAMPANTE (PORTA C) CSTB EQU 01h ;ATTIVO ALTO (00000001b) -> PC0 CAUTO EQU 02h ;ATTIVO ALTO (00000010b) -> PC1 CINIT EQU 04h ;ATTIVO BASSO (00000100b) -> PC2 CSEL EQU 08h ;ATTIVO ALTO (00001000b) -> PC3 .MODEL SMALL .STACK .DATA MSG DB 'CIAO A TUTTI',0Dh,0Ah,0 .CODE PR_AL PROC NEAR PUSH DX PUSH AX MOV AH, AL ;SALVA AL IN AH MOV DX, PRSTAT ;CARICA LO STATO DELLA STAMPANTE PR_N_READY: IN AL, DX ;LEGGE LO STATO DELLA STAMPANTE TEST AL, SERR JZ PR_ERROR ;SE ZF=1 -> ERRORE TEST AL, SBUSY JZ PR_N_READY ;SE ZF=1 -> BUSY TEST AL, SSEL JZ PR_N_READY ;SE ZF=0 -> ON LINE MOV AL, AH MOV DX, PRDATA ;CARICA L'INDIRIZZO DI LPT1 OUT DX, AL ;INVIA IL DATO MOV CX, DELAY CICLO1: LOOP CICLO1 MOV DX, PRCTRL ;CARICA IL CONTROLLO DELLA STAMPANTE IN AL, DX OR AL, CSTB ;SETTA IL BIT DI STROBE * ;(IMPULSO TRASFERIMENTO DEI DATI) OUT DX, AL MOV CX, 2*DELAY CICLO2: LOOP CICLO2 AND AL, NOT CSTB ;RESETTA LO STROBE ** - 50 -

OUT DX, AL MOV CX, DELAY CICLO3: LOOP CICLO3 PR_DONE: POP AX POP DX RET PR_ERROR: JMP PR_DONE PR_AL ENDP .STARTUP MOV BX, OFFSET MSG XOR SI, SI NEXT: MOV AL, [BX] [SI] CMP AL, 0 JE DONE CALL PR_AL INC SI JMP NEXT DONE: .EXIT END ;* ; ;** ;

;STAMPA UN CARATTERE

STROBE: un impulso basso di durata superiore ad 1 microsecondo scrive sulla stampante un byte di dati L'operazione NOT esegue l'operazione logica di complementazione bit a bit del contenuto di un operando

- 51 -