home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / SID-DEMO.ARC / SIDDEMO.C
Encoding:
C/C++ Source or Header  |  2019-04-13  |  8.0 KB  |  247 lines
  1. /*
  2.  *   SIDDEMO.C, ╓ERSION 2
  3.  *
  4.  *   ╞OR THE ├-64 AND ├-╨OWER. 
  5.  *
  6.  *   BY: ╙TEVE ╥EISMAN
  7.  *       50 ─AVID ├OURT
  8.  *       ─AYTON, ╬╩ 08810
  9.  *       ATTMAIL!SREISMAN
  10.  *
  11.  *   ╨ROGRAM IS BASED ON:
  12.  *       "═╒╙╔├2"
  13.  *       ┴╚╧┘ ═AGAZINE, ╩UNE 1986
  14.  *
  15.  *   ╒NLIKE VERSION 1, THIS DEMO CONSISTANTLY
  16.  *   PLAYS FULL, CRISP NOTES.
  17.  *   
  18.  *   ╨ROGRAM DEMONSTRATES SEVERAL DISCRETE 
  19.  *   CONCEPTS WHILE HARNESSING A POWERFUL
  20.  *   FEATURE OF THE ├-64; SOUND GENERATION.
  21.  *   
  22.  *   1.  ╞ROM ├, THE ├64'S NORMAL INTERRUPT PROCESSING
  23.  *       IS DYNAMICALLY ALTERED TO PERFORM AN INDEPENDENT
  24.  *       MACHINE LANGUAGE BASED ROUTINE.  ╔N THIS CASE,
  25.  *       A TIGHT 6502 ROUTINE TIMES EACH NOTE'S PLAY
  26.  *       WITHOUT REGARD TO ANYTHING ELSE GOING ON.
  27.  *   
  28.  *   2.  ╘HE KEYBOARD IS ACCESSED DIRECTLY AND WITHOUT
  29.  *       ANY COSTLY OVERHEAD.  ╟RANTED THAT THE KEY'S SCAN
  30.  *       CODE ONLY IS RETURNED, BUT THE METHOD HAS MANY
  31.  *       PRACTICAL APPLICATIONS FOR OTHER SOFTWARE.
  32.  *   
  33.  *   3.  ╘HE EMPLOYED ═╠ ROUTINES, UNLIKE THE EARLIER VERSION
  34.  *       OF THIS PROGRAM, ARE STATIONARY.  ╘HEY ARE NO LONGER
  35.  *       POKED ELSEWHERE IN ╥┴═.  ╘HEIR ADDRESSES ARE CULLED
  36.  *       FOR SYS() CALLS USING POINTERS AND INDIRECTION.
  37.  *   
  38.  *   4.  ╠ASTLY, THE PROGRAM EMPLOYS THE GOOD SENSE OF
  39.  *       CLEANING-UP AFTER ITSELF (THOUGH ONE LAST BUG
  40.  *       LINGERS ON HERE; YOU'LL SEE IT WHEN YOU END
  41.  *       PRACTICING YOUR TUNES).
  42.  *   
  43.  *   ┘OUR COMMENTS WILL BE APPRECIATED.  ─ROP ME A LINE AT
  44.  *   MY ADDRESS (LISTED ABOVE), OR THROUGH THE ╨╥╧-╠╔╬┼ BBS.
  45.  *   
  46.  *   ╚AVE FUN!
  47.  */
  48.  
  49. #INCLUDE <STDIO.H>
  50.  
  51. #DEFINE PEEK(X) *((CHAR *)X)
  52. #DEFINE POKE(X,Y) *((CHAR *)X)=Y
  53.  
  54. #DEFINE ╙╞─╪   0X├┬     /* ╦EYBOARD SCAN CODE TAKEN */
  55.                         /* FROM HERE.               */
  56.  
  57. #DEFINE ╘╔═┼╥  0X╞┬     /* ZERO-PAGE VARIABLE/FIELD */
  58.  
  59. #DEFINE ╒╙╥┴─1 0X311
  60. #DEFINE ╒╙╥┴─2 0X312
  61. #DEFINE ├╔╬╓1  0X314
  62. #DEFINE ├╔╬╓2  0X315
  63.  
  64. #DEFINE ╙╔─    0X─400
  65. #DEFINE ╞╥┼╠╧1 0X─400
  66. #DEFINE ╞╥┼╚╔1 0X─401
  67. #DEFINE ╨╫╠╧1  0X─402
  68. #DEFINE ╨╫╚╔1  0X─403
  69. #DEFINE ╓├╥┼╟1 0X─404
  70. #DEFINE ┴╘─├┘1 0X─405
  71. #DEFINE ╙╒╥┼╠1 0X─406
  72. #DEFINE ╙╔╟╓╧╠ 0X─418
  73.  
  74. /* ╦EYBOARD SCAN CODES FOR PROGRAM'S VALID KEYS.
  75.  */
  76. STATIC  CHAR MATRIX[] =
  77.          █62,10, 9,13,18,17,21,22,26,29,30,
  78.           34,33,37,38,42,45,46,50,49,53 ▌;
  79.  
  80. /* ╞REQUENCY TABLES FOR PIANO NOTES USED HEREIN
  81.  * ╞/┘/╔ - THE SID CHIP USED A 12-BIT VALUE FOR
  82.  *         A DESIRED FREQUENCY.  ╘HE HIFREQ VALUES
  83.  *         ARE PLACED INTO THE REQUIRED NYBBLE,
  84.  *         AND THE LOFREQ'S ARE PLACED AS WHOLE
  85.  *         BYTES.
  86.  */
  87. STATIC  CHAR HIFREQ[] =
  88.          █13,14,14,15,16,17,18,19,21,22,23,25,
  89.           26,28,29,31,33,35,37,39,42 ▌;
  90.  
  91. STATIC  CHAR LOFREQ[] =
  92.          █ 78,24,239,210,195,195,209,239,31,96,181,
  93.            30,156,49,223,165,135,134,162,223,62 ▌;
  94.  
  95. /* ╘HIS ═╠ IS USED TO TIME NOTE DURATION.
  96.  */
  97. STATIC  CHAR ML[] =
  98.          █
  99.           0X┴6,0X╞┬,      /* ╫┴╔╘  LDX ╘╔═┼╥      */
  100.           0X├┴,           /*       DEX            */
  101.           0X─0,0X07,      /*       BNE ╥╘╥╬       */
  102.           0X┴9,0X40,      /*       LDA #64        */
  103.           0X8─,0X04,0X─4, /*       STA ╓├╥┼╟1     */
  104.           0X┴2,0X00,      /*       LDX #0         */
  105.           0X86,0X╞┬,      /* ╥╘╥╬  STX ╘╔═┼╥      */
  106.           0X6├,0X11,0X03, /* ╩═╨   JMP (╒╙╥┴─1/2) */
  107.           0X00            /*       BRK            */
  108.          ▌;
  109.  
  110. /* ╞OLLOWING ARE TWO EXTREMELY SHORT ML ROUTINES
  111.  * CALLED WITH SYS() TO DISABLE AND THEN RE-ENABLE
  112.  * THE 64'S INTERRUPT MACHINE.
  113.  * ╘HE POINTER FIELDS ARE USED TO SYS() TO THE ML.
  114.  */
  115.  
  116. STATIC  CHAR SEI[] =█ 0X78,0X60 ▌;
  117. STATIC  CHAR CLI[] =█ 0X58,0X60 ▌;
  118.         CHAR *SEIRTN, *CLIRTN, *MLRTN;
  119.  
  120. MAIN()
  121. █
  122. REGISTER INT   I;
  123. STATIC   CHAR  C;
  124. STATIC   CHAR  CC;
  125.          CHAR  DMY;
  126. UNSIGNED INT   MLñADR, MLñLO, MLñHI;
  127.          
  128.          /* ╙ET UP INTERRUPT VECTOR.
  129.           *
  130.           * ╞IRST, GET CURRENT ╔╥╤ VECTOR BYTE
  131.           * AND INSERT INTO ╒╙┼╥ VECTOR. 
  132.           */
  133.          C = PEEK(├╔╬╓1);
  134.          POKE(╒╙╥┴─1, C);
  135.  
  136.          C = PEEK(├╔╬╓2);
  137.          POKE(╒╙╥┴─2, C);
  138.  
  139.          /* ╥ETRIEVE AND CONVERT ADDRESS
  140.           * FOR ARITHMETIC OPERATIONS.
  141.           * ╥ESULTS ARE USED FOR SETTING
  142.           * A NEW ├╔╬╓ VECTOR.
  143.           */
  144.          SEIRTN = &SEI[0];
  145.          CLIRTN = &CLI[0];
  146.          MLRTN  = &ML[0];
  147.          MLñADR = MLRTN;
  148.          MLñHI  = MLñADR / 256;
  149.          MLñLO  = MLñADR - (MLñHI * 256);
  150.  
  151.          /* ╥ESET ├╔╬╓ FOR NEW VECTOR.
  152.           */
  153.          SYS(SEIRTN, &DMY, &DMY, &DMY);
  154.          POKE(├╔╬╓1, MLñLO);
  155.          POKE(├╔╬╓2, MLñHI);
  156.          SYS(CLIRTN, &DMY, &DMY, &DMY);
  157.  
  158.          /* ╔NITIALIZE AND LOAD SID FOR DEMO.
  159.           */
  160.          POKE(╘╔═┼╥, 60);
  161.          CLSID();
  162.          POKE( ╙╔╟╓╧╠, 15 );
  163.          POKE( ┴╘─├┘1,  9 );
  164.          POKE( ╙╒╥┼╠1,  0 );
  165.          POKE( ╨╫╚╔1,   0 );
  166.          POKE( ╨╫╠╧1, 255 );
  167.          POKE( ╓├╥┼╟1, 64 );
  168.  
  169.          MAPOUT();         /* DISPLAY INSTRUCTIONS      */
  170.          CC = 0X00;        /* INITIALIZE ╠AST-╦EY-╚IT   */
  171.  
  172.          /* ═AINLINE ROUTINE; PLAY THE KEYS.
  173.           * ┼SCAPE BY PRESSING 'X';
  174.           */
  175. ╠╧╧╨:
  176.          C = PEEK(╙╞─╪);   /* GET SCAN CODE             */
  177.          IF(C == 0X40)█    /* 0X40 = '╬O ╦EY ╨RESSED    */
  178.              CC = 0X00;    /* UPDATE ╠AST-╦EY-╚IT       */
  179.              GOTO ╠╧╧╨;
  180.          ▌
  181.          IF(C == 0X17)█    /* 0X17 IS SCAN CODE FOR 'X' */
  182.              MOPUP();
  183.              EXIT(0);
  184.          ▌
  185.          IF(C == CC)                   /* KEY MUST BE LIFTED ..  */
  186.              GOTO ╠╧╧╨;                /* .. TO PLAY IT AGAIN    */
  187.          FOR(I=0; I<21; I++)█          /* SEARCH FOR A VALID KEY */
  188.              IF(C == MATRIX[I])█       /* GOT ONE; PLAY IT       */
  189.                  CC = C;               /* UPDATE ╠AST-╦EY-╚IT    */
  190.                  POKE(╘╔═┼╥,  60);
  191.                  POKE(╓├╥┼╟1, 64);          /* TURN ╓OICE-1 OFF  */
  192.                  POKE(╞╥┼╚╔1, HIFREQ[I]);   /* ╙ET FREQUENCY     */
  193.                  POKE(╞╥┼╠╧1, LOFREQ[I]);
  194.                  POKE(╓├╥┼╟1, 65);          /* TURN ╓OICE-1 ON   */
  195.                  GOTO ╠╧╧╨;
  196.              ▌
  197.          ▌
  198.          GOTO ╠╧╧╨;
  199. ▌
  200.  
  201. CLSID()
  202. █
  203. REGISTER INT I;
  204.   
  205.          FOR(I = 0; I < 24; I++)
  206.              POKE(╙╔─ + I, 0);
  207. ▌
  208.  
  209. MAPOUT()
  210. █
  211.          PUTCHAR(147);
  212.          PUTCHAR('\N');
  213.          PUTCHAR('\N');
  214.          PUTS(" ╙╔──┼═╧.├ -- ┴ DEMO PIANO PLAYER");
  215.          PUTCHAR('\N');
  216.          PUTCHAR('\N');
  217.          PUTCHAR('\N');
  218.          PUTS("          ╒SE INDICATED KEYS.");
  219.          PUTCHAR('\N');
  220.          PUTCHAR('\N');
  221.          PUTS("┬╠┴├╦ ╦┼┘╙ ╤╫ ╥╘ ╒╔╧ @*");
  222.          PUTS("  NOTES -> GA CD FGA CD");
  223.          PUTS("           ## ## ### ##");
  224.          PUTCHAR('\N');                   
  225.          PUTS("╫╚╔╘┼ ╦┼┘╙  ┴╙─╞╟╚╩╦╠:;=");
  226.          PUTS("  NOTES ->  ABCDEFGABCDE");  
  227.          PUTCHAR('\N');
  228.          PUTCHAR('\N');
  229.          PUTS("          ┬EGIN NOW.  ┼NJOY!");
  230.          PUTCHAR('\N');
  231.          PUTS("          ╨RESS <X> TO EXIT."); 
  232. ▌
  233.  
  234. MOPUP()
  235. █
  236. CHAR C, DMY;
  237.  
  238.          SYS(SEIRTN, &DMY, &DMY, &DMY);     /* DISABLE INTERUPTS       */
  239.          C = PEEK(╒╙╥┴─1);                  /* RESTORES                */
  240.          POKE(├╔╬╓1, C);                    /*        TO               */
  241.          C = PEEK(╒╙╥┴─2);                  /*         ORIGINAL        */
  242.          POKE(├╔╬╓2, C);                    /*                VECTORS  */
  243.          SYS(CLIRTN, &DMY, &DMY, &DMY);     /* ENABLE INTERRUPTS       */
  244.          CLSID();                           /* ZAP ╙╔─'S REGISTERS     */
  245. ▌
  246. /* END */
  247.