Home » Archimedes archive » Acorn User » AU 1995-04.adf » !Internet_StarterPak » SerialDev/Example
SerialDev/Example
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 » Acorn User » AU 1995-04.adf » !Internet_StarterPak |
| Filename: | SerialDev/Example |
| Read OK: | ✔ |
| File size: | 0548 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM driver 4096
20
30OSCLI("LOAD SerialDev:modules.internal.driver "+STR$~driver)
40
50DRIVER_PUTBYTE =0
60DRIVER_GETBYTE =1
70DRIVER_PUTBLOCK =2
80DRIVER_GETBLOCK =3
90DRIVER_CHECKTX =4
100DRIVER_CHECKRX =5
110DRIVER_FLUSHTX =6
120DRIVER_FLUSHRX =7
130DRIVER_CONTROLLINES =8
140DRIVER_MODEMCONTROL =9
150DRIVER_RXERRORS =10
160DRIVER_BREAK =11
170DRIVER_EXAMINE =12
180DRIVER_TXSPEED =13
190DRIVER_RXSPEED =14
200DRIVER_WORDFORMAT =15
210DRIVER_FLOWCONTROL =16
220DRIVER_INITIALISE =17
230DRIVER_CLOSEDOWN =18
240DRIVER_POLL =19
250
260J%=FNd(DRIVER_INITIALISE,0,0,0)
270IF J%<>0 THEN
280 err$=""
290 REPEAT
300 err$+=CHR$?J%
310 J%+=1
320 UNTIL ?J%=0
330 PRINT "Error when initialising driver: ";err$
340 END
350ENDIF
360J%=FNd(DRIVER_TXSPEED,0,19200,0)
370J%=FNd(DRIVER_RXSPEED,0,19200,0)
380J%=FNd(DRIVER_WORDFORMAT,0,0,0)
390
400REM Drop DTR & RTS for 1 second
410J%=FNd(DRIVER_CONTROLLINES,0,0,0)
420T%=TIME
430REPEATJ%=FNd(DRIVER_POLL,0,0,0):UNTIL(TIME-T%)>100
440J%=FNd(DRIVER_CONTROLLINES,0,3,0)
450
460REM Main loop
470REPEAT
480 J%=FNd(DRIVER_POLL,0,0,0)
490 IF FNd(DRIVER_CHECKRX,0,0,0)>0 THEN
500 J%=FNd(DRIVER_GETBYTE,0,0,0)
510 IF J%>31 OR J%=10 OR J%=13 VDU J%
520 ENDIF
530 IF ADVAL(-1)>0 THEN
540 J%=FNd(DRIVER_PUTBYTE,0,GET,0)
550 ENDIF
560UNTIL 0
570
580END
590
600DEFFNd(A%,B%,C%,D%)
610:=USR(driver)
� driver 4096
9�("LOAD SerialDev:modules.internal.driver "+�~driver)
(
2DRIVER_PUTBYTE =0
<DRIVER_GETBYTE =1
FDRIVER_PUTBLOCK =2
PDRIVER_GETBLOCK =3
ZDRIVER_CHECKTX =4
dDRIVER_CHECKRX =5
nDRIVER_FLUSHTX =6
xDRIVER_FLUSHRX =7
�DRIVER_CONTROLLINES =8
�DRIVER_MODEMCONTROL =9
� DRIVER_RXERRORS =10
� DRIVER_BREAK =11
� DRIVER_EXAMINE =12
� DRIVER_TXSPEED =13
� DRIVER_RXSPEED =14
� DRIVER_WORDFORMAT =15
� DRIVER_FLOWCONTROL =16
� DRIVER_INITIALISE =17
� DRIVER_CLOSEDOWN =18
� DRIVER_POLL =19
�
"J%=�d(DRIVER_INITIALISE,0,0,0)
� J%<>0 �
err$=""
" �
, err$+=�?J%
6
J%+=1
@
� ?J%=0
J/ � "Error when initialising driver: ";err$
T �
^�
h#J%=�d(DRIVER_TXSPEED,0,19200,0)
r#J%=�d(DRIVER_RXSPEED,0,19200,0)
|"J%=�d(DRIVER_WORDFORMAT,0,0,0)
�
�!� Drop DTR & RTS for 1 second
�$J%=�d(DRIVER_CONTROLLINES,0,0,0)
�T%=�
�)�J%=�d(DRIVER_POLL,0,0,0):�(�-T%)>100
�$J%=�d(DRIVER_CONTROLLINES,0,3,0)
�
�� Main loop
��
� J%=�d(DRIVER_POLL,0,0,0)
�$ � �d(DRIVER_CHECKRX,0,0,0)>0 �
�# J%=�d(DRIVER_GETBYTE,0,0,0)
�$ � J%>31 � J%=10 � J%=13 � J%
�
� �(-1)>0 �
# J%=�d(DRIVER_PUTBYTE,0,�,0)
& �
0� 0
:
D�
N
Xݤd(A%,B%,C%,D%)
b:=�(driver)
� 00000000 0d 00 0a 11 de 20 64 72 69 76 65 72 20 34 30 39 |..... driver 409|
00000010 36 0d 00 14 04 0d 00 1e 39 ff 28 22 4c 4f 41 44 |6.......9.("LOAD|
00000020 20 53 65 72 69 61 6c 44 65 76 3a 6d 6f 64 75 6c | SerialDev:modul|
00000030 65 73 2e 69 6e 74 65 72 6e 61 6c 2e 64 72 69 76 |es.internal.driv|
00000040 65 72 20 22 2b c3 7e 64 72 69 76 65 72 29 0d 00 |er "+.~driver)..|
00000050 28 04 0d 00 32 1b 44 52 49 56 45 52 5f 50 55 54 |(...2.DRIVER_PUT|
00000060 42 59 54 45 20 20 20 20 20 20 20 3d 30 0d 00 3c |BYTE =0..<|
00000070 1b 44 52 49 56 45 52 5f 47 45 54 42 59 54 45 20 |.DRIVER_GETBYTE |
00000080 20 20 20 20 20 20 3d 31 0d 00 46 1b 44 52 49 56 | =1..F.DRIV|
00000090 45 52 5f 50 55 54 42 4c 4f 43 4b 20 20 20 20 20 |ER_PUTBLOCK |
000000a0 20 3d 32 0d 00 50 1b 44 52 49 56 45 52 5f 47 45 | =2..P.DRIVER_GE|
000000b0 54 42 4c 4f 43 4b 20 20 20 20 20 20 3d 33 0d 00 |TBLOCK =3..|
000000c0 5a 1b 44 52 49 56 45 52 5f 43 48 45 43 4b 54 58 |Z.DRIVER_CHECKTX|
000000d0 20 20 20 20 20 20 20 3d 34 0d 00 64 1b 44 52 49 | =4..d.DRI|
000000e0 56 45 52 5f 43 48 45 43 4b 52 58 20 20 20 20 20 |VER_CHECKRX |
000000f0 20 20 3d 35 0d 00 6e 1b 44 52 49 56 45 52 5f 46 | =5..n.DRIVER_F|
00000100 4c 55 53 48 54 58 20 20 20 20 20 20 20 3d 36 0d |LUSHTX =6.|
00000110 00 78 1b 44 52 49 56 45 52 5f 46 4c 55 53 48 52 |.x.DRIVER_FLUSHR|
00000120 58 20 20 20 20 20 20 20 3d 37 0d 00 82 1b 44 52 |X =7....DR|
00000130 49 56 45 52 5f 43 4f 4e 54 52 4f 4c 4c 49 4e 45 |IVER_CONTROLLINE|
00000140 53 20 20 3d 38 0d 00 8c 1b 44 52 49 56 45 52 5f |S =8....DRIVER_|
00000150 4d 4f 44 45 4d 43 4f 4e 54 52 4f 4c 20 20 3d 39 |MODEMCONTROL =9|
00000160 0d 00 96 1c 44 52 49 56 45 52 5f 52 58 45 52 52 |....DRIVER_RXERR|
00000170 4f 52 53 20 20 20 20 20 20 3d 31 30 0d 00 a0 1c |ORS =10....|
00000180 44 52 49 56 45 52 5f 42 52 45 41 4b 20 20 20 20 |DRIVER_BREAK |
00000190 20 20 20 20 20 3d 31 31 0d 00 aa 1c 44 52 49 56 | =11....DRIV|
000001a0 45 52 5f 45 58 41 4d 49 4e 45 20 20 20 20 20 20 |ER_EXAMINE |
000001b0 20 3d 31 32 0d 00 b4 1c 44 52 49 56 45 52 5f 54 | =12....DRIVER_T|
000001c0 58 53 50 45 45 44 20 20 20 20 20 20 20 3d 31 33 |XSPEED =13|
000001d0 0d 00 be 1c 44 52 49 56 45 52 5f 52 58 53 50 45 |....DRIVER_RXSPE|
000001e0 45 44 20 20 20 20 20 20 20 3d 31 34 0d 00 c8 1c |ED =14....|
000001f0 44 52 49 56 45 52 5f 57 4f 52 44 46 4f 52 4d 41 |DRIVER_WORDFORMA|
00000200 54 20 20 20 20 3d 31 35 0d 00 d2 1c 44 52 49 56 |T =15....DRIV|
00000210 45 52 5f 46 4c 4f 57 43 4f 4e 54 52 4f 4c 20 20 |ER_FLOWCONTROL |
00000220 20 3d 31 36 0d 00 dc 1c 44 52 49 56 45 52 5f 49 | =16....DRIVER_I|
00000230 4e 49 54 49 41 4c 49 53 45 20 20 20 20 3d 31 37 |NITIALISE =17|
00000240 0d 00 e6 1c 44 52 49 56 45 52 5f 43 4c 4f 53 45 |....DRIVER_CLOSE|
00000250 44 4f 57 4e 20 20 20 20 20 3d 31 38 0d 00 f0 1c |DOWN =18....|
00000260 44 52 49 56 45 52 5f 50 4f 4c 4c 20 20 20 20 20 |DRIVER_POLL |
00000270 20 20 20 20 20 3d 31 39 0d 00 fa 04 0d 01 04 22 | =19......."|
00000280 4a 25 3d a4 64 28 44 52 49 56 45 52 5f 49 4e 49 |J%=.d(DRIVER_INI|
00000290 54 49 41 4c 49 53 45 2c 30 2c 30 2c 30 29 0d 01 |TIALISE,0,0,0)..|
000002a0 0e 0d e7 20 4a 25 3c 3e 30 20 8c 0d 01 18 0d 20 |... J%<>0 ..... |
000002b0 20 65 72 72 24 3d 22 22 0d 01 22 07 20 20 f5 0d | err$=""..". ..|
000002c0 01 2c 12 20 20 20 20 65 72 72 24 2b 3d bd 3f 4a |.,. err$+=.?J|
000002d0 25 0d 01 36 0d 20 20 20 20 4a 25 2b 3d 31 0d 01 |%..6. J%+=1..|
000002e0 40 0d 20 20 fd 20 3f 4a 25 3d 30 0d 01 4a 2f 20 |@. . ?J%=0..J/ |
000002f0 20 f1 20 22 45 72 72 6f 72 20 77 68 65 6e 20 69 | . "Error when i|
00000300 6e 69 74 69 61 6c 69 73 69 6e 67 20 64 72 69 76 |nitialising driv|
00000310 65 72 3a 20 22 3b 65 72 72 24 0d 01 54 07 20 20 |er: ";err$..T. |
00000320 e0 0d 01 5e 05 cd 0d 01 68 23 4a 25 3d a4 64 28 |...^....h#J%=.d(|
00000330 44 52 49 56 45 52 5f 54 58 53 50 45 45 44 2c 30 |DRIVER_TXSPEED,0|
00000340 2c 31 39 32 30 30 2c 30 29 0d 01 72 23 4a 25 3d |,19200,0)..r#J%=|
00000350 a4 64 28 44 52 49 56 45 52 5f 52 58 53 50 45 45 |.d(DRIVER_RXSPEE|
00000360 44 2c 30 2c 31 39 32 30 30 2c 30 29 0d 01 7c 22 |D,0,19200,0)..|"|
00000370 4a 25 3d a4 64 28 44 52 49 56 45 52 5f 57 4f 52 |J%=.d(DRIVER_WOR|
00000380 44 46 4f 52 4d 41 54 2c 30 2c 30 2c 30 29 0d 01 |DFORMAT,0,0,0)..|
00000390 86 04 0d 01 90 21 f4 20 44 72 6f 70 20 44 54 52 |.....!. Drop DTR|
000003a0 20 26 20 52 54 53 20 66 6f 72 20 31 20 73 65 63 | & RTS for 1 sec|
000003b0 6f 6e 64 0d 01 9a 24 4a 25 3d a4 64 28 44 52 49 |ond...$J%=.d(DRI|
000003c0 56 45 52 5f 43 4f 4e 54 52 4f 4c 4c 49 4e 45 53 |VER_CONTROLLINES|
000003d0 2c 30 2c 30 2c 30 29 0d 01 a4 08 54 25 3d 91 0d |,0,0,0)....T%=..|
000003e0 01 ae 29 f5 4a 25 3d a4 64 28 44 52 49 56 45 52 |..).J%=.d(DRIVER|
000003f0 5f 50 4f 4c 4c 2c 30 2c 30 2c 30 29 3a fd 28 91 |_POLL,0,0,0):.(.|
00000400 2d 54 25 29 3e 31 30 30 0d 01 b8 24 4a 25 3d a4 |-T%)>100...$J%=.|
00000410 64 28 44 52 49 56 45 52 5f 43 4f 4e 54 52 4f 4c |d(DRIVER_CONTROL|
00000420 4c 49 4e 45 53 2c 30 2c 33 2c 30 29 0d 01 c2 04 |LINES,0,3,0)....|
00000430 0d 01 cc 0f f4 20 4d 61 69 6e 20 6c 6f 6f 70 0d |..... Main loop.|
00000440 01 d6 05 f5 0d 01 e0 1e 20 20 4a 25 3d a4 64 28 |........ J%=.d(|
00000450 44 52 49 56 45 52 5f 50 4f 4c 4c 2c 30 2c 30 2c |DRIVER_POLL,0,0,|
00000460 30 29 0d 01 ea 24 20 20 e7 20 a4 64 28 44 52 49 |0)...$ . .d(DRI|
00000470 56 45 52 5f 43 48 45 43 4b 52 58 2c 30 2c 30 2c |VER_CHECKRX,0,0,|
00000480 30 29 3e 30 20 8c 0d 01 f4 23 20 20 20 20 4a 25 |0)>0 ....# J%|
00000490 3d a4 64 28 44 52 49 56 45 52 5f 47 45 54 42 59 |=.d(DRIVER_GETBY|
000004a0 54 45 2c 30 2c 30 2c 30 29 0d 01 fe 24 20 20 20 |TE,0,0,0)...$ |
000004b0 20 e7 20 4a 25 3e 33 31 20 84 20 4a 25 3d 31 30 | . J%>31 . J%=10|
000004c0 20 84 20 4a 25 3d 31 33 20 ef 20 4a 25 0d 02 08 | . J%=13 . J%...|
000004d0 07 20 20 cd 0d 02 12 11 20 20 e7 20 96 28 2d 31 |. ..... . .(-1|
000004e0 29 3e 30 20 8c 0d 02 1c 23 20 20 20 20 4a 25 3d |)>0 ....# J%=|
000004f0 a4 64 28 44 52 49 56 45 52 5f 50 55 54 42 59 54 |.d(DRIVER_PUTBYT|
00000500 45 2c 30 2c a5 2c 30 29 0d 02 26 07 20 20 cd 0d |E,0,.,0)..&. ..|
00000510 02 30 07 fd 20 30 0d 02 3a 04 0d 02 44 05 e0 0d |.0.. 0..:...D...|
00000520 02 4e 04 0d 02 58 14 dd a4 64 28 41 25 2c 42 25 |.N...X...d(A%,B%|
00000530 2c 43 25 2c 44 25 29 0d 02 62 0f 3a 3d ba 28 64 |,C%,D%)..b.:=.(d|
00000540 72 69 76 65 72 29 0d ff |river)..|
00000548 
.