home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 34 / Commodore_Disc_34_19xx_-_de.d64 / sid-mon (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  90 lines
  1. 10 rem---------------------------------
  2. 15 rem
  3. 20 rem     upm-demo 'sid-mon'
  4. 30 rem       (c)  9/89
  5. 35 rem
  6. 40 rem---------------------------------
  7. 45 rem
  8. 50 if a=0 then a=1:load "upm",8,1
  9. 55 :
  10. 60 sys 52000 :rem neue befehle init.
  11. 70 print chr$(147):poke $d020,0: poke  $d021,0:poke 646,1
  12. 80 @0,11:print"sid-mon v1  9/89"
  13. 90 @1,11:print"----------------"
  14. 100 s=$d400 : rem =sid startadresse
  15. 110 :
  16. 200 rem einlesen u.poken der parameter:
  17. 210 :
  18. 220 pa=$c000:  rem =par.startadresse
  19. 230 d=0
  20. 240 for voice=0 to 2
  21. 250 :  restore
  22. 260 :  for r =1 to 7
  23. 270 :     read rg,y,x,m,f
  24. 280 :     ad=s+rg+vo*7: x=x+d
  25. 290 :     f=f+vo
  26. 300 :     gosub 2000
  27. 310 :  next r
  28. 320 d=d+10:next voice
  29. 330 :
  30. 340 for i=0 to 6
  31. 350 :  read rg,y,x,m,f
  32. 360 :  ad=s+rg
  33. 380 :  gosub 2000
  34. 390 next i
  35. 400 :
  36. 450 poke646,7:@5,10:print"stimme1   stimme2   stimme3"
  37. 460 poke646,5:rem  cursorfarbe gruen
  38. 470 :
  39. 500 rem vorbesetzen der register mittels 'print' an die entspr. stelle :
  40. 510 :
  41. 520 @7,1:print"frq       1100      2000      0001"
  42. 530 @9,1:print"pw        0700      0700      0700"
  43. 540 @11,1:print"wave      00010001  00100000  00100000"
  44. 550 @13,1:print"adsr      02aa      02aa      de5a"
  45. 560 @16,1:print"filterfreq.    00"
  46. 570 @17,1:print"res/fil.ein    00000000
  47. 580 @18,1:[153]"fil.art/vol    00001111
  48. 590 @21,1:print"potentiometer x"
  49. 600 @22,1:print"potentiometer y"
  50. 610 @23,1:print"oszillator 3"
  51. 620 @24,1:print"huellkurve 3";
  52. 690 :
  53. 700 rem edit reg. u. show reg. starten:
  54. 710 !er,$c000,24: !sr,$c000+24*6,4
  55. 800 :
  56. 810 @11,18: rem curs-position f. get
  57. 820 :
  58. 830 rem 'get' mit geaenderter routine:
  59. 840 get a$
  60. 850 :
  61. 855 rem  cursormodus aendern mit "t";
  62. 860 if a$="t"then:_t
  63. 865 rem  prg beenden mit "x";
  64. 870 if a$="x"then:_a:print chr$(147):end
  65. 880 goto 840
  66. 890 :
  67. 895 :
  68. 1000 rem daten f. sid schreibregister:
  69. 1010 :
  70. 1020 data 1,7,11,16,2, 0,7,13,16,2
  71. 1030 data 3,9,11,16,2, 2,9,13,16,2
  72. 1040 data 4,11,11,2,2
  73. 1050 data 5,13,11,16,2, 6,13,13,16,2
  74. 1060 data 22,16,16,16,13
  75. 1070 data 23,17,16,2,13
  76. 1080 data 24,18,16,2,13
  77. 1090 :
  78. 1100 rem daten f. sid leseregister:
  79. 1110 :
  80. 1120 data 25,21,19,10,14
  81. 1130 data 26,22,19,10,14
  82. 1140 data 27,23,19,10,14
  83. 1150 data 28,24,19,10,14
  84. 1190 :
  85. 2000 rem up:parameter in speicher poken
  86. 2010 :
  87. 2020 !do pa,ad:poke pa+2,y:poke pa+3,x : poke pa+4,m: poke pa+5,f
  88. 2030 pa=pa+6
  89. 2040 return
  90.