Home » Archimedes archive » Micro User » MU 1992-06.adf » PD » BASS/Comms/TimeOut/?TimeOut
BASS/Comms/TimeOut/?TimeOut
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Micro User » MU 1992-06.adf » PD |
| Filename: | BASS/Comms/TimeOut/?TimeOut |
| Read OK: | ✔ |
| File size: | 13D0 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Document concerning the module 'TimeOut' v0.04 :
++++++++++++++++++++++++++++++++++++++++++++++
*************************** Copyright Notice **************************
* *
* The object code and documentation for the 'TimeOut' module are *
* the exclusive copyright of John A.M. TYTGAT and are freely *
* distributable, provided this notice is left intact and all of the *
* files listed below are included, UNALTERED. *
* *
*************************************************************************
Files included :
==============
(1) The 'TimeOut' module v1.04 : "TimeOut"
(2) The help file : "HelpTimeOut"
(3) An example BASIC program : "ExTimeOut"
AIM :
===
'TimeOut' generates after a certain amounth of time an user-defined error.
This can be very handy in programs where you have to leave an infinite loop
after a certain amounth of time or where there is a time limitation in a
subroutine (ex. in serial communication).
You have to setup a local error routine (see the example BASIC file
"ExTimeOut") checking if it is a TimeOut error or not.
How to use it ?
=============
The module 'TimeOut' does only support SWI's. Some characteristics of the
module are :
Module title : 'TimeOut'
Module help : 'Watchdog timer'
SWI chunk base number : &C0080
Error base number : &30080
SWI group prefix : 'TimeOut'
Currently defined SWI are :
SWI "TimeOut_Duration",R0 TO R0,R1
----------------------------------
DESC. | Reads/Writes the TimeOut duration in csecs
ENTRY | If R0 = 0 Reads the TimeOut duration
If R0 <> 0 Writes the TimeOut duration
EXIT | R0 = Old TimeOut duration
R1 = Time left till the following TimeOut
COMM. | SWI is re-entrant
MODES | All
This SWI sets the length of time in csecs between 'SWI "TimeOut_Start"' and
the TimeOut error as long as the program didn't issue a 'SWI "TimeOut_Stop"'.
The default TimeOut duration is 100 csecs.
SWI "TimeOut_String",R0
-----------------------
DESC. | Sets the TimeOut error string
ENTRY | R0 = Pointer to the TimeOut error string (max. 252 chars)
EXIT | -
COMM. | SWI is not re-entrant
MODES | All
Using this SWI you can change the default TimeOut error string ("TimeOut
runs out of time").
SWI "TimeOut_Start"
-------------------
DESC. | Starts the TimeOut count-down
ENTRY | -
EXIT | -
COMM. | SWI is not re-entrant as it disables IRQ
MODES | All
Before the actually count-down is started the counter is reseted.
SWI "TimeOut_Stop"
------------------
DESC. | Stops the TimeOut count-down
ENTRY | -
EXIT | -
COMM. | SWI is not re-entrant as it disables IRQ
MODES | All
Using this SWI is the only way to prevent the TimeOut error generation.
How it works ?
============
Well, the counter is made using the TickerV vector. If the counter reaches
zero the module uses in the TickerV interrupt routine a SWI "OS_AddCallBack"
to add a CallBack routine where the TimeOut error is generated using a SWI
"OS_GenerateError". I have to use the CallBack principle because it seems it
is not possible to generate an error in a interrupt routine. Mind if you
switch off the interrupts the counter isn't updated, so the TimeOut module
would not work.
Errors :
======
&30080 : User defined, default 'TimeOut' message is "'TimeOut' runs out of time"
&30081 : "Unknown TimeOut SWI operation"
&30082 : "TimeOut error string is too long"
Versions :
========
v0.04 : First public domain version
BASS :
====
Module 'TimeOut' is released as a BASS product. BASS (Belgian Archimedes
Software-writers Society) is group of young enthousiast software-writers who
like to write Archimedes public domain programs. If you want to know more
about us, please feel free to contact us !
Conditions of use :
=================
This software is supplied "as is"; no warranty, express or implied, of the
merchantability of this software or its fitness for any particular purpose
is given. In no circumstances shall the providers of this software be
liable for any damage, loss of profits, or any indirect or consequential
loss arising out of the use of this software or inability to use this
software.
You are free to give this application to anyone you please via any medium,
provided it is delivered with ALL the supplied files, UNALTERED. You may
NOT sell this software, or use it otherwise for personal gain. If you wish
to post it on your Bulletin Board or include it in your Shareware library
then that, too, is fine.
A large number of hours of work have gone into the production and
maintenance of this module and although I have supplied the application
free, donations will be gratefully received.
Please report any bugs you find to me, so that other users may benefit from
improved versions. I cannot guarantee to fix any bugs, but I will do my
best.
My address is:
John TYTGAT
Brusselbaan 445
B-1600 St.-Pieters-Leeuw
BELGIUM
� BASS 1991 00000000 44 6f 63 75 6d 65 6e 74 20 63 6f 6e 63 65 72 6e |Document concern|
00000010 69 6e 67 20 74 68 65 20 6d 6f 64 75 6c 65 20 27 |ing the module '|
00000020 54 69 6d 65 4f 75 74 27 20 76 30 2e 30 34 20 3a |TimeOut' v0.04 :|
00000030 0a 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b |.+++++++++++++++|
00000040 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b |++++++++++++++++|
00000050 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 2b 0a |+++++++++++++++.|
00000060 0a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..**************|
00000070 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 43 |************* C|
00000080 6f 70 79 72 69 67 68 74 20 4e 6f 74 69 63 65 20 |opyright Notice |
00000090 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************|
000000a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 20 20 20 |***********.* |
000000b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
000000f0 20 20 20 20 2a 0a 2a 20 20 20 54 68 65 20 6f 62 | *.* The ob|
00000100 6a 65 63 74 20 63 6f 64 65 20 61 6e 64 20 64 6f |ject code and do|
00000110 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 |cumentation for |
00000120 74 68 65 20 27 54 69 6d 65 4f 75 74 27 20 6d 6f |the 'TimeOut' mo|
00000130 64 75 6c 65 20 61 72 65 20 20 20 20 20 20 2a 0a |dule are *.|
00000140 2a 20 20 20 74 68 65 20 65 78 63 6c 75 73 69 76 |* the exclusiv|
00000150 65 20 63 6f 70 79 72 69 67 68 74 20 6f 66 20 4a |e copyright of J|
00000160 6f 68 6e 20 41 2e 4d 2e 20 54 59 54 47 41 54 20 |ohn A.M. TYTGAT |
00000170 61 6e 64 20 61 72 65 20 66 72 65 65 6c 79 20 20 |and are freely |
00000180 20 20 20 20 20 20 20 20 2a 0a 2a 20 20 20 64 69 | *.* di|
00000190 73 74 72 69 62 75 74 61 62 6c 65 2c 20 70 72 6f |stributable, pro|
000001a0 76 69 64 65 64 20 74 68 69 73 20 6e 6f 74 69 63 |vided this notic|
000001b0 65 20 69 73 20 6c 65 66 74 20 69 6e 74 61 63 74 |e is left intact|
000001c0 20 61 6e 64 20 61 6c 6c 20 6f 66 20 74 68 65 20 | and all of the |
000001d0 20 20 2a 0a 2a 20 20 20 66 69 6c 65 73 20 6c 69 | *.* files li|
000001e0 73 74 65 64 20 62 65 6c 6f 77 20 61 72 65 20 69 |sted below are i|
000001f0 6e 63 6c 75 64 65 64 2c 20 55 4e 41 4c 54 45 52 |ncluded, UNALTER|
00000200 45 44 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 |ED. |
00000210 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 2a 20 | *.* |
00000220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00000260 20 20 20 20 20 20 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a | *.********|
00000270 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000002b0 2a 0a 0a 0a 46 69 6c 65 73 20 69 6e 63 6c 75 64 |*...Files includ|
000002c0 65 64 20 3a 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |ed :.===========|
000002d0 3d 3d 3d 0a 0a 28 31 29 20 54 68 65 20 27 54 69 |===..(1) The 'Ti|
000002e0 6d 65 4f 75 74 27 20 6d 6f 64 75 6c 65 20 76 31 |meOut' module v1|
000002f0 2e 30 34 20 3a 20 22 54 69 6d 65 4f 75 74 22 0a |.04 : "TimeOut".|
00000300 28 32 29 20 54 68 65 20 68 65 6c 70 20 66 69 6c |(2) The help fil|
00000310 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a |e :|
00000320 20 22 48 65 6c 70 54 69 6d 65 4f 75 74 22 0a 28 | "HelpTimeOut".(|
00000330 33 29 20 41 6e 20 65 78 61 6d 70 6c 65 20 42 41 |3) An example BA|
00000340 53 49 43 20 70 72 6f 67 72 61 6d 20 20 20 3a 20 |SIC program : |
00000350 22 45 78 54 69 6d 65 4f 75 74 22 0a 0a 41 49 4d |"ExTimeOut"..AIM|
00000360 20 3a 0a 3d 3d 3d 0a 0a 27 54 69 6d 65 4f 75 74 | :.===..'TimeOut|
00000370 27 20 67 65 6e 65 72 61 74 65 73 20 61 66 74 65 |' generates afte|
00000380 72 20 61 20 63 65 72 74 61 69 6e 20 61 6d 6f 75 |r a certain amou|
00000390 6e 74 68 20 6f 66 20 74 69 6d 65 20 61 6e 20 75 |nth of time an u|
000003a0 73 65 72 2d 64 65 66 69 6e 65 64 20 65 72 72 6f |ser-defined erro|
000003b0 72 2e 0a 54 68 69 73 20 63 61 6e 20 62 65 20 76 |r..This can be v|
000003c0 65 72 79 20 68 61 6e 64 79 20 69 6e 20 70 72 6f |ery handy in pro|
000003d0 67 72 61 6d 73 20 77 68 65 72 65 20 79 6f 75 20 |grams where you |
000003e0 68 61 76 65 20 74 6f 20 6c 65 61 76 65 20 61 6e |have to leave an|
000003f0 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 0a 61 | infinite loop.a|
00000400 66 74 65 72 20 61 20 63 65 72 74 61 69 6e 20 61 |fter a certain a|
00000410 6d 6f 75 6e 74 68 20 6f 66 20 74 69 6d 65 20 6f |mounth of time o|
00000420 72 20 77 68 65 72 65 20 74 68 65 72 65 20 69 73 |r where there is|
00000430 20 61 20 74 69 6d 65 20 6c 69 6d 69 74 61 74 69 | a time limitati|
00000440 6f 6e 20 69 6e 20 61 0a 73 75 62 72 6f 75 74 69 |on in a.subrouti|
00000450 6e 65 20 28 65 78 2e 20 69 6e 20 73 65 72 69 61 |ne (ex. in seria|
00000460 6c 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 29 |l communication)|
00000470 2e 0a 59 6f 75 20 68 61 76 65 20 74 6f 20 73 65 |..You have to se|
00000480 74 75 70 20 61 20 6c 6f 63 61 6c 20 65 72 72 6f |tup a local erro|
00000490 72 20 72 6f 75 74 69 6e 65 20 28 73 65 65 20 74 |r routine (see t|
000004a0 68 65 20 65 78 61 6d 70 6c 65 20 42 41 53 49 43 |he example BASIC|
000004b0 20 66 69 6c 65 0a 22 45 78 54 69 6d 65 4f 75 74 | file."ExTimeOut|
000004c0 22 29 20 63 68 65 63 6b 69 6e 67 20 69 66 20 69 |") checking if i|
000004d0 74 20 69 73 20 61 20 54 69 6d 65 4f 75 74 20 65 |t is a TimeOut e|
000004e0 72 72 6f 72 20 6f 72 20 6e 6f 74 2e 0a 0a 48 6f |rror or not...Ho|
000004f0 77 20 74 6f 20 75 73 65 20 69 74 20 3f 0a 3d 3d |w to use it ?.==|
00000500 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 54 68 65 |===========..The|
00000510 20 6d 6f 64 75 6c 65 20 27 54 69 6d 65 4f 75 74 | module 'TimeOut|
00000520 27 20 64 6f 65 73 20 6f 6e 6c 79 20 73 75 70 70 |' does only supp|
00000530 6f 72 74 20 53 57 49 27 73 2e 20 20 53 6f 6d 65 |ort SWI's. Some|
00000540 20 63 68 61 72 61 63 74 65 72 69 73 74 69 63 73 | characteristics|
00000550 20 6f 66 20 74 68 65 0a 6d 6f 64 75 6c 65 20 61 | of the.module a|
00000560 72 65 20 3a 0a 0a 4d 6f 64 75 6c 65 20 74 69 74 |re :..Module tit|
00000570 6c 65 20 20 20 20 20 20 20 20 20 20 3a 20 27 54 |le : 'T|
00000580 69 6d 65 4f 75 74 27 0a 4d 6f 64 75 6c 65 20 68 |imeOut'.Module h|
00000590 65 6c 70 20 20 20 20 20 20 20 20 20 20 20 3a 20 |elp : |
000005a0 27 57 61 74 63 68 64 6f 67 20 74 69 6d 65 72 27 |'Watchdog timer'|
000005b0 0a 53 57 49 20 63 68 75 6e 6b 20 62 61 73 65 20 |.SWI chunk base |
000005c0 6e 75 6d 62 65 72 20 3a 20 26 43 30 30 38 30 0a |number : &C0080.|
000005d0 45 72 72 6f 72 20 62 61 73 65 20 6e 75 6d 62 65 |Error base numbe|
000005e0 72 20 20 20 20 20 3a 20 26 33 30 30 38 30 0a 53 |r : &30080.S|
000005f0 57 49 20 67 72 6f 75 70 20 70 72 65 66 69 78 20 |WI group prefix |
00000600 20 20 20 20 20 3a 20 27 54 69 6d 65 4f 75 74 27 | : 'TimeOut'|
00000610 0a 0a 43 75 72 72 65 6e 74 6c 79 20 64 65 66 69 |..Currently defi|
00000620 6e 65 64 20 53 57 49 20 61 72 65 20 3a 0a 0a 53 |ned SWI are :..S|
00000630 57 49 20 22 54 69 6d 65 4f 75 74 5f 44 75 72 61 |WI "TimeOut_Dura|
00000640 74 69 6f 6e 22 2c 52 30 20 54 4f 20 52 30 2c 52 |tion",R0 TO R0,R|
00000650 31 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |1.--------------|
00000660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000670 2d 2d 2d 2d 0a 0a 44 45 53 43 2e 20 7c 20 52 65 |----..DESC. | Re|
00000680 61 64 73 2f 57 72 69 74 65 73 20 74 68 65 20 54 |ads/Writes the T|
00000690 69 6d 65 4f 75 74 20 64 75 72 61 74 69 6f 6e 20 |imeOut duration |
000006a0 69 6e 20 63 73 65 63 73 0a 45 4e 54 52 59 20 7c |in csecs.ENTRY ||
000006b0 20 49 66 20 52 30 20 3d 20 30 20 52 65 61 64 73 | If R0 = 0 Reads|
000006c0 20 74 68 65 20 54 69 6d 65 4f 75 74 20 64 75 72 | the TimeOut dur|
000006d0 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 49 66 |ation. If|
000006e0 20 52 30 20 3c 3e 20 30 20 57 72 69 74 65 73 20 | R0 <> 0 Writes |
000006f0 74 68 65 20 54 69 6d 65 4f 75 74 20 64 75 72 61 |the TimeOut dura|
00000700 74 69 6f 6e 0a 45 58 49 54 20 20 7c 20 52 30 20 |tion.EXIT | R0 |
00000710 3d 20 4f 6c 64 20 54 69 6d 65 4f 75 74 20 64 75 |= Old TimeOut du|
00000720 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 52 |ration. R|
00000730 31 20 3d 20 54 69 6d 65 20 6c 65 66 74 20 74 69 |1 = Time left ti|
00000740 6c 6c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 |ll the following|
00000750 20 54 69 6d 65 4f 75 74 0a 43 4f 4d 4d 2e 20 7c | TimeOut.COMM. ||
00000760 20 53 57 49 20 69 73 20 72 65 2d 65 6e 74 72 61 | SWI is re-entra|
00000770 6e 74 0a 4d 4f 44 45 53 20 7c 20 41 6c 6c 0a 0a |nt.MODES | All..|
00000780 54 68 69 73 20 53 57 49 20 73 65 74 73 20 74 68 |This SWI sets th|
00000790 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 69 6d 65 |e length of time|
000007a0 20 69 6e 20 63 73 65 63 73 20 62 65 74 77 65 65 | in csecs betwee|
000007b0 6e 20 27 53 57 49 20 22 54 69 6d 65 4f 75 74 5f |n 'SWI "TimeOut_|
000007c0 53 74 61 72 74 22 27 20 61 6e 64 0a 74 68 65 20 |Start"' and.the |
000007d0 54 69 6d 65 4f 75 74 20 65 72 72 6f 72 20 61 73 |TimeOut error as|
000007e0 20 6c 6f 6e 67 20 61 73 20 74 68 65 20 70 72 6f | long as the pro|
000007f0 67 72 61 6d 20 64 69 64 6e 27 74 20 69 73 73 75 |gram didn't issu|
00000800 65 20 61 20 27 53 57 49 20 22 54 69 6d 65 4f 75 |e a 'SWI "TimeOu|
00000810 74 5f 53 74 6f 70 22 27 2e 0a 54 68 65 20 64 65 |t_Stop"'..The de|
00000820 66 61 75 6c 74 20 54 69 6d 65 4f 75 74 20 64 75 |fault TimeOut du|
00000830 72 61 74 69 6f 6e 20 69 73 20 31 30 30 20 63 73 |ration is 100 cs|
00000840 65 63 73 2e 0a 0a 53 57 49 20 22 54 69 6d 65 4f |ecs...SWI "TimeO|
00000850 75 74 5f 53 74 72 69 6e 67 22 2c 52 30 0a 2d 2d |ut_String",R0.--|
00000860 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00000870 2d 2d 2d 2d 2d 0a 0a 44 45 53 43 2e 20 7c 20 53 |-----..DESC. | S|
00000880 65 74 73 20 74 68 65 20 54 69 6d 65 4f 75 74 20 |ets the TimeOut |
00000890 65 72 72 6f 72 20 73 74 72 69 6e 67 0a 45 4e 54 |error string.ENT|
000008a0 52 59 20 7c 20 52 30 20 3d 20 50 6f 69 6e 74 65 |RY | R0 = Pointe|
000008b0 72 20 74 6f 20 74 68 65 20 54 69 6d 65 4f 75 74 |r to the TimeOut|
000008c0 20 65 72 72 6f 72 20 73 74 72 69 6e 67 20 28 6d | error string (m|
000008d0 61 78 2e 20 32 35 32 20 63 68 61 72 73 29 0a 45 |ax. 252 chars).E|
000008e0 58 49 54 20 20 7c 20 2d 0a 43 4f 4d 4d 2e 20 7c |XIT | -.COMM. ||
000008f0 20 53 57 49 20 69 73 20 6e 6f 74 20 72 65 2d 65 | SWI is not re-e|
00000900 6e 74 72 61 6e 74 0a 4d 4f 44 45 53 20 7c 20 41 |ntrant.MODES | A|
00000910 6c 6c 0a 0a 55 73 69 6e 67 20 74 68 69 73 20 53 |ll..Using this S|
00000920 57 49 20 79 6f 75 20 63 61 6e 20 63 68 61 6e 67 |WI you can chang|
00000930 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 54 69 |e the default Ti|
00000940 6d 65 4f 75 74 20 65 72 72 6f 72 20 73 74 72 69 |meOut error stri|
00000950 6e 67 20 28 22 54 69 6d 65 4f 75 74 0a 72 75 6e |ng ("TimeOut.run|
00000960 73 20 6f 75 74 20 6f 66 20 74 69 6d 65 22 29 2e |s out of time").|
00000970 0a 0a 53 57 49 20 22 54 69 6d 65 4f 75 74 5f 53 |..SWI "TimeOut_S|
00000980 74 61 72 74 22 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |tart".----------|
00000990 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 44 45 53 43 2e |---------..DESC.|
000009a0 20 7c 20 53 74 61 72 74 73 20 74 68 65 20 54 69 | | Starts the Ti|
000009b0 6d 65 4f 75 74 20 63 6f 75 6e 74 2d 64 6f 77 6e |meOut count-down|
000009c0 0a 45 4e 54 52 59 20 7c 20 2d 0a 45 58 49 54 20 |.ENTRY | -.EXIT |
000009d0 20 7c 20 2d 0a 43 4f 4d 4d 2e 20 7c 20 53 57 49 | | -.COMM. | SWI|
000009e0 20 69 73 20 6e 6f 74 20 72 65 2d 65 6e 74 72 61 | is not re-entra|
000009f0 6e 74 20 61 73 20 69 74 20 64 69 73 61 62 6c 65 |nt as it disable|
00000a00 73 20 49 52 51 0a 4d 4f 44 45 53 20 7c 20 41 6c |s IRQ.MODES | Al|
00000a10 6c 0a 0a 42 65 66 6f 72 65 20 74 68 65 20 61 63 |l..Before the ac|
00000a20 74 75 61 6c 6c 79 20 63 6f 75 6e 74 2d 64 6f 77 |tually count-dow|
00000a30 6e 20 69 73 20 73 74 61 72 74 65 64 20 74 68 65 |n is started the|
00000a40 20 63 6f 75 6e 74 65 72 20 69 73 20 72 65 73 65 | counter is rese|
00000a50 74 65 64 2e 0a 0a 53 57 49 20 22 54 69 6d 65 4f |ted...SWI "TimeO|
00000a60 75 74 5f 53 74 6f 70 22 0a 2d 2d 2d 2d 2d 2d 2d |ut_Stop".-------|
00000a70 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 44 45 53 |-----------..DES|
00000a80 43 2e 20 7c 20 53 74 6f 70 73 20 74 68 65 20 54 |C. | Stops the T|
00000a90 69 6d 65 4f 75 74 20 63 6f 75 6e 74 2d 64 6f 77 |imeOut count-dow|
00000aa0 6e 0a 45 4e 54 52 59 20 7c 20 2d 0a 45 58 49 54 |n.ENTRY | -.EXIT|
00000ab0 20 20 7c 20 2d 0a 43 4f 4d 4d 2e 20 7c 20 53 57 | | -.COMM. | SW|
00000ac0 49 20 69 73 20 6e 6f 74 20 72 65 2d 65 6e 74 72 |I is not re-entr|
00000ad0 61 6e 74 20 61 73 20 69 74 20 64 69 73 61 62 6c |ant as it disabl|
00000ae0 65 73 20 49 52 51 0a 4d 4f 44 45 53 20 7c 20 41 |es IRQ.MODES | A|
00000af0 6c 6c 0a 0a 55 73 69 6e 67 20 74 68 69 73 20 53 |ll..Using this S|
00000b00 57 49 20 69 73 20 74 68 65 20 6f 6e 6c 79 20 77 |WI is the only w|
00000b10 61 79 20 74 6f 20 70 72 65 76 65 6e 74 20 74 68 |ay to prevent th|
00000b20 65 20 54 69 6d 65 4f 75 74 20 65 72 72 6f 72 20 |e TimeOut error |
00000b30 67 65 6e 65 72 61 74 69 6f 6e 2e 0a 0a 48 6f 77 |generation...How|
00000b40 20 69 74 20 77 6f 72 6b 73 20 3f 0a 3d 3d 3d 3d | it works ?.====|
00000b50 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 57 65 6c 6c 2c 20 |========..Well, |
00000b60 74 68 65 20 63 6f 75 6e 74 65 72 20 69 73 20 6d |the counter is m|
00000b70 61 64 65 20 75 73 69 6e 67 20 74 68 65 20 54 69 |ade using the Ti|
00000b80 63 6b 65 72 56 20 76 65 63 74 6f 72 2e 20 20 49 |ckerV vector. I|
00000b90 66 20 74 68 65 20 63 6f 75 6e 74 65 72 20 72 65 |f the counter re|
00000ba0 61 63 68 65 73 0a 7a 65 72 6f 20 74 68 65 20 6d |aches.zero the m|
00000bb0 6f 64 75 6c 65 20 75 73 65 73 20 69 6e 20 74 68 |odule uses in th|
00000bc0 65 20 54 69 63 6b 65 72 56 20 69 6e 74 65 72 72 |e TickerV interr|
00000bd0 75 70 74 20 72 6f 75 74 69 6e 65 20 61 20 53 57 |upt routine a SW|
00000be0 49 20 22 4f 53 5f 41 64 64 43 61 6c 6c 42 61 63 |I "OS_AddCallBac|
00000bf0 6b 22 0a 74 6f 20 61 64 64 20 61 20 43 61 6c 6c |k".to add a Call|
00000c00 42 61 63 6b 20 72 6f 75 74 69 6e 65 20 77 68 65 |Back routine whe|
00000c10 72 65 20 74 68 65 20 54 69 6d 65 4f 75 74 20 65 |re the TimeOut e|
00000c20 72 72 6f 72 20 69 73 20 67 65 6e 65 72 61 74 65 |rror is generate|
00000c30 64 20 75 73 69 6e 67 20 61 20 53 57 49 0a 22 4f |d using a SWI."O|
00000c40 53 5f 47 65 6e 65 72 61 74 65 45 72 72 6f 72 22 |S_GenerateError"|
00000c50 2e 20 49 20 68 61 76 65 20 74 6f 20 75 73 65 20 |. I have to use |
00000c60 74 68 65 20 43 61 6c 6c 42 61 63 6b 20 70 72 69 |the CallBack pri|
00000c70 6e 63 69 70 6c 65 20 62 65 63 61 75 73 65 20 69 |nciple because i|
00000c80 74 20 73 65 65 6d 73 20 69 74 0a 69 73 20 6e 6f |t seems it.is no|
00000c90 74 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 67 65 |t possible to ge|
00000ca0 6e 65 72 61 74 65 20 61 6e 20 65 72 72 6f 72 20 |nerate an error |
00000cb0 69 6e 20 61 20 69 6e 74 65 72 72 75 70 74 20 72 |in a interrupt r|
00000cc0 6f 75 74 69 6e 65 2e 20 20 4d 69 6e 64 20 69 66 |outine. Mind if|
00000cd0 20 79 6f 75 0a 73 77 69 74 63 68 20 6f 66 66 20 | you.switch off |
00000ce0 74 68 65 20 69 6e 74 65 72 72 75 70 74 73 20 74 |the interrupts t|
00000cf0 68 65 20 63 6f 75 6e 74 65 72 20 69 73 6e 27 74 |he counter isn't|
00000d00 20 75 70 64 61 74 65 64 2c 20 73 6f 20 74 68 65 | updated, so the|
00000d10 20 54 69 6d 65 4f 75 74 20 6d 6f 64 75 6c 65 0a | TimeOut module.|
00000d20 77 6f 75 6c 64 20 6e 6f 74 20 77 6f 72 6b 2e 0a |would not work..|
00000d30 0a 45 72 72 6f 72 73 20 3a 0a 3d 3d 3d 3d 3d 3d |.Errors :.======|
00000d40 0a 0a 26 33 30 30 38 30 20 3a 20 55 73 65 72 20 |..&30080 : User |
00000d50 64 65 66 69 6e 65 64 2c 20 64 65 66 61 75 6c 74 |defined, default|
00000d60 20 27 54 69 6d 65 4f 75 74 27 20 6d 65 73 73 61 | 'TimeOut' messa|
00000d70 67 65 20 69 73 20 22 27 54 69 6d 65 4f 75 74 27 |ge is "'TimeOut'|
00000d80 20 72 75 6e 73 20 6f 75 74 20 6f 66 20 74 69 6d | runs out of tim|
00000d90 65 22 0a 26 33 30 30 38 31 20 3a 20 22 55 6e 6b |e".&30081 : "Unk|
00000da0 6e 6f 77 6e 20 54 69 6d 65 4f 75 74 20 53 57 49 |nown TimeOut SWI|
00000db0 20 6f 70 65 72 61 74 69 6f 6e 22 0a 26 33 30 30 | operation".&300|
00000dc0 38 32 20 3a 20 22 54 69 6d 65 4f 75 74 20 65 72 |82 : "TimeOut er|
00000dd0 72 6f 72 20 73 74 72 69 6e 67 20 69 73 20 74 6f |ror string is to|
00000de0 6f 20 6c 6f 6e 67 22 0a 0a 56 65 72 73 69 6f 6e |o long"..Version|
00000df0 73 20 3a 0a 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 76 30 |s :.========..v0|
00000e00 2e 30 34 20 3a 20 46 69 72 73 74 20 70 75 62 6c |.04 : First publ|
00000e10 69 63 20 64 6f 6d 61 69 6e 20 76 65 72 73 69 6f |ic domain versio|
00000e20 6e 0a 0a 42 41 53 53 20 3a 0a 3d 3d 3d 3d 0a 0a |n..BASS :.====..|
00000e30 4d 6f 64 75 6c 65 20 27 54 69 6d 65 4f 75 74 27 |Module 'TimeOut'|
00000e40 20 69 73 20 72 65 6c 65 61 73 65 64 20 61 73 20 | is released as |
00000e50 61 20 42 41 53 53 20 70 72 6f 64 75 63 74 2e 20 |a BASS product. |
00000e60 20 42 41 53 53 20 28 42 65 6c 67 69 61 6e 20 41 | BASS (Belgian A|
00000e70 72 63 68 69 6d 65 64 65 73 0a 53 6f 66 74 77 61 |rchimedes.Softwa|
00000e80 72 65 2d 77 72 69 74 65 72 73 20 53 6f 63 69 65 |re-writers Socie|
00000e90 74 79 29 20 69 73 20 67 72 6f 75 70 20 6f 66 20 |ty) is group of |
00000ea0 79 6f 75 6e 67 20 65 6e 74 68 6f 75 73 69 61 73 |young enthousias|
00000eb0 74 20 73 6f 66 74 77 61 72 65 2d 77 72 69 74 65 |t software-write|
00000ec0 72 73 20 77 68 6f 0a 6c 69 6b 65 20 74 6f 20 77 |rs who.like to w|
00000ed0 72 69 74 65 20 41 72 63 68 69 6d 65 64 65 73 20 |rite Archimedes |
00000ee0 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 20 70 72 |public domain pr|
00000ef0 6f 67 72 61 6d 73 2e 20 20 49 66 20 79 6f 75 20 |ograms. If you |
00000f00 77 61 6e 74 20 74 6f 20 6b 6e 6f 77 20 6d 6f 72 |want to know mor|
00000f10 65 0a 61 62 6f 75 74 20 75 73 2c 20 70 6c 65 61 |e.about us, plea|
00000f20 73 65 20 66 65 65 6c 20 66 72 65 65 20 74 6f 20 |se feel free to |
00000f30 63 6f 6e 74 61 63 74 20 75 73 20 21 0a 0a 0a 43 |contact us !...C|
00000f40 6f 6e 64 69 74 69 6f 6e 73 20 6f 66 20 75 73 65 |onditions of use|
00000f50 20 3a 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | :.=============|
00000f60 3d 3d 3d 3d 0a 0a 54 68 69 73 20 73 6f 66 74 77 |====..This softw|
00000f70 61 72 65 20 69 73 20 73 75 70 70 6c 69 65 64 20 |are is supplied |
00000f80 22 61 73 20 69 73 22 3b 20 6e 6f 20 77 61 72 72 |"as is"; no warr|
00000f90 61 6e 74 79 2c 20 65 78 70 72 65 73 73 20 6f 72 |anty, express or|
00000fa0 20 69 6d 70 6c 69 65 64 2c 20 6f 66 20 74 68 65 | implied, of the|
00000fb0 0a 6d 65 72 63 68 61 6e 74 61 62 69 6c 69 74 79 |.merchantability|
00000fc0 20 6f 66 20 74 68 69 73 20 73 6f 66 74 77 61 72 | of this softwar|
00000fd0 65 20 6f 72 20 69 74 73 20 66 69 74 6e 65 73 73 |e or its fitness|
00000fe0 20 66 6f 72 20 61 6e 79 20 70 61 72 74 69 63 75 | for any particu|
00000ff0 6c 61 72 20 70 75 72 70 6f 73 65 0a 69 73 20 67 |lar purpose.is g|
00001000 69 76 65 6e 2e 20 20 49 6e 20 6e 6f 20 63 69 72 |iven. In no cir|
00001010 63 75 6d 73 74 61 6e 63 65 73 20 73 68 61 6c 6c |cumstances shall|
00001020 20 74 68 65 20 70 72 6f 76 69 64 65 72 73 20 6f | the providers o|
00001030 66 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 |f this software |
00001040 62 65 0a 6c 69 61 62 6c 65 20 66 6f 72 20 61 6e |be.liable for an|
00001050 79 20 64 61 6d 61 67 65 2c 20 6c 6f 73 73 20 6f |y damage, loss o|
00001060 66 20 70 72 6f 66 69 74 73 2c 20 6f 72 20 61 6e |f profits, or an|
00001070 79 20 69 6e 64 69 72 65 63 74 20 6f 72 20 63 6f |y indirect or co|
00001080 6e 73 65 71 75 65 6e 74 69 61 6c 0a 6c 6f 73 73 |nsequential.loss|
00001090 20 61 72 69 73 69 6e 67 20 6f 75 74 20 6f 66 20 | arising out of |
000010a0 74 68 65 20 75 73 65 20 6f 66 20 74 68 69 73 20 |the use of this |
000010b0 73 6f 66 74 77 61 72 65 20 6f 72 20 69 6e 61 62 |software or inab|
000010c0 69 6c 69 74 79 20 74 6f 20 75 73 65 20 74 68 69 |ility to use thi|
000010d0 73 0a 73 6f 66 74 77 61 72 65 2e 0a 0a 59 6f 75 |s.software...You|
000010e0 20 61 72 65 20 66 72 65 65 20 74 6f 20 67 69 76 | are free to giv|
000010f0 65 20 74 68 69 73 20 61 70 70 6c 69 63 61 74 69 |e this applicati|
00001100 6f 6e 20 74 6f 20 61 6e 79 6f 6e 65 20 79 6f 75 |on to anyone you|
00001110 20 70 6c 65 61 73 65 20 76 69 61 20 61 6e 79 20 | please via any |
00001120 6d 65 64 69 75 6d 2c 0a 70 72 6f 76 69 64 65 64 |medium,.provided|
00001130 20 69 74 20 69 73 20 64 65 6c 69 76 65 72 65 64 | it is delivered|
00001140 20 77 69 74 68 20 41 4c 4c 20 74 68 65 20 73 75 | with ALL the su|
00001150 70 70 6c 69 65 64 20 66 69 6c 65 73 2c 20 55 4e |pplied files, UN|
00001160 41 4c 54 45 52 45 44 2e 20 20 59 6f 75 20 6d 61 |ALTERED. You ma|
00001170 79 0a 4e 4f 54 20 73 65 6c 6c 20 74 68 69 73 20 |y.NOT sell this |
00001180 73 6f 66 74 77 61 72 65 2c 20 6f 72 20 75 73 65 |software, or use|
00001190 20 69 74 20 6f 74 68 65 72 77 69 73 65 20 66 6f | it otherwise fo|
000011a0 72 20 70 65 72 73 6f 6e 61 6c 20 67 61 69 6e 2e |r personal gain.|
000011b0 20 20 49 66 20 79 6f 75 20 77 69 73 68 0a 74 6f | If you wish.to|
000011c0 20 70 6f 73 74 20 69 74 20 6f 6e 20 79 6f 75 72 | post it on your|
000011d0 20 42 75 6c 6c 65 74 69 6e 20 42 6f 61 72 64 20 | Bulletin Board |
000011e0 6f 72 20 69 6e 63 6c 75 64 65 20 69 74 20 69 6e |or include it in|
000011f0 20 79 6f 75 72 20 53 68 61 72 65 77 61 72 65 20 | your Shareware |
00001200 6c 69 62 72 61 72 79 0a 74 68 65 6e 20 74 68 61 |library.then tha|
00001210 74 2c 20 74 6f 6f 2c 20 69 73 20 66 69 6e 65 2e |t, too, is fine.|
00001220 0a 0a 41 20 6c 61 72 67 65 20 6e 75 6d 62 65 72 |..A large number|
00001230 20 6f 66 20 68 6f 75 72 73 20 6f 66 20 77 6f 72 | of hours of wor|
00001240 6b 20 68 61 76 65 20 67 6f 6e 65 20 69 6e 74 6f |k have gone into|
00001250 20 74 68 65 20 70 72 6f 64 75 63 74 69 6f 6e 20 | the production |
00001260 61 6e 64 0a 6d 61 69 6e 74 65 6e 61 6e 63 65 20 |and.maintenance |
00001270 6f 66 20 74 68 69 73 20 6d 6f 64 75 6c 65 20 61 |of this module a|
00001280 6e 64 20 61 6c 74 68 6f 75 67 68 20 49 20 68 61 |nd although I ha|
00001290 76 65 20 73 75 70 70 6c 69 65 64 20 74 68 65 20 |ve supplied the |
000012a0 61 70 70 6c 69 63 61 74 69 6f 6e 0a 66 72 65 65 |application.free|
000012b0 2c 20 64 6f 6e 61 74 69 6f 6e 73 20 77 69 6c 6c |, donations will|
000012c0 20 62 65 20 67 72 61 74 65 66 75 6c 6c 79 20 72 | be gratefully r|
000012d0 65 63 65 69 76 65 64 2e 0a 0a 50 6c 65 61 73 65 |eceived...Please|
000012e0 20 72 65 70 6f 72 74 20 61 6e 79 20 62 75 67 73 | report any bugs|
000012f0 20 79 6f 75 20 66 69 6e 64 20 74 6f 20 6d 65 2c | you find to me,|
00001300 20 73 6f 20 74 68 61 74 20 6f 74 68 65 72 20 75 | so that other u|
00001310 73 65 72 73 20 6d 61 79 20 62 65 6e 65 66 69 74 |sers may benefit|
00001320 20 66 72 6f 6d 0a 69 6d 70 72 6f 76 65 64 20 76 | from.improved v|
00001330 65 72 73 69 6f 6e 73 2e 20 20 49 20 63 61 6e 6e |ersions. I cann|
00001340 6f 74 20 67 75 61 72 61 6e 74 65 65 20 74 6f 20 |ot guarantee to |
00001350 66 69 78 20 61 6e 79 20 62 75 67 73 2c 20 62 75 |fix any bugs, bu|
00001360 74 20 49 20 77 69 6c 6c 20 64 6f 20 6d 79 0a 62 |t I will do my.b|
00001370 65 73 74 2e 0a 0a 0a 4d 79 20 61 64 64 72 65 73 |est....My addres|
00001380 73 20 69 73 3a 0a 0a 4a 6f 68 6e 20 54 59 54 47 |s is:..John TYTG|
00001390 41 54 0a 42 72 75 73 73 65 6c 62 61 61 6e 20 34 |AT.Brusselbaan 4|
000013a0 34 35 0a 42 2d 31 36 30 30 20 53 74 2e 2d 50 69 |45.B-1600 St.-Pi|
000013b0 65 74 65 72 73 2d 4c 65 65 75 77 0a 42 45 4c 47 |eters-Leeuw.BELG|
000013c0 49 55 4d 0a 0a a9 20 42 41 53 53 20 31 39 39 31 |IUM... BASS 1991|
000013d0 
.