mirror of
https://github.com/cc65/cc65.git
synced 2025-01-10 19:29:45 +00:00
Added cmdline support to exec().
The starting point is the CALL2051:REM <cmdline> approach. It uses the BASIC input buffer at $200. ProDOS stores the name of the loaded program at $280 (which we want for argv[0]) leaving us with 128 char buffer. If we run the program via exec() we don't need the CALL2051 but only the REM token (which is just one char). So have a maximum cmdline length of 126 (plus a terminating zero). There's no specification for ProDOS BIN file cmdline parameters so exec() just supports the CALL2051:REM <cmdline> approach. In contrast ProDOS SYS files allow for a 'startup filename'. A ProDOS filename is short than 126 chars so having exec() general cut the cmdline after 126 chars seems reasonable. If the SYS file we exec() allows for less we cut the cmdline further. Our 'loader.system' SYS file however allows for an unusually 126 char long "startup filename" as it is targeted towards cc65 BIN porgrams with their 126 cmdline length.
This commit is contained in:
Oliver Schmidt
parent
88fe6b615b
commit
3c1cd0d867
@ -23,6 +23,10 @@ oserr: jsr popname ; Preserves A
|
||||
jmp __mappederrno
|
||||
|
||||
_exec:
|
||||
; Save cmdline
|
||||
sta ptr4
|
||||
stx ptr4+1
|
||||
|
||||
; Get and push name
|
||||
jsr popax
|
||||
jsr pushname
|
||||
@ -33,7 +37,7 @@ _exec:
|
||||
; is stored at $280, starting with a length byte."
|
||||
; In fact BASIC.SYSTEM does the same for BLOAD and BRUN of
|
||||
; binary programs so we should do the same too in any case
|
||||
; especially as _we_ rely on it in mainargs.s for argv[0].
|
||||
; especially as _we_ rely on it in mainargs.s for argv[0]
|
||||
ldy #$00
|
||||
lda (sp),y
|
||||
tay
|
||||
@ -66,13 +70,14 @@ _exec:
|
||||
lda mliparam + MLI::INFO::FILE_TYPE
|
||||
cmp #$FF ; SYS file?
|
||||
bne binary ; No, check for BIN file
|
||||
sta file_type ; Save file type for cmdline handling
|
||||
|
||||
; SYS programs replace BASIC.SYSTEM so set in the ProDOS system bit map
|
||||
; protection for pages $80 - $BF just in case BASIC.SYSTEM is there now
|
||||
ldx #$0F ; Start with protection for pages $B8 - $BF
|
||||
lda #%00000001 ; Protect only system global page
|
||||
: sta $BF60,x ; Set protection for 8 pages
|
||||
lda #$00 ; Protect no page
|
||||
lda #%00000000 ; Protect no page
|
||||
dex
|
||||
bpl :-
|
||||
bmi prodos ; Branch always
|
||||
@ -115,7 +120,7 @@ setbuf: lda #$00 ; Low byte
|
||||
dex
|
||||
dex
|
||||
dex
|
||||
|
||||
|
||||
; Set I/O buffer
|
||||
sta mliparam + MLI::OPEN::IO_BUFFER
|
||||
stx mliparam + MLI::OPEN::IO_BUFFER+1
|
||||
@ -129,7 +134,7 @@ setbuf: lda #$00 ; Low byte
|
||||
stx level
|
||||
beq :+
|
||||
dec LEVEL
|
||||
|
||||
|
||||
; Open file
|
||||
: lda #OPEN_CALL
|
||||
ldx #OPEN_COUNT
|
||||
@ -161,8 +166,27 @@ setbuf: lda #$00 ; Low byte
|
||||
bit $C080
|
||||
.endif
|
||||
|
||||
; Reset stack we already passed
|
||||
; the point of no return anyway
|
||||
ldx #$FF
|
||||
txs
|
||||
|
||||
; Store up to 127 chars of cmdline (if any)
|
||||
; including terminating zero in stack page
|
||||
ldy #$00
|
||||
lda ptr4+1 ; NULL?
|
||||
beq :++ ; Yes, store as '\0'
|
||||
: lda (ptr4),y
|
||||
: sta $0100,y
|
||||
beq :+ ; '\0' stored, done
|
||||
iny
|
||||
cpy #$7E
|
||||
bcc :--
|
||||
lda #$00 ; '\0'
|
||||
beq :- ; Branch always
|
||||
|
||||
; Call loader stub after C libary shutdown
|
||||
lda #<target
|
||||
: lda #<target
|
||||
ldx #>target
|
||||
sta done+1
|
||||
stx done+2
|
||||
@ -180,16 +204,58 @@ level : .res 1
|
||||
source: jsr $BF00
|
||||
.byte READ_CALL
|
||||
.word read_param
|
||||
bcs :+
|
||||
bcs error
|
||||
|
||||
; Close program file
|
||||
jsr $BF00
|
||||
.byte CLOSE_CALL
|
||||
.word close_param
|
||||
bcs :+
|
||||
bcs error
|
||||
|
||||
; Check for cmdline handling
|
||||
lda $0100 ; Valid cmdline?
|
||||
beq jump ; No, jump to program right away
|
||||
ldx file_type ; SYS file?
|
||||
bne system ; Yes, check for startup filename
|
||||
|
||||
; Store REM and cmdline in BASIC input buffer
|
||||
lda #$B2 ; REM token
|
||||
bne :++ ; Branch always
|
||||
: inx
|
||||
lda a:$0100-1,x
|
||||
: sta $0200,x
|
||||
bne :--
|
||||
beq jump ; Branch always
|
||||
|
||||
; Check for startup filename support
|
||||
; ProDOS TechRefMan, chapter 5.1.5.1:
|
||||
; "$2000 is a jump instruction. $2003 and $2004 are $EE."
|
||||
system: lda $2000
|
||||
cmp #$4C
|
||||
bne jump
|
||||
lda $2003
|
||||
cmp #$EE
|
||||
bne jump
|
||||
lda $2004
|
||||
cmp #$EE
|
||||
bne jump
|
||||
|
||||
; Store cmdline in startup filename buffer
|
||||
ldx #$01
|
||||
: lda a:$0100-1,x
|
||||
beq :+
|
||||
sta $2006,x
|
||||
inx
|
||||
cpx $2005 ; Buffer full?
|
||||
bcc :- ; No, continue
|
||||
: dex
|
||||
stx $2006 ; Store cmdline length
|
||||
|
||||
; Go for it ...
|
||||
jmp (data_buffer)
|
||||
jump: jmp (data_buffer)
|
||||
|
||||
file_type = * - source + target
|
||||
.byte $00
|
||||
|
||||
read_param = * - source + target
|
||||
.byte $04 ; PARAM_COUNT
|
||||
@ -207,7 +273,7 @@ close_ref = * - source + target
|
||||
|
||||
; Quit to ProDOS dispatcher
|
||||
quit = * - source + target
|
||||
: jsr $BF00
|
||||
error: jsr $BF00
|
||||
.byte $65 ; QUIT
|
||||
.word quit_param
|
||||
|
||||
|
||||
@ -34,12 +34,12 @@
|
||||
MAXARGS = 10
|
||||
|
||||
; ProDOS stores the filename in the second half of BASIC's input buffer, so
|
||||
; there are 128 characters left. At least 1 characters is necessary for the
|
||||
; REM so 127 characters may be used before overwriting the ProDOS filename.
|
||||
; As we don't want to put further restrictions on the command-line length
|
||||
; we reserve those 127 characters terminated by a zero.
|
||||
; there are 128 characters left. At least 1 character is necessary for the
|
||||
; REM so 127 characters (including the terminating zero) may be used before
|
||||
; overwriting the ProDOS filename. As we don't want to further restrict the
|
||||
; command-line length we reserve those 127 characters.
|
||||
|
||||
BUF_LEN = 128
|
||||
BUF_LEN = 127
|
||||
|
||||
BASIC_BUF = $200
|
||||
FNAM_LEN = $280
|
||||
|
||||
@ -22,14 +22,14 @@ READ_CALL = $CA
|
||||
CLOSE_CALL = $CC
|
||||
FILE_NOT_FOUND_ERR = $46
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; ------------------------------------------------------------------------
|
||||
|
||||
.import __CODE_0300_SIZE__, __DATA_0300_SIZE__
|
||||
.import __CODE_0300_LOAD__, __CODE_0300_RUN__
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; ------------------------------------------------------------------------
|
||||
|
||||
.segment "DATA_2000"
|
||||
.segment "DATA_2000"
|
||||
|
||||
GET_FILE_INFO_PARAM:
|
||||
.byte $0A ;PARAM_COUNT
|
||||
@ -57,9 +57,9 @@ LOADING:
|
||||
ELLIPSES:
|
||||
.byte " ...", $0D, $0D, $00
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; ------------------------------------------------------------------------
|
||||
|
||||
.segment "DATA_0300"
|
||||
.segment "DATA_0300"
|
||||
|
||||
READ_PARAM:
|
||||
.byte $04 ;PARAM_COUNT
|
||||
@ -81,22 +81,22 @@ QUIT_PARAM:
|
||||
|
||||
FILE_NOT_FOUND:
|
||||
.asciiz "... File Not Found"
|
||||
|
||||
|
||||
ERROR_NUMBER:
|
||||
.asciiz "... Error $"
|
||||
|
||||
PRESS_ANY_KEY:
|
||||
.asciiz " - Press Any Key "
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; ------------------------------------------------------------------------
|
||||
|
||||
.segment "CODE_2000"
|
||||
.segment "CODE_2000"
|
||||
|
||||
jmp :+
|
||||
.byte $EE
|
||||
.byte $EE
|
||||
.byte $80
|
||||
STARTUP:.res $80
|
||||
.byte $7F
|
||||
STARTUP:.res $7F
|
||||
|
||||
; Reset stack
|
||||
: ldx #$FF
|
||||
@ -104,8 +104,8 @@ STARTUP:.res $80
|
||||
|
||||
; Relocate CODE_0300 and DATA_0300
|
||||
ldx #<(__CODE_0300_SIZE__ + __DATA_0300_SIZE__)
|
||||
: lda __CODE_0300_LOAD__ - 1,x
|
||||
sta __CODE_0300_RUN__ - 1,x
|
||||
: lda __CODE_0300_LOAD__-1,x
|
||||
sta __CODE_0300_RUN__-1,x
|
||||
dex
|
||||
bne :-
|
||||
|
||||
@ -118,13 +118,13 @@ STARTUP:.res $80
|
||||
; Add trailing '\0' to pathname
|
||||
tax
|
||||
lda #$00
|
||||
sta PATHNAME + 1,x
|
||||
sta PATHNAME+1,x
|
||||
|
||||
; Copy ProDOS startup filename and trailing '\0' to stack
|
||||
ldx STARTUP
|
||||
lda #$00
|
||||
beq :++ ; bra
|
||||
: lda STARTUP + 1,x
|
||||
beq :++ ; Branch always
|
||||
: lda STARTUP+1,x
|
||||
: sta STACK,x
|
||||
dex
|
||||
bpl :--
|
||||
@ -133,8 +133,8 @@ STARTUP:.res $80
|
||||
lda #<LOADING
|
||||
ldx #>LOADING
|
||||
jsr PRINT
|
||||
lda #<(PATHNAME + 1)
|
||||
ldx #>(PATHNAME + 1)
|
||||
lda #<(PATHNAME+1)
|
||||
ldx #>(PATHNAME+1)
|
||||
jsr PRINT
|
||||
lda #<ELLIPSES
|
||||
ldx #>ELLIPSES
|
||||
@ -159,16 +159,16 @@ STARTUP:.res $80
|
||||
|
||||
; Get load address from aux-type
|
||||
lda FILE_INFO_ADDR
|
||||
ldx FILE_INFO_ADDR + 1
|
||||
ldx FILE_INFO_ADDR+1
|
||||
sta READ_ADDR
|
||||
stx READ_ADDR + 1
|
||||
stx READ_ADDR+1
|
||||
|
||||
; It's high time to leave this place
|
||||
jmp __CODE_0300_RUN__
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; ------------------------------------------------------------------------
|
||||
|
||||
.segment "CODE_0300"
|
||||
.segment "CODE_0300"
|
||||
|
||||
jsr MLI
|
||||
.byte READ_CALL
|
||||
@ -180,15 +180,15 @@ STARTUP:.res $80
|
||||
.word CLOSE_PARAM
|
||||
bcs ERROR
|
||||
|
||||
; Copy REM token and startup filename to BASIC input buffer
|
||||
; Copy REM and startup filename to BASIC input buffer
|
||||
ldx #$00
|
||||
lda #$B2
|
||||
bne :++ ; bra
|
||||
lda #$B2 ; REM token
|
||||
bne :++ ; Branch always
|
||||
: inx
|
||||
lda a:STACK - 1,x
|
||||
lda a:STACK-1,x
|
||||
: sta BUF,x
|
||||
bne :--
|
||||
|
||||
|
||||
; Go for it ...
|
||||
jmp (READ_ADDR)
|
||||
|
||||
@ -207,7 +207,7 @@ PRINT:
|
||||
: ora #$80
|
||||
jsr COUT
|
||||
iny
|
||||
bne :-- ; bra
|
||||
bne :-- ; Branch always
|
||||
: rts
|
||||
|
||||
ERROR:
|
||||
@ -216,7 +216,7 @@ ERROR:
|
||||
lda #<FILE_NOT_FOUND
|
||||
ldx #>FILE_NOT_FOUND
|
||||
jsr PRINT
|
||||
beq :++ ; bra
|
||||
beq :++ ; Branch always
|
||||
: pha
|
||||
lda #<ERROR_NUMBER
|
||||
ldx #>ERROR_NUMBER
|
||||
@ -230,5 +230,3 @@ ERROR:
|
||||
jsr MLI
|
||||
.byte QUIT_CALL
|
||||
.word QUIT_PARAM
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user