home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / assemblr / library / sound / midi / mbv.asm < prev    next >
Assembly Source File  |  1988-03-20  |  110KB  |  2,358 lines
  1.     TITLE    Video, etc. Data for Modular Sequencer
  2.     NAME    MBV
  3.     .SALL
  4. ;==============================================================
  5. ; MusicBox Modular Sequencer, Version 2
  6. ; Video screen data
  7. ;--------------------------------------------------------------
  8. ; author: John Dunn
  9. ; date:   03/07/86
  10. ; update: 03/20/88
  11. ;--------------------------------------------------------------
  12. ; COPYRIGHT (C) 1986 John Dunn, All Rights Reserved 
  13. ; Entered into the Public Domain, March 20, 1988
  14. ;
  15. ; Use and copying of this software and preparation of derivative works
  16. ; based upon this software are permitted.  Any distribution of this
  17. ; software or derivative works must comply with all applicable United
  18. ; States export control laws.
  19. ; 
  20. ; This software is made available AS IS, and the author makes no warranty 
  21. ; about the software, its performance, or its conformity to any specification.
  22. ; 
  23. ; Any person obtaining a copy of this software is requested to send their
  24. ; name and address address to:
  25. ;
  26. ;       John Dunn, Senior Research Fellow
  27. ;       Time Arts Inc.
  28. ;       3436 Mendocino Ave.
  29. ;       Santa Rosa, CA 95401
  30. ;
  31. ;==============================================================
  32.     include    order.asm
  33. ;--------------------------------------------------------------
  34.         include equates.asm
  35. ;--------------------------------------------------------------
  36. _TEXT   SEGMENT
  37.         ASSUME DS:DGROUP, CS:_TEXT
  38.         include extrn.asm
  39.         extrn work:near
  40. _TEXT   ENDS
  41. ;--------------------------------------------------------------
  42. _DATA   SEGMENT
  43.         ASSUME DS:DGROUP, CS:_TEXT
  44. ;--------------------------------------------------------------
  45. ; video data for modules
  46. ; Data format:
  47. ;       word0:  number of lines in the module
  48. ;       word1:  absolute offset of source module on master screen
  49. ;       word2,3,4:  att/char of the 3 characters in the line
  50. ;       word5,6,7:  next line, etc
  51. ;       entire list ends with -1
  52. ;
  53.         even
  54.         public  _modtxt
  55. _modtxt equ     $
  56.         public  $beta          ; real time clock
  57. $beta   dw      (?beta-$beta)/6,        0000
  58.         dw      rde+004h,whi+0e1h,whi+'0' 
  59.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  60.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  61.         dw      yel+0fbh,blu+'0' ,blu+'0'
  62.         dw      yel+0afh,blu+'0' ,blu+'0'
  63.         dw      yel+'&' ,blu+'0' ,blu+'0'
  64. ?beta   equ     $
  65.         public  $secs          ; real time clock
  66. $secs   dw      (?secs-$secs)/6,        0000
  67.         dw      yel+03ah,whi+092h,whi+'0' 
  68.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  69.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  70.         dw      yel+'0' ,yel+'0' ,yel+'0' 
  71.         dw      yel+0fbh,blu+'0' ,blu+'0'
  72.         dw      yel+'m' ,blu+'0' ,blu+'0'
  73. ?secs   equ     $
  74.         public  $lambda        ; real time clock
  75. $lambda dw      (?lambda-$lambda)/6,        0000
  76.         dw      rde+004h,whi+0e2h,whi+'0' 
  77.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  78.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  79.         dw      yel+0fbh,blu+'0' ,blu+'0'
  80.         dw      yel+0afh,blu+'0' ,blu+'0'
  81.         dw      yel+'&' ,blu+'0' ,blu+'0'
  82. ?lambda equ     $
  83.         public  $mclk           ; loop-driven clock
  84. $mclk   dw      (?mclk-$mclk)/6,        0000
  85.         dw      rde+004h,whi+0b3h,whi+'0' 
  86.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  87.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  88.         dw      yel+0fbh,blu+'0' ,blu+'0'
  89.         dw      yel+'o' ,blu+'0' ,blu+'0'
  90. ?mclk   equ     $
  91.         public  $mclock        ; mesure clock
  92. $mclock dw      (?mclock-$mclock)/6,        0000
  93.         dw      rde+004h,whi+0bah,whi+'0' 
  94.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  95.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  96.         dw      yel+0fbh,blu+'0' ,blu+'0'
  97.         dw      yel+09bh,blu+'0' ,blu+'0'
  98. ?mclock equ     $
  99.         public  $muclk        ; real time clock
  100. $muclk  dw      (?muclk-$muclk)/6,        0000
  101.         dw      rde+004h,whi+0e6h,whi+'0' 
  102.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  103.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  104.         dw      yel+0fbh,blu+'0' ,blu+'0'
  105.         dw      yel+09bh,blu+'0' ,blu+'0'
  106. ?muclk equ     $
  107.         public  $gamma        ; real time clock
  108. $gamma  dw      (?gamma-$gamma)/6,        0000
  109.         dw      rde+004h,whi+0e7h,whi+'0' 
  110.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  111.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  112.         dw      yel+0fbh,blu+'0' ,blu+'0'
  113.         dw      yel+09bh,blu+'0' ,blu+'0'
  114.         dw      yel+'o' ,blu+'0' ,blu+'0'
  115. ?gamma equ     $
  116.         public  $clock          ; note clock
  117. $clock  dw      (?clock-$clock)/6,      0000
  118.         dw      rde+004h,whi+00dh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  119.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  120.         dw      yel+0fbh,blu+'0' ,blu+'0'
  121.         dw      yel+015h,blu+'0' ,blu+'1'
  122.         dw      yel+00dh,blu+'0' ,blu+'3'
  123.         dw      yel+'s' ,blu+'0' ,blu+'0'
  124.         dw      yel+'o' ,blu+'0' ,blu+'0'
  125.         dw      yel+'v' ,blu+'0' ,blu+'1'
  126. ?clock  equ     $
  127.         public  $klock          ; note clock
  128. $klock  dw      (?klock-$klock)/6,      0000
  129.         dw      rde+004h,whi+00eh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  130.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  131.         dw      yel+0fbh,blu+'0' ,blu+'0'
  132.         dw      yel+015h,blu+'0' ,blu+'1'
  133.         dw      yel+00dh,blu+'0' ,blu+'3'
  134.         dw      yel+'s' ,blu+'0' ,blu+'0'
  135.         dw      yel+'o' ,blu+'0' ,blu+'0'
  136.         dw      yel+'v' ,blu+'0' ,blu+'1'
  137. ?klock  equ     $
  138.         public  $alpha          ; master control
  139. $alpha  dw      (?alpha-$alpha)/6,      0000
  140.         dw      rde+004h,whi+0e0h,whi+'$'
  141.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  142.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  143.         dw      yel+0fbh,blu+'0' ,blu+'0'
  144.         dw      yel+'@' ,blu+'0' ,blu+'0'
  145.         dw      yel+0e8h,blu+'0' ,blu+'0'
  146.         dw      yel+0eah,blu+'0' ,blu+'1'
  147.         dw      yel+'|' ,blu+'0' ,blu+'4'
  148.         dw      yel+00dh,blu+'0' ,blu+'3'
  149.         dw      yel+004h,blu+'7' ,blu+'8'
  150.         dw      yel+'?' ,blu+'0' ,blu+'0'
  151.         dw      yel+'s' ,blu+'0' ,blu+'0'
  152.         dw      yel+0edh,blu+'0' ,blu+'0'
  153.         dw      yel+0feh,yel+'1' ,yel+'0' 
  154. ?alpha  equ     $
  155.         public  $wseq           ; staged sequencer
  156. $wseq   dw      (?wseq-$wseq)/6,        0000
  157.         dw      yel+03ah,whi+'w' ,whi+'0'
  158.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  159.         dw      yel+01bh,cyn+'0' ,cyn+'0'
  160.         dw      yel+040h,blu+'0' ,blu+'0' 
  161.         dw      0c30h   ,blu+'0' ,blu+'0' ,yel+'1' ,blu+'0' ,blu+'0' 
  162.         dw      yel+'2' ,blu+'0' ,blu+'0' ,yel+'3' ,blu+'0' ,blu+'0' 
  163.         dw      yel+'4' ,blu+'0' ,blu+'0' ,yel+'5' ,blu+'0' ,blu+'0' 
  164.         dw      yel+'6' ,blu+'0' ,blu+'0' ,yel+'7' ,blu+'0' ,blu+'0' 
  165.         dw      yel+'8' ,blu+'0' ,blu+'0' ,yel+'9' ,blu+'0' ,blu+'0' 
  166.         dw      yel+'A' ,blu+'0' ,blu+'0' ,yel+'B' ,blu+'0' ,blu+'0' 
  167.         dw      yel+'C' ,blu+'0' ,blu+'0' ,yel+'D' ,blu+'0' ,blu+'0' 
  168.         dw      yel+'E' ,blu+'0' ,blu+'0' ,yel+'F' ,blu+'0' ,blu+'0' 
  169. ?wseq   equ     $
  170.         public  $xseq           ; staged sequencer
  171. $xseq   dw      (?xseq-$xseq)/6,        0000
  172.         dw      yel+03ah,whi+'x' ,whi+'0'
  173.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  174.         dw      yel+01bh,cyn+'0' ,cyn+'0'
  175.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  176.         dw      0c30h   ,blu+'0' ,blu+'0' ,yel+'1' ,blu+'0' ,blu+'0' 
  177.         dw      yel+'2' ,blu+'0' ,blu+'0' ,yel+'3' ,blu+'0' ,blu+'0' 
  178.         dw      yel+'4' ,blu+'0' ,blu+'0' ,yel+'5' ,blu+'0' ,blu+'0' 
  179.         dw      yel+'6' ,blu+'0' ,blu+'0' ,yel+'7' ,blu+'0' ,blu+'0' 
  180. ?xseq   equ     $
  181.         public  $yseq           ; staged sequencer
  182. $yseq   dw      (?yseq-$yseq)/6,        0000
  183.         dw      yel+03ah,whi+'y' ,whi+'0'
  184.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  185.         dw      yel+01bh,cyn+'0' ,cyn+'0'
  186.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  187.         dw      0c30h   ,blu+'0' ,blu+'0' ,yel+'1' ,blu+'0' ,blu+'0' 
  188.         dw      yel+'2' ,blu+'0' ,blu+'0' ,yel+'3' ,blu+'0' ,blu+'0' 
  189. ?yseq   equ     $
  190.         public  $zseq           ; staged sequencer
  191. $zseq   dw      (?zseq-$zseq)/6,        0000
  192.         dw      yel+03ah,whi+'z' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  193.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+040h,blu+'0' ,blu+'0' 
  194.         dw      0c30h   ,blu+'0' ,blu+'0' ,yel+'1' ,blu+'0' ,blu+'0' 
  195. ?zseq   equ     $
  196.         public  $useq           ; switch seq
  197. $useq   dw      (?useq-$useq)/6,        0000
  198.         dw      yel+03ah,whi+'u' ,whi+'0'
  199.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  200.         dw      yel+01bh,cyn+'0' ,cyn+'0'
  201.         dw      yel+'&' ,blu+'0' ,blu+'0' 
  202.         dw      yel+'&' ,blu+'0' ,blu+'0' 
  203.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  204.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  205. ?useq   equ     $
  206.         public  $vseq           ; switch seq
  207. $vseq   dw      (?vseq-$vseq)/6,        0000
  208.         dw      yel+03ah,whi+'v' ,whi+'0'
  209.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  210.         dw      yel+01bh,cyn+'0' ,cyn+'0'
  211.         dw      yel+'&' ,blu+'0' ,blu+'0' 
  212.         dw      yel+'&' ,blu+'0' ,blu+'0' 
  213.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  214.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  215.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  216. ?vseq   equ     $
  217.         public  $euseq          ; shift sequencer
  218. $euseq  dw      (?euseq-$euseq)/6,      0000
  219.         dw      mag+0f9h,whi+090h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  220.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  221.         dw      yel+003h,blu+'0' ,blu+'0'
  222.         dw      yel+01ah,blu+'0' ,blu+'0' 
  223.         dw      yel+0afh,blu+'0' ,blu+'0' 
  224.         dw      yel+0eah,blu+'0' ,blu+'1'
  225.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  226. ?euseq  equ     $
  227.         public  $puseq          ; address sequencer
  228. $puseq  dw      (?puseq-$puseq)/6,      0000
  229.         dw      yel+03ah,whi+'P' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  230.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  231.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+014h,blu+'0' ,blu+'0' 
  232.         dw      yel+0eah,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  233.         dw      yel+026h,blu+'F' ,blu+'F' 
  234. ?puseq  equ     $
  235.         public  $quseq          ; address sequencer
  236. $quseq  dw      (?quseq-$quseq)/6,      0000
  237.         dw      yel+03ah,whi+'Q' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  238.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  239.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+014h,blu+'0' ,blu+'0' 
  240.         dw      yel+012h,blu+'0' ,blu+'0' 
  241. ?quseq  equ     $
  242.         public  $ruseq          ; address sequencer
  243. $ruseq  dw      (?ruseq-$ruseq)/6,      0000
  244.         dw      yel+03ah,whi+'R' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  245.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  246.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+014h,blu+'0' ,blu+'0' 
  247.         dw      yel+012h,blu+'0' ,blu+'0' 
  248. ?ruseq  equ     $
  249.         public  $suseq          ; address sequencer
  250. $suseq  dw      (?suseq-$suseq)/6,      0000
  251.         dw      yel+03ah,whi+'S' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  252.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  253.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+014h,blu+'0' ,blu+'0' 
  254.         dw      yel+012h,blu+'0' ,blu+'0' 
  255. ?suseq  equ     $
  256.         public  $tuseq          ; address sequencer
  257. $tuseq  dw      (?tuseq-$tuseq)/6,      0000
  258.         dw      yel+03ah,whi+'T' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  259.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  260.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+014h,blu+'0' ,blu+'0' 
  261.         dw      yel+012h,blu+'0' ,blu+'0' 
  262. ?tuseq  equ     $
  263.         public  $pseq          ; step sequencer
  264. $pseq   dw      (?pseq-$pseq)/6,        0000
  265.         dw      mag+0f9h,whi+'p' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  266.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  267.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+0eah,blu+'0' ,blu+'0' 
  268.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+026h,blu+'F' ,blu+'F' 
  269. ?pseq  equ     $
  270.         public  $qseq          ; step sequencer
  271. $qseq   dw      (?qseq-$qseq)/6,        0000
  272.         dw      mag+0f9h,whi+'q' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  273.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  274.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+012h,blu+'0' ,blu+'0' 
  275. ?qseq  equ     $
  276.         public  $rseq          ; step sequencer
  277. $rseq   dw      (?rseq-$rseq)/6,        0000
  278.         dw      mag+0f9h,whi+'r' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  279.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  280.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+012h,blu+'0' ,blu+'0' 
  281. ?rseq   equ     $
  282.         public  $sseq          ; step sequencer
  283. $sseq   dw      (?sseq-$sseq)/6,        0000
  284.         dw      mag+0f9h,whi+'s' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  285.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  286.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+012h,blu+'0' ,blu+'0' 
  287. ?sseq  equ     $
  288.         public  $tseq          ; step sequencer
  289. $tseq   dw      (?tseq-$tseq)/6,        0000
  290.         dw      mag+0f9h,whi+'t' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  291.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  292.         dw      yel+040h,blu+'0' ,blu+'0' ,yel+012h,blu+'0' ,blu+'0' 
  293. ?tseq  equ     $
  294.         public  $domute         ; master control
  295. $domute dw      (?domute-$domute)/6,      0000
  296.         dw      yel+03ah,whi+0e8h,whi+'0'
  297.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  298.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  299.         dw      yel+'0' ,blu+'0' ,blu+'0'
  300.         dw      yel+'8' ,blu+'0' ,blu+'0'
  301.         dw      yel+0afh,blu+'0' ,blu+'0'
  302.         dw      yel+'&' ,blu+'0' ,blu+'0'
  303. ?domute equ     $
  304.         public  $gatel          ; show byte to leds 0-7
  305. $gatel  dw      (?gatel-$gatel)/6,      0000
  306.         dw      yel+03ah,whi+';' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  307.         dw      yel+01ah,blu+'0' ,blu+'0' 
  308.         dw      rde+004h,yel+02dh,yel+'0' ,rde+004h,yel+02dh,yel+'1' 
  309.         dw      rde+004h,yel+02dh,yel+'2' ,rde+004h,yel+02dh,yel+'3' 
  310.         dw      rde+004h,yel+02dh,yel+'4' ,rde+004h,yel+02dh,yel+'5' 
  311.         dw      rde+004h,yel+02dh,yel+'6' ,rde+004h,yel+02dh,yel+'7' 
  312. ?gatel  equ     $
  313.         public  $gout          ; do byte to leds 0-7
  314. $gout   dw      (?gout-$gout)/6,      0000
  315.         dw      yel+03ah,whi+0feh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  316.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  317.         dw      yel+'0' ,blu+'0' ,blu+'0' ,yel+'1' ,blu+'0' ,blu+'0' 
  318.         dw      yel+'2' ,blu+'0' ,blu+'0' ,yel+'3' ,blu+'0' ,blu+'0' 
  319.         dw      yel+'4' ,blu+'0' ,blu+'0' ,yel+'5' ,blu+'0' ,blu+'0' 
  320.         dw      yel+'6' ,blu+'0' ,blu+'0' ,yel+'7' ,blu+'0' ,blu+'0' 
  321. ?gout   equ     $
  322.         public  $iclock          ; interference clock
  323. $iclock dw      (?iclock-$iclock)/6,    0000
  324.         dw      rde+004h,whi+003h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  325.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  326.         dw      yel+0fbh,blu+'0' ,blu+'0' 
  327.         dw      yel+003h,blu+'0' ,blu+'0' 
  328.         dw      yel+003h,blu+'0' ,blu+'0' 
  329.         dw      yel+003h,blu+'0' ,blu+'0' 
  330.         dw      yel+003h,blu+'0' ,blu+'0' 
  331. ?iclock equ     $
  332.         public  $kclock          ; interference clock
  333. $kclock dw      (?kclock-$kclock)/6,    0000
  334.         dw      rde+004h,whi+09bh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  335.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  336.         dw      yel+003h,blu+'0' ,blu+'0' 
  337.         dw      yel+0fbh,blu+'0' ,blu+'0' 
  338.         dw      yel+09bh,blu+'0' ,blu+'0' 
  339.         dw      yel+09bh,blu+'0' ,blu+'0' 
  340.         dw      yel+09bh,blu+'0' ,blu+'0' 
  341.         dw      yel+09bh,blu+'0' ,blu+'0' 
  342. ?kclock equ     $
  343.         public  $icount          ; addresser/counter
  344. $icount dw      (?icount-$icount)/6,    0000
  345.         dw      yel+03ah,whi+'I' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  346.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  347.         dw      yel+003h,blu+'0' ,blu+'0' ,yel+0fbh,blu+'0' ,blu+'0' 
  348.         dw      yel+0f1h,blu+'0' ,blu+'0' 
  349. ?icount equ     $
  350.         public  $ocount          ; addresser/counter
  351. $ocount dw      (?ocount-$ocount)/6,    0000
  352.         dw      yel+03ah,whi+'O' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  353.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  354.         dw      yel+003h,blu+'0' ,blu+'0' ,yel+0fbh,blu+'0' ,blu+'0' 
  355.         dw      yel+'&' ,blu+'0' ,blu+'0' 
  356. ?ocount equ     $
  357.         public  $jcount          ; addresser/counter
  358. $jcount dw      (?jcount-$jcount)/6,    0000
  359.         dw      yel+03ah,whi+'J' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  360.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  361.         dw      yel+003h,blu+'0' ,blu+'0' ,yel+0fbh,blu+'0' ,blu+'0' 
  362.         dw      yel+02bh,blu+'0' ,blu+'0' 
  363. ?jcount equ     $
  364.         public  $kcount          ; addresser/counter
  365. $kcount dw      (?kcount-$kcount)/6,    0000
  366.         dw      yel+03ah,whi+'K' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  367.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  368.         dw      yel+003h,blu+'0' ,blu+'0' ,yel+0fbh,blu+'0' ,blu+'0' 
  369.         dw      yel+02bh,blu+'0' ,blu+'0' 
  370.         dw      yel+0f1h,blu+'0' ,blu+'0' ,yel+023h,blu+'0' ,blu+'0' 
  371. ?kcount equ     $
  372.         public  $lcount          ; addresser/counter
  373. $lcount dw      (?lcount-$lcount)/6,    0000
  374.         dw      yel+03ah,whi+'L' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  375.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  376.         dw      yel+003h,blu+'0' ,blu+'0' ,yel+0fbh,blu+'0' ,blu+'0' 
  377.         dw      yel+02bh,blu+'0' ,blu+'0' 
  378.         dw      yel+0f1h,blu+'0' ,blu+'0' 
  379.         dw      yel+018h,blu+'0' ,blu+'0' ,yel+019h,blu+'0' ,blu+'0' 
  380. ?lcount equ     $
  381.         public  $mcount          ; addresser/counter
  382. $mcount dw      (?mcount-$mcount)/6,    0000
  383.         dw      yel+03ah,whi+'M' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  384.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  385.         dw      yel+003h,blu+'0' ,blu+'0' ,yel+0fbh,blu+'0' ,blu+'0' 
  386.         dw      yel+02bh,blu+'0' ,blu+'0' 
  387.         dw      yel+0f1h,blu+'0' ,blu+'0' 
  388.         dw      yel+018h,blu+'0' ,blu+'0' ,yel+019h,blu+'0' ,blu+'0' 
  389. ?mcount equ     $
  390.         public  $ncount          ; addresser/counter
  391. $ncount dw      (?ncount-$ncount)/6,    0000
  392.         dw      yel+03ah,whi+'N' ,whi+'0'
  393.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  394.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  395.         dw      yel+003h,blu+'0' ,blu+'0'
  396.         dw      yel+0fbh,blu+'0' ,blu+'0' 
  397.         dw      yel+040h,blu+'0' ,blu+'0'
  398.         dw      yel+014h,blu+'0' ,blu+'0' 
  399.         dw      yel+'!' ,blu+'0' ,blu+'0'
  400.         dw      yel+0afh,blu+'0' ,blu+'0' 
  401.         dw      yel+0f1h,blu+'0' ,blu+'0' 
  402. ?ncount equ     $
  403.         public  $randp          ; raw random generator
  404. $randp  dw      (?randp-$randp)/6,      0000
  405.         dw      rde+004h,whi+0adh,whi+'0'
  406.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  407.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  408.         dw      yel+003h,blu+'0' ,blu+'0'
  409. ?randp  equ     $
  410.         public  $nrand          ; raw random generator
  411. $nrand  dw      (?nrand-$nrand)/6,      0000
  412.         dw      rde+004h,whi+0c1h,whi+'0'
  413.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  414.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  415.         dw      yel+0fbh,blu+'0' ,blu+'0'
  416.         dw      yel+09bh,blu+'0' ,blu+'0'
  417.         dw      yel+'o' ,blu+'0' ,blu+'0'
  418.         dw      yel+'%' ,blu+'0' ,blu+'0'
  419. ?nrand  equ     $
  420.          public  $trand          ; rand tone row 0-11
  421. $trand  dw      (?trand-$trand)/6,        0000
  422.         dw      yel+03ah,whi+0ech,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  423.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  424.         dw      yel+'@' ,blu+'0' ,blu+'0' ,yel+'!' ,blu+'0' ,blu+'0' 
  425. ?trand  equ     $
  426.         public  $rand          ; random generator
  427. $rand   dw      (?rand-$rand)/6,        0000
  428.         dw      yel+03ah,whi+03fh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  429.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  430.         dw      yel+003h,blu+'0' ,blu+'0' 
  431.         dw      yel+0fbh,blu+'0' ,blu+'0'
  432.         dw      yel+015h,blu+'0' ,blu+'0' 
  433.         dw      yel+018h,blu+'0' ,blu+'0' 
  434.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  435. ?rand   equ     $
  436.         public  $rrand          ; raw random generator
  437. $rrand  dw      (?rrand-$rrand)/6,      0000
  438.         dw      yel+03ah,whi+0a8h,whi+'0'
  439.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  440.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  441.         dw      yel+003h,blu+'0' ,blu+'0' 
  442.         dw      yel+0fbh,blu+'0' ,blu+'0'
  443.         dw      yel+015h,blu+'0' ,blu+'0' 
  444.         dw      yel+0f1h,blu+'0' ,blu+'0' 
  445.         dw      yel+018h,blu+'0' ,blu+'0' 
  446. ?rrand  equ     $
  447.         public  $variz          ; rand tone row 0-11
  448. $variz  dw      (?variz-$variz)/6,        0000
  449.         dw      yel+03ah,whi+'i' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  450.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  451.         dw      yel+09bh,blu+'0' ,blu+'0'
  452.         dw      yel+018h,blu+'0' ,blu+'0' 
  453. ?variz  equ     $
  454.         public  $variy          ; rand tone row 0-11
  455. $variy  dw      (?variy-$variy)/6,        0000
  456.         dw      yel+03ah,whi+'j' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  457.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  458.         dw      yel+09bh,blu+'0' ,blu+'0'
  459.         dw      yel+018h,blu+'0' ,blu+'0' 
  460. ?variy  equ     $
  461.         public  $variv          ; rand tone row 0-11
  462. $variv  dw      (?variv-$variv)/6,        0000
  463.         dw      yel+03ah,whi+'k' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  464.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  465.         dw      yel+003h,blu+'0' ,blu+'0' 
  466.         dw      yel+0fbh,blu+'0' ,blu+'0'
  467.         dw      yel+018h,blu+'0' ,blu+'0' 
  468.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  469. ?variv  equ     $
  470.         public  $varix          ; rand tone row 0-11
  471. $varix  dw      (?varix-$varix)/6,        0000
  472.         dw      yel+03ah,whi+'l' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  473.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  474.         dw      yel+003h,blu+'0' ,blu+'0' 
  475.         dw      yel+0fbh,blu+'0' ,blu+'0'
  476.         dw      yel+0f1h,blu+'0' ,blu+'0' 
  477.         dw      yel+018h,blu+'0' ,blu+'0' 
  478.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  479. ?varix  equ     $
  480.         public  $sandh          ; saple and hold
  481. $sandh  dw      (?sandh-$sandh)/6,      0000
  482.         dw      yel+03ah,whi+015h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  483.         dw      yel+01bh,cyn+'0' ,cyn+'0'
  484.         dw      yel+'=' ,blu+'0' ,blu+'0' 
  485.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  486.         dw      yel+01ah,blu+'0' ,blu+'0' 
  487.         dw      yel+02bh,blu+'0' ,blu+'0' 
  488. ?sandh  equ     $
  489.         public  $andl           ; and logic
  490. $andl   dw      (?andl-$andl)/6,        0000
  491.         dw      yel+03ah,whi+'&' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  492.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+'&' ,blu+'0' ,blu+'0' 
  493.         dw      yel+'&' ,blu+'0' ,blu+'0' ,yel+'x' ,blu+'0' ,blu+'0' 
  494. ?andl   equ     $
  495.         public  $orl            ; or logic
  496. $orl    dw      (?orl-$orl)/6,          0000
  497.         dw      yel+03ah,whi+'|' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  498.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  499.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  500. ?orl    equ     $
  501.         public  $notl           ; not logic
  502. $notl   dw      (?notl-$notl)/6,        0000
  503.         dw      yel+03ah,whi+0edh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  504.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+0edh,blu+'0' ,blu+'0' 
  505.         dw      yel+'&' ,blu+'0' ,blu+'0' 
  506.  ?notl   equ     $
  507.         public  $delay          ; delay
  508. $delay  dw      (?delay-$delay)/6,      0000
  509.         dw      yel+03ah,whi+0D0h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  510.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  511.         dw      yel+09bh,blu+'0' ,blu+'0' ,yel+'+' ,blu+'0' ,blu+'0'
  512. ?delay  equ     $
  513.         public  $slope          ; slope detector
  514. $slope  dw      (?slope-$slope)/6,      0000
  515.         dw      rde+004h,whi+05ch,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  516.         dw      yel+03dh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  517. ?slope  equ     $
  518.         public  $twopwr          ; twopwr/offset
  519. $twopwr dw      (?twopwr-$twopwr)/6,    0000
  520.         dw      yel+03ah,whi+05eh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  521.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+05eh,blu+'0' ,blu+'0' 
  522. ?twopwr  equ     $
  523.         public  $scale          ; scale/offset
  524. $scale  dw      (?scale-$scale)/6,      0000
  525.         dw      yel+03ah,whi+025h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  526.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  527.         dw      yel+025h,blu+'0' ,blu+'0' ,yel+02bh,blu+'0' ,blu+'0' 
  528. ?scale  equ     $
  529.         public  $sumit          ; scaled sum of 4 inputs 
  530. $sumit  dw      (?sumit-$sumit)/6,      0000
  531.         dw      yel+03ah,whi+0e4h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  532.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  533.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  534.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  535.         dw      yel+025h,blu+'0' ,blu+'0' ,yel+02bh,blu+'0' ,blu+'0' 
  536. ?sumit  equ     $
  537.         public  $mixit          ; scaled sum of 4 inputs 
  538. $mixit  dw      (?mixit-$mixit)/6,      0000
  539.         dw      yel+03ah,whi+0eeh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  540.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  541.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+025h,blu+'0' ,blu+'0' 
  542.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+025h,blu+'0' ,blu+'0' 
  543.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+025h,blu+'0' ,blu+'0' 
  544.         dw      yel+02bh,blu+'0' ,blu+'0' 
  545. ?mixit  equ     $
  546.         public  $limit          ; limiter
  547. $limit  dw      (?limit-$limit)/6,      0000
  548.         dw      yel+03ah,whi+017h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  549.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  550.         dw      yel+018h,blu+'0' ,blu+'0' ,yel+019h,blu+'0' ,blu+'0' 
  551. ?limit  equ     $
  552.         public  $apprx          ; rand + scale + offsets
  553. $apprx  dw      (?apprx-$apprx)/6,      0000
  554.         dw      yel+03ah,whi+0F7h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  555.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  556.         dw      yel+018h,blu+'0' ,blu+'0' ,yel+019h,blu+'0' ,blu+'0' 
  557. ?apprx  equ     $
  558.         public  $delta          ; size of change
  559. $delta  dw      (?delta-$delta)/6,      0000
  560.         dw      yel+03ah,whi+07Fh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  561.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  562.         dw      yel+01ah,blu+'0' ,blu+'0'
  563. ?delta  equ     $
  564.         public  $cmak             ; chord generator
  565. $cmak   dw      (?cmak-$cmak)/6,         0000
  566.         dw      yel+03ah,whi+013h,whi+'0' 
  567.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  568.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  569.         dw      yel+014h,blu+'0' ,blu+'0' 
  570.         dw      yel+01ah,blu+'0' ,blu+'0' 
  571.         dw      yel+01ah,blu+'0' ,blu+'0' 
  572.         dw      yel+01ah,blu+'0' ,blu+'0' 
  573.         dw      yel+01ah,blu+'0' ,blu+'0' 
  574.         dw      yel+0a2h,blu+'0' ,blu+'0' 
  575.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  576.         dw      yel+01dh,blu+'0' ,blu+'0' 
  577.         dw      yel+09fh,blu+'0' ,blu+'0' 
  578.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  579. ?cmak   equ     $
  580.         public  $cgen             ; chord generator
  581. $cgen   dw      (?cgen-$cgen)/6,         0000
  582.         dw      yel+03ah,whi+'!' ,whi+'0' 
  583.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  584.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  585.         dw      yel+014h,blu+'0' ,blu+'0' 
  586.         dw      yel+01ah,blu+'0' ,blu+'0' 
  587.         dw      yel+0afh,blu+'0' ,blu+'0' 
  588.         dw      yel+0afh,blu+'0' ,blu+'0' 
  589.         dw      yel+0afh,blu+'0' ,blu+'0' 
  590.         dw      yel+0a2h,blu+'0' ,blu+'0' 
  591.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  592.         dw      yel+01dh,blu+'0' ,blu+'0' 
  593.         dw      yel+09fh,blu+'0' ,blu+'0' 
  594.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  595. ?cgen   equ     $
  596.         public  $cplay            ; chord play
  597. $cplay  dw      (?cplay-$cplay)/6,       0000
  598.         dw      yel+03ah,whi+080h,whi+'0' 
  599.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  600.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  601.         dw      yel+003h,blu+'0' ,blu+'0' 
  602.         dw      yel+014h,blu+'0' ,blu+'0' 
  603.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  604.         dw      yel+01dh,blu+'0' ,blu+'0' 
  605.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  606. ?cplay  equ     $
  607.         public  $cplai            ; chord play
  608. $cplai  dw      (?cplai-$cplai)/6,       0000
  609.         dw      yel+03ah,whi+087h,whi+'0' 
  610.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  611.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  612.         dw      yel+003h,blu+'0' ,blu+'0' 
  613.         dw      yel+014h,blu+'0' ,blu+'0' 
  614.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  615.         dw      yel+01dh,blu+'0' ,blu+'0' 
  616.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  617. ?cplai  equ     $
  618.         public  $cstor            ; chord store
  619. $cstor  dw      (?cstor-$cstor)/6,       0000
  620.         dw      yel+03ah,whi+'@' ,whi+'0' 
  621.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  622.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  623.         dw      yel+014h,blu+'0' ,blu+'0' 
  624.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  625.         dw      yel+01ah,blu+'0' ,blu+'0' 
  626.         dw      yel+0a2h,blu+'0' ,blu+'0' 
  627.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  628.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  629. ?cstor  equ     $
  630.         public  $sort             ; sort
  631. $sort   dw      (?sort-$sort)/6,         0000
  632.         dw      yel+03ah,whi+01dh,whi+'0' 
  633.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  634.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  635.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  636.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  637.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  638.         dw      yel+'c' ,blu+'0' ,blu+'0' 
  639.         dw      yel+'d' ,blu+'0' ,blu+'0' 
  640. ?sort   equ     $
  641.         public  $bassd            ; dithered bass
  642. $bassd  dw      (?bassd-$bassd)/6,         0000
  643.         dw      yel+03ah,whi+':' ,whi+'0' 
  644.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  645.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  646.         dw      yel+003h,blu+'0' ,blu+'0' 
  647.         dw      yel+0fbh,blu+'0' ,blu+'0' 
  648.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  649.         dw      yel+01ah,blu+'0' ,blu+'0' 
  650.         dw      yel+'#' ,blu+'0' ,blu+'0' 
  651.         dw      yel+0f1h,blu+'0' ,blu+'0' 
  652.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  653.         dw      yel+'-' ,blu+'0' ,blu+'0' 
  654. ?bassd  equ     $
  655.         public  $deltat            ; delta test
  656. $deltat dw      (?deltat-$deltat)/6,       0000
  657.         dw      rde+004h,whi+0a6h,whi+'0' 
  658.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  659.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  660.         dw      yel+0fbh,blu+'0' ,blu+'0' 
  661.         dw      yel+07fh,blu+'0' ,blu+'0' 
  662.         dw      yel+093h,blu+'0' ,blu+'0' 
  663.         dw      yel+01ah,blu+'0' ,blu+'0' 
  664. ?deltat equ     $
  665.         public  $mul12            ; * 12
  666. $mul12  dw      (?mul12-$mul12)/6,       0000
  667.         dw      yel+03ah,whi+0f8h,whi+'0' 
  668.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  669.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  670.         dw      yel+01ah,blu+'0' ,blu+'0' 
  671.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  672. ?mul12  equ     $
  673.         public  $div12            ; div 12
  674. $div12  dw      (?div12-$div12)/6,       0000
  675.         dw      yel+03ah,whi+0f6h,whi+'0' 
  676.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  677.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  678.         dw      yel+01ah,blu+'0' ,blu+'0' 
  679. ?div12  equ     $
  680.         public  $mod12            ; mod 12
  681. $mod12  dw      (?mod12-$mod12)/6,       0000
  682.         dw      yel+03ah,whi+0a2h,whi+'0' 
  683.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  684.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  685.         dw      yel+01ah,blu+'0' ,blu+'0' 
  686.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  687. ?mod12  equ     $
  688.         public  $fold            ; fold octave
  689. $fold   dw      (?fold-$fold)/6,       0000
  690.         dw      yel+03ah,whi+0f4h,whi+'0' 
  691.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  692.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  693.         dw      yel+01ah,blu+'0' ,blu+'0' 
  694.         dw      yel+093h,blu+'0' ,blu+'0' 
  695.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  696. ?fold   equ     $
  697.         public  $dither           ; dither
  698. $dither dw      (?dither-$dither)/6,        0000
  699.         dw      yel+03ah,whi+006h,whi+'0' 
  700.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  701.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  702.         dw      yel+003h,blu+'0' ,blu+'0' 
  703.         dw      yel+'%' ,blu+'0' ,blu+'0' 
  704.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  705.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  706.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  707. ?dither equ     $
  708.         public  $dithzr           ; dithzr
  709. $dithzr dw      (?dithzr-$dithzr)/6,        0000
  710.         dw      yel+03ah,whi+005h,whi+'0' 
  711.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  712.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  713.         dw      yel+003h,blu+'0' ,blu+'0' 
  714.         dw      yel+'%' ,blu+'0' ,blu+'0' 
  715.         dw      yel+01ah,blu+'0' ,blu+'0' 
  716.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  717. ?dithzr equ     $
  718.         public  $ddithr           ; dither
  719. $ddithr dw      (?ddithr-$ddithr)/6,        0000
  720.         dw      rde+004h,whi+004h,whi+'0' 
  721.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  722.         dw      yel+'=' ,cyn+'0' ,cyn+'0' 
  723.         dw      yel+003h,blu+'0' ,blu+'0' 
  724.         dw      yel+'%' ,blu+'0' ,blu+'0' 
  725. ?ddithr equ     $
  726.         public  $odds           ; dither
  727. $odds   dw      (?odds-$odds)/6,        0000
  728.         dw      yel+03ah,whi+0ach,whi+'0' 
  729.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  730.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  731.         dw      yel+003h,blu+'0' ,blu+'0' 
  732.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  733.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  734.         dw      yel+'c' ,blu+'0' ,blu+'0' 
  735.         dw      yel+'d' ,blu+'0' ,blu+'0' 
  736.         dw      yel+02bh,blu+'0' ,blu+'0' 
  737. ?odds equ     $
  738.         public  $oddz           ; dither
  739. $oddz   dw      (?oddz-$oddz)/6,        0000
  740.         dw      yel+03ah,whi+084h,whi+'0' 
  741.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  742.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  743.         dw      yel+003h,blu+'0' ,blu+'0' 
  744. ?oddz equ     $
  745.         public  $ratio          ; dither
  746. $ratio  dw      (?ratio-$ratio)/6,    0000
  747.         dw      yel+03ah,whi+08fh,whi+'0' 
  748.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  749.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  750.         dw      yel+003h,blu+'0' ,blu+'0' 
  751.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  752.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  753.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  754.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  755. ?ratio equ     $
  756.         public  $ratiz          ; dither
  757. $ratiz  dw      (?ratiz-$ratiz)/6,    0000
  758.         dw      yel+03ah,whi+08eh,whi+'0' 
  759.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  760.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  761.         dw      yel+003h,blu+'0' ,blu+'0' 
  762.         dw      yel+'%' ,blu+'0' ,blu+'0' 
  763.         dw      yel+'%' ,blu+'0' ,blu+'0' 
  764.         dw      yel+'%' ,blu+'0' ,blu+'0' 
  765.         dw      yel+'%' ,blu+'0' ,blu+'0' 
  766. ?ratiz equ     $
  767.         public  $filter         ; size of change
  768. $filter dw      (?filter-$filter)/6,    0000
  769.         dw      yel+03ah,whi+09Fh,whi+'0' 
  770.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  771.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  772.         dw      yel+003h,blu+'0' ,blu+'0' 
  773.         dw      yel+01ah,blu+'0' ,blu+'0' 
  774.         dw      yel+09fh,blu+'0' ,blu+'0' 
  775.         dw      yel+02bh,blu+'0' ,blu+'0' 
  776. ?filter equ     $
  777.         public  $fflop          ; flip flop
  778. $fflop  dw      (?fflop-$fflop)/6,      0000
  779.         dw      rde+004h,whi+0e9h,whi+'0' 
  780.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  781.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  782.         dw      yel+073h,blu+'0' ,blu+'0' 
  783.         dw      yel+072h,blu+'0' ,blu+'0' 
  784. ?fflop equ     $
  785.         public  $union          ; time union
  786. $union  dw      (?union-$union)/6,      0000
  787.         dw      rde+004h,whi+0efh,whi+'0' 
  788.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  789.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  790.         dw      yel+'t' ,blu+'0' ,blu+'0' 
  791.         dw      yel+'s' ,blu+'0' ,blu+'0' 
  792. ?union equ     $
  793.         public  $passt          ; pass thru
  794. $passt  dw      (?passt-$passt)/6,      0000
  795.         dw      yel+03ah,whi+0d6h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  796.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  797.         dw      yel+0abh,blu+'0' ,blu+'0' 
  798.         dw      yel+'1' ,blu+'0' ,blu+'0' 
  799.         dw      yel+'2' ,blu+'0' ,blu+'0' 
  800. ?passt equ     $
  801.         public  $passq          ; pass thru
  802. $passq  dw      (?passq-$passq)/6,      0000
  803.         dw      yel+03ah,whi+0b7h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  804.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  805.         dw      yel+0abh,blu+'0' ,blu+'0' 
  806.         dw      yel+'1' ,blu+'0' ,blu+'0' 
  807.         dw      yel+'2' ,blu+'0' ,blu+'0' 
  808.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  809. ?passq equ     $
  810.         public  $rangep         ; bounds check
  811. $rangep dw      (?rangep-$rangep)/6,    0000
  812.         dw      rde+004h,whi+0cah,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  813.         dw      yel+03dh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  814.         dw      yel+018h,blu+'0' ,blu+'0' ,yel+019h,blu+'0' ,blu+'0' 
  815. ?rangep equ     $
  816.         public  $quant          ; quantize
  817. $quant  dw      (?quant-$quant)/6,        0000
  818.         dw      yel+03ah,whi+0fch,whi+'0' 
  819.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  820.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  821.         dw      yel+01ah,blu+'0' ,blu+'0' 
  822.         dw      yel+0f6h,blu+'0' ,blu+'0' 
  823.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  824.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  825.         dw      yel+'c' ,blu+'0' ,blu+'0' 
  826.         dw      yel+'d' ,blu+'0' ,blu+'0' 
  827.         dw      yel+'e' ,blu+'0' ,blu+'0' 
  828.         dw      yel+'f' ,blu+'0' ,blu+'0' 
  829.         dw      yel+'g' ,blu+'0' ,blu+'0' 
  830.         dw      yel+'h' ,blu+'0' ,blu+'0' 
  831. ?quant  equ     $
  832.         public  $lastv         ; last change
  833. $lastv dw      (?lastv-$lastv)/6,        0000
  834.         dw      yel+03ah,whi+00ch,whi+'0' 
  835.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  836.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  837.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  838.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  839.         dw      yel+'c' ,blu+'0' ,blu+'0' 
  840.         dw      yel+'d' ,blu+'0' ,blu+'0' 
  841.         dw      yel+'e' ,blu+'0' ,blu+'0' 
  842.         dw      yel+'f' ,blu+'0' ,blu+'0' 
  843.         dw      yel+'g' ,blu+'0' ,blu+'0' 
  844.         dw      yel+'h' ,blu+'0' ,blu+'0' 
  845. ?lastv equ     $
  846.         public  $xcall          ; external call
  847. $xcall  dw      (?xcall-$xcall)/6,        0000
  848.         dw      yel+03ah,whi+08ah,whi+'0' 
  849.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  850.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  851.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  852.         dw      yel+08aH,blu+'0' ,blu+'0' 
  853.         dw      yel+'A' ,blu+'0' ,blu+'0' 
  854.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  855.         dw      yel+'B' ,blu+'0' ,blu+'0' 
  856.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  857.         dw      yel+'C' ,blu+'0' ,blu+'0' 
  858.         dw      yel+'c' ,blu+'0' ,blu+'0' 
  859.         dw      yel+'D' ,blu+'0' ,blu+'0' 
  860.         dw      yel+'d' ,blu+'0' ,blu+'0' 
  861. ?xcall  equ     $
  862.         public  $rcall          ; get registers
  863. $rcall  dw      (?rcall-$rcall)/6,        0000
  864.         dw      yel+03ah,whi+088h,whi+'0' 
  865.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  866.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  867.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  868.         dw      yel+'r' ,blu+'0' ,blu+'0' 
  869. ?rcall  equ     $
  870.         public  $tstmob           ; test midi out buffer
  871. $tstmob dw      (?tstmob-$tstmob)/6,        0000
  872.         dw      rde+004h,whi+0f9h,whi+'$' 
  873.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  874.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  875. ?tstmob equ     $
  876.         public  $xmidii           ; get midi input
  877. $xmidii dw      (?xmidii-$xmidii)/6,        0000
  878.         dw      yel+03ah,whi+01ah,whi+'$' 
  879.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  880.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  881.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  882.         dw      yel+0eah,blu+'0' ,blu+'0' 
  883. ?xmidii equ     $
  884.         public  $mpuins           ; mpu input status
  885. $mpuins dw      (?mpuins-$mpuins)/6,        0000
  886.         dw      rde+004h,whi+0abh,whi+'$' 
  887.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  888.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  889.         dw      yel+0fbh,blu+'0' ,blu+'0'
  890.         dw      yel+'&' ,blu+'0' ,blu+'3'
  891. ?mpuins equ     $
  892.         public  $xkbd           ; get keyboard input
  893. $xkbd   dw      (?xkbd-$xkbd)/6,        0000
  894.         dw      yel+03ah,whi+0fbh,whi+'$' 
  895.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  896.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  897.         dw      yel+0fbh,blu+'0' ,blu+'0' 
  898. ?xkbd   equ     $
  899.          public  $poke          ; byte write
  900. $poke   dw      (?poke-$poke)/6,        0000
  901.         dw      yel+03ah,whi+07bh,whi+'0' 
  902.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  903.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  904.         dw      yel+01ah,blu+'0' ,blu+'0' 
  905.         dw      yel+'$' ,blu+'0' ,blu+'0' 
  906.         dw      yel+014h,blu+'0' ,blu+'0' 
  907.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  908. ?poke   equ     $
  909.         public  $peek          ; byte read
  910. $peek   dw      (?peek-$peek)/6,        0000
  911.         dw      yel+03ah,whi+07dh,whi+'0' 
  912.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  913.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  914.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  915.         dw      yel+'$' ,blu+'0' ,blu+'0' 
  916.         dw      yel+014h,blu+'0' ,blu+'0' 
  917.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  918. ?peek   equ     $
  919.         public  $outpb          ; byte output  
  920. $outpb  dw      (?outpb-$outpb)/6,        0000
  921.         dw      yel+03ah,whi+095h,whi+'0' 
  922.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  923.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  924.         dw      yel+01ah,blu+'0' ,blu+'0' 
  925.         dw      yel+'P' ,blu+'0' ,blu+'0' 
  926.         dw      yel+'p' ,blu+'0' ,blu+'0' 
  927. ?outpb  equ     $
  928.         public  $inptb          ; byte input  
  929. $inptb  dw      (?inptb-$inptb)/6,        0000
  930.         dw      yel+03ah,whi+08dh,whi+'0' 
  931.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  932.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  933.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  934.         dw      yel+'P' ,blu+'0' ,blu+'0' 
  935.         dw      yel+'p' ,blu+'0' ,blu+'0' 
  936. ?inptb  equ     $
  937.         public  $emeter         ; indicator meter
  938. $emeter dw      (?emeter-$emeter)/6,        0000
  939.         dw      yel+03ah,whi+096h,whi+'0' 
  940.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  941.         dw      yel+'l' ,blu+'0' ,blu+'0' 
  942.         dw      yel+'r' ,blu+'0' ,blu+'0' 
  943.         dw      yel+'*' ,blu+'0' ,blu+'0' 
  944.         dw      yel+0f9h,rde+'8' ,rde+'8'
  945.         dw      yel+0f9h,yel+'7' ,yel+'7'
  946.         dw      yel+0f9h,yel+'6' ,yel+'6'
  947.         dw      yel+0f9h,yel+'5' ,yel+'5'
  948.         dw      yel+0f9h,yel+'4' ,yel+'4'
  949.         dw      yel+0f9h,yel+'3' ,yel+'3'
  950.         dw      yel+0f9h,yel+'2' ,yel+'2'
  951.         dw      yel+0f9h,yel+'1' ,yel+'1'
  952. ?emeter equ     $
  953.         public  $imeter         ; indicator meter
  954. $imeter dw      (?imeter-$imeter)/6,        0000
  955.         dw      yel+03ah,whi+097h,whi+'0' 
  956.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  957.         dw      yel+'l' ,blu+'0' ,blu+'0' 
  958.         dw      yel+'r' ,blu+'0' ,blu+'0' 
  959.         dw      yel+'%' ,blu+'0' ,blu+'0' 
  960.         dw      yel+0f9h,rde+'8' ,rde+'8'
  961.         dw      yel+0f9h,yel+'7' ,yel+'7'
  962.         dw      yel+0f9h,yel+'6' ,yel+'6'
  963.         dw      yel+0f9h,yel+'5' ,yel+'5'
  964.         dw      yel+0f9h,yel+'4' ,yel+'4'
  965.         dw      yel+0f9h,yel+'3' ,yel+'3'
  966.         dw      yel+0f9h,yel+'2' ,yel+'2'
  967.         dw      yel+0f9h,yel+'1' ,yel+'1'
  968. ?imeter equ     $
  969.         public  $higher         ; latch highest input
  970. $higher dw      (?higher-$higher)/6,    0000
  971.         dw      yel+03ah,whi+01eh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  972.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  973.         dw      yel+0fbh,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  974. ?higher equ     $
  975.         public  $lower          ; latch lowest input
  976. $lower  dw      (?lower-$lower)/6,      0000
  977.         dw      yel+03ah,whi+01fh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  978.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  979.         dw      yel+0fbh,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  980. ?lower  equ     $
  981.         public  $maxf           ; latch highest input
  982. $maxf   dw      (?maxf-$maxf)/6,        0000
  983.         dw      yel+03ah,whi+018h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  984.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  985.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  986. ?maxf   equ     $
  987.         public  $minf           ; latch lowest input
  988. $minf   dw      (?minf-$minf)/6,        0000
  989.         dw      yel+03ah,whi+019h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  990.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  991.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  992. ?minf   equ     $
  993.         public  $rshift         ; right shift
  994. $rshift dw      (?rshift-$rshift)/6,    0000
  995.         dw      yel+03ah,whi+0AFh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  996.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  997.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+0AFh,blu+'0' ,blu+'0' 
  998.         dw      yel+'&' ,blu+'0' ,blu+'0'
  999. ?rshift equ     $
  1000.         public  $lshift         ; left shift
  1001. $lshift dw      (?lshift-$lshift)/6,    0000
  1002.         dw      yel+03ah,whi+0AEh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1003.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1004.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+0AEh,blu+'0' ,blu+'0' 
  1005.         dw      yel+'&' ,blu+'0' ,blu+'0'
  1006. ?lshift equ     $
  1007.         public  $times          ; multiply & divide
  1008. $times  dw      (?times-$times)/6,      0000
  1009.         dw      yel+03ah,whi+'*' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1010.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1011.         dw      yel+'*' ,blu+'0' ,blu+'0' 
  1012.         dw      yel+'*' ,blu+'0' ,blu+'0' 
  1013.         dw      yel+0f6h,blu+'0' ,blu+'0' 
  1014. ?times  equ     $
  1015.         public  $stopo          ; sync interface
  1016. $stopo  dw      (?stopo-$stopo)/6,      0000
  1017.         dw      rde+004h,whi+09dh,whi+'$'
  1018.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1019.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1020.         dw      yel+'S' ,blu+'0' ,blu+'0'
  1021.         dw      yel+'G' ,blu+'0' ,blu+'0'
  1022.         dw      yel+'C' ,blu+'0' ,blu+'0'
  1023.         dw      yel+'R' ,blu+'0' ,blu+'0'
  1024.         dw      yel+'T' ,blu+'0' ,blu+'0'
  1025.         dw      yel+'!' ,blu+'0' ,blu+'0'
  1026. ?stopo  equ     $
  1027.         public  $modulo          ; divide
  1028. $modulo dw      (?modulo-$modulo)/6,      0000
  1029.         dw      yel+03ah,whi+'/' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1030.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1031.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1032.         dw      yel+'/' ,blu+'0' ,blu+'0' 
  1033. ?modulo equ     $
  1034.         public  $plus           ; add
  1035. $plus   dw      (?plus-$plus)/6,        0000
  1036.         dw      yel+03ah,whi+'+' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1037.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1038.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  1039.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  1040.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  1041. ?plus   equ     $
  1042.         public  $plusm           ; add, subtract
  1043. $plusm  dw      (?plusm-$plusm)/6,      0000
  1044.         dw      yel+03ah,whi+0f1h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1045.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1046.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  1047.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  1048.         dw      yel+'-' ,blu+'0' ,blu+'0' 
  1049. ?plusm  equ     $
  1050.         public  $plusn           ; add, subtract
  1051. $plusn  dw      (?plusn-$plusn)/6,      0000
  1052.         dw      yel+03ah,whi+'-' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1053.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1054.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  1055.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  1056.         dw      yel+'-' ,blu+'0' ,blu+'0' 
  1057. ?plusn  equ     $
  1058.         public  $change          ; true if change
  1059. $change dw      (?change-$change)/6,    0000
  1060.         dw      rde+004h,whi+00bh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1061.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1062.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1063. ?change equ     $
  1064.         public  $equal          ; true if equal
  1065. $equal  dw      (?equal-$equal)/6,      0000
  1066.         dw      rde+004h,whi+03dh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1067.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1068.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  1069. ?equal  equ     $
  1070.         public  $nequal          ; true if nequal
  1071. $nequal dw      (?nequal-$nequal)/6,    0000
  1072.         dw      rde+004h,whi+0A7h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1073.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1074.         dw      yel+01ah,blu+'0' ,blu+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  1075. ?nequal  equ     $
  1076.         public  $great          ; true if greater
  1077. $great  dw      (?great-$great)/6,      0000
  1078.         dw      rde+004h,whi+03eh,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1079.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1080.         dw      yel+061h,blu+'0' ,blu+'0' ,yel+062h,blu+'0' ,blu+'0' 
  1081. ?great  equ     $
  1082.         public  $lessp          ; true if less
  1083. $lessp  dw      (?lessp-$lessp)/6,      0000
  1084.         dw      rde+004h,whi+03ch,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1085.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1086.         dw      yel+061h,blu+'0' ,blu+'0' ,yel+062h,blu+'0' ,blu+'0' 
  1087. ?lessp  equ     $
  1088.         public  $bitsp          ; true if mask bit nz
  1089. $bitsp  dw      (?bitsp-$bitsp)/6,      0000
  1090.         dw      rde+004h,whi+0c2h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1091.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1092.         dw      yel+01dh,blu+'0' ,blu+'0' 
  1093.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1094. ?bitsp  equ     $
  1095.         public  $bitsq          ; true if mask bit nz
  1096. $bitsq  dw      (?bitsq-$bitsq)/6,      0000
  1097.         dw      rde+004h,whi+0d1h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1098.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1099.         dw      yel+'&' ,blu+'0' ,blu+'0' ,yel+'&' ,blu+'0' ,blu+'0' 
  1100.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1101. ?bitsq  equ     $
  1102.         public  $maskl          ; AND mask
  1103. $maskl  dw      (?maskl-$maskl)/6,        0000
  1104.         dw      yel+03ah,whi+0a9h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1105.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1106.         dw      yel+'&' ,blu+'0' ,blu+'0' ,yel+'&' ,blu+'0' ,blu+'0' 
  1107.         dw      yel+0AEh,blu+'0' ,blu+'0' 
  1108. ?maskl  equ     $
  1109.         public  $maskr          ; AND mask
  1110. $maskr  dw      (?maskr-$maskr)/6,        0000
  1111.         dw      yel+03ah,whi+0aah,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1112.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1113.         dw      yel+'&' ,blu+'0' ,blu+'0' ,yel+'&' ,blu+'0' ,blu+'0' 
  1114.         dw      yel+0AFh,blu+'0' ,blu+'0' 
  1115. ?maskr  equ     $
  1116.         public  $mask           ; AND mask
  1117. $mask   dw      (?mask-$mask)/6,        0000
  1118.         dw      yel+03ah,whi+091h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1119.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1120.         dw      yel+'&' ,blu+'0' ,blu+'0' ,yel+'&' ,blu+'0' ,blu+'0' 
  1121.         dw      yel+'+' ,blu+'0' ,blu+'0' 
  1122. ?mask   equ     $
  1123.         public  $truep          ; true if zero
  1124. $truep  dw      (?truep-$truep)/6,      0000
  1125.         dw      rde+004h,whi+022h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1126.         dw      yel+03dh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  1127. ?truep  equ     $
  1128.         public  $zerop          ; true if zero
  1129. $zerop  dw      (?zerop-$zerop)/6,      0000
  1130.         dw      rde+004h,whi+007h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1131.         dw      yel+03dh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  1132. ?zerop  equ     $
  1133.          public  $minusp          ; true if minus
  1134. $minusp dw      (?minusp-$minusp)/6,    0000
  1135.         dw      rde+004h,whi+0a4h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1136.         dw      yel+03dh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  1137. ?minusp  equ     $
  1138.         public  $asciz          ; asciz readout
  1139. $asciz  dw      (?asciz-$asciz)/6,    0000
  1140.         dw      yel+03ah,whi+086h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1141.         dw      yel+' ' ,yel+' ' ,yel+' ' 
  1142.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  1143.         dw      yel+014h,blu+'0' ,blu+'0' 
  1144.         dw      yel+012h,blu+'0' ,blu+'0' 
  1145. ?asciz equ     $
  1146.         public  $ascis          ; ascis readout
  1147. $ascis  dw      (?ascis-$ascis)/6,    0000
  1148.         dw      yel+03ah,whi+083h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1149.         dw      yel+' ' ,yel+' ' ,yel+' ' 
  1150.         dw      yel+'@' ,blu+'0' ,blu+'0' 
  1151.         dw      yel+014h,blu+'0' ,blu+'0' 
  1152.         dw      yel+012h,blu+'0' ,blu+'0' 
  1153. ?ascis equ     $
  1154.         public  $ascii          ; ascii readout
  1155. $ascii  dw      (?ascii-$ascii)/6,    0000
  1156.         dw      yel+03ah,whi+0a0h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1157.         dw      yel+' ' ,yel+' ' ,yel+' ' 
  1158.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1159.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1160.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1161. ?ascii equ     $
  1162.         public  $decin          ; deciaml readout
  1163. $decin  dw      (?decin-$decin)/6,    0000
  1164.         dw      yel+03ah,whi+001h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1165.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1166.         dw      yel+'0' ,yel+'0' ,yel+'0' 
  1167.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1168. ?decin equ     $
  1169.         public  $decim          ; deciaml readout
  1170. $decim  dw      (?decim-$decim)/6,    0000
  1171.         dw      yel+03ah,whi+'.' ,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1172.         dw      yel+'0' ,yel+'0' ,yel+'0' 
  1173.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1174. ?decim equ     $
  1175.         public  $noter          ; deciaml readout
  1176. $noter  dw      (?noter-$noter)/6,    0000
  1177.         dw      yel+03ah,whi+0d5h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1178.         dw      yel+'0' ,yel+'0' ,yel+'0' 
  1179.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1180. ?noter equ     $
  1181.         public  $negate           ; negate
  1182. $negate dw      (?negate-$negate)/6,    0000
  1183.         dw      yel+03ah,whi+0A5h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1184.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  1185. ?negate  equ     $
  1186.         public  $value          ; numerical value
  1187. $value  dw      (?value-$value)/6,      0000
  1188.         dw      yel+03ah,whi+023h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1189.         dw      yel+01bh,cyn+'0' ,cyn+'0' ,yel+01ah,blu+'0' ,blu+'0' 
  1190. ?value  equ     $
  1191.         public  $pusha          ; on/off pushbutton
  1192. $pusha  dw      (?pusha-$pusha)/6,      0000
  1193.         dw      rde+004h,whi+0e3h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1194.         dw      yel+03dh,cyn+'0' ,cyn+'0' ,yel+009h,mag+0b0h,mag+0b0h
  1195. ?pusha  equ     $
  1196.         public  $pushb          ; oneshot pushbutton
  1197. $pushb  dw      (?pushb-$pushb)/6,      0000
  1198.         dw      rde+004h,whi+009h,whi+'0' ,yel+0f9h,gry+'0' ,gry+'0' 
  1199.         dw      yel+03dh,cyn+'0' ,cyn+'0' ,yel+009h,mag+0b0h,mag+0b0h
  1200. ?pushb  equ     $
  1201.         public  $pushc          ; inc/dec pushbutton
  1202. $pushc  dw      (?pushc-$pushc)/6,      0000
  1203.         dw      yel+03ah,whi+012h,whi+'0' 
  1204.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1205.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1206.         dw      yel+'#' ,mag+'0' ,mag+'0' 
  1207.         dw      yel+009h,mag+01eh,mag+01fh
  1208. ?pushc  equ     $
  1209.         public  $ltimer          ; loop timer
  1210. $ltimer dw      (?ltimer-$ltimer)/6,    0000
  1211.         dw      rde+004h,whi+0d9h,whi+'0'
  1212.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1213.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1214.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  1215.         dw      yel+'d' ,blu+'0' ,blu+'0' 
  1216.         dw      yel+'h' ,blu+'0' ,blu+'0' 
  1217. ?ltimer equ     $
  1218.         public  $ctimer          ; clock timer
  1219. $ctimer dw      (?ctimer-$ctimer)/6,    0000
  1220.         dw      rde+004h,whi+0beh,whi+'0'
  1221.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1222.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1223.         dw      yel+003h,blu+'0' ,blu+'0' 
  1224.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  1225.         dw      yel+'d' ,blu+'0' ,blu+'0' 
  1226.         dw      yel+'h' ,blu+'0' ,blu+'0' 
  1227. ?ctimer equ     $
  1228.         public  $atimer          ; abs timer
  1229. $atimer dw      (?atimer-$atimer)/6,    0000
  1230.         dw      rde+004h,whi+0bch,whi+'0'
  1231.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1232.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1233.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  1234.         dw      yel+'d' ,blu+'0' ,blu+'0' 
  1235.         dw      yel+'h' ,blu+'0' ,blu+'0' 
  1236.         dw      yel+0afh,blu+'0' ,blu+'0' 
  1237. ?atimer equ     $
  1238.         public  $stimer          ; sec timer
  1239. $stimer dw      (?stimer-$stimer)/6,    0000
  1240.         dw      rde+004h,whi+0bdh,whi+'0'
  1241.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1242.         dw      yel+03dh,cyn+'0' ,cyn+'0' 
  1243.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  1244.         dw      yel+'d' ,blu+'0' ,blu+'0' 
  1245.         dw      yel+'h' ,blu+'0' ,blu+'0' 
  1246.         dw      yel+0afh,blu+'0' ,blu+'0' 
  1247. ?stimer equ     $
  1248.         public  $slew           ; slew value over time
  1249. $slew   dw      (?slew-$slew )/6,       0000
  1250.         dw      yel+03ah,whi+0e5h,whi+'0' 
  1251.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1252.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1253.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  1254.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  1255.         dw      yel+'r' ,blu+'0' ,blu+'0' 
  1256. ?slew   equ     $
  1257.         public  $xslew          ; xslew value over time
  1258. $xslew  dw      (?xslew-$xslew )/6,       0000
  1259.         dw      yel+03ah,whi+0ebh,whi+'0' 
  1260.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1261.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1262.         dw      yel+'a' ,blu+'0' ,blu+'0' 
  1263.         dw      yel+'b' ,blu+'0' ,blu+'0' 
  1264.         dw      yel+'t' ,blu+'0' ,blu+'0' 
  1265. ?xslew  equ     $
  1266.         public  $mapo          ; midi control mapping
  1267. $mapo   dw      (?mapo-$mapo)/6,      0000
  1268.         dw      yel+03ah,whi+094h,whi+'$' 
  1269.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1270.         dw      yel+'V' ,mag+'0' ,mag+'0' 
  1271.         dw      yel+'M' ,mag+'0' ,mag+'0' 
  1272.         dw      yel+'A' ,mag+'0' ,mag+'0' 
  1273.         dw      yel+'B' ,mag+'0' ,mag+'0' 
  1274.         dw      yel+'C' ,mag+'0' ,mag+'0' 
  1275.         dw      yel+'D' ,mag+'0' ,mag+'0' 
  1276.         dw      yel+'1' ,mag+'0' ,mag+'0' 
  1277.         dw      yel+'2' ,mag+'0' ,mag+'0' 
  1278. ?mapo   equ     $
  1279.         public  $mapp          ; midi control mapping
  1280. $mapp   dw      (?mapp-$mapp)/6,      0000
  1281.         dw      yel+03ah,whi+081h,whi+'$' 
  1282.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1283.         dw      yel+'V' ,mag+'0' ,mag+'0' 
  1284.         dw      yel+'M' ,mag+'0' ,mag+'0' 
  1285.         dw      yel+'A' ,mag+'0' ,mag+'0' 
  1286.         dw      yel+'B' ,mag+'0' ,mag+'0' 
  1287.         dw      yel+'C' ,mag+'0' ,mag+'0' 
  1288.         dw      yel+'D' ,mag+'0' ,mag+'0' 
  1289.         dw      yel+'1' ,mag+'0' ,mag+'0' 
  1290.         dw      yel+'2' ,mag+'0' ,mag+'0' 
  1291. ?mapp   equ     $
  1292.         public  $sxget          ; midi sys excl get
  1293. $sxget  dw      (?sxget-$sxget)/6,      0000
  1294.         dw      yel+03ah,whi+010h,whi+'0' 
  1295.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1296.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1297.         dw      yel+'@' ,blu+'0' ,blu+'0'
  1298.         dw      yel+014h,blu+'0' ,blu+'0' 
  1299.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  1300.         dw      yel+0afh,blu+'0' ,blu+'0' 
  1301. ?sxget  equ     $
  1302.         public  $sxput          ; midi sys excl send
  1303. $sxput  dw      (?sxput-$sxput)/6,      0000
  1304.         dw      yel+03ah,whi+011h,whi+'0' 
  1305.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1306.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1307.         dw      yel+'@' ,blu+'0' ,blu+'0'
  1308.         dw      yel+014h,blu+'0' ,blu+'0' 
  1309.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  1310.         dw      yel+0afh,blu+'0' ,blu+'0' 
  1311. ?sxput  equ     $
  1312.         public  $addswa         ; prog switch out
  1313. $addswa dw      (?addswa-$addswa)/6,    0000
  1314.         dw      yel+03ah,whi+0f0h,whi+'0' 
  1315.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1316.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1317.         dw      yel+0f0h,blu+'0' ,blu+'0'
  1318.         dw      yel+'0' ,blu+'0' ,blu+'0'
  1319.         dw      yel+'1' ,blu+'0' ,blu+'0'
  1320.         dw      yel+'2' ,blu+'0' ,blu+'0'
  1321.         dw      yel+'3' ,blu+'0' ,blu+'0'
  1322.         dw      yel+'4' ,blu+'0' ,blu+'0'
  1323.         dw      yel+'5' ,blu+'0' ,blu+'0'
  1324.         dw      yel+'6' ,blu+'0' ,blu+'0'
  1325.         dw      yel+'7' ,blu+'0' ,blu+'0'
  1326. ?addswa equ     $
  1327.         public  $psouta         ; prog switch out
  1328. $psouta dw      (?psouta-$psouta)/6,    0000
  1329.         dw      yel+03ah,whi+'a' ,whi+'0' 
  1330.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1331.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1332.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1333.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1334.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1335.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1336.         dw      yel+0a9h,blu+'0' ,blu+'0'
  1337. ?psouta equ     $
  1338.         public  $psoutb         ; prog switch out
  1339. $psoutb dw      (?psoutb-$psoutb)/6,    0000
  1340.         dw      yel+03ah,whi+'b' ,whi+'0' 
  1341.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1342.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1343.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1344.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1345.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1346.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1347.         dw      yel+0aah,blu+'0' ,blu+'0'
  1348. ?psoutb equ     $
  1349.         public  $psoutc         ; prog switch out
  1350. $psoutc dw      (?psoutc-$psoutc)/6,    0000
  1351.         dw      yel+03ah,whi+'c' ,whi+'0' 
  1352.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1353.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1354.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1355.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1356.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1357.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1358.         dw      yel+0a9h,blu+'0' ,blu+'0'
  1359. ?psoutc equ     $
  1360.         public  $psoutd         ; prog switch out
  1361. $psoutd dw      (?psoutd-$psoutd)/6,    0000
  1362.         dw      yel+03ah,whi+'d' ,whi+'0' 
  1363.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1364.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1365.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1366.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1367.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1368.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1369.         dw      yel+0aah,blu+'0' ,blu+'0'
  1370. ?psoutd equ     $
  1371.         public  $psoute         ; prog switch out
  1372. $psoute dw      (?psoute-$psoute)/6,    0000
  1373.         dw      yel+03ah,whi+'e' ,whi+'0' 
  1374.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1375.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1376.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1377.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1378.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1379.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1380.         dw      yel+0a9h,blu+'0' ,blu+'0'
  1381.         dw      yel+0afh,blu+'0' ,blu+'0'
  1382. ?psoute equ     $
  1383.         public  $psoutf         ; prog switch out
  1384. $psoutf dw      (?psoutf-$psoutf)/6,    0000
  1385.         dw      yel+03ah,whi+'f' ,whi+'0' 
  1386.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1387.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1388.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1389.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1390.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1391.         dw      yel+'+' ,blu+'0' ,blu+'0'
  1392.         dw      yel+0a9h,blu+'0' ,blu+'0'
  1393.         dw      yel+0afh,blu+'0' ,blu+'0'
  1394. ?psoutf equ     $
  1395.         public  $pcouta         ; prog control out
  1396. $pcouta dw      (?pcouta-$pcouta)/6,    0000
  1397.         dw      mag+0f9h,whi+'A' ,whi+'0' 
  1398.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1399.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1400. ?pcouta equ     $
  1401.         public  $pcoutb         ; prog control out
  1402. $pcoutb dw      (?pcoutb-$pcoutb)/6,    0000
  1403.         dw      mag+0f9h,whi+'B' ,whi+'0' 
  1404.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1405.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1406. ?pcoutb equ     $
  1407.         public  $pcoutc         ; prog control out
  1408. $pcoutc dw      (?pcoutc-$pcoutc)/6,    0000
  1409.         dw      mag+0f9h,whi+'C' ,whi+'0' 
  1410.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1411.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1412. ?pcoutc equ     $
  1413.         public  $pcoutd         ; prog control out
  1414. $pcoutd dw      (?pcoutd-$pcoutd)/6,    0000
  1415.         dw      mag+0f9h,whi+'D' ,whi+'0' 
  1416.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1417.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1418. ?pcoutd equ     $
  1419.         public  $pcoute         ; prog control out
  1420. $pcoute dw      (?pcoute-$pcoute)/6,    0000
  1421.         dw      mag+0f9h,whi+'E' ,whi+'0' 
  1422.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1423.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1424. ?pcoute equ     $
  1425.         public  $pcoutf         ; prog control out
  1426. $pcoutf dw      (?pcoutf-$pcoutf)/6,    0000
  1427.         dw      mag+0f9h,whi+'F' ,whi+'0' 
  1428.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1429.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1430. ?pcoutf equ     $
  1431.         public  $pcoutg         ; prog control out
  1432. $pcoutg dw      (?pcoutg-$pcoutg)/6,    0000
  1433.         dw      mag+0f9h,whi+'G' ,whi+'0' 
  1434.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1435.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1436. ?pcoutg equ     $
  1437.         public  $pcouth         ; prog control out
  1438. $pcouth dw      (?pcouth-$pcouth)/6,    0000
  1439.         dw      mag+0f9h,whi+'H' ,whi+'0' 
  1440.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1441.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1442. ?pcouth equ     $
  1443.         public  $pcoutx         ; prog control out
  1444. $pcoutx dw      (?pcoutx-$pcoutx)/6,    0000
  1445.         dw      mag+0f9h,whi+'X' ,whi+'0' 
  1446.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1447.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1448. ?pcoutx equ     $
  1449.         public  $pcouty         ; prog control out
  1450. $pcouty dw      (?pcouty-$pcouty)/6,    0000
  1451.         dw      mag+0f9h,whi+'Y' ,whi+'0' 
  1452.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1453.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1454. ?pcouty equ     $
  1455.         public  $pcoutz         ; prog control out
  1456. $pcoutz dw      (?pcoutz-$pcoutz)/6,    0000
  1457.         dw      mag+0f9h,whi+'Z' ,whi+'0' 
  1458.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1459.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1460. ?pcoutz equ     $
  1461.         public  $progo          ; midi program change
  1462. $progo  dw      (?progo-$progo)/6,      0000
  1463.         dw      yel+03ah,whi+0eah,whi+'0' 
  1464.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1465.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1466.         dw      yel+'@' ,mag+'0' ,mag+'0' 
  1467.         dw      yel+088h,mag+'0' ,mag+'0' 
  1468.         dw      yel+'U' ,mag+'#' ,mag+'#'
  1469.         dw      yel+013h,mag+'#' ,mag+'#'
  1470.         dw      yel+'R' ,mag+'#' ,mag+'#'
  1471.         dw      yel+'S' ,mag+'#' ,mag+'#'
  1472.         dw      yel+'|' ,mag+'0' ,mag+'0' 
  1473.         dw      yel+'X' ,mag+'0' ,mag+'0' 
  1474.         dw      yel+'Y' ,mag+'0' ,mag+'0' 
  1475.         dw      yel+'Z' ,mag+'0' ,mag+'0' 
  1476.         dw      yel+'A' ,mag+'0' ,mag+'0' 
  1477.         dw      yel+'B' ,mag+'0' ,mag+'0' 
  1478.         dw      yel+'C' ,mag+'0' ,mag+'0' 
  1479.         dw      yel+'D' ,mag+'0' ,mag+'0' 
  1480.         dw      yel+'E' ,mag+'0' ,mag+'0' 
  1481.         dw      yel+'e' ,mag+'0' ,mag+'0' 
  1482.         dw      yel+'F' ,mag+'0' ,mag+'0' 
  1483.         dw      yel+'f' ,mag+'0' ,mag+'0' 
  1484.         dw      yel+'G' ,mag+'0' ,mag+'0' 
  1485.         dw      yel+'g' ,mag+'0' ,mag+'0' 
  1486.         dw      yel+'H' ,mag+'0' ,mag+'0' 
  1487.         dw      yel+'h' ,mag+'0' ,mag+'0' 
  1488. ?progo  equ     $
  1489.         public  $noteo          ; midi note output
  1490. $noteo  dw      (?noteo-$noteo)/6,      0000
  1491.         dw      rde+007h,whi+'1' ,whi+'0' 
  1492.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1493.         dw      yel+'c', blu+'0' ,blu+'0' 
  1494.         dw      yel+0e8h,blu+'0' ,blu+'0' 
  1495.         dw      yel+'&', blu+'F' ,blu+'F' 
  1496.         dw      yel+'t', blu+'0' ,blu+'0' 
  1497.         dw      yel+'t', blu+'0' ,blu+'0' 
  1498.         dw      yel+'v', blu+'0' ,blu+'0' 
  1499.         dw      yel+'r', blu+'0' ,blu+'0' 
  1500.         dw      yel+'A', blu+'0' ,blu+'0' ,yel+'a', blu+'0' ,blu+'0' 
  1501.         dw      yel+'B', blu+'0' ,blu+'0' ,yel+'b', blu+'0' ,blu+'0' 
  1502.         dw      yel+'C', blu+'0' ,blu+'0' ,yel+'c', blu+'0' ,blu+'0' 
  1503.         dw      yel+'D', blu+'0' ,blu+'0' ,yel+'d', blu+'0' ,blu+'0' 
  1504. ?noteo  equ     $
  1505.         public  $noteo1          ; midi note output
  1506. $noteo1 dw      (?noteo1-$noteo1)/6,      0000
  1507.         dw      rde+007h,whi+'2' ,whi+'0' 
  1508.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1509.         dw      yel+'c', blu+'0' ,blu+'0' 
  1510.         dw      yel+0e8h,blu+'0' ,blu+'0' 
  1511.         dw      yel+'&', blu+'F' ,blu+'F' 
  1512.         dw      yel+'t', blu+'0' ,blu+'0' 
  1513.         dw      yel+'t', blu+'0' ,blu+'0' 
  1514.         dw      yel+'v', blu+'0' ,blu+'0' 
  1515.         dw      yel+'r', blu+'0' ,blu+'0' 
  1516.         dw      yel+'A', blu+'0' ,blu+'0' ,yel+'a', blu+'0' ,blu+'0' 
  1517.         dw      yel+'B', blu+'0' ,blu+'0' ,yel+'b', blu+'0' ,blu+'0' 
  1518.         dw      yel+'C', blu+'0' ,blu+'0' ,yel+'c', blu+'0' ,blu+'0' 
  1519.         dw      yel+'D', blu+'0' ,blu+'0' ,yel+'d', blu+'0' ,blu+'0' 
  1520. ?noteo1 equ     $
  1521.         public  $noteo2          ; midi note output
  1522. $noteo2 dw      (?noteo2-$noteo2)/6,      0000
  1523.         dw      rde+007h,whi+'3' ,whi+'0' 
  1524.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1525.         dw      yel+'c', blu+'0' ,blu+'0' 
  1526.         dw      yel+0e8h,blu+'0' ,blu+'0' 
  1527.         dw      yel+'&', blu+'F' ,blu+'F' 
  1528.         dw      yel+'t', blu+'0' ,blu+'0' 
  1529.         dw      yel+'t', blu+'0' ,blu+'0' 
  1530.         dw      yel+'v', blu+'0' ,blu+'0' 
  1531.         dw      yel+'r', blu+'0' ,blu+'0' 
  1532.         dw      yel+'A', blu+'0' ,blu+'0' ,yel+'a', blu+'0' ,blu+'0' 
  1533.         dw      yel+'B', blu+'0' ,blu+'0' ,yel+'b', blu+'0' ,blu+'0' 
  1534.         dw      yel+'C', blu+'0' ,blu+'0' ,yel+'c', blu+'0' ,blu+'0' 
  1535.         dw      yel+'D', blu+'0' ,blu+'0' ,yel+'d', blu+'0' ,blu+'0' 
  1536. ?noteo2 equ     $
  1537.         public  $noteo3          ; midi note output
  1538. $noteo3 dw      (?noteo3-$noteo3)/6,      0000
  1539.         dw      rde+007h,whi+'4' ,whi+'0' 
  1540.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1541.         dw      yel+'c', blu+'0' ,blu+'0' 
  1542.         dw      yel+0e8h,blu+'0' ,blu+'0' 
  1543.         dw      yel+'&', blu+'F' ,blu+'F' 
  1544.         dw      yel+'t', blu+'0' ,blu+'0' 
  1545.         dw      yel+'t', blu+'0' ,blu+'0' 
  1546.         dw      yel+'v', blu+'0' ,blu+'0' 
  1547.         dw      yel+'r', blu+'0' ,blu+'0' 
  1548.         dw      yel+'A', blu+'0' ,blu+'0' ,yel+'a', blu+'0' ,blu+'0' 
  1549.         dw      yel+'B', blu+'0' ,blu+'0' ,yel+'b', blu+'0' ,blu+'0' 
  1550.         dw      yel+'C', blu+'0' ,blu+'0' ,yel+'c', blu+'0' ,blu+'0' 
  1551.         dw      yel+'D', blu+'0' ,blu+'0' ,yel+'d', blu+'0' ,blu+'0' 
  1552. ?noteo3 equ     $
  1553.         public  $chano          ; midi channel output
  1554. $chano  dw      (?chano-$chano)/6,      0000
  1555.         dw      rde+007h,whi+09ah,whi+'0' 
  1556.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1557.         dw      yel+'c', blu+'0' ,blu+'0' 
  1558.         dw      yel+0fbh,blu+'0' ,blu+'1' 
  1559.         dw      yel+09eh,blu+'0' ,blu+'0' 
  1560.         dw      yel+'a', blu+'0' ,blu+'0' 
  1561.         dw      yel+'b', blu+'8' ,blu+'0' 
  1562.         dw      yel+'V', blu+'7' ,blu+'F' 
  1563.         dw      yel+'M', blu+'0' ,blu+'0' 
  1564.         dw      yel+'A', blu+'0' ,blu+'0' 
  1565.         dw      yel+'B', blu+'0' ,blu+'0' 
  1566.         dw      yel+'C', blu+'0' ,blu+'0' 
  1567.         dw      yel+'D', blu+'0' ,blu+'0' 
  1568.         dw      yel+'1', blu+'0' ,blu+'0' 
  1569.         dw      yel+'2', blu+'0' ,blu+'0' 
  1570. ?chano  equ     $
  1571.         public  $chanl          ; midi channel output
  1572. $chanl  dw      (?chanl-$chanl)/6,      0000
  1573.         dw      rde+007h,whi+099h,whi+'0' 
  1574.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1575.         dw      yel+'c', blu+'0' ,blu+'0' 
  1576.         dw      yel+0fbh,blu+'0' ,blu+'1' 
  1577.         dw      yel+09eh,blu+'0' ,blu+'0' 
  1578.         dw      yel+'a', blu+'0' ,blu+'0' 
  1579.         dw      yel+'b', blu+'8' ,blu+'0' 
  1580.         dw      yel+'V', blu+'7' ,blu+'F' 
  1581.         dw      yel+'M', blu+'0' ,blu+'0' 
  1582.         dw      yel+'A', blu+'0' ,blu+'0' 
  1583.         dw      yel+'B', blu+'0' ,blu+'0' 
  1584.         dw      yel+'C', blu+'0' ,blu+'0' 
  1585.         dw      yel+'D', blu+'0' ,blu+'0' 
  1586.         dw      yel+'1', blu+'0' ,blu+'0' 
  1587.         dw      yel+'2', blu+'0' ,blu+'0' 
  1588. ?chanl  equ     $
  1589.         public  $sysxo          ; midi sysex output
  1590. $sysxo  dw      (?sysxo-$sysxo)/6,      0000
  1591.         dw      yel+03ah,whi+014h,whi+'0' 
  1592.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1593.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  1594.         dw      yel+'1' ,blu+'0' ,blu+'0' 
  1595.         dw      yel+'2' ,blu+'0' ,blu+'0' 
  1596.         dw      yel+'3' ,blu+'0' ,blu+'0' 
  1597.         dw      yel+'4' ,blu+'0' ,blu+'0' 
  1598.         dw      yel+'5' ,blu+'0' ,blu+'0' 
  1599.         dw      yel+'6' ,blu+'0' ,blu+'0' 
  1600.         dw      yel+'7' ,blu+'0' ,blu+'0' 
  1601.         dw      yel+'8' ,blu+'0' ,blu+'0' 
  1602. ?sysxo  equ     $
  1603.         public  $ctrlo          ; midi ctrl output
  1604. $ctrlo  dw      (?ctrlo-$ctrlo)/6,      0000
  1605.         dw      yel+03ah,whi+098h,whi+'0' 
  1606.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1607.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  1608.         dw      yel+'c' ,blu+'0' ,blu+'0' 
  1609.         dw      yel+'#' ,blu+'0' ,blu+'0' 
  1610.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1611. ?ctrlo  equ     $
  1612.         public  $patcho         ; midi program change
  1613. $patcho dw      (?patcho-$patcho)/6,      0000
  1614.         dw      yel+03ah,whi+09eh,whi+'0' 
  1615.         dw      yel+0f9h,gry+'0' ,gry+'0' 
  1616.         dw      yel+01bh,cyn+'0' ,cyn+'0' 
  1617.         dw      yel+'c' ,blu+'0' ,blu+'0' 
  1618.         dw      yel+0aah,blu+'0' ,blu+'0' 
  1619.         dw      yel+'!' ,blu+'0' ,blu+'0' 
  1620.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1621. ?patcho equ    $
  1622.         public  $bopo          ; pc timer note output
  1623. $bopo   dw      (?bopo-$bopo)/6,        0000
  1624.         dw      yel+':' ,whi+00fh,whi+'$' ,yel+0f9h,gry+'0' ,gry+'0' 
  1625.         dw      yel+003h,blu+'0' ,blu+'0' 
  1626.         dw      yel+01ah,blu+'0' ,blu+'0' 
  1627. ?bopo   equ     $
  1628.         public  ?modtxt
  1629. ;--------------------------------------------------------------
  1630. ; end of module text
  1631.         dw      -1
  1632. ?modtxt equ     $
  1633. ;--------------------------------------------------------------
  1634. ; this last+1 module text is a buffer used to move a copy
  1635. ; of an existing module.  It must be 25 lines to accommodate
  1636. ; the maximum size module.
  1637. ;
  1638.         public  $dummy          ; 25 line dummy for module text buffer
  1639. $dummy  dw      (?dummy-$dummy)/6,8
  1640.         dw      75 dup(?)
  1641. ?dummy  equ     $
  1642. ;--------------------------------------------------------------
  1643. ; this last+2 is the menu text -- it only looks like a module
  1644. ;
  1645.         public  $menu           ; page #'s and menu
  1646. $menu   dw      (?menu-$menu)/6,0H
  1647.         dw      blu+010h,yel+020h,yel+'0' 
  1648.         dw      blu+010h,yel+020h,yel+'1' 
  1649.         dw      blu+010h,yel+020h,yel+'2' 
  1650.         dw      blu+010h,yel+020h,yel+'3' 
  1651.         dw      blu+010h,yel+020h,yel+034h
  1652.         dw      blu+010h,yel+020h,yel+035h
  1653.         dw      blu+010h,yel+020h,yel+036h
  1654.         dw      blu+010h,yel+020h,yel+037h
  1655.         dw      grn+'E',grn+'S',grn+'C' ; ESC
  1656.         dw      rde+'D',rde+'E',rde+'L' ; DEL
  1657.         dw      yel+'S',yel+'E',yel+'T' ; SET
  1658.         dw      cyn+'H',cyn+'L',cyn+'T' ; HLT
  1659.         dw      grn+'O',grn+'F',grn+'F' ; OFF
  1660.         dw      gry+'0',gry+'0',gry+'0' ; 000
  1661.         dw      gry+'0',gry+'0',gry+'0' ; 000
  1662.         dw      blu+'0',blu+'0',blu+'0' ; 000
  1663.         dw      blu+'0',blu+'0',blu+'0' ; 000
  1664.         dw      yel+'0',blu+':',yel+'1' ; 0:1
  1665.         dw      yel+'2',blu+':',yel+'3' ; 2:3
  1666.         dw      yel+'4',blu+':',yel+'5' ; 4:5
  1667.         dw      yel+'6',blu+':',yel+'7' ; 6:7
  1668.         dw      yel+'8',blu+':',yel+'9' ; 8:9
  1669.         dw      yel+'A',blu+':',yel+'B' ; A:B
  1670.         dw      yel+'C',blu+':',yel+'D' ; C:D
  1671.         dw      yel+'E',blu+':',yel+'F' ; E:F
  1672. ?menu   equ     $
  1673. ;--------------------------------------------------------------
  1674. ; The following table includes an entery for each defined
  1675. ; module.  The format is:
  1676. ;       word0:  module execution address
  1677. ;       word1:  module text address
  1678. ;       word2:  variables space (words) for each active module 
  1679. ;       word3:  address of variable list for module 0
  1680. ;        |
  1681. ;       word18: address of variable list for module 15
  1682. ;               -- set to -1 if it's a system module
  1683. ;       word19: bits set if a module has been deleted, used to reincarnate
  1684. ;       word20: execution address for magenta user input (optional)
  1685. ;
  1686.         even
  1687.         public  _modsrc
  1688. _modsrc  equ     $
  1689.         public @dummy
  1690. @dummy  equ     $
  1691. @beta   dw      offset _text:_beta,     offset dgroup:$beta
  1692.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1693. @secs   dw      offset _text:_secs,     offset dgroup:$secs
  1694.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1695. @lambda dw      offset _text:_lambda,   offset dgroup:$lambda
  1696.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1697. @muclk  dw      offset _text:_muclk,    offset dgroup:$muclk
  1698.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1699. @gamma  dw      offset _text:_gamma,    offset dgroup:$gamma
  1700.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1701. @mclock dw      offset _text:_mclock,   offset dgroup:$mclock
  1702.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1703. @mclk   dw      offset _text:_mclk,     offset dgroup:$mclk
  1704.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1705. @clock  dw      offset _text:_clock,    offset dgroup:$clock
  1706.         dw      08,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1707. @klock  dw      offset _text:_klock,    offset dgroup:$klock
  1708.         dw      08,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1709. @alpha  dw      offset _text:_alpha,    offset dgroup:$alpha
  1710.         dw      12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0
  1711. @xkbd   dw      offset _text:_xkbd ,    offset dgroup:$xkbd 
  1712.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0
  1713. @tstmob dw      offset _text:_tstmob,   offset dgroup:$tstmob
  1714.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0
  1715. @mpuins dw      offset _text:_mpuins,   offset dgroup:$mpuins
  1716.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0
  1717. @xmidii dw      offset _text:_xmidii,   offset dgroup:$xmidii
  1718.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1719. @domute dw      offset _text:_domute,   offset dgroup:$domute
  1720.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1721. @ltimer dw      offset _text:_ltimer,   offset dgroup:$ltimer
  1722.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1723. @ctimer dw      offset _text:_ctimer,   offset dgroup:$ctimer
  1724.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1725. @atimer dw      offset _text:_atimer,   offset dgroup:$atimer
  1726.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1727. @stimer dw      offset _text:_stimer,   offset dgroup:$stimer
  1728.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1729. @wseq   dw      offset _text:_wseq,     offset dgroup:$wseq
  1730.         dw      17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1731. @xseq   dw      offset _text:_xseq,     offset dgroup:$xseq
  1732.         dw      09,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1733. @yseq   dw      offset _text:_yseq,     offset dgroup:$yseq
  1734.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1735. @zseq   dw      offset _text:_zseq,     offset dgroup:$zseq
  1736.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1737. @useq   dw      offset _text:_useq,     offset dgroup:$useq
  1738.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1739. @vseq   dw      offset _text:_vseq,     offset dgroup:$vseq
  1740.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1741. @euseq  dw      offset _text:_euseq,   offset dgroup:$euseq
  1742.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1743.         dw      offset _text:ueuseq
  1744. @puseq  dw      offset _text:_puseq,    offset dgroup:$puseq
  1745.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1746. @quseq  dw      offset _text:_quseq,    offset dgroup:$quseq
  1747.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1748. @ruseq  dw      offset _text:_ruseq,    offset dgroup:$ruseq
  1749.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1750. @suseq  dw      offset _text:_suseq,    offset dgroup:$suseq
  1751.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1752. @tuseq  dw      offset _text:_tuseq,    offset dgroup:$tuseq
  1753.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1754. @pseq   dw      offset _text:_pseq,     offset dgroup:$pseq
  1755.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1756.         dw      offset _text:upseq
  1757. @qseq   dw      offset _text:_qseq,     offset dgroup:$qseq
  1758.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1759.         dw      offset _text:uqseq
  1760. @rseq   dw      offset _text:_rseq,     offset dgroup:$rseq
  1761.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1762.         dw      offset _text:uqseq
  1763. @sseq   dw      offset _text:_sseq,     offset dgroup:$sseq
  1764.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1765.         dw      offset _text:uqseq
  1766. @tseq   dw      offset _text:_tseq,     offset dgroup:$tseq
  1767.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      
  1768.         dw      offset _text:uqseq
  1769. @gatel  dw      offset _text:_gatel,    offset dgroup:$gatel
  1770.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1771. @gout   dw      offset _text:_gout,     offset dgroup:$gout 
  1772.         dw      09,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1773. @iclock dw      offset _text:_iclock,   offset dgroup:$iclock
  1774.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1775. @kclock dw      offset _text:_kclock,   offset dgroup:$kclock
  1776.         dw      10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1777. @ocount dw      offset _text:_ocount,   offset dgroup:$ocount
  1778.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1779. @icount dw      offset _text:_icount,   offset dgroup:$icount
  1780.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1781. @jcount dw      offset _text:_jcount,   offset dgroup:$jcount
  1782.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1783. @kcount dw      offset _text:_kcount,   offset dgroup:$kcount
  1784.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1785. @lcount dw      offset _text:_lcount,   offset dgroup:$lcount
  1786.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1787. @mcount dw      offset _text:_mcount,   offset dgroup:$mcount
  1788.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1789. @ncount dw      offset _text:_ncount,   offset dgroup:$ncount
  1790.         dw      08,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1791. @variy  dw      offset _text:_variy,    offset dgroup:$variy
  1792.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1793. @variz  dw      offset _text:_variz,    offset dgroup:$variz
  1794.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1795. @variv  dw      offset _text:_variv,    offset dgroup:$variv
  1796.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1797. @varix  dw      offset _text:_varix,    offset dgroup:$varix
  1798.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1799. @trand  dw      offset _text:_trand,    offset dgroup:$trand
  1800.         dw      09,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1801. @nrand  dw      offset _text:_nrand,    offset dgroup:$nrand
  1802.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1803. @randp  dw      offset _text:_randp,    offset dgroup:$randp
  1804.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1805. @rrand  dw      offset _text:_rrand,    offset dgroup:$rrand
  1806.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1807. @twopwr dw      offset _text:_twopwr,   offset dgroup:$twopwr
  1808.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1809. @rand   dw      offset _text:_rand,     offset dgroup:$rand
  1810.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1811. @andl   dw      offset _text:_andl,     offset dgroup:$andl
  1812.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1813. @orl    dw      offset _text:_orl,      offset dgroup:$orl
  1814.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1815. @notl   dw      offset _text:_notl,     offset dgroup:$notl
  1816.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1817. @delay  dw      offset _text:_delay,    offset dgroup:$delay
  1818.         dw      131,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1819. @slope  dw      offset _text:_slope,    offset dgroup:$slope
  1820.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1821. @sandh  dw      offset _text:_sandh,    offset dgroup:$sandh
  1822.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1823. @value  dw      offset _text:_value,    offset dgroup:$value
  1824.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1825. @scale  dw      offset _text:_scale,    offset dgroup:$scale
  1826.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1827. @sumit  dw      offset _text:_sumit,    offset dgroup:$sumit
  1828.         dw      07,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1829. @mixit  dw      offset _text:_mixit,    offset dgroup:$mixit
  1830.         dw      07,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1831. @limit  dw      offset _text:_limit,    offset dgroup:$limit
  1832.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1833. @apprx  dw      offset _text:_apprx,    offset dgroup:$apprx
  1834.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1835. @delta  dw      offset _text:_delta,    offset dgroup:$delta
  1836.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1837. @cmak   dw      offset _text:_cmak,     offset dgroup:$cmak 
  1838.         dw      10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1839. @cgen   dw      offset _text:_cgen,     offset dgroup:$cgen 
  1840.         dw      10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1841. @cplay  dw      offset _text:_cplay,    offset dgroup:$cplay
  1842.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1843. @cplai  dw      offset _text:_cplai,    offset dgroup:$cplai
  1844.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1845. @cstor  dw      offset _text:_cstor,    offset dgroup:$cstor
  1846.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1847. @sort   dw      offset _text:_sort,     offset dgroup:$sort 
  1848.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1849. @bassd  dw      offset _text:_bassd,    offset dgroup:$bassd
  1850.         dw      08,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1851. @deltat dw      offset _text:_deltat,   offset dgroup:$deltat
  1852.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1853. @mul12  dw      offset _text:_mul12,    offset dgroup:$mul12
  1854.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1855. @div12  dw      offset _text:_div12,    offset dgroup:$div12
  1856.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1857. @mod12  dw      offset _text:_mod12,    offset dgroup:$mod12
  1858.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1859. @fold   dw      offset _text:_fold,     offset dgroup:$fold
  1860.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1861. @dither dw      offset _text:_dither,   offset dgroup:$dither
  1862.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1863. @dithzr dw      offset _text:_dithzr,   offset dgroup:$dithzr
  1864.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1865. @ddithr dw      offset _text:_ddithr,   offset dgroup:$ddithr
  1866.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1867. @odds   dw      offset _text:_odds,     offset dgroup:$odds
  1868.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1869. @oddz   dw      offset _text:_oddz,     offset dgroup:$oddz
  1870.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1871. @ratio  dw      offset _text:_ratio,    offset dgroup:$ratio
  1872.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1873. @ratiz  dw      offset _text:_ratiz,    offset dgroup:$ratiz
  1874.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1875. @filter dw      offset _text:_filter,   offset dgroup:$filter
  1876.         dw      12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1877. @fflop  dw      offset _text:_fflop,    offset dgroup:$fflop
  1878.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1879. @union  dw      offset _text:_union,    offset dgroup:$union
  1880.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1881. @rangep dw      offset _text:_rangep,   offset dgroup:$rangep
  1882.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1883. @quant  dw      offset _text:_quant,    offset dgroup:$quant
  1884.         dw      10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1885. @lastv  dw      offset _text:_lastv,   offset dgroup:$lastv
  1886.         dw      11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1887. @xcall  dw      offset _text:_xcall,    offset dgroup:$xcall
  1888.         dw      11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1889. @rcall  dw      offset _text:_rcall,    offset dgroup:$rcall
  1890.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1891. @poke   dw      offset _text:_poke,     offset dgroup:$poke
  1892.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1893. @peek   dw      offset _text:_peek,     offset dgroup:$peek
  1894.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1895. @outpb  dw      offset _text:_outpb,    offset dgroup:$outpb
  1896.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1897. @inptb  dw      offset _text:_inptb,    offset dgroup:$inptb
  1898.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1899. @imeter dw      offset _text:_imeter,   offset dgroup:$imeter
  1900.         dw      3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1901. @emeter dw      offset _text:_emeter,   offset dgroup:$emeter
  1902.         dw      3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1903. @higher dw      offset _text:_higher,   offset dgroup:$higher
  1904.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1905. @lower  dw      offset _text:_lower,    offset dgroup:$lower
  1906.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1907. @rshift dw      offset _text:_rshift,   offset dgroup:$rshift
  1908.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1909. @lshift dw      offset _text:_lshift,   offset dgroup:$lshift
  1910.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1911. @modulo dw      offset _text:_modulo,   offset dgroup:$modulo
  1912.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1913. @times  dw      offset _text:_times,    offset dgroup:$times
  1914.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1915. @plus   dw      offset _text:_plus,     offset dgroup:$plus
  1916.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1917. @plusm  dw      offset _text:_plusm,    offset dgroup:$plusm
  1918.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1919. @plusn  dw      offset _text:_plusn,    offset dgroup:$plusn
  1920.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1921. @maxf   dw      offset _text:_maxf,     offset dgroup:$maxf
  1922.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1923. @minf   dw      offset _text:_minf,     offset dgroup:$minf
  1924.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1925. @passt  dw      offset _text:_passt,    offset dgroup:$passt
  1926.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1927. @passq  dw      offset _text:_passq,    offset dgroup:$passq
  1928.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1929. @equal  dw      offset _text:_equal,    offset dgroup:$equal
  1930.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1931. @nequal dw      offset _text:_nequal,   offset dgroup:$nequal
  1932.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1933. @great  dw      offset _text:_great,    offset dgroup:$great
  1934.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1935. @lessp  dw      offset _text:_lessp,    offset dgroup:$lessp
  1936.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1937. @bitsp  dw      offset _text:_bitsp,    offset dgroup:$bitsp
  1938.         dw      02,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1939. @bitsq  dw      offset _text:_bitsq,    offset dgroup:$bitsq
  1940.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1941. @maskl  dw      offset _text:_maskl,    offset dgroup:$maskl
  1942.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1943. @maskr  dw      offset _text:_maskr,    offset dgroup:$maskr
  1944.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1945. @mask   dw      offset _text:_mask,     offset dgroup:$mask
  1946.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1947. @truep  dw      offset _text:_truep,    offset dgroup:$truep
  1948.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1949. @zerop  dw      offset _text:_zerop,    offset dgroup:$zerop
  1950.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1951. @minusp dw      offset _text:_minusp,   offset dgroup:$minusp
  1952.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1953. @negate dw      offset _text:_negate,   offset dgroup:$negate
  1954.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1955. @change dw      offset _text:_change,   offset dgroup:$change
  1956.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1957. @ascii  dw      offset _text:_ascii,    offset dgroup:$ascii
  1958.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1959. @asciz  dw      offset _text:_asciz,    offset dgroup:$asciz
  1960.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1961. @ascis  dw      offset _text:_ascis,    offset dgroup:$ascis
  1962.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1963. @decin  dw      offset _text:_decin,    offset dgroup:$decin
  1964.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1965. @decim  dw      offset _text:_decim,    offset dgroup:$decim
  1966.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1967. @noter  dw      offset _text:_noter,    offset dgroup:$noter
  1968.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1969. @sxput  dw      offset _text:_sxput,     offset dgroup:$sxput
  1970.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1971. @sxget  dw      offset _text:_sxget,     offset dgroup:$sxget
  1972.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1973. @slew   dw      offset _text:_slew,      offset dgroup:$slew
  1974.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1975. @xslew  dw      offset _text:_xslew,     offset dgroup:$xslew
  1976.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1977. @stopo  dw      offset _text:_stopo,     offset dgroup:$stopo
  1978.         dw      08,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0
  1979. @mapo   dw      offset _text:_mapo,   offset dgroup:$mapo
  1980.         dw      08,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0
  1981.         dw      offset _text:umapo
  1982. @mapp   dw      offset _text:_mapp,   offset dgroup:$mapp
  1983.         dw      08,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0
  1984.         dw      offset _text:umapp
  1985. @noteo  dw      offset _text:_noteo,  offset dgroup:$noteo
  1986.         dw      18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1987. @noteo1 dw      offset _text:_noteo1,  offset dgroup:$noteo1
  1988.         dw      18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1989. @noteo2 dw      offset _text:_noteo2,  offset dgroup:$noteo2
  1990.         dw      18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1991. @noteo3 dw      offset _text:_noteo3,  offset dgroup:$noteo3
  1992.         dw      18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1993. @chano  dw      offset _text:_chano,  offset dgroup:$chano
  1994.         dw      18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1995. @chanl  dw      offset _text:_chanl,  offset dgroup:$chanl
  1996.         dw      18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1997. @progo  dw      offset _text:_progo,  offset dgroup:$progo
  1998.         dw      52,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1999.         dw      offset _text:uprogo
  2000. @sysxo  dw      offset _text:_sysxo,  offset dgroup:$sysxo
  2001.         dw      09,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2002. @ctrlo  dw      offset _text:_ctrlo,  offset dgroup:$ctrlo
  2003.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2004. @patcho dw      offset _text:_patcho,  offset dgroup:$patcho
  2005.         dw      04,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2006. @bopo   dw      offset _text:_bopo,   offset dgroup:$bopo
  2007.         dw      03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,0       
  2008. @pusha  dw      offset _text:_pusha,  offset dgroup:$pusha
  2009.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2010.         dw      offset _text:upusha
  2011. @pushb  dw      offset _text:_pushb,  offset dgroup:$pushb
  2012.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2013.         dw      offset _text:upushb
  2014. @pushc  dw      offset _text:_pushc,  offset dgroup:$pushc
  2015.         dw      01,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2016.         dw      offset _text:upushc
  2017. @addswa dw      offset _text:_addswa, offset dgroup:$addswa
  2018.         dw      09,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2019. @psouta dw      offset _text:_psouta, offset dgroup:$psouta
  2020.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2021. @psoutb dw      offset _text:_psoutb, offset dgroup:$psoutb
  2022.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2023. @psoutc dw      offset _text:_psoutc, offset dgroup:$psoutc
  2024.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2025. @psoutd dw      offset _text:_psoutd, offset dgroup:$psoutd
  2026.         dw      05,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2027. @psoute dw      offset _text:_psoute, offset dgroup:$psoute
  2028.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2029. @psoutf dw      offset _text:_psoutf, offset dgroup:$psoutf
  2030.         dw      06,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2031. @pcouta dw      offset _text:_pcouta, offset dgroup:$pcouta
  2032.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2033.         dw      offset _text:upcout
  2034. @pcoutb dw      offset _text:_pcoutb, offset dgroup:$pcoutb
  2035.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2036.         dw      offset _text:upcout
  2037. @pcoutc dw      offset _text:_pcoutc, offset dgroup:$pcoutc
  2038.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2039.         dw      offset _text:upcout
  2040. @pcoutd dw      offset _text:_pcoutd, offset dgroup:$pcoutd
  2041.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2042.         dw      offset _text:upcout
  2043. @pcoute dw      offset _text:_pcoute, offset dgroup:$pcoute
  2044.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2045.         dw      offset _text:upcout
  2046. @pcoutf dw      offset _text:_pcoutf, offset dgroup:$pcoutf
  2047.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2048.         dw      offset _text:upcout
  2049. @pcoutg dw      offset _text:_pcoutg, offset dgroup:$pcoutg
  2050.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2051.         dw      offset _text:upcout
  2052. @pcouth dw      offset _text:_pcouth, offset dgroup:$pcouth
  2053.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2054.         dw      offset _text:upcout
  2055. @pcoutx dw      offset _text:_pcoutx, offset dgroup:$pcoutx
  2056.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2057.         dw      offset _text:upcout
  2058. @pcouty dw      offset _text:_pcouty, offset dgroup:$pcouty
  2059.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2060.         dw      offset _text:upcout
  2061. @pcoutz dw      offset _text:_pcoutz, offset dgroup:$pcoutz
  2062.         dw      00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2063.         dw      offset _text:upcout
  2064. ;--------------------------------------------------------------
  2065. ; the following is a 256 word address table, one address,
  2066. ; in order, for each character in the ibm-pc character set
  2067. ; these addresses point to the MODSRC table, which includes
  2068. ; an entery for each module, plus a dummy for all the unused
  2069. ; characters.  The purpose of this table is to allow identification
  2070. ; of the module code and data, given only the module name character.
  2071. ;
  2072.         even
  2073.         public  _chrtbl
  2074. _chrtbl equ     $
  2075.         dw      offset dgroup:@dummy,  offset dgroup:@decin
  2076.         dw      offset dgroup:@dummy,  offset dgroup:@iclock   ; 00 - 03
  2077.  
  2078.         dw      offset dgroup:@ddithr, offset dgroup:@dithzr
  2079.         dw      offset dgroup:@dither, offset dgroup:@zerop    ; 04 - 07
  2080.  
  2081.         dw      offset dgroup:@dummy,  offset dgroup:@pushb
  2082.         dw      offset dgroup:@dummy,  offset dgroup:@change   ; 08 - 0B
  2083.  
  2084.         dw      offset dgroup:@lastv,  offset dgroup:@clock
  2085.         dw      offset dgroup:@klock,  offset dgroup:@bopo     ; 0C - 0F
  2086.  
  2087.         dw      offset dgroup:@sxget,  offset dgroup:@sxput
  2088.         dw      offset dgroup:@pushc,  offset dgroup:@cmak     ; 10 - 13
  2089.  
  2090.         dw      offset dgroup:@sysxo,  offset dgroup:@sandh
  2091.         dw      offset dgroup:@dummy,  offset dgroup:@limit    ; 14 - 17
  2092.  
  2093.         dw      offset dgroup:@maxf,   offset dgroup:@minf 
  2094.         dw      offset dgroup:@xmidii, offset dgroup:@dummy    ; 18 - 1B
  2095.  
  2096.         dw      offset dgroup:@dummy,  offset dgroup:@sort
  2097.         dw      offset dgroup:@higher, offset dgroup:@lower    ; 1C - 1F
  2098.  
  2099.         dw      offset dgroup:@dummy,  offset dgroup:@cgen
  2100.         dw      offset dgroup:@truep,  offset dgroup:@value    ; 20 - 23
  2101.  
  2102.         dw      offset dgroup:@dummy,  offset dgroup:@scale
  2103.         dw      offset dgroup:@andl,   offset dgroup:@dummy    ; 24 - 27
  2104.  
  2105.         dw      offset dgroup:@dummy,  offset dgroup:@dummy
  2106.         dw      offset dgroup:@times,  offset dgroup:@plus     ; 28 - 2B
  2107.  
  2108.         dw      offset dgroup:@dummy,  offset dgroup:@plusn
  2109.         dw      offset dgroup:@decim,  offset dgroup:@modulo   ; 2C - 2F
  2110.  
  2111.         dw      offset dgroup:@dummy,  offset dgroup:@noteo
  2112.         dw      offset dgroup:@noteo1, offset dgroup:@noteo2   ; 30 - 33
  2113.  
  2114.         dw      offset dgroup:@noteo3, offset dgroup:@dummy
  2115.         dw      offset dgroup:@dummy,  offset dgroup:@dummy    ; 34 - 37
  2116.  
  2117.         dw      offset dgroup:@dummy,  offset dgroup:@dummy
  2118.         dw      offset dgroup:@bassd,  offset dgroup:@gatel    ; 38 - 3B
  2119.  
  2120.         dw      offset dgroup:@lessp,  offset dgroup:@equal
  2121.         dw      offset dgroup:@great,  offset dgroup:@rand     ; 3C - 3F
  2122.  
  2123.         dw      offset dgroup:@cstor,  offset dgroup:@pcouta
  2124.         dw      offset dgroup:@pcoutb, offset dgroup:@pcoutc   ; 40 - 43
  2125.  
  2126.         dw      offset dgroup:@pcoutd, offset dgroup:@pcoute
  2127.         dw      offset dgroup:@pcoutf, offset dgroup:@pcoutg   ; 44 - 47
  2128.  
  2129.         dw      offset dgroup:@pcouth, offset dgroup:@icount
  2130.         dw      offset dgroup:@jcount, offset dgroup:@kcount   ; 48 - 4B
  2131.  
  2132.         dw      offset dgroup:@lcount, offset dgroup:@mcount
  2133.         dw      offset dgroup:@ncount, offset dgroup:@ocount   ; 4C - 4F
  2134.  
  2135.         dw      offset dgroup:@puseq,  offset dgroup:@quseq
  2136.         dw      offset dgroup:@ruseq,  offset dgroup:@suseq    ; 50 - 53
  2137.  
  2138.         dw      offset dgroup:@tuseq,  offset dgroup:@dummy
  2139.         dw      offset dgroup:@dummy,  offset dgroup:@dummy    ; 54 - 57
  2140.  
  2141.         dw      offset dgroup:@pcoutx, offset dgroup:@pcouty
  2142.         dw      offset dgroup:@pcoutz, offset dgroup:@dummy    ; 58 - 5B
  2143.  
  2144.         dw      offset dgroup:@slope,  offset dgroup:@dummy
  2145.         dw      offset dgroup:@twopwr, offset dgroup:@dummy    ; 5C - 5F
  2146.  
  2147.         dw      offset dgroup:@dummy,  offset dgroup:@psouta 
  2148.         dw      offset dgroup:@psoutb, offset dgroup:@psoutc   ; 60 - 63
  2149.  
  2150.         dw      offset dgroup:@psoutd, offset dgroup:@psoute
  2151.         dw      offset dgroup:@psoutf, offset dgroup:@dummy    ; 64 - 67
  2152.  
  2153.         dw      offset dgroup:@dummy,  offset dgroup:@variz 
  2154.         dw      offset dgroup:@variy,  offset dgroup:@variv    ; 68 - 6B
  2155.  
  2156.         dw      offset dgroup:@varix,  offset dgroup:@dummy
  2157.         dw      offset dgroup:@dummy,  offset dgroup:@dummy    ; 6C - 6F
  2158.  
  2159.         dw      offset dgroup:@pseq,   offset dgroup:@qseq 
  2160.         dw      offset dgroup:@rseq,   offset dgroup:@sseq     ; 70 - 73
  2161.  
  2162.         dw      offset dgroup:@tseq,   offset dgroup:@useq  
  2163.         dw      offset dgroup:@vseq,   offset dgroup:@wseq     ; 74 - 77
  2164.  
  2165.         dw      offset dgroup:@xseq,   offset dgroup:@yseq 
  2166.         dw      offset dgroup:@zseq,   offset dgroup:@poke     ; 78 - 7B
  2167.  
  2168.         dw      offset dgroup:@orl,    offset dgroup:@peek
  2169.         dw      offset dgroup:@dummy,  offset dgroup:@delta    ; 7C - 7F
  2170.  
  2171.         dw      offset dgroup:@cplay,  offset dgroup:@mapp
  2172.         dw      offset dgroup:@dummy,  offset dgroup:@ascis    ; 80 - 83
  2173.  
  2174.         dw      offset dgroup:@oddz,   offset dgroup:@dummy
  2175.         dw      offset dgroup:@asciz,  offset dgroup:@cplai    ; 84 - 87
  2176.  
  2177.         dw      offset dgroup:@rcall,  offset dgroup:@dummy
  2178.         dw      offset dgroup:@xcall,  offset dgroup:@dummy    ; 88 - 8B
  2179.  
  2180.         dw      offset dgroup:@dummy,  offset dgroup:@inptb
  2181.         dw      offset dgroup:@ratiz,  offset dgroup:@ratio    ; 8C - 8F
  2182.  
  2183.         dw      offset dgroup:@euseq,  offset dgroup:@mask
  2184.         dw      offset dgroup:@secs,   offset dgroup:@dummy    ; 90 - 93
  2185.  
  2186.         dw      offset dgroup:@mapo,   offset dgroup:@outpb
  2187.         dw      offset dgroup:@emeter, offset dgroup:@imeter   ; 94 - 97
  2188.  
  2189.         dw      offset dgroup:@ctrlo,  offset dgroup:@chanl
  2190.         dw      offset dgroup:@chano,  offset dgroup:@kclock   ; 98 - 9B
  2191.  
  2192.         dw      offset dgroup:@dummy,  offset dgroup:@stopo
  2193.         dw      offset dgroup:@patcho, offset dgroup:@filter   ; 9C - 9F
  2194.  
  2195.         dw      offset dgroup:@ascii,  offset dgroup:@dummy
  2196.         dw      offset dgroup:@mod12,  offset dgroup:@dummy    ; A0 - A3
  2197.  
  2198.         dw      offset dgroup:@minusp, offset dgroup:@negate
  2199.         dw      offset dgroup:@deltat, offset dgroup:@nequal   ; A4 - A7
  2200.  
  2201.         dw      offset dgroup:@rrand,  offset dgroup:@maskl
  2202.         dw      offset dgroup:@maskr,  offset dgroup:@mpuins   ; A8 - AB
  2203.  
  2204.         dw      offset dgroup:@odds,   offset dgroup:@randp
  2205.         dw      offset dgroup:@lshift, offset dgroup:@rshift   ; AC - AF
  2206.  
  2207.         dw      offset dgroup:@dummy,  offset dgroup:@dummy
  2208.         dw      offset dgroup:@dummy,  offset dgroup:@mclk     ; B0 - B3
  2209.  
  2210.         dw      offset dgroup:@dummy,  offset dgroup:@dummy
  2211.         dw      offset dgroup:@dummy,  offset dgroup:@passq    ; B4 - B7
  2212.  
  2213.         dw      offset dgroup:@dummy,  offset dgroup:@dummy
  2214.         dw      offset dgroup:@mclock, offset dgroup:@dummy    ; B8 - BB
  2215.  
  2216.         dw      offset dgroup:@atimer, offset dgroup:@stimer
  2217.         dw      offset dgroup:@ctimer, offset dgroup:@dummy    ; BC - BF
  2218.  
  2219.         dw      offset dgroup:@dummy,  offset dgroup:@nrand
  2220.         dw      offset dgroup:@bitsp,  offset dgroup:@dummy    ; C0 - C3
  2221.  
  2222.         dw      offset dgroup:@dummy,  offset dgroup:@dummy
  2223.         dw      offset dgroup:@dummy,  offset dgroup:@dummy    ; C4 - C7
  2224.  
  2225.         dw      offset dgroup:@dummy,  offset dgroup:@dummy
  2226.         dw      offset dgroup:@rangep, offset dgroup:@dummy    ; C8 - CB
  2227.  
  2228.         dw      offset dgroup:@dummy,  offset dgroup:@dummy
  2229.         dw      offset dgroup:@dummy,  offset dgroup:@dummy    ; CC - CF
  2230.  
  2231.         dw      offset dgroup:@delay,  offset dgroup:@bitsq
  2232.         dw      offset dgroup:@dummy,  offset dgroup:@dummy    ; D0 - D3
  2233.  
  2234.         dw      offset dgroup:@dummy,  offset dgroup:@noter
  2235.         dw      offset dgroup:@passt,  offset dgroup:@dummy    ; D4 - D7
  2236.  
  2237.         dw      offset dgroup:@dummy,  offset dgroup:@ltimer
  2238.         dw      offset dgroup:@dummy,  offset dgroup:@dummy    ; D8 - DB
  2239.  
  2240.         dw      offset dgroup:@dummy,  offset dgroup:@dummy
  2241.         dw      offset dgroup:@dummy,  offset dgroup:@dummy    ; DC - DF
  2242.  
  2243.         dw      offset dgroup:@alpha,  offset dgroup:@beta  
  2244.         dw      offset dgroup:@lambda, offset dgroup:@pusha    ; E0 - E3
  2245.  
  2246.         dw      offset dgroup:@sumit,  offset dgroup:@slew
  2247.         dw      offset dgroup:@muclk,  offset dgroup:@gamma    ; E4 - E7
  2248.  
  2249.         dw      offset dgroup:@domute, offset dgroup:@fflop
  2250.         dw      offset dgroup:@progo,  offset dgroup:@xslew    ; E8 - EB
  2251.  
  2252.         dw      offset dgroup:@trand,  offset dgroup:@notl
  2253.         dw      offset dgroup:@mixit,  offset dgroup:@union    ; EC - EF
  2254.  
  2255.         dw      offset dgroup:@addswa, offset dgroup:@plusm 
  2256.         dw      offset dgroup:@dummy,  offset dgroup:@dummy    ; F0 - F3
  2257.  
  2258.         dw      offset dgroup:@fold,   offset dgroup:@dummy
  2259.         dw      offset dgroup:@div12,  offset dgroup:@apprx    ; F4 - F7
  2260.  
  2261.         dw      offset dgroup:@mul12,  offset dgroup:@tstmob
  2262.         dw      offset dgroup:@dummy,  offset dgroup:@xkbd     ; F8 - FB
  2263.  
  2264.         dw      offset dgroup:@quant,  offset dgroup:@dummy
  2265.         dw      offset dgroup:@gout,   offset dgroup:@dummy    ; FC - FF
  2266. ;--------------------------------------------------------------
  2267. ; Module Execution Table
  2268. ; The following table has space for 1024 modules.  As modules
  2269. ; are made active, they are appended to the end of the table,
  2270. ; and the address of WORK is appended to the end+1.
  2271. ; Data format:
  2272. ;       word0:  execution address of module
  2273. ;       word1:  address of module's variables
  2274. ;         |
  2275. ;       wordn:  execution address of last module in list
  2276. ;       wordn+1 address of last module's variables
  2277. ;       wordn+2 execution address of work
  2278. ;
  2279.         even
  2280.         public  _exetbl
  2281. _exetbl dw      work,0
  2282.         dw      2048 dup(?)
  2283.         dw      work
  2284. ;--------------------------------------------------------------
  2285. ; The following table is 256 words, the first=0, the 2nd =1, etc.
  2286. ; Its purpos in life is to allow variables to be numeric constants.
  2287. ; That is, variable pointers can point to the address of the number
  2288. ; to be set to a number, rather than to a module output variable.
  2289. ;
  2290.         public  @zero
  2291. @zero   dw      000h,001h,002h,003h,004h,005h,006h,007h
  2292.         dw      008h,009h,00ah,00bh,00ch,00dh,00eh,00fh
  2293.         dw      010h,011h,012h,013h,014h,015h,016h,017h
  2294.         dw      018h,019h,01ah,01bh,01ch,01dh,01eh,01fh
  2295.         dw      020h,021h,022h,023h,024h,025h,026h,027h
  2296.         dw      028h,029h,02ah,02bh,02ch,02dh,02eh,02fh
  2297.         dw      030h,031h,032h,033h,034h,035h,036h,037h
  2298.         dw      038h,039h,03ah,03bh,03ch,03dh,03eh,03fh
  2299.         dw      040h,041h,042h,043h,044h,045h,046h,047h
  2300.         dw      048h,049h,04ah,04bh,04ch,04dh,04eh,04fh
  2301.         dw      050h,051h,052h,053h,054h,055h,056h,057h
  2302.         dw      058h,059h,05ah,05bh,05ch,05dh,05eh,05fh
  2303.         dw      060h,061h,062h,063h,064h,065h,066h,067h
  2304.         dw      068h,069h,06ah,06bh,06ch,06dh,06eh,06fh
  2305.         dw      070h,071h,072h,073h,074h,075h,076h,077h
  2306.         dw      078h,079h,07ah,07bh,07ch,07dh,07eh,07fh
  2307.         dw      080h,081h,082h,083h,084h,085h,086h,087h
  2308.         dw      088h,089h,08ah,08bh,08ch,08dh,08eh,08fh
  2309.         dw      090h,091h,092h,093h,094h,095h,096h,097h
  2310.         dw      098h,099h,09ah,09bh,09ch,09dh,09eh,09fh
  2311.         dw      0a0h,0a1h,0a2h,0a3h,0a4h,0a5h,0a6h,0a7h
  2312.         dw      0a8h,0a9h,0aah,0abh,0ach,0adh,0aeh,0afh
  2313.         dw      0b0h,0b1h,0b2h,0b3h,0b4h,0b5h,0b6h,0b7h
  2314.         dw      0b8h,0b9h,0bah,0bbh,0bch,0bdh,0beh,0bfh
  2315.         dw      0c0h,0c1h,0c2h,0c3h,0c4h,0c5h,0c6h,0c7h
  2316.         dw      0c8h,0c9h,0cah,0cbh,0cch,0cdh,0ceh,0cfh
  2317.         dw      0d0h,0d1h,0d2h,0d3h,0d4h,0d5h,0d6h,0d7h
  2318.         dw      0d8h,0d9h,0dah,0dbh,0dch,0ddh,0deh,0dfh
  2319.         dw      0e0h,0e1h,0e2h,0e3h,0e4h,0e5h,0e6h,0e7h
  2320.         dw      0e8h,0e9h,0eah,0ebh,0ech,0edh,0eeh,0efh
  2321.         dw      0f0h,0f1h,0f2h,0f3h,0f4h,0f5h,0f6h,0f7h
  2322.         dw      0f8h,0f9h,0fah,0fbh,0fch,0fdh,0feh,0ffh
  2323. ;--------------------------------------------------------------
  2324. ; Module Variable Table 
  2325. ; The following table has space for approximately 512 modules.
  2326. ; As modules are made active, they are appended to the end of the table.
  2327. ; Data format:
  2328. ;       word0:  modsrc addr
  2329. ;       word1:  priority
  2330. ;       word2:  vpage seg
  2331. ;       word3:  vpage addr
  2332. ;       word4:  output value
  2333. ;       word5:  input #1 pointer (to other output values)
  2334. ;       word6:  input #2 pointer
  2335. ;       word7:  etc.  - one entery for each input
  2336. ;
  2337.         even
  2338.         public  vartbl
  2339. vartbl  db      varsiz dup(0)
  2340. ;--------------------------------------------------------------
  2341. ; place to put screen 0 data
  2342. ; must use debug for this, or compile with debug = false to ignore
  2343. ; to do it, ren mb.exe to mb.foo, then debug mb.foo
  2344. ; find the data area with: S0 C000 "screen" 
  2345. ; load in the screen: NMB.SCR then L(address)
  2346. ; write out the file: RCX (give file bytes in original CX)
  2347. ;                     NMB.FOO then W
  2348. ; exit debug and rename MB.FOO to MB.EXE
  2349. ;
  2350.         public  modscr
  2351.         even
  2352. modscr  db      "screen"
  2353.         dw      2048  dup(0103h)
  2354. ;--------------------------------------------------------------
  2355. _DATA   ENDS
  2356.         END
  2357.  
  2358.