; EX56.ASM      C.P. Diduch 2001
;
; Generate the assembler list "file" output for the following
; program by hand then compare with that generated by the DECE
; assembler.
;
;    Author(s):
; Signature(s):                              Date:
;-----------------------------------------------------------------

.EQU   	PORT    0x0002          ; Constant.
	.ORG	0xF000		; Assemble at 0xF000.
DATA:	.DW	10, 0xF, 'D', 0	; Variable array.
				;
      	.ORG	0x8000          ; Assemble at 0x8000.
				; do {
				;    do {
M0:     XOR#    R0, R0, R0      ;       i = i ^ i;
M1:   	DLOADM	R1, DATA(R0)	;       Y = DATA[i];
 	STOREP  PORT, R1        ;       outport(PORT, Y);
   	ADDL#	R0, R0, 1	;       i = i + 1;
	SUBL	NULL, R0, 4    	;    while (i != 4)
 	JMPNZ	M1              ;
	JMP	M0		;    }