************************************************** 1) UNSAV.MAC;4 35 ; *************** 2) UNSAV.MAC;15 35 ; 36 ; RM SYSTEMS,MAY 1979 HAS MADE MODIFICATIONS TO DELETE ALL 37 ; INTERMEDIATE FILES GENERATED WHEN A "TOP OF FILE " COMMAND 38 ; IS USED.CHANGES HAVE ALSO BEEN MADE TO DELETE TEMP.SAV FILES 39 ;GENERATED BY THE "SAVE" COMMAND IF NO NAME IS ENTERED. 40 ; THE DELETION OCCURS UPON TERMINATION OF EDIT AND DOES NOT 41 ; AFFECT THE OPERATION OTHERWISE. 42 ; CHANGES WERE MADE IN BOTTM,START,UNSAV,EDIMP, AND MSCCM 43 ; 44 ; 45 ; ************************************************** 1) UNSAV.MAC;4 42 *************** 2) UNSAV.MAC;15 52 .MCALL DELET$ 53 ************************************************** 1) UNSAV.MAC;4 65 BMI 10$ ;YES 66 MOV F.NRBD(R0),R1 ;FIND THE SIZE OF THE LINE *************** 2) UNSAV.MAC;15 76 BMI 9$ ;YES 77 MOV F.NRBD(R0),R1 ;FIND THE SIZE OF THE LINE ************************************************** 1) UNSAV.MAC;4 74 10$: CLOSE$ #SAVBLK,.ERROR ;CLOSE SAVE FILE *************** 2) UNSAV.MAC;15 85 9$: ; DELETE SAVETEMP FILE AND CLOSE **RMS** 86 CMP #SAVDFN,F.DFNB+SAVBLK ;WAS DEFAULT NAME USED? **RMS** 87 BNE 10$ ; NO, DON'T DELETE. **RMS** 88 DELET$ #SAVBLK ;YES,DELETE AFTER EACH USE **RMS** 89 10$: CLOSE$ #SAVBLK,.ERROR ;CLOSE SAVE FILE 4 DIFFERENCES FOUND UNSAV.CMP=[320,13]UNSAV,[120,14]UNSAV