1 REM Ins{nd av Kristoffer Eriksson <5357>    1986-05-30 03.02.37
; Fil: CLINEPAR.ASM - Hitta kommandoradsparametrar.
; Av:  Kristoffer Eriksson, "SKE" <5357>, ABC-klubben <5357>, 1986.
; F}r kopieras helt utan restriktioner, dock {r jag tacksam om mitt namn
; och versionsnumret n{mns {ven i kopian.
;
; Om ett program startas med t ex "RUN NAMN, [PPLE", letar Clinepar upp
; adressen till texten "[PPLE".
;
;-Ver--/-Datum----/-Sign-/-Kommentar----------------------------------
; 1.00 / 86-05-20 / SKE  /
;
            EXPORT Clinepar

;*   Ta reda p} adressen till kommandoradsbufferten, och kolla om det gavs
;*   n}gra extra parametrar efter filnamnet och kommatecken.
;*   Resultat: Sann Carry om inget "," kunde hittas.
;*             Falsk Carry annars, och
;*             HL = Adress till f|rsta oblanka tecknet efter ",",
;*             A  = F|rsta oblanka tecknet,
;*             C  = Antal tecken mellan "," och CR,
;*
Skipsp:     =     24
HLbuf1:     =     81

Clinepar:   AND   A
            CALL  HLbuf1
            LD    B,C                 ; Buffertl{ngd.
            CALL  Clp.Kom             ; S|k ",".
            PUSH  HL
            CALL  NC,Clp.Cr           ; Kolla CR.
            POP   HL
            CALL  NC,Skipsp           ; Hoppa |ver blanka.
            RET

Clp.Kom:    LD    A,(HL)              ; Leta upp kommatecken om det finns.
            CP    13
            SCF
            RET   Z
            CP    ","
            RET   Z
            INC   HL
            DJNZ  Clp.kom
            SCF
            RET

Clp.Cr:     LD    A,13                ; Kolla att CR finns med i raden, och
            LD    C,0                 ; r{kna antalet tecken f|re.
Clp.loop2:  CP    (HL)
            RET   Z
            INC   HL
            INC   C
            DJNZ  Clp.loop2
            SCF
            RET