API tools faq
paste
Advertisement
Guest User

Puls player

a guest
May 19th, 2014
75
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASM (NASM) 50.63 KB | None | 0 0
raw download clone embed print report
  1. (main)MV
  2. ***************************************
  3. * Son 2 voix + bruit en utilisant le
  4. * timer
  5. *
  6. * Auteur: S.Devulder
  7. * Date:   Avril 2013
  8. ***************************************
  9.    
  10.        org    $8000
  11.        
  12. PULSE  set    0
  13.        
  14. STATUS equ    $6019
  15. TIMEPT equ    $6027
  16.  
  17. * 6848
  18. CRC    equ    $E7C1  ; ctrl port C
  19. DDRC   equ    $E7C2  ; sens port C
  20. PRC    equ    $E7C3  ; data port C
  21.  
  22. TCR    equ    $E7C5  ; reg cont timer
  23. TMSB   equ    $E7C6  ; compteur timer
  24.  
  25. * 6821 musique et jeux
  26. PRA    equ    $E7CC  ; data port A
  27. PRB    equ    $E7CD  ; data port B
  28. CRA    equ    $E7CE  ; ctrl port A
  29. CRB    equ    $E7CF  ; ctrl port B
  30.  
  31. ***************************************
  32. * Alignement
  33. ***************************************
  34. ALIGN  macro
  35.        org    ((*+\0-1)/\0)*\0
  36.        endm
  37.  
  38. ***************************************
  39. * boucle:
  40. *      REPEAT
  41. *      ....
  42. *      WHILE  condition
  43. ***************************************
  44. REPEAT macro
  45. loop   set    *
  46.        endm
  47. WHILE  macro
  48.        b\0    loop
  49.        endm
  50.    
  51. ***************************************
  52. * variable dans code auto-modifiable
  53. *
  54. *      VAR1   opcode,val,label ;8 bits
  55. *      VAR2   opcode,val,label ;16 bits
  56. ***************************************
  57. VAR1   macro
  58.        \0     \1
  59. \2     set    *-1
  60.        endm
  61. VAR2   macro
  62.        \0     \1
  63. \2     set    *-2
  64.        endm
  65.        
  66. ***************************************
  67. * Point d'entree
  68. ***************************************
  69. ini    jsr    $E800
  70.       ldb    #12
  71.       jsr    $E803
  72.       ldb    #$14
  73.       jsr    $E803
  74.       ldb    #$1B
  75.       jsr    $E803
  76.       ldb    #$68
  77.       jsr    $E803
  78.       setdp  SndInt<-8
  79.       lda    #SndInt<-8
  80.       tfr    a,dp
  81. ***************************************
  82. * Initialise la gestion du son.
  83. * D pointe sur la musique
  84. ***************************************
  85.       orcc   #$50
  86.  
  87. * 8 interrupts timer pour DO 4
  88. * (octave du LA 440)      
  89.       ldd    #478
  90.       std    TMSB
  91.       lda    #$42
  92.       sta    TCR
  93.  
  94. * Init musique et jeux
  95.       ldd    #$043F
  96.       clr    CRB
  97.       stb    PRB
  98.       sta    CRB
  99.       stb    PRB     ; volume full
  100.  
  101. * autorisation interrupt timer      
  102.       ldd    #SndInt ; intr timer
  103.       std    TIMEPT
  104.       lda    #32
  105.       ora    STATUS
  106.       sta    STATUS
  107.  
  108. * TO7: buzzer clavier off
  109.       sta    $6073
  110.      
  111. * Memoire forme
  112.       lda    PRC
  113.       ora    #1
  114.       sta    PRC      
  115.  
  116. * interruptions ON      
  117.       andcc  #255-$50 ; int. on
  118.  
  119.       REPEAT
  120.       bsr    wait
  121.       WHILE  ra
  122.      
  123.       swi
  124.      
  125. wait   ldx    #prec
  126.       ldd    #$4000+199*40
  127.       REPEAT
  128.       std    ,x++
  129.       subd   #40
  130.       cmpx   #prec+64*2
  131.       WHILE  ne
  132.  
  133.       ldu    #buf
  134.       ldx    #$4000+199*40
  135.       clra
  136.       clrb
  137.       REPEAT
  138.       com   ,x+
  139.       std   ,u++
  140.       std   ,u++
  141.       std   ,u++
  142.       std   ,u++
  143.       cmpu  #buf+320
  144.       WHILE ne      
  145.      
  146.       ldu    #buf
  147.       ldy    #prec
  148.       lda    #$80
  149.       REPEAT
  150.       sta    ,-s
  151.       lda    ,u
  152.       lsla
  153.       ldx    a,y
  154.       lda    ,s
  155.       eora   b,x
  156.       sta    b,x
  157.       lda    PRB
  158.       anda   #63
  159.       if     1
  160.       adda   ,u
  161.       adda   ,u
  162.       adda   ,u
  163.       rora
  164.       lsra
  165.       endc
  166.       if     0
  167.       adda   ,u
  168.       adda   ,u
  169.       adda   ,u
  170.       adda   ,u
  171.       adda   ,u
  172.       adda   ,u
  173.       adda   ,u
  174.       rora
  175.       lsra
  176.       lsra
  177.       endc
  178.       if     0
  179.       adda   ,u
  180.       lsra
  181.       endc
  182.       sta    ,u+
  183.       lsla
  184.       ldx    a,y
  185.       lda    ,s
  186.       eora   b,x
  187.       sta    b,x
  188.       lda    ,s+
  189.       lsra
  190.       WHILE  cc
  191.       rora
  192.       incb
  193.       cmpb   #40
  194.       WHILE  ne
  195.       clrb
  196.       ldu    #buf
  197.       WHILE  ra
  198.      
  199. waitx3   ldx    #prec
  200.       ldd    #$8000
  201.       REPEAT
  202.       std    ,x++
  203.       lsra
  204.       WHILE  cc
  205.       rora
  206.       incb
  207.       cmpb   #9
  208.       WHILE  ne
  209.      
  210.       ldu    #buf
  211.       ldx    #$4000+17
  212.       REPEAT
  213.       clr    ,u+
  214.       lda    ,x
  215.       eora   #128
  216.       sta    ,x
  217.       leax   40,x
  218.       cmpx   #$5F40+17
  219.       WHILE  lt
  220.      
  221.       ldy    #prec
  222. aaa    ldu    #buf
  223.       ldx    #$4000+17
  224.       REPEAT
  225.       ldb    ,u
  226.       lslb
  227.       ldd    b,y
  228. *       eora   b,x
  229. *       sta    b,x
  230.       clr    b,x
  231.       ldb    PRB
  232.       andb   #63
  233.       addb   ,u
  234.       addb   ,u
  235.       addb   ,u
  236.       lsrb
  237.       lsrb
  238.       stb    ,u+
  239.       lslb
  240.       ldd    b,y
  241. *       eora   b,x
  242.       sta    b,x
  243.       leax   40,x
  244.  
  245.       cmpx   #$4000+40*200+17
  246.       WHILE  ne
  247.       bra    aaa  
  248.  
  249. prec   rmb    2*64      
  250.      
  251. waitx2   ldx    #buf+320
  252.       ldy    #$4000+32*40+40
  253.      
  254.       REPEAT
  255.       com    ,-y
  256.       cmpy   #$4000+32*40
  257.       WHILE  ne
  258.    
  259.       REPEAT
  260.       clr    ,-x
  261.       cmpx   #buf
  262.       WHILE  ne
  263.    
  264.       lda    #128      
  265.       REPEAT
  266.       pshs   a,y
  267.       lda    #40
  268.       ldb    ,x
  269.       mul
  270.       leay   d,y
  271.       lda    ,s
  272.       eora   ,y
  273.       sta    ,y
  274.       ldb    PRB
  275.       andb   #63
  276.       stb    ,x+
  277.       lda    #40
  278.       mul
  279.       addd   1,s
  280.       tfr    d,y
  281.       lda    ,s
  282.       eora   ,y
  283.       sta    ,y
  284.       puls   a,y
  285.       rora
  286.       WHILE  ne
  287.       rora
  288.       leay   1,y
  289.       cmpx   #buf+320
  290.       WHILE  ne
  291.       ldx    #buf
  292.       leay   -40,y
  293.       WHILE  ra
  294.      
  295. hex2   pshs   d
  296.       bsr    hex
  297.       lda    1,s
  298.       bsr    hex
  299.       puls   d,pc      
  300. hex    pshs   d,x
  301.       ldx    #hextab
  302.       tfr    a,b
  303.       lsrb
  304.       lsrb
  305.       lsrb
  306.       lsrb
  307.       ldb    b,x
  308.       bsr    putc
  309.       tfr    a,b
  310.       andb   #15
  311.       ldb    b,x
  312.       bra    putc+2
  313. putc   pshs   d,x
  314.       ldx    $60CF
  315.       subb   #32
  316.       lda    #8
  317.       mul
  318.       leax   d,x
  319.       ldd    ,x
  320.       sta    160,y
  321.       stb    120,y
  322.       ldd    2,x
  323.       sta    80,y
  324.       stb    40,y
  325.       ldd    4,x
  326.       sta    ,y+
  327.       stb    -41,y
  328.       ldd    6,x
  329.       sta    -81,y
  330.       stb    -121,y
  331.       puls   d,x,pc
  332.      
  333. puts2  bsr    putc
  334. puts   ldb    ,u+
  335.       bne    puts2
  336.       rts
  337.      
  338. waitx  pshs   d,x,y,u
  339.       ldy    #$4000+120
  340.       ldu    #prntab
  341.    
  342.       bsr    puts
  343.       lda    <frq1
  344.       bsr    hex
  345.  
  346.       bsr    puts
  347.       lda    <frq2
  348.       bsr    hex
  349.      
  350.       bsr    puts
  351.       lda    <noise
  352.       bsr    hex
  353.      
  354.       bsr    puts
  355.       ldd    <SongPtr
  356.       bsr    hex2
  357.      
  358.       ldx    #50
  359.       REPEAT
  360.       VAR2   ldd,#0,coord
  361.       bsr    plot
  362.       bsr    move
  363.       std    coord
  364.       jsr    $E809
  365.       bcc    wait2  
  366.       jsr    $E806
  367.       cmpb   #3
  368.       beq    reset
  369.       cmpb   #32
  370.       beq    wait1
  371. wait2  leax   -1,x
  372.       WHILE  ne
  373.          
  374. wait1  puls   x,y,u,d,pc      
  375. reset  jmp    [$FFFE]      
  376.  
  377. plot   pshs   x,d
  378.       lda    #40
  379.       mul
  380.       addd   #$4000+4*40+8*40
  381.       tfr    d,x
  382.       ldb    ,s
  383.       abx
  384.       com    -160,x
  385.       com    -120,x
  386.       com    -80,x
  387.       com    -40,x
  388.       com    ,x
  389.       com    40,x
  390.       com    80,x
  391.       com    120,x      
  392.       puls   x,d,pc
  393.      
  394. move   set    *
  395.       VAR1   adda,#1,dir1
  396.       cmpa   #39      
  397.       bls    move2
  398.       neg    dir1
  399.       adda   dir1
  400.       adda   dir1
  401. move2  set    *
  402.       VAR1   addb,#8,dir2
  403.       cmpb   #200-40
  404.       bls    move3
  405.       neg    dir2
  406.       addb   dir2
  407.       addb   dir2
  408. move3  rts
  409. hextab fcc    /0123456789ABCDEF/      
  410. prntab fcc    /F0=/
  411.       fcb    0
  412.       fcc    / F1=/
  413.       fcb    0
  414.       fcc    / NS=/
  415.       fcb    0
  416.       fcc    / ADR=/
  417.       fcb    0
  418.      
  419. buf    rmb    320
  420.  
  421. ***************************************
  422. * Interruption timer
  423. ***************************************  
  424.       ALIGN  256
  425. SndInt lda    #*<-8
  426.       tfr    a,dp
  427.       dec    <tick
  428.       bne    doSnd
  429.       VAR1   ldb,#1,tckval
  430.       stb    <tick
  431.       dec    <tempo
  432.       beq    Cmd
  433. doSnd  set    *      
  434.       VAR1   ldb,#0,noise
  435.       beq    sndnor
  436. * bruit: il est prioritaire sur
  437. * le son normal.      
  438.       lsrb
  439.       bne    bruit
  440.       VAR2   ldd,#$03F9,seed1
  441.       mul
  442.       VAR2   addd,#0,seed2
  443.       sta    <seed2+1
  444.       stb    <seed1
  445.       coma
  446.       rorb
  447. bruit  stb    <noise
  448.       ldb    #0     ; /!\ pas de clr
  449.       sbcb   #0
  450.       VAR1   andb,#63,vol3
  451. * bruit interruptif: (stop le son)
  452. *       bra    sndn3
  453. * son normal      
  454. sndnor set    *
  455.       VAR1   lda,#0,frq1
  456.       VAR1   adda,#0,osc1
  457.       sta    <osc1
  458.       ifne   PULSE
  459.       bcc    sndn2
  460.       else
  461.       bpl    sndn2
  462.       endc
  463.       VAR1   addb,#31,vol1
  464. sndn2  set    *
  465.       VAR1   lda,#0,frq2
  466.       VAR1   adda,#0,osc2
  467.       sta    <osc2
  468.       ifne   PULSE
  469.       bcc    sndn3
  470.       else
  471.       bpl    sndn3
  472.       endc
  473.       VAR1   addb,#31,vol2
  474. sndn3  stb    PRB
  475.       lda    TMSB
  476.       rti
  477. tick   fcb    1
  478. tempo  fcb    1
  479. ***************************************
  480. * Commandes
  481. * %1yxxxxxx y=canal x=note
  482. * %01xxxxxx RPT1+
  483. * %001xxxxx x=duree simple
  484. * %000xxxxx extra cmd
  485. *     00000 NOISE
  486. *     00001 BPM
  487. *     00010 VOL0
  488. *     00011 VOL1
  489. *     00100 GOTO
  490. *     00101 CALL
  491. *     00110 RETURN
  492. *     00111 DELAY (extended)
  493. *     xxyyy END
  494. ***************************************
  495. Cmd    set    *
  496.       VAR2   ldu,#Song,SongPtr
  497. NxtCmd
  498.       ldb    ,u+
  499.       bmi    CmdFRQ
  500.       beq    CmdNSE
  501.       bitb   #%01000000
  502.       bne    CmdRPT
  503.       bitb   #%00100000
  504.       bne    CmdDLY
  505.       cmpb   #%00001000
  506.       bge    CmdEnd
  507.       lslb
  508.       ldx    #CmdXTR-2
  509.       jmp    [b,x]
  510. CmdEnd ldb    STATUS
  511.       andb   #255-32
  512.       stb    STATUS
  513.       clr    <noise
  514.       clr    <frq1
  515.       clr    <frq2
  516.       bra    doSnd
  517. ***************************************
  518. * %001xxxxx DUREE (simple)
  519. ***************************************
  520. CmdDLY stu    <SongPtr
  521.       ldx    #tabtck-%00100000
  522.       ldb    b,x
  523. CmdDL1 stb    <tempo
  524.       bra    doSnd
  525. ***************************************
  526. * %1yxxxxxx NOTE
  527. ***************************************
  528. CmdFRQ subb   #%01000000
  529.       bmi    CmdFR1
  530.       ldx    #tabfrq-%01000000
  531.       ldb    b,x
  532.       stb    <frq1
  533.       bra    NxtCmd
  534. CmdFR1 ldx    #tabfrq+%10000000
  535.       ldb    b,x
  536.       stb    <frq2
  537.       bra    NxtCmd
  538. ***************************************
  539. * %01xxxxxx RPT 1+xxxxxx
  540. ***************************************
  541. CmdRPT set    *
  542.       VAR2   ldx,#fortab,RPTSTK
  543.       andb   #%00111111
  544.       bne    CmdRP3
  545.       dec    ,x
  546.       beq    CmdRP2
  547.       ldu    1,x
  548.       bra    NxtCmd
  549. CmdRP2 leax   3,x
  550. CmdRP1 stx    <RPTSTK
  551.       bra    NxtCmd
  552. CmdRP3 leax   -3,x
  553.       incb
  554.       stb    ,x
  555.       stu    1,x
  556.       bra    CmdRP1
  557. ***************************************
  558. *     00001 BPM
  559. ***************************************
  560. CmdBPM ldb    ,u+
  561.       stb    <tckval
  562.       stb    <tick
  563.       bra    NxtCmd
  564. ***************************************
  565. *     00100 GOTO
  566. ***************************************
  567. CmdGTO ldu    ,u
  568.       bra    NxtCmd
  569. ***************************************
  570. *     00111 DELAY (extended)
  571. ***************************************
  572. CmdPSE ldb    ,u+
  573.       bra    CmdDL1
  574. ***************************************
  575. *     00000 NOISE
  576. ***************************************
  577. CmdNSE ldb    ,u+
  578.       beq    CmdNS2
  579.       tst    <noise
  580.       bne    CmdNS1
  581.       inc    <noise
  582.       bra    CmdNS1
  583. CmdNS2 stb    <noise
  584. CmdNS1 stb    <vol3
  585.       jmp    <NxtCmd      
  586. ***************************************
  587. *     00010 VOL0
  588. ***************************************
  589. CmdVL0 ldb    ,u+
  590.       stb    <vol1
  591.       jmp    <NxtCmd
  592. ***************************************
  593. *     00011 VOL1
  594. ***************************************
  595. CmdVL1 ldb    ,u+
  596.       stb    <vol2
  597.       jmp    <NxtCmd
  598. ***************************************
  599. *     00110 RETURN
  600. ***************************************
  601. CmdRTS set    *
  602.       VAR2   ldx,#caltab,CalPtr
  603.       ldu    ,x++
  604.       stx    <CalPtr
  605.       jmp    <NxtCmd
  606. ***************************************
  607. *     00101 CALL
  608. ***************************************
  609. CmdJSR ldx    <CalPtr
  610.       leau   2,u
  611.       stu    ,--x
  612.       stx    <CalPtr      
  613.       ldu    -2,u
  614.       jmp    <NxtCmd
  615. ***************************************
  616. * Tableau des commandes supplementaires
  617. ***************************************
  618. CmdXTR fdb    CmdBPM    ;1001
  619.        fdb    CmdVL0    ;1010
  620.        fdb    CmdVL1    ;1011
  621.        fdb    CmdGTO    ;1100
  622.        fdb    CmdJSR    ;1101
  623.        fdb    CmdRTS    ;1110
  624.       fdb    CmdPSE    ;1111  
  625.      
  626. ***************************************
  627. * Commandes
  628. ***************************************
  629. cRPT1  set    %01000000
  630. cNXT   set    cRPT1+0
  631. cNOISE set    %00000000
  632. cTEMPO set    %00000001
  633. cVOL0  set    %00000010
  634. cVOL1  set    %00000011
  635. cJMP   set    %00000100
  636. cJSR   set    %00000101
  637. cRTS   set    %00000110
  638. cDELAY set    %00000111
  639. cEND   set    %00001000
  640.  
  641.  
  642. ***************************************
  643. * Speed (001x xxxx)
  644. * Durees simples = nb de ticks.
  645. * le tick est 1/32 de noire
  646. ***************************************
  647. TICKsi set    %00100000
  648. TICKS  macro
  649. \1     equ    TICKsi
  650. TICKsi set    TICKsi+1
  651.       fcb    \0
  652.       endm
  653. tabtck set   *
  654.       TICKS %10000000,s1    ; ronde
  655.       TICKS %11000000,s1d   ; .
  656.       TICKS %11100000,s1dd  ; ..
  657.       TICKS %11110000,s1ddd ; ...
  658.       TICKS %01000000,s2    ; blanc
  659.       TICKS %01100000,s2d   ; .
  660.       TICKS %01110000,s2dd  ; ..
  661.       TICKS %01111000,s2ddd ; ...
  662.       TICKS %00100000,s4    ; noire
  663.       TICKS %00110000,s4d   ; .
  664.       TICKS %00111000,s4dd  ; ..
  665.       TICKS %00111100,s4ddd ; ...
  666.       TICKS %00010000,s8    ; croche
  667.       TICKS %00011000,s8d   ; .
  668.       TICKS %00011100,s8dd  ; ..
  669.       TICKS %00011110,s8ddd ; ...
  670.       TICKS %00001000,s16   ; 2croch
  671.       TICKS %00001100,s16d  ; .
  672.       TICKS %00001110,s16dd ; ..
  673.       TICKS %00001111,s16ddd
  674.       TICKS %00000100,s32   ; 4croch
  675.       TICKS %00000110,s32d  ; .
  676.       TICKS %00000111,s32dd ; ..
  677.       TICKS %00000010,s64   ; 8croc
  678.       TICKS %00000011,s64d  ; .
  679.       TICKS %00000001,s128  ; 16croc      
  680.      
  681. ***************************************
  682. * Definition des notes
  683. ***************************************
  684. * DO     set    128
  685. * RE     set    9*DO/8
  686. * MI     set    10*DO/8
  687. * FA     set    4*DO/3
  688. * SOL    set    12*DO/8
  689. * LA     set    5*DO/3
  690. * SI     set    15*DO/8
  691.  
  692. n0P    set    %10000000
  693. n1P    set    %11000000
  694.  
  695. * Game temperee
  696. nC     set    128  ; do
  697. nCs    set    136  ; do#
  698. nD     set    144  ; re
  699. nDs    set    152  ; re#
  700. nE     set    161  ; mi
  701. nF     set    171  ; fa
  702. nFs    set    181  ; fa#
  703. nG     set    192  ; sol
  704. nGs    set    203  ; sol#
  705. nA     set    215  ; la
  706. nAs    set    228  ; la#
  707. nB     set    242  ; si
  708.  
  709.       ifne   0
  710. * Gamme naturelle (diminuee)
  711. nCs    set    nC*16/15
  712. nD     set    nC*9/8
  713. nDs    set    nC*6/5
  714. nE     set    nC*5/4
  715. nF     set    nC*4/3
  716. nFs    set    nC*64/45
  717. nG     set    nC*3/2
  718. nGs    set    nC*8/5
  719. nA     set    nC*5/3
  720. nAs    set    nC*9/5
  721. nB     set    nC*15/8
  722.       endc
  723.  
  724.       ifne   0
  725. * Gamme naturelle (augmentee)
  726. nCs    set    nC*25/24
  727. nDs    set    nC*75/64
  728. nFs    set    nC*45/32
  729. nGs    set    nC*25/16
  730. nAs    set    nC*225/128
  731.       endc
  732.  
  733. iOCTAV set    1
  734. NOTE   macro
  735. n0\0\1 equ    iOCTAV+n0P
  736. n1\0\1 equ    iOCTAV+n1P
  737. iOCTAV set    iOCTAV+1
  738. iOCT   set    1<+(4-\1)
  739.       fcb    ((n\0+iOCT)<-(5-\1))
  740.       endm
  741.  
  742. OCTAVE macro
  743.       NOTE   C,\0
  744.       NOTE   Cs,\0
  745.       NOTE   D,\0
  746.       NOTE   Ds,\0
  747.       NOTE   E,\0
  748.       NOTE   F,\0
  749.       NOTE   Fs,\0
  750.       NOTE   G,\0
  751.       NOTE   Gs,\0
  752.       NOTE   A,\0
  753.       NOTE   As,\0
  754.       NOTE   B,\0
  755.       endm
  756.  
  757. tabfrq fcb    0      
  758.       OCTAVE 1
  759.       OCTAVE 2
  760.       OCTAVE 3
  761.       OCTAVE 4
  762.       NOTE   C,5
  763. *       OCTAVE 5
  764.  
  765. ***************************************
  766. * Tableaux des boucles
  767. ***************************************
  768.       rmb    3*4
  769. fortab set    *
  770.  
  771. ***************************************
  772. * Pile des morceaux
  773. ***************************************
  774.       rmb    2*80
  775. caltab set    *
  776.  
  777. ***************************************
  778. * Inclusion musique
  779. ***************************************
  780.       includ SONG.ASM
  781.       end    ini
  782. (include)SONG.ASM
  783. ***************************************
  784. * musique
  785. ***************************************
  786. Song
  787.  
  788. * Video_Game_Themes_-_Castlevania_4.mid
  789.       fcb    cTEMPO,32
  790.       fcb    cVOL0,14
  791.       fcb    cJSR,AGS148<-8
  792.       fcb    AGS148&255
  793.       fcb    cJSR,AGS167<-8
  794.       fcb    AGS167&255
  795.       fcb    cJSR,AGS137<-8
  796.       fcb    AGS137&255
  797.       fcb    cVOL1,14
  798.       fcb    cJSR,AGS179<-8
  799.       fcb    AGS179&255
  800.       fcb    cJSR,AGS147<-8
  801.       fcb    AGS147&255
  802.       fcb    cRPT1+1
  803.       fcb    cJSR,AGS110<-8
  804.       fcb    AGS110&255,cNXT
  805.       fcb    n0D3,n1P,s16,n0F3,s16
  806.       fcb    n0P
  807.       fcb    cJMP,AGS111<-8
  808.       fcb    AGS111&255
  809. AGS179 set    *
  810.       fcb    cJSR,AGS132<-8
  811.       fcb    AGS132&255,n1Gs2
  812.       fcb    cJSR,AGS131<-8
  813.       fcb    AGS131&255,n1B2,n0Ds1
  814.       fcb    cJSR,AGS149<-8
  815.       fcb    AGS149&255,n0As2
  816.       fcb    cJSR,AGS112<-8
  817.       fcb    AGS112&255,n1Gs2,s32
  818.       fcb    n1B2
  819.       fcb    cJSR,AGS172<-8
  820.       fcb    AGS172&255,n1As2
  821.       fcb    cJSR,AGS115<-8
  822.       fcb    AGS115&255,n0D2,s32
  823.       fcb    cJSR,AGS172<-8
  824.       fcb    AGS172&255,n1D3
  825.       fcb    cJSR,AGS115<-8
  826.       fcb    AGS115&255
  827.       fcb    cVOL0,19,n0D2,s32,n1F3
  828.       fcb    n0As2
  829.       fcb    cJSR,AGS195<-8
  830.       fcb    AGS195&255,n1D3
  831.       fcb    cVOL0,14
  832.       fcb    cJSR,AGS148<-8
  833.       fcb    AGS148&255,n1F3
  834.       fcb    cJSR,AGS167<-8
  835.       fcb    AGS167&255,n1P
  836.       fcb    cJSR,AGS137<-8
  837.       fcb    AGS137&255
  838. AGS132 set    *
  839.       fcb    n1Ds3,n0Ds2
  840.       fcb    cJSR,AGS197<-8
  841.       fcb    AGS197&255
  842.       fcb    cVOL1,19,n0Ds1
  843.       fcb    cJSR,AGS181<-8
  844.       fcb    AGS181&255,s32,n0Cs3
  845.       fcb    cJSR,AGS180<-8
  846.       fcb    AGS180&255
  847.       fcb    cJSR,AGS114<-8
  848.       fcb    AGS114&255,n1Ds2,s32
  849.       fcb    cVOL0,19,n1Ds1
  850.       fcb    cJSR,AGS200<-8
  851.       fcb    AGS200&255,n1Ds2
  852.       fcb    cJSR,AGS197<-8
  853.       fcb    AGS197&255,n1Ds1
  854.       fcb    cJSR,AGS183<-8
  855.       fcb    AGS183&255,s32,n1C3
  856.       fcb    cJSR,AGS180<-8
  857.       fcb    AGS180&255
  858.       fcb    cJSR,AGS114<-8
  859.       fcb    AGS114&255
  860.       fcb    cJSR,AGS131<-8
  861.       fcb    AGS131&255,n0Ds1
  862.       fcb    cJSR,AGS200<-8
  863.       fcb    AGS200&255,n0Ds2
  864.       fcb    cJSR,AGS197<-8
  865.       fcb    AGS197&255,n0Ds1
  866.       fcb    cJSR,AGS181<-8
  867.       fcb    AGS181&255,s32,n0B2
  868.       fcb    cJSR,AGS180<-8
  869.       fcb    AGS180&255
  870. AGS114 set    *
  871.       fcb    cNOISE,12,s128
  872.       fcb    cNOISE,7,s128
  873.       fcb    cNOISE,4,s128
  874.       fcb    cNOISE,2
  875. AGS163 set    *
  876.       fcb    s128
  877.       fcb    cNOISE,0
  878.       fcb    cRTS
  879. AGS110 set    *
  880.       fcb    n1Gs3,n0D3
  881.       fcb    cJSR,AGS161<-8
  882.       fcb    AGS161&255,n1F3,n0As1
  883.       fcb    s16
  884.       fcb    cVOL1,14
  885.       fcb    cRPT1+1
  886.       fcb    cJSR,AGS129<-8
  887.       fcb    AGS129&255,cNXT
  888.       fcb    cRPT1+1,n1Gs3,n0D3,s16
  889.       fcb    n1F3,n0As2,s16,cNXT
  890.       fcb    cJSR,AGS129<-8
  891.       fcb    AGS129&255,n1As3,n0D3
  892.       fcb    cJSR,AGS186<-8
  893.       fcb    AGS186&255,n1B3,n0Gs3
  894.       fcb    cJSR,AGS186<-8
  895.       fcb    AGS186&255,n1As3,n0Fs3
  896.       fcb    cJSR,AGS186<-8
  897.       fcb    AGS186&255,n1Gs3,n0F3
  898.       fcb    cJSR,AGS186<-8
  899.       fcb    AGS186&255
  900.       fcb    cVOL1,19,n1Fs3,n0Fs2
  901.       fcb    cJSR,AGS115<-8
  902.       fcb    AGS115&255
  903.       fcb    cVOL1,14,s32
  904.       fcb    cVOL1,19,n1F3
  905.       fcb    cJSR,AGS175<-8
  906.       fcb    AGS175&255,s32,n1Fs3
  907.       fcb    n0Ds3
  908.       fcb    cJSR,AGS156<-8
  909.       fcb    AGS156&255,n1Fs2,n0Cs1
  910.       fcb    s128
  911.       fcb    cJSR,AGS122<-8
  912.       fcb    AGS122&255
  913.       fcb    cNOISE,0,n1F3,n0As2
  914.       fcb    cJSR,AGS120<-8
  915.       fcb    AGS120&255,n1Fs2
  916.       fcb    cJSR,AGS174<-8
  917.       fcb    AGS174&255
  918.       fcb    cJSR,AGS166<-8
  919.       fcb    AGS166&255,s16d
  920.       fcb    cJSR,AGS115<-8
  921.       fcb    AGS115&255
  922.       fcb    cVOL0,14,s16d
  923.       fcb    cJSR,AGS134<-8
  924.       fcb    AGS134&255,n0Ds1,s32
  925.       fcb    n1Ds3,n0Fs2
  926.       fcb    cJSR,AGS112<-8
  927.       fcb    AGS112&255,n1Cs1,s32
  928.       fcb    n1F3,n0As2
  929.       fcb    cJSR,AGS202<-8
  930.       fcb    AGS202&255,n0Cs2,s32
  931.       fcb    cVOL1,19,n1F3,n0Fs2
  932.       fcb    cJSR,AGS175<-8
  933.       fcb    AGS175&255,n1Ds2
  934.       fcb    cJSR,AGS192<-8
  935.       fcb    AGS192&255,n1Fs2,n0Ds1
  936.       fcb    cJSR,AGS170<-8
  937.       fcb    AGS170&255,n1Fs2,n0E1
  938.       fcb    s32,n1A3,n0Ds3
  939.       fcb    cJSR,AGS112<-8
  940.       fcb    AGS112&255,n0A2,s32
  941.       fcb    n1As3,n0A3
  942.       fcb    cJSR,AGS113<-8
  943.       fcb    AGS113&255,n1A2
  944.       fcb    cJSR,AGS185<-8
  945.       fcb    AGS185&255,n1F3
  946.       fcb    cJSR,AGS193<-8
  947.       fcb    AGS193&255,n0A2
  948.       fcb    cJSR,AGS136<-8
  949.       fcb    AGS136&255,n1A3,n0F3
  950.       fcb    cJSR,AGS145<-8
  951.       fcb    AGS145&255,n1A2,n0F1
  952.       fcb    s32,n1A3,n0Gs3
  953.       fcb    cJSR,AGS198<-8
  954.       fcb    AGS198&255,n1Gs2
  955.       fcb    cJSR,AGS185<-8
  956.       fcb    AGS185&255,n1E3
  957.       fcb    cJSR,AGS193<-8
  958.       fcb    AGS193&255,n0Gs2
  959.       fcb    cJSR,AGS136<-8
  960.       fcb    AGS136&255,n1Gs3,n0E3
  961.       fcb    cJSR,AGS145<-8
  962.       fcb    AGS145&255,n1Gs2,n0E1
  963.       fcb    s32,n1Gs3
  964.       fcb    cJSR,AGS182<-8
  965.       fcb    AGS182&255,n1Fs2,s32
  966.       fcb    cJSR,AGS166<-8
  967.       fcb    AGS166&255,s32
  968.       fcb    cJSR,AGS145<-8
  969.       fcb    AGS145&255,s32
  970.       fcb    cVOL0,14
  971.       fcb    cJSR,AGS180<-8
  972.       fcb    AGS180&255,n1Cs3
  973.       fcb    cVOL0,19
  974.       fcb    cJSR,AGS113<-8
  975.       fcb    AGS113&255
  976.       fcb    cVOL0,14,s32
  977.       fcb    cVOL1,19,n1Ds3,n0Fs2
  978.       fcb    cJSR,AGS177<-8
  979.       fcb    AGS177&255,n0As2
  980.       fcb    cJSR,AGS112<-8
  981.       fcb    AGS112&255,n1Gs2,n0Fs2
  982.       fcb    cJSR,AGS192<-8
  983.       fcb    AGS192&255,n0Fs2,n1P
  984.       fcb    s32
  985.       fcb    cVOL1,19,n1F3
  986.       fcb    cJSR,AGS176<-8
  987.       fcb    AGS176&255,s32,n1Fs3
  988.       fcb    cVOL0,19
  989.       fcb    cJSR,AGS113<-8
  990.       fcb    AGS113&255
  991.       fcb    cJSR,AGS130<-8
  992.       fcb    AGS130&255,n1As3,n0F3
  993.       fcb    cJSR,AGS112<-8
  994.       fcb    AGS112&255,n1Fs2,n0Ds2
  995.       fcb    s32,n1A3,n0Ds3
  996.       fcb    cJSR,AGS112<-8
  997.       fcb    AGS112&255,n0F2,s32
  998.       fcb    n1As3,n0A3
  999.       fcb    cJSR,AGS201<-8
  1000.       fcb    AGS201&255
  1001.       fcb    cJSR,AGS193<-8
  1002.       fcb    AGS193&255,n0A2
  1003.       fcb    cJSR,AGS136<-8
  1004.       fcb    AGS136&255,n1Ds4
  1005.       fcb    cJSR,AGS160<-8
  1006.       fcb    AGS160&255,n1Ds4,n0D4
  1007.       fcb    cJSR,AGS112<-8
  1008.       fcb    AGS112&255,n0As2,s32
  1009.       fcb    cVOL1,19
  1010.       fcb    cJSR,AGS175<-8
  1011.       fcb    AGS175&255,n1As1,s32
  1012.       fcb    n1F4,n0D4
  1013.       fcb    cJSR,AGS112<-8
  1014.       fcb    AGS112&255,n1As2,n0Gs1
  1015.       fcb    s32,n1Ds4,n0As3
  1016.       fcb    cJSR,AGS112<-8
  1017.       fcb    AGS112&255,n1As2,s32
  1018.       fcb    n1F4,n0As2
  1019.       fcb    cJSR,AGS112<-8
  1020.       fcb    AGS112&255,n1As3,s32
  1021.       fcb    cVOL1,19
  1022.       fcb    cJSR,AGS180<-8
  1023.       fcb    AGS180&255
  1024.       fcb    cJSR,AGS145<-8
  1025.       fcb    AGS145&255
  1026.       fcb    cVOL1,14,s32
  1027.       fcb    cJSR,AGS133<-8
  1028.       fcb    AGS133&255
  1029.       fcb    cVOL0,19,s32
  1030.       fcb    cJSR,AGS162<-8
  1031.       fcb    AGS162&255
  1032.       fcb    cJSR,AGS113<-8
  1033.       fcb    AGS113&255
  1034.       fcb    cVOL0,14,s32,n1Ds3
  1035.       fcb    cJSR,AGS112<-8
  1036.       fcb    AGS112&255,n1Cs1,s32
  1037.       fcb    n1F3
  1038.       fcb    cJSR,AGS134<-8
  1039.       fcb    AGS134&255,n1Ds1
  1040.       fcb    cJSR,AGS192<-8
  1041.       fcb    AGS192&255,n1As2,n0Cs2
  1042.       fcb    s32
  1043.       fcb    cVOL1,19,n1F3,n0As2
  1044.       fcb    cJSR,AGS181<-8
  1045.       fcb    AGS181&255,n1Ds2
  1046.       fcb    cJSR,AGS169<-8
  1047.       fcb    AGS169&255,n1Ds1
  1048.       fcb    cJSR,AGS170<-8
  1049.       fcb    AGS170&255,n1As2,n0E1
  1050.       fcb    s32,n1A3,n0C3
  1051.       fcb    cJSR,AGS198<-8
  1052.       fcb    AGS198&255
  1053.       fcb    cJSR,AGS136<-8
  1054.       fcb    AGS136&255,n0F3
  1055.       fcb    cJSR,AGS193<-8
  1056.       fcb    AGS193&255,n1A2
  1057.       fcb    cJSR,AGS185<-8
  1058.       fcb    AGS185&255,n1A3,n0C3
  1059.       fcb    cJSR,AGS145<-8
  1060.       fcb    AGS145&255,n1F1,s32
  1061.       fcb    n1Gs3,n0B2
  1062.       fcb    cJSR,AGS198<-8
  1063.       fcb    AGS198&255
  1064.       fcb    cJSR,AGS136<-8
  1065.       fcb    AGS136&255,n0E3
  1066.       fcb    cJSR,AGS193<-8
  1067.       fcb    AGS193&255,n1Gs2
  1068.       fcb    cJSR,AGS185<-8
  1069.       fcb    AGS185&255,n1Gs3,n0B2
  1070.       fcb    cJSR,AGS186<-8
  1071.       fcb    AGS186&255
  1072.       fcb    cJSR,AGS112<-8
  1073.       fcb    AGS112&255,n1E1,s32
  1074.       fcb    n1Gs3
  1075.       fcb    cJSR,AGS133<-8
  1076.       fcb    AGS133&255,s32
  1077.       fcb    cVOL0,19
  1078.       fcb    cJSR,AGS180<-8
  1079.       fcb    AGS180&255,n1Cs3
  1080.       fcb    cVOL0,24
  1081.       fcb    cJSR,AGS113<-8
  1082.       fcb    AGS113&255
  1083.       fcb    cVOL0,19,s32
  1084.       fcb    cVOL1,19,n1Ds3
  1085.       fcb    cVOL0,14
  1086.       fcb    cJSR,AGS177<-8
  1087.       fcb    AGS177&255
  1088.       fcb    cJSR,AGS134<-8
  1089.       fcb    AGS134&255,n1Gs2,s32
  1090.       fcb    n1Fs3
  1091.       fcb    cVOL0,19
  1092.       fcb    cJSR,AGS190<-8
  1093.       fcb    AGS190&255
  1094.       fcb    cVOL1,19,n1F3
  1095.       fcb    cJSR,AGS176<-8
  1096.       fcb    AGS176&255
  1097.       fcb    cJSR,AGS159<-8
  1098.       fcb    AGS159&255,n0As2,n1P
  1099.       fcb    cJSR,AGS170<-8
  1100.       fcb    AGS170&255,n1As2,n0Ds2
  1101.       fcb    s32,n1Ds3,n0A2
  1102.       fcb    cJSR,AGS112<-8
  1103.       fcb    AGS112&255,n1F2,s32
  1104.       fcb    n1As3
  1105.       fcb    cJSR,AGS201<-8
  1106.       fcb    AGS201&255
  1107.       fcb    cVOL0,19
  1108.       fcb    cJSR,AGS180<-8
  1109.       fcb    AGS180&255
  1110.       fcb    cJSR,AGS183<-8
  1111.       fcb    AGS183&255
  1112.       fcb    cJSR,AGS136<-8
  1113.       fcb    AGS136&255,n1A3
  1114.       fcb    cJSR,AGS160<-8
  1115.       fcb    AGS160&255
  1116.       fcb    cVOL1,19,n1As3,n0A3
  1117.       fcb    cJSR,AGS181<-8
  1118.       fcb    AGS181&255,s32
  1119.       fcb    cVOL1,19,n1Gs3
  1120.       fcb    cJSR,AGS175<-8
  1121.       fcb    AGS175&255,n0As1,s32
  1122.       fcb    n1As3
  1123.       fcb    cVOL0,19,n0Fs3
  1124.       fcb    cJSR,AGS183<-8
  1125.       fcb    AGS183&255,n1Gs1,s32
  1126.       fcb    n1Gs3
  1127.       fcb    cVOL0,19,n0F3
  1128.       fcb    cJSR,AGS112<-8
  1129.       fcb    AGS112&255,n1As1,s32
  1130.       fcb    n1Fs3
  1131.       fcb    cVOL0,14
  1132.       fcb    cJSR,AGS115<-8
  1133.       fcb    AGS115&255,n1Ds3,s32
  1134.       fcb    cVOL0,19,n1D3
  1135.       fcb    cJSR,AGS124<-8
  1136.       fcb    AGS124&255,s32,n1B2
  1137.       fcb    cJSR,AGS195<-8
  1138.       fcb    AGS195&255,n1As2
  1139.       fcb    cJSR,AGS124<-8
  1140.       fcb    AGS124&255
  1141.       fcb    cVOL0,14,s32,n1Fs3
  1142.       fcb    cJSR,AGS115<-8
  1143.       fcb    AGS115&255,n1B1
  1144.       fcb    cJSR,AGS169<-8
  1145.       fcb    AGS169&255,n0B1
  1146.       fcb    cJSR,AGS144<-8
  1147.       fcb    AGS144&255,n0B1
  1148.       fcb    cJSR,AGS146<-8
  1149.       fcb    AGS146&255,n0B1
  1150.       fcb    cJSR,AGS152<-8
  1151.       fcb    AGS152&255,n0B2
  1152.       fcb    cJSR,AGS112<-8
  1153.       fcb    AGS112&255,n0As2,n1P
  1154.       fcb    s32
  1155.       fcb    cVOL1,19,n1B2
  1156.       fcb    cJSR,AGS140<-8
  1157.       fcb    AGS140&255,n0B2
  1158.       fcb    cJSR,AGS138<-8
  1159.       fcb    AGS138&255,n0B1,n1P
  1160.       fcb    cJSR,AGS159<-8
  1161.       fcb    AGS159&255,n0B1
  1162.       fcb    cJSR,AGS151<-8
  1163.       fcb    AGS151&255,n0B1
  1164.       fcb    cJSR,AGS164<-8
  1165.       fcb    AGS164&255,n0B1
  1166.       fcb    cJSR,AGS127<-8
  1167.       fcb    AGS127&255
  1168.       fcb    cJSR,AGS190<-8
  1169.       fcb    AGS190&255,n1Gs3,n0Fs3
  1170.       fcb    cJSR,AGS112<-8
  1171.       fcb    AGS112&255,n0As1,n1P
  1172.       fcb    cJSR,AGS169<-8
  1173.       fcb    AGS169&255
  1174.       fcb    cJSR,AGS144<-8
  1175.       fcb    AGS144&255,n0As1
  1176.       fcb    cJSR,AGS146<-8
  1177.       fcb    AGS146&255,n0As1
  1178.       fcb    cJSR,AGS152<-8
  1179.       fcb    AGS152&255,n0As2
  1180.       fcb    cJSR,AGS178<-8
  1181.       fcb    AGS178&255,n1As2
  1182.       fcb    cJSR,AGS140<-8
  1183.       fcb    AGS140&255,n0As2
  1184.       fcb    cJSR,AGS138<-8
  1185.       fcb    AGS138&255,n0As1,n1P
  1186.       fcb    cJSR,AGS159<-8
  1187.       fcb    AGS159&255,n0As1
  1188.       fcb    cJSR,AGS151<-8
  1189.       fcb    AGS151&255,n0As1
  1190.       fcb    cJSR,AGS164<-8
  1191.       fcb    AGS164&255,n0As1
  1192.       fcb    cJSR,AGS127<-8
  1193.       fcb    AGS127&255
  1194.       fcb    cJSR,AGS113<-8
  1195.       fcb    AGS113&255
  1196.       fcb    cJSR,AGS130<-8
  1197.       fcb    AGS130&255,n1Gs3,n0Fs3
  1198.       fcb    cJSR,AGS115<-8
  1199.       fcb    AGS115&255,n0A1,n1P
  1200.       fcb    cJSR,AGS169<-8
  1201.       fcb    AGS169&255
  1202.       fcb    cJSR,AGS144<-8
  1203.       fcb    AGS144&255,n0A1
  1204.       fcb    cJSR,AGS146<-8
  1205.       fcb    AGS146&255,n0A1
  1206.       fcb    cJSR,AGS152<-8
  1207.       fcb    AGS152&255,n0A2
  1208.       fcb    cJSR,AGS178<-8
  1209.       fcb    AGS178&255,n1A2
  1210.       fcb    cJSR,AGS140<-8
  1211.       fcb    AGS140&255,n0A2
  1212.       fcb    cJSR,AGS138<-8
  1213.       fcb    AGS138&255,n0A1,n1P
  1214.       fcb    cJSR,AGS159<-8
  1215.       fcb    AGS159&255,n0A1
  1216.       fcb    cJSR,AGS151<-8
  1217.       fcb    AGS151&255,n0A1
  1218.       fcb    cJSR,AGS164<-8
  1219.       fcb    AGS164&255,n0A1
  1220.       fcb    cJSR,AGS151<-8
  1221.       fcb    AGS151&255,n0A1,n1P,s32
  1222.       fcb    n1Gs3,n0D2
  1223.       fcb    cJSR,AGS112<-8
  1224.       fcb    AGS112&255,n1As1
  1225.       fcb    cJSR,AGS143<-8
  1226.       fcb    AGS143&255,n1Ds2,n0As1
  1227.       fcb    cJSR,AGS189<-8
  1228.       fcb    AGS189&255,n1E2
  1229.       fcb    cJSR,AGS189<-8
  1230.       fcb    AGS189&255,n1F2
  1231.       fcb    cJSR,AGS189<-8
  1232.       fcb    AGS189&255,n1Gs2
  1233.       fcb    cJSR,AGS180<-8
  1234.       fcb    AGS180&255
  1235.       fcb    cJSR,AGS141<-8
  1236.       fcb    AGS141&255
  1237.       fcb    cJSR,AGS180<-8
  1238.       fcb    AGS180&255,n1Fs3,n0As2
  1239.       fcb    s8
  1240.       fcb    cVOL1,19,s16
  1241.       fcb    cVOL1,14,n0Ds3
  1242.       fcb    cJSR,AGS125<-8
  1243.       fcb    AGS125&255,n1C3,n0As2
  1244.       fcb    s8
  1245.       fcb    cVOL0,19,n0A2,s16,n1F3
  1246.       fcb    cVOL0,14,n0C3,s8
  1247.       fcb    cVOL1,19,s16
  1248.       fcb    cVOL1,14,n0Ds3,s8,n1D3
  1249.       fcb    s8
  1250.       fcb    cVOL1,19,n0As2,s8d
  1251.       fcb    cVOL1,14
  1252.       fcb    cVOL0,19,n0F2,s32
  1253.       fcb    cVOL0,14,n0As2,s32
  1254.       fcb    cVOL0,19,s16d
  1255.       fcb    cVOL0,14,s32,n1Ds3
  1256.       fcb    cVOL0,19,s16
  1257.       fcb    cVOL0,14,n0D3,s16
  1258.       fcb    cVOL1,19,n0As2,s16
  1259.       fcb    cVOL1,14,n0B2
  1260.       fcb    cJSR,AGS125<-8
  1261.       fcb    AGS125&255
  1262.       fcb    cVOL0,19,n0Gs2,s8
  1263.       fcb    cVOL0,24,n1Gs1,s16,n1B2
  1264.       fcb    cVOL0,19,s8
  1265.       fcb    cVOL1,19
  1266.       fcb    cVOL0,14,s16
  1267.       fcb    cVOL1,14,n1Ds3,n0B2,s16
  1268.       fcb    cVOL0,19,n0Gs2,s32
  1269.       fcb    cVOL0,14,n0B2,s32,n1Fs3
  1270.       fcb    n0Ds3,s8
  1271.       fcb    cVOL1,19,n0A2,s16
  1272.       fcb    cVOL1,14,n0F3,s8
  1273.       fcb    cVOL0,19,n1A2,s16
  1274.       fcb    cVOL0,14,n1Ds3,s8,n1As3
  1275.       fcb    cVOL0,19,n0As2
  1276.       fcb    cJSR,AGS119<-8
  1277.       fcb    AGS119&255,n1As3
  1278.       fcb    cJSR,AGS119<-8
  1279.       fcb    AGS119&255
  1280.       fcb    cVOL1,19,n1As3
  1281.       fcb    cVOL0,24
  1282.       fcb    cJSR,AGS119<-8
  1283.       fcb    AGS119&255,n1As3
  1284.       fcb    cVOL0,19
  1285.       fcb    cJSR,AGS122<-8
  1286.       fcb    AGS122&255
  1287.       fcb    cNOISE,2,s128
  1288.       fcb    cNOISE,0,n1B3,s32,n1As3
  1289.       fcb    cRPT1+1
  1290.       fcb    cJSR,AGS158<-8
  1291.       fcb    AGS158&255,cNXT
  1292.       fcb    cVOL0,24
  1293.       fcb    cJSR,AGS158<-8
  1294.       fcb    AGS158&255
  1295.       fcb    cVOL0,19
  1296.       fcb    cJSR,AGS158<-8
  1297.       fcb    AGS158&255
  1298.       fcb    cRPT1+1
  1299.       fcb    cJSR,AGS168<-8
  1300.       fcb    AGS168&255,cNXT
  1301.       fcb    cVOL0,24
  1302.       fcb    cJSR,AGS186<-8
  1303.       fcb    AGS186&255
  1304.       fcb    cVOL0,19
  1305.       fcb    cJSR,AGS156<-8
  1306.       fcb    AGS156&255,s32
  1307.       fcb    cVOL1,14
  1308.       fcb    cNOISE,18,s128
  1309.       fcb    cJSR,AGS116<-8
  1310.       fcb    AGS116&255,s128
  1311.       fcb    cNOISE,10
  1312.       fcb    cJSR,AGS118<-8
  1313.       fcb    AGS118&255
  1314.       fcb    cNOISE,20,s128
  1315.       fcb    cNOISE,0
  1316.       fcb    cNOISE,16,s128
  1317.       fcb    cNOISE,10,s128
  1318.       fcb    cNOISE,0
  1319.       fcb    cNOISE,20,s128
  1320.       fcb    cNOISE,0
  1321.       fcb    cJSR,AGS174<-8
  1322.       fcb    AGS174&255
  1323.       fcb    cVOL0,24,n1P
  1324.       fcb    cJSR,AGS195<-8
  1325.       fcb    AGS195&255
  1326.       fcb    cVOL0,14,n1As1
  1327.       fcb    cJSR,AGS195<-8
  1328.       fcb    AGS195&255,n1Fs2
  1329.       fcb    cVOL0,22,n0Ds1
  1330.       fcb    cJSR,AGS115<-8
  1331.       fcb    AGS115&255
  1332.       fcb    cVOL0,14
  1333.       fcb    cJSR,AGS171<-8
  1334.       fcb    AGS171&255,n0Ds1
  1335.       fcb    cJSR,AGS123<-8
  1336.       fcb    AGS123&255
  1337.       fcb    cVOL0,18
  1338.       fcb    cJSR,AGS187<-8
  1339.       fcb    AGS187&255,n0Ds2,s32
  1340.       fcb    cVOL0,18
  1341.       fcb    cVOL1,18,n1Fs1
  1342.       fcb    cJSR,AGS181<-8
  1343.       fcb    AGS181&255,n1Fs2
  1344.       fcb    cJSR,AGS139<-8
  1345.       fcb    AGS139&255
  1346.       fcb    cJSR,AGS165<-8
  1347.       fcb    AGS165&255,s32
  1348.       fcb    cVOL0,29
  1349.       fcb    cJSR,AGS180<-8
  1350.       fcb    AGS180&255
  1351.       fcb    cVOL0,25
  1352.       fcb    cJSR,AGS142<-8
  1353.       fcb    AGS142&255,n0Cs2
  1354.       fcb    cJSR,AGS153<-8
  1355.       fcb    AGS153&255
  1356.       fcb    cVOL1,14,n1Cs3
  1357.       fcb    cJSR,AGS184<-8
  1358.       fcb    AGS184&255,s32,n1Cs3
  1359.       fcb    cJSR,AGS180<-8
  1360.       fcb    AGS180&255,n1Fs2
  1361.       fcb    cJSR,AGS142<-8
  1362.       fcb    AGS142&255,n0B1
  1363.       fcb    cJSR,AGS153<-8
  1364.       fcb    AGS153&255
  1365.       fcb    cVOL1,14,n1B2
  1366.       fcb    cJSR,AGS184<-8
  1367.       fcb    AGS184&255
  1368.       fcb    cJSR,AGS196<-8
  1369.       fcb    AGS196&255,n1B2,s32
  1370.       fcb    cVOL1,18,n1Fs1
  1371.       fcb    cJSR,AGS187<-8
  1372.       fcb    AGS187&255,n0B1
  1373.       fcb    cJSR,AGS153<-8
  1374.       fcb    AGS153&255
  1375.       fcb    cJSR,AGS121<-8
  1376.       fcb    AGS121&255,n0Gs1
  1377.       fcb    cJSR,AGS135<-8
  1378.       fcb    AGS135&255,n1Gs2,n0Ds2
  1379.       fcb    cJSR,AGS139<-8
  1380.       fcb    AGS139&255,n1As2,s32
  1381.       fcb    cVOL0,22
  1382.       fcb    cVOL1,18,n1F1
  1383.       fcb    cJSR,AGS181<-8
  1384.       fcb    AGS181&255,n1Fs2,s32
  1385.       fcb    cVOL1,19,n1F2
  1386.       fcb    cVOL0,18
  1387.       fcb    cJSR,AGS180<-8
  1388.       fcb    AGS180&255
  1389.       fcb    cVOL1,18,n1D2,n0F1
  1390.       fcb    cJSR,AGS176<-8
  1391.       fcb    AGS176&255
  1392.       fcb    cVOL0,14,n0Cs2
  1393.       fcb    cJSR,AGS150<-8
  1394.       fcb    AGS150&255
  1395.       fcb    cVOL0,14,n0D2,s32
  1396.       fcb    cVOL0,18
  1397.       fcb    cJSR,AGS183<-8
  1398.       fcb    AGS183&255,n0As1,s32
  1399.       fcb    cVOL1,18
  1400.       fcb    cVOL0,18,n0Fs1
  1401.       fcb    cJSR,AGS181<-8
  1402.       fcb    AGS181&255,n1Fs2,n0F2
  1403.       fcb    cJSR,AGS139<-8
  1404.       fcb    AGS139&255,n1Fs2,s32
  1405.       fcb    cVOL1,22,n1Ds2,n0Fs1
  1406.       fcb    cJSR,AGS187<-8
  1407.       fcb    AGS187&255,n0Ds2
  1408.       fcb    cJSR,AGS150<-8
  1409.       fcb    AGS150&255
  1410.       fcb    cVOL0,14,n0Ds1,s32
  1411.       fcb    cVOL0,18,n0Ds2
  1412.       fcb    cJSR,AGS183<-8
  1413.       fcb    AGS183&255,n0Ds1,s32
  1414.       fcb    cVOL1,29
  1415.       fcb    cJSR,AGS180<-8
  1416.       fcb    AGS180&255,n0Ds2
  1417.       fcb    cJSR,AGS180<-8
  1418.       fcb    AGS180&255,n0Ds1
  1419.       fcb    cJSR,AGS112<-8
  1420.       fcb    AGS112&255
  1421.       fcb    cVOL1,22
  1422.       fcb    cJSR,AGS171<-8
  1423.       fcb    AGS171&255,n0Cs2,s32
  1424.       fcb    cVOL0,18
  1425.       fcb    cJSR,AGS173<-8
  1426.       fcb    AGS173&255
  1427.       fcb    cJSR,AGS135<-8
  1428.       fcb    AGS135&255,n1Cs3
  1429.       fcb    cJSR,AGS154<-8
  1430.       fcb    AGS154&255,n1Cs2
  1431.       fcb    cJSR,AGS157<-8
  1432.       fcb    AGS157&255,n1Cs2,s32
  1433.       fcb    cVOL0,29
  1434.       fcb    cJSR,AGS180<-8
  1435.       fcb    AGS180&255,n1Cs3
  1436.       fcb    cJSR,AGS180<-8
  1437.       fcb    AGS180&255,n1Cs2
  1438.       fcb    cJSR,AGS155<-8
  1439.       fcb    AGS155&255,n1B1
  1440.       fcb    cJSR,AGS199<-8
  1441.       fcb    AGS199&255
  1442.       fcb    cJSR,AGS135<-8
  1443.       fcb    AGS135&255,n1B2
  1444.       fcb    cJSR,AGS154<-8
  1445.       fcb    AGS154&255,n1B1
  1446.       fcb    cJSR,AGS157<-8
  1447.       fcb    AGS157&255,n1B1,s32
  1448.       fcb    cVOL0,29
  1449.       fcb    cJSR,AGS155<-8
  1450.       fcb    AGS155&255,n1B2
  1451.       fcb    cJSR,AGS199<-8
  1452.       fcb    AGS199&255
  1453.       fcb    cJSR,AGS126<-8
  1454.       fcb    AGS126&255
  1455.       fcb    cVOL0,18,n0Fs1
  1456.       fcb    cJSR,AGS187<-8
  1457.       fcb    AGS187&255,n0Gs1
  1458.       fcb    cJSR,AGS150<-8
  1459.       fcb    AGS150&255
  1460.       fcb    cVOL1,14,n1Gs2
  1461.       fcb    cVOL0,22,n0Fs2
  1462.       fcb    cJSR,AGS157<-8
  1463.       fcb    AGS157&255,n1As2
  1464.       fcb    cJSR,AGS139<-8
  1465.       fcb    AGS139&255,n1Ds2,s32
  1466.       fcb    cVOL0,18
  1467.       fcb    cVOL1,19,n1F2
  1468.       fcb    cJSR,AGS180<-8
  1469.       fcb    AGS180&255
  1470.       fcb    cVOL1,22
  1471.       fcb    cJSR,AGS173<-8
  1472.       fcb    AGS173&255,s32
  1473.       fcb    cVOL1,18,n1As2
  1474.       fcb    cVOL0,22,n0D2
  1475.       fcb    cJSR,AGS183<-8
  1476.       fcb    AGS183&255,n0F2,s32
  1477.       fcb    cVOL0,22
  1478.       fcb    cJSR,AGS183<-8
  1479.       fcb    AGS183&255,s32
  1480.       fcb    cVOL1,22
  1481.       fcb    cVOL0,19,n0As1
  1482.       fcb    cJSR,AGS180<-8
  1483.       fcb    AGS180&255
  1484.       fcb    cVOL1,18
  1485.       fcb    cJSR,AGS162<-8
  1486.       fcb    AGS162&255,n1P
  1487.       fcb    cJSR,AGS149<-8
  1488.       fcb    AGS149&255,n1As2
  1489.       fcb    cVOL0,19,n0B1
  1490.       fcb    cJSR,AGS180<-8
  1491.       fcb    AGS180&255
  1492.       fcb    cVOL0,28,n0As1,n1P
  1493.       fcb    cJSR,AGS161<-8
  1494.       fcb    AGS161&255,n1B1
  1495.       fcb    cVOL0,19
  1496.       fcb    cJSR,AGS149<-8
  1497.       fcb    AGS149&255,n1As2
  1498.       fcb    cVOL0,24
  1499.       fcb    cJSR,AGS161<-8
  1500.       fcb    AGS161&255,n1B1
  1501.       fcb    cVOL0,19
  1502.       fcb    cJSR,AGS180<-8
  1503.       fcb    AGS180&255,n1D2
  1504.       fcb    cJSR,AGS149<-8
  1505.       fcb    AGS149&255,n1As2,n0D2
  1506.       fcb    cJSR,AGS162<-8
  1507.       fcb    AGS162&255,n1As1
  1508.       fcb    cJSR,AGS180<-8
  1509.       fcb    AGS180&255
  1510.       fcb    cJSR,AGS141<-8
  1511.       fcb    AGS141&255,n1As1
  1512.       fcb    cJSR,AGS194<-8
  1513.       fcb    AGS194&255,n1As2
  1514.       fcb    cVOL0,19,n0F2
  1515.       fcb    cJSR,AGS180<-8
  1516.       fcb    AGS180&255,n1D2
  1517.       fcb    cJSR,AGS162<-8
  1518.       fcb    AGS162&255,n1As1
  1519.       fcb    cRPT1+1
  1520.       fcb    cJSR,AGS194<-8
  1521.       fcb    AGS194&255,cNXT
  1522.       fcb    n1As2
  1523.       fcb    cVOL0,14,n0Fs2
  1524.       fcb    cJSR,AGS112<-8
  1525.       fcb    AGS112&255,n0Gs2,s32
  1526.       fcb    cVOL1,24,n0F2
  1527.       fcb    cJSR,AGS161<-8
  1528.       fcb    AGS161&255,n0Fs2
  1529.       fcb    cJSR,AGS112<-8
  1530.       fcb    AGS112&255,n0Gs2,s32
  1531.       fcb    cJSR,AGS180<-8
  1532.       fcb    AGS180&255
  1533.       fcb    cVOL1,24,n0Fs2
  1534.       fcb    cJSR,AGS156<-8
  1535.       fcb    AGS156&255,s128
  1536.       fcb    cJSR,AGS122<-8
  1537.       fcb    AGS122&255
  1538.       fcb    cNOISE,0
  1539.       fcb    cVOL1,14,n0Gs2
  1540.       fcb    cJSR,AGS120<-8
  1541.       fcb    AGS120&255
  1542.       fcb    cJSR,AGS174<-8
  1543.       fcb    AGS174&255
  1544.       fcb    cVOL1,19,n0Fs2
  1545.       fcb    cJSR,AGS149<-8
  1546.       fcb    AGS149&255
  1547.       fcb    cVOL0,19,n0As1
  1548.       fcb    cJSR,AGS183<-8
  1549.       fcb    AGS183&255,n0F2,s32
  1550.       fcb    n1D2
  1551.       fcb    cJSR,AGS148<-8
  1552.       fcb    AGS148&255,n1As1
  1553.       fcb    cJSR,AGS117<-8
  1554.       fcb    AGS117&255,n1B1
  1555.       fcb    cJSR,AGS116<-8
  1556.       fcb    AGS116&255,s128,n1P
  1557.       fcb    cJSR,AGS137<-8
  1558.       fcb    AGS137&255
  1559.       fcb    cJSR,AGS179<-8
  1560.       fcb    AGS179&255
  1561. AGS147 set    *
  1562.       fcb    n1Ds2,s32,n1As2
  1563.       fcb    cJSR,AGS195<-8
  1564.       fcb    AGS195&255,n1D3
  1565.       fcb    cJSR,AGS195<-8
  1566.       fcb    AGS195&255,n1F3,n0As2
  1567. AGS195 set    *
  1568.       fcb    cJSR,AGS115<-8
  1569.       fcb    AGS115&255,s32
  1570.       fcb    cRTS
  1571. AGS184 set    *
  1572.       fcb    cVOL0,14,n0Fs2
  1573.       fcb    cJSR,AGS135<-8
  1574.       fcb    AGS135&255,n1Fs2,n0Ds2
  1575.       fcb    cJSR,AGS139<-8
  1576.       fcb    AGS139&255
  1577. AGS165 set    *
  1578.       fcb    n1Fs2,s32
  1579.       fcb    cVOL0,25
  1580. AGS112 set    *
  1581.       fcb    cJSR,AGS191<-8
  1582.       fcb    AGS191&255,s128
  1583.       fcb    cNOISE,4
  1584.       fcb    cJMP,AGS163<-8
  1585.       fcb    AGS163&255
  1586. AGS190 set    *
  1587.       fcb    cJSR,AGS112<-8
  1588.       fcb    AGS112&255
  1589. AGS130 set    *
  1590.       fcb    cVOL0,14,n1P,s32
  1591.       fcb    cRTS
  1592. AGS117 set    *
  1593.       fcb    cNOISE,16,s128
  1594.       fcb    cNOISE,0
  1595.       fcb    cNOISE,12,s128
  1596.       fcb    cNOISE,7
  1597. AGS188 set    *
  1598.       fcb    s128
  1599.       fcb    cNOISE,0
  1600.       fcb    cNOISE,16
  1601.       fcb    cJMP,AGS163<-8
  1602.       fcb    AGS163&255
  1603. AGS146 set    *
  1604.       fcb    cJSR,AGS190<-8
  1605.       fcb    AGS190&255,n1Ds3,n0Ds2
  1606. AGS113 set    *
  1607.       fcb    cNOISE,10,s128
  1608.       fcb    cNOISE,6,s128
  1609.       fcb    cNOISE,3,s128
  1610.       fcb    cNOISE,1
  1611.       fcb    cJMP,AGS163<-8
  1612.       fcb    AGS163&255
  1613. AGS134 set    *
  1614.       fcb    cVOL0,19
  1615. AGS183 set    *
  1616.       fcb    cJSR,AGS112<-8
  1617.       fcb    AGS112&255
  1618.       fcb    cVOL0,14
  1619.       fcb    cRTS
  1620. AGS154 set    *
  1621.       fcb    cVOL0,14,n0Fs2,s32
  1622.       fcb    cVOL0,22
  1623.       fcb    cVOL1,18,n1As1
  1624. AGS181 set    *
  1625.       fcb    cJSR,AGS112<-8
  1626.       fcb    AGS112&255
  1627.       fcb    cVOL1,14
  1628.       fcb    cRTS
  1629. AGS189 set    *
  1630.       fcb    cJSR,AGS112<-8
  1631.       fcb    AGS112&255
  1632. AGS143 set    *
  1633.       fcb    s32
  1634.       fcb    cRPT1+1
  1635.       fcb    cJSR,AGS180<-8
  1636.       fcb    AGS180&255,cNXT
  1637.       fcb    cRTS
  1638. AGS144 set    *
  1639.       fcb    n1P,s32,n1Fs3,n0Fs1
  1640.       fcb    cJSR,AGS112<-8
  1641.       fcb    AGS112&255,n0P
  1642. AGS127 set    *
  1643.       fcb    n1P,s32,n1Fs3
  1644.       fcb    cVOL0,19
  1645.       fcb    cRTS
  1646. AGS200 set    *
  1647.       fcb    cRPT1+1
  1648.       fcb    cJSR,AGS180<-8
  1649.       fcb    AGS180&255,cNXT
  1650. AGS186 set    *
  1651.       fcb    cJSR,AGS114<-8
  1652.       fcb    AGS114&255,s32
  1653.       fcb    cRTS
  1654. AGS156 set    *
  1655.       fcb    cNOISE,14,s128
  1656.       fcb    cNOISE,9
  1657. AGS118 set    *
  1658.       fcb    s128
  1659.       fcb    cNOISE,6,s128
  1660.       fcb    cNOISE,4
  1661.       fcb    cJMP,AGS163<-8
  1662.       fcb    AGS163&255
  1663. AGS194 set    *
  1664.       fcb    cJSR,AGS141<-8
  1665.       fcb    AGS141&255,n1As1
  1666. AGS180 set    *
  1667.       fcb    cJSR,AGS112<-8
  1668.       fcb    AGS112&255,s32
  1669.       fcb    cRTS
  1670. AGS140 set    *
  1671.       fcb    n0Ds2
  1672.       fcb    cJSR,AGS181<-8
  1673.       fcb    AGS181&255,n0P,s32
  1674.       fcb    n0Fs2
  1675.       fcb    cJSR,AGS112<-8
  1676.       fcb    AGS112&255
  1677. AGS128 set    *
  1678.       fcb    n0P,n1P,s32,n1Ds3
  1679.       fcb    cRTS
  1680. AGS148 set    *
  1681.       fcb    n0Ds1
  1682.       fcb    cJSR,AGS115<-8
  1683.       fcb    AGS115&255,s128
  1684. AGS116 set    *
  1685.       fcb    cNOISE,12,s128
  1686.       fcb    cNOISE,8,s128
  1687.       fcb    cNOISE,5
  1688.       fcb    cJMP,AGS163<-8
  1689.       fcb    AGS163&255
  1690. AGS142 set    *
  1691.       fcb    cJSR,AGS112<-8
  1692.       fcb    AGS112&255
  1693.       fcb    cJSR,AGS196<-8
  1694.       fcb    AGS196&255,n1Fs2,s32
  1695.       fcb    cVOL1,18,n1Fs1
  1696.       fcb    cJSR,AGS112<-8
  1697.       fcb    AGS112&255
  1698. AGS121 set    *
  1699.       fcb    cVOL1,14,n1Fs2
  1700.       fcb    cVOL0,14
  1701.       fcb    cRTS
  1702. AGS193 set    *
  1703.       fcb    cJSR,AGS180<-8
  1704.       fcb    AGS180&255
  1705.       fcb    cJMP,AGS112<-8
  1706.       fcb    AGS112&255
  1707. AGS168 set    *
  1708.       fcb    cJSR,AGS114<-8
  1709.       fcb    AGS114&255
  1710.       fcb    cVOL1,14,n1B3,s32
  1711.       fcb    cVOL1,19,n1As3
  1712.       fcb    cRTS
  1713. AGS177 set    *
  1714.       fcb    cJSR,AGS112<-8
  1715.       fcb    AGS112&255,n1P,s32
  1716.       fcb    cVOL1,14,n1F3
  1717.       fcb    cRTS
  1718. AGS170 set    *
  1719.       fcb    s32,n1As3,n0F3
  1720.       fcb    cJMP,AGS112<-8
  1721.       fcb    AGS112&255
  1722. AGS158 set    *
  1723.       fcb    cJSR,AGS113<-8
  1724.       fcb    AGS113&255,n1B3,s32
  1725.       fcb    n1As3
  1726.       fcb    cRTS
  1727. AGS115 set    *
  1728.       fcb    cNOISE,20,s128
  1729.       fcb    cNOISE,13,s128
  1730.       fcb    cNOISE,9,s128
  1731.       fcb    cNOISE,6
  1732.       fcb    cJMP,AGS163<-8
  1733.       fcb    AGS163&255
  1734. AGS182 set    *
  1735.       fcb    n0Fs3
  1736.       fcb    cJSR,AGS112<-8
  1737.       fcb    AGS112&255,n0Fs2,s32
  1738.       fcb    n0F3
  1739.       fcb    cJSR,AGS202<-8
  1740.       fcb    AGS202&255,n0Cs1,s32
  1741.       fcb    n1F3,n0As2
  1742.       fcb    cJMP,AGS112<-8
  1743.       fcb    AGS112&255
  1744. AGS161 set    *
  1745.       fcb    cJSR,AGS180<-8
  1746.       fcb    AGS180&255
  1747.       fcb    cVOL1,19
  1748.       fcb    cRTS
  1749. AGS153 set    *
  1750.       fcb    cJSR,AGS123<-8
  1751.       fcb    AGS123&255
  1752.       fcb    cVOL0,18,n0Ds1
  1753.       fcb    cJMP,AGS112<-8
  1754.       fcb    AGS112&255
  1755. AGS178 set    *
  1756.       fcb    cJSR,AGS112<-8
  1757.       fcb    AGS112&255,n0Gs2,n1P
  1758.       fcb    s32
  1759.       fcb    cVOL1,19
  1760.       fcb    cRTS
  1761. AGS169 set    *
  1762.       fcb    s32,n1Fs3
  1763.       fcb    cJMP,AGS113<-8
  1764.       fcb    AGS113&255
  1765. AGS167 set    *
  1766.       fcb    cJSR,AGS117<-8
  1767.       fcb    AGS117&255
  1768.       fcb    cJSR,AGS116<-8
  1769.       fcb    AGS116&255,s128
  1770.       fcb    cRTS
  1771. AGS198 set    *
  1772.       fcb    cJSR,AGS180<-8
  1773.       fcb    AGS180&255
  1774.       fcb    cJMP,AGS113<-8
  1775.       fcb    AGS113&255
  1776. AGS152 set    *
  1777.       fcb    n1P,s32,n1Ds3
  1778.       fcb    cJSR,AGS112<-8
  1779.       fcb    AGS112&255,n1P,s32
  1780.       fcb    n1Ds3
  1781.       fcb    cRTS
  1782. AGS166 set    *
  1783.       fcb    n1Ds3
  1784.       fcb    cJSR,AGS112<-8
  1785.       fcb    AGS112&255,n1Fs2,s32
  1786.       fcb    cVOL0,19
  1787.       fcb    cJMP,AGS112<-8
  1788.       fcb    AGS112&255
  1789. AGS157 set    *
  1790.       fcb    cJSR,AGS126<-8
  1791.       fcb    AGS126&255
  1792.       fcb    cJMP,AGS181<-8
  1793.       fcb    AGS181&255
  1794. AGS149 set    *
  1795.       fcb    cJSR,AGS180<-8
  1796.       fcb    AGS180&255
  1797.       fcb    cVOL1,14
  1798.       fcb    cRTS
  1799. AGS199 set    *
  1800.       fcb    cJSR,AGS123<-8
  1801.       fcb    AGS123&255
  1802.       fcb    cJSR,AGS183<-8
  1803.       fcb    AGS183&255
  1804.       fcb    cVOL1,14,n1B1
  1805.       fcb    cRTS
  1806. AGS196 set    *
  1807.       fcb    cVOL0,18,s32
  1808.       fcb    cVOL1,18,n1Ds1
  1809.       fcb    cJMP,AGS181<-8
  1810.       fcb    AGS181&255
  1811. AGS135 set    *
  1812.       fcb    cJSR,AGS126<-8
  1813.       fcb    AGS126&255
  1814.       fcb    cVOL0,18,n0Fs1
  1815.       fcb    cJMP,AGS181<-8
  1816.       fcb    AGS181&255
  1817. AGS137 set    *
  1818.       fcb    cJSR,AGS112<-8
  1819.       fcb    AGS112&255,s128,n0P
  1820.       fcb    s64d,n0Ds1
  1821.       fcb    cJSR,AGS112<-8
  1822.       fcb    AGS112&255,s128,n0P
  1823.       fcb    s64d
  1824.       fcb    cRTS
  1825. AGS185 set    *
  1826.       fcb    s32
  1827.       fcb    cJSR,AGS134<-8
  1828.       fcb    AGS134&255,s32
  1829.       fcb    cRTS
  1830. AGS172 set    *
  1831.       fcb    n0Gs2
  1832.       fcb    cJMP,AGS195<-8
  1833.       fcb    AGS195&255
  1834. AGS160 set    *
  1835.       fcb    n0C3
  1836.       fcb    cJSR,AGS113<-8
  1837.       fcb    AGS113&255,s32,n0F3
  1838.       fcb    cJSR,AGS112<-8
  1839.       fcb    AGS112&255,n1C3,n0As1
  1840.       fcb    s32
  1841.       fcb    cRTS
  1842. AGS202 set    *
  1843.       fcb    cJSR,AGS113<-8
  1844.       fcb    AGS113&255,n1Fs2,n0Ds1
  1845.       fcb    cJSR,AGS192<-8
  1846.       fcb    AGS192&255,n1Fs2
  1847.       fcb    cRTS
  1848. AGS131 set    *
  1849.       fcb    n0Ds2,s32
  1850.       fcb    cVOL1,19
  1851.       fcb    cRTS
  1852. AGS119 set    *
  1853.       fcb    cNOISE,6,s128
  1854.       fcb    cNOISE,4,s128
  1855.       fcb    cNOISE,2,s128
  1856.       fcb    cNOISE,1,s128
  1857.       fcb    cNOISE,0,n1B3,s32
  1858.       fcb    cRTS
  1859. AGS138 set    *
  1860.       fcb    cJSR,AGS112<-8
  1861.       fcb    AGS112&255
  1862.       fcb    cJSR,AGS128<-8
  1863.       fcb    AGS128&255,n0Ds2
  1864.       fcb    cJSR,AGS112<-8
  1865.       fcb    AGS112&255
  1866.       fcb    cJSR,AGS128<-8
  1867.       fcb    AGS128&255,n0Fs2
  1868.       fcb    cJMP,AGS112<-8
  1869.       fcb    AGS112&255
  1870. AGS192 set    *
  1871.       fcb    s32,n1Fs3,n0Ds3
  1872.       fcb    cJMP,AGS112<-8
  1873.       fcb    AGS112&255
  1874. AGS145 set    *
  1875.       fcb    cJSR,AGS113<-8
  1876.       fcb    AGS113&255,s32
  1877.       fcb    cJMP,AGS112<-8
  1878.       fcb    AGS112&255
  1879. AGS133 set    *
  1880.       fcb    cJSR,AGS182<-8
  1881.       fcb    AGS182&255,n1Gs2,s32
  1882.       fcb    n1Ds3
  1883.       fcb    cJSR,AGS112<-8
  1884.       fcb    AGS112&255,n1Gs2,s32
  1885.       fcb    cVOL0,24,n1Ds2
  1886.       fcb    cJSR,AGS180<-8
  1887.       fcb    AGS180&255,n1As1
  1888.       fcb    cJSR,AGS113<-8
  1889.       fcb    AGS113&255,s32,n1Ds1
  1890.       fcb    cJMP,AGS112<-8
  1891.       fcb    AGS112&255
  1892. AGS150 set    *
  1893.       fcb    s32
  1894.       fcb    cVOL1,22
  1895.       fcb    cVOL0,18,n0As1
  1896.       fcb    cJMP,AGS112<-8
  1897.       fcb    AGS112&255
  1898. AGS162 set    *
  1899.       fcb    cJSR,AGS180<-8
  1900.       fcb    AGS180&255
  1901.       fcb    cVOL0,24
  1902.       fcb    cRTS
  1903. AGS123 set    *
  1904.       fcb    s32
  1905.       fcb    cVOL1,18,n1As1
  1906.       fcb    cRTS
  1907. AGS159 set    *
  1908.       fcb    s32,n1Fs3,n0Ds3
  1909.       fcb    cJMP,AGS113<-8
  1910.       fcb    AGS113&255
  1911. AGS155 set    *
  1912.       fcb    cJSR,AGS112<-8
  1913.       fcb    AGS112&255
  1914.       fcb    cVOL0,22,s32
  1915.       fcb    cVOL1,18,n1Fs1
  1916.       fcb    cJMP,AGS181<-8
  1917.       fcb    AGS181&255
  1918. AGS141 set    *
  1919.       fcb    cJSR,AGS180<-8
  1920.       fcb    AGS180&255,n1As2
  1921.       fcb    cJMP,AGS180<-8
  1922.       fcb    AGS180&255
  1923. AGS197 set    *
  1924.       fcb    cJSR,AGS180<-8
  1925.       fcb    AGS180&255
  1926.       fcb    cJMP,AGS186<-8
  1927.       fcb    AGS186&255
  1928. AGS173 set    *
  1929.       fcb    n0As1
  1930.       fcb    cJSR,AGS181<-8
  1931.       fcb    AGS181&255
  1932.       fcb    cVOL0,14,n0Cs2
  1933.       fcb    cRTS
  1934. AGS129 set    *
  1935.       fcb    n1Gs3,n0D3,s16,n1B3
  1936.       fcb    n0F3,s16
  1937.       fcb    cRTS
  1938. AGS126 set    *
  1939.       fcb    s32
  1940.       fcb    cVOL1,18,n1Ds2
  1941.       fcb    cRTS
  1942. AGS174 set    *
  1943.       fcb    cNOISE,10
  1944.       fcb    cJSR,AGS118<-8
  1945.       fcb    AGS118&255,s128
  1946.       fcb    cRTS
  1947. AGS164 set    *
  1948.       fcb    n1P,s32,n1Gs3,n0Fs3
  1949.       fcb    cJMP,AGS112<-8
  1950.       fcb    AGS112&255
  1951. AGS139 set    *
  1952.       fcb    cJSR,AGS123<-8
  1953.       fcb    AGS123&255
  1954.       fcb    cJMP,AGS181<-8
  1955.       fcb    AGS181&255
  1956. AGS176 set    *
  1957.       fcb    cJSR,AGS181<-8
  1958.       fcb    AGS181&255,n1F2
  1959.       fcb    cRTS
  1960. AGS191 set    *
  1961.       fcb    cNOISE,16,s128
  1962.       fcb    cNOISE,11,s128
  1963.       fcb    cNOISE,7
  1964.       fcb    cRTS
  1965. AGS125 set    *
  1966.       fcb    s8
  1967.       fcb    cVOL0,19,n1As2,s16
  1968.       fcb    cVOL0,14
  1969.       fcb    cVOL1,19,s8
  1970.       fcb    cVOL1,14
  1971.       fcb    cRTS
  1972. AGS171 set    *
  1973.       fcb    s32
  1974.       fcb    cVOL0,18,n0Fs1
  1975.       fcb    cJMP,AGS183<-8
  1976.       fcb    AGS183&255
  1977. AGS151 set    *
  1978.       fcb    n1P,s32,n1Fs3,n0Fs2
  1979.       fcb    cJMP,AGS112<-8
  1980.       fcb    AGS112&255
  1981. AGS136 set    *
  1982.       fcb    s32
  1983.       fcb    cVOL1,19
  1984.       fcb    cJSR,AGS181<-8
  1985.       fcb    AGS181&255,s32
  1986.       fcb    cRTS
  1987. AGS187 set    *
  1988.       fcb    cJSR,AGS112<-8
  1989.       fcb    AGS112&255
  1990.       fcb    cJMP,AGS121<-8
  1991.       fcb    AGS121&255
  1992. AGS201 set    *
  1993.       fcb    cJSR,AGS113<-8
  1994.       fcb    AGS113&255,n1F2
  1995.       fcb    cJSR,AGS185<-8
  1996.       fcb    AGS185&255,n1F3
  1997.       fcb    cRTS
  1998. AGS122 set    *
  1999.       fcb    cNOISE,8,s128
  2000.       fcb    cNOISE,5,s128
  2001.       fcb    cNOISE,3,s128
  2002.       fcb    cRTS
  2003. AGS124 set    *
  2004.       fcb    cNOISE,24,s128
  2005.       fcb    cJSR,AGS191<-8
  2006.       fcb    AGS191&255
  2007.       fcb    cJMP,AGS163<-8
  2008.       fcb    AGS163&255
  2009. AGS120 set    *
  2010.       fcb    cNOISE,14,s128
  2011.       fcb    cNOISE,0
  2012.       fcb    cNOISE,10,s128
  2013.       fcb    cNOISE,6
  2014.       fcb    cJMP,AGS188<-8
  2015.       fcb    AGS188&255
  2016. AGS175 set    *
  2017.       fcb    cJSR,AGS113<-8
  2018.       fcb    AGS113&255
  2019.       fcb    cVOL1,14
  2020.       fcb    cRTS
  2021. AGS111 set    *
  2022. * 2461 octets (Video_Game_Themes_-_Castlevania_4.mid)
  2023.  
  2024.       fcb    cJMP,Song<-8,Song&255
  2025.      
  2026.       end    ini
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!