        .globl  out,input,debug,debu
start:  mov     #170000,sp
debu:   movb    #'],r0
        jsr     pc,out
        movb    #' ,r0
        jsr     pc,out
        mov     #str,r1
inlp:   jsr     pc,input
        jsr     pc,out
        movb    r0,(r1)+
        cmpb    #15,r0
        bne     inlp
        movb    #0,-1(r1)
        movb    #12,r0
        jsr     pc,out
        mov     #str,-(sp)
        jsr     pc,debug
        halt
str:    .blkb   120
        .end    start
