þþÊèX;SAVE #D2:DUPSAVE.M65òA’SAVE A BINARY FILEAü&X; **** SAVE FILE ROUTINE ****X;X;†SAVFIL „SFMG$Q>. P…INITQ8 P„RUNQB †GETIC1LQƒOPTV5`$ƒPTR;;PUT EOL ON FILENAMEjQ>‚CRt PƒPAR9~ …GETNO;;GET HEX PARAMETERˆ P„LDST’ &„LDSTœ(>5…NMDUP ¦*E†DSLMFG;;BRANCH IF NOT SAVING DUP AREA° "„WDR1º†DSLMFG …GETNO;;END ADDRESSÄ P„LDNDÎ &„LDNDØ;â S„LDSTì P„WDRLöA S„LDST -E…ADDOK;;BR IF ENDING ADDR > THAN STARTING!†MENUSL;;ELSE BACK TO MENU…ADDOKP„WDRH()>‚CR2%F†NRUNAD;;BRANCH IF NO MORE PARAMS<$ …GETNO;;GET A RUN ADDRESS IF ANYF P†INITADP&†INITADZL†INITADd,F†NINTAD;;BRANCH IF NO INIT ADDRESS GIVENn"…INITQ;;SET FLAGx†NINTAD)>‚CR‚+F†NRUNAD;;BRANCH IF NO RUN ADDRESS GIVENŒ …GETNO;;GET RUN ADDRESS– „PERX;;CHECK FOR ERRORS  P…RUNADª &…RUNAD´ L…RUNAD¾%F†NRUNAD;;BRANCH IF NO RUN ADDRESSÈ"„RUNQ;;SET FLAGÒ†NRUNADQ>ÜPƒOPTæ7;;OPTION CHAR FROM FILENAMEðR> A;;IF APPENDú H‡:SVOPEN"ƒOPT;;SET OT=$FFX;X; OPEN THE FILE"X;,‡:SVOPEN$>6 Q>„OPEN@ P…ICCOM9J*ƒOPT;;IF APPENDTG‰:ISAPPEND^Q>h H…:SVO1r‰:ISAPPENDQ> |…:SVO1P…ICAX19† …CIOCLX;šX; WRITE SAVE FILE HEADER¤X;® Q>†PUTCHR¸ P…ICCOM9 Q>4„SAVHÌ P…ICBAL9Ö Q>5„SAVHà P…ICBAH9êQ>ô P…ICBLL9þQ> P…ICBLH9*ƒOPT I…WHEAD;;BRANCH IF NOT APPEND&Q>0 P…ICBLL9: Q>4„LDSTD P…ICBAL9N Q>5„LDSTX P…ICBAH9b…WHEAD …CIOCLlX;vX; WRITE DATA RECORD€X;Š ƒWDR$>”+„WDRLQ>;;THIS IMMEDIATE VALUE MODIFIEDž P…ICBLL9¨+„WDRHQ>;;THIS IMMEDIATE VALUE MODIFIED² P…ICBLH9¼ #…ICBLL9Æ H†:WDRH1Ð #…ICBLH9Ú†:WDRH1Q„LDSTä P…ICBAL9î Q„LDSTø P…ICBAH9 ƒWEX!„WDR1 3„SFMG A£SAVE-GIVE FILE,START,END(,INIT,RUN)A=‚CR