home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / exoten / msx / pcmsxlpt.arj / ONTVANGR.MSX < prev    next >
Text File  |  1994-03-14  |  2KB  |  95 lines
  1. 1000 '
  2. 1010 ' ontvangprogramma msx <- pc
  3. 1020 '
  4. 1030 ' reserveer geheugenruimte
  5. 1040 ' voor het machinetaal-
  6. 1050 ' programma en voor de
  7. 1060 ' op te vangen tekst
  8. 1070 '
  9. 1080 CLEAR 300,&H9000
  10. 1090 '
  11. 1100 ' definieer het ingangspunt
  12. 1110 ' van het machinetaalprogramma
  13. 1120 '
  14. 1130 DEFUSR0=&HF017
  15. 1140 '
  16. 1150 ' laad het machinetaal-
  17. 1160 ' programma
  18. 1170 '
  19. 1180 FOR AD=&HF000 TO &HF063
  20. 1190 READ IS$
  21. 1200 POKE AD,VAL("&H"+IS$)
  22. 1210 NEXT AD
  23. 1220 '
  24. 1230 ' klaar voor ontvangst
  25. 1240 '
  26. 1250 PRINT "start zendprogramma op pc"
  27. 1260 '
  28. 1270 ' vang het hele bestand op
  29. 1280 '
  30. 1290 C%=USR(0)
  31. 1300 '
  32. 1310 ' adressen &HF0FA en &HF0FB
  33. 1320 ' bevatten de plaats na
  34. 1330 ' het laatst opgevangen teken
  35. 1340 '
  36. 1350 I=PEEK(&HF0FB)
  37. 1360 J=PEEK(&HF0FA)
  38. 1370 '
  39. 1380 ' bereken de grenzen van
  40. 1390 ' de opgevangen tekst in
  41. 1400 ' het geheugen
  42. 1410 '
  43. 1420 K=&H9000:J=256*I+J-1
  44. 1430 IF K<0 THEN K=K+2^16
  45. 1440 IF J<0 THEN J=J+2^16
  46. 1450 '
  47. 1460 ' zet de opgevangen tekst
  48. 1470 ' eerst op het scherm
  49. 1480 '
  50. 1490 A$="crt:"
  51. 1500 OPEN A$ FOR OUTPUT AS #1
  52. 1510 '
  53. 1520 ' teken voor teken
  54. 1530 '
  55. 1540 FOR I=K TO J
  56. 1550 PRINT #1,CHR$(PEEK(I));
  57. 1560 NEXT I
  58. 1570 '
  59. 1580 ' alle tekens geschreven
  60. 1590 '
  61. 1600 CLOSE #1
  62. 1610 '
  63. 1620 ' als er al naar cassette is
  64. 1630 ' geschreven: klaar
  65. 1640 '
  66. 1650 IF A$<>"crt:" THEN STOP
  67. 1660 '
  68. 1670 ' vraag naam van het cassette-
  69. 1680 ' (diskette-) bestand waarop
  70. 1690 ' het ontvangene bewaard moet
  71. 1700 ' worden
  72. 1710 '
  73. 1720 INPUT "bestandsnaam (denk om cas:  ctrl-stop om te stoppen) ";A$
  74. 1730 '
  75. 1740 ' ga het daarop zetten
  76. 1750 '
  77. 1760 GOTO 1500
  78. 1770 '
  79. 1780 ' geheugeninhoud van het
  80. 1790 ' msx machinetaalprogramma
  81. 1800 '
  82. 1810 DATA 00,21,00,00,DB,90,D6,FD
  83. 1820 DATA CA,04,F0,23,DB,90,D6,FF
  84. 1830 DATA CA,0B,F0,C9,00,00,00,F3
  85. 1840 DATA 3E,08,21,00,00,08,EB,CD
  86. 1850 DATA 00,F0,EB,19,08,3D,C2,1D
  87. 1860 DATA F0,7C,1F,7D,1F,CB,3F,CB
  88. 1870 DATA 3F,32,46,F0,21,00,90,06
  89. 1880 DATA 01,AF,EB,08,CD,00,F0,7C
  90. 1890 DATA A7,C2,5E,F0,7D,FE,23,D2
  91. 1900 DATA 4D,F0,08,80,08,78,07,47
  92. 1910 DATA D2,3C,F0,08,EB,77,23,7C
  93. 1920 DATA D6,0F,C2,39,F0,EB,EB,22
  94. 1930 DATA FA,F0,FB,C9,9D,0D,C0,00
  95.