Adding files for telemon30

libsrc/telemon30/mainargs.s

@@ -0,0 +1,137 @@
+;
+; 2003-03-07, Ullrich von Bassewitz
+; 2011-01-28, Stefan Haubenthal
+; 2014-09-10, Greg King
+;
+; Set up arguments for main
+;
+
+        .constructor    initmainargs, 24
+        .import         __argc, __argv
+		.import 			ptr1
+        .include        "telemon30.inc"
+        .macpack        generic
+
+MAXARGS  = 10                   ; Maximum number of arguments allowed
+
+
+
+
+
+; Assume that the program was loaded, a moment ago, by the traditional LOAD
+; statement.  Save the "most-recent filename" as argument #0.
+initmainargs:
+
+        ldx     #0      ; Limit the length
+      ;  lda     #0              ; The terminating NUL character
+       ; beq     L1              ; Branch always
+L0:     lda     BUFEDT,x
+		beq 	L3
+		cmp 	#' '
+		bne 	L1
+		lda 	#0
+		beq 	L3
+L1:     sta     name,x
+        inx
+		cpx 	#FNAME_LEN
+        bne     L0
+		lda 	#0
+L3:		
+		sta 	name,x
+        inc     __argc          ; argc always is equal to, at least, 1
+
+
+
+		
+		
+        ldy     #1 * 2          ; Point to second argv slot
+		
+next:   lda     BUFEDT,x
+        beq     done            ; End of line reached
+        inx
+        cmp     #' '            ; Skip leading spaces
+        beq     next		
+
+		
+
+		
+		
+found:  cmp     #'"'            ; Is the argument quoted?
+        beq     setterm         ; Jump if so
+        dex                     ; Reset pointer to first argument character
+		
+	
+        lda     #' '            ; A space ends the argument
+setterm:sta     term            ; Set end of argument marker
+
+; Now, store a pointer, to the argument, into the next slot.
+
+        txa                     ; Get low byte
+		clc
+		adc 	#<BUFEDT
+		bcc 	L4
+        inc 	L5+1
+L4:		
+		;add     #<args
+        sta     argv,y          ; argv[y]=&arg
+L5:		
+        lda     #>BUFEDT
+        ;adc     #>args
+        sta     argv+1,y
+        iny
+        iny
+        inc     __argc          ; Found another arg
+
+; Search for the end of the argument
+
+
+
+argloop:lda     BUFEDT,x
+        beq     done
+        inx
+        cmp     term
+        bne     argloop
+
+; We've found the end of the argument. X points one character behind it, and
+; A contains the terminating character. To make the argument a valid C string,
+; replace the terminating character by a zero.
+
+        lda     #0
+        sta     BUFEDT-1,x
+
+; Check if the maximum number of command line arguments is reached. If not,
+; parse the next one.
+
+        lda     __argc          ; Get low byte of argument count
+        cmp     #MAXARGS        ; Maximum number of arguments reached?
+        bcc     next            ; Parse next one if not		
+		
+	
+		
+		
+done:   lda     #<argv
+        ldx     #>argv
+        sta     __argv
+        stx     __argv + 1
+        rts
+		
+		
+		
+.segment        "INIT"
+
+term:   .res    1
+
+
+.data
+
+name:   .res    FNAME_LEN + 1
+args:   .res    SCREEN_XSIZE * 2 - 1
+
+ptr_current:
+	.res 2
+param_found:
+		.res 1
+; char* argv[MAXARGS+1]={name};
+argv:  
+		.addr   name
+        .res    MAXARGS * 2