home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9105.d64 / vic-uebersicht (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  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.