Bootable disk for Telestrat under Euphoric?

This is the best place to discuss about the various Oric operating systems like Sedoric, Randos, FT-Dos, and others, as well as serious software, utilities, word processors, disassemblers, etc... that runs on oric computers.
Brana
Flying Officer
Posts: 169
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

Re:

Post by Brana »

That won't do for me for I have a LOT of files that the program itself loads and (c)saves... If I put them all in one DSK file then in a period of time this could lead to some heavy fragmentation of the DSK file, I could "run out of free space" on the DSK file(s) and so on.. Not to mention that I would have to (at least) change the CSAVE, CLOAD, RECALL and STORE routines in ALL the TAP files before I convert them to DSK...

One of the reasons why I am interested in the Telestrat configuration is that Telestrat have the time counter.
Consider this program; it is an "RealTimeClock" from the Geoff Phillips's book "Oric Atmos and the Oric1".
When loaded on the ATMOS configuration, and left for about 8 hours, it will cause an error in time in about 40 minutes!!! That is a lot! :(

On the other hand, consider another program;
When loaded on the Telestrat and left running for about 8 hours, it will cause an error in time in about 8 seconds!!! That is acceptable!

What I need actually is the Oric-alike configuration (preferably just the Atmos) but with the real-time-clock utility available for long periods of time with the "time-error" reduced to minimum as possible...

At this moment I am not sure of what CAN I do...

If You are interested, you can use TXT2BAS.EXE to convert these two programs (or at least the first one - the first one is rather "hard" for typing) and test it yourself to "see what I mean"...



"RealTimeClock for ATMOS:"
(This one causes an error of 40 minutes in 8 hours!)
P.S. Before execution - turn ON the "RealTimeClock" variable in Euphoric's INI file.
-----------------
5 CLS:PAPER0:INK2
10 POKE#0410,#48
11 POKE#0411,#18
12 POKE#0412,#F8
13 POKE#0413,#AD
14 POKE#0414,#C4
15 POKE#0415,#02
16 POKE#0416,#69
17 POKE#0417,#01
18 POKE#0418,#8D
19 POKE#0419,#C4
20 POKE#041A,#02
21 POKE#041B,#D8
22 POKE#041C,#AD
23 POKE#041D,#C5
24 POKE#041E,#02
25 POKE#041F,#69
26 POKE#0420,#00
27 POKE#0421,#8D
28 POKE#0422,#C5
29 POKE#0423,#02
30 POKE#0424,#C9
31 POKE#0425,#3C
32 POKE#0426,#D0
33 POKE#0427,#32
34 POKE#0428,#A9
35 POKE#0429,#00
36 POKE#042A,#8D
37 POKE#042B,#C5
38 POKE#042C,#02
39 POKE#042D,#18
40 POKE#042E,#AD
41 POKE#042F,#C6
42 POKE#0430,#02
43 POKE#0431,#69
44 POKE#0432,#01
45 POKE#0433,#8D
46 POKE#0434,#C6
47 POKE#0435,#02
48 POKE#0436,#C9
49 POKE#0437,#3C
50 POKE#0438,#D0
51 POKE#0439,#20
52 POKE#043A,#A9
53 POKE#043B,#00
54 POKE#043C,#8D
55 POKE#043D,#C6
56 POKE#043E,#02
57 POKE#043F,#18
58 POKE#0440,#AD
59 POKE#0441,#C7
60 POKE#0442,#02
61 POKE#0443,#69
62 POKE#0444,#01
63 POKE#0445,#8D
64 POKE#0446,#C7
65 POKE#0447,#02
66 POKE#0448,#C9
67 POKE#0449,#18
68 POKE#044A,#D0
69 POKE#044B,#0E
70 POKE#044C,#A9
71 POKE#044D,#00
72 POKE#044E,#8D
73 POKE#044F,#C7
74 POKE#0450,#02
75 POKE#0451,#18
76 POKE#0452,#AD
77 POKE#0453,#C8
78 POKE#0454,#02
79 POKE#0455,#69
80 POKE#0456,#01
81 POKE#0457,#8D
82 POKE#0458,#C8
83 POKE#0459,#02
84 POKE#045A,#68
85 POKE#045B,#40
86 POKE#045C,#A2
87 POKE#045D,#04
88 POKE#045E,#A9
89 POKE#045F,#00
90 POKE#0460,#9D
91 POKE#0461,#C4
92 POKE#0462,#02
93 POKE#0463,#CA
94 POKE#0464,#10
95 POKE#0465,#FA
96 POKE#0466,#A2
97 POKE#0467,#02
98 POKE#0468,#BD
99 POKE#0469,#72
100 POKE#046A,#04
101 POKE#046B,#9D:REM-STA24A,X
102 POKE#046C,#30+26
103 POKE#046D,#02
104 POKE#046E,#CA:REM---------
105 POKE#046F,#10
106 POKE#0470,#F7
107 POKE#0471,#60
108 POKE#0472,#4C
109 POKE#0473,#10
110 POKE#0474,#04
120 CALL #45C
121 H=PEEK(865)
122 M=PEEK(866)
123 POKE #2C7,H
124 POKE #2C6,M
125 '
1000 '
1001 '
1002 CLS
1003 PRINT@2,2;PEEK(#2C8);PEEK(#2C7);PEEK(#2C6);PEEK(#2C5)
1004 GOTO 1003
---------------------



"Clock counter for the Telestrat:"
This one causes an error of less then 10 seconds in 8 hours!
---------------
10 CLS
20 ?@2,2;TIME$
30 GOTO 20
---------------
User avatar
waskol
Flight Lieutenant
Posts: 414
Joined: Wed Jun 13, 2007 8:20 pm
Location: FRANCE, Paris

Post by waskol »

wow !!! Bravo !!!
It is reallly a nice beginning in Telestrat programming.

You could ha spare some effort with a loop and the DATA statement anyway, but reallly, for a beginning, it is really nice !
User avatar
Dbug
Site Admin
Posts: 4437
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Post by Dbug »

Not sure if using the page 4 on the telestrat is safe.
And modern code for tools/applications/utilities should NEVER use the page 4, because it makes sure it's not possible to use a disc drive (the DOS generally put code here).

That's fine for games and demos if they don't plan to go back to the system later.
Brana
Flying Officer
Posts: 169
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

Re:

Post by Brana »

I suppose there is no web-server from which I could download any of the books regarding the learning of the machine-code programming that I have found (only presented) here:

http://www.defence-force.org/computing/ ... /index.htm
Post Reply