; Get Parameter for DOS II+/D¢; Results:¢;C=1- neither DOS II+/D nor SDX¢;Z=1- no more parameters¢; IfZ=0& C=0:¢;AY- pointer to parameter¢;X- length of parameter¢¢Getparlda$0700¢asl¢cmp#'D*2¢beq?d2p¢cmp#'S*2¢beq?sdx¢sec¢rts¢¢?d2plda#<?d2dp; Init for¢ldx#>?d2dp; DOS II+/D¢jsr?stdos¢¢lda$13c3¢sta?cur¢¢ldy$0348¢lda$1b00¢cmp#'M¢beq?dec¢lda$1b01¢cmp$13c3¢beq?skp¢?decdey¢dey¢?skplda#$9b¢sta$1b02,y¢¢?dos2dldy#$00; DOS II+/D¢?nxtlda$1b03,y¢iny¢cmp#$20¢beq?fnd¢cmp#$9b¢bne?nxt¢php¢ldx#$03¢?ccrlda?cur,x¢sta$0580,x¢dex¢bpl?ccr¢bmi?aex¢¢?fndldx#<$1b03¢stx$f3¢ldx#>$1b03¢stx$f4¢jsr$dba5¢jsr$14b9¢ldx#$ff¢?mvinx¢lda$1b00,x¢sta$0580,x¢cmp#$20¢beq?pel¢cmp#$9b¢bne?mv¢?pellda#$9b¢sta$0580,x¢php¢?aexlda#<$0580¢ldy#>$0580¢plp¢clc¢rts¢¢?cur.by"D :" $9b¢¢?sdxlda#<?spx; Init for¢ldx#>?spx; SpartaDOS¢jsr?stdos¢ldy#$04¢lda($0a),y¢sta?spdos+1¢iny¢lda($0a),y¢sta?spdos+2¢lda$0a¢adc#$20; C=0¢sta?lo+1¢lda$0b¢adc#$00¢sta?hi+1¢¢?spdosjsr0; SpartaDOS¢php¢?lolda#$00¢?hildy#$00¢plp¢clc¢rts¢¢?stdossta?ad+1¢stx?ad+2¢ldy#$02¢?adlda0,y¢stagetpar,y¢dey¢bpl?ad¢rts¢¢?d2dpjmp?dos2d¢?spxjmp?spdos¢
