home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 May / 64er_Magazin_91-05_1991_Markt__Technik_de.d64 / vic-uebersicht (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  2KB  |  57 lines
  1. 5 poke53280,0:poke53281,11:printchr$(144)
  2. 10 printchr$(147):vic=5376
  3. 20 forz=0to7:a=2^z
  4. 30 if(peek(vic+21)anda)=athenprint"*";
  5. 40 printtab(1)"sprite"z;
  6. 50 if(peek(vic+29)anda)=athenprint"*";
  7. 55 if(peek(vic+16)anda)=athenb=255:goto60
  8. 58 b=0
  9. 60 printtab(11)"x-koord."peek(vic+z*2)+b;
  10. 70 if(peek(vic+23)anda)=athenprinttab(24)"*";
  11. 80 printtab(25)"y-koord."peek(vic+(z*2+1));
  12. 90 print:nextz:print
  13. 100 print"msb-x-koordinaten prioritaet multicolor"
  14. 110 print"01234567          01234567   01234567"
  15. 120 forz=0to7:a=2^z
  16. 130 if(peek(vic+16)anda)=athenprinttab(0+z)"*";
  17. 140 if(peek(vic+27)anda)=athenprinttab(18+z)"*";
  18. 150 if(peek(vic+28)anda)=athenprinttab(29+z)"*";
  19. 160 print:print"[145]";:nextz:print:print
  20. 170 forz=2to9:print" sprite"z-2" farbe: ";:gosub1000:print:nextz:print
  21. 180 print" sprite mc 0/1: ";:z=0:gosub1000:print"/";:z=1:gosub1000
  22. 190 poke198,0:wait198,1
  23. 200 printchr$(147)
  24. 210 print"hochaufloesende grafik: ";
  25. 220 if(peek(vic+17)and32)=32thenprint"ein":goto240
  26. 230 print"aus"
  27. 240 print"multicolor modus: ";
  28. 250 if(peek(vic+22)and16)=16thenprint"ein":goto270
  29. 260 print"aus"
  30. 270 print"extended color modus: ";
  31. 280 if(peek(vic+17)and64)=64thenprint"ein":goto350
  32. 290 print"aus"
  33. 350 print:print"adresse zeichensatz:";
  34. 360 print(peek(vic+24)and14)*1024
  35. 370 print"adresse video-ram:";
  36. 380 vd=(peek(vic+24)and240)*64:printvd
  37. 383 print"adresse bitmap:";
  38. 386 print(peek(vic+24)and8)*1024
  39. 390 print:print"letzte rasterzeile:"(peek(vic+17)and128)+peek(vic+18)
  40. 400 print:print"rahmenfarbe:";:z=-5:gosub 1000:print
  41. 410 forz=-4to-1step1:print"hintergrundfarbe "z+4;:gosub 1000:print:nextz
  42. 420 a=peek(5632):print:print"irq-quellen:":print
  43. 430 if(aand1)=1thenprint"rasterzeilen-irq"
  44. 440 if(aand2)=2thenprint"sprite-hintergrund-kollision"
  45. 450 if(aand4)=4thenprint"sprite-sprite-kollision"
  46. 460 if(aand8)=8thenprint"lightpen-irq"
  47. 490 poke198,0:wait198,1
  48. 500 printchr$(147)
  49. 510 print"sprite-pointer ab"vd+1016:print
  50. 520 forz=0to7
  51. 530 print"sprite"z"informationen ab"peek(16384+vd+1016+z)*64
  52. 540 nextz
  53. 999 poke198,0:wait198,1:end
  54. 1000 restore:a=(peek(vic+37+z)and15):fori=0toa:reada$:nexti:printa$;:return
  55. 2000 dataschwarz,weiss,rot,tuerkis,violett,gruen,blau,gelb,orange,braun,hellrot
  56. 2010 datagrau 1,grau 2, hellgruen,hellblau,grau 3
  57.