Guest User

Untitled

a guest
Sep 4th, 2018
180
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.         ORG     $8000
  3.  
  4. MAIN        MOVEA.L         #A,A0
  5.         MOVEA.L #B,A1
  6.         CLR     D0
  7.         CLR     D1
  8.        
  9.        
  10.  
  11.  
  12. LOOP        MOVE.B  (A0)+,D0
  13.         BEQ     FINE
  14.         CMP     #32,D0
  15.         BEQ     LOOP
  16.  
  17.  
  18. SPOSTA  MOVE.B  D0,(A1)+
  19.         BRA     LOOP
  20.  
  21. FINE        MOVE        #A1,B
  22.         JMP     SYSA
  23.        
  24. *AREA DATI
  25. A       DC.B        'uno due tre',0
  26. B       DS.B        100
  27. SYSA        EQU     $2000
  28.        
  29.         END         MAIN
Add Comment
Please, Sign In to add comment