etherload_done.a65

; Program to exit etherload when all data has been received

	 .org $682c
	 .scope

	 ; Tell etherload that this packet is executable
	 lda #$00

	 ; copy routine to casette buffer, since the routine demaps the packet
	 ; buffer from which it would otherwise be running.
	 ldx #$00
l1:	 lda programentrypoint,x
	 sta $0340,x
	 inx
	 cpx #$40
	 bne l1
	 jmp $0340

programentrypoint:

	; C65GS io
	lda #$47
	sta $d02f
	lda #$53
	sta $D02f

	; Restore memory mapping
	lda #$00
	ldx #$0f
	ldy #$00
	ldz #$00
	map
	eom

	; $DE000 - $6000 = $D8000
	lda #$00
	ldx #$00
	ldy #$00
	ldz #$00
	map
	eom
	
	; pop JSR return address so that we return from etherload completely
	pla
	pla

	rts

	.scend

	.outfile "etherload_done.bin"