.TITLE	DASM2
	.IDENT	/00/
	.PSECT	CODE,RO
 
;
; VERSION 00
;
; TOM GETZINGER  30-DEC-79
;
; THIS ROUTINE DISASSEMBLES AS MUCH TEXT AS IT CAN, SETTING
; THE BITMAP WHERE NECESSARY
;
 
DASM2::
	JSR	R5,$SAVRG	; SAVE R3-R5
5$:	MOV	FRSTXT,R4	; R4 -> FIRST TEXT ENTRY
	BEQ	60$		; THERE IS NO TEXT
	BIT	#TF.LMT!TF.REL!TF.BYT,T.FLAG(R4) ; IS THIS AN ABS WORD?
	BNE	50$		; NO
	CALL	DINS2		; YES, DISASSEMBLE THE INSTRUCTION
	BCS	60$		; IT ISN'T AN INSTRUCTION
50$:	MOV	(R4),R4		; LINK TO NEXT TEXT ENTRY
	CALL	RLSTXT		; RELEASE TEXT FROM LAST INSTRUCTION
	BR	5$		; AND PROCESS THIS TEXT ENTRY
 
60$:	RETURN			; THAT'S ALL
 
	.END