mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-22 01:31:33 +00:00
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
|
||
|
|
|