You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

55 lines
537B

  1. .PAGE 'LEDS'
  2. ;
  3. ;TURN ON ACTIVITY LED SPECIFIED
  4. ; BY DRVNUM
  5. ;
  6. SETLDS SEI
  7. LDA #$FF-LED1-LED0
  8. AND LEDPRT
  9. PHA
  10. .SKIP
  11. LDA DRVNUM
  12. BEQ LEDS0
  13. PLA
  14. ORA #LED1
  15. BNE LEDS1
  16. LEDS0
  17. PLA
  18. ORA #LED0
  19. LEDS1
  20. STA LEDPRT
  21. CLI
  22. RTS
  23. ;
  24. LEDSON SEI
  25. LDA #LED1+LED0
  26. ORA LEDPRT
  27. STA LEDPRT
  28. CLI
  29. RTS
  30. ;
  31. ERROFF
  32. LDA #0
  33. STA ERWORD
  34. STA ERLED
  35. RTS
  36. ;
  37. ERRON SEI
  38. TXA
  39. PHA ;SAVE .X
  40. LDA #80
  41. STA ERWORD
  42. LDX #0
  43. ;LDA DRVNUM ;FOR 2 DRIVES
  44. ;AND #1
  45. ;TAX
  46. LDA LEDMSK,X
  47. STA ERLED
  48. ORA LEDPRT ;SET LED ON
  49. STA LEDPRT
  50. PLA
  51. TAX ;RESTORE .X
  52. CLI
  53. RTS
  54. .END