Subversion Repositories pentevo

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1186 savelij 1
        cpu     hd6413309
2
        maxmode on
3
        page    0
4
        relaxed on
5
 
6
        dc.w    1234
7
        dc.w    $4d2
8
        dc.w    @2322
9
        dc.w    %10011010010
10
        dc.w    4d2h
11
        dc.w    2322o
12
        dc.w    10011010010b
13
        dc.w    0x4d2
14
        dc.w    02322
15
 
16
        nop
17
        sleep
18
        rts
19
        rte
20
 
21
        eepmov
22
        eepmov.b
23
        eepmov.w
24
 
25
        dec     r2h
26
        dec     #1,r5l
27
        dec     r4
28
        dec     #1,e6
29
        dec     #2,e1
30
        dec     er1
31
        dec     #1,er4
32
        dec     #2,er7
33
        inc     r2h
34
        inc     #1,r5l
35
        inc     r4
36
        inc     #1,e6
37
        inc     #2,e1
38
        inc     er1
39
        inc     #1,er4
40
        inc     #2,er7
41
 
42
targ:   bsr     targ
43
        bsr.s   targ
44
        bsr.l   targ
45
        bra     targ
46
        bra.s   targ
47
        bra.l   targ
48
        bt      targ
49
        bt.s    targ
50
        bt.l    targ
51
        brn     targ
52
        brn.s   targ
53
        brn.l   targ
54
        bf      targ
55
        bf.s    targ
56
        bf.l    targ
57
        bhi     targ
58
        bhi.s   targ
59
        bhi.l   targ
60
        bls     targ
61
        bls.s   targ
62
        bls.l   targ
63
        bcc     targ
64
        bcc.s   targ
65
        bcc.l   targ
66
        bhs     targ
67
        bhs.s   targ
68
        bhs.l   targ
69
        bcs     targ
70
        bcs.s   targ
71
        bcs.l   targ
72
        blo     targ
73
        blo.s   targ
74
        blo.l   targ
75
        bne     targ
76
        bne.s   targ
77
        bne.l   targ
78
        beq     targ
79
        beq.l   targ
80
        bvc     targ
81
        bvc.l   targ
82
        bvs     targ
83
        bvs.l   targ
84
        bpl     targ
85
        bpl.l   targ
86
        bmi     targ
87
        bmi.l   targ
88
        bge     targ
89
        bge.l   targ
90
        blt     targ
91
        blt.l   targ
92
        bgt     targ
93
        bgt.l   targ
94
        ble     targ
95
        ble.l   targ
96
 
97
        rotl    r4h
98
        rotl    r2
99
        rotl    er1
100
        rotr    r2l
101
        rotr    r1
102
        rotr    er5
103
        rotxl   r2h
104
        rotxl   e4
105
        rotxl   er2
106
        rotxr   r6h
107
        rotxr   e0
108
        rotxr   er7
109
        shal    r3l
110
        shal    r6
111
        shal    er0
112
        shar    r5l
113
        shar    r2
114
        shar    er6
115
        shll    r2h
116
        shll    e4
117
        shll    er5
118
        shlr    r1l
119
        shlr    r7
120
        shlr    er4
121
 
122
        not     r7h
123
        not     r6
124
        not     er2
125
        neg     r2l
126
        neg     e2
127
        neg     er5
128
 
129
        exts    r5
130
        extu    e3
131
        exts    er4
132
        extu    er6
133
 
134
        and     r5h,r3l
135
        and     #10,r2h
136
        and     r7,e1
137
        and     #%1101,r1
138
        and     er2,er6
139
        and     #$12345678,er3
140
        andc    #$20,ccr
141
        or      r6h,r4l
142
        or      #20,r3h
143
        or      r0,e2
144
        or      #%11101,r2
145
        or      er2,er7
146
        or      #$12345678,er4
147
        orc     #$30,ccr
148
        xor     r4h,r2l
149
        xor     #$08,r1h
150
        xor     r6,e0
151
        xor     #%101101,r0
152
        xor     er1,er5
153
        xor     #$12345678,er2
