Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
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
***** *********