128 lines
1.4 KiB
OpenEdge ABL
128 lines
1.4 KiB
OpenEdge ABL
|
.macro start
|
||
|
|
.text
|
||
|
|
.align 2
|
||
|
|
.globl _start
|
||
|
|
_start:
|
||
|
|
.endm
|
||
|
|
|
||
|
|
|
||
|
|
.macro exit47
|
||
|
|
ldi r6, 1
|
||
|
|
ldi r2, 47
|
||
|
|
trap 15
|
||
|
|
.endm
|
||
|
|
|
||
|
|
|
||
|
|
.macro exit0
|
||
|
|
ldi r6, 1
|
||
|
|
ldi r2, 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 r6, 1
|
||
|
|
ldi r2, \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 r6, 1
|
||
|
|
ldi r2, \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 r6, 1
|
||
|
|
ldi r2, \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 r6, 1
|
||
|
|
ldi r2, \exit
|
||
|
|
trap 15
|
||
|
|
1:
|
||
|
|
.endm
|
||
|
|
|
||
|
|
|
||
|
|
.macro hello
|
||
|
|
;; 4:write (1, string, strlen (string))
|
||
|
|
ldi r6, 4
|
||
|
|
ldi r2, 1
|
||
|
|
ldi r3, 1f
|
||
|
|
ldi r4, 2f-1f-1
|
||
|
|
trap 15
|
||
|
|
.section .rodata
|
||
|
|
1: .string "Hello World!\n"
|
||
|
|
2: .align 2
|
||
|
|
.text
|
||
|
|
.endm
|