home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol020 / bmgen.z80 < prev    next >
Text File  |  1984-04-29  |  603b  |  52 lines
  1. ;
  2. ;
  3. ;    BIT MAP GENERATOR
  4. ;
  5. ;  ****Donated to the Pascal/Z Users Group,July 1980******
  6. ;  part of the Monitor System by PCE
  7. ;
  8. ZERO    EQU    2000H
  9. ONE    EQU    4000H
  10. SIZE    EQU    3F00H
  11. MAP    EQU    1000H
  12. FINIS    EQU    0
  13. ;
  14. ;    START
  15. ;
  16. START    LD    HL,MAP
  17.     LD    SP,HL
  18.     LD    DE,MAP+1
  19.     LD    BC,0FFFH
  20.     XOR    A
  21.     LD    (HL),A
  22.     LDIR
  23. ;
  24.     LD    HL,MAP
  25.     LD    IX,ZERO
  26.     LD    IY,ONE
  27.     LD    BC,(SIZE)
  28. LOOP1    LD    DE,0800H
  29. LOOP2    DEC    BC
  30.     LD    A,B
  31.     OR    C
  32.     JP    Z,FINIS
  33.     LD    A,(IY)
  34.     CP    (IX)
  35.     JR    Z,LOW
  36. HIGH    SCF
  37.     JR    NEXT
  38. LOW    XOR    A
  39. NEXT    LD    A,E
  40.     RRA
  41.     LD    E,A
  42.     INC    IX
  43.     INC    IY
  44.     DEC    D
  45.     JR    NZ,LOOP2
  46.     LD    (HL),E
  47.     INC    HL
  48.     JR    LOOP1
  49. ;
  50. ;
  51.     END    START
  52.