putoct.s

来自「UNIX v6源代码 这几乎是最经典的unix版本 unix操作系统设计和莱」· S 代码 · 共 19 行

.globl putch,obuild
.globl putoct


putoct:	mov	r0,-(sp)
	bic	$7,r0
	bic	r0,(sp)
	clc
	ror	r0
	ror	r0
	ror	r0
	beq	1f
	jsr	pc,putoct
1:
	mov	(sp)+,r0
	add	$'0,r0
	jsr	pc,putch
	rts	pc