codice:
TITLE - Esercitazione di Calcolatori Elettronici
;Definizione costanti
PAGINA EQU 00h
HT EQU 09h
LF EQU 0Ah
CR EQU 0Dh
;
BIOS_VIDEO EQU 10H
SET_VIDEO_MODE EQU 00h ;in AH
MODO_TESTO EQU 03H ;in AL
;
SET_CURSOR EQU 02h ;in AH
W_CHR_TTY EQU 0Eh ;in AH
;
DOS EQU 21H
R_KEY_CHR EQU 01H
PRINT_STRING EQU 09H
R_KEY_CHR_NE EQU 07h
DSEG SEGMENT PARA PUBLIC 'DATA'
TITOLO DB 'CORSO di CALCOLATORI ELETTRONICI$'
ISTRUZIONE_1 DB CR,LF,LF,HT,'Digita il primo numero (max 5 cifre): $'
ISTRUZIONE_2 DB CR,LF,LF,HT,'Digita il SECONDO numero (max 5 cifre): $'
BIN_MESS DB CR,LF,HT,HT,'Rappresentazione Binaria: $'
TERMINE DB CR,LF,LF,HT,'Un''altra iterazione? [S/N]$'
MSG_ERRORE DB CR,LF,LF,HT,'Sono permessi solo caratteri numerici! Pertanto...$'
MSG_EMPTY DB CR,LF,LF,HT,'Non hai scritto nessun numero$'
MSG_MAX DB CR,LF,LF,HT,'IL NUMERO INSERITO E SUPERIORE 64000...$'
MSG_UGUALE DB CR,LF,LF,HT,'HAI IMMESSO DUE NUMERI UGULAI..DA CAPO$'
RIS DB CR,LF,LF,HT,'IL RISULTATO E $'
NUM_1 DB 5 DUP(0)
NUM_2 DB 5 DUP(0)
NUM_1B DB 16 DUP(0)
DSEG ENDS
STACKM SEGMENT PARA STACK 'STACK' ;Viene allocata una zona di
DB 64 DUP('12345678') ; memoria per lo Stack: in
STACKM ENDS ; tutto 64*8 bytes.
ASSUME CS:CSEG,DS:DSEG,SS:STACKM
CSEG SEGMENT PARA PUBLIC 'CODE'
;---------------------------------------------------------------------;
; Corpo principale del programma ;
;---------------------------------------------------------------------;
MAIN PROC FAR
PUSH DS ;Istruzioni da lasciare SEMPRE
MOV AX,00h ; al principio dei programmi!
PUSH AX ;
CALL INIZIALIZZAZIONE
CICLO_PRINCIPALE: MOV DX,OFFSET ISTRUZIONE_1
CALL STAMPA_STRINGA
LEA SI,NUM_1
CALL ACQUISIZIONE
LEA SI,NUM_1
CALL CONVERSIONE
JNC CICLO_PRINCIPALE
ACQ_2: MOV DX,OFFSET ISTRUZIONE_2
CALL STAMPA_STRINGA
LEA SI,NUM_2
CALL ACQUISIZIONE
LEA SI,NUM_2
CALL CONVERSIONE
JNC ACQ_2
CALL CONFRONTO
JZ CICLO_PRICIPALE
CALL STAMPA_BIN
CALL STAMPA_RIS
CALL TEST_FINALE
JNZ CICLO_PRINCIPALE
RET ;Ritorno al Sistema Operativo
MAIN ENDP
;---------------------------------------------------------------------;
; Procedura di inizializzazione ;
; ;
; REGISTRI UTILIZZATI: AX, DX, DS ;
;---------------------------------------------------------------------;
INIZIALIZZAZIONE PROC NEAR
MOV AX,DSEG ;Inizializzazione segmento dati
MOV DS,AX ; tramite il registro AX.
MOV AH,SET_VIDEO_MODE ;Servizio BIOS 'Set Video Mode':
MOV AL,MODO_TESTO ; modo testo 80 x 25, colori
INT BIOS_VIDEO ;
MOV DX,0315h ;Imposta riga (DH) e colonna (DL)
CALL SPOSTA_CURSORE ;Muove il cursore nella pos scelta
MOV DX,OFFSET TITOLO ;Sceglie la stringa (DS:DX)
CALL STAMPA_STRINGA ; e la stampa.
MOV DX,0606h ;Imposta riga (DH) e colonna (DL)
CALL SPOSTA_CURSORE ;Muove il cursore nella pos scelta
RET ;Ritorno alla procedura chiamante
INIZIALIZZAZIONE ENDP
ACQUISIZIONE PROC NEAR
INIZIO_1: MOV CL,05d
MOV CH,0
CICLO_1: MOV AH,R_KEY_CHR
INT DOS
CMP AL,CR
JE FINE_1
CMP AL,'9'
JA ERRORE_1
CMP AL,'0'
JB ERRORE_1
MOV DS:[SI],AL
INC SI
LOOP CICLO_1
JMP FINE_1
ERRORE_1: LEA DX,MSG_ERRORE
CALL STAMPA_STRINGA
LEA DX,ISTRUZIONE_1
CALL STAMPA_STRINGA
JMP INIZIO_1
FINE_1: MOV AL,00H
MOV DS:[SI],AL
RET
ACQUISIZIONE ENDP
;----------------------CONVERSIONE-------------------------------------------;
CONVERSIONE PROC NEAR
; LEA SI,NUM_1
PUSH BX
;PUSH CX
PUSH BP
PUSH SI
MOV CX,0000H
START: MOV AL,DS:[SI]
CMP AL,00H
JE EMPTY
INC CX
INC SI
JMP START
EMPTY: POP SI
MOV AX,0000H
CMP CX,0000H
JE W1
MOV AX,5
SUB AX,CX
MOV CX,AX
CMP CX,0000H
JE W5
W2: PUSH CX
MOV BX,5
MOV CX,5
W3: MOV AL,DS:[SI+BX-1]
MOV DS:[SI+BX],AL
DEC BX
LOOP W3
MOV AL,'0'
MOV DS:[SI+BX],AL
POP CX
LOOP W2
W5: MOV BP,0000H
MOV CX,5
MOV BX,10000
W4: MOV AL,DS:[SI]
SUB AL,'0'
MOV AH,00H
MUL BX
INC SI
ADD BP,AX
MOV AX,BX
MOV BX,10
DIV BX
MOV BX,AX
LOOP W4
MOV AX,BP
CMP AX,64000
JB FINE_CONV ;se e minore salta
MOV DX,OFFSET MSG_MAX ;numero maggiore
CALL STAMPA_STRINGA
JMP FINE_C
W1: LEA DX,MSG_EMPTY ;nessun numero
CALL STAMPA_STRINGA
JMP FINE_C
FINE_CONV: POP BP
POP BX
PUSH AX
JMP FINE_C
POP BP
POP BX
FINE_C: RET
CONVERSIONE ENDP
;--------------CONFRONTO--------------------------------;
CONFRONTO PROC NEAR
POP AX
MOV BX,AX
POP AX
CMP AX,BX
JE UGUALE
CMP AX,BX
JG SALTO_1
JMP SALTO_2
SALTO_1:PUSH BX
PUSH AX
JMP FINE
SALTO_2:PUSH AX
PUSH BX
JMP FINE
UGUALE: MOV DX,OFFSET MSG_UGUALE
CALL STAMPA_STRINGA
FINE: RET
CONFRONTO ENDP
;--------------------STAMPA_BIN------------------------;
STAMPA_BIN PROC NEAR
MOV BX,0000H
INIT: LEA SI,NUM_1B
POP DX
PUSH DX
;MOV DX,AX
MOV CL,10H
MOV CH,00H
CICLO_BINARIO: XOR AL,AL ;Azzera il registro AL
SHL DX,01h ;Shift Logico a Sinistra
ADC AL,AL ;In AL si pone il CARRY
MOV DS:[SI],AL
INC SI
DEC CL ;Decrementa il contatore del ciclo
JNZ CICLO_BINARIO ;Se non e' 0 itera un'altra volta
POP CX
INC CX
PUSH CX
LEA SI,NUM_1B
MOV CL,00H
MOV CH,00H
BO_0: MOV AL,DS:[SI]
BO_X: CMP CL,16
JE FINE_CO
BO_Z: CMP AL,0
JE BO_1
INC SI
INC CL
JMP BO_0
BO_1: INC SI
INC CL
CMP CL,16
JE FINE_CO
MOV AL,DS:[SI]
CMP AL,1
JE BO_2
JMP BO_0
BO_2: INC SI
INC CL
CMP CL,16
JE FINE_CO
MOV AL,DS:[SI]
CMP AL,1
JE BO_3
JMP BO_0
BO_3: INC SI
INC CL
MOV AL,DS:[SI]
CMP AL,0
JE CO5
JMP BO_X
CO5: INC BX
CMP CL,16
JE FINE_CO
JMP BO_Z
FINE_CO: POP CX
POP AX
CMP CX,AX
JE ENDI
PUSH AX
PUSH CX
JMP INIT
ENDI: RET
STAMPA_BIN ENDP
;-------------------STAMPA_RIS----------------------;
STAMPA_RIS PROC NEAR
MOV DX,OFFSET RIS
CALL STAMPA_STRINGA
MOV AX,BX
CMP AX,10000
JC SRW_0
MOV DX,0000H
MOV BX,10000
DIV BX
CALL STAMPA_NUMERO
MOV AX,DX
JMP SRW_1
SRW_0: CMP AX,1000
JC SRB_0
SRW_1: MOV DX,0000H
MOV BX,1000
DIV BX
CALL STAMPA_NUMERO
MOV AX,DX
JMP SRB_1
SRB_0: CMP AX,100
JC SRB_2
SRB_1: MOV BL,100
DIV BL
CALL STAMPA_NUMERO
MOV AL,AH
MOV AH,00H
JMP SRB_3
SRB_2: CMP AX,10
JC SRB_4
SRB_3: MOV BL,10
DIV BL
CALL STAMPA_NUMERO
MOV AL,AH
SRB_4: CALL STAMPA_NUMERO
RET
STAMPA_RIS ENDP
;-------PROCEDURE D BASSO LIVELLO-----------------;
TEST_FINALE PROC NEAR
MOV DX,OFFSET TERMINE
CALL STAMPA_STRINGA ; e la stampa.
CALL LETTURA_SN ;Legge da tastiera senza echo.
CMP AL,'n' ;Modifica il FLAG 'Z'
RET
TEST_FINALE ENDP
STAMPA_NUMERO PROC NEAR
ADD AL,'0'
MOV AH,W_CHR_TTY
INT BIOS_VIDEO
RET
STAMPA_NUMERO ENDP
LETTURA_SN PROC NEAR
NUOVA_LETTURA: MOV AH,R_KEY_CHR_NE
INT DOS
OR AL,00100000b
CMP AL,'n'
JZ FINE_LETTURA
CMP AL,'s'
JNZ NUOVA_LETTURA
FINE_LETTURA: RET
LETTURA_SN ENDP
SPOSTA_CURSORE PROC NEAR
MOV BH,PAGINA
MOV AH,SET_CURSOR
INT BIOS_VIDEO
RET
SPOSTA_CURSORE ENDP
STAMPA_STRINGA PROC NEAR
MOV AH,PRINT_STRING
INT DOS
RET
STAMPA_STRINGA ENDP
CSEG ENDS
END MAIN
Rispondi quotando
