home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / compress / ql40.arc / QL.DTA < prev    next >
Text File  |  1991-08-11  |  6KB  |  141 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. ; find string buffer for BDOS 10 calls
  65.  
  66. STRMAX:        DS    1        ; Init to "40" at star
  67. ;..............................................................................
  68. ;
  69. ; Data from here to 'end1init' is initialized (mass-zeroed) once per run.
  70. ;
  71. INIT1        EQU    $
  72. ;
  73. ; next 2 storage alloc must follow strmax for BDOS 10 to work ??
  74. ;
  75. STRLEN:        DS    1        ; # chars typed by user. } Must follow
  76. STRING:        DS    40        ; Find string.         } STRMAX abv!
  77. BDOSBASE:     DS    2        ;
  78. BUFPTR:        DS    2        ; Addr of file buffer
  79. BYE5FLAG:     DS    2        ; -0800h if bye5 is resident, else 0000
  80. CCPCHKSUM:     DS    1        ; Chksum of entire CCP
  81. CORE:        DS    1        ; Flag for hex dumping memory
  82. FILCNT:        DS    1        ; Count of swept files
  83. FILPTR:        DS    2        ; Pointer to filename table
  84. SCRNUM:        DS    1        ; Used to display more than 72 files
  85. PUTCABRT:     DS    1        ; Flag 0FFH only if aborting from PUTC
  86.  
  87. END1INIT     EQU    $        ; End of first initialization group
  88.  
  89. ;.............................................................................
  90. ;
  91. ; Data from here thru 'end2init' is re-initialized on every sweep, if sweeping
  92. ;
  93. INIT2        EQU    $
  94.  
  95. EXTRACTING:     DS    1        ; Nonzero if extract from LBR to disk
  96. FCB3:        DS    33        ; Fcb for extracting to disk
  97. FLSECTS:    DS    2        ; # of sectors written to disk
  98. COL:        DS    1        ; Current display column
  99. CURRLINE:     DS    2        ; *lf of curr line
  100. EOFADR:        DS    2        ; Highest adr used
  101. FILELEN:    DS    2        ; File length in bytes
  102. FNEXT:        DS    11        ; Moved to initialized data area
  103. FOUND:        DS    1        ; Flag for marking found string
  104. FRCMDMODE:     DS    1        ; Flag for find or repeat cmd
  105. FROMQLMSG:     DS    1        ; Flag for curr ch from a ql msg:
  106. HEXSRCH:    DS    1        ; Flag for hex byte srching
  107. HEXSTRING:     DS    20        ; Temp storage for hex byte find $
  108. HIPG:        DS    1        ; Highest pg number
  109. INCOMPLETE:     DS    1        ; Incomplete read flag
  110. MTFLAG:        DS    1        ; Zero if nothing read by "readfile"
  111. JUMPTO:        DS    1        ; Pg # to jumpto
  112. LASTUNSQCH:     DS    1        ; Saved for repeat count
  113. LASTPGLINES:     DS    1        ; # of lines on last pg for summary
  114. LIBRARY:    DS    1        ; Flag for working with library
  115. LINEBYLINE:     DS    1        ; Flag for 1 line forward display
  116. MATCHADR:     DS    2        ; Adr of 1st char find $ match
  117. MATCHES:    DS    1        ; Chars matched so far in find
  118. MEMBER:        DS    11        ; Member name as fn    ext
  119. NSECTS:        DS    2        ; # of member sects to read from lbr
  120. NMEMBERS:     DS    1        ; # of active members in lbr
  121. PAGE:        DS    1        ; Current page #
  122. RESUMESRCH:     DS    2        ; Repeat find start adr
  123. SWEEPING:     DS    1        ; Flag 0FFH if ambig file was specified
  124. TIMER:        DS    2        ; Key delay timer for jumpto page
  125. UNCRSRC:    DS    2        ; Memory based ptrs for uncruncher
  126. UNCRDST:    DS    2        ; And unsqueezer
  127. WORKAREA:     DS    2        ; Debug ptr to 24k uncruncher work area
  128. WSDOC:        DS    1        ; Flag for wordstar doc file
  129.  
  130. END2INIT     EQU    $            ; End of initialized data
  131. ;.............................................................................
  132. ;
  133. ; Memory below this is not initialized at all. The DSEG's of the external
  134. ; subroutines follow this in the ZCPR version.
  135. ;
  136. STKAREA:    DS    64        ; 64 byte local stack
  137. STACK        EQU    $        ; Top of stack
  138.  
  139. ENDPROG        EQU    $        ; End of Non-ZCPR3 data area.
  140. ;..............................................................................
  141.