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.

lccvar.src 2.5KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596
  1. .page 'lcc.var'
  2. ;
  3. drvst *=*+2
  4. drvtrk *=*+2
  5. stab *=*+10
  6. ; variables
  7. ;
  8. ; pointers
  9. savpnt *=*+2
  10. bufpnt *=*+2
  11. hdrpnt *=*+2
  12. ;
  13. ;
  14. gcrpnt *=*+1
  15. gcrerr *=*+1 ; indicates gcr decode error
  16. bytcnt *=*+1
  17. bitcnt *=*+1
  18. bid *=*+1
  19. hbid *=*+1
  20. chksum *=*+1
  21. hinib *=*+1
  22. byte *=*+1
  23. drive *=*+1
  24. cdrive *=*+1
  25. jobn *=*+1
  26. tracc *=*+1
  27. nxtjob *=*+1
  28. nxtrk *=*+1
  29. sectr *=*+1
  30. work *=*+1
  31. job *=*+1
  32. ctrack *=*+1
  33. dbid *=*+1 ; data block id
  34. acltim *=*+1 ; acel time delay
  35. savsp *=*+1 ; save stack pointer
  36. steps *=*+1 ; steps to desired track
  37. tmp *=*+1
  38. csect *=*+1
  39. nexts *=*+1
  40. nxtbf *=*+1 ; pointer at next gcr source buffer
  41. nxtpnt *=*+1 ; and next gcr byte location in buffer
  42. gcrflg *=*+1 ; buffer in gcr image
  43. ftnum *=*+1 ; current format track
  44. btab *=*+4
  45. gtab *=*+8
  46. ;
  47. as *=*+1 ; # of steps to acel
  48. af *=*+1 ; acel. factor
  49. aclstp *=*+1 ; steps to go
  50. rsteps *=*+1 ; # of run steps
  51. nxtst *=*+2
  52. minstp *=*+1 ; min reqired to acel
  53. ;
  54. ;
  55. ;
  56. ; constants
  57. ;
  58. ovrbuf =$0100 ; top of stack
  59. numjob =6 ; number of jobs
  60. jmpc =$50 ; jump command
  61. bumpc =$40 ; bump command
  62. execd =$60 ; execute command
  63. bufs =$0300 ; start of buffers
  64. buff0 =bufs
  65. buff1 =bufs+$100
  66. buff2 =bufs+$200
  67. tolong =$2 ; format errors
  68. tomany =$3
  69. tobig =$4
  70. tosmal =$5
  71. notfnd =$6
  72. skip2 =$2c ; bit abs
  73. toprd =69 ; top of read overflo buffer on a read
  74. topwrt =69 ; top of write overflo buffer on a write
  75. numsyn = 5 ; gcr byte count for size of sync area
  76. gap1 = 11 ; gap after header to clear erase in gcr bytes
  77. ;--------rom05-bc 09/12/84------
  78. ;gap2 = 4 ; /gap after data block min size
  79. gap2 = 2 ; gap after block min size
  80. ;-------------------------------
  81. rdmax = 6 ; sector distance wait
  82. wrtmin = 9
  83. wrtmax = 12
  84. ;############### GCB 11/20/86 interrupt rate fix ##########################
  85. ;--------rom05-bc 09/12/84------
  86. ;tim =58 ;irq rate for 15 ms
  87. ;tim =32 ; /irq rate for 8 ms
  88. ;-------------------------------
  89. tim =58 ;put IRQ rate back to 15 msec. Change of 9/12/84 screwed it up!
  90. ;###########################################################################
  91. ;
  92. ;
  93. ;
  94. ;
  95. ;
  96. ;.end