This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
|
-
Entry name:Vylet po pameti
-
Category:Programming utilities
-
Publisher/Developer:Flop 1
-
Year:1986









Listing 1
23310 REM 28000 GRAPHICS 0:POKE 752,1:D=PEEK(560)+256*PEEK(561)+4:POKE D-1,71:POKE D+2,6 28010 ? "VYLET PO PAMETI":POSITION 23,0:?:POKE 710,0 28020 ?:?:? " Tento program Vam umozni":? " prohlizet pomoci Joysticku":? " celou oblast pameti." 28030 ?:? " " 28040 ?:? " ADRESA 0000":? " ....":? " ....":? " FFFF" 28050 ?:? " ":? " " 28060 ?:? " PODROBNEJI-ZMACKNI HELP":?:?:? " " 28070 POKE 752,1:POKE 764,255:POKE 53279,7:POKE 732,0 28080 IF PEEK(53279)=6 THEN 29000 28090 IF PEEK(732)=17 THEN 30000 28100 GOTO 28080 29000 TRAP 29230 29010 GRAPHICS 0 29012 POKE 732,0 29020 A=0 29030 IF STRIG(0)=0 THEN GOSUB 29120 29037 IF PEEK(732)=17 THEN 30000 29040 DL=PEEK(560)+256*PEEK(561) 29050 POKE DL+4,0:POKE DL+5,A 29060 REM 29070 TE=STICK(0) 29080 IF TE=14 THEN A=A-1 29090 IF TE=13 THEN A=A+1 29100 FOR N=1 TO 50:NEXT N 29110 GOTO 29030 29120 REM 29130 POKE DL+4,64:POKE DL+5,156 29140 GRAPHICS 18:COLOR 1:POSITION 7,1:? #6;256*A 29150 POSITION 7,4:? #6;256*(A+1):POSITION 7,7:? #6;256*(A+2):POSITION 7,10:? #6;256*(A+3) 29160 IF STICK(0)=14 THEN A=A-1 29170 IF STICK(0)=13 THEN A=A+1 29180 IF STRIG(0)=0 THEN GOTO 29120 29190 GRAPHICS 0 29200 RETURN 29210 STOP 29230 GRAPHICS 18:COLOR 1:? #6;" JSI MIMO ROZSAH !!!":POSITION 0,5:? #6;" " 29240 IF PEEK(53279)=6 THEN 29000 29250 GOTO 29240 29260 REM 29270 REM 29280 REM 29290 REM 29300 REM 29310 REM 30000 GRAPHICS 0:REM 30010 ? "Tento program umoznuje nahlednout do":? "op.systemu ATARI 800 XL a zobrazovat" 30020 ? "znakove celou pamet 0 - 65535.":? 30030 ? "Pomoci Joysticku se lze prochazet po":? "pameti smerem k 0000 nebo FFFF(H)":? 30040 ? ", objevi se":? "misto znakoveho vypisu pocatecni" 30050 ? "adresy jednotlivych bloku." 30060 ? "":? "":? 30070 ? "Vypisy adres pri drzeni START tl.":? "na JOYSTICKU jsou umisteny shruba" 30080 ? "" 30082 POKE 752,1:?:?:?:? "** STISKNI NEKTEROU KLAVESU **" 30085 IF PEEK(764)=255 THEN 30085 30090 ?:? "(napr.): " 30100 ? " Zobrazovani pametovych mist pri":? "zpustenem programu. Napr.na bloku" 30110 ? "s adr.0 je u znaku 18,19,20 videt":? "cinnost interniho casovace." 30120 ? "Ten zustava v cinnosti i po stisku":? "tlacitka BREAK." 30130 ? "Stiskem BREAK lze zastavit na":? "kteremkoli miste pameti a z klaves-" 30140 ? "nice zadavat Basicove prikazy." 30150 ? "Ty se nam samozrejme neobjevuji na":? "obrazovce a proto je treba pri mani-" 30160 ? "pulaci davat pozor." 30170 ? "Napr.na adresach D000 az D7FF lze":? "videt cinnost GTIA,POKEY,PIA,ANTIC." 30180 ? "Na vypisu lze i pozorovat cinnost":? "mapovaciho systemu ATARI 800 XL." 30190 ? "":? "":? "" 30195 ?:? "** STISKNI START NEBO HELP **" 30200 POKE 732,0:POKE 53279,7:POKE 764,255 30210 IF PEEK(732)=17 THEN 30000 30220 IF PEEK(53279)=6 THEN 29000 30230 GOTO 30210 30240 END
References
Listing downloads
Copyright holder