; aisio.asm -- an assembly coded procedure

	.BEXT		aisio

	.SREL
aisio:	AISIO

; aisio(sioWord,ac1Word)
;
; executes an SIO instruction with sioWord in AC0
; and ac1Word in AC1

sioWord=4
ac1Word=5

	.NREL

AISIO:	STA 3 1 2
	JSR@ 370
	7
	JSR@ 367

	LDA 0 sioWord,2
	LDA 1 ac1Word,2
	SIO
	JMP@ 366

	.END