Luc Ferry

calcuadora:

; P2 = 0 => soma
; P2 = 1 => subtração
; P2 = 2 => multiplicação
; P2 = 3 => divisão
; R0, resultado final; o R1, Carry.

$MOD51 ORG 0; INICIO: MOV A, P2 JNZ CHECK_SUBB ;pula se o valor de p2 for diferente de zero SOMA: LCALL RESET ;chama a sub-rotina reset MOV A, P0 ;A=P0 ADD A, P1 ;A=P1+P0 MOV R0, A ;R0=A MOV A, #0H ;ZERA A ADDC A, #0H ;Soma o conteúdo do Registro n e o Carry ao Acumulador. MOV R1, A ;R1=A

JMP INICIO ; VOLTA PARA O INÍCIO ; Se não for SOMA, checa se é subtração: CHECK_SUBB: ; Checa se é subtração SUBB A, #1H ; A= conteudo de 1H JNZ CHECK_MULT ; Nao sendo subtração checa se é multiplicação SUBTRACAO: LCALL RESET ;chama a sub-rotina reset MOV A, P0 ;A=P0 SUBB A, P1 ;A=P0-P1 MOV R0, A ;R0=A MOV A, #0H ;ZERA A ADDC A, #0H ;Soma o conteúdo do Registro n e o Carry ao Acumulador. MOV R1, A ;COLOCA A EM R1

JMP INICIO ;VOLTA PRO INICIO ;checa se é multiplicação CHECK_MULT: MOV A, P2 ;A= p2 SUBB A, #2H ;subtrai o conteudo do end 2 de A JNZ CHECK_DIV ;JNZ- Salta se o Acumulador não for zero./ Checa se é divisão

MULTIPLICACAO: ; Na multiplicação, R0 + significativo LCALL RESET ; chama RESET MOV A, P0 ; A=P0 MOV B, P1 ; B=p1 MUL AB ; Multiplica A e B MOV R0, B ; coloca o que está em B no Registrador 0 MOV R1, A ; Coloca o que está em A no registrador 1

JMP INICIO ; Volta para o início CHECK_DIV: ; checa se é divisão MOV A, P2 ; A= P2 SUBB A, #3H ; Subtrai o conteudo do end 3 de A JNZ OP_INVALIDA; Salta para OP_INVALIDA DIVISAO: ; quociente em R0 e o resto, em R1 LCALL RESET ; Chama reset MOV A, P0 ; A=