gas/testsuite/gas/m68hc11/insns.s

   1 # Test for correct generation of 68HC11 insns.
   2
   3         .globl _start
   4         .sect .text
   5
   6 _start:
   7         lds #stack+1024
   8         ldx #1
   9 Loop:
  10         jsr test
  11         dex
  12         bne Loop
  13 Stop:
  14
  15         .byte 0xcd
  16         .byte 3
  17         bra _start
  18
  19 test:
  20         ldd #2
  21         jsr test2
  22         rts
  23
  24 B_low = 12
  25 A_low = 44
  26 D_low = 50
  27 value = 23
  28
  29         .globl test2
  30 test2:
  31         ldx value,y
  32         std value,x
  33         ldd ,x
  34         sty ,y
  35         stx ,y
  36         brclr 6,x,#4,test2
  37         brclr 12,x #8 test2
  38         ldd *ZD1
  39         ldx *ZD1+2
  40         clr *ZD2
  41         clr *ZD2+1
  42         bne .-4
  43         beq .+2
  44         bclr *ZD1+1, #32
  45         brclr *ZD2+2, #40, test2
  46         ldy #24+_start-44
  47         ldd B_low,y
  48         addd A_low,y
  49         addd D_low,y
  50         subd A_low
  51         subd #A_low
  52         jmp Stop
  53 L1:
  54         anda #%lo(test2)
  55         andb #%hi(test2)
  56         ldab #%page(test2)      ; Check that the relocs are against symbol
  57         ldy  #%addr(test2)      ; otherwise linker relaxation fails
  58         rts
  59
  60         .sect .data
  61
  62         .sect .bss
  63 stack:
  64         .space  1024
  65 stack_end: