home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / assemblr / library / sound / midi / mbb.asm < prev    next >
Assembly Source File  |  1988-03-20  |  113KB  |  2,569 lines
  1.     TITLE    Modules for Modular Sequencer
  2.     NAME    MBB
  3.     .SALL
  4. ;==============================================================
  5. ; MusicBox Modular Sequencer, Version 2
  6. ; modules code
  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. ;_DATA   SEGMENT
  37. ;        ASSUME DS:DGROUP, CS:_TEXT
  38. ;--------------------------------------------------------------
  39.         extrn   _nextv:near,_nextx:near,_nextl:near,_nextt:near
  40.         extrn   _doit:near
  41. ;--------------------------------------------------------------
  42.         extrn   ticka:byte,tickis:byte
  43.         extrn   _header:byte
  44.         extrn   varsav:word,cmdflg:byte,special:word,cmdcnt:byte
  45.         extrn   locsav:word,cmdloc:word,vpage:word,curadr:word
  46.         extrn   valflg:byte
  47.         extrn   @zero:near,magflg:byte,usrflg:byte,holdv:word
  48.         extrn   colr:byte
  49. ;--------------------------------------------------------------
  50.         extrn   midisf:byte     ; 0=no sync, 1=send sync
  51.         extrn   midixsf:byte    ; 0=not xtrn sync, NZ=is
  52.         extrn   midiok:byte     ; 0=off/not init, 2=off&init, 3=on
  53.         extrn   mprstf:byte     ; master program reset flag
  54.         extrn   mpmodf:byte     ; master program mode flag
  55.         extrn   mpadrf:byte     ; nz if change in prog address
  56.         extrn   mpadr:byte      ; master program address
  57.         extrn   mmcount:word    ; master measure count
  58.         extrn   mmtick:word     ; ticks left in current measure
  59.         extrn   mmreset:byte    ; master measure reset flag
  60.         extrn   mmstart:byte    ; master measurd start flag
  61. ;--------------------------------------------------------------
  62.         extrn   rseed:word      ; random number seed
  63.         extrn   rhold:byte      ; rng hold flag
  64.         extrn   notetbl:byte    ; note -> clocks xlate
  65.         extrn   notes:word
  66.         extrn   interv:byte     ; intervals for modulation
  67.         ;
  68.         extrn   xcax:word       ; register storage, used by xcall
  69.         extrn   xcbx:word
  70.         extrn   xccx:word
  71.         extrn   xcdx:word
  72.         ;
  73.         extrn   temp0:byte      ; temp storage, use within module
  74.         extrn   temp1:byte
  75.         extrn   temp2:byte
  76.         extrn   temp3:byte
  77. ;--------------------------------------------------------------
  78. ; the following are saved/loaded
  79. ;--------------------------------------------------------------
  80.         extrn   mvlsav:abs      ; start of mod values to save
  81.         extrn   mute:word       ; channel mute flags
  82.         extrn   mutef:byte      ; 1=mute, 0=solo flag
  83.         ;
  84.         extrn   mbeat:byte      ; master beats/measure
  85.         extrn   mnote:byte      ; master note value
  86.         extrn   mtempo:byte     ; master tempo
  87.         extrn   mclocks:word    ; master clocks/measure
  88.         ;
  89.         extrn   ctrlmap:byte    ; midi controller map
  90.         extrn   pcva:byte       ; values sent to controller
  91.         extrn   pcvb:byte       ; values sent to controller
  92.         extrn   pcvc:byte       ; values sent to controller
  93.         extrn   pcvd:byte       ; values sent to controller
  94.         extrn   pcve:byte       ; values sent to controller
  95.         extrn   pcvf:byte       ; values sent to controller
  96.         ;
  97.         extrn   mvlnum:abs      ; number of mod values to save
  98. ;--------------------------------------------------------------
  99. ;_DATA   ENDS
  100. ;==============================================================
  101. ; Module Execution Code
  102. ; All inputs are word pointers to output word values.
  103. ; All outputs are binary words, with only the ls byte output.
  104. ;==============================================================
  105. ; EQUATES for modules
  106. ;
  107. vseg    equ 4                   ; offset to video seg addr
  108. vaddr   equ 6                   ; offset to video page addr
  109. outn    equ 8                   ; offset to output
  110. numvar  equ 10                  ; number of input variables
  111. var0    equ 12                  ; offset to variable 0
  112. var1    equ var0+2              ; offset to variable 1
  113. var2    equ var1+2              ; etc.
  114. var3    equ var2+2              ; etc.
  115. var4    equ var3+2              ; etc.
  116. var5    equ var4+2              ; etc.
  117. var6    equ var5+2              ; etc.
  118. var7    equ var6+2              ; etc.
  119. var8    equ var7+2              ; etc.
  120. var9    equ var8+2              ; etc.
  121. var10   equ var9+2              ; etc.
  122. var11   equ var10+2             ; etc.
  123. var12   equ var11+2             ; etc.
  124. var13   equ var12+2             ; etc.
  125. var14   equ var13+2             ; etc.
  126. var15   equ var14+2             ; etc.
  127. var16   equ var15+2             ; etc.
  128. var17   equ var16+2             ; etc.
  129. var18   equ var17+2             ; etc.
  130. var19   equ var18+2             ; etc.
  131. var20   equ var19+2             ; etc.
  132. var21   equ var20+2             ; etc.
  133. var22   equ var21+2             ; etc.
  134. slewc   equ var22               ; programmer slew buffer
  135. slewd   equ slewc+6             ; etc.
  136. slewe   equ slewd+6             ; etc.
  137. slewf   equ slewe+6             ; etc.
  138. pubuf   equ slewf+6             ; programmer undo buffer
  139. psbuf   equ pubuf+13            ; programmer save buffer
  140.         ;
  141. onflg   equ 1                   ; bit mask for note-on
  142. offlg   equ 2                   ; bit mask for note-off
  143. sentf   equ 4                   ; bit mask for note-sent
  144. ;--------------------------------------------------------------
  145. _TEXT   SEGMENT
  146.     ASSUME  CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: NOTHING
  147. ;--------------------------------------------------------------
  148.         extrn   ticks:word,loops:word,seconds:word,secondf:byte
  149.         extrn   todec:near,tonote:near,startm:near
  150.         extrn   _cancel:near,workx:near,split:near
  151.         extrn   turnon:near,turnoff:near
  152.         extrn   mstart:byte,mstop:byte,mcont:byte
  153.         extrn   allmidi:near
  154. ;==============================================================
  155.  
  156. ;==============================================================
  157. ; THE MODULES
  158. ;==============================================================
  159.         include    macros.asm
  160. ;==============================================================
  161. ; generate melody & chord changes from input base & intervals
  162. ;--------------------------------------------------------------
  163. ; inputs:
  164. ;    0:   chord array location (16 possible arrays of 4 values)
  165. ;    1:   base input value
  166. ;    2:   1st interval above base
  167. ;    3:   2nd interval above base
  168. ;    4:   3rd interval above base
  169. ;    5:   nz = normalize to octave
  170. ;    6:   offset to base
  171. ;    7:   nz = sort
  172. ;    8:   foldover range
  173. ;    9:   doit strobe
  174. ;    10x: clock ticks
  175. ; output: root # (always 0 unless sort)
  176. ;--------------------------------------------------------------
  177.         public _cgen 
  178. _cgen:
  179.         tick    var9,var10              ; clock strobe
  180.         jc      cgen0                   ; yes, go do it
  181.         jmp     cgenz                   ; exit if no tick
  182.         ;
  183. cgen0:  getv    al,var0                 ; get array location
  184.         and     ax,15                   ; mask
  185.         add     ax,ax                   ; *4
  186.         add     ax,ax                   ; /
  187.         add     ax,offset dgroup:interv ; add in int table addr
  188.         mov     bp,ax                   ; save in bp
  189.         ;       
  190.         getv    al,var1                 ; get input
  191.         testv   var5,-1                 ; want to normalize?
  192.         jz      cgen1                   ; no, branch
  193.         normal                          ; yes, normalize to octave
  194.         mov     al,ah                   ; put back in al
  195.         ;
  196. cgen1:  getv    ah,var6                 ; get offset
  197.         add     al,ah                   ; add to root
  198.         ;
  199.         getv    ah,var2                 ; add intervals to root
  200.         add     ah,al                   ;       /
  201.         getv    dl,var3                 ;      /
  202.         add     dl,al                   ;     /
  203.         getv    dh,var4                 ;    /
  204.         add     dh,al                   ;   /
  205.         ;
  206.         mov     byte ptr outn[di],0     ; root is 0
  207.         testv   var7,-1                 ; want to sort
  208.         jnz     cgen4                   ; yes, do it
  209.         jmp     cgenx                   ; no, exit
  210.         ;
  211. cgen4:  push    ax                      ; save root
  212.         getv    al,var8                 ; get max octave range
  213.         and     al,15                   ; limit
  214.         mov     ch,12                   ;   /
  215.         mul     ch                      ;  /
  216.         add     ch,al                   ; ch = range
  217.         pop     ax                      ; restore root
  218.         ;
  219.         range   al,ch                   ; put in range
  220.         range   ah,ch                   ; put in range
  221.         range   dl,ch                   ; put in range 
  222.         range   dh,ch                   ; put in range 
  223.         ;
  224.         mov     cl,al                   ; save root in cl
  225.         sort4                           ; sort
  226.         mov     ch,0                    ; look for root
  227.         cmp     al,cl                   ;         /
  228.         jz      cgen3                   ;        /
  229.         inc     ch                      ;       /
  230.         cmp     ah,cl                   ;      /
  231.         jz      cgen3                   ;     /
  232.         inc     ch                      ;    /
  233.         cmp     dl,cl                   ;   /
  234.         jz      cgen3                   ;  /
  235.         inc     ch                      ; /
  236. cgen3:  mov     byte ptr outn[di],ch    ; send root # to output
  237.         ;
  238. cgenx:  mov     ds:[bp],ax              ; set chord values
  239.         mov     ds:2[bp],dx             ; /
  240. cgenz:  nextv                           ; exit
  241. ;==============================================================
  242. ; set new chords table data from 4 inputs
  243. ;--------------------------------------------------------------
  244. ; inputs:
  245. ;    0:   chord array location (16 possible arrays of 4 values)
  246. ;    1:   root input
  247. ;    2:   1st interval input
  248. ;    3:   2nd interval input
  249. ;    4:   3rd interval input
  250. ;    5:   nz = normalize to octave
  251. ;    6:   offset to base
  252. ;    7:   nz = sort
  253. ;    8:   foldover range
  254. ;    9:   doit strobe
  255. ;    10x: clock ticks
  256. ; output: root # (always 0 unless sort)
  257. ;--------------------------------------------------------------
  258.         public _cmak 
  259. _cmak:
  260.         tick    var9,var10              ; clock strobe
  261.         jc      cmak0                   ; yes, go do it
  262.         jmp     cmakz                   ; exit if no tick
  263.         ;
  264. cmak0:  getv    al,var0                 ; get array location
  265.         and     ax,15                   ; mask
  266.         add     ax,ax                   ; *4
  267.         add     ax,ax                   ; /
  268.         add     ax,offset dgroup:interv ; add in int table addr
  269.         mov     bp,ax                   ; save in bp
  270.         ;       
  271.         getv    cl,var6                 ; get offset
  272.         getv    al,var1                 ; get inputs
  273.         add     al,cl                   ; add offset
  274.         getv    ah,var2                 ;      /
  275.         add     ah,cl                   ;     /
  276.         getv    dl,var3                 ;    /
  277.         add     dl,cl                   ;   /
  278.         getv    dh,var4                 ;  /
  279.         add     dh,cl                   ; /
  280.         ;
  281.         testv   var5,-1                 ; want to normalize?
  282.         jz      cmak1                   ; no, branch
  283.         mov     cx,ax                   ; yes, save ax
  284.         mov     bx,dx                   ; save dx
  285.         normal                          ; normalize
  286.         mov     cl,ah                   ;          /
  287.         mov     al,ch                   ;         /
  288.         normal                          ;        /
  289.         mov     ch,ah                   ;       /
  290.         mov     al,bl                   ;      /
  291.         normal                          ;     /
  292.         mov     bl,ah                   ;    /
  293.         mov     al,bh                   ;   /
  294.         normal                          ;  /
  295.         mov     bh,ah                   ; /
  296.         mov     ax,cx                   ; restore to ax,dx
  297.         mov     dx,bx                   ; /
  298.         ;
  299. cmak1:  mov     byte ptr outn[di],0     ; root is 0
  300.         testv   var7,-1                 ; want to sort
  301.         jnz     cmak4                   ; yes, do it
  302.         jmp     cmakx                   ; no, exit
  303.         ;
  304. cmak4:  push    ax                      ; save root
  305.         getv    al,var8                 ; get max octave range
  306.         and     al,15                   ; limit
  307.         mov     ch,12                   ;   /
  308.         mul     ch                      ;  /
  309.         add     ch,al                   ; ch = range
  310.         pop     ax                      ; restore root
  311.         ;
  312.         range   al,ch                   ; put in range
  313.         range   ah,ch                   ; put in range
  314.         range   dl,ch                   ; put in range 
  315.         range   dh,ch                   ; put in range 
  316.         ;
  317.         mov     cl,al                   ; save root in cl
  318.         sort4                           ; sort
  319.         mov     ch,0                    ; look for root
  320.         cmp     al,cl                   ;         /
  321.         jz      cmak3                   ;        /
  322.         inc     ch                      ;       /
  323.         cmp     ah,cl                   ;      /
  324.         jz      cmak3                   ;     /
  325.         inc     ch                      ;    /
  326.         cmp     dl,cl                   ;   /
  327.         jz      cmak3                   ;  /
  328.         inc     ch                      ; /
  329. cmak3:  mov     byte ptr outn[di],ch    ; send root # to output
  330.         ;
  331. cmakx:  mov     ds:[bp],ax              ; set chord values
  332.         mov     ds:2[bp],dx             ; /
  333. cmakz:  nextv                           ; exit
  334. ;==============================================================
  335. ; select interval from modulated interval table
  336. ; inputs:
  337. ;    0:   clock
  338. ;    1:   location
  339. ;    2:   interval step
  340. ;    3:   nz = sort
  341. ;    4:   offset
  342. ;    5x:  clock tick
  343. ; output: note interval
  344. ;--------------------------------------------------------------
  345.         public _cplay,_cplai
  346. _cplai: nop                             ; 2 sets of modules
  347. _cplay: tick    var0,var5               ; clock
  348.         jnc     cplayz                  ; branch if no tick
  349.         getv    cl,var1                 ; get interval address
  350.         and     cx,15                   ; mask
  351.         add     cx,cx                   ; *4
  352.         add     cx,cx                   ; /
  353.         add     cx,offset dgroup:interv ; cx = interval address
  354.         ;
  355.         testv   var3,-1                 ; wanna sort?   
  356.         jz      cplay1                  ; no, branch
  357.         ;
  358.         mov     bx,cx                   ; pick up intervals
  359.         mov     ax,[bx]                 ;  /
  360.         mov     dx,2[bx]                ; /
  361.         sort4                           ; sort them
  362.         mov     word ptr temp0,ax       ; put in temp array
  363.         mov     word ptr temp2,dx       ; /
  364.         mov     cx,offset dgroup:temp0  ; cx = sorted interval addr
  365.         ;
  366. cplay1: getv    bl,var2                 ; get interval number
  367.         and     bx,3                    ; mask
  368.         add     bx,cx                   ; bx = table index
  369.         mov     al,[bx]                 ; get the interval
  370.         ;
  371.         getv    ah,var4                 ; get offset
  372.         add     al,ah                   ; add offset to interval
  373.         putn    al                      ; send it out
  374. cplayz: nextv                           ; exit
  375. ;==============================================================
  376. ; store value to interval table
  377. ; inputs:
  378. ;    0:   chord array location (16 possible arrays of 4 values)
  379. ;    1:   location in array
  380. ;    2:   base input value
  381. ;    3:   nz = normalize to octave
  382. ;    4:   offset to base
  383. ;    5:   doit strobe
  384. ;    6x:  clock tick 
  385. ;
  386. ; output: previous value at address
  387. ;--------------------------------------------------------------
  388.         public _cstor
  389. _cstor: tick    var5,var6               ; strobe?
  390.         jnc     cstorz                  ; no, exit
  391.         ;
  392.         getv    al,var2                 ; get input
  393.         testv   var3,-1                 ; want to normalize?
  394.         jz      cstor1                  ; no, branch
  395.         normal                          ; yes, normalize to octave
  396.         mov     al,ah                   ; put back in al
  397.         ;
  398. cstor1: getv    ah,var4                 ; get offset
  399.         add     al,ah                   ; add to input
  400.         ;
  401.         getv    cl,var0                 ; get interval address
  402.         and     cx,15                   ; mask
  403.         add     cx,cx                   ; *4
  404.         add     cx,cx                   ; /
  405.         add     cx,offset dgroup:interv ; cx = interval address
  406.         ;
  407.         getv    bl,var1                 ; get interval number
  408.         and     bx,3                    ; mask
  409.         add     bx,cx                   ; bx = table index
  410.         ;
  411.         xchg    al,[bx]                 ; swap old with new
  412.         putn    al                      ; send old to output
  413. cstorz: nextv                           ; exit
  414. ;==============================================================
  415. ; generate bass note line, dithered input a,b
  416. ; inputs:
  417. ;    0:   clock
  418. ;    1:   nz = hold
  419. ;    2:   strobe center to output
  420. ;    3:   center
  421. ;    4:   max distance from center
  422. ;    5:   nz = use -, z = use +
  423. ;    6:   input "a"
  424. ;    7:   input "b"
  425. ;    8x:  
  426. ;    8z:  clock tick, init flag
  427. ; output: new bass note
  428. ;--------------------------------------------------------------
  429.         public _bassd 
  430. _bassd:
  431.         tickb1  var2,var8+1             ; strobe clock?
  432.         jnc     bassd4                  ; branch if no strobe
  433.         and     byte ptr var8+1[di],0fbh; yes, flag/auto initialize
  434. bassd4: tick    var0,var8+1             ; wait for clock tick
  435.         jnc     bassdz                  ; exit if not clock
  436.         hold    var1                    ; hold?
  437.         jnz     bassdz                  ; exit if hold
  438.         ;
  439.         test    byte ptr var8+1[di],4   ; was flag set?
  440.         jnz     bassd1                  ; no, branch
  441.         or      byte ptr var8+1[di],4   ; yes, clear flag
  442. bassd0: getv    al,var3                 ; get the input
  443.         putn    al                      ; send it to output
  444.         jmp     short bassdz            ; exit
  445.         ;
  446. bassd1: getv    al,var6                 ; load for "a"
  447.         testv   var5,-1                 ; test for +/-
  448.         jz      bassd2                  ; branch if +
  449.         getv    al,var7                 ; load for "b"
  450.         neg     al                      ; make "b" -
  451. bassd2: add     outn[di],al             ; add the offset
  452.         ;
  453.         getv    al,var3                 ; get center
  454.         getv    ah,var4                 ; get max
  455.         mov     dl,al                   ; test for upper limit
  456.         add     dl,ah                   ;  /
  457.         cmp     dl,outn[di]             ; /
  458.         jb      bassd0                  ; reset if above limit
  459.         sub     al,ah                   ; test for lower limit
  460.         cmp     outn[di],al             ; /
  461.         jb      bassd0                  ; reset if below limit
  462. bassdz: nextv                           ; exit
  463. ;==============================================================
  464. ; Bit Formatter
  465. ; inputs: 1 - 8: bit set inputs, zero clrs, nz sets
  466. ; output: byte formatted from the 8 inputs
  467. ;--------------------------------------------------------------
  468.         public _gout
  469. _gout:  
  470.         gettag                  ; es:bx = screen addr of tag
  471.         dec     bx              ; point to leds
  472.         add     bx,480          ; point to the first bit led
  473.         mov     ax,bx           ; ax = screen address pointer
  474.         mov     bp,var0         ; bp = addr of first variable
  475.         mov     dx,100H         ; dl=0, dh=1
  476.         mov     cx,8            ; gonna do 8 bits
  477. gout1:  mov     bx,ds:[bp+di]   ; get the variable address
  478.         cmp     byte ptr [bx],0 ; test for zero/not zero
  479.         mov     bx,ax           ; get screen address
  480.         jnz     gout2           ; branch if not zero
  481.         mov     byte ptr es:[bx],yellow; turn off the led
  482.         jmp     short gout3     ; branch to finish up
  483. gout2:  mov     byte ptr es:[bx],hi+red; turn on the led
  484.         or      dl,dh           ; set the bit
  485. gout3:  shl     dh,1            ; bump bit flag
  486.         add     ax,160          ; bump screen addr 1 line
  487.         add     bp,2            ; bump variable pointer
  488.         loop    gout1           ; loop til done
  489.         putn    dl              ; set the new byte value
  490.         nextv                   ; exit w screen update
  491. ;==============================================================
  492. ; Display bits in a byte as gate lites
  493. ; inputs: 0: byte 
  494. ; output: none
  495. ;--------------------------------------------------------------
  496.         public _gatel
  497. _gatel: 
  498.         getv    al,var0         ; get the byte
  499.         gettag                  ; es:bx = screen addr of tag
  500.         dec     bx              ; point to leds
  501.         add     bx,480          ; point to the first bit led
  502.         mov     cx,8            ; 8 bits to do
  503. gatel1: shr     al,1            ; bit --> cy
  504.         jc      gatel2          ; branch if the bit is hi
  505.         and     byte ptr es:[bx],7; turn the led off
  506.         jmp     short gatel3    ; branch
  507. gatel2: or      byte ptr es:[bx],8; turn the led on
  508. gatel3: add     bx,160          ; go down 1 line
  509.         loop    gatel1          ; do all 8 bits
  510.         nextx                   ; exit quiet
  511.  
  512. ;==============================================================
  513. ; Display values as an indicator bar
  514. ; linear display
  515. ; inputs: 0: left row, 1: right 2: scale
  516. ;         3x: left save, 3z: right save
  517. ; output: none
  518. ;--------------------------------------------------------------
  519.         public _imeter
  520. _imeter:
  521.         getv    al,var0         ; al = left value
  522.         getv    dl,var1         ; dl = right value
  523.         getv    dh,var2         ; dh = scale
  524.         or      dh,dh           ; scale = 0?
  525.         jnz     imeter0         ; no, branch
  526.         inc     dh              ; yes, start with 1
  527. imeter0:mov     es,4[di]        ; get seg addr
  528.         mov     bx,6[di]        ; get module screen address
  529.         add     bx,160*5        ; point to top row of leds
  530.         ;
  531.         inc     bx              ; point to left leds
  532.         cmp     al,var3[di]     ; has left changed
  533.         jz      imeter4         ; no, branch
  534.         mov     var3[di],al     ; yes, save new value
  535.         push    dx              ; save right value & scale
  536.         or      al,al           ; al = 0 ?
  537.         jz      imeter7         ; yes, don't divide
  538.         mov     ah,0            ; ax = left value
  539.         div     dh              ; al = ax/dl
  540. imeter7:call    imeter1         ; show the new value
  541.         pop     dx              ; restore right value & scale
  542. imeter4:add     bx,2            ; point to right column
  543.         cmp     dl,var3+1[di]   ; did middle change
  544.         jz      imeter6         ; no, branch
  545.         mov     var3+1[di],dl   ; yes, save the new value
  546.         mov     al,dl           ; al = right value
  547.         or      al,al           ; al = 0 ?
  548.         jz      imeter8         ; yes, don't divide
  549.         mov     ah,0            ; ax = left value
  550.         div     dh              ; al = ax/dl
  551. imeter8:call    imeter1         ; show the new value
  552. imeter6:nextx                   ; exit quiet
  553.  
  554. ;--------------------------------------------------------------
  555. ; convert linear 0-8 to log bit position
  556. ; then jump to emeter1 to display
  557. ; call with al = value 
  558. ;
  559. imeter1:test    al,0f8h         ; if > 7, max out
  560.         jz      imeter2         ;   /
  561.         mov     dl,-1           ;  /
  562.         jmp     short imeter3   ; /
  563. imeter2:mov     cl,al           ; else convert
  564.         xor     al,al           ;    /
  565.         stc                     ;   /
  566.         rcl     al,cl           ;  /
  567.         mov     dl,al           ; /
  568. imeter3:jmp     emeter1         ; display
  569.  
  570. ;==============================================================
  571. ; Display values as an indicator bar
  572. ; inputs: 0: left row, 1: right 2: scale
  573. ;         3x: left save, 3z: right save
  574. ; output: none
  575. ;--------------------------------------------------------------
  576.         public _emeter
  577. _emeter:
  578.         getv    al,var0         ; al = left value
  579.         getv    dl,var1         ; dl = right value
  580.         getv    dh,var2         ; dh = multiplier
  581.         or      dh,dh           ; mult = 0?
  582.         jnz     emeter0         ; no, branch
  583.         inc     dh              ; yes, start with 1
  584. emeter0:mov     es,4[di]        ; get seg addr
  585.         mov     bx,6[di]        ; get module screen address
  586.         add     bx,160*5        ; point to top row of leds
  587.         ;
  588.         inc     bx              ; point to left leds
  589.         cmp     al,var3[di]     ; has left changed
  590.         jz      emeter4         ; no, branch
  591.         mov     var3[di],al     ; yes, save new value
  592.         push    dx              ; save right value & mult
  593.         mul     dh              ; ax = bumped right value
  594.         or      ah,ah           ; > 255 ?
  595.         jz      emeter5         ; no, branch
  596.         mov     al,255          ; yes, make it 255
  597. emeter5:mov     dl,al           ; set up for display
  598.         call    emeter1         ; show the new value
  599.         pop     dx              ; restore right value & scale
  600. emeter4:add     bx,2            ; point to right column
  601.         mov     al,dl           ; al = right value
  602.         cmp     al,var3+1[di]   ; did right change
  603.         jz      emeter6         ; no, branch
  604.         mov     var3+1[di],al   ; yes, save the new value
  605.         mul     dh              ; ax = bumped right value
  606.         or      ah,ah           ; > 255 ?
  607.         jz      emeter7         ; no, branch
  608.         mov     al,255          ; yes, make it 255
  609. emeter7:mov     dl,al           ; set up for display
  610.         call    emeter1         ; show the new value
  611. emeter6:nextx                   ; exit quiet
  612.  
  613. ;--------------------------------------------------------------
  614. ; subroutine to show a column of leds
  615. ; call with BX = address of top of column (preserved), DL = value
  616. ; display is log, sets top led high and all following if
  617. ; bit 7 is set, else sets top led low, then top-1 if bit 6, etc.
  618. ;
  619. emeter1:push    bx              ; preserve bx
  620.         mov     dh,0            ; use dh as flag byte
  621.         mov     cx,8            ; 8 leds in the column
  622. emeterl:shl     dx,1            ; bump hi bit of dl into dh
  623.         test    dh,-1           ; on or off?
  624.         jz      emeter2         ; branch if off
  625.         or      byte ptr es:[bx],8    ; make bright
  626.         jmp     short emeter3         ; duck
  627. emeter2:and     byte ptr es:[bx],0f7h ; or make dark  
  628. emeter3:add     bx,160          ; next line
  629.         loop    emeterl         ; loop til done 
  630.         pop     bx              ; restore bx
  631.         ret                     ; exit
  632. ;==============================================================
  633. ; Set output to approximately the same as input, within limits
  634. ; inputs: 0: input 1: upper limit, 2: lower limit, 
  635. ;         3x: last input
  636. ; output: scaled random number
  637. ;--------------------------------------------------------------
  638.         public _apprx
  639. _apprx: 
  640.         getv    dl,var0         ; get the value
  641.         test    rhold,-1        ; branch if alpha seed
  642.         jnz     appr1           ; /
  643.         cmp     dl,var3[di]     ; same as last?
  644.         jnz     appr1           ; no, go to work
  645.         nextx                   ; yes, easy exit
  646.         ;
  647. appr1:  mov     var3[di],dl     ; set new value
  648.         random
  649.         getv    al,var1         ; get upper offset
  650.         inc     al              ; fudge
  651.         add     al,dl           ; add in value
  652.         mov     ah,0            ; msb = 0
  653.         getv    bl,var2         ; get lower offset
  654.         sub     dl,bl           ; subtract from value
  655.         mov     bl,dl           ; keep it in bl
  656.         mov     bh,0            ; msb = 0
  657.         sub     ax,bx           ; ax = upper - lower
  658.         mul     cx              ; dx = appr * (upper-lower)/10000H
  659.         add     dx,bx           ; dx = above + lower 
  660.         putn    dl              ; send it out
  661.         nextv                   ; exit with video update
  662. ;==============================================================
  663. ; Generate random numbers
  664. ; inputs: 0: clock 1: hold 2: seed value, 3: range, 4: offset, 
  665. ;         5: seed, 6x: saved value,   6z: clock-tick
  666. ; output: random number
  667. ;--------------------------------------------------------------
  668.         public _rand
  669. _rand:
  670.         mov     ah,var6[di]     ; get last value
  671.         ;
  672.         getv    al,var1         ; local hold?
  673.         or      al,rhold        ; global rand hold?
  674.         jz      rand0           ; no, branch
  675. rand2:  getv    al,var2         ; yes, reset seed
  676.         mov     ah,al           ;  /
  677.         mov     var5[di],ax     ; /
  678.         jmp     rand1a          ; go out
  679.         ;
  680. rand0:  test    mprstf,-1       ; master hold?
  681.         jnz     rand1           ; yes, branch
  682.         ;
  683.         tick    var0,var6+1     ; clock tick
  684.         jnc     rand1           ; branch if no tick
  685.         ;
  686.         mov     cx,var5[di]     ;; get next raw seed
  687.         add     cx,9248H        ;;     /
  688.         ror     cx,1            ;;    /
  689.         ror     cx,1            ;;   /
  690.         ror     cx,1            ;;  /
  691.         mov     var5[di],cx     ;; /
  692.         ;
  693.         getv    al,var3         ; get range
  694.         mul     cl              ; ah = rand * range /256
  695. rand1a: mov     var6[di],ah     ; put it away
  696. rand1:  getv    al,var4         ; get offset
  697.         add     al,ah           ; put them together
  698.         putn    al              ; send it out
  699.         nextv                   ; exit
  700. ;==============================================================
  701. ; Non-repeating random pattern
  702. ; inputs: 0: clock 1: hold  2: seed value, 3: inc/dec, 4: range
  703. ;         5x: saved value, 5z: clock-tick, 6: address pointer
  704. ; output: random number
  705. ;--------------------------------------------------------------
  706.         public _rrand
  707. _rrand:
  708.         getv    cl,var4         ; get range
  709.         cmp     cl,1            ; check for 0,1
  710.         jna     rrand0          ; split if 0
  711.         mov     dx,1            ; for inc/dec
  712.         testv   var3,-1         ; dec if nz
  713.         jz      rrand03         ;  /
  714.         mov     dx,-1           ; /
  715.         ;
  716. rrand03:
  717.         getv    al,var1         ; local hold?
  718.         or      al,rhold        ; global rand hold?
  719.         jz      rrand01         ; no, branch
  720. rrand2: getv    al,var2         ; yes, get seed
  721.         putn    al              ; send it out
  722.         mov     ah,64           ;   /
  723.         mul     ah              ;  /
  724.         mov     var6[di],ax     ; /
  725.         jmp     rrandx          ; split
  726.         ;
  727. rrand01:test    mprstf,-1       ; master hold?
  728.         jnz     rrand0          ; yes, branch
  729.         ;
  730.         tick    var0,var5+1     ; clock tick
  731.         jc      rrand1          ; branch if tick
  732. rrand0: nextx                   ; else just split
  733.         ;
  734. rrand1: add     var6[di],dx     ; bump pointer
  735. rrandz: mov     bx,var6[di]     ; get it
  736.         and     bx,3fffh        ; keep in code range
  737.         add     bx,offset _doit ; start of code
  738.         mov     ax,cs:[bx]      ; get the byte
  739.         add     al,ah           ; fill it out
  740.         mul     cl              ; ah = rand * range /256
  741.         cmp     ah,var5[di]     ; same as last?
  742.         jz      rrand1          ; yes, do it again
  743.         mov     var5[di],ah     ; no, save it
  744.         putn    ah              ; send it out
  745. rrandx: nextv                   ; exit
  746. ;==============================================================
  747. ; Random strobe generator
  748. ; output: 50% strobe
  749. ; input: 0: strobe, 1x: clock tick
  750. ;--------------------------------------------------------------
  751.         public _randp
  752. _randp:
  753.         mov     cl,0            ; setup for hold
  754.         test    mprstf,-1       ; check alpha hold
  755.         jnz     randpx          ; yes, exit
  756.         tick    var0,var1       ; clock input
  757.         jnc     randpz          ; exit if no clock
  758.         random                  ; get random value
  759.         and     cl,1            ; isolate lsb
  760. randpx: putn    cl              ; send it our
  761. randpz: nextl                   ; show it
  762. ;==============================================================
  763. ; Random strobe generator
  764. ; output: clock strobe
  765. ; input: 0: reset, 1: count, 2: offset 3: dither
  766. ;        4x:countdown timer, 4z: copy of count
  767. ;--------------------------------------------------------------
  768.         public _nrand
  769. _nrand: testv   var1,-1         ; clock = 0
  770.         jz      nrandz          ; yes, just exit
  771.         hold    var0            ; hold?
  772.         jz      nrand0          ; no, branch
  773.         mov     al,byte ptr cs:loops; get count
  774.         and     al,1            ; /
  775.         mov     var4[di],al     ; reset clock counters
  776.         jmp     short nrandz    ; split
  777.         ;
  778. nrand0: getv    ah,var1         ; get current count
  779.         cmp     ah,var4+1[di]   ; same as before?
  780.         jz      nrand1          ; yes, branch
  781.         cmp     ah,1            ; set to 1?
  782.         jnz     nrand3          ; no, branch
  783.         mov     ah,2            ; yes, set to 2
  784. nrand3: mov     al,byte ptr cs:loops; get count
  785.         and     al,1            ; /
  786.         mov     var4[di],ax     ; /
  787.         ;
  788. nrand1: getv    al,var2         ; get offset trigger
  789.         cmp     al,ah           ; out of range?
  790.         jb      nrand4          ; no, branch
  791.         mov     al,0            ; yes, zip it
  792. nrand4: cmp     al,var4[di]     ; same as count?
  793.         jnz     nrand2          ; no, branch
  794.         random                  ; yes, get random value
  795.         getv    ch,var3         ; get ddithr value
  796.         sub     ch,cl           ; above threshold?
  797.         jna     nrand2          ; no, branch
  798.         mov     byte ptr outn[di],1; else output flag
  799.         ;
  800. nrand2: inc     byte ptr var4[di]; tick
  801.         cmp     ah,var4[di]     ; reached count?
  802.         jnz     nrandz          ; no, exit
  803.         mov     byte ptr var4[di],0; yes, reset timer
  804. nrandz: nextt                   ; exit
  805. ;==============================================================
  806. ; Random slope output
  807. ; inputs 0: count,    1: range,  
  808. ;        2x: target,  2+:
  809. ;        3x: current, 3+: +/-
  810. ;        4x: clock,   4+: old clock    
  811. ;
  812. ; ouput  last +/- 1
  813. ;--------------------------------------------------------------
  814.         public _variz,_variy
  815. _variy: nop
  816. _variz:
  817.         getv    dh,var1                 ; get range input
  818.         getv    al,var0                 ; get clock
  819.         ;
  820.         test    dh,80H                  ; test msb of range for reset
  821.         jnz     varizz                  ; go reset if high
  822.         ;
  823.         test    mprstf,-1               ; check for master reset
  824.         jnz     varizz                  ; reset if high
  825.         ;
  826.         test    rhold,-1                ; check for random reset
  827.         jnz     varizz                  ; reset if high
  828.         ;
  829.         cmp     al,var4+1[di]           ; clock same as before
  830.         jz      variz0                  ; yes, go to work
  831.         jmp     varizk                  ; no, fix clock
  832. ;--------------------------------------------------------------
  833. varizz: and     dh,7fh                  ; strip msb
  834.         putn    dh                      ; send it out
  835.         mov     var2[di],dh             ; set as target
  836.         mov     byte ptr var3+1[di],1   ; set to count up
  837.         shr     dh,1                    ; current is range/2
  838.         shr     dh,1                    ; current is range/2
  839.         mov     var3[di],dh             ;  /
  840.         ;
  841. varizk: mov     var4+1[di],al           ; save clock
  842.         mov     byte ptr var4[di],1     ; new one next clock
  843.         nextv                           ; split
  844. ;--------------------------------------------------------------
  845. varizzx:nextx                           ; split
  846. variz0: dec     byte ptr var4[di]       ; bump clock
  847.         jnz     varizzx                 ; exit if not 0
  848.         getv    al,var0                 ; else get it
  849.         mov     var4+1[di],al           ; save clock
  850.         inc     al                      ; bump
  851.         mov     var4[di],al             ; put away
  852. ;--------------------------------------------------------------
  853.         mov     dl,var3[di]             ; get current value
  854.         add     dl,var3+1[di]           ; add bump
  855.         mov     var3[di],dl             ; put it away
  856.         cmp     dl,var2[di]             ; reached target?
  857.         jnz     variz2                  ; no, branch
  858.         ;
  859. variz1: random                          ; get new rand
  860.         mov     al,dh                   ; get range
  861.         test    ch,0E0H                 ; 3/4 of the time
  862.         jz      variz1a                 ; ... use it straight
  863.         rcr     cl,1                    ; ... else cut 1/2
  864.         jnc     variz1a                 ; ... and maybe more
  865.         shr     cl,1                    ; ... cut again
  866. variz1a:mul     cl                      ; ah = rand * range /256
  867.         ;
  868.         mov     byte ptr var3+1[di],0ffh; set up for inc
  869.         cmp     ah,var2[di]             ; is it < target?
  870.         jb      variz3                  ; yes,is <, exit
  871.         mov     byte ptr var3+1[di],1   ; no, set up for dec
  872.         jnz     variz3                  ; exit if <>
  873.         inc     ah                      ; else bump
  874. variz3:
  875.         mov     var2[di],ah             ; save new target
  876. variz2:
  877.         shr     dh,1                    ; calc offset
  878.         shr     dh,1                    ; calc offset
  879.         add     dl,dh                   ; add in count
  880.         jns     variz2a                 ; branch if <= 7fh
  881.         mov     dl,7fh                  ; else make 7fh
  882. variz2a:putn    dl                      ; send it out
  883.         nextv                           ; exit
  884. ;==============================================================
  885. ; Random slope output
  886. ; inputs 0: clock 1: hold, 2: range 3: offset
  887. ;        4x: +/-  4+: clock tick, 5x: target, 5+: current
  888. ; ouput  last +/- 1
  889. ;--------------------------------------------------------------
  890.         public _variv
  891. _variv:
  892.         test    rhold,-1                ; check for random reset
  893.         jnz     variv00                 ; reset if high
  894.         ;
  895.         hold    var1                    ; hold?
  896.         jz      variv0                  ; no, branch
  897. variv00:mov     ah,var5+1[di]           ; yes, get current
  898.         getv    al,var3                 ; get offset
  899.         add     al,ah                   ; put them together
  900.         putn    al                      ; send it   
  901.         ;
  902.         inc     ah                      ; bump current
  903.         mov     var5[di],ah             ; set up target
  904.         mov     byte ptr var4[di],1     ; set up counter
  905.         nextv                           ; exit
  906. ;--------------------------------------------------------------
  907. variv0:
  908.         tick    var0,var4+1             ; clock tick
  909.         jc      variv1                  ; branch if tick
  910.         nextx                           ; else just exit
  911. ;--------------------------------------------------------------
  912. variv1: mov     dl,var5+1[di]           ; get current value
  913.         add     dl,var4[di]             ; add bump
  914.         mov     var5+1[di],dl           ; put it away
  915.         cmp     dl,var5[di]             ; reached target?
  916.         jnz     variv2                  ; no, branch
  917.         ;
  918.         random                          ; else get new rand
  919.         getv    al,var2                 ; get range
  920.         mul     cl                      ; ah = rand * range /256
  921.         ;
  922.         mov     byte ptr var4[di],-1    ; set up for inc
  923.         cmp     ah,var5[di]             ; is it < target?
  924.         jb      variv3                  ; yes,is <, exit
  925.         mov     byte ptr var4[di],1     ; no, set up for dec
  926.         jnz     variv3                  ; exit if <>
  927.         inc     ah                      ; else bump
  928. variv3:
  929.         mov     var5[di],ah             ; save new target
  930. variv2:
  931.         getv    al,var3                 ; get offset
  932.         add     al,dl                   ; add current
  933.         putn    al                      ; send it out
  934.         nextv                           ; exit
  935. ;==============================================================
  936. ; Random slope output
  937. ; inputs 0:  clock 
  938. ;        1:  hold
  939. ;        2:  addamt
  940. ;        3:  range 
  941. ;        4:  offset
  942. ;        5x: target
  943. ;        6x: count
  944. ;        6+: b7=sign, b0=clock tick
  945. ;
  946. ; output: count+offset
  947. ;--------------------------------------------------------------
  948.         public _varix
  949. _varix:
  950.         test    rhold,-1                ; check for random reset
  951.         jnz     varix00                 ; reset if high
  952.         ;
  953.         hold    var1                    ; hold?
  954.         jz      varix0                  ; no, branch
  955. varix00:mov     byte ptr var6[di],0     ; yes count = 0
  956.         mov     byte ptr var5[di],0     ; target = 1
  957.         and     byte ptr var6+1[di],7FH ; set sign bit
  958. varixz: jmp     varixx                  ; exit w count+offset
  959. ;--------------------------------------------------------------
  960. varix0:
  961.         tick    var0,var6+1             ; clock tick
  962.         jc      varix1                  ; branch if tick
  963.         nextx                           ; else just exit
  964. ;--------------------------------------------------------------
  965. varix1: getv    al,var2                 ; get add ammt
  966.         getv    ah,var3                 ; is add amb > range
  967.         cmp     al,ah                   ; add amt - range
  968.         jnb     varixz                  ; yes, just exit
  969.         ;       
  970.         mov     ah,0                    ; ax = add amt
  971.         mov     dl,var6[di]             ; get count
  972.         mov     dh,0                    ; dx = count
  973.         ;
  974.         test    byte ptr var6+1[di],80H ; sign = count down?
  975.         jnz     varix1a                 ; yes, branch
  976.         ;
  977.         add     dx,ax                   ; dx = count + add amt
  978.         mov     al,var5[di]             ; get target
  979.         mov     ah,0                    ; ax = target
  980.         cmp     ax,dx                   ; target - new count
  981.         jnb     varix4                  ; send if target > nc
  982.         jmp     varix2                  ; else get a new one
  983. ;--------------------------------------------------------------
  984. varix1a:sub     dx,ax                   ; dx = count - add amt
  985.         jnc     varix1b                 ; make 0 if underflow
  986.         mov     dx,0                    ; /
  987. varix1b:mov     al,var5[di]             ; get target
  988.         mov     ah,0                    ; ax = target
  989.         cmp     ax,dx                   ; target - new count
  990.         jna     varix4                  ; send if target < nc
  991. ;       jmp     varix2                  ; else get a new one
  992. ;--------------------------------------------------------------
  993. varix2: random                          ; else get new rand
  994.         getv    al,var3                 ; get range
  995.         or      al,al                   ; exit if range=0
  996.         jz      varixx                  ; /
  997.         mul     cl                      ; ah = rand * range /256
  998.         or      ah,ah                   ; don't want 0
  999.         jz      varix2                  ; /  
  1000.         xchg    var5[di],ah             ; save new target
  1001.         mov     var6[di],ah             ; set count to old target
  1002.         cmp     ah,var5[di]             ; old - new
  1003.         ja      varix2a                 ; old >  new, go count down
  1004.         ;
  1005.         and     byte ptr var6+1[di],7FH ; clear sign
  1006.         getv    al,var2                 ; get add ammt
  1007.         mov     ah,0                    ; ax = add amt
  1008.         mov     dl,var6[di]             ; get count
  1009.         mov     dh,0                    ; dx = count
  1010.         add     dx,ax                   ; dx = count + add amt
  1011.         jmp     varix4                  ; go with dl = new count
  1012.         ;
  1013. varix2a:or      byte ptr var6+1[di],80H ; set sign
  1014.         getv    al,var2                 ; get add ammt
  1015.         mov     ah,0                    ; ax = add amt
  1016.         mov     dl,var6[di]             ; get count
  1017.         mov     dh,0                    ; dx = count
  1018.         sub     dx,ax                   ; dx = count - add amt
  1019.         jnc     varix4                  ; make 0 if underflow
  1020.         mov     dl,0                    ; /
  1021. ;--------------------------------------------------------------
  1022. varix4: mov     var6[di],dl             ; save new count
  1023. varixx: getv    al,var4                 ; get offset
  1024.         add     al,var6[di]             ; add count
  1025.         putn    al                      ; send it out
  1026.         nextv                           ; exit
  1027. ;==============================================================
  1028. ; Generate a random tone row of 0-11
  1029. ; inputs: 0:  address
  1030. ;         1:  strobe
  1031. ;         2x: tick
  1032. ;         3-9:tone row table
  1033. ; output: addressed value of tone row (0-11)
  1034. ;--------------------------------------------------------------
  1035.         public _trand
  1036. _trand: 
  1037.         test    rhold,-1        ; check for random reset
  1038.         jnz     trand1          ; branch if high
  1039.         ;
  1040.         tick    var1,var2       ; clock tick
  1041.         jnc     trand1          ; branch if no tick
  1042.         ;
  1043.         mov     cx,12           ; 12 to do
  1044.         mov     bp,0            ; set up base
  1045. trand3: mov     bx,0            ; set up index
  1046.         test    rhold,-1        ; holding?
  1047.         jz      trand7          ; no, get rand
  1048.         mov     dx,bp           ; yes, do 0-1
  1049.         jmp     short trand2    ; get on with it
  1050.         ;
  1051. trand7: randdx                  ; get rng
  1052.         and     dl,15           ; 0-15 allowed
  1053.         cmp     dl,12           ; really 0-11
  1054.         jb      trand2          ; branch if ok
  1055.         shr     dl,1            ; else /2
  1056.         ;
  1057. trand2: cmp     bx,bp           ; at the target?
  1058.         jnz     trand4          ; no, branch
  1059.         mov     var3[bx+di],dl  ; yes, put the byte away
  1060. trand6: inc     bp              ; bump index
  1061.         loop    trand3          ; do all 12
  1062.         jmp     short trand1    ; exit when done
  1063.         ;
  1064. trand4: cmp     var3[bx+di],dl  ; already got?
  1065.         jz      trand3          ; yes, try again
  1066.         inc     bx              ; no, look at next
  1067.         jmp     short trand2    ; /
  1068.         ;
  1069. trand1: getv    bl,var0         ; get address
  1070.         mov     bh,0            ; make into word
  1071.         cmp     bl,12           ; keep within range
  1072.         jb      trand0          ; branch if ok
  1073.         ;
  1074.         mov     ax,bx           ; else mod 12
  1075.         mov     dl,12           ;   /
  1076.         div     dl              ;  /
  1077.         mov     bl,ah           ; /
  1078.         ;
  1079. trand0: mov     al,var3[bx+di]  ; pick up the byte
  1080.         putn    al              ; send it out
  1081.         nextv                   ; exit
  1082. ;==============================================================
  1083. ; Generate raw binary odds
  1084. ; inputs: 0: clock  1x: clock-tick
  1085. ; output: 0-7; 0 @ 1:2, 1 @ 1:4, ... 7 @ 1:256
  1086. ;--------------------------------------------------------------
  1087.         public _oddz 
  1088. _oddz:  
  1089.         tick    var0,var1       ; clock tick
  1090.         jc      oddz1           ; branch if there is a tick
  1091.         nextx                   ; else exit easy
  1092. oddz1:  random
  1093.         mov     al,0            ; output is 0-7
  1094.         rol     cl,1            ; test msb
  1095.         jc      oddzx           ; branch if set
  1096.         inc     al              ; else bump value
  1097.         rol     cl,1            ; test msb
  1098.         jc      oddzx           ; branch if set
  1099.         inc     al              ; else bump value
  1100.         rol     cl,1            ; test msb
  1101.         jc      oddzx           ; branch if set
  1102.         inc     al              ; else bump value
  1103.         rol     cl,1            ; test msb
  1104.         jc      oddzx           ; branch if set
  1105.         inc     al              ; else bump value
  1106.         rol     cl,1            ; test msb
  1107.         jc      oddzx           ; branch if set
  1108.         inc     al              ; else bump value
  1109.         rol     cl,1            ; test msb
  1110.         jc      oddzx           ; branch if set
  1111.         inc     al              ; else bump value
  1112.         rol     cl,1            ; test msb
  1113.         jc      oddzx           ; branch if set
  1114.         inc     al              ; else bump value
  1115.         rol     cl,1            ; test msb
  1116.         jc      oddzx           ; branch if set
  1117.         xor     al,al           ; else clr value
  1118. oddzx:  putn    al              ; send it out
  1119.         nextv                   ; exit
  1120. ;==============================================================
  1121. ; dither between 4 inputs
  1122. ; inputs: 0: clock, 1-4: inputs, 5: offset, 6x: clock
  1123. ; output: one of the 4 inputs
  1124. ;--------------------------------------------------------------
  1125.         public _odds
  1126. _odds:  
  1127.         test    rhold,-1        ; branch if alpha seed
  1128.         jnz     odds1           ; /
  1129.         tick    var0,var6       ; clock tick
  1130.         jc      odds1           ; branch if there is a tick
  1131. oddsz:  nextx                   ; else exit easy
  1132. odds1:  random
  1133.         test    cl,80H          ; 1:2 is input1
  1134.         jz      odds2           ;     /
  1135.         getv    al,var1         ;   /
  1136.         jmp     short oddsx     ; /
  1137. odds2:  test    cl,40H          ; 1:4 is input2
  1138.         jz      odds3           ;     /
  1139.         getv    al,var2         ;   /
  1140.         jmp     short oddsx     ; /
  1141. odds3:  test    cl,20H          ; 1:8 is input3
  1142.         jz      odds4           ;     /
  1143.         getv    al,var3         ;   /
  1144.         jmp     short oddsx     ; /
  1145. odds4:  test    cl,10H          ; 1:16 is input4
  1146.         jz      oddsz           ; else no change
  1147.         getv    al,var4         ; /
  1148.         ;
  1149. oddsx:  getv    ah,var5         ; get the offset
  1150.         add     al,ah           ; add to input
  1151.         putn    al              ; send it out
  1152.         nextv                   ; exit with video update
  1153. ;==============================================================
  1154. ; dither between 2 inputs
  1155. ; inputs: 0: clock, 1: dither, 2,3 inputs, 4: offset, 5x: clock
  1156. ; output: one of the 2 inputs
  1157. ;--------------------------------------------------------------
  1158.         public _dither
  1159. _dither:
  1160.         test    rhold,-1        ; branch if alpha seed
  1161.         jnz     dither1         ; /
  1162.         tick    var0,var5       ; clock tick
  1163.         jc      dither1         ; branch if there is a tick
  1164. ditherz:nextx                   ; else exit easy
  1165. dither1:random
  1166.         ;
  1167. dither2:getv    ch,var1         ; get dither value
  1168.         sub     ch,cl           ; above threshold?
  1169.         jna     dither3         ; no, branch
  1170.         getv    al,var3         ; yes, get "b" input
  1171.         jmp     short ditherx   ; split
  1172. dither3:getv    al,var2         ; no, get "a" input
  1173. ditherx:getv    ah,var4         ; get the offset
  1174.         add     al,ah           ; add to input
  1175.         putn    al              ; send it out
  1176.         nextv                   ; exit with video update
  1177. ;==============================================================
  1178. ; dither between and input and 0
  1179. ; inputs: 0: clock, 1: dither, 2: input, 3: offset, 4x: clock
  1180. ; output: the input or 0
  1181. ;--------------------------------------------------------------
  1182.         public _dithzr
  1183. _dithzr:
  1184.         test    rhold,-1        ; branch if alpha seed
  1185.         jnz     dithzr1         ; /
  1186.         tick    var0,var4       ; clock tick
  1187.         jc      dithzr1         ; branch if there is a tick
  1188. dithzrz:nextx                   ; else exit easy
  1189. dithzr1:random
  1190.         ;
  1191. dithzr2:getv    ch,var1         ; get dithzr value
  1192.         sub     ch,cl           ; above threshold?
  1193.         jna     dithzr3         ; yes, branch
  1194.         getv    al,var2         ; no, get the input
  1195.         jmp     short dithzrx   ; split
  1196. dithzr3:mov     al,0            ; no, make it 0
  1197. dithzrx:getv    ah,var3         ; get the offset
  1198.         add     al,ah           ; add to input
  1199.         putn    al              ; send it out
  1200.         nextv                   ; exit with video update
  1201. ;==============================================================
  1202. ; dither between 0 and 1
  1203. ; inputs: 0: clock, 1: dither, 2x: clock
  1204. ; output: 0/1
  1205. ;--------------------------------------------------------------
  1206.         public _ddithr
  1207. _ddithr:
  1208.         test    rhold,-1        ; branch if alpha seed
  1209.         jnz     ddithr1         ; /
  1210.         tick    var0,var2       ; clock tick
  1211.         jc      ddithr1         ; branch if there is a tick
  1212. ddithrz:nextx                   ; else exit easy
  1213. ddithr1:random
  1214. ddithr2:getv    ch,var1         ; get ddithr value
  1215.         sub     ch,cl           ; above threshold?
  1216.         mov     al,1            ; set flag
  1217.         ja      ddithrx         ; yes, branch branch
  1218.         dec     al              ; no, clear flag
  1219. ddithrx:putn    al              ; send it out
  1220.         nextl                   ; exit with video update
  1221. ;==============================================================
  1222. ; calc given ratio based on clock input
  1223. ; inputs: 0:   master clock
  1224. ;         1-4: clock inputs
  1225. ;         5x:  clock ticks
  1226. ;         5z:  storage for output until tick
  1227. ; output: 0-F, based on input pattern
  1228. ;--------------------------------------------------------------
  1229.         public _ratio
  1230. _ratio:
  1231.         mov     al,var5+1[di]   ; get current output
  1232.         tick    var1,var5       ; clock tick
  1233.         jnc     ratio1          ; branch if no tick
  1234.         xor     al,1            ; else flip the bit
  1235. ratio1: tickb1  var2,var5       ; clock tick
  1236.         jnc     ratio2          ; branch if no tick
  1237.         xor     al,2            ; else flip the bit
  1238. ratio2: tickb2  var3,var5       ; clock tick
  1239.         jnc     ratio3          ; branch if no tick
  1240.         xor     al,4            ; else flip the bit
  1241. ratio3: tickb3  var4,var5       ; clock tick
  1242.         jnc     ratio4          ; branch if no tick
  1243.         xor     al,8            ; else flip the bit
  1244. ratio4: mov     var5+1[di],al   ; put it away
  1245.         tickb4  var0,var5       ; master clock tick?
  1246.         jnc     ratioz          ; no, exit
  1247.         putn    al              ; yes, send out new tick
  1248. ratioz: nextv                   ; exit with video update
  1249. ;==============================================================
  1250. ; calc given ratio based on dither input
  1251. ; inputs: 0:   clock
  1252. ;         1-4: dither levels
  1253. ;         5x:  clock tick 
  1254. ; output: 0-F, based on input pattern
  1255. ;--------------------------------------------------------------
  1256.         public _ratiz
  1257. _ratiz:
  1258.         test    rhold,-1        ; branch if alpha seed
  1259.         jnz     ratiz0          ; /
  1260.         tick    var0,var5       ; tick?
  1261.         jc      ratiz0          ; yes, branch
  1262.         jmp     ratizz          ; no, just exit
  1263. ratiz0: mov     al,outn[di]     ; get current output
  1264.         random
  1265.         getv    ch,var1         ; get ddithr value
  1266.         or      ch,ch           ; anything there
  1267.         jnz     ratiza          ; yes, branch
  1268.         and     al,0feh         ; no, clear the bit
  1269. ratiza: sub     ch,cl           ; above threshold?
  1270.         jna     ratiz1          ; no, branch
  1271.         xor     al,1            ; yes, set flag
  1272. ratiz1: random
  1273.         getv    ch,var2         ; get ddithr value
  1274.         or      ch,ch           ; anything there
  1275.         jnz     ratizb          ; yes, branch
  1276.         and     al,0fdh         ; no, clear the bit
  1277. ratizb: sub     ch,cl           ; above threshold?
  1278.         jna     ratiz2          ; no, branch
  1279.         xor     al,2            ; yes, set flag
  1280. ratiz2: random
  1281.         getv    ch,var3         ; get ddithr value
  1282.         or      ch,ch           ; anything there
  1283.         jnz     ratizc          ; yes, branch
  1284.         and     al,0fbh         ; no, clear the bit
  1285. ratizc: sub     ch,cl           ; above threshold?
  1286.         jna     ratiz3          ; no, branch
  1287.         xor     al,4            ; yes, set flag
  1288. ratiz3: random
  1289.         getv    ch,var4         ; get ddithr value
  1290.         or      ch,ch           ; anything there
  1291.         jnz     ratizd          ; yes, branch
  1292.         and     al,0f7h         ; no, clear the bit
  1293. ratizd: sub     ch,cl           ; above threshold?
  1294.         jna     ratiz4          ; no, branch
  1295.         xor     al,8            ; yes, set flag
  1296. ratiz4: putn    al              ; send it out
  1297. ratizz: nextv                   ; exit with video update
  1298. ;==============================================================
  1299. ; select intervals
  1300. ; inputs:
  1301. ;    0:   sort step
  1302. ;    1-4: inputs
  1303. ;
  1304. ; output: value at sorted step
  1305. ;--------------------------------------------------------------
  1306.         public _sort
  1307. _sort:  getv    al,var1                 ; get the inputs
  1308.         getv    ah,var2                 ;   /
  1309.         getv    dl,var3                 ;  /
  1310.         getv    dh,var4                 ; /
  1311.         sort4                           ; sort them
  1312.         mov     word ptr temp0,ax       ; put in temp array
  1313.         mov     word ptr temp2,dx       ; /
  1314.         getv    bl,var0                 ; get interval number
  1315.         and     bx,3                    ; mask
  1316.         add     bx,offset dgroup:temp0  ; bx = table index
  1317.         mov     al,[bx]                 ; get the value
  1318.         putn    al                      ; send it out
  1319.         nextv                           ; exit
  1320. ;==============================================================
  1321. ; delta test
  1322. ; inputs:
  1323. ;    0:   nz = hold
  1324. ;    1:   delta
  1325. ;    2:   nz = normalize within octave
  1326. ;    3:   input
  1327. ;    4x:  last input
  1328. ; output: strobe when delta is detected
  1329. ;--------------------------------------------------------------
  1330.         public _deltat
  1331. _deltat:
  1332.         hold    var0            ; hold?
  1333.         jnz     deltatz         ; exit if hold
  1334.         testv   var1,-1         ; delta 0?
  1335.         jz      deltatz         ; yes, just exit
  1336.         ;
  1337.         getv    al,var3         ; get pitch input for delta
  1338.         mov     ah,al           ; setup
  1339.         testv   var2,-1         ; want to normalize
  1340.         jz      deltat1         ; no, branch
  1341.         normal                  ; normalize
  1342. deltat1:getv    al,var1         ; get delta
  1343.         xchg    ah,var4[di]     ; swap input with last one
  1344.         sub     ah,var4[di]     ; delta match?
  1345.         cmp     ah,al           ; /
  1346.         jz      deltat2         ; yes, branch
  1347.         neg     al              ; else swap sign
  1348.         cmp     ah,al           ; try again
  1349.         jz      deltat2         ; branch if = delta
  1350.         jmp     deltatz         ; no, exit
  1351.         ;
  1352. deltat2:mov     byte ptr outn[di],1; set flag
  1353. deltatz:nextt                   ; strobe
  1354. ;==============================================================
  1355. ; * 12, + offset
  1356. ; inputs:
  1357. ;    0:   value
  1358. ;    1:   offset
  1359. ;
  1360. ; output: value * 12 + offset
  1361. ;--------------------------------------------------------------
  1362.         public _mul12
  1363. _mul12:
  1364.         getv    al,var0         ; get value
  1365.         mov     dl,12           ; for octave
  1366.         mul     dl              ; * 12
  1367.         getv    ah,var1         ; get offset
  1368.         add     al,ah           ; add it in
  1369.         putn    al              ; send it out
  1370.         nextv                   ; exit
  1371. ;==============================================================
  1372. ; / 12
  1373. ; input:  0: value
  1374. ; output: value / 12
  1375. ;--------------------------------------------------------------
  1376.         public _div12
  1377. _div12:
  1378.         getv    al,var0         ; get value
  1379.         or      al,al           ; zero not allowed
  1380.         jz      div12x          ; split if zero
  1381.         mov     dl,12           ; for octave
  1382.         mov     ah,0            ; make into word
  1383.         div     dl              ; / 12
  1384. div12x: putn    al              ; send it out
  1385.         nextv                   ; exit
  1386. ;==============================================================
  1387. ; mod 12
  1388. ; input:  0: value
  1389. ;         1: offset
  1390. ; output: value mod 12
  1391. ;--------------------------------------------------------------
  1392.         public _mod12
  1393. _mod12:
  1394.         getv    al,var0         ; get value
  1395.         mov     ah,0            ; load for 0
  1396.         or      al,al           ; zero not allowed
  1397.         jz      mod12x          ; split if zero
  1398.         mov     dl,12           ; for octave
  1399.         div     dl              ; / 12
  1400. mod12x: getv    al,var1         ; get offset
  1401.         add     al,ah           ; add in mod value
  1402.         putn    al              ; send it out
  1403.         nextv                   ; exit
  1404. ;==============================================================
  1405. ; fold to octave range
  1406. ; input:  0: value
  1407. ;         1: octave range
  1408. ;         2: offset
  1409. ; output: value mod 12
  1410. ;--------------------------------------------------------------
  1411.         public _fold
  1412. _fold: 
  1413.         getv    al,var1         ; get max octave range
  1414.         and     al,15           ; limit
  1415.         mov     ch,12           ; octave
  1416.         mul     ch              ; /
  1417.         add     ch,al           ; ch = max
  1418.         ;
  1419.         getv    ah,var0         ; get input
  1420.         range   ah,ch           ; put in range
  1421.         getv    al,var2         ; get offset
  1422.         add     al,ah           ; add in mod value
  1423.         putn    al              ; send it out
  1424.         nextv                   ; exit
  1425. ;==============================================================
  1426. ; Union
  1427. ; inputs: 0: trigger, 1: sync, 2x: clocks, 2z: trig flag
  1428. ; output: pulse of one loop cycle duration
  1429. ;--------------------------------------------------------------
  1430.         public _union
  1431. _union: 
  1432.         tick    var0,var2               ; clock trig input
  1433.         jnc     union0                  ; branch if no tick
  1434.         mov     byte ptr var2+1[di],1   ; else set holding byte
  1435. union0: tickb1  var1,var2               ; clock sync input
  1436.         jnc     unionz                  ; branch if no tick
  1437.         mov     al,0                    ; else clear trigger, if any
  1438.         xchg    al,var2+1[di]           ; get trigger, if any
  1439.         putn    al                      ; send it out
  1440. unionz: nextt                           ; strobe
  1441.  
  1442. ;==============================================================
  1443. ; Flip-flop
  1444. ; inputs: 0: set, 1: reset, 2x: set-tick, 2z: reset-tick 
  1445. ; output: pulse of one loop cycle duration
  1446. ;--------------------------------------------------------------
  1447.         public _fflop
  1448. _fflop: 
  1449.         tick    var0,var2       ; clock tick
  1450.         jnc     fflop1          ; branch if no set input
  1451.         mov     byte ptr outn[di],1; set the pulse
  1452. fflop1: tick    var1,var2+1     ; clock tick
  1453.         jnc     fflop2          ; branch if no reset input
  1454.         mov     byte ptr outn[di],0; reset the pulse
  1455. fflop2: nextl                   ; exit with led update
  1456. ;==============================================================
  1457. ; shift left
  1458. ; inputs: 0: value, 1: shift ammount, 2: mask
  1459. ; output: shifted value
  1460. ;--------------------------------------------------------------
  1461.         public _lshift
  1462. _lshift:
  1463.         getv    cl,var1         ; get the exponent
  1464.         and     cl,07H          ; 0-7 allowed
  1465.         getv    al,var0         ; get the value
  1466.         rol     al,cl           ; shift
  1467.         getv    ah,var2         ; get mask
  1468.         and     al,ah           ; mask output
  1469.         putn    al              ; send it out
  1470.         nextv                   ; exit with video update
  1471. ;==============================================================
  1472. ; shift right
  1473. ; inputs: 0: value, 1: shift ammount, 2: mask
  1474. ; output: shifted value
  1475. ;--------------------------------------------------------------
  1476.         public _rshift
  1477. _rshift:
  1478.         getv    cl,var1         ; get the exponent
  1479.         and     cl,07H          ; 0-7 allowed
  1480.         getv    al,var0         ; get the value
  1481.         ror     al,cl           ; shift
  1482.         getv    ah,var2         ; get mask
  1483.         and     al,ah           ; mask output
  1484.         putn    al              ; send it out
  1485.         nextv                   ; exit with video update
  1486. ;==============================================================
  1487. ; Low Pass Filter
  1488. ; inputs: 0: clock, 1: value, 2: slope, 3: offset
  1489. ;        4x: index, 4z: clock tick, 5-12: storage
  1490. ; output: average of last 2, 4, 8, or 16 inputs (slope 0-3)
  1491. ;--------------------------------------------------------------
  1492.         public _filter
  1493. _filter:
  1494.         tick    var0,var4+1     ; clock tick
  1495.         jc      filte1          ; branch if there is a tick
  1496.         nextx                   ; else easy exit
  1497.         ;
  1498. filte1: getv    al,var1         ; get the input value
  1499.         getv    cl,var2         ; get the slope
  1500.         and     cl,03H          ; 0-3 allowed
  1501.         mov     dl,2            ; shift
  1502.         shl     dl,cl           ; dl = 2, 4, 8, or 16
  1503.         mov     dh,dl           ; copy
  1504.         dec     dh              ; dh = 1, 3, 7, or 15
  1505.         mov     bl,var4[di]     ; get index
  1506.         inc     bl              ; bump it
  1507.         and     bl,dh           ; keep in bounds
  1508.         mov     var4[di],bl     ; put it away
  1509.         mov     bh,0            ; bx = index offset
  1510.         mov     var5[bx+di],al  ; put value into save list
  1511.         mov     dh,cl           ; dh = slope value (for later)
  1512.         mov     cl,dl           ; get slope count
  1513.         mov     ch,0            ; cx = 2, 4, 8, or 16
  1514.         mov     bx,var5         ; bx = start of save table
  1515.         mov     bp,0            ; bp will get sum of saved inputs
  1516.         mov     ah,0            ; ax will get each byte saved
  1517. filte2: mov     al,[bx+di]      ; get the saved byte
  1518.         add     bp,ax           ; sum of saved bytes
  1519.         inc     bx              ;   /
  1520.         loop    filte2          ; /
  1521.         mov     ax,bp           ; ax = sum of saved byte values
  1522.         mov     cl,dh           ; dh = slope value
  1523.         inc     cl              ; bump
  1524.         shr     ax,cl           ; ax = average of saved inputs
  1525.         getv    ah,var3         ; get offset
  1526.         add     al,ah           ; add to averaged value
  1527.         putn    al              ; send it out
  1528.         nextv                   ; exit with video update
  1529. ;==============================================================
  1530. ; Power of 2
  1531. ; inputs: 0: value
  1532. ; output: 2 ^^ value
  1533. ;--------------------------------------------------------------
  1534.         public _twopwr
  1535. _twopwr:
  1536.         getv    cl,var0         ; get the exponent
  1537.         and     cl,07H          ; 0-7 allowed
  1538.         mov     al,1            ; shift
  1539.         shl     al,cl           ; /
  1540.         putn    al              ; send it out
  1541.         nextv                   ; exit with video update
  1542. ;==============================================================
  1543. ; Test for flagged bits
  1544. ; inputs: 0: input, 1: value
  1545. ; output: 1 if any masked bits are hi, else 0
  1546. ;--------------------------------------------------------------
  1547.         public _bitsp
  1548. _bitsp: getv    al,var0         ; get input
  1549.         mov     dl,0            ; flag = false
  1550.         test    al,-1           ; any bits hi?
  1551.         jz      bitsp1          ; no, branch
  1552.         getv    dl,var1         ; yes, get the value
  1553. bitsp1: putn    dl              ; send the flag
  1554.         nextl                   ; exit with led update
  1555. ;==============================================================
  1556. ; Test for flagged bits
  1557. ; inputs: 0: input, 1: bitmask, 2: value
  1558. ; output: 1 if any masked bits are hi, else 0
  1559. ;--------------------------------------------------------------
  1560.         public _bitsq
  1561. _bitsq: getv    al,var0         ; get input
  1562.         getv    ah,var1         ; get mask byte
  1563.         mov     dl,0            ; flag = false
  1564.         test    al,ah           ; any bits hi?
  1565.         jz      bitsq1          ; no, branch
  1566.         getv    dl,var2         ; yes, get the value
  1567. bitsq1: putn    dl              ; send the flag
  1568.         nextl                   ; exit with led update
  1569. ;==============================================================
  1570. ; Test for minus ( bit 7 high)
  1571. ; inputs: 0: input
  1572. ; output: 1 if bit 7 hi, else 0
  1573. ;--------------------------------------------------------------
  1574.         public _minusp
  1575. _minusp:
  1576.         getv    al,var0         ; get input
  1577.         mov     dl,0            ; flag = false
  1578.         test    al,80H          ; is negative?
  1579.         jz      minusp1         ; no, branch
  1580.         inc     dl              ; yes, flag = true
  1581. minusp1:putn    dl              ; send the flag
  1582.         nextl                   ; exit with led update
  1583. ;==============================================================
  1584. ; Test for non-zero
  1585. ; inputs: 0: input
  1586. ; output: 0 if input is 0, else 1
  1587. ;--------------------------------------------------------------
  1588.         public _truep
  1589. _truep: 
  1590.         getv    al,var0         ; get input
  1591.         mov     dl,1            ; flag = false
  1592.         or      al,al           ; is zero?
  1593.         jnz     truep1          ; no, branch
  1594.         dec     dl              ; yes, flag = true
  1595. truep1: putn    dl              ; send the flag
  1596.         nextl                   ; exit with led update
  1597. ;==============================================================
  1598. ; Test for zero 
  1599. ; inputs: 0: input
  1600. ; output: 1 if input is 0, else 0
  1601. ;--------------------------------------------------------------
  1602.         public _zerop
  1603. _zerop: 
  1604.         getv    al,var0         ; get input
  1605.         mov     dl,0            ; flag = false
  1606.         or      al,al           ; is zero?
  1607.         jnz     zerop1          ; no, branch
  1608.         inc     dl              ; yes, flag = true
  1609. zerop1: putn    dl              ; send the flag
  1610.         nextl                   ; exit with led update
  1611. ;==============================================================
  1612. ; Test for within range
  1613. ; inputs: 0: input, 1: hi bounds, 2: low bounds
  1614. ; output: 1 if within range, else 0
  1615. ;--------------------------------------------------------------
  1616.         public _rangep
  1617. _rangep:
  1618.         getv    al,var0         ; get input 
  1619.         mov     dl,0            ; flag = false
  1620.         getv    ah,var1         ; get hi range
  1621.         cmp     al,ah           ; input > hi range?
  1622.         ja      range1          ; yes, exit False
  1623.         getv    ah,var2         ; get lo range
  1624.         cmp     al,ah           ; input < lo range?
  1625.         jb      range1          ; yes, exit False
  1626.         inc     dl              ; no, flag = True
  1627. range1: putn    dl              ; send the flag
  1628.         nextl                   ; exit with led update
  1629. ;==============================================================
  1630. ; Test for a > b
  1631. ; inputs: 0: input a, 1: input b
  1632. ; output: 1 if a > b, else 0
  1633. ;--------------------------------------------------------------
  1634.         public _great
  1635. _great: 
  1636.         getv    al,var0         ; get input a
  1637.         getv    ah,var1         ; get inmpu b
  1638.         mov     dl,0            ; flag = false
  1639.         cmp     al,ah           ; is a > b ?
  1640.         jna     great1          ; no, branch
  1641.         inc     dl              ; yes, flag = true
  1642. great1: putn    dl              ; send the flag
  1643.         nextl                   ; exit with led update
  1644. ;==============================================================
  1645. ; Test for a < b
  1646. ; inputs: 0: input a, 1: input b
  1647. ; output: 1 if a < b, else 0
  1648. ;--------------------------------------------------------------
  1649.         public _lessp
  1650. _lessp: 
  1651.         getv    al,var0         ; get input a
  1652.         getv    ah,var1         ; get inmpu b
  1653.         mov     dl,0            ; flag = false
  1654.         cmp     al,ah           ; is a < b ?
  1655.         jnb     lessp1          ; no, branch
  1656.         inc     dl              ; yes, flag = true
  1657. lessp1: putn    dl              ; send the flag
  1658.         nextl                   ; exit with led update
  1659. ;==============================================================
  1660. ; Test for change
  1661. ; inputs: 0: input, 1x: last input value
  1662. ; output: 1 if change else 0
  1663. ;--------------------------------------------------------------
  1664.         public _change
  1665. _change:
  1666.         mov     ah,0            ; clear flag
  1667.         getv    al,var0         ; get input 1
  1668.         cmp     al,var1[di]     ; same as last?
  1669.         jz      chang1          ; yes, send "no change"
  1670.         inc     ah              ; else send change
  1671. chang1: putn    ah              ; send the flag
  1672.         mov     var1[di],al     ; save value for next time
  1673.         nextl                   ; exit with led update
  1674. ;==============================================================
  1675. ; Test for equal
  1676. ; inputs: 0: input, 1: input
  1677. ; output: 1 if equal, else 0
  1678. ;--------------------------------------------------------------
  1679.         public _equal
  1680. _equal: 
  1681.         getv    al,var0         ; get input 1
  1682.         getv    ah,var1         ; get inmpu 2
  1683.         mov     dl,0            ; flag = false
  1684.         cmp     al,ah           ; are they equal
  1685.         jnz     equal1          ; no, branch
  1686.         inc     dl              ; yes, flag = true
  1687. equal1: putn    dl              ; send the flag
  1688.         nextl                   ; exit with led update
  1689. ;==============================================================
  1690. ; Test for not equal
  1691. ; inputs: 0: input, 1: input
  1692. ; output: 1 if not equal, else 0
  1693. ;--------------------------------------------------------------
  1694.         public _nequal
  1695. _nequal: 
  1696.         getv    al,var0         ; get input 1
  1697.         getv    ah,var1         ; get inmpu 2
  1698.         mov     dl,0            ; flag = false
  1699.         cmp     al,ah           ; are they equal
  1700.         jz      nequal1         ; yes, branch
  1701.         inc     dl              ; no, flag = true
  1702. nequal1:putn    dl              ; send the flag
  1703.         nextl                   ; exit with led update
  1704. ;==============================================================
  1705. ; output: delayed input
  1706. ; input: 0: value
  1707. ;        1: delay clocks
  1708. ;        2: offset
  1709. ;        3: index
  1710. ;        4-131: value array
  1711. ;--------------------------------------------------------------
  1712.         public _delay
  1713. _delay: getv    al,var0         ; get input value
  1714.         getv    dl,var1         ; get number of clocks delay
  1715.         getv    dh,var2         ; get offset
  1716.         mov     bl,var3[di]     ; get current count
  1717.         dec     byte ptr var3[di]; bump it
  1718.         mov     bh,0            ; byte --> word
  1719.         mov     var4[bx+di],al  ; set input byte
  1720.         add     bl,dl           ; add delay
  1721.         mov     al,var4[bx+di]  ; get the output byte
  1722.         add     al,dh           ; add offset
  1723.         putn    al              ; send the new output
  1724.         nextv
  1725. ;==============================================================
  1726. ; output: the last changed input
  1727. ; input: 0-7: values
  1728. ;        8x - 9+: saved values 
  1729. ;--------------------------------------------------------------
  1730.         public _lastv
  1731. _lastv: mov     bp,si           ; save si
  1732.         mov     dx,di           ; save di
  1733.         mov     si,di           ; set si to saved values
  1734.         add     si,var8         ; /
  1735.         add     di,var0         ; set di to input values
  1736.         mov     cx,8            ; 8 to do
  1737. lastvl: mov     bx,[di]         ; point to var addr
  1738.         mov     al,[bx]         ; get it
  1739.         cmp     al,[si]         ; same?
  1740.         jnz     lastvx          ; yes, exit
  1741.         add     di,2            ; point to next
  1742.         inc     si              ; /
  1743.         loop    lastvl          ; do all 8
  1744.         mov     di,dx           ; restore registers
  1745.         mov     si,bp           ; /
  1746.         nextx                   ; easy exit if no change
  1747.         ;       
  1748. lastvx: mov     [si],al         ; set the flag
  1749.         mov     di,dx           ; restore registers
  1750.         mov     si,bp           ; /
  1751.         putn    al              ; send the new output
  1752.         nextv
  1753. ;==============================================================
  1754. ; Quantize value input to nearest match input
  1755. ; inputs: 0: value input, 1: extract value, 2-9: match inputs
  1756. ; output: nearest match input
  1757. ;--------------------------------------------------------------
  1758.         public _quant
  1759. _quant:
  1760.         getv    dl,var0         ; dl = value input
  1761.         ;
  1762.         getv    cl,var1         ; get extract root
  1763.         or      cl,cl           ; if zero, ignore
  1764.         jz      quant0          ; /
  1765.         ;       
  1766.         mov     al,dl           ; get the value
  1767.         or      al,al           ; zero not allowed
  1768.         jz      quant0a         ; split if zero
  1769.         mov     ah,0            ; make into word
  1770.         div     cl              ; divide by extract value
  1771.         mov     dl,ah           ; mod result is compare value
  1772.         mul     cl              ; restore to base
  1773. quant0a:mov     cl,al           ; cl is base
  1774.         ;
  1775. quant0: mov     dh,-1           ; dh = initialized test
  1776.         ;
  1777.         getv    al,var2         ; get match input
  1778.         mov     ah,dl           ; get value input
  1779.         sub     ah,al           ; get difference
  1780.         cmp     ah,dh           ; difference < test
  1781.         jnb     quant1a         ; no, branch
  1782.         mov     dh,ah           ; yes, difference is new test
  1783.         putn    al              ; match input --> output
  1784. quant1a:neg     ah              ; test abs difference 
  1785.         cmp     ah,dh           ; abs difference < test
  1786.         jnb     quant2          ; no, branch
  1787.         mov     dh,ah           ; yes, difference is new test
  1788.         putn    al              ; match input --> output
  1789.         ;
  1790. quant2: getv    al,var3         ; get match input
  1791.         mov     ah,dl           ; get value input
  1792.         sub     ah,al           ; get difference
  1793.         cmp     ah,dh           ; difference < test
  1794.         jnb     quant2a         ; no, branch
  1795.         mov     dh,ah           ; yes, difference is new test
  1796.         putn    al              ; match input --> output
  1797. quant2a:neg     ah              ; test abs difference 
  1798.         cmp     ah,dh           ; abs difference < test
  1799.         jnb     quant3          ; no, branch
  1800.         mov     dh,ah           ; yes, difference is new test
  1801.         putn    al              ; match input --> output
  1802.         ;
  1803. quant3: getv    al,var4         ; get match input
  1804.         mov     ah,dl           ; get value input
  1805.         sub     ah,al           ; get difference
  1806.         cmp     ah,dh           ; difference < test
  1807.         jnb     quant3a         ; no, branch
  1808.         mov     dh,ah           ; yes, difference is new test
  1809.         putn    al              ; match input --> output
  1810. quant3a:neg     ah              ; test abs difference 
  1811.         cmp     ah,dh           ; abs difference < test
  1812.         jnb     quant4          ; no, branch
  1813.         mov     dh,ah           ; yes, difference is new test
  1814.         putn    al              ; match input --> output
  1815.         ;
  1816. quant4: getv    al,var5         ; get match input
  1817.         mov     ah,dl           ; get value input
  1818.         sub     ah,al           ; get difference
  1819.         cmp     ah,dh           ; difference < test
  1820.         jnb     quant4a         ; no, branch
  1821.         mov     dh,ah           ; yes, difference is new test
  1822.         putn    al              ; match input --> output
  1823. quant4a:neg     ah              ; test abs difference 
  1824.         cmp     ah,dh           ; abs difference < test
  1825.         jnb     quant5          ; no, branch
  1826.         mov     dh,ah           ; yes, difference is new test
  1827.         putn    al              ; match input --> output
  1828.         ;
  1829. quant5: getv    al,var6         ; get match input
  1830.         mov     ah,dl           ; get value input
  1831.         sub     ah,al           ; get difference
  1832.         cmp     ah,dh           ; difference < test
  1833.         jnb     quant5a         ; no, branch
  1834.         mov     dh,ah           ; yes, difference is new test
  1835.         putn    al              ; match input --> output
  1836. quant5a:neg     ah              ; test abs difference 
  1837.         cmp     ah,dh           ; abs difference < test
  1838.         jnb     quant6          ; no, branch
  1839.         mov     dh,ah           ; yes, difference is new test
  1840.         putn    al              ; match input --> output
  1841.         ;
  1842. quant6: getv    al,var7         ; get match input
  1843.         mov     ah,dl           ; get value input
  1844.         sub     ah,al           ; get difference
  1845.         cmp     ah,dh           ; difference < test
  1846.         jnb     quant6a         ; no, branch
  1847.         mov     dh,ah           ; yes, difference is new test
  1848.         putn    al              ; match input --> output
  1849. quant6a:neg     ah              ; test abs difference 
  1850.         cmp     ah,dh           ; abs difference < test
  1851.         jnb     quant7          ; no, branch
  1852.         mov     dh,ah           ; yes, difference is new test
  1853.         putn    al              ; match input --> output
  1854.         ;
  1855. quant7: getv    al,var8         ; get match input
  1856.         mov     ah,dl           ; get value input
  1857.         sub     ah,al           ; get difference
  1858.         cmp     ah,dh           ; difference < test
  1859.         jnb     quant7a         ; no, branch
  1860.         mov     dh,ah           ; yes, difference is new test
  1861.         putn    al              ; match input --> output
  1862. quant7a:neg     ah              ; test abs difference 
  1863.         cmp     ah,dh           ; abs difference < test
  1864.         jnb     quant8          ; no, branch
  1865.         mov     dh,ah           ; yes, difference is new test
  1866.         putn    al              ; match input --> output
  1867.         ;
  1868. quant8: getv    al,var9         ; get match input
  1869.         mov     ah,dl           ; get value input
  1870.         sub     ah,al           ; get difference
  1871.         cmp     ah,dh           ; difference < test
  1872.         jnb     quant8a         ; no, branch
  1873.         mov     dh,ah           ; yes, difference is new test
  1874.         putn    al              ; match input --> output
  1875. quant8a:neg     ah              ; test abs difference 
  1876.         cmp     ah,dh           ; abs difference < test
  1877.         jnb     quant9          ; no, branch
  1878.         mov     dh,ah           ; yes, difference is new test
  1879.         putn    al              ; match input --> output
  1880.         ;
  1881. quant9: add     outn[di],cl     ; add base
  1882.         nextv                   ; exit with video update
  1883. ;==============================================================
  1884. ; Keep the highest input
  1885. ; inputs: 0: hold/reset 1: input 
  1886. ; output: highest input since reset
  1887. ;--------------------------------------------------------------
  1888.         public _higher
  1889. _higher:
  1890.         hold    var0            ; hold?
  1891.         jz      higher0         ; branch if no hold
  1892.         getv    al,var1         ; else get the input
  1893.         putn    al              ; send it to the output
  1894.         nextv                   ; exit
  1895. higher0:getv    al,var1         ; get the value
  1896.         cmp     al,outn[di]     ; higher than already there?
  1897.         jna     higher1         ; no, branch
  1898.         putn    al              ; yes, send the new value
  1899. higher1:nextv                   ; exit with video update
  1900. ;==============================================================
  1901. ; Keep the lowest input
  1902. ; inputs: 0: hold/reset 1: input 
  1903. ; output: lowest input since reset
  1904. ;--------------------------------------------------------------
  1905.         public _lower
  1906. _lower: 
  1907.         hold    var0            ; hold?
  1908.         jz      lower0          ; branch if no hold
  1909.         getv    al,var1         ; else get the input
  1910.         putn    al              ; send it to the output
  1911.         nextv                   ; exit
  1912. lower0: getv    al,var1         ; get the value
  1913.         cmp     al,outn[di]     ; lower than already there?
  1914.         jnb     lower1          ; no, branch
  1915.         putn    al              ; yes, send the new value
  1916. lower1: nextv                   ; exit with video update
  1917. ;==============================================================
  1918. ; Keep input between limits
  1919. ; inputs: 0: input, 1: upper bounds, 2: lower bounds 
  1920. ; output: input between bounds
  1921. ;--------------------------------------------------------------
  1922.         public _limit
  1923. _limit: 
  1924.         getv    al,var0         ; get the value
  1925.         getv    ah,var1         ; get upper limit
  1926.         cmp     al,ah           ; less than upper limit?
  1927.         jna     limit1          ; yes, branch
  1928.         mov     al,ah           ; else set it to upper limit
  1929. limit1: getv    ah,var2         ; get lower limit
  1930.         cmp     al,ah           ; greater than lower limit?
  1931.         jnb     limit2          ; yes, branch
  1932.         mov     al,ah           ; else set it to lower limit
  1933. limit2: putn    al              ; send the value
  1934.         nextv                   ; exit w video
  1935. ;==============================================================
  1936. ; Sample & Hold
  1937. ; inputs: 0: follow 1: clock, 2: read 3: offset 4x: clock tick
  1938. ; output: scaled sample
  1939. ;--------------------------------------------------------------
  1940.         public _sandh
  1941. _sandh: 
  1942.         testv   var0,-1         ; follow on?
  1943.         jnz     sandh1          ; yes, branch
  1944.         tick    var1,var4       ; clock tick
  1945.         jc      sandh1          ; branch if there is a tick
  1946.         nextx                   ; else exit easy
  1947. sandh1: getv    al,var2         ; get sample
  1948.         getv    ah,var3         ; get offset
  1949.         add     al,ah           ; put it together
  1950.         putn    al              ; send it
  1951.         nextv                   ; exit with video update
  1952. ;==============================================================
  1953. ; Midi sync control interface for Stop, Start, Continue, etc.
  1954. ; output: bit flags
  1955. ;       bit 0: stop 
  1956. ;       bit 1: start
  1957. ;       bit 2: continue
  1958. ; input:
  1959. ;       0: NZ = send Stop to Midi
  1960. ;       1: NZ = send Start to MIDI
  1961. ;       2: NZ = send Continue to MIDI
  1962. ;       3: NZ = send Reset to MIDI
  1963. ;       4: NZ = send Tune req to midi
  1964. ;       5: NZ bits = clear output bits
  1965. ;       6x: last stop input
  1966. ;       6+: last start input
  1967. ;       7x: last continue input
  1968. ;       7+: initialized flag
  1969. ;       8x: tick for stop, start, continue
  1970. ;       8+: tick for reset, tune, clear
  1971. ;--------------------------------------------------------------
  1972.         public _stopo
  1973. _stopo: cmp     byte ptr var7+1[di],0abh; initialized?
  1974.         jz      stopo0                  ; yes, branch
  1975.         mov     word ptr var7[di],0ab00h; no, initialize
  1976.         mov     word ptr var8[di],0     ;    /
  1977.         mov     word ptr var6[di],0     ;  /
  1978.         jmp     stopox                  ; exit from init
  1979.         ;
  1980. stopo0: mov     al,cs:mstop             ; change in ext stop?
  1981.         cmp     al,var6[di]             ; /
  1982.         jz      stopo0a                 ; no, branch
  1983.         or      byte ptr outn[di],1     ; yes, set the flag
  1984.         mov     var6[di],al             ; /
  1985.         ;
  1986. stopo0a:mov     al,cs:mstart            ; change in ext start?
  1987.         cmp     al,var6+1[di]           ; /
  1988.         jz      stopo0b                 ; no, branch
  1989.         or      byte ptr outn[di],2     ; yes, set the flag
  1990.         mov     var6+1[di],al           ; /
  1991.         ;
  1992. stopo0b:mov     al,cs:mcont             ; change in ext cont?
  1993.         cmp     al,var7[di]             ; /
  1994.         jz      stopo1                  ; no, branch
  1995.         or      byte ptr outn[di],4     ; yes, set the flag
  1996.         mov     var7[di],al             ; /
  1997. ;--------------------------------------------------------------
  1998. stopo1: tick    var0,var8               ; stop cmd input?
  1999.         jnc     stopo1a                 ; no, branch
  2000.         mov     al,0fch                 ; send Stop cmd to midi
  2001.         call    allmidi
  2002.         ;
  2003. stopo1a:tickb1  var1,var8               ; start cmd input?
  2004.         jnc     stopo1b                 ; no, branch
  2005.         mov     al,0fah                 ; send Start cmd to midi
  2006.         call    allmidi
  2007.         ;
  2008. stopo1b:tickb2  var2,var8               ; Cont cmd input?
  2009.         jnc     stopo2                  ; no, branch
  2010.         mov     al,0fbh                 ; send Cont cmd to midi
  2011.         call    allmidi
  2012. ;--------------------------------------------------------------
  2013. stopo2: tick    var3,var8+1             ; Reset cmd input?
  2014.         jnc     stopo2a                 ; no, branch
  2015.         mov     al,0ffh                 ; send Reset cmd to midi
  2016.         call    allmidi
  2017.         ;
  2018. stopo2a:tickb1  var4,var8+1             ; Tune Request input?
  2019.         jnc     stopo3                  ; no, branch
  2020.         mov     al,0f6h                 ; send Tune Request to midi
  2021.         call    allmidi
  2022. ;--------------------------------------------------------------
  2023. stopo3: tickb2  var5,var8+1             ; clear output?
  2024.         jnc     stopox                  ; no, branch
  2025.         mov     byte ptr outn[di],0     ; clear the output
  2026. stopox: nextl                           ; show it
  2027. ;==============================================================
  2028. ; Sum of 5 inputs
  2029. ; inputs: 0-4:  inputs, 5: scale 6: offset
  2030. ; output: scaled and offset input
  2031. ;--------------------------------------------------------------
  2032.         public _sumit
  2033. _sumit: 
  2034.         xor     cx,cx           ; clr cx
  2035.         mov     ah,ch           ; clr ah
  2036.         getv    al,var0         ; get input 
  2037.         add     cx,ax           ; add to total
  2038.         getv    al,var1         ; get input 
  2039.         add     cx,ax           ; add to total
  2040.         getv    al,var2         ; get input 
  2041.         add     cx,ax           ; add to total
  2042.         getv    al,var3         ; get input 
  2043.         add     cx,ax           ; add to total
  2044.         getv    al,var4         ; get input 
  2045.         add     cx,ax           ; add to total
  2046.         ;
  2047.         getv    al,var5         ; get scale value
  2048.         xchg    al,ah           ; al = 0, ah = scale
  2049.         mul     cx              ; dx = scaled value
  2050.         getv    al,var6         ; get offset
  2051.         add     al,dl           ; put it together
  2052.         putn    al              ; send it
  2053.         nextv                   ; exit with video update
  2054. ;==============================================================
  2055. ; Mix 3 Scaled inputs
  2056. ; inputs: 0,2,4: input, 1,3,5: scale 6: offset
  2057. ; output: scaled and offset input
  2058. ;--------------------------------------------------------------
  2059.         public _mixit
  2060. _mixit: 
  2061.         getv    al,var0         ; get input 
  2062.         getv    cl,var1         ; get scale value
  2063.         mul     cl              ; ah = scaled value
  2064.         mov     ch,ah           ; for sum
  2065.         getv    al,var2         ; get input 
  2066.         getv    cl,var3         ; get scale value
  2067.         mul     cl              ; ah = scaled value
  2068.         add     ch,ah           ; sum
  2069.         getv    al,var4         ; get input 
  2070.         getv    cl,var5         ; get scale value
  2071.         mul     cl              ; ah = scaled value
  2072.         add     ch,ah           ; sum
  2073.         ;
  2074.         getv    al,var6         ; get offset
  2075.         add     al,ch           ; put it together
  2076.         putn    al              ; send it
  2077.         nextv                   ; exit with video update
  2078. ;==============================================================
  2079. ; Scale and offset input
  2080. ; inputs: 0: input, 1: scale 2: offset
  2081. ; output: scaled and offset input
  2082. ;--------------------------------------------------------------
  2083.         public _scale
  2084. _scale: 
  2085.         getv    al,var0         ; get input 
  2086.         getv    cl,var1         ; get scale value
  2087.         mul     cl              ; ah = scaled value
  2088.         getv    al,var2         ; get offset
  2089.         add     al,ah           ; put it together
  2090.         putn    al              ; send it
  2091.         nextv                   ; exit with video update
  2092. ;==============================================================
  2093. ; Max of two inputs
  2094. ; inputs: 0: input, 1: input
  2095. ; output: max
  2096. ;--------------------------------------------------------------
  2097.         public _maxf
  2098. _maxf:  
  2099.         getv    al,var0         ; get input 
  2100.         getv    ah,var1         ; get input
  2101.         cmp     ah,al           ; select larger
  2102.         jb      maxf1           ;   /
  2103.         mov     al,ah           ; /
  2104. maxf1:  putn    al              ; send it
  2105.         nextv                   ; exit with video update
  2106. ;==============================================================
  2107. ; Min of two inputs
  2108. ; inputs: 0: input, 1: input
  2109. ; output: min
  2110. ;--------------------------------------------------------------
  2111.         public _minf
  2112. _minf:  
  2113.         getv    al,var0         ; get input 
  2114.         getv    ah,var1         ; get input
  2115.         cmp     al,ah           ; select larger
  2116.         jb      minf1           ;   /
  2117.         mov     al,ah           ; /
  2118. minf1:  putn    al              ; send it
  2119.         nextv                   ; exit with video update
  2120. ;==============================================================
  2121. ; Rate of change (delta)
  2122. ; inputs: 0: input, 1x: last input
  2123. ; output: delta from last changed input
  2124. ;
  2125.         public _delta
  2126. _delta: 
  2127.         getv    al,var0         ; get input 
  2128.         cmp     al,byte ptr var1[di]; any change
  2129.         jnz     delta1          ; yes, branch
  2130.         nextx                   ; no, easy exit
  2131.         ;
  2132. delta1: mov     ah,byte ptr var1[di]; get old value
  2133.         sub     ah,al           ; calc delta
  2134.         jnb     delta2          ; keep it positive
  2135.         neg     ah              ; /
  2136. delta2: mov     byte ptr var1[di],al; save new input
  2137.         putn    ah              ; send delta
  2138.         nextv                   ; exit with video update
  2139. ;==============================================================
  2140. ; Add three inputs
  2141. ; inputs: 0: input, 1: input, 2: input
  2142. ; output: sum of the three inputs
  2143. ;
  2144.         public _plus 
  2145. _plus:  
  2146.         getv    al,var0         ; get input 
  2147.         getv    ah,var1         ; get input
  2148.         add     al,ah           ; put it together
  2149.         getv    ah,var2         ; get input
  2150.         add     al,ah           ; put it together
  2151.         putn    al              ; send it
  2152.         nextv                   ; exit with video update
  2153. ;==============================================================
  2154. ; Add two inputs, subtract the third
  2155. ; inputs: 0: input, 1: input, 2: input
  2156. ; output: sum of first two inputs minus the third
  2157. ;
  2158.         public _plusm,_plusn
  2159. _plusn: nop
  2160. _plusm: getv    al,var0         ; get input 
  2161.         getv    ah,var1         ; get input
  2162.         add     al,ah           ; put it together
  2163.         getv    ah,var2         ; get input
  2164.         sub     al,ah           ; put it together
  2165.         putn    al              ; send it
  2166.         nextv                   ; exit with video update
  2167. ;==============================================================
  2168. ; multiply input by 2nd input, divide by 3rd if nz
  2169. ; inputs: 0: input, 1: mult, 2: divid
  2170. ; output: product of the 3 inputs
  2171. ;
  2172.         public _times
  2173. _times: 
  2174.         getv    al,var0         ; get input 
  2175.         getv    cl,var1         ; get input
  2176.         mul     cl              ; put it together
  2177.         getv    cl,var2         ; get input
  2178.         or      cl,cl           ; zero?
  2179.         jz      times1          ; yes, do not divide
  2180.         mov     dx,0            ; give it headroom
  2181.         mov     ch,0
  2182.         div     cx              ; divide dx:ax / cx
  2183. times1: putn    al              ; send it
  2184.         nextv                   ; exit with video update
  2185. ;==============================================================
  2186. ; divide first input by 2nd, return remainder
  2187. ; inputs: 0: input, 1: divide
  2188. ; output: product of the 3 inputs
  2189. ;
  2190.         public _modulo
  2191. _modulo:
  2192.         getv    al,var0         ; get input 
  2193.         mov     ah,0            ; setup for 0
  2194.         getv    cl,var1         ; get input
  2195.         or      cl,cl           ; zero?
  2196.         jz      modulx          ; yes, do not divide
  2197.         div     cl              ; divide ax / cl
  2198. modulx: putn    ah              ; send remainder
  2199.         nextv                   ; exit with video update
  2200. ;==============================================================
  2201. ; AND gate
  2202. ; inputs: 0,1,2
  2203. ; output: result of input0 AND input1 XOR input2
  2204. ;--------------------------------------------------------------
  2205.         public _andl
  2206. _andl:  
  2207.         getv    al,var0         ; al = 1st variable
  2208.         getv    ah,var1         ; ah = 2nd variable
  2209.         and     al,ah           ; AND them
  2210.         getv    ah,var2         ; ah = 3rd variable
  2211.         xor     al,ah           ; xor them
  2212.         putn    al              ; send to output
  2213.         nextv         
  2214. ;==============================================================
  2215. ; AND gate
  2216. ; inputs: 0: &input 1: &input 2: +input  
  2217. ; output: result of input 0 AND input 1 PLUS input 2
  2218. ;--------------------------------------------------------------
  2219.         public _mask
  2220. _mask:  
  2221.         getv    al,var0         ; al = 1st variable
  2222.         getv    ah,var1         ; ah = 2nd variable
  2223.         and     al,ah           ; var0 AND var1
  2224.         getv    ah,var2         ; ah = 3rd variable
  2225.         add     al,ah           ; add it to the AND stuff
  2226.         putn    al              ; send to output
  2227.         nextv
  2228. ;==============================================================
  2229. ; AND gate
  2230. ; inputs: 0: &input 1: &input, 2: shift
  2231. ; output: shifted result of input 0 AND input 1
  2232. ;--------------------------------------------------------------
  2233.         public _maskl
  2234. _maskl: getv    al,var0         ; al = 1st variable
  2235.         getv    ah,var1         ; ah = 2nd variable
  2236.         and     al,ah           ; var0 AND var1
  2237.         getv    cl,var2         ; get shift
  2238.         rol     al,cl           ; shift
  2239.         putn    al              ; send to output
  2240.         nextv
  2241. ;--------------------------------------------------------------
  2242.         public _maskr
  2243. _maskr: getv    al,var0         ; al = 1st variable
  2244.         getv    ah,var1         ; ah = 2nd variable
  2245.         and     al,ah           ; var0 AND var1
  2246.         getv    cl,var2         ; get shift
  2247.         ror     al,cl           ; shift
  2248.         putn    al              ; send to output
  2249.         nextv
  2250. ;==============================================================
  2251. ; NOT logic
  2252. ; inputs: 0: value
  2253. ;         1: mask 
  2254. ; output: NOT input0 AND input 1 
  2255. ;--------------------------------------------------------------
  2256.         public _notl
  2257. _notl:  
  2258.         getv    al,var0         ; al = 1st variable
  2259.         not     al              ; complement
  2260.         getv    ah,var1         ; get mask
  2261.         and     al,ah           ; AND them
  2262.         putn    al              ; send to output
  2263.         nextv         
  2264. ;==============================================================
  2265. ; Slope detector
  2266. ; inputs: 0
  2267. ; output: nz if positive slope, z if neg, no change if 0
  2268. ;
  2269. ;--------------------------------------------------------------
  2270.         public _slope
  2271. _slope: 
  2272.         getv    ah,var0         ; al = 1st variable
  2273.         cmp     ah,var1[di]     ; same as last?
  2274.         jz      slopex          ; yes, just exit
  2275.         mov     var1[di],ah     ; no, save it
  2276.         mov     al,1            ; setup for pos
  2277.         ja      slope1          ; branch if pos
  2278.         mov     al,0            ; else flag neg
  2279. slope1: putn    al              ; send to output
  2280. slopex: nextl         
  2281.  
  2282. ;==============================================================
  2283. ; negate
  2284. ; inputs: 0: input
  2285. ; output: NEG of input
  2286. ;--------------------------------------------------------------
  2287.         public _negate
  2288. _negate:
  2289.         getv    al,var0         ; al = 1st variable
  2290.         neg     al              ; negate it
  2291.         putn    al              ; send to output
  2292.         nextv
  2293. ;==============================================================
  2294. ; OR gate
  2295. ; inputs: 0,1,2
  2296. ; output: result of input0 OR input1 OR input2
  2297. ;--------------------------------------------------------------
  2298.         public _orl
  2299. _orl:   
  2300.         getv    al,var0         ; var0 OR var1...
  2301.         getv    ah,var1         ;   /
  2302.         or      al,ah           ; /
  2303.         getv    ah,var2         ; ...OR var2
  2304.         or      al,ah           ; /
  2305.         putn    al              ; send out
  2306.         nextv
  2307. ;==============================================================
  2308. ; shunt input to output
  2309. ; inputs: 0: value
  2310. ; output: input 0 unchanged
  2311. ;--------------------------------------------------------------
  2312.         public _value
  2313. _value: 
  2314.         getv    al,var0         ; get variable 1
  2315.         putn    al              ; send it
  2316.         nextv
  2317. ;==============================================================
  2318. ; display input value in ascii
  2319. ; inputs: 0-2: values to be displayed
  2320. ; outputs: none
  2321. ;--------------------------------------------------------------
  2322.      public _ascii
  2323. _ascii: 
  2324.         getv    al,var0         ; get the input value
  2325.         getv    ah,var1         ;  /
  2326.         getv    cl,var2         ; /
  2327.         mov     es,4[di]        ; get seg addr
  2328.         mov     bx,6[di]        ; get module screen address
  2329.         mov     es:318[bx],al   ; put to the screen
  2330.         mov     es:320[bx],ah   ;  /
  2331.         mov     es:322[bx],cl   ; /
  2332.         nextx                   ; exit
  2333. ;==============================================================
  2334. ; display input value in ascii from seq "s"
  2335. ; inputs: 0: lo addr of value, 1: hi addr,  2: offset to addr
  2336. ; outputs: none
  2337. ;--------------------------------------------------------------
  2338.      public _ascis
  2339. _ascis: 
  2340.         mov     ax,seg bufsp    ; setup seg register
  2341.         mov     es,ax           ; es = seg addr
  2342.         getv    dl,var0         ; get address
  2343.         getv    dh,var1         ; get hi address
  2344.         and     dh,15           ; 16 max
  2345.         getv    bl,var2         ; get offset
  2346.         add     dl,bl           ; put them together
  2347.         mov     bx,dx           ; /
  2348.         mov     al,es:[bx]      ; get the byte
  2349.         inc     bl              ; bump addr low
  2350.         mov     ah,es:[bx]      ; and the next
  2351.         inc     bl              ; bump addr low
  2352.         mov     cl,es:[bx]      ; and the next
  2353.         ;
  2354.         mov     es,4[di]        ; get seg addr
  2355.         mov     bx,6[di]        ; get module screen address
  2356.         mov     es:318[bx],al   ; put to the screen
  2357.         mov     es:320[bx],ah   ;  /
  2358.         mov     es:322[bx],cl   ; /
  2359.         nextx                   ; exit
  2360. ;==============================================================
  2361. ; display input value in ascii from seq "S"
  2362. ; inputs: 0: lo addr of value, 1: hi addr, 2: offset
  2363. ; outputs: none
  2364. ;--------------------------------------------------------------
  2365.      public _asciz
  2366. _asciz: 
  2367.         mov     ax,seg buffs    ; setup seg register
  2368.         mov     es,ax           ; es = seg addr
  2369.         getv    dl,var0         ; get address lo
  2370.         getv    dh,var1         ; get address hi
  2371.         getv    bl,var2         ; get offset
  2372.         mov     bh,0            ; /
  2373.         add     bx,dx           ; set up as index
  2374.         mov     al,es:[bx]      ; get the byte
  2375.         mov     ah,es:1[bx]     ; and the next
  2376.         mov     cl,es:2[bx]     ; and the next
  2377.         ;
  2378.         mov     es,4[di]        ; get seg addr
  2379.         mov     bx,6[di]        ; get module screen address
  2380.         mov     es:318[bx],al   ; put to the screen
  2381.         mov     es:320[bx],ah   ;  /
  2382.         mov     es:322[bx],cl   ; /
  2383.         nextx                   ; exit
  2384. ;==============================================================
  2385. ; display input value in decimal
  2386. ; inputs:  x: (display location)
  2387. ;          0: value to be displayed
  2388. ; outputs: copy of value
  2389. ;--------------------------------------------------------------
  2390.      public _decin
  2391. _decin: 
  2392.         getv    al,var0         ; get the input value
  2393.         putn    al              ; send to output
  2394.         mov     colr,yellow     ; set color to yellow
  2395.         mov     es,4[di]        ; get seg addr
  2396.         mov     bx,6[di]        ; get module screen address
  2397.         add     bx,478          ; point to readout
  2398.         call    todec           ; do it
  2399.         mov     colr,green      ; fix it back to green
  2400.         nextv                   ; exit with update
  2401. ;==============================================================
  2402. ; display input value in decimal
  2403. ; inputs:  0: decimal display 
  2404. ; outputs: none (display location)
  2405. ;--------------------------------------------------------------
  2406.      public _decim
  2407. _decim: 
  2408.         mov     colr,yellow     ; set color to yellow
  2409.         getv    al,var0         ; get the input value
  2410.         mov     es,4[di]        ; get seg addr
  2411.         mov     bx,6[di]        ; get module screen address
  2412.         add     bx,318          ; point to readout
  2413.         call    todec           ; do it
  2414.         mov     colr,green      ; fix it back to green
  2415.         nextx                   ; exit, no update
  2416. ;==============================================================
  2417. ; slew over time
  2418. ; formula:
  2419. ;       initialize:
  2420. ;               input * rate --> sum; input --> output
  2421. ;       thereafter until sum/rate = target:
  2422. ;               sum - input + target --> sum
  2423. ;               sum/rate             --> output
  2424. ;
  2425. ; output: slewed input, with led hi while slewing
  2426. ; inputs:
  2427. ; 0:  input
  2428. ; 1:  target
  2429. ; 2:  rate
  2430. ; 3x: sum
  2431. ; 4x: saved input
  2432. ; 4+: saved target
  2433. ; 5x: saved rate
  2434. ; 5+: flag nz = busy
  2435. ;--------------------------------------------------------------
  2436.         public _slew
  2437. _slew:  test    byte ptr var5+1[di],1   ; busy?
  2438.         jnz     slewa                   ; yes, branch
  2439.         getv    dl,var1                 ; no, see if target=output
  2440.         cmp     dl,outn[di]             ; /
  2441.         jnz     slewb                   ; yes, go slew
  2442.         getv    al,var0                 ; no, see if input has changed
  2443.         cmp     al,var4[di]             ; /
  2444.         jz      slewx                   ; yes, exit no change                
  2445.         ;
  2446. slewb:  mov     var4+1[di],dl           ; save target
  2447.         getv    al,var0                 ; get input
  2448.         mov     var4[di],al             ; save input
  2449.         getv    cl,var2                 ; get rate
  2450.         mov     var5[di],cl             ; save rate
  2451.         ;
  2452.         putn    dl                      ; target --> output
  2453.         or      cl,cl                   ; rate = 0?
  2454.         jz      slewx                   ; yes, just exit
  2455.         putn    al                      ; no, start with input --> output
  2456.         mov     byte ptr var5+1[di],1   ; flag busy
  2457.         mul     cl                      ; ax = input * rate
  2458.         mov     var3[di],ax             ; set new sum
  2459.         jmp     short slewx             ; exit
  2460.         ;
  2461. slewa:  test    byte ptr cs:loops,1     ; every other clock
  2462.         jnz     slewx                   ; branch if not even
  2463.         mov     ax,var3[di]             ; ax = sum
  2464.         mov     dl,var4[di]             ; dx = input
  2465.         mov     dh,0                    ; /
  2466.         sub     ax,dx                   ; ax = sum - input
  2467.         mov     dl,var4+1[di]           ; dx = target
  2468.         add     ax,dx                   ; ax = sum - input + target
  2469.         mov     var3[di],ax             ; save new sum
  2470.         mov     cl,var5[di]             ; cl = rate
  2471.         div     cl                      ; al = new sum / rate
  2472.         putn    al                      ; send to output
  2473.         cmp     al,dl                   ; output = target
  2474.         jnz     slewx                   ; no, exit
  2475.         mov     byte ptr var5+1[di],0   ; yes, flag not busy
  2476.         ;
  2477. slewx:  nextv                           ; exit
  2478.         
  2479. ;==============================================================
  2480. ; slew over time
  2481. ; formula:
  2482. ;       initialize:
  2483. ;               input * 256 --> sum; input --> output
  2484. ;       thereafter until sum/256 = target:
  2485. ;               sum - input + target --> sum
  2486. ;               sum/256              --> output
  2487. ;
  2488. ; output: slewed input, with led hi while slewing
  2489. ; inputs:
  2490. ; 0:  input
  2491. ; 1:  target
  2492. ; 2:  rate
  2493. ; 3x: sum
  2494. ; 4x: saved input
  2495. ; 4+: saved target
  2496. ; 5x: rate countdown
  2497. ; 5+: flag nz = busy
  2498. ;--------------------------------------------------------------
  2499.         public _xslew
  2500. _xslew: test    byte ptr var5+1[di],1   ; busy?
  2501.         jnz     xslewa                  ; yes, branch
  2502.         getv    dl,var1                 ; no, see if target=output
  2503.         cmp     dl,outn[di]             ; /
  2504.         jnz     xslewb                  ; yes, go slew
  2505.         getv    al,var0                 ; no, see if input has changed
  2506.         cmp     al,var4[di]             ; /
  2507.         jz      xslewx                  ; yes, exit no change                
  2508.         ;
  2509. xslewb: mov     var4+1[di],dl           ; save target
  2510.         getv    cl,var2                 ; get rate
  2511.         mov     var5[di],cl             ; save rate
  2512.         getv    al,var0                 ; get input
  2513.         mov     var4[di],al             ; save input
  2514.         ;
  2515.         putn    dl                      ; target --> output
  2516.         or      cl,cl                   ; rate = 0?
  2517.         jz      xslewx                  ; yes, just exit
  2518.         putn    al                      ; no, start with input --> output
  2519.         mov     byte ptr var5+1[di],1   ; flag busy
  2520.         mov     ah,al                   ; ax = input * 256
  2521.         mov     al,0                    ; /
  2522.         mov     var3[di],ax             ; set new sum
  2523.         jmp     short xslewx            ; exit
  2524.         ;
  2525. xslewa: dec     byte ptr var5[di]       ; countdown 
  2526.         jnz     xslewx                  ; /
  2527.         getv    al,var2                 ; get rate
  2528.         or      al,al                   ; somebody make it 0?
  2529.         jnz     xslewc                  ; no, go on
  2530.         getv    al,var1                 ; yes, set output to target
  2531.         mov     dl,al                   ; ...short cut
  2532.         jmp     short xslewz            ; exit finished
  2533.         ;
  2534. xslewc: mov     var5[di],al             ; save rate count
  2535.         mov     ax,var3[di]             ; ax = sum
  2536.         mov     dl,var4[di]             ; dx = input
  2537.         mov     dh,0                    ; /
  2538.         sub     ax,dx                   ; ax = sum - input
  2539.         mov     dl,var4+1[di]           ; dx = target
  2540.         add     ax,dx                   ; ax = sum - input + target
  2541.         mov     var3[di],ax             ; save new sum
  2542.         mov     al,ah                   ; al = new sum / 256
  2543. xslewz: putn    al                      ; send to output
  2544.         cmp     al,dl                   ; output = target
  2545.         jnz     xslewx                  ; no, exit
  2546.         mov     byte ptr var5+1[di],0   ; yes, flag not busy
  2547.         ;
  2548. xslewx: nextv                           ; exit
  2549.         
  2550. ;==============================================================
  2551. ; display input value in scale of CM
  2552. ; inputs: 0: value to be displayed
  2553. ; outputs: none
  2554. ;--------------------------------------------------------------
  2555.      public _noter
  2556. _noter: 
  2557.         mov     colr,yellow     ; set value color
  2558.         getv    al,var0         ; get the input value
  2559.         mov     es,4[di]        ; get seg addr
  2560.         mov     bx,6[di]        ; get module screen address
  2561.         add     bx,318          ; point to readout
  2562.         call    tonote          ; do it
  2563.         mov     colr,green      ; restore to green again
  2564.         nextx
  2565. ;==============================================================
  2566. _TEXT   ENDS
  2567.         END
  2568.  
  2569.