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.
jmp __mappederrno
_exec:
+ ; Save cmdline
+ sta ptr4
+ stx ptr4+1
+
; Get and push name
jsr popax
jsr pushname
; 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
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
dex
dex
dex
-
+
; Set I/O buffer
sta mliparam + MLI::OPEN::IO_BUFFER
stx mliparam + MLI::OPEN::IO_BUFFER+1
stx level
beq :+
dec LEVEL
-
+
; Open file
: lda #OPEN_CALL
ldx #OPEN_COUNT
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
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
; Quit to ProDOS dispatcher
quit = * - source + target
-: jsr $BF00
+error: jsr $BF00
.byte $65 ; QUIT
.word quit_param
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
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
ELLIPSES:
.byte " ...", $0D, $0D, $00
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; ------------------------------------------------------------------------
-.segment "DATA_0300"
+ .segment "DATA_0300"
READ_PARAM:
.byte $04 ;PARAM_COUNT
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
; 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 :-
; 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 :--
lda #<LOADING
ldx #>LOADING
jsr PRINT
- lda #<(PATHNAME + 1)
- ldx #>(PATHNAME + 1)
+ lda #<(PATHNAME+1)
+ ldx #>(PATHNAME+1)
jsr PRINT
lda #<ELLIPSES
ldx #>ELLIPSES
; 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
.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)
: ora #$80
jsr COUT
iny
- bne :-- ; bra
+ bne :-- ; Branch always
: rts
ERROR:
lda #<FILE_NOT_FOUND
ldx #>FILE_NOT_FOUND
jsr PRINT
- beq :++ ; bra
+ beq :++ ; Branch always
: pha
lda #<ERROR_NUMBER
ldx #>ERROR_NUMBER
jsr MLI
.byte QUIT_CALL
.word QUIT_PARAM
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
projects / cc65 / commitdiff