home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / exoten / msx / pcmsxlpt.arj / ZENDER.MSX < prev   
Text File  |  1994-03-14  |  2KB  |  94 lines
  1. 1000 '
  2. 1010 ' zendprogramma msx -> pc
  3. 1020 '
  4. 1030 ' reserveer geheugen voor
  5. 1040 ' machinecode
  6. 1050 '
  7. 1060 CLEAR 300,&HF000
  8. 1070 '
  9. 1080 ' vraag naam van het te
  10. 1090 ' verzenden bestand op
  11. 1100 ' msx cassette, eventueel
  12. 1110 ' msx diskette
  13. 1120 '
  14. 1130 INPUT"bestandsnaam (denk om cas:) ";A$
  15. 1140 '
  16. 1150 ' definieer en laad
  17. 1160 ' machinetaalprogramma
  18. 1170 '
  19. 1180 DEFUSR0=&HF000
  20. 1190 FOR AD=&HF000 TO &HF033
  21. 1200 READ IS$
  22. 1210 POKE AD,VAL("&H"+IS$)
  23. 1220 NEXT AD
  24. 1230 '
  25. 1240 ' zoek het te verzenden
  26. 1250 ' bestand
  27. 1260 '
  28. 1270 OPEN A$ FOR INPUT AS #1
  29. 1280 '
  30. 1290 ' verzend het ijkteken
  31. 1300 ' (evenveel 1 als 0 bits)
  32. 1310 '
  33. 1320 A$=CHR$(170)
  34. 1330 AD$=HEX$(VARPTR(A$))
  35. 1340 A1$="&H"+LEFT$(AD$,2)
  36. 1350 A2$="&H"+RIGHT$(AD$,2)
  37. 1360 POKE &HF100,VAL(A2$)
  38. 1370 POKE &HF101,VAL(A1$)
  39. 1380 C%=USR(0)
  40. 1390 '
  41. 1400 ' klaar als alles gelezen
  42. 1410 '
  43. 1420 IF EOF(1) THEN 1680
  44. 1430 '
  45. 1440 ' lees een regel
  46. 1450 '
  47. 1460 LINE INPUT #1,A$
  48. 1470 '
  49. 1480 ' en zet die op het
  50. 1490 ' msx scherm
  51. 1500 '
  52. 1510 PRINT A$
  53. 1520 '
  54. 1530 ' voeg wagenterug en
  55. 1540 ' regelvoeding toe voor pc
  56. 1550 '
  57. 1560 A$=A$+CHR$(13)+CHR$(10)
  58. 1570 '
  59. 1580 ' verzend de regel
  60. 1590 '
  61. 1600 C%=USR(0)
  62. 1610 '
  63. 1620 ' volgerde regel
  64. 1630 '
  65. 1640 GOTO 1420
  66. 1650 '
  67. 1660 ' klaar met bestand
  68. 1670 '
  69. 1680 CLOSE #1
  70. 1690 '
  71. 1700 ' verzend een heel lange
  72. 1710 ' streep om voor de pc
  73. 1720 ' het einde aan te geven
  74. 1730 '
  75. 1740 OUT &H91,0
  76. 1750 OUT &H91,0
  77. 1760 OUT &H91,0
  78. 1770 OUT &H91,255
  79. 1780 '
  80. 1790 ' einde voor msx
  81. 1800 '
  82. 1810 STOP
  83. 1820 '
  84. 1830 ' inhoud van het
  85. 1840 ' msx machinecode programma
  86. 1850 '
  87. 1860 DATA F3,2A,00,F1,5E,23,7E,23
  88. 1870 DATA 66,6F,7E,0E,08,08,08,06
  89. 1880 DATA 10,1F,DA,17,F0,CB,20,08
  90. 1890 DATA AF,D3,91,05,AF,B8,C2,18
  91. 1900 DATA F0,3E,FF,D3,91,0D,AF,B9
  92. 1910 DATA C2,0E,F0,23,1D,AF,BB,C2
  93. 1920 DATA 0A,F0,FB,C9,FF,00,FF,00
  94.