prodos-path/echo.cmd.s


        .include "apple2.inc"
        .include "more_apple2.inc"
        .include "prodos.inc"

        .org    $4000

        jsr     CROUT
        ldx     #0

        ;; Skip command and any leading spaces
        ldx     XLEN
        inx
        jsr     SkipSpaces

        ;; Echo string
:       lda     INBUF,x
        jsr     COUT
        cmp     #$D | $80
        beq     exit
        inx
        jmp     :-

exit:   clc
        rts

.proc SkipSpaces
repeat: lda     INBUF,x
        cmp     #' '|$80
        beq     :+
        rts
:       inx
        jmp     repeat
.endproc

cmd_length = .strlen("echo")
Use BI's buffers. Add ECHO, that shows INBUF problem 2019-01-09 02:36:52 +00:00
			`.include "apple2.inc"`
Add CHTYPE and CHTIME 2021-03-07 23:29:51 +00:00			`.include "more_apple2.inc"`
Add CD command 2021-04-17 16:58:22 +00:00			`.include "prodos.inc"`
Use BI's buffers. Add ECHO, that shows INBUF problem 2019-01-09 02:36:52 +00:00
			`.org $4000`

			`jsr CROUT`
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00			`ldx #0`
Use BI's buffers. Add ECHO, that shows INBUF problem 2019-01-09 02:36:52 +00:00
Add CD command 2021-04-17 16:58:22 +00:00			`;; Skip command and any leading spaces`
			`ldx XLEN`
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00			`inx`
BI Error constants; coding style 2021-04-16 02:47:41 +00:00			`jsr SkipSpaces`
Preserve INBUF 2019-01-09 06:55:06 +00:00
			`;; Echo string`
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00			`: lda INBUF,x`
Use BI's buffers. Add ECHO, that shows INBUF problem 2019-01-09 02:36:52 +00:00			`jsr COUT`
Preserve INBUF 2019-01-09 06:55:06 +00:00			`cmp #$D \| $80`
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00			`beq exit`
			`inx`
			`jmp :-`
Use BI's buffers. Add ECHO, that shows INBUF problem 2019-01-09 02:36:52 +00:00
Add CHTYPE and CHTIME 2021-03-07 23:29:51 +00:00			`exit: clc`
			`rts`
Use BI's buffers. Add ECHO, that shows INBUF problem 2019-01-09 02:36:52 +00:00
BI Error constants; coding style 2021-04-16 02:47:41 +00:00			`.proc SkipSpaces`
			`repeat: lda INBUF,x`
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00			`cmp #' '\|$80`
			`beq :+`
			`rts`
			`: inx`
BI Error constants; coding style 2021-04-16 02:47:41 +00:00			`jmp repeat`
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00			`.endproc`
Use BI's buffers. Add ECHO, that shows INBUF problem 2019-01-09 02:36:52 +00:00
			`cmd_length = .strlen("echo")`