forked from MirrorRepos/RomWBW
55 lines
769 B
Plaintext
55 lines
769 B
Plaintext
.XLIST
|
||
; CLOCK.LIB 5/29/88 for ZSDOS/ZDDOS Clocks, SLR & EZASM Assemblers
|
||
; from CLOCK.LIB 6-17-85 for azm-assembled DateStamper clocks
|
||
|
||
MHZ DEFL 33
|
||
CURYR EQU 14H
|
||
|
||
BYTE EQU 0
|
||
WORD EQU 1
|
||
CR EQU 0DH
|
||
LF EQU 0AH
|
||
ESC EQU 1BH
|
||
|
||
NO DEFL 0
|
||
YES DEFL NOT NO
|
||
|
||
GETBC MACRO ADDR
|
||
IFNB <ADDR>
|
||
LD HL,ADDR
|
||
ADD HL,DE
|
||
ENDIF
|
||
LD C,(HL)
|
||
INC HL
|
||
LD B,(HL)
|
||
ENDM
|
||
|
||
PUTBC MACRO ADDR
|
||
IFNB <ADDR>
|
||
LD HL,ADDR
|
||
ADD HL,DE
|
||
ENDIF
|
||
LD (HL),C
|
||
INC HL
|
||
LD (HL),B
|
||
ENDM
|
||
|
||
|
||
; get byte from parameters, store at 'to'
|
||
|
||
SETBYT MACRO FROM,TO
|
||
IFNB <FROM>
|
||
LD A,(FROM)
|
||
ENDIF
|
||
IFNB <TO>
|
||
LD HL,TO
|
||
ADD HL,DE
|
||
LD (HL),A
|
||
ENDIF
|
||
ENDM
|
||
|
||
OVER2 MACRO
|
||
DEFB 'Description Too Long'
|
||
ENDM
|
||
.LIST
|
||
|