KeyBoard_Functions.s 493 B

12345678910111213141516171819202122232425262728293031323334
  1. KeyBoard_Functions
  2. move.b $bfec01,d0
  3. ror.b #1,d0
  4. btst #7,d0
  5. beq.s End_Keys
  6. andi.b #$7f,d0
  7. cmp.b #102,d0 ; P Pressed
  8. bne.s End_Keys
  9. pause_game_loop
  10. move.b $bfec01,d0
  11. ror.b #1,d0
  12. btst #7,d0
  13. bne.s pause_game_loop
  14. wait_for_restart_key
  15. move.b $bfec01,d0
  16. ror.b #1,d0
  17. btst #7,d0
  18. beq.s wait_for_restart_key
  19. andi.b #$7f,d0
  20. cmp.b #47,d0 ; F1 Pressed
  21. bne.s notkey0
  22. btst #7,$bfe001
  23. bne.s notkey0
  24. bset #WAVE_COMPLETED,Status_Flags
  25. notkey0
  26. End_Keys
  27. *move.b #0,$bfec01
  28. rts