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 >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
41 lines
1 rem *********************************
2 rem * *
3 rem * r o m r a m *
4 rem * *
5 rem * c64 basic 2.0 programm, das *
6 rem * tiefe einblicke in rom und ram*
7 rem * erlaubt *
8 rem * heimo ponnath hamburg 1988 *
9 rem *********************************
10 rem
20 printchr$(147):poke 211,7:poke 214,10
30 sys 58640
40 print"so sieht ein rom-bereich aus:"
50 for i=55296 to 56295
60 poke i,0
70 next i
80 j=1:w=128:gosub 250
90 for i=40960 to 40960+999
100 poke i,peek(i)
110 next i
120 get a$:if a$="" then 120
130 j=3:w=48:gosub 250
140 printchr$(147):poke 211,0:poke 214,10
150 sys 58640
160 print"das ist vom computer reserviertes ram"
170 for i=55296 to 56295
180 poke i,0
190 next i
200 j=3:w=0:gosub 250
210 get a$:if a$="" then 210
220 poke 56576,151:poke 56578,63
230 poke 53272,21:poke 648,4
240 end
245 rem ** up bildschirm verschieben ****
250 poke 56576,(peek(56576) and 252) or j
260 poke 56578,peek(56578) or 3
270 poke 53272,(peek(53272) and 15) or w
280 p=(w/16*1024+16384*(3-j))/256
290 poke 648,p
300 return