home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 4 / Commodore_Disc_04_19xx_-_de.d64 / floppy-fehler.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  72 lines
  1. 100 rem ===============================
  2. 110 rem = floppy - fehlerkanalabfrage =
  3. 120 rem =   - in maschinensprache -   =
  4. 140 rem =-----------------------------=
  5. 150 rem = (c) 2/1986 andreas meissner =
  6. 160 rem ===============================
  7. 170 :
  8. 1000 poke53280,11:poke53281,11
  9. 1010 printchr$(147)chr$(14)chr$(8)chr$(155);
  10. 1020 printchr$(18)"[198]loppy-[198]ehlerkanalabfrage in [205]asch.-[211]p."
  11. 1030 print" ([195]) [198]ebruar 1986 by [193]ndreas [205]eissner  "
  12. 1040 print"======================================="
  13. 1050 print"[196]iese kompakte [205]aschinenroutine dient"
  14. 1060 print"zum [193]uslesen und [193]nzeigen des [198]ehlerka-"
  15. 1070 print"nals der [198]loppy ([193]dresse 8). [197]in ein-"
  16. 1080 print"faches '[211][217][211] 965' erspart eine umstaend-"
  17. 1090 print"liche [194][193][211][201][195]-[218]eile und entspricht somit"
  18. 1100 print"dem [208][210][201][206][212] [196][211]$ der grossen [195][194][205]-[195]omputer."
  19. 1110 print"[196]a die [210]outine i.a. nur bei [194]linken der"
  20. 1120 print"roten [198]loppy-[204][197][196] aufgerufen wird, er-"
  21. 1130 print"uebrigt sich eine [198]ehlerbehandlung; die"
  22. 1140 print"[198]loppy muss also vor dem [211][217][211] 965-[194]efehl"
  23. 1150 print"unbedingt eingeschaltet sein !"
  24. 1160 print"======================================="
  25. 1170 print"[208]osition: [203]assettenpuffer (965-1016)"
  26. 1180 print"aber im [211]peicher frei verschiebbar !"
  27. 1190 print"======================================="
  28. 1200 print"[193]ufruf: [211][217][211] 965 bzw. [202][211][210] $03[195]5 sowohl"
  29. 1210 print"im [208]rogramm- als auch im [196]irekt-[205]odus"
  30. 1220 print"======================================="
  31. 1300 :
  32. 1310 fori=965to1016
  33. 1320 readx:pokei,x:y=y+x
  34. 1330 next
  35. 1340 ify<>7065thenprintchr$(18)"[198]ehler in [196][193][212][193]s !!  -> [193]bbruch !":end
  36. 1400 :
  37. 1410 input"[210]outine auf [196]isk speichern (j/n) ";jn$
  38. 1420 ifjn$="n"then1600
  39. 1430 ifjn$<>"j"thenprintchr$(145);:goto1410
  40. 1440 open1,8,2,"@:ml-diskerror/965,p,w"
  41. 1450 print#1,chr$(197)chr$(3);
  42. 1460 fori=965to1016
  43. 1470 print#1,chr$(peek(i));
  44. 1480 next
  45. 1490 close1
  46. 1500 sys965:printchr$(145);
  47. 1600 :
  48. 1610 poke53280,14:poke53281,6:printchr$(154)chr$(9);
  49. 1620 end
  50. 1700 :
  51. 1710 :
  52. 59990 rem========================= datas
  53. 60000 data 169 , 000 , 133 :rem ab 965
  54. 60010 data 144 , 169 , 120 :rem ab 968
  55. 60020 data 162 , 008 , 160 :rem ab 971
  56. 60030 data 015 , 032 , 186 :rem ab 974
  57. 60040 data 255 , 169 , 000 :rem ab 977
  58. 60050 data 032 , 189 , 255 :rem ab 980
  59. 60060 data 032 , 192 , 255 :rem ab 983
  60. 60070 data 169 , 008 , 032 :rem ab 986
  61. 60080 data 180 , 255 , 165 :rem ab 989
  62. 60090 data 185 , 032 , 150 :rem ab 992
  63. 60100 data 255 , 032 , 165 :rem ab 995
  64. 60110 data 255 , 032 , 210 :rem ab 998
  65. 60120 data 255 , 036 , 144 :rem ab 1001
  66. 60130 data 080 , 246 , 169 :rem ab 1004
  67. 60140 data 008 , 032 , 171 :rem ab 1007
  68. 60150 data 255 , 169 , 120 :rem ab 1010
  69. 60160 data 032 , 195 , 255 :rem ab 1013
  70. 60170 data 096             :rem ab 1016
  71. 60180 rem                               ========================================
  72.