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 / ENTERPRS / CPM / UTILS / F / QL41.ARK / QL41.AZM < prev    next >
Text File  |  1990-04-13  |  8KB  |  210 lines
  1. ;------------------------------------------------------------------------------
  2. ;
  3. ;................................
  4.                 ;
  5. FALSE    EQU    0        ; False: the negation of truth
  6.                 ;
  7. TRUE    EQU    0FFFFH        ; Truth: ask your local philosopher
  8. ;...............................;
  9.  
  10.  
  11. ;==============================================================================
  12. ;
  13. ;        <Customization starts here>
  14. ;
  15. ; You MUST fill in the next 2 values.  See the DOC file if you need further
  16. ; information on any of these.
  17.  
  18.                 ; - Assember preference equate -
  19.                 ;
  20. M80    EQU    FALSE        ; TRUE if using M80 or SLR assemblers
  21.                 ; FALSE if using "Z1" (supplied)
  22.  
  23.                 ; - CCP equate -
  24.                 ;
  25. ZCPR3    EQU    FALSE        ; If TRUE, produces Z3-compatible version,
  26.                 ; Linkage with VLIB/Z3LIB/SYSLIB required.
  27.                 ; FALSE will produce a regular CP/M version
  28.                 ; With no linking necessary.
  29.  
  30. ;..............................................................................
  31. ;
  32. ;        - Terminal support equates -
  33. ;
  34. ; 1. Minimal Support- While QL will run with no terminal support at all,
  35. ;   it is strongly recommended that you at least fill in the "clearscreen"
  36. ;   (surely your terminal does THAT).
  37. ;
  38. ; 2. ZCPR3- If you answered TRUE to "ZCPR3" above  you may skip this section.
  39. ;    The program will use your TCAP 'stndout' sequence for anything not
  40. ;    defined below.  If you DO define either of the sequences here, however,
  41. ;    it will override any TCAP defined sequence.  Thus, if you define here
  42. ;    only the form of hilighting NOT already defined in your TCAP (or define
  43. ;    both), the program will be able to take advantage of both video modes.
  44. ;
  45. ; 3. The sequences may have any number of bytes, separated by commas.
  46. ;    No terminating zeroes are necessary.  Edit only the lines starting
  47. ;    with "DB", as indicated.  If your terminal does not support a feature,
  48. ;    a single zero following the "DB" will deactivate it.
  49. ;
  50. ;
  51. CLRSCR     MACRO
  52.     DB    0        ; <=== Put your "clear-screen" sequence here
  53.      ENDM
  54.  
  55. DIMON     MACRO
  56.     DB    0        ; <=== Sequence for "dim video"
  57.      ENDM
  58.  
  59. DIMOFF     MACRO
  60.     DB    0        ; <=== Sequence for "normal/bright" video
  61.      ENDM
  62.  
  63. REVON     MACRO
  64.     DB    0        ; <=== Sequence to initiate "reverse" video
  65.      ENDM
  66.  
  67. REVOFF     MACRO
  68.     DB    0        ; <=== Sequence to cancel "reverse" video
  69.      ENDM
  70.  
  71. ;..............................................................................
  72. ;
  73. ;            - RCP/M Equate -
  74. ;
  75. ; SYSOPS: Simply set your wheel byte here (eg. to 003EH) and QL will
  76. ; instantly become a very viable online utility. This gives users a new
  77. ; flexibility to examine HEX files online; to go backwords when one types
  78. ; 'too far', and to save time by using the FIND command to skip right
  79. ; to a section of interest in a textfile, not to mention eliminating
  80. ; annoying typographical errors of filenames.
  81. ;
  82. ; QL will sense the presence of BYE, and not send video specific sequences
  83. ; to remote terminals.    The wheel byte is used to provide security by not
  84. ; allowing hex displays of files with .COM extension or of the system memory.
  85. ; Files with the SYS attribute set are ignored as well. The WHEEL and BYE
  86. ; checks are independent- SYSOPS may remotely examine system memory, etc.
  87. ;
  88. ; If you have NO plans of EVER running QL on an RCP/M, leave this EQUATE set
  89. ; to 0005H, which guarantees full operation on any CP/M system. Else set it
  90. ; to your wheel byte address.
  91. ;
  92. ; ZCPR3 users may ignore this ignore this EQU, it will take care of itself.
  93. ;
  94. ;
  95. WHEEL    EQU    0005H        ; <== SET to your wheel byte address!
  96.  
  97. ;==============================================================================
  98. ;
  99. ; *** Optional configuration. It is not necessary to change anything below,
  100. ;     you may wish to customize QL to your various preferences.
  101.  
  102. ;.....
  103. ;
  104. ; - How control characters are displayed:
  105. ;
  106. CTRLDIMVID EQU    FALSE        ; TRUE    = display with DIM video
  107. CTRLWORDSTAR EQU TRUE        ; TRUE    = display control chars as  ^ <char>
  108. CTRLMARKER EQU    '@'        ; Char to use if both options above are FALSE
  109.                 ; 0 = do not display anything.
  110. ;.....
  111. ;
  112. ; - How "found" strings are marked if REVON / REVOFF was not defined above
  113. ;   (also used during remote operation). May be multiple characters.
  114. ;
  115. MRKCHR     MACRO
  116.     DB    '\',0        ; Marks found strings like \this\
  117.      ENDM            ; MRKCHR
  118.  
  119. ;.....
  120. ;
  121. ; - This value controls amount of time user has to input a number before the
  122. ;   program considers him 'done' (ie no carriage return is required).
  123. ;   QL is 'intelligent' about this and will respond instantly when either
  124. ;   a carriage return is typed, or the program determines enough digits
  125. ;   have already been entered.    Increase this number if you have a fast
  126. ;   computer and/or are a slow typist, and vice-versa.    Alternatively enter
  127. ;   zero and QL will wait forever until you type a CR yourself.
  128. ;
  129. DELAY    EQU    5000        ; Higher number = more time.
  130.  
  131. ;.....
  132. ;
  133. ; - This character will be put in the last column position of your terminal
  134. ;   if the line is longer than your terminal width. Wordstar users may be
  135. ;   feel at home using a "+" character here; some previous QL versions also
  136. ;   used a ">" here. (Note- truncation may be optionally toggled off at run
  137. ;   time, in which case the long lines will be sent thru and probably wrap
  138. ;   on your terminal, though this mode usually messes up proper 'pagination').
  139. ;
  140. ;
  141. TRUNKCHAR EQU    '+'        ; Character to indicate truncation of line
  142.  
  143. ;.....
  144. ;
  145. ; - If you are running CB Falconer's DOS+, you may answer TRUE here to take
  146. ;   advantage of system calls which will reduce program size.
  147. ;
  148. DOSPLUS    EQU    FALSE        ; TRUE if using CB Falconer's excellent DOS+
  149.                 ; FALSE for normal CP/M.
  150. ;.....
  151. ;
  152. ; - QL will normally expand tab characters to the appropriate number of
  153. ;   spaces (columns which are multiples of 8, plus 1). This is the
  154. ;   recommended mode of operation. You may answer FALSE here if you know
  155. ;   your terminal or hardware can do that and are interested in the [nearly
  156. ;   insignificant] time savings, or have some capability/need for non-standard
  157. ;   tab stop positions.
  158. ;
  159. EXPANDTABS EQU    TRUE        ; TRUE to have QL expand tab characters
  160.                 ; FALSE to send them right through
  161.  
  162. REVSPACE EQU    0        ; If reverse video on your terminal uses
  163.                 ; "guard" characters, set this to 1.
  164.  
  165. LINEOVERLAP EQU    1        ; Number of lines to show from preceding page.
  166.                 ; This can help orient you on a new page.
  167.  
  168. FINDFRTOP EQU    FALSE        ; TRUE means finds always start at top of file.
  169.                 ; FALSE means finds start on next page.
  170.  
  171. UCHEX    EQU    TRUE        ; TRUE    for upper case a-f in hex dump.
  172.                 ; FALSE for lower case a-f (if you can't
  173.                 ; - distinguish B from 8).
  174.  
  175. LOWERCASE EQU    FALSE        ; True for lowercase filename display
  176.  
  177. USEBIOSCONOUT EQU TRUE        ; TRUE to use faster BIOS console output rtn.
  178.                 ; FALSE to go thru bdos, which is slower.
  179.  
  180. HEXSIGNAL EQU    '$'        ; Character to signal entry of a hex find $.
  181.  
  182. ALWAYSBOOT EQU    FALSE        ; TRUE if you desire QL to always warm start
  183.                 ; - when finished.  FALSE to return to CCP
  184.                 ; - unless it was overwritten.
  185.  
  186. VER1    EQU    FALSE        ; Support version 1 uncrunching (obsolete)
  187.  
  188. ;  < end of user customization >
  189. ;
  190. ;==============================================================================
  191.  
  192. ; And now for the rest of it....
  193. ;
  194.      IF    M80        ;;; M80-style syntax
  195.     INCLUDE    QL.001        ; Part 1 - file and lbr access routines
  196.     INCLUDE QL.002        ; Part 2 - typer and low-level routines
  197.     INCLUDE    QFC.LIB        ; Choose-by-number interface
  198.     INCLUDE    UNC.LIB        ; Uncrunching module
  199.     INCLUDE    QL.DTA        ; Data segment
  200.  
  201.      ELSE            ;;; Nonstandard Z1 syntax
  202. *INCLUDE    QL.001
  203. *INCLUDE    QL.002
  204. *INCLUDE    QFC.LIB
  205. *INCLUDE    UNC.LIB
  206. *INCLUDE    QL.DTA
  207.      ENDIF
  208.  
  209.     END    QL        ; That's all, folks...
  210.