Guest User

Untitled

a guest
Sep 5th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         ORG     $8000
  2.  
  3. MAIN        MOVE.L  #A,A0
  4.         MOVE.L  #B,A1
  5.         CLR     D0
  6.         CLR     D1
  7.  
  8. CONTA       MOVE.B  (A0)+,D0
  9.         BEQ     INVERT
  10.         ADDQ        #1,D1
  11.         BRA     CONTA
  12.  
  13.         ADDA        #-1,A0
  14. INVERT      MOVE.B      -(A0),D0
  15.         MOVE.B      D0,(A1)+
  16.         ADD     #-1,D1
  17.         TST     D1
  18.         BNE     INVERT
  19.         STOP        #$2000
  20.  
  21. *AREA DATI
  22.         ORG     $8200
  23. A       DC.B        'UNO DUE TRE',0
  24. B       DS.B        100
  25.        
  26.         END     MAIN
Add Comment
Please, Sign In to add comment