I dug out my cable for the PC and made a Beeb version of it. The cable starts out life as a "Kenable" DAP Audio HQ 8 pin Mini DIN Plug to 8 pin Mini DIN Plug Cable 1.5M and I take that cable and cut it in half - that's the Computer Module end sorted ![:lol:]( "Laughing")
then I snip all the wires except the shield, white, green and brown. Then I put a 5 pin "domino" DIN on with the CTS/RTS bridged (not strictly necessary if driving it directly by poking the buffers) Wrap the shield wire around the outside of the cable and clamp the cable strain relief around it, this should provide shielding for the cable without forming a ground loop. Notch towards the RGB output when plugging into the Beeb.
I wrote a program to show the state of the inputs and outputs to the CM board via serial to accompany this new cable.![=D>]( "Applause")
then I snip all the wires except the shield, white, green and brown. Then I put a 5 pin "domino" DIN on with the CTS/RTS bridged (not strictly necessary if driving it directly by poking the buffers)I wrote a program to show the state of the inputs and outputs to the CM board via serial to accompany this new cable.
Code:
10 MODE7:VDU23;8202;0;0;0; 20 PROCtitle 30 O%=0:PROCoutput(O%):REM initialise current output state 40 OSCLI"FX7,7":OSCLI"FX8,7":REM 9600,8,N,1 50 REPEAT 60 PROCinput 70 D%=INKEY(0)-48 80 IFD%>-1ANDD%<8 O%=O%EOR2^D%:PROCoutput(O%) 90 UNTIL0 100 END 110 DEFPROCshow(B%,X%,Y%) 120 PRINTTAB(X%,Y%); 130 FORA%=7TO0STEP-1 140 IFB%>=2^A% PRINT;"1";:B%=B%-2^A% ELSE PRINT;"0"; 150 NEXT 160 ENDPROC 170 DEFPROCoutput(O%) 180 ?&FE09=5:?&FE09=O%:REM send byte to CM output 190 PROCshow(O%,10,11):REM show output state of CM 200 ENDPROC 210 DEFPROCtitle 220 PRINT"Unilab Computer Module 540.027" 230 PRINT 240 PRINT"Use the number keys 0-7 to set bits on" 250 PRINT"the output port. The bits will toggle," 260 PRINT"so repeated presses will turn on and" 270 PRINT"off the selected bit. Input bits are" 280 PRINT"shown automatically as they change." 290 PRINTTAB(5,8);"Bits 76543210";TAB(7,10);"In";TAB(6,11);"Out" 300 ENDPROC 310 DEFPROCinput 320 ?&FE09=1:REM send read request to CM 330 PROCshow(?&FE09,10,10):REM show input state of CM 340 ENDPROCStatistics: Posted by maniacminer — Mon May 20, 2024 10:57 pm