þþÖ èX;SAVE #D2:DUPMEMSV.M65òA“CREATE MEM.SAV FILEAü(X; **** CREATE MEM.SAV FILE ****X;X;+X;ROUTINE WRITTEN BY M.E., APRIL 21,1980$…OWRIT;;º P…ICAX19;;Ä …OREST;;OPEN FOR WRITEÎ%G…ERRWR;;IF ERROR THEN JMP AND RETØX;âX;ìX;WRITE MEMORY BLOCKöX; Q>†PUTCHR  P…ICCOM9)Q>4„NDOS;;STORE START OF BLOCK FOR CIO P…ICBAL9(Q>5„NDOS;;START ADDR (HIGH)2 P…ICBAH9<!Q>4„MLEN ;;LENGTH OF BLOCKF P…ICBLL9PQ>5„MLEN;;LENGTH(HIGH)Z P…ICBLH9d ƒCIO;;WRITE DATA BLOCKn#G…ERRWR;;IF WRITE ERROR THEN JMPx …CLOSX‚ G…ERRWRŒ%>–ƒRET: X;ª…ORESTQ>4„OPEN´ P…ICCOM9¾7Q>4„NAME;;ROUTINE TO COMPLETE OPEN OF 'D1:MEMORY.SAVÈ3P…ICBAL9;;CALLING SUB SUPPLIES 'READ' OR 'WRITE'ÒQ>5„NAME;;IN ICAX1Ü P…ICBAH9æ !†CIOOPNðX;ú%…ERRWR:;; Return with error statusûX;ü=†CIOOPNQ…DFDRV;; Set default drive for MEM.SAV and DUP.SYSý PˆMEMSVDRVþ P†DUPDRVÿ!ƒCIOX;@J0X; **** ENTRY POINT ON 'DOS' CALL ****TX;^X;c …@ORG œh%†INISAV ;;DOSINI VECTOR SAVE LOCr †MEMFLG | …MNDUP$>† &†MEMFLG &†LOADFGš0¤ &†WARMST® †INITIO¸X;Â/ †MEMSVQ;;FIND OUT IF FILE D1:MEM.SAV EXISTSÌ'I„GOOD;;BRANCH IF MEM.SAV FILE EXITSÖQ>à"P†WARMST;;CLEAR WARM START FLAGê F…FINALôX;þX;,„GOOD †MWRITE;;WRITE USER AREA TO MEM.SAV G…ERROR "†MEMFLG;;SHOW MEMORY WRITTEN& G…FINAL0X;:,…ERRORQ>4†ERRMES;;PRINT ERROR OCCURED MSGD $>5†ERRMESN ‡PRNTMSG;;GOTO MSG PRINTERXX;b"Q>4ƒERR;;PRINT QUERY TO RUN DOSl $>5ƒERRq,…WAITY ;; Print message and wait for 'Y'v ‡PRNTMSG;;GOTO MSG PRINTER€X;Š!X; WAIT FOR Y TO RUN DOS”X;ž Q>†GETREC¨ P…ICCOM² Q>4„STAK¼ P…ICBALÆ Q>5„STAKÐ P…ICBAHÚQ>ä P…ICBLLîQ>ø P…ICBLH ƒCIO Q„STAK;;SEE IF Y TYPEDR> Y H†RTCART;;BRANCH IF NOT*Q>4 P†WARMST>X;H …FINAL$> R Q>…CLOSE\!P…ICCOM9;;SET UP CLOSE COMMANDf ƒCIO;;PERFORM CLOSE COMMANDpX;z'…RRDUPQ†DOSINI;;SAVE DOS INIT VECTOR„ P†INISAVŽQ†DOSINI˜P†INISAV¢X;¬#Q>4ƒDOS;;SET UP DUP INIT ADDR AS¶P†DOSINI;;DOS INIT VECTORÀ Q>5ƒDOSÊP†DOSINIÔX;Þ†RRDUP1Q>4†DUPSYSè$>ò P…ICBAL9ü Q>5†DUPSYS P…ICBAH9 %> ''ƒOPT;;ASSURE NO /N OPTION IN EFFECT$ 1;;SHOW THAT DUP IS IN MEMORY. '†DUPFLG8 $ †SFLOAD;;LOAD DUP.SYS AND RUN ITB †RTCART:L ‚EC A‚E:A=‚CR’ †DUPSYS AŠD1:DUP.SYSA=‚CR— †DUPDRV†DUPSYSœ X;¦ 2†ERRMES A ERROR-SAVING USER MEMORY ON DISKA=‚CR° &ƒERR A—TYPE Y TO STILL RUN DOSA=‚CR