home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_B.d64 / romram (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1002 b   |  41 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *        r o m r a m            *
  4. 4 rem *                               *
  5. 5 rem *  c64 basic 2.0 programm, das  *
  6. 6 rem * tiefe einblicke in rom und ram*
  7. 7 rem *          erlaubt              *
  8. 8 rem *  heimo ponnath  hamburg  1988 *
  9. 9 rem *********************************
  10. 10 rem
  11. 20 printchr$(147):poke 211,7:poke 214,10
  12. 30 sys 58640
  13. 40 print"so sieht ein rom-bereich aus:"
  14. 50 for i=55296 to 56295
  15. 60 poke i,0
  16. 70 next i
  17. 80 j=1:w=128:gosub 250
  18. 90 for i=40960 to 40960+999
  19. 100 poke i,peek(i)
  20. 110 next i
  21. 120 get a$:if a$="" then 120
  22. 130 j=3:w=48:gosub 250
  23. 140 printchr$(147):poke 211,0:poke 214,10
  24. 150 sys 58640
  25. 160 print"das ist vom computer reserviertes ram"
  26. 170 for i=55296 to 56295
  27. 180 poke i,0
  28. 190 next i
  29. 200 j=3:w=0:gosub 250
  30. 210 get a$:if a$="" then 210
  31. 220 poke 56576,151:poke 56578,63
  32. 230 poke 53272,21:poke 648,4
  33. 240 end
  34. 245 rem ** up bildschirm verschieben ****
  35. 250 poke 56576,(peek(56576) and 252) or j
  36. 260 poke 56578,peek(56578) or 3
  37. 270 poke 53272,(peek(53272) and 15) or w
  38. 280 p=(w/16*1024+16384*(3-j))/256
  39. 290 poke 648,p
  40. 300 return
  41.