.PAGE
	.TITLE	MN01..	NODE MANIPULATION ROUTINES
	.IDENT	/MN01../
;
N$DIAG::			;THIS PROG ANALISES A NODE TABLE
;
	NEWLINE
	PRINT ,<"NBLKADD ">
	MOV NBLKADD,R0			;HOLD VALUE OF NBLKADD
	CALL DIAG1
	PRINT ,<"NLASTADD ">
	MOV NLASTADD,R0			;HOLD VALUE OF NLASTADD
	CALL DIAG1
	PRINT ,<"NFREEB ">
	MOV NFREEB,R0			;HOLD VALUE OF NFREEB
	CALL DIAG1
	PRINT ,<"NUSEDB ">
	MOV NUSEDB,R0			;HOLD VALUE OF NUSEDB
	CALL DIAG1
	NEWLINE
	PRINT ,<"NFIRST  ">
	MOV NFIRST,R0			;HOLD VALUE OF NFIRST
	CALL DIAG1
	PRINT ,<"NPRESENT ">
	MOV NPRESENT,R0			;HOLD VALUE OF NPRESENT
	CALL DIAG1
	PRINT ,<"NLOST  ">
	MOV NLOST,R0			;HOLD VALUE OF NLOST
	CALL DIAG1
	PRINT ,<"NMASK  ">
	MOV NMASK,R0			;HOLD VALUE OF NMASK
	CALL DIAG1
	NEWLINE
	PRINT ,<"NRES1   ">
	MOV NRES1,R0			;HOLD VALUE OF NRES1
	CALL DIAG1
	PRINT ,<"NNODE    ">
	MOV NNODE,R0			;HOLD VALUE OF NRES2
	CALL DIAG1
	PRINT ,<"NNEXT  ">
	MOV NNEXT,R0			;HOLD VALUE OF NNEXT
	CALL DIAG1
	NEWLINE
	RETURN
;
DIAG1:	CALL R$BOCT			;CONVERT VALUE TO OCTAL
	PRINT				;DISPLAY VALUE IN OCTAL
	SPACES 4
	RETURN				;BACK TO CALL PROG
;
	.END
;