Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars » RTR/DMX512

RTR/DMX512

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 1997-01 B.adf » Regulars
Filename: RTR/DMX512
Read OK: ✔
File size: 05D6 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM >DMX512
   20REM DMX512 Driver By Mike Cook
   30ND%=24  : REM Number of dimmer channels
   40DIM dim% ND%
   50
   60REM Enable Port for output
   70Mask%=NOT(&20)
   80SYS&42EC1,2,0,Mask%
   90REM UART Master Reset
  100SYS&42EC1,1,&E0
  110SYS&42EC1,1,&C0
  120
  130REM Clear out channels
  140FOR A%=0 TO ND%
  150dim%?A%=0
  160NEXT
  170Ch%=1
  180
  190PRINT"DMX 512 Driver By Mike Cook"
  200PRINT"Using the hardware described in the"
  210PRINT"Jan - 97 Acorn User"
  220PRINT
  230PRINT"C - To change dimmer Channel"
  240PRINT"+ or - to alter brightness"
  250PRINT
  260PRINT"Channel ";Ch%;" at ";dim%?Ch%
  270REPEAT
  280C$=GET$
  290
  300PRINTCHR$(&D);
  310
  320IF C$="=" OR C$="+" THEN PROC_Cinc(1) : PROC_Send
  330IF C$="_" OR C$="-" THEN PROC_Cinc(-1) : PROC_Send
  340IF C$="C" OR C$="c" THEN PROC_CC
  350
  360UNTIL FALSE
  370
  380DEF PROC_Cinc(N%)
  390LOCAL B%
  400B%=dim%?Ch%
  410B%+=N%
  420IF B%>255 THEN B%=255
  430IF B%<0 THEN B%=0
  440dim%?Ch%=B%
  450PRINT"Channel ";Ch%;" at ";B%
  460ENDPROC
  470
  480DEF PROC_CC
  490REPEAT
  500PRINT"Channel Number (1 to ";ND%;") ";
  510INPUT Ch%
  520UNTIL Ch%>0 AND Ch%<=ND%
  530PRINT"Channel ";Ch%;" at ";dim%?Ch%
  540ENDPROC
  550
  560DEF PROC_Send
  570LOCAL S%
  580REM First send break
  590SYS&42EC1,1,0
  600SYS&42EC1,1,&40
  610SYS&42EC1,1,0
  620SYS&42EC1,1,&40
  630REM Hold until two bytes are transmitted
  640REPEAT
  650SYS&42EC1,0 TO ,,S%
  660S%=S% AND &80
  670UNTIL S%=&0
  680REM Remove break
  690SYS&42EC1,1,&C0
  700
  710FOR A%=0 TO ND%
  720PROC_SB(dim%?A%)
  730NEXT
  740ENDPROC
  750
  760DEF PROC_SB(N%)
  770LOCAL B%,C%
  780PROC_Hold
  790B%=(N% AND &F) OR &C0
  800C%=(N% >>4) OR &C0
  810SYS&42EC1,1,B% OR &10
  820SYS&42EC1,1,B%
  830SYS&42EC1,1,C%
  840SYS&42EC1,1,C% AND &9F
  850SYS&42EC1,1,C%
  860ENDPROC
  870
  880DEF PROC_Hold
  890REPEAT
  900SYS&42EC1,0 TO ,,C%
  910C%=C% AND &40
  920UNTIL C%=&40
  930ENDPROC


