mirror of
https://github.com/a2stuff/prodos-path.git
synced 2024-06-25 12:29:32 +00:00
32 lines
458 B
ArmAsm
32 lines
458 B
ArmAsm
|
|
.include "apple2.inc"
|
|
|
|
CROUT := $FD8E
|
|
COUT := $FDED
|
|
INBUF := $200
|
|
|
|
.org $4000
|
|
|
|
jsr CROUT
|
|
|
|
ldx #cmd_length-1
|
|
|
|
;; Skip spaces
|
|
: inx
|
|
lda INBUF,x
|
|
cmp #' ' | $80
|
|
beq :-
|
|
dex
|
|
|
|
;; Echo string
|
|
: inx
|
|
lda INBUF,x
|
|
jsr COUT
|
|
cmp #$D | $80
|
|
bne :-
|
|
|
|
clc
|
|
rts
|
|
|
|
|
|
cmd_length = .strlen("echo") |