-
Notifications
You must be signed in to change notification settings - Fork 7
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
avoid unhelpful himem error in DSKMGR.M10 installation
- Loading branch information
Showing
3 changed files
with
12 additions
and
14 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,24 +1,21 @@ | ||
10 'MAKDOS Makes a DOS for the OLIVETTI M-10. A. Ryan [72007,1743] 1/JULY/89 | ||
20 'Reverse Engineered version of DSKMGR Version 3.02 by J. K. HEILMAN | ||
0 'MAKDOS Makes a DOS for the OLIVETTI M-10. A. Ryan [72007,1743] 1/JULY/89 | ||
0 'Reverse Engineered version of DSKMGR Version 3.02 by J. K. HEILMAN | ||
0 'Installer tweaks for dlplus - [email protected] 2021 | ||
30 CLS:CLEAR 512:HEX$ = "0123456789ABCDEF":CHK = 0 | ||
40 FOR A = 32496 TO 32503:CHK = CHK + PEEK(A):NEXT:IF CHK = 624 THEN 50 ELSE 210 | ||
50 READ TP,EN,EX:AD = TP:CHK = TP + EN + EX:IF HIMEM > TP THEN 180 | ||
60 READ Z$:IF Z$ = "EOD" THEN 110 | ||
70 FOR I = 1 TO LEN(Z$) STEP 2:HI$ = MID$(Z$,I,1):LO$ = MID$(Z$,I + 1,1) | ||
80 V = (16 * (INSTR(HEX$,HI$) - 1)) + (INSTR(HEX$,LO$) - 1) | ||
90 PRINT @87,"Data:";V;" ":PRINT @99,"Address:";AD:POKE AD,V:CHK = CHK + V | ||
90 ?".";:POKE AD,V:CHK = CHK + V | ||
100 AD = AD + 1:NEXT:GOTO 60 | ||
110 READ Z$:IF CHK <> VAL(Z$) THEN 200 | ||
120 IF FRE(0) < 6 + (EN - TP) THEN END | ||
130 PRINT"Do you wish to save program?" | ||
140 Z$ = INKEY$:IF Z$ = "" THEN 140 | ||
150 IFZ$ <> "Y" AND Z$ <> "y" THEN END | ||
160 INPUT"Output File Name:";F$ | ||
170 SAVEM F$,TP,EN,EX:END | ||
180 PRINT"Top :";TP:PRINT"End :";EN:PRINT"Exe :";EX:PRINT"HIMEM:";HIMEM | ||
190 PRINT"Memory Conflict. Reset HIMEM":END | ||
200 PRINT"Checksum Error. File Unusable!":END | ||
210 PRINT"Machine is not an OLIVETTI M-10!":END | ||
170 SAVEM "DSKMGR",TP,EN,EX:END | ||
180 ?"Top :";TP:?"End :";EN:?"Exe :";EX:?"HIMEM:";HIMEM | ||
190 ?"HIMEM Err, Try: CLEAR 0,";TP;:?":RUN":END | ||
200 ?"Checksum Error. File Unusable!":END | ||
210 ?"Machine is not an OLIVETTI M-10!":END | ||
220 DATA 60700,62799,60700 | ||
230 DATA CD815A2165F5115EF63E06CD6A5A21FFFF227DF62339225AF5CD55EE2A5AF5F9CD5C42AF32B0FACD | ||
240 DATA 4E42063621A1FD22D7FD36FF2305C24EED680EC0CD7B590E80CD7B590EA0CD7B597D3D32EFFDF5FE | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,5 @@ | ||
Type the following in BASIC on the portable: | ||
Type the following in BASIC on the M10: | ||
|
||
CLEAR 0,60700 | ||
RUN "COM:98N1EN" | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,5 +1,5 @@ | ||
0'TEENY for Olivetti M10 USA variant laptop (c) 2015 Ron Wiesen Technical Products | ||
0'Minor installer tweaks [email protected] 2021 | ||
0'Installer tweaks for dlplus - [email protected] 2021 | ||
0CLEAR99:B%=0:I%=0:S!=0:U$="":L$="":H$="0123456789ABCDEF":P%=0:D$="":T%=0:E%=0 | ||
1FORB%=0TO7:S!=S!+PEEK(B%+32496):NEXT:IFS!-624THEN?"Not an Olivetti M-10":END | ||
2READT%,E%:I%=T%:S!=T%+E%+T%:IFHIMEM-2^16>T%THENCLEAR0,T%:RUN | ||
|