From f4d5b4febbffab80cb06bd18564d4c326756fad7 Mon Sep 17 00:00:00 2001
From: Leo C
Date: Wed, 2 Jul 2014 14:33:22 +0200
Subject: Rename dir Z180 --> z180

---
 z180/z180.lib | 120 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 120 insertions(+)
 create mode 100644 z180/z180.lib

(limited to 'z180/z180.lib')

diff --git a/z180/z180.lib b/z180/z180.lib
new file mode 100644
index 0000000..ffe0ab7
--- /dev/null
+++ b/z180/z180.lib
@@ -0,0 +1,120 @@
+	.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
+
-- 
cgit v1.2.3