Add original unix v6
This commit is contained in:
@@ -0,0 +1,18 @@
|
||||
f = r5
|
||||
i = r3
|
||||
.globl j
|
||||
.globl succ
|
||||
.globl ctest,iget
|
||||
.globl string
|
||||
|
||||
string:
|
||||
tst -(sp)
|
||||
jsr pc,iget
|
||||
1:
|
||||
mov j(f),(sp)
|
||||
mov r0,-(sp)
|
||||
jsr pc,ctest
|
||||
mov (sp)+,r0
|
||||
bcs 1b
|
||||
mov (sp)+,j(f)
|
||||
jmp succ
|
||||
Reference in New Issue
Block a user