Index: lib700/jumpto.s
===================================================================
--- lib700/jumpto.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
+++ lib700/jumpto.s	(revision 8325447d07a5d175402b922c7c6881b9bbf0a20d)
@@ -40,23 +40,23 @@
 		.text
 
-		.xdef	_halt,_jumpto,_rjumpto,_sjumpto,_xreset
+		.xdef	halt,jumpto,rjumpto,sjumpto,xreset
 
 		.page
 
-_halt:		stop	#0x2700			| stop dead, interrupts disabled
-		jmp	_halt			| stay stopped if stepped thru
+halt:		stop	#0x2700			| stop dead, interrupts disabled
+		jmp	halt			| stay stopped if stepped thru
 
-_jumpto:	movea.l	4(a7),a0		| get jump address
+jumpto:		movea.l	4(a7),a0		| get jump address
 		jmp	(a0)			| go to the jump address
 
-_rjumpto:	reset				| reset external devices
+rjumpto:	reset				| reset external devices
 		movea.l	4(a7),a0		| get jump address
 		jmp	(a0)			| go to the jump address
 
-_sjumpto:	movea.l	4(a7),a0		| get jump address
+sjumpto:	movea.l	4(a7),a0		| get jump address
 		movea.l	8(a7),a7		| set stack pointer
 		jmp	(a0)			| go to the jump address
 
-_xreset:	reset				| reset external devices
+xreset:		reset				| reset external devices
 		rts				| return to caller
 
Index: lib700/rand24.s
===================================================================
--- lib700/rand24.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
+++ lib700/rand24.s	(revision 8325447d07a5d175402b922c7c6881b9bbf0a20d)
@@ -29,5 +29,5 @@
 		.text
 
-		.xdef	_rand24
+		.xdef	rand24
 
 		.xdef	_rseed
@@ -87,7 +87,7 @@
 		.page
 
-| _rand24 -- Generate a random number
-| -------    ------------------------
-_rand24:	link	a6,#0			| Link stack frames
+| rand24 -- Generate a random number
+| ------    ------------------------
+rand24:		link	a6,#0			| Link stack frames
 		tst.l	_rseed			| See if the seed is zero
 		bne	rand01			| Jump if not
Index: lib700/setjmp.s
===================================================================
--- lib700/setjmp.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
+++ lib700/setjmp.s	(revision 8325447d07a5d175402b922c7c6881b9bbf0a20d)
@@ -6,7 +6,7 @@
 		.text
 
-		.xdef	_setjmp,_longjmp
+		.xdef	setjmp,longjmp
 
-_setjmp:	movea.l	4(a7),a0		| Get env pointer
+setjmp:		movea.l	4(a7),a0		| Get env pointer
 		move.l	(a7),(a0)		| Put return address in env
 		movem.l	d1-d7/a1-a7,4(a0)	| Save registers in env
@@ -14,5 +14,5 @@
 		rts				| Return to caller
 
-_longjmp:	move.w	8(a7),d0		| Get ret value
+longjmp:	move.w	8(a7),d0		| Get ret value
 		bne	lj1			| Jump if non-zero
 
Index: lib700/uldiv.s
===================================================================
--- lib700/uldiv.s	(revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6)
+++ lib700/uldiv.s	(revision 8325447d07a5d175402b922c7c6881b9bbf0a20d)
@@ -3,5 +3,5 @@
 | Version 2 -- 1987-06-08 -- D.N. Lynx Crowe
 | Lifted from the Alcyon C library by disassembly so I could fix a bug -
-|	_uldivr must be in the bss segment so the code will work in PROM.
+|	uldivr must be in the bss segment so the code will work in PROM.
 
 |	long
@@ -19,10 +19,10 @@
 		.text
 
-		.xdef	_uldiv,_uldivr
+		.xdef	uldiv,uldivr
 
 DIVIDEND	=	8
 DIVISOR		=	12
 
-_uldiv:		link	a6,#0			| Link stack frames
+uldiv:		link	a6,#0			| Link stack frames
 		movem.l	d3-d7,-(a7)		| Save registers
 		move.l	DIVIDEND(a6),d7		| d7 = DIVIDEND
@@ -31,5 +31,5 @@
 		bne	notdzero		| Jump if not
 
-		move.l	#0x80000000,_uldivr	| Force error result
+		move.l	#0x80000000,uldivr	| Force error result
 		move.l	#0x80000000,d0		| ... by dividing
 		divu	#0,d0			| ... by zero
@@ -39,5 +39,5 @@
 		bls	notunflo		| Jump if not
 
-		move.l	d7,_uldivr		| Remainder = dividend
+		move.l	d7,uldivr		| Remainder = dividend
 		clr.l	d0			| Quotient = 0
 		bra	ulexit			| Exit
@@ -81,5 +81,5 @@
 		bra	divloop3		| Loop for next bit
 
-setreslt:	move.l	d7,_uldivr		| Store remainder
+setreslt:	move.l	d7,uldivr		| Store remainder
 		move.l	d5,d0			| Put quotient in d0
 
@@ -92,5 +92,5 @@
 		.even
 
-_uldivr:	.ds.l	1
+uldivr:		.ds.l	1
 
 		.end