next up previous contents index
Next: Mitgelieferter Assemblercode Up: No Title Previous: Zusammenfassung

Mitgeliefertes Basic-Programm

Da die von Conrad mitgelieferte schriftliche Dokumentation für die Programmierung mehr als mangelhaft ist, folgt hier das mitgelieferte Basic-Listing. Erst damit ist m. E. die Programmierung der Karte für hardwareunbeleckte Personen verständlich.

1  REM
2  REM
3  REM			CARD NO. : RTX-03B
4  REM			COMPANY  : REAL TIME PRODUCT
5  REM			DESIGN BY: MR. ROBIN SHEN
6  REM
7  REM
10 CLS:PORT=512
20 LOCATE 5,18:PRINT "14 BIT AD-DA CONVERTION CARD"
30 LOCATE 6,18:PRINT "============================"
40 LOCATE 9,20:PRINT "1, D/A-0 CONVERTION DEMO"
45 LOCATE 11,20:PRINT "2, D/A-1 CONVERTION DEMO"
50 LOCATE 13,20:PRINT "3, A/D CONVERTION DEMO"
60 A$=INKEY$:IF A$="" THEN 60
70 IF A$="1" THEN 200
75 IF A$="2" THEN 800
80 IF A$="3" THEN 400
90 GOTO 10
200 CLS
202 LOCATE 5,15:PRINT"D/A-0 CONVERTION DEMO"
204 LOCATE 7,15:PRINT "OUTPUT WAVEFORM FROM D/A PORT"
206 LOCATE 9,15:PRINT "PRESS ANY KEY RETURN MENU"
210 OUT PORT +6,0
220 FOR I= 0 TO 63
230 OUT PORT+7,I
240 NEXT I
250 A$=INKEY$:IF A$="" THEN 210
260 GOTO 10
400 CLS
410 FOR CHANNEL=0 TO 15
420 GOSUB 550
430 B=INP(PORT+2)
440 C=INP(PORT+1)
450 D=(B-64*(INT(B/64)))*256+C
460 PRINT "   CHANNEL= ";CHANNEL,"DATE= ";D
470 NEXT CHANNEL
480 PRINT:PRINT :PRINT
490 GOTO 410
550 OUT PORT+3,0
560 OUT PORT+0,CHANNEL
570 FOR I=1 TO 8:A=INP(PORT+4):NEXT I
580 FOR I=1 TO 8:A=INP(PORT+5):NEXT I
590 RETURN
800 CLS
802 LOCATE 5,15:PRINT"D/A-1 CONVERTION DEMO"
804 LOCATE 7,15:PRINT "OUTPUT WAVEFORM FROM D/A PORT"
806 LOCATE 9,15:PRINT "PRESS ANY KEY RETURN MENU"
810 OUT PORT +8,0
820 FOR I= 0 TO 63
830 OUT PORT+9,I
840 NEXT I
850 A$=INKEY$:IF A$="" THEN 800
860 GOTO 10



Olaf Schultz
1999-03-29