More (starting from the last):

cld
ldx #$ff
txs
lda #$80
sta $a001 ; enabling SaveRAM
jsr $d805

$d805:
sta $10
sty $12
pla
sta $16
pla
sta $17
lda $16
clc
adc #$03
tay
lda $17
adc #$00
pha
tya
pha
ldy #$01
lda [$16], y
sta $6038
iny
lda [$16], y
sta $6039
cmp #$80

That's it for now!