daily pastebin goal
73%
SHARE
TWEET

task

a guest Oct 29th, 2018 103 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. START   ORG $1000
  2.  
  3.     MOVE #50, D0
  4.     TRAP #15
  5.  
  6.     MOVE    #14, D0
  7.     LEA pocetak, A1
  8.     TRAP #15   
  9.    
  10.     MOVE #2, D0
  11.     LEA unos, A1
  12.     TRAP #15
  13.    
  14.     MOVE #51, D0
  15.     TRAP #15
  16.  
  17.     MOVE #53, D0
  18.     MOVE.L #80, D2
  19.     LEA tekst, A1
  20.     TRAP #15
  21.  
  22.     MOVE #13, D0
  23.     TRAP #15
  24.  
  25. *part 1 which goes through the string and counts vowels
  26. BROJAC  MOVE.B (A1)+, D1
  27.         CMP #$2E, D1
  28.         BEQ DALJE
  29.  
  30.         CMP #$41, D1
  31.         BEQ DODAJ
  32.    
  33.         CMP #$45, D1
  34.         BEQ DODAJ
  35.  
  36.         CMP #$49, D1
  37.         BEQ DODAJ
  38.  
  39.         CMP #$4F, D1
  40.         BEQ DODAJ
  41.  
  42.         CMP #$55, D1
  43.         BEQ DODAJ
  44.  
  45.         CMP #$61, D1
  46.         BEQ DODAJ
  47.  
  48.         CMP #$65, D1
  49.         BEQ DODAJ
  50.  
  51.         CMP #$69, D1
  52.         BEQ DODAJ
  53.  
  54.         CMP #$6F, D1
  55.         BEQ DODAJ
  56.  
  57.         CMP #$75, D1
  58.         BEQ DODAJ
  59.  
  60.         JMP BROJAC
  61.  
  62. DODAJ   ADD #1, D3
  63.         JMP BROJAC
  64.  
  65. DALJE   MOVE #14, D0
  66.         LEA broj, A1
  67.         TRAP #15
  68.         MOVE #15, D0
  69.         MOVE #10, D2
  70.         MOVE D3, D1
  71.         TRAP #15
  72.  
  73.         MOVE #14, D0
  74.         LEA razmak, A1
  75.         TRAP #15
  76.  
  77.         MOVE #14, D0
  78.         LEA rijeci, A1
  79.         TRAP #15
  80.  
  81.         LEA tekst, A1
  82.    
  83. *part 2 work in progress
  84. RIJEC   MOVE.B (A1)+, D1
  85.  
  86.         CMP #$20, D1
  87.         BEQ MANJE
  88.  
  89.         CMP #$2E, D1
  90.         BEQ ISPIS
  91.    
  92.         CMP #$41, D1
  93.         BEQ BROJI
  94.    
  95.         CMP #$45, D1
  96.         BEQ BROJI
  97.  
  98.         CMP #$49, D1
  99.         BEQ BROJI
  100.  
  101.         CMP #$4F, D1
  102.         BEQ BROJI
  103.  
  104.         CMP #$55, D1
  105.         BEQ BROJI
  106.  
  107.         CMP #$61, D1
  108.         BEQ BROJI
  109.  
  110.         CMP #$65, D1
  111.         BEQ BROJI
  112.  
  113.         CMP #$69, D1
  114.         BEQ BROJI
  115.  
  116.         CMP #$6F, D1
  117.         BEQ BROJI
  118.  
  119.         CMP #$75, D1
  120.         BEQ BROJI
  121.    
  122.         JMP RIJEC
  123.  
  124. BROJI   ADD #1, D5
  125.         JMP RIJEC
  126.  
  127. MANJE   CMP #3, D5
  128.         BLT ISPIS
  129.         MOVE #0, D5
  130.         JMP RIJEC
  131.  
  132. ISPIS   MOVE #0, D5
  133.         MOVE.B (A2)+, D1
  134.         MOVE #6, D0
  135.         TRAP #15
  136.         CMP #$20, D1
  137.         BEQ RIJEC
  138.         CMP #$2E, D1
  139.         BEQ KRAJ
  140.         JMP ISPIS
  141.  
  142. KRAJ    STOP #$2000
  143.  
  144.    
  145.  
  146. pocetak DC.B 'Unesite ime datoteke:', $D, $A, 0
  147. unos    DS.B 80
  148. tekst   DS.B 80
  149. broj    DC.B 'Ukupni broj samoglasnika:', 0
  150. rijeci  DC.B 'Rijeci s manje od tri samoglasnika:'
  151. razmak DC.B $D,$A,0
  152.  
  153.     END START
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top