; out.asm = Test OUT port for SHARP PC-1350
; AS61860 assembler, port IB,FO,Cout
; Assemble: as61860 -glaxff out.asm
; -----------------------------------------------

	.AREA t61860 (ABS)
	.include	/reg_61860.asm/

        .ORG  	0x6038
	LIP	REG_IB
	LIDP	0x6036	;DP = 0x6036
	MVMD		;(DP) --> (P)
	OUTB
	RTN

	LIP	REG_FO
	LIDP	0x6036	;DP = 0x6036
	MVMD		;(DP) --> (P)
	OUTF
	RTN

	LIP	REG_Cout
	LIDP	0x6036	;DP = 0x6036
	MVMD		;(DP) --> (P)
	OUTC
	RTN