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.

equate.sf 1.7KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  1. .PAGE 'EQUATE.SF'
  2. ;******************************
  3. ;* EQUATES
  4. ;******************************
  5. ;
  6. ZP2 =* ;SAVE ZERO PAGE FOR DOS
  7. ROM =$C000 ;FIRST ROM ADDRESS
  8. ;
  9. LRF =$80 ;LAST RECORD FLAG
  10. DYFILE =$40 ;DIRTY FLAG FOR RR FILE
  11. OVRFLO =$20 ;RR PRINT OVERFLOW
  12. NSSL =6 ;# OF SIDE-SECTOR LINKS
  13. SSIOFF =4+NSSL+NSSL ;OFFSET INTO SS FOR DATA BLOCK PTRS
  14. NSSP =120 ;# OF PTRS IN SS
  15. MXCHNS =6 ;MAX # CHANNELS IN SYSTEM
  16. MAXSA =18 ;MAX SA # +1
  17. VERERR =7 ;CONTROLLER VERIFY ERROR
  18. CR =$0D ; CARRIAGE RETURN
  19. BFCNT =5 ;AVAILABLE BUFFER COUNT
  20. CBPTR =BFCNT+BFCNT ;COMMAND BUFFER PTR
  21. ERRCHN =MXCHNS-1 ;ERROR CHANNEL #
  22. ERRSA =16 ;ERROR CHANNEL SA #
  23. CMDCHN =MXCHNS-2 ;COMMAND CHANNEL #
  24. LXINT =%00001111 ;POWER UP LINUSE (LOGICAL INDEX USAGE
  25. BLINDX =6 ;BAM LINDX FOR FLOATING BAMS
  26. CMDSA =15 ;COMMAND CHANNEL SA #
  27. APMODE =2 ;OPEN APPEND MODE
  28. MDMODE =3 ;OPEN MODIFY MODE
  29. RDMODE =0 ;OPEN READ MODE
  30. WTMODE =1 ;OPEN WRITE MODE
  31. RELTYP =4 ;OPEN RELATIVE TYPE
  32. DIRTYP =7 ;OPEN DIRECT TYPE
  33. SEQTYP =1 ;OPEN SEQUENTIAL TYPE
  34. PRGTYP =2 ;OPEN PROGRAM TYPE
  35. USRTYP =3 ;OPEN USER TYPE
  36. TYPMSK =7 ;MASK FOR TYPE BITS
  37. IRSA =17 ;INTERNAL READ SA #
  38. IWSA =18 ;INTERNAL WRITE SA #
  39. DOSVER =2 ;DOS VERSION
  40. FM2030 =$42 ;2030 FORMAT VERSION
  41. FM4040 =$41 ;4040 FORMAT VERSION
  42. .SKIP
  43. ;CONTROLLER JOB TYPES
  44. READ =$80
  45. WRITE =$90
  46. WVERFY =$A0
  47. SEEK =$B0
  48. SECSEK =SEEK+8
  49. BUMP =$C0
  50. JUMPC =$D0
  51. EXEC =$E0
  52. .SKIP
  53. MXFILS =5 ; MAX # FILENAMES IN STRING
  54. DIRLEN =24 ;DIRECTORY LENGTH USED
  55. NBSIZ =27 ;NAMBUF TEXT SIZE
  56. CMDLEN =41 ;LENGTH OF COMMAND BUFFER
  57. .SKIP