Skip to content

Commit

Permalink
avoid unhelpful himem error in DSKMGR.M10 installation
Browse files Browse the repository at this point in the history
  • Loading branch information
bkw777 committed Mar 19, 2021
1 parent 3974617 commit a7cd0a9
Show file tree
Hide file tree
Showing 3 changed files with 12 additions and 14 deletions.
21 changes: 9 additions & 12 deletions clients/dskmgr/DSKMGR.M10
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
Expand Down
3 changes: 2 additions & 1 deletion clients/dskmgr/DSKMGR.M10.pre-install.txt
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"

2 changes: 1 addition & 1 deletion clients/teeny/TEENY.M10
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
Expand Down

0 comments on commit a7cd0a9

Please sign in to comment.