mirror of https://github.com/RevCurtisP/C02.git
13 lines
404 B
Plaintext
13 lines
404 B
Plaintext
;Module ARGS generic ARGGET routinr
|
|
|
|
;argset() - Set Up Argument List
|
|
;Skips Spaces Between 'R' and First Argument
|
|
;Returns: A = $FF - No Arguments Found
|
|
ARGSET: LDX SYSBFP ;Get Buffer Position
|
|
LDA SYSBFR,X ;Get Character At Position
|
|
BEQ .SNOPE ;If Not NUL
|
|
LDA #$FF ; Return Success
|
|
.SNOPE EOR #$FF ;Else Return No Arguments
|
|
RTS
|
|
|