Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0047/rename.scm
There is 1 other file named rename.scm in the archive. Click here to see a list.
File 1)	DSK:RENAME.MAC[4,124]	created: 1900 27-Jun-1972
File 2)	DSK:RENAME.MAC[4,400]	created: 1413 30-Jun-1980

1)1	RENAME:	0
1)		MOVSI	1,2
1)		HRRI	1,ACSAV
****
2)1	RENAME:	MOVSI	1,2
2)		HRRI	1,ACSAV
**************
1)1		0
1)		CLOSE	D,
****
2)1		 JRST	NOREN			;RENAME BOMBED FOR SOME REASON.
2)		CLOSE	D,
**************
1)1		JRA	16,(16)			;DONE
1)	NAME:	0				;ROUTINE TO UNPACK NAME.EXT
****
2)1		POPJ	17,			;DONE
2)	NAME:	0				;ROUTINE TO UNPACK NAME.EXT
**************
1)1		END
****
2)1	NOREN:	HRRZ	1,UFD+1			;PUT ERROR CODE IN AC 1
2)		TTYOUT	[ASCIZ"
2)	? RENAME FAILED"]
2)		EXIT				;AND DIE
2)		END
**************