mirror of https://github.com/RevCurtisP/C02.git
27 lines
847 B
Plaintext
27 lines
847 B
Plaintext
;Module arg,h02 Assembly Language Routines
|
|
;Command Line Arguments Not Supported
|
|
|
|
SUBROUTINE ARGS
|
|
|
|
;Argument Parser Constants
|
|
ARGFLG EQU $FF ;Command Arguments Not Supported
|
|
ARGDLM EQU $00 ;Argument Separator (NUL)
|
|
ARGTRM EQU $00 ;Argument Terminator (NUL)
|
|
|
|
;argset() - Set Up Argument List
|
|
;Returns: A = $FF - No Arguments Found
|
|
ARGSET: LDA #$FF ;Return No Arguments Found
|
|
|
|
;argget(s) - Read Next Argument
|
|
;Args: X,Y - Pointer to String
|
|
;Sets: DSTPTR - Destination Pointer
|
|
; (DSTPTR) to Empty String
|
|
;Returns: A = 0 - No More Arguments
|
|
ARGGET: JSR SETDST ;Set Destination Pointer0[
|
|
LDY #0 ;Set String Length to Zero
|
|
TAY ;
|
|
STA (DSTPTR),Y ;Make String Empty
|
|
RTS ;and Return Length Zero
|
|
|
|
ENDSUBROUTINE
|