154
        xorc    #$30,ccr
155
 
156
        daa     r1l
157
        das     r5h
158
 
159
        addx    #10,r5l
160
        addx    r1h,r1l
161
        subx    #$55,r7h
162
        subx    r3h,r0l
163
 
164
        adds    #1,er0
165
        adds    #2,er4
166
        adds    #4,er5
167
        subs    #1,er6
168
        subs    #2,er3
169
        subs    #4,er1
170
 
171
        divxs   r4h,e2
172
        divxs   r4,er5
173
        divxu   r1l,r3
174
        divxu   e6,er7
175
        mulxs   r0l,e6
176
        mulxs   r5,er2
177
        mulxu   r7h,r5
178
        mulxu   e3,er4
179
 
180
        add     r1h,r2l
181
        add     #$34,r6h
182
        add     r2,e3
183
        add     #%10101010101010,e5
184
        add     er3,er1
185
        add     #1000000,er4
186
        sub     r1l,r2h
187
        sub     r6,e1
188
        sub     #%10101010101010,r2
189
        sub     er1,er5
190
        sub     #1000000,er6
191
        cmp     r1h,r2l
192
        cmp     #$34,r6h
193
        cmp     r2,e3
194
        cmp     #%10101010101010,e5
195
        cmp     er3,er1
196
        cmp     #1000000,er4
197
 
198
 
199
        pop     r5
200
        push    e2
201
        pop     er1
202
        push    er6
203
 
204
        mov     r2l,r5h
205
        mov     r1,e2
206
        mov     er5,er2
207
 
208
        mov.b   @er4,r6h
209
        mov.b   r6h,@er4
210
        mov.w   @er1,e7
211
        mov.w   e7,@er1
212
        mov.l   @er5,er2
213
        mov.l   er2,@er5
214
 
215
        mov.b   @er2+,r5l
216
        mov.b   r5l,@-er2
217
        mov.w   @er5+,r4
218
        mov.w   r4,@-er5
219
        mov.l   @er6+,er1
220
        mov.l   er1,@-er6
221
 
222
        mov.b   @(-100,er2),r4l
223
        mov.b   r4l,@(-100,er2)
224
        mov.w   @(200,er4),e3
225
        mov.w   e3,@(200,er4)
226
        mov.l   @(-300,sp),er5
227
        mov.l   er5,@(-300,sp)
228
 
229
        mov.b   @(-100000,er4),r3h
230
        mov.b   r3h,@(-100000,er4)
231
        mov.w   @(200000,er2),r6
232
        mov.w   r6,@(200000,er2)
233
        mov.l   @(-300000,er5),er1
234
        mov.l   er1,@(-300000,er5)
235
 
236
        mov.b   $ffff20,r1h
237
        mov.b   r1h,$ffff20
238
        mov.w   $ffffa4,e6
239
        mov.w   e6,$ffffa4
240
        mov.l   $ffffc0,er3
241
        mov.l   er3,$ffffc0
242
 
243
        mov.b   $1234,r3h
244
        mov.b   r3h,$1234
245
        mov.w   $2345,e5
246
        mov.w   e5,$2345
247
        mov.l   $3456,er4
248
        mov.l   er4,$3456
249
 
250
        mov.b   $123456,r3l
251
        mov.b   r3l,$123456
252
        mov.w   $234567,r5
253
        mov.w   r5,$234567
254
        mov.l   $345678,er7
255
        mov.l   er7,$345678
256
 
257
        mov.b   #$12,r4l
258
        mov.w   #$1234,e2
259
        mov.l   #$12345678,er3
260
 
261
        movfpe  @1234,r4l
262
        movtpe  r4l,@1234
263
 
264
        band    #4,r2l
265
        band    #2,@er3
266
        band    #6,$ffff4e
267
        biand   #4,r2l
268
        biand   #2,@er3
269
        biand   #6,$ffff4e
270
        bild    #4,r2l
271
        bild    #2,@er3
272
        bild    #6,$ffff4e
273
        bior    #4,r2l
274
        bior    #2,@er3
