; EX51.ASM      C.P. Diduch 2001
;
; Do-Forever Example
;
;    Author(s):
; Signature(s):                              Date:
;-----------------------------------------------------------------
.ORG    0x8000            
				; do {     
M0:     LOADP	R0, 0		;    X = inport(0);
	XORL	R0, R0, 0xFFFF	;    X = ~X;
	STOREP	3, R0		;    outport(3, X);
	JMP	M0		;    }