46 lines
431 B
ArmAsm
46 lines
431 B
ArmAsm
.globl .p,sprv
|
|
.globl .eq,.ne,.lt,.le,.gt,.ge
|
|
|
|
.eq:
|
|
jsr pc,sprv
|
|
cmp 4(sp),(sp)
|
|
beq true
|
|
br false
|
|
|
|
.ne:
|
|
jsr pc,sprv
|
|
cmp 4(sp),(sp)
|
|
bne true
|
|
br false
|
|
.lt:
|
|
jsr pc,sprv
|
|
cmp 4(sp),(sp)
|
|
blt true
|
|
br false
|
|
|
|
.le:
|
|
jsr pc,sprv
|
|
cmp 4(sp),(sp)
|
|
ble true
|
|
br false
|
|
|
|
.gt:
|
|
jsr pc,sprv
|
|
cmp 4(sp),(sp)
|
|
bgt true
|
|
br false
|
|
|
|
.ge:
|
|
jsr pc,sprv
|
|
cmp 4(sp),(sp)
|
|
bge true
|
|
br false
|
|
|
|
true:
|
|
mov $1,4(sp)
|
|
jmp .p
|
|
|
|
false:
|
|
clr 4(sp)
|
|
jmp .p
|