.xlist
;;
;; Z180 / HD64180 MACRO LIBRARY
;;

IFNDEF SLP

;;
;;
;;	HD64180 instructions:
;;
;;	SLP			; Enter SLEEP mode
;;	MLT	RR		; 8 bit multiply with 16 bit result
;;	IN0	R,P 		; Input from internal port
;;	OUT0	P,R 		; Output to internal port
;;	OTIM			; Block output, increment
;;	OTIMR			; Block output, increment and repeat
;;	OTDM			; Block output, decrement
;;	OTDMR			; Block output, decrement and repeat
;;	TSTIO	P		; Non destructive AND, I/O port and A
;;	TST	R		; Non destructive AND, reg and A
;;	TST	ID		; Non destructive AND, immediate data and A
;;	TST	(HL)		; Non destructive AND, (HL) and A
;;
;;

??BC	EQU	0	; Double-register definitions
??DE	EQU	1
??HL	EQU	2
??SP	EQU	3

??A	EQU	7	; Single-register defintions
??B	EQU	0
??C	EQU	1
??D	EQU	2
??E	EQU	3
??H	EQU	4
??L	EQU	5

SLP	MACRO
	DEFB	0EDH,76H
	ENDM

MLT	MACRO	?R
	DB	0EDH,4CH+(??&?R AND 3) SHL 4
	ENDM

IN0	MACRO	?R,?P
	DB	0EDH,(??&?R AND 7) SHL 3, ?P
	ENDM

OUT0	MACRO	?P,?R
	DB	0EDH,1+(??&?R AND 7) SHL 3,?P
	ENDM

OTIM	MACRO
	DB	0EDH,83H
	ENDM

OTIMR	MACRO
	DB	0EDH,93H
	ENDM

OTDM	MACRO
	DB	0EDH,8BH
	ENDM

OTDMR	MACRO
	DB	0EDH,9BH
	ENDM

TSTIO	MACRO	?P
	DB	0EDH,74H,?P
	ENDM

TSTR	MACRO	?R
	DB	0EDH,4+(??&?R AND 7) SHL 3
	ENDM

TSTD	MACRO	?P
	DB	0EDH,64H,?P
	ENDM

TSTP	MACRO
	DB	0EDH,34H
	ENDM

TST	MACRO	?R
	  ?D: SET 0
	  IRPC	?X,?R
	  ?D: SET ?D+1		; Count # chars in "?R"
	  ENDM
	    IF ?D EQ 1		; IF # chars = 1
	     IRPC ?X,ABCDEHL	; Look up the character
	       IF ??&?X EQ ??&?R
	       DB	0EDH,4+(??&?R AND 7) SHL 3
	       EXITM
	       ENDIF
	     ENDM
	     DB	    0EDh,64h,?R
	     EXITM
	    ENDIF
	IF	(?R = 2) & (?D = 4)
	   ?D: SET 0
	   IRPC ?X,?R
		IFIDN <?X>,<(>
		    DB 0EDh,34h
		    EXITM
		ENDIF
	   ?D: SET ?D + 1
	   ENDM
	ENDIF
	IF ?D NE 0
	   DB	0EDH,64H,?R
	ENDIF
	ENDM

ENDIF ;/* IFNDEF SLP /
	.list