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.

lccio.src 1.1KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667
  1. .page 'lcc.i/o'
  2. ;
  3. cntst= *
  4. ;
  5. ;
  6. ;
  7. ; defs for low cost controller
  8. ;
  9. ;
  10. ; written by glenn stark
  11. ; 4/1/80
  12. ;
  13. ;
  14. ; (c) commodore business machines
  15. ;
  16. timer1 =$1805 ; timer 1 counter
  17. ;
  18. ;
  19. ;
  20. ; mos 6522
  21. ; address $1c00
  22. ;
  23. * =$1c00
  24. ;
  25. dskcnt *=*+1 ; port b
  26. ; disk i/o control lines
  27. ; bit 0: step in
  28. ; bit 1: step out
  29. ; bit 2: -motor on
  30. ; bit 3: act led
  31. ; bit 4: write protect sense
  32. ; bit 5: density select 0
  33. ; bit 6: density select 1
  34. ; bit 7: sync detect
  35. ;
  36. ;
  37. data2 *=*+1 ; port a
  38. ; gcr data input and output port
  39. ;
  40. ddrb2 *=*+1 ; data direction control
  41. ddra2 *=*+1 ; data direction control
  42. ;
  43. t1lc2 *=*+1 ; timer 1 low counter
  44. t1hc2 *=*+1 ; timer 1 hi countr
  45. ;
  46. t1ll2 *=*+1 ; timer 1 low latch
  47. t1hl2 *=*+1 ; timer 1 hi latch
  48. ;
  49. t2ll2 *=*+1 ; timer two low latch
  50. t2lh2 *=*+1 ; timer two hi latch
  51. ;
  52. sr2 *=*+1 ; shift register
  53. ;
  54. acr2 *=*+1
  55. ;
  56. pcr2 *=*+1
  57. ;
  58. ifr2 *=*+1
  59. ;
  60. ier2 *=*+1
  61. ;
  62. ;
  63. * =cntst
  64. ;
  65. ;
  66. ;
  67. ;.end