mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-04 16:50:57 +00:00
85 lines
1.3 KiB
ArmAsm
85 lines
1.3 KiB
ArmAsm
;;; Test 68HC11 linker relaxation from extended addressing to direct
|
|
;;; addressing modes
|
|
;;;
|
|
.sect .text
|
|
.globl _start
|
|
_start:
|
|
start:
|
|
lds stack
|
|
ldd _bar
|
|
beq F1
|
|
beq F2
|
|
std _bar
|
|
jsr _bar
|
|
F1:
|
|
addd _toto
|
|
bne start
|
|
;; All the following instructions will be relaxed and win 1 byte
|
|
;; for each.
|
|
addd _toto+200
|
|
addd stack+256-20
|
|
adca _table+2
|
|
adcb _table+3
|
|
adda _table+4
|
|
addb _table+5
|
|
addd _table+6
|
|
anda _table+7
|
|
andb _table+8
|
|
cmpa _table+9
|
|
cmpb _table+10
|
|
cpd _table+11
|
|
cpx _table+12
|
|
cpy _table+13
|
|
eora _table+14
|
|
eorb _table+15
|
|
jsr _table+16
|
|
ldaa _table+17
|
|
ldab _table+18
|
|
ldd _table+19
|
|
lds _table+20
|
|
ldx _table+21
|
|
ldy _table+22
|
|
oraa _table+23
|
|
orab _table+24
|
|
sbcb _table+25
|
|
sbca _table+26
|
|
staa _table+27
|
|
stab _table+28
|
|
std _table+29
|
|
sts _table+30
|
|
stx _table+31
|
|
sty _table+32
|
|
suba _table+33
|
|
subb _table+34
|
|
subd _table+35
|
|
;; 'bne' is assembled as far branch and must relax to
|
|
;; a relative 8-bit branch.
|
|
bne _start
|
|
;; Likewise for next branch
|
|
bra F1
|
|
rts
|
|
|
|
;;; The following instructions will not be relaxed
|
|
no_relax:
|
|
addd _stack_top+60
|
|
std _stack_top+40
|
|
;; 'tst' does not support direct addressing mode.
|
|
tst _toto+1
|
|
bne no_relax
|
|
.skip 200
|
|
F2:
|
|
bra _start
|
|
|
|
.sect .page0
|
|
_bar:
|
|
.long 0
|
|
_toto:
|
|
.long 0
|
|
.skip 32
|
|
stack:
|
|
.skip 10
|
|
_table:
|
|
.skip 200
|
|
_stack_top:
|
|
|