275
        bior    #6,$ffff4e
276
        bist    #4,r2l
277
        bist    #2,@er3
278
        bist    #6,$ffff4e
279
        bixor   #4,r2l
280
        bixor   #2,@er3
281
        bixor   #6,$ffff4e
282
        bld     #4,r2l
283
        bld     #2,@er3
284
        bld     #6,$ffff4e
285
        bor     #4,r2l
286
        bor     #2,@er3
287
        bor     #6,$ffff4e
288
        bst     #4,r2l
289
        bst     #2,@er3
290
        bst     #6,$ffff4e
291
        bxor    #4,r2l
292
        bxor    #2,@er3
293
        bxor    #6,$ffff4e
294
 
295
        bclr    #3,r5h
296
        bclr    #7,@er6
297
        bclr    #2,$ffff1a
298
        bclr    r5l,r6h
299
        bclr    r1h,@er4
300
        bclr    r7h,$ffff24
301
        bnot    #3,r5h
302
        bnot    #7,@er6
303
        bnot    #2,$ffff1a
304
        bnot    r5l,r6h
305
        bnot    r1h,@er4
306
        bnot    r7h,$ffff24
307
        bset    #3,r5h
308
        bset    #7,@er6
309
        bset    #2,$ffff1a
310
        bset    r5l,r6h
311
        bset    r1h,@er4
312
        bset    r7h,$ffff24
313
        btst    #3,r5h
314
        btst    #7,@er6
315
        btst    #2,$ffff1a
316
        btst    r5l,r6h
317
        btst    r1h,@er4
318
        btst    r7h,$ffff24
319
 
320
        jmp     @er2
321
        jmp     $123456
322
        jmp     @@$35
323
        jsr     @er2
324
        jsr     $123456
325
        jsr     @@$35
326
 
327
        ldc     #23,ccr
328
        ldc     r5h,ccr
329
        stc     ccr,r5h
330
        ldc     @er6,ccr
331
        stc     ccr,@er6
332
        ldc     @er3+,ccr
333
        stc     ccr,@-er3
334
        ldc     @(100,er1),ccr
335
        stc     ccr,@(100,er1)
336
        ldc     @(100000,er5),ccr
337
        stc     ccr,@(100000,er5)
338
        ldc     $1234,ccr
339
        stc     ccr,$1234
340
        ldc     $123456,ccr
341
        stc     ccr,$123456
342
 
343
; register aliases
344
 
345
regr0l  equ     r0l
346
regr1l  equ     r1l
347
regr2l  equ     r2l
348
regr3l  equ     r3l
349
regr4l  equ     r4l
350
regr5l  equ     r5l
351
regr6l  equ     r6l
352
regr7l  equ     r7l
353
regr0h  equ     r0h
354
regr1h  equ     r1h
355
regr2h  equ     r2h
356
regr3h  equ     r3h
357
regr4h  equ     r4h
358
regr5h  equ     r5h
359
regr6h  equ     r6h
360
regr7h  equ     r7h
361
 
362
regr0   reg     r0
363
regr1   reg     r1
364
regr2   reg     r2
365
regr3   reg     r3
366
regr4   reg     r4
367
regr5   reg     r5
368
regr6   reg     r6
369
regr7   reg     r7
370
rege0   reg     e0
371
rege1   reg     e1
372
rege2   reg     e2
373
rege3   reg     e3
374
rege4   reg     e4
375
rege5   reg     e5
376
rege6   reg     e6
377
rege7   reg     e7
378
 
379
reger0  equ     er0
380
reger1  equ     er1
381
reger2  equ     er2
382
reger3  equ     er3
383
reger4  equ     er4
384
reger5  equ     er5
385
reger6  equ     er6
386
reger7  equ     er7
387
 
388
regsp   reg     sp
389
 
390
        ; register as plain operand
391
 
392
        addx    #10,r0l
393
        addx    #10,regr0l
394
        addx    #10,r1l
395
        addx    #10,regr1l
396
        addx    #10,r2l
397
        addx    #10,regr2l
398
        addx    #10,r3l
