Subversion Repositories pentevo

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1186 savelij 1
        cpu     78070
2
        page    0
3
        relaxed on
4
 
5
        include reg78k0.inc
6
 
7
saddr   equ     0fe80h
8
sfr     equ     0ff90h
9
 
10
        brk
11
        ret
12
        retb
13
        reti
14
        nop
15
        ei
16
        di
17
        halt
18
        stop
19
        adjba
20
        adjbs
21
 
22
        mov     d,#20
23
        mov     saddr,#30
24
        mov     sfr,#40
25
        mov     a,c
26
        mov     e,a
27
        mov     a,saddr
28
        mov     saddr,a
29
        mov     a,sfr
30
        mov     sfr,a
31
        mov     a,!saddr
32
        mov     !saddr,r1
33
        mov     psw,#40h
34
        mov     a,psw
35
        mov     psw,a
36
        mov     a,[de]
37
        mov     [de],a
38
        mov     a,[hl]
39
        mov     [hl],a
40
        mov     a,[hl+10]
41
        mov     [hl+10],a
42
        mov     a,[hl+b]
43
        mov     [hl+b],a
44
        mov     a,[hl+c]
45
        mov     [hl+c],a
46
 
47
        xch     a,d
48
        xch     l,a
49
        xch     a,saddr
50
        xch     a,sfr
51
        xch     a,!saddr
52
        xch     a,[de]
53
        xch     a,[hl]
54
        xch     a,[hl+10]
55
        xch     a,[hl+b]
56
        xch     a,[hl+c]
57
 
58
        movw    de,#1000
59
        movw    saddr,#2000
60
        movw    sfr,#3000
61
        movw    ax,saddr
62
        movw    saddr,ax
63
        movw    ax,sfr
64
        movw    sfr,ax
65
        movw    ax,de
66
        movw    hl,ax
67
        movw    ax,!saddr
68
        movw    !saddr,ax
69
 
70
        xchw    ax,de
71
        xchw    hl,ax
72
 
73
        add     a,#10
74
        add     saddr,#20
75
        add     a,c
76
        add     h,a
77
        add     a,saddr
78
        add     a,!saddr
79
        add     a,[hl]
80
        add     a,[hl+10]
81
        add     a,[hl+b]
82
        add     a,[hl+c]
83
 
84
        addc    a,#10
85
        addc    saddr,#20
86
        addc    a,c
87
        addc    h,a
88
        addc    a,saddr
89
        addc    a,!saddr
90
        addc    a,[hl]
91
        addc    a,[hl+10]
92
        addc    a,[hl+b]
93
        addc    a,[hl+c]
94
 
95
        sub     a,#10
96
        sub     saddr,#20
97
        sub     a,c
98
        sub     h,a
99
        sub     a,saddr
100
        sub     a,!saddr
101
        sub     a,[hl]
102
        sub     a,[hl+10]
103
        sub     a,[hl+b]
104
        sub     a,[hl+c]
105
 
106
        subc    a,#10
107
        subc    saddr,#20
108
        subc    a,c
109
        subc    h,a
110
        subc    a,saddr
111
        subc    a,!saddr
112
        subc    a,[hl]
113
        subc    a,[hl+10]
114
        subc    a,[hl+b]
115
        subc    a,[hl+c]
116
 
117
        and     a,#10
118
        and     saddr,#20
119
        and     a,c
120
        and     h,a
121
        and     a,saddr
122
        and     a,!saddr
123
        and     a,[hl]
124
        and     a,[hl+10]
125
        and     a,[hl+b]
126
        and     a,[hl+c]
127
 
128
        or      a,#10
129
        or      saddr,#20
130
        or      a,c
131
        or      h,a
132
        or      a,saddr
133
        or      a,!saddr
134
        or      a,[hl]
135
        or      a,[hl+10]
136
        or      a,[hl+b]
137
        or      a,[hl+c]
138
 
139
        xor     a,#10
140
        xor     saddr,#20
141
        xor     a,c
142
        xor     h,a
143
        xor     a,saddr
144
        xor     a,!saddr
145
        xor     a,[hl]
146
        xor     a,[hl+10]
