prodos-path/echo.cmd.s


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

        .org    $4000

        jsr     CROUT
        ldx     #0

        ;; Skip any leading spaces
        jsr     SkipSpaces

        ;; Invoked with "-" ?
        lda     INBUF,x
        cmp     #'-'|$80
        bne     :+
        inx
:
        ;; Skip any more leading spaces
        jsr     SkipSpaces

        ;; Skip command name (i.e. "echo")
        txa
        clc
        adc     #cmd_length
        tax

        ;; Skip leading spaces before string to echo
        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"`
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
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00			`;; Skip any leading spaces`
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
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00			`;; Invoked with "-" ?`
Preserve INBUF 2019-01-09 06:55:06 +00:00			`lda INBUF,x`
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00			`cmp #'-'\|$80`
			`bne :+`
			`inx`
			`:`
			`;; Skip any more leading spaces`
BI Error constants; coding style 2021-04-16 02:47:41 +00:00			`jsr SkipSpaces`
Don't require CLC, fix BELL, handle spaces in ECHO 2019-01-10 00:09:58 +00:00
			`;; Skip command name (i.e. "echo")`
			`txa`
			`clc`
			`adc #cmd_length`
			`tax`

			`;; Skip leading spaces before string to echo`
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")`