Add original unix v6
This commit is contained in:
@@ -0,0 +1,29 @@
|
||||
.globl putch,obuild
|
||||
.globl putdec
|
||||
|
||||
putdec:
|
||||
tst r0
|
||||
bge 1f
|
||||
cmp r0,$100000
|
||||
beq 2f
|
||||
mov r0,-(sp)
|
||||
mov $'-,r0
|
||||
jsr pc,putch
|
||||
mov (sp)+,r0
|
||||
neg r0
|
||||
1:
|
||||
alsc $-16.,r0
|
||||
dvd $10.,r0
|
||||
beq 1f
|
||||
mov r1,-(sp)
|
||||
jsr pc,1b
|
||||
mov (sp)+,r1
|
||||
1:
|
||||
mov r1,r0
|
||||
add $'0,r0
|
||||
jmp putch
|
||||
2:
|
||||
mov $1f,r0
|
||||
jmp obuild
|
||||
1:
|
||||
<-32768\0>;.even
|
||||
Reference in New Issue
Block a user