147
        xor     a,[hl+b]
148
        xor     a,[hl+c]
149
 
150
        cmp     a,#10
151
        cmp     saddr,#20
152
        cmp     a,c
153
        cmp     h,a
154
        cmp     a,saddr
155
        cmp     a,!saddr
156
        cmp     a,[hl]
157
        cmp     a,[hl+10]
158
        cmp     a,[hl+b]
159
        cmp     a,[hl+c]
160
 
161
        addw    ax,#1234h
162
        subw    rp0,#2345h
163
        cmpw    ax,#3456h
164
 
165
        mulu    x
166
        divuw   c
167
 
168
        inc     d
169
        inc     saddr
170
        dec     e
171
        dec     saddr
172
 
173
        incw    hl
174
        decw    de
175
 
176
        ror     a,1
177
        rol     a,1
178
        rorc    a,1
179
        rolc    a,1
180
 
181
        ror4    [hl]
182
        rol4    [hl]
183
 
184
        mov1    cy,saddr.3
185
        mov1    cy,sfr.4
186
        mov1    cy,a.5
187
        mov1    cy,psw.6
188
        mov1    cy,[hl].7
189
        mov1    saddr.3,cy
190
        mov1    sfr.4,cy
191
        mov1    a.5,cy
192
        mov1    psw.6,cy
193
        mov1    [hl].7,cy
194
 
195
        and1    cy,saddr.3
196
        and1    cy,sfr.4
197
        and1    cy,a.5
198
        and1    cy,psw.6
199
        and1    cy,[hl].7
200
 
201
        or1     cy,saddr.3
202
        or1     cy,sfr.4
203
        or1     cy,a.5
204
        or1     cy,psw.6
205
        or1     cy,[hl].7
206
 
207
        xor1    cy,saddr.3
208
        xor1    cy,sfr.4
209
        xor1    cy,a.5
210
        xor1    cy,psw.6
211
        xor1    cy,[hl].7
212
 
213
        set1    saddr.3
214
        set1    sfr.4
215
        set1    a.5
216
        set1    psw.6
217
        set1    [hl].7
218
 
219
        clr1    saddr.3
220
        clr1    sfr.4
221
        clr1    a.5
222
        clr1    psw.6
223
        clr1    [hl].7
224
 
225
        set1    cy
226
        clr1    cy
227
        not1    cy
228
 
229
        call    1234h
230
        callf    234h
231
        callt   [12h]
232
 
233
        push    psw
234
        push    de
235
        pop     psw
236
        pop     hl
237
 
238
        movw    sp,#1234h
239
        movw    sp,ax
240
        movw    ax,sp
241
 
242
        br      ax
243
        br      rp0
244
        br      1234h
245
        br      pc
246
        br      $pc
247
        br      !pc
248
 
249
        bc      pc
250
        bnc     pc
251
        bz      pc
252
        bnz     pc
253
 
254
        bt      saddr.3,pc
255
        bt      sfr.4,pc
256
        bt      a.5,pc
257
        bt      psw.6,pc
258
        bt      [hl].7,pc
259
 
260
        bf      saddr.3,pc
261
        bf      sfr.4,pc
262
        bf      a.5,pc
263
        bf      psw.6,pc
264
        bf      [hl].7,pc
265
 
266
        btclr   saddr.3,pc
267
        btclr   sfr.4,pc
268
        btclr   a.5,pc
269
        btclr   psw.6,pc
270
        btclr   [hl].7,pc
271
 
272
        dbnz    b,pc
273
        dbnz    c,pc
274
        dbnz    saddr,pc
275
 
276
        sel     rb0
277
        sel     rb1
278
        sel     rb2
279
        sel     rb3
280
 
281
;-----------------------------------------------------
282
; standard Intel/MASM-style pseudo instructions
283
 
284
        include "../t_dx/t_dn.inc"
285
        include "../t_dx/t_db.inc"
286
        include "../t_dx/t_dw.inc"
287
        include "../t_dx/t_dd.inc"
288
        include "../t_dx/t_dq.inc"
289
        include "../t_dx/t_dt.inc"
290
        include "../t_dx/t_do.inc"
291
 
292
        end