.TITLE	PASS3
	.IDENT	/hah009/
	.PSECT	CODE,RO
 
;
; VERSION 01
;
; TOM GETZINGER  19-SEP-80
;
; Modified:	14-Nov-83	hah009
;		Add support for ISD entries in STB files
;
; THIS MODULE OUTPUTS THE DISASSEMBLED CODE
;
 
	.MCALL	GET$S
PASS3::
	MOV	VBN,R1		; GET STARTING VBN
	MOV	VBN+2,R2
	MOV	BYTNUM,R3	; GET STARTING BYTE NUMBER
	MOV	#FDBIN,R0	; GET INPUT FDB ADDRESS
	CALL	.POINT		; POINT TO START OF OBJECT MODULE
	MOV	#-1,CRNPSN	; INITIALIZE CURRENT PSECT NUMBER
	CLR	CRNADR		; AND CURRENT ADDRESS
	INC	PASS		; SET "OUTPUT PASS" FLAG
 
10$:	GET$S	#FDBIN		; GET THE NEXT RECORD
	MOV	F.NRBD(R0),R4	; GET RECORD LENGTH
	SUB	#2,R4
	MOV	F.NRBD+2(R0),R3	; GET RECORD ADDRESS
	MOV	(R3)+,R1	; GET THE RECORD TYPE
	CALL	SELECT		; GO PROCESS THE RECORD
	.BYTE	RT.GSD,RT.END
	.WORD	10$		; ILLEGAL
	.WORD	10$		; GSD
	.WORD	10$		; END OF GSD
	.WORD	TXT3+1		; TXT (CALLED)
	.WORD	RLD3+1		; RLD (CALLED)
;	.WORD	10$		; ISD
	.word	isd3+1		;isd					;hah009
	.WORD	20$		; END OF MODULE
 
	BR	10$		; LOOP FOR NEXT RECORD
 
20$:	CALL	DASM3		; DISASSEMBLE REMAINING TEXT
	CALL	DMPTXT		; OUTPUT THE REST
	RETURN			; AND WE'RE DONE
 
	.END