home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol058 / wave2.sqc / WAVE2.SRC
Text File  |  1985-02-09  |  2KB  |  83 lines
  1.  
  2. ;       DATA LIST FOR WAVEFORM PROGRAM
  3.  
  4. CH:     DS      1
  5. TIME:   DS      1
  6. GRAIN:  DS      1
  7.  
  8. I:      DS      2
  9. J:      DS      2
  10. K:      DS      2
  11. T:      DS      2
  12. COLUMN: DW      0
  13. ROW:    DW      0
  14. WORK:   DS      2
  15. PARTIAL: DS     2
  16. D128:   DW      128
  17.  
  18. SCORE:  DS      0
  19.         DW      4447,103        ; OCTAVE 1
  20.         DW      4447,116
  21.         DW      4447,122
  22.         DW      4447,154
  23.         DW      32767,207
  24.         DW      4447,0
  25.         DW      4447,207        ; OCTAVE 2
  26.         DW      4447,232
  27.         DW      4447,246
  28.         DW      4447,310
  29.         DW      32767,414
  30.         DW      4447,0
  31.         DW      4447,414        ; OCTAVE 3
  32.         DW      4447,465
  33.         DW      4447,492
  34.         DW      4447,620
  35.         DW      32767,828
  36.         DW      4447,0
  37.         DW      4447,828        ; OCTAVE 4
  38.         DW      4447,929
  39.         DW      4447,985
  40.         DW      4447,1240
  41.         DW      32767,1656
  42.         DW      4447,0
  43.         DW      4447,1656       ; OCTAVE 5
  44.         DW      4447,1859
  45.         DW      4447,1969
  46.         DW      4447,2481
  47.         DW      32767,3312
  48.         DW      4447,0
  49.         DW      4447,3312       ; OCTAVE 6
  50.         DW      4447,3718
  51.         DW      4447,3939
  52.         DW      4447,4962
  53.         DW      32767,6624
  54.         DW      0               ; END OF SCORE
  55.  
  56. F0:     DB      00H,00H,00H,00H         ; =0
  57. F1:     DB      81H,00H,00H,00H         ; =1
  58. F2:     DB      82H,00H,00H,00H         ; =2
  59. F47:    DB      86H,3CH,00H,00H         ; =47
  60. F78:    DB      87H,1CH,00H,00H         ; =78
  61. F128:   DB      88H,00H,00H,00H         ; =128
  62. F255:   DB      88H,7FH,00H,00H         ; =255
  63. F256:   DB      89H,00H,00H,00H         ; =256
  64. F360:   DB      89H,34H,00H,00H         ; =360
  65. F32767: DB      8FH,7FH,0FEH,00H        ; =32767
  66. WAVE$T: DS      4
  67. AMP$SUM: DS     4
  68. FWRK:   DS      4
  69. FWRK1:  DS      4
  70.         DS      2
  71. WAVE$NAME: DS   40
  72. WAVE$FORM: DS   256*2
  73. AMPLITUDE: DS   20*2
  74. PHASE:  DS      20*2
  75. FAMP:   DS      20*4
  76. ALOC    EQU     ($ SHR 8)
  77. BLOC    EQU     (ALOC+1)
  78. CLOC    EQU     (BLOC SHL 8)
  79.         ORG     CLOC
  80. TIMBRE: DS      256*1
  81.         END
  82.  
  83.