1984-07-19 13:34:12 +00:00
|
|
|
/ $Header$
|
1984-07-19 12:51:00 +00:00
|
|
|
.text
|
|
|
|
|
.globl prf~
|
|
|
|
|
.globl save~,retu~,hol0,_printf
|
|
|
|
|
|
|
|
|
|
prf~:
|
|
|
|
|
jsr pc,save~
|
|
|
|
|
mov hol0,-(sp)
|
|
|
|
|
mov hol0+4,r0
|
|
|
|
|
beq 1f
|
|
|
|
|
mov r0,r2
|
|
|
|
|
mov $40.,r1
|
|
|
|
|
3: movb (r2)+,r3
|
|
|
|
|
beq 2f
|
|
|
|
|
cmpb r3,$0177
|
|
|
|
|
bge 1f
|
|
|
|
|
cmpb r3,$040
|
|
|
|
|
blt 1f
|
|
|
|
|
sob r1,3b
|
|
|
|
|
clrb (r2)
|
|
|
|
|
2: mov sp,r1
|
|
|
|
|
mov r1,-(sp)
|
|
|
|
|
mov r0,-(sp)
|
|
|
|
|
mov $fmt,-(sp)
|
|
|
|
|
jsr pc,_printf
|
|
|
|
|
add $010,sp
|
|
|
|
|
jsr pc,_printf
|
|
|
|
|
jmp retu~
|
|
|
|
|
1: mov $name,r0
|
|
|
|
|
br 2b
|
|
|
|
|
|
|
|
|
|
.data
|
|
|
|
|
fmt: <"%s", sp = %d, line %d: \0>
|
|
|
|
|
name: <_unknown file_\0>
|
