mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-01-06 12:09:26 +08:00
171 lines
2.0 KiB
OpenEdge ABL
171 lines
2.0 KiB
OpenEdge ABL
.macro start
|
|
.text
|
|
.align 2
|
|
.globl _start
|
|
_start:
|
|
ldi r0, 0
|
|
.endm
|
|
|
|
|
|
.macro exit47
|
|
ldi r4, 1
|
|
ldi r0, 47
|
|
trap 15
|
|
.endm
|
|
|
|
|
|
.macro exit0
|
|
ldi r4, 1
|
|
ldi r0, 0
|
|
trap 15
|
|
.endm
|
|
|
|
|
|
.macro load reg val
|
|
ldi \reg, #\val
|
|
.endm
|
|
|
|
|
|
.macro load2w reg hi lo
|
|
ld2w \reg, @(1f,r0)
|
|
.data
|
|
.align 2
|
|
1: .short \hi
|
|
.short \lo
|
|
.text
|
|
.endm
|
|
|
|
|
|
.macro check exit reg val
|
|
cmpeqi \reg, #\val
|
|
brf0t 1f
|
|
0: ldi r4, 1
|
|
ldi r0, \exit
|
|
trap 15
|
|
1:
|
|
.endm
|
|
|
|
|
|
.macro check2w2 exit reg hi lo
|
|
st2w \reg, @(1f,r0)
|
|
ld r2, @(1f, r0)
|
|
cmpeqi r2, #\hi
|
|
brf0f 0f
|
|
ld r2, @(1f + 2, r0)
|
|
cmpeqi r2, #\lo
|
|
brf0f 0f
|
|
bra 2f
|
|
0: ldi r4, 1
|
|
ldi r0, \exit
|
|
trap 15
|
|
.data
|
|
.align 2
|
|
1: .long 0
|
|
.text
|
|
2:
|
|
.endm
|
|
|
|
|
|
.macro loadacc2 acc guard hi lo
|
|
ldi r2, #\lo
|
|
mvtaclo r2, \acc
|
|
ldi r2, #\hi
|
|
mvtachi r2, \acc
|
|
ldi r2, #\guard
|
|
mvtacg r2, \acc
|
|
.endm
|
|
|
|
|
|
.macro checkacc2 exit acc guard hi lo
|
|
ldi r2, #\guard
|
|
mvfacg r3, \acc
|
|
cmpeq r2, r3
|
|
brf0f 0f
|
|
ldi r2, #\hi
|
|
mvfachi r3, \acc
|
|
cmpeq r2, r3
|
|
brf0f 0f
|
|
ldi r2, #\lo
|
|
mvfaclo r3, \acc
|
|
cmpeq r2, r3
|
|
brf0f 0f
|
|
bra 4f
|
|
0: ldi r4, 1
|
|
ldi r0, \exit
|
|
trap 15
|
|
4:
|
|
.endm
|
|
|
|
|
|
.macro loadpsw2 val
|
|
ldi r2, #\val
|
|
mvtc r2, cr0
|
|
.endm
|
|
|
|
|
|
.macro checkpsw2 exit val
|
|
mvfc r2, cr0
|
|
cmpeqi r2, #\val
|
|
brf0t 1f
|
|
ldi r4, 1
|
|
ldi r0, \exit
|
|
trap 15
|
|
1:
|
|
.endm
|
|
|
|
|
|
.macro hello
|
|
;; 4:write (1, string, strlen (string))
|
|
ldi r4, 4
|
|
ldi r0, 1
|
|
ldi r1, 1f
|
|
ldi r2, 2f-1f-1
|
|
trap 15
|
|
.section .rodata
|
|
1: .string "Hello World!\n"
|
|
2: .align 2
|
|
.text
|
|
.endm
|
|
|
|
|
|
PSW_SM = 0x8000
|
|
PSW_01 = 0x4000
|
|
PSW_EA = 0x2000
|
|
PSW_DB = 0x1000
|
|
PSW_DM = 0x0800
|
|
PSW_IE = 0x0400
|
|
PSW_RP = 0x0200
|
|
PSW_MD = 0x0100
|
|
PSW_FX = 0x0080
|
|
PSW_ST = 0x0040
|
|
PSW_10 = 0x0020
|
|
PSW_11 = 0x0010
|
|
PSW_F0 = 0x0008
|
|
PSW_F1 = 0x0004
|
|
PSW_14 = 0x0002
|
|
PSW_C = 0x0001
|
|
|
|
|
|
;;;
|
|
|
|
DMAP_MASK = 0x3fff
|
|
DMAP_BASE = 0x8000
|
|
DMAP_REG = 0xff04
|
|
|
|
IMAP0_REG = 0xff00
|
|
IMAP1_REG = 0xff02
|
|
|
|
MAP_INSN = 0x1000
|
|
|
|
;;;
|
|
|
|
VEC_RI = 0x3fc00
|
|
VEC_BAE = 0x3fc04
|
|
VEC_RIE = 0x3fc08
|
|
VEC_AE = 0x3fc0c
|
|
VEC_TRAP = 0x3fc10
|
|
VEC_DBT = 0x3ff50
|
|
VEC_SDBT = 0x3fff4
|
|
VEC_DBI = 0x3ff58
|
|
VEC_EI = 0x3ff5c
|