home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / isan-1.2.lha / ISAN-1.2 / test.s < prev   
Encoding:
Text File  |  1994-01-23  |  714 b   |  45 lines
  1. *************
  2. ************* This is a test program to create a Task with an easily recogizable
  3. ************* saved context.
  4. *************
  5.  
  6.     move.l    #$0,d0
  7.     move.l    #$11111111,d1
  8.     move.l    #$22222222,d2
  9.     move.l    #$33333333,d3
  10.     move.l    #$44444444,d4
  11.     move.l    #$55555555,d5
  12.     move.l    #$66666666,d6
  13.     move.l    #$77777777,d7
  14.  
  15.     move.l    #$88888888,a0
  16.     move.l    #$99999999,a1
  17.     move.l    #$AAAAAAAA,a2
  18.     move.l    #$BBBBBBBB,a3
  19.     move.l    #$CCCCCCCC,a4
  20.     move.l    #$DDDDDDDD,a5
  21.     move.l    #$EEEEEEEE,a6
  22.  
  23.     moveq    #-1,d0
  24.     add.l    d0,d0            ;set X,N,C (or CCR = $19
  25.  
  26. endl    or.b    #$0,d0
  27.  
  28.     or.b    #$0,d1
  29.     or.b    #$0,d1
  30.  
  31.     trapv
  32.  
  33.     sub.l    a0,a0
  34.     sub.l    a1,a1
  35.     sub.l    a5,a5
  36.     bra.w    over
  37.     nop
  38.  
  39. over    move.b    (a0)+,d0
  40.     move.b    (a1)+,d1
  41.     move.b    (a5)+,d6
  42.     move.b    (a5)+,d7
  43.  
  44.     bra.w    endl
  45.