home *** CD-ROM | disk | FTP | other *** search
/ Music Workshop 1 / Music_Workshop_Walnut_Creek_January_1995.iso / mcd / unzipped / demo / seqmax / d70.prf < prev    next >
Text File  |  1992-11-29  |  6KB  |  321 lines
  1. PROFILE FILE
  2. * SAMPLE COMMENTS
  3. BRAND "ROLAND"
  4. INSTRUMENT "D-70"
  5. KIND PATCH
  6. FILEEXT "D70"
  7. SIZE 37208
  8. MIDI 1, 16, 10
  9. TRANSMIT
  10.     YESNO V9, " Ready to send ? "
  11.     IFQUIT V9, 0
  12.     VINIT V1, 0
  13.     YESNO V9, " Send Bank to Card ? "
  14.     IFJUMP V9, CARD
  15. *
  16. *        Don't send to a Card
  17. *
  18.     VINIT V3, H829
  19.     IFJUMP 1, SKIP
  20. *
  21. *        Do send to a Card
  22. *
  23. :CARD
  24.     VINIT V3, H9981
  25. :SKIP
  26.     CLEAR ALL
  27.     MESSAGE SHOW "Sending Data to D-70"
  28.     LOOP 145
  29.         VDIV V4, V3, H4000
  30.         VMUL V7, V4, H4000
  31.         VSUB V5, V3, V7
  32.         VDIV V5, V5, H80
  33.         VAND V6, V3, H7F
  34.         BADD V2, V1, 256
  35.         VADD V2, V4, V2
  36.         VADD V2, V5, V2
  37.         VADD V2, V6, V2
  38.         VCHKSUM V2, V2
  39.         SEND 8, HF0, H41, H1M, H39, H12, V4, V5, V6
  40.         XDATA 0, 256, V1
  41.         SEND 2, V2, HF7
  42.         VADD V1, V1, 256
  43.         VADD V3, V3, 256
  44.         WAIT 1000
  45.     ENDLOOP
  46.     VDIV V4, V3, H4000
  47.     VMUL V7, V4, H4000
  48.     VSUB V5, V3, V7
  49.     VDIV V5, V5, H80
  50.     VAND V6, V3, H7F
  51.     BADD V2, V1, H58
  52.     VADD V2, V4, V2
  53.     VADD V2, V5, V2
  54.     VADD V2, V6, V2
  55.     VCHKSUM V2, V2
  56.     SEND 8, HF0, H41, H1M, H39, H12, V4, V5, V6
  57.     XDATA 0, H58, V1
  58.     SEND 2, V2, HF7
  59.     MESSAGE CLEAR
  60.     ENDMACRO
  61. RECEIVE
  62.     YESNO V9,  " Are You Ready ? "
  63.     IFQUIT V9, 0
  64.     VINIT V1, 0
  65.     YESNO V9, " Get Bank from Card ? "
  66.     IFJUMP V9, CARD
  67. *
  68. *        Don't get from Card
  69. *
  70.     VINIT V3, H829
  71.     IFJUMP 1, SKIP
  72. *
  73. *        Do get from a Card
  74. *
  75. :CARD
  76.     VINIT V3, H9981
  77. :SKIP
  78.     MESSAGE SHOW "Getting D70 Data "
  79.     CLEAR ALL
  80.     VDIV V4, V3, H4000
  81.     VMUL V7, V4, H4000
  82.     VSUB V5, V3, V7
  83.     VDIV V5, V5, H80
  84.     VAND V6, V3, H7F
  85.     VINIT V2, H7C
  86.     VADD V2, V4, V2
  87.     VADD V2, V5, V2
  88.     VADD V2, V6, V2
  89.     VCHKSUM V2, V2
  90.     SEND 13, HF0 H41 H1M H39 H41 V4 V5 V6 H02 H22 H58 V2 HF7
  91.     LOOP 145
  92.         GET  8, HF0, H41, H1M, H39, H42, V4, V5, V6, WAIT
  93.         RDATA 0, 256, V1
  94. * Get Check sum and EOX
  95.         VGET V9
  96.         VGET V9
  97.         WAIT 100
  98.         VADD V3, V3, 256
  99.         VDIV V4, V3, H4000
  100.         VMUL V7, V4, H4000
  101.         VSUB V5, V3, V7
  102.         VDIV V5, V5, H80
  103.         VAND V6, V3, H7F
  104.         SEND 6, HF0, H41, H1M, H39, H43, HF7
  105.         VADD V1, V1, 256
  106.     ENDLOOP
  107.     GET  8,  HF0, H41, H1M, H39, H42, V4, V5, V6, WAIT
  108.     RDATA 0, H58, V1
  109.     VGET V9
  110.     VGET V9
  111.     SEND 6, HF0, H41, H1M, H39, H43, HF7
  112.     GET 6, HF0, H41, H1M, H39, H45, HF7, WAIT
  113.     SEND 6, HF0, H41, H1M, H39, H43, HF7
  114.     MESSAGE CLEAR
  115.     ENDMACRO
  116. * FILE Save Macro
  117. DISKSAVE
  118.     DOPEN W, "D70"
  119.     MESSAGE SHOW "Saving Bank"
  120.     DWRITE 18604, 0
  121.     DWRITE 18604, 18604
  122.     MESSAGE CLEAR
  123.     DCLOSE
  124.     ENDMACRO
  125. DISKLOAD
  126.     DOPEN R, "D70"
  127. * start with Tone Data
  128.     MESSAGE SHOW "Loading Bank"
  129.     DREAD 18604, 0
  130.     DREAD 18604, 18604
  131.     MESSAGE CLEAR
  132.     DCLOSE
  133.     ENDMACRO
  134. *
  135. *        1st View is Tones
  136. *
  137. VIEW
  138.     PATCH TITLE "Tones"
  139.     PATCH OFFSET 29272
  140.     PATCH LENGTH 62
  141.     PATCH NUMBER 128
  142.     NAME LENGTH 10
  143.     NAME OFFSET 0
  144.     NAME XFORM 0
  145.     TRANSMIT
  146.         CLEAR ALL
  147.         USERVAL V5, 1, 5, 1, "Enter Part # to Send to"
  148.         USERVAL V6, 1, 4, 1, "Enter Tone Number"
  149.         VINIT V2, 0
  150.         VSUB V5, V5, 1
  151.         VMUL V5, V5, 248
  152.         VADD V5, V5, H351
  153.         VSUB V6, V6, 1
  154.         VMUL V6, V6, 62
  155.         VADD V6, V6, V5
  156.         VDIV V4, V6, H80
  157.         VAND V5, V6, H7F
  158.         BADD V2, 0, 62
  159.         VADD V2, V4, V2
  160.         VADD V2, V5, V2
  161.         VCHKSUM V2, V2
  162.         SEND 8, HF0, H41, H10, H39, H12, 0, V4, V5
  163.         XDATA 0, 62, 0
  164.         SEND 2, V2, HF7
  165.     ENDMACRO
  166.     RECEIVE
  167.         CLEAR ALL
  168.         USERVAL V5, 1, 5, 1, "Enter Part # to Get From"
  169.         USERVAL V6, 1, 4, 1, "Enter Tone Number"
  170.         VSUB V5, V5, 1
  171.         VMUL V5, V5, 248
  172.         VADD V5, V5, H351
  173.         VSUB V6, V6, 1
  174.         VMUL V6, V6, 62
  175.         VADD V6, V6, V5
  176.         VDIV V4, V6, H80
  177.         VAND V5, V6, H7F
  178.         VINIT V2, H3E
  179.         VADD V2, V4, V2
  180.         VADD V2, V5, V2
  181.         VCHKSUM V2, V2
  182.         SEND 13, HF0 H41 H1M H39 H11 0 V4 V5 0 0 H3E V2 HF7
  183.         WAIT 200
  184.         GET 8, HF0, H41, H1M, H39, H12, 0, V4, V5, WAIT
  185.         RDATA 0, 62, 0
  186.         VGET V9
  187.         VGET V9
  188.     ENDMACRO
  189. VIEWEND
  190. *
  191. *        2nd View is Patches
  192. *
  193. VIEW
  194.     PATCH TITLE "Patches"
  195.     PATCH OFFSET 18136
  196.     PATCH LENGTH 87
  197.     PATCH NUMBER 128
  198.     NAME LENGTH 10
  199.     NAME OFFSET 0
  200.     NAME XFORM 0
  201.     TRANSMIT
  202.         CLEAR ALL
  203.         VINIT V2, 0
  204.         USERVAL V5, 1, 5, 1, "Enter Part # to Get From"
  205.         VSUB V5, V5, 1
  206.         VMUL V5, V5, H57
  207.         VADD V5, V5, H19E
  208.         VDIV V4, V5, H80
  209.         VAND V5, V5, H7F
  210.         BADD V2, 0, H57
  211.         VADD V2, V4, V2
  212.         VADD V2, V5, V2
  213.         VCHKSUM V2, V2
  214.         SEND 8, HF0, H41, H10, H39, H12, 0, V4, V5
  215.         XDATA 0, H57, 0
  216.         SEND 2, V2, HF7
  217.     ENDMACRO
  218.     RECEIVE
  219.         CLEAR ALL
  220.         USERVAL V5, 1, 5, 1, "Enter Part # to Get From"
  221.         VSUB V5, V5, 1
  222.         VMUL V5, V5, H57
  223.         VADD V5, V5, H19E
  224.         VDIV V4, V5, H80
  225.         VAND V5, V5, H7F
  226.         VINIT V2, H57
  227.         VADD V2, V4, V2
  228.         VADD V2, V5, V2
  229.         VCHKSUM V2, V2
  230.         SEND 13, HF0 H41 H1M H39 H11 0 V4 V5 0 0 H57 V2 HF7
  231.         WAIT 200
  232.         GET 8, HF0, H41, H1M, H39, H12, 0, V4, V5, WAIT
  233.         RDATA 0, H57, 0
  234.         VGET V9
  235.         VGET V9
  236.     ENDMACRO
  237. VIEWEND
  238. *
  239. *        3rd View is Performances
  240. *
  241. VIEW
  242.     PATCH TITLE "Performances"
  243.     PATCH OFFSET 2712
  244.     PATCH LENGTH 241
  245.     PATCH NUMBER 64
  246.     NAME LENGTH 10
  247.     NAME OFFSET 0
  248.     NAME XFORM 0
  249.     TRANSMIT
  250.         CLEAR ALL
  251.         VINIT V2, 0
  252.         BADD V2, 0, 241
  253.         VADD V2, V2, H2E
  254.         VCHKSUM V2, V2
  255.         SEND 8, HF0, H41, H10, H39, H12, 0, 1, H2D
  256.         XDATA 0, 241, 0
  257.         SEND 2, V2, HF7
  258.     ENDMACRO
  259.     RECEIVE
  260.         CLEAR ALL
  261.         SEND 13, HF0 H41 H1M H39 H11 0 1 H2D 0 1 H71 H60 HF7
  262.         WAIT 200
  263.         GET 8, HF0, H41, H1M, H39, H12, 0, 1, H2E, WAIT
  264.         RDATA 0, 241, 0
  265.         VGET V9
  266.         VGET V9
  267.     ENDMACRO
  268. VIEWEND
  269. *
  270. *        4th View is user sets
  271. *
  272. VIEW
  273.     PATCH TITLE "User Sets"
  274.     PATCH OFFSET 2662
  275.     PATCH LENGTH 5
  276.     PATCH NUMBER 10
  277.     NAME LENGTH 0
  278.     NAME OFFSET -1
  279.     NAME XFORM 0
  280.     TRANSMIT
  281.         CLEAR ALL
  282.         VINIT V2, 0
  283.         BADD V2, 0, 5
  284.         VADD V2, V2, H28
  285.         VCHKSUM V2, V2
  286.         SEND 8, HF0, H41, H10, H39, H12, 0, 1, H28
  287.         XDATA 0, 5, 0
  288.         SEND 2, V2, HF7
  289.     ENDMACRO
  290.     RECEIVE
  291.         CLEAR ALL
  292.         SEND 13, HF0 H41 H1M H39 H11 0 1 H28 0 0 5 H52 HF7
  293.         WAIT 200
  294.         GET 8, HF0, H41, H1M, H39, H12, 0, 1, H28, WAIT
  295.         RDATA 0, 5, 0
  296.         VGET V9
  297.         VGET V9
  298.     ENDMACRO
  299. VIEWEND
  300. *
  301. *        5th View is Rhythm Setups
  302. *
  303. VIEW
  304.     PATCH TITLE "Rhythm Keys"
  305.     PATCH OFFSET 2
  306.     PATCH LENGTH 35
  307.     PATCH NUMBER 76
  308.     NAME LENGTH 0
  309.     NAME OFFSET -1
  310.     NAME XFORM 0
  311.     TRANSMIT
  312.         CLEAR ALL
  313.     ENDMACRO
  314.     RECEIVE
  315.         CLEAR ALL
  316.     ENDMACRO
  317. VIEWEND
  318. *
  319. *End of Profile
  320. *
  321.