home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG013.ARC / GENSND.PRO < prev    next >
Text File  |  1979-12-31  |  2KB  |  47 lines
  1. procedure GENSND;
  2.  
  3. { Procedure developed in Turbo Pascal
  4.   for sound routines to operate with
  5.       the MicroBee by Bob Burt        }
  6.  
  7. {    Sound generator module to be
  8.      operated in conjunction with
  9.      procedure INITSND.PRO            }
  10.  
  11. begin
  12.   inline(24/14/      { JUMP:    JR   START        }
  13.          62/184/     { ONINT:   LD   A,0B8H       }
  14.          211/2/      { LOOP0:   OUT  (2),A        }
  15.          16/252/     {          DJ   NZ,LOOP0     }
  16.          201/        {          RET               }
  17.  
  18.          62/248/     { OFFINT:  LD   A,0F8H       }
  19.          211/2/      { LOOP1:   OUT  (2),A        }
  20.          16/252/     {          DJ   NZ,LOOP1     }
  21.          201/        {          RET               }
  22.  
  23.          245/        { START:   PUSH AF           }
  24.          197/        {          PUSH BC           }
  25.          229/        {          PUSH HL           }
  26.          6/80/       {          LD   B,SET_TONE   }
  27.          33/4/0/     { LOOP3:   LD   HL,DURATION  }
  28.          5/          {          DEC  B (UP_DOWN)  }
  29.          72/         {          LD   C,B          }
  30.          65/         { LOOP2:   LD   B,C          }
  31.          205/*-26/   {          CALL ONINT        }
  32.          65/         {          LD   B,C (TIMBRE) }
  33.          205/*-23/   {          CALL OFFINT       }
  34.          43/         {          DEC  HL           }
  35.          125/        {          LD   A,L          }
  36.          180/        {          OR   H            }
  37.          32/243/     {          JR   NZ,LOOP2     }
  38.          65/         {          LD   B,C          }
  39.          120/        {          LD   A,B          }
  40.          254/0/      {          CP   COMPARE      }
  41.          32/232/     { ONE_MANY:JR   NZ,LOOP3     }
  42.          225/        {          POP  HL           }
  43.          193/        {          POP  BC           }
  44.          241/        {          POP  AF           }
  45.          201);       {          RET               }
  46. end; {procedure gensnd}
  47.