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.

54 lines
781B

  1. .PAGE'LCC.UTIL'
  2. ;
  3. ;
  4. ; * UTILIY ROUTINES
  5. ;
  6. ;
  7. ERRR LDY JOBN ; RETURN JOB CODE
  8. STA JOBS,Y
  9. ;
  10. LDA GCRFLG ; TEST IF BUFFER LEFT GCR
  11. BEQ ERRR10 ; NO
  12. ;
  13. JSR WTOBIN ; CONVERT BACK TO BINARY
  14. ;
  15. ERRR10
  16. JSR TRNOFF ; START TIMEOUT ON DRIVE
  17. ;
  18. LDX SAVSP
  19. TXS ; RESET STACK POINTER
  20. ;
  21. JMP TOP ; BACK TO THE TOP
  22. ;
  23. ;
  24. ;
  25. TURNON LDA #$A0 ; TURN ON DRIVE
  26. ; DRVST=ACEL AND ON
  27. STA DRVST
  28. ;
  29. ;
  30. LDA DSKCNT ; TURN MOTOR ON AND SELECT DRIVE
  31. ORA #$04 ; TURN MOTOR ON
  32. STA DSKCNT
  33. ;
  34. LDA #60 ; DELAY 1.5 SEC
  35. STA ACLTIM
  36. ;
  37. RTS
  38. ;
  39. ;
  40. ;
  41. TRNOFF LDX CDRIVE ; START TIME OUT OF CURRENT DRIVE
  42. LDA DRVST ;STATUS=TIMEOUT
  43. ORA #$10
  44. STA DRVST
  45. ;
  46. LDA #255 ; 255*.025S TIME OUT
  47. STA ACLTIM
  48. ;
  49. RTS
  50. ;
  51. ;
  52. ;
  53. .END