X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/0000ed8f3efcdbf411f6c91517909089e5d7ef5d..cff7fa5698c01a69c3a64e2f39a8db9b398068b5:/src/comcon.mac diff --git a/src/comcon.mac b/src/comcon.mac index 7038b08..883f015 100644 --- a/src/comcon.mac +++ b/src/comcon.mac @@ -2833,7 +2833,7 @@ IOWBLT: MOVSI TAC,@TAC ;YES, KEEP THE ENTIRE IOWD DATA SUBI AC3,(TAC) ;AC3 POINTS TO TOP OF DATA READ IN-(N) BLT TAC1,@AC3 ;MOVE ONLY GOOD DATA DOWN JRST EXPND1 ;GO EXPAND THE GOOD DATA - SGDO1: MOVEI TAC,JOBDDT(PROG) ;MOVE EVERYTHING DOWN )MUST BE NON-COMPRESSED DSK FILE + SGDO1: MOVEI TAC,JOBDDT(PROG) ;MOVE EVERYTHING DOWN )MUST BE NON-COMPRESSED DSK FILE HRLI TAC,JOBSVD(TAC) ;OR CONVERT SAVE FILE SKIPGE JOBSV(JDAT) ;IS THIS CONVERT FILE(FIRST WORD IS IOWD)? HRLI TAC,JOBSDP(TAC) ;YES, ALSO SKIP OVER IOWD