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 / QL.DTA < prev    next >
Text File  |  1990-04-13  |  6KB  |  143 lines
  1.  
  2. ;=====================================================================
  3. ;            QL Data Area
  4. ;=====================================================================
  5. ;
  6. ; These flags are actually part of the loaded COM file.
  7. ; Re-running QL with a GO command will thus not reset these toggle flags.
  8. ;
  9. AFLAG:    DB    0        ; "A" cmnd toggle flag [ascii <==> hex]
  10. CFLAG:    DB    0        ; "C" cmnd toggle flag [case sens./non]
  11. TFLAG:    DB    0FFH        ; "T" cmnd toggle flag [trunc. on/off]
  12. ;
  13. ; (COM file may end here)
  14. ;..............................................................................
  15.  
  16. ;.....
  17. ;
  18. ;
  19.      IF    ZCPR3
  20.     DSEG
  21.      ENDIF
  22. ;..............................................................................
  23. ;
  24. ; Effective DSEG starts here. Data below is NOT initialized (ie mass
  25. ; auto-zeroed); individual instructions may initialize individual variables.
  26. ;
  27. ; Variables from "init1" thru "end1init" are initialized once / run.
  28. ; Variables from "init2" thru "end2init" are initialized each "sweep".
  29. ; Variables below that are not initialized. The final group includes any data
  30. ; used by the external subroutines in the ZCPR version.
  31. ;
  32. FULFLG:    DEFS    1        ; "ff" when table is full
  33. LASTPR:    DEFS    2        ; Last pred
  34. ENTFLG:    DEFS    1        ; "already entered in table" flag
  35. CODES:    DEFS    2        ; Current code?
  36. LFTOVR:    DEFS    1        ; Previous input bits still unused
  37. WIDTH:    DEFS    1        ; Current encoded cell width
  38. TRGMSK:    DEFS    1
  39. OUTFLG:    DEFS    2        ; Repeat flag for output (at outflg+1). 0 or 1
  40. SPSAVE:    DEFS    2
  41. KIND:    DEFS    1        ; Version to be decoded. 0..1 for 10/20 resp.
  42. CHAR:    DEFS    1        ; Last char of the previously decoded string
  43. AVAIL:    DEFS    2        ; Hi byte is reassigning code flag when 0ffh
  44. FFFLAG:    DEFS    1        ; Force entries to be marked referenced
  45. NEXTX:    DEFS    2        ; Next hashed index ??
  46. @TABLE:    DEFS    2        ; Base of decoding table
  47. XLATBL:    DEFS    2        ; Translation table, hash to entry
  48. TBLTOP:    DEFS    2        ; Negated address
  49. TROOM:    DEFS    2        ; Space left in table
  50. STKLIM:    DEFS    2        ; Stack Not usage limit
  51.  
  52. @PTRTBL:    DS    2        ; Points to "ptrtbl"
  53. @BUFFER:    DS    2        ; Points to bot of working buffer area
  54. DEFDU:        DS    2        ; Orig DU, +0 = drive (0 = "A"), +1 = U
  55. LBRDU:        DS    2        ; Spec'd file's DU (U same if non-zcpr)
  56. DISPLAY:    DS    1        ; (lines per screenful)-1
  57. nlines:        ds    1        ; Number of lines on CRT
  58. DESAVE:        DS    2        ; Temp loc
  59. FRSTFL:        DS    1        ; Zero before initial file selection
  60. BIOSCONOUT:     DS    2        ; Adr of jp to BIOS console out rtn
  61. OLDSP:        DS    2        ; Calling program sp
  62. $MEMRY:        DS    2        ; (only used in zcpr3 version)
  63.  
  64. ;..............................................................................
  65. ;
  66. ; Data from here to 'end1init' is initialized (mass-zeroed) once per run.
  67. ;
  68. INIT1        EQU    $
  69. ;
  70. ; These three must stay in this order
  71. STRMAX:        DS    1        ; Init to "40" at star
  72. STRLEN:        DS    1        ; # chars typed by user.
  73. STRING:        DS    40        ; Find string.
  74.  
  75. BDOSBASE:     DS    2        ;
  76. BUFPTR:        DS    2        ; Addr of file buffer
  77. BYE5FLAG:     DS    2        ; -0800h if bye5 is resident, else 0000
  78. CCPCHKSUM:     DS    1        ; Chksum of entire CCP
  79. CORE:        DS    1        ; Flag for hex dumping memory
  80. DELAYN:        DS    1        ; Delay before screen clear
  81. FILCNT:        DS    1        ; Count of swept files
  82. FILPTR:        DS    2        ; Pointer to filename table
  83. SCRNUM:        DS    1        ; Used to display more than 72 files
  84. PUTCABRT:     DS    1        ; Flag 0FFH only if aborting from PUTC
  85. SWEEPING:     DS    1        ; Flag 0FFH if ambig file was specified
  86.  
  87. ; QFC parm blocks
  88. FILPARM:    DS    26        ; for file sweeping
  89. LIBPARM:    DS    26        ; for member processing
  90.  
  91. END1INIT     EQU    $        ; End of first initialization group
  92.  
  93. ;.............................................................................
  94. ;
  95. ; Data from here thru 'end2init' is re-initialized on every sweep, if sweeping
  96. ;
  97. INIT2        EQU    $
  98.  
  99. EXTRACTING:     DS    1        ; Nonzero if extract from LBR to disk
  100. FCB3:        DS    33        ; Fcb for extracting to disk
  101. FLSECTS:    DS    2        ; # of sectors written to disk
  102. COL:        DS    1        ; Current display column
  103. CURRLINE:     DS    2        ; *lf of curr line
  104. EOFADR:        DS    2        ; Highest adr used
  105. FILELEN:    DS    2        ; File length in bytes
  106. FOUND:        DS    1        ; Flag for marking found string
  107. FRCMDMODE:     DS    1        ; Flag for find or repeat cmd
  108. FROMQLMSG:     DS    1        ; Flag for curr ch from a ql msg:
  109. HEXSRCH:    DS    1        ; Flag for hex byte srching
  110. HEXSTRING:     DS    20        ; Temp storage for hex byte find $
  111. HIPG:        DS    1        ; Highest pg number
  112. INCOMPLETE:     DS    1        ; Incomplete read flag
  113. MTFLAG:        DS    1        ; Zero if nothing read by "readfile"
  114. JUMPTO:        DS    1        ; Pg # to jumpto
  115. LASTUNSQCH:     DS    1        ; Saved for repeat count
  116. LASTPGLINES:     DS    1        ; # of lines on last pg for summary
  117. LIBRARY:    DS    1        ; Flag for working with library
  118. LINEBYLINE:     DS    1        ; Flag for 1 line forward display
  119. MATCHADR:     DS    2        ; Adr of 1st char find $ match
  120. MATCHES:    DS    1        ; Chars matched so far in find
  121. MEMBER:        DS    11        ; Member name as fn    ext
  122. NSECTS:        DS    2        ; # of member sects to read from lbr
  123. NMEMBERS:     DS    1        ; # of active members in lbr
  124. PAGE:        DS    1        ; Current page #
  125. RESUMESRCH:     DS    2        ; Repeat find start adr
  126. TIMER:        DS    2        ; Key delay timer for jumpto page
  127. UNCRSRC:    DS    2        ; Memory based ptrs for uncruncher
  128. UNCRDST:    DS    2        ; And unsqueezer
  129. WORKAREA:     DS    2        ; Debug ptr to 24k uncruncher work area
  130. WSDOC:        DS    1        ; Flag for wordstar doc file
  131.  
  132. END2INIT     EQU    $            ; End of initialized data
  133. ;.............................................................................
  134. ;
  135. ; Memory below this is not initialized at all. The DSEG's of the external
  136. ; subroutines follow this in the ZCPR version.
  137. ;
  138. STKAREA:    DS    64        ; 64 byte local stack
  139. STACK        EQU    $        ; Top of stack
  140.  
  141. ENDPROG        EQU    $        ; End of Non-ZCPR3 data area.
  142. ;..............................................................................
  143.