home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / lsdmenu.lha / lsdmenu.s < prev   
Encoding:
Text File  |  1994-06-05  |  76.8 KB  |  4,181 lines
  1.  
  2.     ;old lsd system friendly menu system used on some util disks
  3.  
  4.     ;code by fugative/LSD
  5.     ;note from shagratt: this code is a bit dodgey!
  6.     
  7.     Section    Main,Code
  8.  
  9.     IncDir    "Sys:Include/"
  10.     include    Intuition/intuition.I
  11.     Include    Intuition/Intuition_Lib.I
  12.     Include    Libraries/dos_LIb.i
  13.     Include    Libraries/Dos.i
  14.     Include    Utility/Reqtools.i
  15.     Include    Utility/Reqtools_lib.i
  16.     Include    Exec/Exec_Lib.I
  17.     Include    Exec/Exec.I
  18.     Include    utility/powerpacker_lib.i
  19.     Include    utility/ppbase.i
  20.  
  21. CALLREQ    Macro
  22.     Move.l    _ReqBase,A6
  23.     Jsr    _LVOrt\1(a6)
  24.     Endm
  25. CALLPP    Macro
  26.     Move.l    _PPBase,A6
  27.     Jsr    _LVO\1(a6)
  28.     Endm
  29.  
  30.  
  31. Start
  32.  
  33. ; Open Intuition Library
  34.  
  35.     Lea    IntName,A1
  36.     Moveq    #0,D0
  37.     CALLEXEC    OpenLibrary
  38.     Move.l    D0,_IntuitionBase
  39.     Beq    Error
  40.  
  41. ; Open Dos Library
  42.  
  43.     Lea    DosName,A1
  44.     Moveq    #0,D0
  45.     CALLEXEC    OpenLibrary
  46.     Move.l     D0,_DOSBase
  47.     Beq    CloseInt
  48.  
  49. ;Open reqtools library
  50.  
  51.     Lea    ReqName,A1
  52.     Moveq    #0,d0
  53.     CALLEXEC    OpenLibrary
  54.     Move.l    D0,_ReqBase
  55.     Beq    CloseDos
  56.  
  57. ; Open Powerpacker library
  58.  
  59.     Lea    PPName,A1
  60.     Moveq    #0,D0
  61.     CALLEXEC    OpenLibrary
  62.     Move.l    D0,_PPBase
  63.     Beq    CloseReq
  64.  
  65.     Bsr    InitMenus
  66.     Lea    MainWindow,a0
  67.     CALLINT    OpenWindow
  68.     Move.l    D0,_MyWinBase
  69.     Move.l    D0,A0
  70.     Move.l    wd_RPort(A0),_MyWinRPort
  71.     Move.l    wd_UserPort(a0),_MyWinUserPort
  72.     Lea    Menu1,A1
  73.     CALLINT    SetMenuStrip
  74.     
  75.     Move.l    #RT_REQINFO,D0
  76.     Move.l    ReqBase,A6
  77.     Move.l     #0,A0
  78.     CALLREQ    AllocRequestA
  79.     Move.l    D0,ReqInfoStructPtr
  80.  
  81.     Move.l    #RT_FILEREQ,D0
  82.     Move.l    ReqBase,A6
  83.     Move.l    #0,A0
  84.     CALLREQ    AllocRequestA
  85.     Move.l    D0,ReqToolsStructPtr
  86.  
  87. Main
  88.     Bra    DoAbout
  89. WaitLoop
  90.     Move.l    _MyWinUserPort,A0
  91.     CALLEXEC    WaitPort
  92.     Move.l    _MyWinUserPort,A0
  93.     CALLEXEC    GetMsg
  94.     Move.l    D0,A1
  95.     Move.l    im_Class(A1),D2        ;D2=IDCMP Flags Directly
  96.     Move.w    im_Code(A1),D3        ;D3=Data ie key why class=Rawkey
  97.     Move.w    im_Qualifier(A1),D4        ;D4=things like CTRL SHIFT
  98.     Move.w    im_MouseX(a1),D5        ;D5=MouseX Coordinate
  99.     Move.w    im_MouseY(a1),D6        ;D5=MouseY Coordinate
  100.     Move.l    im_IAddress(A1),D7        ;D7=Addres of Intuition Obj ie Gadget
  101.     Movem.l    D0-D7/A0-A6,-(A7)    
  102.     CALLEXEC    ReplyMsg
  103.     Movem.l    (a7)+,D0-D7/A0-A6
  104. NotKeyBoard
  105.     Cmp.l    #GADGETUP,D2
  106.     Beq    GadgetHandler
  107.     Cmp.l    #MENUPICK,D2
  108.     Beq    MenuHandler
  109.     Bra    WaitLoop
  110. Exit
  111.  
  112. ;Dealocate Requester 
  113.  
  114.     Move.l    ReqToolsStructPtr,A1
  115.     CALLREQ    FreeRequest    
  116.  
  117.  
  118. ;Clear Menu Strip         (Crashes otherwise OH OH!!!)
  119.     Move.l    _MyWinBase,A0
  120.     CALLINT    ClearMenuStrip
  121.     
  122. ;Close Window Routine
  123.     Move.l    _MyWinBase,A0
  124.     CALLINT    CloseWindow
  125.  
  126.  
  127.  
  128. ClosePP
  129.     Move.l    _PPBase,A1
  130.     CALLEXEC    CloseLibrary
  131. CloseReq
  132.     Move.l    _ReqBase,A1
  133.     CALLEXEC    CloseLibrary
  134.  
  135.  
  136. CloseDos
  137.     Move.l    _DOSBase,A1
  138.     CALLEXEC    CloseLibrary
  139. CloseInt
  140.     Move.l    _IntuitionBase,A1
  141.     CALLEXEC    CloseLibrary
  142.     Moveq    #0,d0
  143.     Rts
  144. Error    Moveq    #1,D0
  145.     Rts
  146.  
  147.  
  148.  
  149.  
  150.  
  151. *************************************************************************
  152. **    Various Routines Including all the main ones            *
  153. *************************************************************************
  154. MusicOff
  155.     Btst    #0,Flags
  156.     Beq    WaitLoop
  157.     BSR    mt_end
  158.     BSR    ResetCIAInt
  159.     Bra    WaitLoop
  160.  
  161. Sleep
  162.  
  163.     Bra    WaitLoop
  164. InitMenus
  165.     Move.l    #1005,D2        ;Access Mode Old (Read)
  166.     Move.l    #FileName,D1
  167.     CALLDOS    Open
  168.     Move.l    D0,_FileHandle
  169.     Beq    .nofile
  170.     Move.l    #5000,D0
  171.     Moveq    #0,D1
  172.     CALLEXEC    AllocMem
  173.     Move.l    D0,_FileBuffer            ;Save it for deallocation
  174.     Beq    .closefile        ;No Memory
  175.     Move.l    _FileHandle,D1        ;File to load
  176.     Move.l    _FileBuffer,D2            ;Buffer
  177.     Move.l    #5000,D3        ;Length of file
  178.     CALLDOS    Read
  179.     Bsr    ParseFile
  180. .deallocmem
  181.     Move.l    _FileBuffer,A1
  182.     Move.l    #5000,D0
  183.     CALLEXEC    FreeMem
  184. .closefile
  185.     Move.l    _FileHandle,D1
  186.     CALLDOS    Close
  187. .nofile    Rts
  188. ParseFile
  189.     Move.l    _FileBuffer,A0
  190. Parse    Move.b    (a0)+,D0
  191.     Cmp.b    #"*",D0
  192.     Beq    ProcessCommand    
  193. Parsed    Rts
  194. GetNextCommand
  195.     Move.l    (A7)+,A0
  196. .lop    Move.b    (a0)+,D0
  197.     Cmp.b    #"*",D0
  198.     Bne    .lop
  199.     
  200. ProcessCommand
  201.     Move.b    (a0)+,D0
  202.     Lsl.l    #8,D0
  203.     Move.b    (a0)+,D0
  204.     Lsl.l    #8,D0
  205.     Move.b    (a0)+,D0
  206.     Lsl.l    #8,D0
  207.     Move.b    (a0)+,D0
  208.     Move.l    A0,-(a7)
  209.     Cmp.l    #"MOD.",d0
  210.     Beq    StartMusic
  211.     Cmp.l    #"LSD!",D0
  212.     Beq    .out
  213.     Swap    D0
  214.     Cmp.l    #"TX00",D0
  215.     Beq    GadgetText00
  216.     Cmp.l    #"TX01",D0
  217.     Beq    GadgetText01
  218.     Cmp.l    #"TX02",D0
  219.     Beq    GadgetText02
  220.     Cmp.l    #"TX03",D0
  221.     Beq    GadgetText03
  222.     Cmp.l    #"TX04",D0
  223.     Beq    GadgetText04
  224.     Cmp.l    #"TX05",D0
  225.     Beq    GadgetText05
  226.     Cmp.l    #"TX06",D0
  227.     Beq    GadgetText06
  228.     Cmp.l    #"TX07",D0
  229.     Beq    GadgetText07
  230.     Cmp.l    #"TX08",D0
  231.     Beq    GadgetText08
  232.     Cmp.l    #"TX09",D0
  233.     Beq    GadgetText09
  234.     Cmp.l    #"TX10",D0
  235.     Beq    GadgetText10
  236.     Cmp.l    #"TX11",D0
  237.     Beq    GadgetText11
  238.     Cmp.l    #"TX12",D0
  239.     Beq    GadgetText12
  240.     Cmp.l    #"TX13",D0
  241.     Beq    GadgetText13
  242.     Cmp.l    #"TX14",D0
  243.     Beq    GadgetText14
  244.     Cmp.l    #"TX15",D0
  245.     Beq    GadgetText15
  246.     Cmp.l    #"TX16",D0
  247.     Beq    GadgetText16
  248.     Cmp.l    #"TX17",D0
  249.     Beq    GadgetText17
  250.     Cmp.l    #"TX18",D0
  251.     Beq    GadgetText18
  252.     Cmp.l    #"TX19",D0
  253.     Beq    GadgetText19
  254.     Cmp.l    #"TX20",D0
  255.     Beq    GadgetText20
  256.     Cmp.l    #"TX21",D0
  257.     Beq    GadgetText21
  258.     Cmp.l    #"TX22",D0
  259.     Beq    GadgetText22
  260.     Cmp.l    #"TX23",D0
  261.     Beq    GadgetText23
  262.     Cmp.l    #"TX24",D0
  263.     Beq    GadgetText24
  264.     Cmp.l    #"TX25",D0
  265.     Beq    GadgetText25
  266.     Cmp.l    #"TX26",D0
  267.     Beq    GadgetText26
  268.     Cmp.l    #"TX27",D0
  269.     Beq    GadgetText27
  270.     Cmp.l    #"TX28",D0
  271.     Beq    GadgetText28
  272.     Cmp.l    #"TX29",D0
  273.     Beq    GadgetText29
  274.     Cmp.l    #"TX30",D0
  275.     Beq    GadgetText30
  276.     Cmp.l    #"TX31",D0
  277.     Beq    GadgetText31
  278.     Cmp.l    #"TX32",D0
  279.     Beq    GadgetText32
  280.     Cmp.l    #"TX33",D0
  281.     Beq    GadgetText33
  282.     Cmp.l    #"TX34",D0
  283.     Beq    GadgetText34
  284.     Cmp.l    #"TX35",D0
  285.     Beq    GadgetText35
  286.     Cmp.l    #"TX36",D0
  287.     Beq    GadgetText36
  288.     Cmp.l    #"TX37",D0
  289.     Beq    GadgetText37
  290.     Cmp.l    #"TX38",D0
  291.     Beq    GadgetText38
  292.     Cmp.l    #"TX39",D0
  293.     Beq    GadgetText39
  294.     Cmp.l    #"TX40",D0
  295.     Beq    GadgetText40
  296.     Cmp.l    #"TX41",D0
  297.     Beq    GadgetText41
  298.  
  299.  
  300.  
  301.  
  302.     Cmp.l    #"CM00",D0
  303.     Beq    DoCommand00
  304.     Cmp.l    #"CM01",D0
  305.     Beq    DoCommand01
  306.     Cmp.l    #"CM02",D0
  307.     Beq    DoCommand02
  308.     Cmp.l    #"CM03",D0
  309.     Beq    DoCommand03
  310.     Cmp.l    #"CM04",D0
  311.     Beq    DoCommand04
  312.     Cmp.l    #"CM05",D0
  313.     Beq    DoCommand05
  314.     Cmp.l    #"CM06",D0
  315.     Beq    DoCommand06
  316.     Cmp.l    #"CM07",D0
  317.     Beq    DoCommand07
  318.     Cmp.l    #"CM08",D0
  319.     Beq    DoCommand08
  320.     Cmp.l    #"CM09",D0
  321.     Beq    DoCommand09
  322.     Cmp.l    #"CM10",D0
  323.     Beq    DoCommand10
  324.     Cmp.l    #"CM11",D0
  325.     Beq    DoCommand11
  326.     Cmp.l    #"CM12",D0
  327.     Beq    DoCommand12
  328.     Cmp.l    #"CM13",D0
  329.     Beq    DoCommand13
  330.     Cmp.l    #"CM14",D0
  331.     Beq    DoCommand14
  332.     Cmp.l    #"CM15",D0
  333.     Beq    DoCommand15
  334.     Cmp.l    #"CM16",D0
  335.     Beq    DoCommand16
  336.     Cmp.l    #"CM17",D0
  337.     Beq    DoCommand17
  338.     Cmp.l    #"CM18",D0
  339.     Beq    DoCommand18
  340.     Cmp.l    #"CM19",D0
  341.     Beq    DoCommand19
  342.     Cmp.l    #"CM20",D0
  343.     Beq    DoCommand20
  344.     Cmp.l    #"CM21",D0
  345.     Beq    DoCommand21
  346.     Cmp.l    #"CM22",D0
  347.     Beq    DoCommand22
  348.     Cmp.l    #"CM23",D0
  349.     Beq    DoCommand23
  350.     Cmp.l    #"CM24",D0
  351.     Beq    DoCommand24
  352.     Cmp.l    #"CM25",D0
  353.     Beq    DoCommand25
  354.     Cmp.l    #"CM26",D0
  355.     Beq    DoCommand26
  356.     Cmp.l    #"CM27",D0
  357.     Beq    DoCommand27
  358.     Cmp.l    #"CM28",D0
  359.     Beq    DoCommand28
  360.     Cmp.l    #"CM29",D0
  361.     Beq    DoCommand29
  362.     Cmp.l    #"CM30",D0
  363.     Beq    DoCommand30
  364.     Cmp.l    #"CM31",D0
  365.     Beq    DoCommand31
  366.     Cmp.l    #"CM32",D0
  367.     Beq    DoCommand32
  368.     Cmp.l    #"CM33",D0
  369.     Beq    DoCommand33
  370.     Cmp.l    #"CM34",D0
  371.     Beq    DoCommand34
  372.     Cmp.l    #"CM35",D0
  373.     Beq    DoCommand35
  374.     Cmp.l    #"CM36",D0
  375.     Beq    DoCommand36
  376.     Cmp.l    #"CM37",D0
  377.     Beq    DoCommand37
  378.     Cmp.l    #"CM38",D0
  379.     Beq    DoCommand38
  380.     Cmp.l    #"CM39",D0
  381.     Beq    DoCommand39
  382.     Cmp.l    #"CM40",D0
  383.     Beq    DoCommand40
  384.     Cmp.l    #"CM41",D0
  385.     Beq    DoCommand41
  386.         
  387.     Swap    D0    
  388. .out    Rts
  389. *************************************************************************
  390.  
  391. DoCommand00
  392.     Lea    1(A0),A0
  393.     Lea    Command00,A1
  394.     Bra    InsertIt
  395. DoCommand01
  396.     Lea    1(A0),A0
  397.     Lea    Command01,A1
  398.     Bra    InsertIt
  399. DoCommand02
  400.     Lea    1(A0),A0
  401.     Lea    Command02,A1
  402.     Bra    InsertIt
  403. DoCommand03
  404.     Lea    1(A0),A0
  405.     Lea    Command03,A1
  406.     Bra    InsertIt
  407. DoCommand04
  408.     Lea    1(A0),A0
  409.     Lea    Command04,A1
  410.     Bra    InsertIt
  411. DoCommand05
  412.     Lea    1(A0),A0
  413.     Lea    Command05,A1
  414.     Bra    InsertIt
  415. DoCommand06
  416.     Lea    1(A0),A0
  417.     Lea    Command06,A1
  418.     Bra    InsertIt
  419. DoCommand07
  420.     Lea    1(A0),A0
  421.     Lea    Command07,A1
  422.     Bra    InsertIt
  423. DoCommand08
  424.     Lea    1(A0),A0
  425.     Lea    Command08,A1
  426.     Bra    InsertIt
  427. DoCommand09
  428.     Lea    1(A0),A0
  429.     Lea    Command09,A1
  430.     Bra    InsertIt
  431. DoCommand10
  432.     Lea    1(A0),A0
  433.     Lea    Command10,A1
  434.     Bra    InsertIt
  435. DoCommand11
  436.     Lea    1(A0),A0
  437.     Lea    Command11,A1
  438.     Bra    InsertIt
  439. DoCommand12
  440.     Lea    1(A0),A0
  441.     Lea    Command12,A1
  442.     Bra    InsertIt
  443. DoCommand13
  444.     Lea    1(A0),A0
  445.     Lea    Command13,A1
  446.     Bra    InsertIt
  447. DoCommand14
  448.     Lea    1(A0),A0
  449.     Lea    Command14,A1
  450.     Bra    InsertIt
  451. DoCommand15
  452.     Lea    1(A0),A0
  453.     Lea    Command15,A1
  454.     Bra    InsertIt
  455. DoCommand16
  456.     Lea    1(A0),A0
  457.     Lea    Command16,A1
  458.     Bra    InsertIt
  459. DoCommand17
  460.     Lea    1(A0),A0
  461.     Lea    Command17,A1
  462.     Bra    InsertIt
  463. DoCommand18
  464.     Lea    1(A0),A0
  465.     Lea    Command18,A1
  466.     Bra    InsertIt
  467. DoCommand19
  468.     Lea    1(A0),A0
  469.     Lea    Command19,A1
  470.     Bra    InsertIt
  471. DoCommand20
  472.     Lea    1(A0),A0
  473.     Lea    Command20,A1
  474.     Bra    InsertIt
  475. DoCommand21
  476.     Lea    1(A0),A0
  477.     Lea    Command21,A1
  478.     Bra    InsertIt
  479. DoCommand22
  480.     Lea    1(A0),A0
  481.     Lea    Command22,A1
  482.     Bra    InsertIt
  483. DoCommand23
  484.     Lea    1(A0),A0
  485.     Lea    Command23,A1
  486.     Bra    InsertIt
  487. DoCommand24
  488.     Lea    1(A0),A0
  489.     Lea    Command24,A1
  490.     Bra    InsertIt
  491. DoCommand25
  492.     Lea    1(A0),A0
  493.     Lea    Command25,A1
  494.     Bra    InsertIt
  495. DoCommand26
  496.     Lea    1(A0),A0
  497.     Lea    Command26,A1
  498.     Bra    InsertIt
  499. DoCommand27
  500.     Lea    1(A0),A0
  501.     Lea    Command27,A1
  502.     Bra    InsertIt
  503. DoCommand28
  504.     Lea    1(A0),A0
  505.     Lea    Command28,A1
  506.     Bra    InsertIt
  507. DoCommand29
  508.     Lea    1(A0),A0
  509.     Lea    Command29,A1
  510.     Bra    InsertIt
  511. DoCommand30
  512.     Lea    1(A0),A0
  513.     Lea    Command30,A1
  514.     Bra    InsertIt
  515. DoCommand31
  516.     Lea    1(A0),A0
  517.     Lea    Command31,A1
  518.     Bra    InsertIt
  519. DoCommand32
  520.     Lea    1(A0),A0
  521.     Lea    Command32,A1
  522.     Bra    InsertIt
  523. DoCommand33
  524.     Lea    1(A0),A0
  525.     Lea    Command33,A1
  526.     Bra    InsertIt
  527. DoCommand34
  528.     Lea    1(A0),A0
  529.     Lea    Command34,A1
  530.     Bra    InsertIt
  531. DoCommand35
  532.     Lea    1(A0),A0
  533.     Lea    Command35,A1
  534.     Bra    InsertIt
  535. DoCommand36
  536.     Lea    1(A0),A0
  537.     Lea    Command36,A1
  538.     Bra    InsertIt
  539. DoCommand37
  540.     Lea    1(A0),A0
  541.     Lea    Command37,A1
  542.     Bra    InsertIt
  543. DoCommand38
  544.     Lea    1(A0),A0
  545.     Lea    Command38,A1
  546.     Bra    InsertIt
  547. DoCommand39
  548.     Lea    1(A0),A0
  549.     Lea    Command39,A1
  550.     Bra    InsertIt
  551. DoCommand40
  552.     Lea    1(A0),A0
  553.     Lea    Command40,A1
  554.     Bra    InsertIt
  555. DoCommand41
  556.     Lea    1(A0),A0
  557.     Lea    Command41,A1
  558.     Bra    InsertIt
  559. *************************************************************************
  560.  
  561. *************************************************************************
  562.  
  563. GadgetText00
  564.     Lea    1(A0),A0
  565.     Lea    ITextText1,A1
  566.     Bra    InsertIt
  567. GadgetText01
  568.     Lea    1(A0),A0
  569.     Lea    ITextText2,A1
  570.     Bra    InsertIt
  571. GadgetText02
  572.     Lea    1(A0),A0
  573.     Lea    ITextText3,A1
  574.     Bra    InsertIt
  575. GadgetText03
  576.     Lea    1(A0),A0
  577.     Lea    ITextText4,A1
  578.     Bra    InsertIt
  579. GadgetText04
  580.     Lea    1(A0),A0
  581.     Lea    ITextText5,A1
  582.     Bra    InsertIt
  583. GadgetText05
  584.     Lea    1(A0),A0
  585.     Lea    ITextText6,A1
  586.     Bra    InsertIt
  587. GadgetText06
  588.     Lea    1(A0),A0
  589.     Lea    ITextText7,A1
  590.     Bra    InsertIt
  591. GadgetText07
  592.     Lea    1(A0),A0
  593.     Lea    ITextText8,A1
  594.     Bra    InsertIt
  595. GadgetText08
  596.     Lea    1(A0),A0
  597.     Lea    ITextText9,A1
  598.     Bra    InsertIt
  599. GadgetText09
  600.     Lea    1(A0),A0
  601.     Lea    ITextText10,A1
  602.     Bra    InsertIt
  603. GadgetText10
  604.     Lea    1(A0),A0
  605.     Lea    ITextText11,A1
  606.     Bra    InsertIt
  607. GadgetText11
  608.     Lea    1(A0),A0
  609.     Lea    ITextText12,A1
  610.     Bra    InsertIt
  611. GadgetText12
  612.     Lea    1(A0),A0
  613.     Lea    ITextText13,A1
  614.     Bra    InsertIt
  615. GadgetText13
  616.     Lea    1(A0),A0
  617.     Lea    ITextText14,A1
  618.     Bra    InsertIt
  619. GadgetText14
  620.     Lea    1(A0),A0
  621.     Lea    ITextText15,A1
  622.     Bra    InsertIt
  623. GadgetText15
  624.     Lea    1(A0),A0
  625.     Lea    ITextText16,A1
  626.     Bra    InsertIt
  627. GadgetText16
  628.     Lea    1(A0),A0
  629.     Lea    ITextText17,A1
  630.     Bra    InsertIt
  631. GadgetText17
  632.     Lea    1(A0),A0
  633.     Lea    ITextText18,A1
  634.     Bra    InsertIt
  635. GadgetText18
  636.     Lea    1(A0),A0
  637.     Lea    ITextText19,A1
  638.     Bra    InsertIt
  639. GadgetText19
  640.     Lea    1(A0),A0
  641.     Lea    ITextText20,A1
  642.     Bra    InsertIt
  643. GadgetText20
  644.     Lea    1(A0),A0
  645.     Lea    ITextText21,A1
  646.     Bra    InsertIt
  647. GadgetText21
  648.     Lea    1(A0),A0
  649.     Lea    ITextText22,A1
  650.     Bra    InsertIt
  651. GadgetText22
  652.     Lea    1(A0),A0
  653.     Lea    ITextText23,A1
  654.     Bra    InsertIt
  655. GadgetText23
  656.     Lea    1(A0),A0
  657.     Lea    ITextText24,A1
  658.     Bra    InsertIt
  659. GadgetText24
  660.     Lea    1(A0),A0
  661.     Lea    ITextText25,A1
  662.     Bra    InsertIt
  663. GadgetText25
  664.     Lea    1(A0),A0
  665.     Lea    ITextText26,A1
  666.     Bra    InsertIt
  667. GadgetText26
  668.     Lea    1(A0),A0
  669.     Lea    ITextText27,A1
  670.     Bra    InsertIt
  671. GadgetText27
  672.     Lea    1(A0),A0
  673.     Lea    ITextText28,A1
  674.     Bra    InsertIt
  675. GadgetText28
  676.     Lea    1(A0),A0
  677.     Lea    ITextText29,A1
  678.     Bra    InsertIt
  679. GadgetText29
  680.     Lea    1(A0),A0
  681.     Lea    ITextText30,A1
  682.     Bra    InsertIt
  683. GadgetText30
  684.     Lea    1(A0),A0
  685.     Lea    ITextText31,A1
  686.     Bra    InsertIt
  687. GadgetText31
  688.     Lea    1(A0),A0
  689.     Lea    ITextText32,A1
  690.     Bra    InsertIt
  691. GadgetText32
  692.     Lea    1(A0),A0
  693.     Lea    ITextText33,A1
  694.     Bra    InsertIt
  695. GadgetText33
  696.     Lea    1(A0),A0
  697.     Lea    ITextText34,A1
  698.     Bra    InsertIt
  699. GadgetText34
  700.     Lea    1(A0),A0
  701.     Lea    ITextText35,A1
  702.     Bra    InsertIt
  703. GadgetText35
  704.     Lea    1(A0),A0
  705.     Lea    ITextText36,A1
  706.     Bra    InsertIt
  707. GadgetText36
  708.     Lea    1(A0),A0
  709.     Lea    ITextText37,A1
  710.     Bra    InsertIt
  711. GadgetText37
  712.     Lea    1(A0),A0
  713.     Lea    ITextText38,A1
  714.     Bra    InsertIt
  715. GadgetText38
  716.     Lea    1(A0),A0
  717.     Lea    ITextText39,A1
  718.     Bra    InsertIt
  719. GadgetText39
  720.     Lea    1(A0),A0
  721.     Lea    ITextText40,A1
  722.     Bra    InsertIt
  723. GadgetText40
  724.     Lea    1(A0),A0
  725.     Lea    ITextText41,A1
  726.     Bra    InsertIt
  727. GadgetText41
  728.     Lea    1(A0),A0
  729.     Lea    ITextText42,A1
  730.     Bra    InsertIt
  731.  
  732. *************************************************************************
  733. InsertIt
  734.     Move.l    a0,-(a7)
  735. .lop    Move.b    (a0)+,D0
  736.     Cmp.b    #$0a,D0        ;<CR>
  737.     Beq    .done
  738.     Move.b    D0,(A1)+
  739.     Bra    .lop
  740. .done    Moveq    #0,D0
  741.     Move.b    D0,(A1)+    
  742.     Move.l    (A7)+,A0
  743.     Bra    GetNextCommand
  744. *************************************************************************
  745. StartMusic
  746.     Move.b    (A0)+,D0
  747.     Cmp.b    #"=",D0
  748.     Beq    .ok
  749.     Rts
  750. .ok    Move.l    A0,A1        ;Save it
  751. .lop    Move.b    (a1)+,D0    ;Get Byte
  752.     Cmp.b    #$0a,D0        ;cr
  753.     Bne.s    .lop        ;no then loop
  754.     Lea    -1(a1),A1    ;point to cr
  755.     Move.b    #0,(a1)        ;Null for File Load
  756.     Move.l    #DECR_POINTER,D0
  757.     Moveq    #0,D1
  758.     Lea    _ModDat,A1
  759.     Lea    _ModSize,A2
  760.     Move.l    D1,A3
  761.     Move.l    _PPBase,A6
  762.     Jsr    _LVOppLoadData(A6)
  763.     Tst.l    D0
  764.     Bne    .error
  765.     Bsr    GoMusic
  766. .error    Bra    GetNextCommand
  767. _ModDat        Dc.l    0
  768. _ModSize    Dc.l    0
  769.  
  770.  
  771.     Even
  772. DMAWait = 300 ; Set this as low as possible without losing low notes.
  773. GoMusic
  774.     BSR.S    SetCIAInt
  775.     BSR    mt_init
  776.     ST    mt_Enable
  777.     Bset    #0,Flags
  778.     Rts
  779.  
  780.  
  781. ;---- CIA Interrupt ----
  782.  
  783. AddICRVector    =   -6
  784. RemICRVector    =  -12
  785. LVOOpenResource    = -498
  786. LVOOpenLibrary     = -552
  787. LVOCloseLibrary    = -414
  788. LVODelay    = -198
  789.  
  790. ciatalo = $400
  791. ciatahi = $500
  792. ciatblo = $600
  793. ciatbhi = $700
  794. ciacra  = $E00
  795. ciacrb  = $F00
  796.  
  797. SetCIAInt
  798.     MOVEQ    #2,D6
  799.     LEA    $BFD000,A5
  800.     MOVE.B    #'b',CIAAname+3
  801. SetCIALoop
  802.     MOVEQ    #0,D0
  803.     LEA    CIAAname(PC),A1
  804.     MOVE.L    4.W,A6
  805.     JSR    LVOOpenResource(A6)
  806.     MOVE.L    D0,CIAAbase
  807.     BEQ    mt_Return
  808.  
  809.     LEA    GfxName(PC),A1
  810.     MOVEQ    #0,D0
  811.     JSR    LVOOpenLibrary(A6)
  812.     TST.L    D0
  813.     BEQ    ResetCIAInt
  814.     MOVE.L    D0,A1
  815.     MOVE.W    206(A1),D0    ; DisplayFlags
  816.     BTST    #2,D0        ; PAL?
  817.     BEQ.S    WasNTSC
  818.     MOVE.L    #1773447,D7 ; PAL
  819.     BRA.S    sciask
  820. WasNTSC    MOVE.L    #1789773,D7 ; NTSC
  821. sciask    MOVE.L    D7,TimerValue
  822.     DIVU    #125,D7 ; Default to normal 50 Hz timer
  823.     CALLEXEC    CloseLibrary
  824.  
  825.     MOVE.L    CIAAbase(PC),A6
  826.     CMP.W    #2,D6
  827.     BEQ.S    TryTimerA
  828. TryTimerB
  829.     LEA    MusicIntServer(PC),A1
  830.     MOVEQ    #1,D0    ; Bit 1: Timer B
  831.     JSR    AddICRVector(A6)
  832.     MOVE.L    #1,TimerFlag
  833.     TST.L    D0
  834.     BNE.S    CIAError
  835.     MOVE.L    A5,CIAAaddr
  836.     MOVE.B    D7,ciatblo(A5)
  837.     LSR.W    #8,D7
  838.     MOVE.B    D7,ciatbhi(A5)
  839.     BSET    #0,ciacrb(A5)
  840.     RTS
  841.  
  842. TryTimerA
  843.     LEA    MusicIntServer(PC),A1
  844.     MOVEQ    #0,D0    ; Bit 0: Timer A
  845.     JSR    AddICRVector(A6)
  846.     CLR.L    TimerFlag
  847.     TST.L    D0
  848.     BNE.S    CIAError
  849.     MOVE.L    A5,CIAAaddr
  850.     MOVE.B    D7,ciatalo(A5)
  851.     LSR.W    #8,D7
  852.     MOVE.B    D7,ciatahi(A5)
  853.     BSET    #0,ciacra(A5)
  854.     RTS
  855.  
  856. CIAError
  857.     MOVE.B    #'a',CIAAname+3
  858.     LEA    $BFE001,A5
  859.     SUBQ.W    #1,D6
  860.     BNE    SetCIALoop
  861.     CLR.L    CIAAbase
  862.     RTS
  863.  
  864. ResetCIAInt
  865.     MOVE.L    CIAAbase(PC),D0
  866.     BEQ    mt_Return
  867.     CLR.L    CIAAbase
  868.     MOVE.L    D0,A6
  869.     MOVE.L    CIAAaddr(PC),A5
  870.     TST.L    TimerFlag
  871.     BEQ.S    ResTimerA
  872.  
  873.     BCLR    #0,ciacrb(A5)
  874.     MOVEQ    #1,D0
  875.     BRA.S    RemInt
  876.  
  877. ResTimerA
  878.     BCLR    #0,ciacra(A5)
  879.     MOVEQ    #0,D0
  880. RemInt    LEA    MusicIntServer(PC),A1
  881.     MOVEQ    #0,d0
  882.     JSR    RemICRVector(A6)
  883.     RTS
  884.  
  885. ;---- Tempo ----
  886.  
  887. SetTempo
  888.     MOVE.L    CIAAbase(PC),D2
  889.     BEQ    mt_Return
  890.     CMP.W    #32,D0
  891.     BHS.S    setemsk
  892.     MOVEQ    #32,D0
  893. setemsk    MOVE.W    D0,RealTempo
  894.     MOVE.L    TimerValue(PC),D2
  895.     DIVU    D0,D2
  896.     MOVE.L    CIAAaddr(PC),A4
  897.     MOVE.L    TimerFlag(PC),D0
  898.     BEQ.S    SetTemA
  899.     MOVE.B    D2,ciatblo(A4)
  900.     LSR.W    #8,D2
  901.     MOVE.B    D2,ciatbhi(A4)
  902.     RTS
  903.  
  904. SetTemA    MOVE.B    D2,ciatalo(A4)
  905.     LSR.W    #8,D2
  906.     MOVE.B    D2,ciatahi(A4)
  907.     RTS
  908.  
  909. RealTempo    dc.w 125
  910. CIAAaddr    dc.l 0
  911. CIAAname    dc.b "ciaa.resource",0
  912. CIAAbase    dc.l 0
  913. TimerFlag    dc.l 0
  914. TimerValue    dc.l 0
  915. GfxName        dc.b "graphics.library",0,0
  916.  
  917. MusicIntServer
  918.     dc.l 0,0
  919.     dc.b 2,5 ; type, priority
  920.     dc.l musintname
  921.     dc.l 0,mt_music
  922.  
  923. musintname    dc.b "Protracker MusicInt",0
  924.  
  925. ;---- Playroutine ----
  926.  
  927. n_note        EQU    0  ; W
  928. n_cmd        EQU    2  ; W
  929. n_cmdlo        EQU    3  ; B
  930. n_start        EQU    4  ; L
  931. n_length    EQU    8  ; W
  932. n_loopstart    EQU    10 ; L
  933. n_replen    EQU    14 ; W
  934. n_period    EQU    16 ; W
  935. n_finetune    EQU    18 ; B
  936. n_volume    EQU    19 ; B
  937. n_dmabit    EQU    20 ; W
  938. n_toneportdirec    EQU    22 ; B
  939. n_toneportspeed    EQU    23 ; B
  940. n_wantedperiod    EQU    24 ; W
  941. n_vibratocmd    EQU    26 ; B
  942. n_vibratopos    EQU    27 ; B
  943. n_tremolocmd    EQU    28 ; B
  944. n_tremolopos    EQU    29 ; B
  945. n_wavecontrol    EQU    30 ; B
  946. n_glissfunk    EQU    31 ; B
  947. n_sampleoffset    EQU    32 ; B
  948. n_pattpos    EQU    33 ; B
  949. n_loopcount    EQU    34 ; B
  950. n_funkoffset    EQU    35 ; B
  951. n_wavestart    EQU    36 ; L
  952. n_reallength    EQU    40 ; W
  953.  
  954. mt_init    Move.l    _ModDat,A0
  955.     MOVE.L    A0,mt_SongDataPtr
  956.     MOVE.L    A0,A1
  957.     LEA    952(A1),A1
  958.     MOVEQ    #127,D0
  959.     MOVEQ    #0,D1
  960. mtloop    MOVE.L    D1,D2
  961.     SUBQ.W    #1,D0
  962. mtloop2    MOVE.B    (A1)+,D1
  963.     CMP.B    D2,D1
  964.     BGT.S    mtloop
  965.     DBRA    D0,mtloop2
  966.     ADDQ.B    #1,D2
  967.             
  968.     LEA    mt_SampleStarts(PC),A1
  969.     ASL.L    #8,D2
  970.     ASL.L    #2,D2
  971.     ADD.L    #1084,D2
  972.     ADD.L    A0,D2
  973.     MOVE.L    D2,A2
  974.     MOVEQ    #30,D0
  975. mtloop3    CLR.L    (A2)
  976.     MOVE.L    A2,(A1)+
  977.     MOVEQ    #0,D1
  978.     MOVE.W    42(A0),D1
  979.     ASL.L    #1,D1
  980.     ADD.L    D1,A2
  981.     ADD.L    #30,A0
  982.     DBRA    D0,mtloop3
  983.  
  984.     OR.B    #2,$BFE001
  985.     MOVE.B    #6,mt_speed
  986.     CLR.B    mt_counter
  987.     CLR.B    mt_SongPos
  988.     CLR.W    mt_PatternPos
  989. mt_end    SF    mt_Enable
  990.     LEA    $DFF000,A0
  991.     CLR.W    $A8(A0)
  992.     CLR.W    $B8(A0)
  993.     CLR.W    $C8(A0)
  994.     CLR.W    $D8(A0)
  995.     MOVE.W    #$F,$DFF096
  996.     RTS
  997.  
  998. mt_music
  999.     MOVEM.L    D0-D4/A0-A6,-(SP)
  1000.     TST.B    mt_Enable
  1001.     BEQ    mt_exit
  1002.     ADDQ.B    #1,mt_counter
  1003.     MOVE.B    mt_counter(PC),D0
  1004.     CMP.B    mt_speed(PC),D0
  1005.     BLO.S    mt_NoNewNote
  1006.     CLR.B    mt_counter
  1007.     TST.B    mt_PattDelTime2
  1008.     BEQ.S    mt_GetNewNote
  1009.     BSR.S    mt_NoNewAllChannels
  1010.     BRA    mt_dskip
  1011.  
  1012. mt_NoNewNote
  1013.     BSR.S    mt_NoNewAllChannels
  1014.     BRA    mt_NoNewPosYet
  1015.  
  1016. mt_NoNewAllChannels
  1017.     LEA    $DFF0A0,A5
  1018.     LEA    mt_chan1temp(PC),A6
  1019.     BSR    mt_CheckEfx
  1020.     LEA    $DFF0B0,A5
  1021.     LEA    mt_chan2temp(PC),A6
  1022.     BSR    mt_CheckEfx
  1023.     LEA    $DFF0C0,A5
  1024.     LEA    mt_chan3temp(PC),A6
  1025.     BSR    mt_CheckEfx
  1026.     LEA    $DFF0D0,A5
  1027.     LEA    mt_chan4temp(PC),A6
  1028.     BRA    mt_CheckEfx
  1029.  
  1030. mt_GetNewNote
  1031.     MOVE.L    mt_SongDataPtr(PC),A0
  1032.     LEA    12(A0),A3
  1033.     LEA    952(A0),A2    ;pattpo
  1034.     LEA    1084(A0),A0    ;patterndata
  1035.     MOVEQ    #0,D0
  1036.     MOVEQ    #0,D1
  1037.     MOVE.B    mt_SongPos(PC),D0
  1038.     MOVE.B    (A2,D0.W),D1
  1039.     ASL.L    #8,D1
  1040.     ASL.L    #2,D1
  1041.     ADD.W    mt_PatternPos(PC),D1
  1042.     CLR.W    mt_DMACONtemp
  1043.  
  1044.     LEA    $DFF0A0,A5
  1045.     LEA    mt_chan1temp(PC),A6
  1046.     BSR.S    mt_PlayVoice
  1047.     LEA    $DFF0B0,A5
  1048.     LEA    mt_chan2temp(PC),A6
  1049.     BSR.S    mt_PlayVoice
  1050.     LEA    $DFF0C0,A5
  1051.     LEA    mt_chan3temp(PC),A6
  1052.     BSR.S    mt_PlayVoice
  1053.     LEA    $DFF0D0,A5
  1054.     LEA    mt_chan4temp(PC),A6
  1055.     BSR.S    mt_PlayVoice
  1056.     BRA    mt_SetDMA
  1057.  
  1058. mt_PlayVoice
  1059.     TST.L    (A6)
  1060.     BNE.S    mt_plvskip
  1061.     BSR    mt_PerNop
  1062. mt_plvskip
  1063.     MOVE.L    (A0,D1.L),(A6)
  1064.     ADDQ.L    #4,D1
  1065.     MOVEQ    #0,D2
  1066.     MOVE.B    n_cmd(A6),D2
  1067.     AND.B    #$F0,D2
  1068.     LSR.B    #4,D2
  1069.     MOVE.B    (A6),D0
  1070.     AND.B    #$F0,D0
  1071.     OR.B    D0,D2
  1072.     TST.B    D2
  1073.     BEQ    mt_SetRegs
  1074.     MOVEQ    #0,D3
  1075.     LEA    mt_SampleStarts(PC),A1
  1076.     MOVE    D2,D4
  1077.     SUBQ.L    #1,D2
  1078.     ASL.L    #2,D2
  1079.     MULU    #30,D4
  1080.     MOVE.L    (A1,D2.L),n_start(A6)
  1081.     MOVE.W    (A3,D4.L),n_length(A6)
  1082.     MOVE.W    (A3,D4.L),n_reallength(A6)
  1083.     MOVE.B    2(A3,D4.L),n_finetune(A6)
  1084.     MOVE.B    3(A3,D4.L),n_volume(A6)
  1085.     MOVE.W    4(A3,D4.L),D3 ; Get repeat
  1086.     TST.W    D3
  1087.     BEQ.S    mt_NoLoop
  1088.     MOVE.L    n_start(A6),D2    ; Get start
  1089.     ASL.W    #1,D3
  1090.     ADD.L    D3,D2        ; Add repeat
  1091.     MOVE.L    D2,n_loopstart(A6)
  1092.     MOVE.L    D2,n_wavestart(A6)
  1093.     MOVE.W    4(A3,D4.L),D0    ; Get repeat
  1094.     ADD.W    6(A3,D4.L),D0    ; Add replen
  1095.     MOVE.W    D0,n_length(A6)
  1096.     MOVE.W    6(A3,D4.L),n_replen(A6)    ; Save replen
  1097.     MOVEQ    #0,D0
  1098.     MOVE.B    n_volume(A6),D0
  1099.     MOVE.W    D0,8(A5)    ; Set volume
  1100.     BRA.S    mt_SetRegs
  1101.  
  1102. mt_NoLoop
  1103.     MOVE.L    n_start(A6),D2
  1104.     ADD.L    D3,D2
  1105.     MOVE.L    D2,n_loopstart(A6)
  1106.     MOVE.L    D2,n_wavestart(A6)
  1107.     MOVE.W    6(A3,D4.L),n_replen(A6)    ; Save replen
  1108.     MOVEQ    #0,D0
  1109.     MOVE.B    n_volume(A6),D0
  1110.     MOVE.W    D0,8(A5)    ; Set volume
  1111. mt_SetRegs
  1112.     MOVE.W    (A6),D0
  1113.     AND.W    #$0FFF,D0
  1114.     BEQ    mt_CheckMoreEfx    ; If no note
  1115.     MOVE.W    2(A6),D0
  1116.     AND.W    #$0FF0,D0
  1117.     CMP.W    #$0E50,D0
  1118.     BEQ.S    mt_DoSetFineTune
  1119.     MOVE.B    2(A6),D0
  1120.     AND.B    #$0F,D0
  1121.     CMP.B    #3,D0    ; TonePortamento
  1122.     BEQ.S    mt_ChkTonePorta
  1123.     CMP.B    #5,D0
  1124.     BEQ.S    mt_ChkTonePorta
  1125.     CMP.B    #9,D0    ; Sample Offset
  1126.     BNE.S    mt_SetPeriod
  1127.     BSR    mt_CheckMoreEfx
  1128.     BRA.S    mt_SetPeriod
  1129.  
  1130. mt_DoSetFineTune
  1131.     BSR    mt_SetFineTune
  1132.     BRA.S    mt_SetPeriod
  1133.  
  1134. mt_ChkTonePorta
  1135.     BSR    mt_SetTonePorta
  1136.     BRA    mt_CheckMoreEfx
  1137.  
  1138. mt_SetPeriod
  1139.     MOVEM.L    D0-D1/A0-A1,-(SP)
  1140.     MOVE.W    (A6),D1
  1141.     AND.W    #$0FFF,D1
  1142.     LEA    mt_PeriodTable(PC),A1
  1143.     MOVEQ    #0,D0
  1144.     MOVEQ    #36,D2
  1145. mt_ftuloop
  1146.     CMP.W    (A1,D0.W),D1
  1147.     BHS.S    mt_ftufound
  1148.     ADDQ.L    #2,D0
  1149.     DBRA    D2,mt_ftuloop
  1150. mt_ftufound
  1151.     MOVEQ    #0,D1
  1152.     MOVE.B    n_finetune(A6),D1
  1153.     MULU    #36*2,D1
  1154.     ADD.L    D1,A1
  1155.     MOVE.W    (A1,D0.W),n_period(A6)
  1156.     MOVEM.L    (SP)+,D0-D1/A0-A1
  1157.  
  1158.     MOVE.W    2(A6),D0
  1159.     AND.W    #$0FF0,D0
  1160.     CMP.W    #$0ED0,D0 ; Notedelay
  1161.     BEQ    mt_CheckMoreEfx
  1162.  
  1163.     MOVE.W    n_dmabit(A6),$DFF096
  1164.     BTST    #2,n_wavecontrol(A6)
  1165.     BNE.S    mt_vibnoc
  1166.     CLR.B    n_vibratopos(A6)
  1167. mt_vibnoc
  1168.     BTST    #6,n_wavecontrol(A6)
  1169.     BNE.S    mt_trenoc
  1170.     CLR.B    n_tremolopos(A6)
  1171. mt_trenoc
  1172.     MOVE.L    n_start(A6),(A5)    ; Set start
  1173.     MOVE.W    n_length(A6),4(A5)    ; Set length
  1174.     MOVE.W    n_period(A6),D0
  1175.     MOVE.W    D0,6(A5)        ; Set period
  1176.     MOVE.W    n_dmabit(A6),D0
  1177.     OR.W    D0,mt_DMACONtemp
  1178.     BRA    mt_CheckMoreEfx
  1179.  
  1180. mt_SetDMA
  1181.     MOVE.W    #300,D0
  1182. mt_WaitDMA
  1183.     DBRA    D0,mt_WaitDMA
  1184.     MOVE.W    mt_DMACONtemp(PC),D0
  1185.     OR.W    #$8000,D0
  1186.     MOVE.W    D0,$DFF096
  1187.     MOVE.W    #300,D0
  1188. mt_WaitDMA2
  1189.     DBRA    D0,mt_WaitDMA2
  1190.  
  1191.     LEA    $DFF000,A5
  1192.     LEA    mt_chan4temp(PC),A6
  1193.     MOVE.L    n_loopstart(A6),$D0(A5)
  1194.     MOVE.W    n_replen(A6),$D4(A5)
  1195.     LEA    mt_chan3temp(PC),A6
  1196.     MOVE.L    n_loopstart(A6),$C0(A5)
  1197.     MOVE.W    n_replen(A6),$C4(A5)
  1198.     LEA    mt_chan2temp(PC),A6
  1199.     MOVE.L    n_loopstart(A6),$B0(A5)
  1200.     MOVE.W    n_replen(A6),$B4(A5)
  1201.     LEA    mt_chan1temp(PC),A6
  1202.     MOVE.L    n_loopstart(A6),$A0(A5)
  1203.     MOVE.W    n_replen(A6),$A4(A5)
  1204.  
  1205. mt_dskip
  1206.     ADD.W    #16,mt_PatternPos
  1207.     MOVE.B    mt_PattDelTime,D0
  1208.     BEQ.S    mt_dskc
  1209.     MOVE.B    D0,mt_PattDelTime2
  1210.     CLR.B    mt_PattDelTime
  1211. mt_dskc    TST.B    mt_PattDelTime2
  1212.     BEQ.S    mt_dska
  1213.     SUBQ.B    #1,mt_PattDelTime2
  1214.     BEQ.S    mt_dska
  1215.     SUB.W    #16,mt_PatternPos
  1216. mt_dska    TST.B    mt_PBreakFlag
  1217.     BEQ.S    mt_nnpysk
  1218.     SF    mt_PBreakFlag
  1219.     MOVEQ    #0,D0
  1220.     MOVE.B    mt_PBreakPos(PC),D0
  1221.     CLR.B    mt_PBreakPos
  1222.     LSL.W    #4,D0
  1223.     MOVE.W    D0,mt_PatternPos
  1224. mt_nnpysk
  1225.     CMP.W    #1024,mt_PatternPos
  1226.     BLO.S    mt_NoNewPosYet
  1227. mt_NextPosition    
  1228.     MOVEQ    #0,D0
  1229.     MOVE.B    mt_PBreakPos(PC),D0
  1230.     LSL.W    #4,D0
  1231.     MOVE.W    D0,mt_PatternPos
  1232.     CLR.B    mt_PBreakPos
  1233.     CLR.B    mt_PosJumpFlag
  1234.     ADDQ.B    #1,mt_SongPos
  1235.     AND.B    #$7F,mt_SongPos
  1236.     MOVE.B    mt_SongPos(PC),D1
  1237.     MOVE.L    mt_SongDataPtr(PC),A0
  1238.     CMP.B    950(A0),D1
  1239.     BLO.S    mt_NoNewPosYet
  1240.     CLR.B    mt_SongPos
  1241. mt_NoNewPosYet    
  1242.     TST.B    mt_PosJumpFlag
  1243.     BNE.S    mt_NextPosition
  1244. mt_exit    MOVEM.L    (SP)+,D0-D4/A0-A6
  1245.     RTS
  1246.  
  1247. mt_CheckEfx
  1248.     BSR    mt_UpdateFunk
  1249.     MOVE.W    n_cmd(A6),D0
  1250.     AND.W    #$0FFF,D0
  1251.     BEQ.S    mt_PerNop
  1252.     MOVE.B    n_cmd(A6),D0
  1253.     AND.B    #$0F,D0
  1254.     BEQ.S    mt_Arpeggio
  1255.     CMP.B    #1,D0
  1256.     BEQ    mt_PortaUp
  1257.     CMP.B    #2,D0
  1258.     BEQ    mt_PortaDown
  1259.     CMP.B    #3,D0
  1260.     BEQ    mt_TonePortamento
  1261.     CMP.B    #4,D0
  1262.     BEQ    mt_Vibrato
  1263.     CMP.B    #5,D0
  1264.     BEQ    mt_TonePlusVolSlide
  1265.     CMP.B    #6,D0
  1266.     BEQ    mt_VibratoPlusVolSlide
  1267.     CMP.B    #$E,D0
  1268.     BEQ    mt_E_Commands
  1269. SetBack    MOVE.W    n_period(A6),6(A5)
  1270.     CMP.B    #7,D0
  1271.     BEQ    mt_Tremolo
  1272.     CMP.B    #$A,D0
  1273.     BEQ    mt_VolumeSlide
  1274. mt_Return
  1275.     RTS
  1276.  
  1277. mt_PerNop
  1278.     MOVE.W    n_period(A6),6(A5)
  1279.     RTS
  1280.  
  1281. mt_Arpeggio
  1282.     MOVEQ    #0,D0
  1283.     MOVE.B    mt_counter(PC),D0
  1284.     DIVS    #3,D0
  1285.     SWAP    D0
  1286.     CMP.W    #0,D0
  1287.     BEQ.S    mt_Arpeggio2
  1288.     CMP.W    #2,D0
  1289.     BEQ.S    mt_Arpeggio1
  1290.     MOVEQ    #0,D0
  1291.     MOVE.B    n_cmdlo(A6),D0
  1292.     LSR.B    #4,D0
  1293.     BRA.S    mt_Arpeggio3
  1294.  
  1295. mt_Arpeggio1
  1296.     MOVEQ    #0,D0
  1297.     MOVE.B    n_cmdlo(A6),D0
  1298.     AND.B    #15,D0
  1299.     BRA.S    mt_Arpeggio3
  1300.  
  1301. mt_Arpeggio2
  1302.     MOVE.W    n_period(A6),D2
  1303.     BRA.S    mt_Arpeggio4
  1304.  
  1305. mt_Arpeggio3
  1306.     ASL.W    #1,D0
  1307.     MOVEQ    #0,D1
  1308.     MOVE.B    n_finetune(A6),D1
  1309.     MULU    #36*2,D1
  1310.     LEA    mt_PeriodTable(PC),A0
  1311.     ADD.L    D1,A0
  1312.     MOVEQ    #0,D1
  1313.     MOVE.W    n_period(A6),D1
  1314.     MOVEQ    #36,D3
  1315. mt_arploop
  1316.     MOVE.W    (A0,D0.W),D2
  1317.     CMP.W    (A0),D1
  1318.     BHS.S    mt_Arpeggio4
  1319.     ADDQ.L    #2,A0
  1320.     DBRA    D3,mt_arploop
  1321.     RTS
  1322.  
  1323. mt_Arpeggio4
  1324.     MOVE.W    D2,6(A5)
  1325.     RTS
  1326.  
  1327. mt_FinePortaUp
  1328.     TST.B    mt_counter
  1329.     BNE.S    mt_Return
  1330.     MOVE.B    #$0F,mt_LowMask
  1331. mt_PortaUp
  1332.     MOVEQ    #0,D0
  1333.     MOVE.B    n_cmdlo(A6),D0
  1334.     AND.B    mt_LowMask(PC),D0
  1335.     MOVE.B    #$FF,mt_LowMask
  1336.     SUB.W    D0,n_period(A6)
  1337.     MOVE.W    n_period(A6),D0
  1338.     AND.W    #$0FFF,D0
  1339.     CMP.W    #113,D0
  1340.     BPL.S    mt_PortaUskip
  1341.     AND.W    #$F000,n_period(A6)
  1342.     OR.W    #113,n_period(A6)
  1343. mt_PortaUskip
  1344.     MOVE.W    n_period(A6),D0
  1345.     AND.W    #$0FFF,D0
  1346.     MOVE.W    D0,6(A5)
  1347.     RTS    
  1348.  
  1349. mt_FinePortaDown
  1350.     TST.B    mt_counter
  1351.     BNE    mt_Return
  1352.     MOVE.B    #$0F,mt_LowMask
  1353. mt_PortaDown
  1354.     CLR.W    D0
  1355.     MOVE.B    n_cmdlo(A6),D0
  1356.     AND.B    mt_LowMask(PC),D0
  1357.     MOVE.B    #$FF,mt_LowMask
  1358.     ADD.W    D0,n_period(A6)
  1359.     MOVE.W    n_period(A6),D0
  1360.     AND.W    #$0FFF,D0
  1361.     CMP.W    #856,D0
  1362.     BMI.S    mt_PortaDskip
  1363.     AND.W    #$F000,n_period(A6)
  1364.     OR.W    #856,n_period(A6)
  1365. mt_PortaDskip
  1366.     MOVE.W    n_period(A6),D0
  1367.     AND.W    #$0FFF,D0
  1368.     MOVE.W    D0,6(A5)
  1369.     RTS
  1370.  
  1371. mt_SetTonePorta
  1372.     MOVE.L    A0,-(SP)
  1373.     MOVE.W    (A6),D2
  1374.     AND.W    #$0FFF,D2
  1375.     MOVEQ    #0,D0
  1376.     MOVE.B    n_finetune(A6),D0
  1377.     MULU    #37*2,D0
  1378.     LEA    mt_PeriodTable(PC),A0
  1379.     ADD.L    D0,A0
  1380.     MOVEQ    #0,D0
  1381. mt_StpLoop
  1382.     CMP.W    (A0,D0.W),D2
  1383.     BHS.S    mt_StpFound
  1384.     ADDQ.W    #2,D0
  1385.     CMP.W    #37*2,D0
  1386.     BLO.S    mt_StpLoop
  1387.     MOVEQ    #35*2,D0
  1388. mt_StpFound
  1389.     MOVE.B    n_finetune(A6),D2
  1390.     AND.B    #8,D2
  1391.     BEQ.S    mt_StpGoss
  1392.     TST.W    D0
  1393.     BEQ.S    mt_StpGoss
  1394.     SUBQ.W    #2,D0
  1395. mt_StpGoss
  1396.     MOVE.W    (A0,D0.W),D2
  1397.     MOVE.L    (SP)+,A0
  1398.     MOVE.W    D2,n_wantedperiod(A6)
  1399.     MOVE.W    n_period(A6),D0
  1400.     CLR.B    n_toneportdirec(A6)
  1401.     CMP.W    D0,D2
  1402.     BEQ.S    mt_ClearTonePorta
  1403.     BGE    mt_Return
  1404.     MOVE.B    #1,n_toneportdirec(A6)
  1405.     RTS
  1406.  
  1407. mt_ClearTonePorta
  1408.     CLR.W    n_wantedperiod(A6)
  1409.     RTS
  1410.  
  1411. mt_TonePortamento
  1412.     MOVE.B    n_cmdlo(A6),D0
  1413.     BEQ.S    mt_TonePortNoChange
  1414.     MOVE.B    D0,n_toneportspeed(A6)
  1415.     CLR.B    n_cmdlo(A6)
  1416. mt_TonePortNoChange
  1417.     TST.W    n_wantedperiod(A6)
  1418.     BEQ    mt_Return
  1419.     MOVEQ    #0,D0
  1420.     MOVE.B    n_toneportspeed(A6),D0
  1421.     TST.B    n_toneportdirec(A6)
  1422.     BNE.S    mt_TonePortaUp
  1423. mt_TonePortaDown
  1424.     ADD.W    D0,n_period(A6)
  1425.     MOVE.W    n_wantedperiod(A6),D0
  1426.     CMP.W    n_period(A6),D0
  1427.     BGT.S    mt_TonePortaSetPer
  1428.     MOVE.W    n_wantedperiod(A6),n_period(A6)
  1429.     CLR.W    n_wantedperiod(A6)
  1430.     BRA.S    mt_TonePortaSetPer
  1431.  
  1432. mt_TonePortaUp
  1433.     SUB.W    D0,n_period(A6)
  1434.     MOVE.W    n_wantedperiod(A6),D0
  1435.     CMP.W    n_period(A6),D0
  1436.     BLT.S    mt_TonePortaSetPer
  1437.     MOVE.W    n_wantedperiod(A6),n_period(A6)
  1438.     CLR.W    n_wantedperiod(A6)
  1439.  
  1440. mt_TonePortaSetPer
  1441.     MOVE.W    n_period(A6),D2
  1442.     MOVE.B    n_glissfunk(A6),D0
  1443.     AND.B    #$0F,D0
  1444.     BEQ.S    mt_GlissSkip
  1445.     MOVEQ    #0,D0
  1446.     MOVE.B    n_finetune(A6),D0
  1447.     MULU    #36*2,D0
  1448.     LEA    mt_PeriodTable(PC),A0
  1449.     ADD.L    D0,A0
  1450.     MOVEQ    #0,D0
  1451. mt_GlissLoop
  1452.     CMP.W    (A0,D0.W),D2
  1453.     BHS.S    mt_GlissFound
  1454.     ADDQ.W    #2,D0
  1455.     CMP.W    #36*2,D0
  1456.     BLO.S    mt_GlissLoop
  1457.     MOVEQ    #35*2,D0
  1458. mt_GlissFound
  1459.     MOVE.W    (A0,D0.W),D2
  1460. mt_GlissSkip
  1461.     MOVE.W    D2,6(A5) ; Set period
  1462.     RTS
  1463.  
  1464. mt_Vibrato
  1465.     MOVE.B    n_cmdlo(A6),D0
  1466.     BEQ.S    mt_Vibrato2
  1467.     MOVE.B    n_vibratocmd(A6),D2
  1468.     AND.B    #$0F,D0
  1469.     BEQ.S    mt_vibskip
  1470.     AND.B    #$F0,D2
  1471.     OR.B    D0,D2
  1472. mt_vibskip
  1473.     MOVE.B    n_cmdlo(A6),D0
  1474.     AND.B    #$F0,D0
  1475.     BEQ.S    mt_vibskip2
  1476.     AND.B    #$0F,D2
  1477.     OR.B    D0,D2
  1478. mt_vibskip2
  1479.     MOVE.B    D2,n_vibratocmd(A6)
  1480. mt_Vibrato2
  1481.     MOVE.B    n_vibratopos(A6),D0
  1482.     LEA    mt_VibratoTable(PC),A4
  1483.     LSR.W    #2,D0
  1484.     AND.W    #$001F,D0
  1485.     MOVEQ    #0,D2
  1486.     MOVE.B    n_wavecontrol(A6),D2
  1487.     AND.B    #$03,D2
  1488.     BEQ.S    mt_vib_sine
  1489.     LSL.B    #3,D0
  1490.     CMP.B    #1,D2
  1491.     BEQ.S    mt_vib_rampdown
  1492.     MOVE.B    #255,D2
  1493.     BRA.S    mt_vib_set
  1494. mt_vib_rampdown
  1495.     TST.B    n_vibratopos(A6)
  1496.     BPL.S    mt_vib_rampdown2
  1497.     MOVE.B    #255,D2
  1498.     SUB.B    D0,D2
  1499.     BRA.S    mt_vib_set
  1500. mt_vib_rampdown2
  1501.     MOVE.B    D0,D2
  1502.     BRA.S    mt_vib_set
  1503. mt_vib_sine
  1504.     MOVE.B    (A4,D0.W),D2
  1505. mt_vib_set
  1506.     MOVE.B    n_vibratocmd(A6),D0
  1507.     AND.W    #15,D0
  1508.     MULU    D0,D2
  1509.     LSR.W    #7,D2
  1510.     MOVE.W    n_period(A6),D0
  1511.     TST.B    n_vibratopos(A6)
  1512.     BMI.S    mt_VibratoNeg
  1513.     ADD.W    D2,D0
  1514.     BRA.S    mt_Vibrato3
  1515. mt_VibratoNeg
  1516.     SUB.W    D2,D0
  1517. mt_Vibrato3
  1518.     MOVE.W    D0,6(A5)
  1519.     MOVE.B    n_vibratocmd(A6),D0
  1520.     LSR.W    #2,D0
  1521.     AND.W    #$003C,D0
  1522.     ADD.B    D0,n_vibratopos(A6)
  1523.     RTS
  1524.  
  1525. mt_TonePlusVolSlide
  1526.     BSR    mt_TonePortNoChange
  1527.     BRA    mt_VolumeSlide
  1528.  
  1529. mt_VibratoPlusVolSlide
  1530.     BSR.S    mt_Vibrato2
  1531.     BRA    mt_VolumeSlide
  1532.  
  1533. mt_Tremolo
  1534.     MOVE.B    n_cmdlo(A6),D0
  1535.     BEQ.S    mt_Tremolo2
  1536.     MOVE.B    n_tremolocmd(A6),D2
  1537.     AND.B    #$0F,D0
  1538.     BEQ.S    mt_treskip
  1539.     AND.B    #$F0,D2
  1540.     OR.B    D0,D2
  1541. mt_treskip
  1542.     MOVE.B    n_cmdlo(A6),D0
  1543.     AND.B    #$F0,D0
  1544.     BEQ.S    mt_treskip2
  1545.     AND.B    #$0F,D2
  1546.     OR.B    D0,D2
  1547. mt_treskip2
  1548.     MOVE.B    D2,n_tremolocmd(A6)
  1549. mt_Tremolo2
  1550.     MOVE.B    n_tremolopos(A6),D0
  1551.     LEA    mt_VibratoTable(PC),A4
  1552.     LSR.W    #2,D0
  1553.     AND.W    #$001F,D0
  1554.     MOVEQ    #0,D2
  1555.     MOVE.B    n_wavecontrol(A6),D2
  1556.     LSR.B    #4,D2
  1557.     AND.B    #$03,D2
  1558.     BEQ.S    mt_tre_sine
  1559.     LSL.B    #3,D0
  1560.     CMP.B    #1,D2
  1561.     BEQ.S    mt_tre_rampdown
  1562.     MOVE.B    #255,D2
  1563.     BRA.S    mt_tre_set
  1564. mt_tre_rampdown
  1565.     TST.B    n_vibratopos(A6)
  1566.     BPL.S    mt_tre_rampdown2
  1567.     MOVE.B    #255,D2
  1568.     SUB.B    D0,D2
  1569.     BRA.S    mt_tre_set
  1570. mt_tre_rampdown2
  1571.     MOVE.B    D0,D2
  1572.     BRA.S    mt_tre_set
  1573. mt_tre_sine
  1574.     MOVE.B    (A4,D0.W),D2
  1575. mt_tre_set
  1576.     MOVE.B    n_tremolocmd(A6),D0
  1577.     AND.W    #15,D0
  1578.     MULU    D0,D2
  1579.     LSR.W    #6,D2
  1580.     MOVEQ    #0,D0
  1581.     MOVE.B    n_volume(A6),D0
  1582.     TST.B    n_tremolopos(A6)
  1583.     BMI.S    mt_TremoloNeg
  1584.     ADD.W    D2,D0
  1585.     BRA.S    mt_Tremolo3
  1586. mt_TremoloNeg
  1587.     SUB.W    D2,D0
  1588. mt_Tremolo3
  1589.     BPL.S    mt_TremoloSkip
  1590.     CLR.W    D0
  1591. mt_TremoloSkip
  1592.     CMP.W    #$40,D0
  1593.     BLS.S    mt_TremoloOk
  1594.     MOVE.W    #$40,D0
  1595. mt_TremoloOk
  1596.     MOVE.W    D0,8(A5)
  1597.     MOVE.B    n_tremolocmd(A6),D0
  1598.     LSR.W    #2,D0
  1599.     AND.W    #$003C,D0
  1600.     ADD.B    D0,n_tremolopos(A6)
  1601.     RTS
  1602.  
  1603. mt_SampleOffset
  1604.     MOVEQ    #0,D0
  1605.     MOVE.B    n_cmdlo(A6),D0
  1606.     BEQ.S    mt_sononew
  1607.     MOVE.B    D0,n_sampleoffset(A6)
  1608. mt_sononew
  1609.     MOVE.B    n_sampleoffset(A6),D0
  1610.     LSL.W    #7,D0
  1611.     CMP.W    n_length(A6),D0
  1612.     BGE.S    mt_sofskip
  1613.     SUB.W    D0,n_length(A6)
  1614.     LSL.W    #1,D0
  1615.     ADD.L    D0,n_start(A6)
  1616.     RTS
  1617. mt_sofskip
  1618.     MOVE.W    #$0001,n_length(A6)
  1619.     RTS
  1620.  
  1621. mt_VolumeSlide
  1622.     MOVEQ    #0,D0
  1623.     MOVE.B    n_cmdlo(A6),D0
  1624.     LSR.B    #4,D0
  1625.     TST.B    D0
  1626.     BEQ.S    mt_VolSlideDown
  1627. mt_VolSlideUp
  1628.     ADD.B    D0,n_volume(A6)
  1629.     CMP.B    #$40,n_volume(A6)
  1630.     BMI.S    mt_vsuskip
  1631.     MOVE.B    #$40,n_volume(A6)
  1632. mt_vsuskip
  1633.     MOVE.B    n_volume(A6),D0
  1634.     MOVE.W    D0,8(A5)
  1635.     RTS
  1636.  
  1637. mt_VolSlideDown
  1638.     MOVEQ    #0,D0
  1639.     MOVE.B    n_cmdlo(A6),D0
  1640.     AND.B    #$0F,D0
  1641. mt_VolSlideDown2
  1642.     SUB.B    D0,n_volume(A6)
  1643.     BPL.S    mt_vsdskip
  1644.     CLR.B    n_volume(A6)
  1645. mt_vsdskip
  1646.     MOVE.B    n_volume(A6),D0
  1647.     MOVE.W    D0,8(A5)
  1648.     RTS
  1649.  
  1650. mt_PositionJump
  1651.     MOVE.B    n_cmdlo(A6),D0
  1652.     SUBQ.B    #1,D0
  1653.     MOVE.B    D0,mt_SongPos
  1654. mt_pj2    CLR.B    mt_PBreakPos
  1655.     ST     mt_PosJumpFlag
  1656.     RTS
  1657.  
  1658. mt_VolumeChange
  1659.     MOVEQ    #0,D0
  1660.     MOVE.B    n_cmdlo(A6),D0
  1661.     CMP.B    #$40,D0
  1662.     BLS.S    mt_VolumeOk
  1663.     MOVEQ    #$40,D0
  1664. mt_VolumeOk
  1665.     MOVE.B    D0,n_volume(A6)
  1666.     MOVE.W    D0,8(A5)
  1667.     RTS
  1668.  
  1669. mt_PatternBreak
  1670.     MOVEQ    #0,D0
  1671.     MOVE.B    n_cmdlo(A6),D0
  1672.     MOVE.L    D0,D2
  1673.     LSR.B    #4,D0
  1674.     MULU    #10,D0
  1675.     AND.B    #$0F,D2
  1676.     ADD.B    D2,D0
  1677.     CMP.B    #63,D0
  1678.     BHI.S    mt_pj2
  1679.     MOVE.B    D0,mt_PBreakPos
  1680.     ST    mt_PosJumpFlag
  1681.     RTS
  1682.  
  1683. mt_SetSpeed
  1684.     MOVEQ    #0,D0
  1685.     MOVE.B    3(A6),D0
  1686.     BEQ    mt_end
  1687.     CMP.B    #32,D0
  1688.     BHS    SetTempo
  1689.     CLR.B    mt_counter
  1690.     MOVE.B    D0,mt_speed
  1691.     RTS
  1692.  
  1693. mt_CheckMoreEfx
  1694.     BSR    mt_UpdateFunk
  1695.     MOVE.B    2(A6),D0
  1696.     AND.B    #$0F,D0
  1697.     CMP.B    #$9,D0
  1698.     BEQ    mt_SampleOffset
  1699.     CMP.B    #$B,D0
  1700.     BEQ    mt_PositionJump
  1701.     CMP.B    #$D,D0
  1702.     BEQ.S    mt_PatternBreak
  1703.     CMP.B    #$E,D0
  1704.     BEQ.S    mt_E_Commands
  1705.     CMP.B    #$F,D0
  1706.     BEQ.S    mt_SetSpeed
  1707.     CMP.B    #$C,D0
  1708.     BEQ    mt_VolumeChange
  1709.     BRA    mt_PerNop
  1710.  
  1711. mt_E_Commands
  1712.     MOVE.B    n_cmdlo(A6),D0
  1713.     AND.B    #$F0,D0
  1714.     LSR.B    #4,D0
  1715.     BEQ.S    mt_FilterOnOff
  1716.     CMP.B    #1,D0
  1717.     BEQ    mt_FinePortaUp
  1718.     CMP.B    #2,D0
  1719.     BEQ    mt_FinePortaDown
  1720.     CMP.B    #3,D0
  1721.     BEQ.S    mt_SetGlissControl
  1722.     CMP.B    #4,D0
  1723.     BEQ    mt_SetVibratoControl
  1724.     CMP.B    #5,D0
  1725.     BEQ    mt_SetFineTune
  1726.     CMP.B    #6,D0
  1727.     BEQ    mt_JumpLoop
  1728.     CMP.B    #7,D0
  1729.     BEQ    mt_SetTremoloControl
  1730.     CMP.B    #9,D0
  1731.     BEQ    mt_RetrigNote
  1732.     CMP.B    #$A,D0
  1733.     BEQ    mt_VolumeFineUp
  1734.     CMP.B    #$B,D0
  1735.     BEQ    mt_VolumeFineDown
  1736.     CMP.B    #$C,D0
  1737.     BEQ    mt_NoteCut
  1738.     CMP.B    #$D,D0
  1739.     BEQ    mt_NoteDelay
  1740.     CMP.B    #$E,D0
  1741.     BEQ    mt_PatternDelay
  1742.     CMP.B    #$F,D0
  1743.     BEQ    mt_FunkIt
  1744.     RTS
  1745.  
  1746. mt_FilterOnOff
  1747.     MOVE.B    n_cmdlo(A6),D0
  1748.     AND.B    #1,D0
  1749.     ASL.B    #1,D0
  1750.     AND.B    #$FD,$BFE001
  1751.     OR.B    D0,$BFE001
  1752.     RTS    
  1753.  
  1754. mt_SetGlissControl
  1755.     MOVE.B    n_cmdlo(A6),D0
  1756.     AND.B    #$0F,D0
  1757.     AND.B    #$F0,n_glissfunk(A6)
  1758.     OR.B    D0,n_glissfunk(A6)
  1759.     RTS
  1760.  
  1761. mt_SetVibratoControl
  1762.     MOVE.B    n_cmdlo(A6),D0
  1763.     AND.B    #$0F,D0
  1764.     AND.B    #$F0,n_wavecontrol(A6)
  1765.     OR.B    D0,n_wavecontrol(A6)
  1766.     RTS
  1767.  
  1768. mt_SetFineTune
  1769.     MOVE.B    n_cmdlo(A6),D0
  1770.     AND.B    #$0F,D0
  1771.     MOVE.B    D0,n_finetune(A6)
  1772.     RTS
  1773.  
  1774. mt_JumpLoop
  1775.     TST.B    mt_counter
  1776.     BNE    mt_Return
  1777.     MOVE.B    n_cmdlo(A6),D0
  1778.     AND.B    #$0F,D0
  1779.     BEQ.S    mt_SetLoop
  1780.     TST.B    n_loopcount(A6)
  1781.     BEQ.S    mt_jumpcnt
  1782.     SUBQ.B    #1,n_loopcount(A6)
  1783.     BEQ    mt_Return
  1784. mt_jmploop    MOVE.B    n_pattpos(A6),mt_PBreakPos
  1785.     ST    mt_PBreakFlag
  1786.     RTS
  1787.  
  1788. mt_jumpcnt
  1789.     MOVE.B    D0,n_loopcount(A6)
  1790.     BRA.S    mt_jmploop
  1791.  
  1792. mt_SetLoop
  1793.     MOVE.W    mt_PatternPos(PC),D0
  1794.     LSR.W    #4,D0
  1795.     MOVE.B    D0,n_pattpos(A6)
  1796.     RTS
  1797.  
  1798. mt_SetTremoloControl
  1799.     MOVE.B    n_cmdlo(A6),D0
  1800.     AND.B    #$0F,D0
  1801.     LSL.B    #4,D0
  1802.     AND.B    #$0F,n_wavecontrol(A6)
  1803.     OR.B    D0,n_wavecontrol(A6)
  1804.     RTS
  1805.  
  1806. mt_RetrigNote
  1807.     MOVE.L    D1,-(SP)
  1808.     MOVEQ    #0,D0
  1809.     MOVE.B    n_cmdlo(A6),D0
  1810.     AND.B    #$0F,D0
  1811.     BEQ.S    mt_rtnend
  1812.     MOVEQ    #0,D1
  1813.     MOVE.B    mt_counter(PC),D1
  1814.     BNE.S    mt_rtnskp
  1815.     MOVE.W    (A6),D1
  1816.     AND.W    #$0FFF,D1
  1817.     BNE.S    mt_rtnend
  1818.     MOVEQ    #0,D1
  1819.     MOVE.B    mt_counter(PC),D1
  1820. mt_rtnskp
  1821.     DIVU    D0,D1
  1822.     SWAP    D1
  1823.     TST.W    D1
  1824.     BNE.S    mt_rtnend
  1825. mt_DoRetrig
  1826.     MOVE.W    n_dmabit(A6),$DFF096    ; Channel DMA off
  1827.     MOVE.L    n_start(A6),(A5)    ; Set sampledata pointer
  1828.     MOVE.W    n_length(A6),4(A5)    ; Set length
  1829.     MOVE.W    #300,D0
  1830. mt_rtnloop1
  1831.     DBRA    D0,mt_rtnloop1
  1832.     MOVE.W    n_dmabit(A6),D0
  1833.     BSET    #15,D0
  1834.     MOVE.W    D0,$DFF096
  1835.     MOVE.W    #300,D0
  1836. mt_rtnloop2
  1837.     DBRA    D0,mt_rtnloop2
  1838.     MOVE.L    n_loopstart(A6),(A5)
  1839.     MOVE.L    n_replen(A6),4(A5)
  1840. mt_rtnend
  1841.     MOVE.L    (SP)+,D1
  1842.     RTS
  1843.  
  1844. mt_VolumeFineUp
  1845.     TST.B    mt_counter
  1846.     BNE    mt_Return
  1847.     MOVEQ    #0,D0
  1848.     MOVE.B    n_cmdlo(A6),D0
  1849.     AND.B    #$F,D0
  1850.     BRA    mt_VolSlideUp
  1851.  
  1852. mt_VolumeFineDown
  1853.     TST.B    mt_counter
  1854.     BNE    mt_Return
  1855.     MOVEQ    #0,D0
  1856.     MOVE.B    n_cmdlo(A6),D0
  1857.     AND.B    #$0F,D0
  1858.     BRA    mt_VolSlideDown2
  1859.  
  1860. mt_NoteCut
  1861.     MOVEQ    #0,D0
  1862.     MOVE.B    n_cmdlo(A6),D0
  1863.     AND.B    #$0F,D0
  1864.     CMP.B    mt_counter(PC),D0
  1865.     BNE    mt_Return
  1866.     CLR.B    n_volume(A6)
  1867.     MOVE.W    #0,8(A5)
  1868.     RTS
  1869.  
  1870. mt_NoteDelay
  1871.     MOVEQ    #0,D0
  1872.     MOVE.B    n_cmdlo(A6),D0
  1873.     AND.B    #$0F,D0
  1874.     CMP.B    mt_counter,D0
  1875.     BNE    mt_Return
  1876.     MOVE.W    (A6),D0
  1877.     BEQ    mt_Return
  1878.     MOVE.L    D1,-(SP)
  1879.     BRA    mt_DoRetrig
  1880.  
  1881. mt_PatternDelay
  1882.     TST.B    mt_counter
  1883.     BNE    mt_Return
  1884.     MOVEQ    #0,D0
  1885.     MOVE.B    n_cmdlo(A6),D0
  1886.     AND.B    #$0F,D0
  1887.     TST.B    mt_PattDelTime2
  1888.     BNE    mt_Return
  1889.     ADDQ.B    #1,D0
  1890.     MOVE.B    D0,mt_PattDelTime
  1891.     RTS
  1892.  
  1893. mt_FunkIt
  1894.     TST.B    mt_counter
  1895.     BNE    mt_Return
  1896.     MOVE.B    n_cmdlo(A6),D0
  1897.     AND.B    #$0F,D0
  1898.     LSL.B    #4,D0
  1899.     AND.B    #$0F,n_glissfunk(A6)
  1900.     OR.B    D0,n_glissfunk(A6)
  1901.     TST.B    D0
  1902.     BEQ    mt_Return
  1903. mt_UpdateFunk
  1904.     MOVEM.L    A0/D1,-(SP)
  1905.     MOVEQ    #0,D0
  1906.     MOVE.B    n_glissfunk(A6),D0
  1907.     LSR.B    #4,D0
  1908.     BEQ.S    mt_funkend
  1909.     LEA    mt_FunkTable(PC),A0
  1910.     MOVE.B    (A0,D0.W),D0
  1911.     ADD.B    D0,n_funkoffset(A6)
  1912.     BTST    #7,n_funkoffset(A6)
  1913.     BEQ.S    mt_funkend
  1914.     CLR.B    n_funkoffset(A6)
  1915.  
  1916.     MOVE.L    n_loopstart(A6),D0
  1917.     MOVEQ    #0,D1
  1918.     MOVE.W    n_replen(A6),D1
  1919.     ADD.L    D1,D0
  1920.     ADD.L    D1,D0
  1921.     MOVE.L    n_wavestart(A6),A0
  1922.     ADDQ.L    #1,A0
  1923.     CMP.L    D0,A0
  1924.     BLO.S    mt_funkok
  1925.     MOVE.L    n_loopstart(A6),A0
  1926. mt_funkok
  1927.     MOVE.L    A0,n_wavestart(A6)
  1928.     MOVEQ    #-1,D0
  1929.     SUB.B    (A0),D0
  1930.     MOVE.B    D0,(A0)
  1931. mt_funkend
  1932.     MOVEM.L    (SP)+,A0/D1
  1933.     RTS
  1934.  
  1935.  
  1936. mt_FunkTable dc.b 0,5,6,7,8,10,11,13,16,19,22,26,32,43,64,128
  1937.  
  1938. mt_VibratoTable    
  1939.     dc.b   0, 24, 49, 74, 97,120,141,161
  1940.     dc.b 180,197,212,224,235,244,250,253
  1941.     dc.b 255,253,250,244,235,224,212,197
  1942.     dc.b 180,161,141,120, 97, 74, 49, 24
  1943.  
  1944. mt_PeriodTable
  1945. ; Tuning 0, Normal
  1946.     dc.w    856,808,762,720,678,640,604,570,538,508,480,453
  1947.     dc.w    428,404,381,360,339,320,302,285,269,254,240,226
  1948.     dc.w    214,202,190,180,170,160,151,143,135,127,120,113
  1949. ; Tuning 1
  1950.     dc.w    850,802,757,715,674,637,601,567,535,505,477,450
  1951.     dc.w    425,401,379,357,337,318,300,284,268,253,239,225
  1952.     dc.w    213,201,189,179,169,159,150,142,134,126,119,113
  1953. ; Tuning 2
  1954.     dc.w    844,796,752,709,670,632,597,563,532,502,474,447
  1955.     dc.w    422,398,376,355,335,316,298,282,266,251,237,224
  1956.     dc.w    211,199,188,177,167,158,149,141,133,125,118,112
  1957. ; Tuning 3
  1958.     dc.w    838,791,746,704,665,628,592,559,528,498,470,444
  1959.     dc.w    419,395,373,352,332,314,296,280,264,249,235,222
  1960.     dc.w    209,198,187,176,166,157,148,140,132,125,118,111
  1961. ; Tuning 4
  1962.     dc.w    832,785,741,699,660,623,588,555,524,495,467,441
  1963.     dc.w    416,392,370,350,330,312,294,278,262,247,233,220
  1964.     dc.w    208,196,185,175,165,156,147,139,131,124,117,110
  1965. ; Tuning 5
  1966.     dc.w    826,779,736,694,655,619,584,551,520,491,463,437
  1967.     dc.w    413,390,368,347,328,309,292,276,260,245,232,219
  1968.     dc.w    206,195,184,174,164,155,146,138,130,123,116,109
  1969. ; Tuning 6
  1970.     dc.w    820,774,730,689,651,614,580,547,516,487,460,434
  1971.     dc.w    410,387,365,345,325,307,290,274,258,244,230,217
  1972.     dc.w    205,193,183,172,163,154,145,137,129,122,115,109
  1973. ; Tuning 7
  1974.     dc.w    814,768,725,684,646,610,575,543,513,484,457,431
  1975.     dc.w    407,384,363,342,323,305,288,272,256,242,228,216
  1976.     dc.w    204,192,181,171,161,152,144,136,128,121,114,108
  1977. ; Tuning -8
  1978.     dc.w    907,856,808,762,720,678,640,604,570,538,508,480
  1979.     dc.w    453,428,404,381,360,339,320,302,285,269,254,240
  1980.     dc.w    226,214,202,190,180,170,160,151,143,135,127,120
  1981. ; Tuning -7
  1982.     dc.w    900,850,802,757,715,675,636,601,567,535,505,477
  1983.     dc.w    450,425,401,379,357,337,318,300,284,268,253,238
  1984.     dc.w    225,212,200,189,179,169,159,150,142,134,126,119
  1985. ; Tuning -6
  1986.     dc.w    894,844,796,752,709,670,632,597,563,532,502,474
  1987.     dc.w    447,422,398,376,355,335,316,298,282,266,251,237
  1988.     dc.w    223,211,199,188,177,167,158,149,141,133,125,118
  1989. ; Tuning -5
  1990.     dc.w    887,838,791,746,704,665,628,592,559,528,498,470
  1991.     dc.w    444,419,395,373,352,332,314,296,280,264,249,235
  1992.     dc.w    222,209,198,187,176,166,157,148,140,132,125,118
  1993. ; Tuning -4
  1994.     dc.w    881,832,785,741,699,660,623,588,555,524,494,467
  1995.     dc.w    441,416,392,370,350,330,312,294,278,262,247,233
  1996.     dc.w    220,208,196,185,175,165,156,147,139,131,123,117
  1997. ; Tuning -3
  1998.     dc.w    875,826,779,736,694,655,619,584,551,520,491,463
  1999.     dc.w    437,413,390,368,347,328,309,292,276,260,245,232
  2000.     dc.w    219,206,195,184,174,164,155,146,138,130,123,116
  2001. ; Tuning -2
  2002.     dc.w    868,820,774,730,689,651,614,580,547,516,487,460
  2003.     dc.w    434,410,387,365,345,325,307,290,274,258,244,230
  2004.     dc.w    217,205,193,183,172,163,154,145,137,129,122,115
  2005. ; Tuning -1
  2006.     dc.w    862,814,768,725,684,646,610,575,543,513,484,457
  2007.     dc.w    431,407,384,363,342,323,305,288,272,256,242,228
  2008.     dc.w    216,203,192,181,171,161,152,144,136,128,121,114
  2009.  
  2010. mt_chan1temp    dc.l    0,0,0,0,0,$00010000,0,  0,0,0,0
  2011. mt_chan2temp    dc.l    0,0,0,0,0,$00020000,0,  0,0,0,0
  2012. mt_chan3temp    dc.l    0,0,0,0,0,$00040000,0,  0,0,0,0
  2013. mt_chan4temp    dc.l    0,0,0,0,0,$00080000,0,  0,0,0,0
  2014.  
  2015. mt_SampleStarts    dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2016.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  2017.  
  2018. mt_SongDataPtr    dc.l 0
  2019. mt_speed    dc.b 6
  2020. mt_counter    dc.b 0
  2021. mt_SongPos    dc.b 0
  2022. mt_PBreakPos    dc.b 0
  2023. mt_PosJumpFlag    dc.b 0
  2024. mt_PBreakFlag    dc.b 0
  2025. mt_LowMask    dc.b 0
  2026. mt_PattDelTime    dc.b 0
  2027. mt_PattDelTime2    dc.b 0
  2028. mt_Enable    dc.b 0
  2029. mt_PatternPos    dc.w 0
  2030. mt_DMACONtemp    dc.w 0
  2031.  
  2032. ;/* End of File */
  2033.  
  2034.  
  2035. *************************************************************************
  2036. *                        I/O Handler Routines                *
  2037. *************************************************************************
  2038. GadgetHandler
  2039.     Move.l    D7,A0
  2040.     Move.l    gg_UserData(a0),a0
  2041.     jmp    (a0)    
  2042. MouseHandler
  2043.     Bra    WaitLoop
  2044.  
  2045. KeyBoardHandler
  2046.     Bra    WaitLoop
  2047.  
  2048. MenuHandler
  2049.     Move.l    D3,D0        ;Save im_Code in D0 (Menu Number)
  2050.     Lea    Menu1,a0    ;Address of Menu list
  2051.     CALLINT    ItemAddress    ;Get Address of Item Picked
  2052.     Tst.l    D0        ;Anything picked
  2053.     Beq    WaitLoop    ;No!!(why did it go to this routine then ???)
  2054.     Move.l    D0,A0        ;Address of Menu
  2055.  
  2056. * I have put this in so I can make use of multiple selection later
  2057. * if i need it (Think ahead now less work later eh!!)
  2058.  
  2059.     Move.w    mi_NextSelect(a0),_LastItem    ;Save Next user selection
  2060.     Move.l    mi_SIZEOF(a0),a0    ;Gets first address after menu
  2061.                     ;structure selected
  2062.     Jmp    (a0)            ;jumps to address of routine     
  2063.     Bra    WaitLoop        ;return to IDCMP loop
  2064. DoQuit
  2065.     Bra    Exit
  2066. Flash
  2067.     Move.w    #-1,D0
  2068. .lop    Move.w    #$000,$dff180
  2069.     Dbra    D0,.lop
  2070.     Bra    DoQuit
  2071.  
  2072.  
  2073. DoAbout
  2074.     Move.l    #MEMF_CHIP,D1
  2075.     CALLEXEC    AvailMem
  2076.     Move.l    D0,FreeChip
  2077.  
  2078.     Move.l    #MEMF_FAST,D1
  2079.     CALLEXEC    AvailMem
  2080.     Move.l    D0,FreeFast
  2081.  
  2082.     Moveq    #0,D1
  2083.     CALLEXEC    AvailMem
  2084.     Move.l    D0,FreeTotal
  2085.  
  2086.     
  2087.     Lea    AboutText,A1        ;Text for body
  2088.     Lea    GadgeText,A2        ;Reply's
  2089.     Lea    AboutArgs,A4            ;ArgArray,A3
  2090.     Move.l    ReqInfoStructPtr,A3
  2091.     Lea    AboutTagList,A0
  2092.     move.l    _MyWinBase,ARqWin
  2093.     CALLREQ    EZRequestA
  2094.     Bra    WaitLoop
  2095. AboutText
  2096.     Dc.b    "The LSD Utility Menu",10
  2097.     Dc.b    "Was Written by Fugitive ",10
  2098.     Dc.b    "With Design help from Pazza",10,10
  2099.     Dc.b    "Remember the Amiga Trys ",10
  2100.     Dc.b    "to make it Impossible",10,10
  2101.     Dc.b    "Free Memory",10,10
  2102.     Dc.b    "Chip %ld Fast %ld ",10,10
  2103.     Dc.b    "Total %ld",0 
  2104.     Even
  2105. AboutArgs    
  2106. FreeChip    Dc.l    0
  2107. FreeFast    DC.l    0
  2108. FreeTotal    Dc.l    0
  2109.  
  2110.     Even
  2111. NoWindowErrorText
  2112.     Dc.b    "Sorry - There is not enough",10
  2113.     Dc.b    "Memory for a New Window",0
  2114.  
  2115. GadgeText
  2116.     Dc.b    "Ok",0
  2117.     Even
  2118. ReqTagList
  2119.     Dc.l    RT_Window
  2120. RqWin    Dc.l    0
  2121.     Dc.l    RT_ReqPos
  2122.     Dc.l    REQPOS_POINTER
  2123.     Dc.l    RT_WaitPointer
  2124.     Dc.l    -1
  2125.     Dc.l    RTEZ_ReqTitle
  2126.     Dc.l    ErrorTitle
  2127.     Dc.l    RTEZ_Flags
  2128.     DC.l    EZREQF_CENTERTEXT
  2129.     DC.l    TAG_END
  2130.  
  2131. AboutTagList
  2132.     Dc.l    RT_Window
  2133. ARqWin    Dc.l    0
  2134.     Dc.l    RT_ReqPos
  2135.     Dc.l    REQPOS_POINTER
  2136.     Dc.l    RT_WaitPointer
  2137.     Dc.l    -1
  2138.     Dc.l    RTEZ_ReqTitle
  2139.     Dc.l    AboutTitle
  2140.     Dc.l    RTEZ_Flags
  2141.     DC.l    EZREQF_CENTERTEXT
  2142.     DC.l    TAG_END
  2143. AboutTitle
  2144.     Dc.b    "The LSD Utility Menu..",0
  2145.     Even
  2146.  
  2147. ErrorTitle
  2148.     Dc.b    "Error Message",0
  2149.     Even
  2150.  
  2151.     
  2152. ReqName    Dc.b    "reqtools.library",0
  2153.     Even
  2154. ReqBase    Dc.l    0
  2155. ReqToolsStructPtr    Dc.l    0
  2156. ;***********************************************************************
  2157.     Even
  2158. _IntuitionBase    Dc.l    0
  2159. _DOSBase    Dc.l    0
  2160. _ReqBase    Dc.l    0
  2161. _PPBase        Dc.l    0
  2162. _MyWinBase    Dc.l    0
  2163. _GfxBase    Dc.l    0
  2164. _MyWinRPort    Dc.l    0
  2165. _MyWinUserPort    Dc.l    0
  2166. _LastItem    Dc.l    0
  2167. _MyWinVPort    Dc.l    0
  2168. _FileHandle    Dc.l    0
  2169. _FileBuffer
  2170. ReqInfoStructPtr    Dc.l    0
  2171. PPName        PPNAME
  2172. IntName        INTNAME
  2173. DosName        DOSNAME
  2174. ArpName        Dc.b    "arp.library",0
  2175. FileName    Dc.b    "s:LSDMenu.cfg",0
  2176. Flags        Dc.b    0
  2177.     Even
  2178.  
  2179. **************************************************
  2180. **         ROUTINES TO EXECUTE FILES        **
  2181. **************************************************
  2182.  
  2183.  
  2184. FUNC1
  2185. FUNC2
  2186. FUNC3
  2187. FUNC4
  2188. FUNC5
  2189. FUNC6
  2190. FUNC7
  2191. FUNC8
  2192. FUNC9
  2193. FUNC10
  2194. FUNC11
  2195. FUNC12
  2196. FUNC13
  2197. FUNC14
  2198. FUNC15
  2199. FUNC16
  2200. FUNC17
  2201. FUNC18
  2202. FUNC19
  2203. FUNC20
  2204. FUNC21
  2205. FUNC22
  2206. FUNC23
  2207. FUNC24
  2208. FUNC25
  2209. FUNC26
  2210. FUNC27
  2211. FUNC28
  2212. FUNC29
  2213. FUNC30
  2214. FUNC31
  2215. FUNC32
  2216. FUNC33
  2217. FUNC34
  2218. FUNC35
  2219. FUNC36
  2220. FUNC37
  2221. FUNC38
  2222. FUNC39
  2223. FUNC40
  2224. FUNC41
  2225. FUNC42
  2226. LSDINFO
  2227.     Bra    Exit
  2228. **************************************************
  2229. **   Data Structure for Menus Window & Gadgets     **
  2230. **************************************************
  2231.  
  2232. MainWindow
  2233.     dc.w    0,0
  2234.     dc.w    640,256
  2235.     dc.b    0,1
  2236.     dc.l    GADGETUP+MENUVERIFY+MENUPICK
  2237.     dc.l    BORDERLESS+ACTIVATE+NOCAREREFRESH
  2238.     dc.l    Gadget1
  2239.     dc.l    0
  2240.     dc.l    0
  2241.     dc.l    0
  2242.     dc.l    0
  2243.     dc.w    5,5
  2244.     dc.w    -1,-1
  2245.     dc.w    WBENCHSCREEN
  2246. Gadget1:
  2247.     dc.l    Gadget2
  2248.     dc.w    3,41
  2249.     dc.w    210,9
  2250.     dc.w    0
  2251.     dc.w    RELVERIFY
  2252.     dc.w    BOOLGADGET
  2253.     dc.l    Border1
  2254.     dc.l    0
  2255.     dc.l    IText1
  2256.     dc.l    0
  2257.     dc.l    0
  2258.     dc.w    0
  2259.     dc.l    FUNC1
  2260. Border1:
  2261.     dc.w    -1,-1
  2262.     dc.b    3,0,RP_JAM1
  2263.     dc.b    5
  2264.     dc.l    BorderVectors1
  2265.     dc.l    0
  2266. BorderVectors1:
  2267.     dc.w    0,0
  2268.     dc.w    211,0
  2269.     dc.w    211,10
  2270.     dc.w    0,10
  2271.     dc.w    0,0
  2272. IText1:
  2273.     dc.b    3,0,RP_JAM2,0
  2274.     dc.w    5,1
  2275.     dc.l    0
  2276.     dc.l    ITextText1
  2277.     dc.l    0
  2278. Gadget2:
  2279.     dc.l    Gadget3
  2280.     dc.w    215,41
  2281.     dc.w    210,9
  2282.     dc.w    0
  2283.     dc.w    RELVERIFY
  2284.     dc.w    BOOLGADGET
  2285.     dc.l    Border2
  2286.     dc.l    0
  2287.     dc.l    IText2
  2288.     dc.l    0
  2289.     dc.l    0
  2290.     dc.w    0
  2291.     dc.l    FUNC2
  2292. Border2:
  2293.     dc.w    -1,-1
  2294.     dc.b    3,0,RP_JAM1
  2295.     dc.b    5
  2296.     dc.l    BorderVectors2
  2297.     dc.l    0
  2298. BorderVectors2:
  2299.     dc.w    0,0
  2300.     dc.w    211,0
  2301.     dc.w    211,10
  2302.     dc.w    0,10
  2303.     dc.w    0,0
  2304. IText2:
  2305.     dc.b    3,0,RP_JAM2,0
  2306.     dc.w    5,1
  2307.     dc.l    0
  2308.     dc.l    ITextText2
  2309.     dc.l    0
  2310. Gadget3:
  2311.     dc.l    Gadget4
  2312.     dc.w    427,41
  2313.     dc.w    210,9
  2314.     dc.w    0
  2315.     dc.w    RELVERIFY
  2316.     dc.w    BOOLGADGET
  2317.     dc.l    Border3
  2318.     dc.l    0
  2319.     dc.l    IText3
  2320.     dc.l    0
  2321.     dc.l    0
  2322.     dc.w    0
  2323.     dc.l    FUNC3
  2324. Border3:
  2325.     dc.w    -1,-1
  2326.     dc.b    3,0,RP_JAM1
  2327.     dc.b    5
  2328.     dc.l    BorderVectors3
  2329.     dc.l    0
  2330. BorderVectors3:
  2331.     dc.w    0,0
  2332.     dc.w    211,0
  2333.     dc.w    211,10
  2334.     dc.w    0,10
  2335.     dc.w    0,0
  2336. IText3:
  2337.     dc.b    3,0,RP_JAM2,0
  2338.     dc.w    5,1
  2339.     dc.l    0
  2340.     dc.l    ITextText3
  2341.     dc.l    0
  2342. Gadget4:
  2343.     dc.l    Gadget5
  2344.     dc.w    3,52
  2345.     dc.w    210,9
  2346.     dc.w    0
  2347.     dc.w    RELVERIFY
  2348.     dc.w    BOOLGADGET
  2349.     dc.l    Border4
  2350.     dc.l    0
  2351.     dc.l    IText4
  2352.     dc.l    0
  2353.     dc.l    0
  2354.     dc.w    0
  2355.     dc.l    FUNC4
  2356. Border4:
  2357.     dc.w    -1,-1
  2358.     dc.b    3,0,RP_JAM1
  2359.     dc.b    5
  2360.     dc.l    BorderVectors4
  2361.     dc.l    0
  2362. BorderVectors4:
  2363.     dc.w    0,0
  2364.     dc.w    211,0
  2365.     dc.w    211,10
  2366.     dc.w    0,10
  2367.     dc.w    0,0
  2368. IText4:
  2369.     dc.b    3,0,RP_JAM2,0
  2370.     dc.w    5,1
  2371.     dc.l    0
  2372.     dc.l    ITextText4
  2373.     dc.l    0
  2374. Gadget5:
  2375.     dc.l    Gadget6
  2376.     dc.w    215,52
  2377.     dc.w    210,9
  2378.     dc.w    0
  2379.     dc.w    RELVERIFY
  2380.     dc.w    BOOLGADGET
  2381.     dc.l    Border5
  2382.     dc.l    0
  2383.     dc.l    IText5
  2384.     dc.l    0
  2385.     dc.l    0
  2386.     dc.w    0
  2387.     dc.l    FUNC5
  2388. Border5:
  2389.     dc.w    -1,-1
  2390.     dc.b    3,0,RP_JAM1
  2391.     dc.b    5
  2392.     dc.l    BorderVectors5
  2393.     dc.l    0
  2394. BorderVectors5:
  2395.     dc.w    0,0
  2396.     dc.w    211,0
  2397.     dc.w    211,10
  2398.     dc.w    0,10
  2399.     dc.w    0,0
  2400. IText5:
  2401.     dc.b    3,0,RP_JAM2,0
  2402.     dc.w    5,1
  2403.     dc.l    0
  2404.     dc.l    ITextText5
  2405.     dc.l    0
  2406. Gadget6:
  2407.     dc.l    Gadget7
  2408.     dc.w    427,52
  2409.     dc.w    210,9
  2410.     dc.w    0
  2411.     dc.w    RELVERIFY
  2412.     dc.w    BOOLGADGET
  2413.     dc.l    Border6
  2414.     dc.l    0
  2415.     dc.l    IText6
  2416.     dc.l    0
  2417.     dc.l    0
  2418.     dc.w    0
  2419.     dc.l    FUNC6
  2420. Border6:
  2421.     dc.w    -1,-1
  2422.     dc.b    3,0,RP_JAM1
  2423.     dc.b    5
  2424.     dc.l    BorderVectors6
  2425.     dc.l    0
  2426. BorderVectors6:
  2427.     dc.w    0,0
  2428.     dc.w    211,0
  2429.     dc.w    211,10
  2430.     dc.w    0,10
  2431.     dc.w    0,0
  2432. IText6:
  2433.     dc.b    3,0,RP_JAM2,0
  2434.     dc.w    5,1
  2435.     dc.l    0
  2436.     dc.l    ITextText6
  2437.     dc.l    0
  2438. Gadget7:
  2439.     dc.l    Gadget8
  2440.     dc.w    3,63
  2441.     dc.w    210,9
  2442.     dc.w    0
  2443.     dc.w    RELVERIFY
  2444.     dc.w    BOOLGADGET
  2445.     dc.l    Border7
  2446.     dc.l    0
  2447.     dc.l    IText7
  2448.     dc.l    0
  2449.     dc.l    0
  2450.     dc.w    0
  2451.     dc.l    FUNC7
  2452. Border7:
  2453.     dc.w    -1,-1
  2454.     dc.b    3,0,RP_JAM1
  2455.     dc.b    5
  2456.     dc.l    BorderVectors7
  2457.     dc.l    0
  2458. BorderVectors7:
  2459.     dc.w    0,0
  2460.     dc.w    211,0
  2461.     dc.w    211,10
  2462.     dc.w    0,10
  2463.     dc.w    0,0
  2464. IText7:
  2465.     dc.b    3,0,RP_JAM2,0
  2466.     dc.w    5,1
  2467.     dc.l    0
  2468.     dc.l    ITextText7
  2469.     dc.l    0
  2470. Gadget8:
  2471.     dc.l    Gadget9
  2472.     dc.w    215,63
  2473.     dc.w    210,9
  2474.     dc.w    0
  2475.     dc.w    RELVERIFY
  2476.     dc.w    BOOLGADGET
  2477.     dc.l    Border8
  2478.     dc.l    0
  2479.     dc.l    IText8
  2480.     dc.l    0
  2481.     dc.l    0
  2482.     dc.w    0
  2483.     dc.l    FUNC8
  2484. Border8:
  2485.     dc.w    -1,-1
  2486.     dc.b    3,0,RP_JAM1
  2487.     dc.b    5
  2488.     dc.l    BorderVectors8
  2489.     dc.l    0
  2490. BorderVectors8:
  2491.     dc.w    0,0
  2492.     dc.w    211,0
  2493.     dc.w    211,10
  2494.     dc.w    0,10
  2495.     dc.w    0,0
  2496. IText8:
  2497.     dc.b    3,0,RP_JAM2,0
  2498.     dc.w    5,1
  2499.     dc.l    0
  2500.     dc.l    ITextText8
  2501.     dc.l    0
  2502. Gadget9:
  2503.     dc.l    Gadget10
  2504.     dc.w    427,63
  2505.     dc.w    210,9
  2506.     dc.w    0
  2507.     dc.w    RELVERIFY
  2508.     dc.w    BOOLGADGET
  2509.     dc.l    Border9
  2510.     dc.l    0
  2511.     dc.l    IText9
  2512.     dc.l    0
  2513.     dc.l    0
  2514.     dc.w    0
  2515.     dc.l    FUNC9
  2516. Border9:
  2517.     dc.w    -1,-1
  2518.     dc.b    3,0,RP_JAM1
  2519.     dc.b    5
  2520.     dc.l    BorderVectors9
  2521.     dc.l    0
  2522. BorderVectors9:
  2523.     dc.w    0,0
  2524.     dc.w    211,0
  2525.     dc.w    211,10
  2526.     dc.w    0,10
  2527.     dc.w    0,0
  2528. IText9:
  2529.     dc.b    3,0,RP_JAM2,0
  2530.     dc.w    5,1
  2531.     dc.l    0
  2532.     dc.l    ITextText9
  2533.     dc.l    0
  2534. Gadget10:
  2535.     dc.l    Gadget11
  2536.     dc.w    3,74
  2537.     dc.w    210,9
  2538.     dc.w    0
  2539.     dc.w    RELVERIFY
  2540.     dc.w    BOOLGADGET
  2541.     dc.l    Border10
  2542.     dc.l    0
  2543.     dc.l    IText10
  2544.     dc.l    0
  2545.     dc.l    0
  2546.     dc.w    0
  2547.     dc.l    FUNC10
  2548. Border10:
  2549.     dc.w    -1,-1
  2550.     dc.b    3,0,RP_JAM1
  2551.     dc.b    5
  2552.     dc.l    BorderVectors10
  2553.     dc.l    0
  2554. BorderVectors10:
  2555.     dc.w    0,0
  2556.     dc.w    211,0
  2557.     dc.w    211,10
  2558.     dc.w    0,10
  2559.     dc.w    0,0
  2560. IText10:
  2561.     dc.b    3,0,RP_JAM2,0
  2562.     dc.w    5,1
  2563.     dc.l    0
  2564.     dc.l    ITextText10
  2565.     dc.l    0
  2566. Gadget11:
  2567.     dc.l    Gadget12
  2568.     dc.w    215,74
  2569.     dc.w    210,9
  2570.     dc.w    0
  2571.     dc.w    RELVERIFY
  2572.     dc.w    BOOLGADGET
  2573.     dc.l    Border11
  2574.     dc.l    0
  2575.     dc.l    IText11
  2576.     dc.l    0
  2577.     dc.l    0
  2578.     dc.w    0
  2579.     dc.l    FUNC11
  2580. Border11:
  2581.     dc.w    -1,-1
  2582.     dc.b    3,0,RP_JAM1
  2583.     dc.b    5
  2584.     dc.l    BorderVectors11
  2585.     dc.l    0
  2586. BorderVectors11:
  2587.     dc.w    0,0
  2588.     dc.w    211,0
  2589.     dc.w    211,10
  2590.     dc.w    0,10
  2591.     dc.w    0,0
  2592. IText11:
  2593.     dc.b    3,0,RP_JAM2,0
  2594.     dc.w    5,1
  2595.     dc.l    0
  2596.     dc.l    ITextText11
  2597.     dc.l    0
  2598. Gadget12:
  2599.     dc.l    Gadget13
  2600.     dc.w    427,74
  2601.     dc.w    210,9
  2602.     dc.w    0
  2603.     dc.w    RELVERIFY
  2604.     dc.w    BOOLGADGET
  2605.     dc.l    Border12
  2606.     dc.l    0
  2607.     dc.l    IText12
  2608.     dc.l    0
  2609.     dc.l    0
  2610.     dc.w    0
  2611.     dc.l    FUNC12
  2612. Border12:
  2613.     dc.w    -1,-1
  2614.     dc.b    3,0,RP_JAM1
  2615.     dc.b    5
  2616.     dc.l    BorderVectors12
  2617.     dc.l    0
  2618. BorderVectors12:
  2619.     dc.w    0,0
  2620.     dc.w    211,0
  2621.     dc.w    211,10
  2622.     dc.w    0,10
  2623.     dc.w    0,0
  2624. IText12:
  2625.     dc.b    3,0,RP_JAM2,0
  2626.     dc.w    5,1
  2627.     dc.l    0
  2628.     dc.l    ITextText12
  2629.     dc.l    0
  2630. Gadget13:
  2631.     dc.l    Gadget14
  2632.     dc.w    3,85
  2633.     dc.w    210,9
  2634.     dc.w    0
  2635.     dc.w    RELVERIFY
  2636.     dc.w    BOOLGADGET
  2637.     dc.l    Border13
  2638.     dc.l    0
  2639.     dc.l    IText13
  2640.     dc.l    0
  2641.     dc.l    0
  2642.     dc.w    0
  2643.     dc.l    FUNC13
  2644. Border13:
  2645.     dc.w    -1,-1
  2646.     dc.b    3,0,RP_JAM1
  2647.     dc.b    5
  2648.     dc.l    BorderVectors13
  2649.     dc.l    0
  2650. BorderVectors13:
  2651.     dc.w    0,0
  2652.     dc.w    211,0
  2653.     dc.w    211,10
  2654.     dc.w    0,10
  2655.     dc.w    0,0
  2656. IText13:
  2657.     dc.b    3,0,RP_JAM2,0
  2658.     dc.w    5,1
  2659.     dc.l    0
  2660.     dc.l    ITextText13
  2661.     dc.l    0
  2662. Gadget14:
  2663.     dc.l    Gadget15
  2664.     dc.w    215,85
  2665.     dc.w    210,9
  2666.     dc.w    0
  2667.     dc.w    RELVERIFY
  2668.     dc.w    BOOLGADGET
  2669.     dc.l    Border14
  2670.     dc.l    0
  2671.     dc.l    IText14
  2672.     dc.l    0
  2673.     dc.l    0
  2674.     dc.w    0
  2675.     dc.l    FUNC14
  2676. Border14:
  2677.     dc.w    -1,-1
  2678.     dc.b    3,0,RP_JAM1
  2679.     dc.b    5
  2680.     dc.l    BorderVectors14
  2681.     dc.l    0
  2682. BorderVectors14:
  2683.     dc.w    0,0
  2684.     dc.w    211,0
  2685.     dc.w    211,10
  2686.     dc.w    0,10
  2687.     dc.w    0,0
  2688. IText14:
  2689.     dc.b    3,0,RP_JAM2,0
  2690.     dc.w    5,1
  2691.     dc.l    0
  2692.     dc.l    ITextText14
  2693.     dc.l    0
  2694. Gadget15:
  2695.     dc.l    Gadget16
  2696.     dc.w    427,85
  2697.     dc.w    210,9
  2698.     dc.w    0
  2699.     dc.w    RELVERIFY
  2700.     dc.w    BOOLGADGET
  2701.     dc.l    Border15
  2702.     dc.l    0
  2703.     dc.l    IText15
  2704.     dc.l    0
  2705.     dc.l    0
  2706.     dc.w    0
  2707.     dc.l    FUNC15
  2708. Border15:
  2709.     dc.w    -1,-1
  2710.     dc.b    3,0,RP_JAM1
  2711.     dc.b    5
  2712.     dc.l    BorderVectors15
  2713.     dc.l    0
  2714. BorderVectors15:
  2715.     dc.w    0,0
  2716.     dc.w    211,0
  2717.     dc.w    211,10
  2718.     dc.w    0,10
  2719.     dc.w    0,0
  2720. IText15:
  2721.     dc.b    3,0,RP_JAM2,0
  2722.     dc.w    5,1
  2723.     dc.l    0
  2724.     dc.l    ITextText15
  2725.     dc.l    0
  2726. Gadget16:
  2727.     dc.l    Gadget17
  2728.     dc.w    3,96
  2729.     dc.w    210,9
  2730.     dc.w    0
  2731.     dc.w    RELVERIFY
  2732.     dc.w    BOOLGADGET
  2733.     dc.l    Border16
  2734.     dc.l    0
  2735.     dc.l    IText16
  2736.     dc.l    0
  2737.     dc.l    0
  2738.     dc.w    0
  2739.     dc.l    FUNC16
  2740. Border16:
  2741.     dc.w    -1,-1
  2742.     dc.b    3,0,RP_JAM1
  2743.     dc.b    5
  2744.     dc.l    BorderVectors16
  2745.     dc.l    0
  2746. BorderVectors16:
  2747.     dc.w    0,0
  2748.     dc.w    211,0
  2749.     dc.w    211,10
  2750.     dc.w    0,10
  2751.     dc.w    0,0
  2752. IText16:
  2753.     dc.b    3,0,RP_JAM2,0
  2754.     dc.w    5,1
  2755.     dc.l    0
  2756.     dc.l    ITextText16
  2757.     dc.l    0
  2758. Gadget17:
  2759.     dc.l    Gadget18
  2760.     dc.w    215,96
  2761.     dc.w    210,9
  2762.     dc.w    0
  2763.     dc.w    RELVERIFY
  2764.     dc.w    BOOLGADGET
  2765.     dc.l    Border17
  2766.     dc.l    0
  2767.     dc.l    IText17
  2768.     dc.l    0
  2769.     dc.l    0
  2770.     dc.w    0
  2771.     dc.l    FUNC17
  2772. Border17:
  2773.     dc.w    -1,-1
  2774.     dc.b    3,0,RP_JAM1
  2775.     dc.b    5
  2776.     dc.l    BorderVectors17
  2777.     dc.l    0
  2778. BorderVectors17:
  2779.     dc.w    0,0
  2780.     dc.w    211,0
  2781.     dc.w    211,10
  2782.     dc.w    0,10
  2783.     dc.w    0,0
  2784. IText17:
  2785.     dc.b    3,0,RP_JAM2,0
  2786.     dc.w    5,1
  2787.     dc.l    0
  2788.     dc.l    ITextText17
  2789.     dc.l    0
  2790. Gadget18:
  2791.     dc.l    Gadget19
  2792.     dc.w    427,96
  2793.     dc.w    210,9
  2794.     dc.w    0
  2795.     dc.w    RELVERIFY
  2796.     dc.w    BOOLGADGET
  2797.     dc.l    Border18
  2798.     dc.l    0
  2799.     dc.l    IText18
  2800.     dc.l    0
  2801.     dc.l    0
  2802.     dc.w    0
  2803.     dc.l    FUNC18
  2804. Border18:
  2805.     dc.w    -1,-1
  2806.     dc.b    3,0,RP_JAM1
  2807.     dc.b    5
  2808.     dc.l    BorderVectors18
  2809.     dc.l    0
  2810. BorderVectors18:
  2811.     dc.w    0,0
  2812.     dc.w    211,0
  2813.     dc.w    211,10
  2814.     dc.w    0,10
  2815.     dc.w    0,0
  2816. IText18:
  2817.     dc.b    3,0,RP_JAM2,0
  2818.     dc.w    5,1
  2819.     dc.l    0
  2820.     dc.l    ITextText18
  2821.     dc.l    0
  2822. Gadget19:
  2823.     dc.l    Gadget20
  2824.     dc.w    3,107
  2825.     dc.w    210,9
  2826.     dc.w    0
  2827.     dc.w    RELVERIFY
  2828.     dc.w    BOOLGADGET
  2829.     dc.l    Border19
  2830.     dc.l    0
  2831.     dc.l    IText19
  2832.     dc.l    0
  2833.     dc.l    0
  2834.     dc.w    0
  2835.     dc.l    FUNC19
  2836. Border19:
  2837.     dc.w    -1,-1
  2838.     dc.b    3,0,RP_JAM1
  2839.     dc.b    5
  2840.     dc.l    BorderVectors19
  2841.     dc.l    0
  2842. BorderVectors19:
  2843.     dc.w    0,0
  2844.     dc.w    211,0
  2845.     dc.w    211,10
  2846.     dc.w    0,10
  2847.     dc.w    0,0
  2848. IText19:
  2849.     dc.b    3,0,RP_JAM2,0
  2850.     dc.w    5,1
  2851.     dc.l    0
  2852.     dc.l    ITextText19
  2853.     dc.l    0
  2854. Gadget20:
  2855.     dc.l    Gadget21
  2856.     dc.w    215,107
  2857.     dc.w    210,9
  2858.     dc.w    0
  2859.     dc.w    RELVERIFY
  2860.     dc.w    BOOLGADGET
  2861.     dc.l    Border20
  2862.     dc.l    0
  2863.     dc.l    IText20
  2864.     dc.l    0
  2865.     dc.l    0
  2866.     dc.w    0
  2867.     dc.l    FUNC20
  2868. Border20:
  2869.     dc.w    -1,-1
  2870.     dc.b    3,0,RP_JAM1
  2871.     dc.b    5
  2872.     dc.l    BorderVectors20
  2873.     dc.l    0
  2874. BorderVectors20:
  2875.     dc.w    0,0
  2876.     dc.w    211,0
  2877.     dc.w    211,10
  2878.     dc.w    0,10
  2879.     dc.w    0,0
  2880. IText20:
  2881.     dc.b    3,0,RP_JAM2,0
  2882.     dc.w    5,1
  2883.     dc.l    0
  2884.     dc.l    ITextText20
  2885.     dc.l    0
  2886. Gadget21:
  2887.     dc.l    Gadget22
  2888.     dc.w    427,107
  2889.     dc.w    210,9
  2890.     dc.w    0
  2891.     dc.w    RELVERIFY
  2892.     dc.w    BOOLGADGET
  2893.     dc.l    Border21
  2894.     dc.l    0
  2895.     dc.l    IText21
  2896.     dc.l    0
  2897.     dc.l    0
  2898.     dc.w    0
  2899.     dc.l    FUNC21
  2900. Border21:
  2901.     dc.w    -1,-1
  2902.     dc.b    3,0,RP_JAM1
  2903.     dc.b    5
  2904.     dc.l    BorderVectors21
  2905.     dc.l    0
  2906. BorderVectors21:
  2907.     dc.w    0,0
  2908.     dc.w    211,0
  2909.     dc.w    211,10
  2910.     dc.w    0,10
  2911.     dc.w    0,0
  2912. IText21:
  2913.     dc.b    3,0,RP_JAM2,0
  2914.     dc.w    6,1
  2915.     dc.l    0
  2916.     dc.l    ITextText21
  2917.     dc.l    0
  2918. Gadget22:
  2919.     dc.l    Gadget23
  2920.     dc.w    3,118
  2921.     dc.w    210,9
  2922.     dc.w    0
  2923.     dc.w    RELVERIFY
  2924.     dc.w    BOOLGADGET
  2925.     dc.l    Border22
  2926.     dc.l    0
  2927.     dc.l    IText22
  2928.     dc.l    0
  2929.     dc.l    0
  2930.     dc.w    0
  2931.     dc.l    FUNC22
  2932. Border22:
  2933.     dc.w    -1,-1
  2934.     dc.b    3,0,RP_JAM1
  2935.     dc.b    5
  2936.     dc.l    BorderVectors22
  2937.     dc.l    0
  2938. BorderVectors22:
  2939.     dc.w    0,0
  2940.     dc.w    211,0
  2941.     dc.w    211,10
  2942.     dc.w    0,10
  2943.     dc.w    0,0
  2944. IText22:
  2945.     dc.b    3,0,RP_JAM2,0
  2946.     dc.w    5,1
  2947.     dc.l    0
  2948.     dc.l    ITextText22
  2949.     dc.l    0
  2950. Gadget23:
  2951.     dc.l    Gadget24
  2952.     dc.w    215,118
  2953.     dc.w    210,9
  2954.     dc.w    0
  2955.     dc.w    RELVERIFY
  2956.     dc.w    BOOLGADGET
  2957.     dc.l    Border23
  2958.     dc.l    0
  2959.     dc.l    IText23
  2960.     dc.l    0
  2961.     dc.l    0
  2962.     dc.w    0
  2963.     dc.l    FUNC23
  2964. Border23:
  2965.     dc.w    -1,-1
  2966.     dc.b    3,0,RP_JAM1
  2967.     dc.b    5
  2968.     dc.l    BorderVectors23
  2969.     dc.l    0
  2970. BorderVectors23:
  2971.     dc.w    0,0
  2972.     dc.w    211,0
  2973.     dc.w    211,10
  2974.     dc.w    0,10
  2975.     dc.w    0,0
  2976. IText23:
  2977.     dc.b    3,0,RP_JAM2,0
  2978.     dc.w    5,1
  2979.     dc.l    0
  2980.     dc.l    ITextText23
  2981.     dc.l    0
  2982. Gadget24:
  2983.     dc.l    Gadget25
  2984.     dc.w    427,118
  2985.     dc.w    210,9
  2986.     dc.w    0
  2987.     dc.w    RELVERIFY
  2988.     dc.w    BOOLGADGET
  2989.     dc.l    Border24
  2990.     dc.l    0
  2991.     dc.l    IText24
  2992.     dc.l    0
  2993.     dc.l    0
  2994.     dc.w    0
  2995.     dc.l    FUNC24
  2996. Border24:
  2997.     dc.w    -1,-1
  2998.     dc.b    3,0,RP_JAM1
  2999.     dc.b    5
  3000.     dc.l    BorderVectors24
  3001.     dc.l    0
  3002. BorderVectors24:
  3003.     dc.w    0,0
  3004.     dc.w    211,0
  3005.     dc.w    211,10
  3006.     dc.w    0,10
  3007.     dc.w    0,0
  3008. IText24:
  3009.     dc.b    3,0,RP_JAM2,0
  3010.     dc.w    5,1
  3011.     dc.l    0
  3012.     dc.l    ITextText24
  3013.     dc.l    0
  3014. Gadget25:
  3015.     dc.l    Gadget26
  3016.     dc.w    3,129
  3017.     dc.w    210,9
  3018.     dc.w    0
  3019.     dc.w    RELVERIFY
  3020.     dc.w    BOOLGADGET
  3021.     dc.l    Border25
  3022.     dc.l    0
  3023.     dc.l    IText25
  3024.     dc.l    0
  3025.     dc.l    0
  3026.     dc.w    0
  3027.     dc.l    FUNC25
  3028. Border25:
  3029.     dc.w    -1,-1
  3030.     dc.b    3,0,RP_JAM1
  3031.     dc.b    5
  3032.     dc.l    BorderVectors25
  3033.     dc.l    0
  3034. BorderVectors25:
  3035.     dc.w    0,0
  3036.     dc.w    211,0
  3037.     dc.w    211,10
  3038.     dc.w    0,10
  3039.     dc.w    0,0
  3040. IText25:
  3041.     dc.b    3,0,RP_JAM2,0
  3042.     dc.w    5,1
  3043.     dc.l    0
  3044.     dc.l    ITextText25
  3045.     dc.l    0
  3046. Gadget26:
  3047.     dc.l    Gadget27
  3048.     dc.w    215,129
  3049.     dc.w    210,9
  3050.     dc.w    0
  3051.     dc.w    RELVERIFY
  3052.     dc.w    BOOLGADGET
  3053.     dc.l    Border26
  3054.     dc.l    0
  3055.     dc.l    IText26
  3056.     dc.l    0
  3057.     dc.l    0
  3058.     dc.w    0
  3059.     dc.l    FUNC26
  3060. Border26:
  3061.     dc.w    -1,-1
  3062.     dc.b    3,0,RP_JAM1
  3063.     dc.b    5
  3064.     dc.l    BorderVectors26
  3065.     dc.l    0
  3066. BorderVectors26:
  3067.     dc.w    0,0
  3068.     dc.w    211,0
  3069.     dc.w    211,10
  3070.     dc.w    0,10
  3071.     dc.w    0,0
  3072. IText26:
  3073.     dc.b    3,0,RP_JAM2,0
  3074.     dc.w    5,1
  3075.     dc.l    0
  3076.     dc.l    ITextText26
  3077.     dc.l    0
  3078. Gadget27:
  3079.     dc.l    Gadget28
  3080.     dc.w    427,129
  3081.     dc.w    210,9
  3082.     dc.w    0
  3083.     dc.w    RELVERIFY
  3084.     dc.w    BOOLGADGET
  3085.     dc.l    Border27
  3086.     dc.l    0
  3087.     dc.l    IText27
  3088.     dc.l    0
  3089.     dc.l    0
  3090.     dc.w    0
  3091.     dc.l    FUNC27
  3092. Border27:
  3093.     dc.w    -1,-1
  3094.     dc.b    3,0,RP_JAM1
  3095.     dc.b    5
  3096.     dc.l    BorderVectors27
  3097.     dc.l    0
  3098. BorderVectors27:
  3099.     dc.w    0,0
  3100.     dc.w    211,0
  3101.     dc.w    211,10
  3102.     dc.w    0,10
  3103.     dc.w    0,0
  3104. IText27:
  3105.     dc.b    3,0,RP_JAM2,0
  3106.     dc.w    5,1
  3107.     dc.l    0
  3108.     dc.l    ITextText27
  3109.     dc.l    0
  3110. Gadget28:
  3111.     dc.l    Gadget29
  3112.     dc.w    3,140
  3113.     dc.w    210,9
  3114.     dc.w    0
  3115.     dc.w    RELVERIFY
  3116.     dc.w    BOOLGADGET
  3117.     dc.l    Border28
  3118.     dc.l    0
  3119.     dc.l    IText28
  3120.     dc.l    0
  3121.     dc.l    0
  3122.     dc.w    0
  3123.     dc.l    FUNC28
  3124. Border28:
  3125.     dc.w    -1,-1
  3126.     dc.b    3,0,RP_JAM1
  3127.     dc.b    5
  3128.     dc.l    BorderVectors28
  3129.     dc.l    0
  3130. BorderVectors28:
  3131.     dc.w    0,0
  3132.     dc.w    211,0
  3133.     dc.w    211,10
  3134.     dc.w    0,10
  3135.     dc.w    0,0
  3136. IText28:
  3137.     dc.b    3,0,RP_JAM2,0
  3138.     dc.w    5,1
  3139.     dc.l    0
  3140.     dc.l    ITextText28
  3141.     dc.l    0
  3142. Gadget29:
  3143.     dc.l    Gadget30
  3144.     dc.w    215,140
  3145.     dc.w    210,9
  3146.     dc.w    0
  3147.     dc.w    RELVERIFY
  3148.     dc.w    BOOLGADGET
  3149.     dc.l    Border29
  3150.     dc.l    0
  3151.     dc.l    IText29
  3152.     dc.l    0
  3153.     dc.l    0
  3154.     dc.w    0
  3155.     dc.l    FUNC29
  3156. Border29:
  3157.     dc.w    -1,-1
  3158.     dc.b    3,0,RP_JAM1
  3159.     dc.b    5
  3160.     dc.l    BorderVectors29
  3161.     dc.l    0
  3162. BorderVectors29:
  3163.     dc.w    0,0
  3164.     dc.w    211,0
  3165.     dc.w    211,10
  3166.     dc.w    0,10
  3167.     dc.w    0,0
  3168. IText29:
  3169.     dc.b    3,0,RP_JAM2,0
  3170.     dc.w    5,1
  3171.     dc.l    0
  3172.     dc.l    ITextText29
  3173.     dc.l    0
  3174. Gadget30:
  3175.     dc.l    Gadget31
  3176.     dc.w    427,140
  3177.     dc.w    210,9
  3178.     dc.w    0
  3179.     dc.w    RELVERIFY
  3180.     dc.w    BOOLGADGET
  3181.     dc.l    Border30
  3182.     dc.l    0
  3183.     dc.l    IText30
  3184.     dc.l    0
  3185.     dc.l    0
  3186.     dc.w    0
  3187.     dc.l    FUNC30
  3188. Border30:
  3189.     dc.w    -1,-1
  3190.     dc.b    3,0,RP_JAM1
  3191.     dc.b    5
  3192.     dc.l    BorderVectors30
  3193.     dc.l    0
  3194. BorderVectors30:
  3195.     dc.w    0,0
  3196.     dc.w    211,0
  3197.     dc.w    211,10
  3198.     dc.w    0,10
  3199.     dc.w    0,0
  3200. IText30:
  3201.     dc.b    3,0,RP_JAM2,0
  3202.     dc.w    6,1
  3203.     dc.l    0
  3204.     dc.l    ITextText30
  3205.     dc.l    0
  3206. Gadget31:
  3207.     dc.l    Gadget32
  3208.     dc.w    3,151
  3209.     dc.w    210,9
  3210.     dc.w    0
  3211.     dc.w    RELVERIFY
  3212.     dc.w    BOOLGADGET
  3213.     dc.l    Border31
  3214.     dc.l    0
  3215.     dc.l    IText31
  3216.     dc.l    0
  3217.     dc.l    0
  3218.     dc.w    0
  3219.     dc.l    FUNC31
  3220. Border31:
  3221.     dc.w    -1,-1
  3222.     dc.b    3,0,RP_JAM1
  3223.     dc.b    5
  3224.     dc.l    BorderVectors31
  3225.     dc.l    0
  3226. BorderVectors31:
  3227.     dc.w    0,0
  3228.     dc.w    211,0
  3229.     dc.w    211,10
  3230.     dc.w    0,10
  3231.     dc.w    0,0
  3232. IText31:
  3233.     dc.b    3,0,RP_JAM2,0
  3234.     dc.w    5,1
  3235.     dc.l    0
  3236.     dc.l    ITextText31
  3237.     dc.l    0
  3238. Gadget32:
  3239.     dc.l    Gadget33
  3240.     dc.w    215,151
  3241.     dc.w    210,9
  3242.     dc.w    0
  3243.     dc.w    RELVERIFY
  3244.     dc.w    BOOLGADGET
  3245.     dc.l    Border32
  3246.     dc.l    0
  3247.     dc.l    IText32
  3248.     dc.l    0
  3249.     dc.l    0
  3250.     dc.w    0
  3251.     dc.l    FUNC32
  3252. Border32:
  3253.     dc.w    -1,-1
  3254.     dc.b    3,0,RP_JAM1
  3255.     dc.b    5
  3256.     dc.l    BorderVectors32
  3257.     dc.l    0
  3258. BorderVectors32:
  3259.     dc.w    0,0
  3260.     dc.w    211,0
  3261.     dc.w    211,10
  3262.     dc.w    0,10
  3263.     dc.w    0,0
  3264. IText32:
  3265.     dc.b    3,0,RP_JAM2,0
  3266.     dc.w    5,1
  3267.     dc.l    0
  3268.     dc.l    ITextText32
  3269.     dc.l    0
  3270. Gadget33:
  3271.     dc.l    Gadget34
  3272.     dc.w    427,151
  3273.     dc.w    210,9
  3274.     dc.w    0
  3275.     dc.w    RELVERIFY
  3276.     dc.w    BOOLGADGET
  3277.     dc.l    Border33
  3278.     dc.l    0
  3279.     dc.l    IText33
  3280.     dc.l    0
  3281.     dc.l    0
  3282.     dc.w    0
  3283.     dc.l    FUNC33
  3284. Border33:
  3285.     dc.w    -1,-1
  3286.     dc.b    3,0,RP_JAM1
  3287.     dc.b    5
  3288.     dc.l    BorderVectors33
  3289.     dc.l    0
  3290. BorderVectors33:
  3291.     dc.w    0,0
  3292.     dc.w    211,0
  3293.     dc.w    211,10
  3294.     dc.w    0,10
  3295.     dc.w    0,0
  3296. IText33:
  3297.     dc.b    3,0,RP_JAM2,0
  3298.     dc.w    5,1
  3299.     dc.l    0
  3300.     dc.l    ITextText33
  3301.     dc.l    0
  3302. Gadget34:
  3303.     dc.l    Gadget35
  3304.     dc.w    3,162
  3305.     dc.w    210,9
  3306.     dc.w    0
  3307.     dc.w    RELVERIFY
  3308.     dc.w    BOOLGADGET
  3309.     dc.l    Border34
  3310.     dc.l    0
  3311.     dc.l    IText34
  3312.     dc.l    0
  3313.     dc.l    0
  3314.     dc.w    0
  3315.     dc.l    FUNC34
  3316. Border34:
  3317.     dc.w    -1,-1
  3318.     dc.b    3,0,RP_JAM1
  3319.     dc.b    5
  3320.     dc.l    BorderVectors34
  3321.     dc.l    0
  3322. BorderVectors34:
  3323.     dc.w    0,0
  3324.     dc.w    211,0
  3325.     dc.w    211,10
  3326.     dc.w    0,10
  3327.     dc.w    0,0
  3328. IText34:
  3329.     dc.b    3,0,RP_JAM2,0
  3330.     dc.w    5,1
  3331.     dc.l    0
  3332.     dc.l    ITextText34
  3333.     dc.l    0
  3334. Gadget35:
  3335.     dc.l    Gadget36
  3336.     dc.w    215,162
  3337.     dc.w    210,9
  3338.     dc.w    0
  3339.     dc.w    RELVERIFY
  3340.     dc.w    BOOLGADGET
  3341.     dc.l    Border35
  3342.     dc.l    0
  3343.     dc.l    IText35
  3344.     dc.l    0
  3345.     dc.l    0
  3346.     dc.w    0
  3347.     dc.l    FUNC35
  3348. Border35:
  3349.     dc.w    -1,-1
  3350.     dc.b    3,0,RP_JAM1
  3351.     dc.b    5
  3352.     dc.l    BorderVectors35
  3353.     dc.l    0
  3354. BorderVectors35:
  3355.     dc.w    0,0
  3356.     dc.w    211,0
  3357.     dc.w    211,10
  3358.     dc.w    0,10
  3359.     dc.w    0,0
  3360. IText35:
  3361.     dc.b    3,0,RP_JAM2,0
  3362.     dc.w    5,1
  3363.     dc.l    0
  3364.     dc.l    ITextText35
  3365.     dc.l    0
  3366. Gadget36:
  3367.     dc.l    Gadget37
  3368.     dc.w    427,162
  3369.     dc.w    210,9
  3370.     dc.w    0
  3371.     dc.w    RELVERIFY
  3372.     dc.w    BOOLGADGET
  3373.     dc.l    Border36
  3374.     dc.l    0
  3375.     dc.l    IText36
  3376.     dc.l    0
  3377.     dc.l    0
  3378.     dc.w    0
  3379.     dc.l    FUNC36
  3380. Border36:
  3381.     dc.w    -1,-1
  3382.     dc.b    3,0,RP_JAM1
  3383.     dc.b    5
  3384.     dc.l    BorderVectors36
  3385.     dc.l    0
  3386. BorderVectors36:
  3387.     dc.w    0,0
  3388.     dc.w    211,0
  3389.     dc.w    211,10
  3390.     dc.w    0,10
  3391.     dc.w    0,0
  3392. IText36:
  3393.     dc.b    3,0,RP_JAM2,0
  3394.     dc.w    5,1
  3395.     dc.l    0
  3396.     dc.l    ITextText36
  3397.     dc.l    0
  3398. Gadget37:
  3399.     dc.l    Gadget38
  3400.     dc.w    3,173
  3401.     dc.w    210,9
  3402.     dc.w    0
  3403.     dc.w    RELVERIFY
  3404.     dc.w    BOOLGADGET
  3405.     dc.l    Border37
  3406.     dc.l    0
  3407.     dc.l    IText37
  3408.     dc.l    0
  3409.     dc.l    0
  3410.     dc.w    0
  3411.     dc.l    FUNC37
  3412. Border37:
  3413.     dc.w    -1,-1
  3414.     dc.b    3,0,RP_JAM1
  3415.     dc.b    5
  3416.     dc.l    BorderVectors37
  3417.     dc.l    0
  3418. BorderVectors37:
  3419.     dc.w    0,0
  3420.     dc.w    211,0
  3421.     dc.w    211,10
  3422.     dc.w    0,10
  3423.     dc.w    0,0
  3424. IText37:
  3425.     dc.b    3,0,RP_JAM2,0
  3426.     dc.w    6,1
  3427.     dc.l    0
  3428.     dc.l    ITextText37
  3429.     dc.l    0
  3430. Gadget38:
  3431.     dc.l    Gadget39
  3432.     dc.w    215,173
  3433.     dc.w    210,9
  3434.     dc.w    0
  3435.     dc.w    RELVERIFY
  3436.     dc.w    BOOLGADGET
  3437.     dc.l    Border38
  3438.     dc.l    0
  3439.     dc.l    IText38
  3440.     dc.l    0
  3441.     dc.l    0
  3442.     dc.w    0
  3443.     dc.l    FUNC38
  3444. Border38:
  3445.     dc.w    -1,-1
  3446.     dc.b    3,0,RP_JAM1
  3447.     dc.b    5
  3448.     dc.l    BorderVectors38
  3449.     dc.l    0
  3450. BorderVectors38:
  3451.     dc.w    0,0
  3452.     dc.w    211,0
  3453.     dc.w    211,10
  3454.     dc.w    0,10
  3455.     dc.w    0,0
  3456. IText38:
  3457.     dc.b    3,0,RP_JAM2,0
  3458.     dc.w    5,1
  3459.     dc.l    0
  3460.     dc.l    ITextText38
  3461.     dc.l    0
  3462. Gadget39:
  3463.     dc.l    Gadget40
  3464.     dc.w    427,173
  3465.     dc.w    210,9
  3466.     dc.w    0
  3467.     dc.w    RELVERIFY
  3468.     dc.w    BOOLGADGET
  3469.     dc.l    Border39
  3470.     dc.l    0
  3471.     dc.l    IText39
  3472.     dc.l    0
  3473.     dc.l    0
  3474.     dc.w    0
  3475.     dc.l    FUNC39
  3476. Border39:
  3477.     dc.w    -1,-1
  3478.     dc.b    3,0,RP_JAM1
  3479.     dc.b    5
  3480.     dc.l    BorderVectors39
  3481.     dc.l    0
  3482. BorderVectors39:
  3483.     dc.w    0,0
  3484.     dc.w    211,0
  3485.     dc.w    211,10
  3486.     dc.w    0,10
  3487.     dc.w    0,0
  3488. IText39:
  3489.     dc.b    3,0,RP_JAM2,0
  3490.     dc.w    5,1
  3491.     dc.l    0
  3492.     dc.l    ITextText39
  3493.     dc.l    0
  3494. Gadget40:
  3495.     dc.l    Gadget41
  3496.     dc.w    3,184
  3497.     dc.w    210,9
  3498.     dc.w    0
  3499.     dc.w    RELVERIFY
  3500.     dc.w    BOOLGADGET
  3501.     dc.l    Border40
  3502.     dc.l    0
  3503.     dc.l    IText40
  3504.     dc.l    0
  3505.     dc.l    0
  3506.     dc.w    0
  3507.     dc.l    FUNC40
  3508. Border40:
  3509.     dc.w    -1,-1
  3510.     dc.b    3,0,RP_JAM1
  3511.     dc.b    5
  3512.     dc.l    BorderVectors40
  3513.     dc.l    0
  3514. BorderVectors40:
  3515.     dc.w    0,0
  3516.     dc.w    211,0
  3517.     dc.w    211,10
  3518.     dc.w    0,10
  3519.     dc.w    0,0
  3520. IText40:
  3521.     dc.b    3,0,RP_JAM2,0
  3522.     dc.w    5,1
  3523.     dc.l    0
  3524.     dc.l    ITextText40
  3525.     dc.l    0
  3526. Gadget41:
  3527.     dc.l    Gadget42
  3528.     dc.w    215,184
  3529.     dc.w    210,9
  3530.     dc.w    0
  3531.     dc.w    RELVERIFY
  3532.     dc.w    BOOLGADGET
  3533.     dc.l    Border41
  3534.     dc.l    0
  3535.     dc.l    IText41
  3536.     dc.l    0
  3537.     dc.l    0
  3538.     dc.w    0
  3539.     dc.l    FUNC41
  3540. Border41:
  3541.     dc.w    -1,-1
  3542.     dc.b    3,0,RP_JAM1
  3543.     dc.b    5
  3544.     dc.l    BorderVectors41
  3545.     dc.l    0
  3546. BorderVectors41:
  3547.     dc.w    0,0
  3548.     dc.w    211,0
  3549.     dc.w    211,10
  3550.     dc.w    0,10
  3551.     dc.w    0,0
  3552. IText41:
  3553.     dc.b    3,0,RP_JAM2,0
  3554.     dc.w    5,1
  3555.     dc.l    0
  3556.     dc.l    ITextText41
  3557.     dc.l    0
  3558. Gadget42:
  3559.     dc.l    Gadget43
  3560.     dc.w    427,184
  3561.     dc.w    210,9
  3562.     dc.w    0
  3563.     dc.w    RELVERIFY
  3564.     dc.w    BOOLGADGET
  3565.     dc.l    Border42
  3566.     dc.l    0
  3567.     dc.l    IText42
  3568.     dc.l    0
  3569.     dc.l    0
  3570.     dc.w    0
  3571.     dc.l    FUNC42
  3572. Border42:
  3573.     dc.w    -1,-1
  3574.     dc.b    3,0,RP_JAM1
  3575.     dc.b    5
  3576.     dc.l    BorderVectors42
  3577.     dc.l    0
  3578. BorderVectors42:
  3579.     dc.w    0,0
  3580.     dc.w    211,0
  3581.     dc.w    211,10
  3582.     dc.w    0,10
  3583.     dc.w    0,0
  3584. IText42:
  3585.     dc.b    3,0,RP_JAM2,0
  3586.     dc.w    5,1
  3587.     dc.l    0
  3588.     dc.l    ITextText42
  3589.     dc.l    0
  3590. Gadget43:
  3591.     dc.l    0
  3592.     dc.w    1,1
  3593.     dc.w    640,33
  3594.     dc.w    GADGHBOX+GADGHIMAGE+GADGIMAGE
  3595.     dc.w    RELVERIFY
  3596.     dc.w    BOOLGADGET
  3597.     dc.l    Image1
  3598.     dc.l    0
  3599.     dc.l    0
  3600.     dc.l    0
  3601.     dc.l    0
  3602.     dc.w    0
  3603.     dc.l    LSDINFO
  3604. Image1:
  3605.     dc.w    0,0
  3606.     dc.w    640,33
  3607.     dc.w    2
  3608.     dc.l    ImageData1
  3609.     dc.b    $0003,$0000
  3610.     dc.l    0
  3611. MenuList1:
  3612. Menu1:
  3613.     dc.l    0
  3614.     dc.w    0,0
  3615.     dc.w    63,0
  3616.     dc.w    MENUENABLED
  3617.     dc.l    Menu1Name
  3618.     dc.l    MenuItem1
  3619.     dc.w    0,0,0,0
  3620. MenuItem1:
  3621.     dc.l    MenuItem2
  3622.     dc.w    0,0
  3623.     dc.w    72,8
  3624.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP
  3625.     dc.l    0
  3626.     dc.l    IText43
  3627.     dc.l    0
  3628.     dc.b    0
  3629.     dc.b    0
  3630.     dc.l    0
  3631.     dc.w    0
  3632.     Dc.l    MusicOff
  3633. IText43:
  3634.     dc.b    3,1,RP_COMPLEMENT,0
  3635.     dc.w    0,0
  3636.     dc.l    0
  3637.     dc.l    ITextText43
  3638.     dc.l    0
  3639. MenuItem2:
  3640.     dc.l    MenuItem3
  3641.     dc.w    0,8
  3642.     dc.w    72,8
  3643.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP
  3644.     dc.l    0
  3645.     dc.l    IText44
  3646.     dc.l    0
  3647.     dc.b    0
  3648.     dc.b    0
  3649.     dc.l    0
  3650.     dc.w    0
  3651.     Dc.l    Sleep
  3652. IText44:
  3653.     dc.b    3,1,RP_COMPLEMENT,0
  3654.     dc.w    0,0
  3655.     dc.l    0
  3656.     dc.l    ITextText44
  3657.     dc.l    0
  3658. MenuItem3:
  3659.     dc.l    MenuItem4
  3660.     dc.w    0,16
  3661.     dc.w    72,8
  3662.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP
  3663.     dc.l    0
  3664.     dc.l    IText53
  3665.     dc.l    0
  3666.     dc.b    0
  3667.     dc.b    0
  3668.     dc.l    0
  3669.     dc.w    0
  3670.     Dc.l    DoAbout
  3671. IText53:
  3672.     dc.b    3,1,RP_COMPLEMENT,0
  3673.     dc.w    0,0
  3674.     dc.l    0
  3675.     dc.l    ITextText53
  3676.     dc.l    0
  3677. MenuItem4:
  3678.     dc.l    0
  3679.     dc.w    0,24
  3680.     dc.w    72,8
  3681.     dc.w    ITEMTEXT+ITEMENABLED+HIGHCOMP
  3682.     dc.l    0
  3683.     dc.l    IText45
  3684.     dc.l    0
  3685.     dc.b    0
  3686.     dc.b    0
  3687.     dc.l    0
  3688.     dc.w    0
  3689.     Dc.l    Exit
  3690. IText45:
  3691.     dc.b    3,1,RP_COMPLEMENT,0
  3692.     dc.w    0,0
  3693.     dc.l    0
  3694.     dc.l    ITextText45
  3695.     dc.l    0
  3696. IntuiTextList1:
  3697. IText46:
  3698.     dc.b    3,0,RP_JAM2,0
  3699.     dc.w    5,196
  3700.     dc.l    0
  3701.     dc.l    ITextText46
  3702.     dc.l    IText47
  3703. IText47:
  3704.     dc.b    3,0,RP_JAM2,0
  3705.     dc.w    5,204
  3706.     dc.l    0
  3707.     dc.l    ITextText47
  3708.     dc.l    IText48
  3709. IText48:
  3710.     dc.b    3,0,RP_JAM2,0
  3711.     dc.w    5,212
  3712.     dc.l    0
  3713.     dc.l    ITextText48
  3714.     dc.l    IText49
  3715. IText49:
  3716.     dc.b    3,0,RP_JAM2,0
  3717.     dc.w    5,220
  3718.     dc.l    0
  3719.     dc.l    ITextText49
  3720.     dc.l    IText50
  3721. IText50:
  3722.     dc.b    3,0,RP_JAM2,0
  3723.     dc.w    5,228
  3724.     dc.l    0
  3725.     dc.l    ITextText50
  3726.     dc.l    IText51
  3727. IText51:
  3728.     dc.b    3,0,RP_JAM2,0
  3729.     dc.w    5,236
  3730.     dc.l    0
  3731.     dc.l    ITextText51
  3732.     dc.l    IText52
  3733. IText52:
  3734.     dc.b    3,0,RP_JAM2,0
  3735.     dc.w    5,244
  3736.     dc.l    0
  3737.     dc.l    ITextText52
  3738.     dc.l    0
  3739. ******************************************
  3740. **  This is the Text list for gadgets    **
  3741. ******************************************
  3742. ITextText1:    Ds.b    24
  3743. ITextText2:    Ds.b    24
  3744. ITextText3:    Ds.b    24
  3745. ITextText4:    Ds.b    24
  3746. ITextText5:    Ds.b    24
  3747. ITextText6:    Ds.b    24
  3748. ITextText7:    Ds.b    24
  3749. ITextText8:    Ds.b    24
  3750. ITextText9:    Ds.b    24
  3751. ITextText10:    Ds.b    24
  3752. ITextText11:    Ds.b    24
  3753. ITextText12:    Ds.b    24
  3754. ITextText13:    Ds.b    24
  3755. ITextText14:    Ds.b    24
  3756. ITextText15:    Ds.b    24
  3757. ITextText16:    Ds.b    24
  3758. ITextText17:    Ds.b    24
  3759. ITextText18:    Ds.b    24
  3760. ITextText19:    Ds.b    24
  3761. ITextText20:    Ds.b    24
  3762. ITextText21:    Ds.b    24
  3763. ITextText22:    Ds.b    24
  3764. ITextText23:    Ds.b    24
  3765. ITextText24:    Ds.b    24
  3766. ITextText25:    Ds.b    24
  3767. ITextText26:    Ds.b    24
  3768. ITextText27:    Ds.b    24
  3769. ITextText28:    Ds.b    24
  3770. ITextText29:    Ds.b    24
  3771. ITextText30:    Ds.b    24
  3772. ITextText31:    Ds.b    24
  3773. ITextText32:    Ds.b    24
  3774. ITextText33:    Ds.b    24
  3775. ITextText34:    Ds.b    24
  3776. ITextText35:    Ds.b    24
  3777. ITextText36:    Ds.b    24
  3778. ITextText37:    Ds.b    24
  3779. ITextText38:    Ds.b    24
  3780. ITextText39:    Ds.b    24
  3781. ITextText40:    Ds.b    24
  3782. ITextText41:    Ds.b    24
  3783. ITextText42:    Ds.b    24
  3784. Command00    Ds.b    60
  3785. Command01    Ds.b    60
  3786. Command02    Ds.b    60
  3787. Command03    Ds.b    60
  3788. Command04    Ds.b    60
  3789. Command05    Ds.b    60
  3790. Command06    Ds.b    60
  3791. Command07    Ds.b    60
  3792. Command08    Ds.b    60
  3793. Command09    Ds.b    60
  3794. Command10    Ds.b    60
  3795. Command11    Ds.b    60
  3796. Command12    Ds.b    60
  3797. Command13    Ds.b    60
  3798. Command14    Ds.b    60
  3799. Command15    Ds.b    60
  3800. Command16    Ds.b    60
  3801. Command17    Ds.b    60
  3802. Command18    Ds.b    60
  3803. Command19    Ds.b    60
  3804. Command20    Ds.b    60
  3805. Command21    Ds.b    60
  3806. Command22    Ds.b    60
  3807. Command23    Ds.b    60
  3808. Command24    Ds.b    60
  3809. Command25    Ds.b    60
  3810. Command26    Ds.b    60
  3811. Command27    Ds.b    60
  3812. Command28    Ds.b    60
  3813. Command29    Ds.b    60
  3814. Command30    Ds.b    60
  3815. Command31    Ds.b    60
  3816. Command32    Ds.b    60
  3817. Command33    Ds.b    60
  3818. Command34    Ds.b    60
  3819. Command35    Ds.b    60
  3820. Command36    Ds.b    60
  3821. Command37    Ds.b    60
  3822. Command38    Ds.b    60
  3823. Command39    Ds.b    60
  3824. Command40    Ds.b    60
  3825. Command41    Ds.b    60
  3826.  
  3827.  
  3828. ******************************************
  3829. **     This is the Menu Text lists    **
  3830. ******************************************
  3831.  
  3832. ITextText43:    dc.b    'MUSIC OFF',0
  3833. Menu1Name:    dc.b    'PROJECT',0
  3834. ITextText44:    dc.b    'SLEEP',0
  3835. ITextText53:    dc.b    'ABOUT',0
  3836. ITextText45:    dc.b    'QUIT',0
  3837. ******************************************
  3838. **  This is The Bottom Text List    **
  3839. ******************************************
  3840.  
  3841. ITextText46:    Ds.b    80
  3842. ITextText47:    Ds.b    80
  3843. ITextText48:    Ds.b    80
  3844. ITextText49:    Ds.b    80
  3845. ITextText50:    Ds.b    80
  3846. ITextText51:    Ds.b    80
  3847. ITextText52:    Ds.b    80
  3848.  
  3849.         Section    Gfx,Data_c
  3850. ImageData1:
  3851.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3852.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3853.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3854.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3855.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3856.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3857.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3858.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3859.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  3860.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3861.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3862.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3863.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3864.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  3865.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3866.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3867.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3868.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3869.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  3870.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3871.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3872.     dc.w    $001C,$0000,$1C00,$3000,$0000,$3000,$3000,$1C00
  3873.     dc.w    $1C00,$1C0C,$1C00,$1C00,$1C00,$0000,$1C00,$3030
  3874.     dc.w    $1C00,$1C00,$001C,$1C00,$1C00,$1C1C,$0000,$1C30
  3875.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3876.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3877.     dc.w    $001E,$001F,$FE1E,$1800,$001E,$181E,$181F,$FE1F
  3878.     dc.w    $FE1F,$FE06,$1E21,$FE1F,$FE00,$001F,$FE1E,$1818
  3879.     dc.w    $1E1F,$FE00,$001E,$1E21,$FE21,$FE1E,$001F,$FE30
  3880.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3881.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3882.     dc.w    $001E,$001F,$FE1E,$1C00,$001E,$1C1E,$1C1F,$FE1F
  3883.     dc.w    $FE1F,$FE02,$1E01,$FE1F,$FE00,$001F,$FE1E,$1800
  3884.     dc.w    $1E1F,$FE00,$001E,$1E01,$FE01,$FE1E,$001F,$FE30
  3885.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3886.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3887.     dc.w    $001E,$001E,$001E,$1E00,$001E,$1E1E,$1E1E,$001E
  3888.     dc.w    $001E,$0000,$1E01,$E01E,$0000,$001E,$001E,$1800
  3889.     dc.w    $1E1E,$0000,$001E,$1E01,$E001,$E01E,$001E,$0030
  3890.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3891.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3892.     dc.w    $001E,$001E,$001E,$1E00,$001E,$1E1E,$1E1E,$001E
  3893.     dc.w    $001E,$0000,$1E01,$E01E,$0000,$001E,$001E,$1800
  3894.     dc.w    $1E1E,$0000,$001E,$1E01,$E001,$E01E,$001E,$0030
  3895.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3896.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3897.     dc.w    $001E,$0000,$001E,$1E00,$0000,$3E00,$3E00,$0000
  3898.     dc.w    $0000,$0010,$1E01,$E000,$0000,$0000,$001E,$1866
  3899.     dc.w    $1E00,$0000,$001E,$1E01,$E001,$E01E,$0000,$0030
  3900.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3901.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3902.     dc.w    $001E,$0000,$301E,$1E00,$0000,$7E00,$7E01,$C000
  3903.     dc.w    $3001,$C018,$1E01,$E000,$3000,$0000,$301E,$1866
  3904.     dc.w    $1E01,$C000,$001E,$1E01,$E001,$E01E,$0000,$3030
  3905.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3906.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3907.     dc.w    $001E,$000E,$181E,$1E00,$001F,$FC1E,$1C1F,$E00E
  3908.     dc.w    $181F,$E01C,$1E01,$E00E,$1800,$000E,$181E,$187A
  3909.     dc.w    $1E1F,$E000,$001E,$1E01,$E001,$E01E,$000E,$1830
  3910.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3911.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3912.     dc.w    $001E,$0006,$1C1E,$1E00,$001F,$F81E,$1C1F,$E006
  3913.     dc.w    $1C1F,$E01E,$1E01,$E006,$1C00,$0006,$1C1E,$1878
  3914.     dc.w    $1E1F,$E000,$001E,$1E01,$E001,$E01E,$0006,$1C30
  3915.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3916.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3917.     dc.w    $001E,$0000,$1E1E,$1E00,$001E,$001E,$1E1E,$0000
  3918.     dc.w    $1E1E,$001E,$1E01,$E000,$1E00,$0000,$1E1E,$1878
  3919.     dc.w    $1E1E,$0000,$001E,$1E01,$E001,$E01E,$0000,$1E30
  3920.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3921.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3922.     dc.w    $001E,$0000,$1E1E,$1E00,$001E,$001E,$1E1E,$0000
  3923.     dc.w    $1E1E,$001E,$1E01,$E000,$1E00,$0000,$1E1E,$1878
  3924.     dc.w    $1E1E,$0000,$001E,$1E01,$E001,$E01E,$0000,$1E30
  3925.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3926.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3927.     dc.w    $0000,$0000,$3E00,$3E00,$001E,$001E,$1E00,$0000
  3928.     dc.w    $3E00,$001E,$1E01,$E000,$3E00,$0000,$3E00,$3878
  3929.     dc.w    $1E00,$0000,$0000,$3E01,$E000,$0000,$0000,$3E30
  3930.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3931.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3932.     dc.w    $0000,$1C00,$7E00,$7E00,$001E,$001E,$1E00,$1C00
  3933.     dc.w    $7E00,$1C1E,$1E01,$E000,$7E00,$0000,$7E00,$7878
  3934.     dc.w    $1E00,$1C00,$0000,$7E01,$E000,$1C00,$1C00,$7E30
  3935.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3936.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3937.     dc.w    $003F,$FE3F,$FC3F,$FC00,$003E,$003E,$3E3F,$FE3F
  3938.     dc.w    $FC3F,$FE3E,$3E03,$E03F,$FC00,$003F,$FC0F,$FCF8
  3939.     dc.w    $3E3F,$FE00,$000F,$FC03,$E03F,$FE3F,$FE3F,$FC30
  3940.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3941.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3942.     dc.w    $001F,$FE1F,$F81F,$F800,$001E,$001E,$1E1F,$FE1F
  3943.     dc.w    $F81F,$FE1E,$1E01,$E01F,$F800,$001F,$F807,$F878
  3944.     dc.w    $1E1F,$FE00,$0007,$F801,$E01F,$FE1F,$FE1F,$F830
  3945.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3946.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3947.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3948.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3949.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  3950.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3951.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3952.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3953.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3954.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  3955.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3956.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3957.     dc.w    $7FFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  3958.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  3959.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFF0
  3960.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3961.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3962.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3963.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3964.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3965.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3966.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3967.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3968.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3969.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3970.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3971.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3972.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3973.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3974.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3975.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3976.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3977.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$1E1E,$3E3F
  3978.     dc.w    $3E00,$3E33,$003F,$331E,$3F3F,$3F33,$3F00,$1C00
  3979.     dc.w    $3E1E,$3F3F,$1E30,$0000,$0000,$0000,$0000,$0000
  3980.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3981.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3982.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$3333,$3330
  3983.     dc.w    $3300,$3333,$0030,$3333,$0C0C,$0C33,$3000,$3600
  3984.     dc.w    $3333,$0303,$3330,$0000,$0000,$0000,$0000,$0000
  3985.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3986.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3987.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$3033,$3330
  3988.     dc.w    $3300,$3333,$0030,$3330,$0C0C,$0C33,$3000,$3400
  3989.     dc.w    $3333,$0606,$3330,$0000,$0000,$0000,$0000,$0000
  3990.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3991.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3992.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$3033,$333C
  3993.     dc.w    $3300,$3E1E,$003C,$3337,$0C0C,$0C33,$3C00,$3B00
  3994.     dc.w    $3E3F,$0C0C,$3F30,$0000,$0000,$0000,$0000,$0000
  3995.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3996.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  3997.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$3033,$3330
  3998.     dc.w    $3300,$330C,$0030,$3333,$0C0C,$0C1E,$3000,$6E00
  3999.     dc.w    $3033,$1818,$3330,$0000,$0000,$0000,$0000,$0000
  4000.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4001.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4002.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$3333,$3330
  4003.     dc.w    $3300,$330C,$0030,$3333,$0C0C,$0C1E,$3000,$6600
  4004.     dc.w    $3033,$3030,$3330,$0000,$0000,$0000,$0000,$0000
  4005.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4006.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4007.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$1E1E,$3E3F
  4008.     dc.w    $3E00,$3E0C,$0030,$1E1E,$3F0C,$3F0C,$3F00,$3B00
  4009.     dc.w    $3033,$3F3F,$3330,$0000,$0000,$0000,$0000,$0000
  4010.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4011.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4012.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$FFFF,$FFFF
  4013.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  4014.     dc.w    $FFFF,$FFFF,$FFF8,$0000,$0000,$0000,$0000,$0000
  4015.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4016.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4017.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  4018.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  4019.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFF0
  4020.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4021.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4022.     dc.w    $8000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4023.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4024.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  4025.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4026.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4027.     dc.w    $8000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4028.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4029.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  4030.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4031.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4032.     dc.w    $81E0,$007F,$E1FF,$8000,$01FF,$81FF,$81FF,$E07F
  4033.     dc.w    $E1FF,$E1E1,$E1FF,$E07F,$E000,$007F,$E07F,$8781
  4034.     dc.w    $E1FF,$E000,$01E1,$E1FF,$E1FF,$E1E0,$007F,$E030
  4035.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4036.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4037.     dc.w    $81FC,$00FF,$FDFF,$F000,$01FF,$F1FF,$F1FF,$FCFF
  4038.     dc.w    $FDFF,$FDFD,$FDFF,$FCFF,$FC00,$00FF,$FCFF,$F7F3
  4039.     dc.w    $FDFF,$FC00,$01FD,$FDFF,$FDFF,$FDFC,$00FF,$FC30
  4040.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4041.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4042.     dc.w    $81FC,$01FF,$FDFF,$F800,$01FF,$F9FF,$F9FF,$FDFF
  4043.     dc.w    $FDFF,$FDFF,$FC3F,$FDFF,$FC00,$01FF,$FDFF,$FFFF
  4044.     dc.w    $FDFF,$FC00,$01FD,$FC3F,$FC3F,$FDFC,$01FF,$FC30
  4045.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4046.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4047.     dc.w    $81FC,$01FC,$01FD,$FC00,$01FD,$FDFD,$FDFC,$01FC
  4048.     dc.w    $01FC,$01FF,$FC1F,$C1FC,$0000,$01FC,$01FD,$FFFF
  4049.     dc.w    $FDFC,$0000,$01FD,$FC1F,$C01F,$C1FC,$01FC,$0030
  4050.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4051.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4052.     dc.w    $81FC,$01FC,$01FD,$FC00,$01FD,$FDFD,$FDFC,$01FC
  4053.     dc.w    $01FC,$01FF,$FC1F,$C1FC,$0000,$01FC,$01FD,$FFFF
  4054.     dc.w    $FDFC,$0000,$01FD,$FC1F,$C01F,$C1FC,$01FC,$0030
  4055.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4056.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4057.     dc.w    $81FC,$01FC,$01FD,$FC00,$01FD,$FDFD,$FDFC,$01FC
  4058.     dc.w    $01FC,$01FF,$FC1F,$C1FC,$0000,$01FC,$01FD,$FFFF
  4059.     dc.w    $FDFC,$0000,$01FD,$FC1F,$C01F,$C1FC,$01FC,$0030
  4060.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4061.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4062.     dc.w    $81FC,$00FF,$81FD,$FC00,$01FF,$FDFF,$FDFE,$00FF
  4063.     dc.w    $81FE,$01FF,$FC1F,$C0FF,$8000,$00FF,$81FD,$FFFF
  4064.     dc.w    $FDFE,$0000,$01FD,$FC1F,$C01F,$C1FC,$00FF,$8030
  4065.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4066.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4067.     dc.w    $81FC,$007F,$F1FD,$FC00,$01FF,$F9FF,$F9FF,$C07F
  4068.     dc.w    $F1FF,$C1FF,$FC1F,$C07F,$F000,$007F,$F1FD,$FFFB
  4069.     dc.w    $FDFF,$C000,$01FD,$FC1F,$C01F,$C1FC,$007F,$F030
  4070.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4071.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4072.     dc.w    $81FC,$000F,$F9FD,$FC00,$01FF,$F1FF,$F1FF,$C00F
  4073.     dc.w    $F9FF,$C1FF,$FC1F,$C00F,$F800,$000F,$F9FD,$FFF3
  4074.     dc.w    $FDFF,$C000,$01FD,$FC1F,$C01F,$C1FC,$000F,$F830
  4075.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4076.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4077.     dc.w    $81FC,$0001,$FDFD,$FC00,$01FC,$01FD,$FDFC,$0001
  4078.     dc.w    $FDFC,$01FD,$FC1F,$C001,$FC00,$0001,$FDFD,$FFF1
  4079.     dc.w    $FDFC,$0000,$01FD,$FC1F,$C01F,$C1FC,$0001,$FC30
  4080.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4081.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4082.     dc.w    $81FC,$0001,$FDFD,$FC00,$01FC,$01FD,$FDFC,$0001
  4083.     dc.w    $FDFC,$01FD,$FC1F,$C001,$FC00,$0001,$FDFD,$FFF1
  4084.     dc.w    $FDFC,$0000,$01FD,$FC1F,$C01F,$C1FC,$0001,$FC30
  4085.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4086.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4087.     dc.w    $81FC,$0001,$FDFD,$FC00,$01FC,$01FD,$FDFC,$0001
  4088.     dc.w    $FDFC,$01FD,$FC1F,$C001,$FC00,$0001,$FDFD,$FFF1
  4089.     dc.w    $FDFC,$0000,$01FD,$FC1F,$C01F,$C1FC,$0001,$FC30
  4090.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4091.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4092.     dc.w    $81FF,$E1FF,$FDFF,$FC00,$01FC,$01FD,$FDFF,$E1FF
  4093.     dc.w    $FDFF,$E1FD,$FC1F,$C1FF,$FC00,$01FF,$FCFF,$FFF1
  4094.     dc.w    $FDFF,$E000,$00FF,$FC1F,$C1FF,$E1FF,$E1FF,$FC30
  4095.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4096.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4097.     dc.w    $81FF,$FDFF,$F9FF,$F800,$01FC,$01FD,$FDFF,$FDFF
  4098.     dc.w    $F9FF,$FDFD,$FC1F,$C1FF,$F800,$01FF,$F87F,$FFF1
  4099.     dc.w    $FDFF,$FC00,$007F,$F81F,$C1FF,$FDFF,$FDFF,$F830
  4100.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4101.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4102.     dc.w    $803F,$FC3F,$F03F,$F000,$003C,$003C,$3C3F,$FC3F
  4103.     dc.w    $F03F,$FC3C,$3C03,$C03F,$F000,$003F,$F00F,$F0F0
  4104.     dc.w    $3C3F,$FC00,$000F,$F003,$C03F,$FC3F,$FC3F,$F030
  4105.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4106.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4107.     dc.w    $8000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4108.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4109.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  4110.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4111.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4112.     dc.w    $8000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4113.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4114.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  4115.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4116.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4117.     dc.w    $8000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4118.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4119.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0030
  4120.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4121.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0001
  4122.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  4123.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  4124.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFF0
  4125.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4126.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4127.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4128.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4129.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4130.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4131.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4132.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4133.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4134.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4135.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4136.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4137.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$FFFF,$FFFF
  4138.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  4139.     dc.w    $FFFF,$FFFF,$FFF0,$0000,$0000,$0000,$0000,$0000
  4140.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4141.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4142.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$0000,$0000
  4143.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4144.     dc.w    $0000,$0000,$0030,$0000,$0000,$0000,$0000,$0000
  4145.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4146.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4147.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$0000,$0000
  4148.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4149.     dc.w    $0000,$0000,$0030,$0000,$0000,$0000,$0000,$0000
  4150.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4151.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4152.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$0000,$0000
  4153.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4154.     dc.w    $0000,$0000,$0030,$0000,$0000,$0000,$0000,$0000
  4155.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4156.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4157.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$0000,$0000
  4158.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4159.     dc.w    $0000,$0000,$0030,$0000,$0000,$0000,$0000,$0000
  4160.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4161.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4162.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$0000,$0000
  4163.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4164.     dc.w    $0000,$0000,$0030,$0000,$0000,$0000,$0000,$0000
  4165.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4166.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4167.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$0000,$0000
  4168.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4169.     dc.w    $0000,$0000,$0030,$0000,$0000,$0000,$0000,$0000
  4170.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4171.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4172.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$0000,$0000
  4173.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4174.     dc.w    $0000,$0000,$0030,$0000,$0000,$0000,$0000,$0000
  4175.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4176.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4177.     dc.w    $0000,$0000,$0000,$0000,$0000,$0003,$FFFF,$FFFF
  4178.     dc.w    $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF
  4179.     dc.w    $FFFF,$FFFF,$FFF8,$0000,$0000,$0000,$0000,$0000
  4180.     dc.w    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  4181.