;
; SHOWC
        .macro      showc  addr, len
        movab       addr, r0
        movl        len, r1
        jsb         writestr
        .endm       showc
;
; GETSTR
        .macro      getstr  addr, len
        movab       addr, r0
        movl        len, r1
        jsb         readstr
        .endm       getstr
;

; CLOSE
            .macro      close   stream
            $close      fab=stream
            .endm       close
;