projects / z180-stamp.git / blame
| Commit | Line | Data |
|---|---|---|
| a16ba2b0 L |
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 |