.include "lib/macros.xyw" 

; Set on_argument event handler
print-args terminal.on_argument STW
; End program
HLT

; on_argument event handler
; -[x]-
.label print-args
    terminal.input POPx
    ; If end of argument, print new line and end
    LDBx arg.end EQU print-args.end JCNw
    LDBx arg.sep EQU print-args.next JCNw
    ; Print typed character
    LDBx PUTC
    RTS
    ; Print argument separator (, )
    .label print-args.next
        $2C PUTC
        SP
        RTS
    ; Print new line
    .label print-args.end
        NL
        RTS