SwapSet

[jim]

	org	0x8000

	jp	main

	include	"conio32.asm"
	include	"math.asm"
	include	"ExtSwapSet.asm"
fnt	incbin	"slim.fnt"

//---------------------------------------

main	ld	hl,fnt
	call	setfont
	ld	a,0x07
	call	setcolor
	call	clrscr


	ld	a,"H"
	ld	b,"E"
	ld	c,"L"
	ld	d,"L"
	ld	e,"O"
	ld	ix,TestSet1
	call	SaveSet

	ld	a,"W"
	ld	b,"O"
	ld	c,"R"
	ld	d,"L"
	ld	e,"D"
	ld	h,"!"
	ld	ix,TestSet2
	call	SaveSet

//Print Registers
//Using Macro for Getters:

	ld	ix,TestSet1
//A
	Get_A
	call	putch
//B
	Get_B
	ld	a,b
	call	putch
//C
	Get_C
	ld	a,c
	call	putch
//D
	Get_D
	ld	a,d
	call	putch
//E
	Get_E
	ld	a,e
	call	putch
	call	putcr


	ld	ix,TestSet2
//A
	Get_A
	call	putch
//B
	Get_B
	ld	a,b
	call	putch
//C
	Get_C
	ld	a,c
	call	putch
//D
	Get_D
	ld	a,d
	call	putch
//E
	Get_E
	ld	a,e
	call	putch
//H
	Get_H
	ld	a,h
	call	putch
	call	putcr

	ret


//Sets
TestSet1	ds	8
TestSet2	ds	8

))