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.

lccutil.src 1021B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. .page 'lcc.util'
  2. ;
  3. ;
  4. ; * utility 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