prgstart.s 385 B

12345678910111213141516171819202122
  1. .xdef PRG_getStart
  2. .text
  3. PRG_getStart:
  4. move.w #0x700,%d0
  5. trap #1
  6. lea.l 0x600017,%a0
  7. move.b -2(%a0),%d1
  8. bset #3,-2(%a0)
  9. .L__PRG_getStart_ne_loop:
  10. tst.b (%a0)
  11. bne.s .L__PRG_getStart_ne_loop
  12. .L__PRG_getStart_eq_loop:
  13. move.b (%a0),%d2
  14. beq.s .L__PRG_getStart_eq_loop
  15. btst #3,%d1
  16. bne.s .L__PRG_getStart_done
  17. bclr #3,-2(%a0)
  18. .L__PRG_getStart_done:
  19. trap #1
  20. move.b %d2,%d0
  21. rts