        .globl  output
output: mov     2(sp),r0
        mov     #80.,r2
loop1:  movb    (r0)+,r1
        beq     end
loop2:  tstb    177564
        bpl     loop2
        movb    r1,177566
        sob     r2,loop1
end:    rts     pc
        .end
