home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / reset_rout.s < prev    next >
Text File  |  1995-03-17  |  451b  |  37 lines
  1. run:
  2. allocmem=-198
  3. require=1
  4. coldcapture=42
  5.  
  6. move.l $4,a6
  7. move.l #end-start,d0
  8. move.l #require,d1
  9. jsr allocmem(a6)
  10. tst.l d0
  11. beq fejl
  12. move.l d0,a1
  13. move.l a1,coldcapture(a6)
  14. move.w #end-start,d0
  15. lea.l start,a0
  16. l1:
  17. move.b (a0)+,(a1)+
  18. dbf d0,l1
  19. clr.l d1
  20. lea.l 34(a6),a0
  21. move.w #$16,d0
  22. l2:
  23. add.w (a0)+,d1
  24. dbf d0,l2
  25. not.w d1
  26. move.w d1,82(a6)
  27. fejl: 
  28. rts
  29. ; reset_jmp start
  30. start:
  31. lea.l start(pc),a0
  32. move.l $4,a6
  33. move.l a0,coldcapture(a6)
  34. l3:
  35. jmp l3(pc)
  36. end:
  37.