]>
Commit | Line | Data |
---|---|---|
1 | .xlist\r | |
2 | ;;\r | |
3 | ;; Z180 / HD64180 MACRO LIBRARY\r | |
4 | ;;\r | |
5 | \r | |
6 | IFNDEF SLP\r | |
7 | \r | |
8 | ;;\r | |
9 | ;;\r | |
10 | ;; HD64180 instructions:\r | |
11 | ;;\r | |
12 | ;; SLP ; Enter SLEEP mode\r | |
13 | ;; MLT RR ; 8 bit multiply with 16 bit result\r | |
14 | ;; IN0 R,P ; Input from internal port\r | |
15 | ;; OUT0 P,R ; Output to internal port\r | |
16 | ;; OTIM ; Block output, increment\r | |
17 | ;; OTIMR ; Block output, increment and repeat\r | |
18 | ;; OTDM ; Block output, decrement\r | |
19 | ;; OTDMR ; Block output, decrement and repeat\r | |
20 | ;; TSTIO P ; Non destructive AND, I/O port and A\r | |
21 | ;; TST R ; Non destructive AND, reg and A\r | |
22 | ;; TST ID ; Non destructive AND, immediate data and A\r | |
23 | ;; TST (HL) ; Non destructive AND, (HL) and A\r | |
24 | ;;\r | |
25 | ;;\r | |
26 | \r | |
27 | ??BC EQU 0 ; Double-register definitions\r | |
28 | ??DE EQU 1\r | |
29 | ??HL EQU 2\r | |
30 | ??SP EQU 3\r | |
31 | \r | |
32 | ??A EQU 7 ; Single-register defintions\r | |
33 | ??B EQU 0\r | |
34 | ??C EQU 1\r | |
35 | ??D EQU 2\r | |
36 | ??E EQU 3\r | |
37 | ??H EQU 4\r | |
38 | ??L EQU 5\r | |
39 | \r | |
40 | SLP MACRO\r | |
41 | DEFB 0EDH,76H\r | |
42 | ENDM\r | |
43 | \r | |
44 | MLT MACRO ?R\r | |
45 | DB 0EDH,4CH+(??&?R AND 3) SHL 4\r | |
46 | ENDM\r | |
47 | \r | |
48 | IN0 MACRO ?R,?P\r | |
49 | DB 0EDH,(??&?R AND 7) SHL 3, ?P\r | |
50 | ENDM\r | |
51 | \r | |
52 | OUT0 MACRO ?P,?R\r | |
53 | DB 0EDH,1+(??&?R AND 7) SHL 3,?P\r | |
54 | ENDM\r | |
55 | \r | |
56 | OTIM MACRO\r | |
57 | DB 0EDH,83H\r | |
58 | ENDM\r | |
59 | \r | |
60 | OTIMR MACRO\r | |
61 | DB 0EDH,93H\r | |
62 | ENDM\r | |
63 | \r | |
64 | OTDM MACRO\r | |
65 | DB 0EDH,8BH\r | |
66 | ENDM\r | |
67 | \r | |
68 | OTDMR MACRO\r | |
69 | DB 0EDH,9BH\r | |
70 | ENDM\r | |
71 | \r | |
72 | TSTIO MACRO ?P\r | |
73 | DB 0EDH,74H,?P\r | |
74 | ENDM\r | |
75 | \r | |
76 | TSTR MACRO ?R\r | |
77 | DB 0EDH,4+(??&?R AND 7) SHL 3\r | |
78 | ENDM\r | |
79 | \r | |
80 | TSTD MACRO ?P\r | |
81 | DB 0EDH,64H,?P\r | |
82 | ENDM\r | |
83 | \r | |
84 | TSTP MACRO\r | |
85 | DB 0EDH,34H\r | |
86 | ENDM\r | |
87 | \r | |
88 | TST MACRO ?R\r | |
89 | ?D: SET 0\r | |
90 | IRPC ?X,?R\r | |
91 | ?D: SET ?D+1 ; Count # chars in "?R"\r | |
92 | ENDM\r | |
93 | IF ?D EQ 1 ; IF # chars = 1\r | |
94 | IRPC ?X,ABCDEHL ; Look up the character\r | |
95 | IF ??&?X EQ ??&?R\r | |
96 | DB 0EDH,4+(??&?R AND 7) SHL 3\r | |
97 | EXITM\r | |
98 | ENDIF\r | |
99 | ENDM\r | |
100 | DB 0EDh,64h,?R\r | |
101 | EXITM\r | |
102 | ENDIF\r | |
103 | IF (?R = 2) & (?D = 4)\r | |
104 | ?D: SET 0\r | |
105 | IRPC ?X,?R\r | |
106 | IFIDN <?X>,<(>\r | |
107 | DB 0EDh,34h\r | |
108 | EXITM\r | |
109 | ENDIF\r | |
110 | ?D: SET ?D + 1\r | |
111 | ENDM\r | |
112 | ENDIF\r | |
113 | IF ?D NE 0\r | |
114 | DB 0EDH,64H,?R\r | |
115 | ENDIF\r | |
116 | ENDM\r | |
117 | \r | |
118 | ENDIF ;/* IFNDEF SLP /\r | |
119 | .list\r | |
120 | \r |