Leverage the recently added exec() cmdline support in the cc65 C library for the Apple ][.
This commit is contained in:
parent
a824722862
commit
9aee07c9ad
|
@ -64,5 +64,6 @@
|
|||
#define WWW_CONF_MAX_FORMACTIONLEN 20
|
||||
#define WWW_CONF_MAX_INPUTNAMELEN 20
|
||||
#define WWW_CONF_MAX_INPUTVALUELEN 20
|
||||
#define WWW_CONF_WGET_EXEC(url) exec("wget", url)
|
||||
|
||||
#endif /* CONTIKI_CONF_H_ */
|
||||
|
|
|
@ -39,6 +39,7 @@
|
|||
;---------------------------------------------------------------------
|
||||
pathname := $0280
|
||||
mli := $BF00
|
||||
level := $BF94
|
||||
|
||||
OPEN_CALL = $C8
|
||||
READ_CALL = $CA
|
||||
|
@ -68,6 +69,9 @@ close_fd: .byte $00 ;REF_NUM
|
|||
.segment "INIT"
|
||||
|
||||
init_pfs:
|
||||
; Allow exec() to keep file open
|
||||
inc level
|
||||
|
||||
; Get prefix len of path used to load binary
|
||||
ldx pathname
|
||||
: lda pathname,x
|
||||
|
@ -80,6 +84,15 @@ init_pfs:
|
|||
;---------------------------------------------------------------------
|
||||
.code
|
||||
|
||||
done_pfs:
|
||||
; Close all file
|
||||
lda #$00
|
||||
jsr _pfs_close
|
||||
|
||||
; Allow exec() to keep file open
|
||||
dec level
|
||||
rts
|
||||
|
||||
_pfs_open:
|
||||
; Pop and store name
|
||||
jsr popax
|
||||
|
@ -131,9 +144,6 @@ _pfs_read:
|
|||
ldx read_count_out+1
|
||||
rts
|
||||
|
||||
done_pfs:
|
||||
lda #$00
|
||||
|
||||
_pfs_close:
|
||||
; Store fd
|
||||
sta close_fd
|
||||
|
|
Loading…
Reference in a new issue