Facebook
From qivi, 5 Years ago, written in MOS 6502 Kick Assembler.
Embed
Download Paste or View Raw
Hits: 259
  1. .data
  2.         msg: .asciiz "Podaj dlugosc ciagu liczb\n"
  3.         msg1: .asciiz "Podaj liczby"
  4.         a: .asciiz "a"
  5.         s: .asciiz " "
  6.  
  7.         arrayz: .word 1:25
  8.        
  9. .text
  10.  
  11. main:
  12.         li $v0, 4
  13.         la $a0, msg
  14.         syscall
  15.        
  16.         li $v0, 5
  17.         syscall
  18.         move $t0, $v0
  19.        
  20.         la $t3, arrayz
  21.         move $t6, $t3
  22.        
  23.         j inputt
  24.        
  25. end:
  26.         li $v0, 10
  27.  
  28. inputt:
  29.         li $t1, 0
  30.         li $t7, 0 # t7 licznik liczb != 0
  31.  
  32. input:
  33.         beq $t1, $t0, output
  34.        
  35.         li $v0, 5
  36.         syscall
  37.         move $t4, $v0
  38.        
  39.         sw $t4, ($t3)
  40.         addi $t3, $t3, 4
  41.        
  42.         addi $t1, $t1, 1
  43.        
  44.         j input
  45.        
  46. output:
  47.         move $t3, $t6
  48.         li $t5, 0
  49. outputt:
  50.  
  51.         beq $t5, $t0, end
  52.        
  53.         li $v0, 1
  54.         lw $a0, ($t3)
  55.         syscall
  56.        
  57.         addi $t3, $t3, 4
  58.         addi $t5, $t5, 1
  59.        
  60.         j outputt
  61.        
  62. end:
  63.         li $v0, 10
  64.        
  65.  
  66.  
  67.        
  68.        
  69.        
  70.        
  71.        
  72.        
  73.        
  74.        
  75.