;:sys36864
	*= $c000
	;.opt oo
; sys 49152,name$,device,sa -
;                   - save variables
; sys 49155,name$,device,sa -
;                   - save strings
; sys 49158,name$,device,sa -
;                   - save param.
; sys 49161,name$,device,sa -
;                   - load variables
; sys 49164,name$,device,sa -
;                   - load strings
; sys 49167,name$,device,sa -
;                   - load param.
garbcol	=$b526
loadr	=$ffd5
saver	=$ffd8
strend	=55
stranf	=51
varanf	=45
varend	=49
getpar	=$e1d4
chkcom	=$aefd
sa	=$b9
fload	=0
tmp	=2
	jmp savev
	jmp saves
	jmp savep
	jmp loadv
	jmp loads
	jmp loadp
parr	jsr chkcom
	jmp getpar
savev	jsr parr
	ldx varend
	ldy varend+1
	lda #varanf
	sta sa
	jmp saver
saves	jsr garbcol
	jsr parr
	ldx strend
	ldy strend+1
	lda #stranf
	sta sa
	jmp saver
loadv	jsr parr
	ldx varanf
	ldy varanf+1
	lda #0
	sta sa
	jmp loadr
loads	jsr parr
	lda #1
	sta sa
	lda #0
	jmp loadr
savep	jsr parr
	ldx #strend+2
	ldy #0
	lda #varanf
	sta tmp
	sty tmp+1
	lda #tmp
	sta sa
	jmp saver
loadp	jsr parr
	lda fload
	pha
	lda #111
	sta fload
	sta sa
	lda #0
	jsr loadr
	pla
	sta fload
	rts