;
; File generated by cc65 v 2.19 - Git ab8bb268
;
	.fopt		compiler,"cc65 v 2.19 - Git ab8bb268"
	.setcpu		"65C02"
	.smart		on
	.autoimport	on
	.case		on
	.debuginfo	off
	.importzp	sp, sreg, regsave, regbank
	.importzp	tmp1, tmp2, tmp3, tmp4, ptr1, ptr2, ptr3, ptr4
	.macpack	longbranch
	.export		_exec
	.import		_exit
	.import		_utoa
	.import		_strncat
	.import		__mappederrno
	.import		_getcurrentdevice
	.import		_vartab
	.import		_memsize
	.importzp	_txtptr
	.import		_basbuf
	.importzp	_basbuf_len

.segment	"DATA"

.segment	"LOWCODE"
_basic:
	.byte	$00
	.addr	_basic+37
	.word	$0000
	.byte	$9C
	.byte	$3A
	.byte	$93
	.byte	$22,$22
	.byte	$AA
	.byte	$22
	.byte	$22,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	.byte	$20,$20,$20,$20,$20
	.byte	$2C
	.byte	$30,$31,$00
.segment	"DATA"

; ---------------------------------------------------------------
; int __near__ __fastcall__ exec (const char *progname, const char *cmdline)
; ---------------------------------------------------------------

.segment	"CODE"

.proc	_exec: near

.segment	"CODE"

	jsr     pushax
	jsr     _getcurrentdevice
	sta     M0001
	cmp     #$08
	bcc     L000E
	cmp     #$1F
	bcs     L000E
	bra     L000F
L000E:	lda     #$09
	jsr     __mappederrno
	jmp     L0001
L000F:	lda     M0001
	jsr     pusha0
	lda     #<(_basic+34)
	ldx     #>(_basic+34)
	jsr     pushax
	ldx     #$00
	lda     #$0A
	jsr     _utoa
	stz     M0002
L0005:	lda     #<(_basic+12)
	ldx     #>(_basic+12)
	clc
	adc     M0002
	bcc     L0009
	inx
L0009:	sta     sreg
	stx     sreg+1
	ldy     #$03
	jsr     ldaxysp
	ldy     M0002
	sta     ptr1
	stx     ptr1+1
	lda     (ptr1),y
	sta     (sreg)
	cmp     #$00
	beq     L0006
	inc     M0002
	lda     M0002
	cmp     #$14
	bcc     L0005
L0006:	ldy     M0002
	lda     #$22
	sta     _basic+12,y
	lda     _memsize
	sec
	sta     _vartab
	lda     _memsize+1
	sbc     #$01
	sta     _vartab+1
	lda     #$8F
	sta     _basbuf
	stz     _basbuf+1
	lda     (sp)
	ldy     #$01
	ora     (sp),y
	beq     L000B
	lda     #<(_basbuf)
	ldx     #>(_basbuf)
	jsr     pushax
	ldy     #$05
	jsr     pushwysp
	lda     #<(_basbuf_len)
	ldx     #>(_basbuf_len)
	jsr     decax2
	jsr     _strncat
L000B:	lda     #<(_basic)
	ldx     #>(_basic)
	sta     _txtptr
	stx     _txtptr+1
	jsr     _exit
L0001:	jmp     incsp4

.segment	"BSS"

M0001:
	.res	1,$00
M0002:
	.res	1,$00

.endproc