;******** LOAD & SAVE PATCH FOR ENHANCED BASIC ON 65C02 Simulator

bsetup
	        lda   #<ACIA1_Scan
                sta   VEC_IN
  		lda   #>ACIA1_Scan
                sta   VEC_IN+1
	        lda   #<ACIA1_Output
                sta   VEC_OUT
		lda   #>ACIA1_OUTPUT
                sta   VEC_OUT+1
	        lda   #<Psave
                sta   VEC_SV
	        Lda   #>Psave
                sta   VEC_SV+1
		lda   #<pload
                sta   VEC_LD
		lda   #>pload
		sta   VEC_LD+1
		jmp   LAB_COLD

psave		
		jsr	pscan
		ldy	#$00
		lda	itempl
		sta	(itempl),y
		iny
		lda	itemph
		sta	(itempl),y
		ldx	smeml
		lda	smemh
		jsr	print2byte
		jsr	print_cr
		sec
		lda	itempl
		sbc	smeml
		tax
		lda	itemph
		sbc	smemh
		jsr	print2byte
		jsr	print_cr
		rts

pload		
		jsr	pscan
		lda	itempl
		sta	svarl
		sta	sarryl
		sta	earryl
		lda	itemph
		sta	svarh
		sta	sarryh
		sta	earryh
		JMP   LAB_1319		
pscan
		lda	smeml
      	sta	itempl
      	lda	smemh
      	sta	itemph
pscan1	ldy   #$00
		lda   (itempl),y
		bne   pscan2
		iny   
		lda   (itempl),y
		bne   pscan2
		clc
		lda   #$02
		adc   itempl
		sta	itempl
		lda	#$00
		adc	itemph
		sta	itemph
		rts
pscan2	ldy   #$00
		lda	(itempl),y
		tax
		iny
		lda	(itempl),y
		sta	itemph
		stx	itempl
		bra	pscan1