1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-22 01:31:33 +00:00
C02/include/argset.a02
2021-09-25 15:28:49 -04:00

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