API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 25th, 2017
178
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Motorola 68000 HiSoft Dev 1.80 KB | None | 0 0
raw download clone embed print report
  1. *-----------------------------------------------------------
  2. * Program Number:   3
  3. * Written by    :   Radosic Robert
  4. * Date Created  :   25.1.2017
  5. * Description   :
  6. *
  7. *-----------------------------------------------------------
  8. START   ORG $1000
  9.    
  10.     MOVE    #14,D0
  11.     LEA autor,A1
  12.     TRAP    #15
  13.  
  14.     MOVE    #14,D0
  15.     LEA     tekst1,A1
  16.     TRAP    #15
  17.    
  18.     MOVE    #11,D0
  19.     MOVE.W  #$1001,D1
  20.     TRAP    #15
  21.  
  22.     MOVE    #2,D0
  23.     LEA     unos1,A1
  24.     TRAP    #15
  25.  
  26.     MOVE    #51,D0
  27.     TRAP    #15
  28.  
  29.     MOVE    #53,D0
  30.     MOVE.L  #80,D2
  31.     LEA     unos2,A1
  32.     TRAP    #15
  33.  
  34.     MOVE    #11,D0
  35.     MOVE.W  #$0002,D1
  36.     TRAP    #15
  37.  
  38.     MOVE    #14,D0
  39.     LEA tekst2,A1
  40.     TRAP    #15
  41.  
  42.     MOVE    #11,D0
  43.     MOVE.W  #$0B02,D1
  44.     TRAP    #15
  45.  
  46.     MOVE    #14,D0
  47.     LEA     unos2,A1
  48.     TRAP    #15
  49.    
  50.     CLR.L   D3
  51.    
  52.     MOVE    #11,D0
  53.     MOVE.W  #$0003,D1
  54.     TRAP    #15
  55.     MOVE    #14,D0
  56.     LEA     tekst3,A1
  57.     TRAP    #15
  58.    
  59.     MOVE.W #$20,D6
  60.     LEA unos2,A3
  61.     SUB #1,A3
  62.     MOVE.B  #$20,(A3)
  63.     LEA unos2,A4
  64.     LEA unos2,A5
  65.     LEA unos2,A6
  66.     LEA unos2,A7
  67.     SUB.W   #2,A5
  68.     SUB.W   #3,A6
  69.     SUB.W   #4,A7
  70.    
  71. ST: *ADD.W  #1,A3
  72.     MOVE.B  (A3),D7
  73.     MOVE.W  #$2E,D5
  74.     CMP.W   D5,D7
  75.     BEQ.S   MUL
  76.     CLR.L   D5
  77.  
  78. CNT:    ADD #1,D3
  79.     ADD #1,A3
  80.     JMP CHK
  81. CHK:    MOVE.B  (A3),D7
  82.     CMP.W   D6,D7
  83.     BEQ.S   MUL
  84.     ADD #1,D5
  85.     CMP.W   #1,D5
  86.     BEQ.S   STO
  87.     CMP.W   #2,D5
  88.     BEQ.S   DES
  89.     CMP.W   #3,D5
  90.     BEQ.S   JED
  91. STO:    MOVE.B  (A3),(A7)
  92.     JMP     CNT
  93. DES:    MOVE.B  (A3),(A6)
  94.     JMP CNT
  95. JED:    MOVE.B  (A3),(A5)
  96.     JMP     CNT
  97.        
  98.  
  99. MUL:    CLR.L   D2
  100.     MOVE.B  (A7),D4
  101.     SUB.W   #$30,D4
  102.     MULU    #100,D4
  103.     ADD D4,D2
  104.     CLR.L   D4
  105.  
  106.     MOVE.B  (A6),D4
  107.     SUB.W   #$30,D4
  108.     MULU    #10,D4
  109.     ADD D4,D2
  110.     CLR.L   D4
  111.  
  112.     MOVE.B  (A5),D4
  113.     SUB.W   #$30,D4
  114.     MULU    #1,D4
  115.     ADD D4,D2
  116.     CLR.L   D4
  117.  
  118.     MOVE.B  #9,D0
  119.     TRAP    #15     Halt Simulator
  120.  
  121.     STOP #$2000
  122. autor   DC.B 'Autor: Robert Radosic 43299/14-R',$D,$A,0
  123. tekst1 DC.B 'Naziv datoteke: ',$D,0
  124. tekst2  DC.B 'Tekst: ',$D,0
  125. tekst3 DC.B 'Rjesenje: ',$D,0
  126. unos1   DS.B 80
  127. unos2   DS.B 80
  128.  
  129.     END START
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!