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 / JSAGE / ZSUS / PROGPACK / ARRAYS10.LBR / ARRAY1.ZZ0 / ARRAY1.Z80
Text File  |  2000-06-30  |  2KB  |  69 lines
  1. ;Library Name: ARRAYLIB
  2. ;Module Name: GETDEF
  3. ;Author: Al Hawley
  4. ;Date: 31 Mar 1987
  5. ;Version number: 1.0c
  6.  
  7. ;Version History:
  8.     
  9. ;Program Function: ARRAYLIB is a collection of subroutines which
  10. ;    implement the management of byte arrays in programs written
  11. ;    for Z80 or HD64180 based computers. This module is one of the
  12. ;    set, and may require the presence of others.
  13.  
  14. ;***************************************************
  15. ;        COPYRIGHT NOTICE
  16. ;ARRAYLIB is copyright by A. E. Hawley on March 4, 1987.
  17. ;It may be freely distributed, but it must not be sold 
  18. ;either separately or as part of a package without the 
  19. ;written consent of the author.  The author may be reached 
  20. ;via electronic mail at the Ladera Z-Node in Los Angeles,
  21. ;213-670-9465, or by Voice Phone at: 213-649-3575
  22. ;
  23. ;***************************************************
  24.  
  25.     MACLIB    ARRHDR
  26.  
  27.     name getdef
  28. ;This module contains the following routines:
  29.     public arretdef
  30.  
  31. arretdef:
  32. ;entry to return pointer to current array configuration data
  33. ;on exit, 
  34. ;    hl    = address of the array data table
  35. ;    flags    = nz, nc
  36. ;if ARRAYDEF has not been called,
  37. ;    flags    = z, c
  38.  
  39.     ld    hl,bitmap
  40.     ld    b,(hl)
  41.     ld    a,(bitmap + 1)
  42.     or    a,b
  43.     ret    nz
  44.     scf        ;return carry set if no address
  45.     ret
  46.  
  47. ;**********************************************
  48.  
  49.     IF    ZAS
  50.     COMMON            ;common block for ZAS
  51.     ELSE
  52.     COMMON    /ADATA/        ;common block for M80, SLR
  53.     ENDIF
  54.  
  55. ;COMMON data area - contains default values for a 64
  56. ;byte array useful for disk/user bitmapping.
  57. bitmap:    ds    2    ;..filled in by ARRAYDEF
  58. hicol:    ds    2    ;default is 4 columns: 0,1,2,3
  59. hirow:    ds    2    ;default is 16 rows (0....15)
  60. dumaplen:
  61.     ds    2    ;default is (3+1)*(15+1)
  62.  
  63. maxdu:    ds    2    ;transient d/u data
  64. curloc:    ds    2    ;NDR entry pointer
  65.  
  66. ;*************************************
  67.  
  68.     end
  69.