� >DMX512
 � DMX512 Driver By Mike Cook
)ND%=24  : � Number of dimmer channels
(� dim% ND%
2
<� Enable Port for output
FMask%=�(&20)
Pș&42EC1,2,0,Mask%
Z� UART Master Reset
dș&42EC1,1,&E0
nș&42EC1,1,&C0
x
�� Clear out channels
�� A%=0 � ND%
�
dim%?A%=0
��
�	Ch%=1
�
�"�"DMX 512 Driver By Mike Cook"
�*�"Using the hardware described in the"
��"Jan - 97 Acorn User"
��
�#�"C - To change dimmer Channel"
�!�"+ or - to alter brightness"
��
#�"Channel ";Ch%;" at ";dim%?Ch%
�
C$=�
"
,�(&D);
6
@*� C$="=" � C$="+" � �_Cinc(1) : �_Send
J+� C$="_" � C$="-" � �_Cinc(-1) : �_Send
T� C$="C" � C$="c" � �_CC
^
h� �
r
|� �_Cinc(N%)
�� B%
�B%=dim%?Ch%
�
B%+=N%
�� B%>255 � B%=255
�� B%<0 � B%=0
�dim%?Ch%=B%
��"Channel ";Ch%;" at ";B%
��
�
�
� �_CC
��
�&�"Channel Number (1 to ";ND%;") ";
�	� Ch%
� Ch%>0 � Ch%<=ND%
#�"Channel ";Ch%;" at ";dim%?Ch%
�
&
0� �_Send
:� S%
D� First send break
Nș&42EC1,1,0
Xș&42EC1,1,&40
bș&42EC1,1,0
lș&42EC1,1,&40
v*� Hold until two bytes are transmitted
��
�ș&42EC1,0 � ,,S%
�S%=S% � &80
�� S%=&0
�� Remove break
�ș&42EC1,1,&C0
�
�� A%=0 � ND%
��_SB(dim%?A%)
��
��
�
�� �_SB(N%)
� B%,C%

�_Hold
B%=(N% � &F) � &C0
 C%=(N% >>4) � &C0
*ș&42EC1,1,B% � &10
4ș&42EC1,1,B%
>ș&42EC1,1,C%
Hș&42EC1,1,C% � &9F
Rș&42EC1,1,C%
\�
f
p� �_Hold
z�
�ș&42EC1,0 � ,,C%
�C%=C% � &40
�� C%=&40
��
�
00000000  0d 00 0a 0d f4 20 3e 44  4d 58 35 31 32 0d 00 14  |..... >DMX512...|
00000010  20 f4 20 44 4d 58 35 31  32 20 44 72 69 76 65 72  | . DMX512 Driver|
00000020  20 42 79 20 4d 69 6b 65  20 43 6f 6f 6b 0d 00 1e  | By Mike Cook...|
00000030  29 4e 44 25 3d 32 34 20  20 3a 20 f4 20 4e 75 6d  |)ND%=24  : . Num|
00000040  62 65 72 20 6f 66 20 64  69 6d 6d 65 72 20 63 68  |ber of dimmer ch|
00000050  61 6e 6e 65 6c 73 0d 00  28 0e de 20 64 69 6d 25  |annels..(.. dim%|
00000060  20 4e 44 25 0d 00 32 04  0d 00 3c 1c f4 20 45 6e  | ND%..2...<.. En|
00000070  61 62 6c 65 20 50 6f 72  74 20 66 6f 72 20 6f 75  |able Port for ou|
00000080  74 70 75 74 0d 00 46 10  4d 61 73 6b 25 3d ac 28  |tput..F.Mask%=.(|
00000090  26 32 30 29 0d 00 50 16  c8 99 26 34 32 45 43 31  |&20)..P...&42EC1|
000000a0  2c 32 2c 30 2c 4d 61 73  6b 25 0d 00 5a 17 f4 20  |,2,0,Mask%..Z.. |
000000b0  55 41 52 54 20 4d 61 73  74 65 72 20 52 65 73 65  |UART Master Rese|
000000c0  74 0d 00 64 12 c8 99 26  34 32 45 43 31 2c 31 2c  |t..d...&42EC1,1,|
000000d0  26 45 30 0d 00 6e 12 c8  99 26 34 32 45 43 31 2c  |&E0..n...&42EC1,|
000000e0  31 2c 26 43 30 0d 00 78  04 0d 00 82 18 f4 20 43  |1,&C0..x...... C|
000000f0  6c 65 61 72 20 6f 75 74  20 63 68 61 6e 6e 65 6c  |lear out channel|
00000100  73 0d 00 8c 10 e3 20 41  25 3d 30 20 b8 20 4e 44  |s..... A%=0 . ND|
00000110  25 0d 00 96 0d 64 69 6d  25 3f 41 25 3d 30 0d 00  |%....dim%?A%=0..|
00000120  a0 05 ed 0d 00 aa 09 43  68 25 3d 31 0d 00 b4 04  |.......Ch%=1....|
00000130  0d 00 be 22 f1 22 44 4d  58 20 35 31 32 20 44 72  |..."."DMX 512 Dr|
00000140  69 76 65 72 20 42 79 20  4d 69 6b 65 20 43 6f 6f  |iver By Mike Coo|
00000150  6b 22 0d 00 c8 2a f1 22  55 73 69 6e 67 20 74 68  |k"...*."Using th|
00000160  65 20 68 61 72 64 77 61  72 65 20 64 65 73 63 72  |e hardware descr|
00000170  69 62 65 64 20 69 6e 20  74 68 65 22 0d 00 d2 1a  |ibed in the"....|
00000180  f1 22 4a 61 6e 20 2d 20  39 37 20 41 63 6f 72 6e  |."Jan - 97 Acorn|
00000190  20 55 73 65 72 22 0d 00  dc 05 f1 0d 00 e6 23 f1  | User"........#.|
000001a0  22 43 20 2d 20 54 6f 20  63 68 61 6e 67 65 20 64  |"C - To change d|
000001b0  69 6d 6d 65 72 20 43 68  61 6e 6e 65 6c 22 0d 00  |immer Channel"..|
000001c0  f0 21 f1 22 2b 20 6f 72  20 2d 20 74 6f 20 61 6c  |.!."+ or - to al|
000001d0  74 65 72 20 62 72 69 67  68 74 6e 65 73 73 22 0d  |ter brightness".|
000001e0  00 fa 05 f1 0d 01 04 23  f1 22 43 68 61 6e 6e 65  |.......#."Channe|
000001f0  6c 20 22 3b 43 68 25 3b  22 20 61 74 20 22 3b 64  |l ";Ch%;" at ";d|
00000200  69 6d 25 3f 43 68 25 0d  01 0e 05 f5 0d 01 18 08  |im%?Ch%.........|
00000210  43 24 3d be 0d 01 22 04  0d 01 2c 0b f1 bd 28 26  |C$=..."...,...(&|
00000220  44 29 3b 0d 01 36 04 0d  01 40 2a e7 20 43 24 3d  |D);..6...@*. C$=|
00000230  22 3d 22 20 84 20 43 24  3d 22 2b 22 20 8c 20 f2  |"=" . C$="+" . .|
00000240  5f 43 69 6e 63 28 31 29  20 3a 20 f2 5f 53 65 6e  |_Cinc(1) : ._Sen|
00000250  64 0d 01 4a 2b e7 20 43  24 3d 22 5f 22 20 84 20  |d..J+. C$="_" . |
00000260  43 24 3d 22 2d 22 20 8c  20 f2 5f 43 69 6e 63 28  |C$="-" . ._Cinc(|
00000270  2d 31 29 20 3a 20 f2 5f  53 65 6e 64 0d 01 54 1c  |-1) : ._Send..T.|
00000280  e7 20 43 24 3d 22 43 22  20 84 20 43 24 3d 22 63  |. C$="C" . C$="c|
00000290  22 20 8c 20 f2 5f 43 43  0d 01 5e 04 0d 01 68 07  |" . ._CC..^...h.|
000002a0  fd 20 a3 0d 01 72 04 0d  01 7c 10 dd 20 f2 5f 43  |. ...r...|.. ._C|
000002b0  69 6e 63 28 4e 25 29 0d  01 86 08 ea 20 42 25 0d  |inc(N%)..... B%.|
000002c0  01 90 0f 42 25 3d 64 69  6d 25 3f 43 68 25 0d 01  |...B%=dim%?Ch%..|
000002d0  9a 0a 42 25 2b 3d 4e 25  0d 01 a4 15 e7 20 42 25  |..B%+=N%..... B%|
000002e0  3e 32 35 35 20 8c 20 42  25 3d 32 35 35 0d 01 ae  |>255 . B%=255...|
000002f0  11 e7 20 42 25 3c 30 20  8c 20 42 25 3d 30 0d 01  |.. B%<0 . B%=0..|
00000300  b8 0f 64 69 6d 25 3f 43  68 25 3d 42 25 0d 01 c2  |..dim%?Ch%=B%...|
00000310  1d f1 22 43 68 61 6e 6e  65 6c 20 22 3b 43 68 25  |.."Channel ";Ch%|
00000320  3b 22 20 61 74 20 22 3b  42 25 0d 01 cc 05 e1 0d  |;" at ";B%......|
00000330  01 d6 04 0d 01 e0 0a dd  20 f2 5f 43 43 0d 01 ea  |........ ._CC...|
00000340  05 f5 0d 01 f4 26 f1 22  43 68 61 6e 6e 65 6c 20  |.....&."Channel |
00000350  4e 75 6d 62 65 72 20 28  31 20 74 6f 20 22 3b 4e  |Number (1 to ";N|
00000360  44 25 3b 22 29 20 22 3b  0d 01 fe 09 e8 20 43 68  |D%;") ";..... Ch|
00000370  25 0d 02 08 16 fd 20 43  68 25 3e 30 20 80 20 43  |%..... Ch%>0 . C|
00000380  68 25 3c 3d 4e 44 25 0d  02 12 23 f1 22 43 68 61  |h%<=ND%...#."Cha|
00000390  6e 6e 65 6c 20 22 3b 43  68 25 3b 22 20 61 74 20  |nnel ";Ch%;" at |
000003a0  22 3b 64 69 6d 25 3f 43  68 25 0d 02 1c 05 e1 0d  |";dim%?Ch%......|
000003b0  02 26 04 0d 02 30 0c dd  20 f2 5f 53 65 6e 64 0d  |.&...0.. ._Send.|
000003c0  02 3a 08 ea 20 53 25 0d  02 44 16 f4 20 46 69 72  |.:.. S%..D.. Fir|
000003d0  73 74 20 73 65 6e 64 20  62 72 65 61 6b 0d 02 4e  |st send break..N|
000003e0  10 c8 99 26 34 32 45 43  31 2c 31 2c 30 0d 02 58  |...&42EC1,1,0..X|
000003f0  12 c8 99 26 34 32 45 43  31 2c 31 2c 26 34 30 0d  |...&42EC1,1,&40.|
00000400  02 62 10 c8 99 26 34 32  45 43 31 2c 31 2c 30 0d  |.b...&42EC1,1,0.|
00000410  02 6c 12 c8 99 26 34 32  45 43 31 2c 31 2c 26 34  |.l...&42EC1,1,&4|
00000420  30 0d 02 76 2a f4 20 48  6f 6c 64 20 75 6e 74 69  |0..v*. Hold unti|
00000430  6c 20 74 77 6f 20 62 79  74 65 73 20 61 72 65 20  |l two bytes are |
00000440  74 72 61 6e 73 6d 69 74  74 65 64 0d 02 80 05 f5  |transmitted.....|
00000450  0d 02 8a 15 c8 99 26 34  32 45 43 31 2c 30 20 b8  |......&42EC1,0 .|
00000460  20 2c 2c 53 25 0d 02 94  0f 53 25 3d 53 25 20 80  | ,,S%....S%=S% .|
00000470  20 26 38 30 0d 02 9e 0b  fd 20 53 25 3d 26 30 0d  | &80..... S%=&0.|
00000480  02 a8 12 f4 20 52 65 6d  6f 76 65 20 62 72 65 61  |.... Remove brea|
00000490  6b 0d 02 b2 12 c8 99 26  34 32 45 43 31 2c 31 2c  |k......&42EC1,1,|
000004a0  26 43 30 0d 02 bc 04 0d  02 c6 10 e3 20 41 25 3d  |&C0......... A%=|
000004b0  30 20 b8 20 4e 44 25 0d  02 d0 11 f2 5f 53 42 28  |0 . ND%....._SB(|
000004c0  64 69 6d 25 3f 41 25 29  0d 02 da 05 ed 0d 02 e4  |dim%?A%)........|
000004d0  05 e1 0d 02 ee 04 0d 02  f8 0e dd 20 f2 5f 53 42  |........... ._SB|
000004e0  28 4e 25 29 0d 03 02 0b  ea 20 42 25 2c 43 25 0d  |(N%)..... B%,C%.|
000004f0  03 0c 0a f2 5f 48 6f 6c  64 0d 03 16 16 42 25 3d  |...._Hold....B%=|
00000500  28 4e 25 20 80 20 26 46  29 20 84 20 26 43 30 0d  |(N% . &F) . &C0.|
00000510  03 20 15 43 25 3d 28 4e  25 20 3e 3e 34 29 20 84  |. .C%=(N% >>4) .|
00000520  20 26 43 30 0d 03 2a 17  c8 99 26 34 32 45 43 31  | &C0..*...&42EC1|
00000530  2c 31 2c 42 25 20 84 20  26 31 30 0d 03 34 11 c8  |,1,B% . &10..4..|
00000540  99 26 34 32 45 43 31 2c  31 2c 42 25 0d 03 3e 11  |.&42EC1,1,B%..>.|
00000550  c8 99 26 34 32 45 43 31  2c 31 2c 43 25 0d 03 48  |..&42EC1,1,C%..H|
00000560  17 c8 99 26 34 32 45 43  31 2c 31 2c 43 25 20 80  |...&42EC1,1,C% .|
00000570  20 26 39 46 0d 03 52 11  c8 99 26 34 32 45 43 31  | &9F..R...&42EC1|
00000580  2c 31 2c 43 25 0d 03 5c  05 e1 0d 03 66 04 0d 03  |,1,C%..\....f...|
00000590  70 0c dd 20 f2 5f 48 6f  6c 64 0d 03 7a 05 f5 0d  |p.. ._Hold..z...|
000005a0  03 84 15 c8 99 26 34 32  45 43 31 2c 30 20 b8 20  |.....&42EC1,0 . |
000005b0  2c 2c 43 25 0d 03 8e 0f  43 25 3d 43 25 20 80 20  |,,C%....C%=C% . |
000005c0  26 34 30 0d 03 98 0c fd  20 43 25 3d 26 34 30 0d  |&40..... C%=&40.|
000005d0  03 a2 05 e1 0d ff                                 |......|
000005d6

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 27 May 2025, 10:49 UTC
Website designed by .