.TITLE	CMROM -- DUMP CM1420 ROM
        .IDENT	/V01.00/

BASE	=:	173000			; ROM BASE ADDRESS
PAGE	=:	173024			; ROM PAGE NUMBER REGISTER

	.MCALL	.EXIT,.PRINT		; SYSTEM MACRO CALLS
					;
START::	CLR	R3			; INITIALIZE PAGE NUMBER
10$:	MOV	R3,@#PAGE		; SELECT ROM PAGE
	MOV	#BASE,R5		; SET BASE ADDRESS
20$:	MOV	#BUFF,R0		; R0=ADDRESS OF BUFFER
	MOV	R5,R1			; R1=ADDRESS
	MOV	PC,R2			; R2=LEADING ZEROS FLAG
	CALL	$CBOMG			; CONVERT ADDRESS TO ASCII
	MOV	#FMTS,R1		; R1=FORMAT STRING
	MOV	R5,R2			; R2=ADDRESS OF ARGUMENT BLOCK
	CALL	$EDMSG			; EDIT MESSAGE
	.PRINT	#BUFF			; PRINT IT
	ADD	#20,R5			; TO NEXT BLOCK
	CMP	#BASE+1000,R5		; END OF PAGE REACHED?
	BNE	20$			; IF NE NO
	.PRINT	#CRLF			; PRINT PAGE SEPARATOR
	ADD	#100,R3			; TO NEXT PAGE
	CMP	#400,R3			; ALL PAGES PRINTED?
	BNE	10$			; IF NE NO
	.EXIT				; EXIT

FMTS:	.ASCII	/  %P %P %P %P %P %P %P %P/
CRLF:	.BYTE	0
BUFF:	.BLKB	80.
        .END	START