Add original unix v6
This commit is contained in:
@@ -0,0 +1,45 @@
|
||||
.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
|
||||
Reference in New Issue
Block a user