Ano bissexto em assembly
Publicado por Leonardo Weslei Diniz 11/12/2007
[ Hits: 20.784 ]
Homepage: http://www.agilesoft.com.br/
Ano bissexto em assembly.
Obs:programa fácil de entender, tem comentário em tudo.
.data
str1: .asciiz "\n\tDigite o ano: "
str2: .asciiz "\n\tAno BISSEXTO!!!"
str3: .asciiz "\n\tAno COMUM!!!"
str4: .asciiz "\n\tDigite:\n\t0(zero) para sair:\n\t1(um)para manual\n\t2(dois)para calcular ano bissexto\n\t"
strman: .asciiz "\n\tAno bissexto o ano que possui um dia a mais do que os anos comuns (vulgares).\n\tO objetivo e manter o calendario utilizado em sincronia com os eventos sa_\n\tzonais relacionados as estacões do ano. No caso do calendario gregoriano, \n\tha a insercao de 1 dia extra a cada 4 anos no mes de fevereiro, que passa \n\ta ter 29 dias (ano com 366 dias) ao inves de 28 como nos anos comuns de 365\n\tdias. Diferentemente do que o senso comum nos leva a crer, o dia extra do a_\n\tno bissexto nao e o 29 e sim o 24 do mes de fevereiro. Para concluir se um\n\t ano e bissexto basta ser verificada a condicao do ano ser divisivel por 400\n\t(o resto da divisao do ano por 400 e zero), ou no caso de essa condicao ser\n\tfalsa, o ano ser divisivel por 4 mas nao por 100.\n\t\tfonte:\"http://pt.wikipedia.org/wiki/Ano_bissexto\"\n\tEste programinha foi desenvolvido para verificar se e ano bissexto a partir\n\tde um numero dado pelo usuario\n\n\t\tDivirta-se!!!\n\n\t\tCreditos:Leonardo Weslei Diniz\n\n\t\tEmail:exterminador3@gmail.com\n\n\t\tCurso:Ciencia da Computacao-Fic(Faculdades Integradas de Caratinga)-2 periodo\n\n\t\t"
str5: .asciiz "\n\t+------------------------------------------------------------------------------------------+\n\t"
.text
.globl main. #main()
main: #{
j menu #menu()
comeca: #comeca:
li $v0,4 #mostra qual operacao vai fazer no caso printf
la $a0,str1 #coloca a string str1 em $a0
syscall #chama o SO(sistema operacional) para fazer printf("%s",$a0)
li $v0,5 #mostra qual operacao vai fazer
syscall #chama o SO(sistema operacional) para fazer scanf("%d",$s1)
addi $s1,$v0,0 #scanf("%d",&ano);
addi $t1,$zero,4 #$t0=4;
div $s1,$t1 #ano%4;
mfhi $s1 #ano=ano%4;
addi $t2,$zero,1 #$t2=1;
beq $s1,$t2,else #if($s1 == $t1)goto else;
addi $t2,$zero,2 #$t2=2;
beq $s1,$t2,else #if($s1 == $t1)goto else;
addi $t2,$zero,3 #$t2=3;
beq $s1,$t2,else #if($s1 == $t1)goto else;
li $v0,4 #mostra qual operacao vai fazer no caso printf
la $a0,str2 #coloca a string str2 em $a0
syscall #chama o SO(sistema operacional) para fazer printf("%s",$a0)
j menu #menu();
else: #else:
li $v0,4 #mostra qual operacao vai fazer no caso printf
la $a0,str3 #coloca a string str3 em $a0
syscall #chama o SO(sistema operacional) para fazer printf("%s",$a0)
acabou: #acabou:
jr $ra #}
#---------------------------------------------------------------------------------
# funcaozinhas bobas
#---------------------------------------------------------------------------------
menu: #menu(){
li $v0,4 #mostra qual operacao vai fazer no caso printf
la $a0,str4 #coloca a string str4 em $a0
syscall #chama o SO(sistema operacional) para fazer printf("%s",$a0)
li $v0,5 #mostra qual operacao vai fazer no caso scanf
syscall #chama o SO(sistema operacional) para fazer scanf("%d",$s1)
addi $s1,$v0,0 #scanf("%d",&ano);
addi $t1,$zero,2 #$t2=2
beq $s1,$t1,comeca #if($s1 == $t1)goto comeca;
addi $t1,$zero,1 #$t2=1
beq $s1,$t1,manual #if($s1==$t1)manual();
bne $s1,$t1,acabou #if($s1 != $t1)goto acabou;}
#----------------------------------------------------------------------------------
manual: #manual(){
li $v0,4 #mostra qual operacao vai fazer no caso printf
la $a0,str5 #coloca a string str5 em $a0
syscall #chama o SO(sistema operacional) para fazer printf("%s",$a0)
li $v0,4 #mostra qual operacao vai fazer no caso printf
la $a0,strman #coloca a string strman em $a0
syscall #chama o SO(sistema operacional) para fazer printf("%s",$a0)
li $v0,4 #mostra qual operacao vai fazer no caso printf
la $a0,str5 #coloca a string str5 em $a0
syscall #chama o SO(sistema operacional) para fazer printf("%s",$a0)
j menu #menu();}
Escrita de número em hexadecimal em Assembly Puro para Linux 64bits (Nasm - Netwide Assemble)
Retorna o maior e menor elemento de um vetor em Assembly
Simples JIT (just in time) em C
Fscrypt: protegendo arquivos do seu usuário sem a lentidão padrão de criptograr o disco
Faça suas próprias atualizações de pacotes/programas no Void Linux e torne-se um Contribuidor
Como rodar o Folding@home no Linux
Criando um painel de controle (Dashboard) para seu servidor com o Homepage
O Abismo entre o Código e o Chão: Saltos Tecnológicos e a Exclusão Estrutural no Brasil
Utilizando a Ferramenta xcheckrestart no Void Linux
Pisando no acelerador do Linux Mint: Kernel XanMod, zRAM e Ajustes de Swap
Como compilar kernel no Linux Mint
Abrir um arquivo URL pelo Clipper (9)
Seno, Coseno, Tangente em CLIPPER (1)
Inserir uma URL num arquvo pelo Ubuntu (CLIPPER) (0)
VMWare Player não conecta na rede nem consigo intercambiar arquivos (1)









