Ben's notes

Linux, Unix, network, radio...

User Tools

Site Tools


p2000t:serial.bas

serial.bas

Run this program to dump cassette over serial (2400 baud).

0 POKE &H6016,0
10 A=0
20 READ A$
30 IF A$="stop" THEN GOTO 70
40 POKE &H9010+A,VAL("&h"+A$)
50 A=A+1
60 GOTO 20
70 A=0
71 READ A$
72 IF A$="stop" THEN GOTO 79
73 POKE &H9110+A,VAL("&h"+A$)
74 A=A+1
75 GOTO 71
79 POKE &H9100,0
80 DEF USR=&H9110
81 POKE &H6034,0:POKE &H6035,4:A=USR (0)
82 IF PEEK(&H6017)<>0 THEN GOTO 100
83 POKE &H9000,&H00:POKE &H9001,&H60
84 POKE &H9002,0:POKE &H9003,1
85 DEF USR=&H9010
86 A=USR (0)
87 POKE &H9000,0:POKE &H9001,&H94
88 POKE &H9002,0:POKE &H9003,4
89 A=USR (0)
90 GOTO 80
100 END
1000 DATA 2a,00,90
1010 DATA ed,5b,02,90
1020 DATA 4e
1030 DATA cd,22,90
1035 DATA 23
1040 DATA 1b
1050 DATA 7a
1060 DATA b3
1070 DATA 20,f6
1080 DATA c9
1090 DATA c5
1100 DATA d5
1110 DATA 37
1120 DATA 3f
1130 DATA 16,0a
1140 DATA f3
1150 DATA 3e,c0
1160 DATA 30,02
1170 DATA cb,bf
1180 DATA d3,10
1190 DATA 06,49
1200 DATA 3a,16,60
1210 DATA cb,bf
1220 DATA 3c
1230 DATA 10,fe
1240 DATA 06,4e
1250 DATA 3d
1260 DATA c6,00
1270 DATA 20,f7
1280 DATA 37
1290 DATA cb,19
1300 DATA 15
1310 DATA 20,e1
1320 DATA 47
1330 DATA 10,fe
1340 DATA fb
1350 DATA d1
1360 DATA c1
1370 DATA c9
1380 DATA stop
2000 DATA 3a,00,91
2010 DATA f6,00
2020 DATA 20,08
2030 DATA 3e,01
2040 DATA 32,00,91
2050 DATA cd,18,00
2060 DATA 21,00,94
2070 DATA 22,30,60
2080 DATA 21,00,04
2090 DATA 22,32,60
2100 DATA 3e,06
2110 DATA cd,18,00
2120 DATA c9
2130 DATA stop
p2000t/serial.bas.txt · Last modified: 2017/10/21 15:18 by admin