399
        addx    #10,regr3l
400
        addx    #10,r4l
401
        addx    #10,regr4l
402
        addx    #10,r5l
403
        addx    #10,regr5l
404
        addx    #10,r6l
405
        addx    #10,regr6l
406
        addx    #10,r7l
407
        addx    #10,regr7l
408
        addx    #10,r0h
409
        addx    #10,regr0h
410
        addx    #10,r1h
411
        addx    #10,regr1h
412
        addx    #10,r2h
413
        addx    #10,regr2h
414
        addx    #10,r3h
415
        addx    #10,regr3h
416
        addx    #10,r4h
417
        addx    #10,regr4h
418
        addx    #10,r5h
419
        addx    #10,regr5h
420
        addx    #10,r6h
421
        addx    #10,regr6h
422
        addx    #10,r7h
423
        addx    #10,regr7h
424
 
425
        dec     r0
426
        dec     regr0
427
        dec     r1
428
        dec     regr1
429
        dec     r2
430
        dec     regr2
431
        dec     r3
432
        dec     regr3
433
        dec     r4
434
        dec     regr4
435
        dec     r5
436
        dec     regr5
437
        dec     r6
438
        dec     regr6
439
        dec     r7
440
        dec     regr7
441
        dec     e0
442
        dec     rege0
443
        dec     e1
444
        dec     rege1
445
        dec     e2
446
        dec     rege2
447
        dec     e3
448
        dec     rege3
449
        dec     e4
450
        dec     rege4
451
        dec     e5
452
        dec     rege5
453
        dec     e6
454
        dec     rege6
455
        dec     e7
456
        dec     rege7
457
 
458
        dec     er0
459
        dec     reger0
460
        dec     er1
461
        dec     reger1
462
        dec     er2
463
        dec     reger2
464
        dec     er3
465
        dec     reger3
466
        dec     er4
467
        dec     reger4
468
        dec     er5
469
        dec     reger5
470
        dec     er6
471
        dec     reger6
472
        dec     er7
473
        dec     reger7
474
 
475
        ; register in addressing mode
476
 
477
        mov.b   @er4,r6h
478
        mov.b   @reger4,regr6h
479
        mov.b   @er2+,r6h
480
        mov.b   @reger2+,regr6h
481
        mov.b   r6h,@-er5
482
        mov.b   r6h,@-reger5
483
        mov.l   @(-300,sp),er5
484
        mov.l   @(-300,regsp),reger5
485
 
486
        ; register as bit number
487
 
488
        btst    r5l,r6h
489
        btst    regr5l,regr6h
490
 
491
        dc      20
492
 
493
        dc.b    5,"Hallo"
494
        dc.w    1,2,3,4
495
        dc.l    1,2,3,4
496
;       dc.q    1,2,3,4         ; omit for the sake of non-64-bit-platforms...
497
        dc.s    1,2,3,4
498
        dc.d    1,2,3,4
499
        dc.x    1,2,3,4
500
        dc.p    1,2,3,4
501
 
502
        ; The very special hex syntax, which requires a quote qualify
503
        ; callback in the parser and which is only enabled on request.
504
        ; We optionally also allow a terminating ':
505
 
506
        relaxed on
507
 
508
        mov     #$aa55  ,r2  ; comment
509
        mov     #h'aa55 ,r2  ; comment
510
        mov     #h'aa55',r2  ; comment
511
        mov     r2 ,@$ffe0   ; comment
512
        mov     r2 ,@h'ffe0  ; comment
513
        mov     r2 ,@h'ffe0' ; comment
514
 
515
        ; bit symbols
516
 
517
        band    #7,$ffffe0
518
bit1    bit     #7,$ffffe0
519
        band    bit1
520
 
521
bitstruct       struct
522
byte1           ds.b    1
523
byte2           ds.b    2
524
lsb8            bit     0,byte1
525
msb8            bit     #7,byte2
526
                endstruct
527
 
528
                btst    mystruct_msb8
529
                btst    mystruct_lsb8
530
 
531
                org     $ffffc0
532
mystruct        bitstruct