; EX52.ASM      C.P. Diduch 2001
;
; Do-While Example
;
;    Author(s):
; Signature(s):                              Date:
;-----------------------------------------------------------------
.ORG    0x8000            
				; do {     
M0:     LOADP	R7, 1		;    X = inport(1);
				;    }
        SUBL    NULL, R7, 25    ; while (X < 25)
	JMPC	M0		;    
				;
M1:	JMP	M1		; do {}