home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / zsus / progpack / zsclks.lbr / CLOCK.LZB / CLOCK.LIB
Encoding:
Text File  |  1992-05-13  |  768 b   |  55 lines
  1.     .XLIST
  2. ; CLOCK.LIB  5/29/88 for ZSDOS/ZDDOS Clocks, SLR & EZASM Assemblers
  3. ; from CLOCK.LIB 6-17-85 for azm-assembled DateStamper clocks
  4.  
  5. MHZ    DEFL    4
  6. CURYR    EQU    88H
  7.  
  8. BYTE    EQU    0
  9. WORD    EQU    1
  10. CR    EQU    0DH
  11. LF    EQU    0AH
  12. ESC    EQU    1BH
  13.  
  14. NO    DEFL    0
  15. YES    DEFL    NOT NO
  16.  
  17. GETBC     MACRO    ADDR
  18.     IFNB    <ADDR>
  19.     LD    HL,ADDR
  20.     ADD    HL,DE
  21.      ENDIF
  22.     LD    C,(HL)
  23.     INC    HL
  24.     LD    B,(HL)
  25.      ENDM
  26.  
  27. PUTBC     MACRO    ADDR
  28.     IFNB    <ADDR>
  29.     LD    HL,ADDR
  30.     ADD    HL,DE
  31.      ENDIF
  32.     LD    (HL),C
  33.     INC    HL
  34.     LD    (HL),B
  35.      ENDM
  36.  
  37.  
  38. ; get byte from parameters, store at 'to'
  39.  
  40. SETBYT     MACRO    FROM,TO
  41.     IFNB    <FROM>
  42.     LD    A,(FROM)
  43.      ENDIF
  44.     IFNB    <TO>
  45.     LD    HL,TO
  46.     ADD    HL,DE
  47.     LD    (HL),A
  48.      ENDIF
  49.      ENDM
  50.  
  51. OVER2     MACRO
  52.     DEFB    'Description Too Long'
  53.      ENDM
  54.     .LIST
  55.