.TITLE	DISOBJ
	.IDENT	/00/
	.PSECT	CODE,RO
 
;
; VERSION 00
;
; TOM GETZINGER  23-NOV-79
;
; THIS MODULE IS THE MAIN-LINE FOR THE OBJECT CODE DISASSEMBLER
;
 
DISOBJ::
	CALL	INIT		; INITIALIZE EVERYTHING
10$:	CALL	GETCMD		; GET THE NEXT COMMAND
	CALL	PASS1		; SCAN ALL "GSD" RECORDS
	CALL	PASS2		; BUILD LABEL BITMAPS AND GLOBAL SYMBOL TABLE
	CALL	PASS3		; OUTPUT DISASSEMBLED CODE
	CALL	CLENUP		; OUTPUT LABELS & ANYTHING ELSE STILL NEEDED
	BR	10$		; GO HANDLE THE NEXT COMMAND
 
	.END	DISOBJ