Commit | Line | Data |
---|---|---|
60bcf0fa NC |
1 | # Test for the 68HC11 long branch switch |
2 | .text | |
3 | .globl _rcall | |
4 | .globl _start | |
5 | _start: | |
6 | _rcall: | |
7 | ldaa #0x10 ;86 10 | |
8 | jbra Lend ; Must be switched to a jmp | |
9 | jbsr toto ; -> to a jsr | |
10 | jbne toto ; -> to a beq+jmp | |
11 | jbeq toto ; -> to a bne+jmp | |
12 | jbcs toto ; -> to a bcc+jmp | |
13 | jbcc toto ; -> to a bcs+jmp | |
14 | xgdx | |
15 | xgdx | |
16 | beq bidule ; -> to a bne+jmp | |
17 | bcs bidule ; -> to a bcc+jmp | |
18 | bcc bidule ; -> to a bcs+jmp | |
19 | xgdx | |
20 | jbra 200 | |
21 | jbsr 1923 | |
22 | bne Lend ; -> to a beq+jmp | |
23 | jbsr toto | |
24 | jbeq toto | |
25 | .skip 200 | |
26 | ldaa *dir ;96 33 | |
27 | Lend: | |
28 | bhi external_op | |
29 | bls external_op | |
30 | bsr out | |
31 | ldx #12 | |
32 | toto: | |
33 | rts | |
34 | .skip 100 | |
35 | bidule: | |
36 | rts | |
37 | .sect ".page0" | |
38 | dir: | |
39 | .long 0 | |
40 | ||
41 | ; END |