AUSAM/source/libc/printf.s
/ C library -- printf
.globl _printf
.globl _prfb / selectable pad char for left padding
.globl _prfa / selectable pad char for right padding
.globl pfloat
.globl pscien
.globl _putchar
.globl csv
.globl cret
_printf:
jsr r5,csv
sub $140.,sp
mov 4(r5),formp / format
mov r5,r4
add $6,r4 / arglist
clr savr4
loop:
tst savr4
beq 1f
mov savr4,r4
tst (r4)+
clr savr4
1:
movb *formp,r0
beq 1f
inc formp
cmp r0,$'%
beq 2f
3:
mov r0,(sp)
jsr pc,putch
br loop
1:
jmp cret
2:
clr rjust
clr ndigit
cmpb *formp,$'-
bne 2f
inc formp
inc rjust
2:
jsr r3,gnum
mov r1,width
clr ndfnd
cmp r0,$'.
bne 1f
jsr r3,gnum
mov r1,ndigit
1:
mov sp,r3
add $4,r3
mov $swtab,r1
1:
cmpb r0,$'@
bne 1f
mov r4,savr4
mov *r4,r4
movb *formp,r0
inc formp
1:
mov (r1)+,r2
beq 3b
cmp r0,(r1)+
bne 1b
jmp (r2)
.data
swtab:
decimal; 'd
octal; 'o
hex; 'x
tab; 't
float; 'f
scien; 'e
charac; 'c
string; 's
longorunsg; 'l
unsigned; 'u
remote; 'r
long; 'D
loct; 'O
lhex; 'X
0; 0
.text
decimal:
mov (r4)+,r1
bge 1f
neg r1
movb $'-,(r3)+
br 1f
longorunsg:
movb *formp,r0
inc formp
cmp r0,$'o
beq loct
cmp r0,$'x
beq lhex
cmp r0,$'d
beq long
dec formp
br unsigned
unsigned:
mov (r4)+,r1
1:
jsr pc,1f
jmp prbuf
1:
clr r0
div $10.,r0
mov r1,-(sp)
mov r0,r1
beq 1f
jsr pc,1b
1:
mov (sp)+,r0
add $'0,r0
movb r0,(r3)+
rts pc
long:
mov (r4)+,r2
mov (r4)+,r0
mov r4,-(sp)
mov r3,r4
mov r0,r3
tst r2
bpl 1f
neg r2
neg r3
sbc r2
movb $'-,(r4)+
1:
jsr pc,1f
mov r4,r3
mov (sp)+,r4
jbr prbuf
1:
mov r2,r1
clr r0
div $10.,r0
mov r0,r2
mov r1,r0
mov r3,r1
div $20.,r0
asl r0
cmp $10.,r1
bgt 0f
inc r0
sub $10.,r1
0: mov r0,r3
add $'0,r1
mov r1,-(sp)
ashc $0,r2
beq 1f
jsr pc,1b
1:
movb (sp)+,(r4)+
rts pc
charac:
movb (r4)+,(r3)+
bne 1f
dec r3
1:
movb (r4)+,(r3)+
bne prbuf
dec r3
br prbuf
string:
mov ndigit,r1
clr r3
mov (r4),r2
bne 1f
mov $nulstr,r2
mov r2,(r4)
1:
tstb (r2)+
beq 1f
inc r3
sob r1,1b
1:
mov (r4)+,r2
br prstr
lhex:
mov (r4)+,r0
br 1f
hex:
clr r0
1:
mov $1f,r2
.data
1:
-4; !17; 170000
.text
br 2f
loct:
mov (r4)+,r0
br 1f
octal:
clr r0
1:
mov $1f,r2
.data
1:
-3; !7; 160000
.text
2:
mov (r4)+,r1
ashc $0,r0
beq 2f
tst ndigit
beq 2f
movb $'0,(r3)+
2:
jsr pc,1f
br prbuf
1:
mov r1,-(sp)
ashc (r2),r0
bic 4(r2),r0
ashc $0,r0
beq 1f
jsr pc,1b
1:
mov (sp)+,r0
bic 2(r2),r0
add $'0,r0
cmp r0,$'9
ble 1f
add $'A-'0-10.,r0
1:
movb r0,(r3)+
rts pc
remote:
/ mov (r4)+,r4
mov (r4)+,formp
0: jbr loop
float:
mov ndigit,r0
mov ndfnd,r2
jsr pc,pfloat
br prbuf
scien:
mov ndigit,r0
mov ndfnd,r2
jsr pc,pscien
br prbuf
tab:
dec width
mov nput,r1
sub width,r1
beq 0b
blt 1f
mov $10,r0
br 2f
1: mov $40,r0
neg r1
2: movb r0,(r3)+
sob r1,2b
clr width
/ br prbuf
prbuf:
mov sp,r2
add $4,r2
sub r2,r3
prstr:
mov r4,-(sp)
movb _prfb,-(sp) / flexible left padding
mov r3,r4
neg r3
add width,r3
ble 1f
tst rjust
bne 1f
2:
jsr pc,putch
sob r3,2b
1:
tst r4
beq 2f
1:
movb (r2)+,(sp)
jsr pc,putch
sob r4,1b
2:
tst r3
ble 1f
movb _prfa,(sp) / flexible right padding
2:
jsr pc,putch
sob r3,2b
1:
tst (sp)+
mov (sp)+,r4
jmp loop
gnum:
clr ndfnd
clr r1
1:
movb *formp,r0
inc formp
sub $'0,r0
cmp r0,$'*-'0
bne 2f
mov (r4)+,r0
br 3f
2:
cmp r0,$9.
bhi 1f
3:
inc ndfnd
mul $10.,r1
add r0,r1
br 1b
1:
add $'0,r0
rts r3
putch:
mov 2(sp),r0
cmp r0,$15
bgt 1f
sub $10,r0
blt 1f
asl r0
jmp *2f(r0)
.data
2:
bs /backspace
tabb /horizontal tab
crlf /line feed
crlf /vertical tab
crlf /form feed
crlf /carriage return
.text
bs:
dec nput
br 3f
tabb: add $10,nput
bic $7,nput
br 3f
crlf: clr nput
br 3f
1:
inc nput
3:
jmp *$_putchar
.bss
width: .=.+2
formp: .=.+2
rjust: .=.+2
ndfnd: .=.+2
ndigit: .=.+2
savr4: .=.+2
nput: .=.+2
.data
nulstr:
<(null)\0>
_prfb: < > / pad character for right justifying
_prfa: < > / pad character for left justifying