home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / diskutil / routines / 71reads41back.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-08-27  |  4.3 KB  |  127 lines
  1. 1000 goto1040
  2. 1010 open15,9,15:close15:ifst=0then1030
  3. 1020 open15,10,15:print#15,"m-w"chr$(119)chr$(0)chr$(2)chr$(32+9)chr$(64+9):close15
  4. 1030 dn=9:open15,dn,15:goto1080
  5. 1040 input"[147]1571 devicenumber";dn
  6. 1050 open15,dn,15
  7. 1060 print#15,"ui":input#15,a,b$,c,d:printa;b$;c;d
  8. 1070 ifright$(b$,4)<>"1571"thenprint"no 1571":end
  9. 1080 print#15,"u0>m1
  10. 1090 [153]"load             71reads41back
  11. 1100 print"a 1571 can read the second side of a
  12. 1110 [153]"41 disk without turning round the disk.
  13. 1120 print"the program reads the blocks from end
  14. 1130 [153]"to beginning.
  15. 1140 print"because of the mechanical bump it can
  16. 1150 [153]"only read track 5 to 35.
  17. 1160 print"it's impossible to read track 1 to 4.
  18. 1170 [153]"freeware of
  19. 1180 print"near letter quantity
  20. 1190 [153]"jochen adler
  21. 1200 print"haeldestr. 9
  22. 1210 [153]"d74912 kirchardt
  23. 1220 print"germany
  24. 1230 [153]"nlq@gmx.de
  25. 1240 print#15,"m-r"chr$(10)chr$(28):get#15,a$:a=asc(a$+chr$(0))
  26. 1250 print"status of last time:"a
  27. 1260 i=768:print"transfering program to 1571. please wait
  28. 1270 [135]a:[139]a[177][171]1[167][152]15,"m-w"[199](i[175]255)[199](i[173]256)[199](2)[199](a)
  29. 1280 [139]a[177][171]1[167][151]49152[170]i,a:i[178]i[170]1:[137]1270
  30. 1290 [153]"adjusting to track 18. please wait
  31. 1300 tr=18:se=255:em=1:gosub1810
  32. 1310 a$(0)="del
  33. 1320 a$(1)[178]"seq
  34. 1330 a$(2)="prg
  35. 1340 a$(3)[178]"usr
  36. 1350 a$(4)="rel
  37. 1360 [153]"reading dir. please wait
  38. 1370 em=0:tr=18:se=0:gosub1810
  39. 1380 print"0 "chr$(34);
  40. 1390 fori=49152+144to49152+159:printchr$(peek(i));:next
  41. 1400 printchr$(34)"[160]";
  42. 1410 fori=49152+162to49152+166:printchr$(peek(i));:next:print
  43. 1420 fori=49152+4to49152+143step4
  44. 1430 ifi=49152+72then1450
  45. 1440 bf=bf+peek(i)
  46. 1450 next
  47. 1460 tr=18:se=1
  48. 1470 gosub1810
  49. 1480 fori=49152+2to49152+8*32step32
  50. 1490 ifpeek(i)=0then1660
  51. 1500 b=0
  52. 1510 a$=left$(str$(peek(i+28)+peek(i+29)*256)+"      ",6)
  53. 1520 print"[157]"a$;chr$(34);
  54. 1530 j=3
  55. 1540 a=peek(i+j)
  56. 1550 ifa=160thenifb=0thenb=1:a=34
  57. 1560 ifb=1thena=aand127
  58. 1570 printchr$(a);
  59. 1580 j=j+1:ifj<19then1540
  60. 1590 a=34:ifb=1thena=32
  61. 1600 printchr$(a);
  62. 1610 a=32:ifpeek(i)<128thena=42
  63. 1620 printchr$(a);
  64. 1630 printa$(peek(i)and7);
  65. 1640 a=60:if(peek(i)and64)=0thena=32
  66. 1650 printchr$(a)
  67. 1660 next
  68. 1670 tr=peek(49152):se=peek(49152+1)
  69. 1680 iftr>0then1470
  70. 1690 print"[157]"bf"blocks free.
  71. 1700 [153]"dir finished
  72. 1710 print"now: read blocks from 1571 to c64 at":print"$c000
  73. 1720 em[178]1
  74. 1730 [152]15,"m-r"[199](10)[199](28):[161]#15,a$:a[178][198](a$[170][199](0))
  75. 1740 [153]"status of last time:"a
  76. 1750 [133]"track";tr
  77. 1760 [133]"sector";se
  78. 1770 [141]1810
  79. 1780 [137]1730
  80. 1790 [128]
  81. 1800 [143]================================
  82. 1810 [139](tr[179]5)[176](tr[177]35)[167][153]"illegal track":[133]"continue";a$:[142]
  83. 1820 [152]15,"m-w"[199](6)[199](0)[199](2) [199](tr)[199](se)
  84. 1830 x[178]10
  85. 1840 [152]15,"m-w"[199](0)[199](0)[199](1) [199](224)
  86. 1850 [152]15,"m-r"[199](0)[199](0)
  87. 1860 [161]#15,a$:a[178][198](a$[170][199](0))
  88. 1870 [139]em[178]1[167][153]a
  89. 1880 [139]a[177]127[167]1850
  90. 1890 [139]a[178]1[167]1920
  91. 1900 x[178]x[171]1:[139]x[177]0[167]1840
  92. 1910 [153]"error":[133]"continue";a$:[142]:[143]===================
  93. 1920 [139]se[177]127[167][142]
  94. 1930 [152]15,"m-r"[199](0)[199](6)[199](0)
  95. 1940 [139]em[178]1[167][153]"read buffer from 1571 to c64 to c000":[153]"please wait
  96. 1950 poke780,dn:sys65460:rem talk
  97. 1960 poke780,96+15:sys65427:rem secundary address
  98. 1970 fori=0to255:sys65445:poke49152+i,peek(780):next
  99. 1980 sys65451:rem untalk
  100. 1990 return:rem=========================
  101. 2000 data76,169,3,169,2,141,10,28,173,0,28,48,251,169,3,141,10,28,160,127,184
  102. 2010 data80,254,184,238,10,28,173,0,28,16,15,80,249,173,1,28,184,153,128,1,136
  103. 2020 data16,244,76,81,245,238,10,28,200,190,128,1,232,208,1,200,162,116,169
  104. 2030 data1,133,9,185,128,1,74,38,9,144,251,165,9,157,12,1,200,232,16,235,238
  105. 2040 data10,28,173,128,1,16,15,160,11,185,128,1,42,153,128,1,136,16,246,48,237
  106. 2050 data0,238,10,28,173,128,1,201,82,240,5,169,3,76,105,249,238,10,28,162,9
  107. 2060 data189,128,1,149,36,202,16,248,32,151,244,169,0,162,4,85,22,202,16,251
  108. 2070 data170,240,3,76,246,244,238,10,28,165,24,133,34,197,6,208,4,238,10,28
  109. 2080 data96,76,2,245,0,169,32,141,10,28,173,1,24,9,4,141,1,24,32,3,3,169,33
  110. 2090 data141,10,28,165,7,16,8,169,0,141,10,28,76,24,244,238,10,28,24,105,2,197
  111. 2100 data67,144,2,229,67,133,8,169,128,133,11,169,35,141,10,28,32,3,3,169,36
  112. 2110 data141,10,28,165,25,197,8,240,12,198,11,208,233,169,6,44,169,7,76,105
  113. 2120 data249,238,10,28,173,0,28,48,251,238,10,28,173,0,28,16,251,238,10,28,173
  114. 2130 data0,28,48,251,238,10,28,160,255,184,80,254,184,238,10,28,173,0,28,16
  115. 2140 data210,80,249,173,1,28,184,153,0,7,136,208,244,238,10,28,173,0,28,16,190
  116. 2150 data80,249,173,1,28,184,141,0,7,136,238,10,28,173,0,28,16,15,80,249,173
  117. 2160 data1,28,184,153,0,6,136,208,244,76,129,245,238,10,28,200,132,13,32,13
  118. 2170 data3,169,45,141,10,28,165,24,197,6,208,6,165,25,197,7,240,3,76,30,244
  119. 2180 data238,10,28,164,13,132,50,160,0,132,48,169,6,133,49,133,51,169,1,133
  120. 2190 data9,177,50,74,38,9,144,251,165,9,145,48,200,208,238,230,51,230,49,165
  121. 2200 data49,201,8,144,228,238,10,28,173,0,6,16,30,169,7,133,49,160,255,177,48
  122. 2210 data42,145,48,136,208,248,177,48,42,145,48,198,49,165,49,73,6,240,233,208
  123. 2220 data222,0,238,10,28,160,186,162,0,189,0,7,153,0,1,232,200,208,246,169,6
  124. 2230 data133,49,32,224,248,238,10,28,165,56,197,71,208,21,32,233,245,197,58
  125. 2240 data208,8,169,1,141,10,28,76,24,244,238,10,28,169,11,44,169,10,238,10,28
  126. 2250 data76,105,249,0,-1
  127.