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.

lcc.var 1.8KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788
  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. GAP2 = 4 ; GAP AFTER DATA BLOCK MIN SIZE
  78. RDMAX = 6 ; SECTOR DISTANCE WAIT
  79. WRTMIN = 9
  80. WRTMAX = 12
  81. TIM =58 ;IRQ RATE FOR 15MS
  82. ;
  83. ;
  84. ;
  85. ;
  86. ;
  87. ;
  88. .END