TITLE	HW2 DIAMOND - Homework 2
	SEARCH	MONSYM

Comment $ (Gorin p. 65) 

	Accumulator usage:
	10  line counter (L: [-6, 6])
	11  star pairs on current line (P: [0, 6] (L<=0)
	                                   [5, 0] (L>0))
	12  filler space counter (F: |L| (initial))
	13  star pair counter
$

START:	RESET
	MOVNI	10,6
	MOVEI	11,0

LINE:	MOVM	12,10
	MOVE	13,11

FILL:	JUMPE	12,PAIRS
	HRROI	1,SPACE
	PSOUT
	SOJA	12,FILL

PAIRS:	JUMPE	13,ENDLIN
	HRROI	1,STRSTR
	PSOUT
	SOJA	13,PAIRS

ENDLIN:	HRROI	1,STRNL
	PSOUT

	AOJ	10,
	CAILE	10,6
	JRST	END

	CAILE	10,0
	SOSA	11
	AOJ	11,
	JRST	LINE

END:	HALTF

SPACE:	ASCIZ	/ /
STRSTR:	ASCIZ	/**/
STRNL:	ASCIZ	/*
/
	END	START