home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / z3util / array10b.lbr / ARRAY1.ZZ0 / ARRAY1.Z80
Encoding:
Text File  |  1993-06-07  |  2.0 KB  |  72 lines
  1. ;Library Name: ARRAYLIB
  2. ;Module Name: GETDEF
  3. ;Author: Al Hawley
  4. ;Date: 06 Mar 1987
  5. ;Version number: 1.0a
  6. ;Previous version: 1.0 dated 4 March 1987
  7.  
  8. ;Version History:
  9.     
  10. ;Program Function: ARRAYLIB is a collection of subroutines which
  11. ;    implement the management of byte arrays in programs written
  12. ;    for Z80 or HD64180 based computers. This module is one of the
  13. ;    set, and may require the presence of others.
  14.  
  15. ;***************************************************
  16. ;        COPYRIGHT NOTICE
  17. ;ARRAYLIB is copyright by A. E. Hawley on March 4, 1987.
  18. ;It may be freely distributed, but it must not be sold 
  19. ;either separately or as part of a package without the 
  20. ;written consent of the author.  The author may be reached 
  21. ;via electronic mail at the Ladera Z-Node in Los Angeles,
  22. ;213-670-9465, or by U.S. Mail at:
  23. ;
  24. ;    6032 Chariton Ave.
  25. ;    Los Angeles, CA. 90056
  26. ;    Voice Phone: 213-649-3575
  27. ;
  28. ;        RELEASE NOTICE
  29. ;ARRAYLIB is released for beta test through the Z-system 
  30. ;users group Z-SIG.  It may be reached through the 
  31. ;Lillipute Z-Node in Chicago, 312-649-1730.
  32.  
  33. ;***************************************************
  34.  
  35.     name getdef
  36. ;This module contains the following routines:
  37.     public arretdef
  38.  
  39. arretdef:
  40. ;entry to return pointer to current array configuration data
  41. ;on exit, 
  42. ;    hl    = address of the array data table
  43. ;    flags    = nz, nc
  44. ;if ARRAYDEF has not been called,
  45. ;    flags    = z, c
  46.  
  47.     ld    hl,bitmap
  48.     ld    b,(hl)
  49.     ld    a,(bitmap + 1)
  50.     or    a,b
  51.     ret    nz
  52.     scf        ;return carry set if no address
  53.     ret
  54.  
  55. ;**********************************************
  56.     COMMON /ARDAT/
  57.  
  58. ;COMMON data area - contains default values for a 64
  59. ;byte array useful for disk/user bitmapping.
  60. bitmap:    dw    0    ;..filled in by ARRAYDEF
  61. hicol:    dw    3    ;4 columns: 0,1,2,3
  62. hirow:    dw    15    ;16 rows (0....15)
  63. dumaplen:
  64.     dw    64    ;(3+1)*(15+1)
  65.  
  66. maxdu:    dw    0    ;transient d/u data
  67. curloc:    dw    0    ;NDR entry pointer
  68.  
  69. ;*************************************
  70.  
  71.     end
  72.