home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PROGRAMS / BKGRONDR / OCP145C.LBR / SYSDEF.LZB / SYSDEF.LIÂ
Text File  |  2000-06-30  |  3KB  |  116 lines
  1. ;LIBRARY OF COMMONLY USED DEFINITIONS
  2. ;Use of this library will make assembly language
  3. ;programs easier to read and maintain.
  4. ;
  5. ;The following definitions were collected by
  6. ;simply extracting them from ZCPR3 utilities.
  7. ;Please feel free to add to this list and to
  8. ;comment on the preferred definition where
  9. ;there are several equivalent ones. Bump the
  10. ;revision # and send it back for coordination.
  11. ;
  12. ;Version 1.0 - 31 Jan 1986
  13. ;Al Hawley, Z-Node #2, (213) 670-9465
  14.  
  15. ;----------------------------------------------
  16. ;Logic Definitions
  17.  
  18. FALSE    EQU    0        ;these all seem to be
  19. TRUE    EQU    NOT FALSE    ;..appropriate in
  20. YES    EQU    TRUE        ;..different contexts.
  21. NO    EQU    FALSE
  22.  
  23. ;----------------------------------------------
  24. ; System Functions
  25. ;
  26. RDCONF        EQU    1
  27. WRCONF        EQU    2
  28. RDRF        EQU    3
  29. PUNCHF        EQU    4
  30. LISTF        EQU    5
  31. DIRCONF        EQU    6
  32. PRBUFF        EQU    9
  33. RDBUFF        EQU    10
  34. CONSTF        EQU    11
  35. VERNOF        EQU    12
  36. RESETDKF    EQU    13
  37. LOGINF        EQU    14
  38. OPENF        EQU    15
  39. CLOSEF        EQU    16
  40. SRCHFF        EQU    17
  41. SRCHNF        EQU    18
  42. ERASEF        EQU    19
  43. READF        EQU    20
  44. WRITEF        EQU    21
  45. MAKEF        EQU    22
  46. RENF        EQU    23
  47. INQDISKF    EQU    25
  48. SETDMAF        EQU    26
  49. INQALCF        EQU    27
  50. ATTRF        EQU    30
  51. GETPARMF    EQU    31
  52. SGUSERF        EQU    32
  53. GETF        EQU    0FFH        ;get user area e-reg value
  54. COMPSZF        EQU    35
  55. SETRRF        EQU    36
  56.  
  57.  
  58. ;----------------------------------------------
  59. ; System Addresses
  60. ;
  61. OS$BASE    EQU    000H        ;system base..
  62. CCPLEN    EQU    800H        ;..and 'CCP' length in bytes.
  63. WBOOT    EQU    OS$BASE+0
  64. IOBYTE    EQU    OS$BASE+03H
  65. UDFLAG    EQU    OS$BASE+04H
  66. BDOS    EQU    OS$BASE+05H
  67.  
  68. FCB    EQU    OS$BASE+5CH
  69. TFCB    EQU    OS$BASE+5CH
  70. FCB1    EQU    OS$BASE+5CH    ;preferred (AEH)
  71.  
  72. FCB2    EQU    OS$BASE+6CH
  73.  
  74. FCBEXT    EQU    FCB+12
  75. FCBRNO    EQU    FCB+32
  76.  
  77. TBUF    EQU    OS$BASE+80H
  78. TBUFF    EQU    OS$BASE+80H
  79.  
  80. TPA    EQU    OS$BASE+100H
  81.  
  82. ;----------------------------------------------
  83. ; ASCII Definitions
  84. ;
  85. CTRLA    EQU    'A'-'@'
  86. CTRLC    EQU    'C'-'@'        ;..control-C..
  87. CTRLD    EQU    'D'-'@'
  88. CTRLE    EQU    'E'-'@'
  89. CTRLF    EQU    'F'-'@'
  90. CTRLK    EQU    'K'-'@'
  91. CTRLR    EQU    'R'-'@'
  92. CTRLS    EQU    'S'-'@'        ;..XOFF..
  93. CTRLX    EQU    'X'-'@'
  94. CTRLZ    EQU    'Z'-'@'
  95. BS    EQU    08H        ;..backspace..
  96. TAB    EQU    09H        ;..tab..
  97. LF    EQU    0AH        ;..linefeed..
  98. FF    EQU    0CH        ;..formfeed..
  99. CR    EQU    0DH        ;..carriage return..
  100. CAN    EQU    18H        ;..cancel..
  101. EOF    EQU    1Ah        ;..End-of-file
  102. EOFCHAR    EQU    1AH        ;..end-of-file..
  103. ESC    EQU    1BH        ;..escape character.
  104. SPC    EQU    20H        ;..space
  105.  
  106. ;----------------------------------------------
  107. ;for TCAP screen functions
  108. ;
  109. DIM    EQU    1        ;for highlighting use
  110. BRIGHT    EQU    2        ;opposite of dim
  111. CL    EQU    CTRLZ        ;clear screen, home cursor
  112. CRUP    EQU    CTRLE        ;cursor up
  113. CRDN    EQU    CTRLX        ;cursor down
  114. CURSL    EQU    CTRLS        ;cursor left
  115. CURSR    EQU    CTRLD        ;cursor right
  116.