API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 13th, 2017
795
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
M68000 Assembler 353.15 KB | None | 0 0
raw download clone embed print report
  1. ;**********************************************************
  2. ;*                                                        *
  3. ;*  Protracker Version 2.0 - Release A                    *
  4. ;*  Amiga Freelancers 1991                                *
  5. ;*                                                        *
  6. ;*  Based on Soundtracker V2.5 / Noisetracker x.x)        *
  7. ;*  Coded by Lars Hamre  (larsha@frodo.uninett)           *
  8. ;*  with some "Resource" help from Anders Hamre           *
  9. ;*  Thanks to Rune, and a hi there to Sven, Morten,       *
  10. ;*  Per and Torgeir.                                      *
  11. ;*                                                        *
  12. ;*--------------------------------------------------------*
  13. ;*  First Update   1.0 : 04/05-1990 First version         *
  14. ;* Middle Update   1.0 : 13/08-1990 -                     *
  15. ;*   Last Update   1.0 : 25/08-1990 -                     *
  16. ;* Final Version   1.0 : 26/08-1990 Released to Crusaders *
  17. ;* Rev. B Update 1 1.0B: 29/08-1990 -                     *
  18. ;* Rev. B Update 2 1.0B: 06/09-1990 Released to Crusaders *
  19. ;* Rev. C Update 1 1.0C: 16/10-1990 -                     *
  20. ;* Rev. C Update 2 1.0C: 18/10-1990 -                     *
  21. ;* Start V1.1A     1.1A: 23/10-1990 Second version        *
  22. ;* Rev. C Update 3 1.0C: 06/11-1990 Released to Crusaders *
  23. ;* Rev. A Update 1 1.1A: 15/11-1990 InputEvent Handler    *
  24. ;* Rev. A Update 2 1.1A: 21/11-1990 RunBack Hunk, KbdBuf. *
  25. ;* Rev. A Update 3 1.1A: 02/12-1990 iffld,loopspr,scopefix*
  26. ;* Rev. A Update 4 1.1A: 05/12-1990 virusattack,dirbrowse *
  27. ;* Rev. A Update 5 1.1A: 20/12-1990 Testversion to Awesome*
  28. ;* Rev. A Update 6 1.1A: 27/12-1990 Party-release (w/bugs)*
  29. ;* Rev. B Update 1 1.1B: 01/01-1991 Bugfixing...          *
  30. ;* Rev. B Update 2 1.1B: 05/01-1991 ---                   *
  31. ;* Rev. B Update 3 1.1B: 08/01-1991 ScopeGfx, loadbug.    *
  32. ;* Start V2.0A     2.0A: 12/02-1991 Wow! a new version... *
  33. ;**********************************************************
  34.  
  35. ; FileFormat
  36. sd_songname EQU 0
  37. sd_sampleinfo   EQU 20
  38. sd_numofpatt    EQU 950
  39. sd_pattpos  EQU 952
  40. sd_mahokakt EQU 1080
  41. sd_patterndata  EQU 1084
  42.  
  43. ; audXtemp offsets
  44. n_note      EQU 0  ; W
  45. n_cmd       EQU 2  ; W
  46. n_cmdlo     EQU 3  ; low B of cmd
  47. n_start     EQU 4  ; L
  48. n_length    EQU 8  ; W
  49. n_loopstart EQU 10 ; L
  50. n_replen    EQU 14 ; W
  51. n_period    EQU 16 ; W
  52. n_finetune  EQU 18 ; B
  53. n_volume    EQU 19 ; B
  54. n_dmabit    EQU 20 ; W
  55. n_toneportdirec EQU 22 ; B
  56. n_toneportspeed EQU 23 ; B
  57. n_wantedperiod  EQU 24 ; W
  58. n_vibratocmd    EQU 26 ; B
  59. n_vibratopos    EQU 27 ; B
  60. n_tremolocmd    EQU 28 ; B
  61. n_tremolopos    EQU 29 ; B
  62. n_wavecontrol   EQU 30 ; B
  63. n_glissfunk EQU 31 ; B
  64. n_sampleoffset  EQU 32 ; B
  65. n_pattpos   EQU 33 ; B
  66. n_loopcount EQU 34 ; B
  67. n_funkoffset    EQU 35 ; B
  68. n_wavestart EQU 36 ; L
  69. n_reallength    EQU 40 ; W
  70. n_trigger   EQU 42 ; B
  71. n_samplenum EQU 43 ; B
  72.  
  73. ; Exec Library Offsets
  74. LVOFindTask EQU -294
  75. LVOFindName EQU -276
  76. LVOForbid   EQU -132
  77. LVOPermit   EQU -138
  78. LVOAddPort  EQU -354
  79. LVORemPort  EQU -360
  80. LVOWaitPort EQU -384
  81. LVOOpenLibrary  EQU -552
  82. LVOCloseLibrary EQU -414
  83. LVOOpenDevice   EQU -444
  84. LVOCloseDevice  EQU -450
  85. LVODoIO     EQU -456
  86. LVOGetMsg   EQU -372
  87. LVOReplyMsg EQU -378
  88. LVOAllocMem EQU -198
  89. LVOAllocAbs EQU -204
  90. LVOFreeMem  EQU -210
  91. LVOAvailMem EQU -216
  92. LVOAddIntServer EQU -168
  93. LVORemIntServer EQU -174
  94. LVOOpenResource EQU -498
  95. LVOSetFunction  EQU -420
  96.  
  97. ; CIA Resource Offsets
  98. AddICRVector    EQU -6
  99. RemICRVector    EQU -12
  100.  
  101. ; DOS Library Offsets
  102. LVOOpen     EQU -30
  103. LVOClose    EQU -36
  104. LVORead     EQU -42
  105. LVOWrite    EQU -48
  106. LVODeleteFile   EQU -72
  107. LVORename   EQU -78
  108. LVOLock     EQU -84
  109. LVOUnLock   EQU -90
  110. LVOExamine  EQU -102
  111. LVOExNext   EQU -108
  112. LVOInfo     EQU -114
  113. LVOSeek     EQU -66
  114. LVOCreateDir    EQU -120
  115. LVODateStamp    EQU -192
  116. LVODelay    EQU -198
  117. LVOExecute  EQU -222
  118. LVOUnLoadSeg    EQU -156
  119.  
  120. ; Intuition Library Offsets
  121. LVOAutoRequest    EQU   -348
  122. LVODisplayAlert   EQU   -90  
  123. LVOOpenWorkbench  EQU   -210
  124. LVOCloseWorkbench EQU   -78
  125. LVOWBenchToFront  EQU   -342
  126.  
  127. ; Graphics Library Offsets
  128. LVOBltBitMap    EQU -30
  129. LVOWaitBlit EQU -228
  130. LVOOwnBlitter   EQU -456
  131. LVODisownBlitter EQU    -462
  132.  
  133. ; DateStamp
  134. ofib_DateStamp  EQU $84
  135. ds_Days     EQU $00
  136. ds_Minute   EQU $04
  137. ds_Tick     EQU $08
  138.  
  139. ; Memory Alloc Flags
  140. MEMF_PUBLIC EQU $0001
  141. MEMF_CHIP   EQU $0002
  142. MEMF_FAST   EQU $0004
  143. MEMF_CLEAR  EQU $10000
  144. MEMF_LARGEST    EQU $20000
  145.  
  146. ; IO Block Offsets
  147. IO_COMMAND  EQU $1C
  148. IO_ACTUAL   EQU $20
  149. IO_LENGTH   EQU $24
  150. IO_DATA     EQU $28
  151. IO_OFFSET   EQU $2C
  152.  
  153. ; Device Commands
  154. CMD_READ    EQU $2
  155. CMD_WRITE   EQU $3
  156. CMD_UPDATE  EQU $4
  157. TD_MOTOR    EQU $9
  158. TD_FORMAT   EQU $B
  159. TD_CHANGESTATE  EQU $E
  160. TD_PROTSTATUS   EQU $F
  161.  
  162.  
  163. DirNameLength       EQU 30
  164. ConfigFileSize      EQU 1024
  165. KeyBufSize      EQU 20
  166.  
  167. ;**************************************************************************
  168.  
  169. ; RunBack Hunk for Protracker
  170. ; Written by Lars Hamre/Amiga Freelancers 1990
  171. ; NOTE: This version will not pass arguments or WBMsg to the new Process!
  172.  
  173.     SECTION ptrunback,CODE
  174.  
  175. rb_HunkStart
  176.     SUB.L   A1,A1
  177.     MOVE.L  4.W,A6
  178.     JSR -294(A6)    ; FindTask
  179.     MOVE.L  D0,A4
  180.     MOVEQ   #0,D0
  181.     TST.L   $AC(A4)     ; pr_CLI
  182.     BNE.S   rb_FromCLI
  183.     LEA $5C(A4),A0  ; pr_MsgPort
  184.     JSR -384(A6)    ; WaitPort
  185.     LEA $5C(A4),A0
  186.     JSR -372(A6)    ; GetMsg
  187. rb_FromCLI
  188.     MOVE.L  D0,D7       ; D7 = WBmsg
  189.     LEA rb_DOSname(PC),A1
  190.     MOVEQ   #0,D0
  191.     JSR -552(A6)    ; OpenLibrary
  192.     TST.L   D0
  193.     BEQ.S   rb_dexit
  194.     MOVE.L  D0,A5
  195.     EXG A5,A6       ; A6=DOS
  196.     MOVE.L  $98(A4),D1  ; pr_CurrentDir
  197.     JSR -96(A6)     ; DupLock
  198.     MOVE.L  D0,rb_CurrentDir
  199.     EXG A5,A6 ; A6=exec
  200.     JSR -132(A6) ; Forbid
  201.     MOVE.L  #rb_ProgName,D1
  202.     MOVEQ.L #0,D2
  203.     MOVE.B  9(A4),D2    ; priority
  204.     LEA rb_HunkStart-4(PC),A0
  205.     MOVE.L  (A0),D3     ; Ptr to next segment
  206.     CLR.L   (A0)        ; Unlink next segment
  207.     MOVE.L  #4000,D4
  208.     EXG A5,A6       ; A6=DOS
  209.     JSR -138(A6)    ; CreateProc
  210.     EXG A5,A6       ; A6=exec
  211.     JSR -138(A6)    ; Permit
  212.     MOVE.L  A5,A1
  213.     JSR -414(A6)    ; CloseLibrary
  214. rb_dexit
  215.     TST.L   D7
  216.     BEQ.S   rb_exit
  217.     JSR -132(A6)    ; Forbid
  218.     MOVE.L  D7,A1
  219.     JSR -378(A6)    ; ReplyMsg
  220. rb_exit MOVEQ   #0,D0
  221.     RTS
  222.  
  223. rb_DOSname  dc.b    "dos.library",0
  224.  
  225. ; End of runback hunk
  226.  
  227. ;******************** CODE HUNK *********************
  228.  
  229.     SECTION ptcode,CODE
  230.  
  231. START   MOVE.L  4.W,A6
  232.     SUB.L   A1,A1
  233.     JSR LVOFindTask(A6)
  234.     MOVE.L  D0,PTProcess
  235.     BSR.S   Main
  236.     MOVE.L  4.W,A6
  237.     JSR LVOForbid(A6)
  238.     MOVE.L  DOSbase,A6
  239.     MOVE.L  rb_CurrentDir(PC),D1
  240.     JSR LVOUnLock(A6)
  241.     LEA START-4(PC),A0
  242.     MOVE.L  A0,D1
  243.     LSR.L   #2,D1
  244.     JSR LVOUnLoadSeg(A6)
  245.     MOVEQ   #0,D0
  246.     RTS
  247.  
  248. Main    MOVE.L  SP,StackSave
  249.     BSR OpenLotsOfThings
  250.     BSR SetVBInt
  251.     BSR SetMusicInt
  252.     BSR SetInputHandler
  253.     BSR SetAutoReq
  254. ;   BSR SetDispAlert
  255.     BSR SetPatternPos
  256.     BSR SetNormalPtrCol
  257.     BSR StorePtrCol
  258.     BSR RedrawToggles
  259.     BSR DoShowFreeMem
  260.     BSR SetTempo
  261.     BSR SetCopList
  262.     BSR CheckInitError
  263.     LEA VersionText(PC),A0
  264.     JSR ShowStatusText
  265. MainLoop
  266.     BSR DoKeyBuffer
  267.     BSR CheckTransKeys
  268.     BSR CheckCtrlKeys
  269.     BSR CheckAltKeys
  270.     BSR CheckKeyboard
  271.     BSR CheckF1_F2
  272.     BSR CheckF3_F5
  273.     BSR CheckF6_F10
  274.     BSR CheckPlayKeys
  275.     BSR CheckHelpKey
  276.     BSR ArrowKeys2
  277.     BSR ShowTimer
  278.     BSR ShowFreeMem
  279.     BSR CheckBlockPos
  280.     BSR CheckSampleLength
  281.     BSR CheckRedraw
  282.     JSR CheckMIDIin
  283.     BTST    #6,$BFE001
  284.     BNE.S   MainLoop    ; Loop if not pressed
  285.     TST.W   CurrScreen
  286.     BNE.S   MainSkip
  287.     MOVE.W  #1,notogfl
  288.     BSR DisplayMainScreen
  289.     JSR ShowAllRight
  290.     BSR WaitForButtonUp
  291. MainSkip
  292.     BSR ArrowKeys
  293.     BRA CheckGadgets
  294.  
  295. notogfl     dc.w 0
  296. PTProcess   dc.l 0
  297. rb_CurrentDir   dc.l 0
  298. rb_Progname dc.b "PT2.0A",0
  299. VersionText dc.b 'V2.0 - RELEASE A',0
  300.  
  301. CheckInitError
  302.     MOVE.B  InitError,D0
  303.     BEQ Return1
  304.     BTST    #0,D0
  305.     BEQ.S   cieskp1
  306.     JSR PLSTMemErr
  307. cieskp1 MOVE.B  InitError,D0
  308.     BTST    #1,D0
  309.     BEQ.S   cieskp2
  310.     JSR PLSTOpenErr
  311.     JSR FreePLST
  312. cieskp2 MOVE.B  InitError,D0
  313.     BTST    #2,D0
  314.     BEQ.S   cieskp3
  315.     BSR ConfigErr
  316. cieskp3 MOVE.B  InitError,D0
  317.     BTST    #3,D0
  318.     BEQ Return1
  319.     BSR ConfigErr2
  320.     BSR SetNormalPtrCol
  321.     BRA StorePtrCol
  322.  
  323. CheckRedraw
  324.     TST.B   UpdateTempo
  325.     BEQ.S   chkredr
  326.     CLR.B   UpdateTempo
  327.     BSR SetTempo
  328. chkredr CMP.L   #'patp',RunMode
  329.     BNE Return1
  330.     JSR ShowPosition
  331.     TST.B   PattRfsh
  332.     BEQ Return1
  333.     MOVE.L  PattRfshNum,PatternNumber
  334.     JMP RedrawPattern
  335.  
  336. ;---- Cleanup upon exit from PT ----
  337.  
  338. ExitCleanup
  339.     JSR StopIt
  340.     SF  EdEnable
  341.     BSR EscPressed
  342.     BSR EscPressed
  343.     BSR ResetVBInt
  344.     BSR ResetMusicInt
  345.     BSR ResetInputHandler
  346.     BSR ResetAutoReq
  347. ;   BSR ResetDispAlert
  348.     BSR ResetCopList
  349.     JSR CloseMIDI
  350.     JSR FreeCopyBuf
  351. errorexit1
  352. errorexit2
  353.     MOVE.L  StackSave,SP
  354.     MOVE.L  4.W,A6
  355.     MOVE.L  GfxBase,A1
  356.     JSR LVOCloseLibrary(A6)
  357.     MOVE.L  IntuitionBase,A1
  358.     JSR LVOCloseLibrary(A6)
  359.     MOVE.L  DOSbase,A1
  360.     JSR LVOCloseLibrary(A6)
  361.  
  362.     MOVE.L  TextBplPtr,D1
  363.     BEQ.S   exex1
  364.     MOVE.L  D1,A1
  365.     MOVE.L  #27760,D0
  366.     JSR LVOFreeMem(A6)
  367. exex1   MOVE.L  SongDataPtr,D1
  368.     BEQ.S   exex2
  369.     MOVE.L  D1,A1
  370.     MOVE.L  #70716,D0
  371.     JSR LVOFreeMem(A6)
  372. exex2   BSR FreeDirMem
  373.     BSR GiveBackInstrMem
  374.     JSR FreePLST
  375.     JSR TurnOffVoices
  376.     BCLR    #1,$BFE001
  377.     MOVE.B  LEDStatus,D0
  378.     AND.B   #2,D0
  379.     OR.B    D0,$BFE001 ; Restore LED Status
  380.     MOVEQ   #0,D0
  381. Return1 RTS
  382.  
  383. ;---- Open Lots Of Things ----
  384.  
  385. OpenLotsOfThings
  386.     MOVE.B  $BFE001,LEDStatus
  387.     BSET    #1,$BFE001
  388.     JSR TurnOffVoices
  389.     MOVE.L  4.W,A6
  390.     LEA DOSname(PC),A1      ; Open DOS library
  391.     MOVEQ   #0,D0
  392.     JSR LVOOpenLibrary(A6)
  393.     MOVE.L  D0,DOSbase
  394.     LEA GraphicsName(PC),A1 ; Open graphics library
  395.     MOVEQ   #0,D0
  396.     JSR LVOOpenLibrary(A6)
  397.     MOVE.L  D0,GfxBase
  398.     LEA IntuitionName(PC),A1    ; Open Intuition library
  399.     MOVEQ   #0,D0
  400.     JSR LVOOpenLibrary(A6)
  401.     MOVE.L  D0,IntuitionBase
  402.  
  403.     MOVE.L  #27760,D0       ; Alloc 27k CHIP textbpl
  404.     MOVE.L  #MEMF_CHIP!MEMF_CLEAR,D1
  405.     JSR LVOAllocMem(A6)
  406.     MOVE.L  D0,TextBplPtr
  407.     BEQ errorexit1
  408.     MOVE.W  D0,NoteBplptrLow    ; set low word
  409.     SWAP    D0
  410.     MOVE.W  D0,NoteBplptrHigh   ; set high word
  411.  
  412.     MOVE.L  #70716,D0       ; Alloc 70k patternmemory
  413.     MOVE.L  #MEMF_PUBLIC!MEMF_CLEAR,D1
  414.     JSR LVOAllocMem(A6)
  415.     MOVE.L  D0,SongDataPtr
  416.     BEQ errorexit2
  417.  
  418.     MOVE.L  D0,A0
  419.     LEA $0014(A0),A0
  420.     MOVEQ   #30,D0
  421. alotloop1
  422.     MOVE.W  #1,$001C(A0)
  423.     LEA $001E(A0),A0
  424.     DBRA    D0,alotloop1
  425.     MOVE.L  SongDataPtr,A0
  426.     MOVE.W  #$017F,sd_numofpatt(A0)
  427.     MOVE.L  #'M.K.',sd_mahokakt(A0) ; M.K. again...
  428.  
  429.     MOVEQ   #6,D0
  430.     MOVE.L  D0,CurrSpeed
  431.     MOVE.W  #1,PEDpos
  432.     MOVE.L  #ModulesPath2,PathPtr
  433.     MOVE.L  #CopList,CopListPtr
  434.     MOVE.L  #CopListBitplanes,CopListBplPtr
  435.     MOVE.L  #CopListColors,CopListColorPtr
  436.     MOVE.L  #CopListBpl4,CopListBpl4Ptr
  437.     MOVE.L  #KbdTransTable2,KeyTransTabPtr
  438.     MOVE.L  #NoteNames1,NoteNamesPtr
  439.     MOVE.L  #VUMeterColors,TheRightColors
  440.  
  441.     MOVE.L  #BitplaneData,D0 ; Set pointers to bitplane data
  442.     LEA CopListBitplanes,A1
  443.     MOVE.W  D0,6(A1)
  444.     SWAP    D0
  445.     MOVE.W  D0,2(A1)
  446.     SWAP    D0
  447.     ADD.L   #10240,D0
  448.     MOVE.W  D0,14(A1)
  449.     SWAP    D0
  450.     MOVE.W  D0,10(A1)
  451.     BSR SetDefSpritePtrs
  452.     BSR UpdateCursorPos
  453.     JSR RedrawPattern
  454.     JSR ShowPosition
  455.     JSR ShowSongLength
  456.     MOVE.W  #1,InsNum
  457.     JSR ShowSampleInfo
  458.  
  459.     LEA TopMenusPos,A0
  460.     LEA TopMenusBuffer,A1
  461.     MOVEQ   #43,D0
  462. stmloop MOVEQ   #24,D1
  463. stmloop2
  464.     MOVE.B  (A0)+,(A1)+
  465.     MOVE.B  $27FF(A0),$044B(A1)
  466.     DBRA    D1,stmloop2
  467.     LEA 15(A0),A0
  468.     DBRA    D0,stmloop
  469.  
  470.     BSR DoResetAll
  471.     BSR DoLoadConfig
  472.     JSR DoLoadPLST
  473. ChangeCopList
  474.     TST.W   SamScrEnable
  475.     BNE Return1
  476.     BSR SetupAnaCols
  477. SetupVUCols
  478.     TST.W   SamScrEnable
  479.     BNE Return1
  480.     LEA CopListMark2,A0 ; VUmeter coloring
  481.     MOVE.W  #$BA07,D5   ; Start position
  482.     LEA VUmeterColors,A5
  483.     MOVEQ   #47,D7  ; Change 48 lines
  484. alotlp4 MOVE.W  D5,(A0)+
  485.     MOVE.W  #$FFFE,(A0)+
  486.     LEA VUmeterColRegs(PC),A1
  487.     MOVEQ   #1,D6
  488. alotlp5 MOVE.W  (A5),D4
  489.     MOVE.W  (A1)+,(A0)+
  490.     MOVE.W  #3,FadeX
  491.     MOVE.W  D4,D0
  492.     BSR FadeCol
  493.     MOVE.W  D0,(A0)+
  494.     MOVE.W  (A1)+,(A0)+
  495.     MOVE.W  D4,(A0)+
  496.     MOVE.W  (A1)+,(A0)+
  497.     MOVE.W  #-3,FadeX
  498.     MOVE.W  D4,D0
  499.     BSR FadeCol
  500.     MOVE.W  D0,(A0)+
  501.     DBRA    D6,alotlp5
  502.     ADDQ.W  #2,A5
  503.     ADD.W   #$0100,D5   ; Next line...
  504.     DBRA    D7,alotlp4
  505.     RTS
  506.  
  507. VUmeterColRegs
  508.     dc.w    $01B2,$01B4,$01B6,$01BA,$01BC,$01BE
  509.  
  510. CopListBpl4Ptr  dc.l    0
  511. CopListPtr  dc.l    0
  512. CopListBplPtr   dc.l    0
  513. CopListColorPtr dc.l    0
  514. DOSname     dc.b    'dos.library',0
  515. IntuitionName   dc.b    'intuition.library',0
  516. GraphicsName    dc.b    'graphics.library',0,0
  517.  
  518. SetupAnaCols
  519.     LEA CopListAnalyzer,A5
  520.     MOVE.W  ColorTable+12,D2
  521.     MOVEQ   #39,D0      ; Change col 40 lines
  522.     MOVE.W  #$687D,D1   ; Start pos
  523. sacloop MOVE.W  D1,(A5)+    ; Set wait
  524.     MOVE.W  #$FFFE,(A5)+
  525.     MOVE.W  #$018C,(A5)+    ; Set analyzer color
  526.     ADDQ.L  #2,A5
  527.     ADD.W   #$0060,D1   ; Move x-pos
  528.     MOVE.W  D1,(A5)+    ; Wait
  529.     MOVE.W  #$FFFE,(A5)+
  530.     MOVE.W  #$018C,(A5)+    ; Set text color
  531.     MOVE.W  D2,(A5)+
  532.     ADD.W   #$0100,D1   ; Next line...
  533.     SUB.W   #$0060,D1
  534.     DBRA    D0,sacloop
  535.     TST.B   DisableAnalyzer
  536.     BNE.S   ClearAnalyzerColors
  537. SetAnalyzerColors
  538.     LEA CopListAnalyzer+6,A1
  539.     LEA AnalyzerColors,A0
  540.     MOVEQ   #39,D0  ; 40 lines
  541. sanclop MOVE.W  (A0)+,(A1)
  542.     LEA 16(A1),A1
  543.     DBRA    D0,sanclop
  544.     RTS
  545.  
  546. ClearAnalyzerColors
  547.     LEA CopListAnalyzer+6,A0
  548.     MOVE.W  ColorTable+12,D1
  549.     MOVEQ   #39,D0  ; 40 lines.
  550. cacloop MOVE.W  D1,(A0)
  551.     LEA 16(A0),A0
  552.     DBRA    D0,cacloop
  553.     RTS
  554.  
  555. SetSamSpritePtrs
  556.     MOVE.L  #LoopSpriteData1,Ch1SpritePtr
  557.     MOVE.L  #LoopSpriteData2,Ch2SpritePtr
  558.     MOVE.L  #PlayPosSpriteData,Ch3SpritePtr
  559.     MOVE.L  #NoSpriteData,Ch4SpritePtr
  560.     BRA.S   sdsp2
  561. SetDefSpritePtrs
  562.     MOVE.L  #VUSpriteData1,Ch1SpritePtr
  563.     MOVE.L  #VUSpriteData2,Ch2SpritePtr
  564.     MOVE.L  #VUSpriteData3,Ch3SpritePtr
  565.     MOVE.L  #VUSpriteData4,Ch4SpritePtr
  566. sdsp2   MOVE.L  #CursorSpriteData,CursorPosPtr
  567.     MOVE.L  #PointerSpriteData,PointerSpritePtr
  568.     MOVE.L  #LineCurSpriteData,LineCurPosPtr
  569.     MOVE.L  #NoSpriteData,NoSpritePtr
  570.     MOVE.L  PointerSpritePtr,SpritePtrsPtr
  571.  
  572.     LEA SpritePtrsPtr,A0    ; Set pointers to spritedata
  573.     LEA CopList,A1
  574.     MOVEQ   #15,D2
  575. alotloop2
  576.     MOVE.W  (A0)+,2(A1)
  577.     ADDQ.L  #4,A1
  578.     DBRA    D2,alotloop2
  579.     RTS
  580.  
  581. PointerSpritePtr
  582.     dc.l    0
  583.  
  584. ;---- AutoRequest() ----
  585.  
  586. SetAutoReq
  587.     MOVE.L  4.W,A6
  588.     JSR LVOForbid(A6)
  589.     MOVE.L  IntuitionBase,A1
  590.     MOVE.L  #NewAutoRequest,D0
  591.     MOVE.L  #LVOAutoRequest,A0
  592.     JSR LVOSetFunction(A6)
  593.     MOVE.L  D0,AutoReqSave
  594.     MOVE.L  D0,xyzza+2
  595.     JSR LVOPermit(A6)
  596.     RTS
  597.  
  598. ResetAutoReq
  599.     MOVE.L  4.W,A6
  600.     MOVE.L  IntuitionBase,A1
  601.     MOVE.L  AutoReqSave(PC),D0
  602.     MOVE.L  #LVOAutoRequest,A0
  603.     JSR LVOSetFunction(A6)
  604.     RTS
  605.  
  606. NewAutoRequest
  607.     TST.W   MountFlag
  608.     BNE PositiveReturn
  609.     TST.B   AutoReqRunning
  610.     BNE.S   xyzza
  611.     ST  AutoReqRunning
  612.     MOVE.L  A0,-(SP)
  613.     MOVE.L  GfxBase,A0
  614.     MOVE.L  38(A0),$DFF080
  615.     MOVE.L  (SP)+,A0
  616. xyzzy   JSR $0
  617.     MOVE.L  #CopList,$DFF080
  618.     SF  AutoReqRunning
  619.     RTS
  620. xyzza   JMP $0
  621.  
  622. AutoReqSave EQU xyzzy+2
  623.  
  624. ;---- DisplayAlert() ----
  625.  
  626. SetDispAlert
  627.     MOVE.L  IntuitionBase,A0
  628.     MOVE.L  LVODisplayAlert+2(A0),DispAlertSave
  629.     MOVE.L  #NewDispAlert,LVODisplayAlert+2(A0)
  630.     RTS
  631.  
  632. ResetDispAlert
  633.     MOVE.L  IntuitionBase,A0
  634.     MOVE.L  DispAlertSave,LVODisplayAlert+2(A0)
  635.     RTS
  636.  
  637. NewDispAlert
  638.     MOVEM.L D0-D7/A0-A6,-(SP)
  639.     LEA SoftFailText(PC),A1
  640.     ADDQ.L  #3,A0
  641.     MOVEQ   #16,D0
  642. ndaloop CMP.B   (A1)+,(A0)+
  643.     BNE.S   ndaexit
  644.     DBRA    D0,ndaloop
  645.     BSR FindAdr
  646.     TST.L   D0
  647.     BEQ.S   ndaexit
  648.     MOVE.L  D0,A1
  649.     MOVE.L  SongDataPtr,A0
  650.     MOVE.L  #70716,D0
  651. ndalop2 MOVE.B  (A0)+,D1
  652.     MOVE.W  D1,$DFF180
  653.     MOVE.B  D1,(A1)+
  654.     SUBQ.L  #1,D0
  655.     BNE.S   ndalop2
  656. ndaexit MOVEM.L (SP)+,D0-D7/A0-A6
  657. xyzzy2  JMP $FC0000
  658.        
  659. DispAlertSave EQU xyzzy2+2
  660. SoftFailText    dc.b    "Software Failure.",0
  661.  
  662. ;---- Copper List ----
  663.  
  664. SetCopList
  665.     MOVE.L  #CopList,$DFF080
  666.     RTS
  667.  
  668. ResetCopList
  669.     MOVE.L  GfxBase,A0
  670.     MOVE.L  38(A0),$DFF080
  671.     RTS
  672.  
  673. ;---- Vertical Blank Interrupt ----
  674.  
  675. SetVBInt
  676.     MOVEQ   #5,D0
  677.     LEA VBIntServer,A1
  678.     MOVE.L  4.W,A6
  679.     JSR LVOAddIntServer(A6)
  680.     RTS
  681.  
  682. ResetVBInt
  683.     MOVEQ   #5,D0
  684.     LEA VBIntServer,A1
  685.     MOVE.L  4.W,A6
  686.     JSR LVORemIntServer(A6)
  687.     RTS
  688.  
  689. vbint   MOVEM.L D0-D7/A0-A6,-(SP)
  690.     BSR UpdatePointerPos
  691.     BSR VUmeters
  692.     BSR Scope
  693.     BSR SpecAnaInt
  694.     BSR ArrowKeys
  695.     BSR CheckKeyRepeat
  696.     BSR UpdateTicks
  697.     MOVEM.L (SP)+,D0-D7/A0-A6
  698.     RTS
  699.  
  700. VBIntServer
  701.     dc.l 0,0
  702.     dc.b 2,0 ; type, priority
  703.     dc.l vbintname
  704.     dc.l 0,vbint
  705.  
  706. vbintname
  707.     dc.b "Protracker VBlank",0
  708.  
  709. ;---- Music Interrupt ----
  710.  
  711. SetMusicInt
  712.     TST.B   IntMode
  713.     BNE.S   SetCIAInt
  714.     MOVEQ   #5,D0
  715.     LEA MusicIntServer,A1
  716.     MOVE.L  4.W,A6
  717.     JSR LVOAddIntServer(A6)
  718.     RTS
  719.  
  720. ResetMusicInt
  721.     TST.B   IntMode
  722.     BNE ResetCIAInt
  723.     MOVEQ   #5,D0
  724.     LEA MusicIntServer,A1
  725.     MOVE.L  4.W,A6
  726.     JSR LVORemIntServer(A6)
  727.     RTS
  728.  
  729. MusicIntServer
  730.     dc.l 0,0
  731.     dc.b 2,1 ; type, priority
  732.     dc.l musintname
  733.     dc.l 0,IntMusic
  734.  
  735. musintname  dc.b "Protracker MusicInt",0
  736.  
  737. ;---- CIA Interrupt ----
  738.  
  739. ciatalo = $400
  740. ciatahi = $500
  741. ciatblo = $600
  742. ciatbhi = $700
  743. ciacra  = $E00
  744. ciacrb  = $F00
  745.  
  746. SetCIAInt
  747.     MOVEQ   #2,D6
  748.     LEA $BFD000,A5
  749.     MOVE.B  #'b',CIAAname+3
  750. SetCIALoop
  751.     MOVEQ   #0,D0
  752.     LEA CIAAname(PC),A1
  753.     MOVE.L  4.W,A6
  754.     JSR LVOOpenResource(A6)
  755.     MOVE.L  D0,CIAAbase
  756.     BEQ Return1
  757.     MOVE.L  D0,A6
  758.  
  759.     MOVE.L  GfxBase,A0
  760.     MOVE.W  206(A0),D0  ; DisplayFlags
  761.     BTST    #2,D0       ; PAL?
  762.     BEQ.S   WasNTSC
  763.     MOVE.L  #1773447,D7 ; PAL
  764.     BRA.S   sciask
  765. WasNTSC MOVE.L  #1789773,D7 ; NTSC
  766. sciask  MOVE.L  D7,TimerValue
  767.     DIVU    #125,D7 ; Default to normal 50 Hz timer
  768.  
  769.     CMP.W   #2,D6
  770.     BEQ.S   TryTimerA
  771. TryTimerB
  772.     LEA MusicIntServer(PC),A1
  773.     MOVEQ   #1,D0   ; Bit 1: Timer B
  774.     JSR AddICRVector(A6)
  775.     MOVE.L  #1,TimerFlag
  776.     TST.L   D0
  777.     BNE.S   CIAError
  778.     MOVE.L  A5,CIAAaddr
  779.     MOVE.B  D7,ciatblo(A5)
  780.     LSR.W   #8,D7
  781.     MOVE.B  D7,ciatbhi(A5)
  782.     BSET    #0,ciacrb(A5)
  783.     BRA SetTempo
  784.  
  785. TryTimerA
  786.     LEA MusicIntServer(PC),A1
  787.     MOVEQ   #0,D0   ; Bit 0: Timer A
  788.     JSR AddICRVector(A6)
  789.     CLR.L   TimerFlag
  790.     TST.L   D0
  791.     BNE.S   CIAError
  792.     MOVE.L  A5,CIAAaddr
  793.     MOVE.B  D7,ciatalo(A5)
  794.     LSR.W   #8,D7
  795.     MOVE.B  D7,ciatahi(A5)
  796.     BSET    #0,ciacra(A5)
  797.     BRA SetTempo
  798.  
  799. CIAError
  800.     MOVE.B  #'a',CIAAname+3
  801.     LEA $BFE001,A5
  802.     SUBQ.W  #1,D6
  803.     BNE SetCIALoop
  804.     CLR.L   CIAAbase
  805.     RTS
  806.  
  807. ResetCIAInt
  808.     MOVE.L  CIAAbase(PC),D0
  809.     BEQ Return1
  810.     CLR.L   CIAAbase
  811.     MOVE.L  D0,A6
  812.     MOVE.L  CIAAaddr(PC),A5
  813.     TST.L   TimerFlag
  814.     BEQ.S   ResTimerA
  815.  
  816.     BCLR    #0,ciacrb(A5)
  817.     MOVEQ   #1,D0
  818.     BRA.S   RemInt
  819.  
  820. ResTimerA
  821.     BCLR    #0,ciacra(A5)
  822.     MOVEQ   #0,D0
  823. RemInt  LEA MusicIntServer(PC),A1
  824.     MOVEQ   #0,d0
  825.     JSR RemICRVector(A6)
  826.     RTS
  827.  
  828. CIAAname    dc.b 'ciaa.resource',0
  829. CIAAbase    dc.l 0
  830. TimerFlag   dc.l 0
  831. TimerValue  dc.l 0
  832.  
  833. ;---- Tempo ----
  834.  
  835. TempoGadg
  836.     CMP.W   #60,D0
  837.     BHS Return1
  838.     CMP.W   #44,D0
  839.     BHS.S   TemDown
  840. TemUp   MOVE.W  RealTempo(PC),D0
  841.     ADDQ.W  #1,D0
  842.     BTST    #2,$DFF016
  843.     BNE.S   teupsk
  844.     ADDQ.W  #8,D0
  845.     ADDQ.W  #1,D0
  846. teupsk  CMP.W   #255,D0
  847.     BLS.S   teposk
  848.     MOVE.W  #255,D0
  849. teposk  MOVE.W  D0,RealTempo
  850.     BSR SetTempo
  851.     BRA Wait_4000
  852.  
  853. TemDown MOVE.W  RealTempo(PC),D0
  854.     SUBQ.W  #1,D0
  855.     BTST    #2,$DFF016
  856.     BNE.S   tednsk
  857.     SUBQ.W  #8,D0
  858.     SUBQ.W  #1,D0
  859. tednsk  CMP.W   #32,D0
  860.     BHS.S   teposk
  861.     MOVE.W  #32,D0
  862.     BRA.S   teposk
  863.  
  864.  
  865. ChangeTempo
  866.     CMP.W   #94,D0
  867.     BHS.S   TempoDown
  868.     CMP.W   #80,D0
  869.     BHS.S   TempoUp
  870.     RTS
  871.  
  872. TempoUp MOVE.W  Tempo,D0
  873.     ADDQ.W  #1,D0
  874.     BTST    #2,$DFF016
  875.     BNE.S   temupsk
  876.     ADDQ.W  #8,D0
  877.     ADDQ.W  #1,D0
  878. temupsk CMP.W   #255,D0
  879.     BLS.S   temposk
  880.     MOVE.W  #255,D0
  881. temposk MOVE.W  D0,Tempo
  882.     MOVE.W  D0,RealTempo
  883.     BSR.S   ShowTempo
  884.     BSR.S   SetTempo
  885.     BRA Wait_4000
  886.  
  887. TempoDown
  888.     MOVE.W  Tempo,D0
  889.     SUBQ.W  #1,D0
  890.     BTST    #2,$DFF016
  891.     BNE.S   temdnsk
  892.     SUBQ.W  #8,D0
  893.     SUBQ.W  #1,D0
  894. temdnsk CMP.W   #32,D0
  895.     BHS.S   temposk
  896.     MOVE.W  #32,D0
  897.     BRA.S   temposk
  898.  
  899. ShowTempo
  900.     MOVE.W  #607,TextOffset
  901.     MOVE.W  RealTempo(PC),WordNumber
  902.     JMP Print3DecDigits
  903.  
  904. SetTempo
  905.     MOVEQ   #125,D0
  906.     MOVE.L  CIAAbase(PC),D1
  907.     BEQ.S   setesk3
  908.     MOVE.W  RealTempo(PC),D0
  909.     CMP.W   #32,D0
  910.     BHS.S   setemsk
  911.     MOVEQ   #32,D0
  912. setemsk MOVE.W  D0,RealTempo
  913. setesk3 TST.W   SamScrEnable
  914.     BNE.S   setesk2
  915.     MOVE.W  #4964,TextOffset
  916.     MOVE.W  D0,WordNumber
  917.     JSR Print3DecDigits
  918. setesk2 MOVE.L  CIAAbase(PC),D0
  919.     BEQ Return1
  920.     MOVE.W  RealTempo(PC),D0
  921.     MOVE.L  TimerValue(PC),D1
  922.     DIVU    D0,D1
  923.     MOVE.L  CIAAaddr(PC),A5
  924.     MOVE.L  TimerFlag(PC),D0
  925.     BEQ.S   SetTemA
  926.     MOVE.B  D1,ciatblo(A5)  ;and set the CIA timer
  927.     LSR.W   #8,D1
  928.     MOVE.B  D1,ciatbhi(A5)
  929.     RTS
  930.  
  931. SetTemA MOVE.B  D1,ciatalo(A5)
  932.     LSR.W   #8,D1
  933.     MOVE.B  D1,ciatahi(A5)
  934.     RTS
  935.  
  936. RealTempo   dc.w 125
  937. CIAAaddr    dc.l 0
  938.  
  939. ;---- Input Event Handler ----
  940.  
  941. SetInputHandler
  942.     MOVE.L  4.W,A6
  943.     LEA InpEvPort,A1
  944.     JSR LVOAddPort(A6)
  945.     LEA InputDevName,A0
  946.     MOVEQ   #0,D0
  947.     LEA InpEvIOReq,A1
  948.     MOVEQ   #0,D1
  949.     MOVE.L  #InpEvPort,14(A1)
  950.     JSR LVOOpenDevice(A6)
  951.     LEA InpEvIOReq,A1
  952.     MOVE.W  #9,IO_COMMAND(A1) ; IND_ADDHANDLER
  953.     MOVE.L  #InpEvStuff,IO_DATA(A1)
  954.     JSR LVODoIO(A6)
  955.     RTS
  956.  
  957. ResetInputHandler
  958.     MOVE.L  4.W,A6
  959.     LEA InpEvIOReq,A1
  960.     MOVE.W  #10,IO_COMMAND(A1) ; IND_REMHANDLER
  961.     MOVE.L  #InpEvStuff,IO_DATA(A1)
  962.     JSR LVODoIO(A6)
  963.     LEA InpEvIOReq,A1
  964.     JSR LVOCloseDevice(A6)
  965.     LEA InpEvPort,A1
  966.     JSR LVORemPort(A6)
  967.     RTS
  968.  
  969.  
  970. InpEvStuff
  971.     dc.l    0,0
  972.     dc.b    2,52 ; type, priority
  973.     dc.l    inpevname
  974.     dc.l    0,InputHandler
  975.  
  976. inpevname
  977.     dc.b "Protracker InputHandler",0
  978.  
  979. InputHandler ; A0-InputEvent, A1-Data Area
  980.     MOVE.L  A2,-(SP)
  981.     TST.B   AutoReqRunning
  982.     BNE.S   inphend
  983.     SUB.L   A2,A2
  984.     MOVE.L  A0,A1
  985.     MOVE.B  4(A1),D0 ; ie_Class
  986.     CMP.B   #1,D0    ; RAWKEY
  987.     BEQ.S   InpRawkey
  988.     CMP.B   #2,D0    ; RAWMOUSE
  989.     BEQ.S   InpRawmouse
  990.     MOVE.L  A1,A2
  991. InpNext MOVE.L  (A1),A1
  992.     MOVE.L  A1,D0
  993.     BNE.S   InputHandler
  994. inphend MOVE.L  A0,D0
  995.     MOVE.L  (SP)+,A2
  996.     RTS
  997.  
  998. InpRawkey
  999.     BSR InpUnchain
  1000.     MOVE.W  6(A1),D0
  1001.     BSR ProcessRawkey
  1002.     BRA InpNext
  1003.  
  1004. InpRawmouse
  1005.     BSR InpUnchain
  1006.     MOVE.W  MouseX3,D0
  1007.     MOVE.W  MouseY3,D1
  1008.     ADD.W   10(A1),D0
  1009.     ADD.W   12(A1),D1
  1010.     TST.W   D0
  1011.     BPL.S   irskip1
  1012.     MOVEQ   #0,D0
  1013. irskip1 TST.W   D1
  1014.     BPL.S   irskip2
  1015.     MOVEQ   #0,D1
  1016. irskip2 CMP.W   #640,D0
  1017.     BLO.S   irskip3
  1018.     MOVE.W  #639,D0
  1019. irskip3 CMP.W   #512,D1
  1020.     BLO.S   irskip4
  1021.     MOVE.W  #511,D1
  1022. irskip4 MOVE.W  D0,MouseX3
  1023.     MOVE.W  D1,MouseY3
  1024.     LSR.W   #1,D0
  1025.     LSR.W   #1,D1
  1026.     MOVE.W  D0,MouseX
  1027.     MOVE.W  D1,MouseY
  1028.     BRA.S   InpNext
  1029.  
  1030. InpUnchain
  1031.     MOVE.L  A2,D0
  1032.     BNE.S   InpUnc2
  1033.     MOVE.L  (A1),A0
  1034.     RTS
  1035. InpUnc2 MOVE.L  (A1),(A2)
  1036.     RTS
  1037.  
  1038. ;---- Process rawkey code from the keyboard ----
  1039.  
  1040. ProcessRawkey
  1041.     CMP.B   LastRawkey,D0
  1042.     BEQ Return1
  1043.     MOVE.B  D0,LastRawkey
  1044.     CMP.B   #67+128,D0
  1045.     BEQ LowerInstr2
  1046.     CMP.B   #96,D0
  1047.     BEQ ShiftOn
  1048.     CMP.B   #97,D0
  1049.     BEQ ShiftOn2
  1050.     CMP.B   #100,D0
  1051.     BEQ AltOn
  1052.     CMP.B   #101,D0
  1053.     BEQ AltOn2
  1054.     CMP.B   #99,D0
  1055.     BEQ CtrlOn
  1056.     CMP.B   #102,D0
  1057.     BEQ LeftAmigaOn
  1058.     CMP.B   #99+128,D0
  1059.     BEQ CtrlOff
  1060.     CMP.B   #100+128,D0
  1061.     BEQ AltOff
  1062.     CMP.B   #96+128,D0
  1063.     BEQ.S   ShiftOff
  1064.     CMP.B   #101+128,D0
  1065.     BEQ AltOff
  1066.     CMP.B   #97+128,D0
  1067.     BEQ.S   ShiftOff
  1068.     CMP.B   #102+128,D0
  1069.     BEQ LeftAmigaOff
  1070.     CMP.B   #98,D0
  1071.     BEQ.S   KeyRepOn
  1072.     CMP.B   #98+128,D0
  1073.     BEQ.S   KeyRepOff
  1074. kbintSetKey
  1075.     TST.B   D0
  1076.     BNE.S   kbintDoSet
  1077.     MOVE.B  #127,D0
  1078. kbintDoSet
  1079.     MOVE.W  KeyBufPos(PC),D1
  1080.     CMP.W   #KeyBufSize,D1
  1081.     BHS Return1
  1082.     LEA KeyBuffer(PC),A3
  1083.     MOVE.B  D0,(A3,D1.W)
  1084.     ADDQ.W  #1,KeyBufPos
  1085.     RTS
  1086.  
  1087. LowerInstr2
  1088.     CLR.W   HiLowInstr
  1089.     BRA.S   kbintsetkey
  1090.  
  1091. KeyRepOn
  1092.     ST  KeyRepeat
  1093.     RTS
  1094.  
  1095. KeyRepOff
  1096.     SF  KeyRepeat
  1097.     RTS
  1098.  
  1099. ShiftOn MOVE.W  #1,ShiftKeyStatus
  1100.     RTS
  1101.  
  1102. ShiftOn2
  1103.     MOVE.W  #1,ShiftKeyStatus
  1104.     BRA.S   kbintsetkey
  1105.  
  1106. ShiftOff
  1107.     CLR.W   ShiftKeyStatus
  1108.     RTS
  1109.  
  1110. AltOn   MOVE.W  #1,AltKeyStatus
  1111.     RTS
  1112.  
  1113. AltOn2  MOVE.W  #1,AltKeyStatus
  1114.     BRA.S   kbintsetkey
  1115.  
  1116. AltOff  CLR.W   AltKeyStatus
  1117.     RTS
  1118.  
  1119. CtrlOn  MOVE.W  #1,CtrlKeyStatus
  1120.     RTS
  1121.  
  1122. CtrlOff CLR.W   CtrlKeyStatus
  1123.     RTS
  1124.  
  1125. LeftAmigaOn
  1126.     MOVE.W  #1,LeftAmigaStatus
  1127.     RTS
  1128.  
  1129. LeftAmigaOff
  1130.     CLR.W   LeftAmigaStatus
  1131.     RTS
  1132.  
  1133. DoKeyBuffer
  1134.     MOVE.W  KeyBufPos(PC),D0
  1135.     BEQ Return1
  1136.     SUBQ.W  #1,D0
  1137.     LEA KeyBuffer(PC),A0
  1138.     MOVE.B  (A0,D0.W),D1
  1139.     MOVE.W  D0,KeyBufPos
  1140.     MOVE.B  D1,RawKeyCode
  1141.     MOVE.B  D1,SaveKey
  1142.     MOVE.W  KeyRepDelay,KeyRepCounter
  1143.     BTST    #7,D1
  1144.     BEQ.S   dkbend
  1145.     CLR.W   KeyRepCounter
  1146. dkbend  RTS
  1147.  
  1148. KeyBufPos   dc.w    0
  1149. KeyBuffer   dcb.b   KeyBufSize,0
  1150. ShiftKeyStatus  dc.w    0
  1151. AltKeyStatus    dc.w    0
  1152. CtrlKeyStatus   dc.w    0
  1153. LeftAmigaStatus dc.w    0
  1154. LastRawkey  dc.b    255,0
  1155. SaveKey     dc.b 0
  1156. KeyRepeat   dc.b 0
  1157. KeyRepCounter   dc.w 0
  1158.  
  1159. ;---- Key repeat ----
  1160.  
  1161. CheckKeyRepeat
  1162.     TST.B   KeyRepeat
  1163.     BEQ Return1
  1164.     MOVE.W  KeyRepCounter(PC),D0
  1165.     BEQ Return1
  1166.     SUBQ.W  #1,D0
  1167.     BEQ.S   RepDown
  1168.     MOVE.W  D0,KeyRepCounter
  1169.     RTS
  1170.  
  1171. RepDown MOVE.B  SaveKey(PC),RawKeyCode
  1172.     MOVE.W  KeyRepSpeed,KeyRepCounter
  1173.     RTS
  1174.  
  1175. ;---- Update Mousepointer Position ----
  1176.  
  1177. UpdatePointerPos
  1178.     MOVE.W  MouseX,D0
  1179.     ADDQ.W  #3,D0
  1180.     MOVE.W  MouseY,D1
  1181.     MOVEQ   #16,D2
  1182.     MOVE.L  PointerSpritePtr,A0
  1183.     JMP SetSpritePos
  1184.  
  1185. ;---- Timer ----
  1186.  
  1187. UpdateTicks
  1188.     CMP.L   #'patp',RunMode
  1189.     BNE Return1
  1190.     ADDQ.W  #1,PatternTicks
  1191.     MOVE.W  PatternTicks(PC),D0
  1192.     MOVE.L  4.W,A0
  1193.     CMP.B   $0212(A0),D0
  1194.     BNE Return1
  1195.     CLR.W   PatternTicks
  1196.     ADDQ.L  #1,TimerTicks
  1197.     RTS
  1198.  
  1199. ShowTimer
  1200.     CMP.W   #4,CurrScreen
  1201.     BEQ Return1
  1202.     MOVE.L  TimerTicks(PC),D0
  1203.     DIVU    #60,D0
  1204.     MOVE.W  D0,WordNumber
  1205.     SWAP    D0
  1206.     MOVE.W  D0,D7
  1207.     MOVE.W  #4154,TextOffset
  1208.     JSR Print2DecDigits
  1209.     MOVE.W  D7,WordNumber
  1210.     ADDQ.W  #1,TextOffset
  1211.     JMP Print2DecDigits
  1212.  
  1213. PatternTicks    dc.w    0
  1214. TimerTicks  dc.l    0
  1215.  
  1216. ;---- Spectrum Analyzer ----
  1217.  
  1218. SpecAnaInt
  1219.     CMP.W   #1,CurrScreen
  1220.     BNE Return1
  1221.     TST.B   DisableAnalyzer
  1222.     BNE Return1
  1223.     TST.B   AnaDrawFlag
  1224.     BNE Return1
  1225.     MOVEQ   #40,D5
  1226.     MOVEQ   #126,D6
  1227.     LEA AnalyzerHeights,A0
  1228.     LEA AnalyzerOpplegg,A1
  1229.     LEA AnalyzerOffsets(PC),A2
  1230.     MOVE.L  TextBplPtr,A3
  1231.     LEA 1976(A3),A3
  1232.     MOVEQ   #$16,D7
  1233. spanlab1
  1234.     MOVE.W  (A0)+,D0
  1235.     CMP.W   #36,D0
  1236.     BLO.S   spanskip2
  1237.     MOVE.W  #36,D0
  1238. spanskip2
  1239.     MOVE.W  (A1)+,D1
  1240.     CMP.W   D0,D1
  1241.     BEQ.S   spanskip3
  1242.     BLO.S   span_r2
  1243.     SUB.W   D0,D1
  1244.     SUBQ.W  #1,D1
  1245.     ADD.W   D0,D0
  1246.     MOVE.W  0(A2,D0.W),D0
  1247. spanloop
  1248.     CLR.B   0(A3,D0.W)
  1249.     SUB.W   D5,D0
  1250.     DBRA    D1,spanloop
  1251.     BRA.S   spanskip3
  1252.  
  1253. span_r2 SUB.W   D1,D0
  1254.     SUBQ.W  #1,D0
  1255.     LSL.W   #1,D1
  1256.     MOVE.W  0(A2,D1.W),D1
  1257. spanloop2   MOVE.B  D6,0(A3,D1.W)
  1258.     SUB.W   D5,D1
  1259.     DBRA    D0,spanloop2
  1260. spanskip3   ADDQ.L  #1,A3
  1261.     DBRA    D7,spanlab1
  1262.     LEA AnalyzerHeights,A0
  1263.     LEA AnalyzerOpplegg,A1
  1264.     MOVEQ   #22,D7
  1265. spanloop3   MOVE.W  (A0),D0
  1266.     MOVE.W  D0,(A1)+
  1267.     BEQ.S   spanskip4
  1268.     SUBQ.W  #1,D0
  1269. spanskip4   MOVE.W  D0,(A0)+
  1270.     DBRA    D7,spanloop3
  1271.     RTS
  1272.  
  1273. ClearAnaHeights
  1274.     LEA AnalyzerOpplegg,A0
  1275.     LEA AnalyzerHeights,A1
  1276.     MOVEQ   #22,D7
  1277.     MOVEQ   #0,D0
  1278. cahloop MOVE.W  D0,(A0)+
  1279.     MOVE.W  D0,(A1)+
  1280.     DBRA    D7,cahloop
  1281.     RTS
  1282.  
  1283. PlayNoteAnalyze
  1284.     MOVEM.L D0-D3/A0,-(SP)
  1285.     MOVEQ   #0,D2
  1286.     MOVE.W  2(A6),D2
  1287.     BRA.S   SpecAna2
  1288.  
  1289. SpectrumAnalyzer
  1290.     TST.W   (A4)
  1291.     BEQ Return1
  1292.     MOVEM.L D0-D3/A0,-(SP)
  1293.     MOVEQ   #0,D2
  1294.     MOVE.B  n_volume(A6),D2 ; Get channel volume
  1295. SpecAna2
  1296.     ST  AnaDrawFlag
  1297.     BSR SetAnalyzerVolumes
  1298.     BEQ.S   saend
  1299.     LSL.W   #8,D2
  1300.     DIVU    #682,D2
  1301.     MOVE.W  D2,D3
  1302.     LSR.W   #1,D3
  1303.     LEA AnalyzerHeights,A0
  1304.     SUB.W   #113,D0 ; Subtract 113 (highest rate)
  1305.     MOVE.W  #743,D1
  1306.     SUB.W   D0,D1   ; Invert range 0-743
  1307.     MULU    D1,D1   ; 0 - 743^2
  1308.     DIVU    #25093,D1
  1309.     MOVE.W  D1,D0
  1310.     CMP.W   #46,D0
  1311.     BLO.S   saskip
  1312.     MOVEQ   #45,D0
  1313. saskip  LSL.W   #1,D0
  1314.     ADD.W   D2,(A0,D0.W)
  1315.     CMP.W   #36,(A0,D0.W)
  1316.     BLO.S   saskip2
  1317.     MOVE.W  #36,(A0,D0.W)
  1318. saskip2 TST.W   D0
  1319.     BEQ.S   saskip3
  1320.     ADD.W   D3,-2(A0,D0.W)
  1321.     CMP.W   #36,-2(A0,D0.W)
  1322.     BLO.S   saskip3
  1323.     MOVE.W  #36,-2(A0,D0.W)
  1324. saskip3 CMP.W   #44,D0
  1325.     BEQ.S   saend
  1326.     ADD.W   D3,2(A0,D0.W)
  1327.     CMP.W   #36,2(A0,D0.W)
  1328.     BLO.S   saend
  1329.     MOVE.W  #36,2(A0,D0.W)
  1330. saend   SF  AnaDrawFlag
  1331.     MOVEM.L (SP)+,D0-D3/A0
  1332.     RTS
  1333.  
  1334. AnalyzerOffsets
  1335.     dc.w $0730,$0708,$06E0,$06B8,$0690,$0668,$0640,$0618
  1336.     dc.w $05F0,$05C8,$05A0,$0578,$0550,$0528,$0500,$04D8
  1337.     dc.w $04B0,$0488,$0460,$0438,$0410,$03E8,$03C0,$0398
  1338.     dc.w $0370,$0348,$0320,$02F8,$02D0,$02A8,$0280,$0258
  1339.     dc.w $0230,$0208,$01E0,$01B8,$0190,$0168,$0140,$0118
  1340.     dc.w $00F0
  1341.  
  1342. AnaDrawFlag dc.b 0,0
  1343.  
  1344. ;---- Scope ----
  1345.  
  1346. ns_sampleptr =  0
  1347. ns_endptr    =  4
  1348. ns_repeatptr =  8
  1349. ns_rependptr = 12
  1350. ns_period    = 16
  1351. ns_volume    = 18
  1352.  
  1353. Scope   LEA audchan1temp,A0
  1354.     LEA ScopeInfo,A2
  1355.     LEA ScopeSamInfo,A1
  1356.     LEA BlankSample,A3
  1357.     MOVEQ.L #3,D6
  1358. ScoLoop MOVE.W  (A0),D0
  1359.     AND.W   #$0FFF,D0
  1360.     OR.W    n_period(A0),D0
  1361.     BEQ ScoSampleEnd ; end if no note & no period
  1362.  
  1363.     MOVE.W  n_period(A0),ns_period(A2)
  1364.     MOVE.B  n_volume(A0),ns_volume(A2)
  1365.  
  1366.  
  1367.     TST.B   n_trigger(A0)
  1368.     BEQ ScoContinue
  1369. ScoRetrig
  1370.     SF  n_trigger(A0)
  1371.     BSR SetScope
  1372.     MOVEQ   #0,D0
  1373.     MOVE.B  n_samplenum(A0),D0
  1374.     SUBQ.W  #1,D0
  1375.     LSL.W   #4,D0
  1376.     MOVE.L  ns_sampleptr(A1,D0.W),ns_sampleptr(A2)
  1377.     MOVE.L  ns_endptr(A1,D0.W),ns_endptr(A2)
  1378.     MOVE.L  ns_repeatptr(A1,D0.W),ns_repeatptr(A2)
  1379.     MOVE.L  ns_rependptr(A1,D0.W),ns_rependptr(A2)
  1380.     MOVE.L  ns_sampleptr(A2),D0
  1381.     CMP.L   A3,D0 ; at end of sample...
  1382.     BEQ.S   ScoNextChan
  1383.     BRA ScoChk
  1384. ScoContinue
  1385.     MOVE.L  ns_sampleptr(A2),D0
  1386.     CMP.L   A3,D0 ; at end of sample...
  1387.     BEQ.S   ScoNextChan
  1388.     MOVEQ.L #0,D1
  1389.     MOVE.W  ns_period(A2),D1
  1390.     LSR.W   #1,D1
  1391.     BEQ.S   ScoNextChan
  1392.     MOVE.L  #35469,D2
  1393.     DIVU    D1,D2
  1394.     EXT.L   D2
  1395.     ADD.L   D2,D0
  1396. ScoChk  CMP.L   ns_endptr(A2),D0
  1397.     BLO.S   ScoUpdatePtr
  1398.     TST.L   ns_repeatptr(A2)
  1399.     BNE.S   ScoSamLoop
  1400. ScoSampleEnd
  1401.     MOVE.L  A3,D0
  1402.     BRA.S   ScoUpdatePtr
  1403.  
  1404. ScoSamLoop
  1405.     SUB.L   ns_endptr(A2),D0
  1406.     ADD.L   ns_repeatptr(A2),D0
  1407.     MOVE.L  ns_rependptr(A2),ns_endptr(A2)
  1408.     CMP.L   ns_endptr(A2),D0
  1409.     BHS ScoSamLoop
  1410. ScoUpdatePtr
  1411.     MOVE.L  D0,ns_sampleptr(A2)
  1412. ScoNextChan
  1413.     ADD.L   #20,A2
  1414.     ADD.L   #44,A0
  1415.     DBRA    D6,ScoLoop
  1416.  
  1417. ; now draw channels
  1418.     TST.B   ScopeEnable
  1419.     BEQ.S   clsnot
  1420.     CMP.W   #1,CurrScreen
  1421.     BNE.S   clsnot
  1422.     TST.B   EdEnable
  1423.     BNE.S   clsnot
  1424.  
  1425.     MOVE.L  TextBplPtr,A0
  1426.     ADD.L   #2256,A0
  1427.     MOVEQ   #0,D0
  1428.     MOVEQ   #32,D1
  1429. clscop1 MOVEQ   #5,D2
  1430. clscop2 MOVE.L  D0,(A0)+
  1431.     DBRA    D2,clscop2
  1432.     LEA 16(A0),A0
  1433.     DBRA    D1,clscop1
  1434.  
  1435. clsnot  MOVEQ   #-1,D4
  1436.     TST.W   SamScrEnable
  1437.     BEQ.S   ScoNClr
  1438.     MOVEQ   #0,D4
  1439. ScoNClr MOVEQ   #0,D7
  1440.     MOVE.W  $DFF002,D6 ; dmaconr
  1441.     MOVEQ   #0,D5
  1442.     MOVE.L  #72*40+16,A1
  1443.     LEA xBlankSample,A2
  1444.     BTST    #0,D6
  1445.     BEQ.S   ScoSkp1
  1446.     LEA ScopeInfo,A2
  1447.     MOVE.B  ns_volume(A2),D5
  1448. ScoSkp1 BSR.S   ScoDraw
  1449.  
  1450.     MOVEQ   #0,D5
  1451.     MOVE.L  #72*40+22,A1
  1452.     LEA xBlankSample,A2
  1453.     BTST    #1,D6
  1454.     BEQ.S   ScoSkp2
  1455.     LEA ScopeInfo+20,A2
  1456.     MOVE.B  ns_volume(A2),D5
  1457. ScoSkp2 BSR.S   ScoDraw
  1458.  
  1459.     MOVEQ   #0,D5
  1460.     MOVE.L  #72*40+28,A1
  1461.     LEA xBlankSample,A2
  1462.     BTST    #2,D6
  1463.     BEQ.S   ScoSkp3
  1464.     LEA ScopeInfo+40,A2
  1465.     MOVE.B  ns_volume(A2),D5
  1466. ScoSkp3 BSR.S   ScoDraw
  1467.  
  1468.     MOVEQ   #0,D5
  1469.     MOVE.L  #72*40+34,A1
  1470.     LEA xBlankSample,A2
  1471.     BTST    #3,D6
  1472.     BEQ.S   ScoSkp4
  1473.     LEA ScopeInfo+60,A2
  1474.     MOVE.B  ns_volume(A2),D5
  1475. ScoSkp4 BSR ScoDraw
  1476.     TST.L   D7
  1477.     BEQ sdloscr
  1478. ScoRTS  RTS
  1479.  
  1480. ScoDraw TST.B   ScopeEnable
  1481.     BEQ.S   sdlpos
  1482.     CMP.W   #1,CurrScreen
  1483.     BNE.S   sdlpos
  1484.     TST.B   EdEnable
  1485.     BNE.S   sdlpos
  1486.     LSR.W   #1,D5
  1487.     CMP.W   #32,D5
  1488.     BLS.S   sdsk1
  1489.     MOVEQ   #32,D5
  1490. sdsk1   MOVE.L  (A2),A0
  1491.     ADD.L   TextBplPtr,A1
  1492.     MOVEQ   #4,D2
  1493. sdlp1   MOVEQ   #7,D3
  1494. sdlp2   MOVE.B  (A0)+,D0    ; get byte
  1495.     EXT.W   D0      ; extend to word
  1496.     NEG.W   D0      ; negate
  1497.     MULS    D5,D0       ; multiply by volume
  1498.     ASR.W   #8,D0       ; shift down
  1499.     MOVE.W  D0,D1
  1500.     ASL.W   #5,D0       ; * 32
  1501.     ASL.W   #3,D1       ; * 8
  1502.     ADD.W   D1,D0       ; (32+8) = * 40
  1503.     BSET    D3,(A1,D0.W)    ; set a bit
  1504.     DBRA    D3,sdlp2
  1505.     ADDQ.L  #1,A1       ; yes
  1506. sdlskip DBRA    D2,sdlp1
  1507.  
  1508. sdlpos  TST.B   D4
  1509.     BNE.S   ScoRTS
  1510.     LEA xBlankSample(PC),A0
  1511.     CMP.L   A0,A2
  1512.     BEQ.S   sdloscr
  1513.     MOVE.L  (A2),D1
  1514.     MOVE.L  SamDrawStart(PC),D0
  1515.     CMP.L   D0,D1
  1516.     BLS.S   ScoRTS
  1517.     CMP.L   SamDrawEnd(PC),D1
  1518.     BHS.S   ScoRTS
  1519.     SUB.L   D0,D1
  1520.     MULU    #314,D1
  1521.     MOVE.L  SamDisplay,D0
  1522.     BEQ.S   ScoRTS
  1523.     DIVU    D0,D1
  1524.     ST  D4
  1525.     ST  D7
  1526.     MOVE.L  D1,D0
  1527.     ADDQ.W  #6,D0
  1528.     MOVE.W  #139,D1
  1529. sdlpspr MOVEQ   #64,D2
  1530.     LEA PlayPosSpriteData,A0
  1531.     JMP SetSpritePos
  1532.  
  1533. sdloscr MOVEQ   #0,D0
  1534.     MOVE.W  #270,D1
  1535.     BRA.S   sdlpspr
  1536.  
  1537. SetScope
  1538.     MOVEQ   #0,D1
  1539.     MOVE.B  n_samplenum(A0),D1
  1540.     SUBQ.W  #1,D1
  1541.     LSL.W   #4,D1
  1542.     LEA ScopeSamInfo,A4
  1543.     LEA (A4,D1.W),A4
  1544.  
  1545.     MOVE.L  n_start(A0),D0
  1546.     MOVE.L  D0,ns_sampleptr(A4)
  1547.     MOVEQ   #0,D1
  1548.     MOVE.W  n_length(A0),D1
  1549.     ADD.L   D1,D0
  1550.     ADD.L   D1,D0
  1551.     MOVE.L  D0,ns_endptr(A4)
  1552.  
  1553.     MOVE.L  n_loopstart(A0),D0
  1554.     MOVE.L  D0,ns_repeatptr(A4)
  1555.     MOVEQ   #0,D1
  1556.     MOVE.W  n_replen(A0),D1
  1557.     CMP.W   #1,D1
  1558.     BEQ.S   sconorep
  1559.     ADD.L   D1,D0
  1560.     ADD.L   D1,D0
  1561.     MOVE.L  D0,ns_rependptr(A4)
  1562.     BRA Return1
  1563. sconorep
  1564.     CLR.L   ns_repeatptr(A4)
  1565.     RTS
  1566.  
  1567. ToggleAnaScope
  1568.     TST.W   notogfl
  1569.     BNE return1
  1570.     BSR WaitForButtonUp
  1571.     MOVEQ   #0,D4
  1572.     TST.B   AnaScopFlag
  1573.     BNE.S   tasana
  1574.     ST  AnaScopFlag
  1575.     BRA RedrawAnaScope
  1576. tasana  SF  AnaScopFlag
  1577.     BRA RedrawAnaScope
  1578.  
  1579. ScopeEnable dc.b 0
  1580. AnaScopFlag dc.b 1
  1581. xBlankSample    dc.l BlankSample
  1582. SamDrawStart    dc.l 0
  1583. SamDrawEnd  dc.l 0
  1584.  
  1585. ;---- Show Free/Tune Memory ----
  1586.  
  1587. DoShowFreeMem
  1588.     MOVE.W  #1,UpdateFreeMem
  1589. ShowFreeMem
  1590.     MOVEM.L D0-D7/A0-A6,-(SP)
  1591.     TST.W   UpdateFreeMem
  1592.     BEQ.S   sfmskp
  1593.     CLR.W   UpdateFreeMem
  1594.     CLR.L   FreeMemory
  1595.     CLR.L   TuneMemory
  1596. sfmskp  BSR ShowTuneMem
  1597.     MOVEQ   #MEMF_CHIP,D1
  1598.     TST.B   ShowPublicFlag
  1599.     BEQ sfmskp2
  1600.     MOVEQ   #MEMF_PUBLIC,D1
  1601. sfmskp2 MOVE.L  4.W,A6
  1602.     JSR LVOAvailMem(A6)
  1603.     CMP.L   FreeMemory(PC),D0
  1604.     BEQ.S   fremend
  1605.     MOVE.L  D0,FreeMemory
  1606.     TST.B   ShowDecFlag
  1607.     BNE.S   shfrdec
  1608.     MOVE.L  D0,D6
  1609.     MOVE.W  #5273,TextOffset
  1610.     SWAP    D0
  1611.     AND.W   #$FF,D0
  1612.     MOVE.W  D0,WordNumber
  1613.     JSR PrintHexByte
  1614.     MOVE.W  D6,WordNumber
  1615.     JSR PrintHexWord
  1616. fremend MOVEM.L (SP)+,D0-D7/A0-A6
  1617.     RTS
  1618.  
  1619. shfrdec MOVE.L  FreeMemory(PC),D0
  1620.     MOVE.W  #5273,TextOffset
  1621.     JSR Print6DecDigits
  1622.     BRA.S   fremend
  1623.  
  1624. ShowTuneMem
  1625.     MOVE.L  SongDataPtr,A0
  1626.     LEA 42(A0),A0
  1627.     MOVE.W  TuneUp(PC),D7
  1628.     SUBQ.W  #1,D7
  1629.     MOVE.W  #31,TuneUp
  1630.     MOVEQ   #0,D0   ; Zero length
  1631. stumeloop
  1632.     MOVEQ   #0,D1
  1633.     MOVE.W  (A0),D1
  1634.     ASL.W   #1,D1
  1635.     ADD.L   D1,D0   ; Add samplelength
  1636.     ADD.L   #30,A0
  1637.     DBRA    D7,stumeloop
  1638.     ADD.L   #1084,D0    ; Add 1084 to length
  1639.     MOVE.L  SongDataPtr,A0
  1640.     MOVEQ   #127,D7
  1641.     ADD.L   #952,A0
  1642.     MOVEQ   #0,D6
  1643. stumeloop2
  1644.     MOVE.B  (A0)+,D5
  1645.     CMP.B   D5,D6
  1646.     BHI.S   stumeskip
  1647.     MOVE.B  D5,D6
  1648. stumeskip
  1649.     DBRA    D7,stumeloop2
  1650.     ADDQ.W  #1,D6
  1651.     ASL.L   #8,D6
  1652.     ASL.L   #2,D6
  1653.     ADD.L   D6,D0   ; Add 1024 x Number of patterns
  1654.     CMP.L   TuneMemory(PC),D0
  1655.     BEQ Return1
  1656.     MOVE.L  D0,TuneMemory
  1657.     TST.B   ShowDecFlag
  1658.     BNE.S   shtudec
  1659.     MOVE.L  D0,D6
  1660.     MOVE.W  #4993,TextOffset
  1661.     SWAP    D0
  1662.     AND.W   #$FF,D0
  1663.     MOVE.W  D0,WordNumber
  1664.     JSR PrintHexByte
  1665.     MOVE.W  D6,WordNumber
  1666.     JMP PrintHexWord
  1667.  
  1668. shtudec MOVE.L  TuneMemory(PC),D0
  1669.     MOVE.W  #4993,TextOffset
  1670.     JMP Print6DecDigits
  1671.  
  1672. UpdateFreeMem   dc.w    0
  1673. FreeMemory  dc.l    0
  1674. TuneMemory  dc.l    0
  1675. TuneUp      dc.w    31
  1676.  
  1677. ;---- Audio Channel Toggles ----
  1678.  
  1679. CheckToggle
  1680.     MOVE.W  MouseY2,D0
  1681.     CMP.W   #1,CurrScreen
  1682.     BNE Return1
  1683.     CMP.W   #44,D0
  1684.     BHS Return1
  1685. DoToggleMute
  1686.     CMP.W   #34,D0
  1687.     BHS.S   ToggleCh4
  1688.     CMP.W   #23,D0
  1689.     BHS.S   ToggleCh3
  1690.     CMP.W   #12,D0
  1691.     BHS.S   ToggleCh2
  1692. ToggleCh1
  1693.     LEA audchan1toggle(PC),A0
  1694.     BRA.S   TogCh
  1695. ToggleCh2
  1696.     LEA audchan2toggle(PC),A0
  1697.     BRA.S   TogCh
  1698. ToggleCh3
  1699.     LEA audchan3toggle(PC),A0
  1700.     BRA.S   TogCh
  1701. ToggleCh4
  1702.     LEA audchan4toggle(PC),A0
  1703. TogCh   CLR.B   RawKeyCode
  1704.     EOR.W   #1,(A0)
  1705.     BSR WaitForButtonUp
  1706.     CLR.W   D0
  1707.     MOVE.W  audchan4toggle(PC),D0
  1708.     LSL.B   #1,D0
  1709.     OR.W    audchan3toggle(PC),D0
  1710.     LSL.B   #1,D0
  1711.     OR.W    audchan2toggle(PC),D0
  1712.     LSL.B   #1,D0
  1713.     OR.W    audchan1toggle(PC),D0
  1714.     MOVE.W  D0,ActiveChannels
  1715.     BSR.S   RedrawToggles
  1716.     BSR Wait_4000
  1717.     BRA Wait_4000
  1718.  
  1719. RedrawToggles
  1720.     CMP.W   #1,CurrScreen
  1721.     BNE Return1
  1722.     LEA audchan1toggle(PC),A0
  1723.     BSR.S   RedrawSingleTogg
  1724.     LEA audchan2toggle(PC),A0
  1725.     BSR.S   RedrawSingleTogg
  1726.     LEA audchan3toggle(PC),A0
  1727.     BSR.S   RedrawSingleTogg
  1728.     LEA audchan4toggle(PC),A0
  1729. RedrawSingleTogg
  1730.     LEA BitplaneData,A1
  1731.     MOVEQ   #0,D0
  1732.     MOVE.W  2(A0),D0
  1733.     ADD.L   D0,A1
  1734.     MOVEQ   #0,D0
  1735.     MOVE.W  4(A0),D0
  1736.     LEA ToggleONdata,A2
  1737.     TST.W   (A0)
  1738.     BNE.S   rtskip
  1739.     LEA ToggleOFFdata,A2
  1740. rtskip  ADD.L   D0,A2
  1741.     MOVEQ   #10,D4
  1742. rtloop2 MOVE.W  88(A2),10240(A1)
  1743.     MOVE.W  (A2)+,(A1)
  1744.     LEA 40(A1),A1
  1745.     DBRA    D4,rtloop2
  1746.     RTS
  1747.  
  1748. rtdoit  MOVEQ   #10,D4
  1749. rtloop  MOVE.W  132(A2),10240(A1)
  1750.     MOVE.W  (A2)+,(A1)
  1751.     LEA 40(A1),A1
  1752.     DBRA    D4,rtloop
  1753.     RTS
  1754.  
  1755. ;---- VU Meters ----
  1756.  
  1757. VUmeters
  1758.     LEA audchan1temp,A1
  1759.     LEA VUSpriteData1,A2
  1760.     MOVE.W  audchan1toggle(PC),D0
  1761.     BSR.S   OneVUmeter
  1762.     LEA audchan2temp,A1
  1763.     LEA VUSpriteData2,A2
  1764.     MOVE.W  audchan2toggle(PC),D0
  1765.     BSR.S   OneVUmeter
  1766.     LEA audchan3temp,A1
  1767.     LEA VUSpriteData3,A2
  1768.     MOVE.W  audchan3toggle,D0
  1769.     BSR.S   OneVUmeter
  1770.     LEA audchan4temp,A1
  1771.     LEA VUSpriteData4,A2
  1772.     MOVE.W  audchan4toggle,D0
  1773. OneVUmeter
  1774.     TST.L   RunMode
  1775.     BEQ.S   VUmeterDown
  1776.     TST.W   (A1)
  1777.     BEQ.S   VUmeterDown
  1778.     TST.W   D0
  1779.     BEQ.S   VUmeterDown
  1780.     TST.L   Counter
  1781.     BNE.S   VUmeterDown
  1782.     MOVEQ   #0,D0   ; New note
  1783.     MOVE.B  n_volume(A1),D0 ; Get volume
  1784.     CMP.W   #$40,D0 ; Higher than $40 ?
  1785.     BLS.S   iccskip ; No, skip
  1786.     MOVEQ   #$40,D0 ; Yes, set to $40
  1787. iccskip LEA VUmeterHeights(PC),A3
  1788.     MOVE.B  #233,D7     ; Set to 233
  1789.     SUB.B   0(A3,D0.W),D7   ; Subtract to get new height
  1790.     MOVE.B  D7,(A2)
  1791.     RTS
  1792.  
  1793. VUmeterDown
  1794.     CMP.B   #233,(A2)
  1795.     BEQ Return1
  1796.     ADDQ.B  #1,(A2)
  1797.     RTS
  1798.  
  1799. audchan1toggle  dc.w    1,78,0
  1800. Chan1Volume dc.w    0
  1801. audchan2toggle  dc.w    1,518,$16
  1802. Chan2Volume dc.w    0
  1803. audchan3toggle  dc.w    1,958,$2C
  1804. Chan3Volume dc.w    0
  1805. audchan4toggle  dc.w    1,1398,$42
  1806. Chan4Volume dc.w    0
  1807. ActiveChannels  dc.w    15
  1808.  
  1809. VUmeterHeights
  1810.     dc.b    0,0,1,2,2,3,4,5,5,6,7,8,8,9,10,11
  1811.     dc.b    11,12,13,14,14,15,16,17,17,18,19,20,20,21,22,23
  1812.     dc.b    23,24,25,26,26,27,28,29,29,30,31,32,32,33,34,35
  1813.     dc.b    35,36,37,38,38,39,40,41,41,42,43,44,44,45,46,47
  1814.     dc.b    47,0
  1815.  
  1816. SetAnalyzerVolumes
  1817.     MOVEM.L D0-D3/A0,-(SP)
  1818.     LSL.W   #8,D2
  1819.     DIVU    #640,D2
  1820.     CMP.W   #$F0A0,A5
  1821.     BNE.S   savCh2
  1822.     TST.W   audchan1toggle
  1823.     BEQ.S   savCh2
  1824.     CMP.W   Chan1Volume,D2 ; volume
  1825.     BLO.S   savCh2
  1826.     MOVE.W  D2,Chan1Volume
  1827. savCh2  CMP.W   #$F0B0,A5
  1828.     BNE.S   savCh3
  1829.     TST.W   audchan2toggle
  1830.     BEQ.S   savCh3
  1831.     CMP.W   Chan2Volume,D2
  1832.     BLO.S   savCh3
  1833.     MOVE.W  D2,Chan2Volume
  1834. savCh3  CMP.W   #$F0C0,A5
  1835.     BNE.S   savCh4
  1836.     TST.W   audchan3toggle
  1837.     BEQ.S   savCh4
  1838.     CMP.W   Chan3Volume,D2
  1839.     BLO.S   savCh4
  1840.     MOVE.W  D2,Chan3Volume
  1841. savCh4  CMP.W   #$F0D0,A5
  1842.     BNE.S   savNone
  1843.     TST.W   audchan4toggle
  1844.     BEQ.S   savNone
  1845.     CMP.W   Chan4Volume,D2
  1846.     BLO.S   savNone
  1847.     MOVE.W  D2,Chan4Volume
  1848. savNone MOVEM.L (SP)+,D0-D3/A0
  1849.     MOVEQ   #1,D4
  1850.     RTS
  1851.  
  1852. ;---- Disk Op. ----
  1853.  
  1854. DiskOp  CLR.B   RawKeyCode
  1855.     MOVE.W  CurrScreen,D0
  1856.     CMP.W   #3,D0
  1857.     BEQ ExitFromDir
  1858.     CMP.W   #1,D0
  1859.     BNE Return1
  1860. ShowDirScreen
  1861.     BSR WaitForButtonUp
  1862.     MOVE.W  #3,CurrScreen
  1863.     ST  DisableAnalyzer
  1864.     ST  NoSampleInfo
  1865.     JSR ClearAnalyzerColors
  1866.     BSR Clear100Lines
  1867.     BSR.S   SwapDirScreen
  1868.     BEQ DisplayMainAll
  1869.     BSR ShowDiskSpace
  1870.     BSR ShowModPackMode
  1871.     BSR ShowPackMode
  1872.     BSR ShowRAWIFFmode
  1873. DoAutoDir
  1874.     TST.B   AutoDirFlag
  1875.     BEQ SelectPath
  1876.     MOVE.W  DirPathNum,D0
  1877.     BEQ LoadModuleGadg
  1878.     CMP.W   #1,D0
  1879.     BEQ LoadSongGadg
  1880.     CMP.W   #2,D0
  1881.     BEQ LoadSampleGadg
  1882.     BRA SelectModules
  1883. SelectPath
  1884.     MOVE.W  DirPathNum,D0
  1885.     BEQ SelectModules
  1886.     CMP.W   #1,D0
  1887.     BEQ SelectSongs
  1888.     BRA SelectSamples
  1889.  
  1890. SwapDirScreen
  1891.     MOVE.L  DecompMemPtr,D0
  1892.     BEQ.S   sdirs2
  1893.     MOVE.L  D0,A1
  1894.     BSR.S   ssets3
  1895.     BRA FreeDecompMem
  1896. sdirs2  LEA DirScreenData,A0
  1897.     MOVE.L  #DirScreenSize,D0
  1898.     BSR Decompact
  1899.     BEQ Return1
  1900. ssets3  LEA BitplaneData,A0
  1901.     MOVEQ   #1,D2
  1902. sxloop1 MOVE.W  #999,D0
  1903. sxloop2 MOVE.L  (A0),D1
  1904.     MOVE.L  (A1),(A0)+
  1905.     MOVE.L  D1,(A1)+
  1906.     DBRA    D0,sxloop2
  1907.     LEA 6240(A0),A0
  1908.     DBRA    D2,sxloop1
  1909.     RTS
  1910.  
  1911. CheckDirGadgets
  1912.     MOVEM.W MouseX2,D0/D1
  1913.     CMP.W   #44,D1
  1914.     BHI CheckDirGadgets2
  1915.     CMP.W   #33,D1
  1916.     BLS.S   ExtrasMenu
  1917.     CMP.W   #11,D0
  1918.     BLO DirBrowseGadg
  1919.     CMP.W   #187,D0
  1920.     BLO DirPathGadg
  1921.     CMP.W   #216,D0
  1922.     BLO ParentDirGadg
  1923.     CMP.W   #307,D0
  1924.     BLO ShowFreeDiskGadg
  1925.     BRA CheckDirGadgets2
  1926.  
  1927. ExtrasMenu
  1928.     CMP.W   #94,D0
  1929.     BHS ToggleMenu
  1930.     CMP.W   #22,D1
  1931.     BHI.S   DeleteFileGadg
  1932.     CMP.W   #11,D1
  1933.     BHI.S   RenameFileGadg
  1934.     BRA DiskFormatGadg
  1935.  
  1936. RenameFileGadg
  1937.     BSR StorePtrCol
  1938.     BSR WaitForButtonUp
  1939.     BSR ClearFileNames
  1940.     MOVE.L  PathPtr,A4
  1941.     BSR ShowDirPath
  1942.     LEA FileNamesPtr(PC),A5
  1943.     BSR HasDiskChanged
  1944.     BEQ.S   RenameFileDirOk
  1945.     BSR ClearDirTotal
  1946.     BSR DirDisk
  1947.     BNE RestorePtrCol
  1948.  
  1949. RenameFileDirOk
  1950.     MOVE.W  FileNameScrollPos,D0
  1951.     BSR RedrawFileNames
  1952.     MOVE.W  #10,Action
  1953.     LEA SelectFileText,A0
  1954.     JSR ShowStatusText
  1955.     BRA RestorePtrCol
  1956.  
  1957. DeleteFileGadg
  1958.     MOVE.W  DirPathNum,D0
  1959.     BEQ DeleteModuleGadg
  1960.     CMP.W   #1,D0
  1961.     BEQ DeleteSongGadg
  1962.     CMP.W   #2,D0
  1963.     BEQ DeleteSampleGadg
  1964.     RTS
  1965.  
  1966. ToggleMenu
  1967.     CMP.W   #146,D0
  1968.     BHS SelectMenu
  1969.     CMP.W   #22,D1
  1970.     BHI ToggleIFFSave
  1971.     CMP.W   #11,D1
  1972.     BHI.S   ToggleSongPack
  1973. ToggleModPack
  1974.     CLR.B   ModPackMode
  1975.     BSR ShowNotImpl
  1976. ShowModPackMode
  1977.     LEA ToggleOFFText(PC),A0
  1978.     TST.B   ModPackMode
  1979.     BEQ.S   smpmskp
  1980.     LEA ToggleONText2(PC),A0
  1981. smpmskp MOVEQ   #3,D0
  1982.     MOVE.W  #175,D1
  1983.     JSR ShowText3
  1984.     BRA WaitForButtonUp
  1985.  
  1986. ShowNotImpl
  1987.     LEA NotImplText(PC),A0
  1988.     JSR ShowStatusText
  1989.     BRA SetErrorPtrCol
  1990.  
  1991. NotImplText dc.b    'Not implemented',0
  1992.  
  1993. ToggleSongPack
  1994.     EOR.B   #1,PackMode
  1995. ShowPackMode
  1996.     LEA ToggleOFFText(PC),A0
  1997.     TST.B   PackMode
  1998.     BEQ.S   spsskip
  1999.     LEA ToggleONText2(PC),A0
  2000. spsskip MOVEQ   #3,D0
  2001.     MOVE.W  #615,D1
  2002.     JSR ShowText3
  2003.     BRA WaitForButtonUp
  2004.  
  2005. ToggleIFFSave
  2006.     EOR.B   #1,RAWIFFMode
  2007. ShowRAWIFFMode
  2008.     LEA RAWText(PC),A0
  2009.     TST.B   RAWIFFMode
  2010.     BEQ.S   sraffu
  2011.     LEA IFFText(PC),A0
  2012. sraffu  MOVEQ   #3,D0
  2013.     MOVE.W  #1055,D1
  2014.     JSR ShowText3
  2015.     BRA WaitForButtonUp
  2016.  
  2017. RAWText dc.b "RAW",0
  2018. IFFText dc.b "IFF",0
  2019.  
  2020. SelectMenu
  2021.     CMP.W   #156,D0
  2022.     BHS LoadMenu
  2023.     CMP.W   #22,D1
  2024.     BHI SelectSamples
  2025.     CMP.W   #11,D1
  2026.     BHI SelectSongs
  2027.     BRA SelectModules
  2028.  
  2029. LoadMenu
  2030.     CMP.W   #238,D0
  2031.     BHS.S   SaveMenu
  2032.     CMP.W   #22,D1
  2033.     BHI LoadSampleGadg
  2034.     CMP.W   #11,D1
  2035.     BHI LoadSongGadg
  2036.     BRA LoadModuleGadg
  2037.  
  2038. SaveMenu
  2039.     CMP.W   #22,D1
  2040.     BHI SaveSampleGadg
  2041.     CMP.W   #11,D1
  2042.     BHI SaveSongGadg
  2043.     BRA SaveModuleGadg
  2044.  
  2045. CheckDirGadgets2
  2046.     MOVEM.W MouseX2,D0/D1
  2047.     CMP.W   #3,CurrScreen
  2048.     BNE Return1
  2049.     CMP.W   #307,D0
  2050.     BLO FileNamePressed
  2051.     CMP.W   #44,D1
  2052.     BLS FileNameOneUp
  2053.     CMP.W   #89,D1
  2054.     BLO.S   ExitFromDir
  2055.     BRA FileNameOneDown
  2056.  
  2057. ExitFromDir
  2058.     BSR WaitForButtonUp
  2059.     CLR.B   RawKeyCode
  2060.     BSR SwapDirScreen
  2061.     BSR Clear100Lines
  2062. DisplayMainAll
  2063.     BSR DisplayMainScreen
  2064.     JSR ShowSongLength
  2065.     JSR ShowSampleInfo
  2066.     JSR ShowSongName
  2067.     BSR Show_MS
  2068.     TST.W   LoadInProgress
  2069.     BNE.S   dimaskp
  2070.     JSR ShowAllRight
  2071. dimaskp JMP ShowPosition
  2072.  
  2073. DirBrowseGadg
  2074.     MOVEQ   #0,D3
  2075.     MOVE.W  DirPathNum,D3
  2076.     LEA dpnum(PC),A0
  2077.     ADD.L   D3,A0
  2078.     MOVEQ   #0,D0
  2079.     MOVE.B  (A0),D0
  2080.     ADDQ.B  #1,D0
  2081.     CMP.B   #7,D0
  2082.     BLO.S   dbgskip
  2083.     MOVEQ   #0,D0
  2084. dbgskip MOVE.B  D0,(A0)
  2085.     MULU    #5,D0
  2086.     MOVE.L  PathPtr,A0
  2087.     MOVEQ   #63,D1
  2088.     MOVEQ   #0,D2
  2089. dbglop1 MOVE.B  D2,(A0)+
  2090.     DBRA    D1,dbglop1
  2091.     LEA dirpaths(PC),A0
  2092.     LEA -5(A0,D0.W),A0
  2093.     TST.W   D0
  2094.     BNE.S   dbgskp2
  2095.     LEA ModulesPath,A0
  2096.     TST.W   D3
  2097.     BEQ.S   dbgskp2
  2098.     LEA SongsPath,A0
  2099.     CMP.W   #1,D3
  2100.     BEQ.S   dbgskp2
  2101.     LEA SamplePath,A0
  2102. dbgskp2 MOVE.L  PathPtr,A1
  2103. dbglop2 MOVE.B  (A0)+,(A1)+
  2104.     BNE.S   dbglop2
  2105.     BSR ShowDirPath
  2106.     MOVE.W  #3,WaitTime
  2107.     BRA WaitALittle
  2108.  
  2109. dirpaths
  2110.     dc.b "DF0:",0,"DF1:",0,"DH0:",0,"DH1:",0,"RAM:",0,"ST-00:",0
  2111. dpnum   dc.b 0,0,0,0
  2112. DirPathNum
  2113.     dc.w 3
  2114.  
  2115. SelectModules
  2116.     MOVEQ   #0,D0
  2117.     BRA.S   ChangePath
  2118. SelectSongs
  2119.     MOVEQ   #1,D0
  2120.     BRA.S   ChangePath
  2121. SelectSamples
  2122.     MOVEQ   #2,D0
  2123. ChangePath
  2124.     MOVE.L  TextBplPtr,A0
  2125.     LEA 178(A0),A0
  2126.     MOVEQ   #0,D2
  2127.     MOVEQ   #26,D1
  2128. chpalop MOVE.W  D2,(A0)
  2129.     LEA 40(A0),A0
  2130.     DBRA    D1,chpalop
  2131.     LEA ModulesPath2,A4
  2132.     MOVE.W  #178,D1
  2133.     MOVE.W  D0,DirPathNum
  2134.     BEQ.S   chpaski
  2135.     LEA SongsPath2,A4
  2136.     MOVE.W  #618,D1
  2137.     CMP.W   #1,D0
  2138.     BEQ.S   chpaski
  2139.     LEA SamplePath2,A4
  2140.     MOVE.W  #1058,D1
  2141. chpaski MOVE.L  TextBplPtr,A0
  2142.     LEA (A0,D1.W),A0
  2143.     MOVE.W  #$0100,(A0)
  2144.     MOVE.W  #$0F80,40(A0)
  2145.     MOVE.W  #$0FC0,80(A0)
  2146.     MOVE.W  #$0F80,120(A0)
  2147.     MOVE.W  #$0100,160(A0)
  2148.     MOVE.L  A4,PathPtr
  2149.     BSR ShowDirPath
  2150.     BRA WaitForButtonUp
  2151.  
  2152. ;---- Song Gadgets ----
  2153.  
  2154. LoadSongGadg
  2155.     BSR StorePtrCol
  2156.     BSR WaitForButtonUp
  2157.     BSR ClearFileNames
  2158.     BSR SelectSongs
  2159.     LEA FileNamesPtr(PC),A5
  2160.     BSR HasDiskChanged
  2161.     BEQ LoadSongDirOk
  2162.     BSR ClearDirTotal
  2163.     BSR DirDisk
  2164.     BNE RestorePtrCol
  2165. LoadSongDirOk
  2166.     MOVE.W  FileNameScrollPos,D0
  2167.     BSR RedrawFileNames
  2168.     MOVE.W  #1,Action
  2169.     LEA SelectSongText,A0
  2170.     JSR ShowStatusText
  2171.     BRA RestorePtrCol
  2172.  
  2173. SaveSongGadg
  2174.     BSR SelectSongs
  2175.     LEA SaveSongText,A0
  2176.     BSR AreYouSure
  2177.     BNE Return1
  2178.     BSR RestorePtrCol
  2179.     BSR ClearFileNames
  2180.     BSR StopIt
  2181.     JSR SaveSong
  2182.     MOVE.W  #1,Action
  2183.     RTS
  2184.  
  2185. DeleteSongGadg
  2186.     BSR WaitForButtonUp
  2187.     BSR ClearFileNames
  2188.     BSR SelectSongs
  2189.     LEA FileNamesPtr(PC),A5
  2190.     BSR HasDiskChanged
  2191.     BEQ.S   DeleteSongDirOk
  2192.     BSR ClearDirTotal
  2193.     BSR DirDisk
  2194.     BEQ.S   DeleteSongDirOk
  2195.     BRA RestorePtrCol
  2196.  
  2197. DeleteSongDirOk
  2198.     MOVE.W  FileNameScrollPos,D0
  2199.     BSR RedrawFileNames
  2200.     MOVE.W  #2,Action
  2201.     LEA SelectSongText,A0
  2202.     JSR ShowStatusText
  2203.     BRA SetDeletePtrCol
  2204.  
  2205. ;---- Module Gadgets ----
  2206.  
  2207. LoadModuleGadg
  2208.     BSR StorePtrCol
  2209.     BSR WaitForButtonUp
  2210.     BSR ClearFileNames
  2211.     BSR SelectModules
  2212.     LEA FileNamesPtr(PC),A5
  2213.     BSR HasDiskChanged
  2214.     BEQ.S   LoadModDirOk
  2215.     BSR ClearDirTotal
  2216.     BSR DirDisk
  2217.     BEQ.S   LoadModDirOk
  2218.     BRA RestorePtrCol
  2219.  
  2220. LoadModDirOk
  2221.     MOVE.W  FileNameScrollPos,D0
  2222.     BSR RedrawFileNames
  2223.     MOVE.W  #3,Action
  2224.     LEA SelectModuleText,A0
  2225.     JSR ShowStatusText
  2226.     BRA RestorePtrCol
  2227.  
  2228. SaveModuleGadg
  2229.     BSR SelectModules
  2230.     LEA SaveModuleText,A0
  2231.     BSR AreYouSure
  2232.     BNE Return1
  2233.     JSR SaveModule
  2234.     MOVE.W  #3,Action
  2235.     JMP ShowAllRight
  2236.  
  2237. DeleteModuleGadg
  2238.     BSR WaitForButtonUp
  2239.     BSR ClearFileNames
  2240.     BSR SelectModules
  2241.     LEA FileNamesPtr(PC),A5
  2242.     BSR HasDiskChanged
  2243.     BEQ.S   DeleteModDirOk
  2244.     BSR ClearDirTotal
  2245.     BSR DirDisk
  2246.     BEQ.S   DeleteModDirOk
  2247.     BRA RestorePtrCol
  2248.  
  2249. DeleteModDirOk
  2250.     MOVE.W  FileNameScrollPos(PC),D0
  2251.     BSR RedrawFileNames
  2252.     MOVE.W  #4,Action
  2253.     LEA SelectModuleText,A0
  2254.     JSR ShowStatusText
  2255.     BRA SetDeletePtrCol
  2256.  
  2257. ;---- Sample Gadgets ----
  2258.  
  2259. LoadSampleGadg
  2260.     BSR StorePtrCol
  2261.     BSR WaitForButtonUp
  2262.     BSR ClearFileNames
  2263.     BSR SelectSamples
  2264.     LEA FileNamesPtr(PC),A5
  2265.     BSR HasDiskChanged
  2266.     BEQ.S   LoadSampleDirOk
  2267.     BSR ClearDirTotal
  2268.     BSR DirDisk
  2269.     BEQ.S   LoadSampleDirOk
  2270.     BRA RestorePtrCol
  2271.  
  2272. LoadSampleDirOk
  2273.     MOVE.W  FileNameScrollPos,D0
  2274.     BSR RedrawFileNames
  2275.     MOVE.W  #5,Action
  2276.     LEA SelectSampleText,A0
  2277.     JSR ShowStatusText
  2278.     BRA RestorePtrCol
  2279.  
  2280. SaveSampleGadg
  2281.     BSR SelectSamples
  2282.     CLR.B   RawKeyCode
  2283.     MOVE.W  InsNum,D0
  2284.     BEQ NotSampleNull
  2285.     LEA SaveSampleText,A0
  2286.     BSR AreYouSure
  2287.     BNE Return1
  2288.     BSR StorePtrCol
  2289.     BSR CreateSampleName
  2290.     MOVEQ   #0,D1
  2291.     MOVE.W  InsNum,D1
  2292.     LSL.L   #2,D1
  2293.     LEA SamplePtrs,A0
  2294.     MOVE.L  0(A0,D1.W),DiskDataPtr
  2295.  
  2296.     BSR SetDiskPtrCol
  2297.     MOVE.L  DOSbase,A6
  2298.     MOVE.L  FileNamePtr,D1
  2299.     MOVE.L  #1006,D2
  2300.     JSR LVOOpen(A6)
  2301.     MOVE.L  D0,FileHandle
  2302.     BNE SaveSample
  2303.     JSR CantOpenFile
  2304.     BRA ErrorRestoreCol
  2305.  
  2306. SaveSample
  2307.     LEA SavingSampleText,A0
  2308.     JSR ShowStatusText
  2309.     TST.B   RAWIFFMode
  2310.     BEQ savesam
  2311.     MOVE.L  FileHandle,D1
  2312.     MOVE.L  #IFFFORM,D2
  2313.     MOVEQ   #IFFEND-IFFFORM,D3
  2314.     JSR LVOWrite(A6)
  2315. savesam MOVE.L  FileHandle,D1
  2316.     MOVE.L  DiskDataPtr,D2
  2317.     MOVE.L  DiskDataLength,D3
  2318.     JSR LVOWrite(A6)
  2319.  
  2320.     MOVE.L  FileHandle,D1
  2321.     JSR LVOClose(A6)
  2322.     CLR.L   FileHandle
  2323.     MOVE.W  #5,Action
  2324.     JSR ShowAllRight
  2325.     BRA RestorePtrCol
  2326.  
  2327. IFFFORM dc.b    "FORM"
  2328.     dc.l    0
  2329.     dc.b    "8SVX"
  2330. IFFVHDR dc.b    "VHDR"
  2331.     dc.l    20
  2332.     dc.l    0,0,32  ; oneshot, repeat, hisamples
  2333.     dc.w    16726   ; This is really NTSC (16574 for PAL!!!)
  2334.     dc.b    1,0 ; octaves, compression
  2335.     dc.l    $10000  ; volume
  2336. IFFNAME dc.b    "NAME"
  2337.     dc.l    24
  2338.     dcb.b   24,0
  2339.     dc.b    "ANNO"
  2340.     dc.l    16
  2341.     dc.b    "Protracker 2.0A",0
  2342. IFFBODY dc.b    "BODY"
  2343.     dc.l    0
  2344. IFFEND
  2345.  
  2346.  
  2347. ;---- Delete Sample ----
  2348.  
  2349. DeleteSampleGadg
  2350.     BSR StorePtrCol
  2351.     BSR WaitForButtonUp
  2352.     BSR ClearFileNames
  2353.     BSR SelectSamples
  2354.     LEA FileNamesPtr(PC),A5
  2355.     BSR HasDiskChanged
  2356.     BEQ.S   DeleteSamDirOk
  2357.     BSR ClearDirTotal
  2358.     BSR DirDisk
  2359.     BEQ.S   DeleteSamDirOk
  2360.     BRA RestorePtrCol
  2361.  
  2362. DeleteSamDirOk
  2363.     MOVE.W  FileNameScrollPos(PC),D0
  2364.     BSR RedrawFileNames
  2365.     MOVE.W  #6,Action
  2366.     LEA SelectSampleText,A0
  2367.     JSR ShowStatusText
  2368.     BRA SetDeletePtrCol
  2369.  
  2370. ;---- Directory Path Gadget ----
  2371.  
  2372. DirPathGadg
  2373.     BSR StorePtrCol
  2374.     BSR SetWaitPtrCol
  2375.     MOVE.L  PathPtr,A6
  2376.     MOVE.L  A6,ShowTextPtr
  2377.     MOVE.L  A6,TextEndPtr
  2378.     ADD.L   #63,TextEndPtr
  2379.     MOVE.W  #19,TextLength
  2380.     MOVE.W  #1484,A4
  2381.     BSR GetTextLine
  2382.     BRA RestorePtrCol
  2383.  
  2384.  
  2385. CopyPath
  2386.     LEA FileName,A1
  2387.     TST.B   (A0)        ; If no path
  2388.     BEQ Return1
  2389. cploop  MOVE.B  (A0)+,(A1)+ ; Copy path to filename
  2390.     BNE.S   cploop
  2391.     CMP.B   #':',-2(A1) ; If ending with ':' it's ok
  2392.     BEQ.S   PathCharBack
  2393.     CMP.B   #'/',-2(A1) ; If ending with '/' it's ok
  2394.     BEQ.S   PathCharBack
  2395.     MOVE.B  #'/',-1(A1) ; Add '/' to end path
  2396.     RTS
  2397.  
  2398. PathCharBack
  2399.     SUBQ.L  #1,A1
  2400.     RTS
  2401.  
  2402. ShowDirPath
  2403.     CMP.W   #3,CurrScreen
  2404.     BNE Return1
  2405.     MOVEM.L D0-D7/A0-A6,-(SP)
  2406.     MOVE.L  PathPtr,A0
  2407.     MOVEQ   #19,D0
  2408.     MOVE.W  #1484,D1
  2409.     JSR ShowText3
  2410.     MOVEM.L (SP)+,D0-D7/A0-A6
  2411.     RTS
  2412.  
  2413. ;---- File List Gadgets ----
  2414.  
  2415. FileNameOneUp
  2416.     TST.W   Action
  2417.     BEQ Return1
  2418.     LEA FileNamesPtr(PC),A5
  2419.     MOVE.W  FileNameScrollPos(PC),D0
  2420.     BEQ Return1
  2421.     SUBQ.W  #1,D0
  2422.     BTST    #2,$DFF016
  2423.     BNE RedrawFileNames
  2424.     SUBQ.W  #3,D0
  2425.     BPL RedrawFileNames
  2426.     MOVEQ   #0,D0
  2427.     BRA RedrawFileNames
  2428.  
  2429. FileNameOneDown
  2430.     TST.W   Action
  2431.     BEQ Return1
  2432.     LEA FileNamesPtr(PC),A5
  2433.     MOVE.W  FileNameScrollPos(PC),D0
  2434.     ADDQ.W  #1,D0
  2435.     BTST    #2,$DFF016
  2436.     BNE.S   fnod2
  2437.     ADDQ.W  #3,D0
  2438. fnod2   MOVE.W  16(A5),D1
  2439.     SUBQ.W  #8,D1
  2440.     BMI Return1
  2441.     CMP.W   D1,D0
  2442.     BLS RedrawFileNames
  2443.     MOVE.W  D1,D0
  2444.     BRA RedrawFileNames
  2445.  
  2446. ;---- Clicked on a filename ----
  2447.  
  2448. FileNamePressed
  2449.     SUB.W   #44,D1
  2450.     MOVE.W  #1,UpdateFreeMem
  2451.     TST.W   Action
  2452.     BEQ Return1
  2453.     CMP.W   #3,D1
  2454.     BLO Return1
  2455.     CMP.W   #50,D1
  2456.     BHI Return1
  2457.     SUBQ.W  #3,D1
  2458.     AND.L   #$FFFF,D1
  2459.     DIVU    #6,D1
  2460.     MOVE.W  D1,FileNameScrollPos+2
  2461.     LEA FileNamesPtr(PC),A5
  2462.     MOVE.W  FileNameScrollPos(PC),D0
  2463.     ADD.W   D1,D0
  2464.     CMP.W   16(A5),D0
  2465.     BHS Return1
  2466.     MULU    #36,D0
  2467.     ADD.L   (A5),D0
  2468.     MOVE.L  D0,A0
  2469.     TST.L   32(A0)
  2470.     BMI.S   AddDirectory
  2471.     MOVEQ   #DirNameLength-1,D0
  2472.     LEA DirInputName,A1
  2473. fnploop MOVE.B  (A0)+,(A1)+
  2474.     DBRA    D0,fnploop
  2475.     MOVE.W  Action,D6
  2476.     CMP.W   #1,D6
  2477.     BEQ LoadSong
  2478.     CMP.W   #2,D6
  2479.     BEQ DeleteSong
  2480.     CMP.W   #3,D6
  2481.     BEQ xLoadModule
  2482.     CMP.W   #4,D6
  2483.     BEQ DeleteModule
  2484.     CMP.W   #5,D6
  2485.     BEQ LoadSample
  2486.     CMP.W   #6,D6
  2487.     BEQ DeleteSample
  2488.     CMP.W   #10,D6
  2489.     BEQ RenameFile
  2490.     RTS
  2491.  
  2492. xLoadModule JMP LoadModule
  2493.  
  2494. AddDirectory
  2495.     MOVE.L  A0,-(SP)
  2496.     MOVE.L  PathPtr,A0
  2497.     BSR CopyPath
  2498.     MOVE.L  (SP)+,A0
  2499.     MOVEQ   #DirNameLength-1,D0
  2500. addplop MOVE.B  (A0)+,(A1)+
  2501.     DBRA    D0,addplop
  2502.     LEA FileName,A0
  2503.     MOVE.L  PathPtr,A1
  2504.     MOVEQ   #62,D0
  2505. addplp2 MOVE.B  (A0)+,(A1)+
  2506.     DBRA    D0,addplp2
  2507. addpdir BSR ShowDirPath
  2508.     MOVE.W  Action,D6
  2509.     CMP.W   #1,D6
  2510.     BEQ LoadSongGadg
  2511.     CMP.W   #2,D6
  2512.     BEQ DeleteSongGadg
  2513.     CMP.W   #3,D6
  2514.     BEQ LoadModuleGadg
  2515.     CMP.W   #4,D6
  2516.     BEQ DeleteModuleGadg
  2517.     CMP.W   #5,D6
  2518.     BEQ LoadSampleGadg
  2519.     CMP.W   #6,D6
  2520.     BEQ DeleteSampleGadg
  2521.     CMP.W   #10,D6
  2522.     BEQ RenameFileGadg
  2523.     RTS
  2524.  
  2525. ParentDirGadg
  2526.     BSR WaitForButtonUp
  2527.     MOVE.L  PathPtr,A0
  2528.     MOVE.L  A0,A1
  2529. pdgloop TST.B   (A1)+
  2530.     BNE.S   pdgloop
  2531.     SUBQ.L  #1,A1
  2532.     CMP.L   A0,A1
  2533.     BLS Return1
  2534.     SUBQ.L  #1,A1
  2535.     CMP.B   #'/',(A1)
  2536.     BNE.S   pdgskp1
  2537.     CLR.B   (A1)
  2538. pdgskp1 CMP.B   #':',(A1)
  2539.     BEQ.S   addpdir
  2540.     CMP.B   #'/',(A1)
  2541.     BEQ pdgslsh
  2542.     CLR.B   (A1)
  2543.     CMP.L   A0,A1
  2544.     BLS.S   addpdir
  2545.     SUBQ.L  #1,A1
  2546.     BRA.S   pdgskp1
  2547.  
  2548. pdgslsh CLR.B   (A1)
  2549.     BRA addpdir
  2550.  
  2551. FileNamesPtr
  2552.     dc.l    0  ; A5+ 0
  2553.     dc.l    0  ;   + 4
  2554.     dc.l    0  ;   + 8
  2555.     dc.l    0  ;   +12
  2556.     dc.w    0  ;   +16
  2557.     dc.w    24 ;   +18
  2558. FileNameScrollPos
  2559.     dc.w    0
  2560.     dc.w    0
  2561.  
  2562. ;---- Has Disk Changed ----
  2563.  
  2564. HasDiskChanged
  2565.     MOVE.L  DOSbase,A6
  2566.     MOVE.L  A4,D1
  2567.     MOVEQ   #-2,D2
  2568.     JSR LVOLock(A6)
  2569.     MOVE.L  D0,FileLock
  2570.     BEQ.S   ExamineError
  2571.     MOVE.L  FileLock,D1
  2572.     MOVE.L  #FileInfoBlock,D2
  2573.     JSR LVOExamine(A6)
  2574.     TST.L   D0
  2575.     BEQ.S   ExamineError
  2576.     LEA FileInfoBlock,A0
  2577.     MOVE.L  ofib_DateStamp+ds_Days(A0),D0
  2578.     CMP.L   4(A5),D0
  2579.     BNE.S   DiskChanged
  2580.     MOVE.L  ofib_DateStamp+ds_Minute(A0),D0
  2581.     CMP.L   8(A5),D0
  2582.     BNE.S   DiskChanged
  2583.     MOVE.L  ofib_DateStamp+ds_Tick(A0),D0
  2584.     CMP.L   12(A5),D0
  2585.     BNE.S   DiskChanged
  2586.     MOVE.L  FileLock,D1
  2587.     JSR LVOUnLock(A6)
  2588.     MOVEQ   #0,D0
  2589.     RTS
  2590.  
  2591. DiskChanged
  2592.     MOVE.L  ofib_DateStamp+ds_Days(A0),4(A5)
  2593.     MOVE.L  ofib_DateStamp+ds_Minute(A0),8(A5)
  2594.     MOVE.L  ofib_DateStamp+ds_Tick(A0),12(A5)
  2595.     MOVE.L  FileLock,D1
  2596.     JSR LVOUnLock(A6)
  2597.     MOVEQ   #-1,D0
  2598.     RTS
  2599.  
  2600. ExamineError
  2601.     CLR.L   4(A5)
  2602.     MOVEQ   #-1,D0
  2603.     RTS
  2604.  
  2605. ShowFreeDiskGadg
  2606.     BSR WaitForButtonUp
  2607.     BSR.S   LockAndGetInfo
  2608.     BSR DirDiskUnlock
  2609.     JMP ShowAllRight
  2610.  
  2611. LockAndGetInfo
  2612.     BSR StorePtrCol
  2613.     BSR SetDiskPtrCol
  2614.     CLR.W   FileNameScrollPos
  2615.     MOVE.L  DOSbase,A6
  2616.     MOVE.L  A4,D1   ; Dir-path in A4
  2617.     MOVEQ   #-2,D2
  2618.     JSR LVOLock(A6)
  2619.     MOVE.L  D0,FileLock
  2620.     BEQ DirDiskError
  2621.     LEA ReadingDirText,A0
  2622.     JSR ShowStatusText
  2623.     MOVE.L  FileLock,D1
  2624.     MOVE.L  #InfoData,D2
  2625.     JSR LVOInfo(A6)
  2626.     LEA InfoData,A0
  2627.     MOVE.L  12(A0),D0 ; id_NumBlocks
  2628.     SUB.L   16(A0),D0 ; id_NumBlocksUsed
  2629.     MULU    22(A0),D0 ; id_BytesPerBlock + 2
  2630.     MOVE.L  D0,FreeDiskSpace
  2631. ShowDiskSpace
  2632.     MOVE.W  #1510,TextOffset
  2633.     MOVE.L  FreeDiskSpace,D7
  2634.     TST.B   ShowDecFlag
  2635.     BNE.S   sdsdec
  2636.     SWAP    D7
  2637.     MOVE.W  D7,WordNumber
  2638.     JSR PrintHexWord
  2639.     SWAP    D7
  2640.     MOVE.W  D7,WordNumber
  2641.     JSR PrintHexWord
  2642.     MOVEQ   #0,D0
  2643.     RTS
  2644.  
  2645. sdsdec  DIVU    #10000,D7
  2646.     MOVE.W  D7,WordNumber
  2647.     JSR Print4DecDigits
  2648.     SWAP    D7
  2649.     MOVE.W  D7,WordNumber
  2650.     JSR Print4DecDigits
  2651.     MOVEQ   #0,D0
  2652.     RTS
  2653.  
  2654. ;---- Get Disk Directory ----
  2655.  
  2656. AllocDirMem
  2657.     ADD.W   #50,DirEntries
  2658.     MOVE.W  DirEntries,D0
  2659.     MULU    #36,D0
  2660.     MOVE.L  DirAllocSize(PC),D6
  2661.     MOVE.L  D0,DirAllocSize
  2662.     MOVE.L  #MEMF_PUBLIC!MEMF_CLEAR,D1
  2663.     MOVE.L  4.W,A6
  2664.     JSR LVOAllocMem(A6)
  2665.     MOVE.L  D0,D7
  2666.     BEQ.S   baehsj
  2667.  
  2668.     MOVE.L  FileNamesPtr(PC),D1
  2669.     MOVE.L  D7,FileNamesPtr
  2670.     TST.L   D1
  2671.     BEQ Return1
  2672.     TST.L   D6
  2673.     BEQ Return1
  2674.     MOVE.L  D1,A0
  2675.     MOVE.L  D7,A1
  2676.     MOVE.L  D6,D0
  2677. admloop MOVE.B  (A0)+,(A1)+
  2678.     SUBQ.L  #1,D6
  2679.     BNE.S   admloop
  2680.     MOVE.L  D1,A1
  2681.     MOVE.L  4.W,A6
  2682.     JSR LVOFreeMem(A6)
  2683.     RTS
  2684.  
  2685. FreeDirMem
  2686.     MOVE.L  FileNamesPtr(PC),D1
  2687.     BEQ Return1
  2688.     MOVE.L  D1,A1
  2689.     MOVE.L  DirAllocSize(PC),D0
  2690.     MOVE.L  4.W,A6
  2691.     JSR LVOFreeMem(A6)
  2692.     CLR.L   FileNamesPtr
  2693.     CLR.W   DirAllocSize
  2694.     CLR.W   DirEntries
  2695.     RTS
  2696.  
  2697. baehsj  BSR OutOfMemErr
  2698.     MOVEQ   #-1,D0
  2699.     RTS
  2700.  
  2701. DirAllocSize    dc.l    0
  2702. DirEntries  dc.w    0
  2703.  
  2704. DirDisk BSR FreeDirMem
  2705.     BSR AllocDirMem
  2706.     BSR LockAndGetInfo
  2707.     BNE Return1
  2708.     MOVE.L  FileLock,D1
  2709.     MOVE.L  #FileInfoBlock,D2
  2710.     JSR LVOExamine(A6)
  2711.     TST.L   D0
  2712.     BEQ DirDiskError
  2713. ddloop1 MOVE.L  FileLock,D1
  2714.     MOVE.L  #FileInfoBlock,D2
  2715.     MOVE.L  DOSBase,A6
  2716.     JSR LVOExNext(A6)
  2717.     TST.L   D0
  2718.     BEQ DirDiskUnlock
  2719.     BTST    #2,$DFF016
  2720.     BEQ.S   AbortDir
  2721.     BSR NewDirEntry
  2722.     BRA.S   ddloop1
  2723.  
  2724. AbortDir
  2725.     CLR.L   4(A5)
  2726.     LEA DirAbortedText(PC),A0
  2727.     JSR ShowStatusText
  2728.     BSR.S   DirDiskUnlock
  2729.     BSR WaitALittle
  2730.     JSR ShowAllRight
  2731.     MOVEQ   #0,D0
  2732.     RTS
  2733.  
  2734. DirDiskUnlock
  2735.     MOVE.L  FileLock,D1
  2736.     JSR LVOUnLock(A6)
  2737.     BSR RestorePtrCol
  2738.     MOVEQ   #0,D0
  2739.     RTS
  2740.  
  2741. DirAbortedText  dc.b 'dir aborted !',0
  2742.  
  2743. DirDiskError
  2744.     TST.L   FileLock
  2745.     BEQ.S   ddeskip
  2746.     MOVE.L  FileLock,D1
  2747.     JSR LVOUnLock(A6)
  2748. ddeskip BSR RestorePtrCol
  2749.     LEA CantFindDirText,A0
  2750.     JSR ShowStatusText
  2751.     BSR SetErrorPtrCol
  2752.     MOVEQ   #-1,D0
  2753.     RTS
  2754.  
  2755. ClearDirTotal
  2756.     CLR.W   16(A5)
  2757.     RTS
  2758.  
  2759. CantFindDirText dc.b "can't find dir !",0,0
  2760.  
  2761.  
  2762. NewDirEntry
  2763.     LEA FIB_FileName,A0
  2764.     TST.B   ShowDirsFlag
  2765.     BNE.S   ndeok1
  2766.     TST.L   FIB_EntryType
  2767.     BPL Return1
  2768. ndeok1  TST.L   FIB_EntryType
  2769.     BPL ndeok2
  2770.     TST.B   ModOnlyFlag
  2771.     BEQ.S   ndeok2
  2772.     TST.W   DirPathNum
  2773.     BNE.S   ndeok2
  2774.     MOVE.L  (A0),D0
  2775.     AND.L   #$CFCFCFCF,D0
  2776.     CMP.L   #$4D4F440E,D0 ; MOD.
  2777.     BNE Return1
  2778. ndeok2  MOVE.W  16(A5),D0
  2779.     CMP.W   DirEntries,D0
  2780.     BLO.S   ndeok3
  2781.     MOVE.L  A0,-(SP)
  2782.     BSR AllocDirMem
  2783.     MOVE.L  (SP)+,A0
  2784. ndeok3  MOVE.W  16(A5),D6
  2785.     BEQ.S   ndeadd1     ; If first entry
  2786.     SUBQ.W  #1,D6
  2787.     MOVE.L  (A5),A1
  2788. ndeloopname
  2789.     MOVEQ   #0,D2
  2790.     MOVE.L  FIB_EntryType,D0
  2791.     MOVE.L  32(A1),D1
  2792.     TST.L   D0
  2793.     BPL.S   ndesfil ; if directory, all is well
  2794.     TST.L   D1
  2795.     BMI.S   ndenext ; was file, so skip if directory
  2796.     BRA.S   ndelopc
  2797. ndesfil TST.L   D1  ; if file
  2798.     BPL.S   ndeinse
  2799. ndelopc MOVE.B  (A0,D2.W),D0 ; Get a character
  2800.     BEQ.S   ndeinse
  2801.     CMP.B   #96,D0  ; Lowercase?
  2802.     BLO.S   ndeskp1
  2803.     SUB.B   #32,D0  ; Switch to upper
  2804. ndeskp1 MOVE.B  (A1,D2.W),D1
  2805.     BEQ.S   ndenext
  2806.     CMP.B   #96,D1
  2807.     BLO.S   ndeskp2
  2808.     SUB.B   #32,D1
  2809. ndeskp2 CMP.B   D0,D1
  2810.     BHI.S   ndeinse
  2811.     BNE.S   ndenext
  2812.     ADDQ.W  #1,D2
  2813.     BRA.S   ndelopc
  2814. ndenext LEA 36(A1),A1   ; next entry
  2815.     DBRA    D6,ndeloopname  ; loop entries
  2816.     MOVE.L  (A5),A1
  2817.     MOVE.W  16(A5),D0
  2818.     MULU    #36,D0
  2819.     ADD.W   D0,A1
  2820.     BRA.S   ndeadd2
  2821.  
  2822. ndeinse MOVE.L  (A5),A2
  2823.     MOVE.W  16(A5),D0
  2824.     MULU    #36,D0
  2825.     ADD.W   D0,A2
  2826.     MOVE.L  A2,A3
  2827.     LEA 36(A3),A3
  2828. nde3loop
  2829.     MOVE.W  -(A2),-(A3)
  2830.     CMP.L   A2,A1
  2831.     BNE.S   nde3loop
  2832.     BRA.S   ndeadd2
  2833.  
  2834. ndeadd1 MOVE.L  (A5),A1            ; Put new filename into list
  2835. ndeadd2 LEA FIB_FileName,A0
  2836.     MOVE.L  A1,A3
  2837.     MOVEQ   #35,D0             ; Clear old filename
  2838. nde4loop
  2839.     CLR.B   (A3)+
  2840.     DBRA    D0,nde4loop
  2841.     MOVE.W  FIB_DateStamp+ds_Days+2,30(A1)
  2842.     MOVEQ   #-1,D0
  2843.     TST.L   FIB_EntryType
  2844.     BPL ndefskp
  2845.     MOVE.L  FIB_FileSize,D0
  2846. ndefskp MOVE.L  D0,32(A1)
  2847.     MOVEQ   #29,D0             ; Copy new filename
  2848. nde4loop2
  2849.     MOVE.B  (A0)+,D1
  2850.     MOVE.B  D1,(A1)+
  2851.     TST.B   D1
  2852.     BEQ.S   nde4skip
  2853.     DBRA    D0,nde4loop2
  2854. nde4skip
  2855.     ADDQ.W  #1,16(A5)   ; Files + 1
  2856.     RTS
  2857.  
  2858. RedrawFileNames
  2859.     MOVE.W  D0,-(SP)
  2860.     BSR ShowDirPath
  2861.     MOVE.W  (SP)+,D0
  2862.     MOVE.W  D0,FileNameScrollPos
  2863.     TST.W   16(A5)
  2864.     BEQ Return1
  2865.     MOVE.L  #1881,A6
  2866.     MOVE.W  A6,TextOffset
  2867.     MOVE.L  (A5),D6
  2868.     MULU    #36,D0
  2869.     ADD.L   D0,D6
  2870.     MOVE.W  16(A5),D0
  2871.     SUB.W   FileNameScrollPos,D0
  2872.     CMP.W   #8,D0
  2873.     BHS.S   ShowFileNames
  2874.     SUBQ.W  #1,D0
  2875.     MOVE.W  D0,D7
  2876.     BRA.S   sfnloop
  2877.  
  2878. ShowFileNames
  2879.     MOVE.W  #$91,D0
  2880.     BSR WaitForVBlank
  2881.     MOVEQ   #7,D7
  2882. sfnloop MOVE.W  A6,TextOffset
  2883.     MOVE.L  D6,A0
  2884.     MOVEQ   #0,D0
  2885.     MOVE.W  30(A0),D0
  2886.     BSR CalculateDate
  2887.     MOVE.W  TheDay(PC),WordNumber  
  2888.     JSR Print2DecDigits
  2889.     MOVE.W  TheMonth(PC),WordNumber
  2890.     JSR Print2DecDigits
  2891.     MOVE.W  TheYear(PC),WordNumber 
  2892.     JSR Print2DecDigits
  2893.     ADDQ.W  #1,TextOffset
  2894.     MOVE.L  D6,ShowTextPtr
  2895.     MOVE.W  #24,TextLength
  2896.     TST.W   DirPathNum
  2897.     BNE.S   sfnskip
  2898.     TST.B   ModOnlyFlag
  2899.     BEQ.S   sfnskip
  2900.     MOVE.L  D6,A0
  2901.     CMP.L   #"mod.",(A0)
  2902.     BNE.S   sfnskip
  2903.     ADDQ.L  #4,ShowTextPtr
  2904. sfnskip JSR SpaceShowText
  2905.     LEA 32(A6),A6
  2906.     MOVE.W  A6,TextOffset
  2907.     MOVE.L  D6,A0
  2908.     MOVE.L  32(A0),D1
  2909.     BMI.S   sfndir
  2910.     TST.B   ShowDecFlag
  2911.     BNE.S   sfndec
  2912.     SWAP    D1
  2913.     AND.W   #$000F,D1
  2914.     BSR ShowOneDigit
  2915.     MOVE.L  D6,A0
  2916.     MOVE.W  34(A0),WordNumber
  2917.     JSR PrintHexWord
  2918. sfnend  ADD.L   #36,D6
  2919.     LEA 208(A6),A6
  2920.     DBRA    D7,sfnloop
  2921.     RTS
  2922.  
  2923. sfndec  MOVE.L  D1,D0
  2924.     SUBQ.W  #1,TextOffset
  2925.     JSR Print6DecDigits
  2926.     BRA.S   sfnend
  2927.  
  2928. sfndir  MOVE.L  #DirText,ShowTextPtr
  2929.     SUBQ.W  #1,TextOffset
  2930.     MOVE.W  #6,TextLength
  2931.     JSR ShowText
  2932.     BRA.S   sfnend
  2933.  
  2934. ClrFileText dc.b "    "
  2935.  
  2936. CalculateDate
  2937.     DIVU    #1461,D0
  2938.     LSL.W   #2,D0
  2939.     MOVE.W  D0,TheYear
  2940.     CLR.W   D0
  2941.     SWAP    D0
  2942.     CMP.W   #789,D0
  2943.     BEQ.S   cadleap
  2944.     BLO.S   cadskp2
  2945.     SUBQ.W  #1,D0
  2946. cadskp2 DIVU    #365,D0
  2947.     MOVE.L  D0,D1
  2948.     SWAP    D1
  2949.     CMP.W   #4,D0
  2950.     BLO.S   cadskip
  2951.     SUBQ.W  #1,D0
  2952. cadskip ADD.W   D0,TheYear
  2953.     LEA MonthTable(PC),A1
  2954.     MOVEQ   #24,D0
  2955. cadloop SUBQ.W  #2,D0
  2956.     MOVE.W  (A1,D0.W),D2
  2957.     CMP.W   D2,D1
  2958.     BHS.S   cadskp3
  2959.     TST.W   D0
  2960.     BNE.S   cadloop
  2961. cadskp3 LSR.W   #1,D0
  2962.     ADDQ.W  #1,D0
  2963.     MOVE.W  D0,TheMonth
  2964.     SUB.W   D2,D1
  2965.     ADDQ.W  #1,D1
  2966.     MOVE.W  D1,TheDay
  2967. cadend  MOVEQ   #0,D0
  2968.     MOVE.W  TheYear(PC),D0
  2969.     ADD.W   #78,D0
  2970.     DIVU    #100,D0
  2971.     SWAP    D0
  2972.     MOVE.W  D0,TheYear
  2973.     RTS
  2974. cadleap ADD.W   #2,TheYear
  2975.     MOVE.W  #2,TheMonth
  2976.     MOVE.W  #29,TheDay
  2977.     BRA cadend
  2978.  
  2979. TheYear     dc.w 0
  2980. TheMonth    dc.w 0
  2981. TheDay      dc.w 0
  2982. MonthTable  dc.w 0,31,59,90,120,151,181,212,243,273,304,334
  2983. DirText     dc.b " (DIR)"
  2984.  
  2985. ;---- Play Song ----
  2986.  
  2987. PlaySong
  2988.     MOVEQ   #0,D0
  2989. SongFrom
  2990.     BSR StopIt
  2991.     BTST    #2,$DFF016
  2992.     BNE.S   sofr1
  2993.     MOVE.W  PlayFromPos,D0
  2994. sofr1   MOVE.W  D0,ScrPattPos
  2995.     LSL.W   #4,D0
  2996.     AND.L   #$FFFF,D0
  2997.     MOVE.L  D0,PatternPosition
  2998. wfbu1   BTST    #6,$BFE001
  2999.     BEQ.S   wfbu1
  3000.     CLR.B   RawKeyCode
  3001.     CLR.B   SaveKey
  3002.     BSR SetPlayPtrCol
  3003.     CLR.W   PatternTicks
  3004.     CLR.L   TimerTicks
  3005.     MOVE.L  #'patp',RunMode
  3006.     CLR.W   DidQuantize
  3007.     MOVE.L  #-1,LongFFFF
  3008.     BSR SetScrPatternPos
  3009. SetPlayPosition
  3010.     MOVE.L  CurrPos,D0
  3011.     MOVE.L  SongDataPtr,A0
  3012.     CMP.B   sd_numofpatt(A0),D0
  3013.     BHS.S   SongPosToZero
  3014.     MOVE.L  CurrPos,SongPosition
  3015.     RTS
  3016.  
  3017. SongPosToZero
  3018.     CLR.L   SongPosition
  3019.     CLR.L   CurrPos
  3020.     RTS
  3021.  
  3022. ;---- Play Pattern ----
  3023.  
  3024. PlayPattern
  3025.     MOVEQ   #0,D0
  3026. PattFrom
  3027.     BSR StopIt
  3028.     BTST    #2,$DFF016
  3029.     BNE.S   pafr1
  3030.     MOVE.W  PlayFromPos,D0
  3031. pafr1   MOVE.W  D0,ScrPattPos
  3032.     LSL.W   #4,D0
  3033.     AND.L   #$FFF,D0
  3034.     MOVE.L  D0,PatternPosition
  3035. wfbu2   BTST    #6,$BFE001
  3036.     BEQ.S   wfbu2
  3037.     CLR.B   RawKeyCode
  3038.     CLR.B   SaveKey
  3039.     MOVE.L  #'patt',RunMode
  3040.     BSR SetPlayPtrCol
  3041. ResetPosition
  3042.     MOVE.L  PatternNumber,SongPosition
  3043.     RTS
  3044.  
  3045. ;---- Record Pattern/Song ----
  3046.  
  3047. RecordPattern
  3048.     MOVEQ   #0,D0
  3049. RecordFrom
  3050.     TST.W   SamScrEnable
  3051.     BNE Return1
  3052.     BSR StopIt
  3053.     BTST    #2,$DFF016
  3054.     BNE.S   refr1
  3055.     MOVE.W  PlayFromPos,D0
  3056. refr1   MOVE.W  D0,ScrPattPos
  3057.     LSL.W   #4,D0
  3058.     AND.L   #$FFF,D0
  3059.     MOVE.L  D0,PatternPosition
  3060. wfbu3   BTST    #6,$BFE001
  3061.     BEQ.S   wfbu3
  3062.     BSR SetEditPtrCol
  3063.     CLR.B   RawKeyCode
  3064.     CLR.B   SaveKey
  3065.     BSR SaveUndo
  3066.     MOVE.L  #'edit',EditMode
  3067.     MOVE.L  #'patt',RunMode
  3068.     TST.B   RecordMode
  3069.     BEQ.S   ResetPosition
  3070.     MOVE.L  #'patp',RunMode
  3071.     BRA SetPlayPosition
  3072.  
  3073. ;---- Show Main Screen ----
  3074.  
  3075. DisplayMainScreen
  3076.     CLR.W   BlockMarkFlag
  3077.     MOVE.W  #1,CurrScreen
  3078.     SF  NoSampleInfo
  3079.     TST.W   LoadInProgress
  3080.     BNE.S   dmsskp3
  3081.     BSR SetNormalPtrCol
  3082.     TST.W   RunMode
  3083.     BEQ.S   dmsskip
  3084.     BSR SetPlayPtrCol
  3085. dmsskip TST.L   EditMode
  3086.     BEQ.S   dmsskp2
  3087.     BSR SetEditPtrCol
  3088. dmsskp2 BSR StorePtrCol
  3089. dmsskp3 ST  DisableAnalyzer
  3090.     BSR ClearAnaHeights
  3091.     BSR ClearRightArea
  3092.     LEA TopMenusPos,A0
  3093.     LEA TopMenusBuffer,A1
  3094.     MOVEQ   #43,D0
  3095. cgloop4 MOVEQ   #24,D1
  3096. cgloop5 MOVE.B  (A1)+,(A0)+
  3097.     MOVE.B  1099(A1),10239(A0)
  3098.     DBRA    D1,cgloop5
  3099.     LEA 15(A0),A0
  3100.     DBRA    D0,cgloop4
  3101.     BSR RedrawToggles
  3102.     TST.B   EdEnable
  3103.     BNE EditOp
  3104.     MOVEQ   #0,D4
  3105. RedrawAnaScope
  3106.     MOVE.W  #145,D0
  3107.     BSR WaitForVBlank
  3108.     SF  ScopeEnable
  3109.     ST  DisableAnalyzer
  3110.     BSR ClearRightArea
  3111.     LEA SpectrumAnaData,A0
  3112.     MOVE.L  #SpectrumAnaSize,D0
  3113.     TST.B   AnaScopFlag
  3114.     BEQ.S   cgjojo
  3115.     LEA ScopeData,A0
  3116.     MOVE.L  #ScopeSize,D0
  3117.  
  3118. cgjojo  BSR Decompact
  3119.     BEQ cgjaja
  3120.     LEA SpectrumAnaPos,A0
  3121.     MOVEQ   #1,D7
  3122. cgloop1 MOVEQ   #54,D6  ; 55 lines in picture.
  3123. cgloop2 MOVEQ   #24,D5  ; 25 bytes(x8)
  3124. cgloop3 MOVE.B  (A1)+,(A0)+
  3125.     DBRA    D5,cgloop3
  3126.     ADDQ.L  #1,A1
  3127.     LEA 15(A0),A0
  3128.     DBRA    D6,cgloop2
  3129.     LEA $1F68(A0),A0
  3130.     DBRA    D7,cgloop1
  3131.     BSR FreeDecompMem
  3132. cgjaja  TST.L   D4
  3133.     BNE Return1
  3134.     TST.B   AnaScopFlag
  3135.     BNE cgscope
  3136.     BSR ClearAnaHeights
  3137.     BSR ClearRightArea
  3138.     SF  DisableAnalyzer
  3139.     BRA SetAnalyzerColors
  3140. cgscope ST  ScopeEnable
  3141.     BRA ClearAnalyzerColors
  3142.    
  3143. ;---- Clear Areas ----
  3144.  
  3145. ClearFileNames  MOVE.W  #145,D0
  3146.     BSR WaitForVBlank
  3147.     MOVE.L  TextBplPtr,A1
  3148.     LEA 1800(A1),A1
  3149.     MOVE.W  #549,D0
  3150.     MOVEQ   #0,D1
  3151. cfnloop MOVE.L  D1,(A1)+
  3152.     DBRA    D0,cfnloop
  3153.     RTS
  3154.  
  3155. ClearRightArea
  3156.     MOVE.L  TextBplPtr,A0
  3157.     LEA 55(A0),A0
  3158.     MOVEQ   #0,D2
  3159.     MOVEQ   #98,D0
  3160. cnblloop1
  3161.     MOVEQ   #24,D1
  3162. cnblloop2
  3163.     MOVE.B  D2,(A0)+
  3164.     DBRA    D1,cnblloop2
  3165.     LEA 15(A0),A0
  3166.     DBRA    D0,cnblloop1
  3167.     RTS
  3168.  
  3169. Clear100Lines
  3170.     MOVE.L  TextBplPtr,A0
  3171.     MOVE.W  #999,D0
  3172.     MOVEQ   #0,D1
  3173. chlloop MOVE.L  D1,(A0)+
  3174.     DBRA    D0,chlloop
  3175.     RTS
  3176.  
  3177. ;---- Are You Sure Requester ----
  3178.  
  3179. AreYouSure
  3180.     MOVE.B  DisableAnalyzer,SaveDA
  3181.     MOVE.B  ScopeEnable,SaveScope
  3182.     SF  ScopeEnable
  3183.     JSR ShowStatusText
  3184.     BSR StorePtrCol
  3185.     BSR SetWaitPtrCol
  3186.     BSR Wait_4000
  3187.     CMP #1,CurrScreen
  3188.     BNE.S   aysskip
  3189.     TST.B   DisableAnalyzer
  3190.     BNE.S   aysskip
  3191.     ST  DisableAnalyzer
  3192.     BSR ClearAnaHeights
  3193.     BSR ClearRightArea
  3194. aysskip LEA SureBoxData,A1
  3195.     BSR SwapBoxMem
  3196.     BSR WaitForButtonUp
  3197.     BSR Wait_4000
  3198.     CLR.B   RawKeyCode
  3199. surebuttoncheck
  3200.     BTST    #2,$DFF016
  3201.     BEQ.S   SureAnswerNo
  3202.     BSR DoKeyBuffer
  3203.     MOVE.B  RawKeyCode,D0
  3204.     CMP.B   #21,D0 ; Pressed Y
  3205.     BEQ SureAnswerYes
  3206.     CMP.B   #68,D0 ; Pressed Return
  3207.     BEQ.S   SureAnswerYes
  3208.     CMP.B   #54,D0 ; Pressed N
  3209.     BEQ.S   SureAnswerNo
  3210.     CMP.B   #69,D0 ; Pressed Esc
  3211.     BEQ.S   SureAnswerNo
  3212.     BTST    #6,$BFE001  ; Left Mousebutton
  3213.     BNE.S   surebuttoncheck
  3214.     MOVEM.W MouseX,D0/D1
  3215.     CMP.W   #$AB,D0
  3216.     BLO.S   surebuttoncheck
  3217.     CMP.W   #$FC,D0
  3218.     BHI.S   surebuttoncheck
  3219.     CMP.W   #$48,D1
  3220.     BLO.S   surebuttoncheck
  3221.     CMP.W   #$52,D1
  3222.     BHI.S   surebuttoncheck
  3223.     CMP.W   #$C5,D0
  3224.     BLO.S   SureAnswerYes
  3225.     CMP.W   #$EA,D0
  3226.     BLO.S   surebuttoncheck
  3227. SureAnswerNo
  3228.     LEA SureBoxData,A1
  3229.     BSR.S   SwapBoxMem
  3230.     JSR ShowAllRight
  3231.     BSR ClearAnaHeights
  3232.     MOVE.B  SaveDA,DisableAnalyzer
  3233.     MOVE.B  SaveScope,ScopeEnable
  3234.     BSR ErrorRestoreCol
  3235.     BSR WaitForButtonUp
  3236.     BSR Wait_4000
  3237.     CLR.B   RawKeyCode
  3238.     MOVEQ   #-1,D0
  3239.     RTS
  3240.  
  3241. SureAnswerYes
  3242.     LEA SureBoxData,A1
  3243.     BSR.S   SwapBoxMem
  3244.     JSR ShowAllRight
  3245.     BSR ClearAnaHeights
  3246.     MOVE.B  SaveDA,DisableAnalyzer
  3247.     MOVE.B  SaveScope,ScopeEnable
  3248.     BSR RestorePtrCol
  3249.     BSR WaitForButtonUp
  3250.     BSR Wait_4000
  3251.     CLR.B   RawKeyCode
  3252.     MOVEQ   #0,D0
  3253.     RTS
  3254.  
  3255. SwapBoxMem
  3256.     LEA SureBoxPos,A0
  3257.     MOVEQ   #38,D0
  3258. ssbmloop1
  3259.     MOVEQ   #12,D1
  3260. ssbmloop2
  3261.     MOVE.B  10240(A0),D2
  3262.     MOVE.B  546(A1),10240(A0)
  3263.     MOVE.B  D2,546(A1)
  3264.     MOVE.B  (A0),D2
  3265.     MOVE.B  (A1),(A0)+
  3266.     MOVE.B  D2,(A1)+
  3267.     DBRA    D1,ssbmloop2
  3268.     LEA $001B(A0),A0
  3269.     ADDQ.L  #1,A1
  3270.     DBRA    D0,ssbmloop1
  3271.     MOVE.L  TextBplPtr,A0   ; Swap text...
  3272.     LEA 2100(A0),A0
  3273.     LEA TextDataBuffer,A1
  3274.     MOVEQ   #38,D0
  3275. ssbmloop3
  3276.     MOVEQ   #12,D1
  3277. ssbmloop4
  3278.     MOVE.B  (A0),D2
  3279.     MOVE.B  (A1),(A0)+
  3280.     MOVE.B  D2,(A1)+
  3281.     DBRA    D1,ssbmloop4
  3282.     LEA $001B(A0),A0
  3283.     ADDQ.L  #1,A1
  3284.     DBRA    D0,ssbmloop3
  3285.     RTS
  3286.  
  3287. WaitForButtonUp
  3288.     BTST    #6,$BFE001  ; Check Left Mousebutton
  3289.     BEQ.S   WaitForButtonUp
  3290.     BTST    #2,$DFF016  ; Check Right Mousebutton
  3291.     BEQ.S   WaitForButtonUp
  3292.     MOVE.W  #$91,D0
  3293. WaitForVBlank
  3294.     MOVE.L  $DFF004,D1
  3295.     LSR.L   #8,D1
  3296.     AND.W   #$1FF,D1
  3297.     CMP.W   D1,D0
  3298.     BNE.S   WaitForVBlank
  3299.     RTS
  3300.  
  3301. ;---- Set Pointercolors ----
  3302.  
  3303. SetDeletePtrCol
  3304.     MOVE.L  A6,-(SP)
  3305.     MOVE.L  CopListColorPtr,A6
  3306.     MOVE.W  #$0AA,2(A6)
  3307.     MOVE.W  #$077,6(A6)
  3308.     MOVE.W  #$044,10(A6)
  3309.     MOVE.L  (SP)+,A6
  3310.     RTS
  3311.  
  3312. SetNormalPtrCol
  3313.     MOVE.L  A6,-(SP)
  3314.     MOVE.L  CopListColorPtr,A6
  3315.     MOVE.W  #$AAA,2(A6)
  3316.     MOVE.W  #$777,6(A6)
  3317.     MOVE.W  #$444,10(A6)
  3318.     MOVE.L  (SP)+,A6
  3319.     RTS
  3320.  
  3321. SetDiskPtrCol
  3322.     MOVE.L  A6,-(SP)
  3323.     MOVE.L  CopListColorPtr,A6
  3324.     MOVE.W  #$0A0,2(A6)
  3325.     MOVE.W  #$070,6(A6)
  3326.     MOVE.W  #$040,10(A6)
  3327.     MOVE.L  (SP)+,A6
  3328.     RTS
  3329.  
  3330. SetPlayPtrCol
  3331.     MOVE.L  A6,-(SP)
  3332.     MOVE.L  CopListColorPtr,A6
  3333.     MOVE.W  #$AA0,2(A6)
  3334.     MOVE.W  #$770,6(A6)
  3335.     MOVE.W  #$440,10(A6)
  3336.     MOVE.L  (SP)+,A6
  3337.     RTS
  3338.  
  3339. SetEditPtrCol
  3340.     MOVE.L  A6,-(SP)
  3341.     MOVE.L  CopListColorPtr,A6
  3342.     MOVE.W  #$05B,2(A6)
  3343.     MOVE.W  #$049,6(A6)
  3344.     MOVE.W  #$006,10(A6)
  3345.     MOVE.L  (SP)+,A6
  3346.     RTS
  3347.  
  3348. SetWaitPtrCol
  3349.     MOVE.L  A6,-(SP)
  3350.     MOVE.L  CopListColorPtr,A6
  3351.     MOVE.W  #$A5A,2(A6)
  3352.     MOVE.W  #$727,6(A6)
  3353.     MOVE.W  #$404,10(A6)
  3354.     MOVE.L  (SP)+,A6
  3355.     RTS
  3356.  
  3357. SetErrorPtrCol
  3358.     MOVE.L  A6,-(SP)
  3359.     MOVE.L  CopListColorPtr,A6
  3360.     MOVE.W  #$C00,2(A6)
  3361.     MOVE.W  #$900,6(A6)
  3362.     MOVE.W  #$700,10(A6)
  3363.     MOVE.L  (SP)+,A6
  3364.     MOVE.W  #1,UpdateFreeMem
  3365.     BSR WaitALittle
  3366.     JSR ShowAllRight
  3367.     BSR SetNormalPtrCol
  3368.     MOVEQ   #0,D0
  3369.     RTS
  3370.  
  3371. WaitALittle
  3372.     MOVE.W  WaitTime(PC),D1
  3373. errorwaitloop
  3374.     BSR Wait_4000
  3375.     DBRA    D1,errorwaitloop
  3376.     MOVE.W  #23,WaitTime
  3377.     RTS
  3378.  
  3379. WaitTime dc.w 23
  3380.  
  3381. StorePtrCol
  3382.     MOVE.L  A6,-(SP)
  3383.     MOVE.L  CopListColorPtr,A6
  3384.     MOVE.W  2(A6),PointerCol1Save
  3385.     MOVE.W  6(A6),PointerCol2Save
  3386.     MOVE.W  10(A6),PointerCol3Save
  3387.     MOVE.L  (SP)+,A6
  3388.     RTS
  3389.  
  3390. ErrorRestoreCol
  3391.     BSR SetErrorPtrCol
  3392. RestorePtrCol
  3393.     MOVE.L  A6,-(SP)
  3394.     MOVE.W  #1,UpdateFreeMem
  3395.     MOVE.L  CopListColorPtr,A6
  3396.     MOVE.W  PointerCol1Save,2(A6)
  3397.     MOVE.W  PointerCol2Save,6(A6)
  3398.     MOVE.W  PointerCol3Save,10(A6)
  3399.     MOVE.L  (SP)+,A6
  3400.     RTS
  3401.  
  3402.  
  3403. ;---- Check special keys ----
  3404.  
  3405. CheckPlayKeys
  3406.     MOVE.B  RawKeyCode,D0
  3407.     CMP.B   #101,D0
  3408.     BEQ PlaySong
  3409.     CMP.B   #103,D0
  3410.     BEQ PlayPattern
  3411.     CMP.B   #64,D0
  3412.     BNE.S   cpkskip
  3413.     TST.L   RunMode
  3414.     BNE StopIt
  3415.     TST.L   EditMode
  3416.     BNE StopIt 
  3417.     BRA Edit
  3418. cpkskip CMP.B   #97,D0
  3419.     BEQ RecordPattern
  3420.     CMP.B   #69,D0
  3421.     BEQ EscPressed
  3422.     CMP.B   #66,D0
  3423.     BEQ TabulateCursor
  3424.     CMP.B   #127,D0
  3425.     BEQ GotoCLI
  3426.     CMP.B   #48,D0
  3427.     BEQ TurnOffVoices
  3428.     CMP.B   #60,D0
  3429.     BEQ KillSample
  3430.     CMP.B   #13,D0
  3431.     BEQ togglepnote
  3432.  
  3433.     CMP.B   #67,D0
  3434.     BEQ.S   HigherInstr
  3435.     CMP.B   #67+128,D0
  3436.     BEQ.S   LowerInstr
  3437.     MOVE.W  HiLowInstr,D1
  3438.     LEA kpinstable(PC),A0
  3439.     MOVEQ   #0,D2
  3440. kpinsloop
  3441.     CMP.B   (A0,D2.W),D0
  3442.     BEQ.S   kpinsfound
  3443.     ADDQ.W  #1,D2
  3444.     CMP.W   #16,D2
  3445.     BLO.S   kpinsloop
  3446.     RTS
  3447.  
  3448. kpinsfound
  3449.     ADD.W   D2,D1
  3450.     BEQ.S   insnull
  3451.     BRA.S   redrsa2
  3452.  
  3453. LowerInstr
  3454.     CLR.W   HiLowInstr
  3455.     RTS
  3456. HigherInstr
  3457.     MOVE.W  #16,HiLowInstr
  3458.     MOVE.W  #16,D1
  3459.     BRA.S   redrsa2
  3460.  
  3461. redrsa3 MOVE.W  D1,InsNum
  3462. redrsam CLR.B   RawKeyCode
  3463.     CLR.L   SavSamInf
  3464.     JSR ShowSampleInfo
  3465.     JMP RedrawSample
  3466.  
  3467. insnull TST.W   InsNum
  3468.     BEQ.S   insnul2
  3469.     MOVE.W  InsNum,LastInsNum
  3470.     CLR.W   InsNum
  3471.     MOVEQ   #0,D1
  3472.     BRA.S   redrsa2
  3473.  
  3474. insnul2 JMP ShowSampleInfo
  3475.  
  3476. kpinstable
  3477.     dc.b 15,90,91,92
  3478.     dc.b 93,61,62,63,74
  3479.     dc.b 45,46,47,94,29,30
  3480.     dc.b 31
  3481.  
  3482. redrsa2 TST.B   pnoteflag
  3483.     BEQ.S   redrsa3
  3484.     CLR.B   RawKeyCode
  3485.     TST.W   AltKeyStatus
  3486.     BNE.S   setpnote
  3487.     MOVE.W  D1,InsNum
  3488.     JSR ShowSampleInfo
  3489.     MOVE.W  InsNum,D0
  3490.     ADD.W   D0,D0
  3491.     MOVE.W  pnotetable(PC,D0.W),D0
  3492.     MOVEQ   #-1,D2
  3493.     BSR playtheinstr
  3494.     JMP RedrawSample
  3495.  
  3496. pnotetable
  3497.     dc.w 24,24,24,24,24,24,24,24,24,24
  3498.     dc.w 24,24,24,24,24,24,24,24,24,24
  3499.     dc.w 24,24,24,24,24,24,24,24,24,24
  3500.     dc.w 24,24
  3501.  
  3502. setpnote
  3503.     ADD.W   D1,D1
  3504.     LEA pnotetable(PC,D1.W),A0
  3505.     MOVE.L  A0,SplitAddress
  3506.     MOVE.W  #4,SamNoteType
  3507.     LEA selnotetext(PC),A0
  3508.     JMP ShowStatusText
  3509.  
  3510. selnotetext dc.b "select note",0
  3511.  
  3512. togglepnote
  3513.     CLR.B   RawKeyCode
  3514.     MOVEQ   #0,D0
  3515.     MOVE.B  pnoteflag,D0
  3516.     ADDQ.B  #1,D0
  3517.     CMP.B   #3,D0
  3518.     BLO.S   tpnskp
  3519.     MOVEQ   #0,D0
  3520. tpnskp  MOVE.B  D0,pnoteflag
  3521.     LEA pnotechar(PC,D0.W),A0
  3522.     MOVEQ   #1,D0
  3523.     MOVE.W  #5159,D1
  3524.     JMP ShowText3
  3525.  
  3526. pnotechar   dc.b 32,128,129
  3527. pnoteflag   dc.b 0
  3528.  
  3529. ;---- Check transpose keys ----
  3530.  
  3531. CheckTransKeys
  3532.     TST.W   LeftAmigaStatus
  3533.     BEQ Return1
  3534.     MOVE.W  PattCurPos,D0
  3535.     BSR GetPositionPtr
  3536.     MOVE.B  RawKeyCode,D1
  3537.     CLR.B   RawKeyCode
  3538.     MOVE.B  SampleAllFlag,-(SP)
  3539.     BSR.S   ctksub
  3540.     MOVE.B  (SP)+,SampleAllFlag
  3541.     RTS
  3542.  
  3543. ctksub  MOVEQ   #0,D0
  3544.     CLR.B   SampleAllFlag
  3545.     CMP.B   #1,D1
  3546.     BEQ NoteUp
  3547.     CMP.B   #16,D1
  3548.     BEQ NoteDown
  3549.     CMP.B   #32,D1
  3550.     BEQ OctaveUp
  3551.     CMP.B   #49,D1
  3552.     BEQ OctaveDown
  3553.  
  3554.     MOVE.W  #300,D0
  3555.     CMP.B   #2,D1
  3556.     BEQ NoteUp
  3557.     CMP.B   #17,D1
  3558.     BEQ NoteDown
  3559.     CMP.B   #33,D1
  3560.     BEQ OctaveUp
  3561.     CMP.B   #50,D1
  3562.     BEQ OctaveDown
  3563.  
  3564.     MOVEQ   #0,D0
  3565.     MOVE.B  #1,SampleAllFlag
  3566.     CMP.B   #3,D1
  3567.     BEQ NoteUp
  3568.     CMP.B   #18,D1
  3569.     BEQ NoteDown
  3570.     CMP.B   #34,D1
  3571.     BEQ OctaveUp
  3572.     CMP.B   #51,D1
  3573.     BEQ OctaveDown
  3574.    
  3575.     MOVE.W  #300,D0
  3576.     CMP.B   #4,D1
  3577.     BEQ NoteUp
  3578.     CMP.B   #19,D1
  3579.     BEQ NoteDown
  3580.     CMP.B   #35,D1
  3581.     BEQ OctaveUp
  3582.     CMP.B   #52,D1
  3583.     BEQ OctaveDown
  3584.     RTS
  3585.  
  3586. ;---- Check control keys ----
  3587.  
  3588. CheckCtrlKeys
  3589.     TST.W   CtrlKeyStatus
  3590.     BEQ Return1
  3591.     MOVEQ   #0,D0
  3592.     MOVE.B  RawKeyCode,D0
  3593.     CMP.B   #35,D0 ; F
  3594.     BEQ ToggleFilter
  3595.     CMP.B   #33,D0 ; S
  3596.     BEQ ToggleSplit
  3597.     CMP.B   #55,D0 ; M
  3598.     BEQ ToggleMultiMode
  3599.     CMP.B   #16,D0 ; Q
  3600.     BEQ UnmuteAll
  3601.     CMP.B   #32,D0 ; A
  3602.     BEQ ToggleMute
  3603.     CMP.B   #49,D0 ; Z
  3604.     BEQ RestoreEffects
  3605.     CMP.B   #19,D0 ; R
  3606.     BEQ RestoreFKeyPos
  3607.     CMP.B   #20,D0 ; T
  3608.     BEQ SwapTrack
  3609.  
  3610.     CMP.B   #53,D0 ; B
  3611.     BEQ BeginBlock
  3612.     CMP.B   #51,D0 ; C
  3613.     BEQ CopyBlock
  3614.     CMP.B   #50,D0 ; X
  3615.     BEQ CutBlock
  3616.     CMP.B   #34,D0 ; D
  3617.     BEQ DeleteBlock
  3618.     CMP.B   #25,D0 ; P
  3619.     BEQ PasteBlock
  3620.     CMP.B   #23,D0 ; I
  3621.     BEQ InsertBlock
  3622.     CMP.B   #38,D0 ; J
  3623.     BEQ JoinPasteBlock
  3624.     CMP.B   #54,D0 ; N
  3625.     BEQ Re_MarkBlock
  3626.     CMP.B   #21,D0 ; Y
  3627.     BEQ BackwardsBlock
  3628.     CMP.B   #17,D0 ; W
  3629.     BEQ PolyphonizeBlock
  3630.  
  3631.     CMP.B   #18,D0 ; E
  3632.     BEQ ExpandTrack
  3633.     CMP.B   #24,D0 ; O
  3634.     BEQ ContractTrack
  3635.     CMP.B   #37,D0 ; H
  3636.     BEQ TransBlockUp
  3637.     CMP.B   #40,D0 ; L
  3638.     BEQ TransBlockDown
  3639.     CMP.B   #39,D0 ; K
  3640.     BEQ KillToEndOfTrack
  3641.     CMP.B   #22,D0 ; U
  3642.     BEQ UndoLastChange
  3643.  
  3644.     CMP.B   #68,D0 ; CR
  3645.     BEQ InsCmdTrack
  3646.     CMP.B   #65,D0 ; Del
  3647.     BEQ DelCmdTrack
  3648.     CMP.B   #36,D0 ; G
  3649.     BEQ BoostAll
  3650.     CMP.B   #52,D0 ; V
  3651.     BEQ FilterAll
  3652.  
  3653.     CMP.B   #1,D0
  3654.     BLO Return1
  3655.     CMP.B   #10,D0
  3656.     BHI Return1
  3657.     BNE.S   cckskip
  3658.     MOVEQ   #0,D0
  3659. cckskip MOVE.W  D0,EditMoveAdd
  3660.     CLR.B   RawKeyCode
  3661.     ADD.B   #'0',D0
  3662.     LEA ematext(PC),A0
  3663.     MOVE.B  D0,11(A0)
  3664.     BSR ShowStatusText
  3665.     MOVE.W  #10,WaitTime
  3666.     BSR WaitALittle
  3667.     BRA ShowAllRight
  3668.  
  3669. ematext dc.b "editskip = 0",0,0
  3670.  
  3671. ;---- Check alt keys ----
  3672.  
  3673. CheckAltKeys
  3674.     TST.W   AltKeyStatus
  3675.     BEQ Return1
  3676.     MOVEQ   #0,D0
  3677.     MOVE.B  RawKeyCode,D0
  3678.     CMP.B   #49,D0 ; Z
  3679.     BEQ ToggleCh1
  3680.     CMP.B   #50,D0 ; X
  3681.     BEQ ToggleCh2
  3682.     CMP.B   #51,D0 ; C
  3683.     BEQ ToggleCh3
  3684.     CMP.B   #52,D0 ; V
  3685.     BEQ ToggleCh4
  3686.     CMP.B   #53,D0 ; B
  3687.     BEQ Boost
  3688.     CMP.B   #35,D0 ; F
  3689.     BEQ Filter
  3690.     CMP.B   #20,D0 ; T
  3691.     BEQ.S   xTuningTone
  3692.     CMP.B   #33,D0 ; S
  3693.     BEQ.S   xSamplerScreen
  3694.     CMP.B   #19,D0 ; R
  3695.     BEQ.S   xResample
  3696.     CMP.B   #18,D0 ; E
  3697.     BEQ DoEditOp
  3698.     CMP.B   #23,D0 ; I
  3699.     BEQ.S   AutoInsert
  3700.     CMP.B   #34,D0 ; D
  3701.     BEQ DiskOp
  3702.     CMP.B   #39,D0 ; K
  3703.     BEQ KillInstrTrack
  3704. ;   CMP.B   #17,D0 ; W
  3705. ;   BEQ.S   WaitForNote
  3706.     CMP.B   #32,D0 ; A
  3707.     BEQ.S   xSampler
  3708.     CMP.B   #16,D0 ; Q
  3709.     BEQ ChkQuit
  3710.  
  3711. ;   CMP.B   #55,D0 ; M
  3712. ;   CMP.B   #25,D0 ; P
  3713. ;   CMP.B   #38,D0 ; J
  3714. ;   CMP.B   #54,D0 ; N
  3715. ;   CMP.B   #21,D0 ; Y
  3716. ;   CMP.B   #24,D0 ; O
  3717. ;   CMP.B   #37,D0 ; H
  3718. ;   CMP.B   #40,D0 ; L
  3719. ;   CMP.B   #22,D0 ; U
  3720. ;   CMP.B   #36,D0 ; G
  3721.     RTS
  3722.  
  3723. xTuningTone JMP TuningTone
  3724. xSamplerScreen  JMP SamplerScreen
  3725. xResample   JMP Resample
  3726. xSampler    JMP Sampler
  3727.  
  3728. AutoInsert
  3729.     CLR.B   RawKeyCode
  3730.     EOR.B   #1,AutoInsFlag
  3731. ShowAutoInsert
  3732.     CMP.W   #4,CurrScreen
  3733.     BEQ Return1
  3734.     MOVE.B  #' ',D0
  3735.     TST.B   AutoInsFlag
  3736.     BEQ.S   auins2
  3737.     MOVE.B  #'I',D0
  3738. auins2  MOVE.B  D0,AutoInsText
  3739.     MOVE.W  #4561,D1
  3740.     MOVEQ   #1,D0
  3741.     LEA AutoInsText(PC),A0
  3742.     JMP ShowText3
  3743.  
  3744. AutoInsText dc.b 0
  3745. AutoInsFlag dc.b 0
  3746.  
  3747. ;---- Jump between channels ----
  3748.  
  3749. TabulateCursor
  3750.     CLR.B   RawKeyCode
  3751.     TST.W   ShiftKeyStatus
  3752.     BNE.S   TabCurRight
  3753.     MOVE.W  PattCurPos,D0
  3754.     DIVU    #6,D0
  3755.     ADDQ.W  #1,D0
  3756.     CMP.W   #4,D0
  3757.     BNE.S   tacskip
  3758.     MOVEQ   #0,D0
  3759. tacskip MULU    #6,D0
  3760.     MOVE.W  D0,PattCurPos
  3761.     BRA UpdateCursorPos
  3762.  
  3763. TabCurRight
  3764.     MOVE.W  PattCurPos,D0
  3765.     ADDQ.W  #5,D0
  3766.     DIVU    #6,D0
  3767.     SUBQ.W  #1,D0
  3768.     BPL.S   tacskip
  3769.     MOVEQ   #3,D0
  3770.     BRA.S   tacskip
  3771.  
  3772. ;---- Escape was pressed ----
  3773.  
  3774. EscPressed
  3775.     CLR.B   RawKeyCode
  3776.     CLR.B   SaveKey
  3777.     MOVE.W  CurrScreen,D0
  3778.     CMP.W   #2,D0
  3779.     BLO.S   BotExit
  3780. TopExit MOVE.W  CurrScreen,D0
  3781.     CMP.W   #2,D0
  3782.     BEQ ExitHelpScreen
  3783.     CMP.W   #3,D0
  3784.     BEQ ExitFromDir
  3785.     CMP.W   #4,D0
  3786.     BEQ.S   pedexit
  3787.     CMP.W   #5,D0
  3788.     BEQ ExitSetup
  3789.     CMP.W   #6,D0
  3790.     BEQ.S   plstexit
  3791.     CMP.W   #7,D0
  3792.     BEQ ExitSetup
  3793.     RTS
  3794.  
  3795. BotExit TST.W   SamScrEnable
  3796.     BNE.S   samplerexit
  3797.     TST.W   BlockMarkFlag
  3798.     BNE blkunma
  3799.     CMP.W   #1,CurrScreen
  3800.     BNE Return1
  3801.     TST.B   EdEnable
  3802.     BNE ExitEditOp
  3803.     RTS
  3804.  
  3805. samplerexit
  3806.      JMP    ExitFromSam
  3807. pedexit  JMP    PED_Exit
  3808. plstexit JMP    ExitPLST
  3809.  
  3810. GotoCLI CLR.B   RawKeyCode
  3811.     CLR.B   SaveKey
  3812.     TST.L   RunMode
  3813.     BNE.S   cliskp1
  3814.     BSR StopIt
  3815.     BSR ResetMusicInt
  3816. cliskp1 BSR ResetVBInt
  3817.     BSR ResetInputHandler
  3818.     BSR ResetAutoReq
  3819.     BSR ResetCopList
  3820.     MOVE.L  ExtCmdAddress,D1
  3821.     BEQ.S   gcliskp
  3822.     CLR.L   ExtCmdAddress
  3823.     MOVE.L  ExtCmdWindow,D2
  3824.     MOVEQ   #0,D3
  3825.     MOVE.L  DOSBase,A6
  3826.     JSR LVOExecute(A6)
  3827. gcliskp SUB.L   A0,A0
  3828.     LEA BackToProText(PC),A1
  3829.     LEA OKGadgetText(PC),A2
  3830.     MOVE.L  A2,A3
  3831.     MOVEQ   #0,D0
  3832.     MOVEQ   #0,D1
  3833.     MOVE.W  #196,D2
  3834.     MOVEQ   #50,D3
  3835.     MOVE.L  IntuitionBase,A6
  3836.     JSR LVOAutoRequest(A6)
  3837.     ADDQ.B  #1,LastRawkey
  3838.     TST.L   RunMode
  3839.     BNE.S   cliskp2
  3840.     BSR SetMusicInt
  3841. cliskp2 BSR SetVBInt
  3842.     BSR SetInputHandler
  3843.     BSR SetAutoReq
  3844.     BRA SetCopList
  3845.  
  3846. BackToProText
  3847.     dc.b 0,1,1,0
  3848.     dc.w 14,6
  3849.     dc.l 0,btptext,0
  3850. btptext dc.b 'Back to Protracker',0,0
  3851.  
  3852. OKGadgetText
  3853.     dc.b 0,1,1,0
  3854.     dc.w 6,3
  3855.     dc.l 0,okgtext,0
  3856. okgtext dc.b 'OK',0,0
  3857.  
  3858. ;---- Check Help Key ----
  3859.  
  3860. HelpSelectText  dc.b    '* help selected *',0
  3861. PLSTSelectText  dc.b    '* plst selected *',0
  3862. PLSTHelpFlag    dc.b    0,0 ; free 0
  3863.  
  3864. CheckHelpKey
  3865.     CMP.B   #95,RawKeyCode  ; Help Key pressed ?
  3866.     BNE Return1
  3867.     CLR.B   RawKeyCode
  3868.     TST.W   ShiftKeyStatus
  3869.     BEQ.S   realhlp
  3870.     LEA HelpSelectText,A0
  3871.     EOR.B   #1,PLSTHelpFlag
  3872.     BEQ.S   chksel
  3873.     LEA PLSTSelectText,A0
  3874. chksel  BSR ShowStatusText
  3875.     BSR WaitALittle
  3876.     BRA ShowAllRight
  3877.  
  3878. gtoPLST JMP PLST
  3879.  
  3880. realhlp TST.B   PLSTHelpFlag
  3881.     BNE.S   gtoPLST
  3882.     CMP.W   #2,CurrScreen
  3883.     BEQ ExitHelpScreen
  3884.     BSR TopExit
  3885.     MOVE.W  CurrScreen,SaveCurrScreen
  3886.     SF  ScopeEnable
  3887.     ST  DisableAnalyzer
  3888.     ST  NoSampleInfo
  3889.     BSR ClearAnalyzerColors
  3890.     BSR SwapHelpScreen
  3891.     BEQ exithlp
  3892.     BSR Clear100Lines
  3893.     TST.L   HelpTextIndex+4
  3894.     BNE.S   chkskip
  3895.     BSR GetHelpIndex
  3896. chkskip MOVE.L  #HelpFileName,D1
  3897.     MOVE.L  #1005,D2
  3898.     MOVE.L  DOSBase,A6
  3899.     JSR LVOOpen(A6)
  3900.     MOVE.L  D0,FileHandle
  3901.     BNE ShowHelpPage
  3902.     LEA PTPath,A0
  3903.     BSR CopyPath
  3904.     LEA HelpFileName(PC),A0
  3905.     MOVEQ   #7,D0
  3906. hefilop MOVE.B  (A0)+,(A1)+
  3907.     DBRA    D0,hefilop
  3908.     MOVE.L  #FileName,D1
  3909.     MOVE.L  #1005,D2
  3910.     MOVE.L  DOSBase,A6
  3911.     JSR LVOOpen(A6)
  3912.     MOVE.L  D0,FileHandle
  3913.     BEQ HelpFileError
  3914.     BRA.S   ShowHelpPage
  3915.  
  3916. ExitHelpScreen
  3917.     MOVE.L  FileHandle,D1
  3918.     BEQ.S   ehsskip
  3919.     MOVE.L  DOSBase,A6
  3920.     JSR LVOClose(A6)
  3921. ehsskip BSR Clear100Lines
  3922.     BSR.S   SwapHelpScreen
  3923. exithlp MOVE.W  SaveCurrScreen,CurrScreen
  3924.     BRA DisplayMainAll
  3925.  
  3926. SwapHelpScreen
  3927.     MOVE.L  DecompMemPtr,D0
  3928.     BEQ.S   shelps2
  3929.     MOVE.L  D0,A1
  3930.     BSR ssets3
  3931.     BRA FreeDecompMem
  3932. shelps2 LEA HelpScreenData,A0
  3933.     MOVE.L  #HelpScreenSize,D0
  3934.     BSR Decompact
  3935.     BEQ Return1
  3936.     BRA ssets3
  3937.  
  3938. ShowHelpPage
  3939.     MOVE.W  #2,CurrScreen
  3940.     MOVE.W  HelpPage,D0
  3941.     AND.W   #$00FF,D0
  3942.     LSL.W   #2,D0
  3943.     LEA HelpTextIndex,A0
  3944.     MOVE.L  FileHandle,D1
  3945.     BEQ Return1
  3946.     MOVE.L  (A0,D0.W),D2
  3947.     ADD.L   #1024,D2
  3948.     MOVEQ   #-1,D3
  3949.     MOVE.L  DOSBase,A6
  3950.     JSR LVOSeek(A6)
  3951.     MOVE.L  FileHandle,D1
  3952.     MOVE.L  #HelpTextData,D2
  3953.     MOVE.L  #656,D3
  3954.     JSR LVORead(A6)
  3955.     BSR Clear100Lines
  3956.     LEA HelpTextData+16,A6
  3957.     MOVEQ   #120,D6
  3958.     MOVEQ   #15,D7
  3959. shploop MOVEQ   #0,D0
  3960.     MOVE.L  A6,A1
  3961. shplop2 CMP.B   #10,(A1)+
  3962.     BEQ.S   ShowHelpLine
  3963.     TST.B   -1(A1)
  3964.     BEQ.S   ShowHelpLine
  3965.     ADDQ.W  #1,D0
  3966.     BRA.S   shplop2
  3967. ShowHelpLine
  3968.     MOVE.L  A6,ShowTextPtr
  3969.     MOVE.L  A1,A6
  3970.     MOVE.W  D6,TextOffset
  3971.     MOVE.W  D0,TextLength
  3972.     BEQ.S   shlskip
  3973.     JSR ShowText
  3974. shlskip ADD.W   #240,D6
  3975.     DBRA    D7,shploop
  3976.     BSR Wait_4000
  3977.     BRA Wait_4000
  3978.  
  3979. HelpPage    dc.w    1
  3980.  
  3981. HelpUp  LEA HelpTextData+7,A0
  3982.     BRA.S   HelpMove
  3983. HelpDown
  3984.     LEA HelpTextData+10,A0
  3985.     BRA.S   HelpMove
  3986. HelpLeft
  3987.     LEA HelpTextData+4,A0
  3988.     BRA.S   HelpMove
  3989. HelpRight
  3990.     LEA HelpTextData+13,A0
  3991. HelpMove
  3992.     CLR.B   RawKeyCode
  3993.     MOVEQ   #0,D0
  3994.     JSR HexToInteger2
  3995.     TST.W   D0
  3996.     BEQ Return1
  3997.     AND.W   #$00FF,D0
  3998.     MOVE.W  D0,HelpPage
  3999.     BRA ShowHelpPage
  4000.  
  4001. GetHelpIndex
  4002.     MOVE.L  LaHeTx,D0
  4003.     CMP.L   HelpTextIndex,D0
  4004.     BEQ Return1
  4005.     MOVE.L  #HelpFileName,D1
  4006.     MOVE.L  #1005,D2
  4007.     MOVE.L  DOSBase,A6
  4008.     JSR LVOOpen(A6)
  4009.     MOVE.L  D0,FileHandle
  4010.     BNE.S   gehein
  4011.     LEA PTPath,A0
  4012.     BSR CopyPath
  4013.     LEA HelpFileName(PC),A0
  4014.     MOVEQ   #7,D0
  4015. hefilp2 MOVE.B  (A0)+,(A1)+
  4016.     DBRA    D0,hefilp2
  4017.     MOVE.L  #FileName,D1
  4018.     MOVE.L  #1005,D2
  4019.     MOVE.L  DOSBase,A6
  4020.     JSR LVOOpen(A6)
  4021.     MOVE.L  D0,FileHandle
  4022.     BEQ.S   HelpFileError
  4023. gehein  MOVE.L  D0,D1
  4024.     MOVE.L  #HelpTextIndex,D2
  4025.     MOVE.L  #256*4,D3
  4026.     JSR LVORead(A6)
  4027.     MOVE.L  FileHandle,D1
  4028.     JSR LVOClose(A6)
  4029.     MOVE.L  HelpTextIndex,LaHeTx
  4030.     RTS
  4031.  
  4032. HelpFileError
  4033.     MOVE.W  #2,CurrScreen
  4034.     LEA NoHelpText(PC),A0
  4035.     MOVE.W  #1887,D1
  4036.     MOVEQ   #24,D0
  4037.     BRA ShowText3
  4038.  
  4039. NoHelpText  dc.b 'Unable to open helpfile!'
  4040. HelpFileName    dc.b 'PT.help',0
  4041.  
  4042.  
  4043. ;---- Check Function Keys F6-F10 ----
  4044.  
  4045. CheckF6_F10
  4046.     CMP.B   #85,RawKeyCode
  4047.     BNE.S   CheckF7
  4048.     CLR.B   RawKeyCode
  4049.     TST.W   ShiftKeyStatus
  4050.     BEQ.S   cf6skip
  4051.     MOVE.W  ScrPattPos,F6pos
  4052. ShowPosSetText
  4053.     LEA PosSetText,A0
  4054.     BSR ShowStatusText
  4055.     MOVEQ   #8,D2
  4056. spsloop BSR Wait_4000
  4057.     DBRA    D2,spsloop
  4058.     BRA ShowAllRight   
  4059. cf6skip MOVE.W  F6pos,D0
  4060. chkalt  TST.W   AltKeyStatus
  4061.     BNE PattFrom
  4062.     TST.W   CtrlKeyStatus
  4063.     BNE RecordFrom
  4064.     TST.W   LeftAmigaStatus
  4065.     BNE SongFrom
  4066.     TST.W   RunMode
  4067.     BNE Return1
  4068.     MOVE.W  D0,ScrPattPos
  4069.     BRA SetScrPatternPos
  4070.  
  4071. CheckF7 CMP.B   #86,RawKeyCode
  4072.     BNE.S   CheckF8
  4073.     CLR.B   RawKeyCode
  4074.     TST.W   ShiftKeyStatus
  4075.     BEQ.S   cf7skip
  4076.     MOVE.W  ScrPattPos,F7pos
  4077.     BRA.S   ShowPosSetText 
  4078. cf7skip MOVE.W  F7pos,D0
  4079.     BRA.S   chkalt
  4080.  
  4081. CheckF8 CMP.B   #87,RawKeyCode
  4082.     BNE.S   CheckF9
  4083.     CLR.B   RawKeyCode
  4084.     TST.W   ShiftKeyStatus
  4085.     BEQ.S   cf8skip
  4086.     MOVE.W  ScrPattPos,F8pos
  4087.     BRA ShowPosSetText 
  4088. cf8skip MOVE.W  F8pos,D0
  4089.     BRA chkalt
  4090.  
  4091. CheckF9 CMP.B   #88,RawKeyCode
  4092.     BNE.S   CheckF10
  4093.     CLR.B   RawKeyCode
  4094.     TST.W   ShiftKeyStatus
  4095.     BEQ.S   cf9skip
  4096.     MOVE.W  ScrPattPos,F9pos
  4097.     BRA ShowPosSetText
  4098. cf9skip MOVE.W  F9pos,D0
  4099.     BRA chkalt
  4100.  
  4101. CheckF10
  4102.     CMP.B   #89,RawKeyCode
  4103.     BNE Return1
  4104.     CLR.B   RawKeyCode
  4105.     TST.W   ShiftKeyStatus
  4106.     BEQ.S   cf10skip
  4107.     MOVE.W  ScrPattPos,F10pos
  4108.     BRA ShowPosSetText 
  4109. cf10skip
  4110.     MOVE.W  F10pos,D0
  4111.     BRA chkalt
  4112.  
  4113. F6pos   dc.w  0
  4114. F7pos   dc.w 16
  4115. F8pos   dc.w 32
  4116. F9pos   dc.w 48
  4117. F10pos  dc.w 63
  4118.  
  4119. ;---- Check Function Keys F3-F5 ----
  4120.  
  4121. CheckF3_F5
  4122.     MOVEQ   #0,D0
  4123.     MOVE.L  D0,A0
  4124.     TST.W   ShiftKeyStatus
  4125.     BNE CCP4
  4126.     TST.W   CtrlKeyStatus
  4127.     BNE CCP4
  4128.     TST.W   AltKeyStatus
  4129.     BNE CutCopPas
  4130.     CMP.B   #68,RawKeyCode
  4131.     BEQ.S   StepPlayForward
  4132.     CMP.B   #65,RawKeyCode
  4133.     BEQ.S   StepPlayBackward
  4134.     TST.W   SamScrEnable
  4135.     BEQ Return1
  4136.     CMP.B   #82,RawKeyCode
  4137.     BEQ.S   xSamCut
  4138.     CMP.B   #83,RawKeyCode
  4139.     BEQ.S   xSamCop
  4140.     CMP.B   #84,RawKeyCode
  4141.     BEQ.S   xSamPas
  4142.     RTS
  4143.  
  4144. xSamCut JMP SamCut
  4145. xSamCop JMP SamCopy
  4146. xSamPas JMP SamPaste
  4147.  
  4148. StepPlayForward
  4149.     MOVE.W  #1,StepPlayEnable
  4150.     BSR DoStopIt
  4151.     MOVE.W  ScrPattPos,D0
  4152.     BRA pafr1
  4153.  
  4154. StepPlayBackward
  4155.     MOVE.W  #1,StepPlayEnable
  4156.     BSR DoStopIt
  4157.     MOVE.W  ScrPattPos,D0
  4158.     SUBQ.W  #1,D0
  4159.     AND.W   #63,D0
  4160.     BRA pafr1
  4161.  
  4162. StepPlayEnable  dc.w    0
  4163.  
  4164. CCP4    MOVEQ   #0,D0
  4165.     MOVE.W  PattCurPos,D0
  4166.     DIVU    #6,D0
  4167.     AND.L   #3,D0
  4168.     LSL.L   #2,D0
  4169.     MOVE.L  D0,A0
  4170. CutCopPas
  4171.     ADD.L   SongDataPtr,A0
  4172.     LEA sd_patterndata(A0),A0
  4173.     MOVE.L  PatternNumber,D0
  4174.     LSL.L   #8,D0
  4175.     LSL.L   #2,D0
  4176.     ADD.L   D0,A0
  4177.     TST.W   AltKeyStatus
  4178.     BNE.S   CutCopPasPatt
  4179.     TST.W   CtrlKeyStatus
  4180.     BNE.S   CutCopPasCmds
  4181. CutCopPasTrack 
  4182.     CMP.B   #82,RawKeyCode
  4183.     BEQ CutTrack
  4184.     CMP.B   #83,RawKeyCode
  4185.     BEQ CopyTrack
  4186.     CMP.B   #84,RawKeyCode
  4187.     BEQ PasteTrack
  4188.     CMP.B   #68,RawKeyCode
  4189.     BEQ InsNoteTrack
  4190.     CMP.B   #65,RawKeyCode
  4191.     BEQ DelNoteTrack
  4192.     RTS
  4193.  
  4194. CutCopPasPatt
  4195.     CMP.B   #82,RawKeyCode
  4196.     BEQ.S   CutPattern
  4197.     CMP.B   #83,RawKeyCode
  4198.     BEQ.S   CopyPattern
  4199.     CMP.B   #84,RawKeyCode
  4200.     BEQ PastePattern
  4201.     CMP.B   #68,RawKeyCode
  4202.     BEQ InsNotePattern
  4203.     CMP.B   #65,RawKeyCode
  4204.     BEQ DelNotePattern
  4205.     RTS
  4206.  
  4207. CutCopPasCmds  
  4208.     CMP.B   #82,RawKeyCode
  4209.     BEQ CutCmds
  4210.     CMP.B   #83,RawKeyCode
  4211.     BEQ CopyCmds
  4212.     CMP.B   #84,RawKeyCode
  4213.     BEQ PasteCmds
  4214.     RTS
  4215.  
  4216. CutPattern
  4217.     BSR SaveUndo
  4218.     LEA PatternBuffer,A1
  4219.     MOVE.W  #255,D0
  4220.     MOVEQ   #0,D1
  4221. cupaloop
  4222.     MOVE.L  (A0),(A1)+
  4223.     MOVE.L  D1,(A0)+
  4224.     DBRA    D0,cupaloop
  4225.     CLR.B   RawKeyCode
  4226.     BRA RedrawPattern
  4227.  
  4228. CopyPattern
  4229.     LEA PatternBuffer,A1
  4230.     MOVE.W  #255,D0
  4231. copaloop
  4232.     MOVE.L  (A0)+,(A1)+
  4233.     DBRA    D0,copaloop
  4234.     CLR.B   RawKeyCode
  4235.     RTS
  4236.  
  4237. PastePattern
  4238.     BSR SaveUndo
  4239.     LEA PatternBuffer,A1
  4240.     MOVE.W  #255,D0
  4241. papaloop
  4242.     MOVE.L  (A1)+,(A0)+
  4243.     DBRA    D0,papaloop
  4244.     CLR.B   RawKeyCode
  4245.     BRA RedrawPattern
  4246.  
  4247.  
  4248. CutTrack
  4249.     BSR SaveUndo
  4250.     LEA TrackBuffer,A1
  4251.     MOVEQ   #63,D0
  4252.     MOVEQ   #0,D1
  4253. cutrloop
  4254.     MOVE.L  (A0),(A1)+
  4255.     MOVE.L  D1,(A0)
  4256.     LEA 16(A0),A0
  4257.     DBRA    D0,cutrloop
  4258.     CLR.B   RawKeyCode
  4259.     BRA RedrawPattern
  4260.  
  4261. CopyTrack
  4262.     LEA TrackBuffer,A1
  4263.     MOVEQ   #63,D0
  4264. cotrloop
  4265.     MOVE.L  (A0),(A1)+
  4266.     LEA 16(A0),A0
  4267.     DBRA    D0,cotrloop
  4268.     CLR.B   RawKeyCode
  4269.     RTS
  4270.  
  4271. PasteTrack
  4272.     BSR SaveUndo
  4273.     LEA TrackBuffer,A1
  4274.     MOVEQ   #63,D0
  4275. patrloop
  4276.     MOVE.L  (A1)+,(A0)
  4277.     LEA 16(A0),A0
  4278.     DBRA    D0,patrloop
  4279.     CLR.B   RawKeyCode
  4280.     BRA RedrawPattern
  4281.  
  4282. InsNotePattern
  4283.     BSR SaveUndo
  4284.     MOVEQ   #0,D0
  4285.     BSR GetPositionPtr
  4286.     BSR.S   inotr
  4287.     MOVEQ   #6,D0
  4288.     BSR GetPositionPtr
  4289.     BSR.S   inotr
  4290.     MOVEQ   #12,D0
  4291.     BSR GetPositionPtr
  4292.     BSR.S   inotr
  4293.     MOVEQ   #18,D0
  4294.     BSR GetPositionPtr
  4295.     BSR.S   inotr
  4296.     BRA.S   intskip
  4297. InsNoteTrack
  4298.     BSR SaveUndo
  4299.     BSR.S   inotr
  4300. intskip CLR.B   RawKeyCode
  4301.     ADD.W   D2,ScrPattPos
  4302.     AND.W   #$3F,ScrPattPos
  4303.     BSR SetScrPatternPos
  4304.     BRA RedrawPattern
  4305.  
  4306. inotr   MOVE.W  ScrPattPos,D1
  4307.     LSL.W   #4,D1
  4308.     CMP.W   #63*16,D1
  4309.     BEQ.S   inoskip
  4310.     MOVE.W  #992,D0
  4311. intloop MOVE.L  (A0,D0.W),16(A0,D0.W)
  4312.     SUB.W   #16,D0
  4313.     CMP.W   D1,D0
  4314.     BGE.S   intloop
  4315. inoskip MOVEQ   #1,D2
  4316.     CLR.L   (A0,D1.W)
  4317.     RTS
  4318.  
  4319. InsCmdTrack
  4320.     BSR SaveUndo
  4321.     MOVE.W  PattCurPos,D0
  4322.     BSR GetPositionPtr
  4323.     BSR.S   icmtr
  4324.     BRA.S   intskip
  4325. icmtr   MOVE.W  ScrPattPos,D1
  4326.     LSL.W   #4,D1
  4327.     CMP.W   #63*16,D1
  4328.     BEQ.S   icmskip
  4329.     MOVE.W  #992,D0
  4330. icmloop MOVE.W  2(A0,D0.W),D2
  4331.     AND.W   #$0FFF,D2
  4332.     AND.W   #$F000,18(A0,D0.W)
  4333.     OR.W    D2,18(A0,D0.W)
  4334.     SUB.W   #16,D0
  4335.     CMP.W   D1,D0
  4336.     BGE.S   icmloop
  4337. icmskip MOVEQ   #1,D2
  4338.     AND.W   #$F000,2(A0,D1.W)
  4339.     RTS
  4340.  
  4341. DelNotePattern
  4342.     BSR SaveUndo
  4343.     MOVEQ   #0,D0
  4344.     BSR GetPositionPtr
  4345.     BSR.S   dnt
  4346.     MOVEQ   #6,D0
  4347.     BSR GetPositionPtr
  4348.     BSR.S   dnt
  4349.     MOVEQ   #12,D0
  4350.     BSR GetPositionPtr
  4351.     BSR.S   dnt
  4352.     MOVEQ   #18,D0
  4353.     BSR GetPositionPtr
  4354.     BSR.S   dnt
  4355.     BRA intskip
  4356. DelNoteTrack
  4357.     BSR SaveUndo
  4358.     BSR.S   dnt
  4359.     BRA intskip
  4360.  
  4361. dnt MOVE.W  ScrPattPos,D0
  4362.     BEQ Return1
  4363.     SUBQ.W  #1,D0
  4364.     LSL.W   #4,D0
  4365. dntloop MOVE.L  16(A0,D0.W),(A0,D0.W)
  4366.     ADD.W   #16,D0
  4367.     CMP.W   #1024,D0
  4368.     BLO.S   dntloop
  4369.     MOVE.W  #1008,D1
  4370.     MOVEQ   #-1,D2
  4371.     CLR.L   (A0,D1.W)
  4372.     RTS
  4373.  
  4374. DelCmdTrack
  4375.     BSR SaveUndo
  4376.     MOVE.W  PattCurPos,D0
  4377.     BSR GetPositionPtr
  4378.     BSR.S   dct
  4379.     BRA intskip
  4380. dct MOVE.W  ScrPattPos,D0
  4381.     BEQ Return1
  4382.     SUBQ.W  #1,D0
  4383.     LSL.W   #4,D0
  4384. dctloop MOVE.W  18(A0,D0.W),D2
  4385.     AND.W   #$0FFF,D2
  4386.     AND.W   #$F000,2(A0,D0.W)
  4387.     OR.W    D2,2(A0,D0.W)
  4388.     ADD.W   #16,D0
  4389.     CMP.W   #1024,D0
  4390.     BLO.S   dctloop
  4391.     MOVE.W  #1008,D1
  4392.     MOVEQ   #-1,D2
  4393.     AND.W   #$F000,2(A0,D1.W)
  4394.     RTS
  4395.  
  4396. CutCmds BSR SaveUndo
  4397.     LEA CmdsBuffer,A1
  4398.     CLR.W   D0
  4399. cucmloop
  4400.     MOVE.L  0(A0,D0.W),(A1)+
  4401.     AND.L   #$FFFFF000,(A0,D0.W)
  4402.     ADD.W   #16,D0
  4403.     CMP.W   #1024,D0
  4404.     BNE.S   cucmloop
  4405.     CLR.B   RawKeyCode
  4406.     BRA RedrawPattern
  4407.  
  4408. CopyCmds
  4409.     LEA CmdsBuffer,A1
  4410.     CLR.W   D0
  4411. cocmloop
  4412.     MOVE.L  0(A0,D0.W),(A1)+
  4413.     ADD.W   #16,D0
  4414.     CMP.W   #1024,D0
  4415.     BNE.S   cocmloop
  4416.     CLR.B   RawKeyCode
  4417.     RTS
  4418.  
  4419. PasteCmds
  4420.     BSR SaveUndo
  4421.     LEA CmdsBuffer,A1
  4422.     CLR.W   D0
  4423. pacmloop
  4424.     MOVE.L  0(A0,D0.W),D1
  4425.     AND.L   #$FFFFF000,D1
  4426.     MOVE.L  (A1)+,D2
  4427.     AND.L   #$00000FFF,D2
  4428.     OR.L    D2,D1
  4429.     MOVE.L  D1,(A0,D0.W)
  4430.     ADD.W   #16,D0
  4431.     CMP.W   #1024,D0
  4432.     BNE.S   pacmloop
  4433.     CLR.B   RawKeyCode
  4434.     BRA RedrawPattern
  4435.  
  4436. ;---- Swap Tracks ----
  4437.  
  4438. SwapTrack
  4439.     BSR StorePtrCol
  4440.     BSR SetWaitPtrCol
  4441.     LEA SwapTrackText,A0
  4442.     BSR ShowStatusText
  4443. swtloop BSR GetHexKey
  4444.     TST.B   D1
  4445.     BEQ.S   swtabor
  4446.     CMP.B   #4,D1
  4447.     BHI.S   swtloop
  4448.     BSR SaveUndo
  4449.     SUBQ.L  #1,D1
  4450.     LSL.L   #2,D1
  4451.     MOVE.L  D1,D0
  4452.     MOVE.L  SongDataPtr,A0
  4453.     LEA sd_patterndata(A0),A0
  4454.     MOVE.L  PatternNumber,D1
  4455.     LSL.L   #8,D1
  4456.     LSL.L   #2,D1
  4457.     ADD.L   D1,A0
  4458.     MOVE.L  A0,A1
  4459.     ADD.L   D0,A0
  4460.     MOVE.W  PattCurPos,D0
  4461.     DIVU    #6,D0
  4462.     AND.L   #$F,D0
  4463.     LSL.L   #2,D0
  4464.     ADD.L   D0,A1
  4465.     MOVEQ   #63,D1
  4466. swtloop2
  4467.     MOVE.L  (A0),D0
  4468.     MOVE.L  (A1),(A0)
  4469.     MOVE.L  D0,(A1)
  4470.     LEA 16(A0),A0
  4471.     LEA 16(A1),A1
  4472.     DBRA    D1,swtloop2
  4473.     BSR RedrawPattern
  4474. swtabor BSR ShowAllRight
  4475.     BRA RestorePtrCol
  4476.  
  4477. SwapTrackText   dc.b 'Swap (1/2/3/4) ?',0,0
  4478.  
  4479. ;---- Block Commands ----
  4480.  
  4481. BlockMarkText   dc.b 'mark block 00-00',0,0
  4482. BlockErrorText  dc.b 'no block marked !',0
  4483. BufEmptyText    dc.b 'buffer is empty !',0
  4484. BlockFromPos    dc.w 0
  4485. BlockToPos  dc.w 0
  4486. BlockMarkFlag   dc.w 0
  4487. BlockBufferFlag dc.w 0
  4488. JoinPasteFlag   dc.w 0
  4489. PolyPasteFlag   dc.w 0
  4490. BuffFromPos dc.w 0
  4491. BuffToPos   dc.w 0
  4492.  
  4493. BeginBlock
  4494.     CLR.B   RawKeyCode
  4495.     TST.W   BlockMarkFlag
  4496.     BEQ.S   beblskp
  4497. blkunma CLR.W   BlockMarkFlag
  4498.     BRA ShowAllRight
  4499. beblskp MOVE.W  #1,BlockMarkFlag
  4500.     MOVE.W  ScrPattPos,BlockFromPos
  4501.     MOVE.W  ScrPattPos,BlockToPos
  4502. ShowBlockPos
  4503.     MOVE.W  BlockFromPos,D0
  4504.     MOVE.W  BlockToPos,D1
  4505.     CMP.W   D0,D1
  4506.     BHS.S   sbpskip
  4507.     EXG D0,D1
  4508. sbpskip LEA BlockMarkText+12(PC),A0
  4509.     BSR IntTo2DecAscii
  4510.     LEA BlockMarkText+15(PC),A0
  4511.     MOVE.W  D1,D0
  4512.     BSR IntTo2DecAscii
  4513.     LEA BlockMarkText(PC),A0
  4514.     BRA ShowStatusText
  4515.  
  4516. Re_MarkBlock
  4517.     CLR.B   RawKeyCode
  4518.     MOVE.W  #1,BlockMarkFlag
  4519.     MOVE.W  BlockToPos,ScrPattPos
  4520.     BSR SetScrPatternPos
  4521.     BRA.S   ShowBlockPos
  4522.  
  4523. CheckBlockPos
  4524.     TST.W   BlockMarkFlag
  4525.     BEQ Return1
  4526.     MOVE.W  ScrPattPos,D0
  4527.     CMP.W   BlockToPos,D0
  4528.     BEQ Return1
  4529.     MOVE.W  D0,BlockToPos
  4530.     BRA.S   ShowBlockPos
  4531.  
  4532. IntTo2DecAscii
  4533.     AND.L   #$FF,D0
  4534.     DIVU    #10,D0
  4535.     ADD.B   #'0',D0
  4536.     MOVE.B  D0,-1(A0)
  4537.     SWAP    D0
  4538.     ADD.B   #'0',D0
  4539.     MOVE.B  D0,(A0)
  4540.     RTS
  4541.  
  4542. CutBlock
  4543.     CLR.B   RawKeyCode
  4544.     TST.W   BlockMarkFlag
  4545.     BEQ BlockError
  4546.     BSR.S   cobldo
  4547.     MOVE.W  #1,BlockMarkFlag
  4548.     BRA ClearBlock
  4549.  
  4550. CopyBlock
  4551.     CLR.B   RawKeyCode
  4552.     TST.W   BlockMarkFlag
  4553.     BEQ BlockError
  4554. cobldo  CLR.W   BlockMarkFlag
  4555.     MOVE.W  #1,BlockBufferFlag
  4556.     MOVE.W  PattCurPos,D0
  4557.     BSR GetPositionPtr
  4558.     LEA BlockBuffer,A1
  4559.     MOVEQ   #63,D0
  4560. cobllop MOVE.L  (A0),(A1)
  4561.     LEA 16(A0),A0
  4562.     LEA 16(A1),A1
  4563.     DBRA    D0,cobllop
  4564.     MOVE.W  BlockFromPos,D0
  4565.     MOVE.W  BlockToPos,D1
  4566.     CMP.W   D0,D1
  4567.     BHS.S   coblskp
  4568.     EXG D0,D1
  4569. coblskp MOVE.W  D0,BuffFromPos
  4570.     MOVE.W  D1,BuffToPos
  4571.     BRA ShowAllRight
  4572.  
  4573.  
  4574. PasteBlock
  4575.     CLR.B   RawKeyCode
  4576.     TST.W   BlockBufferFlag
  4577.     BEQ BufferError
  4578.     BSR SaveUndo
  4579.     MOVE.W  PattCurPos,D0
  4580.     BSR GetPositionPtr
  4581.     LEA BlockBuffer,A1
  4582.     MOVE.W  BuffFromPos,D0
  4583.     MOVE.W  BuffToPos,D1
  4584.     MOVE.W  ScrPattPos,D2
  4585.     LSL.W   #4,D0
  4586.     LSL.W   #4,D1
  4587.     LSL.W   #4,D2
  4588. pabllop MOVE.L  (A1,D0.W),D3
  4589.     TST.W   JoinPasteFlag
  4590.     BEQ.S   pablskp
  4591.     MOVE.L  D3,D4
  4592.     AND.L   #$FFFFF000,D4
  4593.     BNE.S   pablskp
  4594.     MOVE.L  (A0,D2.W),D4
  4595.     AND.L   #$FFFFF000,D4
  4596.     AND.L   #$00000FFF,D3
  4597.     OR.L    D4,D3
  4598. pablskp MOVE.L  D3,(A0,D2.W)
  4599.     CMP.W   D0,D1
  4600.     BEQ.S   pablend
  4601.     CMP.W   #63*16,D0
  4602.     BEQ.S   pablend
  4603.     CMP.W   #63*16,D2
  4604.     BEQ.S   pablend
  4605.     ADD.W   #16,D0
  4606.     ADD.W   #16,D2
  4607.     TST.W   PolyPasteFlag
  4608.     BEQ.S   pabllop
  4609.     MOVEM.L A1/D0-D2,-(SP)
  4610.     BSR GotoNextMulti
  4611.     MOVE.W  PattCurPos,D0
  4612.     BSR GetPositionPtr
  4613.     MOVEM.L (SP)+,A1/D0-D2
  4614.     BRA.S   pabllop
  4615. pablend CLR.W   JoinPasteFlag
  4616.     CLR.W   PolyPasteFlag
  4617.     BSR ShowAllRight
  4618.     BSR RedrawPattern
  4619.     TST.W   ShiftKeyStatus
  4620.     BNE Return1
  4621.     MOVE.W  BuffToPos,D0
  4622.     SUB.W   BuffFromPos,D0
  4623.     ADDQ.W  #1,D0
  4624.     ADD.W   ScrPattPos,D0
  4625.     CMP.W   #63,D0
  4626.     BLS.S   pablset
  4627.     MOVEQ   #0,D0
  4628. pablset MOVE.W  D0,ScrPattPos
  4629.     BRA SetScrPatternPos
  4630.  
  4631. PolyphonizeBlock
  4632.     MOVE.W  #1,PolyPasteFlag
  4633. JoinPasteBlock
  4634.     MOVE.W  #1,JoinPasteFlag
  4635.     BRA PasteBlock
  4636.  
  4637. InsertBlock
  4638.     CLR.B   RawKeyCode
  4639.     TST.W   BlockBufferFlag
  4640.     BEQ BufferError
  4641.     CMP.W   #63,ScrPattPos
  4642.     BEQ PasteBlock
  4643.     MOVE.W  BuffToPos,D0
  4644.     SUB.W   BuffFromPos,D0
  4645. inbllop MOVE.L  D0,-(SP)
  4646.     MOVE.W  PattCurPos,D0
  4647.     BSR GetPositionPtr
  4648.     BSR inotr
  4649.     MOVE.L  (SP)+,D0
  4650.     DBRA    D0,inbllop
  4651.     BRA PasteBlock
  4652.  
  4653. DeleteBlock
  4654.     CLR.B   RawKeyCode
  4655.     TST.W   BlockMarkFlag
  4656.     BEQ BlockError
  4657.     BSR SaveUndo
  4658.     MOVE.W  BlockFromPos,D0
  4659.     MOVE.W  BlockToPos,D1
  4660.     CMP.W   D0,D1
  4661.     BHS.S   deblskp
  4662.     EXG D0,D1
  4663. deblskp CMP.W   #63,D1
  4664.     BEQ.S   ClearBlock
  4665.     CLR.W   BlockMarkFlag
  4666.     MOVE.W  D0,ScrPattPos
  4667.     ADDQ.W  #1,ScrPattPos
  4668.     SUB.W   D0,D1
  4669.     MOVE.W  D1,D0
  4670. debllop MOVE.L  D0,-(SP)
  4671.     MOVE.W  PattCurPos,D0
  4672.     BSR GetPositionPtr
  4673.     BSR dnt
  4674.     MOVE.L  (SP)+,D0
  4675.     DBRA    D0,debllop
  4676.     SUBQ.W  #1,ScrPattPos
  4677.     BSR ShowAllRight
  4678.     BRA RedrawPattern
  4679.  
  4680. ClearBlock
  4681.     TST.W   BlockMarkFlag
  4682.     BEQ BlockError
  4683.     BSR SaveUndo
  4684.     CLR.W   BlockMarkFlag
  4685.     MOVE.W  PattCurPos,D0
  4686.     BSR GetPositionPtr
  4687.     MOVE.W  BlockFromPos,D0
  4688.     MOVE.W  BlockToPos,D1
  4689.     CMP.W   D0,D1
  4690.     BHS.S   clblskp
  4691.     EXG D0,D1
  4692. clblskp LSL.W   #4,D0
  4693.     LSL.W   #4,D1
  4694.     MOVEQ   #0,D2
  4695. clbllop MOVE.L  D2,(A0,D0.W)
  4696.     CMP.W   D0,D1
  4697.     BEQ.S   clblend
  4698.     ADD.W   #16,D0
  4699.     BRA.S   clbllop
  4700. clblend BSR ShowAllRight
  4701.     BRA RedrawPattern
  4702.  
  4703. BackwardsBlock
  4704.     CLR.B   RawKeyCode
  4705.     TST.W   BlockMarkFlag
  4706.     BEQ BlockError
  4707.     BSR SaveUndo
  4708.     CLR.W   BlockMarkFlag
  4709.     MOVE.W  PattCurPos,D0
  4710.     BSR GetPositionPtr
  4711.     MOVE.W  BlockFromPos,D0
  4712.     MOVE.W  BlockToPos,D1
  4713.     CMP.W   D0,D1
  4714.     BHS.S   bablskp
  4715.     EXG D0,D1
  4716. bablskp LSL.W   #4,D0
  4717.     LSL.W   #4,D1
  4718. babllop MOVE.L  (A0,D0.W),D2
  4719.     MOVE.L  (A0,D1.W),(A0,D0.W)
  4720.     MOVE.L  D2,(A0,D1.W)
  4721.     CMP.W   D1,D0
  4722.     BHS.S   bablend
  4723.     ADD.W   #16,D0
  4724.     SUB.W   #16,D1
  4725.     CMP.W   D1,D0
  4726.     BHS.S   bablend
  4727.     BRA.S   babllop
  4728. bablend BSR ShowAllRight
  4729.     BRA RedrawPattern
  4730.  
  4731. TransBlockUp
  4732.     SF  trblflag
  4733.     BRA.S   trbldo
  4734. TransBlockDown
  4735.     ST  trblflag
  4736. trbldo  CLR.B   RawKeyCode
  4737.     TST.W   BlockMarkFlag
  4738.     BEQ.S   BlockError
  4739.     BSR SaveUndo
  4740.     MOVE.W  #2,NoteShift
  4741.     MOVE.W  BlockFromPos,D0
  4742.     MOVE.W  BlockToPos,D1
  4743.     CMP.W   D0,D1
  4744.     BHS.S   trblskp
  4745.     EXG D0,D1
  4746. trblskp MOVE.W  D0,D5
  4747.     LSL.W   #4,D5
  4748.     SUB.W   D0,D1
  4749.     MOVE.W  D1,D6
  4750.     MOVE.W  PattCurPos,D0
  4751.     BSR GetPositionPtr
  4752.     LEA (A0,D5.W),A3
  4753.     MOVEQ   #0,D3
  4754.     MOVE.B  SampleAllFlag,sampallsave
  4755.     ST  SampleAllFlag
  4756.     TST.B   trblflag
  4757.     BEQ.S   trblup
  4758.     BSR sandlo2
  4759.     MOVE.B  sampallsave,SampleAllFlag
  4760.     BRA RedrawPattern
  4761. trblup  BSR sanulo2
  4762.     MOVE.B  sampallsave,SampleAllFlag
  4763.     BRA RedrawPattern
  4764.  
  4765. trblflag    dc.b 0
  4766. sampallsave dc.b 0
  4767.  
  4768. BlockError
  4769.     LEA BlockErrorText,A0
  4770.     BSR ShowStatusText
  4771.     BRA SetErrorPtrCol
  4772.  
  4773. BufferError
  4774.     LEA BufEmptyText,A0
  4775.     BSR ShowStatusText
  4776.     BRA SetErrorPtrCol
  4777.  
  4778. ExpandTrack
  4779.     CLR.B   RawKeyCode
  4780.     BSR SaveUndo
  4781.     MOVE.W  ScrPattPos,PosSave
  4782.     ADDQ.W  #1,ScrPattPos
  4783.     CMP.W   #64,ScrPattPos
  4784.     BHS.S   extrend
  4785. extrlop MOVE.W  PattCurPos,D0
  4786.     BSR GetPositionPtr
  4787.     BSR inotr
  4788.     ADDQ.W  #2,ScrPattPos
  4789.     CMP.W   #64,ScrPattPos
  4790.     BLO.S   extrlop
  4791. extrend MOVE.W  PosSave,ScrPattPos
  4792.     BRA RedrawPattern
  4793.  
  4794. ContractTrack
  4795.     CLR.B   RawKeyCode
  4796.     BSR SaveUndo
  4797.     MOVE.W  ScrPattPos,PosSave
  4798.     ADDQ.W  #1,ScrPattPos
  4799.     CMP.W   #64,ScrPattPos
  4800.     BHS.S   cotrend
  4801. cotrlop MOVE.W  PattCurPos,D0
  4802.     BSR GetPositionPtr
  4803.     BSR dnt
  4804.     ADDQ.W  #1,ScrPattPos
  4805.     CMP.W   #64,ScrPattPos
  4806.     BLO.S   cotrlop
  4807. cotrend MOVE.W  PosSave,ScrPattPos
  4808.     BRA RedrawPattern
  4809.  
  4810. PosSave dc.w 0
  4811.  
  4812.  
  4813. KillToEndOfTrack
  4814.     CLR.B   RawKeyCode
  4815.     BSR SaveUndo
  4816.     MOVE.W  PattCurPos,D0
  4817.     BSR GetPositionPtr
  4818.     MOVE.W  ScrPattPos,D0
  4819.     MOVE.W  D0,D1
  4820.     MULU    #16,D1
  4821.     LEA (A0,D1.W),A0
  4822.     TST.W   ShiftKeyStatus
  4823.     BNE.S   KillToStart
  4824. kteot   CLR.L   (A0)
  4825.     LEA 16(A0),A0
  4826.     ADDQ.W  #1,D0
  4827.     CMP.W   #64,D0
  4828.     BLO.S   kteot
  4829.     BRA RedrawPattern
  4830.  
  4831. KillToStart
  4832.     CLR.L   (A0)
  4833.     LEA -16(A0),A0
  4834.     TST.W   D0
  4835.     BEQ RedrawPattern
  4836.     SUBQ.W  #1,D0
  4837.     BRA.S   KillToStart
  4838.  
  4839. UndoLastChange
  4840.     CLR.B   RawKeyCode
  4841.     MOVEQ   #0,D0
  4842.     BSR GetPositionPtr
  4843.     LEA UndoBuffer,A1
  4844.     MOVE.W  #255,D0
  4845. unlalop MOVE.L  (A1),D1
  4846.     MOVE.L  (A0),(A1)+
  4847.     MOVE.L  D1,(A0)+
  4848.     DBRA    D0,unlalop
  4849.     BRA RedrawPattern
  4850.  
  4851. SaveUndo
  4852.     MOVEM.L D0/A0-A1,-(SP)
  4853.     MOVEQ   #0,D0
  4854.     BSR GetPositionPtr
  4855.     LEA UndoBuffer,A1
  4856.     MOVE.W  #255,D0
  4857. saunlop MOVE.L  (A0)+,(A1)+
  4858.     DBRA    D0,saunlop
  4859.     MOVEM.L (SP)+,D0/A0-A1
  4860.     RTS
  4861.  
  4862. BoostAll
  4863.     LEA BoostAllText,A0
  4864.     BSR AreYouSure
  4865.     BNE SetErrorPtrCol
  4866.     MOVE.W  InsNum,SaveInstr
  4867.     MOVE.W  #1,InsNum
  4868. boallop BSR ShowSampleInfo
  4869.     BSR Boost2
  4870.     ADDQ.W  #1,InsNum
  4871.     CMP.W   #32,InsNum
  4872.     BLO.S   boallop
  4873.     MOVE.W  SaveInstr,InsNum
  4874.     BRA ShowSampleInfo
  4875.  
  4876. FilterAll
  4877.     LEA FilterAllText,A0
  4878.     BSR AreYouSure
  4879.     BNE SetErrorPtrCol
  4880.     MOVE.W  InsNum,SaveInstr
  4881.     MOVE.W  #1,InsNum
  4882. fiallop BSR ShowSampleInfo
  4883.     BSR Filter2
  4884.     ADDQ.W  #1,InsNum
  4885.     CMP.W   #32,InsNum
  4886.     BLO.S   fiallop
  4887.     MOVE.W  SaveInstr,InsNum
  4888.     BRA ShowSampleInfo
  4889.  
  4890. BoostAllText    dc.b 'boost all samples',0
  4891. FilterAllText   dc.b 'filter all sampls',0
  4892. SaveInstr   dc.w 0
  4893.  
  4894. ;---- Check Function Keys F1-F2 ----
  4895.  
  4896. CheckF1_F2
  4897.     CMP.B   #80,RawKeyCode
  4898.     BEQ.S   SetOctaveLow
  4899.     CMP.B   #81,RawKeyCode
  4900.     BEQ.S   SetOctaveHigh
  4901.     RTS
  4902.  
  4903. SetOctaveLow
  4904.     MOVE.L  #KbdTransTable1,KeyTransTabPtr
  4905.     CLR.B   RawKeyCode
  4906.     RTS
  4907.  
  4908. SetOctaveHigh
  4909.     MOVE.L  #KbdTransTable2,KeyTransTabPtr
  4910.     CLR.B   RawKeyCode
  4911.     RTS
  4912.  
  4913.  
  4914. ;---- Get Hex Key ----
  4915.  
  4916. GetHexByte
  4917.     BSR StorePtrCol
  4918.     BSR SetWaitPtrCol
  4919.     CLR.B   RawKeyCode
  4920.     MOVEQ   #0,D0
  4921.     MOVE.W  TextOffset,D0
  4922.     DIVU    #40,D0
  4923.     ADDQ.W  #6,D0
  4924.     MOVE.W  D0,LineCurY
  4925.     SWAP    D0
  4926.     LSL.W   #3,D0
  4927.     ADDQ.W  #4,D0
  4928.     MOVE.W  D0,LineCurX
  4929.     BSR UpdateLineCurPos
  4930.     BSR.S   GetHexKey
  4931.     MOVE.L  D1,D0
  4932.     MOVE.B  D1,D6
  4933.     LSL.B   #4,D6
  4934.     BSR PrintHexDigit
  4935.     ADD.W   #8,LineCurX
  4936.     BSR UpdateLineCurPos
  4937.     BSR.S   GetHexKey
  4938.     MOVE.L  D1,D0
  4939.     OR.B    D1,D6
  4940.     BSR PrintHexDigit
  4941.     CLR.W   LineCurX
  4942.     MOVE.W  #270,LineCurY
  4943.     BSR UpdateLineCurPos
  4944.     BSR RestorePtrCol
  4945.     MOVEQ   #0,D0
  4946.     MOVE.B  D6,D0
  4947.     RTS
  4948.  
  4949. GetHexKey
  4950.     CLR.B   MixChar
  4951.     MOVEQ   #0,D0
  4952.     MOVEQ   #0,D1
  4953.     BTST    #2,$DFF016
  4954.     BEQ.S   ghkreturn
  4955.     BSR DoKeyBuffer
  4956.     MOVE.B  RawKeyCode,D0
  4957.     MOVE.B  D0,MixChar
  4958.     BEQ.S   GetHexKey
  4959.     CMP.B   #68,D0 ; CR
  4960.     BEQ.S   ghkreturn
  4961.     CMP.B   #69,D0 ; Esc
  4962.     BEQ.S   ghkreturn
  4963.     CMP.B   #79,D0 ; <--
  4964.     BEQ.S   ghkleft
  4965.     CMP.B   #78,D0 ; -->
  4966.     BEQ.S   ghkright
  4967.     BSR.S   CheckHexKey
  4968.     CMP.B   #16,D1
  4969.     BEQ.S   GetHexKey
  4970.     CLR.B   RawKeyCode
  4971. ghkreturn
  4972.     MOVEQ   #0,D0
  4973.     RTS
  4974.  
  4975. ghkleft MOVEQ   #-1,D0
  4976.     RTS
  4977.  
  4978. ghkright
  4979.     MOVEQ   #1,D0
  4980.     RTS
  4981.  
  4982. CheckHexKey
  4983.     LEA RawKeyHexTable,A0
  4984.     MOVEQ   #0,D1
  4985. chxloop CMP.B   (A0)+,D0
  4986.     BEQ Return1
  4987.     ADDQ.B  #1,D1
  4988.     CMP.B   #16,D1
  4989.     BNE.S   chxloop
  4990.     RTS
  4991.  
  4992. ;---- Enter Edit Commands (effects) ----
  4993.  
  4994. EditCommand
  4995.     TST.L   EditMode
  4996.     BEQ Return1
  4997.     MOVEQ   #0,D0
  4998.     MOVE.B  RawKeyCode,D0
  4999.     BSR.S   CheckHexKey
  5000.     CMP.B   #16,D1
  5001.     BNE.S   DoEditCommand
  5002.     RTS
  5003.  
  5004. DoEditCommand
  5005.     CMP.W   #1,PattCurPos
  5006.     BNE.S   ChkPos2
  5007.     CMP.W   #1,D1
  5008.     BHI Return1
  5009.     MOVE.L  #$FFF,D2
  5010.     CLR.W   CmdOffset
  5011.     LSL.W   #4,D1
  5012.     LSL.W   #8,D1
  5013.     BRA UpdateCommand
  5014.  
  5015. ChkPos2 CMP.W   #2,PattCurPos
  5016.     BNE.S   ChkPos3
  5017.     MOVE.L  #$FFF,D2
  5018.     MOVE.W  #2,CmdOffset
  5019.     LSL.W   #4,D1
  5020.     LSL.W   #8,D1
  5021.     BRA UpdateCommand
  5022.  
  5023. ChkPos3 CMP.W   #3,PattCurPos
  5024.     BNE.S   ChkPos4
  5025.     MOVE.L  #$F0FF,D2
  5026.     MOVE.W  #2,CmdOffset
  5027.     LSL.W   #8,D1
  5028.     BRA UpdateCommand
  5029.  
  5030. ChkPos4 CMP.W   #4,PattCurPos
  5031.     BNE.S   ChkPos5
  5032.     MOVE.L  #$FF0F,D2
  5033.     MOVE.W  #2,CmdOffset
  5034.     LSL.W   #4,D1
  5035.     BRA UpdateCommand
  5036.  
  5037. ChkPos5 CMP.W   #5,PattCurPos
  5038.     BNE.S   ChkPos7
  5039.     MOVE.L  #$FFF0,D2
  5040.     MOVE.W  #2,CmdOffset
  5041.     BRA UpdateCommand
  5042.  
  5043. ChkPos7 CMP.W   #7,PattCurPos
  5044.     BNE.S   ChkPos8
  5045.     CMP.W   #1,D1
  5046.     BHI Return1
  5047.     MOVE.L  #$FFF,D2
  5048.     MOVE.W  #4,CmdOffset
  5049.     LSL.W   #4,D1
  5050.     LSL.W   #8,D1
  5051.     BRA UpdateCommand
  5052.  
  5053. ChkPos8 CMP.W   #8,PattCurPos
  5054.     BNE.S   ChkPos9
  5055.     MOVE.L  #$FFF,D2
  5056.     MOVE.W  #6,CmdOffset
  5057.     LSL.W   #4,D1
  5058.     LSL.W   #8,D1
  5059.     BRA UpdateCommand
  5060.  
  5061. ChkPos9 CMP.W   #9,PattCurPos
  5062.     BNE.S   ChkPos10
  5063.     MOVE.L  #$F0FF,D2
  5064.     MOVE.W  #6,CmdOffset
  5065.     LSL.W   #8,D1
  5066.     BRA UpdateCommand
  5067.  
  5068. ChkPos10
  5069.     CMP.W   #10,PattCurPos
  5070.     BNE.S   ChkPos11
  5071.     MOVE.L  #$FF0F,D2
  5072.     MOVE.W  #6,CmdOffset
  5073.     LSL.W   #4,D1
  5074.     BRA UpdateCommand
  5075.  
  5076. ChkPos11
  5077.     CMP.W   #11,PattCurPos
  5078.     BNE.S   ChkPos13
  5079.     MOVE.L  #$FFF0,D2
  5080.     MOVE.W  #6,CmdOffset
  5081.     BRA UpdateCommand
  5082.  
  5083. ChkPos13
  5084.     CMP.W   #13,PattCurPos
  5085.     BNE.S   ChkPos14
  5086.     CMP.W   #1,D1
  5087.     BHI Return1
  5088.     MOVE.L  #$FFF,D2
  5089.     MOVE.W  #8,CmdOffset
  5090.     LSL.W   #4,D1
  5091.     LSL.W   #8,D1
  5092.     BRA UpdateCommand
  5093.  
  5094. ChkPos14
  5095.     CMP.W   #14,PattCurPos
  5096.     BNE.S   ChkPos15
  5097.     MOVE.L  #$FFF,D2
  5098.     MOVE.W  #10,CmdOffset
  5099.     LSL.W   #4,D1
  5100.     LSL.W   #8,D1
  5101.     BRA UpdateCommand
  5102.  
  5103. ChkPos15
  5104.     CMP.W   #15,PattCurPos
  5105.     BNE.S   ChkPos16
  5106.     MOVE.L  #$F0FF,D2
  5107.     MOVE.W  #10,CmdOffset
  5108.     LSL.W   #8,D1
  5109.     BRA UpdateCommand
  5110.  
  5111. ChkPos16
  5112.     CMP.W   #16,PattCurPos
  5113.     BNE.S   ChkPos17
  5114.     MOVE.L  #$FF0F,D2
  5115.     MOVE.W  #10,CmdOffset
  5116.     LSL.W   #4,D1
  5117.     BRA UpdateCommand
  5118.  
  5119. ChkPos17
  5120.     CMP.W   #17,PattCurPos
  5121.     BNE.S   ChkPos19
  5122.     MOVE.L  #$FFF0,D2
  5123.     MOVE.W  #10,CmdOffset
  5124.     BRA UpdateCommand
  5125.  
  5126. ChkPos19
  5127.     CMP.W   #19,PattCurPos
  5128.     BNE.S   ChkPos20
  5129.     CMP.W   #1,D1
  5130.     BHI Return1
  5131.     MOVE.L  #$FFF,D2
  5132.     MOVE.W  #12,CmdOffset
  5133.     LSL.W   #4,D1
  5134.     LSL.W   #8,D1
  5135.     BRA.S   UpdateCommand
  5136.  
  5137. ChkPos20
  5138.     CMP.W   #20,PattCurPos
  5139.     BNE.S   ChkPos21
  5140.     MOVE.L  #$FFF,D2
  5141.     MOVE.W  #14,CmdOffset
  5142.     LSL.W   #4,D1
  5143.     LSL.W   #8,D1
  5144.     BRA.S   UpdateCommand
  5145.  
  5146. ChkPos21
  5147.     CMP.W   #21,PattCurPos
  5148.     BNE.S   ChkPos22
  5149.     MOVE.L  #$F0FF,D2
  5150.     MOVE.W  #14,CmdOffset
  5151.     LSL.W   #8,D1
  5152.     BRA.S   UpdateCommand
  5153.  
  5154. ChkPos22
  5155.     CMP.W   #22,PattCurPos
  5156.     BNE.S   MustBePos23
  5157.     MOVE.L  #$FF0F,D2
  5158.     MOVE.W  #14,CmdOffset
  5159.     LSL.W   #4,D1
  5160.     BRA.S   UpdateCommand
  5161.  
  5162. MustBePos23
  5163.     MOVE.L  #$FFF0,D2
  5164.     MOVE.W  #14,CmdOffset
  5165. UpdateCommand
  5166.     MOVE.L  SongDataPtr,A0
  5167.     LEA sd_patterndata(A0),A0
  5168.     MOVE.L  PatternNumber,D0
  5169.     LSL.L   #8,D0
  5170.     LSL.L   #2,D0
  5171.     ADD.L   D0,A0
  5172.     MOVEQ   #0,D0
  5173.     MOVE.W  ScrPattPos,D0
  5174.     LSL.W   #4,D0
  5175.     EXT.L   D0
  5176.     ADD.L   D0,A0
  5177.     ADD.W   CmdOffset,A0
  5178.     AND.W   D2,(A0)
  5179.     ADD.W   D1,(A0)
  5180.     MOVE.W  (A0),WordNumber
  5181.     MOVEQ   #0,D0
  5182.     MOVE.W  ScrPattPos,D0
  5183.     MULU    #7*40,D0
  5184.     MOVE.W  PattCurPos,D1
  5185.     DIVU    #6,D1
  5186.     MULU    #9,D1
  5187.     ADD.L   D1,D0
  5188.     ADD.W   #7528,D0
  5189.     MOVE.W  D0,TextOffset
  5190.     CMP.W   #0,CmdOffset
  5191.     BEQ.S   ShowInstrNibble
  5192.     CMP.W   #4,CmdOffset
  5193.     BEQ.S   ShowInstrNibble
  5194.     CMP.W   #8,CmdOffset
  5195.     BEQ.S   ShowInstrNibble
  5196.     CMP.W   #12,CmdOffset
  5197.     BEQ.S   ShowInstrNibble
  5198.     BSR PrintHexWord
  5199. dscend  BSR EditMoveDown
  5200.     CLR.B   RawKeyCode
  5201.     RTS
  5202.  
  5203. ShowInstrNibble
  5204.     SUBQ.W  #1,TextOffset
  5205.     MOVE.W  #1,TextLength
  5206.     MOVEQ   #0,D0
  5207.     MOVE.W  (A0),D0
  5208.     AND.W   #$F000,D0
  5209.     BNE.S   sinokok
  5210.     TST.B   BlankZeroFlag
  5211.     BEQ.S   sinokok
  5212.     MOVE.L  #BlankInsText,D0
  5213.     BRA.S   sinprt
  5214. sinokok LSR.W   #4,D0
  5215.     LSR.W   #7,D0
  5216.     ADD.L   #FastHexTable+1,D0
  5217. sinprt  MOVE.L  D0,ShowTextPtr
  5218.     BSR ShowText
  5219.     BRA.S   dscend
  5220.  
  5221. ;---- Store/Insert Effect Commands ----
  5222.  
  5223. CheckStoreEffect
  5224.     MOVEQ   #0,D0
  5225.     MOVE.B  RawKeyCode,D0
  5226.     BEQ Return1
  5227.     CMP.B   #70,D0 ; Del
  5228.     BEQ CheckKeyboard2
  5229.     CMP.B   #10,D0
  5230.     BHI Return1
  5231.     SUBQ.B  #1,D0
  5232.     ADD.B   D0,D0
  5233.     MOVE.L  D0,D7
  5234.     MOVE.W  PattCurPos,D0
  5235.     BSR GetPositionPtr
  5236.     MOVE.W  ScrPattPos,D0
  5237.     LSL.W   #4,D0
  5238.     LEA (A0,D0.W),A0
  5239.     MOVE.W  2(A0),D0
  5240.     AND.W   #$0FFF,D0
  5241.     LEA EffectMacros,A0
  5242.     MOVE.W  D0,(A0,D7.W)
  5243.     LEA CommandStoredText,A0
  5244.     BSR ShowStatusText
  5245.     BSR WaitALittle
  5246.     BRA ShowAllRight
  5247.  
  5248. CommandStoredText dc.b 'command stored!',0
  5249.  
  5250. CheckInsertEffect
  5251.     CLR.W   InsEfx
  5252.     MOVEQ   #0,D0
  5253.     MOVE.B  RawKeyCode,D0
  5254.     BEQ Return1
  5255.     CMP.B   #70,D0 ; Del
  5256.     BEQ CheckKeyboard2
  5257.     CMP.B   #11,D0 ; -
  5258.     BEQ DecreaseEffect
  5259.     CMP.B   #12,D0 ; = (+)
  5260.     BEQ.S   IncreaseEffect
  5261.     CMP.B   #13,D0 ; \
  5262.     BEQ.S   CopyEffect
  5263.     CMP.B   #10,D0
  5264.     BHI Return1
  5265.     SUBQ.B  #1,D0
  5266.     ADD.B   D0,D0
  5267.     LEA EffectMacros,A0
  5268.     MOVE.W  (A0,D0.W),InsEfx
  5269. DoInsEffect
  5270.     MOVE.B  #70,RawKeyCode
  5271.     BRA CheckNoteKeys
  5272.  
  5273. GetLastEffect
  5274.     MOVE.W  PattCurPos,D0
  5275.     BSR GetPositionPtr
  5276.     MOVE.W  ScrPattPos,D0
  5277.     SUBQ.W  #1,D0
  5278.     AND.W   #$3F,D0
  5279.     LSL.W   #4,D0
  5280.     LEA (A0,D0.W),A0
  5281.     MOVE.W  2(A0),D0
  5282.     AND.W   #$0FFF,D0
  5283.     RTS
  5284.  
  5285. CopyEffect
  5286.     BSR.S   GetLastEffect
  5287.     MOVE.W  D0,InsEfx
  5288.     BRA.S   DoInsEffect
  5289.  
  5290. IncreaseEffect
  5291.     BSR.S   GetLastEffect
  5292.     MOVE.W  D0,D1
  5293.     AND.W   #$0F00,D1
  5294.     CMP.W   #$0E00,D1
  5295.     BEQ.S   IncECom
  5296.     ADDQ.B  #1,D0
  5297.     MOVE.W  D0,InsEfx
  5298.     BRA.S   DoInsEffect
  5299.  
  5300. IncECom MOVE.W  D0,D1
  5301.     ADDQ.B  #1,D1
  5302.     AND.B   #$0F,D1
  5303.     AND.W   #$0FF0,D0
  5304.     OR.B    D1,D0
  5305.     MOVE.W  D0,InsEfx
  5306.     BRA.S   DoInsEffect
  5307.  
  5308. DecreaseEffect
  5309.     BSR.S   GetLastEffect
  5310.     MOVE.W  D0,D1
  5311.     AND.W   #$0F00,D1
  5312.     CMP.W   #$0E00,D1
  5313.     BEQ.S   DecECom
  5314.     SUBQ.B  #1,D0
  5315.     MOVE.W  D0,InsEfx
  5316.     BRA DoInsEffect
  5317.  
  5318. DecECom MOVE.W  D0,D1
  5319.     SUBQ.B  #1,D1
  5320.     AND.B   #$0F,D1
  5321.     AND.W   #$0FF0,D0
  5322.     OR.B    D1,D0
  5323.     MOVE.W  D0,InsEfx
  5324.     BRA DoInsEffect
  5325.  
  5326. InsEfx  dc.w 0
  5327.  
  5328. ;---- Check Keyboard for notekeys ----
  5329.  
  5330. CheckKeyboard
  5331.     TST.B   RawKeyCode
  5332.     BEQ Return1
  5333.     TST.W   LeftAmigaStatus
  5334.     BNE Return1
  5335.     TST.W   CtrlKeyStatus
  5336.     BNE Return1
  5337.     TST.W   ShiftKeyStatus
  5338.     BNE CheckStoreEffect
  5339.     TST.W   AltKeyStatus
  5340.     BNE CheckInsertEffect
  5341. CheckKeyboard2
  5342.     MOVE.W  PattCurPos,D0
  5343.     BEQ.S   CheckNoteKeys
  5344.     CMP.W   #6,D0
  5345.     BEQ.S   CheckNoteKeys
  5346.     CMP.W   #12,D0
  5347.     BEQ.S   CheckNoteKeys
  5348.     CMP.W   #18,D0
  5349.     BEQ.S   CheckNoteKeys
  5350.     TST.L   EditMode
  5351.     BNE EditCommand
  5352.     RTS
  5353.  
  5354. CheckNoteKeys
  5355.     LEA RawKeyScaleTable,A0
  5356.     MOVE.B  RawKeyCode,D1
  5357.     MOVEQ   #38,D0
  5358. cnkloop CMP.B   0(A0,D0.W),D1
  5359.     BEQ.S   NoteKeyPressed
  5360.     DBRA    D0,cnkloop
  5361.     RTS
  5362.  
  5363. NoteKeyPressed
  5364.     CLR.B   RawKeyCode
  5365.     MOVE.L  KeyTransTabPtr,A1
  5366.     MOVE.B  (A1,D0.W),D0
  5367.     CMP.W   #36,D0
  5368.     BHS.S   nkpskip
  5369.     MOVE.L  SplitAddress,D1
  5370.     BEQ.S   nkpskip
  5371.     CLR.L   SplitAddress
  5372.     MOVE.L  D1,A0
  5373.     MOVE.B  D0,(A0)
  5374.     MOVE.W  SamNoteType,D1
  5375.     BEQ ShowSplit
  5376.     CLR.W   SamNoteType
  5377.     AND.W   #$FF,D0
  5378.     MOVE.W  D0,(A0)
  5379.     CMP.W   #1,D1
  5380.     BEQ.S   loclab1
  5381.     CMP.W   #3,D1
  5382.     BEQ ShowS2TuneNote
  5383.     CMP.W   #4,D1
  5384.     BEQ ShowAllRight
  5385.     JMP ShowResamNote
  5386. loclab1 JMP ShowSamNote
  5387. nkpskip MOVE.W  InsNum,PlayInsNum
  5388.     TST.B   SplitFlag
  5389.     BEQ.S   nkpskip2
  5390.     LEA SplitInstrTable,A1
  5391.     MOVE.B  (A1,D0.W),D1
  5392.     BEQ.S   nkpskip3
  5393.     MOVE.B  D1,PlayInsNum+1
  5394. nkpskip3
  5395.     LEA SplitTransTable,A1
  5396.     MOVE.B  (A1,D0.W),D0
  5397. nkpskip2
  5398.     MOVEQ   #0,D2
  5399. playtheinstr
  5400.     LEA PeriodTable,A1 ; note in d0 here
  5401.     MOVE.L  D0,D4
  5402.     LSL.W   #1,D0
  5403.     MOVEQ   #0,D3
  5404.     MOVE.W  (A1,D0.W),D3
  5405.  
  5406.     MOVE.L  SongDataPtr,A0 ; This fixes finetune...
  5407.     LEA 14(A0),A0
  5408.     MOVE.W  InsNum,D1
  5409.     BNE.S   nkpskipit
  5410.     MOVE.W  LastInsNum,D1
  5411. nkpskipit
  5412.     MULU    #30,D1
  5413.     ADD.L   D1,A0
  5414.     MOVEQ   #0,D1
  5415.     MOVE.B  (A0),D1 ; get finetune
  5416.     MULU    #37*2,D1
  5417.     ADD.L   D1,A1
  5418.     MOVE.W  (A1,D0.W),CurrentPlayNote
  5419.     TST.L   D2
  5420.     BEQ.S   nkpnrml
  5421.     CMP.B   #2,pnoteflag
  5422.     BNE antpskip
  5423.  
  5424. nkpnrml TST.L   EditMode
  5425.     BEQ antpskip
  5426. AddNoteToPattern
  5427.     MOVE.L  SongDataPtr,A0
  5428.     LEA sd_patterndata(A0),A0   ; Find first pattern
  5429.     MOVE.L  PatternNumber,D0
  5430.     LSL.L   #8,D0
  5431.     LSL.L   #2,D0
  5432.     ADD.L   D0,A0   ; Find current pattern
  5433.     MOVEQ   #0,D0
  5434.     MOVE.W  ScrPattPos,D0
  5435.     BSR QuantizeCheck
  5436.     LSL.W   #4,D0
  5437.     EXT.L   D0
  5438.     ADD.L   D0,A0   ; Find current pos
  5439.     MOVE.W  PattCurPos,D0
  5440.     DIVU    #6,D0
  5441.     LSL.W   #2,D0
  5442.     EXT.L   D0
  5443.     ADD.L   D0,A0   ; Find current channel
  5444.     TST.W   AltKeyStatus
  5445.     BEQ.S   antpsks
  5446.     AND.L   #$FFFFF000,(A0)
  5447.     MOVE.W  InsEfx,D0
  5448.     OR.W    D0,2(A0)
  5449.     BRA.S   antp3
  5450. antpsks TST.W   ShiftKeyStatus
  5451.     BEQ.S   antpskip2
  5452.     CLR.L   (A0)
  5453. antpskip2
  5454.     MOVE.W  D3,(A0) ; Put note into pattern
  5455.     BEQ.S   antp2
  5456.     TST.B   AutoInsFlag
  5457.     BEQ.S   antp4
  5458.     MOVE.W  VolumeEfx,2(A0)
  5459. antp4   MOVEQ   #0,D0
  5460.     MOVE.W  PlayInsNum,D0
  5461.     LSL.W   #4,D0
  5462.     AND.B   #$F,2(A0)
  5463.     ADD.B   D0,2(A0)
  5464.     LSL.W   #4,D0
  5465.     AND.W   #$F000,D0
  5466.     OR.W    D0,(A0)
  5467.     BRA.S   antp3
  5468.  
  5469. antp2   AND.W   #$0FFF,2(A0)
  5470. antp3   MOVE.W  2(A0),CurrCmds
  5471.     MOVE.L  NoteNamesPtr,A0
  5472.     LSL.W   #2,D4
  5473.     EXT.L   D4
  5474.     ADD.L   D4,A0
  5475.     MOVE.L  A0,ShowTextPtr
  5476.     MOVE.W  #3,TextLength
  5477.     MOVEQ   #0,D0
  5478.     MOVE.W  ScrPattPos,D0
  5479.     BSR QuantizeCheck
  5480.     MULU    #7*40,D0
  5481.     MOVEQ   #0,D1
  5482.     MOVE.W  PattCurPos,D1
  5483.     DIVU    #6,D1
  5484.     MULU    #9,D1
  5485.     ADD.L   D1,D0
  5486.     ADD.W   #7524,D0
  5487.     MOVE.W  D0,TextOffset
  5488.     TST.W   AltKeyStatus
  5489.     BEQ.S   antpnot
  5490.     ADDQ.W  #4,D0
  5491.     MOVE.W  D0,TextOffset
  5492.     BRA.S   antpalt
  5493. antpnot BSR ShowText    ; Show notename
  5494.     BSR PrintHiInstrNum
  5495. antpalt
  5496.     MOVE.W  CurrCmds,WordNumber
  5497.     BSR PrintHexWord
  5498.     BSR EditMoveDown
  5499. antpskip
  5500.     TST.W   DidQuantize
  5501.     BNE.S   testmul
  5502.     TST.W   CurrentPlayNote
  5503.     BNE PlayNote
  5504. testmul TST.B   MultiFlag
  5505.     BEQ Return1
  5506. GotoNextMulti
  5507.     MOVEQ   #0,D0
  5508.     MOVE.W  PattCurPos,D0
  5509.     DIVU    #6,D0
  5510.     LEA MultiModeNext,A0
  5511.     MOVE.B  (A0,D0.W),D0
  5512.     SUBQ.W  #1,D0
  5513.     AND.W   #3,D0
  5514.     MULU    #6,D0
  5515.     MOVE.W  D0,PattCurPos
  5516.     BRA UpdateCursorPos
  5517.  
  5518. QuantizeCheck
  5519.     TST.L   RunMode
  5520.     BEQ.S   qcend
  5521.     MOVEQ   #0,D1
  5522.     MOVE.B  QuantizeValue,D1
  5523.     BEQ.S   qcend
  5524.     CMP.W   #1,D1
  5525.     BEQ.S   QuanOne
  5526.     MOVE.W  #1,DidQuantize
  5527.     MOVE.L  D1,D2
  5528.     LSR.W   #1,D2
  5529.     ADD.W   D0,D2
  5530.     AND.W   #$003F,D2
  5531.     DIVU    D1,D2
  5532.     MULU    D1,D2
  5533.     CMP.W   D0,D2
  5534.     BHI.S   qcskip
  5535.     CLR.W   DidQuantize
  5536. qcskip  MOVE.W  D2,D0
  5537.     RTS
  5538.  
  5539. QuanOne MOVE.L  CurrSpeed,D1
  5540.     LSR.L   #1,D1
  5541.     CMP.L   Counter,D1
  5542.     BLS.S   QuantToNextNote
  5543. qcend   CLR.W   DidQuantize
  5544.     RTS
  5545.  
  5546. QuantToNextNote
  5547.     ADDQ.W  #1,D0
  5548.     AND.W   #$003F,D0
  5549.     MOVE.W  #1,DidQuantize
  5550.     RTS
  5551.  
  5552. PlayNote
  5553.     CMP.W   #18,PattCurPos
  5554.     BNE.S   ChkChan3
  5555.     LEA $DFF0D0,A5
  5556.     LEA audchan4temp,A4
  5557.     BRA.S   DoPlayNote
  5558.  
  5559. ChkChan3
  5560.     CMP.W   #12,PattCurPos
  5561.     BNE.S   ChkChan2
  5562.     LEA $DFF0C0,A5
  5563.     LEA audchan3temp,A4
  5564.     BRA.S   DoPlayNote
  5565.  
  5566. ChkChan2
  5567.     CMP.W   #6,PattCurPos
  5568.     BNE.S   ChkChan1
  5569.     LEA $DFF0B0,A5
  5570.     LEA audchan2temp,A4
  5571.     BRA.S   DoPlayNote
  5572.  
  5573. ChkChan1
  5574.     TST.W   PattCurPos
  5575.     BNE Return1
  5576.     LEA $DFF0A0,A5
  5577.     LEA audchan1temp,A4
  5578. DoPlayNote
  5579.     MOVE.L  A5,NoteAddr
  5580.     LEA SampleInfo,A6
  5581.     MOVE.W  PlayInsNum,D0
  5582.     BEQ.S   dpnplay
  5583.     LSL.L   #2,D0
  5584.     LEA SamplePtrs,A0
  5585.     LEA SampleInfo2,A6
  5586.     MOVE.L  0(A0,D0.W),si_pointer2
  5587.     MOVE.L  SongDataPtr,A0
  5588.     LEA -10(A0),A0
  5589.     MOVE.W  PlayInsNum,D0
  5590.     MOVE.B  D0,PlayInsNum2
  5591.     MULU    #30,D0
  5592.     ADD.L   D0,A0
  5593.     MOVE.L  22(A0),SampleInfo2
  5594.     MOVE.L  26(A0),si_long2
  5595. dpnplay MOVE.B  PlayInsNum2,n_samplenum(A4)
  5596.     MOVE.W  4(A6),D0 ; repeat
  5597.     BNE.S   dpn2
  5598.     MOVE.W  (A6),D0  ; length
  5599.     BRA.S   dpn3
  5600. dpn2    ADD.W   6(A6),D0 ; add replen
  5601. dpn3    MOVEQ   #0,D1
  5602.     MOVE.B  3(A6),D1
  5603.     MOVE.W  D1,8(A5)        ; Set volume
  5604.     MOVE.B  D1,n_volume(A4)
  5605.     MOVE.W  CurrentPlayNote,6(A5)   ; Set period
  5606.     MOVE.W  CurrentPlayNote,n_period(A4)
  5607.     MOVE.W  n_dmabit(A4),$DFF096    ; Channel DMA off
  5608.     MOVE.L  8(A6),D1
  5609.     ADD.L   StartOfs,D1
  5610.     MOVE.L  D1,(A5)     ; Set sampledata pointer
  5611.     CLR.L   StartOfs
  5612.     MOVE.L  D1,n_start(A4)
  5613.     MOVE.W  D0,4(A5)        ; Set length
  5614.     MOVE.W  D0,n_length(A4)
  5615.     BNE.S   dpnnz
  5616.     MOVEQ   #1,D0
  5617.     MOVE.W  D0,4(A5)
  5618.     MOVE.W  D0,n_length(A4)
  5619. dpnnz   MOVE.W  CurrentPlayNote,D0
  5620.     BSR PlayNoteAnalyze
  5621.     MOVE.W  DMAWait,D0
  5622. dpnolp1 DBRA    D0,dpnolp1
  5623.     MOVE.W  n_dmabit(A4),D0
  5624.     AND.W   ActiveChannels,D0
  5625.     OR.W    #$8000,D0
  5626.     MOVE.W  D0,$DFF096  ; Turn DMA back on
  5627.     MOVE.W  DMAWait,D0
  5628. dpnolp2 DBRA    D0,dpnolp2
  5629.     MOVEQ   #0,D1
  5630.     MOVE.W  4(A6),D1 ; repeat*2
  5631.     ADD.L   D1,D1
  5632.     ADD.L   8(A6),D1 ; + startptr
  5633.     MOVE.L  D1,(A5) ; Set loop pointer
  5634.     MOVE.L  D1,n_loopstart(A4)
  5635.     MOVE.W  6(A6),4(A5) ; Set loop length
  5636.     MOVE.W  6(A6),n_replen(A4)
  5637.     ST  n_trigger(A4)
  5638.     BRA testmul
  5639.  
  5640. PlayInsNum2 dc.b 0,0
  5641.  
  5642. ;---- Check Cursor Arrow Keys ----
  5643.  
  5644. ArrowKeys
  5645.     CMP.B   #4,EnterTextFlag
  5646.     BEQ Return1
  5647.     MOVE.B  RawKeyCode,D0
  5648.     TST.W   GetLineFlag
  5649.     BNE.S   arkeskip
  5650.     TST.W   ShiftKeyStatus
  5651.     BNE.S   arkeskip
  5652.     TST.W   AltKeyStatus
  5653.     BNE.S   arkeskip
  5654.     CMP.W   #2,CurrScreen
  5655.     BEQ.S   arkeskip
  5656.     CMP.B   #78,D0
  5657.     BEQ RightArrow
  5658.     CMP.B   #79,D0
  5659.     BEQ LeftArrow
  5660. arkeskip
  5661.     CMP.B   #76,D0
  5662.     BEQ.S   UpArrow
  5663.     CMP.B   #77,D0
  5664.     BEQ DownArrow
  5665.     CLR.W   ArrowPressed
  5666.     RTS
  5667.  
  5668. ArrowPressed    dc.w    0
  5669. ArrowRepCounter dc.w    0
  5670.  
  5671. UpArrow TST.L   RunMode
  5672.     BNE Return1
  5673.     CMP.W   #2,CurrScreen
  5674.     BEQ Return1
  5675.     CMP.W   #3,CurrScreen
  5676.     BEQ Return1
  5677.     CMP.W   #4,CurrScreen
  5678.     BEQ Return1
  5679.     CMP.W   #6,CurrScreen
  5680.     BEQ Return1
  5681.     TST.W   ArrowPressed
  5682.     BEQ.S   MoveOneUp
  5683.     ADDQ.W  #1,ArrowRepCounter
  5684.     TST.W   AltKeyStatus
  5685.     BNE.S   AltUpArrow
  5686.     TST.W   ShiftKeyStatus
  5687.     BNE.S   ShiftUpArrow
  5688.     CMP.W   #6,ArrowRepCounter
  5689.     BPL.S   MoveOneUp
  5690.     RTS
  5691.  
  5692. ShiftUpArrow
  5693.     CMP.W   #3,ArrowRepCounter
  5694.     BPL.S   MoveOneUp
  5695.     RTS
  5696.  
  5697. AltUpArrow
  5698.     CMP.W   #1,ArrowRepCounter
  5699.     BPL.S   MoveOneUp
  5700.     RTS
  5701.  
  5702. MoveOneUp
  5703.     CLR.W   ArrowRepCounter
  5704.     MOVE.W  #$FFFF,ArrowPressed
  5705.     CMP.L   #'patt',RunMode
  5706.     BEQ Return1
  5707.     SUBQ.W  #1,ScrPattPos
  5708.     AND.W   #$003F,ScrPattPos
  5709.     BRA SetScrPatternPos
  5710.  
  5711. DownArrow
  5712.     TST.L   RunMode
  5713.     BNE Return1
  5714.     CMP.W   #2,CurrScreen
  5715.     BEQ Return1
  5716.     CMP.W   #3,CurrScreen
  5717.     BEQ Return1
  5718.     CMP.W   #4,CurrScreen
  5719.     BEQ Return1
  5720.     CMP.W   #6,CurrScreen
  5721.     BEQ Return1
  5722.     TST.W   ArrowPressed
  5723.     BEQ.S   MoveOneDown
  5724.     ADDQ.W  #1,ArrowRepCounter
  5725.     TST.W   AltKeyStatus
  5726.     BNE.S   AltDownArrow
  5727.     TST.W   ShiftKeyStatus
  5728.     BNE.S   ShiftDownArrow
  5729.     CMP.W   #6,ArrowRepCounter
  5730.     BPL.S   MoveOneDown
  5731.     RTS
  5732.  
  5733. ShiftDownArrow
  5734.     CMP.W   #3,ArrowRepCounter
  5735.     BPL.S   MoveOneDown
  5736.     RTS
  5737.  
  5738. AltDownArrow
  5739.     CMP.W   #1,ArrowRepCounter
  5740.     BPL.S   MoveOneDown
  5741.     RTS
  5742.  
  5743. MoveOneDown
  5744.     CLR.W   ArrowRepCounter
  5745.     MOVE.W  #$FFFF,ArrowPressed
  5746.     TST.L   RunMode
  5747.     BNE Return1
  5748.     ADDQ.W  #1,ScrPattPos
  5749.     AND.W   #$003F,ScrPattPos
  5750.     BRA SetScrPatternPos
  5751.  
  5752. EditMoveDown
  5753.     TST.L   RunMode
  5754.     BNE Return1
  5755.     MOVE.W  EditMoveAdd,D0
  5756.     ADD.W   D0,ScrPattPos
  5757.     AND.W   #$003F,ScrPattPos
  5758.     BRA SetScrPatternPos
  5759.  
  5760. EditMoveAdd dc.w 1
  5761.  
  5762. RightArrow
  5763.     TST.W   ArrowPressed
  5764.     BEQ.S   MoveOneRight
  5765.     ADDQ.W  #1,ArrowRepCounter
  5766.     CMP.W   #6,ArrowRepCounter
  5767.     BPL.S   MoveOneRight
  5768.     RTS
  5769.  
  5770. PatternOneUp
  5771.     ADDQ.L  #1,PatternNumber
  5772.     AND.L   #$3F,PatternNumber
  5773.     BSR Wait_4000
  5774.     BRA RedrawPattern
  5775.  
  5776. MoveOneRight
  5777.     CLR.W   ArrowRepCounter
  5778.     MOVE.W  #$FFFF,ArrowPressed
  5779.     ADDQ.W  #1,PattCurPos
  5780.     CMP.W   #24,PattCurPos
  5781.     BMI.S   morskip
  5782.     CLR.W   PattCurPos
  5783. morskip BRA.S   UpdateCursorPos
  5784.  
  5785. LeftArrow
  5786.     TST.W   ArrowPressed
  5787.     BEQ.S   MoveOneLeft
  5788.     ADDQ.W  #1,ArrowRepCounter
  5789.     CMP.W   #6,ArrowRepCounter
  5790.     BPL.S   MoveOneLeft
  5791.     RTS
  5792.  
  5793. PatternOneDown
  5794.     SUBQ.L  #1,PatternNumber
  5795.     AND.L   #$3F,PatternNumber
  5796.     BSR Wait_4000
  5797.     BRA RedrawPattern
  5798.  
  5799. MoveOneLeft
  5800.     CLR.W   ArrowRepCounter
  5801.     MOVE.W  #$FFFF,ArrowPressed
  5802.     SUBQ.W  #1,PattCurPos
  5803.     TST.W   PattCurPos
  5804.     BPL UpdateCursorPos
  5805.     MOVE.W  #23,PattCurPos
  5806. UpdateCursorPos
  5807.     TST.W   SamScrEnable
  5808.     BNE Return1
  5809.     MOVE.W  PattCurPos,D0
  5810.     LEA CursorPosTable,A0
  5811.     MOVE.B  0(A0,D0.W),D0
  5812.     LSL.W   #3,D0
  5813.     ADD.W   #9,D0
  5814.     MOVE.W  #$BD,D1
  5815.     MOVEQ   #14,D2 ; 14 lines
  5816.     LEA CursorSpriteData,A0
  5817.     BRA SetSpritePos
  5818.  
  5819. ArrowKeys2
  5820.     MOVE.B  RawKeyCode,D0
  5821.     CMP.B   #76,D0
  5822.     BEQ.S   UpArrow2
  5823.     CMP.B   #77,D0
  5824.     BEQ.S   DownArrow2
  5825.     CMP.B   #79,D0
  5826.     BEQ.S   LeftArrow2
  5827.     CMP.B   #78,D0
  5828.     BEQ RightArrow2
  5829.     RTS
  5830.  
  5831. UpArrow2
  5832.     CMP.W   #2,CurrScreen
  5833.     BEQ HelpUp
  5834.     CMP.W   #3,CurrScreen
  5835.     BEQ FilenameOneUp
  5836.     CMP.W   #4,CurrScreen
  5837.     BEQ PED_OneUp
  5838.     CMP.W   #6,CurrScreen
  5839.     BEQ PLSTOneUp
  5840.     RTS
  5841.  
  5842. DownArrow2
  5843.     CMP.W   #2,CurrScreen
  5844.     BEQ HelpDown
  5845.     CMP.W   #3,CurrScreen
  5846.     BEQ FilenameOneDown
  5847.     CMP.W   #4,CurrScreen
  5848.     BEQ PED_OneDown
  5849.     CMP.W   #6,CurrScreen
  5850.     BEQ PLSTOneDown
  5851.     RTS
  5852.  
  5853. LeftArrow2
  5854.     TST.W   ShiftKeyStatus
  5855.     BNE PositionDown
  5856.     TST.W   AltKeyStatus
  5857.     BNE PatternOneDown
  5858.     TST.W   CtrlKeyStatus
  5859.     BNE SampleNumDown
  5860.     CMP.W   #2,CurrScreen
  5861.     BEQ HelpLeft
  5862.     RTS
  5863.  
  5864. RightArrow2
  5865.     TST.W   ShiftKeyStatus
  5866.     BNE PositionUp
  5867.     TST.W   AltKeyStatus
  5868.     BNE PatternOneUp
  5869.     TST.W   CtrlKeyStatus
  5870.     BNE SampleNumUp
  5871.     CMP.W   #2,CurrScreen
  5872.     BEQ HelpRight
  5873.     RTS
  5874.  
  5875. ;---- Update Line Cursor Position ----
  5876.  
  5877. UpdateLineCurPos
  5878.     MOVE.W  LineCurX,D0
  5879.     MOVE.W  LineCurY,D1
  5880.     SUBQ.W  #1,D0
  5881.     MOVEQ   #2,D2
  5882.     LEA LineCurSpriteData,A0
  5883.     BRA SetSpritePos
  5884.  
  5885. ;---- Check Gadgets ----
  5886.  
  5887. CheckGadgets
  5888.     BSR UpdatePointerPos
  5889.     BSR.S   CheckGadgets2
  5890.     CLR.W   notogfl
  5891.     CMP.W   #$FFFF,GadgRepeat
  5892.     BEQ.S   CgRepeat
  5893.     MOVEQ   #0,D0
  5894. cgloop  ADDQ.L  #1,D0
  5895.     TST.B   HHFlag
  5896.     BEQ.S   cgnorma
  5897.     CMP.L   #40000*5,D0
  5898.     BEQ.S   CgRepeat
  5899.     BRA.S   cgnorm2
  5900. cgnorma CMP.L   #40000,D0
  5901.     BEQ.S   CgRepeat
  5902. cgnorm2 BTST    #6,$BFE001
  5903.     BEQ.S   cgloop
  5904.     CLR.W   UpOrDown
  5905.     BRA MainLoop
  5906.  
  5907. CgRepeat
  5908.     TST.B   HHFlag
  5909.     BEQ.S   cgrepe2
  5910.     BSR Wait_4000
  5911. cgrepe2 MOVE.W  #$FFFF,GadgRepeat
  5912.     BTST    #6,$BFE001
  5913.     BEQ.S   CheckGadgets
  5914.     CLR.W   GadgRepeat
  5915.     CLR.W   UpOrDown
  5916.     BRA MainLoop
  5917.  
  5918. CheckGadgets2
  5919.     MOVE.W  MouseX,MouseX2
  5920.     BNE.S   cgskip
  5921.     TST.W   MouseY
  5922.     BNE.S   cgskip
  5923. ChkQuit LEA QuitPTText,A0
  5924.     BSR AreYouSure
  5925.     BEQ ExitCleanup ; Quit PT!
  5926.     RTS
  5927. cgskip  MOVE.W  MouseY,MouseY2
  5928.     CMP.W   #4,CurrScreen
  5929.     BEQ CheckPresEdGadgs
  5930.     MOVE.W  MouseX2,D0
  5931.     MOVE.W  MouseY2,D1
  5932.     CMP.W   #122,D1
  5933.     BHS WantedPattGadg
  5934.     CMP.W   #111,D1
  5935.     BHS CheckSmplNamOrLoad
  5936.     CMP.W   #100,D1
  5937.     BHS TypeInSongName
  5938.     CMP.W   #120,D0
  5939.     BLO.S   cgskip2
  5940.     CMP.W   #6,CurrScreen
  5941.     BEQ CheckPLSTGadgs
  5942. cgskip2 CMP.W   #2,CurrScreen
  5943.     BEQ Return1
  5944.     CMP.W   #3,CurrScreen   ; Screen 3 is DirScreen...
  5945.     BEQ CheckDirGadgets
  5946.     CMP.W   #5,CurrScreen
  5947.     BEQ CheckSetupGadgs
  5948.     CMP.W   #7,CurrScreen
  5949.     BEQ CheckSetup2Gadgs
  5950.     CMP.W   #45,D1
  5951.     BHS.S   cgskip3
  5952.     CMP.W   #306,D0
  5953.     BHS CheckToggle
  5954.     CMP.W   #244,D0
  5955.     BHS.S   MainMenu3
  5956.     CMP.W   #181,D0
  5957.     BHS.S   MainMenu2
  5958.     CMP.W   #120,D0
  5959.     BHS MainMenu1
  5960. cgskip3 CMP.W   #120,D0
  5961.     BHS.S   cgskip4
  5962.     CMP.W   #109,D0
  5963.     BHS DownGadgets
  5964.     CMP.W   #98,D0
  5965.     BHS UpGadgets
  5966.     CMP.W   #62,D0
  5967.     BHS EnterNumGadg
  5968.     BRA PosInsDelGadgs
  5969. cgskip4 TST.B   EdEnable
  5970.     BNE CheckEditOpGadgs
  5971.     BRA ToggleAnaScope
  5972.  
  5973. MainMenu3
  5974.     MOVE.W  MouseY2,D0
  5975.     CMP.W   #34,D0
  5976.     BHS DPMGFIH
  5977.     CMP.W   #23,D0
  5978.     BHS Setup
  5979.     CMP.W   #12,D0
  5980.     BHS PresetEditor
  5981.     TST.W   D0
  5982.     BHS PLST
  5983.     RTS
  5984.  
  5985. DPMGFIH JMP SamplerScreen
  5986.  
  5987. MainMenu2
  5988.     MOVE.W  MouseY2,D0
  5989.     CMP.W   #3,CurrScreen
  5990.     BNE mm2skip
  5991.     CMP.W   #44,D0
  5992.     BHS CheckDirGadgets2
  5993. mm2skip CMP.W   #44,D0
  5994.     BHS Return1
  5995.     CMP.W   #34,D0
  5996.     BHS ShowDirScreen
  5997.     CMP.W   #23,D0
  5998.     BHS DoEditOp
  5999.     CMP.W   #12,D0
  6000.     BHS ClearAll
  6001.     TST.W   D0
  6002.     BHS StopIt
  6003.     RTS
  6004.  
  6005. MainMenu1
  6006.     MOVE.W  MouseY2,D0
  6007.     CMP.W   #3,CurrScreen
  6008.     BNE.S   mm1skip
  6009.     CMP.W   #44,D0
  6010.     BHS CheckDirGadgets2
  6011. mm1skip CMP.W   #44,D0
  6012.     BHS Return1
  6013.     CMP.W   #34,D0
  6014.     BHS RecordPattern
  6015.     CMP.W   #23,D0
  6016.     BHS Edit
  6017.     CMP.W   #12,D0
  6018.     BHS PlayPattern
  6019.     TST.W   D0
  6020.     BHS PlaySong
  6021.     RTS
  6022.  
  6023.  
  6024. ;---- Disk Format ----
  6025.  
  6026. DiskFormatGadg
  6027.     BSR WaitForButtonUp
  6028.     BSR Wait_4000
  6029.     BSR ClearFileNames
  6030.     BSR SwapFormatBox
  6031.     BSR WaitForButtonUp
  6032.     LEA AreYouSureText,A0
  6033.     BSR ShowStatusText
  6034. fmtbuttonchk
  6035.     BSR DoKeyBuffer
  6036.     MOVE.B  RawKeyCode,D0
  6037.     CMP.B   #69,D0 ; ESC
  6038.     BEQ.S   fmtbend
  6039.     BTST    #6,$BFE001
  6040.     BNE.S   fmtbuttonchk
  6041.     MOVEM.W MouseX,D0/D1
  6042.     CMP.W   #89,D0
  6043.     BLO.S   fmtbuttonchk
  6044.     CMP.W   #212,D0
  6045.     BHI.S   fmtbuttonchk
  6046.     CMP.W   #72,D1
  6047.     BLO.S   fmtbuttonchk
  6048.     CMP.W   #82,D1
  6049.     BHI.S   fmtbuttonchk
  6050.     CMP.W   #136,D0
  6051.     BLO.S   DiskFormat
  6052.     CMP.W   #166,D0
  6053.     BLO.S   fmtbuttonchk
  6054. fmtbend BSR.S   SwapFormatBox
  6055.     BRA SetErrorPtrCol
  6056.  
  6057. SwapFormatBox
  6058.     LEA FormatBoxData,A1
  6059.     LEA FormatBoxPos,A0
  6060.     MOVEQ   #38,D0
  6061. sfbloop1
  6062.     MOVEQ   #17,D1
  6063. sfbloop2
  6064.     MOVE.B  10240(A0),D2
  6065.     MOVE.B  702(A1),10240(A0)
  6066.     MOVE.B  D2,702(A1)
  6067.     MOVE.B  (A0),D2
  6068.     MOVE.B  (A1),(A0)+
  6069.     MOVE.B  D2,(A1)+
  6070.     DBRA    D1,sfbloop2
  6071.     LEA $0016(A0),A0
  6072.     DBRA    D0,sfbloop1
  6073.     RTS
  6074.  
  6075. DiskFormat
  6076.     BSR SwapFormatBox
  6077.     BSR ShowAllRight
  6078.     BSR ClearFileNames
  6079.     LEA PlsEntNamText,A0
  6080.     MOVE.W  #2570,D1
  6081.     MOVEQ   #17,D0
  6082.     BSR ShowText3
  6083.     LEA OfVolumeText,A0
  6084.     MOVE.B  #'_',15(A0)
  6085.     MOVE.B  #'_',16(A0)
  6086.     MOVE.W  #2810,D1
  6087.     MOVEQ   #17,D0
  6088.     BSR ShowText3
  6089.     BSR SetWaitPtrCol
  6090.     LEA DiskNumText1,A6
  6091.     MOVEQ   #1,D0
  6092. df_loop CLR.B   0(A6,D0.W)
  6093.     DBRA    D0,df_loop
  6094.     MOVE.L  A6,TextEndPtr
  6095.     MOVE.L  A6,ShowTextPtr
  6096.     ADDQ.L  #2,TextEndPtr
  6097.     MOVE.B  #1,EnterTextFlag
  6098.     MOVE.W  #2825,A4
  6099.     MOVE.W  #2,TextLength
  6100.     BSR GetTextLine
  6101.     CLR.B   EnterTextFlag
  6102.     CLR.L   TextEndPtr
  6103.     BSR ClearFileNames
  6104.     MOVE.L  4.W,A6
  6105.     MOVE.L  #5632,D0
  6106.     MOVEQ   #MEMF_CHIP,D1
  6107.     JSR LVOAllocMem(A6)
  6108.     MOVE.L  D0,FormatDataPtr
  6109.     BEQ df_memerr
  6110.     BSR DoShowFreeMem
  6111.     SUB.L   A1,A1
  6112.     JSR LVOFindTask(A6)
  6113.     MOVE.L  D0,ProcessPtr
  6114.     LEA TrackdiskPort,A1
  6115.     JSR LVOAddPort(A6)
  6116.     LEA TrackdiskIOExtTD,A1
  6117.     MOVEQ   #0,D0
  6118.     MOVEQ   #0,D1
  6119.     LEA TrackdiskName,A0
  6120.     JSR LVOOpenDevice(A6)
  6121.     MOVE.L  #TrackdiskPort,TDPortPtr
  6122.     CLR.W   CylinderNumber
  6123.     LEA TrackdiskIOExtTD,A1
  6124.     MOVE.W  #TD_CHANGESTATE,IO_COMMAND(A1)
  6125.     JSR LVODoIO(A6) ; Check if disk in drive
  6126.     TST.L   IO_ACTUAL(A1)
  6127.     BEQ.S   df_indrive
  6128.     LEA NoDiskInDriveText,A0
  6129.     BSR ShowStatusText
  6130.     MOVE.W  #50,WaitTime
  6131.     BSR SetErrorPtrCol
  6132.     BRA df_cleanup
  6133.  
  6134. df_indrive
  6135.     LEA TrackdiskIOExtTD,A1
  6136.     MOVE.W  #TD_PROTSTATUS,IO_COMMAND(A1)
  6137.     JSR LVODoIO(A6) ; Check write protect
  6138.     TST.L   IO_ACTUAL(A1)
  6139.     BEQ.S   df_noprot
  6140.     LEA WriteProtectedText,A0
  6141.     BSR ShowStatusText
  6142.     MOVE.W  #50,WaitTime
  6143.     BSR SetErrorPtrCol
  6144.     BRA df_cleanup
  6145.  
  6146. df_noprot
  6147.     LEA DiskFormatText,A0
  6148.     MOVE.W  #2581-7,D1
  6149.     MOVEQ   #11,D0
  6150.     BSR ShowText3
  6151.     LEA InProgressText,A0
  6152.     MOVE.W  #2821-7,D1
  6153.     MOVEQ   #11,D0
  6154.     BSR ShowText3
  6155.     CLR.L   FmtDiskOffset
  6156.     MOVE.L  FormatDataPtr,FmtDataPtr
  6157.     MOVE.L  #$00001600,FmtDataSize
  6158.     BSR ClearCylinder
  6159.     BSR SetDiskPtrCol
  6160. df_formatloop
  6161.     LEA FormattingCylText,A0
  6162.     BSR ShowStatusText
  6163.     MOVE.W  CylinderNumber,D0
  6164.     LSR.W   #1,D0
  6165.     MOVE.W  D0,WordNumber
  6166.     BSR Print2DecDigits
  6167.     MOVE.L  4.W,A6
  6168.     LEA TrackdiskIOExtTD,A1
  6169.     MOVE.W  #TD_FORMAT,IO_COMMAND(A1)
  6170.     JSR LVODoIO(A6) ; Format cylinder
  6171.     LEA VerifyingText,A0
  6172.     BSR ShowStatusText
  6173.     MOVE.W  CylinderNumber,D0
  6174.     LSR.W   #1,D0
  6175.     MOVE.W  D0,WordNumber
  6176.     BSR Print2DecDigits
  6177.     MOVE.L  4.W,A6
  6178.     LEA TrackdiskIOExtTD,A1
  6179.     MOVE.W  #CMD_READ,IO_COMMAND(A1)
  6180.     JSR LVODoIO(A6) ; Read cylinder to verify
  6181.     TST.B   Fmt_hmmm
  6182.     BEQ.S   df_verifyok
  6183.     LEA VerifyErrText(PC),A0
  6184.     BSR ShowStatusText
  6185.     MOVE.W  #50,WaitTime
  6186.     BSR SetErrorPtrCol
  6187.     BRA df_cleanup
  6188.  
  6189. VerifyErrText   dc.b "Verify error!",0
  6190.  
  6191. df_verifyok
  6192.     ADD.L   #$1600,FmtDiskOffset
  6193.     ADDQ.W  #1,CylinderNumber
  6194.     CMP.W   #160,CylinderNumber
  6195.     BNE df_formatloop
  6196.  
  6197.     LEA InitDiskText,A0
  6198.     BSR ShowStatusText
  6199.     BSR ClearCylinder
  6200.     LEA TrackdiskIOExtTD,A1
  6201.     CLR.L   IO_OFFSET(A1)
  6202.     MOVE.L  FormatDataPtr,A2
  6203.     MOVE.L  #$444F5300,(A2)       ; 'DOS',0
  6204.     MOVE.W  #880,10(A2)
  6205.     MOVE.L  #512,IO_LENGTH(A1)
  6206.     MOVE.W  #CMD_WRITE,IO_COMMAND(A1)
  6207.     MOVE.L  4.W,A6
  6208.     JSR LVODoIO(A6) ; Write bootblock
  6209.     MOVE.L  #DateStamp,D1
  6210.     MOVE.L  DOSbase,A6
  6211.     JSR LVODateStamp(A6)
  6212.     MOVE.L  4.W,A6
  6213.     BSR ClearCylinder
  6214.     MOVE.L  FormatDataPtr,A2
  6215.     MOVE.W  #2,2(A2)
  6216.     MOVE.W  #$0048,14(A2)
  6217.     MOVE.L  #$FFFFFFFF,$0138(A2)
  6218.     MOVE.W  #$0371,$013E(A2)
  6219.     MOVE.L  #$0553542D,$01B0(A2)
  6220.     MOVE.W  DiskNumText1,$01B4(A2)
  6221.     MOVE.W  #$06F7,$01E2(A2)
  6222.     MOVE.W  #1,$01FE(A2)
  6223.     LEA DateStamp,A0
  6224.     MOVE.L  (A0),D0
  6225.     MOVE.L  D0,$01A4(A2)
  6226.     MOVE.L  D0,$01E4(A2)
  6227.     MOVE.L  4(A0),D0
  6228.     MOVE.L  D0,$01A8(A2)
  6229.     MOVE.L  D0,$01E8(A2)
  6230.     MOVE.L  8(A0),D0
  6231.     MOVE.L  D0,$01AC(A2)
  6232.     MOVE.L  D0,$01EC(A2)
  6233.     MOVE.L  A2,A3
  6234.     MOVE.L  A3,A4
  6235.     MOVEQ   #$7F,D1
  6236.     MOVEQ   #0,D0
  6237.     MOVE.L  D0,$0014(A4)
  6238. df_loop2
  6239.     SUB.L   (A3)+,D0
  6240.     DBRA    D1,df_loop2
  6241.     MOVE.L  D0,$0014(A4)
  6242.     MOVE.L  #$C000C037,$0200(A2)
  6243.     LEA $0204(A2),A3
  6244.     MOVEQ   #$36,D0
  6245. df_loop3
  6246.     MOVE.L  #$FFFFFFFF,(A3)+
  6247.     DBRA    D0,df_loop3
  6248.     MOVE.W  #$3FFF,$0272(A2)
  6249.     MOVE.W  #$3FFF,$02DC(A2)
  6250.     LEA TrackdiskIOExtTD,A1
  6251.     MOVE.L  #$0006E000,IO_OFFSET(A1)
  6252.     MOVE.L  #1024,IO_LENGTH(A1)
  6253.     MOVE.W  #CMD_WRITE,IO_COMMAND(A1)
  6254.     JSR LVODoIO(A6)
  6255.     LEA TrackdiskIOExtTD,A1
  6256.     MOVE.W  #CMD_UPDATE,IO_COMMAND(A1)
  6257.     JSR LVODoIO(A6) ; Flush write buffer
  6258. df_cleanup
  6259.     LEA TrackdiskIOExtTD,A1
  6260.     MOVE.W  #TD_MOTOR,IO_COMMAND(A1)
  6261.     CLR.L   IO_LENGTH(A1)
  6262.     JSR LVODoIO(A6) ; Turn off the motor
  6263.     MOVE.L  Fmt_tja,A0
  6264.     MOVE.L  $0024(A0),A0
  6265.     OR.B    #2,$0040(A0)
  6266.     LEA TrackdiskIOExtTD,A1
  6267.     MOVE.L  4.W,A6
  6268.     JSR LVOCloseDevice(A6)
  6269.     LEA TrackdiskPort,A1
  6270.     JSR LVORemPort(A6)
  6271.     MOVE.L  FormatDataPtr,A1
  6272.     MOVE.L  #5632,D0
  6273.     JSR LVOFreeMem(A6)
  6274.     CMP.W   #160,CylinderNumber
  6275.     BNE.S   df_skip2
  6276.     CMP.W   #'00',DiskNumText1
  6277.     BNE.S   df_skip2
  6278.     MOVE.L  DOSbase,A6
  6279.     MOVE.L  #100,D1 ; Wait 2 sec
  6280.     JSR LVODelay(A6)
  6281.     MOVE.L  #FmtSongDirName,D1
  6282.     JSR LVOCreateDir(A6)
  6283.     MOVE.L  D0,D1
  6284.     JSR LVOUnlock(A6)
  6285.     MOVE.L  #FmtModuleDirName,D1
  6286.     JSR LVOCreateDir(A6)
  6287.     MOVE.L  D0,D1
  6288.     JSR LVOUnlock(A6)
  6289. df_skip2
  6290.     BSR SetNormalPtrCol
  6291.     BSR ShowAllRight
  6292.     BSR ClearFileNames
  6293.     MOVE.W  #1,UpdateFreeMem
  6294.     RTS
  6295.  
  6296. df_memerr
  6297.     BSR OutOfMemErr
  6298.     BRA.S   df_skip2
  6299.  
  6300. ClearCylinder
  6301.     MOVE.L  FormatDataPtr,A0
  6302.     MOVE.W  #1407,D0
  6303.     MOVEQ   #0,D1
  6304. ccloop  MOVE.L  D1,(A0)+
  6305.     DBRA    D0,ccloop
  6306.     RTS
  6307.  
  6308.  
  6309. ;---- Clear All Data ----
  6310.  
  6311. ClearAll
  6312.     ADD.L   #1,LaHeTx
  6313.     MOVE.B  DisableAnalyzer,SaveDA
  6314.     MOVE.B  ScopeEnable,SaveScope
  6315.     SF  ScopeEnable
  6316.     LEA PleaseSelectText,A0
  6317.     BSR ShowStatusText
  6318.     BSR StorePtrCol
  6319.     BSR SetWaitPtrCol
  6320.     BSR Wait_4000
  6321.     CMP #1,CurrScreen
  6322.     BNE.S   clbskip
  6323.     TST.B   DisableAnalyzer
  6324.     BNE.S   clbskip
  6325.     ST  DisableAnalyzer
  6326.     BSR ClearAnaHeights
  6327.     BSR ClearRightArea
  6328. clbskip LEA ClearBoxData,A1
  6329.     BSR SwapBoxMem
  6330.     BSR WaitForButtonUp
  6331.     BSR Wait_4000
  6332. clearbuttoncheck
  6333.     BTST    #2,$DFF016
  6334.     BEQ ClrCancel
  6335.     BSR DoKeyBuffer
  6336.     MOVE.B  RawKeyCode,D0
  6337.     CMP.B   #33,D0 ; Pressed S
  6338.     BEQ ClrSamples
  6339.     CMP.B   #24,D0 ; Pressed O
  6340.     BEQ ClrSong
  6341.     CMP.B   #32,D0 ; Pressed A
  6342.     BEQ ClrAll
  6343.     CMP.B   #51,D0 ; Pressed C
  6344.     BEQ ClrCancel
  6345.     CMP.B   #69,D0 ; Pressed Esc
  6346.     BEQ ClrCancel
  6347.     BTST    #6,$BFE001  ; Left Mousebutton
  6348.     BNE.S   clearbuttoncheck
  6349.     MOVEM.W MouseX,D0/D1
  6350.     CMP.W   #166,D0
  6351.     BLO.S   clearbuttoncheck
  6352.     CMP.W   #257,D0
  6353.     BHI.S   clearbuttoncheck
  6354.     CMP.W   #58,D1
  6355.     BLO.S   clearbuttoncheck
  6356.     CMP.W   #84,D1
  6357.     BHI.S   clearbuttoncheck
  6358.     CMP.W   #204,D0
  6359.     BHS.S   samporcancel
  6360.     CMP.W   #198,D0
  6361.     BLS.S   songorall
  6362.     BRA.S   clearbuttoncheck
  6363.  
  6364. songorall
  6365.     CMP.W   #74,D1
  6366.     BHS.S   ClrAll
  6367.     CMP.W   #68,D1
  6368.     BLS ClrSong
  6369.     BRA clearbuttoncheck
  6370.  
  6371. samporcancel
  6372.     CMP.W   #74,D1
  6373.     BHS.S   ClrCancel
  6374.     CMP.W   #68,D1
  6375.     BLS.S   ClrSamples
  6376.     BRA clearbuttoncheck
  6377.  
  6378. RemoveClearBox
  6379.     LEA ClearBoxData,A1
  6380.     BSR SwapBoxMem
  6381.     BSR ShowAllRight
  6382.     BSR ClearAnaHeights
  6383.     MOVE.B  SaveDA,DisableAnalyzer
  6384.     MOVE.B  SaveScope,ScopeEnable
  6385.     BSR RestorePtrCol
  6386.     CLR.B   RawKeyCode
  6387.     RTS
  6388.  
  6389. ClrCancel
  6390.     BSR.S   RemoveClearBox
  6391.     BRA SetErrorPtrCol
  6392.  
  6393. ClrAll  BSR DoClearSong
  6394.     BSR ClrSampleInfo
  6395.     BSR SetNormalPtrCol
  6396.     BSR.S   RemoveClearBox
  6397.     BRA DisplayMainAll
  6398.  
  6399. ClrSamples
  6400.     BSR.S   RemoveClearBox
  6401.     BSR StopIt
  6402.     BSR ClrSampleInfo
  6403.     BSR SetNormalPtrCol
  6404.     SF  EdEnable
  6405.     MOVE.W  #1,InsNum
  6406.     BRA DisplayMainAll
  6407.  
  6408. ClrSong BSR.S   RemoveClearBox
  6409.     BSR DoClearSong
  6410.     BSR SetNormalPtrCol
  6411.     BRA DisplayMainAll
  6412.  
  6413. ClrSampleInfo
  6414.     BSR GiveBackInstrMem
  6415.     MOVE.L  SongDataPtr,A0
  6416.     LEA sd_sampleinfo(A0),A0
  6417.     MOVE.W  #31*30-1,D0
  6418. csiloop CLR.B   (A0)+
  6419.     DBRA    D0,csiloop
  6420.     MOVE.L  SongDataPtr,A1
  6421.     LEA sd_sampleinfo(A1),A1
  6422.     MOVEQ   #30,D0
  6423. caloop2 MOVE.W  #1,28(A1)
  6424.     LEA 30(A1),A1
  6425.     DBRA    D0,caloop2
  6426.     LEA SampleLengthAdd(PC),A3
  6427.     MOVEQ   #31,D0
  6428. csilop2 CLR.W   (A3)+
  6429.     DBRA    D0,csilop2
  6430.     JMP RedrawSample
  6431.  
  6432. DoClearSong
  6433.     BSR StopIt
  6434.     CLR.B   RawKeyCode
  6435.     MOVE.L  SongDataPtr,A0
  6436.     MOVE.L  A0,A1
  6437.     MOVEQ   #19,D0
  6438. docla2x CLR.B   (A0)+
  6439.     DBRA    D0,docla2x
  6440.     MOVE.L  A1,A2
  6441.     ADD.L   #70716,A2
  6442.     ADD.L   #950,A1
  6443.     MOVEQ   #0,D0
  6444. caloop  MOVE.W  D0,(A1)+
  6445.     CMP.L   A1,A2
  6446.     BNE.S   caloop
  6447.     MOVE.L  SongDataPtr,A0
  6448.     MOVE.W  #$017F,sd_numofpatt(A0)
  6449.     MOVE.L  #'M.K.',sd_mahokakt(A0)  ; M.K. all the way...
  6450.     SF  EdEnable
  6451.     CLR.L   CurrPos
  6452.     CLR.L   SongPosition
  6453.     CLR.L   PatternPosition
  6454.     CLR.L   PatternPtr
  6455.     CLR.L   TimerTicks
  6456.     CLR.W   BlockMarkFlag
  6457.     CLR.B   MetroChannel
  6458.     MOVE.W  #1,EditMoveAdd
  6459.     MOVEQ   #0,D0
  6460.     MOVE.W  DefaultSpeed,D0
  6461.     MOVE.L  D0,CurrSpeed
  6462.     MOVE.W  Tempo,RealTempo
  6463.     BSR SetTempo
  6464.     BSR RestoreEffects2
  6465.     BSR RestoreFKeyPos2
  6466.     BSR UnmuteAll
  6467.     MOVE.W  #1,InsNum
  6468.     MOVE.L  #6,CurrSpeed
  6469.     CLR.L   PatternNumber
  6470.     CLR.W   ScrPattPos
  6471.     BSR SetScrPatternPos
  6472.     BRA RedrawPattern
  6473.  
  6474. UnmuteAll
  6475.     MOVE.W  #1,audchan1toggle
  6476.     MOVE.W  #1,audchan2toggle
  6477.     MOVE.W  #1,audchan3toggle
  6478.     MOVE.W  #1,audchan4toggle
  6479.     MOVE.W  #$000F,ActiveChannels
  6480.     BRA RedrawToggles
  6481.  
  6482. ToggleMute
  6483.     CLR.B   RawKeyCode
  6484.     TST.W   ShiftKeyStatus
  6485.     BEQ tomuskp
  6486.     CLR.W   audchan1toggle
  6487.     CLR.W   audchan2toggle
  6488.     CLR.W   audchan3toggle
  6489.     CLR.W   audchan4toggle
  6490. tomuskp MOVEQ   #0,D0
  6491.     MOVE.W  PattCurPos,D0
  6492.     DIVU    #6,D0
  6493.     MULU    #11,D0
  6494.     ADDQ.W  #4,D0
  6495.     BRA DoToggleMute
  6496.  
  6497. RestoreEffects
  6498.     MOVEQ   #0,D0
  6499.     MOVE.W  DefaultSpeed,D0
  6500.     MOVE.L  D0,CurrSpeed
  6501.     MOVE.W  Tempo,RealTempo
  6502.     BSR SetTempo
  6503.     BSR.S   RestoreEffects2
  6504.     CLR.B   RawKeyCode
  6505.     LEA EfxRestoredText(PC),A0
  6506.     BSR ShowStatusText
  6507.     BSR WaitALittle
  6508.     BRA ShowAllRight
  6509.  
  6510. RestoreEffects2
  6511.     LEA audchan1temp,A0
  6512.     BSR.S   reefsub
  6513.     LEA audchan2temp,A0
  6514.     BSR.S   reefsub
  6515.     LEA audchan3temp,A0
  6516.     BSR.S   reefsub
  6517.     LEA audchan4temp,A0
  6518. reefsub CLR.B   n_wavecontrol(A0)
  6519.     CLR.B   n_glissfunk(A0)
  6520.     CLR.B   n_finetune(A0)
  6521.     CLR.B   n_loopcount(A0)
  6522.     RTS
  6523.  
  6524. RestoreFKeyPos
  6525.     CLR.B   RawKeyCode
  6526.     LEA PosRestoredText(PC),A0
  6527.     BSR ShowStatusText
  6528.     BSR WaitALittle
  6529.     BSR ShowAllRight
  6530. RestoreFKeyPos2
  6531.     MOVE.W  #00,F6pos
  6532.     MOVE.W  #16,F7pos
  6533.     MOVE.W  #32,F8pos
  6534.     MOVE.W  #48,F9pos
  6535.     MOVE.W  #63,F10pos
  6536.     RTS
  6537.  
  6538. EfxRestoredText dc.b 'efx restored !',0
  6539. PosRestoredText dc.b 'pos restored !',0
  6540.  
  6541.  
  6542. GiveBackInstrMem
  6543.     MOVEQ   #1,D7
  6544.     MOVE.L  4.W,A6
  6545. gbimloop
  6546.     MOVE.W  D7,D2
  6547.     LSL.W   #2,D2
  6548.     LEA SamplePtrs,A0
  6549.     MOVE.L  0(A0,D2.W),D1
  6550.     BEQ.S   gbimskip
  6551.     MOVE.L  124(A0,D2.W),D0
  6552.     CLR.L   0(A0,D2.W)
  6553.     CLR.L   124(A0,D2.W)
  6554.     MOVE.L  D1,A1
  6555.     JSR LVOFreeMem(A6)
  6556. gbimskip
  6557.     ADDQ.W  #1,D7
  6558.     CMP.W   #32,D7
  6559.     BNE.S   gbimloop
  6560.     MOVE.W  #1,UpdateFreeMem
  6561.     JMP FreeCopyBuf
  6562.  
  6563. ;---- Setup ----
  6564.  
  6565. Setup   CMP.W   #7,LastSetupScreen
  6566.     BEQ Setup2
  6567.     CLR.W   LastSetupScreen
  6568.     BSR WaitForButtonUp
  6569.     MOVE.W  #5,CurrScreen
  6570.     ST  DisableAnalyzer
  6571.     ST  NoSampleInfo
  6572.     BSR Clear100Lines
  6573.     BSR ShowSetupScreen
  6574.     BEQ ExitSetup
  6575. RefreshSetup
  6576.     BSR SetScreenColors
  6577.     BSR Show_MS
  6578.     CMP.W   #5,CurrScreen
  6579.     BNE Return1
  6580.     BSR MarkColor
  6581.     BSR ShowSetupToggles
  6582.     BSR ShowSplit
  6583.     BSR ShowPrintPath
  6584.     BSR ShowKeyRepeat
  6585.     BSR ShowExtCommand
  6586.     BSR ShowMultiSetup
  6587.     BSR ShowConfigNumber
  6588.     BRA ShowAccidental ; Always last (redraws pattern) !
  6589.  
  6590. ShowSetupScreen
  6591.     MOVE.L  SetupMemPtr,D0
  6592.     BNE DecompactSetup
  6593.     BSR.S   SaveMainPic
  6594.     TST.L   SetupMemPtr
  6595.     BEQ Return1
  6596.     BRA DecompactSetup
  6597.  
  6598. SaveMainPic
  6599.     MOVE.L  #8000,D0
  6600.     MOVEQ   #MEMF_PUBLIC,D1
  6601.     MOVE.L  4.W,A6
  6602.     JSR LVOAllocMem(A6)
  6603.     MOVE.L  D0,SetupMemPtr
  6604.     BEQ OutOfMemErr
  6605.     MOVE.L  D0,A1
  6606.     LEA BitplaneData,A0
  6607.     MOVEQ   #1,D2
  6608. sssloop1
  6609.     MOVE.W  #999,D0
  6610. sssloop2
  6611.     MOVE.L  (A0)+,(A1)+
  6612.     DBRA    D0,sssloop2
  6613.     LEA 6240(A0),A0
  6614.     DBRA    D2,sssloop1
  6615.     RTS
  6616.  
  6617. RestoreMainPic
  6618.     MOVE.L  SetupMemPtr,D0
  6619.     BEQ Return1
  6620.     MOVE.L  D0,A1
  6621.     LEA BitplaneData,A0
  6622.     MOVEQ   #1,D2
  6623. ssxloop1
  6624.     MOVE.W  #999,D0
  6625. ssxloop2
  6626.     MOVE.L  (A1)+,(A0)+
  6627.     DBRA    D0,ssxloop2
  6628.     LEA 6240(A0),A0
  6629.     DBRA    D2,ssxloop1
  6630.     MOVE.L  SetupMemPtr,A1
  6631.     CLR.L   SetupMemPtr
  6632.     MOVE.L  #8000,D0
  6633.     MOVE.L  4.W,A6
  6634.     JSR LVOFreeMem(A6)
  6635.     RTS
  6636.  
  6637. SetupMemPtr dc.l 0
  6638.  
  6639. DecompactSetup2
  6640.     LEA Setup2Data+4,A0
  6641.     MOVE.L  #Setup2Size-4-8,D0
  6642.     BRA.S   decoset
  6643.  
  6644. DecompactSetup
  6645.     LEA SetupScreenData+4,A0
  6646.     MOVE.L  #SetupScreenSize-4-8,D0
  6647. decoset LEA BitplaneData,A1
  6648.     MOVE.L  A1,A2
  6649.     LEA 4000(A2),A2
  6650. dcsloop MOVE.B  (A0)+,D1
  6651.     CMP.B   #181,D1
  6652.     BEQ.S   DecodeIt2
  6653.     MOVE.B  D1,(A1)+
  6654.     CMP.L   A2,A1
  6655.     BLO.S   dcslop2
  6656.     LEA 6240(A1),A1
  6657.     MOVE.L  #$FFFFFFFF,A2
  6658. dcslop2 SUBQ.L  #1,D0
  6659.     CMP.L   #0,D0
  6660.     BGT.S   dcsloop
  6661.     MOVEQ   #-1,D0
  6662.     RTS
  6663.  
  6664. DecodeIt2
  6665.     MOVEQ   #0,D1
  6666.     MOVE.B  (A0)+,D1
  6667.     MOVE.B  (A0)+,D2
  6668. dcdlop2 MOVE.B  D2,(A1)+
  6669.     CMP.L   A2,A1
  6670.     BLO.S   dcdskp2
  6671.     LEA 6240(A1),A1
  6672.     MOVE.L  #$FFFFFFFF,A2
  6673. dcdskp2 DBRA    D1,dcdlop2
  6674.     SUBQ.L  #2,D0
  6675.     BRA.S   dcslop2
  6676.  
  6677. ; Gadgets
  6678.  
  6679. CheckSetupGadgs
  6680.     TST.L   SplitAddress
  6681.     BEQ.S   csgskip
  6682.     CLR.L   SplitAddress
  6683.     BSR ShowSplit
  6684. csgskip MOVEM.W MouseX2,D0/D1
  6685.     CMP.W   #210,D0
  6686.     BHS SetupMenu3
  6687.     CMP.W   #108,D0
  6688.     BHS.S   SetupMenu2
  6689. ;---- Menu 1 ----
  6690.     CMP.W   #11,D1
  6691.     BLS LoadConfig
  6692.     CMP.W   #22,D1
  6693.     BLS SaveConfig
  6694.     CMP.W   #33,D1
  6695.     BLS ResetAll
  6696.     CMP.W   #44,D1
  6697.     BLS ExtCommand
  6698.     CMP.W   #55,D1
  6699.     BLS MultiSetup
  6700.     CMP.W   #66,D1
  6701.     BLS SetRed
  6702.     CMP.W   #77,D1
  6703.     BLS SetGreen
  6704.     CMP.W   #88,D1
  6705.     BLS SetBlue
  6706.     CMP.W   #99,D1
  6707.     BLS ColorGadgets
  6708.     RTS
  6709.  
  6710. SetupMenu2
  6711.     CMP.W   #11,D1
  6712.     BLS Return1
  6713.     CMP.W   #55,D1
  6714.     BLS SetSplit
  6715.     CMP.W   #66,D1
  6716.     BLS SetKeyRepeat
  6717.     CMP.W   #77,D1
  6718.     BLS ToggleAccidental
  6719.     CMP.W   #88,D1
  6720.     BLS PrintSong
  6721.     CMP.W   #99,D1
  6722.     BLS EnterPrintPath
  6723.     RTS
  6724.  
  6725. SetupMenu3
  6726.     CMP.W   #11,D1
  6727.     BLS.S   ExitOrClear
  6728.     CMP.W   #22,D1
  6729.     BLS ToggleSplit
  6730.     CMP.W   #33,D1
  6731.     BLS ToggleFilter
  6732.     CMP.W   #44,D1
  6733.     BLS ToggleTransDel
  6734.     CMP.W   #55,D1
  6735.     BLS ToggleShowDec
  6736.     CMP.W   #66,D1
  6737.     BLS ToggleAutoDir
  6738.     CMP.W   #77,D1
  6739.     BLS ToggleAutoExit
  6740.     CMP.W   #88,D1
  6741.     BLS ToggleModOnly
  6742.     CMP.W   #99,D1
  6743.     BLS ToggleMIDI
  6744.     RTS
  6745.  
  6746. ExitOrClear
  6747.     CMP.W   #265,D0
  6748.     BLS ClearSplit
  6749.     CMP.W   #306,D0
  6750.     BHS Setup2
  6751. ExitSetup
  6752.     BSR WaitForButtonUp
  6753.     MOVE.W  CurrScreen,LastSetupScreen
  6754.     CLR.B   RawKeyCode
  6755.     CLR.L   SplitAddress
  6756.     BSR RestoreMainPic
  6757.     SF  NoSampleInfo
  6758.     BSR SetupVUCols
  6759.     BSR SetupAnaCols
  6760.     BSR Clear100Lines
  6761.     BRA DisplayMainAll
  6762.  
  6763. LastSetupScreen dc.w 0
  6764.  
  6765. ToggleSplit
  6766.     EOR.B   #1,SplitFlag
  6767.     BRA ShowSetupToggles
  6768.  
  6769. ToggleFilter
  6770.     BCHG    #1,$BFE001
  6771.     BRA ShowSetupToggles
  6772.  
  6773. ToggleTransDel
  6774.     EOR.B   #1,TransDelFlag
  6775.     BRA.S   ShowSetupToggles
  6776.  
  6777. ToggleShowDec
  6778.     EOR.B   #1,ShowDecFlag
  6779.     MOVE.W  #1,UpdateFreeMem
  6780.     BRA.S   ShowSetupToggles
  6781.  
  6782. ToggleAutoDir
  6783.     EOR.B   #1,AutoDirFlag
  6784.     BRA.S   ShowSetupToggles
  6785.  
  6786. ToggleAutoExit
  6787.     EOR.B   #1,AutoExitFlag
  6788.     BRA.S   ShowSetupToggles
  6789.  
  6790. ToggleModOnly
  6791.     EOR.B   #1,ModOnlyFlag
  6792.     LEA FileNamesPtr(PC),A0
  6793.     CLR.L   4(A0)
  6794.     BRA.S   ShowSetupToggles
  6795.  
  6796. ToggleMIDI
  6797.     EOR.B   #1,MIDIFlag
  6798.     BSR.S   ShowSetupToggles
  6799. tstmidi TST.B   MIDIFlag
  6800.     BNE OpenMIDI
  6801.     BRA CloseMIDI
  6802.  
  6803. ClearSplit
  6804.     BSR WaitForButtonUp
  6805.     LEA ClearSplitText,A0
  6806.     BSR AreYouSure
  6807.     BNE Return1
  6808.     LEA SplitData,A0
  6809.     MOVEQ   #15,D0
  6810. clsploop
  6811.     CLR.B   (A0)+
  6812.     DBRA    D0,clsploop
  6813.     BRA ShowSplit
  6814.  
  6815. ShowSetupToggles
  6816.     CLR.B   RawKeyCode
  6817.     BSR Show_MS
  6818.     CMP.W   #5,CurrScreen
  6819.     BNE Return1
  6820.     MOVE.B  $BFE001,D0
  6821.     LSR.B   #1,D0
  6822.     AND.B   #1,D0
  6823.     EOR.B   #1,D0
  6824.     MOVE.B  D0,FilterFlag
  6825.     LEA SplitFlag,A4
  6826.     MOVE.W  #3,TextLength
  6827.     MOVEQ   #7,D7
  6828.     MOVE.W  #636,D6
  6829. sstloop
  6830.     MOVE.W  D6,TextOffset
  6831.     LEA ToggleOFFText(PC),A0
  6832.     TST.B   (A4)+
  6833.     BEQ.S   sstskip
  6834.     LEA ToggleONText(PC),A0
  6835. sstskip
  6836.     BSR ShowText2
  6837.     ADD.W   #440,D6
  6838.     DBRA    D7,sstloop
  6839.     BRA WaitForButtonUp
  6840.  
  6841. ToggleONText2   dc.b ' '
  6842. ToggleONText    dc.b 'on '
  6843. ToggleOFFText   dc.b 'off '
  6844.  
  6845. ShowSplit
  6846.     BSR CalculateSplit
  6847.     CMP.W   #5,CurrScreen
  6848.     BNE Return1
  6849.     LEA SplitData,A3
  6850.     MOVE.L  NoteNamesPtr,A4
  6851.     MOVEQ   #0,D5
  6852.     MOVE.W  #614,D6
  6853.     CLR.W   WordNumber
  6854. shsploop
  6855.     MOVE.W  D6,TextOffset
  6856.     MOVE.B  (A3,D5.W),WordNumber+1 ; instr
  6857.     BSR PrintHexByte
  6858.     ADDQ.W  #4,D6
  6859.     MOVE.W  D6,D1
  6860.     MOVEQ   #0,D0
  6861.     MOVE.B  1(A3,D5.W),D0 ; note
  6862.     LSL.W   #2,D0
  6863.     LEA (A4,D0.W),A0
  6864.     MOVEQ   #4,D0
  6865.     BSR ShowText3
  6866.     ADDQ.L  #5,D6
  6867.     MOVE.W  D6,D1
  6868.     MOVEQ   #0,D0
  6869.     MOVE.B  2(A3,D5.W),D0 ; trans
  6870.     LSL.W   #2,D0
  6871.     LEA (A4,D0.W),A0
  6872.     MOVEQ   #4,D0
  6873.     BSR ShowText3
  6874.     ADD.W   #431,D6
  6875.     ADDQ.W  #4,D5
  6876.     CMP.W   #16,D5
  6877.     BNE.S   shsploop
  6878.     RTS
  6879.  
  6880. CalculateSplit
  6881.     LEA SplitTransTable,A0
  6882.     LEA SplitInstrTable,A1
  6883.     LEA SplitData,A2
  6884.     MOVEQ   #0,D0
  6885. casploop
  6886.     MOVE.B  D0,(A0,D0.W)
  6887.     CLR.B   (A1,D0.W)
  6888.     ADDQ.W  #1,D0
  6889.     CMP.W   #37,D0
  6890.     BLS.S   casploop
  6891.  
  6892.     MOVE.B  1(A2),-(SP)
  6893.     MOVE.B  1+4(A2),-(SP)
  6894.     MOVE.B  1+8(A2),-(SP)
  6895.     MOVE.B  1+12(A2),-(SP) ; note
  6896.  
  6897.     MOVEQ   #3,D4
  6898. caspbigloop
  6899.     MOVEQ   #127,D0
  6900.     MOVEQ   #0,D1
  6901.     MOVEQ   #0,D2
  6902. casploop2
  6903.     CMP.B   1(A2,D1.W),D0 ; note
  6904.     BLS.S   caspskip
  6905.     MOVE.L  D1,D2
  6906.     MOVE.B  1(A2,D1.W),D0 ; note
  6907. caspskip
  6908.     ADDQ.W  #4,D1
  6909.     CMP.W   #16,D1
  6910.     BNE.S   casploop2
  6911.  
  6912.     MOVEQ   #0,D0
  6913.     MOVE.B  1(A2,D2.W),D0 ; note
  6914.     MOVE.B  #127,1(A2,D2.W) ; note
  6915.     MOVE.B  2(A2,D2.W),D1 ; trans
  6916. casploop3
  6917.     MOVE.B  D1,(A0,D0.W)
  6918.     MOVE.B  (A2,D2.W),(A1,D0.W) ; instr
  6919.     ADDQ.W  #1,D1
  6920.     CMP.W   #36,D1
  6921.     BLO.S   caspskip2
  6922.     MOVEQ   #35,D1
  6923. caspskip2
  6924.     ADDQ.W  #1,D0
  6925.     CMP.W   #36,D0
  6926.     BLO.S   casploop3
  6927.     DBRA    D4,caspbigloop
  6928.    
  6929.     MOVE.B  (SP)+,1+12(A2)
  6930.     MOVE.B  (SP)+,1+8(A2)
  6931.     MOVE.B  (SP)+,1+4(A2)
  6932.     MOVE.B  (SP)+,1(A2) ; note
  6933.     RTS
  6934.  
  6935. SetSplit
  6936.     LEA SplitData,A2
  6937.     SUBQ.W  #1,D1
  6938.     DIVU    #11,D1
  6939.     SUBQ.W  #1,D1
  6940.     MOVE.W  D1,D7
  6941.     LSL.W   #2,D7
  6942.     MULU    #440,D1
  6943.     ADD.W   #600,D1
  6944.     CMP.W   #176,D0
  6945.     BHS.S   SetSplitTranspose
  6946.     CMP.W   #136,D0
  6947.     BHS.S   SetSplitNote
  6948.     ADD.W   #14,D1
  6949.     MOVE.W  D1,TextOffset
  6950.     BSR GetHexByte
  6951.     CMP.B   #$1F,D0
  6952.     BLS.S   setskip
  6953.     MOVE.B  #$1F,D0
  6954. setskip MOVE.B  D0,(A2,D7.W) ; instr
  6955.     BRA ShowSplit
  6956.  
  6957. SetSplitNote
  6958.     MOVE.L  D1,-(SP)
  6959.     BSR ShowSplit
  6960.     MOVE.L  (SP)+,D1
  6961.     ADD.W   #18,D1
  6962.     MOVEQ   #3,D0
  6963.     LEA SpcNoteText,A0
  6964.     BSR ShowText3
  6965.     LEA 1(A2,D7.W),A0 ; note
  6966.     MOVE.L  A0,SplitAddress
  6967.     BRA WaitForButtonUp
  6968.  
  6969. SetSplitTranspose
  6970.     MOVE.L  D1,-(SP)
  6971.     BSR ShowSplit
  6972.     MOVE.L  (SP)+,D1
  6973.     ADD.W   #23,D1
  6974.     MOVEQ   #3,D0
  6975.     LEA SpcNoteText,A0
  6976.     BSR ShowText3
  6977.     LEA 2(A2,D7.W),A0 ; trans
  6978.     MOVE.L  A0,SplitAddress
  6979.     BRA WaitForButtonUp
  6980.  
  6981. SetKeyRepeat
  6982.     CMP.W   #188,D0
  6983.     BHS.S   skrep2
  6984.     MOVE.W  #2381,TextOffset
  6985.     BSR GetHexByte
  6986.     MOVE.B  D0,KeyRepDelay+1
  6987.     BRA.S   ShowKeyRepeat
  6988. skrep2  MOVE.W  #2384,TextOffset
  6989.     BSR GetHexByte
  6990.     MOVE.B  D0,KeyRepSpeed+1
  6991. ShowKeyRepeat
  6992.     MOVE.W  #2381,TextOffset
  6993.     MOVE.W  KeyRepDelay,WordNumber
  6994.     BSR PrintHexByte
  6995.     ADDQ.W  #1,TextOffset
  6996.     MOVE.W  KeyRepSpeed,WordNumber
  6997.     BRA PrintHexByte
  6998.  
  6999. ToggleAccidental
  7000.     MOVE.L  #NoteNames1,NoteNamesPtr
  7001.     EOR.B   #1,Accidental
  7002.     BEQ.S   ShowAccidental
  7003.     MOVE.L  #NoteNames2,NoteNamesPtr
  7004. ShowAccidental
  7005.     LEA AccidentalText(PC),A0
  7006.     TST.B   Accidental
  7007.     BEQ.S   shacskp
  7008.     LEA AccidentalText+1(PC),A0
  7009. shacskp MOVEQ   #1,D0
  7010.     MOVE.W  #2824,D1
  7011.     BSR ShowText3
  7012.     BRA RedrawPattern
  7013.  
  7014. AccidentalText  dc.b '#¡'
  7015.  
  7016. LoadConfig
  7017.     CMP.W   #84,D0
  7018.     BHS SetConfigNumber
  7019.     LEA LoadConfigText,A0
  7020.     BSR AreYouSure
  7021.     BNE Return1
  7022.     BSR WaitForButtonUp
  7023.     LEA LoadingCfgText(PC),A0
  7024.     BSR ShowStatusText
  7025. DoLoadConfig
  7026.     BSR StorePtrCol
  7027.     BSR PutConfigNumber
  7028.     MOVE.L  #Configname,D1
  7029.     MOVE.L  #1005,D2
  7030.     MOVE.L  DOSbase,A6
  7031.     JSR LVOOpen(A6)
  7032.     MOVE.L  D0,D7
  7033.     BNE.S   cfgopok
  7034.     LEA PTPath,A0
  7035.     BSR CopyPath
  7036.     LEA ConfigName(PC),A0
  7037.     MOVEQ   #12,D0
  7038. cfgnlop MOVE.B  (A0)+,(A1)+
  7039.     DBRA    D0,cfgnlop
  7040.     MOVE.L  #FileName,D1
  7041.     MOVE.L  #1005,D2
  7042.     MOVE.L  DOSbase,A6
  7043.     JSR LVOOpen(A6)
  7044.     MOVE.L  D0,D7
  7045.     BEQ.S   ConfigErr
  7046. cfgopok BSR SetDiskPtrCol
  7047.     MOVE.L  D7,D1
  7048.     CLR.L   ConfigID
  7049.     MOVE.L  #ConfigID,D2
  7050.     MOVE.L  #4,D3
  7051.     JSR LVORead(A6)
  7052.     CMP.L   #"PT2.",ConfigID
  7053.     BNE.S   cfgerr2
  7054.     LEA SetupData+4,A0
  7055.     MOVE.L  D7,D1
  7056.     MOVE.L  A0,D2
  7057.     MOVE.L  #ConfigFileSize-4,D3
  7058.     JSR LVORead(A6)
  7059. lcfgend MOVE.L  D7,D1
  7060.     JSR LVOClose(A6)
  7061.     BSR ShowAllRight
  7062.     BSR RestorePtrCol
  7063.     BSR CopyCfgData
  7064.     BSR tstmidi
  7065.     BSR ChangeCopList
  7066.     BRA RefreshSetup
  7067.  
  7068. ConfigErr
  7069.     BSET    #2,InitError
  7070.     LEA FileNotFoundText(PC),A0
  7071. cferr   BSR ShowStatusText
  7072.     MOVE.W  #50,WaitTime
  7073.     BRA ErrorRestoreCol
  7074.  
  7075. cfgerr2 BSR.S   ConfigErr2
  7076.     BRA.S   lcfgend
  7077.  
  7078. ConfigErr2
  7079.     BSET    #3,InitError
  7080.     LEA NotAConfFileText(PC),A0
  7081.     BRA.S   cferr
  7082.  
  7083. ConfigErr3
  7084.     LEA CantCreateFiText(PC),A0
  7085.     BRA.S   cferr
  7086.  
  7087. FileNotFoundText dc.b "config not found!",0
  7088. NotAConfFileText dc.b "not a config file",0
  7089. CantCreateFiText dc.b "can't create file",0
  7090.  
  7091. SaveConfig
  7092.     CMP.W   #84,D0
  7093.     BHS SetConfigNumber
  7094.     LEA SaveConfigText,A0
  7095.     BSR AreYouSure
  7096.     BNE Return1
  7097.     BSR StorePtrCol
  7098.     BSR SetDiskPtrCol
  7099.     BSR PutConfigNumber
  7100.     LEA SavingCfgText(PC),A0
  7101.     BSR ShowStatusText
  7102.     MOVE.L  DOSbase,A6
  7103.     LEA PTPath,A0
  7104.     BSR CopyPath
  7105.     LEA ConfigName(PC),A0
  7106.     MOVEQ   #12,D0
  7107. cfgllop MOVE.B  (A0)+,(A1)+
  7108.     DBRA    D0,cfgllop
  7109.     MOVE.L  #FileName,D1
  7110.     MOVE.L  #1006,D2
  7111.     JSR LVOOpen(A6)
  7112.     MOVE.L  D0,D7
  7113.     BEQ ConfigErr3
  7114.     MOVE.L  D0,D1
  7115.     MOVE.L  #SetupData,D2
  7116.     MOVE.W  #ConfigFileSize,D3
  7117.     JSR LVOWrite(A6)
  7118.     MOVE.L  D7,D1
  7119.     JSR LVOClose(A6)
  7120.     BSR ShowAllRight
  7121.     BRA RestorePtrCol
  7122.  
  7123. SetConfigNumber
  7124.     MOVE.W  #611,TextOffset
  7125.     BSR GetHexByte
  7126.     MOVE.W  D0,ConfigNumber
  7127. ShowConfigNumber
  7128.     MOVE.W  #611,TextOffset
  7129.     MOVE.W  ConfigNumber(PC),WordNumber
  7130.     BRA PrintHexByte
  7131.  
  7132. PutConfigNumber
  7133.     MOVE.W  ConfigNumber(PC),D0
  7134.     LEA ConfigName+12(PC),A0
  7135.     BRA IntToHex2
  7136.  
  7137. ConfigName  dc.b 'PT.config-00',0,0
  7138. ConfigNumber    dc.w 0
  7139. LoadingCfgText  dc.b 'loading config',0
  7140. SavingCfgText   dc.b 'saving config',0,0
  7141. ConfigID    dc.l 0
  7142.  
  7143. ResetAll
  7144.     LEA ResetAllText,A0
  7145.     BSR AreYouSure
  7146.     BNE Return1
  7147. DoResetAll
  7148.     LEA DefaultSetupData,A0
  7149.     LEA SetupData,A1
  7150.     MOVE.W  #ConfigFileSize-1,D0
  7151. rsaloop MOVE.B  (A0)+,(A1)+
  7152.     DBRA    D0,rsaloop
  7153.     BRA RefreshSetup
  7154.  
  7155. ExtCommand
  7156.     CMP.W   #11,D0
  7157.     BLO.S   excolab
  7158.     BSR StorePtrCol
  7159.     BSR SetWaitPtrCol
  7160.     LEA ExtCommands,A6
  7161.     MOVE.W  ExtCmdNumber,D1
  7162.     MULU    #32,D1
  7163.     ADD.L   D1,A6
  7164.     MOVE.L  A6,ShowTextPtr
  7165.     MOVE.L  A6,TextEndPtr
  7166.     ADD.L   #31,TextEndPtr
  7167.     MOVE.W  #11,TextLength
  7168.     MOVE.W  #1482,A4
  7169.     BSR GetTextLine
  7170.     BRA RestorePtrCol
  7171.  
  7172. ShowExtCommand
  7173.     LEA ExtCommands,A0
  7174.     MOVE.W  ExtCmdNumber,D1
  7175.     MULU    #32,D1
  7176.     ADD.L   D1,A0
  7177.     MOVEQ   #11,D0
  7178.     MOVE.W  #1482,D1
  7179.     BRA ShowText3
  7180.  
  7181. excolab BTST    #2,$DFF016
  7182.     BEQ.S   excorun
  7183.     ADDQ.W  #1,ExtCmdNumber
  7184.     AND.W   #7,ExtCmdNumber
  7185.     BSR.S   ShowExtCommand
  7186.     BSR Wait_4000
  7187.     BSR Wait_4000
  7188.     BSR Wait_4000
  7189.     BRA Wait_4000
  7190.  
  7191. excorun LEA ExtCommands,A0
  7192.     MOVE.W  ExtCmdNumber,D1
  7193.     MULU    #32,D1
  7194.     ADD.L   D1,A0
  7195.     TST.B   (A0)
  7196.     BEQ Return1
  7197.     MOVE.L  A0,ExtCmdAddress
  7198.     MOVE.L  IntuitionBase,A6
  7199.     JSR LVOOpenWorkbench(A6)
  7200.     JSR LVOWBenchToFront(A6)
  7201.     MOVE.L  #ExtCmdConsole,D1
  7202.     MOVE.L  #1005,D2
  7203.     MOVE.L  DOSBase,A6
  7204.     JSR LVOOpen(A6)
  7205.     MOVE.L  D0,ExtCmdWindow
  7206.     BEQ.S   winderr
  7207.     LSL.L   #2,D0
  7208.     MOVE.L  D0,A0
  7209.     MOVE.L  PTProcess,A1
  7210.     MOVE.L  8(A0),$A4(A1)
  7211.     BSR GotoCLI
  7212.     MOVE.L  ExtCmdWindow,D1
  7213.     BEQ Return1
  7214.     MOVE.L  DOSBase,A6
  7215.     JSR LVOClose(A6)
  7216.     CLR.L   ExtCmdWindow
  7217.     RTS
  7218.  
  7219. winderr LEA ConsoleErrText,A0
  7220.     BSR ShowStatusText
  7221.     BRA SetErrorPtrCol
  7222.  
  7223. ExtCmdNumber    dc.w 0
  7224. ExtCmdAddress   dc.l 0
  7225. ExtCmdWindow    dc.l 0
  7226. ExtCmdConsole   dc.b "CON:0/0/640/150/Protracker Output Window",0
  7227. ConsoleErrText  dc.b "Can't open window",0,0
  7228.  
  7229. MultiSetup
  7230.     CMP.W   #44,D0
  7231.     BLO Return1
  7232.     BSR StorePtrCol
  7233.     BSR SetWaitPtrCol
  7234.     MOVE.W  #1,GetLineFlag
  7235.     SUB.W   #44,D0
  7236.     LSR.W   #4,D0
  7237.     MOVE.B  D0,musepos
  7238. museset MOVEQ   #0,D0
  7239.     MOVE.B  musepos,D0
  7240.     MOVE.L  D0,D1
  7241.     LSL.W   #4,D1
  7242.     MOVE.W  #52,LineCurX
  7243.     MOVE.W  #53,LineCurY
  7244.     ADD.W   D1,LineCurX
  7245.     LEA MultiModeNext,A1
  7246.     LEA (A1,D0.W),A1
  7247.     BSR UpdateLineCurPos
  7248. muselop BSR GetHexKey
  7249.     TST.B   D1
  7250.     BEQ.S   musenul
  7251.     CMP.B   #4,D1
  7252.     BHI.S   muselop
  7253.     MOVE.B  D1,(A1)
  7254.     BSR ShowMultiSetup
  7255.     MOVEQ   #1,D0
  7256. musenul TST.B   D0
  7257.     BEQ.S   museabo
  7258.     ADD.B   D0,musepos
  7259.     AND.B   #3,musepos
  7260.     BSR Wait_4000
  7261.     BSR Wait_4000
  7262.     BSR Wait_4000
  7263.     BRA.S   museset
  7264.  
  7265. museabo BSR RestorePtrCol
  7266.     CLR.W   GetLineFlag
  7267.     MOVE.W  #0,LineCurX
  7268.     MOVE.W  #270,LineCurY
  7269.     BSR UpdateLineCurPos
  7270. ShowMultiSetup
  7271.     MOVE.W  #1926,TextOffset
  7272.     MOVE.B  MultiModeNext,D0
  7273.     BSR PrintHexDigit
  7274.     MOVE.W  #1928,TextOffset
  7275.     MOVE.B  MultiModeNext+1,D0
  7276.     BSR PrintHexDigit
  7277.     MOVE.W  #1930,TextOffset
  7278.     MOVE.B  MultiModeNext+2,D0
  7279.     BSR PrintHexDigit
  7280.     MOVE.W  #1932,TextOffset
  7281.     MOVE.B  MultiModeNext+3,D0
  7282.     BRA PrintHexDigit
  7283.  
  7284. musepos dc.b 0,0
  7285.  
  7286. SetRed  CMP.W   #82,D0
  7287.     BHS SelectColor
  7288. setr2   BSR GetColPos
  7289.     AND.W   #$0F00,D2
  7290.     LSR.W   #8,D2
  7291.     CMP.B   D2,D0
  7292.     BEQ.S   setrskp
  7293.     AND.W   #$00FF,D1
  7294.     LSL.W   #8,D0
  7295.     OR.W    D0,D1
  7296.     MOVE.W  D1,(A0)
  7297.     BSR ShowColSliders
  7298.     BSR SetScreenColors
  7299. setrskp BTST    #6,$BFE001
  7300.     BEQ.S   setr2
  7301.     RTS
  7302.  
  7303. SetGreen
  7304.     CMP.W   #82,D0
  7305.     BHS SelectColor
  7306. setg2   BSR.S   GetColPos
  7307.     AND.W   #$00F0,D2
  7308.     LSR.W   #4,D2
  7309.     CMP.B   D2,D0
  7310.     BEQ.S   setgskp
  7311.     AND.W   #$0F0F,D1
  7312.     LSL.W   #4,D0
  7313.     OR.W    D0,D1
  7314.     MOVE.W  D1,(A0)
  7315.     BSR ShowColSliders
  7316.     BSR SetScreenColors
  7317. setgskp BTST    #6,$BFE001
  7318.     BEQ.S   setg2
  7319.     RTS
  7320.  
  7321. SetBlue CMP.W   #82,D0
  7322.     BHS SelectColor
  7323. setb2   BSR.S   GetColPos
  7324.     AND.W   #$000F,D2
  7325.     CMP.B   D2,D0
  7326.     BEQ.S   setbskp
  7327.     AND.W   #$0FF0,D1
  7328.     OR.W    D0,D1
  7329.     MOVE.W  D1,(A0)
  7330.     BSR ShowColSliders
  7331.     BSR SetScreenColors
  7332. setbskp BTST    #6,$BFE001
  7333.     BEQ.S   setb2
  7334.     RTS
  7335.  
  7336. GetColPos
  7337.     MOVEQ   #0,D0
  7338.     MOVE.W  MouseX,D0
  7339.     CMP.W   #26,D0
  7340.     BHS.S   gcpskp2
  7341.     MOVEQ   #0,D0
  7342.     BRA.S   gcpskip
  7343. gcpskp2 SUB.W   #26,D0
  7344.     DIVU    #3,D0
  7345.     AND.L   #$FF,D0
  7346.     CMP.W   #15,D0
  7347.     BLS.S   gcpskip
  7348.     MOVEQ   #15,D0
  7349. gcpskip CMP.W   #7,CurrScreen
  7350.     BEQ GetColAddr
  7351.     LEA ColorTable,A0
  7352.     MOVE.W  CurrColor,D1
  7353.     ADD.W   D1,D1
  7354.     LEA (A0,D1.W),A0
  7355.     MOVE.W  (A0),D1
  7356.     MOVE.W  D1,D2
  7357.     RTS
  7358.  
  7359. ShowColSliders
  7360.     LEA ColSliders(PC),A2
  7361.     MOVE.L  TextBplPtr,A1
  7362.     ADD.L   #3282,A1
  7363.     BSR.S   gcpskip
  7364.     AND.W   #$000F,D1
  7365.     BSR.S   ShowOneSlider
  7366.     MOVE.L  TextBplPtr,A1
  7367.     ADD.L   #2842,A1
  7368.     BSR.S   gcpskip
  7369.     AND.W   #$00F0,D1
  7370.     LSR.W   #4,D1
  7371.     BSR.S   ShowOneSlider
  7372.     MOVE.L  TextBplPtr,A1
  7373.     ADD.L   #2402,A1
  7374.     BSR.S   gcpskip
  7375.     AND.W   #$0F00,D1
  7376.     LSR.W   #8,D1
  7377. ShowOneSlider
  7378.     CLR.L   (A1)
  7379.     CLR.L   4(A1)
  7380.     CLR.L   40(A1)
  7381.     CLR.L   44(A1)
  7382.     CLR.L   80(A1)
  7383.     CLR.L   84(A1)
  7384.     MOVE.W  D1,D3
  7385.     ADD.W   D3,D3
  7386.     ADD.W   D3,D3
  7387.     MOVE.W  2(A2,D3.W),D4
  7388.     MOVE.B  0(A2,D3.W),00(A1,D4.W)
  7389.     MOVE.B  1(A2,D3.W),01(A1,D4.W)
  7390.     MOVE.B  0(A2,D3.W),40(A1,D4.W)
  7391.     MOVE.B  1(A2,D3.W),41(A1,D4.W)
  7392.     MOVE.B  0(A2,D3.W),80(A1,D4.W)
  7393.     MOVE.B  1(A2,D3.W),81(A1,D4.W)
  7394.     RTS
  7395.  
  7396. ColSliders
  7397.     dc.w %0000000001111100,0
  7398.     dc.w %0000111110000000,1
  7399.     dc.w %0000000111110000,1
  7400.     dc.w %0000000000111110,1
  7401.     dc.w %0000011111000000,2
  7402.     dc.w %0000000011111000,2
  7403.     dc.w %0000000000011111,2
  7404.     dc.w %0000001111100000,3
  7405.     dc.w %0000000001111100,3
  7406.     dc.w %0000111110000000,4
  7407.     dc.w %0000000111110000,4
  7408.     dc.w %0000000000111110,4
  7409.     dc.w %0000011111000000,5
  7410.     dc.w %0000000011111000,5
  7411.     dc.w %0000000000011111,5
  7412.     dc.w %0000001111100000,6
  7413.  
  7414. SelectColor
  7415.     CMP.W   #84,D1
  7416.     BHS Return1
  7417.     MOVE.L  TextBplPtr,A0
  7418.     LEA 2410(A0),A0
  7419.     MOVEQ   #24,D2
  7420. slcloop CLR.L   (A0)
  7421.     LEA 40(A0),A0
  7422.     DBRA    D2,slcloop
  7423.  
  7424.     SUB.W   #82,D0
  7425.     DIVU    #13,D0
  7426.     SUB.W   #60,D1
  7427.     DIVU    #6,D1
  7428.     MOVE.W  D0,D2
  7429.     LSL.W   #2,D2
  7430.     ADD.W   D1,D2
  7431.     MOVE.W  D2,CurrColor
  7432. MarkColor
  7433.     BSR gcpskip
  7434.     MOVE.L  A0,UndoColAddr
  7435.     MOVE.W  D1,UndoCol
  7436.     BSR ShowColSliders
  7437.     BSR.S   BlockColors
  7438.     MOVE.W  CurrColor,D0
  7439.     MOVE.W  D0,D1
  7440.     AND.W   #$0003,D1
  7441.     MULU    #6*40,D1
  7442.     MOVE.L  TextBplPtr,A0
  7443.     ADD.L   D1,A0
  7444.     LEA 2410(A0),A0
  7445.     BTST    #2,D0
  7446.     BNE.S   slcskip
  7447.     MOVE.W  #$3FF0,(A0)
  7448.     MOVE.W  #$3FF0,240(A0)
  7449.     MOVEQ   #4,D0
  7450. slclop2 LEA 40(A0),A0
  7451.     MOVE.W  #$2010,(A0)
  7452.     DBRA    D0,slclop2
  7453.     BRA WaitForButtonUp
  7454.  
  7455. slcskip MOVE.L  #$0001FF80,(A0)
  7456.     MOVE.L  #$0001FF80,240(A0)
  7457.     MOVEQ   #4,D0
  7458. slclop3 LEA 40(A0),A0
  7459.     MOVE.L  #$0001FF80,(A0)
  7460.     DBRA    D0,slclop3
  7461.     BRA WaitForButtonUp
  7462.  
  7463. BlockColors
  7464.     MOVE.L  TextBplPtr,A0
  7465.     LEA 2452(A0),A0
  7466.     MOVEQ   #3,D1
  7467. suploop2
  7468.     MOVEQ   #4,D0
  7469. suploop3
  7470.     MOVE.B  #$FF,(A0)
  7471.     ADD.L   #40,A0
  7472.     DBRA    D0,suploop3
  7473.     ADD.L   #40,A0
  7474.     DBRA    D1,suploop2
  7475.     RTS
  7476.  
  7477. ColorGadgets
  7478.     CMP.W   #79,D0
  7479.     BHS SetDefaultCol
  7480.     CMP.W   #33,D0
  7481.     BHS.S   CancelCol
  7482.     MOVE.L  UndoColAddr,A0
  7483.     MOVE.W  UndoCol,D0
  7484.     MOVE.W  (A0),UndoCol
  7485.     MOVE.W  D0,(A0)
  7486.     BSR ShowColSliders
  7487.     BRA SetScreenColors
  7488.  
  7489. CancelCol
  7490.     LEA CanCols(PC),A0
  7491.     LEA ColorTable,A1
  7492.     MOVEQ   #7,D0
  7493. cacolop MOVE.W  (A0)+,(A1)+
  7494.     DBRA    D0,cacolop
  7495.     BSR ShowColSliders
  7496.     BRA SetScreenColors
  7497.  
  7498. CopyCfgData
  7499.     LEA ColorTable,A0
  7500.     LEA CanCols(PC),A1
  7501.     MOVEQ   #7,D0
  7502. cocclop MOVE.W  (A0)+,(A1)+
  7503.     DBRA    D0,cocclop
  7504.     LEA ModulesPath2,A0
  7505.     MOVE.W  #195,D0
  7506. cocclp2 CLR.B   (A0)+
  7507.     DBRA    D0,cocclp2
  7508.     LEA ModulesPath,A0
  7509.     LEA ModulesPath2,A1
  7510.     BSR.S   cocclp3
  7511.     LEA SongsPath,A0
  7512.     LEA SongsPath2,A1
  7513.     BSR.S   cocclp3
  7514.     LEA SamplePath,A0
  7515.     LEA SamplePath2,A1
  7516. cocclp3 MOVE.B  (A0)+,(A1)+
  7517.     BNE.S   cocclp3
  7518.     LEA VUMeterColors,A0
  7519.     LEA SaveColors,A1
  7520.     MOVEQ   #40+48-1,D0
  7521. cocclp4 MOVE.W  (A0)+,(A1)+
  7522.     DBRA    D0,cocclp4
  7523.     RTS
  7524.  
  7525. UndoCol     dc.w 0
  7526. UndoColAddr dc.l 0
  7527. CanCols     dc.w 0,0,0,0,0,0,0,0
  7528.  
  7529. SetDefaultCol
  7530.     LEA DefCol,A0
  7531.     LEA ColorTable,A1
  7532.     MOVEQ   #7,D0
  7533. sdcloop MOVE.W  (A0)+,(A1)+
  7534.     DBRA    D0,sdcloop
  7535.     BSR ShowColSliders
  7536. SetScreenColors
  7537.     BSR SetupAnaCols
  7538. SetScreenColors2
  7539.     LEA ColorTable,A0
  7540.     LEA CopCol0,A1
  7541.     MOVE.W  (A0),(A1)
  7542.     MOVE.W  2(A0),4(A1)
  7543.     MOVE.W  4(A0),8(A1)
  7544.     MOVE.W  6(A0),12(A1)
  7545.     MOVE.W  8(A0),16(A1)
  7546.     MOVE.W  10(A0),20(A1)
  7547.     MOVE.W  12(A0),24(A1)
  7548.     MOVE.W  14(A0),28(A1)
  7549.     MOVE.W  14(A0),D0
  7550.     TST.W   SamScrEnable
  7551.     BEQ.S   sscnosc
  7552.     MOVE.W  8(A0),D0
  7553. sscnosc MOVE.W  D0,NoteCol
  7554.     MOVE.W  10(A0),D0
  7555.     MOVE.W  D0,D4
  7556.     MOVE.W  #3,FadeX
  7557.     BSR.S   FadeCol
  7558.     MOVE.W  D0,32(A1)
  7559.     MOVE.W  D4,36(A1)
  7560.     MOVE.W  D4,D0
  7561.     MOVE.W  #-3,FadeX
  7562.     BSR.S   FadeCol
  7563.     MOVE.W  D0,40(A1)
  7564.     RTS
  7565.  
  7566. FadeCol MOVE.W  D0,D1
  7567.     MOVE.W  D0,D2
  7568.     MOVE.W  D0,D3
  7569.     LSR.W   #8,D1
  7570.     ADD.W   FadeX(PC),D1
  7571.     BPL.S   redskp
  7572.     MOVEQ   #0,D1
  7573. redskp  CMP.W   #15,D1
  7574.     BLS.S   redskp2
  7575.     MOVEQ   #15,D1
  7576. redskp2 AND.W   #$00F0,D2
  7577.     LSR.W   #4,D2
  7578.     ADD.W   FadeX(PC),D2
  7579.     BPL.S   grnskp
  7580.     MOVEQ   #0,D2
  7581. grnskp  CMP.W   #15,D2
  7582.     BLS.S   grnskp2
  7583.     MOVEQ   #15,D2
  7584. grnskp2 AND.W   #$000F,D3
  7585.     ADD.W   FadeX(PC),D3
  7586.     BPL.S   bluskp
  7587.     MOVEQ   #0,D3
  7588. bluskp  CMP.W   #15,D3
  7589.     BLS.S   bluskp2
  7590.     MOVEQ   #15,D3
  7591. bluskp2 MOVE.W  D3,D0
  7592.     LSL.W   #4,D2
  7593.     OR.W    D2,D0
  7594.     LSL.W   #8,D1
  7595.     OR.W    D1,D0
  7596.     RTS
  7597.  
  7598. CurrColor   dc.w    0
  7599. FadeX       dc.w    -3
  7600.  
  7601. EnterPrintPath
  7602.     BSR StorePtrCol
  7603.     BSR SetWaitPtrCol
  7604.     LEA PrintPath,A6
  7605.     MOVE.L  A6,ShowTextPtr
  7606.     MOVE.L  A6,TextEndPtr
  7607.     ADD.L   #31,TextEndPtr
  7608.     MOVE.W  #12,TextLength
  7609.     MOVE.W  #3694,A4
  7610.     BSR GetTextLine
  7611.     BRA RestorePtrCol
  7612.  
  7613. ShowPrintPath
  7614.     LEA PrintPath,A0
  7615.     MOVE.W  #3694,D1
  7616.     MOVEQ   #12,D0
  7617.     BRA ShowText3
  7618.  
  7619. ; Print Song
  7620.  
  7621. PrintSong
  7622.     LEA PrintSongText,A0
  7623.     BSR AreYouSure
  7624.     BNE Return1
  7625.     BSR StorePtrCol
  7626.     MOVE.L  #PrintPath,D1
  7627.     MOVE.L  #1006,D2
  7628.     MOVE.L  DOSbase,A6
  7629.     JSR LVOOpen(A6)
  7630.     MOVE.L  D0,FileHandle
  7631.     BEQ CantOpenFile
  7632.     BSR SetDiskPtrCol
  7633.     LEA PrintingSongText,A0
  7634.     BSR ShowStatusText
  7635.     MOVE.L  FileHandle,D1
  7636.     MOVE.L  #SongDumpText,D2
  7637.     MOVEQ   #68,D3
  7638.     MOVE.L  DOSbase,A6
  7639.     JSR LVOWrite(A6)
  7640.     MOVE.L  FileHandle,D1
  7641.     MOVE.L  SongDataPtr,D2
  7642.     MOVEQ   #20,D3
  7643.     JSR LVOWrite(A6)
  7644.     BSR PrintCRLF
  7645.     BSR PrintCRLF
  7646.     BSR PrintSong2
  7647.     BSR PrintCRLF
  7648.     BSR PrintSong4
  7649.     BSR PrintFormFeed
  7650.     MOVE.L  SongDataPtr,A0
  7651.     MOVEQ   #0,D0
  7652.     MOVE.B  sd_numofpatt(A0),D0
  7653.     LEA sd_pattpos(A0),A0
  7654.     MOVEQ   #0,D7
  7655. ps_loop CMP.B   (A0,D0.W),D7
  7656.     BGT.S   ps_skip
  7657.     MOVE.B  (A0,D0.W),D7
  7658. ps_skip SUBQ.W  #1,D0
  7659.     BPL.S   ps_loop
  7660.     MOVEQ   #0,D1
  7661. ps_loop2
  7662.     MOVEM.L D1-D7/A0-A6,-(SP)
  7663.     BSR PrintPattern
  7664.     MOVEM.L (SP)+,D1-D7/A0-A6
  7665.     TST.L   D0
  7666.     BNE.S   ps_skip2
  7667.     MOVEM.L D1/D7,-(SP)
  7668.     BSR PrintFormFeed
  7669.     MOVEM.L (SP)+,D1/D7
  7670.     ADDQ.W  #1,D1
  7671.     CMP.W   D7,D1
  7672.     BLO.S   ps_loop2
  7673. ps_skip2
  7674.     MOVE.L  DOSbase,A6
  7675.     MOVE.L  FileHandle,D1
  7676.     JSR LVOClose(A6)
  7677.     BSR ShowAllRight
  7678.     BRA RestorePtrCol
  7679.  
  7680. PrintSong2
  7681.     MOVEQ   #1,D7
  7682. ps2_2   MOVE.L  D7,D0
  7683.     LSR.B   #4,D0
  7684.     CMP.B   #9,D0
  7685.     BLS.S   spujk
  7686.     ADDQ.B  #7,D0
  7687. spujk   ADD.B   #'0',D0
  7688.     MOVE.B  D0,PattXText1
  7689.     MOVE.B  D7,D0
  7690.     AND.B   #$0F,D0
  7691.     CMP.B   #9,D0
  7692.     BLS.S   spujk2
  7693.     ADDQ.B  #7,D0
  7694. spujk2  ADD.B   #'0',D0
  7695.     MOVE.B  D0,PattXText2
  7696.  
  7697.     MOVE.L  SongDataPtr,A0
  7698.     MOVE.W  D7,D0
  7699.     MULU    #30,D0
  7700.     LEA -10(A0,D0.W),A0
  7701.     LEA PpText,A1
  7702.     MOVEQ   #21,D0
  7703. ps2_loop
  7704.     MOVE.B  #' ',(A1)+
  7705.     DBRA    D0,ps2_loop
  7706.     LEA PpText,A1
  7707.  
  7708.     MOVE.L  A0,SavIt
  7709. ps2_loop2
  7710.     MOVE.B  (A0)+,D0
  7711.     BEQ PrintSong3
  7712.     MOVE.B  D0,(A1)+
  7713.     BRA.S   ps2_loop2
  7714.  
  7715. SavIt   dc.l    0
  7716.  
  7717. PrintSong3
  7718.     MOVE.L  D7,-(SP) ; pattnum
  7719.     MOVE.L  SavIt(PC),A0
  7720.     MOVE.W  22(A0),D0
  7721.     ADD.W   D0,D0
  7722.     LEA Prafs+2+4,A0
  7723.     BSR IntToHexASCII
  7724.     MOVE.L  SavIt(PC),A0
  7725.     MOVE.W  26(A0),D0
  7726.     ADD.W   D0,D0
  7727.     LEA Prafs+8+4,A0
  7728.     BSR IntToHexASCII
  7729.     MOVE.L  SavIt(PC),A0
  7730.     MOVE.W  28(A0),D0
  7731.     ADD.W   D0,D0
  7732.     LEA Prafs+14+4,A0
  7733.     BSR IntToHexASCII
  7734.     MOVE.L  DOSbase,A6
  7735.     MOVE.L  FileHandle,D1
  7736.     MOVE.L  #PtotText,D2
  7737.     MOVEQ   #52,D3
  7738.     JSR LVOWrite(A6)
  7739.     MOVE.L  (SP)+,D7
  7740.     ADDQ.W  #1,D7
  7741.     CMP.W   #$0020,D7
  7742.     BNE ps2_2
  7743.     RTS
  7744.  
  7745. PrintSong4
  7746.     MOVE.L  SongDataPtr,A0
  7747.     MOVEQ   #0,D7
  7748.     MOVE.B  sd_numofpatt(A0),D7
  7749.     LEA sd_pattpos(A0),A0
  7750.     MOVEQ   #0,D5
  7751. ps4_loop1
  7752.     MOVEQ   #0,D6
  7753. ps4_loop2
  7754.     MOVEQ   #0,D0
  7755.     MOVE.B  (A0)+,D0
  7756.     MOVE.W  D0,D1
  7757.     LSR.W   #4,D1
  7758.     ADD.B   #$30,D1
  7759.     CMP.B   #$39,D1
  7760.     BLS.S   ps4_skip
  7761.     ADDQ.B  #7,D1
  7762. ps4_skip
  7763.     AND.B   #15,D0
  7764.     ADD.B   #$30,D0
  7765.     CMP.B   #$39,D0
  7766.     BLS.S   ps4_skip2
  7767.     ADDQ.B  #7,D0
  7768. ps4_skip2
  7769.     LEA PnText,A1
  7770.     MOVE.B  D1,(A1)+
  7771.     MOVE.B  D0,(A1)
  7772.     MOVEM.L D5-D7/A0,-(SP)
  7773.     MOVE.L  DOSbase,A6
  7774.     MOVE.L  FileHandle,D1
  7775.     MOVE.L  #PnText,D2
  7776.     MOVEQ   #4,D3
  7777.     JSR LVOWrite(A6)
  7778.     MOVEM.L (SP)+,D5-D7/A0
  7779.     ADDQ.W  #1,D5
  7780.     CMP.W   D5,D7
  7781.     BEQ Return1
  7782.     ADDQ.W  #1,D6
  7783.     CMP.W   #$0010,D6
  7784.     BNE.S   ps4_loop2
  7785.     MOVEM.L D5-D7/A0,-(SP)
  7786.     BSR.S   PrintCRLF
  7787.     MOVEM.L (SP)+,D5-D7/A0
  7788.     BRA.S   ps4_loop1
  7789.  
  7790. PrintCRLF
  7791.     MOVE.L  DOSbase,A6
  7792.     MOVE.L  FileHandle,D1
  7793.     MOVE.L  #CRLF_Text,D2
  7794.     MOVEQ   #2,D3
  7795.     JSR LVOWrite(A6)
  7796.     RTS
  7797.  
  7798. PrintFormFeed
  7799.     MOVE.L  DOSbase,A6
  7800.     MOVE.L  FileHandle,D1
  7801.     MOVE.L  #FF_Text,D2
  7802.     MOVEQ   #1,D3
  7803.     JSR LVOWrite(A6)
  7804.     RTS
  7805.  
  7806. PrintPattern
  7807.     MOVE.L  D1,D6 ; D1=pattern number
  7808.     DIVU    #10,D6
  7809.     ADD.B   #'0',D6
  7810.     MOVE.B  D6,PattNumText1
  7811.     SWAP    D6
  7812.     ADD.B   #'0',D6
  7813.     MOVE.B  D6,PattNumText2
  7814.     MOVEM.L D0-D7/A0-A6,-(SP)
  7815.     MOVE.L  FileHandle,D1
  7816.     MOVE.L  #PatternNumText,D2
  7817.     MOVEQ   #18,D3
  7818.     MOVE.L  DOSbase,A6
  7819.     JSR LVOWrite(A6)
  7820.     MOVEM.L (SP)+,D0-D7/A0-A6
  7821.  
  7822.     MOVE.L  D1,D6
  7823.     MOVE.L  SongDataPtr,A6
  7824.     LEA sd_patterndata(A6),A6
  7825.     LSL.L   #8,D6
  7826.     LSL.L   #2,D6
  7827.     ADD.L   D6,A6
  7828.     CLR.L   PPattPos
  7829.     MOVEQ   #0,D6
  7830. pp_posloop
  7831.     MOVEQ   #0,D7
  7832.     MOVE.W  #2,TextLength
  7833.     MOVE.L  PPattPos,D1
  7834.     LEA PattPosText,A5
  7835.     DIVU    #10,D1
  7836.     ADD.B   #'0',D1
  7837.     MOVE.B  D1,(A5)+
  7838.     CLR.W   D1
  7839.     SWAP    D1
  7840.     ADD.B   #'0',D1
  7841.     MOVE.B  D1,(A5)+
  7842.     ADDQ.L  #5,A5
  7843. pp_noteloop
  7844.     MOVEQ   #0,D0
  7845.     MOVEQ   #0,D1
  7846.     MOVE.W  #3,TextLength
  7847.     MOVE.W  (A6),D1
  7848.     AND.W   #$0FFF,D1
  7849.     LEA PeriodTable,A0
  7850. pp_findloop
  7851.     CMP.W   0(A0,D0.L),D1
  7852.     BEQ PrintNote
  7853.     ADDQ.L  #2,D0
  7854.     BRA.S   pp_findloop
  7855.  
  7856. PrintNote
  7857.     ADD.L   D0,D0
  7858.     ADD.L   NoteNamesPtr,D0
  7859.     MOVE.L  D0,A0
  7860.     MOVE.L  (A0),(A5)+
  7861.     CMP.B   #'¡',-3(A5)
  7862.     BNE.S   prnoxyz
  7863.     MOVE.B  #'b',-3(A5)
  7864. prnoxyz ADDQ.L  #1,A5
  7865.     MOVEQ   #0,D0
  7866.     MOVE.W  (A6),D0
  7867.     AND.W   #$F000,D0
  7868.     LSR.W   #8,D0
  7869.     LSL.L   #1,D0
  7870.     LEA FastHexTable,A0
  7871.     ADD.L   D0,A0
  7872.     MOVE.B  (A0),(A5)+
  7873.     MOVEQ   #0,D0
  7874.     MOVE.B  2(A6),D0
  7875.     LSL.L   #1,D0
  7876.     LEA FastHexTable,A0
  7877.     ADD.L   D0,A0
  7878.     MOVE.W  (A0),(A5)+
  7879.     MOVEQ   #0,D0
  7880.     MOVE.B  3(A6),D0
  7881.     LSL.L   #1,D0
  7882.     LEA FastHexTable,A0
  7883.     ADD.L   D0,A0
  7884.     MOVE.W  (A0),(A5)+
  7885.     ADDQ.L  #4,A5
  7886.     ADDQ.L  #4,A6
  7887.     ADDQ.L  #1,D7
  7888.     CMP.L   #4,D7
  7889.     BNE pp_noteloop
  7890.     ADDQ.L  #1,PPattPos
  7891.     MOVEM.L D0-D7/A0-A6,-(SP)
  7892.     MOVE.L  DOSbase,A6
  7893.     MOVE.L  FileHandle,D1
  7894.     MOVE.L  #PnText2,D2
  7895.     MOVEQ   #68,D3
  7896.     JSR LVOWrite(A6)
  7897.     BSR PrintCRLF
  7898.     MOVEM.L (SP)+,D0-D7/A0-A6
  7899.     BTST    #2,$DFF016
  7900.     BEQ.S   NegativeReturn
  7901.     ADDQ.L  #1,D6
  7902.     CMP.L   #64,D6
  7903.     BNE pp_posloop
  7904.     MOVEQ   #0,D0
  7905.     RTS
  7906.  
  7907. NegativeReturn
  7908.     MOVEQ   #-1,D0
  7909.     RTS
  7910.  
  7911. PositiveReturn
  7912.     MOVEQ   #0,D0
  7913.     RTS
  7914.  
  7915. ;---- Setup2 ----
  7916.  
  7917. Setup2  BSR WaitForButtonUp
  7918.     MOVE.W  #7,CurrScreen
  7919.     CLR.W   LastSetupScreen
  7920.     ST  DisableAnalyzer
  7921.     ST  NoSampleInfo
  7922.     BSR Clear100Lines
  7923.     MOVE.L  SetupMemPtr,D0
  7924.     BNE set2skp
  7925.     BSR SaveMainPic
  7926.     BEQ ExitSetup
  7927. set2skp BSR DecompactSetup2
  7928.     BSR SetScreenColors
  7929. refrsh2 BSR ShowIntMode
  7930.     BSR ShowTempo
  7931.     BSR ShowSpeed
  7932.     BSR ShowColEdit
  7933.     BSR ShowRainbow
  7934.     BSR GetColPos
  7935.     BSR ShowColSliders
  7936.     BSR ShowS2Modules
  7937.     BSR ShowS2Songs
  7938.     BSR ShowS2Samples
  7939.     BSR ShowS2PTPath
  7940.     BSR ShowS2MaxPLST
  7941.     BSR ShowS2DMAWait
  7942.     BSR ShowS2TuneNote
  7943.     BSR ShowS2SalvAddr
  7944.     BRA ShowS2T
  7945.  
  7946. CheckSetup2Gadgs
  7947.     MOVEM.W MouseX2,D0/D1
  7948.     CMP.W   #210,D0
  7949.     BHS Setup2Menu3
  7950.     CMP.W   #108,D0
  7951.     BHS.S   Setup2Menu2
  7952. ;---- Menu 1 ----
  7953.     CMP.W   #11,D1
  7954.     BLS ToggleIntMode
  7955.     CMP.W   #22,D1
  7956.     BLS ChangeTempo
  7957.     CMP.W   #33,D1
  7958.     BLS ChangeSpeed
  7959.     CMP.W   #44,D1
  7960.     BLS ToggleColEdit
  7961.     CMP.W   #55,D1
  7962.     BLS RotOrSpread
  7963.     CMP.W   #66,D1
  7964.     BLS SetRed2
  7965.     CMP.W   #77,D1
  7966.     BLS SetGreen2
  7967.     CMP.W   #88,D1
  7968.     BLS SetBlue2
  7969.     CMP.W   #99,D1
  7970.     BLS ColorGadgets2
  7971.     RTS
  7972.  
  7973. Setup2Menu2
  7974.     CMP.W   #11,D1
  7975.     BLS Set2ModPath
  7976.     CMP.W   #22,D1
  7977.     BLS Set2SongPath
  7978.     CMP.W   #33,D1
  7979.     BLS Set2SamPath
  7980.     CMP.W   #44,D1
  7981.     BLS Set2PTPath
  7982.     CMP.W   #55,D1
  7983.     BLS SetS2MaxPLST
  7984.     CMP.W   #66,D1
  7985.     BLS SetS2DMAWait
  7986.     CMP.W   #77,D1
  7987.     BLS SetS2TuneNote
  7988.     CMP.W   #88,D1
  7989.     BLS SetS2SalvAddr
  7990.     CMP.W   #99,D1
  7991.     BLS RecoverSong
  7992.     RTS
  7993.  
  7994. Setup2Menu3
  7995.     CMP.W   #11,D1
  7996.     BLS ExitOrDefault
  7997.     CMP.W   #22,D1
  7998.     BLS ToggleOverride
  7999.     CMP.W   #33,D1
  8000.     BLS ToggleNosamples
  8001.     CMP.W   #44,D1
  8002.     BLS ToggleBlankZero
  8003.     CMP.W   #55,D1
  8004.     BLS ToggleShowDirs
  8005.     CMP.W   #66,D1
  8006.     BLS ToggleShowPublic
  8007.     CMP.W   #77,D1
  8008.     BLS ToggleCutToBuf
  8009.     CMP.W   #88,D1
  8010.     BLS ToggleIFFLoop
  8011.     CMP.W   #99,D1
  8012.     BLS ToggleHH
  8013.     RTS
  8014.  
  8015. ExitOrDefault
  8016.     CMP.W   #265,D0
  8017.     BLS.S   SetS2Default
  8018.     CMP.W   #306,D0
  8019.     BHS Setup
  8020.     BRA ExitSetup
  8021.  
  8022. SetS2Default
  8023.     LEA SetDefaultsText(PC),A0
  8024.     BSR AreYouSure
  8025.     BNE Return1
  8026.     LEA DefaultSetupData,A0
  8027.     LEA SongsPath-SetupData(A0),A2
  8028.     LEA SongsPath,A1
  8029.     MOVEQ   #95,D0
  8030. ss2dela MOVE.B  (A2)+,(A1)+
  8031.     DBRA    D0,ss2dela
  8032.     LEA PTPath-SetupData(A0),A2
  8033.     LEA PTPath,A1
  8034.     MOVEQ   #31,D0
  8035. ss2delb MOVE.B  (A2)+,(A1)+
  8036.     DBRA    D0,ss2delb
  8037.     LEA MaxPLSTEntries-SetupData(A0),A2
  8038.     MOVE.W  (A2),MaxPLSTEntries
  8039.     LEA DMAWait-SetupData(A0),A2
  8040.     MOVE.W  (A2),DMAWait
  8041.     LEA TuneNote-SetupData(A0),A2
  8042.     MOVE.L  (A2),TuneNote
  8043.     LEA SalvageAddress-SetupData(A0),A2
  8044.     LEA SalvageAddress,A1
  8045.     MOVE.L  (A2)+,(A1)+
  8046.     MOVE.L  (A2),(A1)
  8047.     BRA refrsh2
  8048.  
  8049. SetDefaultsText dc.b "Set defaults?",0
  8050.  
  8051. ToggleIntMode
  8052.     BSR ResetMusicInt
  8053.     EOR.B   #1,IntMode
  8054.     BSR SetMusicInt
  8055.     BSR SetTempo
  8056.     BSR WaitForButtonUp
  8057. ShowIntMode
  8058.     LEA VBlankText(PC),A0
  8059.     TST.B   IntMode
  8060.     BEQ.S   simskip
  8061.     LEA CIAText(PC),A0
  8062. simskip MOVEQ   #6,D0
  8063.     MOVE.W  #167,D1
  8064.     BRA ShowText3
  8065.  
  8066. VBlankText  dc.b "VBLANK"
  8067. CIAText     dc.b " CIA  "
  8068.  
  8069. ChangeSpeed
  8070.     MOVEQ   #0,D1
  8071.     CMP.W   #94,D0
  8072.     BHS.S   SpeedDown
  8073.     CMP.W   #80,D0
  8074.     BHS.S   SpeedUp
  8075.     RTS
  8076.  
  8077. SpeedUp MOVE.W  DefaultSpeed,D1
  8078.     ADDQ.B  #1,D1
  8079.     CMP.B   #$FF,D1
  8080.     BLS.S   spedup2
  8081.     MOVE.W  #$FF,D1
  8082. spedup2 MOVE.W  D1,DefaultSpeed
  8083.     MOVE.L  D1,CurrSpeed
  8084.     BSR.S   ShowSpeed
  8085.     BSR Wait_4000
  8086.     BRA Wait_4000
  8087. ShowSpeed
  8088.     MOVE.W  #608+440,TextOffset
  8089.     MOVE.W  DefaultSpeed,WordNumber
  8090.     JMP PrintHexByte
  8091.  
  8092. SpeedDown
  8093.     MOVE.W  DefaultSpeed,D1
  8094.     SUB.B   #1,D1
  8095.     CMP.B   #1,D1
  8096.     BHS.S   spedup2
  8097.     MOVEQ   #1,D1
  8098.     BRA.S   spedup2
  8099.  
  8100.  
  8101. ToggleOverride
  8102.     EOR.B   #1,OverrideFlag
  8103.     BRA.S   ShowS2T
  8104. ToggleNosamples
  8105.     EOR.B   #1,NosamplesFlag
  8106.     BRA.S   ShowS2T
  8107. ToggleBlankZero
  8108.     EOR.B   #1,BlankZeroFlag
  8109.     BSR.S   ShowS2T
  8110.     BRA RedrawPattern
  8111. ToggleShowDirs
  8112.     EOR.B   #1,ShowDirsFlag
  8113.     BRA.S   ShowS2T
  8114. ToggleShowPublic
  8115.     EOR.B   #1,ShowPublicFlag
  8116.     MOVE.W  #1,UpdateFreeMem
  8117.     BRA.S   ShowS2T
  8118. ToggleCutToBuf
  8119.     EOR.B   #1,CutToBufFlag
  8120.     BRA.S   ShowS2T
  8121. ToggleIFFLoop
  8122.     EOR.B   #1,IFFLoopFlag
  8123.     BRA.S   ShowS2T
  8124. ToggleHH
  8125.     EOR.B   #1,HHFlag
  8126.  
  8127. ShowS2T CLR.B   RawKeyCode
  8128.     CMP.W   #7,CurrScreen
  8129.     BNE Return1
  8130.     LEA OverrideFlag,A4
  8131.     MOVE.W  #3,TextLength
  8132.     MOVEQ   #7,D7
  8133.     MOVE.W  #636,D6
  8134. sstloop2
  8135.     MOVE.W  D6,TextOffset
  8136.     LEA ToggleOFFText,A0
  8137.     TST.B   (A4)+
  8138.     BEQ.S   sstskip2
  8139.     LEA ToggleONText,A0
  8140. sstskip2
  8141.     BSR ShowText2
  8142.     ADD.W   #440,D6
  8143.     DBRA    D7,sstloop2
  8144.     BRA WaitForButtonUp
  8145.  
  8146. ShowS2Modules
  8147.     MOVE.W  #177,D1
  8148.     LEA ModulesPath,A0
  8149. s2path  MOVEQ   #9,D0
  8150.     BRA ShowText3
  8151.  
  8152. ShowS2Songs
  8153.     MOVE.W  #177+440,D1
  8154.     LEA SongsPath,A0
  8155.     BRA.S   s2path
  8156.  
  8157. ShowS2Samples
  8158.     MOVE.W  #177+880,D1
  8159.     LEA SamplePath,A0
  8160.     BRA.S   s2path
  8161.  
  8162. ShowS2PTPath
  8163.     MOVE.W  #177+1320,D1
  8164.     LEA PTPath,A0
  8165.     BRA.S   s2path
  8166.  
  8167.  
  8168. Set2ModPath
  8169.     BSR StorePtrCol
  8170.     BSR SetWaitPtrCol
  8171.     LEA ModulesPath,A6
  8172.     MOVE.L  A6,ShowTextPtr
  8173.     MOVE.L  A6,TextEndPtr
  8174.     ADD.L   #31,TextEndPtr
  8175.     MOVE.W  #9,TextLength
  8176.     MOVE.W  #177,A4
  8177.     BSR GetTextLine
  8178.     BRA RestorePtrCol
  8179.  
  8180. Set2SongPath
  8181.     BSR StorePtrCol
  8182.     BSR SetWaitPtrCol
  8183.     LEA SongsPath,A6
  8184.     MOVE.L  A6,ShowTextPtr
  8185.     MOVE.L  A6,TextEndPtr
  8186.     ADD.L   #31,TextEndPtr
  8187.     MOVE.W  #9,TextLength
  8188.     MOVE.W  #177+440,A4
  8189.     BSR GetTextLine
  8190.     BRA RestorePtrCol
  8191.  
  8192. Set2SamPath
  8193.     BSR StorePtrCol
  8194.     BSR SetWaitPtrCol
  8195.     LEA SamplePath,A6
  8196.     MOVE.L  A6,ShowTextPtr
  8197.     MOVE.L  A6,TextEndPtr
  8198.     ADD.L   #31,TextEndPtr
  8199.     MOVE.W  #9,TextLength
  8200.     MOVE.W  #177+880,A4
  8201.     BSR GetTextLine
  8202.     BRA RestorePtrCol
  8203.  
  8204. Set2PTPath
  8205.     BSR StorePtrCol
  8206.     BSR SetWaitPtrCol
  8207.     LEA PTPath,A6
  8208.     MOVE.L  A6,ShowTextPtr
  8209.     MOVE.L  A6,TextEndPtr
  8210.     ADD.L   #31,TextEndPtr
  8211.     MOVE.W  #9,TextLength
  8212.     MOVE.W  #177+1320,A4
  8213.     BSR GetTextLine
  8214.     BRA RestorePtrCol
  8215.  
  8216. SetS2MaxPLST
  8217.     CMP.W   #199,D0
  8218.     BHS.S   S2plstd
  8219.     CMP.W   #188,D0
  8220.     BHS.S   S2PLSTu
  8221.     RTS
  8222. S2PLSTu MOVE.W  MaxPLSTEntries,D0
  8223.     ADD.W   #100,D0
  8224.     CMP.W   #9999,D0
  8225.     BLS.S   s2pu
  8226.     MOVE.W  #9999,D0
  8227. s2pu    MOVE.W  D0,MaxPLSTEntries
  8228.     BSR.S   ShowS2MaxPLST
  8229.     BRA Wait_4000
  8230.  
  8231. S2PLSTd MOVEQ   #0,D0
  8232.     MOVE.W  MaxPLSTEntries,D0
  8233.     ADDQ.W  #1,D0
  8234.     DIVU    #100,D0
  8235.     SUBQ.W  #1,D0
  8236.     BPL.S   s2pd
  8237.     MOVEQ   #0,D0
  8238.     BRA.S   s2pu
  8239. s2pd    MULU    #100,D0
  8240.     BRA.S   s2pu
  8241.  
  8242. ShowS2MaxPLST
  8243.     MOVE.W  MaxPLSTEntries,WordNumber
  8244.     MOVE.W  #1939,TextOffset
  8245.     BRA Print4DecDigits
  8246.  
  8247. SetS2DMAWait
  8248.     CMP.W   #199,D0
  8249.     BHS.S   S2dwd
  8250.     CMP.W   #188,D0
  8251.     BHS.S   S2dwu
  8252.     RTS
  8253. S2dwu   MOVE.W  DMAWait,D0
  8254.     ADDQ.W  #1,D0
  8255.     BTST    #2,$DFF016
  8256.     BNE.S   s2npu
  8257.     ADD.W   #9,D0
  8258. s2npu   CMP.W   #9999,D0
  8259.     BLS.S   s2du
  8260.     MOVE.W  #9999,D0
  8261. s2du    MOVE.W  D0,DMAWait
  8262.     BSR.S   ShowS2DMAWait
  8263.     BRA Wait_4000
  8264.  
  8265. S2dwd   MOVE.W  DMAWait,D0
  8266.     SUBQ.W  #1,D0
  8267.     BTST    #2,$DFF016
  8268.     BNE.S   s2npd
  8269.     SUB.W   #9,D0
  8270. s2npd   TST.W   D0
  8271.     BPL.S   s2du
  8272.     MOVEQ   #0,D0
  8273.     BRA.S   s2du
  8274.  
  8275. ShowS2DMAWait
  8276.     MOVE.W  DMAWAit,WordNumber
  8277.     MOVE.W  #2379,TextOffset
  8278.     BRA Print4DecDigits
  8279.  
  8280. SetS2TuneNote
  8281.     CMP.W   #187,D0
  8282.     BHS.S   ss2tvol
  8283.     MOVE.W  #2820,D1
  8284.     MOVEQ   #3,D0
  8285.     LEA SpcNoteText,A0
  8286.     BSR ShowText3
  8287.     MOVE.W  #3,SamNoteType
  8288.     MOVE.L  #TuneNote,SplitAddress
  8289.     BRA WaitForButtonUp
  8290.  
  8291. ShowS2TuneNote
  8292.     CMP.W   #7,CurrScreen
  8293.     BNE Return1
  8294.     MOVE.L  NoteNamesPtr,A4
  8295.     MOVE.W  TuneNote,D0
  8296.     LSL.W   #2,D0
  8297.     LEA (A4,D0.W),A0
  8298.     MOVEQ   #4,D0
  8299.     MOVE.W  #2820,D1
  8300.     BSR ShowText3
  8301.     MOVE.W  TToneVol,WordNumber
  8302.     MOVE.W  #2824,TextOffset
  8303.     BRA PrintHexByte
  8304.  
  8305. ss2tvol MOVE.W  #2824,TextOffset
  8306.     BSR GetHexByte
  8307.     MOVE.W  D0,TToneVol
  8308.     BRA.S   ShowS2TuneNote
  8309.  
  8310. SetS2SalvAddr
  8311.     BRA ShowNotImpl
  8312.     BSR StorePtrCol
  8313.     BSR SetWaitPtrCol
  8314.     LEA SalvageAddress,A6
  8315.     MOVE.L  A6,ShowTextPtr
  8316.     MOVE.L  A6,TextEndPtr
  8317.     ADD.L   #6,TextEndPtr
  8318.     MOVE.W  #6,TextLength
  8319.     MOVE.W  #3260,A4
  8320.     MOVE.B  #5,EnterTextFlag
  8321.     BSR GetTextLine
  8322.     CLR.B   EnterTextFlag
  8323.     BSR RestorePtrCol
  8324. ShowS2SalvAddr
  8325.     LEA SalvageAddress,A0
  8326.     MOVEQ   #6,D0
  8327.     MOVE.W  #3260,D1
  8328.     BRA ShowText3
  8329.  
  8330. RecoverSong
  8331.     BRA ShowNotImpl
  8332.     LEA RecoverSongText(PC),A0
  8333.     BSR AreYouSure
  8334.     BNE Return1
  8335.     BSR DoClearSong
  8336.     BSR ClrSampleInfo
  8337.     BSR.S   FindAdr
  8338.     MOVE.L  D0,A0
  8339.     MOVE.L  SongDataPtr,A1
  8340.     MOVE.L  #70716,D0
  8341. recloop MOVE.B  (A0)+,(A1)+
  8342.     SUBQ.L  #1,D0
  8343.     BNE.S   recloop
  8344.     BRA RedrawPattern
  8345.  
  8346. FindAdr LEA SalvageAddress+6,A0
  8347.     BSR HexToInteger
  8348.     MOVE.W  D0,D3
  8349.     MOVEQ   #0,D0
  8350.     BSR HexToInteger2
  8351.     SWAP    D0
  8352.     OR.W    D3,D0
  8353.     RTS
  8354.  
  8355. RecoverSongText dc.b    "Recover Song?",0
  8356.  
  8357. ToggleColEdit
  8358.     CMP.W   #79,D0
  8359.     BHS SelectColor2
  8360.     CLR.W   SpreadFlag
  8361.     LEA VUMeterColors,A0
  8362.     MOVEQ   #48,D0
  8363.     CMP.L   TheRightColors(PC),A0
  8364.     BNE.S   tced2
  8365.     LEA AnalyzerColors,A0
  8366.     MOVEQ   #36,D0
  8367. tced2   MOVE.L  A0,TheRightColors
  8368.     MOVE.W  D0,ColorsMax
  8369.     CMP.W   RainbowPos(PC),D0
  8370.     BHI.S   tced3
  8371.     CLR.W   RainbowPos
  8372. tced3   BSR ShowRainbow
  8373.     BSR.S   ShowColEdit
  8374.     BRA WaitForButtonUp
  8375. ShowColEdit
  8376.     LEA cedtxt1(PC),A0
  8377.     LEA VUMeterColors,A1
  8378.     CMP.L   TheRightColors(PC),A1
  8379.     BEQ.S   shcoed
  8380.     LEA cedtxt2(PC),A0
  8381. shcoed  MOVEQ   #6,D0
  8382.     MOVE.W  #1483,D1
  8383.     BRA ShowText3
  8384.  
  8385. cedtxt1 dc.b "VU-MTR"
  8386. cedtxt2 dc.b "ANALYZ"
  8387.  
  8388. RotOrSpread
  8389.     CMP.W   #16,D0
  8390.     BLO.S   RotColUp
  8391.     CMP.W   #32,D0
  8392.     BLO.S   RotColDown
  8393.     CMP.W   #79,D0
  8394.     BHS SelectColor2
  8395.     BRA SpreadColors
  8396.  
  8397. RotColUp
  8398.     CLR.W   SpreadFlag
  8399.     MOVE.L  TheRightColors(PC),A0
  8400.     MOVE.W  (A0),D0
  8401.     MOVE.W  ColorsMax(PC),D1
  8402.     SUBQ.W  #2,D1
  8403. rocoup1 MOVE.W  2(A0),(A0)+
  8404.     DBRA    D1,rocoup1
  8405.     MOVE.W  D0,(A0)
  8406. rocoup2 BSR GetColPos
  8407.     BSR ShowColSliders
  8408.     BSR ShowRainbow
  8409.     BRA SetupVUCols
  8410.  
  8411. RotColDown
  8412.     CLR.W   SpreadFlag
  8413.     MOVE.L  TheRightColors(PC),A0
  8414.     MOVE.W  ColorsMax(PC),D1
  8415.     ADD.W   D1,A0
  8416.     ADD.W   D1,A0
  8417.     MOVE.W  -(A0),D0
  8418.     SUBQ.W  #2,D1
  8419. rocodn1 MOVE.W  -2(A0),(A0)
  8420.     SUBQ.L  #2,A0
  8421.     DBRA    D1,rocodn1
  8422.     MOVE.W  D0,(A0)
  8423.     BRA.S   rocoup2
  8424.  
  8425. SpreadColors
  8426.     MOVE.W  RainbowPos,SpreadFrom
  8427.     MOVE.W  #1,SpreadFlag
  8428.     RTS
  8429.  
  8430. SpreadFrom  dc.w 0
  8431. SpreadFlag  dc.w 0
  8432.  
  8433. ColorGadgets2
  8434.     CLR.W   SpreadFlag
  8435.     CMP.W   #79,D0
  8436.     BHS.S   SetDefaultCol2
  8437.     CMP.W   #33,D0
  8438.     BHS.S   CancelCol2
  8439.     MOVE.L  UndoColAddr,A0
  8440.     MOVE.W  UndoCol,D1
  8441.     MOVE.W  (A0),UndoCol
  8442.     MOVE.W  D1,(A0)
  8443.     BRA rocoup2
  8444.  
  8445. SetDefaultCol2
  8446.     MOVE.L  TheRightColors(PC),A0
  8447.     MOVE.L  A0,A1
  8448.     SUB.L   #SetupData,A1
  8449.     ADD.L   #DefaultSetupData,A1
  8450. sedeco4 MOVE.W  ColorsMax,D0
  8451.     BRA.S   sedeco3
  8452. sedeco2 MOVE.W  (A1)+,(A0)+
  8453. sedeco3 DBRA    D0,sedeco2
  8454.     BRA rocoup2
  8455.  
  8456. CancelCol2
  8457.     MOVE.L  TheRightColors(PC),A0
  8458.     MOVE.L  A0,A1
  8459.     SUB.L   #VUMeterColors,A1
  8460.     ADD.L   #SaveColors,A1
  8461.     BRA.S   sedeco4
  8462.  
  8463. GetColAddr
  8464.     MOVE.L  TheRightColors(PC),A0
  8465.     MOVE.W  RainbowPos,D1
  8466.     ADD.W   D1,D1
  8467.     LEA (A0,D1.W),A0
  8468.     MOVE.W  (A0),D1
  8469.     MOVE.W  D1,D2
  8470.     RTS
  8471.  
  8472. SetRed2 CMP.W   #79,D0
  8473.     BHS SelectColor2
  8474. set2r2  BSR GetColPos
  8475.     AND.W   #$0F00,D2
  8476.     LSR.W   #8,D2
  8477.     CMP.B   D2,D0
  8478.     BEQ.S   setrsk2
  8479.     AND.W   #$00FF,D1
  8480.     LSL.W   #8,D0
  8481.     OR.W    D0,D1
  8482.     MOVE.W  D1,(A0)
  8483.     BSR ShowColSliders
  8484.     BSR ShowRainbow
  8485.     BSR SetupVUCols
  8486. setrsk2 BTST    #6,$BFE001
  8487.     BEQ.S   set2r2
  8488.     RTS
  8489.  
  8490. SetGreen2
  8491.     CMP.W   #79,D0
  8492.     BHS SelectColor2
  8493. set2g2  BSR GetColPos
  8494.     AND.W   #$00F0,D2
  8495.     LSR.W   #4,D2
  8496.     CMP.B   D2,D0
  8497.     BEQ.S   setgsk2
  8498.     AND.W   #$0F0F,D1
  8499.     LSL.W   #4,D0
  8500.     OR.W    D0,D1
  8501.     MOVE.W  D1,(A0)
  8502.     BSR ShowColSliders
  8503.     BSR ShowRainbow
  8504.     BSR SetupVUCols
  8505. setgsk2 BTST    #6,$BFE001
  8506.     BEQ.S   set2g2
  8507.     RTS
  8508.  
  8509. SetBlue2
  8510.     CMP.W   #79,D0
  8511.     BHS.S   SelectColor2
  8512. set2b2  BSR GetColPos
  8513.     AND.W   #$000F,D2
  8514.     CMP.B   D2,D0
  8515.     BEQ.S   setbsk2
  8516.     AND.W   #$0FF0,D1
  8517.     OR.W    D0,D1
  8518.     MOVE.W  D1,(A0)
  8519.     BSR ShowColSliders
  8520.     BSR ShowRainbow
  8521.     BSR SetupVUCols
  8522. setbsk2 BTST    #6,$BFE001
  8523.     BEQ.S   set2b2
  8524.     RTS
  8525.  
  8526. SelectColor2
  8527.     MOVEQ   #0,D7
  8528. setcolp BTST    #6,$BFE001
  8529.     BNE.S   ChkSpread
  8530.     MOVE.W  ColorsMax(PC),D0
  8531.     MOVE.W  MouseY,D1
  8532.     CMP.W   D7,D1
  8533.     BEQ.S   setcolp
  8534.     MOVE.W  D1,D7
  8535.     CMP.W   #37,D1
  8536.     BHS.S   setcoly
  8537.     MOVEQ   #37,D1
  8538. setcoly SUB.W   #37,D1
  8539.     CMP.W   D0,D1
  8540.     BLT.S   setcol2
  8541.     MOVE.W  D0,D1
  8542.     SUBQ.W  #1,D1
  8543. setcol2 MOVE.W  D1,RainbowPos
  8544.     BSR ShowRainbow
  8545.     BSR GetColPos
  8546.     MOVE.L  A0,UndoColAddr
  8547.     MOVE.W  D1,UndoCol
  8548.     BSR ShowColSliders
  8549.     BRA setcolp
  8550.  
  8551. ChkSpread
  8552.     TST.W   SpreadFlag
  8553.     BEQ Return1
  8554.     CLR.W   SpreadFlag
  8555.     BSR GetColPos
  8556.     MOVE.W  SpreadFrom,D0
  8557.     MOVE.W  RainbowPos,D1
  8558.     CMP.W   D1,D0
  8559.     BLO.S   chkspr2
  8560.     EXG D0,D1
  8561. chkspr2 MOVE.W  D1,D4
  8562.     SUB.W   D0,D4
  8563.     CMP.W   #1,D4
  8564.     BLS Return1
  8565.     MOVE.L  D4,A2
  8566.     ADD.W   D4,D4
  8567.     MOVE.L  TheRightColors(PC),A0
  8568.     MOVE.L  A0,A1
  8569.     ADD.W   D0,D0
  8570.     ADD.W   D1,D1
  8571.     LEA (A0,D0.W),A0    ; 1st col
  8572.     MOVE.W  (A0),D2
  8573.     LEA (A1,D1.W),A1
  8574.     MOVE.W  (A1),D3     ; 2nd col
  8575.     MOVEQ   #0,D5
  8576.  
  8577. sprdlop MOVE.W  D2,D0 ; red
  8578.     LSR.W   #8,D0
  8579.     MOVE.W  D3,D1
  8580.     LSR.W   #8,D1
  8581.     BSR ColCrossfade
  8582.     LSL.W   #8,D0
  8583.     MOVE.W  D0,D7
  8584.     MOVE.W  D2,D0 ; green
  8585.     LSR.W   #4,D0
  8586.     AND.W   #$000F,D0
  8587.     MOVE.W  D3,D1
  8588.     LSR.W   #4,D1
  8589.     AND.W   #$000F,D1
  8590.     BSR ColCrossfade
  8591.     LSL.W   #4,D0
  8592.     OR.W    D0,D7
  8593.     MOVE.W  D2,D0 ; blue
  8594.     AND.W   #$000F,D0
  8595.     MOVE.W  D3,D1
  8596.     AND.W   #$000F,D1
  8597.     BSR ColCrossfade
  8598.     OR.W    D0,D7
  8599.     ADDQ.W  #2,D5
  8600.     MOVE.W  D7,(A0)+
  8601.     CMP.L   A1,A0
  8602.     BLO sprdlop
  8603.     BRA rocoup2
  8604.  
  8605. ColCrossfade
  8606.     MOVE.W  D4,D6
  8607.     SUB.W   D5,D6
  8608.     MULU    D6,D0
  8609.     ADD.L   A2,D0
  8610.     MULU    D5,D1
  8611.     ADD.W   D1,D0
  8612.     DIVU    D4,D0
  8613.     CMP.W   #15,D0
  8614.     BLS Return1
  8615.     MOVEQ   #15,D0
  8616.     RTS
  8617.  
  8618. ShowRainbow
  8619.     MOVE.L  TextBplPtr,A0
  8620.     LEA 1490(A0),A0
  8621.     MOVEQ   #0,D1
  8622.     MOVE.L  #$00FFE000,D2
  8623.     MOVE.W  RainbowPos,D3
  8624. rainlop MOVE.L  D2,D0
  8625.     CMP.W   D3,D1
  8626.     BNE.S   rainsk1
  8627.     MOVE.L  #$1EFFEF00,D0
  8628. rainsk1 MOVE.L  D0,(A0)
  8629.     LEA 40(A0),A0
  8630.     ADDQ.W  #1,D1
  8631.     CMP.W   #48,D1
  8632.     BLO.S   rainlop
  8633.     LEA CopListAnalyzer,A0
  8634.     MOVE.L  TheRightColors(PC),A1
  8635.     MOVE.W  #$5107,D0
  8636.     MOVEQ   #47,D1
  8637.     MOVEQ   #0,D2
  8638. rainlp2 MOVE.W  D0,(A0)+
  8639.     MOVE.W  #$FFFE,(A0)+
  8640.     MOVE.W  #$018E,(A0)+
  8641.     CMP.W   ColorsMax(PC),D2
  8642.     BLO.S   rainsk2
  8643.     CLR.W   (A0)+
  8644.     BRA.S   rainsk3
  8645. rainsk2 MOVE.W  (A1)+,(A0)+
  8646. rainsk3 ADD.W   #$0100,D0
  8647.     ADDQ.W  #1,D2
  8648.     DBRA    D1,rainlp2
  8649.     MOVEQ   #63,D0
  8650. rainlp3 MOVE.L  #$01B80000,(A0)+
  8651.     DBRA    D0,rainlp3
  8652.     RTS
  8653.  
  8654. RainbowPos  dc.w    0
  8655. TheRightColors  dc.l    0
  8656. ColorsMax   dc.w    48
  8657.  
  8658. ;---- PT Decompacter ----
  8659.  
  8660. Decompact
  8661.     MOVE.L  A0,CompPtr
  8662.     MOVE.L  D0,CompLen
  8663.     BSR.S   FreeDecompMem
  8664.     MOVE.L  CompPtr(PC),A0
  8665.     MOVE.L  (A0),D0
  8666.     MOVE.L  D0,DecompMemSize
  8667.     MOVEQ   #MEMF_PUBLIC,D1
  8668.     MOVE.L  4.W,A6
  8669.     JSR LVOAllocMem(A6)
  8670.     MOVE.L  D0,DecompMemPtr
  8671.     BEQ OutOfMemErr
  8672.     MOVE.L  D0,A1
  8673.     MOVE.L  CompPtr(PC),A0
  8674.     MOVE.L  CompLen(PC),D0
  8675.     ADDQ.L  #4,A0
  8676.     SUBQ.L  #4,D0
  8677. dcmloop MOVE.B  (A0)+,D1
  8678.     CMP.B   #181,D1
  8679.     BEQ.S   DecodeIt
  8680.     MOVE.B  D1,(A1)+
  8681. decom2  SUBQ.L  #1,D0
  8682.     CMP.L   #0,D0
  8683.     BGT.S   dcmloop
  8684.     MOVE.L  DecompMemPtr,A1
  8685.     MOVEQ   #-1,D0
  8686.     RTS
  8687.  
  8688. DecodeIt
  8689.     MOVEQ   #0,D1
  8690.     MOVE.B  (A0)+,D1
  8691.     MOVE.B  (A0)+,D2
  8692. dcdloop MOVE.B  D2,(A1)+
  8693.     DBRA    D1,dcdloop
  8694.     SUBQ.L  #2,D0
  8695.     BRA.S   decom2
  8696.  
  8697. FreeDecompMem
  8698.     MOVE.L  DecompMemPtr,D0
  8699.     BEQ Return1
  8700.     MOVE.L  D0,A1
  8701.     MOVE.L  DecompMemSize,D0
  8702.     MOVE.L  4.W,A6
  8703.     JSR LVOFreeMem(A6) 
  8704.     CLR.L   DecompMemPtr
  8705.     RTS
  8706.  
  8707. CompPtr dc.l    0
  8708. CompLen dc.l    0
  8709.  
  8710. ;---- Position Insert/Delete Gadgets ----
  8711.  
  8712. PosInsDelGadgs
  8713.     MOVE.W  MouseY2,D0
  8714.     CMP.W   #11,D0
  8715.     BHS Return1
  8716.     MOVE.W  MouseX2,D0
  8717.     CMP.W   #62,D0
  8718.     BHS Return1
  8719.     CMP.W   #51,D0
  8720.     BHS.S   PosDelete
  8721.     CMP.W   #40,D0
  8722.     BHS.S   PosInsert
  8723.     RTS
  8724.  
  8725. PosInsert
  8726.     MOVE.L  SongDataPtr,A0
  8727.     LEA sd_pattpos(A0),A0
  8728.     ADD.L   #126,A0
  8729.     MOVEQ   #127,D0
  8730.     MOVE.L  CurrPos,D1
  8731.     AND.L   #127,D1
  8732. posinloop
  8733.     MOVE.B  (A0),1(A0)
  8734.     SUBQ.L  #1,A0
  8735.     SUBQ.L  #1,D0
  8736.     CMP.L   D1,D0
  8737.     BHI.S   posinloop
  8738.     CLR.B   1(A0)
  8739.     BSR ShowPosition
  8740.     CLR.W   UpOrDown
  8741.     BSR SongLengthGadg
  8742.     BRA WaitForButtonUp
  8743.  
  8744. PosDelete
  8745.     MOVE.L  SongDataPtr,A0
  8746.     LEA sd_pattpos(A0),A0
  8747.     MOVE.L  CurrPos,D0
  8748.     AND.L   #127,D0
  8749.     ADD.L   D0,A0
  8750. posdeloop
  8751.     MOVE.B  1(A0),(A0)
  8752.     ADDQ.L  #1,A0
  8753.     ADDQ.L  #1,D0
  8754.     CMP.L   #127,D0
  8755.     BLS.S   posdeloop
  8756.     CLR.B   -1(A0)
  8757.     BSR ShowPosition
  8758.     MOVE.W  #-1,UpOrDown
  8759.     BSR SongLengthGadg
  8760.     BRA WaitForButtonUp
  8761.  
  8762. ;---- Enter number gadg ----
  8763.  
  8764. EnterNumGadg
  8765.     MOVE.W  MouseY2,D1
  8766.     CMP.W   #11,D1
  8767.     BLO EnterPosGadg
  8768.     CMP.W   #22,D1
  8769.     BLO EnterPattGadg
  8770.     CMP.W   #33,D1
  8771.     BLO EnterLenGadg
  8772.     RTS
  8773.  
  8774. EnterPosGadg
  8775.     CLR.B   RawKeyCode
  8776.     MOVE.W  #76,LineCurX
  8777.     MOVE.W  #10,LineCurY
  8778.     MOVE.W  #169,TextOffset
  8779.     BSR GetDec3Dig
  8780.     TST.W   AbortDecFlag
  8781.     BNE pogskip
  8782.     CMP.W   #127,D0
  8783.     BLS.S   eposgok
  8784.     MOVEQ   #127,D0
  8785. eposgok MOVE.L  D0,CurrPos
  8786.     BRA pogskip
  8787.  
  8788. EnterPattGadg
  8789.     CLR.B   RawKeyCode
  8790.     MOVE.W  #84,LineCurX
  8791.     MOVE.W  #21,LineCurY
  8792.     MOVE.W  #610,TextOffset
  8793.     BSR GetDecByte
  8794.     TST.W   AbortDecFlag
  8795.     BNE pogskip
  8796.     CMP.B   #63,D0
  8797.     BLS.S   epgok
  8798.     MOVEQ   #63,D0
  8799. epgok   MOVE.L  SongDataPtr,A0
  8800.     LEA sd_pattpos(A0),A0
  8801.     ADD.L   CurrPos,A0
  8802.     MOVE.B  D0,(A0)
  8803.     BRA pogskip
  8804.  
  8805. EnterLenGadg
  8806.     CLR.B   RawKeyCode
  8807.     MOVE.W  #76,LineCurX
  8808.     MOVE.W  #32,LineCurY
  8809.     MOVE.W  #1049,TextOffset
  8810.     BSR GetDec3Dig
  8811.     TST.W   AbortDecFlag
  8812.     BNE ShowSongLength
  8813.     CMP.W   #128,D0
  8814.     BLS.S   elengok
  8815.     MOVE.B  #128,D0
  8816. elengok MOVE.L  SongDataPtr,A0
  8817.     LEA sd_numofpatt(A0),A0
  8818.     MOVE.B  D0,(A0)
  8819.     BRA ShowSongLength
  8820.  
  8821. GetDec3Dig
  8822.     MOVE.W  #1,AbortDecFlag
  8823.     BSR StorePtrCol
  8824.     BSR SetWaitPtrCol
  8825.     BSR UpdateLineCurPos
  8826. gd3loop BSR GetKey0_9
  8827.     CMP.W   #68,D1
  8828.     BEQ.S   gd3exit
  8829.     CMP.W   #2,D1
  8830.     BHI.S   gd3loop
  8831.     MOVE.W  D1,D0
  8832.     MULU    #100,D0
  8833.     MOVE.W  D0,gd3temp
  8834.     BSR ShowOneDigit
  8835.     ADDQ.W  #8,LineCurX
  8836.     BSR UpdateLineCurPos
  8837.     BSR GetKey0_9
  8838.     CMP.B   #68,D1
  8839.     BEQ.S   gd3exit
  8840.     MOVE.W  D1,D0
  8841.     MULU    #10,D0
  8842.     ADD.W   D0,gd3temp
  8843.     BSR ShowOneDigit
  8844.     ADDQ.W  #8,LineCurX
  8845.     BSR UpdateLineCurPos
  8846.     BSR GetKey0_9
  8847.     CMP.B   #68,D1
  8848.     BEQ.S   gd3exit
  8849.     ADD.W   D1,gd3temp
  8850.     CLR.W   AbortDecFlag
  8851. gd3exit CLR.W   LineCurX
  8852.     MOVE.W  #270,LineCurY
  8853.     BSR UpdateLineCurPos
  8854.     BSR RestorePtrCol
  8855.     MOVEQ   #0,D0
  8856.     MOVE.W  gd3temp(PC),D0
  8857.     RTS
  8858.  
  8859. gd3temp dc.w    0
  8860.  
  8861. ;----  Up/Down Gadgets ----
  8862.  
  8863. DownGadgets
  8864.     MOVE.W  #1,UpdateFreeMem
  8865.     MOVE.W  #-1,UpOrDown
  8866.     BRA.S   ug2
  8867.  
  8868. UpGadgets
  8869.     MOVE.W  #1,UpdateFreeMem
  8870.     CLR.W   UpOrDown
  8871. ug2 MOVE.W  MouseY2,D0
  8872.     CMP.W   #100,D0
  8873.     BHS Return1
  8874.     CMP.W   #89,D0
  8875.     BHS RepLenGadg
  8876.     CMP.W   #78,D0
  8877.     BHS RepeatGadg
  8878.     CMP.W   #67,D0
  8879.     BHS SampleLengthGadg
  8880.     CMP.W   #56,D0
  8881.     BHS VolumeGadg
  8882.     CMP.W   #45,D0
  8883.     BHS SampleNumGadg
  8884.     CMP.W   #34,D0
  8885.     BHS FineTuneGadg
  8886.     CMP.W   #23,D0
  8887.     BHS SongLengthGadg
  8888.     CMP.W   #12,D0
  8889.     BHS PatternGadg
  8890.     TST.W   MouseY2
  8891.     BHS.S   PositionGadg
  8892.     RTS
  8893.  
  8894. PositionGadg
  8895.     TST.W   UpOrDown
  8896.     BMI.S   PositionDown
  8897. PositionUp
  8898.     ADDQ.L  #1,CurrPos
  8899.     BTST    #2,$DFF016
  8900.     BNE.S   pogskp2
  8901.     ADD.L   #9,CurrPos
  8902. pogskp2 CMP.L   #127,CurrPos
  8903.     BLS.S   pogskip
  8904.     MOVE.L  #127,CurrPos
  8905. pogskip MOVE.L  CurrPos,SongPosition
  8906.     BSR ShowPosition
  8907.     BSR Wait_4000
  8908.     BSR Wait_4000
  8909.     BRA Wait_4000
  8910.  
  8911. PositionDown
  8912.     SUBQ.L  #1,CurrPos
  8913.     BTST    #2,$DFF016
  8914.     BNE.S   pogskp3
  8915.     SUB.L   #9,CurrPos
  8916. pogskp3 TST.L   CurrPos
  8917.     BPL.S   pogskip
  8918.     CLR.L   CurrPos
  8919.     BRA.S   pogskip
  8920.  
  8921. PatternGadg
  8922.     MOVE.L  SongDataPtr,A0
  8923.     LEA sd_pattpos(A0),A0
  8924.     TST.W   UpOrDown
  8925.     BMI.S   PatternDown
  8926. PatternUp
  8927.     ADD.L   CurrPos,A0
  8928.     ADDQ.B  #1,(A0)
  8929.     BTST    #2,$DFF016
  8930.     BNE.S   pagaskp
  8931.     ADD.B   #9,(A0)
  8932. pagaskp CMP.B   #63,(A0)
  8933.     BLS.S   pogskip
  8934.     MOVE.B  #63,(A0)
  8935.     BRA.S   pogskip
  8936.  
  8937. PatternDown
  8938.     ADD.L   CurrPos,A0
  8939.     SUBQ.B  #1,(A0)
  8940.     BTST    #2,$DFF016
  8941.     BNE.S   padoskp
  8942.     SUB.B   #9,(A0)
  8943. padoskp TST.B   (A0)
  8944.     BPL pogskip
  8945.     CLR.B   (A0)
  8946.     BRA pogskip
  8947.  
  8948.  
  8949. SongLengthGadg
  8950.     MOVE.L  SongDataPtr,A0
  8951.     LEA sd_numofpatt(A0),A0
  8952.     TST.W   UpOrDown
  8953.     BMI.S   SongLengthDown
  8954. SongLengthUp
  8955.     ADDQ.B  #1,(A0)
  8956.     BTST    #2,$DFF016
  8957.     BNE.S   slupskp
  8958.     ADD.B   #9,(A0)
  8959. slupskp CMP.B   #127,(A0)
  8960.     BMI.S   solgskip
  8961.     MOVE.B  #127,(A0)
  8962. solgskip
  8963.     BSR ShowSongLength
  8964.     BSR Wait_4000
  8965.     BSR Wait_4000
  8966.     BRA Wait_4000
  8967.  
  8968. SongLengthDown
  8969.     SUBQ.B  #1,(A0)
  8970.     BTST    #2,$DFF016
  8971.     BNE.S   sldoskp
  8972.     SUB.B   #9,(A0)
  8973. sldoskp CMP.B   #1,(A0)
  8974.     BGE.S   solgskip
  8975.     MOVE.B  #1,(A0)
  8976.     BRA.S   solgskip
  8977.  
  8978.  
  8979. SampleNumGadg
  8980.     BTST    #2,$DFF016  ; Check Right Mousebutton
  8981.     BNE.S   SampleNum2
  8982.     TST.W   InsNum
  8983.     BEQ ShowSampleInfo
  8984.     MOVE.W  InsNum,LastInsNum
  8985.     CLR.W   InsNum
  8986.     BRA ShowSampleInfo
  8987.  
  8988. SampleNum2
  8989.     TST.W   UpOrDown
  8990.     BMI.S   SampleNumDown
  8991. SampleNumUp
  8992.     ADDQ.W  #1,InsNum
  8993.     CMP.W   #31,InsNum
  8994.     BMI.S   snuskip
  8995.     MOVE.W  #31,InsNum
  8996. snuskip BSR redrsam
  8997.     BSR Wait_4000
  8998.     BRA Wait_4000
  8999.  
  9000. SampleNumDown
  9001.     TST.W   InsNum
  9002.     BEQ.S   snuskip
  9003.     SUBQ.W  #1,InsNum
  9004.     CMP.W   #1,InsNum
  9005.     BPL.S   snuskip
  9006.     MOVE.W  #1,InsNum
  9007.     BRA.S   snuskip
  9008.  
  9009. FineTuneGadg
  9010.     MOVE.L  SongDataPtr,A0
  9011.     LEA 12(A0),A0
  9012.     MOVE.W  InsNum,D0
  9013.     BEQ Return1
  9014.     MULU    #30,D0
  9015.     ADD.L   D0,A0
  9016.     BTST    #2,$DFF016
  9017.     BNE.S   ftgskip
  9018.     CLR.B   2(A0)
  9019.     BRA.S   ftuskip
  9020. ftgskip TST.W   UpOrDown
  9021.     BMI.S   FineTuneDown
  9022. FineTuneUp
  9023.     AND.B   #$0F,2(A0)
  9024.     CMP.B   #7,2(A0)
  9025.     BEQ.S   ftuskip
  9026.     ADDQ.B  #1,2(A0)
  9027.     AND.B   #$0F,2(A0)
  9028. ftuskip BSR ShowSampleInfo
  9029.     BSR Wait_4000
  9030.     BRA Wait_4000
  9031.  
  9032. FineTuneDown
  9033.     AND.B   #$0F,2(A0)
  9034.     CMP.B   #8,2(A0)
  9035.     BEQ.S   ftuskip
  9036.     SUBQ.B  #1,2(A0)
  9037.     AND.B   #$0F,2(A0)
  9038.     BRA.S   ftuskip
  9039.  
  9040.  
  9041. VolumeGadg
  9042.     MOVE.L  SongDataPtr,A0
  9043.     LEA 12(A0),A0
  9044.     MOVE.W  InsNum,D0
  9045.     BEQ Return1
  9046.     MULU    #30,D0
  9047.     ADD.L   D0,A0
  9048.     TST.W   UpOrDown
  9049.     BMI.S   VolumeDown
  9050. VolumeUp
  9051.     ADDQ.B  #1,3(A0)
  9052.     BTST    #2,$DFF016
  9053.     BNE.S   voupskp
  9054.     ADD.B   #15,3(A0)
  9055. voupskp CMP.B   #$40,3(A0)
  9056.     BLS.S   ftuskip
  9057.     MOVE.B  #$40,3(A0)
  9058.     BRA.S   ftuskip
  9059.  
  9060. VolumeDown
  9061.     SUBQ.B  #1,3(A0)
  9062.     BTST    #2,$DFF016
  9063.     BNE.S   vodoskp
  9064.     SUB.B   #15,3(A0)
  9065. vodoskp TST.B   3(A0)
  9066.     BPL ftuskip
  9067.     CLR.B   3(A0)
  9068.     BRA ftuskip
  9069.  
  9070. SampleLengthGadg
  9071.     MOVE.W  #1,SampleLengthFlag
  9072.     MOVE.L  SongDataPtr,A0
  9073.     LEA 12(A0),A0
  9074.     MOVEQ   #0,D0
  9075.     MOVE.W  InsNum,D0
  9076.     BEQ ShowSampleInfo
  9077.     MULU    #30,D0
  9078.     ADD.L   D0,A0
  9079.     TST.W   UpOrDown
  9080.     BMI.S   SampleLengthDown
  9081. SampleLengthUp
  9082.     ADDQ.W  #1,(A0)
  9083.     BTST    #2,$DFF016
  9084.     BNE.S   sluskip
  9085.     CMP.W   #$7FF0,(A0)
  9086.     BHS.S   sluskip
  9087.     ADDQ.W  #7,(A0)
  9088. sluskip CMP.W   #$7FFF,(A0)
  9089.     BLO ShowSampleInfo
  9090.     MOVE.W  #$7FFF,(A0)
  9091.     BRA ShowSampleInfo
  9092.  
  9093. SampleLengthDown
  9094.     MOVE.W  4(A0),D0
  9095.     ADD.W   6(A0),D0
  9096.     SUBQ.W  #1,(A0)
  9097.     BTST    #2,$DFF016
  9098.     BNE.S   sldskip
  9099.     SUBQ.W  #7,(A0)
  9100. sldskip BMI.S   sldskip2
  9101.     CMP.W   (A0),D0
  9102.     BLS ShowSampleInfo
  9103.     MOVE.W  D0,(A0)
  9104.     BRA ShowSampleInfo
  9105. sldskip2
  9106.     CLR.W   (A0)
  9107.     BRA ShowSampleInfo
  9108.  
  9109. SampleLengthFlag dc.w 0
  9110.  
  9111. CheckSampleLength
  9112.     TST.W   SampleLengthFlag
  9113.     BEQ Return1
  9114.     CLR.W   SampleLengthFlag
  9115.     MOVEQ   #0,D0
  9116.     MOVE.W  InsNum,D0
  9117.     BEQ Return1
  9118.     MOVE.L  SongDataPtr,A0
  9119.     LEA 12(A0),A0
  9120.     MOVE.L  D0,D1
  9121.     LSL.W   #2,D1
  9122.     MULU    #30,D0
  9123.     ADD.L   D0,A0
  9124.     LEA SamplePtrs,A1
  9125.     LEA (A1,D1.W),A1
  9126.     MOVE.L  A0,PlaySamPtr
  9127.     MOVE.L  A1,RealSamPtr
  9128.     MOVE.L  124(A1),D0
  9129.     LSR.L   #1,D0
  9130.     MOVE.W  (A0),D1
  9131.     CMP.W   D0,D1
  9132.     BHI.S   ItsTooMuch
  9133.     RTS
  9134.  
  9135. ItsTooMuch
  9136.     LEA AddWorkSpaceText(PC),A0
  9137.     BSR AreYouSure
  9138.     BNE.S   RestoreLength
  9139.     BSR TurnOffVoices
  9140.     MOVE.L  PlaySamPtr,A0
  9141.     MOVEQ   #0,D0
  9142.     MOVE.W  (A0),D0
  9143.     LSL.L   #1,D0
  9144.     MOVE.L  D0,SamAllocLen
  9145.     MOVE.L  #MEMF_CHIP!MEMF_CLEAR,D1
  9146.     MOVE.L  4.W,A6
  9147.     JSR LVOAllocMem(A6)
  9148.     MOVE.L  D0,SamAllocPtr
  9149.     BEQ.S   RestoreLength
  9150.     MOVE.L  D0,A1
  9151.     MOVE.L  RealSamPtr,A0
  9152.     MOVE.L  (A0),D0
  9153.     BEQ.S   nosamth
  9154.     MOVE.L  D0,A2
  9155.     MOVE.L  124(A0),D1
  9156.     BEQ.S   nosamth
  9157.     SUBQ.L  #1,D1
  9158. cpsalop MOVE.B  (A2)+,(A1)+
  9159.     DBRA    D1,cpsalop
  9160.     MOVE.L  (A0),A1
  9161.     MOVE.L  124(A0),D0
  9162.     MOVE.L  4.W,A6
  9163.     JSR LVOFreeMem(A6)
  9164. nosamth MOVE.L  RealSamPtr,A0
  9165.     MOVE.L  SamAllocPtr,(A0)
  9166.     MOVE.L  SamAllocLen,124(A0)
  9167.     BSR ShowSampleInfo
  9168.     BSR RedrawSample
  9169.     BRA WaitForButtonUp
  9170.  
  9171. RestoreLength
  9172.     MOVE.L  PlaySamPtr,A0
  9173.     MOVE.L  RealSamPtr,A1
  9174.     MOVE.L  124(A1),D0
  9175.     LSR.L   #1,D0
  9176.     MOVE.W  D0,(A0)
  9177.     BRA ShowSampleInfo
  9178.  
  9179. AddWorkSpaceText dc.b 'add workspace ?',0
  9180. PlaySamPtr  dc.l 0
  9181. RealSamPtr  dc.l 0
  9182. SamAllocPtr dc.l 0
  9183. SamAllocLen dc.l 0
  9184.  
  9185. RepeatGadg
  9186.     MOVE.L  SongDataPtr,A0
  9187.     LEA 12(A0),A0
  9188.     MOVEQ   #0,D0
  9189.     MOVE.W  InsNum,D0
  9190.     BEQ ShowSampleInfo
  9191.     MULU    #30,D0
  9192.     ADD.L   D0,A0
  9193.     TST.W   UpOrDown
  9194.     BMI.S   RepeatDown
  9195. RepeatUp
  9196.     ADDQ.W  #1,4(A0)
  9197.     BTST    #2,$DFF016
  9198.     BNE.S   ruskip
  9199.     ADDQ.W  #7,4(A0)
  9200. ruskip  MOVE.W  (A0),D0     ;   Length
  9201.     BEQ.S   ruskip2
  9202.     SUB.W   6(A0),D0    ; - RepLen
  9203.     CMP.W   4(A0),D0
  9204.     BHI.S   ruskip2
  9205.     MOVE.W  D0,4(A0)
  9206. ruskip2 BSR ShowSampleInfo
  9207.     BSR UpdateRepeats
  9208.     BRA SetLoopSprites2
  9209.  
  9210. RepeatDown
  9211.     SUBQ.W  #1,4(A0)
  9212.     BTST    #2,$DFF016
  9213.     BNE.S   rdskip
  9214.     SUBQ.W  #7,4(A0)
  9215. rdskip  TST.W   4(A0)
  9216.     BPL.S   ruskip2
  9217.     CLR.W   4(A0)
  9218.     BRA.S   ruskip2
  9219.  
  9220.  
  9221. RepLenGadg
  9222.     MOVE.L  SongDataPtr,A0
  9223.     LEA 12(A0),A0
  9224.     MOVEQ   #0,D0
  9225.     MOVE.W  InsNum,D0
  9226.     BEQ ShowSampleInfo
  9227.     MULU    #30,D0
  9228.     ADD.L   D0,A0
  9229.     TST.W   UpOrDown
  9230.     BMI.S   RepLenDown
  9231. RepLenUp
  9232.     ADDQ.W  #1,6(A0)
  9233.     BTST    #2,$DFF016  ; Check Right Mousebutton
  9234.     BNE.S   rluskip
  9235.     ADDQ.W  #7,6(A0)
  9236. rluskip MOVE.W  (A0),D0
  9237.     BEQ.S   ruskip2
  9238.     SUB.W   4(A0),D0
  9239.     CMP.W   6(A0),D0
  9240.     BHI.S   ruskip2
  9241.     BRA.S   rldskip
  9242.  
  9243. RepLenDown
  9244.     MOVEQ   #0,D0
  9245.     MOVE.W  6(A0),D0
  9246.     SUBQ.L  #1,D0
  9247.     BTST    #2,$DFF016
  9248.     BNE.S   rldskip
  9249.     SUBQ.L  #7,D0
  9250. rldskip CMP.L   #1,D0
  9251.     BGE.S   rldskp2
  9252.     MOVEQ   #1,D0
  9253. rldskp2 MOVE.W  D0,6(A0)
  9254.     BRA ruskip2
  9255.  
  9256. Wait_4000
  9257.     MOVE.W  #$4000,D0
  9258.     TST.B   HHFlag
  9259.     BEQ.S   wl_loop
  9260.     MOVE.W  #$FFFF,D0
  9261. wl_lop1 DBRA    D0,wl_lop1
  9262.     MOVE.W  #$A000,D0
  9263. wl_loop DBRA    D0,wl_loop
  9264.     RTS
  9265.  
  9266. UpdateRepeats
  9267.     LEA audchan1temp,A1
  9268.     LEA $DFF0A0,A2
  9269.     LEA ScopeInfo,A3
  9270.     BSR.S   upre2
  9271.     LEA audchan2temp,A1
  9272.     LEA $DFF0B0,A2
  9273.     LEA ScopeInfo+20,A3
  9274.     BSR.S   upre2
  9275.     LEA audchan3temp,A1
  9276.     LEA $DFF0C0,A2
  9277.     LEA ScopeInfo+40,A3
  9278.     BSR.S   upre2
  9279.     LEA audchan4temp,A1
  9280.     LEA $DFF0D0,A2
  9281.     LEA ScopeInfo+60,A3
  9282. upre2   MOVE.W  InsNum,D0
  9283.     CMP.B   n_samplenum(A1),D0
  9284.     BNE Return1
  9285.     MOVE.L  n_start(A1),A1
  9286.     MOVEQ   #0,D0
  9287.     MOVE.W  4(A0),D0    ; repeat
  9288.     ADD.L   D0,A1
  9289.     ADD.L   D0,A1
  9290.     MOVE.L  A1,(A2)
  9291.     MOVE.W  6(A0),D0
  9292.     MOVE.W  D0,4(A2)    ; replen
  9293.     MOVE.L  A1,ns_repeatptr(A3)
  9294.     ADD.L   D0,A1
  9295.     ADD.L   D0,A1
  9296.     MOVE.L  A1,ns_rependptr(A3)
  9297.     RTS
  9298.  
  9299. SetPatternPos
  9300.     MOVE.L  PatternPosition,D0
  9301.     LSR.L   #4,D0
  9302.     BRA.S   ssppskip
  9303.  
  9304. SetScrPatternPos
  9305.     MOVE.W  ScrPattPos,D0
  9306. ssppskip
  9307.     TST.W   SamScrEnable
  9308.     BNE Return1
  9309.     MOVE.W  D0,PlayFromPos
  9310.     MULU    #7*40,D0
  9311.     MOVE.L  TextBplPtr,A0
  9312.     LEA $15B8(A0),A0
  9313.     ADD.L   A0,D0
  9314.     MOVE.L  CopListBpl4Ptr(PC),A1
  9315.     MOVE.W  D0,6(A1)
  9316.     SWAP    D0
  9317.     MOVE.W  D0,2(A1)
  9318.     RTS
  9319.  
  9320. PlayFromPos dc.w 0
  9321.  
  9322. WantedPattGadg
  9323.     TST.W   SamScrEnable
  9324.     BNE CheckSamGadgets
  9325. TypeInWantedPatt
  9326.     CMP.W   #138,D1
  9327.     BHI.S   tiwp2
  9328.     CMP.W   #25,D0
  9329.     BHI TempoGadg
  9330. tiwp2   CMP.L   #'patp',RunMode ; not if a song is playing...
  9331.     BEQ Return1
  9332.     CLR.B   RawKeyCode
  9333.     MOVE.W  #12,LineCurX
  9334.     MOVE.W  #$0086,LineCurY
  9335.     MOVE.W  #5121,TextOffset
  9336.     BSR GetDecByte
  9337.     TST.W   AbortDecFlag
  9338.     BNE.S   twexit
  9339.     MOVE.B  D0,PatternNumber+3
  9340.     CMP.L   #63,PatternNumber
  9341.     BLS.S   twexit
  9342.     MOVE.L  #63,PatternNumber
  9343. twexit  BRA RedrawPattern
  9344.  
  9345. GetKey0_9
  9346.     BTST    #2,$DFF016
  9347.     BEQ.S   gk_ret
  9348.     MOVEQ   #0,D0
  9349.     BSR DoKeyBuffer
  9350.     MOVE.B  RawKeyCode,D0
  9351.     BEQ.S   GetKey0_9
  9352.     CLR.B   RawKeyCode
  9353.     CMP.B   #68,D0
  9354.     BEQ.S   gk_ret
  9355.     CMP.B   #69,D0
  9356.     BEQ.S   gk_ret
  9357.     CMP.B   #10,D0
  9358.     BEQ.S   gk_end
  9359.     BHI.S   GetKey0_9
  9360.     CMP.B   #1,D0
  9361.     BLO.S   GetKey0_9
  9362.     MOVE.L  D0,D1
  9363.     RTS
  9364.  
  9365. gk_end  MOVEQ   #0,D1
  9366.     RTS
  9367.  
  9368. gk_ret  MOVEQ   #68,D1
  9369.     RTS
  9370.  
  9371. ShowOneDigit
  9372.     ADD.B   #'0',D1
  9373.     MOVE.B  D1,NumberText
  9374.     CLR.W   D1
  9375.     SWAP    D1
  9376.     MOVE.W  #1,TextLength
  9377.     MOVE.L  #NumberText,ShowTextPtr
  9378.     BSR ShowText
  9379.     CLR.L   NumberText
  9380.     CLR.W   WordNumber
  9381.     RTS
  9382.  
  9383. ;---- Get Text Line ----
  9384.  
  9385. GetTextLine
  9386.     MOVEQ   #0,D0
  9387.     MOVE.W  A4,D0
  9388.     DIVU    #40,D0
  9389.     ADDQ.W  #5,D0
  9390.     MOVE.W  D0,LineCurY
  9391.     SWAP    D0
  9392.     LSL.W   #3,D0
  9393.     ADDQ.W  #4,D0
  9394.     MOVE.W  D0,LineCurX
  9395.     BSR UpdateLineCurPos
  9396.     MOVE.L  ShowTextPtr,DSTPtr
  9397.     CLR.L   DSTOffset
  9398.     CLR.L   DSTPos
  9399.     MOVE.W  #1,GetLineFlag
  9400.     MOVE.L  A4,A5
  9401.     MOVE.W  LineCurX,D5
  9402.     CLR.B   RawKeyCode
  9403.     BSR UpdateText
  9404. WaitForKey
  9405.     BTST    #2,$DFF016
  9406.     BEQ AbortGetLine
  9407.     BTST    #6,$BFE001
  9408.     BEQ LineClicked
  9409.     BSR DoKeyBuffer
  9410.     MOVEQ   #0,D1
  9411.     MOVE.B  RawKeyCode,D1
  9412.     BEQ.S   WaitForKey
  9413.     CMP.B   #78,D1
  9414.     BEQ MoveCharRight
  9415.     CMP.B   #79,D1
  9416.     BEQ MoveCharLeft
  9417.     CMP.B   #70,D1
  9418.     BEQ DeleteChar
  9419.     CMP.B   #65,D1
  9420.     BEQ BackspaceChar
  9421.     CMP.B   #68,D1
  9422.     BEQ GetLineReturn
  9423.     CMP.B   #69,D1
  9424.     BEQ GetLineReturn
  9425.     BTST    #7,D1
  9426.     BNE.S   WaitForKey
  9427.     LEA UnshiftedKeymap,A4
  9428.     TST.W   ShiftKeyStatus
  9429.     BEQ.S   gtlskip
  9430.     LEA ShiftedKeymap,A4
  9431. gtlskip AND.W   #$007F,D1
  9432.     CMP.B   #64,D1
  9433.     BHI.S   WaitForKey
  9434.     MOVE.B  (A4,D1.W),D1
  9435.     BEQ.S   WaitForKey
  9436.     TST.B   EnterTextFlag
  9437.     BEQ.S   TextLineKey
  9438.     CMP.B   #'0',D1
  9439.     BLO WaitForKey
  9440.     CMP.B   #'f',D1
  9441.     BHI WaitForKey
  9442.     CMP.B   #'a',D1
  9443.     BHS.S   TextLineKey
  9444.     CMP.B   #'9',D1
  9445.     BHI WaitForKey
  9446. TextLineKey
  9447.     CMP.L   TextEndPtr,A6
  9448.     BEQ WaitForKey
  9449.     MOVE.L  TextEndPtr,A4
  9450. tlkloop MOVE.B  -(A4),1(A4)
  9451.     CMP.L   A4,A6
  9452.     BNE.S   tlkloop
  9453.     MOVE.L  TextEndPtr,A4
  9454.     CLR.B   (A4)
  9455.     MOVE.B  D1,(A6)+
  9456.     BSR PosMoveRight
  9457.     BSR UpdateText
  9458.     CLR.B   RawKeyCode
  9459.     BRA WaitForKey
  9460.  
  9461. LineClicked
  9462.     MOVE.W  MouseY,D1
  9463.     SUB.W   LineCurY,D1
  9464.     CMP.W   #2,D1
  9465.     BGT GetLineReturn
  9466.     CMP.W   #-8,D1
  9467.     BLT GetLineReturn
  9468.     MOVE.W  MouseX,D1
  9469.     SUB.W   LineCurX,D1
  9470.     ADDQ.W  #4,D1
  9471.     ASR.W   #3,D1
  9472.     BEQ WaitForKey
  9473.     BPL.S   linclri
  9474.  
  9475.     CMP.L   DSTPtr(PC),A6
  9476.     BEQ WaitForKey
  9477.     SUBQ.L  #1,A6
  9478.     BSR PosMoveLeft
  9479. upwake2 BSR UpdateText
  9480.     BRA WaitForKey
  9481.  
  9482. linclri CMP.L   TextEndPtr,A6
  9483.     BEQ WaitForKey
  9484.     TST.B   (A6)
  9485.     BEQ WaitForKey
  9486.     ADDQ.L  #1,A6
  9487.     BSR PosMoveRight
  9488.     BRA.S   upwake2
  9489.  
  9490. PosMoveRight
  9491.     MOVE.L  DSTPos,D0
  9492.     MOVEQ   #0,D1
  9493.     MOVE.W  TextLength,D1
  9494.     TST.B   EnterTextFlag
  9495.     BNE.S   pmrskip
  9496.     SUBQ.W  #1,D1
  9497. pmrskip CMP.L   D1,D0
  9498.     BLO.S   posrok
  9499.     ADDQ.L  #1,DSTOffset
  9500.     BRA UpdateLineCurPos
  9501. posrok  ADDQ.L  #1,DSTPos
  9502.     ADDQ.W  #8,LineCurX
  9503.     BRA UpdateLineCurPos
  9504.  
  9505. PosMoveLeft
  9506.     TST.L   DSTPos
  9507.     BNE.S   poslok
  9508.     SUBQ.L  #1,DSTOffset
  9509.     BRA UpdateLineCurPos   
  9510. poslok  SUBQ.L  #1,DSTPos
  9511.     SUBQ.W  #8,LineCurX
  9512.     BRA UpdateLineCurPos
  9513.  
  9514. BackspaceChar
  9515.     CMP.L   DSTPtr(PC),A6
  9516.     BEQ WaitForKey
  9517.     SUBQ.L  #1,A6
  9518.     MOVE.L  A6,A4
  9519. dobaloop
  9520.     MOVE.B  1(A4),(A4)+
  9521.     CMP.L   TextEndPtr,A4
  9522.     BNE.S   dobaloop
  9523.     BSR PosMoveLeft
  9524. upwake  BSR UpdateText
  9525.     BSR Wait_4000
  9526.     BSR Wait_4000
  9527.     BSR Wait_4000
  9528.     BRA WaitForKey
  9529.  
  9530. DeleteChar
  9531.     MOVE.L  A6,A4
  9532. dechloop
  9533.     MOVE.B  1(A4),(A4)+
  9534.     CMP.L   TextEndPtr,A4
  9535.     BLO.S   dechloop
  9536.     BRA.S   upwake
  9537.  
  9538. MoveCharRight
  9539.     CMP.L   TextEndPtr,A6
  9540.     BEQ WaitForKey
  9541.     TST.B   (A6)
  9542.     BEQ WaitForKey
  9543.     ADDQ.L  #1,A6
  9544.     BSR PosMoveRight
  9545.     BRA.S   upwake
  9546.  
  9547. MoveCharLeft
  9548.     CMP.L   DSTPtr(PC),A6
  9549.     BEQ WaitForKey
  9550.     SUBQ.L  #1,A6
  9551.     BSR PosMoveLeft
  9552.     BRA.S   upwake
  9553.  
  9554. GetLineReturn
  9555.     MOVE.L  DSTPtr,A6
  9556.     CMP.B   #1,EnterTextFlag
  9557.     BNE.S   gtl_rskip
  9558.     TST.B   DiskNumText2
  9559.     BEQ WaitForKey
  9560. gtl_rskip
  9561.     CMP.B   #3,EnterTextFlag
  9562.     BNE.S   gtl_rskip2
  9563.     TST.B   SndDiskNum1
  9564.     BEQ WaitForKey
  9565. gtl_rskip2
  9566.     MOVE.L  A6,A4
  9567. dlrloop TST.B   (A4)+
  9568.     BNE.S   dlrloop
  9569.     SUBQ.L  #1,A4
  9570. dlrloop2
  9571.     CMP.L   TextEndPtr,A4
  9572.     BHS.S   dlrexit
  9573.     CLR.B   (A4)+
  9574.     BRA.S   dlrloop2
  9575.  
  9576. dlrexit CLR.W   LineCurX
  9577.     MOVE.W  #270,LineCurY
  9578.     BSR UpdateLineCurPos
  9579.     CLR.W   GetLineFlag
  9580.     MOVE.B  RawKeyCode,MixChar
  9581.     CLR.B   RawKeyCode
  9582.     CLR.L   DSTOffset
  9583.     BSR.S   UpdateText
  9584.     BRA WaitForButtonUp
  9585.  
  9586. AbortGetLine
  9587.     MOVE.L  DSTPtr,A6
  9588.     MOVE.L  A6,A4
  9589. clliloop
  9590.     CLR.B   (A4)+
  9591.     CMP.L   TextEndPtr,A4
  9592.     BNE.S   clliloop
  9593.     BSR.S   UpdateText
  9594.     BRA GetLineReturn
  9595.  
  9596. UpdateText
  9597.     MOVE.W  A5,TextOffset
  9598.     MOVE.L  DSTPtr,A0
  9599.     ADD.L   DSTOffset,A0
  9600.     BRA ShowText2
  9601.  
  9602. DSTPtr      dc.l    0
  9603. DSTPos      dc.l    0
  9604. DSTOffset   dc.l    0
  9605.  
  9606. ;----
  9607.  
  9608. TypeInSongName
  9609.     BSR StorePtrCol
  9610.     BSR SetWaitPtrCol
  9611.     CLR.L   EditMode
  9612.     MOVE.L  SongDataPtr,A6
  9613.     MOVE.L  A6,TextEndPtr
  9614.     MOVE.L  A6,ShowTextPtr
  9615.     ADD.L   #19,TextEndPtr
  9616.     MOVE.W  #20,TextLength
  9617.     MOVE.W  #4133,A4
  9618.     BSR GetTextLine
  9619.     CLR.L   TextEndPtr
  9620.     BRA RestorePtrCol
  9621.  
  9622. CheckSmplNamOrLoad
  9623.     CMP.W   #287,MouseX2
  9624.     BHS LoadNamedSample
  9625. TypeInSampleName
  9626.     BSR StorePtrCol
  9627.     BSR SetWaitPtrCol
  9628.     CLR.L   EditMode
  9629.     MOVE.L  SongDataPtr,A6
  9630.     LEA -10(A6),A6
  9631.     MOVE.W  InsNum,D7
  9632.     BNE.S   tisnskip
  9633.     MOVE.W  LastInsNum,D7
  9634. tisnskip
  9635.     MULU    #30,D7
  9636.     ADD.L   D7,A6
  9637.     MOVE.L  A6,TextEndPtr
  9638.     MOVE.L  A6,ShowTextPtr
  9639.     ADD.L   #21,TextEndPtr
  9640.     MOVE.W  #22,TextLength
  9641.     MOVE.W  #4573,A4
  9642.     BSR GetTextLine
  9643.     CLR.L   TextEndPtr
  9644.     BRA RestorePtrCol
  9645.  
  9646. LoadSample
  9647.     TST.W   InsNum
  9648.     BEQ NotSampleNull
  9649.     BSR StorePtrCol
  9650.     LEA SamplePath2,A0
  9651.     BSR CopyPath
  9652.     LEA DirInputName,A0
  9653.     MOVEQ   #DirNameLength-1,D0
  9654. lsloop  MOVE.B  (A0)+,(A1)+
  9655.     DBRA    D0,lsloop
  9656.     MOVE.L  SongDataPtr,A0
  9657.     MOVE.W  InsNum,D0
  9658.     MULU    #30,D0
  9659.     LEA -10(A0),A0
  9660.     ADD.L   D0,A0
  9661.     LEA DirInputName,A1
  9662.     MOVEQ   #21,D0
  9663. lsloop2 MOVE.B  (A1)+,(A0)+
  9664.     DBRA    D0,lsloop2
  9665.     BSR SetDiskPtrCol
  9666.     MOVE.L  #FileName,D1
  9667.     BSR ExamineAndAlloc
  9668.     BEQ ErrorRestoreCol
  9669.     MOVE.L  #FileName,D1
  9670.     BRA lnssec2
  9671.  
  9672. CheckForIFF2 ; load loop
  9673.     MOVEQ   #-1,D2
  9674.     BRA.S   ciff2
  9675. CheckForIFF
  9676.     MOVEQ   #0,D2
  9677. ciff2   MOVEQ   #0,D1
  9678.     CMP.L   #'FORM',(A0)
  9679.     BNE.S   wiskip
  9680.     CMP.L   #'8SVX',8(A0)
  9681.     BNE.S   wiskip
  9682.     MOVE.L  A0,A2
  9683.     MOVE.L  A1,D0
  9684.     ADD.L   A0,A1
  9685.     TST.L   D2
  9686.     BEQ.S   cfiloop
  9687.     BSR.S   CheckIFFLoop
  9688. cfiloop CMP.L   #'BODY',(A0)
  9689.     BEQ.S   wasiff
  9690.     ADDQ.L  #2,A0
  9691.     CMP.L   A1,A0
  9692.     BLS.S   cfiloop
  9693.     RTS
  9694.  
  9695. WasIFF  ADDQ.L  #8,A0
  9696.     ADD.L   A2,D0
  9697.     SUB.L   A0,D0
  9698. wiloop  MOVE.B  (A0)+,(A2)+
  9699.     CMP.L   A1,A0
  9700.     BLS.S   wiloop
  9701.     MOVE.L  SampleInstrSave(PC),A3
  9702.     LSR.W   #1,D0
  9703.     MOVE.W  22(A3),D1
  9704.     SUB.W   D0,D1
  9705.     MOVE.W  D0,22(A3)
  9706. wiskip  LEA SampleLengthAdd(PC),A3
  9707.     MOVE.W  InsNum,D0
  9708.     LSL.W   #1,D0
  9709.     MOVE.W  D1,(A3,D0.W)
  9710.     RTS
  9711.  
  9712. CheckIFFLoop
  9713.     TST.B   IFFLoopFlag
  9714.     BEQ Return2
  9715.     MOVEM.L A0/D0,-(SP)
  9716. cilloop CMP.L   #'VHDR',(A0)
  9717.     BEQ.S   wasvhdr
  9718.     ADDQ.L  #2,A0
  9719.     CMP.L   A1,A0
  9720.     BLS.S   cilloop
  9721. cilend  MOVEM.L (SP)+,A0/D0
  9722.     RTS
  9723.  
  9724. wasvhdr MOVE.L  SampleInstrSave(PC),A3
  9725.     MOVE.L  12(A0),D0
  9726.     BEQ.S   cilend
  9727.     LSR.W   #1,D0
  9728.     MOVE.W  D0,28(A3)
  9729.     MOVE.L  8(A0),D0
  9730.     BNE.S   wsvhdr2
  9731.     MOVEQ   #2,D0
  9732. wsvhdr2 LSR.W   #1,D0
  9733.     MOVE.W  D0,26(A3)
  9734.     BRA.S   cilend
  9735.  
  9736.  
  9737. SampleInstrSave dc.l    0
  9738. SampleLengthAdd dcb.w   32,0
  9739.  
  9740. ExamineAndAlloc
  9741.     MOVEQ   #-2,D2
  9742.     MOVE.L  DOSBase,A6
  9743.     JSR LVOLock(A6)
  9744.     MOVE.L  D0,FileLock
  9745.     BEQ CantFindFile
  9746.     MOVE.L  D0,D1
  9747.     MOVE.L  #FileInfoBlock,D2
  9748.     JSR LVOExamine(A6)
  9749.     TST.L   FIB_EntryType
  9750.     BPL CantExamFile
  9751.     MOVE.L  FileLock,D1
  9752.     JSR LVOUnLock(A6)
  9753.     MOVE.L  FIB_FileSize,D0
  9754.     BEQ FileIsEmpty
  9755.     BSR TurnOffVoices
  9756.     BSR FreeSample
  9757.     MOVE.L  FIB_FileSize,D0
  9758.     CMP.L   #$FFFE,D0
  9759.     BLS.S   exalloc
  9760.     MOVE.L  #$FFFE,D0
  9761. exalloc LEA SamplePtrs,A4
  9762.     MOVE.W  InsNum(PC),D1
  9763.     LSL.W   #2,D1
  9764.     ADD.W   D1,A4
  9765.     MOVE.L  D0,124(A4)
  9766.     MOVE.L  D0,DiskDataLength
  9767.     MOVE.L  4.W,A6
  9768.     MOVE.L  #MEMF_CHIP!MEMF_CLEAR,D1
  9769.     JSR LVOAllocMem(A6)
  9770.     MOVE.L  D0,DiskDataPtr
  9771.     MOVE.L  D0,(A4)
  9772.     BEQ OutOfMemErr
  9773.     LEA LoadingSampleText(PC),A0
  9774.     BSR ShowStatusText
  9775.     MOVE.L  SongDataPtr,A0
  9776.     MOVE.W  InsNum(PC),D0
  9777.     MULU    #30,D0
  9778.     LEA -10(A0),A0
  9779.     ADD.L   D0,A0
  9780.     MOVE.L  A0,SampleInstrSave
  9781.     MOVE.L  DiskDataLength,D0
  9782.     LSR.L   #1,D0
  9783.     MOVE.W  D0,22(A0)
  9784.     MOVE.L  #$00400000,24(A0)
  9785.     MOVE.W  #1,28(A0)
  9786.     BSR ShowSampleInfo
  9787.     MOVEQ   #-1,D0
  9788.     RTS
  9789.  
  9790. LoadNamedSample
  9791.     TST.W   InsNum
  9792.     BEQ NotSampleNull
  9793.     BSR StorePtrCol
  9794.     BSR CreateSampleName
  9795.     BSR SetDiskPtrCol
  9796.     MOVE.L  FileNamePtr,D1
  9797.     BSR ExamineAndAlloc
  9798.     BEQ Return2
  9799.     MOVE.L  FileNamePtr,D1
  9800. lnssec2 MOVE.L  DOSbase(PC),A6
  9801.     MOVE.L  #1005,D2
  9802.     JSR LVOOpen(A6)
  9803.     MOVE.L  D0,D7
  9804.     BEQ CantOpenFile
  9805.     MOVE.L  D0,D1
  9806.     MOVE.L  DiskDataPtr(PC),D2
  9807.     MOVE.L  DiskDataLength(PC),D3
  9808.     JSR LVORead(A6)
  9809.     MOVE.L  D7,D1
  9810.     JSR LVOClose(A6)
  9811.     MOVE.L  DiskDataPtr(PC),A0
  9812.     MOVE.L  DiskDataLength(PC),A1
  9813.     BSR CheckForIFF2
  9814.     BSR ValidateLoops
  9815.     BSR ShowSampleInfo
  9816.     MOVE.L  DiskDataPtr(PC),A0
  9817.     CLR.W   (A0)
  9818.     BSR RedrawSample
  9819.     BSR ShowAllRight
  9820.     BRA RestorePtrCol
  9821.  
  9822. CreateSampleName
  9823.     LEA SampleFileName,A0
  9824.     MOVEQ   #27,D0
  9825. csnloop CLR.B   (A0)+
  9826.     DBRA    D0,csnloop
  9827.     MOVE.L  SongDataPtr(PC),A0
  9828.     MOVE.W  InsNum(PC),D0
  9829.     MULU    #30,D0
  9830.     LEA -10(A0),A0
  9831.     ADD.L   D0,A0
  9832.     MOVE.L  A0,SampleInstrSave
  9833.     MOVEQ   #0,D0
  9834.     MOVE.W  22(A0),D0
  9835.     ADD.L   D0,D0
  9836.     MOVE.L  D0,DiskDataLength
  9837.     MOVE.L  D0,IFFBODY+4
  9838.     ADD.L   #IFFEND-IFFFORM-8,D0
  9839.     MOVE.L  D0,IFFFORM+4
  9840.  
  9841.     MOVEQ   #0,D0
  9842.     MOVE.W  22(A0),D0
  9843.     ADD.L   D0,D0
  9844.     MOVEQ   #0,D1
  9845.     MOVE.W  28(A0),D1
  9846.     CMP.W   #1,D1
  9847.     BLS.S   csnskp2
  9848.     ADD.L   D1,D1
  9849.     MOVEQ   #0,D0
  9850.     MOVE.W  26(A0),D0
  9851.     ADD.L   D0,D0
  9852.     BRA.S   csnskp3
  9853. csnskp2 MOVEQ   #0,D1
  9854. csnskp3 MOVE.L  D0,IFFVHDR+8
  9855.     MOVE.L  D1,IFFVHDR+12
  9856.  
  9857.     LEA SampleFileName,A1
  9858.     LEA IFFNAME+8,A2
  9859.     MOVEQ   #21,D0
  9860. csnloop2
  9861.     MOVE.B  (A0),(A1)+
  9862.     MOVE.B  (A0)+,(A2)+
  9863.     DBRA    D0,csnloop2
  9864.     MOVE.L  #SampleFileName,D1
  9865.     MOVE.L  D1,FileNamePtr
  9866.     BSR.S   FindColon
  9867.     BEQ.S   CheckOverride
  9868.     LEA SamplePath2,A0
  9869.     BSR CopyPath
  9870.     MOVE.L  #SampleFileName,A0
  9871. csnloop3
  9872.     MOVE.B  (A0)+,(A1)+
  9873.     BNE.S   csnloop3
  9874.     MOVE.L  #FileName,FileNamePtr
  9875.     RTS
  9876.  
  9877. FindColon
  9878.     MOVE.L  D1,A0
  9879. fcloop  MOVE.B  (A0)+,D0
  9880.     BEQ.S   FindColonFail
  9881.     CMP.B   #':',D0
  9882.     BEQ.S   FindColonSuccess
  9883.     BRA.S   fcloop
  9884.  
  9885. FindColonFail
  9886.     MOVEQ   #-1,D0
  9887.     RTS
  9888.  
  9889. FindColonSuccess
  9890.     MOVEQ   #0,D0
  9891.     RTS
  9892.  
  9893. CheckOverride
  9894.     TST.B   OverrideFlag
  9895.     BEQ Return2
  9896.     MOVE.L  #SampleFileName,A0
  9897.     MOVE.L  A0,A1
  9898.     LEA 21(A1),A1
  9899.     MOVE.L  A1,A2
  9900. chkovlp MOVE.B  -(A1),D0
  9901.     CMP.B   #':',D0
  9902.     BEQ.S   chkovok
  9903.     CMP.B   #'/',D0
  9904.     BEQ.S   chkovok
  9905.     MOVE.L  A1,A2
  9906.     CMP.L   A0,A1
  9907.     BHI.S   chkovlp
  9908. chkovok LEA SamplePath2,A0
  9909.     BSR CopyPath
  9910. chkovl2 MOVE.B  (A2)+,(A1)+
  9911.     BNE.S   chkovl2
  9912.     MOVE.L  #FileName,FileNamePtr
  9913.     RTS
  9914.  
  9915. ValidateLoops
  9916.     MOVE.L  SongDataPtr(PC),A0
  9917.     LEA 20(A0),A0
  9918.     MOVEQ   #30,D0
  9919. valolop MOVE.W  22(A0),D1
  9920.     MOVE.W  26(A0),D2
  9921.     MOVE.W  28(A0),D3
  9922.     CMP.W   D1,D2
  9923.     BHS.S   valosk1
  9924.     ADD.W   D2,D3
  9925.     CMP.W   D1,D3
  9926.     BHI.S   valosk2
  9927. valoque TST.W   28(A0)
  9928.     BNE.S   valosk3
  9929.     MOVE.W  #1,28(A0)
  9930. valosk3 LEA 30(A0),A0
  9931.     DBRA    D0,valolop
  9932.     RTS
  9933. valosk2 SUB.W   D2,D1
  9934.     MOVE.W  D1,28(A0)
  9935.     BRA.S   valoque
  9936. valosk1 MOVEQ   #1,D1
  9937.     MOVE.L  D1,26(A0)
  9938.     BRA.S   valoque
  9939.  
  9940. LoadPreset
  9941.     CLR.B   RawKeyCode
  9942.     TST.W   InsNum
  9943.     BEQ NotSampleNull
  9944.     BSR TurnOffVoices
  9945.     BSR FreeSample
  9946.     BSR CreateSampleName
  9947.     MOVE.L  FileNamePtr,A0
  9948.     TST.B   (A0)
  9949.     BEQ Return2
  9950.     MOVE.L  DiskDataLength(PC),D0
  9951.     BEQ Return2
  9952.     MOVE.L  DiskDataLength(PC),D0
  9953.     BSR AllocSample
  9954.     MOVE.L  DiskDataPtr(PC),D0
  9955.     BEQ.S   loprerr
  9956.     BSR ShowSampleInfo
  9957.     BSR DoLoadData
  9958.     BSR ShowAllRight
  9959.     MOVE.L  DiskDataPtr(PC),A0
  9960.     MOVE.L  DiskDataLength(PC),A1
  9961.     BSR CheckForIFF
  9962.     BSR ValidateLoops
  9963.     BSR ShowSampleInfo
  9964.     MOVE.L  DiskDataPtr(PC),A0
  9965.     CLR.W   (A0)
  9966.     BSR RedrawSample
  9967.     MOVE.W  #1,UpdateFreeMem
  9968.     RTS
  9969.  
  9970. loprerr BSR StorePtrCol
  9971.     BSR OutOfMemErr
  9972.     BSR RestorePtrCol
  9973.     BRA RedrawSample
  9974.  
  9975. AllocSample
  9976.     MOVE.L  D0,-(SP)
  9977.     MOVE.L  #MEMF_CHIP!MEMF_CLEAR,D1
  9978.     MOVE.L  4.W,A6
  9979.     JSR LVOAllocMem(A6)
  9980.     MOVE.L  D0,DiskDataPtr
  9981.     LEA SamplePtrs(PC),A0
  9982.     MOVE.W  InsNum(PC),D1
  9983.     LSL.W   #2,D1
  9984.     LEA (A0,D1.W),A0
  9985.     MOVE.L  DiskDataPtr(PC),(A0)
  9986.     MOVE.L  (SP)+,124(A0)
  9987.     RTS
  9988.  
  9989. FreeSample
  9990.     LEA SamplePtrs(PC),A0
  9991.     MOVE.W  InsNum(PC),D0
  9992.     BEQ Return2
  9993.     LSL.W   #2,D0
  9994.     LEA (A0,D0.W),A0
  9995.     MOVE.L  (A0),D1
  9996.     BEQ Return2
  9997.     CLR.L   (A0)
  9998.     MOVE.L  124(A0),D0
  9999.     CLR.L   124(A0)
  10000.     MOVE.L  D1,A1
  10001.     MOVE.L  4.W,A6
  10002.     JSR LVOFreeMem(A6)
  10003.     RTS
  10004.  
  10005. NotSampleNull
  10006.     LEA NotSample0Text(PC),A0
  10007.     BSR ShowStatusText
  10008.     BRA SetErrorPtrCol
  10009.  
  10010. NotSample0Text  dc.b 'not sample 0 !',0,0
  10011.  
  10012. ;----
  10013.  
  10014. DeleteSong
  10015.     LEA DeleteSongText,A0
  10016.     BSR AreYouSure
  10017.     BNE Return2
  10018.     LEA DeletingSongText(PC),A0
  10019.     BSR ShowStatusText
  10020.     LEA SongsPath2,A0
  10021.     BSR CopyPath
  10022.     LEA DirInputName,A0
  10023.     MOVEQ   #DirNameLength-1,D0
  10024. dsloop  MOVE.B  (A0)+,(A1)+
  10025.     DBRA    D0,dsloop
  10026.     MOVE.W  #1,Action
  10027. Delete3 MOVE.L  #FileName,FileNamePtr
  10028.     MOVE.L  DOSbase(PC),A6
  10029.     MOVE.L  FileNamePtr(PC),D1
  10030.     MOVE.L  D1,A0
  10031.     JSR LVODeleteFile(A6)
  10032.     BSR ClearFileNames
  10033.     BSR ShowAllRight
  10034.     BSR SetNormalPtrCol
  10035.     BSR StorePtrCol
  10036.     BRA DoAutoDir
  10037.    
  10038. DeleteModule
  10039.     LEA DeleteModuleText,A0
  10040.     BSR AreYouSure
  10041.     BNE Return2
  10042.     LEA DeletingModuleText(PC),A0
  10043.     BSR ShowStatusText
  10044.     LEA ModulesPath2,A0
  10045.     BSR CopyPath
  10046.     LEA DirInputName,A0
  10047.     MOVEQ   #DirNameLength-1,D0
  10048. dmdloop MOVE.B  (A0)+,(A1)+
  10049.     DBRA    D0,dmdloop
  10050.     MOVE.W  #3,Action
  10051.     BRA.S   Delete3
  10052.  
  10053. DeleteSample
  10054.     LEA DeleteSampleText,A0
  10055.     BSR AreYouSure
  10056.     BNE Return2
  10057.     LEA DeletingSampleText(PC),A0
  10058.     BSR ShowStatusText
  10059.     LEA SamplePath2,A0
  10060.     BSR CopyPath
  10061.     LEA DirInputName,A0
  10062.     MOVEQ   #DirNameLength-1,D0
  10063. dsaloop MOVE.B  (A0)+,(A1)+
  10064.     DBRA    D0,dsaloop
  10065.     MOVE.W  #5,Action
  10066.     BRA Delete3
  10067.  
  10068. RenameFile
  10069.     LEA RenamingFileText(PC),A0
  10070.     BSR ShowStatusText
  10071.     LEA DirInputName,A0
  10072.     LEA NewInputName,A1
  10073.     MOVEQ   #23,D0
  10074. rnfloop MOVE.B  (A0)+,(A1)+
  10075.     BNE.S   rnfskip
  10076.     SUBQ.L  #1,A0
  10077. rnfskip DBRA    D0,rnfloop
  10078.     BSR StorePtrCol
  10079.     BSR SetWaitPtrCol
  10080.     LEA NewInputName,A6
  10081.     MOVE.L  A6,ShowTextPtr
  10082.     MOVE.L  A6,TextEndPtr
  10083.     ADD.L   #23,TextEndPtr
  10084.     MOVE.W  #24,TextLength
  10085.     MOVE.W  FileNameScrollPos+2,D0
  10086.     MULU    #240,D0
  10087.     MOVE.W  #1888,A4
  10088.     ADD.W   D0,A4
  10089.     BSR GetTextLine
  10090.     TST.B   NewInputName
  10091.     BEQ.S   rnfend
  10092.     CMP.B   #69,MixChar
  10093.     BEQ.S   rnfend
  10094.  
  10095.     MOVE.L  PathPtr,A0
  10096.     BSR CopyPath
  10097.     LEA NewInputName,A0
  10098.     MOVEQ   #23,D0
  10099. rnfloop2
  10100.     MOVE.B  (A0)+,(A1)+
  10101.     DBRA    D0,rnfloop2
  10102.  
  10103.     LEA FileName,A0
  10104.     LEA NewFileName,A1
  10105. rnfloop3
  10106.     MOVE.B  (A0)+,(A1)+
  10107.     BNE.S   rnfloop3
  10108.  
  10109.     MOVE.L  PathPtr,A0
  10110.     BSR CopyPath
  10111.     LEA DirInputName,A0
  10112.     MOVEQ   #DirNameLength-1,D0
  10113. rnfloop4
  10114.     MOVE.B  (A0)+,(A1)+
  10115.     DBRA    D0,rnfloop4
  10116.  
  10117.     MOVE.L  #FileName,D1
  10118.     MOVE.L  #NewFileName,D2
  10119.     MOVE.L  DOSbase(PC),A6
  10120.     JSR LVORename(A6)
  10121.  
  10122. rnfend  BSR ClearFileNames
  10123.     CLR.W   Action
  10124.     BSR RestorePtrCol
  10125.     BRA ShowAllRight
  10126.  
  10127. LoadSong
  10128.     MOVE.W  #1,LoadInProgress
  10129.     BSR DoClearSong
  10130.     BSR ClrSampleInfo
  10131.     LEA SongsPath2,A0
  10132.     BSR CopyPath
  10133.     LEA DirInputName,A0
  10134.     MOVEQ   #DirNameLength-1,D0
  10135. losoloop2
  10136.     MOVE.B  (A0)+,(A1)+
  10137.     DBRA    D0,losoloop2
  10138.     MOVE.L  SongDataPtr(PC),DiskDataPtr
  10139.     MOVE.L  #FileName,FileNamePtr
  10140.     MOVE.L  #70716,DiskDataLength
  10141.     LEA LoadingSongText(PC),A0
  10142.     BSR ShowStatusText
  10143.     BSR DoLoadData
  10144.     BEQ lososkip3
  10145.     MOVE.L  SongDataPtr(PC),A0
  10146.     CMP.L   #'PACK',(A0)
  10147.     BNE.S   lososkip
  10148.     MOVE.L  4(A0),CrunchedSongLength
  10149.     MOVE.L  8(A0),RealSongLength
  10150.     MOVE.L  SongDataPtr(PC),D0
  10151.     ADD.L   #70716,D0
  10152.     SUB.L   RealSongLength(PC),D0
  10153.     MOVE.L  D0,EndOfSongPtr
  10154.     LEA DecrunchingText(PC),A0
  10155.     BSR ShowStatusText
  10156.     BSR Decruncher
  10157.     BSR ShowAllRight
  10158. lososkip
  10159.     MOVE.L  SongDataPtr(PC),A0
  10160.     CMP.L   #'M.K.',sd_mahokakt(A0) ;  M.K. again...
  10161.     BEQ.S   lososkip2  
  10162.     BSR MahoneyAndKaktus ; Was 16 instr, so move up...
  10163. lososkip2
  10164.     LEA LoadingSongText(PC),A0
  10165.     BSR ShowStatusText
  10166.     BSR CheckAbort
  10167.     BEQ.S   lososkip3
  10168.     TST.B   AutoExitFlag
  10169.     BEQ.S   NoSongAutoExit
  10170.     BSR ExitFromDir
  10171. NoSongAutoExit
  10172.     CLR.L   PatternNumber
  10173.     CLR.L   CurrPos
  10174.     BSR RedrawPattern
  10175.     CLR.W   ScrPattPos
  10176.     BSR SetScrPatternPos
  10177.     BSR SortDisks
  10178.     LEA SampleSortList(PC),A0
  10179.     MOVEQ   #30,D0
  10180. losoloop3
  10181.     TST.B   NosamplesFlag
  10182.     BNE.S   lososkip3
  10183.     BSR CheckAbort
  10184.     BEQ.S   lososkip3
  10185.     MOVE.W  InsNum(PC),TuneUp
  10186.     BSR DoShowFreeMem
  10187.     MOVE.L  (A0)+,D1
  10188.     MOVE.W  D1,InsNum
  10189.     MOVEM.L D0/D1/A0,-(SP)
  10190.     BSR LoadPreset
  10191.     BSR ShowSampleInfo
  10192.     MOVEM.L (SP)+,D0/D1/A0
  10193.     DBRA    D0,losoloop3
  10194. lososkip3
  10195.     MOVE.W  #1,InsNum
  10196.     MOVE.L  #6,CurrSpeed
  10197.     CLR.W   LoadInProgress
  10198.     BSR ShowAllRight
  10199.     BSR SetNormalPtrCol
  10200.     BSR DoShowFreeMem
  10201.     BSR CheckInstrLengths
  10202.     BSR ShowSampleInfo
  10203.     BRA RedrawSample
  10204.  
  10205. SortDisks
  10206.     MOVEM.L D0-D4/A0-A1,-(SP)
  10207.     MOVE.L  SongDataPtr(PC),A0
  10208.     LEA 23(A0),A0
  10209.     LEA SampleSortList(PC),A1
  10210.     MOVEQ   #1,D0
  10211. losoloop4
  10212.     MOVE.B  (A0)+,(A1)+ ; ST-(0)1
  10213.     MOVE.B  (A0),(A1)+  ; ST-0(1)
  10214.     MOVE.W  D0,(A1)+    ; insnum
  10215.     LEA 29(A0),A0
  10216.     ADDQ.L  #1,D0
  10217.     CMP.L   #32,D0
  10218.     BLO.S   losoloop4
  10219. losoloop5
  10220.     CLR.W   MoreInstrFlag
  10221.     LEA SampleSortList(PC),A0
  10222.     MOVEQ   #29,D2
  10223. losoloop6
  10224.     MOVE.W  (A0),D0
  10225.     MOVE.W  4(A0),D1
  10226.     CMP.W   D0,D1 ; if next disk greater
  10227.     BHS.S   loso2_2
  10228.     MOVE.W  #1,MoreInstrFlag
  10229.     MOVE.L  (A0),D3 ; swap disks
  10230.     MOVE.L  4(A0),D4
  10231.     MOVE.L  D4,(A0)
  10232.     MOVE.L  D3,4(A0)
  10233. loso2_2 ADDQ.L  #4,A0
  10234.     DBRA    D2,losoloop6
  10235.     TST.W   MoreInstrFlag
  10236.     BNE.S   losoloop5
  10237.     LEA SampleSortList(PC),A0
  10238.     MOVEQ   #30,D0
  10239. losoloop7
  10240.     CLR.W   (A0)
  10241.     ADDQ.L  #4,A0
  10242.     DBRA    D0,losoloop7
  10243.     MOVEM.L (SP)+,D0-D4/A0-A1
  10244.     RTS
  10245.  
  10246. MahoneyAndKaktus
  10247.     LEA Loadas31text(PC),A0
  10248.     BSR AreYouSure
  10249.     BEQ.S   putmk
  10250.     MOVE.L  SongDataPtr(PC),A0  ; M.K. 32 samples format!
  10251.     LEA 466(A0),A1
  10252.     ADD.L   #66006,A0
  10253. makloop MOVE.L  (A0),484(A0)
  10254.     CLR.L   (A0)
  10255.     SUBQ.L  #4,A0
  10256.     CMP.L   A0,A1
  10257.     BNE.S   makloop
  10258.     MOVE.L  SongDataPtr(PC),A0
  10259.     LEA sd_mahokakt(A0),A1
  10260.     LEA sd_numofpatt(A0),A0
  10261. makloop2
  10262.     MOVE.W  4(A0),(A0)+
  10263.     CMP.L   A0,A1
  10264.     BNE.S   makloop2
  10265.     MOVE.L  #'M.K.',(A0)    ; M.K. again!
  10266.     MOVEQ   #0,D0
  10267.     RTS
  10268.  
  10269. putmk   MOVE.L  SongDataPtr(PC),A0
  10270.     MOVE.L  #'M.K.',sd_mahokakt(A0) ;  put M.K.
  10271.     MOVEQ   #-1,D0
  10272.     RTS
  10273.  
  10274. Loadas31Text    dc.b    "Load as 31 instr?",0
  10275.  
  10276. CheckInstrLengths
  10277.     MOVE.L  SongDataPtr(PC),A0
  10278.     ADD.L   #20,A0
  10279.     MOVEQ   #30,D1
  10280. xilloop MOVE.W  26(A0),D0
  10281.     ADD.W   28(A0),D0
  10282.     CMP.W   22(A0),D0
  10283.     BLS.S   xilSkip
  10284.     MOVE.W  26(A0),D0
  10285.     LSR.W   #1,D0  
  10286.     MOVE.W  D0,26(A0)
  10287. xilskip ADD.L   #30,A0
  10288.     DBRA    D1,xilloop
  10289.     RTS
  10290.  
  10291. CheckAbort
  10292.     BTST    #2,$DFF016
  10293.     BNE Return2
  10294.     MOVEM.L D0-D7/A0-A6,-(SP)
  10295.     LEA AbortLoadText,A0
  10296.     BSR AreYouSure
  10297.     BNE.S   chabno
  10298.     MOVEM.L (SP)+,D0-D7/A0-A6
  10299.     MOVEQ   #0,D7
  10300.     RTS
  10301.  
  10302. chabno  MOVEM.L (SP)+,D0-D7/A0-A6
  10303.     MOVEQ   #-1,D7
  10304.     RTS
  10305.  
  10306. StopIt  BSR.S   DoStopIt
  10307. TurnOffVoices
  10308.     MOVEM.L A0-A1,-(SP)
  10309.     MOVE.W  #$000F,$DFF096
  10310.     CLR.W   $DFF0A8
  10311.     CLR.W   $DFF0B8
  10312.     CLR.W   $DFF0C8
  10313.     CLR.W   $DFF0D8
  10314.     CLR.B   RawKeyCode
  10315.     LEA ScopeInfo,A0
  10316.     LEA BlankSample,A1
  10317.     MOVE.L  A1,(A0)
  10318.     MOVE.L  A1,20(A0)
  10319.     MOVE.L  A1,40(A0)
  10320.     MOVE.L  A1,60(A0)
  10321.     MOVEM.L (SP)+,A0-A1
  10322.     RTS
  10323.  
  10324. DoStopIt
  10325.     BSR SetNormalPtrCol
  10326.     CLR.L   EditMode
  10327.     CLR.L   RunMode
  10328.     CLR.B   PattDelayTime
  10329.     CLR.B   PattDelayTime2
  10330.     BRA RestoreEffects2
  10331.  
  10332. UsePreset
  10333.     BSR StorePtrCol
  10334.     TST.L   PLSTmem
  10335.     BEQ.S   upend
  10336.     TST.W   InsNum
  10337.     BEQ.S   upend
  10338.     CLR.B   RawKeyCode
  10339.     MOVE.W  CurrentPreset(PC),D0
  10340.     SUBQ.W  #1,D0
  10341.     MULU    #30,D0
  10342.     MOVE.L  PLSTmem(PC),A0
  10343.     ADD.L   D0,A0
  10344.     MOVE.W  InsNum(PC),D0
  10345.     MULU    #30,D0
  10346.     MOVE.L  SongDataPtr(PC),A1
  10347.     LEA -10(A1,D0.W),A1
  10348.     MOVE.L  A1,A2
  10349.     MOVEQ   #29,D0
  10350. uploop  MOVE.B  (A0)+,(A1)+
  10351.     DBRA    D0,uploop
  10352.     MOVE.L  (A2),D0
  10353.     AND.L   #$DFDFFFFF,D0
  10354.     CMP.L   #$53540000,D0 ;ST__
  10355.     BNE.S   upok
  10356.     CLR.W   (A2)
  10357.     CLR.L   22(A2)
  10358.     MOVE.L  #$00000001,26(A2)
  10359. upok    BSR LoadPreset
  10360. upend   BSR ShowSampleInfo
  10361.     BRA RestorePtrCol
  10362.  
  10363. ;---- Edit ----
  10364.  
  10365. Edit    TST.W   SamScrEnable
  10366.     BNE Return2
  10367.     BSR StopIt
  10368.     CLR.B   RawKeyCode
  10369.     BSR SetEditPtrCol
  10370.     BSR SetScrPatternPos
  10371.     MOVE.L  #'edit',EditMode
  10372.     BRA WaitForButtonUp
  10373.  
  10374. ;---- Edit Op. ----
  10375.  
  10376. DoEditOp
  10377.     CLR.B   RawKeyCode
  10378.     CMP.W   #1,CurrScreen
  10379.     BNE Return2
  10380.     TST.B   EdEnable
  10381.     BEQ.S   EditOp
  10382.     ADDQ.B  #1,EdScreen
  10383.     CMP.B   #4,EdScreen
  10384.     BLO.S   EditOp
  10385.     MOVE.B  #1,EdScreen
  10386. EditOp  BSR WaitForButtonUp
  10387.     ST  EdEnable
  10388.     ST  DisableAnalyzer
  10389.     JSR ClearAnalyzerColors
  10390.     BSR ClearRightArea
  10391.     BRA DrawEditMenu
  10392.  
  10393. EdEnable    dc.b    0
  10394. EdScreen    dc.b    1
  10395.  
  10396. DrawEditMenu
  10397.     CMP.B   #1,EdScreen
  10398.     BNE.S   demskip
  10399.     MOVE.L  #EditOpText1,ShowTextPtr
  10400.     LEA Edit1Data,A0
  10401.     MOVE.L  #Edit1Size,D0
  10402.     BRA.S   demit
  10403. demskip
  10404.     CMP.B   #2,EdScreen
  10405.     BNE.S   demskip2
  10406.     MOVE.L  #EditOpText2,ShowTextPtr
  10407.     LEA Edit2Data,A0
  10408.     MOVE.L  #Edit2Size,D0
  10409.     BRA.S   demit
  10410. demskip2
  10411.     CMP.B   #3,EdScreen
  10412.     BNE Return2
  10413.     MOVE.L  #EditOpText3,ShowTextPtr
  10414.     LEA Edit3Data,A0
  10415.     MOVE.L  #Edit3Size,D0
  10416. demit   BSR Decompact
  10417.     BEQ ExitEditOp
  10418.     LEA SpectrumAnaPos,A0
  10419.     MOVEQ   #54,D0
  10420. demloop1
  10421.     MOVEQ   #24,D1
  10422. demloop2
  10423.     MOVE.B  1430(A1),10240(A0)
  10424.     MOVE.B  (A1)+,(A0)+
  10425.     DBRA    D1,demloop2
  10426.     LEA 15(A0),A0
  10427.     ADDQ.L  #1,A1
  10428.     DBRA    D0,demloop1
  10429.     BSR FreeDecompMem
  10430.     MOVE.W  #1936,TextOffset
  10431.     MOVE.W  #22,TextLength
  10432.     BSR ShowText
  10433.     CMP.B   #1,EdScreen
  10434.     BEQ ShowSampleAll
  10435.     CMP.B   #2,EdScreen
  10436.     BNE.S   demskip3
  10437.     BSR ShowTrackPatt
  10438.     BSR ShowFrom
  10439.     BSR ShowTo
  10440.     BSR ShowRecordMode
  10441.     BSR ShowQuantize
  10442.     BSR ShowMetronome
  10443.     BRA ShowMultiMode
  10444. demskip3
  10445.     CMP.B   #3,EdScreen
  10446.     BNE Return2
  10447.     BSR ShowHalfClip
  10448.     BSR ShowPos
  10449.     BSR ShowMod
  10450.     BRA ShowVol
  10451.  
  10452. EditOpText1 dc.b    '  track      pattern  '
  10453. EditOpText2 dc.b    '  record     samples  '
  10454. EditOpText3 dc.b    '    sample editor     '
  10455.  
  10456. CheckEditOpGadgs
  10457.     MOVE.W  PattCurPos(PC),D0
  10458.     BSR.S   GetPositionPtr
  10459.     MOVEM.W MouseX2,D0/D1
  10460.     CMP.W   #306,D0
  10461.     BHS.S   CheckEdSwap
  10462.     CMP.B   #1,EdScreen
  10463.     BEQ CheckEdGadg1
  10464.     CMP.B   #2,EdScreen
  10465.     BEQ CheckEdGadg2
  10466.     CMP.B   #3,EdScreen
  10467.     BEQ CheckEdGadg3
  10468.     RTS
  10469.  
  10470. GetPositionPtr
  10471.     MOVE.L  SongDataPtr(PC),A0
  10472.     LEA sd_patterndata(A0),A0
  10473.     MOVE.L  PatternNumber(PC),D2
  10474.     LSL.L   #8,D2
  10475.     LSL.L   #2,D2
  10476.     ADD.L   D2,A0
  10477.     MOVEQ   #0,D2
  10478.     MOVE.W  D0,D2
  10479.     DIVU    #6,D2
  10480.     LSL.W   #2,D2
  10481.     ADD.W   D2,A0
  10482.     RTS
  10483.  
  10484. CheckEdSwap
  10485.     CMP.W   #55,D1
  10486.     BLS Return2
  10487.     MOVEQ   #1,D2
  10488.     CMP.W   #66,D1
  10489.     BLS.S   SetEditOpScreen
  10490.     MOVEQ   #2,D2
  10491.     CMP.W   #77,D1
  10492.     BLS.S   SetEditOpScreen
  10493.     MOVEQ   #3,D2
  10494.     CMP.W   #88,D1
  10495.     BLS.S   SetEditOpScreen
  10496.     CMP.W   #99,D1
  10497.     BLS.S   ExitEditOp
  10498.     RTS
  10499.  
  10500. SetEditOpScreen
  10501.     MOVE.B  D2,EdScreen
  10502.     BRA EditOp
  10503.  
  10504. ExitEditOp
  10505.     SF  EdEnable
  10506.     CLR.B   RawKeyCode
  10507.     BRA DisplayMainScreen
  10508.  
  10509. CheckEdGadg1
  10510.     CMP.W   #55,D1
  10511.     BLS ToggleSampleAll
  10512.     CMP.W   #66,D1
  10513.     BLS NoteUp
  10514.     CMP.W   #77,D1
  10515.     BLS NoteDown
  10516.     CMP.W   #88,D1
  10517.     BLS OctaveUp
  10518.     CMP.W   #99,D1
  10519.     BLS OctaveDown
  10520.     RTS
  10521.  
  10522. CheckEdGadg2
  10523.     CMP.W   #55,D1
  10524.     BLS ToggleTrackPatt
  10525.     CMP.W   #213,D0
  10526.     BLS.S   ceg2left
  10527.     CMP.W   #66,D1
  10528.     BLS DeleteOrKill
  10529.     CMP.W   #77,D1
  10530.     BLS ExchangeOrCopy
  10531.     CMP.W   #88,D1
  10532.     BLS SetSampleFrom
  10533.     CMP.W   #99,D1
  10534.     BLS SetSampleTo
  10535.     RTS
  10536.  
  10537. ceg2left
  10538.     CMP.W   #66,D1
  10539.     BLS ToggleRecordMode
  10540.     CMP.W   #77,D1
  10541.     BLS SetQuantize
  10542.     CMP.W   #88,D1
  10543.     BLS SetMetronome
  10544.     CMP.W   #99,D1
  10545.     BLS ToggleMultiMode
  10546.     RTS
  10547.  
  10548. CheckEdGadg3
  10549.     MOVE.L  SongDataPtr(PC),A5
  10550.     LEA -10(A5),A5
  10551.     MOVE.W  InsNum(PC),D2
  10552.     BNE.S   ceg3skip
  10553.     MOVE.W  LastInsNum,D2
  10554. ceg3skip
  10555.     MULU    #30,D2
  10556.     ADD.L   D2,A5
  10557.     CMP.W   #55,D1
  10558.     BLS ToggleHalfClip
  10559.     CMP.W   #213,D0
  10560.     BLS.S   ceg3mid
  10561.     CMP.W   #66,D1
  10562.     BLS SetSamplePos
  10563.     CMP.W   #77,D1
  10564.     BLS SetModSpeed
  10565.     CMP.W   #88,D1
  10566.     BLS CutBeg
  10567.     CMP.W   #99,D1
  10568.     BLS ChangeVolume
  10569.     RTS
  10570.  
  10571. ceg3mid CMP.W   #165,D0
  10572.     BLS.S   ceg3left
  10573.     CMP.W   #66,D1
  10574.     BLS Echo
  10575.     CMP.W   #77,D1
  10576.     BLS Filter
  10577.     CMP.W   #88,D1
  10578.     BLS Backwards
  10579.     CMP.W   #99,D1
  10580.     BLS DownSample
  10581.     RTS
  10582.  
  10583. ceg3left
  10584.     CMP.W   #66,D1
  10585.     BLS Mix
  10586.     CMP.W   #77,D1
  10587.     BLS Boost
  10588.     CMP.W   #88,D1
  10589.     BLS XFade
  10590.     CMP.W   #99,D1
  10591.     BLS UpSample
  10592.     RTS
  10593.  
  10594. ToggleSampleAll
  10595.     BSR WaitForButtonUp
  10596.     EOR.B   #1,SampleAllFlag
  10597. ShowSampleAll
  10598.     LEA BitplaneData+1838,A1
  10599.     LEA S_BoxData,A2
  10600.     TST.B   SampleAllFlag
  10601.     BEQ rtdoit
  10602.     LEA A_BoxData,A2
  10603.     BRA rtdoit
  10604.  
  10605. OctaveUp
  10606.     MOVE.W  #24,NoteShift
  10607.     BRA.S   nup2
  10608.  
  10609. NoteUp  MOVE.W  #2,NoteShift
  10610. nup2    BSR SaveUndo
  10611.     CMP.W   #214,D0
  10612.     BLS.S   nup3
  10613.     MOVEQ   #0,D0
  10614.     BSR GetPositionPtr
  10615.     BSR.S   SampleNoteUp
  10616.     MOVEQ   #6,D0
  10617.     BSR GetPositionPtr
  10618.     BSR.S   SampleNoteUp
  10619.     MOVEQ   #12,D0
  10620.     BSR GetPositionPtr
  10621.     BSR.S   SampleNoteUp
  10622.     MOVEQ   #18,D0
  10623.     BSR GetPositionPtr
  10624. nup3    BSR.S   SampleNoteUp
  10625.     BRA RedrawPattern
  10626.  
  10627. SampleNoteUp
  10628.     MOVEQ   #63,D6
  10629.     MOVE.L  A0,A3
  10630.     MOVE.W  InsNum(PC),D3
  10631.     TST.B   SampleAllFlag
  10632.     BEQ.S   sanulo2
  10633.     MOVEQ   #0,D3
  10634. sanulo2 MOVE.L  D6,D0
  10635.     MOVE.L  A3,A0
  10636. sanuloop
  10637.     MOVE.B  2(A0),D1
  10638.     LSR.B   #4,D1
  10639.     MOVE.B  (A0),D2
  10640.     AND.B   #$F0,D2
  10641.     OR.B    D2,D1
  10642.     CMP.B   D3,D1
  10643.     BNE.S   sanuskip
  10644.     MOVE.W  (A0),D1
  10645.     MOVE.W  D1,D2
  10646.     AND.W   #$F000,D2
  10647.     AND.W   #$0FFF,D1
  10648.     BEQ.S   sanuskip
  10649.     BSR CheckPeriod
  10650.     BNE.S   sanuskip
  10651.     ADD.W   NoteShift(PC),D5
  10652.     CMP.W   #$0048,D5
  10653.     BLO.S   sanuok
  10654.     TST.B   TransDelFlag
  10655.     BEQ.S   sanuskip
  10656.     AND.L   #$00000FFF,(A0)
  10657.     BRA.S   sanuskip
  10658. sanuok  MOVE.W  0(A2,D5.W),D1
  10659.     OR.W    D2,D1
  10660.     MOVE.W  D1,(A0)
  10661. sanuskip
  10662.     LEA 16(A0),A0
  10663.     DBRA    D0,sanuloop
  10664.     TST.B   SampleAllFlag
  10665.     BEQ Return2
  10666.     ADDQ.W  #1,D3
  10667.     CMP.W   #32,D3
  10668.     BLO.S   sanulo2
  10669.     RTS
  10670.  
  10671. OctaveDown
  10672.     MOVE.W  #24,NoteShift
  10673.     BRA.S   ndown2
  10674.  
  10675. NoteDown
  10676.     MOVE.W  #2,NoteShift
  10677. ndown2  BSR SaveUndo
  10678.     CMP.W   #214,D0
  10679.     BLS.S   ndown3
  10680.     MOVEQ   #0,D0
  10681.     BSR GetPositionPtr
  10682.     BSR.S   SampleNoteDown
  10683.     MOVEQ   #6,D0
  10684.     BSR GetPositionPtr
  10685.     BSR.S   SampleNoteDown
  10686.     MOVEQ   #12,D0
  10687.     BSR GetPositionPtr
  10688.     BSR.S   SampleNoteDown
  10689.     MOVEQ   #18,D0
  10690.     BSR GetPositionPtr
  10691. ndown3  BSR.S   SampleNoteDown
  10692.     BRA RedrawPattern
  10693.  
  10694. SampleNoteDown
  10695.     MOVEQ   #63,D6
  10696.     MOVE.L  A0,A3
  10697.     MOVE.W  InsNum(PC),D3
  10698.     TST.B   SampleAllFlag
  10699.     BEQ.S   sandlo2
  10700.     MOVEQ   #0,D3
  10701. sandlo2 MOVE.W  D6,D0
  10702.     MOVE.L  A3,A0
  10703. sandloop
  10704.     MOVE.B  2(A0),D1
  10705.     LSR.B   #4,D1
  10706.     MOVE.B  (A0),D2
  10707.     AND.B   #$F0,D2
  10708.     OR.B    D2,D1
  10709.     CMP.B   D1,D3
  10710.     BNE.S   sandskip
  10711.     MOVE.W  (A0),D1
  10712.     MOVE.W  D1,D2
  10713.     AND.W   #$F000,D2
  10714.     AND.W   #$0FFF,D1
  10715.     BEQ.S   sandskip
  10716.     BSR.S   CheckPeriod
  10717.     BNE.S   sandskip
  10718.     SUB.W   NoteShift(PC),D5
  10719.     BPL.S   sandok
  10720.     TST.B   TransDelFlag
  10721.     BEQ.S   sandskip
  10722.     AND.L   #$00000FFF,(A0)
  10723.     BRA.S   sandskip
  10724. sandok  MOVE.W  0(A2,D5.W),D1
  10725.     OR.W    D2,D1
  10726.     MOVE.W  D1,(A0)
  10727. sandskip
  10728.     LEA 16(A0),A0
  10729.     DBRA    D0,sandloop
  10730.     TST.B   SampleAllFlag
  10731.     BEQ Return2
  10732.     ADDQ.W  #1,D3
  10733.     CMP.W   #$20,D3
  10734.     BLO.S   sandlo2
  10735.     RTS
  10736.  
  10737. NoteShift
  10738.     dc.w    0
  10739.  
  10740. CheckPeriod
  10741.     LEA PeriodTable(PC),A2
  10742.     MOVEQ   #-2,D5
  10743. chpeloop
  10744.     ADDQ.L  #2,D5
  10745.     MOVE.W  0(A2,D5.W),D4
  10746.     BEQ.S   PeriodNotOk
  10747.     CMP.W   D4,D1
  10748.     BEQ.S   PeriodOk
  10749.     BRA.S   chpeloop
  10750.  
  10751. PeriodOk
  10752.     MOVEQ   #0,D4
  10753.     RTS
  10754.  
  10755. PeriodNotOk
  10756.     MOVEQ   #-1,D4
  10757.     RTS
  10758.  
  10759. ToggleTrackPatt
  10760.     BSR WaitForButtonUp
  10761.     ADDQ.B  #1,TrackPattFlag
  10762.     CMP.B   #3,TrackPattFlag
  10763.     BLO.S   ShowTrackPatt
  10764.     CLR.B   TrackPattFlag
  10765. ShowTrackPatt
  10766.     LEA BitplaneData+1838,A1
  10767.     LEA T_BoxData,A2
  10768.     TST.B   TrackPattFlag
  10769.     BEQ rtdoit
  10770.     LEA P_BoxData,A2
  10771.     CMP.B   #1,TrackPattFlag
  10772.     BEQ rtdoit
  10773.     LEA S_BoxData,A2
  10774.     BRA rtdoit
  10775.  
  10776. KillInstrTrack
  10777.     BSR SaveUndo
  10778.     MOVE.W  PattCurPos(PC),D0
  10779.     BSR GetPositionPtr
  10780.     BRA.S   dst2
  10781.  
  10782. DeleteOrKill
  10783.     CMP.W   #260,D0
  10784.     BHS KillSample
  10785. DelSampleTrack
  10786.     BSR SaveUndo
  10787.     TST.B   TrackPattFlag
  10788.     BEQ.S   dst2
  10789.     MOVEQ   #0,D0
  10790.     BSR GetPositionPtr
  10791.     BSR.S   dstdoit
  10792.     MOVEQ   #6,D0
  10793.     BSR GetPositionPtr
  10794.     BSR.S   dstdoit
  10795.     MOVEQ   #12,D0
  10796.     BSR GetPositionPtr
  10797.     BSR.S   dstdoit
  10798.     MOVEQ   #18,D0
  10799.     BSR GetPositionPtr
  10800. dst2    BSR.S   dstdoit
  10801.     BRA RedrawPattern
  10802.  
  10803. dstdoit CLR.B   RawKeyCode
  10804.     MOVEQ   #63,D0
  10805.     MOVE.W  InsNum(PC),D3
  10806.     BEQ NotSampleNull
  10807. ksloop  MOVE.B  2(A0),D1
  10808.     LSR.B   #4,D1
  10809.     MOVE.B  (A0),D2
  10810.     AND.B   #$F0,D2
  10811.     OR.B    D2,D1
  10812.     CMP.B   D1,D3
  10813.     BNE.S   ksskip
  10814.     CLR.L   (A0)
  10815. ksskip  LEA 16(A0),A0
  10816.     DBRA    D0,ksloop
  10817.     RTS
  10818.  
  10819. KillSample
  10820.     LEA KillSampleText,A0
  10821.     BSR AreYouSure
  10822.     BNE Return2
  10823. Destroy BSR StorePtrCol
  10824.     MOVE.W  InsNum(PC),D0
  10825.     BEQ ErrorRestoreCol
  10826.     BSR TurnOffVoices
  10827.     BSR FreeSample
  10828.     MOVE.L  SongDataPtr(PC),A0
  10829.     MOVE.W  InsNum(PC),D0
  10830.     MULU    #30,D0
  10831.     LEA -10(A0),A0
  10832.     ADD.L   D0,A0
  10833.     MOVE.L  A0,A1
  10834.     MOVEQ   #29,D0
  10835. kisalop CLR.B   (A0)+
  10836.     DBRA    D0,kisalop
  10837.     MOVE.W  #1,28(A1)
  10838.     BSR ShowSampleInfo
  10839.     BSR RedrawSample
  10840.     BRA RestorePtrCol
  10841.  
  10842. ExchangeOrCopy
  10843.     MOVEQ   #-1,D4
  10844.     CMP.W   #260,D0
  10845.     BHS.S   CopySampleTrack
  10846. ExchSampleTrack
  10847.     CMP.B   #2,TrackPattFlag
  10848.     BEQ ExchSamples
  10849.     MOVEQ   #0,D4
  10850.     BRA.S   mstskip
  10851. CopySampleTrack
  10852.     CMP.B   #2,TrackPattFlag
  10853.     BEQ CopySamples
  10854. mstskip TST.B   TrackPattFlag
  10855.     BEQ.S   mst2
  10856.     MOVEQ   #0,D0
  10857.     BSR GetPositionPtr
  10858.     BSR.S   mstdoit
  10859.     MOVEQ   #6,D0
  10860.     BSR GetPositionPtr
  10861.     BSR.S   mstdoit
  10862.     MOVEQ   #12,D0
  10863.     BSR GetPositionPtr
  10864.     BSR.S   mstdoit
  10865.     MOVEQ   #18,D0
  10866.     BSR GetPositionPtr
  10867. mst2    BSR.S   mstdoit
  10868.     BRA RedrawPattern
  10869.  
  10870. mstdoit MOVEQ   #63,D0
  10871. esloop  MOVE.B  2(A0),D1
  10872.     LSR.B   #4,D1
  10873.     MOVE.B  (A0),D2
  10874.     AND.B   #$F0,D2
  10875.     OR.B    D2,D1
  10876.     CMP.B   SampleFrom(PC),D1
  10877.     BNE.S   esskip2
  10878.     AND.L   #$0FFF0FFF,(A0)
  10879.     MOVE.B  SampleTo(PC),D2
  10880.     MOVE.B  D2,D3
  10881.     AND.B   #$F0,D2
  10882.     OR.B    D2,(A0)
  10883.     LSL.B   #4,D3
  10884.     OR.B    D3,2(A0)
  10885.     BRA.S   esskip3
  10886. esskip2 TST.B   D4
  10887.     BNE.S   esskip3
  10888.     CMP.B   SampleTo(PC),D1
  10889.     BNE.S   esskip3
  10890.     AND.L   #$0FFF0FFF,(A0)
  10891.     MOVE.B  SampleFrom(PC),D2
  10892.     MOVE.B  D2,D3
  10893.     AND.B   #$F0,D2
  10894.     OR.B    D2,(A0)
  10895.     LSL.B   #4,D3
  10896.     OR.B    D3,2(A0)
  10897. esskip3 LEA 16(A0),A0
  10898.     DBRA    D0,esloop
  10899.     RTS
  10900.  
  10901. ExchSamples
  10902.     BSR StorePtrCol
  10903.     MOVEQ   #0,D0
  10904.     MOVE.B  SampleFrom(PC),D0
  10905.     BEQ ErrorRestoreCol
  10906.     MOVEQ   #0,D1
  10907.     MOVE.B  SampleTo(PC),D1
  10908.     BEQ ErrorRestoreCol
  10909.     MOVE.W  D0,D2
  10910.     MOVE.W  D1,D3
  10911.     LEA SampleLengthAdd+2,A2
  10912.     LSL.W   #1,D2
  10913.     LSL.W   #1,D3
  10914.     LEA (A2,D2.W),A0
  10915.     LEA (A2,D3.W),A1
  10916.     MOVE.W  (A0),D4
  10917.     MOVE.W  (A1),(A0)
  10918.     MOVE.W  D4,(A1)
  10919.     LEA SamplePtrs,A2
  10920.     LSL.W   #1,D2
  10921.     LSL.W   #1,D3
  10922.     LEA (A2,D2.W),A0
  10923.     LEA (A2,D3.W),A1
  10924.     MOVE.L  (A0),D4
  10925.     MOVE.L  (A1),(A0)
  10926.     MOVE.L  D4,(A1)
  10927.     MOVE.L  124(A0),D4
  10928.     MOVE.L  124(A1),124(A0)
  10929.     MOVE.L  D4,124(A1)
  10930.     SUBQ.W  #1,D0
  10931.     SUBQ.W  #1,D1
  10932.     MULU    #30,D0
  10933.     MULU    #30,D1
  10934.     MOVE.L  SongDataPtr(PC),A2
  10935.     LEA 20(A2),A2
  10936.     LEA (A2,D0.W),A0
  10937.     LEA (A2,D1.W),A1
  10938.     MOVEQ   #29,D0
  10939. exsalop MOVE.B  (A0),D1
  10940.     MOVE.B  (A1),(A0)+
  10941.     MOVE.B  D1,(A1)+
  10942.     DBRA    D0,exsalop
  10943.     BSR ShowSampleInfo
  10944.     BSR RedrawSample
  10945.     BRA RestorePtrCol
  10946.  
  10947. CopySamples
  10948.     BSR StorePtrCol
  10949.     MOVEQ   #0,D0
  10950.     MOVE.B  SampleFrom(PC),D0
  10951.     BEQ ErrorRestoreCol
  10952.     MOVEQ   #0,D1
  10953.     MOVE.B  SampleTo(PC),D1
  10954.     BEQ ErrorRestoreCol
  10955.     LEA SamplePtrs(PC),A2
  10956.     LSL.W   #2,D0
  10957.     LSL.W   #2,D1
  10958.     LEA (A2,D0.W),A3
  10959.     LEA (A2,D1.W),A4
  10960.     MOVE.L  (A3),D0
  10961.     BEQ ErrorRestoreCol
  10962.     MOVE.L  124(A3),D0
  10963.     MOVEQ   #MEMF_CHIP,D1
  10964.     MOVE.L  4.W,A6
  10965.     JSR LVOAllocMem(A6)
  10966.     TST.L   D0
  10967.     BEQ OutOfMemErr
  10968.     MOVE.L  D0,A5
  10969.     MOVEQ   #0,D0
  10970.     MOVE.B  SampleTo(PC),D0
  10971.     MOVE.W  D0,InsNum
  10972.     BSR Destroy
  10973.     MOVE.L  A5,(A4)
  10974.     MOVE.L  124(A3),D0
  10975.     MOVE.L  D0,124(A4)
  10976.     MOVE.L  (A3),A0
  10977. cosalp2 MOVE.B  (A0)+,(A5)+
  10978.     SUBQ.L  #1,D0
  10979.     BNE.S   cosalp2
  10980.     MOVEQ   #0,D0
  10981.     MOVEQ   #0,D1
  10982.     MOVE.B  SampleFrom(PC),D0
  10983.     MOVE.B  SampleTo(PC),D1
  10984.     MOVE.W  D1,InsNum
  10985.     MULU    #30,D0
  10986.     MULU    #30,D1
  10987.     MOVE.L  SongDataPtr(PC),A2
  10988.     LEA -10(A2),A2
  10989.     LEA (A2,D0.W),A0
  10990.     LEA (A2,D1.W),A1
  10991.     MOVEQ   #29,D0
  10992. cosalop MOVE.B  (A0)+,(A1)+
  10993.     DBRA    D0,cosalop
  10994.     BSR ShowSampleInfo
  10995.     BSR RedrawSample
  10996.     BRA RestorePtrCol
  10997.  
  10998. SetSampleFrom
  10999.     MOVE.W  InsNum(PC),D2
  11000.     CMP.W   #283,D0
  11001.     BLS.S   sesfskip
  11002.     MOVE.B  SampleFrom(PC),D2
  11003.     CMP.W   #295,D0
  11004.     BLS.S   sesfup
  11005.     SUBQ.B  #1,D2
  11006.     BPL.S   sesfskip
  11007.     MOVEQ   #0,D2
  11008. sesfskip
  11009.     MOVE.B  D2,SampleFrom
  11010.     BSR Wait_4000
  11011.     BRA.S   ShowFrom
  11012. sesfup  ADDQ.B  #1,D2
  11013.     CMP.B   #$1F,D2
  11014.     BLS.S   sesfskip
  11015.     MOVE.B  #$1F,SampleFrom
  11016. ShowFrom
  11017.     MOVE.W  #3273,TextOffset
  11018.     CLR.W   WordNumber
  11019.     MOVE.B  SampleFrom(PC),WordNumber+1
  11020.     BRA PrintHexByte
  11021.  
  11022. SetSampleTo
  11023.     MOVE.W  InsNum(PC),D2
  11024.     CMP.W   #283,D0
  11025.     BLS.S   sestskip
  11026.     MOVE.B  SampleTo(PC),D2
  11027.     CMP.W   #295,D0
  11028.     BLS.S   sestup
  11029.     SUBQ.B  #1,D2
  11030.     BPL.S   sestskip
  11031.     MOVEQ   #0,D2
  11032. sestskip
  11033.     MOVE.B  D2,SampleTo
  11034.     BSR Wait_4000
  11035.     BRA.S   ShowTo
  11036. sestup  ADDQ.B  #1,D2
  11037.     CMP.B   #$1F,D2
  11038.     BLS.S   sestskip
  11039.     MOVE.B  #$1F,SampleTo
  11040. ShowTo  MOVE.W  #3713,TextOffset
  11041.     CLR.W   WordNumber
  11042.     MOVE.B  SampleTo(PC),WordNumber+1
  11043.     BRA PrintHexByte
  11044.  
  11045. SampleFrom  dc.b 0
  11046. SampleTo    dc.b 0
  11047.  
  11048. ToggleRecordMode
  11049.     BSR WaitForButtonUp
  11050.     EOR.B   #1,RecordMode
  11051. ShowRecordMode
  11052.     MOVE.W  #2382,D1
  11053.     LEA PattText,A0
  11054.     TST.B   RecordMode
  11055.     BEQ.S   srmskip
  11056.     LEA SongText,A0
  11057. srmskip MOVEQ   #4,D0
  11058.     BRA ShowText3
  11059.  
  11060. PattText    dc.b 'patt'
  11061. SongText    dc.b 'song'
  11062. RecordMode  dc.b 0
  11063. QuantizeValue   dc.b 1
  11064. MetroSpeed  dc.b 4
  11065. MetroChannel    dc.b 0
  11066. MultiFlag   dc.b 0
  11067. SampleAllFlag   dc.b 0
  11068. TrackPattFlag   dc.b 0
  11069. ClipHalveFlag   dc.b 0
  11070. AbortDecFlag    dc.w 0
  11071.  
  11072. GetDecByte
  11073.     MOVE.W  #1,AbortDecFlag
  11074.     BSR StorePtrCol
  11075.     BSR SetWaitPtrCol
  11076.     BSR UpdateLineCurPos
  11077.     BSR GetKey0_9
  11078.     CMP.B   #68,D1
  11079.     BEQ.S   gdbexit
  11080.     MOVE.B  D1,D0
  11081.     MULU    #10,D0
  11082.     MOVE.B  D0,GetDecTemp
  11083.     BSR ShowOneDigit
  11084.     ADDQ.W  #8,LineCurX
  11085.     BSR UpdateLineCurPos
  11086.     BSR GetKey0_9
  11087.     CMP.B   #68,D1
  11088.     BEQ.S   gdbexit
  11089.     ADD.B   D1,GetDecTemp
  11090.     CLR.W   AbortDecFlag
  11091. gdbexit CLR.W   LineCurX
  11092.     MOVE.W  #270,LineCurY
  11093.     BSR UpdateLineCurPos
  11094.     BSR RestorePtrCol
  11095.     MOVE.B  GetDecTemp,D0
  11096.     RTS
  11097.  
  11098. SetQuantize
  11099.     CLR.B   RawKeyCode
  11100.     MOVE.W  #196,LineCurX
  11101.     MOVE.W  #76,LineCurY
  11102.     MOVE.W  #2824,TextOffset
  11103.     BSR GetDecByte
  11104.     TST.W   AbortDecFlag
  11105.     BNE ShowQuantize
  11106.     CMP.B   #63,D0
  11107.     BLS.S   tqskip
  11108.     MOVEQ.B #63,D0
  11109. tqskip  MOVE.B  D0,QuantizeValue
  11110. ShowQuantize
  11111.     MOVE.W  #2824,TextOffset
  11112.     CLR.W   WordNumber
  11113.     MOVE.B  QuantizeValue,WordNumber+1
  11114.     BRA Print2DecDigits
  11115.  
  11116. SetMetronome
  11117.     CLR.B   RawKeyCode
  11118.     CMP.W   #188,D0
  11119.     BHS.S   smchan
  11120.     MOVE.W  #3261,TextOffset
  11121.     MOVE.W  #172,LineCurX
  11122.     MOVE.W  #87,LineCurY
  11123.     BSR GetDecByte
  11124.     TST.W   AbortDecFlag
  11125.     BNE ShowMetronome
  11126.     CMP.B   #64,D0
  11127.     BLS.S   smexit
  11128.     MOVEQ.B #64,D0
  11129. smexit  MOVE.B  D0,MetroSpeed
  11130.     BRA.S   ShowMetronome
  11131.  
  11132. smchan  MOVE.W  #3264,TextOffset
  11133.     BSR GetHexByte
  11134.     CMP.W   #4,D0
  11135.     BLS.S   smexit2
  11136.     MOVEQ   #4,D0
  11137. smexit2 MOVE.B  D0,MetroChannel
  11138. ShowMetronome
  11139.     MOVE.W  #3261,TextOffset
  11140.     CLR.W   WordNumber
  11141.     MOVE.B  MetroSpeed,WordNumber+1
  11142.     BSR Print2DecDigits
  11143.     MOVE.W  #3264,TextOffset
  11144.     CLR.W   WordNumber
  11145.     MOVE.B  MetroChannel,WordNumber+1
  11146.     BRA Print2DecDigits
  11147.  
  11148. ToggleMultiMode
  11149.     BSR WaitForButtonUp
  11150.     CLR.B   RawKeyCode
  11151.     EOR.B   #1,MultiFlag
  11152. ShowMultiMode
  11153.     BSR.S   Show_MS
  11154.     CMP.W   #1,CurrScreen
  11155.     BNE Return2
  11156.     CMP.B   #2,EdScreen
  11157.     BNE Return2
  11158.     TST.B   EdEnable
  11159.     BEQ Return2
  11160.     MOVE.W  #3700,D1
  11161.     LEA SingleText(PC),A0
  11162.     TST.B   MultiFlag
  11163.     BEQ.S   smmskip
  11164.     LEA MultiText(PC),A0
  11165. smmskip MOVEQ   #6,D0
  11166.     BRA ShowText3
  11167.  
  11168. SingleText  dc.b 'single'
  11169. MultiText   dc.b ' multi'
  11170.  
  11171. Show_MS CMP.W   #4,CurrScreen
  11172.     BEQ Return2
  11173.     MOVE.B  #' ',D0
  11174.     TST.B   MultiFlag
  11175.     BEQ.S   smsskp1
  11176.     MOVE.B  #'M',D0
  11177. smsskp1 MOVE.B  #' ',D1
  11178.     TST.B   SplitFlag
  11179.     BEQ.S   smsskp2
  11180.     MOVE.B  #'S',D1
  11181. smsskp2 MOVE.B  D0,mstext
  11182.     MOVE.B  D1,mstext+1
  11183.     MOVE.W  #4121,D1
  11184.     MOVEQ   #2,D0
  11185.     LEA mstext(PC),A0
  11186.     BSR ShowText3
  11187.     BRA ShowAutoInsert
  11188.  
  11189. mstext  dc.b '__'
  11190.  
  11191. ;---- Edit Op. 3 ----
  11192.  
  11193. ToggleHalfClip
  11194.     BSR WaitForButtonUp
  11195.     EOR.B   #1,HalfClipFlag
  11196. ShowHalfClip
  11197.     LEA BitplaneData+1838,A1
  11198.     LEA H_BoxData,A2
  11199.     TST.B   HalfClipFlag
  11200.     BEQ.S   ogaoga
  11201.     LEA C_BoxData,A2
  11202. ogaoga  JMP rtdoit
  11203.  
  11204. SetSamplePos
  11205.     MOVE.L  SamplePos(PC),D2
  11206.     CMP.W   #283,D0
  11207.     BLS Return2
  11208.     CMP.W   #295,D0
  11209.     BLS.S   shpoup
  11210.     SUBQ.L  #1,D2
  11211.     BTST    #2,$DFF016
  11212.     BNE.S   shposkip
  11213.     SUB.L   #15,D2
  11214. shposkip
  11215.     BPL.S   shposkip2
  11216.     MOVEQ   #0,D2
  11217. shposkip2
  11218.     MOVE.L  D2,SamplePos
  11219.     BRA.S   ShowPos
  11220. shpoup  ADDQ.L  #1,D2
  11221.     BTST    #2,$DFF016
  11222.     BNE.S   shposkip3
  11223.     ADD.L   #15,D2
  11224. shposkip3
  11225.     MOVEQ   #0,D3
  11226.     MOVE.W  22(A5),D3
  11227.     LSL.L   #1,D3
  11228.     CMP.L   D3,D2
  11229.     BLS.S   shposkip2
  11230.     MOVE.L  D3,SamplePos
  11231. ShowPos CMP.W   #1,CurrScreen
  11232.     BNE Return2
  11233.     TST.B   EdEnable
  11234.     BEQ Return2
  11235.     CMP.B   #3,EdScreen
  11236.     BNE Return2
  11237.     MOVE.W  #2391,TextOffset
  11238.     MOVE.W  SamplePos+2(PC),WordNumber
  11239.     BRA PrintHexWord
  11240.  
  11241. SetModSpeed
  11242.     CMP.W   #243,D0
  11243.     BLS DoMod
  11244.     MOVEQ   #0,D2
  11245.     BTST    #2,$DFF016
  11246.     BEQ.S   semoskp
  11247.     MOVE.B  ModSpeed,D2
  11248.     CMP.W   #283,D0
  11249.     BLS Return2
  11250.     CMP.W   #295,D0
  11251.     BLS.S   semoup
  11252.     SUB.B   #1,D2
  11253.     CMP.B   #127,D2
  11254.     BNE.S   semoskp
  11255.     MOVE.B  #128,D2
  11256.     BRA.S   semoskp
  11257. semoup  ADD.B   #1,D2
  11258.     CMP.B   #128,D2
  11259.     BNE.S   semoskp
  11260.     MOVEQ   #127,D2
  11261. semoskp MOVE.B  D2,ModSpeed
  11262.     BSR Wait_4000
  11263. ShowMod LEA PlusMinusText(PC),A0
  11264.     MOVEQ   #0,D6
  11265.     MOVE.B  ModSpeed,D6
  11266.     BPL.S   shmoskp
  11267.     NEG.B   D6
  11268.     ADDQ.L  #1,A0
  11269. shmoskp MOVEQ   #1,D0
  11270.     MOVE.W  #2831,D1
  11271.     BSR ShowText3
  11272.     MOVE.W  D6,WordNumber
  11273.     BRA Print3DecDigits
  11274.  
  11275. PlusMinusText   dc.b ' -'
  11276.  
  11277. DoMod   BSR WaitForButtonUp
  11278.     BSR StorePtrCol
  11279.     BSR SetWaitPtrCol
  11280.     MOVEQ   #0,D2
  11281.     MOVE.W  SampleInfo(PC),D2
  11282.     BEQ ErrorRestoreCol
  11283.     LSL.W   #1,D2
  11284.     SUBQ.W  #1,D2
  11285.     MOVE.L  si_pointer,D0
  11286.     BEQ ErrorRestoreCol
  11287.     BSR AllocBuffer
  11288.     MOVE.L  D0,A2
  11289.     MOVE.L  D0,A3
  11290.     MOVE.L  A1,A4
  11291.     ADD.L   D2,A3
  11292.     CLR.L   ModOffset
  11293.     CLR.L   ModPos
  11294. dmoloop CMP.L   A3,A2
  11295.     BHS.S   dmoskip
  11296.     MOVE.B  (A1),(A2)+
  11297.     BSR.S   UpdateMod
  11298.     BRA.S   dmoloop
  11299. dmoskip MOVE.L  si_pointer(PC),A1
  11300.     CLR.W   (A1)
  11301.     BSR FreeBuffer
  11302.     BSR RestorePtrCol
  11303.     BRA DisplaySample
  11304.  
  11305. UpdateMod
  11306.     MOVE.B  ModSpeed(PC),D0
  11307.     BEQ.S   upmplus
  11308.     EXT.W   D0
  11309.     EXT.L   D0
  11310.     MOVE.L  ModPos(PC),D1
  11311.     ADD.L   D0,D1
  11312.     MOVE.L  D1,ModPos
  11313.     ASR.L   #8,D1
  11314.     ASR.L   #4,D1
  11315.     MOVE.L  D1,D3
  11316.     AND.W   #$1F,D1
  11317.     LEA VibratoTable,A0
  11318.     MOVEQ   #0,D0
  11319.     MOVE.B  (A0,D1.W),D0
  11320.     LSR.B   #2,D0
  11321.     MOVE.L  ModOffset(PC),D1
  11322.     BTST    #5,D3
  11323.     BEQ.S   upmskip
  11324.     SUB.L   D0,D1
  11325.     BRA.S   upmskp2
  11326. upmskip ADD.L   D0,D1
  11327. upmskp2 ADD.L   #$800,D1
  11328.     MOVE.L  D1,ModOffset
  11329.     ASR.L   #8,D1
  11330.     ASR.L   #3,D1
  11331.     BPL.S   upmskp3
  11332.     MOVEQ   #0,D1
  11333. upmskp3 CMP.L   D2,D1
  11334.     BLO.S   upmskp4
  11335.     MOVE.L  D2,D1
  11336. upmskp4 MOVE.L  A4,A1
  11337.     ADD.L   D1,A1
  11338.     RTS
  11339. upmplus ADDQ.L  #1,A1
  11340.     RTS
  11341.  
  11342. CutBeg  CMP.W   #283,D0
  11343.     BHI FadeDown
  11344.     CMP.W   #259,D0
  11345.     BHI FadeUp
  11346.     BSR WaitForButtonUp
  11347.     BSR StorePtrCol
  11348.     BSR SetWaitPtrCol
  11349.     MOVEQ   #0,D3
  11350.     MOVE.W  SampleInfo(PC),D3
  11351.     BEQ ErrorRestoreCol
  11352.     LSL.W   #1,D3
  11353.     SUBQ.W  #1,D3
  11354.     MOVE.L  si_pointer,D0
  11355.     BEQ ErrorRestoreCol
  11356.     MOVE.L  D0,A1
  11357.     MOVE.L  D0,A2
  11358.     MOVE.L  D0,A3
  11359.     ADD.L   SamplePos(PC),A2
  11360.     ADD.L   D3,A3
  11361. cbeloop CMP.L   A3,A2
  11362.     BHS.S   cbeskip
  11363.     MOVE.B  (A2),D0
  11364.     CLR.B   (A2)+
  11365.     MOVE.B  D0,(A1)+
  11366.     BRA.S   cbeloop
  11367. cbeskip MOVE.L  si_pointer(PC),A2
  11368.     CLR.W   (A2)
  11369.     SUB.L   A2,A1
  11370.     MOVE.L  A1,D0
  11371.     LSR.L   #1,D0
  11372.     ADDQ.L  #1,D0
  11373.     AND.W   #$7FFF,D0
  11374.     MOVE.W  D0,22(A5)
  11375.     BSR ShowSampleInfo
  11376.     BSR RestorePtrCol
  11377.     BRA DisplaySample
  11378.  
  11379. FadeUp  BSR WaitForButtonUp
  11380.     BSR StorePtrCol
  11381.     BSR SetWaitPtrCol
  11382.     MOVEQ   #0,D3
  11383.     MOVE.W  SampleInfo(PC),D3
  11384.     BEQ ErrorRestoreCol
  11385.     MOVEQ   #0,D1
  11386.     MOVE.L  SamplePos(PC),D2
  11387.     BEQ ErrorRestoreCol
  11388.     MOVE.L  si_pointer,D0
  11389.     BEQ ErrorRestoreCol
  11390.     MOVE.L  D0,A0
  11391.     LSR.W   #1,D2
  11392.     BEQ ErrorRestoreCol
  11393.     MOVEQ   #0,D4
  11394. fuloop  MOVE.B  (A0),D0
  11395.     EXT.W   D0
  11396.     MULS    D1,D0
  11397.     DIVS    D2,D0
  11398.     MOVE.B  D0,(A0)+
  11399.     ADDQ.W  #1,D4
  11400.     MOVE.W  D4,D1
  11401.     LSR.W   #1,D1
  11402.     CMP.W   D2,D1
  11403.     BLO.S   fuloop
  11404.     BSR RestorePtrCol
  11405.     BRA DisplaySample
  11406.  
  11407. FadeDown
  11408.     BSR WaitForButtonUp
  11409.     BSR StorePtrCol
  11410.     BSR SetWaitPtrCol
  11411.     MOVEQ   #0,D3
  11412.     MOVE.W  SampleInfo(PC),D3
  11413.     BEQ ErrorRestoreCol
  11414.     LSL.L   #1,D3
  11415.     SUBQ.L  #1,D3 ;Length-1
  11416.     MOVE.L  SamplePos(PC),D2
  11417.     CMP.L   D3,D2
  11418.     BHS ErrorRestoreCol
  11419.     MOVE.L  D3,D4 ; Copy length to D4
  11420.     SUB.L   D2,D3 ; Length-pos
  11421.     MOVE.L  D3,D2 ; Copy offset to D2
  11422.     MOVE.L  si_pointer,D0
  11423.     BEQ ErrorRestoreCol
  11424.     MOVE.L  D0,A0
  11425.     LEA (A0,D4.L),A0 ;Start at end of sample
  11426.     LSR.W   #1,D2
  11427.     BEQ ErrorRestoreCol
  11428.     MOVEQ   #0,D1
  11429.     MOVEQ   #0,D4
  11430. fdloop  MOVE.B  (A0),D0
  11431.     EXT.W   D0
  11432.     MULS    D1,D0
  11433.     DIVS    D2,D0
  11434.     MOVE.B  D0,(A0)
  11435.     SUBQ.L  #1,A0
  11436.     ADDQ.W  #1,D4
  11437.     MOVE.W  D4,D1
  11438.     LSR.W   #1,D1
  11439.     CMP.W   D2,D1
  11440.     BLO.S   fdloop
  11441.     BSR RestorePtrCol
  11442.     BRA DisplaySample
  11443.  
  11444. ChangeVolume
  11445.     MOVE.W  SampleVol(PC),D2
  11446.     CMP.W   #243,D0
  11447.     BLS DoChangeVol
  11448.     CMP.W   #283,D0
  11449.     BLS Return2
  11450.     CMP.W   #295,D0
  11451.     BLS shvoup
  11452.     SUBQ.W  #1,D2
  11453.     BTST    #2,$DFF016
  11454.     BNE.S   shvoskip
  11455.     SUB.W   #9,D2
  11456. shvoskip
  11457.     BPL.S   shvoskip2
  11458.     MOVEQ   #0,D2
  11459. shvoskip2
  11460.     MOVE.W  D2,SampleVol
  11461.     BSR Wait_4000
  11462.     BRA.S   ShowVol
  11463. shvoup  ADDQ.L  #1,D2
  11464.     BTST    #2,$DFF016
  11465.     BNE.S   shvoskip3
  11466.     ADD.W   #9,D2
  11467. shvoskip3
  11468.     CMP.W   #999,D2
  11469.     BLS.S   shvoskip2
  11470.     MOVE.W  #999,SampleVol
  11471.     BSR Wait_4000
  11472. ShowVol MOVE.W  #3711,TextOffset
  11473.     MOVE.W  SampleVol(PC),WordNumber
  11474.     BSR Print3DecDigits
  11475.     LEA PercentText(PC),A0
  11476.     MOVE.W  #1,TextLength
  11477.     BRA ShowText2
  11478.  
  11479. PercentText dc.b '%',0
  11480.  
  11481. DoChangeVol
  11482.     BSR WaitForButtonUp
  11483.     BSR StorePtrCol
  11484.     BSR SetWaitPtrCol
  11485.     MOVEQ   #0,D3
  11486.     MOVE.W  SampleInfo(PC),D3
  11487.     BEQ ErrorRestoreCol
  11488.     LSL.W   #1,D3
  11489.     SUBQ.W  #1,D3
  11490.     MOVE.L  si_pointer,D0
  11491.     BEQ ErrorRestoreCol
  11492.     MOVE.L  D0,A1
  11493.     MOVE.W  SampleVol(PC),D0
  11494. dcvloop MOVE.B  (A1),D1
  11495.     EXT.W   D1
  11496.     MULS    D0,D1
  11497.     DIVS    #100,D1
  11498.     CMP.W   #127,D1
  11499.     BLE.S   dcvskip
  11500.     MOVEQ   #127,D1
  11501. dcvskip CMP.W   #-128,D1
  11502.     BGE.S   dcvskp2
  11503.     MOVEQ   #-128,D1
  11504. dcvskp2 MOVE.B  D1,(A1)+
  11505.     DBRA    D3,dcvloop
  11506.     MOVE.L  si_pointer(PC),A1
  11507.     CLR.W   (A1)
  11508.     BSR RestorePtrCol
  11509.     BRA DisplaySample
  11510.  
  11511. Mix BTST    #2,$DFF016
  11512.     BEQ OldMix
  11513.     BSR WaitForButtonUp
  11514.     BSR StorePtrCol
  11515.     BSR SetWaitPtrCol
  11516.     MOVE.W  #1,GetLineFlag
  11517.     MOVE.W  #4,MixCurPos
  11518. mixlopx BSR DisplayMix
  11519.     BSR GetHexKey
  11520.     TST.B   D0
  11521.     BNE.S   mixnzro
  11522.     CMP.B   #68,MixChar
  11523.     BEQ Mix2
  11524.     CMP.B   #69,MixChar
  11525.     BEQ EndMix
  11526.     BTST    #2,$DFF016
  11527.     BEQ EndMix
  11528. mixpchr LEA MixText(PC),A0
  11529.     LEA FastHexTable+1,A1
  11530.     LSL.W   #1,D1
  11531.     MOVE.W  MixCurPos(PC),D0
  11532.     MOVE.B  (A1,D1.W),(A0,D0.W)
  11533. MixMoveRight
  11534.     MOVE.W  MixCurPos,D0
  11535.     ADDQ.W  #1,D0
  11536.     CMP.W   #6,D0
  11537.     BEQ.S   mmrp1
  11538.     CMP.W   #9,D0
  11539.     BEQ.S   mmrp2
  11540.     CMP.W   #15,D0
  11541.     BHS.S   mmrp3
  11542. mmrok   MOVE.W  D0,MixCurPos
  11543.     BRA mixlopx
  11544. mmrp1   MOVEQ   #7,D0
  11545.     BRA.S   mmrok
  11546. mmrp2   MOVEQ   #13,D0
  11547.     BRA.S   mmrok
  11548. mmrp3   MOVEQ   #14,D0
  11549.     BRA.S   mmrok
  11550.  
  11551. mixnzro CMP.B   #1,D0
  11552.     BEQ.S   MixMoveRight
  11553. MixMoveLeft
  11554.     MOVE.W  MixCurPos,D0
  11555.     SUBQ.W  #1,D0
  11556.     CMP.W   #4,D0
  11557.     BLO.S   mmlp1
  11558.     CMP.W   #6,D0
  11559.     BEQ.S   mmlp2
  11560.     CMP.W   #12,D0
  11561.     BEQ.S   mmlp3
  11562.     BRA.S   mmrok
  11563. mmlp1   MOVEQ   #4,D0
  11564.     BRA.S   mmrok
  11565. mmlp2   MOVEQ   #5,D0
  11566.     BRA.S   mmrok
  11567. mmlp3   MOVEQ   #8,D0
  11568.     BRA.S   mmrok
  11569.  
  11570. DisplayMix
  11571.     MOVE.W  #53,LineCurY
  11572.     MOVE.W  MixCurPos,D0
  11573.     LSL.W   #3,D0
  11574.     ADD.W   #132,D0
  11575.     MOVE.W  D0,LineCurX
  11576.     BSR UpdateLineCurPos
  11577.     LEA MixText(PC),A0
  11578.     MOVE.W  #1936,D1
  11579.     MOVEQ   #22,D0
  11580.     BSR ShowText3
  11581.     BSR Wait_4000
  11582.     BSR Wait_4000
  11583.     BRA Wait_4000
  11584.  
  11585. MixText dc.b 'mix 01+02 to 03       '
  11586. MixChar dc.b 0,0
  11587. MixCurPos dc.w 0
  11588. ToSam       dc.w 0
  11589. FromPtr1    dc.l 0
  11590. FromPtr2    dc.l 0
  11591. ToPtr       dc.l 0
  11592. MixPtr      dc.l 0
  11593. MixLength   dc.l 0
  11594.  
  11595. EndMix  CLR.B   RawKeyCode
  11596.     BSR RestoreMix
  11597.     BRA RestorePtrCol
  11598.  
  11599. RestoreMix
  11600.     CLR.W   GetLineFlag
  11601.     MOVE.W  #270,LineCurY
  11602.     CLR.W   LineCurX
  11603.     BSR UpdateLineCurPos
  11604.     LEA EditOpText3(PC),A0
  11605.     MOVE.W  #1936,D1
  11606.     MOVEQ   #22,D0
  11607.     BRA ShowText3
  11608.  
  11609. Mix2    BSR RestoreMix
  11610.     BSR TurnOffVoices
  11611.     LEA SamplePtrs,A2
  11612.     MOVEQ   #0,D0
  11613.     LEA MixText+4(PC),A0
  11614.     BSR HexToInteger2
  11615.     TST.W   D0
  11616.     BEQ SamOutOfRange
  11617.     CMP.W   #$1F,D0
  11618.     BHI SamOutOfRange
  11619.     LSL.W   #2,D0
  11620.     LEA (A2,D0.W),A3
  11621.     MOVE.L  A3,FromPtr1
  11622.  
  11623.     MOVEQ   #0,D0
  11624.     LEA MixText+7(PC),A0
  11625.     BSR HexToInteger2
  11626.     TST.W   D0
  11627.     BEQ SamOutOfRange
  11628.     CMP.W   #$1F,D0
  11629.     BHI SamOutOfRange
  11630.     LSL.W   #2,D0
  11631.     LEA (A2,D0.W),A3
  11632.     MOVE.L  A3,FromPtr2
  11633.  
  11634.     MOVEQ   #0,D0
  11635.     LEA MixText+13(PC),A0
  11636.     BSR HexToInteger2
  11637.     MOVE.W  D0,ToSam
  11638.     BEQ SamOutOfRange
  11639.     CMP.W   #$1F,D0
  11640.     BHI SamOutOfRange
  11641.     LSL.W   #2,D0
  11642.     LEA (A2,D0.W),A3
  11643.     MOVE.L  A3,ToPtr
  11644.  
  11645.     MOVE.L  FromPtr1,A1
  11646.     MOVE.L  FromPtr2,A2
  11647.     MOVE.L  124(A1),D1
  11648.     MOVE.L  124(A2),D2
  11649.     CMP.L   D1,D2
  11650.     BLO.S   mixnswp
  11651.     EXG D1,D2
  11652. mixnswp TST.L   D1
  11653.     BEQ SamEmptyError ; Both samples had length=0
  11654.     MOVE.L  D1,D0
  11655.     AND.L   #$FFFF,D0
  11656.     MOVE.L  D0,MixLength
  11657.     MOVE.L  #MEMF_CHIP!MEMF_CLEAR,D1
  11658.     MOVE.L  4.W,A6
  11659.     JSR LVOAllocMem(A6)
  11660.     MOVE.L  D0,MixPtr
  11661.     BEQ SamMemError ; No memory for new sample...
  11662.  
  11663.     LEA MixingText(PC),A0
  11664.     BSR ShowStatusText
  11665.     MOVE.L  FromPtr1(PC),A1
  11666.     MOVE.L  124(A1),D1
  11667.     MOVE.L  (A1),A1
  11668.     MOVE.L  FromPtr2(PC),A2
  11669.     MOVE.L  124(A2),D2
  11670.     MOVE.L  (A2),A2
  11671.     MOVE.L  MixPtr(PC),A3
  11672.     MOVE.L  MixLength,D3
  11673.     TST.W   D1
  11674.     BEQ.S   mixnd1
  11675.     SUBQ.W  #1,D1
  11676. mixnd1  TST.W   D2
  11677.     BEQ.S   mixnd2
  11678.     SUBQ.W  #1,D2
  11679. mixnd2  SUBQ.W  #1,D3
  11680.  
  11681. mixlop2 MOVE.B  (A1),D4
  11682.     EXT.W   D4
  11683.     MOVE.B  (A2),D0
  11684.     EXT.W   D0
  11685.     ADD.W   D4,D0
  11686.     TST.B   HalfClipFlag
  11687.     BEQ mixhalf
  11688.     CMP.W   #127,D0
  11689.     BLE.S   mixnbig
  11690.     MOVEQ   #127,D0
  11691. mixnbig CMP.W   #-128,D0
  11692.     BGE mixokok
  11693.     MOVEQ   #-128,D0
  11694.     BRA mixokok
  11695. mixhalf ASR.W   #1,D0
  11696. mixokok MOVE.B  D0,(A3)+
  11697.  
  11698.     TST.W   D1
  11699.     BEQ.S   zerd1
  11700.     ADDQ.L  #1,A1
  11701.     SUBQ.W  #1,D1
  11702.     BNE.S   zerd1
  11703.     SUB.L   A1,A1
  11704.  
  11705. zerd1   TST.W   D2
  11706.     BEQ.S   zerd2
  11707.     ADDQ.L  #1,A2
  11708.     SUBQ.W  #1,D2
  11709.     BNE.S   zerd2
  11710.     SUB.L   A2,A2
  11711.  
  11712. zerd2   DBRA    D3,mixlop2
  11713.     MOVE.W  ToSam(PC),InsNum
  11714.     BSR FreeSample
  11715.     MOVE.L  ToPtr(PC),A0
  11716.     MOVE.L  MixPtr(PC),A1
  11717.     CLR.W   (A1)
  11718.     MOVE.L  A1,(A0)
  11719.     MOVE.L  MixLength(PC),124(A0)
  11720.     MOVE.L  SongDataPtr(PC),A0
  11721.     MOVE.W  ToSam(PC),D0
  11722.     SUBQ.W  #1,D0
  11723.     MULU    #30,D0
  11724.     LEA 20(A0,D0.W),A0
  11725.     MOVE.L  MixLength(PC),D0
  11726.     LSR.W   #1,D0
  11727.     MOVE.W  D0,22(A0)
  11728.     MOVE.W  #$0040,24(A0)
  11729.     MOVE.W  #$0000,26(A0)
  11730.     MOVE.W  #$0001,28(A0)
  11731.     BSR RestorePtrCol
  11732.     BSR ShowAllRight
  11733.     BSR ShowSampleInfo
  11734.     BRA DisplaySample
  11735.  
  11736. SamOutOfRange
  11737.     LEA mixerrtext1(PC),A0
  11738.     BSR ShowStatusText
  11739.     BRA ErrorRestoreCol
  11740. SamEmptyError
  11741.     LEA mixerrtext2(PC),A0
  11742.     BSR ShowStatusText
  11743.     BRA ErrorRestoreCol
  11744. SamMemError
  11745.     LEA mixerrtext3(PC),A0
  11746.     BSR ShowStatusText
  11747.     BRA ErrorRestoreCol
  11748. OutOfMemErr
  11749.     LEA mixerrtext3(PC),A0
  11750.     BSR ShowStatusText
  11751.     BSR SetErrorPtrCol
  11752.     MOVEQ   #0,D0
  11753.     RTS
  11754.  
  11755. mixerrtext1 dc.b 'not range 01-1F !',0
  11756. mixerrtext2 dc.b 'empty samples !!!',0
  11757. mixerrtext3 dc.b 'out of memory !!!',0
  11758. mixingtext  dc.b 'mixing samples...',0
  11759.  
  11760. OldMix  MOVE.L  SamplePos(PC),FlangePos
  11761. DoMix   BSR StorePtrCol
  11762.     BSR SetWaitPtrCol
  11763.     MOVEQ   #0,D2
  11764.     MOVE.W  SampleInfo(PC),D2 ; 22(A0)
  11765.     BEQ Return2
  11766.     LSL.W   #1,D2
  11767.     MOVE.L  si_pointer(PC),D0
  11768.     BEQ ErrorRestoreCol
  11769.     BSR AllocBuffer
  11770.     MOVE.L  D0,A2
  11771.     MOVE.L  D0,A3
  11772.     MOVE.L  A1,A4
  11773.     ADD.L   D2,A3
  11774.     ADD.L   FlangePos(PC),A2
  11775.     CLR.L   ModOffset
  11776.     CLR.L   ModPos
  11777.     MOVEQ   #-1,D7
  11778. mixloop ADDQ.L  #1,D7
  11779.     CMP.L   A3,A2
  11780.     BHS mixskip
  11781.     MOVE.L  MarkStartOfs(PC),D0
  11782.     BMI.S   omxget
  11783.     MOVE.L  MarkEndOfs(PC),D1
  11784.     CMP.L   D0,D1
  11785.     BEQ.S   omxget
  11786.     CMP.L   D0,D7
  11787.     BLO.S   omxok2
  11788.     CMP.L   D1,D7
  11789.     BHI.S   omxok2
  11790. omxget  MOVE.B  (A2),D0
  11791.     EXT.W   D0
  11792.     MOVE.B  (A1),D1
  11793.     EXT.W   D1
  11794.     ADD.W   D1,D0
  11795.     TST.B   HalfClipFlag
  11796.     BEQ.S   omxhalf
  11797.     CMP.W   #127,D0
  11798.     BLE.S   omxnbig
  11799.     MOVEQ   #127,D0
  11800. omxnbig CMP.W   #-128,D0
  11801.     BGE.S   omxokok
  11802.     MOVEQ   #-128,D0
  11803.     BRA.S   omxokok
  11804. omxhalf ASR.W   #1,D0
  11805. omxokok MOVE.B  D0,(A2)+
  11806.     BSR UpdateMod
  11807.     BRA.S   mixloop
  11808. omxok2  ADDQ.L  #1,A2
  11809.     BSR UpdateMod
  11810.     BRA.S   mixloop
  11811.  
  11812. mixskip MOVE.L  si_pointer(PC),A1
  11813.     CLR.W   (A1)
  11814.     BSR FreeBuffer
  11815.     BSR RestorePtrCol
  11816.     BSR WaitForButtonUp
  11817.     TST.W   DispOrRedraw
  11818.     BEQ DisplaySample
  11819.     CLR.W   DispOrRedraw
  11820.     BRA RedrawSample
  11821.  
  11822. DispOrRedraw    dc.w 0
  11823.  
  11824. AllocBuffer
  11825.     MOVE.L  D0,D7
  11826.     MOVE.L  D2,D0
  11827.     MOVE.L  D2,BufMemSize
  11828.     MOVE.L  #MEMF_PUBLIC!MEMF_CLEAR,D1
  11829.     MOVE.L  4.W,A6
  11830.     JSR LVOAllocMem(A6)
  11831.     MOVE.L  D0,BufMemPtr
  11832.     BEQ OutOfMemErr
  11833.     MOVE.L  D7,A0
  11834.     MOVE.L  D0,A1
  11835.     MOVE.L  BufMemSize(PC),D0
  11836.     SUBQ.L  #1,D0
  11837. albloop MOVE.B  (A0)+,(A1)+
  11838.     DBRA    D0,albloop
  11839.     MOVE.L  BufMemPtr(PC),A1
  11840.     MOVE.L  D7,D0
  11841.     RTS
  11842.  
  11843. FreeBuffer
  11844.     MOVE.L  BufMemPtr(PC),D0
  11845.     BEQ Return2
  11846.     MOVE.L  D0,A1
  11847.     MOVE.L  BufMemSize(PC),D0
  11848.     MOVE.L  4.W,A6
  11849.     JSR LVOFreeMem(A6)
  11850.     CLR.L   BufMemPtr
  11851.     RTS
  11852.  
  11853. Echo    MOVE.L  SamplePos(PC),FlangePos
  11854.     BSR WaitForButtonUp
  11855.     BSR StorePtrCol
  11856.     BSR SetWaitPtrCol
  11857.     MOVEQ   #0,D2
  11858.     MOVE.W  SampleInfo(PC),D2 ; 22(A0)
  11859.     BEQ ErrorRestoreCol
  11860.     LSL.W   #1,D2
  11861.     MOVE.L  si_pointer(PC),D0
  11862.     BEQ ErrorRestoreCol
  11863.     MOVE.L  D0,A1
  11864.     MOVE.L  D0,A2
  11865.     MOVE.L  D0,A3
  11866.     MOVE.L  D0,A4
  11867.     ADD.L   D2,A3
  11868.     ADD.L   FlangePos(PC),A2
  11869.     CLR.L   ModOffset
  11870.     CLR.L   ModPos
  11871. flaloop CMP.L   A3,A2
  11872.     BHS flaskip
  11873.     MOVE.B  (A2),D0
  11874.     EXT.W   D0
  11875.     MOVE.B  (A1),D1
  11876.     EXT.W   D1
  11877.     ADD.W   D1,D0
  11878.     ASR.W   #1,D0
  11879.     MOVE.B  D0,(A2)+
  11880.     BSR UpdateMod
  11881.     BRA flaloop
  11882. flaskip MOVE.L  si_pointer(PC),A1
  11883.     CLR.W   (A1)
  11884.     BSR RestorePtrCol
  11885.     TST.B   HalfClipFlag
  11886.     BEQ DisplaySample
  11887.     MOVE.W  SampleVol,-(SP)
  11888.     MOVE.W  #200,SampleVol
  11889.     BSR DoChangeVol
  11890.     MOVE.W  (SP)+,SampleVol
  11891.     BRA DisplaySample
  11892.  
  11893. Filter2 MOVE.W  #1,DispOrRedraw
  11894. Filter  CLR.B   RawKeyCode
  11895.     LEA FilteringText,A0
  11896.     BSR ShowStatusText
  11897.     MOVE.L  #1,FlangePos
  11898.     MOVE.B  ModSpeed(PC),-(SP)
  11899.     MOVE.B  HalfClipFlag,-(SP)
  11900.     CLR.B   ModSpeed
  11901.     CLR.B   HalfClipFlag
  11902.     BSR DoMix
  11903.     MOVE.B  (SP)+,HalfClipFlag
  11904.     MOVE.B  (SP)+,ModSpeed
  11905.     BRA ShowAllRight
  11906.  
  11907. FilteringText   dc.b 'filtering',0
  11908.  
  11909. Boost   BSR.S   Boost3
  11910.     BRA DisplaySample
  11911. Boost2  BSR.S   Boost3
  11912.     BRA RedrawSample
  11913. Boost3  CLR.B   RawKeyCode
  11914.     BSR WaitForButtonUp
  11915.     BSR StorePtrCol
  11916.     BSR SetWaitPtrCol
  11917.     LEA BoostingText,A0
  11918.     BSR ShowStatusText
  11919.     MOVEQ   #0,D3
  11920.     MOVE.W  SampleInfo(PC),D3
  11921.     BEQ booend
  11922.     LSL.W   #1,D3
  11923.     SUBQ.W  #1,D3
  11924.     MOVE.L  si_pointer(PC),D0
  11925.     BEQ booend
  11926.     MOVE.L  D0,A1
  11927.     MOVE.L  MarkStartOfs(PC),D0
  11928.     BMI.S   booskp1
  11929.     MOVE.L  MarkEndOfs(PC),D1
  11930.     SUB.L   D0,D1
  11931.     BEQ.S   booskp1
  11932.     MOVE.L  D1,D3
  11933.     MOVE.L  SamStart(PC),A1
  11934.     ADD.L   D0,A1
  11935. booskp1 MOVEQ   #0,D0
  11936. booloop MOVE.B  (A1),D1
  11937.     EXT.W   D1
  11938.     MOVE.W  D1,D2
  11939.     SUB.W   D0,D1
  11940.     MOVE.W  D2,D0
  11941.     TST.W   D1
  11942.     BMI booneg
  11943.     ASR.W   #2,D1
  11944.     ADD.W   D1,D2
  11945.     BRA booskip
  11946. booneg  NEG.W   D1
  11947.     ASR.W   #2,D1
  11948.     SUB.W   D1,D2
  11949. booskip CMP.W   #127,D2
  11950.     BLE booskp2
  11951.     MOVEQ   #127,D2
  11952. booskp2 CMP.W   #-128,D2
  11953.     BGE booskp3
  11954.     MOVEQ   #-128,D2
  11955. booskp3 MOVE.B  D2,(A1)+
  11956.     DBRA    D3,booloop
  11957.     MOVE.L  si_pointer(PC),A1
  11958.     CLR.W   (A1)
  11959. booend  BSR ShowAllRight
  11960.     BRA RestorePtrCol
  11961.    
  11962. BoostingText    dc.b 'boosting',0,0
  11963.  
  11964. XFade   BSR WaitForButtonUp
  11965.     BSR StorePtrCol
  11966.     BSR SetWaitPtrCol
  11967.     MOVEQ   #0,D2
  11968.     MOVE.W  SampleInfo(PC),D2 ; 22(A0)
  11969.     BEQ ErrorRestoreCol
  11970.     ADD.W   D2,D2
  11971.     MOVE.L  si_pointer(PC),D0
  11972.     BEQ ErrorRestoreCol
  11973.     MOVE.L  D0,A1
  11974.     MOVE.L  D0,A2
  11975.     ADD.L   D2,A2
  11976. xfaloop MOVE.B  (A1),D0
  11977.     EXT.W   D0
  11978.     MOVE.B  -(A2),D1
  11979.     EXT.W   D1
  11980.     ADD.W   D1,D0
  11981.     TST.B   HalfClipFlag
  11982.     BEQ xfahalf
  11983.     CMP.W   #127,D0
  11984.     BLE xfanbig
  11985.     MOVEQ   #127,D0
  11986. xfanbig CMP.W   #-128,D0
  11987.     BGE xfaokok
  11988.     MOVEQ   #-128,D0
  11989.     BRA xfaokok
  11990. xfahalf ASR.W   #1,D0
  11991. xfaokok MOVE.B  D0,(A1)+
  11992.     MOVE.B  D0,(A2)
  11993.     CMP.L   A2,A1
  11994.     BLO.S   xfaloop
  11995.     MOVE.L  si_pointer(PC),A1
  11996.     CLR.W   (A1)
  11997.     BSR RestorePtrCol
  11998.     BRA DisplaySample
  11999.  
  12000. Backwards
  12001.     BSR WaitForButtonUp
  12002.     BSR StorePtrCol
  12003.     BSR SetWaitPtrCol
  12004.     MOVEQ   #0,D2
  12005.     MOVE.W  22(A5),D2
  12006.     BEQ ErrorRestoreCol
  12007.     MOVE.L  si_pointer(PC),D0
  12008.     BEQ ErrorRestoreCol
  12009.     MOVE.L  D0,A1
  12010.     MOVE.L  D0,A2
  12011.     ADD.L   D2,D2
  12012.     ADD.L   D2,A2
  12013.     MOVE.L  MarkStartOfs(PC),D0
  12014.     BMI.S   bacloop
  12015.     MOVE.L  MarkEndOfs(PC),D1
  12016.     SUB.L   D0,D1
  12017.     BEQ.S   bacloop
  12018.     MOVE.L  SamStart(PC),A1
  12019.     ADD.L   D0,A1
  12020.     MOVE.L  A1,A2
  12021.     ADD.L   D1,A2
  12022. bacloop MOVE.B  (A1),D0
  12023.     MOVE.B  -(A2),(A1)+
  12024.     MOVE.B  D0,(A2)
  12025.     CMP.L   A2,A1
  12026.     BLO.S   bacloop
  12027.     MOVE.L  si_pointer(PC),A1
  12028.     CLR.W   (A1)
  12029.     BSR RestorePtrCol
  12030.     BRA DisplaySample
  12031.  
  12032. Upsample
  12033.     BSR WaitForButtonUp
  12034.     LEA UpsampleText,A0
  12035.     BSR AreYouSure
  12036.     BNE Return2
  12037.     BSR TurnOffVoices
  12038.     BSR StorePtrCol
  12039.     BSR SetWaitPtrCol
  12040.     MOVE.W  InsNum(PC),D0
  12041.     LSL.W   #2,D0
  12042.     LEA SamplePtrs(PC),A0
  12043.     LEA (A0,D0.W),A0
  12044.     MOVE.L  124(A0),D3
  12045.     CMP.L   #2,D3
  12046.     BLS ErrorRestoreCol
  12047.     MOVE.L  (A0),D0
  12048.     BEQ ErrorRestoreCol
  12049.     MOVE.L  D0,A2
  12050.     MOVE.L  D0,A4
  12051.     MOVE.L  D3,D4
  12052.     LSR.L   #1,D3
  12053.     BCLR    #0,D3
  12054.     MOVE.L  D3,D0
  12055.     MOVEQ   #MEMF_CHIP,D1
  12056.     MOVE.L  4.W,A6
  12057.     JSR LVOAllocMem(A6)
  12058.     TST.L   D0
  12059.     BEQ.S   upserro
  12060.     MOVE.L  D0,A3
  12061.     MOVE.L  D0,D2
  12062.     MOVE.L  D3,D5
  12063.     SUBQ.L  #1,D3
  12064. upsloop MOVE.B  (A2)+,(A3)+
  12065.     ADDQ.L  #1,A2
  12066.     DBRA    D3,upsloop
  12067.     MOVE.L  A4,A1
  12068.     MOVE.L  D4,D0
  12069.     MOVE.L  4.W,A6
  12070.     JSR LVOFreeMem(A6)
  12071.     MOVE.W  InsNum(PC),D0
  12072.     LSL.W   #2,D0
  12073.     LEA SamplePtrs(PC),A0
  12074.     LEA (A0,D0.W),A0
  12075.     MOVE.L  D2,(A0)
  12076.     MOVE.L  D5,124(A0)
  12077.     MOVE.L  D2,A0
  12078.     CLR.W   (A0)
  12079.     MOVE.W  22(A5),D0
  12080.     LSR.W   #1,D0
  12081.     MOVE.W  D0,22(A5)
  12082.     MOVE.W  26(A5),D0
  12083.     LSR.W   #1,D0
  12084.     MOVE.W  D0,26(A5)
  12085.     MOVE.W  28(A5),D0
  12086.     LSR.W   #1,D0
  12087.     BNE upsskip2
  12088.     MOVEQ   #1,D0
  12089. upsskip2
  12090.     MOVE.W  D0,28(A5)
  12091.     BSR ShowSampleInfo
  12092.     BSR WaitForButtonUp
  12093.     BSR RestorePtrCol
  12094.     BRA RedrawSample
  12095.  
  12096. upserro BSR RestorePtrCol
  12097.     BRA OutOfMemErr
  12098.  
  12099. DownSample
  12100.     BSR WaitForButtonUp
  12101.     TST.W   InsNum
  12102.     BEQ NotSampleNull
  12103.     LEA DownSampleText,A0
  12104.     BSR AreYouSure
  12105.     BNE Return2
  12106.     BSR TurnOffVoices
  12107.     BSR StorePtrCol
  12108.     BSR SetWaitPtrCol
  12109.     MOVE.L  si_pointer(PC),D0
  12110.     BEQ ErrorRestoreCol
  12111.     MOVEQ   #0,D0
  12112.     MOVE.W  SampleInfo(PC),D0
  12113.     BEQ ErrorRestoreCol
  12114.     LSL.L   #1,D0
  12115.     CMP.L   #$FFFE,D0
  12116.     BHI ErrorRestoreCol
  12117.     LSL.L   #1,D0
  12118.     CMP.L   #$FFFE,D0
  12119.     BLS dnsskip
  12120.     MOVE.L  #$FFFE,D0
  12121. dnsskip MOVE.L  D0,BufMemSize
  12122.     MOVEQ   #MEMF_CHIP,D1
  12123.     MOVE.L  4.W,A6
  12124.     JSR LVOAllocMem(A6)
  12125.     MOVE.L  D0,BufMemPtr
  12126.     BEQ SamMemError
  12127.     MOVE.L  si_pointer(PC),A1
  12128.     MOVE.L  D0,A2
  12129.     MOVE.L  BufMemSize,D3
  12130.     LSR.L   #1,D3
  12131.     SUBQ.L  #1,D3
  12132. dnsloop MOVE.B  (A1)+,D0
  12133.     MOVE.B  D0,(A2)+
  12134.     MOVE.B  D0,(A2)+
  12135.     DBRA    D3,dnsloop
  12136.     BSR FreeSample
  12137.     LEA SamplePtrs,A0
  12138.     MOVE.W  InsNum(PC),D0
  12139.     LSL.W   #2,D0
  12140.     MOVE.L  BufMemPtr,(A0,D0.W)
  12141.     MOVE.L  BufMemSize,124(A0,D0.W)
  12142.     MOVE.W  22(A5),D0
  12143.     LSL.W   #1,D0
  12144.     CMP.W   #$7FFF,D0
  12145.     BLS dnsok1
  12146.     MOVE.W  #$7FFF,D0
  12147. dnsok1  MOVE.W  D0,22(A5)
  12148.     MOVE.W  26(A5),D0
  12149.     LSL.W   #1,D0
  12150.     CMP.W   #$7FFF,D0
  12151.     BLS dnsok2
  12152.     MOVE.W  #$7FFF,D0
  12153. dnsok2  MOVE.W  D0,26(A5)
  12154.     MOVE.W  28(A5),D0
  12155.     CMP.W   #1,D0
  12156.     BEQ dnsok3
  12157.     LSL.W   #1,D0
  12158.     CMP.W   #$7FFF,D0
  12159.     BLS dnsok3
  12160.     MOVE.W  #$7FFF,D0
  12161. dnsok3  MOVE.W  D0,28(A5)
  12162.     BSR ShowSampleInfo
  12163.     BSR WaitForButtonUp
  12164.     BSR RestorePtrCol
  12165.     BRA RedrawSample
  12166.  
  12167. SamplePos   dc.l    0
  12168. SampleVol   dc.w    100
  12169. FlangePos   dc.l    0
  12170. ModSpeed    dc.b    0
  12171. HalfClipFlag    dc.b    0
  12172. ModPos      dc.l    0
  12173. ModOffset   dc.l    0
  12174. BufMemPtr   dc.l    0
  12175. BufMemSize  dc.l    0
  12176.  
  12177. ;---- Save Song ----
  12178.  
  12179. SaveSong
  12180.     BSR StopIt
  12181.     CLR.B   RawKeyCode
  12182.     MOVE.L  SongDataPtr(PC),A0
  12183.     LEA SampleLengthAdd(PC),A1
  12184.     MOVEQ   #0,D0
  12185.     MOVEQ   #2,D1
  12186. sadloop MOVE.W  (A1,D1.W),D2
  12187.     ADD.W   D2,42(A0,D0.W)
  12188.     ADD.W   #30,D0
  12189.     ADDQ.W  #2,D1
  12190.     CMP.W   #62,D1
  12191.     BNE sadloop
  12192.  
  12193.     LEA sd_pattpos(A0),A0
  12194.     MOVEQ   #0,D0
  12195.     MOVEQ   #0,D1
  12196.     MOVEQ   #0,D2
  12197.     CLR.W   HighPattNum
  12198. ssloop  MOVE.B  0(A0,D0.W),D1
  12199.     ADDQ.W  #1,D0
  12200.     CMP.W   #128,D0
  12201.     BHI DoSaveSong
  12202.     MOVE.W  HighPattNum(PC),D2
  12203.     CMP.W   D2,D1
  12204.     BLS ssloop
  12205.     MOVE.W  D1,HighPattNum
  12206.     BRA ssloop
  12207.  
  12208. DoSaveSong
  12209.     LEA SongsPath2,A0
  12210.     JSR CopyPath
  12211.     MOVE.L  SongDataPtr(PC),A0
  12212.     MOVEQ   #19,D0
  12213. dssloop MOVE.B  (A0)+,(A1)+
  12214.     DBRA    D0,dssloop
  12215.     MOVE.L  #FileName,FileNamePtr
  12216.     MOVE.L  SongDataPtr(PC),DiskDataPtr
  12217.     MOVE.L  #1084,DiskDataLength
  12218.     MOVEQ   #0,D0
  12219.     MOVE.W  HighPattNum,D0
  12220.     ADDQ.L  #1,D0
  12221.     LSL.L   #8,D0
  12222.     LSL.L   #2,D0
  12223.     ADD.L   D0,DiskDataLength
  12224.     MOVE.B  PackMode,D0
  12225.     BTST    #0,D0
  12226.     BEQ dssnocr
  12227.     LEA CrunchingText(PC),A0
  12228.     BSR ShowStatusText
  12229.     BSR Cruncher
  12230. dssnocr BSR DoSaveData
  12231.     MOVE.B  PackMode,D0
  12232.     BTST    #0,D0
  12233.     BEQ dssnoc2
  12234.     LEA DecrunchingText(PC),A0
  12235.     BSR ShowStatusText
  12236.     BSR Decruncher
  12237. dssnoc2 MOVE.L  SongDataPtr(PC),A0
  12238.     LEA SampleLengthAdd(PC),A1
  12239.     MOVEQ   #0,D0
  12240.     MOVEQ   #2,D1
  12241. ssuloop MOVE.W  (A1,D1.W),D2
  12242.     SUB.W   D2,42(A0,D0.W)
  12243.     ADD.W   #30,D0
  12244.     ADD.W   #2,D1
  12245.     CMP.W   #62,D1
  12246.     BNE ssuloop
  12247.     BSR ShowAllRight
  12248.     BRA SetNormalPtrCol
  12249.  
  12250. Cruncher
  12251.     BSR SetNormalPtrCol
  12252.     MOVE.L  SongDataPtr(PC),A0
  12253.     MOVE.L  A0,A1
  12254.     LEA 12(A1),A1
  12255.     MOVE.L  A1,SongPlus12Ptr
  12256.     MOVE.L  A0,A1
  12257.     ADD.L   #70716,A1   ; hoeh...
  12258.     MOVE.L  A1,SongPlus70kPtr
  12259.     MOVE.L  A0,A1
  12260.     ADD.L   #70716,A1
  12261.     SUB.L   DiskDataLength(PC),A1
  12262.     MOVE.L  A1,EndOfSongPtr
  12263.     MOVE.L  DiskDataLength(PC),RealSongLength
  12264.     MOVE.L  SongDataPtr(PC),A0
  12265.     ADD.L   DiskDataLength(PC),A0
  12266.     MOVE.L  SongDataPtr(PC),A1
  12267.     ADD.L   #70716,A1
  12268.     MOVE.L  DiskDataLength(PC),D0
  12269. cloop   MOVE.B  -(A0),-(A1)
  12270.     SUBQ.L  #1,D0
  12271.     BNE cloop
  12272.     BSR DoCrunch
  12273.     SUB.L   SongPlus12Ptr(PC),A2
  12274.     MOVE.L  A2,D0
  12275.     MOVE.L  D0,CrunchedSongLength
  12276.     MOVE.L  D0,D1
  12277.     ADD.L   SongPlus12Ptr(PC),D1
  12278.     MOVE.L  D1,DontKnowWhat
  12279.     MOVE.L  SongDataPtr(PC),A0
  12280.     MOVE.L  #'PACK',(A0)
  12281.     MOVE.L  CrunchedSongLength,4(A0)
  12282.     MOVE.L  RealSongLength(PC),8(A0)
  12283.     MOVE.L  SongDataPtr(PC),DiskDataPtr
  12284.     MOVE.L  CrunchedSongLength(PC),D0
  12285.     ADD.L   #12,D0
  12286.     MOVE.L  D0,DiskDataLength
  12287.     RTS
  12288.  
  12289. EndOfSongPtr        dc.l    0
  12290. SongPlus70kPtr      dc.l    0
  12291. RealSongLength      dc.l    0
  12292. SongPlus12Ptr       dc.l    0
  12293. DontKnowWhat        dc.l    0
  12294. CrunchedSongLength  dc.l    0
  12295.  
  12296. DoCrunch
  12297.     MOVE.L  EndOfSongPtr(PC),A0
  12298.     MOVE.L  SongPlus70kPtr(PC),A1
  12299.     MOVE.L  SongPlus12Ptr(PC),A2
  12300.     MOVEQ   #1,D2
  12301.     CLR.W   D1
  12302. dcloop  BSR DoCrunch2
  12303.     TST.B   D0
  12304.     BEQ dcskip
  12305.     ADDQ.W  #1,D1
  12306.     CMP.W   #$0108,D1
  12307.     BNE dcskip
  12308.     BSR DoCrunch6
  12309. dcskip  CMP.L   A0,A1
  12310.     BGT dcloop
  12311.     BSR DoCrunch6
  12312.     BRA DoCrunch8
  12313.  
  12314. DoCrunch2
  12315.     MOVE.L  A0,A3
  12316.     LEA 127(A3),A3
  12317.     CMP.L   A1,A3
  12318.     BLE dc2skip
  12319.     MOVE.L  A1,A3
  12320. dc2skip MOVEQ   #1,D5
  12321.     MOVE.L  A0,A5
  12322.     ADDQ.L  #1,A5
  12323. dc2_1   MOVE.B  (A0),D3
  12324.     MOVE.B  1(A0),D4
  12325.     MOVE.W  D3,$DFF1A2
  12326. dc2loop CMP.B   (A5)+,D3
  12327.     BNE dc2skip2
  12328.     CMP.B   (A5),D4
  12329.     BEQ DoCrunch3
  12330. dc2skip2
  12331.     CMP.L   A5,A3
  12332.     BGT dc2loop
  12333.     BRA dc4_3
  12334.  
  12335. DoCrunch3
  12336.     SUBQ.L  #1,A5
  12337.     MOVE.L  A0,A4
  12338. dc3loop MOVE.B  (A4)+,D3
  12339.     CMP.B   (A5)+,D3
  12340.     BNE dc3skip
  12341.     CMP.L   A5,A3
  12342.     BGT dc3loop
  12343. dc3skip MOVE.L  A4,D3
  12344.     SUB.L   A0,D3
  12345.     SUBQ.L  #1,D3
  12346.     CMP.L   D3,D5
  12347.     BGE dc4_2
  12348.     MOVE.L  A5,D4
  12349.     SUB.L   A0,D4
  12350.     SUB.L   D3,D4
  12351.     SUBQ.L  #1,D4
  12352.     CMP.L   #4,D3
  12353.     BLE DoCrunch4
  12354.     MOVEQ   #6,D6
  12355.     CMP.L   #$00000101,D3
  12356.     BLT dc3skip2
  12357.     MOVE.W  #$0100,D3
  12358. dc3skip2
  12359.     BRA dc4_1
  12360.  
  12361. DoCrunch4
  12362.     MOVE.W  D3,D6
  12363.     SUBQ.W  #2,D6
  12364.     LSL.W   #1,D6
  12365. dc4_1   LEA CrunchData3(PC),A6
  12366.     CMP.W   0(A6,D6.W),D4
  12367.     BGE dc4_2
  12368.     MOVE.L  D3,D5
  12369.     MOVE.L  D4,CrunchData1
  12370.     MOVE.B  D6,CrunchData2
  12371. dc4_2   CMP.L   A5,A3
  12372.     BGT dc2_1
  12373. dc4_3   CMP.L   #1,D5
  12374.     BEQ DoCrunch5
  12375.     BSR DoCrunch6
  12376.     MOVE.B  CrunchData2(PC),D6
  12377.     MOVE.L  CrunchData1(PC),D3
  12378.     MOVE.W  8(A6,D6.W),D0
  12379.     BSR DoCrunch7
  12380.     MOVE.W  $0010(A6,D6.W),D0
  12381.     BEQ dc4skip
  12382.     MOVE.L  D5,D3
  12383.     SUBQ.W  #1,D3
  12384.     BSR DoCrunch7
  12385. dc4skip MOVE.W  $0018(A6,D6.W),D0
  12386.     MOVE.W  $0020(A6,D6.W),D3
  12387.     BSR DoCrunch7
  12388.     ADDQ.W  #1,$0028(A6,D6.W)
  12389.     ADD.L   D5,A0
  12390.     CLR.B   D0
  12391.     RTS
  12392.  
  12393. DoCrunch5
  12394.     MOVE.B  (A0)+,D3
  12395.     MOVEQ   #8,D0
  12396.     BSR DoCrunch7
  12397.     MOVEQ   #1,D0
  12398.     RTS
  12399.  
  12400. CrunchData1 dc.l    0
  12401. CrunchData2 dc.b    0,0
  12402. CrunchData3 dc.w    $0100,$0200,$0400,$1000,8,9,10,8
  12403.         dc.w    0,0,0,8,2,3,3,3,1,4,5,6,0,0,0,0
  12404. CrunchData4 dc.w    0
  12405. CrunchData5 dc.w    0
  12406.  
  12407. DoCrunch6
  12408.     TST.W   D1
  12409.     BEQ Return2
  12410.     MOVE.W  D1,D3
  12411.     CLR.W   D1
  12412.     CMP.W   #9,D3
  12413.     BGE dc6_2
  12414.     ADDQ.W  #1,CrunchData4
  12415.     SUBQ.W  #1,D3
  12416.     MOVEQ   #5,D0
  12417.     BRA DoCrunch7
  12418.  
  12419. dc6_2   ADDQ.W  #1,CrunchData5
  12420.     SUB.W   #9,D3
  12421.     OR.W    #$0700,D3
  12422.     MOVEQ   #11,D0
  12423. DoCrunch7
  12424.     SUBQ.W  #1,D0
  12425. dc7loop LSR.L   #1,D3
  12426.     ROXL.L  #1,D2
  12427.     BCS dc8_2
  12428.     DBRA    D0,dc7loop
  12429.     RTS
  12430.  
  12431. DoCrunch8
  12432.     CLR.W   D0
  12433. dc8_2   MOVE.L  D2,(A2)+
  12434.     MOVEQ   #1,D2
  12435.     DBRA    D0,dc7loop
  12436.     RTS
  12437.  
  12438.  
  12439. Decruncher
  12440.     MOVE.L  SongDataPtr(PC),A0
  12441.     LEA 12(A0),A0
  12442.     MOVE.L  EndOfSongPtr(PC),A1
  12443.     MOVE.L  CrunchedSongLength(PC),D0
  12444.     MOVE.L  RealSongLength(PC),D1
  12445.     BSR DoDecrunch
  12446.     MOVE.L  EndOfSongPtr(PC),A0
  12447.     MOVE.L  SongDataPtr(PC),A1
  12448.     MOVE.L  RealSongLength(PC),D0
  12449. ddcloop MOVE.B  (A0)+,(A1)+
  12450.     SUBQ.L  #1,D0
  12451.     BNE ddcloop
  12452.     MOVE.L  SongDataPtr(PC),A0
  12453.     ADD.L   #$0001143C,A0
  12454.     MOVE.L  SongDataPtr(PC),A1
  12455.     ADD.L   RealSongLength(PC),A1
  12456.     SUB.L   A1,A0
  12457.     MOVE.L  A0,D0
  12458. ddcloop2
  12459.     CLR.B   (A1)+
  12460.     SUBQ.L  #1,D0
  12461.     BNE ddcloop2
  12462.     RTS
  12463.  
  12464. DoDecrunch
  12465.     ADD.L   D0,A0
  12466.     MOVE.L  D1,A2
  12467.     ADD.L   A1,A2
  12468.     MOVE.L  -(A0),D0
  12469. dec_1   LSR.L   #1,D0
  12470.     BNE.S   decskip
  12471.     BSR.S   dec5
  12472. decskip BCS.S   dec3
  12473.     MOVEQ   #8,D1
  12474.     MOVEQ   #1,D3
  12475.     LSR.L   #1,D0
  12476.     BNE.S   decskip2
  12477.     BSR.S   dec5
  12478. decskip2
  12479.     BCS.S   dec4_1
  12480.     MOVEQ   #3,D1
  12481.     CLR.W   D4
  12482. dec_2   BSR.S   dec6
  12483.     MOVE.W  D2,D3
  12484.     ADD.W   D4,D3
  12485. decloop1
  12486.     MOVEQ   #7,D1
  12487. decloop2
  12488.     LSR.L   #1,D0
  12489.     BNE.S   decskip3
  12490.     BSR.S   dec5
  12491. decskip3
  12492.     ROXL.L  #1,D2
  12493.     DBRA    D1,decloop2
  12494.     MOVE.B  D2,-(A2)
  12495.     DBRA    D3,decloop1
  12496.     BRA.S   dec4_3
  12497.  
  12498. dec2    MOVEQ   #8,D1
  12499.     MOVEQ   #8,D4
  12500.     BRA.S   dec_2
  12501.  
  12502. dec3    MOVEQ   #2,D1
  12503.     BSR.S   dec6
  12504.     CMP.B   #2,D2
  12505.     BLT.S   dec4
  12506.     CMP.B   #3,D2
  12507.     BEQ.S   dec2
  12508.     MOVEQ   #8,D1
  12509.     BSR.S   dec6
  12510.     MOVE.W  D2,D3
  12511.     MOVE.W  #8,D1
  12512.     BRA.S   dec4_1
  12513.  
  12514. dec4    MOVE.W  #9,D1
  12515.     ADD.W   D2,D1
  12516.     ADDQ.W  #2,D2
  12517.     MOVE.W  D2,D3
  12518. dec4_1  BSR.S   dec6
  12519. dec4_2  SUBQ.W  #1,A2
  12520.     MOVE.B  0(A2,D2.W),(A2)
  12521.     DBRA    D3,dec4_2
  12522. dec4_3  CMP.L   A2,A1
  12523.     BLT.S   dec_1
  12524.     RTS
  12525.  
  12526. dec5    MOVE.L  -(A0),D0
  12527.     MOVE.W  D0,$DFF1A2
  12528.     MOVE    #$10,CCR
  12529.     ROXR.L  #1,D0
  12530.     RTS
  12531.  
  12532. dec6    SUBQ.W  #1,D1
  12533.     CLR.W   D2
  12534. dec6loop
  12535.     LSR.L   #1,D0
  12536.     BNE.S   dec6skip
  12537.     MOVE.L  -(A0),D0
  12538.     MOVE.W  D0,$DFF1A2
  12539.     MOVE    #$10,CCR
  12540.     ROXR.L  #1,D0
  12541. dec6skip
  12542.     ROXL.L  #1,D2
  12543.     DBRA    D1,dec6loop
  12544.     RTS
  12545.  
  12546. LoadModule
  12547.     MOVE.W  #1,LoadInProgress
  12548.     BSR DoClearSong
  12549.     BSR ClrSampleInfo
  12550.     BSR SetDiskPtrCol
  12551.     LEA ModulesPath2,A0
  12552.     JSR CopyPath
  12553.     LEA DirInputName,A0
  12554.     MOVEQ   #DirNameLength-1,D0
  12555. lmloop2 MOVE.B  (A0)+,(A1)+
  12556.     DBRA    D0,lmloop2
  12557.     LEA LoadingModuleText(PC),A0
  12558.     BSR ShowStatusText
  12559.     MOVE.L  DOSbase(PC),A6
  12560.     MOVE.L  #FileName,D1
  12561.     MOVE.L  #1005,D2
  12562.     JSR LVOOpen(A6)
  12563.     MOVE.L  D0,FileHandle
  12564.     BEQ CantOpenFile
  12565.     MOVE.L  D0,D1
  12566.     MOVE.L  SongDataPtr(PC),D2
  12567.     MOVE.L  #1084,D3
  12568.     JSR LVORead(A6)
  12569.     MOVE.L  SongDataPtr(PC),A0
  12570.     CMP.L   #'PP20',(A0)
  12571.     BEQ PowerPacked
  12572.     MOVE.B  #127,sd_numofpatt+1(A0) ; Set maxpatt to 127
  12573.     CMP.L   #'M.K.',sd_mahokakt(A0) ; M.K. again...
  12574.     BEQ lmskip
  12575.     BSR MahoneyAndKaktus
  12576.     BNE lmskip
  12577.     MOVE.L  FileHandle(PC),D1
  12578.     MOVE.L  #600,D2
  12579.     MOVEQ   #-1,D3
  12580.     JSR LVOSeek(A6)
  12581. lmskip  LEA LoadingModuleText(PC),A0
  12582.     BSR ShowStatusText
  12583.     MOVE.L  SongDataPtr(PC),A0
  12584.     LEA sd_pattpos(A0),A0
  12585.     MOVEQ   #0,D0
  12586.     MOVE.B  -1(A0),D0
  12587.     MOVEQ   #0,D3
  12588. lmloop3 CMP.B   (A0)+,D3
  12589.     BHI lmskip2
  12590.     MOVE.B  -1(A0),D3
  12591. lmskip2 DBRA    D0,lmloop3
  12592.     ADDQ.W  #1,D3
  12593.     MULU    #1024,D3
  12594.     MOVE.L  FileHandle(PC),D1
  12595.     MOVE.L  SongDataPtr(PC),D2
  12596.     ADD.L   #1084,D2
  12597.     MOVE.L  DOSBase,A6
  12598.     JSR LVORead(A6)
  12599.     CLR.L   PatternNumber
  12600.     CLR.L   CurrPos
  12601.     BSR RedrawPattern
  12602.     CLR.W   ScrPattPos
  12603.     BSR SetScrPatternPos
  12604.     MOVE.W  #1,InsNum
  12605.     BSR CheckAbort
  12606.     BEQ rmiend
  12607.     TST.B   AutoExitFlag
  12608.     BEQ readinstrloop
  12609.     JSR ExitFromDir
  12610. readinstrloop
  12611.     TST.B   NosamplesFlag
  12612.     BNE rmiend
  12613.     BSR CheckAbort
  12614.     BEQ rmiend
  12615.     BSR ShowSampleInfo
  12616.     MOVE.W  InsNum(PC),TuneUp
  12617.     JSR DoShowFreeMem
  12618.     MOVE.L  SongDataPtr(PC),A0
  12619.     MOVE.W  InsNum(PC),D7
  12620.     MULU    #30,D7
  12621.     MOVEQ   #0,D0
  12622.     MOVE.W  12(A0,D7.W),D0
  12623.     BEQ rminext
  12624.     ADD.L   D0,D0
  12625.     MOVE.L  4.W,A6
  12626.     MOVE.L  #MEMF_CHIP!MEMF_CLEAR,D1
  12627.     MOVE.L  D0,-(SP)
  12628.     JSR LVOAllocMem(A6)
  12629.     MOVE.L  (SP)+,D6
  12630.     TST.L   D0
  12631.     BNE ReadModInstrument
  12632.     BSR OutOfMemErr
  12633.     MOVE.L  DOSbase(PC),A6
  12634.     MOVE.L  FileHandle(PC),D1
  12635.     MOVE.L  D6,D2
  12636.     MOVEQ   #0,D3
  12637.     BRA rminext
  12638.  
  12639. ReadModInstrument
  12640.     MOVE.W  InsNum(PC),D7
  12641.     LSL.W   #2,D7
  12642.     LEA SamplePtrs(PC),A0
  12643.     MOVE.L  D0,0(A0,D7.W)
  12644.     MOVE.L  D6,124(A0,D7.W)
  12645.     MOVE.L  DOSbase(PC),A6
  12646.     MOVE.L  FileHandle(PC),D1
  12647.     MOVE.L  D0,D2
  12648.     MOVE.L  D6,D3
  12649.     JSR LVORead(A6)
  12650.     BSR RedrawSample
  12651. rminext ADDQ.W  #1,InsNum
  12652.     CMP.W   #32,InsNum
  12653.     BNE readinstrloop
  12654. rmiend  MOVE.L  FileHandle(PC),D1
  12655.     MOVE.L  DOSbase(PC),A6
  12656.     JSR LVOClose(A6)
  12657.     MOVE.W  #1,InsNum
  12658.     MOVE.L  #6,CurrSpeed
  12659.     CLR.W   LoadInProgress
  12660.     BSR ShowAllRight
  12661.     JSR SetNormalPtrCol
  12662.     BSR CheckInstrLengths
  12663.     BSR ShowSampleInfo
  12664.     BSR RedrawSample
  12665.     JMP DoShowFreeMem
  12666.  
  12667. PowerPacked
  12668.     LEA PowerPackedText,A0
  12669.     BSR ShowStatusText
  12670.     JSR SetErrorPtrCol
  12671.     BSR DoClearSong
  12672.     BSR ClrSampleInfo
  12673.     BRA rmiend
  12674.  
  12675. PowerPackedText dc.b "Powerpacker mod.!",0
  12676.  
  12677.  
  12678. SaveModule
  12679.     JSR StorePtrCol
  12680.     JSR SetDiskPtrCol
  12681.     MOVE.L  SongDataPtr(PC),A0
  12682.     LEA sd_pattpos(A0),A0
  12683.     MOVEQ   #0,D0
  12684.     MOVEQ   #0,D1
  12685.     MOVEQ   #0,D2
  12686.     CLR.W   HighPattNum
  12687. smloop  MOVE.B  0(A0,D0.W),D1
  12688.     ADDQ.W  #1,D0
  12689.     CMP.W   #128,D0
  12690.     BHI DoSaveModule
  12691.     MOVE.W  HighPattNum(PC),D2
  12692.     CMP.W   D2,D1
  12693.     BLS smloop
  12694.     MOVE.W  D1,HighPattNum
  12695.     BRA smloop
  12696.  
  12697. DoSaveModule
  12698.     LEA ModulesPath2,A0
  12699.     JSR CopyPath
  12700.     MOVE.B  #'m',(A1)+
  12701.     MOVE.B  #'o',(A1)+
  12702.     MOVE.B  #'d',(A1)+
  12703.     MOVE.B  #'.',(A1)+
  12704.     MOVE.L  SongDataPtr(PC),A0
  12705.     MOVEQ   #19,D0
  12706. dsmloop2
  12707.     MOVE.B  (A0)+,(A1)+
  12708.     DBRA    D0,dsmloop2
  12709.     MOVE.L  SongDataPtr(PC),A0
  12710.     MOVE.L  A0,DiskDataPtr
  12711.     MOVE.L  #1084,DiskDataLength
  12712.     MOVEQ   #0,D0
  12713.     MOVE.W  HighPattNum(PC),D0
  12714.     ADDQ.L  #1,D0
  12715.     LSL.L   #8,D0
  12716.     LSL.L   #2,D0
  12717.     ADD.L   D0,DiskDataLength   ; Add 1024 x NumOfPatt
  12718.     MOVE.B  #127,sd_numofpatt+1(A0) ; Set maxpatt to 127
  12719.     MOVE.L  #'M.K.',sd_mahokakt(A0) ; M.K. again...
  12720.     LEA SavingModuleText(PC),A0
  12721.     BSR ShowStatusText
  12722.     BSR OpenModForWrite
  12723.     BNE CantOpenFile
  12724.     BSR WriteModuleData
  12725.     BNE WriteModError
  12726.     MOVE.W  InsNum(PC),SaveInstrNum
  12727.     MOVEQ   #1,D6
  12728. saveinstrloop
  12729.     MOVE.W  D6,InsNum
  12730.     BSR ShowSampleInfo
  12731.     BSR WriteInstrument
  12732.     BNE WriteModError
  12733.     ADDQ.B  #1,D6
  12734.     CMP.B   #32,D6
  12735.     BNE saveinstrloop
  12736.     BSR CloseWriteMod
  12737.     MOVE.W  SaveInstrNum(PC),InsNum
  12738.     BSR ShowSampleInfo
  12739.     BSR ShowAllRight
  12740.     JMP RestorePtrCol
  12741.  
  12742. SaveInstrNum    dc.w 0
  12743.  
  12744. WriteModError
  12745.     BSR CloseWriteMod
  12746.     BRA CantSaveFile
  12747.  
  12748. WriteInstrument
  12749.     MOVE.W  D6,D0
  12750.     LSL.W   #2,D0
  12751.     LEA SamplePtrs(PC),A0
  12752.     MOVE.L  0(A0,D0.W),D1
  12753.     BEQ Return2
  12754.     MOVE.L  124(A0,D0.W),D0
  12755.     BEQ Return2
  12756.     MOVE.L  D1,DiskDataPtr
  12757.     MOVE.L  SongDataPtr(PC),A0
  12758.     LEA 12(A0),A0
  12759.     MOVE.W  D6,D0
  12760.     MULU    #30,D0
  12761.     ADD.L   D0,A0
  12762.     MOVEQ   #0,D0
  12763.     MOVE.W  (A0),D0
  12764.     LSL.L   #1,D0
  12765.     MOVE.L  D0,DiskDataLength
  12766.     BNE WriteModuleData
  12767.     RTS
  12768.  
  12769. OpenModForWrite
  12770.     MOVE.L  DOSbase(PC),A6
  12771.     MOVE.L  #FileName,D1
  12772.     MOVE.L  #1006,D2
  12773.     JSR LVOOpen(A6)
  12774.     MOVE.L  D0,D7
  12775.     BEQ wmfailed
  12776.     MOVEQ   #0,D0
  12777.     RTS
  12778.  
  12779. WriteModuleData
  12780.     MOVE.L  DOSbase(PC),A6
  12781.     MOVE.L  D7,D1
  12782.     MOVE.L  DiskDataPtr(PC),D2
  12783.     MOVE.L  DiskDataLength(PC),D3
  12784.     JSR LVOWrite(A6)
  12785.     TST.L   D0
  12786.     BEQ wmfailed
  12787.     MOVEQ   #0,D0
  12788.     RTS
  12789.  
  12790. wmfailed
  12791.     MOVEQ   #-1,D0
  12792.     RTS
  12793.  
  12794. CloseWriteMod
  12795.     MOVE.L  DOSbase(PC),A6
  12796.     MOVE.L  D7,D1
  12797.     JMP LVOClose(A6)
  12798.  
  12799. ;---- Load PLST ----
  12800.  
  12801. LoadPLST
  12802.     LEA LoadPLSTText,A0
  12803.     JSR AreYouSure
  12804.     BNE Return2
  12805.     JSR WaitForButtonUp
  12806.     LEA LoadingPLSTText(PC),A0
  12807.     BSR ShowStatusText
  12808. DoLoadPLST
  12809.     JSR StorePtrCol
  12810.     LEA PTPath,A0
  12811.     JSR CopyPath
  12812.     LEA PLSTName(PC),A0
  12813.     MOVEQ   #4,D0
  12814. dlploop MOVE.B  (A0)+,(A1)+
  12815.     DBRA    D0,dlploop
  12816.     MOVE.L  #FileName,D1
  12817.     MOVE.L  #1005,D2
  12818.     MOVE.L  DOSbase(PC),A6
  12819.     JSR LVOOpen(A6)
  12820.     MOVE.L  D0,D7
  12821.     BEQ PLSTOpenErr
  12822.     JSR SetDiskPtrCol
  12823.     CLR.L   PresetTotal
  12824.     BSR.S   AllocPLST
  12825.     MOVE.L  PLSTmem(PC),D2
  12826.     BEQ PLSTMemErr2
  12827.     MOVE.L  D7,D1
  12828.     MOVE.L  PLSTallocsize,D3
  12829.     MOVE.L  DOSBase(PC),A6
  12830.     JSR LVORead(A6)
  12831.     MOVE.L  D0,MaxPLSTOffset
  12832.     DIVU    #30,D0
  12833.     MOVE.W  D0,PresetTotal
  12834. cloplst MOVE.L  D7,D1
  12835.     MOVE.L  DOSbase(PC),A6
  12836.     JSR LVOClose(A6)
  12837.     BSR PLSTCheckNum
  12838.     BSR ShowAllRight
  12839.     JMP RestorePtrCol
  12840.  
  12841. PLSTname    dc.b    'PLST',0,0
  12842.  
  12843. AllocPLST
  12844.     BSR.S   FreePLST
  12845.     MOVE.W  MaxPLSTEntries,D0
  12846.     BEQ Return2
  12847.     MULU    #30,D0
  12848.     MOVE.L  D0,PLSTAllocSize
  12849.     MOVE.L  #MEMF_PUBLIC!MEMF_CLEAR,D1
  12850.     MOVE.L  4.W,A6
  12851.     JSR LVOAllocMem(A6)
  12852.     MOVE.L  D0,PLSTmem
  12853.     MOVE.W  MaxPLSTEntries,MaxPLSTEntries2
  12854.     RTS
  12855.  
  12856. FreePLST
  12857.     CLR.W   MaxPLSTEntries2
  12858.     CLR.L   MaxPLSTOffset
  12859.     CLR.W   PresetTotal
  12860.     MOVE.L  PLSTmem,D0
  12861.     BEQ Return2
  12862.     MOVE.L  D0,A1
  12863.     MOVE.L  PLSTAllocSize,D0
  12864.     MOVE.L  4.W,A6
  12865.     JSR LVOFreeMem(A6)
  12866.     CLR.L   PLSTmem
  12867.     RTS
  12868.  
  12869. PLSTMemErr2
  12870.     BSR.S   PLSTMemErr
  12871.     BRA cloplst
  12872.  
  12873. PLSTMemErr
  12874.     TST.W   MaxPLSTEntries
  12875.     BEQ.S   reptrco
  12876.     BSET    #0,InitError
  12877.     LEA PLSTMemText,A0
  12878. plster  BSR.S   ShowStatusText
  12879.     MOVE.W  #50,WaitTime
  12880.     JMP ErrorRestoreCol
  12881. reptrco JMP RestorePtrCol
  12882. PLSTOpenErr
  12883.     TST.W   MaxPLSTEntries
  12884.     BEQ.S   reptrco
  12885.     BSET    #1,InitError
  12886.     LEA PLSTOpenText,A0
  12887.     BRA.S   plster
  12888.  
  12889. PLSTMemText dc.b 'no mem for plst !',0
  12890. PLSTOpenText    dc.b 'plst not found ! ',0
  12891. InitError   dc.b 0,0
  12892.  
  12893.  
  12894. ShowAllRight
  12895.     MOVEM.L D0-D7/A0-A6,-(SP)
  12896.     LEA AllRightText(PC),A0
  12897.     BSR.S   ShowStatusText
  12898.     MOVEM.L (SP)+,D0-D7/A0-A6
  12899.     RTS
  12900.  
  12901. ShowStatusText
  12902.     MOVE.L  TextBplPtr(PC),A1
  12903.     ADD.L   #5131,A1
  12904.     MOVEQ   #4,D0
  12905. stloop1 MOVEQ   #16,D1
  12906. stloop2 CLR.B   (A1)+
  12907.     DBRA    D1,stloop2
  12908.     LEA 23(A1),A1
  12909.     DBRA    D0,stloop1
  12910.     MOVE.L  A0,A1
  12911.     MOVE.W  #5131,D1
  12912.     MOVEQ   #-1,D0
  12913. stloop3 ADDQ.W  #1,D0
  12914.     TST.B   (A1)+
  12915.     BNE.S   stloop3
  12916.     BRA ShowText3
  12917.  
  12918. ;---- Redraw Pattern ----
  12919.  
  12920. RedrawPattern
  12921.     TST.W   SamScrEnable
  12922.     BNE Return2
  12923.     SF  PattRfsh
  12924.     MOVE.W  #5121,TextOffset
  12925.     MOVE.W  PatternNumber+2(PC),WordNumber
  12926.     BSR Print2DecDigits ; Print PatternNumber
  12927.     MOVE.L  SongDataPtr(PC),A6
  12928.     LEA $043C(A6),A6
  12929.     MOVE.L  PatternNumber,D6
  12930.     LSL.L   #8,D6
  12931.     LSL.L   #2,D6
  12932.     ADD.L   D6,A6
  12933.     MOVE.W  #7521,TextOffset
  12934.     CLR.L   PPattPos
  12935.     LEA PeriodTable(PC),A2
  12936.     LEA RedrawBuffer(PC),A3
  12937.     LEA FastHexTable(PC),A4
  12938.     MOVEQ   #'0',D4
  12939.     MOVE.B  BlankZeroFlag,D5
  12940.     MOVEQ   #63,D6
  12941. rpnxpos MOVEQ   #3,D7
  12942.     MOVE.W  PPattPos+2(PC),WordNumber
  12943.     BSR Print2DecDigits ; Print PatternPosition
  12944.     ADDQ.W  #1,TextOffset
  12945.     ADDQ.L  #1,PPattPos
  12946. rploop  MOVEQ   #0,D0
  12947.     MOVEQ   #0,D1
  12948.     MOVE.W  (A6),D1
  12949.     AND.W   #$0FFF,D1
  12950.     BNE.S   rpfind
  12951.     MOVE.L  #'--- ',(A3)
  12952.     BRA.S   rpskip
  12953. rpfind  MOVEQ   #36,D2
  12954. rpfindloop
  12955.     CMP.W   (A2,D0.W),D1
  12956.     BEQ.S   rpfound
  12957.     ADDQ.L  #2,D0
  12958.     DBRA    D2,rpfindloop
  12959.     MOVE.L  #'??? ',(A3)
  12960.     BRA.S   rpskip
  12961. rpfound LSL.L   #1,D0
  12962.     ADD.L   NoteNamesPtr(PC),D0
  12963.     MOVE.L  D0,A0
  12964.     MOVE.L  (A0),(A3)
  12965. rpskip  MOVE.B  (A6)+,D0
  12966.     LSR.B   #4,D0
  12967.     ADD.B   #'0',D0
  12968.     MOVE.B  D0,3(A3)
  12969.     MOVE.B  (A6)+,D0
  12970.     MOVEQ   #0,D0
  12971.     MOVE.B  (A6)+,D0
  12972.     ADD.W   D0,D0
  12973.     MOVE.W  (A4,D0.W),4(A3)
  12974.     MOVEQ   #0,D0
  12975.     MOVE.B  (A6)+,D0
  12976.     ADD.W   D0,D0
  12977.     MOVE.W  (A4,D0.W),6(A3)
  12978.  
  12979.     TST.B   D5
  12980.     BEQ.S   rpskp3
  12981.     CMP.B   3(A3),D4
  12982.     BNE.S   rpskp3
  12983.     MOVE.B  #' ',3(A3)
  12984. rpskp3  MOVE.W  #9,TextLength
  12985.     MOVE.L  A3,ShowTextPtr
  12986.     BSR ShowText
  12987.     DBRA    D7,rploop  ; Next Channel
  12988.     ADD.W   #241,TextOffset
  12989.     DBRA    D6,rpnxpos ; Next PattPos
  12990.     RTS
  12991.  
  12992. RedrawBuffer    dc.b '---00000 ',0
  12993.  
  12994.  
  12995. ShowPosition
  12996.     MOVE.L  SongDataPtr(PC),A0
  12997.     LEA 952(A0),A0
  12998.     ADD.L   CurrPos(PC),A0
  12999.     MOVE.B  (A0),WordNumber+1
  13000.     MOVE.B  (A0),PattRfshNum+3
  13001.     MOVEQ   #0,D1
  13002.     MOVE.B  (A0),D1
  13003.     CMP.B   LongFFFF+3(PC),D1
  13004.     BEQ.S   spskip2
  13005.     ST  PattRfsh
  13006. spskip2 MOVE.W  #608,TextOffset
  13007.     MOVE.B  (A0),LongFFFF+3
  13008.     CMP.W   #0,CurrScreen
  13009.     BEQ.S   spokok
  13010.     CMP.W   #1,CurrScreen
  13011.     BEQ.S   spokok
  13012.     CMP.W   #6,CurrScreen
  13013.     BEQ.S   spokok
  13014.     RTS
  13015. spokok  BSR Print4DecDigits
  13016.     MOVE.W  CurrPos+2,WordNumber
  13017.     MOVE.W  #168,TextOffset
  13018.     BRA Print4DecDigits
  13019.  
  13020.  
  13021. ShowSongLength
  13022.     CMP.W   #2,CurrScreen
  13023.     BEQ.S   ShowSongName
  13024.     CMP.W   #3,CurrScreen
  13025.     BEQ.S   ShowSongName
  13026.     CMP.W   #4,CurrScreen
  13027.     BEQ Return2
  13028.     CMP.W   #5,CurrScreen
  13029.     BEQ.S   ShowSongName
  13030.     MOVE.L  SongDataPtr(PC),A0
  13031.     LEA sd_numofpatt(A0),A0
  13032.     MOVE.L  A0,CurrCmds
  13033.     CLR.W   WordNumber
  13034.     MOVE.B  (A0),WordNumber+1
  13035.     MOVE.W  #1048,TextOffset
  13036.     BSR Print4DecDigits
  13037.     MOVE.L  CurrCmds(PC),A0
  13038. ShowSongName
  13039.     MOVE.L  SongDataPtr(PC),A0
  13040.     MOVE.W  #4133,D1
  13041.     MOVEQ   #20,D0
  13042.     BRA ShowText3
  13043.  
  13044.  
  13045. ShowSampleInfo 
  13046.     MOVEQ   #0,D0
  13047.     MOVE.W  InsNum(PC),D0
  13048.     MOVE.W  D0,PlayInsNum
  13049.     BNE.S   ssiskipit
  13050.     MOVE.W  LastInsNum(PC),D0
  13051. ssiskipit
  13052.     MOVE.W  D0,D1
  13053.     LSL.L   #2,D0
  13054.     LEA SamplePtrs(PC),A0
  13055.     MOVE.L  (A0,D0.W),si_pointer
  13056.     MOVE.L  SongDataPtr(PC),A0
  13057.     LEA -10(A0),A0
  13058.     MOVE.W  D1,D0
  13059.     MULU    #30,D0
  13060.     ADD.L   D0,A0
  13061.     MOVE.L  A0,CurrCmds
  13062.     MOVE.L  22(A0),SampleInfo
  13063.     MOVE.L  26(A0),si_long
  13064.     TST.B   NoSampleInfo
  13065.     BNE ssiskip
  13066.  
  13067.     MOVE.L  A0,-(SP)
  13068.     MOVE.B  #' ',FineTuneSign
  13069.     MOVE.B  24(A0),D0
  13070.     BEQ.S   dopfitu
  13071.     MOVE.B  #'+',FineTuneSign
  13072.     BTST    #3,D0
  13073.     BEQ.S   dopfitu
  13074.     MOVE.B  #'-',FineTuneSign
  13075.     MOVEQ   #16,D1
  13076.     SUB.B   D0,D1
  13077.     MOVE.B  D1,D0
  13078. dopfitu MOVE.W  #1491,TextOffset
  13079.     BSR PrintHexDigit  ; FineTune
  13080.     LEA FineTuneSign(PC),A0
  13081.     MOVE.W  #1490,D1
  13082.     MOVEQ   #1,D0
  13083.     BSR ShowText3  ; FineTuneSign
  13084.     MOVE.L  (SP)+,A0
  13085.  
  13086.     CLR.W   WordNumber
  13087.     MOVE.B  25(A0),WordNumber+1
  13088.     MOVE.W  WordNumber,VolumeEfx
  13089.     OR.W    #$0C00,VolumeEfx
  13090.     MOVE.W  #2368,TextOffset
  13091.     BSR PrintHexWord  ; Volume
  13092.  
  13093.     MOVEQ   #0,D0
  13094.     MOVE.W  SampleInfo(PC),D0
  13095.     LSL.L   #1,D0
  13096.     MOVE.W  D0,WordNumber
  13097.     MOVE.L  SamplePos,D2
  13098.     CMP.L   D0,D2
  13099.     BLS.S   ShowLen
  13100.     MOVE.L  D0,SamplePos
  13101.     BSR ShowPos
  13102.     MOVEQ   #0,D0
  13103.     MOVE.W  SampleInfo(PC),D0
  13104.     LSL.L   #1,D0
  13105.     MOVE.W  D0,WordNumber
  13106. ShowLen MOVE.W  #2808,TextOffset
  13107.     BSR PrintHexWord  ; Length
  13108.  
  13109.     MOVE.W  si_long,D0
  13110.     ADD.W   D0,D0
  13111.     MOVE.W  D0,WordNumber
  13112.     MOVE.W  #3248,TextOffset
  13113.     BSR PrintHexWord  ; Repeat
  13114.  
  13115.     MOVE.W  si_long+2,D0
  13116.     ADD.W   D0,D0
  13117.     MOVE.W  D0,WordNumber
  13118.     MOVE.W  #3688,TextOffset
  13119.     BSR PrintHexWord  ; RepLen
  13120.  
  13121.     BSR.S   ssiinst
  13122.  
  13123. ssiskip TST.B   NoSampleInfo
  13124.     BEQ.S   ssiskp2
  13125.     CMP.W   #5,CurrScreen
  13126.     BEQ.S   ssiskp2
  13127.     CMP.W   #3,CurrScreen
  13128.     BNE Return2
  13129. ssiskp2 MOVE.L  CurrCmds(PC),A0
  13130.     MOVE.W  #4573,D1
  13131.     MOVEQ   #22,D0
  13132.     BRA ShowText3  ; SampleName
  13133.  
  13134. ssiinst TST.B   NoSampleInfo
  13135.     BNE Return2
  13136.     MOVE.W  InsNum(PC),WordNumber
  13137.     MOVE.W  #1928,TextOffset
  13138.     BRA PrintHexWord  ; SampleNumber
  13139.  
  13140. FineTuneSign    dc.b ' ',0
  13141. VolumeEfx   dc.w 0
  13142.  
  13143. ;---- Print Decimal Digits ----
  13144.  
  13145. Print2DecDigits
  13146.     MOVE.W  #2,TextLength
  13147.     MOVEQ   #0,D1
  13148.     MOVE.W  WordNumber(PC),D1
  13149.     LEA NumberText(PC),A0
  13150.     BRA.S   pdig
  13151.  
  13152. Print3DecDigits
  13153.     MOVE.W  #3,TextLength
  13154.     MOVEQ   #0,D1
  13155.     MOVE.W  WordNumber(PC),D1
  13156.     LEA NumberText(PC),A0
  13157.     BRA.S   pdig100
  13158.  
  13159. Print4DecDigits
  13160.     MOVE.W  #4,TextLength
  13161.     MOVEQ   #0,D1
  13162.     MOVE.W  WordNumber(PC),D1
  13163.     LEA NumberText(PC),A0
  13164.     DIVU    #1000,D1
  13165.     BSR.S   DoOneDigit
  13166. pdig100 DIVU    #100,D1
  13167.     BSR.S   DoOneDigit
  13168. pdig    DIVU    #10,D1
  13169.     BSR.S   DoOneDigit
  13170.     BSR.S   DoOneDigit
  13171.     MOVE.L  #NumberText,A0
  13172.     BRA ShowText2
  13173.  
  13174. DoOneDigit
  13175.     ADD.B   #'0',D1
  13176.     MOVE.B  D1,(A0)+
  13177.     CLR.W   D1
  13178.     SWAP    D1
  13179.     RTS
  13180.  
  13181. Print6DecDigits
  13182.     LEA NumberText,A0
  13183.     MOVE.L  D0,D1
  13184.     CMP.L   #1000000,D1
  13185.     BHS toobig
  13186.  
  13187.     SWAP    D1
  13188.     CLR.W   D1
  13189.     SWAP    D1
  13190.     DIVU    #10,D1
  13191.     SWAP    D1
  13192.     ADD.B   #'0',D1
  13193.     MOVE.B  D1,5(A0)
  13194.     CMP.L   #10,D0
  13195.     BLO.S   p6zero1
  13196.  
  13197.     DIVU    #100,D0
  13198.     MOVE.L  D0,D1
  13199.     CLR.W   D0
  13200.     SWAP    D0
  13201.     DIVU    #10,D0
  13202.     ADD.B   #'0',D0
  13203.     MOVE.B  D0,4(A0)
  13204.     AND.L   #$FFFF,D1
  13205.     BEQ.S   p6zero2
  13206.     DIVU    #10,D1
  13207.     SWAP    D1
  13208.     ADD.B   #'0',D1
  13209.     MOVE.B  D1,3(A0)
  13210.     CLR.W   D1
  13211.     SWAP    D1
  13212.     TST.W   D1
  13213.     BEQ.S   p6zero3
  13214.     DIVU    #10,D1
  13215.     SWAP    D1
  13216.     ADD.B   #'0',D1
  13217.     MOVE.B  D1,2(A0)
  13218.     CLR.W   D1
  13219.     SWAP    D1
  13220.     TST.W   D1
  13221.     BEQ.S   p6zero4
  13222.     DIVU    #10,D1
  13223.     SWAP    D1
  13224.     ADD.B   #'0',D1
  13225.     MOVE.B  D1,1(A0)
  13226.     CLR.W   D1
  13227.     SWAP    D1
  13228.     TST.W   D1
  13229.     BEQ.S   p6zero5
  13230.     DIVU    #10,D1
  13231.     SWAP    D1
  13232.     ADD.B   #'0',D1
  13233.     MOVE.B  D1,(A0)
  13234.     BRA.S   p6end
  13235.  
  13236. p6zero1 MOVE.B  #' ',4(A0)
  13237. p6zero2 MOVE.B  #' ',3(A0)
  13238. p6zero3 MOVE.B  #' ',2(A0)
  13239. p6zero4 MOVE.B  #' ',1(A0)
  13240. p6zero5 MOVE.B  #' ',0(A0)
  13241. p6end   MOVE.W  #6,TextLength
  13242.     BRA ShowText2
  13243.  
  13244. toobig  MOVE.B  #' ',D0
  13245.     BSR.S   toobig2
  13246.     DIVU    #1000,D0
  13247.     MOVE.W  D0,WordNumber
  13248.     BSR Print4DecDigits
  13249.     MOVE.B  #'K',D0
  13250. toobig2 LEA NumberText(PC),A0
  13251.     MOVE.B  D0,(A0)
  13252.     MOVE.W  #1,TextLength
  13253.     BRA ShowText2
  13254.  
  13255. NumberText  dcb.b   6,0
  13256.  
  13257. ;---- Print Hex Digits ----
  13258.  
  13259. PrintHiInstrNum
  13260.     MOVEQ   #0,D0
  13261.     TST.W   CurrentPlayNote
  13262.     BEQ.S   phin2
  13263.     MOVE.W  InsNum(PC),D0
  13264.     LSR.W   #4,D0
  13265.     BNE.S   PrintHexDigit
  13266. phin2   TST.B   BlankZeroFlag
  13267.     BEQ.S   PrintHexDigit
  13268.     LEA BlankInsText(PC),A0
  13269.     BRA.S   phd2
  13270. PrintHexDigit
  13271.     AND.L   #$0F,D0
  13272.     ADD.L   D0,D0
  13273.     LEA FastHexTable+1(PC),A0
  13274.     ADD.L   D0,A0
  13275. phd2    MOVE.W  #1,TextLength
  13276.     BRA.S   ShowText2
  13277.  
  13278. BlankInsText    dc.b " ",0
  13279.  
  13280. PrintHexWord
  13281.     LEA WordNumber(PC),A0
  13282.     MOVEQ   #0,D0
  13283.     MOVE.B  (A0),D0
  13284.     LSL.L   #1,D0
  13285.     LEA FastHexTable(PC),A0
  13286.     ADD.L   D0,A0
  13287.     MOVE.W  #2,TextLength
  13288.     BSR.S   ShowText2
  13289. PrintHexByte
  13290.     LEA WordNumber(PC),A0
  13291.     MOVEQ   #0,D0
  13292.     MOVE.B  1(A0),D0
  13293.     LSL.L   #1,D0
  13294.     MOVE.L  #FastHexTable,A0
  13295.     ADD.L   D0,A0
  13296.     MOVE.W  #2,TextLength
  13297.     BSR.S   ShowText2
  13298.     CLR.W   WordNumber
  13299.     RTS
  13300.  
  13301. ;---- Text Output Routines ----
  13302.  
  13303. ShowText3
  13304.     MOVE.W  D0,TextLength
  13305.     MOVE.W  D1,TextOffset
  13306. ShowText2
  13307.     MOVE.L  A0,ShowTextPtr
  13308. ShowText
  13309.     MOVEM.L A2-A4,-(SP)
  13310.     LEA TextTable(PC),A3
  13311.     LEA FontData,A4
  13312.     MOVE.W  TextLength(PC),D0
  13313.     MOVE.L  TextBplPtr(PC),A1
  13314.     MOVE.W  TextOffset(PC),D1
  13315.     LEA (A1,D1.W),A1
  13316.     ADD.W   D0,TextOffset
  13317.     MOVE.L  ShowTextPtr(PC),A0
  13318.     BRA.S   dstlope
  13319. dstloop MOVEQ   #0,D1
  13320.     MOVE.B  (A0)+,D1
  13321.     BNE.S   dstskip
  13322.     MOVE.B  ShowZeroFlag(PC),D1
  13323. dstskip MOVE.B  (A3,D1.W),D1
  13324.     LSL.W   #3,D1
  13325.     MOVE.L  A4,A2
  13326.     ADD.L   D1,A2
  13327.     MOVE.B  (A2)+,(A1)+
  13328.     MOVE.B  (A2)+,40-1(A1)
  13329.     MOVE.B  (A2)+,80-1(A1)
  13330.     MOVE.B  (A2)+,120-1(A1)
  13331.     MOVE.B  (A2),160-1(A1)
  13332. dstlope DBRA    D0,dstloop
  13333.     MOVEM.L (SP)+,A2-A4
  13334.     RTS
  13335.  
  13336. SpaceShowText
  13337.     MOVE.W  ShowZeroFlag(PC),-(SP)
  13338.     MOVE.B  #' ',ShowZeroFlag
  13339.     BSR.S   ShowText
  13340.     MOVE.W  (SP)+,ShowZeroFlag
  13341.     RTS
  13342.  
  13343. ShowZeroFlag    dc.b    95,0
  13344.  
  13345. TextTable
  13346.     dc.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0
  13347.     dc.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13348.     dc.b 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15 ; 32
  13349.     dc.b 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31
  13350.     dc.b 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 ; 64
  13351.     dc.b 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63
  13352.     dc.b 69,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 ; 96
  13353.     dc.b 48,49,50,51,52,53,54,55,56,57,58,65,66,67,68,63
  13354.     dc.b 69,70,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 128
  13355.     dc.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13356.     dc.b 0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 160
  13357.     dc.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13358.     dc.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 192
  13359.     dc.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13360.     dc.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 224
  13361.     dc.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13362.  
  13363.  
  13364. ;---- Set Sprite Position ----
  13365.  
  13366. SetSpritePos
  13367.     ADD.W   #$002C,D1
  13368.     ADD.W   D1,D2
  13369.     ROL.W   #7,D2
  13370.     ASL.W   #1,D2
  13371.     BCC.S   sppskip
  13372.     OR.W    #2,D2
  13373. sppskip ROL.W   #7,D1
  13374.     ASL.W   #1,D1
  13375.     BCC.S   sppskip2
  13376.     OR.W    #4,D2
  13377. sppskip2
  13378.     ADD.W   #$007D,D0
  13379.     ASR.W   #1,D0
  13380.     BCC.S   sppskip3
  13381.     OR.W    #1,D2
  13382. sppskip3
  13383.     OR.W    D0,D1
  13384.     MOVE.W  D1,(A0)
  13385.     MOVE.W  D2,2(A0)
  13386.     RTS
  13387.  
  13388.  
  13389. ;---- DoLoad / DoSave Data ----
  13390.  
  13391. DoLoadData
  13392.     TST.L   DiskDataLength
  13393.     BEQ.S   dlsend
  13394.     TST.L   DiskDataPtr
  13395.     BEQ.S   dlsend
  13396.     JSR SetDiskPtrCol
  13397.     LEA LoadingText(PC),A0
  13398.     BSR ShowStatusText
  13399.     MOVE.L  DOSbase(PC),A6
  13400.     MOVE.L  FileNamePtr(PC),D1
  13401.     MOVE.L  #1005,D2
  13402.     JSR LVOOpen(A6)
  13403.     MOVE.L  D0,FileHandle
  13404.     BEQ.S   CantOpenFile
  13405.     MOVE.L  FileHandle(PC),D1
  13406.     MOVE.L  DiskDataPtr(PC),D2
  13407.     MOVE.L  DiskDataLength(PC),D3
  13408.     JSR LVORead(A6)
  13409.     MOVE.L  FileHandle(PC),D1
  13410.     JSR LVOClose(A6)
  13411. dlsend  CLR.L   FileHandle
  13412.     JSR SetNormalPtrCol
  13413.     MOVEQ   #-1,D0
  13414.     RTS
  13415.  
  13416. CantOpenFile
  13417.     LEA CantOpenFileText(PC),A0
  13418. caopfil BSR ShowStatusText
  13419.     JSR SetErrorPtrCol
  13420.     MOVEQ   #0,D0
  13421.     RTS
  13422.  
  13423. CantSaveFile
  13424.     LEA CantSaveFileText(PC),A0
  13425.     BRA.S   caopfil
  13426. CantExamFile
  13427.     LEA CantExamFileText(PC),A0
  13428.     BRA.S   caopfil
  13429. CantFindFile
  13430.     LEA CantFindFileText(PC),A0
  13431.     BRA.S   caopfil
  13432. FileIsEmpty
  13433.     LEA FileIsEmptyText(PC),A0
  13434.     BRA.S   caopfil
  13435.  
  13436. CantOpenFileText    dc.b "can't open file !",0
  13437. CantSaveFileText    dc.b "can't save file !",0
  13438. CantExamFileText    dc.b "examine error !",0
  13439. CantFindFileText    dc.b "can't find file !",0
  13440. FileIsEmptyText     dc.b "file is empty !",0
  13441.  
  13442. DoSaveData
  13443.     JSR SetDiskPtrCol
  13444.     LEA SavingText(PC),A0
  13445.     BSR ShowStatusText
  13446.     MOVE.L  DOSbase(PC),A6
  13447.     MOVE.L  FileNamePtr(PC),D1
  13448.     MOVE.L  #1006,D2
  13449.     JSR LVOOpen(A6)
  13450.     MOVE.L  D0,FileHandle
  13451.     BEQ CantOpenFile
  13452.     MOVE.L  FileHandle(PC),D1
  13453.     MOVE.L  DiskDataPtr(PC),D2
  13454.     MOVE.L  DiskDataLength(PC),D3
  13455.     JSR LVOWrite(A6)
  13456.     MOVE.L  FileHandle(PC),D1
  13457.     JSR LVOClose(A6)
  13458.     CLR.L   FileHandle
  13459.     JMP SetNormalPtrCol
  13460.  
  13461. ;---- PLST ----
  13462.  
  13463. PLST    CLR.B   RawKeyCode
  13464.     CMP.W   #6,CurrScreen
  13465.     BEQ ExitPLST
  13466.     CMP.W   #1,CurrScreen
  13467.     BNE Return2
  13468.     JSR WaitForButtonUp
  13469.     MOVE.W  #6,CurrScreen
  13470.     JSR ClearRightArea
  13471.     JSR ClearAnalyzerColors
  13472.     BSR.S   DrawPLSTScreen
  13473.     BEQ ExitPLST
  13474.     BSR RedrawPLST
  13475. PLST_rts
  13476.     RTS
  13477.  
  13478. DrawPLSTScreen
  13479.     LEA PLSTData,A0
  13480.     MOVE.L  #PLSTSize,D0
  13481.     BSR Decompact
  13482.     BEQ Return2
  13483.     LEA TopMenusPos,A0
  13484.     MOVEQ   #98,D0
  13485. dplstloop1
  13486.     MOVEQ   #24,D1
  13487. dplstloop2
  13488.     MOVE.B  2574(A1),10240(A0)
  13489.     MOVE.B  (A1)+,(A0)+
  13490.     DBRA    D1,dplstloop2
  13491.     LEA 15(A0),A0
  13492.     ADDQ.L  #1,A1
  13493.     DBRA    D0,dplstloop1
  13494.     BSR FreeDecompMem
  13495.     MOVEQ   #-1,D0
  13496.     RTS
  13497.  
  13498. ShowDiskNames
  13499.     MOVE.W  #616,TextOffset
  13500.     MOVE.W  #5,TextLength
  13501.     MOVE.L  #STText1,A0
  13502.     BSR ShowText2
  13503.     ADDQ.W  #1,TextOffset
  13504.     MOVE.L  #STText2,A0
  13505.     BSR ShowText2
  13506.     ADDQ.W  #1,TextOffset
  13507.     MOVE.L  #STText3,A0
  13508.     BRA ShowText2
  13509.  
  13510. PLSTCheckNum
  13511.     TST.L   PLSTmem
  13512.     BEQ NoPLST
  13513.     TST.L   MaxPLSTOffset
  13514.     BEQ NoPLST
  13515.     MOVE.L  PLSTmem(PC),A0
  13516.     MOVE.W  PresetTotal(PC),D7
  13517.     SUBQ.W  #1,D7
  13518.     TST.B   STText1Number
  13519.     BNE plstsskip
  13520.     TST.B   STText2Number
  13521.     BNE plstsskip
  13522.     TST.B   STText3Number
  13523.     BEQ PLSTMarkAll
  13524. plstsskip
  13525.     MOVE.L  STText1Number-1(PC),A3
  13526.     MOVE.L  STText2Number-1(PC),A4
  13527.     MOVE.L  STText3Number-1(PC),A5
  13528.     MOVEQ   #0,D6
  13529. PLSTmarkloop
  13530.     MOVE.W  #'st',(A0)  ; Set lowercase 'st'
  13531.     MOVE.B  3(A0),D0
  13532.     CMP.B   #'a',D0
  13533.     BLO.S   pmlskp1
  13534.     SUB.B   #32,D0
  13535. pmlskp1 MOVE.B  D0,3(A0)
  13536.     MOVE.B  4(A0),D0
  13537.     CMP.B   #'a',D0
  13538.     BLO.S   pmlskp2
  13539.     SUB.B   #32,D0
  13540. pmlskp2 MOVE.B  D0,4(A0)
  13541.     MOVE.L  2(A0),D0    ; Get number ('-01:' etc)
  13542. PLSTchk1
  13543.     CMP.L   A3,D0
  13544.     BNE PLSTchk2
  13545.     MOVE.W  #'ST',(A0)
  13546.     ADDQ.W  #1,D6
  13547.     BRA PLSTmarknext
  13548.  
  13549. PLSTchk2
  13550.     CMP.L   A4,D0
  13551.     BNE PLSTchk3
  13552.     MOVE.W  #'ST',(A0)
  13553.     ADDQ.W  #1,D6
  13554.     BRA PLSTmarknext
  13555.  
  13556. PLSTchk3
  13557.     CMP.L   A5,D0
  13558.     BNE PLSTmarknext
  13559.     MOVE.W  #'ST',(A0)
  13560.     ADDQ.W  #1,D6
  13561. PLSTmarknext
  13562.     ADD.L   #30,A0
  13563.     DBRA    D7,PLSTmarkloop
  13564.     MOVE.W  D6,PresetMarkTotal
  13565.     CLR.W   PLSTpos
  13566.     CLR.L   PLSTOffset
  13567.     RTS
  13568.  
  13569. PLSTMarkAll
  13570.     MOVE.W  #'ST',(A0)  ; Set uppercase 'ST'
  13571.     LEA 30(A0),A0
  13572.     DBRA    D7,PLSTMarkAll
  13573.     MOVE.W  PresetTotal(PC),PresetMarkTotal
  13574.     CLR.W   PLSTpos
  13575.     CLR.L   PLSTOffset
  13576.     RTS
  13577.  
  13578. NoPLST  CLR.W   PresetMarkTotal
  13579.     CLR.W   PLSTpos
  13580.     CLR.L   PLSTOffset
  13581.     RTS
  13582.  
  13583. RedrawPLST
  13584.     MOVE.W  PresetMarkTotal(PC),WordNumber
  13585.     MOVE.W  #189,TextOffset
  13586.     BSR Print4DecDigits
  13587.     BSR ShowDiskNames
  13588.     TST.L   PLSTmem
  13589.     BEQ PLST_rts
  13590.     TST.L   MaxPLSTOffset
  13591.     BEQ PLST_rts
  13592.  
  13593.     MOVE.L  PLSTOffset(PC),D6
  13594.     MOVE.L  PLSTmem(PC),A6
  13595.     MOVE.W  #976,A5 ; TextOffset
  13596.     LEA PLSTOffset(PC),A4
  13597.     MOVEQ   #11,D7  ; Number of lines to print
  13598.     TST.L   D6
  13599.     BMI EndOfPLST
  13600. dtplstloop
  13601.     CMP.W   #'ST',(A6,D6.L) ; Check for 'ST'
  13602.     BNE PLSTNext
  13603.     MOVE.L  D6,(A4)+
  13604.     MOVE.W  A5,TextOffset
  13605.     MOVE.W  #19,TextLength
  13606.     LEA (A6,D6.L),A3
  13607.     ADDQ.L  #3,A3
  13608.     MOVE.L  A3,ShowTextPtr
  13609.     MOVEM.L D0-D7/A0-A6,-(SP)
  13610.     BSR SpaceShowText
  13611.     MOVEM.L (SP)+,D0-D7/A0-A6
  13612.     MOVE.W  22(A6,D6.L),WordNumber
  13613.     MOVE.W  WordNumber,D0
  13614.     LSL.W   #1,D0
  13615.     MOVE.W  D0,WordNumber
  13616.     MOVEM.L D0-D7/A0-A6,-(SP)
  13617.     BSR PrintHexWord
  13618.     MOVEM.L (SP)+,D0-D7/A0-A6
  13619.     ADD.L   #30,D6
  13620.     CMP.L   MaxPLSTOffset(PC),D6
  13621.     BHI EndOfPLST
  13622.     ADD.W   #240,A5 ; Next Screen position
  13623.     DBRA    D7,dtplstloop
  13624.     RTS
  13625.  
  13626. PLSTNext
  13627.     ADD.L   #30,D6
  13628.     CMP.L   MaxPLSTOffset(PC),D6
  13629.     BHI EndOfPLST
  13630.     BRA dtplstloop
  13631.  
  13632. EndOfPLST
  13633.     MOVE.L  #$FFFFFFFF,(A4)+
  13634.     MOVE.W  A5,TextOffset
  13635.     MOVE.W  #23,TextLength
  13636.     MOVE.L  #EmptyLineText,ShowTextPtr
  13637.     MOVEM.L D0-D7/A0-A6,-(SP)
  13638.     BSR SpaceShowText
  13639.     MOVEM.L (SP)+,D0-D7/A0-A6
  13640.     ADD.W   #240,A5
  13641.     DBRA    D7,EndOfPLST
  13642.     RTS
  13643.  
  13644. TypeInDisk1
  13645.     LEA STText1Number(PC),A6
  13646.     MOVE.W  #156,LineCurX
  13647.     BRA DoTypeInDisk
  13648.  
  13649. TypeInDisk2
  13650.     LEA STText2Number(PC),A6
  13651.     MOVE.W  #204,LineCurX
  13652.     BRA DoTypeInDisk
  13653.  
  13654. TypeInDisk3
  13655.     LEA STText3Number(PC),A6
  13656.     MOVE.W  #252,LineCurX
  13657. DoTypeInDisk
  13658.     CLR.B   (A6)
  13659.     CLR.B   1(A6)
  13660.     JSR StorePtrCol
  13661.     JSR SetWaitPtrCol
  13662.     BSR ShowDiskNames
  13663.     MOVE.W  #20,LineCurY
  13664.     BSR UpdateLineCurPos
  13665.     BSR GetHexKey
  13666.     TST.B   RawKeyCode
  13667.     BNE ClearDiskNum
  13668.     BTST    #2,$DFF016
  13669.     BEQ ClearDiskNum
  13670.     ADD.W   D1,D1
  13671.     LEA FastHexTable+1(PC),A0
  13672.     MOVE.B  (A0,D1.W),(A6)
  13673.     ADDQ.W  #8,LineCurX
  13674.     BSR ShowDiskNames
  13675.     BSR UpdateLineCurPos
  13676.     BSR GetHexKey
  13677.     TST.B   RawKeyCode
  13678.     BNE ClearDiskNum
  13679.     BTST    #2,$DFF016
  13680.     BEQ ClearDiskNum
  13681.     ADD.W   D1,D1
  13682.     LEA FastHexTable+1(PC),A0
  13683.     MOVE.B  (A0,D1.W),1(A6)
  13684.     JSR RestorePtrCol
  13685.     BSR PLSTCheckNum
  13686.     BSR RedrawPLST
  13687.     CLR.W   LineCurX
  13688.     MOVE.W  #270,LineCurY
  13689.     BRA UpdateLineCurPos
  13690.  
  13691. ClearAllDisks
  13692.     BSR DoClearDisks
  13693.     BSR PLSTCheckNum
  13694.     BRA RedrawPLST
  13695.  
  13696. DoClearDisks
  13697.     MOVEQ   #0,D0
  13698.     MOVE.B  D0,STText1Number
  13699.     MOVE.B  D0,STText1Number+1
  13700.     MOVE.B  D0,STText2Number
  13701.     MOVE.B  D0,STText2Number+1
  13702.     MOVE.B  D0,STText3Number
  13703.     MOVE.B  D0,STText3Number+1
  13704.     RTS
  13705.  
  13706. MountList
  13707.     JSR StorePtrCol
  13708.     JSR SetDiskPtrCol
  13709.     BSR DoClearDisks
  13710.     MOVE.W  #1,MountFlag
  13711.     LEA df0text(PC),A4
  13712.     BSR DoMountList
  13713.     LEA STText1(PC),A0
  13714.     BSR CheckMountName
  13715.     LEA df1text(PC),A4
  13716.     BSR DoMountList
  13717.     LEA STText2(PC),A0
  13718.     BSR CheckMountName
  13719.     LEA df2text(PC),A4
  13720.     BSR DoMountList
  13721.     LEA STText3(PC),A0
  13722.     BSR CheckMountName
  13723.     CLR.W   MountFlag
  13724.     JSR RestorePtrCol
  13725.     BRA cdisknum2
  13726.  
  13727. DoMountList
  13728.     CLR.L   FIB_Filename
  13729.     CLR.L   FIB_Filename+4
  13730.     CLR.L   FIB_Filename+8
  13731.     MOVE.L  DOSBase(PC),A6
  13732.     MOVE.L  A4,D1
  13733.     MOVEQ   #-2,D2
  13734.     JSR LVOLock(A6)
  13735.     MOVE.L  D0,FileLock
  13736.     BEQ MountError
  13737.     MOVE.L  FileLock(PC),D1
  13738.     MOVE.L  #FileInfoBlock,D2
  13739.     JSR LVOExamine(A6)
  13740.     TST.L   D0
  13741.     BEQ MountError
  13742.     MOVE.L  FileLock(PC),D1
  13743.     JSR LVOUnLock(A6)
  13744. MountError
  13745.     MOVEQ   #-1,D0
  13746.     RTS
  13747.  
  13748. CheckMountName
  13749.     MOVE.W  FIB_Filename,D0
  13750.     BEQ MountError
  13751.     MOVE.W  #'ST',D1    ; Check for ST
  13752.     AND.W   #$1F1F,D0
  13753.     AND.W   #$1F1F,D1
  13754.     CMP.W   D0,D1
  13755.     BNE ClearDiskNum
  13756.     MOVE.B  FIB_Filename+3,D0
  13757.     LSL.W   #8,D0
  13758.     MOVE.B  FIB_Filename+4,D0
  13759.     CMP.W   #'00',D0
  13760.     BEQ ClearDiskNum
  13761.     MOVE.B  D0,4(A0)    ; Put disk number into ST-xx
  13762.     LSR.W   #8,D0
  13763.     MOVE.B  D0,3(A0)
  13764.     MOVEQ   #0,D0
  13765.     RTS
  13766.  
  13767. ClearDiskNum
  13768.     CLR.B   RawKeyCode
  13769.     JSR RestorePtrCol
  13770.     CLR.B   (A6)
  13771.     CLR.B   1(A6)
  13772.     CLR.W   LineCurX
  13773.     MOVE.W  #270,LineCurY
  13774.     BSR UpdateLineCurPos
  13775. cdisknum2
  13776.     BSR PLSTCheckNum
  13777.     BRA RedrawPLST
  13778.  
  13779. df0text dc.b 'DF0:',0,0
  13780. df1text dc.b 'DF1:',0,0
  13781. df2text dc.b 'DF2:',0,0
  13782.  
  13783. CheckPLSTGadgs
  13784.     MOVEM.W MouseX2(PC),D0/D1
  13785.     CMP.W   #120,D0
  13786.     BLO cplstend
  13787.     CMP.W   #23,D1
  13788.     BHS PLSTPressed
  13789.     CMP.W   #12,D1
  13790.     BHS PLSTLine2
  13791. PLSTLine1
  13792.     CMP.W   #268,D0
  13793.     BHS ExitPLST
  13794.     CMP.W   #168,D0
  13795.     BHS cplstend
  13796.     CMP.W   #120,D0
  13797.     BHS ClearAllDisks
  13798.     RTS
  13799.  
  13800. PLSTLine2
  13801.     CMP.W   #268,D0
  13802.     BHS MountList
  13803.     CMP.W   #218,D0
  13804.     BHS TypeInDisk3
  13805.     CMP.W   #168,D0
  13806.     BHS TypeInDisk2
  13807.     BRA TypeInDisk1
  13808. cplstend
  13809.     RTS
  13810.  
  13811. ExitPLST
  13812.     JSR WaitForButtonUp
  13813.     CLR.B   RawKeyCode
  13814.     JSR ClearRightArea
  13815.     JMP DisplayMainScreen
  13816.  
  13817. PLSTOneUp
  13818.     TST.W   PresetMarkTotal
  13819.     BEQ Return2
  13820.     BTST    #6,$BFE001
  13821.     BEQ PLST_rts
  13822.     MOVE.W  PLSTpos,D0
  13823.     MOVE.W  D0,D2
  13824.     SUBQ.W  #1,D0
  13825.     TST.W   ShiftKeyStatus
  13826.     BNE.S   pouski2
  13827.     BTST    #2,$DFF016
  13828.     BNE pouskip
  13829. pouski2 SUB.W   #9,D0
  13830. pouskip TST.W   D0
  13831.     BPL DoPLSTUpDown
  13832.     CLR.W   D0
  13833.     BRA DoPLSTUpDown
  13834.  
  13835. PLSTOneDown
  13836.     TST.W   PresetMarkTotal
  13837.     BEQ Return2
  13838.     BTST    #6,$BFE001
  13839.     BEQ PLST_rts
  13840.     MOVE.W  PLSTpos(PC),D0
  13841.     MOVE.W  D0,D2
  13842.     ADDQ.W  #1,D0
  13843.     TST.W   ShiftKeyStatus
  13844.     BNE.S   podski2
  13845.     BTST    #2,$DFF016
  13846.     BNE podskip
  13847. podski2 ADD.W   #9,D0
  13848. podskip MOVE.W  PresetMarkTotal(PC),D1
  13849.     SUB.W   #12,D1
  13850.     CMP.W   D0,D1
  13851.     BHS DoPLSTUpDown
  13852.     MOVE.W  D1,D0
  13853. DoPLSTUpDown
  13854.     BSR UpdateOffset
  13855.     BRA RedrawPLST
  13856.  
  13857. UpdateOffset
  13858.     MOVE.W  PLSTpos(PC),D1
  13859.     MOVE.W  D0,PLSTpos
  13860.     CMP.W   D0,D1
  13861.     BEQ Return2
  13862.     TST.W   D0
  13863.     BEQ ZeroPLSTOffset
  13864.     SUBQ.W  #1,D0
  13865.     MOVE.L  PLSTmem(PC),A0
  13866.     MOVEQ   #0,D6
  13867. cpoloop CMP.W   #'ST',(A0,D6.L) ; Check for 'ST'
  13868.     BEQ NextPLSTOffset
  13869.     ADD.L   #30,D6
  13870.     BRA cpoloop
  13871. NextPLSTOffset
  13872.     ADD.L   #30,D6
  13873.     DBRA    D0,cpoloop
  13874.     MOVE.L  D6,PLSTOffset
  13875.     RTS
  13876.  
  13877. ZeroPLSTOffset
  13878.     CLR.L   PLSTOffset
  13879.     RTS
  13880.  
  13881. PLSTPressed
  13882.     CMP.W   #24,D1
  13883.     BLO Return2
  13884.     CMP.W   #95,D1
  13885.     BHI Return2
  13886.     SUB.W   #24,D1
  13887.     AND.L   #$0000FFFF,D1
  13888.     DIVU    #6,D1
  13889.     LSL.W   #2,D1
  13890.     LEA PLSTOffset(PC),A0
  13891.     MOVE.L  (A0,D1.W),D1
  13892.     BMI Return2
  13893.     DIVU    #30,D1
  13894.     ADDQ.W  #1,D1
  13895.     MOVE.W  D1,CurrentPreset
  13896.     JSR WaitForButtonUp
  13897.     BRA UsePreset
  13898.  
  13899. ;---- Preset Editor/PED ----
  13900.  
  13901. PresetEditor
  13902.     JSR WaitForButtonUp
  13903.     MOVE.W  #4,CurrScreen
  13904.     ST  DisableAnalyzer
  13905.     ST  NoSampleInfo
  13906.     BSR SwapPresEdScreen
  13907.     BEQ pedexi2
  13908. PED_Refresh
  13909.     CLR.W   PED_Action
  13910.     MOVE.L  TextBplPtr(PC),A0
  13911.     MOVE.W  #1219,D0
  13912. pedloop CLR.L   (A0)+
  13913.     DBRA    D0,pedloop
  13914.     JSR SetNormalPtrCol
  13915.     JSR ClearAnalyzerColors
  13916.     BSR ShowPEDnumbers
  13917.     BRA ShowPresetNames
  13918.  
  13919. SwapPresEdScreen
  13920.     MOVE.L  DecompMemPtr,D0
  13921.     BEQ speds2
  13922.     MOVE.L  D0,A1
  13923.     BSR speds3
  13924.     BRA FreeDecompMem
  13925. speds2  LEA PresetEdData,A0
  13926.     MOVE.L  #PresetEdSize,D0
  13927.     BSR Decompact
  13928.     BEQ Return2
  13929. speds3  LEA BitplaneData,A0
  13930.     MOVEQ   #1,D2
  13931. spesloop1
  13932.     MOVE.W  #1219,D0
  13933. spesloop2
  13934.     MOVE.L  (A0),D1
  13935.     MOVE.L  (A1),(A0)+
  13936.     MOVE.L  D1,(A1)+
  13937.     DBRA    D0,spesloop2
  13938.     LEA $14F0(A0),A0
  13939.     DBRA    D2,spesloop1
  13940.     MOVEQ   #-1,D0
  13941.     RTS
  13942.  
  13943. CheckPresEdGadgs
  13944.     MOVEM.W MouseX2(PC),D0/D1
  13945.     CMP.W   #45,D1
  13946.     BHS CheckPEDnames
  13947.     CLR.W   PED_Action
  13948.     JSR SetNormalPtrCol
  13949.     CMP.W   #307,D0
  13950.     BHS PED_GotoPLST
  13951. PED_Menu1
  13952.     CMP.W   #101,D0
  13953.     BHS PED_Menu2
  13954.     CMP.W   #34,D1
  13955.     BHS PED_DeleteDisk
  13956.     CMP.W   #23,D1
  13957.     BHS PED_Delete
  13958.     CMP.W   #12,D1
  13959.     BHS PED_Insert
  13960.     BRA PED_AddPathGadg
  13961.  
  13962. PED_Menu2  
  13963.     CMP.W   #209,D0
  13964.     BHS PED_Menu3
  13965.     CMP.W   #34,D1
  13966.     BHS PED_ClearPLST
  13967.     CMP.W   #23,D1
  13968.     BHS Return2
  13969.     CMP.W   #12,D1
  13970.     BHS PED_Disk
  13971.     BRA PED_EnterPath
  13972.  
  13973. PED_Menu3  
  13974.     CMP.W   #34,D1
  13975.     BHS PED_Print
  13976.     CMP.W   #23,D1
  13977.     BHS WritePLST
  13978.     CMP.W   #12,D1
  13979.     BHS.S   xLoadPLST
  13980.     BRA PED_EnterPath
  13981.  
  13982. xLoadPLST
  13983.     BSR LoadPLST
  13984.     MOVE.W  #1,PEDPos
  13985.     BRA PED_Refresh
  13986.  
  13987. PED_GotoPLST
  13988.     BSR PED_Exit
  13989.     BRA PLST
  13990.  
  13991. PED_Exit
  13992.     JSR WaitForButtonUp
  13993.     BSR PLSTCheckNum
  13994.     BSR SwapPresEdScreen
  13995.     MOVE.L  TextBplPtr(PC),A0
  13996.     MOVE.W  #1219,D0
  13997. pedeloop    CLR.L   (A0)+
  13998.     DBRA    D0,pedeloop
  13999.     CLR.B   RawKeyCode
  14000. pedexi2 JSR ClearAnalyzerColors
  14001.     JMP DisplayMainAll
  14002.  
  14003. PED_AddPathGadg
  14004.     TST.L   PLSTmem
  14005.     BNE pedawok
  14006.     BSR AllocPLST
  14007.     TST.L   PLSTmem
  14008.     BEQ PLSTMemErr
  14009. pedawok MOVE.L  DOSbase(PC),A6
  14010.     MOVE.L  #PEdDefaultPath,D1
  14011.     MOVEQ   #-2,D2
  14012.     JSR LVOLock(A6)
  14013.     MOVE.L  D0,FileLock
  14014.     BEQ UnlockReadPath
  14015.     JSR SetDiskPtrCol
  14016.     LEA AddingPathText(PC),A0
  14017.     BSR ShowStatusText
  14018.     MOVE.L  DOSbase(PC),A6
  14019.     MOVE.L  FileLock(PC),D1
  14020.     MOVE.L  #FileInfoBlock,D2
  14021.     JSR LVOExamine(A6)
  14022.     TST.L   D0
  14023.     BPL UnlockReadPath
  14024.     TST.L   FIB_EntryType
  14025.     BPL CheckPathDirName
  14026.     BSR AddPreset
  14027.     BRA IsPLSTfull
  14028.  
  14029. CheckPathDirName
  14030.     CMP.B   #'-',FIB_FileName+2
  14031.     BNE IsPLSTfull
  14032.     MOVE.B  FIB_FileName+3,SndDiskNum0
  14033.     MOVE.B  FIB_FileName+4,SndDiskNum1
  14034.     BSR ShowPEDnumbers
  14035. IsPLSTfull
  14036.     MOVE.W  PresetTotal(PC),D0
  14037.     CMP.W   MaxPLSTEntries,D0
  14038.     BLO ReadPathNext
  14039.     BSR PLSTisFull
  14040.     BRA ReadPathEnd
  14041.  
  14042. ReadPathNext
  14043.     MOVE.L  DOSbase,A6
  14044.     MOVE.L  FileLock(PC),D1
  14045.     MOVE.L  #FileInfoBlock,D2
  14046.     JSR LVOExNext(A6)
  14047.     TST.L   D0
  14048.     BPL ReadPathEnd
  14049.     BTST    #2,$DFF016
  14050.     BEQ ReadPathEnd
  14051.     TST.L   FIB_EntryType
  14052.     BPL IsPLSTfull
  14053.     CMP.L   #'.inf',FIB_FileName
  14054.     BEQ IsPLSTfull
  14055.     CMP.L   #'.inf',FIB_FileName+4
  14056.     BEQ IsPLSTfull
  14057.     LEA FIB_FileName,A0
  14058.     MOVEQ   #28,D0
  14059. repalop CMP.B   #'.',(A0)+
  14060.     BEQ CouldBeInfo
  14061.     DBRA    D0,repalop
  14062. rpnskip CLR.W   PresetRepeat
  14063.     MOVE.W  #1,PresetReplen
  14064.     TST.B   IFFLoopFlag ; name is ok, test for IFF
  14065.     BEQ rpnskp2
  14066.     LEA PEDDefaultPath,A0
  14067.     JSR CopyPath
  14068.     LEA FIB_FileName,A0
  14069. rpncpfn MOVE.B  (A0)+,(A1)+
  14070.     BNE.S   rpncpfn
  14071.     MOVE.L  #FileName,D1
  14072.     MOVE.L  #1005,D2
  14073.     MOVE.L  DOSbase(PC),A6
  14074.     JSR LVOOpen(A6)
  14075.     MOVE.L  D0,FileHandle
  14076.     BEQ.S   rpnskp2
  14077.     MOVE.L  D0,D1
  14078.     LEA chkiffbuffer(PC),A2
  14079.     CLR.L   (A2)
  14080.     MOVE.L  A2,D2
  14081.     MOVEQ   #12,D3
  14082.     JSR LVORead(A6)
  14083.     CMP.L   #"FORM",(A2)
  14084.     BNE.S   rpnclse
  14085.     CMP.L   #"8SVX",8(A2)
  14086.     BNE.S   rpnclse
  14087. rpnvhdr MOVE.L  FileHandle(PC),D1
  14088.     MOVE.L  A2,D2
  14089.     MOVEQ   #4,D3
  14090.     JSR LVORead(A6)
  14091.     TST.L   D0
  14092.     BEQ.S   rpnclse
  14093.     CMP.L   #"VHDR",(A2)
  14094.     BNE.S   rpnvhdr
  14095.     MOVE.L  FileHandle(PC),D1
  14096.     MOVE.L  A2,D2
  14097.     MOVEQ   #12,D3
  14098.     JSR LVORead(A6)
  14099.     MOVE.L  8(A2),D0
  14100.     BEQ.S   rpnclse
  14101.     LSR.W   #1,D0
  14102.     MOVE.W  D0,PresetReplen
  14103.     MOVE.L  4(A2),D0
  14104.     LSR.W   #1,D0
  14105.     MOVE.W  D0,PresetRepeat
  14106. rpnclse MOVE.L  FileHandle(PC),D1
  14107.     JSR LVOClose(A6)
  14108. rpnskp2 BSR AddPreset
  14109.     BSR ShowPEDnumbers
  14110.     BRA IsPLSTfull
  14111.  
  14112. chkiffbuffer
  14113.     dc.l    0,0,0
  14114.  
  14115. CouldBeInfo
  14116.     CMP.B   #'i',(A0)+
  14117.     BNE rpnskip
  14118.     CMP.B   #'n',(A0)+
  14119.     BNE rpnskip
  14120.     CMP.B   #'f',(A0)+
  14121.     BNE rpnskip
  14122.     CMP.B   #'o',(A0)+
  14123.     BNE rpnskip
  14124.     CMP.B   #0,(A0)+
  14125.     BNE rpnskip
  14126.     BRA IsPLSTFull
  14127.  
  14128.  
  14129. ReadPathEnd
  14130.     MOVE.L  DOSbase(PC),A6
  14131.     MOVE.L  FileLock(PC),D1
  14132.     BEQ rpeskip
  14133.     JSR LVOUnLock(A6)
  14134. rpeskip JSR SetNormalPtrCol
  14135.     BSR ShowPresetNames
  14136.     BRA ShowAllRight
  14137.  
  14138. UnlockReadPath
  14139.     MOVE.L  DOSbase(PC),A6
  14140.     MOVE.L  FileLock(PC),D1
  14141.     BEQ urpend
  14142.     JSR LVOUnLock(A6)
  14143. urpend  JMP SetErrorPtrCol
  14144.  
  14145. AddPreset
  14146.     LEA PEdDefaultVol(PC),A0
  14147.     LEA PresetName(PC),A1
  14148.     MOVEQ   #5,D0   ; Disk; ST-XX...
  14149. aploop  MOVE.B  (A0)+,(A1)+
  14150.     DBRA    D0,aploop
  14151.     LEA FIB_FileName,A0
  14152.     MOVEQ   #14,D0  ; Name; 16 letters.
  14153. aploop2 MOVE.B  (A0)+,(A1)+
  14154.     BNE apskip
  14155.     SUBQ.L  #1,A0
  14156. apskip  DBRA    D0,aploop2
  14157.     CLR.B   (A1)
  14158.     MOVE.L  FIB_FileSize,D0
  14159.     CMP.L   #$FFFE,D0
  14160.     BLS.S   apskip2
  14161.     MOVE.W  #$FFFE,D0
  14162. apskip2 LSR.W   #1,D0
  14163.     MOVE.W  D0,PresetLength
  14164.     CLR.W   PresetFineTune
  14165.     LEA PresetName(PC),A6
  14166.     BSR PED_CheckAdd
  14167.     ADDQ.W  #1,PresetTotal
  14168.     ADD.L   #30,MaxPLSTOffset
  14169.     RTS
  14170.  
  14171. PED_Insert
  14172.     TST.L   PLSTmem
  14173.     BNE pediwok
  14174.     BSR AllocPLST
  14175.     TST.L   PLSTmem
  14176.     BEQ PLSTMemErr
  14177. pediwok MOVE.W  PresetTotal(PC),D0
  14178.     CMP.W   MaxPLSTEntries2,D0
  14179.     BHS PLSTisFull
  14180.     LEA InsertPsetText(PC),A0
  14181.     LEA PresetName(PC),A1
  14182.     MOVEQ   #39,D0
  14183. pediloop
  14184.     MOVE.B  (A0)+,(A1)+
  14185.     DBRA    D0,pediloop
  14186. PossibleEdit
  14187.     JSR StorePtrCol
  14188.     JSR SetWaitPtrCol
  14189.     MOVE.L  TextBplPtr(PC),A0
  14190.     LEA 2320(A0),A0
  14191.     MOVEQ   #59,D0
  14192. pediloop2
  14193.     CLR.L   (A0)+
  14194.     DBRA    D0,pediloop2
  14195.     LEA EnterDataText(PC),A0
  14196.     BSR ShowStatusText
  14197.     MOVE.W  #63,LineCurY
  14198.     LEA PresetName(PC),A6
  14199.     MOVEQ   #3,D7
  14200.     MOVE.B  #4,EnterTextFlag
  14201. ShowPsetText
  14202.     LEA PresetName+3(PC),A0
  14203.     MOVEQ   #37,D0
  14204.     MOVE.W  #2321,D1
  14205.     BSR ShowText3
  14206.     MOVE.W  D7,D0
  14207.     SUBQ.W  #3,D0
  14208.     ASL.W   #3,D0
  14209.     ADD.W   #12,D0
  14210.     MOVE.W  D0,LineCurX
  14211.     BSR UpdateLineCurPos
  14212. pediwaitkey
  14213.     JSR DoKeyBuffer
  14214.     MOVE.B  RawKeyCode(PC),D0
  14215.     BEQ pediwaitkey
  14216.     CLR.B   RawKeyCode
  14217.     BTST    #7,D0
  14218.     BNE pediwaitkey
  14219.     AND.W   #$FF,D0
  14220.     CMP.B   #69,D0
  14221.     BEQ PED_ESCkey
  14222.     CMP.B   #65,D0
  14223.     BEQ PED_BkspaceKey
  14224.     CMP.B   #68,D0
  14225.     BEQ PED_ReturnKey
  14226.     CMP.B   #79,D0
  14227.     BEQ PED_LeftArrowKey
  14228.     CMP.B   #78,D0
  14229.     BEQ PED_RightArrowKey
  14230.     CMP.B   #64,D0
  14231.     BHI pediwaitkey
  14232.     CMP.W   #40,D7
  14233.     BEQ pediwaitkey
  14234.     CMP.W   #22,D7
  14235.     BEQ pediwaitkey
  14236.     LEA UnshiftedKeymap(PC),A0
  14237.     TST.W   ShiftKeyStatus
  14238.     BEQ ShiftKeySkip
  14239.     LEA ShiftedKeymap(PC),A0
  14240. ShiftKeySkip
  14241.     MOVE.B  0(A0,D0.W),D1
  14242.     BEQ pediwaitkey
  14243.  
  14244.     CMP.W   #6,D7
  14245.     BLO.S   hexchk2
  14246.     CMP.W   #25,D7
  14247.     BLO PED_PrintChar
  14248. hexchk2 CMP.B   #'0',D1
  14249.     BLO pediwaitkey
  14250.     CMP.B   #'f',D1
  14251.     BHI pediwaitkey
  14252.     CMP.B   #'9',D1
  14253.     BLS PED_PrintChar
  14254.     CMP.B   #'a',D1
  14255.     BHS PED_PrintChar
  14256.     BRA pediwaitkey
  14257.  
  14258. PED_PrintChar
  14259.     MOVE.B  D1,(A6,D7.W)
  14260.     BRA PED_RightArrowKey
  14261.  
  14262. PED_ReturnKey
  14263.     CMP.B   #' ',PsetNameText
  14264.     BEQ PED_ESCkey
  14265.     LEA PsetVolText(PC),A0
  14266.     LEA fitutexttab+32(PC),A1
  14267.     MOVE.B  (A0)+,D1
  14268.     LSL.W   #8,D1
  14269.     MOVE.B  (A0),D1
  14270.     MOVEQ   #15,D0
  14271. vofloop CMP.W   -(A1),D1
  14272.     BEQ.S   vofound
  14273.     DBRA    D0,vofloop
  14274.     MOVEQ   #0,D0
  14275. vofound MOVE.W  D0,PresetFineTune
  14276.     LEA PsetLenText(PC),A0
  14277.     BSR HexToInteger
  14278.     LSR.W   #1,D0
  14279.     MOVE.W  D0,PresetLength
  14280.     LEA PsetRepeatText(PC),A0
  14281.     BSR HexToInteger
  14282.     LSR.W   #1,D0
  14283.     MOVE.W  D0,PresetRepeat
  14284.     LEA PsetReplenText(PC),A0
  14285.     BSR HexToInteger
  14286.     LSR.W   #1,D0
  14287.     MOVE.W  D0,PresetReplen
  14288.     BSR PED_CheckAdd
  14289.     ADDQ.W  #1,PresetTotal
  14290. PED_ESCkey
  14291.     CLR.W   LineCurX
  14292.     MOVE.W  #270,LineCurY
  14293.     BSR UpdateLineCurPos
  14294.     BSR ShowPresetNames
  14295.     BSR ShowPEDnumbers
  14296.     BSR ShowAllRight
  14297.     CLR.B   EnterTextFlag
  14298.     JMP RestorePtrCol
  14299.  
  14300. PED_BkspaceKey
  14301.     CMP.W   #23,D7
  14302.     BHS pedbsend
  14303.     CMP.W   #6,D7
  14304.     BLS pedbsend
  14305.     SUBQ.W  #1,D7
  14306.     MOVE.B  #' ',(A6,D7.W)
  14307. pedbsend
  14308.     BRA ShowPsetText
  14309.  
  14310. PED_LeftArrowKey
  14311.     SUBQ.W  #1,D7
  14312.     CMP.W   #2,D7
  14313.     BLS pedlakskip2
  14314.     CMP.W   #5,D7
  14315.     BEQ pedlakskip
  14316.     CMP.W   #22,D7
  14317.     BEQ pedlakskip
  14318.     CMP.W   #25,D7
  14319.     BEQ pedlakskip
  14320.     CMP.W   #30,D7
  14321.     BEQ pedlakskip
  14322.     CMP.W   #35,D7
  14323.     BEQ pedlakskip
  14324.     BRA ShowPsetText
  14325.  
  14326. pedlakskip
  14327.     SUBQ.W  #1,D7
  14328.     BRA ShowPsetText
  14329.  
  14330. pedlakskip2
  14331.     MOVEQ   #3,D7
  14332.     BRA ShowPsetText
  14333.  
  14334. PED_RightArrowKey
  14335.     ADDQ.W  #1,D7
  14336.     CMP.W   #5,D7
  14337.     BEQ pedrakskip
  14338.     CMP.W   #22,D7
  14339.     BEQ pedrakskip
  14340.     CMP.W   #25,D7
  14341.     BEQ pedrakskip
  14342.     CMP.W   #30,D7
  14343.     BEQ pedrakskip
  14344.     CMP.W   #35,D7
  14345.     BEQ pedrakskip
  14346.     CMP.W   #40,D7
  14347.     BHS pedrakskip2
  14348.     BRA ShowPsetText
  14349.  
  14350. pedrakskip
  14351.     ADDQ.W  #1,D7
  14352.     BRA ShowPsetText
  14353.  
  14354. pedrakskip2
  14355.     MOVEQ   #39,D7
  14356.     BRA ShowPsetText
  14357.  
  14358. PED_CheckAdd
  14359.     MOVEQ   #23,D0
  14360. pedcaloop
  14361.     SUBQ.W  #1,D0
  14362.     CMP.B   #' ',0(A6,D0.W)
  14363.     BEQ pedcaloop
  14364.     CLR.B   1(A6,D0.W)
  14365.     MOVE.L  PLSTmem(PC),A5
  14366.     LEA 30(A5),A5
  14367. pedccnextloop
  14368.     MOVEQ   #6,D0
  14369.     TST.B   6(A5)
  14370.     BEQ PED_AddPreset
  14371. PED_ConvertLoop
  14372.     MOVE.B  0(A5,D0.W),D2
  14373.     BNE PED_ConvertCase
  14374.     TST.B   0(A6,D0.W)
  14375.     BNE PED_ConvertCase
  14376.     CLR.B   6(A5)
  14377.     SUBQ.W  #1,PresetTotal
  14378.     BRA PED_AddPreset
  14379.  
  14380. PED_ConvertCase
  14381.     CMP.B   #'A',D2
  14382.     BLO pedccskip
  14383.     CMP.B   #'Z',D2
  14384.     BHI pedccskip
  14385.     ADD.B   #32,D2
  14386. pedccskip
  14387.     MOVE.B  0(A6,D0.W),D1
  14388.     CMP.B   #' ',D1
  14389.     BEQ pedccskip3
  14390.     CMP.B   #'A',D1
  14391.     BLO pedccskip2
  14392.     CMP.B   #'Z',D1
  14393.     BHI pedccskip2
  14394.     ADD.B   #32,D1
  14395. pedccskip2
  14396.     CMP.B   D2,D1
  14397.     BEQ pedccnext
  14398.     BHI pedccskip3
  14399.     BRA PED_AddPreset
  14400.  
  14401. pedccnext
  14402.     ADDQ.W  #1,D0
  14403.     CMP.W   #22,D0
  14404.     BNE PED_ConvertLoop
  14405. pedccskip3
  14406.     LEA 30(A5),A5
  14407.     BRA pedccnextloop
  14408.  
  14409. PED_AddPreset   TST.B   6(A5)
  14410.     BEQ pedapskip
  14411.     MOVE.L  PLSTmem(PC),A1
  14412.     MOVE.W  PresetTotal(PC),D0
  14413.     CMP.W   #1,D0
  14414.     BEQ pedapskip
  14415.     MULU    #30,D0
  14416.     ADD.L   D0,A1
  14417.     LEA 30(A1),A1
  14418.     CLR.B   31(A1)
  14419. pedaploop
  14420.     MOVE.W  (A1),30(A1)
  14421.     SUBQ.L  #2,A1
  14422.     CMP.L   A1,A5
  14423.     BLS pedaploop
  14424. pedapskip
  14425.     MOVEQ   #21,D0
  14426. pedaploop2
  14427.     MOVE.B  0(A6,D0.W),D1
  14428.     CMP.B   #'A',D1
  14429.     BLO pedapskip2
  14430.     CMP.B   #'Z',D1
  14431.     BHI pedapskip2
  14432.     ADD.B   #32,D1
  14433. pedapskip2
  14434.     CMP.B   #' ',D1
  14435.     BNE pedapskip3
  14436.     MOVEQ   #0,D1
  14437. pedapskip3
  14438.     MOVE.B  D1,0(A5,D0.W)
  14439.     DBRA    D0,pedaploop2
  14440.     MOVE.W  PresetLength(PC),22(A5)
  14441.     MOVE.B  PresetFineTune+1(PC),24(A5)
  14442.     MOVE.B  #$40,25(A5)
  14443.     MOVE.W  PresetRepeat(PC),26(A5)
  14444.     MOVE.W  PresetReplen(PC),28(A5)
  14445.     RTS
  14446.  
  14447. HexToInteger
  14448.     MOVEQ   #0,D0
  14449.     BSR Single_hti
  14450.     LSL.W   #8,D1
  14451.     LSL.W   #4,D1
  14452.     OR.W    D1,D0
  14453.     BSR Single_hti
  14454.     LSL.W   #8,D1
  14455.     OR.W    D1,D0
  14456. HexToInteger2
  14457.     BSR Single_hti
  14458.     LSL.W   #4,D1
  14459.     OR.W    D1,D0
  14460.     BSR Single_hti
  14461.     OR.W    D1,D0
  14462.     RTS
  14463.  
  14464. Single_hti
  14465.     MOVEQ   #0,D1
  14466.     MOVE.B  (A0)+,D1
  14467.     CMP.B   #$60,D1
  14468.     BLO shtiskip
  14469.     SUB.B   #$20,D1
  14470. shtiskip
  14471.     SUB.B   #$30,D1
  14472.     CMP.B   #9,D1
  14473.     BLS Return2
  14474.     SUBQ.B  #7,D1
  14475.     RTS
  14476.  
  14477. PED_Delete
  14478.     JSR SetDeletePtrCol
  14479.     MOVE.W  #1,PED_Action
  14480.     LEA SelectEntryText(PC),A0
  14481.     BRA ShowStatusText
  14482.  
  14483. PED_ClearPLST
  14484.     LEA ClearPLSTText,A0
  14485.     JSR AreYouSure
  14486.     BNE Return2
  14487.     BSR FreePLST
  14488.     BRA PED_Refresh
  14489.  
  14490. ClearPLSTText   dc.b 'clear plst ?',0,0
  14491.  
  14492. PED_Print
  14493.     LEA PrintPLSTText,A0
  14494.     JSR AreYouSure
  14495.     BNE Return2
  14496.     JSR StorePtrCol
  14497.     MOVE.L  DOSbase(PC),A6
  14498.     MOVE.L  #PrintPath,D1
  14499.     MOVE.L  #1006,D2
  14500.     JSR LVOOpen(A6)
  14501.     MOVE.L  D0,FileHandle
  14502.     BEQ CantOpenFile
  14503.     JSR SetDiskPtrCol
  14504.     MOVE.L  D0,D1
  14505.     MOVE.L  #PsetPLSTtext,D2
  14506.     MOVEQ   #56,D3
  14507.     JSR LVOWrite(A6)
  14508.     LEA PrintingPLSTText(PC),A0
  14509.     BSR ShowStatusText
  14510.     CLR.W   PsetNumTemp
  14511. pedpmainloop   
  14512.     MOVE.W  PsetNumTemp(PC),D0
  14513.     LEA PsetPrtNumText(PC),A0
  14514.     BSR IntToDecASCII
  14515.     MOVE.L  PLSTmem(PC),A0
  14516.     MOVE.W  PsetNumTemp(PC),D0
  14517.     MULU    #30,D0
  14518.     ADD.L   D0,A0
  14519.     MOVE.L  A0,PsetPtrTemp
  14520.     LEA PsetPrtNameText(PC),A1
  14521.     MOVE.L  A1,A2
  14522.     MOVEQ   #19,D1
  14523. FillSpaceLoop
  14524.     MOVE.B  #' ',(A2)+
  14525.     DBRA    D1,FillSpaceLoop
  14526.     MOVEQ   #19,D1
  14527. pedploop
  14528.     TST.B   (A0)
  14529.     BEQ pedpskip
  14530.     MOVE.B  (A0)+,(A1)+
  14531.     DBRA    D1,pedploop
  14532. pedpskip
  14533.     MOVE.L  PsetPtrTemp(PC),A1
  14534.     MOVE.W  22(A1),D0
  14535.     LEA PsetPrtLenText(PC),A0
  14536.     BSR IntToHexASCII
  14537.     MOVE.L  PsetPtrTemp(PC),A1
  14538.     MOVE.W  26(A1),D0
  14539.     LEA PsetPrtRepeatText(PC),A0
  14540.     BSR IntToHexASCII
  14541.     MOVE.L  PsetPtrTemp(PC),A1
  14542.     MOVE.W  28(A1),D0
  14543.     ADD.W   D0,D0
  14544.     LEA PsetPrtRepLenText(PC),A0
  14545.     BSR IntToHexASCII
  14546.     MOVE.L  FileHandle(PC),D1
  14547.     MOVE.L  #PsetPrtNumText,D2
  14548.     MOVEQ   #53,D3
  14549.     JSR LVOWrite(A6)
  14550.     BTST    #2,$DFF016
  14551.     BEQ AbortPLSTPrint
  14552.     ADDQ.W  #1,PsetNumTemp
  14553.     MOVE.W  PsetNumTemp(PC),D0
  14554.     CMP.W   PresetTotal(PC),D0
  14555.     BNE pedpmainloop
  14556.     BRA pedpend
  14557.  
  14558. AbortPLSTPrint
  14559.     LEA OprAbortedText(PC),A0
  14560.     BSR ShowStatusText
  14561.     JSR SetErrorPtrCol
  14562. pedpend MOVE.L  FileHandle(PC),D1
  14563.     JSR LVOClose(A6)
  14564.     BSR ShowAllRight
  14565.     JMP RestorePtrCol
  14566.  
  14567. IntToDecASCII
  14568.     MOVEQ   #3,D3
  14569.     MOVE.L  #1000,D2
  14570. itdloop EXT.L   D0
  14571.     DIVU    D2,D0
  14572.     ADD.B   #'0',D0
  14573.     MOVE.B  D0,(A0)+
  14574.     DIVU    #10,D2
  14575.     SWAP    D0
  14576.     DBRA    D3,itdloop
  14577.     RTS
  14578.  
  14579. IntToHex2
  14580.     MOVEQ   #1,D2
  14581.     BRA ithaloop
  14582.  
  14583. IntToHexASCII
  14584.     MOVEQ   #3,D2
  14585. ithaloop
  14586.     MOVE.W  D0,D1
  14587.     AND.B   #15,D1
  14588.     CMP.B   #10,D1
  14589.     BLO ithaskip
  14590.     ADDQ.B  #7,D1
  14591. ithaskip
  14592.     ADD.B   #'0',D1
  14593.     MOVE.B  D1,-(A0)
  14594.     ROR.W   #4,D0
  14595.     DBRA    D2,ithaloop
  14596.     RTS
  14597.  
  14598. WritePLST
  14599.     LEA SavePLSTText,A0
  14600.     JSR AreYouSure
  14601.     BNE Return2
  14602.     JSR StorePtrCol
  14603.     JSR SetDiskPtrCol
  14604.     LEA SavingPLSTText(PC),A0
  14605.     BSR ShowStatusText
  14606.     LEA PTPath,A0
  14607.     JSR CopyPath
  14608.     LEA PLSTName(PC),A0
  14609.     MOVEQ   #4,D0
  14610. dsploop MOVE.B  (A0)+,(A1)+
  14611.     DBRA    D0,dsploop
  14612.     MOVE.L  #FileName,D1
  14613.     MOVE.L  #1006,D2
  14614.     MOVE.L  DOSbase(PC),A6
  14615.     JSR LVOOpen(A6)
  14616.     MOVE.L  D0,D7
  14617.     BEQ CantOpenFile
  14618.     MOVE.L  D0,D1
  14619.     MOVE.L  PLSTmem(PC),D2
  14620.     MOVE.W  PresetTotal(PC),D3
  14621.     MULU    #30,D3
  14622.     JSR LVOWrite(A6)
  14623.     MOVE.L  D7,D1
  14624.     JSR LVOClose(A6)
  14625.     BSR ShowAllRight
  14626.     JMP RestorePtrCol
  14627.  
  14628. CheckPEDnames
  14629.     CMP.W   #307,D0
  14630.     BLO PED_PsetHit
  14631.     CLR.W   PED_Action
  14632.     JSR SetNormalPtrCol
  14633.     CMP.W   #122,D1
  14634.     BHS Return2
  14635.     CMP.W   #111,D1
  14636.     BHS PED_Bottom 
  14637.     CMP.W   #100,D1
  14638.     BHS.S   PED_OneDown
  14639.     CMP.W   #67,D1
  14640.     BHS PED_Exit
  14641.     CMP.W   #56,D1
  14642.     BHS.S   PED_OneUp
  14643.     BRA.S   PED_Top
  14644.  
  14645. PED_OneUp  
  14646.     SUBQ.W  #1,PEDpos
  14647.     TST.W   ShiftKeyStatus
  14648.     BNE.S   poup2
  14649.     BTST    #2,$DFF016
  14650.     BNE.S   pedouskip
  14651. poup2   SUBQ.W  #7,PEDpos
  14652. pedouskip  
  14653.     CMP.W   #1,PEDpos
  14654.     BGE ShowPresetNames
  14655. PED_Top MOVE.W  #1,PEDpos
  14656.     BRA ShowPresetNames
  14657.  
  14658. PED_OneDown
  14659.     CMP.W   #9,PresetTotal
  14660.     BLO ShowPresetNames
  14661.     ADDQ.W  #1,PEDpos
  14662.     TST.W   ShiftKeyStatus
  14663.     BNE.S   podn2
  14664.     BTST    #2,$DFF016
  14665.     BNE.S   pedodskip
  14666. podn2   ADDQ.W  #7,PEDpos
  14667. pedodskip  
  14668.     MOVE.W  PresetTotal,D0
  14669.     SUB.W   #10,D0
  14670.     CMP.W   PEDpos,D0
  14671.     BHS ShowPresetNames
  14672. pedodsx MOVE.W  D0,PEDpos
  14673.     BRA ShowPresetNames
  14674.  
  14675. PED_Bottom
  14676.     MOVE.W  PresetTotal(PC),D0
  14677.     SUB.W   #11,D0
  14678.     BMI.S   PED_Top
  14679.     ADDQ.W  #1,D0
  14680.     BRA.S   pedodsx
  14681.  
  14682. ShowPresetNames
  14683.     MOVE.W  #2321,D6
  14684.     MOVEQ   #9,D7
  14685.     MOVE.L  PLSTmem(PC),D0
  14686.     BEQ Return2
  14687.     MOVE.L  D0,A5
  14688.     MOVE.W  PEDpos(PC),D0
  14689.     MULU    #30,D0
  14690.     ADD.L   D0,A5
  14691. spndploop
  14692.     TST.B   (A5)
  14693.     BEQ Return2
  14694.     LEA PresetNameText,A1
  14695.     MOVEQ   #21,D0
  14696. spnloop MOVE.B  #' ',(A1)+
  14697.     DBRA    D0,spnloop
  14698.     MOVE.L  A5,A0
  14699.     ADDQ.L  #3,A0
  14700.     LEA -22(A1),A1
  14701. spnloop2
  14702.     MOVE.B  (A0)+,D0
  14703.     BEQ.S   DisplayPreset
  14704.     MOVE.B  D0,(A1)+
  14705.     BRA.S   spnloop2
  14706.  
  14707. fitutexttab
  14708.     dc.b " 0+1+2+3+4+5+6+7-8-7-6-5-4-3-2-1"
  14709.  
  14710. DisplayPreset
  14711.     MOVEQ   #19,D0
  14712.     LEA PresetNameText,A0
  14713.     MOVE.W  D6,D1
  14714.     BSR ShowText3
  14715.     ADD.W   #20,D6
  14716.     MOVE.W  D6,TextOffset
  14717.     MOVEQ   #0,D0
  14718.     MOVE.B  24(A5),D0
  14719.     AND.B   #$0F,D0
  14720.     ADD.W   D0,D0
  14721.     LEA fitutexttab(PC,D0.W),A0
  14722.     MOVE.W  #2,TextLength
  14723.     BSR ShowText2
  14724.     MOVE.W  22(A5),D0
  14725.     ADD.W   D0,D0
  14726.     MOVE.W  D0,WordNumber
  14727.     ADDQ.W  #1,TextOffset
  14728.     BSR PrintHexWord
  14729.     MOVE.W  26(A5),D0
  14730.     ADD.W   D0,D0
  14731.     MOVE.W  D0,WordNumber
  14732.     ADDQ.W  #1,TextOffset
  14733.     BSR PrintHexWord
  14734.     MOVE.W  28(A5),D0
  14735.     ADD.W   D0,D0
  14736.     MOVE.W  D0,WordNumber
  14737.     ADDQ.W  #1,TextOffset
  14738.     BSR PrintHexWord
  14739.     ADD.W   #220,D6   ; 218
  14740.     LEA 30(A5),A5
  14741.     DBRA    D7,spndploop
  14742.     RTS
  14743.  
  14744. PED_EnterPath
  14745.     JSR StorePtrCol
  14746.     JSR SetWaitPtrCol
  14747.     CLR.L   EditMode
  14748.     LEA PEdDefaultPath(PC),A6
  14749.     BSR UpdateLineCurPos
  14750.     MOVE.L  A6,TextEndPtr
  14751.     MOVE.L  A6,ShowTextPtr
  14752.     ADD.L   #31,TextEndPtr
  14753.     MOVE.W  #20,TextLength
  14754.     MOVE.L  #178,A4
  14755.     BSR GetTextLine
  14756.     CLR.L   TextEndPtr
  14757.     JMP RestorePtrCol
  14758.  
  14759. PED_Disk
  14760.     JSR StorePtrCol
  14761.     JSR SetWaitPtrCol
  14762.     CLR.L   EditMode
  14763.     CLR.B   SndDiskNum0
  14764.     CLR.B   SndDiskNum1
  14765.     LEA SndDiskNum0(PC),A6
  14766.     MOVE.L  A6,TextEndPtr
  14767.     MOVE.L  A6,ShowTextPtr
  14768.     ADDQ.L  #2,TextEndPtr
  14769.     MOVE.W  #2,TextLength
  14770.     MOVE.L  #621,A4
  14771.     MOVE.B  #3,EnterTextFlag
  14772.     BSR GetTextLine
  14773.     LEA SndDiskNum0(PC),A6
  14774.     MOVE.B  #':',2(A6)
  14775.     CLR.B   EnterTextFlag
  14776.     CLR.L   TextEndPtr
  14777.     JMP RestorePtrCol
  14778.  
  14779. ShowPEDnumbers
  14780.     MOVE.W  PresetTotal,WordNumber
  14781.     MOVE.W  #1061,TextOffset
  14782.     BSR Print4DecDigits
  14783.     LEA PEdDefaultPath,A0
  14784.     MOVE.W  #178,D1
  14785.     MOVEQ   #20,D0
  14786.     BSR ShowText3
  14787.     LEA PEdDefaultVol,A0
  14788.     MOVE.W  #618,D1
  14789.     MOVEQ   #6,D0
  14790.     BRA ShowText3
  14791.  
  14792. PED_PsetHit
  14793.     CMP.W   #1,PresetTotal
  14794.     BEQ.S   pedphend
  14795.     MOVE.W  MouseY2(PC),D0
  14796.     CMP.W   #59,D0
  14797.     BLO.S   pedphend
  14798.     CMP.W   #119,D0
  14799.     BHS.S   pedphend
  14800.     SUB.W   #59,D0
  14801.     DIVU    #6,D0
  14802.     MOVE.L  D0,D1
  14803.     SWAP    D1
  14804.     CMP.W   #5,D1
  14805.     BEQ.S   pedphend
  14806.     MOVE.W  D0,D2
  14807.     ADD.W   PEDpos(PC),D2
  14808.     CMP.W   PresetTotal(PC),D2
  14809.     BHI.S   pedphend
  14810.     MULU    #30,D0
  14811.     MOVE.L  PLSTmem(PC),A5
  14812.     ADD.L   D0,A5
  14813.     MOVE.W  PEDpos(PC),D0
  14814.     MULU    #30,D0
  14815.     ADD.L   D0,A5
  14816.     TST.W   PED_Action
  14817.     BEQ.S   PED_CopyName
  14818.     CMP.W   #1,PED_Action
  14819.     BEQ PED_DoDelete
  14820. pedphend
  14821.     RTS
  14822.  
  14823. PED_CopyName
  14824.     LEA PresetName(PC),A0
  14825.     MOVEQ   #21,D0
  14826. pedcnloop
  14827.     MOVE.B  (A5)+,D1
  14828.     BNE pedcnskip
  14829.     MOVE.B  #' ',D1
  14830. pedcnskip
  14831.     MOVE.B  D1,(A0)+
  14832.     DBRA    D0,pedcnloop
  14833.     MOVEQ   #0,D0
  14834.     MOVE.B  2(A5),D0
  14835.     AND.B   #$0F,D0
  14836.     ADD.W   D0,D0
  14837.     LEA fitutexttab(PC),A1
  14838.     LEA (A1,D0.W),A1
  14839.     LEA PsetVolText(PC),A0
  14840.     MOVE.B  #' ',-1(A0)
  14841.     MOVE.B  (A1)+,(A0)+
  14842.     MOVE.B  (A1),(A0)
  14843.     MOVE.W  (A5),D0
  14844.     ADD.W   D0,D0
  14845.     LEA 6(A0),A0
  14846.     BSR IntToHexASCII
  14847.     MOVE.W  4(A5),D0
  14848.     ADD.W   D0,D0
  14849.     LEA 9(A0),A0
  14850.     BSR IntToHexASCII
  14851.     LEA 9(A0),A0
  14852.     MOVE.W  6(A5),D0
  14853.     ADD.W   D0,D0
  14854.     BSR IntToHexASCII
  14855.     BRA PossibleEdit
  14856.  
  14857. PED_DoDelete
  14858.     CLR.W   PED_Action
  14859.     LEA DeletePresetText,A0
  14860.     JSR AreYouSure
  14861.     BNE Return2
  14862.     MOVE.L  PLSTmem(PC),A1
  14863.     MOVE.W  PresetTotal(PC),D0
  14864.     MULU    #30,D0
  14865.     ADD.L   D0,A1
  14866. pedddloop
  14867.     MOVE.W  30(A5),(A5)
  14868.     ADDQ.L  #2,A5
  14869.     CMP.L   A5,A1
  14870.     BHI.S   pedddloop
  14871.     CLR.B   (A5)
  14872.     SUBQ.W  #1,PresetTotal
  14873.     SUB.L   #30,MaxPLSTOffset
  14874.     MOVE.W  PEDpos(PC),D0
  14875.     ADD.W   #9,D0
  14876.     CMP.W   PresetTotal(PC),D0
  14877.     BHI.S   pedddskip
  14878.     SUBQ.W  #1,PEDpos
  14879. pedddskip  
  14880.     BSR ShowPEDnumbers
  14881.     BSR ShowPresetNames
  14882.     JSR SetNormalPtrCol
  14883.     JMP StorePtrCol
  14884.  
  14885. sepc    JMP SetErrorPtrCol
  14886.  
  14887. PLSTisFull
  14888.     LEA PLSTFullText(PC),A0
  14889.     BSR ShowStatusText
  14890.     JMP SetErrorPtrCol
  14891.  
  14892. PED_DeleteDisk
  14893.     LEA DelDiskText(PC),A0
  14894.     MOVE.B  snddisknum0(PC),10(A0)
  14895.     MOVE.B  snddisknum1(PC),11(A0)
  14896.     JSR AreYouSure
  14897.     BNE Return2
  14898.     JSR StorePtrCol
  14899.     JSR SetWaitPtrCol
  14900.     MOVE.L  PLSTmem(PC),A0
  14901.     MOVE.L  A0,A1
  14902.     MOVE.W  PresetTotal(PC),D0
  14903.     MULU    #30,D0
  14904.     ADD.L   D0,A1
  14905.     MOVE.L  snddisknum0-1(PC),D1
  14906.     MOVE.L  #$FF5F5FFF,D2
  14907.     AND.L   D2,D1
  14908. peddslo MOVE.L  2(A0),D0
  14909.     AND.L   D2,D0
  14910.     CMP.L   D1,D0
  14911.     BNE.S   peddsno
  14912.     MOVE.L  A0,A2
  14913. peddslp MOVE.W  30(A0),(A0)+
  14914.     CMP.L   A1,A0
  14915.     BLO.S   peddslp
  14916.     SUBQ.W  #1,PresetTotal
  14917.     SUB.L   #30,MaxPLSTOffset
  14918.     MOVE.L  A2,A0
  14919.     BRA.S   peddsn1
  14920. peddsno LEA 30(A0),A0
  14921. peddsn1 CMP.L   A1,A0
  14922.     BLO.S   peddslo
  14923.     MOVE.W  #1,PEDpos
  14924.     BSR ShowPEDnumbers
  14925.     BSR ShowPresetNames
  14926.     JMP RestorePtrCol
  14927.  
  14928. DelDiskText dc.b "Delete ST-.. ?",0,0
  14929.  
  14930. ;************  MIDI Routines  ************
  14931.  
  14932. OpenMIDI
  14933.     TST.L   MIDIinBuffer
  14934.     BNE.S   omidisk
  14935.     MOVE.L  #256,D0
  14936.     MOVEQ   #MEMF_PUBLIC,D1
  14937.     MOVE.L  4.W,A6
  14938.     JSR LVOAllocMem(A6)
  14939.     MOVE.L  D0,MIDIinBuffer
  14940.     BEQ Return2
  14941. omidisk CLR.B   MIDIinTo
  14942.     CLR.B   MIDIinFrom
  14943.     TST.W   mintflag
  14944.     BNE Return2
  14945.     MOVE.L  $74,OldInt5+2
  14946.     MOVE.L  #MIDIinInter,$74
  14947.     MOVE.W  #$8800,$DFF09A ;intena
  14948.     MOVE.W  #114,$DFF032 ; Set serper speed, 31250 bit/s
  14949.     MOVE.W  #1,mintflag
  14950.     MOVEQ   #0,D0
  14951.     RTS
  14952.  
  14953. ;   MOVEQ   #11,D0
  14954. ;   LEA MIDIinServer(PC),A1
  14955. ;   MOVE.L  4.W,A6
  14956. ;   JSR LVOAddIntServer(A6)
  14957. ;   MOVE.W  #1,mintflag
  14958. ;   MOVE.W  #114,$DFF032 ; Set serper speed, 31250 bit/s
  14959. ;   RTS
  14960.  
  14961. CloseMIDI
  14962.     MOVE.L  MIDIinBuffer(PC),D0
  14963.     BEQ.S   clmskip
  14964.     MOVE.L  D0,A1
  14965.     MOVE.L  #256,D0
  14966.     MOVE.L  4.W,A6
  14967.     JSR LVOFreeMem(A6)
  14968.     CLR.L   MIDIinBuffer
  14969. clmskip TST.W   mintflag
  14970.     BEQ Return2
  14971.     MOVE.W  #$0800,$DFF09A ;intena
  14972.     MOVE.L  OldInt5+2(PC),D0
  14973.     BEQ PositiveReturn
  14974.     MOVE.L  D0,$74
  14975.     CLR.L   OldInt5+2
  14976.     RTS
  14977.  
  14978. ;   MOVEQ   #11,D0
  14979. ;   LEA MIDIinServer(PC),A1
  14980. ;   MOVE.L  4.W,A6
  14981. ;   JSR LVORemIntServer(A6)
  14982. ;   CLR.W   mintflag
  14983. ;   RTS
  14984.  
  14985. mintflag dc.w 0
  14986.  
  14987. ;MIDIinServer
  14988. ;   dc.l 0,0
  14989. ;   dc.b 2,10
  14990. ;   dc.l midiname
  14991. ;   dc.l 0,MIDIinInter
  14992. ;
  14993. ;midiname dc.b "Protracker MIDI",0
  14994.  
  14995. MIDIinInter
  14996.     BTST    #11,$DFF01E ;intreqr
  14997.     BNE GetMIDIin
  14998. OldInt5 JMP $0
  14999.  
  15000. GetMIDIin
  15001.     MOVEM.L D0-D2/A0,-(SP)
  15002.     MOVE.W  $DFF018,D0 ; serdatr
  15003.     MOVE.W  #$0800,$DFF09A ;intena
  15004.     MOVE.W  #$0800,$DFF09C ;intreq
  15005. ;   CMP.B   #$F8,D0 ; Timing Clock
  15006. ;   BNE gmiskip
  15007. ;   TST.B   MIDISync
  15008. ;   BEQ gmiexit
  15009. ;   BSR IntMusic
  15010. ;   BRA gmiexit
  15011. gmiskip MOVEQ   #0,D1
  15012.     MOVE.B  MIDIinTo(PC),D1
  15013.     MOVE.L  D1,D2
  15014.     ADDQ.B  #1,D2
  15015.     CMP.B   MIDIinFrom(PC),D2
  15016.     BEQ gmiexit ; Buffer overflow
  15017.     MOVE.L  MIDIinBuffer(PC),A0
  15018.     MOVE.B  D0,(A0,D1.W)
  15019.     MOVE.B  D2,MIDIinTo
  15020. gmiexit MOVE.W  #$8800,$DFF09A ;intena
  15021.     MOVEM.L (SP)+,D0-D2/A0
  15022.     RTE
  15023.  
  15024. MIDIin  MOVE.B  MIDIinFrom(PC),D0
  15025.     CMP.B   MIDIinTo(PC),D0
  15026.     BNE migetbyt
  15027.     MOVEQ   #2,D1
  15028.     RTS
  15029. migetbyt
  15030.     MOVE.L  MIDIinBuffer(PC),A0
  15031.     MOVE.B  (A0,D0.W),D0
  15032.     ADDQ.B  #1,MIDIinFrom
  15033.     MOVEQ   #0,D1
  15034.     RTS
  15035.  
  15036. MIDIout MOVE.W  $DFF018,D1 ; serdatr
  15037.     BTST    #13,D1
  15038.     BEQ MIDIout
  15039.     AND.W   #$00ff,D0
  15040.     OR.W    #$0300,D0
  15041.     MOVE.W  D0,$DFF030 ; serdat
  15042.     RTS
  15043.  
  15044. CheckMIDIin
  15045.     TST.B   MIDIFlag
  15046.     BEQ Return2
  15047.     BSR MIDIin
  15048.     TST.L   D1
  15049.     BEQ mic_ok
  15050.     MOVE.B  #1,MIDIError
  15051.     RTS
  15052.  
  15053. mic_ok  CLR.B   MIDIError
  15054.     TST.B   D0
  15055.     BPL mic_databyte
  15056. ;statusbyte here
  15057.     CMP.B   #$F0,D0
  15058.     BHS MIDISysMessage
  15059.     MOVE.B  D0,MIDIRunStatus
  15060.     MOVE.B  D0,D1
  15061.     AND.B   #$F0,D1
  15062.     MOVE.B  D1,MIDIRunCommand
  15063.     AND.B   #$0F,D0
  15064.     MOVE.B  D0,MIDIRunChannel
  15065.     CLR.B   MIDIByteCount
  15066.     RTS
  15067.  
  15068. mic_databyte
  15069.     MOVE.B  MIDIRunCommand(PC),D1
  15070.     CMP.B   #$80,D1
  15071.     BEQ M_NoteOff
  15072.     CMP.B   #$90,D1
  15073.     BEQ M_NoteOn
  15074.     CMP.B   #$A0,D1
  15075.     BEQ M_PolyTouch
  15076.     CMP.B   #$B0,D1
  15077.     BEQ M_Control
  15078.     CMP.B   #$C0,D1
  15079.     BEQ M_ProgChange
  15080.     CMP.B   #$D0,D1
  15081.     BEQ M_MonoTouch
  15082.     CMP.B   #$E0,D1
  15083.     BEQ M_PitchBend
  15084.     CMP.B   #$F0,D1
  15085.     BEQ M_SysExData
  15086.     RTS
  15087.  
  15088. M_NoteOff
  15089.     TST.B   MIDIByteCount
  15090.     BNE mnf_veloc
  15091.     MOVE.B  D0,MIDINote
  15092.     ADD.B   #1,MIDIByteCount
  15093.     RTS
  15094. mnf_veloc
  15095.     CLR.B   MIDIByteCount
  15096.     MOVE.B  D0,MIDIVelocity
  15097. ;   BSR MidiPlay
  15098.     RTS
  15099.  
  15100. M_NoteOn
  15101.     TST.B   MIDIByteCount
  15102.     BNE mno_veloc
  15103.     MOVE.B  D0,MIDINote
  15104.     ADD.B   #1,MIDIByteCount
  15105.     RTS
  15106. mno_veloc
  15107.     CLR.B   MIDIByteCount
  15108.     MOVE.B  D0,MIDIVelocity
  15109.     BEQ mnf_veloc
  15110. ;* MidiPlay *
  15111.     MOVE.B  MIDINote,D0
  15112.     CMP.B   MIDIinTrans,D0
  15113.     BLO miplskip
  15114.     SUB.B   MIDIinTrans(PC),D0
  15115.     CMP.B   #36,D0
  15116.     BLS J_nkp
  15117.     RTS
  15118. miplskip
  15119.     CMP.B   XMIDI_Play,D0
  15120.     BEQ J_PlaySong
  15121.     CMP.B   XMIDI_Pattern,D0
  15122.     BEQ J_PlayPattern
  15123.     CMP.B   XMIDI_Edit,D0
  15124.     BEQ J_Edit
  15125.     CMP.B   XMIDI_Record,D0
  15126.     BEQ J_RecordPattern
  15127.     CMP.B   XMIDI_Stop,D0
  15128.     BEQ J_StopIt
  15129.     RTS
  15130.  
  15131. J_nkp   JMP nkpskip
  15132. J_PlaySong
  15133.     JMP PlaySong
  15134. J_PlayPattern
  15135.     JMP PlayPattern
  15136. J_Edit  JMP Edit
  15137. J_RecordPattern
  15138.     JMP RecordPattern
  15139. J_StopIt
  15140.     JMP StopIt
  15141.  
  15142. MIDIinTrans dc.b 60,0
  15143.  
  15144. XMIDI_Play  dc.b 40 ; E
  15145. XMIDI_Pattern   dc.b 38 ; D
  15146. XMIDI_Edit  dc.b 43 ; G
  15147. XMIDI_Record    dc.b 41 ; F
  15148. XMIDI_Stop  dc.b 36 ; C
  15149.         dc.b 0 ; free 0
  15150.  
  15151. ;   MOVE.B  MIDIRunStatus(PC),D0
  15152. ;   BSR MIDIout
  15153. ;   MOVE.B  MIDINote(PC),D0
  15154. ;   ADD.B   #12,D0
  15155. ;   BSR MIDIout
  15156. ;   MOVE.B  MIDIVelocity(PC),D0
  15157. ;   BSR MIDIout
  15158. ;   RTS
  15159.  
  15160. M_PolyTouch
  15161.     TST.B   MIDIByteCount
  15162.     BNE mpt_touch
  15163.     MOVE.B  D0,MIDINote
  15164.     ADD.B   #1,MIDIByteCount
  15165.     RTS
  15166. mpt_touch
  15167.     CLR.B   MIDIByteCount
  15168.     MOVE.B  D0,MIDITouch
  15169.     RTS
  15170.  
  15171. M_Control
  15172.     TST.B   MIDIByteCount
  15173.     BNE mc_value
  15174.     MOVE.B  D0,MIDIController
  15175.     ADD.B   #1,MIDIByteCount
  15176.     RTS
  15177. mc_value
  15178.     CLR.B   MIDIByteCount
  15179.     MOVE.B  D0,MIDIlsb
  15180.     RTS
  15181.  
  15182. M_ProgChange
  15183.     MOVE.B  D0,MIDIProgram
  15184.     RTS
  15185. ;   ADDQ.B  #1,D0
  15186. ;   AND.B   #$1F,D0
  15187. ;   BNE mpchskip
  15188. ;   TST.W   InsNum
  15189. ;   BEQ mpchskip
  15190. ;   MOVE.W  InsNum(PC),LastInsNum
  15191. ;mpchskip
  15192. ;   MOVE.B  D0,InsNum+1
  15193. ;   BRA ShowSampleInfo
  15194.  
  15195. M_MonoTouch
  15196.     MOVE.B  D0,MIDITouch
  15197.     RTS
  15198.  
  15199. M_PitchBend
  15200.     TST.B   MIDIByteCount
  15201.     BNE mp_msb
  15202.     MOVE.B  D0,MIDIlsb
  15203.     ADD.B   #1,MIDIByteCount
  15204.     RTS
  15205. mp_msb  CLR.B   MIDIByteCount
  15206.     MOVE.B  D0,MIDImsb
  15207.     EXT.W   D0
  15208.     SUB.W   #128,D0
  15209.     MOVE.W  CurrentPlayNote,D1
  15210.     SUB.W   D0,D1
  15211.     CMP.W   #113,D1
  15212.     BLS.S   mp_2
  15213.     MOVE.W  #113,D1
  15214. mp_2    MOVE.L  NoteAddr,A0
  15215.     MOVE.W  D1,6(A0)
  15216.     RTS
  15217.  
  15218. NoteAddr    dc.l 0
  15219.  
  15220. M_rts   RTS
  15221.  
  15222. MIDISysMessage
  15223.     CMP.B   #$F0,D0
  15224.     BEQ M_SysEx     ; System Exclusive
  15225.     CMP.B   #$F1,D0
  15226.     BEQ M_rts       ; Quarter Frame (MIDI Time Code)
  15227.     CMP.B   #$F2,D0
  15228.     BEQ M_SongPos   ; Song Position Pointer
  15229.     CMP.B   #$F3,D0
  15230.     BEQ M_SongSelect    ; Song Select
  15231.     CMP.B   #$F4,D0
  15232.     BEQ M_rts       ; -Reserved-
  15233.     CMP.B   #$F5,D0
  15234.     BEQ M_rts       ; -Reserved-
  15235.     CMP.B   #$F6,D0
  15236.     BEQ M_rts       ; -Reserved-
  15237.     CMP.B   #$F7,D0
  15238.     BEQ M_EOX       ; End of System Exclusive
  15239.     CMP.B   #$F8,D0
  15240.     BEQ M_rts       ; MIDI Timing Clock
  15241.     CMP.B   #$F9,D0
  15242.     BEQ M_rts       ; -Reserved-
  15243.     CMP.B   #$FA,D0
  15244.     BEQ M_Start     ; Start Message
  15245.     CMP.B   #$FB,D0
  15246.     BEQ M_Continue  ; Continue Message
  15247.     CMP.B   #$FC,D0
  15248.     BEQ M_Stop      ; Stop Message
  15249.     CMP.B   #$FD,D0
  15250.     BEQ M_rts       ; --- Reserved ---
  15251.     CMP.B   #$FE,D0
  15252.     BEQ M_rts       ; Active Sensing (Each 300ms if on)
  15253.     CMP.B   #$FF,D0
  15254.     BRA M_rts       ; System Reset Message
  15255.  
  15256. M_SysEx     RTS
  15257. M_SysExData RTS
  15258. M_SongPos   RTS
  15259. M_SongSelect    RTS
  15260. M_EOX       RTS
  15261.  
  15262. M_Start     JMP PlaySong
  15263.  
  15264. M_Continue  RTS
  15265.  
  15266. M_Stop      JMP StopIt
  15267.  
  15268. MIDIinBuffer    dc.l 0
  15269. MIDIinTo    dc.b 0
  15270. MIDIinFrom  dc.b 0
  15271.  
  15272. MIDIRunStatus   dc.b $80
  15273. MIDIRunChannel  dc.b 0
  15274. MIDIRunCommand  dc.b $08
  15275. MIDIByteCount   dc.b 0
  15276.  
  15277. MIDINote    dc.b 0
  15278. MIDIVelocity    dc.b 0
  15279. MIDITouch   dc.b 0
  15280. MIDIController  dc.b 0
  15281. MIDImsb     dc.b 0 
  15282. MIDIlsb     dc.b 0
  15283. MIDIProgram dc.b 0
  15284. MIDIError   dc.b 0
  15285.  
  15286. ;---- Sampler Screen ----
  15287.  
  15288. SamplerScreen
  15289.     CLR.B   RawKeyCode
  15290.     JSR WaitForButtonUp
  15291.     TST.W   SamScrEnable
  15292.     BNE ExitFromSam
  15293.     MOVE.W  #1,SamScrEnable
  15294.     MOVE.L  EditMode(PC),SaveEditMode
  15295.     CLR.L   EditMode
  15296.  
  15297.     MOVE.L  TextBplPtr(PC),A0
  15298.     LEA $15B8(A0),A0
  15299.     MOVE.L  A0,D0
  15300.     LEA CopList2Bpl4Ptr,A1
  15301.     MOVE.W  D0,6(A1)
  15302.     SWAP    D0
  15303.     MOVE.W  D0,2(A1)
  15304.  
  15305.     MOVEQ   #0,D0
  15306.     MOVE.W  #270,D1
  15307.     MOVEQ   #14,D2
  15308.     LEA CursorSpriteData,A0
  15309.     BSR SetSpritePos
  15310.     JSR SetSamSpritePtrs
  15311.     MOVE.W  CopCol0+16,CopList2+18
  15312.     BSR SwapSamScreen
  15313.     BEQ exisam2
  15314.     BSR ClearSamScr
  15315.     JSR DoShowFreeMem
  15316.     BSR ShowSamNote
  15317.     BSR ShowResamNote
  15318.     BRA RedrawSample
  15319.  
  15320. ExitFromSam
  15321.     JSR WaitForButtonUp
  15322.     MOVE.L  SamMemPtr,D0
  15323.     BEQ exisam2
  15324.     MOVE.L  D0,A1
  15325.     BSR Bjarne
  15326.     BSR.S   FreeDecompMem2
  15327. exisam2 JSR SetDefSpritePtrs
  15328.     CLR.B   RawKeyCode
  15329.     CLR.W   SamScrEnable
  15330.     MOVEQ   #-1,D0
  15331.     MOVE.L  D0,MarkStartOfs
  15332.     MOVE.L  SaveEditMode(PC),EditMode
  15333.     BSR SetScreenColors2
  15334.     JSR SetupVUCols
  15335.     BSR SetScrPatternPos
  15336.     BSR ClearSamScr
  15337.     JSR UpdateCursorPos
  15338.     JSR SetTempo
  15339.     BRA RedrawPattern
  15340.  
  15341. FreeDecompMem2
  15342.     MOVE.L  SamMemPtr,D0
  15343.     BEQ Return2
  15344.     MOVE.L  D0,A1
  15345.     MOVE.L  SamMemSize,D0
  15346.     CLR.L   SamMemPtr
  15347.     MOVE.L  4.W,A6
  15348.     JSR LVOFreeMem(A6)
  15349.     RTS
  15350.  
  15351. Decompact2
  15352.     MOVE.L  A0,CompPtr
  15353.     MOVE.L  D0,CompLen
  15354.     BSR.S   FreeDecompMem2
  15355.     MOVE.L  CompPtr(PC),A0
  15356.     MOVE.L  (A0),D0
  15357.     MOVE.L  D0,SamMemSize
  15358.     MOVEQ   #MEMF_PUBLIC,D1
  15359.     MOVE.L  4.W,A6
  15360.     JSR LVOAllocMem(A6)
  15361.     MOVE.L  D0,SamMemPtr
  15362.     BEQ OutOfMemErr
  15363.     MOVE.L  D0,A1
  15364.     MOVE.L  CompPtr(PC),A0
  15365.     MOVE.L  CompLen(PC),D0
  15366.     ADDQ.L  #4,A0
  15367.     SUBQ.L  #4,D0
  15368. dcmlop3 MOVE.B  (A0)+,D1
  15369.     CMP.B   #181,D1
  15370.     BEQ.S   DecodeIt3
  15371.     MOVE.B  D1,(A1)+
  15372. decom3  SUBQ.L  #1,D0
  15373.     CMP.L   #0,D0
  15374.     BGT.S   dcmlop3
  15375.     MOVE.L  SamMemPtr(PC),A1
  15376.     MOVEQ   #-1,D0
  15377.     RTS
  15378.  
  15379. DecodeIt3
  15380.     MOVEQ   #0,D1
  15381.     MOVE.B  (A0)+,D1
  15382.     MOVE.B  (A0)+,D2
  15383. dcdlop3 MOVE.B  D2,(A1)+
  15384.     DBRA    D1,dcdlop3
  15385.     SUBQ.L  #2,D0
  15386.     BRA.S   decom3
  15387.  
  15388. SwapSamScreen
  15389.     LEA SampScreenData,A0
  15390.     MOVE.L  #SampScreenSize,D0
  15391.     BSR Decompact2
  15392.     BEQ Return2
  15393.  
  15394. bjasize=134*10
  15395. Bjarne  LEA SamScrPos,A0
  15396.     MOVEQ   #1,D2
  15397. BjaLop1 MOVE.W  #bjasize-1,D1 ; 134
  15398. BjaLop2 MOVE.L  (A0),D0
  15399.     MOVE.L  (A1),(A0)+
  15400.     MOVE.L  D0,(A1)+
  15401.     DBRA    D1,BjaLop2
  15402.     ADD.L   #10240-bjasize*4,A0
  15403.     DBRA    D2,BjaLop1
  15404.  
  15405.     LEA CopListInsPos,A0
  15406.     LEA CopList2,A1
  15407.     MOVEQ   #29,D1
  15408. BjaLoop MOVE.W  (A0),D0
  15409.     MOVE.W  (A1),(A0)+
  15410.     MOVE.W  D0,(A1)+
  15411.     DBRA    D1,BjaLoop
  15412.     MOVEQ   #-1,D0
  15413.     RTS
  15414.  
  15415. ClearSamScr
  15416.     MOVE.W  #5121,TextOffset
  15417.     MOVE.W  #2,TextLength
  15418.     MOVE.L  #blnktxt,ShowTextPtr
  15419.     BSR ShowText
  15420.     MOVE.W  #4964,TextOffset
  15421.     MOVE.W  #3,TextLength
  15422.     BSR ShowText
  15423.     MOVE.W  #130*10-1,D0
  15424.     MOVE.L  TextBplPtr,A0
  15425.     LEA $15B8(A0),A0
  15426.     MOVE.L  A0,LineScreen
  15427.     MOVEQ   #0,D1
  15428. clrsslp MOVE.L  D1,(A0)+
  15429.     DBRA    D0,clrsslp
  15430.     RTS
  15431.  
  15432. blnktxt dc.b "    "
  15433.  
  15434. ClearSamArea
  15435.     MOVE.W  #64*10-1,D0
  15436.     MOVE.L  TextBplPtr,A0
  15437.     LEA $15B8(A0),A0
  15438.     MOVE.L  A0,LineScreen
  15439.     MOVEQ   #0,D1
  15440. clrsare MOVE.L  D1,(A0)+
  15441.     DBRA    D0,clrsare
  15442.     RTS
  15443.  
  15444. CheckSamGadgets
  15445.     MOVEM.W MouseX2,D0/D1
  15446.     CMP.W   #139,D1
  15447.     BLO SamTopBar
  15448.     CMP.W   #139+64,D1
  15449.     BLO SamplePressed
  15450.     CMP.W   #201+11,D1
  15451.     BLO SamDragBar
  15452.     CMP.W   #201+22,D1
  15453.     BLO SamMenu1
  15454.     CMP.W   #201+33,D1
  15455.     BLO SamMenu2
  15456.     CMP.W   #201+44,D1
  15457.     BLO SamMenu3
  15458.     CMP.W   #201+66,D1
  15459.     BLO SamMenu4
  15460.     RTS
  15461.  
  15462. SamTopBar
  15463.     CMP.W   #32,D0
  15464.     BLO ExitFromSam
  15465.     RTS
  15466.  
  15467. SamMenu1
  15468.     CMP.W   #32,D0
  15469.     BLO Return2
  15470.     CMP.W   #96,D0
  15471.     BLO PlayWaveform
  15472.     CMP.W   #176,D0
  15473.     BLO ShowRange
  15474.     CMP.W   #246,D0
  15475.     BLO ZoomOut
  15476.     BRA DispBox
  15477.  
  15478. SamMenu2
  15479.     CMP.W   #32,D0
  15480.     BLO StopPlaying
  15481.     CMP.W   #96,D0
  15482.     BLO PlayDisplay
  15483.     CMP.W   #176,D0
  15484.     BLO ShowAll
  15485.     CMP.W   #246,D0
  15486.     BLO RangeAll
  15487.     BRA LoopToggle
  15488.  
  15489. SamMenu3
  15490.     CMP.W   #32,D0
  15491.     BLO StopPlaying
  15492.     CMP.W   #96,D0
  15493.     BLO PlayRange
  15494.     CMP.W   #116,D0
  15495.     BLO CurToStart
  15496.     CMP.W   #136,D0
  15497.     BLO CurToEnd
  15498.     CMP.W   #176,D0
  15499.     BLO SwapBuffer
  15500.     CMP.W   #246,D0
  15501.     BLO Sampler
  15502.     BRA SetSamNote
  15503.  
  15504. SamMenu4
  15505.     CMP.W   #32,D0
  15506.     BLO SamCut
  15507.     CMP.W   #64,D0
  15508.     BLO SamCopy
  15509.     CMP.W   #96,D0
  15510.     BLO SamPaste
  15511.     CMP.W   #136,D0
  15512.     BLO RampVolume
  15513.     CMP.W   #176,D0
  15514.     BLO TuningTone
  15515.     CMP.W   #246,D0
  15516.     BLO Resample
  15517.     BRA SetResamNote
  15518.  
  15519.  
  15520. PlayWaveform
  15521.     JSR PlayNote
  15522.     JMP WaitForButtonUp
  15523. PlayDisplay
  15524.     LEA SampleInfo,A0
  15525.     MOVE.L  SamOffset(PC),StartOfs
  15526.     MOVE.L  SamDisplay(PC),D0
  15527.     LSR.L   #1,D0
  15528.     MOVE.W  D0,(A0)
  15529.     CLR.W   4(A0)
  15530.     MOVE.W  #1,6(A0)
  15531.     MOVE.W  PlayInsNum,-(SP)
  15532.     CLR.W   PlayInsNum
  15533.     JSR PlayNote
  15534.     MOVE.W  (SP)+,PlayInsNum
  15535.     BSR ShowSampleInfo
  15536.     JMP WaitForButtonUp
  15537. PlayRange
  15538.     MOVE.L  MarkStartOfs(PC),D1
  15539.     BMI NoRangeError
  15540.     MOVE.L  MarkEndOfs(PC),D0
  15541.     CMP.L   D0,D1
  15542.     BEQ LargerRangeError
  15543.     LEA SampleInfo,A0
  15544.     MOVE.L  D1,StartOfs
  15545.     SUB.L   D1,D0
  15546.     LSR.L   #1,D0
  15547.     MOVE.W  D0,(A0)
  15548.     CLR.W   4(A0)
  15549.     MOVE.W  #1,6(A0)
  15550.     MOVE.W  PlayInsNum,-(SP)
  15551.     CLR.W   PlayInsNum
  15552.     JSR PlayNote
  15553.     MOVE.W  (SP)+,PlayInsNum
  15554.     BSR ShowSampleInfo
  15555.     JMP WaitForButtonUp
  15556. StopPlaying
  15557.     BRA TurnOffVoices
  15558.  
  15559. StartOfs
  15560.     dc.l    0
  15561.  
  15562. ;----
  15563.  
  15564. ShowRange
  15565.     MOVE.L  MarkStartOfs(PC),D0
  15566.     BMI NoRangeError
  15567.     MOVE.L  MarkEndOfs(PC),D1
  15568.     CMP.L   D1,D0
  15569.     BEQ LargerRangeError
  15570.     SUB.L   D0,D1
  15571.     BNE shorano
  15572.     MOVEQ   #1,D1
  15573. shorano MOVE.L  D1,SamDisplay
  15574.     MOVE.L  D0,SamOffset
  15575.     MOVEQ   #-1,D0
  15576.     MOVE.L  D0,MarkStartOfs
  15577.     CLR.W   MarkStart
  15578.     BSR DisplaySample
  15579.     JMP WaitForButtonUp
  15580.  
  15581. ZoomOut MOVE.L  SamDisplay(PC),D0
  15582.     MOVE.L  SamLength(PC),D1
  15583.     MOVE.L  SamOffset(PC),D2
  15584.     MOVE.L  D0,D3
  15585.     LSL.L   #1,D3
  15586.     CMP.L   D1,D3
  15587.     BHI ShowAll
  15588.     LSR.L   #1,D0
  15589.     CMP.L   D2,D0
  15590.     BLO zoomou2
  15591.     MOVEQ   #0,D0
  15592. zoomou2 SUB.L   D0,D2
  15593.     MOVE.L  D2,D0
  15594.     ADD.L   D3,D0
  15595.     CMP.L   D1,D0
  15596.     BLS zoomou3
  15597.     SUB.L   D3,D1
  15598.     MOVE.L  D1,D2
  15599. zoomou3 MOVE.L  D2,SamOffset
  15600.     MOVE.L  D3,SamDisplay
  15601.     BSR OffsetToMark
  15602.     MOVE.L  MarkStartOfs(PC),D0
  15603.     CMP.L   MarkEndOfs(PC),D0
  15604.     BNE zoomouo
  15605.     MOVEQ   #-1,D0
  15606.     MOVE.L  D0,MarkStartOfs
  15607. zoomouo BSR DisplaySample
  15608.     JMP WaitForButtonUp
  15609.  
  15610. ShowAll CLR.L   SamOffset
  15611.     MOVE.L  SamLength(PC),SamDisplay
  15612.     BSR OffsetToMark
  15613.     MOVE.L  MarkStartOfs(PC),D0
  15614.     CMP.L   MarkEndOfs(PC),D0
  15615.     BNE shoallo
  15616.     MOVEQ   #-1,D0
  15617.     MOVE.L  D0,MarkStartOfs
  15618.     CLR.W   MarkStart
  15619. shoallo BSR DisplaySample
  15620.     JMP WaitForButtonUp
  15621.  
  15622. RangeAll
  15623.     BSR InvertRange
  15624.     MOVE.W  #3,MarkStart
  15625.     MOVE.W  #316,MarkEnd
  15626.     BSR MarkToOffset
  15627. ranall2 BSR InvertRange
  15628.     JMP WaitForButtonUp
  15629.  
  15630.  
  15631. CurToStart
  15632.     BSR InvertRange
  15633.     MOVEQ   #3,D0
  15634.     MOVE.W  D0,MarkStart
  15635.     MOVE.W  D0,MarkEnd
  15636.     MOVE.L  SamOffset(PC),D0
  15637.     MOVE.L  D0,MarkStartOfs
  15638.     MOVE.L  D0,MarkEndOfs
  15639.     BRA.S   ranall2
  15640.  
  15641. CurToEnd
  15642.     BSR InvertRange
  15643.     MOVE.W  #316,D0
  15644.     MOVE.W  D0,MarkStart
  15645.     MOVE.W  D0,MarkEnd
  15646.     MOVE.L  SamOffset(PC),D0
  15647.     ADD.L   SamDisplay(PC),D0
  15648.     MOVE.L  D0,MarkStartOfs
  15649.     MOVE.L  D0,MarkEndOfs
  15650.     BRA.S   ranall2
  15651.  
  15652. SwapBuffer
  15653.     MOVE.W  InsNum(PC),D1
  15654.     BEQ NotSampleNull
  15655.     LSL.W   #2,D1
  15656.     LEA SamplePtrs,A0
  15657.     LEA (A0,D1.W),A0
  15658.  
  15659.     MOVE.L  CopyBufPtr(PC),D0
  15660.     MOVE.L  (A0),CopyBufPtr
  15661.     MOVE.L  D0,(A0)
  15662.     MOVE.L  D0,A1
  15663.     CLR.W   (A1)
  15664.  
  15665.     MOVE.L  CopyBufSize(PC),D0
  15666.     MOVE.L  124(A0),CopyBufSize
  15667.     MOVE.L  D0,124(A0)
  15668.  
  15669.     MOVE.L  SongDataPtr(PC),A0
  15670.     MOVE.W  InsNum(PC),D1
  15671.     MULU    #30,D1
  15672.     LEA 12(A0,D1.W),A0
  15673.     LSR.L   #1,D0
  15674.     MOVE.W  D0,(A0)
  15675.     MOVE.L  RepBuf(PC),D0
  15676.     MOVE.L  4(A0),RepBuf
  15677.     MOVE.L  D0,4(A0)
  15678.  
  15679.     MOVE.W  RepBuf2(PC),D0
  15680.     MOVE.W  2(A0),RepBuf2
  15681.     TST.B   D0
  15682.     BNE.S   swabuf2
  15683.     MOVE.B  #$40,D0
  15684. swabuf2 MOVE.W  D0,2(A0)
  15685.     JSR TurnOffVoices
  15686.     BSR ValidateLoops
  15687.     BSR ShowSampleInfo
  15688.     BSR UpdateRepeats
  15689.     BSR RedrawSample
  15690.     JMP WaitForButtonUp
  15691.  
  15692. RepBuf  dc.l    1
  15693. RepBuf2 dc.w    $0040
  15694.  
  15695. ;----
  15696.  
  15697. NoRangeError
  15698.     LEA NoRangeText(PC),A0
  15699. nres2   BSR ShowStatusText
  15700.     JMP SetErrorPtrCol
  15701.  
  15702. LargerRangeError
  15703.     LEA LargerRangeText(PC),A0
  15704.     BRA.S   nres2
  15705.  
  15706. SetCursorError
  15707.     LEA SetCursorText(PC),A0
  15708.     BRA.S   nres2
  15709.  
  15710. BufIsEmptyError
  15711.     LEA BufIsEmptyText(PC),A0
  15712.     BRA.S   nres2
  15713.  
  15714. EmptySampleError
  15715.     LEA EmptySampleText(PC),A0
  15716.     BRA.S   nres2
  15717.  
  15718. NoRangeText dc.b "no range selected",0
  15719. LargerRangeText dc.b "set larger range",0
  15720. SetCursorText   dc.b "set cursor pos",0
  15721. BufIsEmptyText  dc.b "buffer is empty",0
  15722. EmptySampleText dc.b "sample is empty",0
  15723.  
  15724. ;----
  15725.  
  15726. DispBox
  15727.     RTS
  15728.  
  15729. LoopToggle
  15730.     JSR WaitForButtonUp
  15731.     MOVE.W  InsNum(PC),D1
  15732.     BEQ NotSampleNull
  15733.     MOVE.L  SongDataPtr(PC),A0
  15734.     MULU    #30,D1
  15735.     LEA 12(A0,D1.W),A0
  15736.     TST.W   LoopOnOffFlag
  15737.     BEQ.S   loopton
  15738.     MOVE.L  4(A0),SavSamInf
  15739.     MOVEQ   #1,D0
  15740.     MOVE.L  D0,4(A0)
  15741.     JSR TurnOffVoices
  15742. looptlo BSR ShowSampleInfo
  15743.     BSR UpdateRepeats
  15744.     BRA DisplaySample
  15745. loopton MOVE.L  SavSamInf(PC),D0
  15746.     BNE.S   loopto2
  15747.     MOVE.W  (A0),D0
  15748. loopto2 MOVE.L  D0,4(A0)
  15749.     BRA looptlo
  15750.  
  15751. ShowLoopToggle
  15752.     LEA ToggleOFFText(PC),A0
  15753.     TST.W   LoopOnOffFlag
  15754.     BEQ.S   sltskip
  15755.     LEA ToggleONText(PC),A0
  15756. sltskip MOVEQ   #3,D0
  15757.     MOVE.W  #9076,D1
  15758.     BRA ShowText3
  15759.  
  15760. LoopOnOffFlag   dc.w 0
  15761. SavSamInf   dc.l 0
  15762.  
  15763. SetSamNote
  15764.     BSR ShowResamNote
  15765.     MOVE.W  #9516,TextOffset
  15766.     MOVE.W  #3,TextLength
  15767.     MOVE.L  #SpcNoteText,ShowTextPtr
  15768.     BSR ShowText
  15769.     MOVE.W  #1,SamNoteType
  15770.     MOVE.L  #SampleNote,SplitAddress
  15771.     JMP WaitForButtonUp
  15772.  
  15773. SetResamNote
  15774.     BSR ShowSamNote
  15775.     MOVE.W  #9956,TextOffset
  15776.     MOVE.W  #3,TextLength
  15777.     MOVE.L  #SpcNoteText,ShowTextPtr
  15778.     BSR ShowText
  15779.     MOVE.W  #2,SamNoteType
  15780.     MOVE.L  #ResampleNote,SplitAddress
  15781.     JMP WaitForButtonUp
  15782.  
  15783. ResampleText    dc.b "Resample?",0
  15784. ResamplingText  dc.b "Resampling...",0
  15785.  
  15786. Resample
  15787.     LEA ResampleText(PC),A0
  15788.     JSR AreYouSure
  15789.     BNE Return2
  15790.     JSR StorePtrCol
  15791.     JSR SetWaitPtrCol
  15792.     LEA ResamplingText(PC),A0
  15793.     BSR ShowStatusText
  15794.     LEA SamplePtrs,A0
  15795.     MOVE.W  InsNum(PC),D1
  15796.     BEQ NotSampleNull
  15797.     LSL.W   #2,D1
  15798.     LEA (A0,D1.W),A0
  15799.     MOVE.L  (A0),D0
  15800.     BEQ ERC2
  15801.     MOVE.L  D0,A2
  15802.     MOVE.L  124(A0),D6
  15803.     CMP.L   #2,D6
  15804.     BLS ERC2
  15805.  
  15806.     MOVE.L  SongDataPtr(PC),A0
  15807.     MOVE.W  InsNum(PC),D1
  15808.     MULU    #30,D1
  15809.     MOVEQ   #0,D0
  15810.     MOVE.B  12+2(A0,D1.W),D0 ; finetune
  15811.     MULU    #37*2,D0
  15812.     LEA PeriodTable(PC),A0
  15813.     ADD.L   D0,A0
  15814.     MOVEQ   #0,D1
  15815.     MOVE.W  ResampleNote(PC),D1
  15816.     LSL.W   #1,D1
  15817.     MOVE.W  (A0,D1.W),D1
  15818.     BEQ ERC2
  15819.  
  15820.     LEA PeriodTable,A0
  15821.     MOVEQ   #0,D5
  15822.     MOVE.W  TuneNote,D5
  15823.     LSL.W   #1,D5
  15824.     MOVE.W  (A0,D5.W),D5
  15825.     BEQ ERC2
  15826.  
  15827. ; D1=resamperiod, D5=tuneperiod
  15828.  
  15829.     MOVE.L  D5,D0 ; tune
  15830.     LSL.L   #8,D0
  15831.     LSL.L   #4,D0 ; * 4096
  15832.     DIVU    D1,D0 ; / resample
  15833.     MOVEQ   #0,D4
  15834.     MOVE.W  D0,D4
  15835.     LSL.L   #4,D4 ; hi-word=add value, lo-word=fraction
  15836.  
  15837.     MOVE.W  D6,D7
  15838.     LSR.W   #1,D7
  15839.     MULU    D1,D7
  15840.     DIVU    D5,D7
  15841.     AND.L   #$FFFF,D7
  15842.     CMP.W   #2,D7
  15843.     BLO ERC2
  15844.     CMP.W   #$7FFF,D7
  15845.     BLO resamlo
  15846.     MOVE.W  #$7FFF,D7
  15847. resamlo ADD.L   D7,D7
  15848.     MOVE.L  D7,D0
  15849.     MOVE.L  #MEMF_CHIP!MEMF_CLEAR,D1
  15850.     MOVE.L  4.W,A6
  15851.     JSR LVOAllocMem(A6)
  15852.     TST.L   D0
  15853.     BEQ SamMemError
  15854.     MOVE.L  D0,A1
  15855.     MOVE.L  D0,A3
  15856.     JSR TurnOffVoices
  15857.     MOVE.L  A2,A0
  15858. ; D4=resample value, D6=old length, D7=new length
  15859. ; A0/A2=old sample, A1/A3=new sample
  15860.  
  15861.     MOVE.W  #32767,D1
  15862.     MOVEQ   #0,D3
  15863.     MOVEQ   #0,D5
  15864. resampleloop
  15865.     MOVE.B  1(A0),D0
  15866.     EXT.W   D0
  15867.     MULS    D1,D0
  15868.     MOVE.B  (A0),D2
  15869.     EXT.W   D2
  15870.     MULS    D3,D2
  15871.     ADD.L   D2,D0
  15872.     ASR.L   #8,D0
  15873.     ASR.L   #7,D0
  15874.     MOVE.B  D0,(A1)+
  15875.  
  15876.     ADD.L   D4,D5
  15877.     SWAP    D5
  15878.     MOVE.L  A2,A0
  15879.     MOVEQ   #0,D0
  15880.     MOVE.W  D5,D0
  15881.     ADD.L   D0,A0
  15882.     SWAP    D5
  15883.     MOVE.W  D5,D1
  15884.     LSR.W   #1,D1
  15885.     MOVE.W  #32767,D3
  15886.     SUB.W   D1,D3
  15887.  
  15888.     MOVE.L  A1,A4
  15889.     SUB.L   A3,A4
  15890.     CMP.L   D7,A4
  15891.     BHS.S   resamskip
  15892.     MOVE.L  A0,A4
  15893.     SUB.L   A2,A4
  15894.     CMP.L   D6,A4
  15895.     BLO.S   resampleloop
  15896.  
  15897. resamskip
  15898.     MOVE.L  A2,A1
  15899.     MOVE.L  D6,D0
  15900.     MOVE.L  4.W,A6
  15901.     JSR LVOFreeMem(A6)
  15902.     MOVE.W  InsNum(PC),D1
  15903.     LSL.W   #2,D1
  15904.     LEA SamplePtrs,A0
  15905.     LEA (A0,D1.W),A0
  15906.     MOVE.L  A3,(A0)
  15907.     MOVE.L  D7,124(A0)
  15908.  
  15909.     MOVE.L  SongDataPtr(PC),A0
  15910.     MOVE.W  InsNum(PC),D1
  15911.     MULU    #30,D1
  15912.     LEA 12(A0,D1.W),A0
  15913.     LSR.L   #1,D7
  15914.     MOVE.W  D7,(A0)
  15915.     CLR.B   2(A0)
  15916.     CLR.W   4(A0)
  15917.     MOVE.W  #1,6(A0)
  15918.     JSR RestorePtrCol
  15919.     BSR ClearSamStarts
  15920.     BSR ShowSampleInfo
  15921.     BSR ShowAllRight
  15922.     BRA RedrawSample
  15923.  
  15924. ERC2    JMP ErrorRestoreCol
  15925.  
  15926. SamCut  CLR.B   RawKeyCode
  15927.     MOVE.L  MarkStartOfs(PC),D0
  15928.     BMI NoRangeError
  15929.     CMP.L   MarkEndOfs(PC),D0
  15930.     BEQ LargerRangeError
  15931.     TST.B   CutToBufFlag
  15932.     BEQ.S   samcut2
  15933.     BSR SamCopy
  15934. samcut2 BSR TurnOffVoices
  15935.     LEA SamplePtrs(PC),A0
  15936.     MOVE.W  InsNum(PC),D1
  15937.     BEQ NotSampleNull
  15938.     LSL.W   #2,D1
  15939.     LEA (A0,D1.W),A0
  15940.     MOVE.L  (A0),D0
  15941.     BEQ EmptySampleError
  15942.     MOVE.L  124(A0),D2
  15943.     CMP.L   #2,D2
  15944.     BLO EmptySampleError
  15945.  
  15946.     MOVE.L  D0,A1
  15947.     MOVE.L  D0,A2       ; sample start
  15948.     MOVE.L  D0,A3
  15949.     MOVE.L  D0,A4
  15950.     MOVE.L  D0,A5
  15951.     ADD.L   MarkStartOfs(PC),A3 ; mark start
  15952.     MOVE.L  MarkEndOfs(PC),D0
  15953.     SUB.L   MarkStartOfs(PC),D0
  15954.     CMP.L   D2,D0
  15955.     BHS Destroy
  15956.     MOVE.L  MarkEndOfs(PC),D0
  15957.     CMP.L   D2,D0
  15958.     BLO.S   samsome
  15959.     MOVE.L  D2,D0
  15960.     SUBQ.L  #1,D0
  15961. samsome ADD.L   D0,A4   ; mark end
  15962.     ADD.L   D2,A5       ; sample end
  15963.  
  15964.     MOVE.L  A3,D0
  15965.     SUB.L   A2,D0
  15966.     ADD.L   A5,D0
  15967.     SUB.L   A4,D0
  15968.     BNE sacoklen
  15969.     MOVEQ   #0,D3
  15970.     MOVEQ   #0,D4
  15971.     BRA sacfree
  15972.  
  15973. sacoklen
  15974.     MOVE.L  D0,D3
  15975.     MOVEQ   #MEMF_CHIP,D1
  15976.     MOVE.L  4.W,A6
  15977.     JSR LVOAllocMem(A6)
  15978.     MOVE.L  D0,D4
  15979.     BEQ OutOfMemErr ; No memory
  15980.  
  15981.     MOVE.L  D0,A0
  15982.     MOVE.L  A2,A1
  15983.     MOVE.L  A3,D0
  15984.     SUB.L   A2,D0
  15985.     BRA.S   sacskp1
  15986. saclop1 MOVE.B  (A2)+,(A0)+
  15987. sacskp1 DBRA    D0,saclop1
  15988.  
  15989.     MOVE.L  A5,D0
  15990.     SUB.L   A4,D0
  15991.     BRA.S   sacskp2
  15992. smclop2 MOVE.B  (A4)+,(A0)+
  15993. sacskp2 DBRA    D0,smclop2
  15994.  
  15995. sacfree MOVE.L  D2,D0
  15996.     MOVE.L  4.W,A6
  15997.     JSR LVOFreeMem(A6)
  15998.  
  15999.     MOVE.W  InsNum(PC),D1
  16000.     LSL.W   #2,D1
  16001.     LEA SamplePtrs(PC),A0
  16002.     LEA (A0,D1.W),A0
  16003.     MOVE.L  D4,(A0)
  16004.     MOVE.L  D3,124(A0)
  16005.  
  16006.     MOVE.L  D4,SamStart
  16007.     MOVE.L  D3,SamLength
  16008.     MOVE.L  SamOffset(PC),D4
  16009.     ADD.L   SamDisplay(PC),D4
  16010.     CMP.L   D3,D4
  16011.     BLO samcuto     ; display ok
  16012.     MOVE.L  SamDisplay(PC),D4
  16013.     CMP.L   D3,D4
  16014.     BLO samnils     ; if display < length, move offset
  16015. samsall CLR.L   SamOffset   ; else show all
  16016.     MOVE.L  D3,SamDisplay
  16017.     BRA samcuto
  16018. samnils MOVE.L  D3,D4
  16019.     SUB.L   SamDisplay(PC),D4
  16020.     BMI.S   samsall     ; if offset < 0, show all
  16021.     MOVE.L  D4,SamOffset
  16022. samcuto MOVE.L  SongDataPtr(PC),A0
  16023.     MOVE.W  InsNum(PC),D1
  16024.     MULU    #30,D1
  16025.     LEA 12(A0,D1.W),A0
  16026.  
  16027.     LSR.L   #1,D3
  16028.     MOVE.W  D3,(A0)
  16029.     MOVE.W  4(A0),D0
  16030.     CMP.W   D3,D0
  16031.     BLS.S   samcuxx
  16032.     MOVEQ   #1,D0
  16033.     MOVE.L  D0,4(A0)
  16034.     BRA.S   samcuex
  16035. samcuxx ADD.W   6(A0),D0
  16036.     CMP.W   D3,D0
  16037.     BLS.S   samcuex
  16038.     SUB.W   4(A0),D3
  16039.     MOVE.W  D3,6(A0)
  16040.  
  16041. samcuex MOVE.L  MarkStartOfs(PC),MarkEndOfs
  16042.     BSR ClearSamStarts
  16043.     BSR ValidateLoops
  16044.     BSR ShowSampleInfo
  16045.     BRA DisplaySample
  16046.  
  16047.  
  16048. SamCopy CLR.B   RawKeyCode
  16049.     MOVE.L  MarkStartOfs(PC),D0
  16050.     BMI NoRangeError
  16051.     CMP.L   MarkEndOfs(PC),D0
  16052.     BEQ LargerRangeError
  16053.     LEA SamplePtrs(PC),A0
  16054.     MOVE.W  InsNum(PC),D1
  16055.     BEQ NotSampleNull
  16056.     LSL.W   #2,D1
  16057.     LEA (A0,D1.W),A0
  16058.     MOVE.L  (A0),D0
  16059.     BEQ EmptySampleError
  16060.     MOVE.L  124(A0),D2
  16061.     BEQ EmptySampleError
  16062.     MOVE.L  D0,A3
  16063.     MOVE.L  D0,A4
  16064.     ADD.L   MarkStartOfs(PC),A3 ; mark start
  16065.     MOVE.L  MarkEndOfs(PC),D0   ; mark end
  16066.     CMP.L   D2,D0
  16067.     BLO.S   csamsom
  16068.     MOVE.L  D2,D0
  16069.     SUBQ.L  #1,D0
  16070. csamsom ADD.L   D0,A4
  16071.     BSR.S   FreeCopyBuf
  16072.     MOVE.L  A4,D0
  16073.     SUB.L   A3,D0
  16074.     ADDQ.L  #1,D0
  16075.     MOVE.L  D0,CopyBufSize
  16076.     MOVEQ   #MEMF_CHIP,D1
  16077.     MOVE.L  4.W,A6
  16078.     JSR LVOAllocMem(A6)
  16079.     MOVE.L  D0,CopyBufPtr
  16080.     BEQ OutOfMemErr ; No memory
  16081.     MOVE.L  D0,A5
  16082. csamlop MOVE.B  (A3)+,(A5)+
  16083.     CMP.L   A4,A3
  16084.     BLS.S   csamlop
  16085.     BSR InvertRange
  16086.     BSR InvertRange
  16087.     JMP WaitForButtonUp
  16088.  
  16089. FreeCopyBuf
  16090.     MOVE.L  CopyBufPtr(PC),D0
  16091.     BEQ Return2
  16092.     MOVE.L  D0,A1
  16093.     MOVE.L  CopyBufSize(PC),D0
  16094.     MOVE.L  4.W,A6
  16095.     JSR LVOFreeMem(A6)
  16096.     CLR.L   CopyBufPtr
  16097.     RTS
  16098.  
  16099. CopyBufPtr  dc.l    0
  16100. CopyBufSize dc.l    0
  16101.  
  16102. SamPaste
  16103.     CLR.B   RawKeyCode
  16104.     MOVE.L  MarkStartOfs(PC),D0
  16105.     BMI SetCursorError
  16106.     LEA SamplePtrs(PC),A0
  16107.     MOVE.W  InsNum(PC),D1
  16108.     BEQ NotSampleNull
  16109.     LSL.W   #2,D1
  16110.     LEA (A0,D1.W),A0
  16111.     MOVEQ   #0,D2
  16112.     MOVE.L  (A0),D0
  16113.     BEQ.S   sapanul
  16114.     MOVE.L  124(A0),D2
  16115. sapanul MOVE.L  D0,A2
  16116.     MOVE.L  CopyBufPtr(PC),D3
  16117.     BEQ BufIsEmptyError
  16118.     MOVE.L  D3,A3
  16119.     MOVE.L  CopyBufSize(PC),D3
  16120.     BEQ BufIsEmptyError
  16121.  
  16122.     MOVE.L  D3,D4 ; copysize
  16123.     ADD.L   D2,D4 ; + origsize
  16124.     CMP.L   #$FFFE,D4
  16125.     BLO.S   sapaok
  16126.     MOVE.L  #$FFFE,D4
  16127. sapaok  MOVE.L  D4,D0
  16128.     MOVE.L  #MEMF_CHIP!MEMF_CLEAR,D1
  16129.     MOVE.L  4.W,A6
  16130.     JSR LVOAllocMem(A6)
  16131.     TST.L   D0
  16132.     BEQ OutOfMemErr
  16133.     MOVE.L  D0,A4
  16134.     MOVEQ   #0,D0
  16135.     TST.L   D2
  16136.     BEQ.S   sapask1
  16137.     MOVE.L  MarkStartOfs(PC),D0
  16138. sapask1 MOVE.L  D0,MarkStartOfs
  16139.     MOVE.L  A2,A1
  16140.     MOVE.L  D2,D1
  16141.     MOVE.L  A4,A5
  16142.     MOVE.L  A4,A0
  16143.     ADD.L   D4,A0
  16144. ; D0    = paste position
  16145. ; A0    = end of new sample
  16146. ; A1/D1 = copy of A2/D2
  16147. ; A2/D2 = original sample
  16148. ; A3/D3 = copy buffer
  16149. ; A4/D4 = new sample
  16150. ; A5    = copy of A4
  16151.     BRA.S   sapask2
  16152. sapalp1 MOVE.B  (A2)+,(A4)+ ; copy first part
  16153.     CMP.L   A0,A4
  16154.     BHS.S   sapaski
  16155.     SUBQ.L  #1,D2
  16156. sapask2 DBRA    D0,sapalp1
  16157.     BRA.S   sapask3
  16158. sapalp2 MOVE.B  (A3)+,(A4)+ ; copy from buffer
  16159.     CMP.L   A0,A4
  16160.     BHS.S   sapaski
  16161. sapask3 DBRA    D3,sapalp2
  16162.     TST.L   D2
  16163.     BEQ.S   sapaski
  16164.     BMI.S   sapaski
  16165. sapalp3 MOVE.B  (A2)+,(A4)+ ; copy last part
  16166.     CMP.L   A0,A4
  16167.     BHS.S   sapaski
  16168.     SUBQ.L  #1,D2
  16169.     BNE.S   sapalp3
  16170.  
  16171. sapaski MOVE.L  D1,D0
  16172.     MOVE.L  4.W,A6
  16173.     JSR LVOFreeMem(A6)
  16174.  
  16175.     MOVE.W  InsNum(PC),D1
  16176.     LSL.W   #2,D1
  16177.     LEA SamplePtrs(PC),A0
  16178.     LEA (A0,D1.W),A0
  16179.     MOVE.L  A5,(A0)
  16180.     MOVE.L  D4,124(A0)
  16181.  
  16182.     MOVE.L  SongDataPtr(PC),A0
  16183.     MOVE.W  InsNum(PC),D1
  16184.     MULU    #30,D1
  16185.     LEA 12(A0,D1.W),A0
  16186.     LSR.L   #1,D4
  16187.     MOVE.W  D4,(A0)
  16188.  
  16189.     MOVE.L  MarkStartOfs(PC),MarkEndOfs
  16190.     BSR OffsetToMark
  16191.     BSR ClearSamStarts
  16192.     BSR ShowSampleInfo
  16193.     BRA RedrawSample
  16194.  
  16195. RampVolume
  16196.     MOVE.L  TextBplPtr(PC),A0
  16197.     LEA 6209(A0),A0
  16198.     MOVEQ   #32,D3
  16199. ravlap2 MOVEQ   #16,D2
  16200. ravlap1 CLR.B   (A0)+
  16201.     DBRA    D2,ravlap1
  16202.     LEA 23(A0),A0
  16203.     DBRA    D3,ravlap2
  16204.     LEA VolBoxPos,A0
  16205.     LEA VolBoxData,A1
  16206.     MOVEQ   #1,D4
  16207. ravlop3 MOVEQ   #32,D3
  16208. ravlop2 MOVEQ   #16,D2
  16209. ravlop1 MOVE.B  (A1)+,(A0)+
  16210.     DBRA    D2,ravlop1
  16211.     ADDQ.L  #1,A1
  16212.     LEA 23(A0),A0
  16213.     DBRA    D3,ravlop2
  16214.     LEA 8920(A0),A0
  16215.     DBRA    D4,ravlop3
  16216.     BSR ShowVolSliders
  16217.     JSR WaitForButtonUp
  16218. ravloop BTST    #2,$DFF016
  16219.     BEQ.S   ExitVolBox
  16220.     JSR DoKeyBuffer
  16221.     MOVE.B  RawKeyCode(PC),D2
  16222.     CMP.B   #68,D2
  16223.     BEQ.S   ExitVolBox
  16224.     BTST    #6,$BFE001
  16225.     BNE.S   ravloop
  16226.     MOVEM.W MouseX,D0-D1
  16227.     CMP.W   #72,D0
  16228.     BLO.S   ravloop
  16229.     CMP.W   #72+136,D0
  16230.     BHS.S   ravloop
  16231.     CMP.W   #155,D1
  16232.     BLO.S   ravloop
  16233.     CMP.W   #166,D1
  16234.     BLO.S   Vol1Slider
  16235.     CMP.W   #177,D1
  16236.     BLO Vol2Slider
  16237.     CMP.W   #188,D1
  16238.     BLO VolGadgs
  16239.     BRA.S   ravloop
  16240.  
  16241. ExitVolBox
  16242.     LEA VolBoxPos,A0
  16243.     MOVEQ   #1,D2
  16244. revlap3 MOVEQ   #32,D1
  16245. revlap2 MOVEQ   #16,D0
  16246. revlap1 CLR.B   (A0)+
  16247.     DBRA    D0,revlap1
  16248.     LEA 23(A0),A0
  16249.     DBRA    D1,revlap2
  16250.     LEA 8920(A0),A0
  16251.     DBRA    D2,revlap3
  16252.     BRA DisplaySample
  16253.  
  16254. Vol1Slider
  16255.     CMP.W   #167,D0
  16256.     BHI.S   v1skip
  16257.     LEA Vol1(PC),A4
  16258.     MOVEQ   #0,D7
  16259. v1loop1 BTST    #6,$BFE001
  16260.     BNE ravloop
  16261.     MOVE.W  MouseX(PC),D0
  16262.     CMP.W   D7,D0
  16263.     BEQ.S   v1loop1
  16264.     MOVE.W  D0,D7
  16265.     SUB.W   #107,D0
  16266.     BPL.S   v1skp2
  16267.     MOVEQ   #0,D0
  16268. v1skp2  CMP.W   #60,D0
  16269.     BLS.S   v1skp3
  16270.     MOVEQ   #60,D0
  16271. v1skp3  MULU    #200,D0
  16272.     DIVU    #60,D0
  16273.     MOVE.W  D0,(A4)
  16274. shvosl  BSR ShowVolSliders
  16275.     BRA.S   v1loop1
  16276.  
  16277. v1skip  MOVE.W  #180,LineCurX
  16278.     MOVE.W  #164,LineCurY
  16279.     MOVE.W  #6342,TextOffset
  16280.     BSR GetDec3Dig
  16281.     TST.W   AbortDecFlag
  16282.     BNE shvosl
  16283.     CMP.W   #200,D0
  16284.     BLS.S   v1sk2
  16285.     MOVE.W  #200,D0
  16286. v1sk2   MOVE.W  D0,Vol1
  16287.     BRA.S   shvosl
  16288.  
  16289. Vol2Slider
  16290.     CMP.W   #167,D0
  16291.     BHI.S   v2skip
  16292.     LEA Vol2(PC),A4
  16293.     MOVEQ   #0,D7
  16294.     BRA v1loop1
  16295. v2skip  MOVE.W  #180,LineCurX
  16296.     MOVE.W  #175,LineCurY
  16297.     MOVE.W  #6782,TextOffset
  16298.     BSR GetDec3Dig
  16299.     TST.W   AbortDecFlag
  16300.     BNE shvosl
  16301.     CMP.W   #200,D0
  16302.     BLS.S   v2sk2
  16303.     MOVE.W  #200,D0
  16304. v2sk2   MOVE.W  D0,Vol2
  16305.     BRA shvosl
  16306.  
  16307.  
  16308. VolGadgs
  16309.     CMP.W   #100,D0
  16310.     BLO DoRampVol
  16311.     CMP.W   #144,D0
  16312.     BLO Normalize
  16313.     CMP.W   #154,D0
  16314.     BLO.S   SetRampDown
  16315.     CMP.W   #164,D0
  16316.     BLO.S   SetRampUp
  16317.     CMP.W   #174,D0
  16318.     BLO.S   SetRampUnity
  16319.     BRA ExitVolBox
  16320.  
  16321. SetRampDown
  16322.     MOVE.W  #100,Vol1
  16323.     CLR.W   Vol2
  16324.     BRA.S   sru2
  16325. SetRampUp
  16326.     CLR.W   Vol1
  16327.     MOVE.W  #100,Vol2
  16328.     BRA.S   sru2
  16329. SetRampUnity
  16330.     MOVE.W  #100,Vol1
  16331.     MOVE.W  #100,Vol2
  16332. sru2    BSR.S   ShowVolSliders
  16333.     JSR WaitForButtonUp
  16334.     BRA ravloop
  16335.  
  16336. ShowVolSliders
  16337.     MOVE.L  TextBplPtr(PC),A0
  16338.     LEA 6209(A0),A0
  16339.     MOVEQ   #21,D3
  16340. ravlip2 MOVEQ   #12,D2
  16341. ravlip1 CLR.B   (A0)+
  16342.     DBRA    D2,ravlip1
  16343.     LEA 27(A0),A0
  16344.     DBRA    D3,ravlip2
  16345.     MOVEQ   #0,D4
  16346.     MOVE.W  Vol1(PC),D4
  16347.     MOVEQ   #20,D5
  16348.     BSR OneSlider
  16349.     MOVEQ   #0,D4
  16350.     MOVE.W  Vol2(PC),D4
  16351.     MOVEQ   #31,D5
  16352.     BSR OneSlider
  16353.     MOVE.W  Vol1(PC),WordNumber
  16354.     MOVE.W  #6342,TextOffset
  16355.     BSR Print3DecDigits
  16356.     MOVE.W  Vol2(PC),WordNumber
  16357.     MOVE.W  #6782,TextOffset
  16358.     BRA Print3DecDigits
  16359.  
  16360. OneSlider
  16361.     MOVE.W  D4,D6
  16362.     ADD.W   D4,D4
  16363.     ADD.W   D6,D4
  16364.     DIVU    #10,D4
  16365.     ADD.W   #105,D4
  16366.     MOVEQ   #2,D6
  16367. oneslop MOVE.W  D4,D0
  16368.     MOVE.W  D4,D2
  16369.     ADDQ.W  #5,D2
  16370.     MOVE.W  D5,D1
  16371.     MOVE.W  D5,D3
  16372.     BSR DrawLine
  16373.     ADDQ.W  #1,D5
  16374.     DBRA    D6,oneslop
  16375.     RTS
  16376.  
  16377. DoRampVol
  16378.     CLR.B   RawKeyCode
  16379.     LEA SamplePtrs(PC),A0
  16380.     MOVE.W  InsNum(PC),D1
  16381.     BEQ nozerr1
  16382.     LSL.W   #2,D1
  16383.     LEA (A0,D1.W),A0
  16384.     MOVEQ   #0,D2
  16385.     MOVE.L  (A0),D0
  16386.     BEQ nozerr2
  16387.     MOVE.L  D0,A2
  16388.     MOVE.L  124(A0),D2
  16389.     BEQ nozerr2
  16390.     MOVE.L  MarkStartOfs(PC),D0
  16391.     BMI drvskip
  16392.     MOVE.L  MarkEndOfs(PC),D1
  16393.     SUB.L   D0,D1
  16394.     BEQ.S   drvskip
  16395.     ADD.L   D0,A2
  16396.     MOVE.L  D1,D2
  16397.     ADDQ.L  #1,D2
  16398. drvskip JSR StorePtrCol
  16399.     JSR SetWaitPtrCol
  16400.     MOVE.L  D2,D5
  16401.     MOVEQ   #0,D3
  16402. drvloop MOVE.W  D3,D1
  16403.     MULU    Vol2(PC),D1
  16404.     DIVU    D2,D1
  16405.     MOVE.W  D2,D4
  16406.     SUB.W   D3,D4
  16407.     MULU    Vol1(PC),D4
  16408.     DIVU    D2,D4
  16409.     ADD.W   D4,D1
  16410.     ADDQ.W  #1,D3
  16411.     MOVE.B  (A2),D0
  16412.     EXT.W   D0
  16413.     MULS    D1,D0
  16414.     DIVS    #100,D0
  16415.     CMP.W   #127,D0
  16416.     BLT.S   drvskp2
  16417.     MOVEQ   #127,D0
  16418. drvskp2 CMP.W   #-128,D0
  16419.     BGT.S   drvskp3
  16420.     MOVEQ   #-128,D0
  16421. drvskp3 MOVE.B  D0,(A2)+
  16422.     SUBQ.L  #1,D5
  16423.     BNE drvloop
  16424.     JSR RestorePtrCol
  16425.     BRA ExitVolBox
  16426.  
  16427. nozerr1 BSR NotSampleNull
  16428.     BRA ravloop
  16429. nozerr2 BSR EmptySampleError
  16430.     BRA ravloop
  16431.  
  16432. Normalize
  16433.     CLR.B   RawKeyCode
  16434.     LEA SamplePtrs(PC),A0
  16435.     MOVE.W  InsNum(PC),D1
  16436.     BEQ nozerr1
  16437.     LSL.W   #2,D1
  16438.     LEA (A0,D1.W),A0
  16439.     MOVEQ   #0,D2
  16440.     MOVE.L  (A0),D0
  16441.     BEQ nozerr2
  16442.     MOVE.L  D0,A2
  16443.     MOVE.L  124(A0),D2
  16444.     BEQ nozerr2
  16445.     MOVE.L  MarkStartOfs(PC),D0
  16446.     BMI nozskip
  16447.     MOVE.L  MarkEndOfs(PC),D1
  16448.     SUB.L   D0,D1
  16449.     BEQ.S   nozskip
  16450.     ADD.L   D0,A2
  16451.     MOVE.L  D1,D2
  16452.     ADDQ.L  #1,D2
  16453. nozskip JSR StorePtrCol
  16454.     JSR SetWaitPtrCol
  16455.     MOVEQ   #0,D0
  16456. nozloop MOVE.B  (A2)+,D1
  16457.     EXT.W   D1
  16458.     BPL.S   nozskp2
  16459.     NEG.W   D1
  16460. nozskp2 CMP.W   D0,D1
  16461.     BLO.S   nozskp3
  16462.     MOVE.W  D1,D0
  16463. nozskp3 SUBQ.L  #1,D2
  16464.     BNE nozloop
  16465.     JSR RestorePtrCol
  16466.     TST.W   D0
  16467.     BEQ SetRampUnity
  16468.     CMP.W   #127,D0
  16469.     BHI SetRampUnity
  16470.     CMP.W   #64,D0
  16471.     BLO.S   nozmax
  16472.     MOVE.L  #12700,D1
  16473.     DIVU    D0,D1
  16474.     MOVE.W  D1,Vol1
  16475.     MOVE.W  D1,Vol2
  16476.     BRA sru2
  16477. nozmax  MOVE.W  #200,Vol1
  16478.     MOVE.W  #200,Vol2
  16479.     BRA sru2
  16480.  
  16481. Vol1    dc.w    100
  16482. Vol2    dc.w    100
  16483.  
  16484. TuningTone
  16485.     JSR WaitForButtonUp
  16486.     CLR.B   RawKeyCode
  16487.     TST.W   TToneFlag
  16488.     BNE TToneOff
  16489.     MOVE.W  #1,TToneFlag
  16490.     MOVE.W  PattCurPos,D2
  16491.     DIVU    #6,D2
  16492.     ADDQ.W  #1,D2
  16493.     AND.W   #3,D2
  16494.     MOVEQ   #1,D0
  16495.     LSL.W   D2,D0
  16496.     MOVE.W  D0,TToneBit
  16497.     LEA $DFF0A0,A0
  16498.     LSL.W   #4,D2
  16499.     LEA (A0,D2.W),A0
  16500.     LEA PeriodTable(PC),A1
  16501.     MOVE.W  TuneNote,D1
  16502.     LSL.W   #1,D1
  16503.     MOVE.W  (A1,D1.W),D1
  16504.     LEA TToneData,A2
  16505.     MOVE.W  D0,$DFF096 ; DMACON
  16506.     MOVE.L  A2,(A0)
  16507.     MOVE.W  #16,4(A0) ; 32 bytes
  16508.     MOVE.W  D1,6(A0)
  16509.     MOVE.W  TToneVol,8(A0)
  16510.     MOVE.W  DMAWait,D2
  16511. ttowait DBRA    D2,ttowait
  16512.     BSET    #15,D0
  16513.     MOVE.W  D0,$DFF096
  16514.     RTS
  16515.  
  16516. TToneOff
  16517.     CLR.W   TToneFlag
  16518.     MOVE.W  TToneBit(PC),$DFF096
  16519.     RTS
  16520.  
  16521. TToneFlag   dc.w 0
  16522. TToneBit    dc.w 0
  16523.  
  16524. SamplePressed
  16525.     CMP.W   #144,D1
  16526.     BHS.S   spruskp
  16527.     MOVE.W  LoopStartPos(PC),D2
  16528.     BEQ.S   sprusk5
  16529.     SUBQ.W  #3,D2
  16530.     CMP.W   D2,D0
  16531.     BLT.S   sprusk5
  16532.     ADDQ.W  #4,D2
  16533.     CMP.W   D2,D0
  16534.     BLO LoopStartDrag
  16535. sprusk5 MOVE.W  LoopEndPos(PC),D2
  16536.     BEQ.S   spruskp
  16537.     SUBQ.W  #3,D2
  16538.     CMP.W   D2,D0
  16539.     BLT.S   spruskp
  16540.     ADDQ.W  #4,D2
  16541.     CMP.W   D2,D0
  16542.     BLO LoopEndDrag
  16543. spruskp CMP.W   #3,D0
  16544.     BLO Return2
  16545.     CMP.W   #317,D0
  16546.     BHS Return2
  16547.     MOVE.W  D0,LastSamPos
  16548.     BSR InvertRange
  16549.     MOVE.W  LastSamPos(PC),D0
  16550.     MOVE.W  D0,MarkStart
  16551.     MOVE.W  D0,MarkEnd
  16552.     BSR InvertRange
  16553.     BSR MarkToOffset
  16554.     MOVE.L  MarkEndOfs(PC),SamplePos
  16555.     BSR ShowPos
  16556. sprulop BTST    #6,$BFE001
  16557.     BNE spruend
  16558.     MOVE.W  MouseX(PC),D0
  16559.     CMP.W   #3,D0
  16560.     BLO sprusk3
  16561.     CMP.W   #317,D0
  16562.     BHS sprusk2
  16563.     BRA sprusk4
  16564. sprusk2 MOVE.W  #316,D0
  16565.     BRA sprusk4
  16566. sprusk3 MOVEQ   #3,D0
  16567. sprusk4 CMP.W   LastSamPos(PC),D0
  16568.     BEQ sprulop
  16569.     MOVE.W  D0,LastSamPos
  16570.     BSR InvertRange
  16571.     MOVE.W  LastSamPos(PC),MarkEnd
  16572.     BSR InvertRange
  16573.     BSR MarkToOffset
  16574.     MOVE.L  MarkEndOfs(PC),SamplePos
  16575.     BSR ShowPos
  16576.     BRA sprulop
  16577. spruend MOVE.W  MarkStart(PC),D0
  16578.     MOVE.W  MarkEnd(PC),D1
  16579.     CMP.W   D0,D1
  16580.     BHS MarkToOffset
  16581.     MOVE.W  D0,MarkEnd
  16582.     MOVE.W  D1,MarkStart
  16583.     BRA MarkToOffset
  16584.  
  16585. InvertRange
  16586.     MOVE.W  MarkStart(PC),D4
  16587.     BEQ Return2
  16588.     MOVE.W  MarkEnd(PC),D5
  16589.     MOVE.L  GfxBase(PC),A6
  16590.     JSR LVOOwnBlitter(A6)
  16591.     JSR LVOWaitBlit(A6)
  16592. invran3 MOVE.W  D4,D0
  16593.     MOVEQ   #0,D1
  16594.     MOVE.W  D4,D2
  16595.     MOVEQ   #64,D3
  16596.     BSR DrawInvertLine
  16597.     CMP.W   D5,D4
  16598.     BEQ invranx
  16599.     BHI invran2
  16600.     ADDQ.W  #1,D4
  16601.     BRA invran3
  16602. invran2 SUBQ.W  #1,D4
  16603.     BRA invran3
  16604.  
  16605. invranx MOVE.L  GfxBase(PC),A6
  16606.     JSR LVODisownBlitter(A6)
  16607.     RTS
  16608.  
  16609. LoopStartPos    dc.w 0
  16610. LoopEndPos  dc.w 0
  16611.  
  16612. LoopStartDrag
  16613.     CLR.W   DragType
  16614. LopDrgLop
  16615.     MOVE.L  SongDataPtr(PC),A0
  16616.     MOVE.W  InsNum(PC),D0
  16617.     BEQ Return2
  16618.     MULU    #30,D0
  16619.     LEA 12(A0,D0.W),A0
  16620.     MOVE.W  MouseX(PC),D0
  16621. lsdlop1 BTST    #6,$BFE001
  16622.     BNE lsdexit
  16623.     MOVE.W  MouseX(PC),D1
  16624.     CMP.W   D0,D1
  16625.     BEQ.S   lsdlop1
  16626.     SUB.W   DragType,D1
  16627.     BPL.S   lsdmsk1
  16628.     MOVEQ   #0,D1
  16629. lsdmsk1 CMP.W   #314,D1
  16630.     BLO.S   lsdmsk2
  16631.     MOVE.W  #314,D1
  16632. lsdmsk2 MOVE.L  SamDisplay(PC),D0
  16633.     MULU    D0,D1
  16634.     DIVU    #314,D1
  16635.     MOVE.L  SamOffset(PC),D0
  16636.     ADD.W   D1,D0    ; new repeat
  16637.     BCLR    #0,D0
  16638.     MOVEQ   #0,D1
  16639.     MOVE.W  4(A0),D1 ; old repeat
  16640.     ADD.W   D1,D1
  16641.     TST.W   DragType
  16642.     BNE.S   drgrepl
  16643.     MOVE.W  D1,D3
  16644.     SUB.W   D1,D0    ; offset
  16645.     ADD.W   D0,D1
  16646.     MOVE.W  6(A0),D2
  16647.     ADD.W   D2,D2
  16648.     ADD.W   D2,D3
  16649.     SUBQ.W  #2,D3
  16650.     SUB.W   D0,D2
  16651.     CMP.W   D3,D1
  16652.     BLS.S   lsdok
  16653.     MOVE.W  D3,D1
  16654.     MOVEQ   #2,D2
  16655. lsdok   LSR.W   #1,D1
  16656.     MOVE.W  D1,4(A0)
  16657.     LSR.W   #1,D2
  16658.     MOVE.W  D2,6(A0)
  16659.     BSR.S   lsdexit
  16660.     BRA LopDrgLop
  16661. lsdexit BSR ShowSampleInfo
  16662.     BSR UpdateRepeats
  16663.     BRA SetLoopSprites2
  16664.  
  16665. LoopEndDrag
  16666.     MOVE.W  #3,DragType
  16667.     BRA LopDrgLop
  16668.  
  16669. drgrepl MOVE.L  D0,D2 ; repend
  16670.     SUB.L   D1,D2 ; subtract repstart
  16671.     CMP.L   #2,D2
  16672.     BGT.S   ledskp1
  16673.     MOVEQ   #2,D2
  16674.     BRA.S   lsdok
  16675.  
  16676. ledskp1 MOVE.W  D1,D0 ; repeat
  16677.     ADD.W   D2,D0 ; + replen
  16678.     MOVE.W  (A0),D3
  16679.     ADD.W   D3,D3
  16680.     CMP.W   D3,D0
  16681.     BLS.S   lsdok
  16682.     SUB.W   D1,D3
  16683.     MOVE.W  D3,D2
  16684.     BRA.S   lsdok
  16685.  
  16686. DragType dc.w 0
  16687.  
  16688. SamDragBar
  16689.     CMP.W   #4,D0
  16690.     BLO Return2
  16691.     CMP.W   #316,D0
  16692.     BHS Return2
  16693.     CMP.W   DragStart(PC),D0
  16694.     BLO.S   draglo
  16695.     CMP.W   DragEnd(PC),D0
  16696.     BHI.S   draghi
  16697.     MOVE.W  MouseX(PC),D0
  16698.     MOVE.W  D0,D1
  16699.     SUB.W   DragStart(PC),D1
  16700.     MOVE.W  D1,SaveMX
  16701. sdrlop1 BTST    #6,$BFE001
  16702.     BNE Return2
  16703.     MOVE.W  MouseX(PC),D1
  16704.     CMP.W   D0,D1
  16705.     BEQ.S   sdrlop1
  16706.     SUB.W   SaveMX(PC),D0
  16707.     SUBQ.W  #4,D0
  16708.     BPL.S   sdrskp1
  16709.     MOVEQ   #0,D0
  16710. sdrskp1 MOVE.L  SamLength(PC),D1
  16711.     BEQ Return2
  16712.     MULU    D1,D0
  16713.     DIVU    #311,D0
  16714.     AND.L   #$FFFF,D0
  16715.     BSR dragchk
  16716.     MOVE.W  MouseX(PC),D0
  16717.     BRA.S   sdrlop1
  16718.  
  16719. draglo  MOVE.L  SamOffset(PC),D0
  16720.     SUB.L   SamDisplay(PC),D0
  16721.     BPL.S   draglo2
  16722.     MOVEQ   #0,D0
  16723. draglo2 CMP.L   SamOffset(PC),D0
  16724.     BEQ Return2
  16725.     MOVE.L  D0,SamOffset
  16726.     BRA DisplaySample
  16727.  
  16728. draghi  MOVE.L  SamOffset(PC),D0
  16729.     ADD.L   SamDisplay(PC),D0
  16730. dragchk MOVE.L  D0,D1
  16731.     ADD.L   SamDisplay(PC),D1
  16732.     CMP.L   SamLength(PC),D1
  16733.     BLS.S   draglo2
  16734.     MOVE.L  SamLength(PC),D0
  16735.     SUB.L   SamDisplay(PC),D0
  16736.     BRA.S   draglo2
  16737.  
  16738. SaveMX  dc.w    0
  16739.  
  16740. ;----
  16741.  
  16742. MarkToOffset
  16743.     MOVE.L  SamDisplay(PC),D0
  16744.     MOVE.W  MarkStart(PC),D1
  16745.     BEQ Return2
  16746.     SUBQ.W  #3,D1
  16747.     MULU    D0,D1
  16748.     DIVU    #314,D1
  16749.     AND.L   #$FFFF,D1
  16750.     ADD.L   SamOffset(PC),D1
  16751.     MOVE.L  D1,MarkStartOfs
  16752.     MOVE.W  MarkEnd(PC),D1
  16753.     CMP.W   #316,D1
  16754.     BLO.S   mtosome
  16755.     MOVE.L  SamOffset(PC),D1
  16756.     ADD.L   D0,D1
  16757.     BRA.S   mtoexit
  16758. mtosome SUBQ.W  #3,D1
  16759.     MULU    D0,D1
  16760.     DIVU    #314,D1
  16761.     AND.L   #$FFFF,D1
  16762.     ADD.L   SamOffset(PC),D1
  16763. mtoexit MOVE.L  D1,MarkEndOfs
  16764.     RTS
  16765.  
  16766. OffsetToMark
  16767.     MOVE.L  MarkStartOfs(PC),D0
  16768.     BMI.S   otmout
  16769.     MOVE.W  #3,MarkStart
  16770.     SUB.L   SamOffset(PC),D0
  16771.     BMI.S   otmskip ; set to start if before offset
  16772.     MULU    #314,D0
  16773.     MOVE.L  SamDisplay(PC),D1
  16774.     BEQ.S   otmskip
  16775.     DIVU    D1,D0
  16776.     CMP.W   #314,D0
  16777.     BHI.S   otmout  ; if start after display
  16778.     ADD.W   D0,MarkStart
  16779. otmskip MOVE.W  #3,MarkEnd
  16780.     MOVE.L  MarkEndOfs(PC),D0
  16781.     SUB.L   SamOffset(PC),D0
  16782.     BMI.S   otmout  ; if end before offset
  16783.     MULU    #314,D0
  16784.     MOVE.L  SamDisplay(PC),D1
  16785.     BEQ Return2
  16786.     DIVU    D1,D0
  16787.     CMP.W   #313,D0
  16788.     BLS.S   otmok
  16789.     MOVE.W  #313,D0 ; set to end if after display
  16790. otmok   ADD.W   D0,MarkEnd
  16791.     RTS
  16792.  
  16793. otmout  CLR.W   MarkStart
  16794.     RTS
  16795.  
  16796. SamScrEnable    dc.w    0
  16797. SamMemPtr   dc.l    0
  16798. SamMemSize  dc.l    0
  16799. LastSamPos  dc.w    0
  16800. MarkStart   dc.w    0
  16801. MarkEnd     dc.w    0
  16802. MarkStartOfs    dc.l    0
  16803. MarkEndOfs  dc.l    0
  16804.  
  16805. ;---- Sample graphing stuff ----
  16806.  
  16807. DisplaySample
  16808.     TST.W   SamScrEnable
  16809.     BEQ Return2
  16810.     BSR rdsdoit
  16811.     TST.L   MarkStartOfs
  16812.     BMI Return2
  16813.     BSR OffsetToMark
  16814.     BRA InvertRange
  16815.  
  16816. RedrawSample
  16817.     TST.W   SamScrEnable
  16818.     BEQ Return2
  16819.     MOVEQ   #-1,D0
  16820.     MOVE.L  D0,MarkStartOfs
  16821.     CLR.W   MarkStart
  16822.     MOVE.W  InsNum(PC),D0
  16823.     BEQ rdsblnk
  16824.     LEA SampleStarts(PC),A1
  16825.     SUBQ.W  #1,D0
  16826.     LSL.W   #2,D0
  16827.     MOVE.L  (A1,D0.W),SamStart
  16828.     BEQ rdsblnk
  16829.     MOVE.L  124(A1,D0.W),D1
  16830.     BEQ rdsblnk
  16831.     MOVE.L  D1,SamLength
  16832.     CLR.L   SamOffset
  16833.     MOVE.L  D1,SamDisplay
  16834.     BRA rdsdoit
  16835. rdsblnk LEA BlankSample,A0
  16836.     MOVE.L  A0,SamStart
  16837.     MOVE.L  #314,SamLength
  16838.     CLR.L   SamOffset
  16839.     MOVE.L  #314,SamDisplay
  16840. rdsdoit MOVE.L  GfxBase(PC),A6
  16841.     JSR LVOOwnBlitter(A6)
  16842.     JSR LVOWaitBlit(A6)
  16843.     BSR ClearSamArea
  16844.     MOVE.L  SamStart(PC),A0
  16845.     MOVEQ   #0,D4
  16846.     MOVE.L  SamOffset(PC),D5
  16847.     MOVE.L  SamDisplay(PC),D6
  16848.     MOVE.L  D5,D7
  16849.     MOVE.L  A0,D0
  16850.     ADD.L   D5,D0
  16851.     MOVE.L  D0,SamDrawStart
  16852.     ADD.L   D6,D0
  16853.     MOVE.L  D0,SamDrawEnd
  16854. rdsloop MOVE.W  D4,D0
  16855.     ADDQ.W  #3,D0
  16856.     MOVEQ   #127,D1
  16857.     SUB.B   (A0,D7.L),D1
  16858.     LSR.W   #2,D1
  16859.     TST.W   D4
  16860.     BNE rdsdraw
  16861.     BSR MoveTo
  16862.     BRA rdsupdt
  16863. rdsdraw BSR DrawTo
  16864. rdsupdt ADDQ.W  #1,D4
  16865.     MOVE.L  D4,D7
  16866.     MULU    D6,D7
  16867.     DIVU    #314,D7
  16868.     AND.L   #$FFFF,D7
  16869.     ADD.L   D5,D7
  16870.     CMP.W   #314,D4
  16871.     BLO rdsloop
  16872.  
  16873.     MOVE.L  GfxBase(PC),A6
  16874.     JSR LVODisownBlitter(A6)
  16875.     BSR.S   SetDragBar
  16876.     MOVE.L  SamDisplay(PC),D0
  16877.     LEA BlankSample,A0
  16878.     CMP.L   SamStart,A0
  16879.     BNE.S   rdsslwo
  16880.     MOVEQ   #0,D0
  16881. rdsslwo MOVE.W  #215*40+33,TextOffset
  16882.     BSR Print6DecDigits
  16883.     BRA SetLoopSprites
  16884.  
  16885. SamStart    dc.l    0
  16886. SamLength   dc.l    0
  16887. SamOffset   dc.l    0
  16888. SamDisplay  dc.l    0
  16889. SavSamIns   dc.w    0
  16890.  
  16891. SetDragBar
  16892.     MOVE.W  #4*10-1,D0
  16893.     MOVE.L  TextBplPtr,A0
  16894.     LEA $15B8+2720(A0),A0
  16895.     MOVEQ   #0,D1
  16896. sdblop2 MOVE.L  D1,(A0)+
  16897.     DBRA    D0,sdblop2
  16898.     MOVE.L  SamLength(PC),D0
  16899.     BEQ Return2
  16900.     MOVE.L  SamOffset(PC),D4
  16901.     MOVE.L  SamDisplay(PC),D5
  16902.     CMP.L   D0,D5
  16903.     BEQ Return2
  16904.     ADD.L   D4,D5
  16905.     MULU    #311,D4
  16906.     DIVU    D0,D4
  16907.     ADDQ.W  #4,D4
  16908.     MOVE.W  D4,DragStart
  16909.     MULU    #311,D5
  16910.     DIVU    D0,D5
  16911.     ADDQ.W  #5,D5
  16912.     MOVE.W  D5,DragEnd
  16913.     MOVE.L  GfxBase(PC),A6
  16914.     JSR LVOOwnBlitter(A6)
  16915.     JSR LVOWaitBlit(A6)
  16916.     MOVEQ   #68,D6
  16917.     MOVEQ   #3,D7
  16918. sdbloop MOVE.W  D4,D0
  16919.     MOVE.L  D6,D1
  16920.     MOVE.W  D5,D2
  16921.     MOVE.L  D6,D3
  16922.     BSR.S   DrawLine
  16923.     ADDQ.L  #1,D6
  16924.     DBRA    D7,sdbloop
  16925.     MOVE.L  GfxBase(PC),A6
  16926.     JSR LVODisownBlitter(A6)
  16927.     RTS
  16928.  
  16929. DragStart   dc.w    0
  16930. DragEnd     dc.w    0
  16931.  
  16932. ;---- Line Routine ----
  16933.  
  16934. DrawInvertLine
  16935.     MOVE.B  #$48,MinTerm
  16936.     BSR.S   DrawLine
  16937.     MOVE.B  #$C8,Minterm
  16938.     RTS
  16939.  
  16940. MoveTo  MOVE.W  D0,PenX
  16941.     MOVE.W  D1,PenY
  16942.     RTS
  16943.  
  16944. DrawTo  MOVE.W  PenX(PC),D2
  16945.     MOVE.W  PenY(PC),D3
  16946.     MOVE.W  D0,PenX
  16947.     MOVE.W  D1,PenY
  16948. DrawLine
  16949.     MOVEM.L D4-D7,-(SP)
  16950.     MOVEQ   #0,D4
  16951.     SUB.W   D1,D3
  16952.     BGE.S   dypos
  16953.     NEG.W   D3
  16954.     BRA.S   dyneg
  16955. dypos   BSET    #0,D4
  16956. dyneg   SUB.W   D0,D2
  16957.     BGE.S   dxpos
  16958.     NEG.W   D2
  16959.     BRA.S   dxneg
  16960. dxpos   BSET    #1,D4
  16961. dxneg   MOVE.W  D2,D5
  16962.     SUB.W   D3,D5
  16963.     BGE.S   dxdypos
  16964.     EXG D2,D3
  16965.     BRA.S   dxdyneg
  16966. dxdypos BSET    #2,D4
  16967. dxdyneg MOVEQ   #0,D5
  16968.     ROR.W   #4,D0
  16969.     OR.W    #$0B00,D0
  16970.     MOVE.B  D0,D5
  16971.     MOVE.B  MinTerm(PC),D0
  16972.     LSL.W   #1,D5
  16973.     MULS    #ScrWidth,D1
  16974.     ADD.W   D5,D1
  16975.     ADD.L   LineScreen(PC),D1
  16976. blitrdy BTST    #14,$DFF002 ; DMACONR
  16977.     BNE.S   blitrdy
  16978.     MOVE.W  $DFF01C,-(SP)
  16979.     BSET    #7,(SP)
  16980.     MOVE.W  #$7FFF,$DFF09A
  16981.     MOVE.B  Octants(PC,D4),D4
  16982.     ADD.L   D3,D3
  16983.     MOVE.W  D3,$DFF062 ; BLTBMOD
  16984.     SUB.W   D2,D3
  16985.     BGE.S   dldspos
  16986.     OR.B    #$40,D4
  16987. dldspos MOVE.L  D3,$DFF050 ; BLTAPTR
  16988.     SUB.W   D2,D3
  16989.     MOVE.W  D3,$DFF064 ; BLTAMOD
  16990.     MOVE.W  D4,$DFF042 ; BLTCON1
  16991.     MOVE.W  D0,$DFF040 ; BLTCON0
  16992.     MOVE.L  D1,$DFF048 ; BLTCPTR
  16993.     MOVE.L  D1,$DFF054 ; BLTDPTR
  16994.     MOVE.W  #ScrWidth,$DFF060 ; BLTCMOD
  16995.     MOVE.W  #ScrWidth,$DFF066 ; BLTDMOD
  16996.     MOVE.W  #$8000,$DFF074 ; BLTADAT
  16997.     MOVE.W  #$FFFF,$DFF044 ; BLTAFWM
  16998.     MOVE.W  LinMask(PC),$DFF072 ; BLTBDAT
  16999.     ASL.W   #6,D2
  17000.     ADD.W   #2,D2
  17001.     MOVE.W  D2,$DFF058 ; BLTSIZE
  17002.     MOVE.W  (SP)+,$DFF09A
  17003.     MOVEM.L (SP)+,D4-D7
  17004.     RTS
  17005.  
  17006. ScrWidth = 40
  17007.  
  17008. Octants dc.b    3*4+1,2*4+1,1*4+1,0*4+1,7*4+1,5*4+1,6*4+1,4*4+1
  17009. LinMask dc.w    $FFFF
  17010. MinTerm dc.b    $C8 ;was $CA
  17011.     dc.b    0   ;free 0
  17012. PenX    dc.w    0
  17013. PenY    dc.w    0
  17014. LineScreen dc.l 0
  17015.  
  17016. ;---- Loop Sprites ----
  17017.  
  17018. SetLoopSprites
  17019.     MOVEQ   #-1,D6
  17020.     MOVEQ   #-1,D7
  17021.     MOVE.W  InsNum(PC),D0
  17022.     BEQ slsset
  17023.     MULU    #30,D0
  17024.     MOVE.L  SongDataPtr(PC),A0
  17025.     LEA 12(A0,D0.W),A0
  17026. SetLoopSprites2
  17027.     TST.W   SamScrEnable
  17028.     BEQ Return2
  17029.     CLR.W   LoopOnOffFlag
  17030.     MOVEQ   #-1,D6
  17031.     MOVEQ   #-1,D7
  17032.     MOVEQ   #0,D0
  17033.     MOVE.W  4(A0),D0
  17034.     ADD.L   D0,D0
  17035.     MOVEQ   #0,D1
  17036.     MOVE.W  6(A0),D1
  17037.     ADD.L   D1,D1
  17038.     MOVE.L  D0,D5
  17039.     ADD.L   D1,D5
  17040.     CMP.W   #2,D5
  17041.     BLS.S   slsset
  17042.     MOVE.W  #1,LoopOnOffFlag
  17043.     MOVE.L  SamOffset(PC),D2
  17044.     MOVE.L  SamDisplay(PC),D3
  17045.     MOVE.L  D2,D4
  17046.     ADD.L   D3,D4
  17047.     CMP.L   D2,D0
  17048.     BLO.S   1$
  17049.     CMP.L   D4,D0
  17050.     BHI.S   1$
  17051.     SUB.L   D2,D0
  17052.     MULU    #314,D0
  17053.     DIVU    D3,D0
  17054.     ADDQ.W  #3,D0
  17055.     MOVE.W  D0,D6
  17056. 1$  CMP.L   D2,D5
  17057.     BLO.S   slsset
  17058.     CMP.L   D4,D5
  17059.     BHI.S   slsset
  17060.     SUB.L   D2,D5
  17061.     MULU    #314,D5
  17062.     DIVU    D3,D5
  17063.     ADDQ.W  #6,D5
  17064.     MOVE.W  D5,D7
  17065. slsset  MOVE.W  #139,D1
  17066.     MOVE.W  D6,D0
  17067.     BPL.S   1$
  17068.     MOVEQ   #0,D0
  17069.     MOVE.W  #270,D1
  17070. 1$  MOVEQ   #64,D2
  17071.     LEA LoopSpriteData1,A0
  17072.     MOVE.W  D0,LoopStartPos
  17073.     BSR SetSpritePos
  17074.     MOVE.W  #139,D1
  17075.     MOVE.W  D7,D0
  17076.     BPL.S   2$
  17077.     MOVEQ   #0,D0
  17078.     MOVE.W  #270,D1
  17079. 2$  MOVEQ   #64,D2
  17080.     LEA LoopSpriteData2,A0
  17081.     MOVE.W  D0,LoopEndPos
  17082.     BSR SetSpritePos
  17083.     BRA ShowLoopToggle
  17084.  
  17085. ;---- Playroutine ----
  17086.  
  17087. audchan1temp    dc.l    0,0,0,0,0,$00010000,0,  0,0,0,0
  17088. audchan2temp    dc.l    0,0,0,0,0,$00020000,0,  0,0,0,0
  17089. audchan3temp    dc.l    0,0,0,0,0,$00040000,0,  0,0,0,0
  17090. audchan4temp    dc.l    0,0,0,0,0,$00080000,0,  0,0,0,0
  17091.  
  17092. IntMusic
  17093.     MOVEM.L D0-D7/A0-A6,-(SP)
  17094.     MOVE.L  RunMode(PC),D0
  17095.     BEQ NoNewPositionYet
  17096.     CMP.L   #'patt',D0
  17097.     BEQ.S   1$
  17098.     MOVE.L  SongPosition(PC),CurrPos
  17099. 1$  MOVE.L  SongDataPtr(PC),A0
  17100.     MOVE.B  sd_numofpatt(A0),SongNumOfPatt+1
  17101.     TST.W   StepPlayEnable
  17102.     BNE.S   2$
  17103.     ADDQ.L  #1,Counter
  17104.     MOVE.L  Counter(PC),D0
  17105.     CMP.L   CurrSpeed(PC),D0
  17106.     BLO.S   NoNewNote
  17107. 2$  CLR.L   Counter
  17108.     TST.B   PattDelayTime2
  17109.     BEQ.S   GetNewNote
  17110.     BSR.S   NoNewAllChannels
  17111.     BRA dskip
  17112.  
  17113. NoNewNote
  17114.     BSR.S   NoNewAllChannels
  17115.     BRA NoNewPositionYet
  17116.  
  17117. NoNewAllChannels
  17118.     LEA audchan1toggle,A4
  17119.     LEA audchan1temp(PC),A6
  17120.     LEA $DFF0A0,A5
  17121.     BSR CheckEffects
  17122.     LEA audchan2toggle,A4
  17123.     LEA audchan2temp(PC),A6
  17124.     LEA $DFF0B0,A5
  17125.     BSR CheckEffects
  17126.     LEA audchan3toggle,A4
  17127.     LEA audchan3temp(PC),A6
  17128.     LEA $DFF0C0,A5
  17129.     BSR CheckEffects
  17130.     LEA audchan4toggle,A4
  17131.     LEA audchan4temp(PC),A6
  17132.     LEA $DFF0D0,A5
  17133.     BRA CheckEffects
  17134.  
  17135.  
  17136. GetNewNote
  17137.     LEA 12(A0),A3
  17138.     LEA sd_pattpos(A0),A2
  17139.     LEA sd_patterndata(A0),A0
  17140.     MOVEQ   #0,D1
  17141.     MOVE.L  SongPosition(PC),D0
  17142.     MOVE.B  (A2,D0.W),D1
  17143.     CMP.L   #'patt',PunMode
  17144.     BNE.S   1$
  17145.     MOVE.L  PatterlLumber(PC),D1
  17146. 1$  ASL.L   #8,D1
  17147.  
  17148.     ASL.L   #2,D1
  17149.     ADD.L   PatternPosition(PC),D1
  17150.     MOVE.L  D1,PatternPtr
  17151.     CLR.W   DMACONtemp
  17152.     LEA audchan1toggle,A4
  17153.     LEA $DFF0A0,A5
  17154.     LEA audchan1temp(PC),A6
  17155.     MOVEQ   #1,D2
  17156.     BSR PlayVoice
  17157.     MOVEQ   #0,D0
  17158.     MOVE.B  n_volume(A6),D0
  17159.     MOVE.W  D0,8(A5)
  17160.     LEA audchan2toggle,A4
  17161.     LEA $DFF0B0,A5
  17162.     LEA audchan2temp(PC),A6
  17163.     MOVEQ   #2,D2
  17164.     BSR.S   PlayVoice
  17165.     MOVEQ   #0,D0
  17166.     MOVE.B  n_volume(A6),D0
  17167.     MOVE.W  D0,8(A5)
  17168.     LEA audchan3toggle,A4
  17169.     LEA $DFF0C0,A5
  17170.     LEA audchan3temp(PC),A6
  17171.     MOVEQ   #3,D2
  17172.     BSR.S   PlayVoice
  17173.     MOVEQ   #0,D0
  17174.     MOVE.B  n_volume(A6),D0
  17175.     MOVE.W  D0,8(A5)
  17176.     LEA audchan4toggle,A4
  17177.     LEA $DFF0D0,A5
  17178.     LEA audchan4temp(PC),A6
  17179.     MOVEQ   #4,D2
  17180.     BSR.S   PlayVoice
  17181.     MOVEQ   #0,D0
  17182.     MOVE.B  n_volume(A6),D0
  17183.     MOVE.W  D0,8(A5)
  17184.     BRA SetDMA
  17185.  
  17186. CheckMetronome
  17187.     CMP.B   MetroChannel,D2
  17188.     BNE Return2
  17189.     MOVE.B  MetroSpeed,D2
  17190.     BEQ Return2
  17191.     MOVE.L  PatternPosition,D3
  17192.     LSR.L   #4,D3
  17193.     DIVU    D2,D3
  17194.     SWAP    D3
  17195.     TST.W   D3
  17196.     BNE Return2
  17197.     AND.L   #$00000FFF,(A6)
  17198.     OR.L    #$10D6F000,(A6) ; Play sample $1F at period $0D6 (214)
  17199.     RTS
  17200.  
  17201. PlayVoice
  17202.     TST.L   (A6)
  17203.     BNE.S   plvskip
  17204.     BSR PerNop
  17205. plvskip MOVE.L  (A0,D1.L),(A6)  ; Read note from pattern
  17206.     BSR.S   CheckMetronome
  17207.     ADDQ.L  #4,D1
  17208.     MOVEQ   #0,D2
  17209.     MOVE.B  n_cmd(A6),D2    ; Get lower 4 bits of instrument
  17210.     AND.B   #$F0,D2
  17211.     LSR.B   #4,D2
  17212.     MOVE.B  (A6),D0     ; Get higher 4 bits of instrument
  17213.     AND.B   #$F0,D0
  17214.     OR.B    D0,D2
  17215.     TST.B   D2
  17216.     BEQ SetRegisters    ; Instrument was zero
  17217.     MOVEQ   #0,D3
  17218.     LEA SampleStarts(PC),A1
  17219.     MOVE    D2,D4
  17220.     MOVE.B  D2,n_samplenum(A6)
  17221.     SUBQ.L  #1,D2
  17222.     LSL.L   #2,D2
  17223.     MULU    #30,D4
  17224.     MOVE.L  (A1,D2.L),n_start(A6)
  17225.     MOVE.W  (A3,D4.L),n_length(A6)
  17226.     MOVE.W  (A3,D4.L),n_reallength(A6)
  17227.     MOVE.B  2(A3,D4.L),n_finetune(A6)
  17228.     MOVE.B  3(A3,D4.L),n_volume(A6)
  17229.     MOVE.W  4(A3,D4.L),D3 ; Get repeat
  17230.     TST.W   D3
  17231.     BEQ.S   NoLoop
  17232.     MOVE.L  n_start(A6),D2  ; Get start
  17233.     ASL.W   #1,D3
  17234.     ADD.L   D3,D2       ; Add repeat
  17235.     MOVE.L  D2,n_loopstart(A6)
  17236.     MOVE.L  D2,n_wavestart(A6)
  17237.     MOVE.W  4(A3,D4.L),D0   ; Get repeat
  17238.     ADD.W   6(A3,D4.L),D0   ; Add replen
  17239.     MOVE.W  D0,n_length(A6)
  17240.     MOVE.W  6(A3,D4.L),n_replen(A6) ; Save replen
  17241.     BRA.S   SetRegisters
  17242.  
  17243. NoLoop  MOVE.L  n_start(A6),D2
  17244.     ADD.L   D3,D2
  17245.     MOVE.L  D2,n_loopstart(A6)
  17246.     MOVE.L  D2,n_wavestart(A6)
  17247.     MOVE.W  6(A3,D4.L),n_replen(A6) ; Save replen
  17248. SetRegisters
  17249.     MOVE.W  (A6),D0
  17250.     AND.W   #$0FFF,D0
  17251.     BEQ CheckMoreEffects    ; If no note
  17252.     MOVE.W  2(A6),D0
  17253.     AND.W   #$0FF0,D0
  17254.     CMP.W   #$0E50,D0 ; finetune
  17255.     BEQ.S   DoSetFineTune
  17256.     MOVE.B  2(A6),D0
  17257.     AND.B   #$0F,D0
  17258.     CMP.B   #3,D0   ; TonePortamento
  17259.     BEQ.S   ChkTonePorta
  17260.     CMP.B   #5,D0   ; TonePortamento + VolSlide
  17261.     BEQ.S   ChkTonePorta
  17262.     CMP.B   #9,D0   ; Sample Offset
  17263.     BNE.S   SetPeriod
  17264.     BSR CheckMoreEffects
  17265.     BRA.S   SetPeriod
  17266.  
  17267. DoSetFineTune
  17268.     BSR SetFineTune
  17269.     BRA.S   SetPeriod
  17270.  
  17271. ChkTonePorta
  17272.     BSR SetTonePorta
  17273.     BRA CheckMoreEffects
  17274.  
  17275. SetPeriod
  17276.     MOVEM.L D0-D1/A0-A1,-(SP)
  17277.     MOVE.W  (A6),D1
  17278.     AND.W   #$0FFF,D1
  17279.     LEA PeriodTable(PC),A1
  17280.     MOVEQ   #0,D0
  17281.     MOVEQ   #$24,D7
  17282. ftuloop CMP.W   (A1,D0.W),D1
  17283.     BHS ftufound
  17284.     ADDQ.L  #2,D0
  17285.     DBRA    D7,ftuloop
  17286. ftufound
  17287.     MOVEQ   #0,D1
  17288.     MOVE.B  n_finetune(A6),D1
  17289.     MULU    #37*2,D1
  17290.     ADD.L   D1,A1
  17291.     MOVE.W  (A1,D0.W),n_period(A6)
  17292.     MOVEM.L (SP)+,D0-D1/A0-A1
  17293.  
  17294.     MOVE.W  2(A6),D0
  17295.     AND.W   #$0FF0,D0
  17296.     CMP.W   #$0ED0,D0
  17297.     BEQ CheckMoreEffects
  17298.  
  17299.     MOVE.W  n_dmabit(A6),$DFF096
  17300.     BTST    #2,n_wavecontrol(A6)
  17301.     BNE vibnoc
  17302.     CLR.B   n_vibratopos(A6)
  17303. vibnoc  BTST    #6,n_wavecontrol(A6)
  17304.     BNE trenoc
  17305.     CLR.B   n_tremolopos(A6)
  17306. trenoc  MOVE.W  n_length(A6),4(A5)  ; Set length
  17307.     MOVE.L  n_start(A6),(A5)    ; Set start
  17308.     BNE sdmaskp
  17309.     CLR.L   n_loopstart(A6)
  17310.     MOVEQ   #1,D0
  17311.     MOVE.W  D0,4(A5)
  17312.     MOVE.W  D0,n_replen(A6)
  17313. sdmaskp MOVE.W  n_period(A6),D0
  17314.     MOVE.W  D0,6(A5)        ; Set period
  17315.     JSR SpectrumAnalyzer    ; Do the analyzer
  17316.     ST  n_trigger(A6)
  17317.     MOVE.W  n_dmabit(A6),D0
  17318.     OR.W    D0,DMACONtemp
  17319.     BRA CheckMoreEffects
  17320.  
  17321. SetDMA  MOVE.W  DMAWait,D0
  17322. WaitDMA DBRA    D0,WaitDMA
  17323.     MOVE.W  DMACONtemp,D0
  17324.     AND.W   ActiveChannels,D0
  17325.     OR.W    #$8000,D0
  17326.     MOVE.W  D0,$DFF096
  17327.     MOVE.W  DMAWait,D0
  17328. WaitDMA2
  17329.     DBRA    D0,WaitDMA2
  17330.     LEA $DFF000,A5
  17331.     LEA audchan4temp(PC),A6
  17332.     MOVE.L  n_loopstart(A6),$D0(A5)
  17333.     MOVE.W  n_replen(A6),$D4(A5)
  17334.     LEA audchan3temp(PC),A6
  17335.     MOVE.L  n_loopstart(A6),$C0(A5)
  17336.     MOVE.W  n_replen(A6),$C4(A5)
  17337.     LEA audchan2temp(PC),A6
  17338.     MOVE.L  n_loopstart(A6),$B0(A5)
  17339.     MOVE.W  n_replen(A6),$B4(A5)
  17340.     LEA audchan1temp(PC),A6
  17341.     MOVE.L  n_loopstart(A6),$A0(A5)
  17342.     MOVE.W  n_replen(A6),$A4(A5)
  17343.  
  17344. dskip   TST.L   RunMode
  17345.     BEQ dskipx
  17346.     BSR SetPatternPos
  17347. dskipx  MOVE.L  PatternPosition(PC),D0
  17348.     LSR.L   #4,D0
  17349.     MOVE.W  D0,ScrPattPos
  17350.     ADD.L   #16,PatternPosition
  17351.     MOVE.B  PattDelayTime,D0
  17352.     BEQ dskpc
  17353.     MOVE.B  D0,PattDelayTime2
  17354.     CLR.B   PattDelayTime
  17355. dskpc   TST.B   PattDelayTime2
  17356.     BEQ dskpa
  17357.     SUBQ.B  #1,PattDelayTime2
  17358.     BEQ dskpa
  17359.     SUB.L   #16,PatternPosition
  17360. dskpa   TST.B   PBreakFlag
  17361.     BEQ nnpysk
  17362.     SF  PBreakFlag
  17363.     MOVEQ   #0,D0
  17364.     MOVE.B  PBreakPosition(PC),D0
  17365.     LSL.W   #4,D0
  17366.     MOVE.L  D0,PatternPosition
  17367.     CLR.B   PBreakPosition
  17368. nnpysk  TST.W   StepPlayEnable
  17369.     BEQ nnpysk2
  17370.     BSR DoStopIt
  17371.     CLR.W   StepPlayEnable
  17372.     MOVE.L  PatternPosition(PC),D0
  17373.     LSR.L   #4,D0
  17374.     AND.W   #63,D0
  17375.     MOVE.W  D0,ScrPattPos
  17376. nnpysk2 CMP.L   #1024,PatternPosition
  17377.     BNE NoNewPositionYet
  17378. NextPosition   
  17379.     MOVEQ   #0,D0
  17380.     MOVE.B  PBreakPosition(PC),D0
  17381.     LSL.W   #4,D0
  17382.     MOVE.L  D0,PatternPosition
  17383.     CLR.B   PBreakPosition
  17384.     CLR.B   PosJumpAssert
  17385.     CMP.L   #'patp',RunMode
  17386.     BNE NoNewPositionYet
  17387.     ADDQ.L  #1,SongPosition
  17388.     AND.L   #$7F,SongPosition
  17389.     MOVE.L  SongPosition(PC),D1
  17390.     MOVE.L  SongDataPtr(PC),A0
  17391.     CMP.B   sd_numofpatt(A0),D1
  17392.     BLO NoNewPositionYet
  17393.     CLR.L   SongPosition
  17394.  
  17395.     TST.W   StepPlayEnable
  17396.     BEQ NoNewPositionYet
  17397.     BSR DoStopIt
  17398.     CLR.W   StepPlayEnable
  17399.     MOVE.L  PatternPosition(PC),D0
  17400.     LSR.L   #4,D0
  17401.     MOVE.W  D0,ScrPattPos
  17402.  
  17403. NoNewPositionYet
  17404.     TST.B   PosJumpAssert
  17405.     BNE NextPosition
  17406.     MOVEM.L (SP)+,D0-D7/A0-A6
  17407.     RTS
  17408.  
  17409. CheckEffects
  17410.     TST.W   (A4)
  17411.     BEQ Return2
  17412.     BSR chkefx2
  17413.     MOVEQ   #0,D0
  17414.     MOVE.B  n_volume(A6),D0
  17415.     MOVE.W  D0,8(A5)
  17416.     RTS
  17417.  
  17418. chkefx2 BSR UpdateFunk
  17419.     MOVE.W  n_cmd(A6),D0
  17420.     AND.W   #$0FFF,D0
  17421.     BEQ Return2
  17422.     MOVE.B  n_cmd(A6),D0
  17423.     AND.B   #$0F,D0
  17424.     TST.B   D0
  17425.     BEQ Arpeggio
  17426.     CMP.B   #1,D0
  17427.     BEQ PortaUp
  17428.     CMP.B   #2,D0
  17429.     BEQ PortaDown
  17430.     CMP.B   #3,D0
  17431.     BEQ TonePortamento
  17432.     CMP.B   #4,D0
  17433.     BEQ Vibrato
  17434.     CMP.B   #5,D0
  17435.     BEQ TonePlusVolSlide
  17436.     CMP.B   #6,D0
  17437.     BEQ VibratoPlusVolSlide
  17438.     CMP.B   #$E,D0
  17439.     BEQ E_Commands
  17440. SetBack MOVE.W  n_period(A6),6(A5)
  17441.     CMP.B   #7,D0
  17442.     BEQ Tremolo
  17443.     CMP.B   #$A,D0
  17444.     BEQ VolumeSlide
  17445. Return2 RTS
  17446.  
  17447. PerNop  MOVE.W  n_period(A6),6(A5)
  17448.     RTS
  17449.  
  17450. Arpeggio
  17451.     MOVEQ   #0,D0
  17452.     MOVE.L  Counter(PC),D0
  17453.     DIVS    #3,D0
  17454.     SWAP    D0
  17455.     CMP.W   #1,D0
  17456.     BEQ Arpeggio1
  17457.     CMP.W   #2,D0
  17458.     BEQ Arpeggio2
  17459. Arpeggio0
  17460.     MOVE.W  n_period(A6),D2
  17461.     BRA ArpeggioSet
  17462.  
  17463. Arpeggio1
  17464.     MOVEQ   #0,D0
  17465.     MOVE.B  n_cmdlo(A6),D0
  17466.     LSR.B   #4,D0
  17467.     BRA ArpeggioFind
  17468.  
  17469. Arpeggio2
  17470.     MOVEQ   #0,D0
  17471.     MOVE.B  n_cmdlo(A6),D0
  17472.     AND.B   #15,D0
  17473. ArpeggioFind
  17474.     ASL.W   #1,D0
  17475.     MOVEQ   #0,D1
  17476.     MOVE.B  n_finetune(A6),D1
  17477.     MULU    #37*2,D1
  17478.     LEA PeriodTable(PC),A0
  17479.     ADD.L   D1,A0
  17480.     MOVEQ   #0,D1
  17481.     MOVE.W  n_period(A6),D1
  17482.     MOVEQ   #$24,D7
  17483. arploop MOVE.W  (A0,D0.W),D2
  17484.     CMP.W   (A0),D1
  17485.     BHS ArpeggioSet
  17486.     ADDQ.L  #2,A0
  17487.     DBRA    D7,arploop
  17488.     RTS
  17489.  
  17490. ArpeggioSet
  17491.     MOVE.W  D2,6(A5)
  17492.     RTS
  17493.  
  17494. FinePortaUp
  17495.     TST.L   Counter
  17496.     BNE Return2
  17497.     MOVE.B  #$0F,LowMask
  17498. PortaUp MOVEQ   #0,D0
  17499.     MOVE.B  n_cmdlo(A6),D0
  17500.     AND.B   LowMask,D0
  17501.     MOVE.B  #$FF,LowMask
  17502.     SUB.W   D0,n_period(A6)
  17503.     MOVE.W  n_period(A6),D0
  17504.     AND.W   #$0FFF,D0
  17505.     CMP.W   #$0071,D0
  17506.     BPL PortaUskip
  17507.     AND.W   #$F000,n_period(A6)
  17508.     OR.W    #$0071,n_period(A6)
  17509. PortaUskip  MOVE.W  n_period(A6),D0
  17510.     AND.W   #$0FFF,D0
  17511.     MOVE.W  D0,6(A5)
  17512.     RTS
  17513.  
  17514. FinePortaDown
  17515.     TST.L   Counter
  17516.     BNE Return2
  17517.     MOVE.B  #$0F,LowMask
  17518. PortaDown
  17519.     CLR.W   D0
  17520.     MOVE.B  n_cmdlo(A6),D0
  17521.     AND.B   LowMask,D0
  17522.     MOVE.B  #$FF,LowMask
  17523.     ADD.W   D0,n_period(A6)
  17524.     MOVE.W  n_period(A6),D0
  17525.     AND.W   #$0FFF,D0
  17526.     CMP.W   #$0358,D0
  17527.     BMI PortaDskip
  17528.     AND.W   #$F000,n_period(A6)
  17529.     OR.W    #$0358,n_period(A6)
  17530. PortaDskip  MOVE.W  n_period(A6),D0
  17531.     AND.W   #$0FFF,D0
  17532.     MOVE.W  D0,6(A5)
  17533.     RTS
  17534.  
  17535. SetTonePorta
  17536.     MOVE.L  A0,-(SP)
  17537.     MOVE.W  (A6),D2
  17538.     AND.W   #$0FFF,D2
  17539.     MOVEQ   #0,D0
  17540.     MOVE.B  n_finetune(A6),D0
  17541.     MULU    #37*2,D0
  17542.     LEA PeriodTable(PC),A0
  17543.     ADD.L   D0,A0
  17544.     MOVEQ   #0,D0
  17545. StpLoop CMP.W   (A0,D0.W),D2
  17546.     BHS StpFound
  17547.     ADDQ.W  #2,D0
  17548.     CMP.W   #37*2,D0
  17549.     BLO StpLoop
  17550.     MOVEQ   #35*2,D0
  17551. StpFound
  17552.     MOVE.B  n_finetune(A6),D2
  17553.     AND.B   #8,D2
  17554.     BEQ StpGoss
  17555.     TST.W   D0
  17556.     BEQ StpGoss
  17557.     SUBQ.W  #2,D0
  17558. StpGoss MOVE.W  (A0,D0.W),D2
  17559.     MOVE.L  (SP)+,A0
  17560.     MOVE.W  D2,n_wantedperiod(A6)
  17561.     MOVE.W  n_period(A6),D0
  17562.     CLR.B   n_toneportdirec(A6)
  17563.     CMP.W   D0,D2
  17564.     BEQ ClearTonePorta
  17565.     BGE Return2
  17566.     MOVE.B  #1,n_toneportdirec(A6)
  17567.     RTS
  17568.  
  17569. ClearTonePorta
  17570.     CLR.W   n_wantedperiod(A6)
  17571.     RTS
  17572.  
  17573.  
  17574. TonePortamento
  17575.     MOVE.B  n_cmdlo(A6),D0
  17576.     BEQ TonePortNoChange
  17577.     MOVE.B  D0,n_toneportspeed(A6)
  17578.     CLR.B   n_cmdlo(A6)
  17579. TonePortNoChange
  17580.     TST.W   n_wantedperiod(A6)
  17581.     BEQ Return2
  17582.     MOVEQ   #0,D0
  17583.     MOVE.B  n_toneportspeed(A6),D0
  17584.     TST.B   n_toneportdirec(A6)
  17585.     BNE TonePortaUp
  17586. TonePortaDown
  17587.     ADD.W   D0,n_period(A6)
  17588.     MOVE.W  n_wantedperiod(A6),D0
  17589.     CMP.W   n_period(A6),D0
  17590.     BGT TonePortaSetPer
  17591.     MOVE.W  n_wantedperiod(A6),n_period(A6)
  17592.     CLR.W   n_wantedperiod(A6)
  17593.     BRA TonePortaSetPer
  17594.  
  17595. TonePortaUp
  17596.     SUB.W   D0,n_period(A6)
  17597.     MOVE.W  n_wantedperiod(A6),D0
  17598.     CMP.W   n_period(A6),D0
  17599.     BLT TonePortaSetPer
  17600.     MOVE.W  n_wantedperiod(A6),n_period(A6)
  17601.     CLR.W   n_wantedperiod(A6)
  17602.  
  17603. TonePortaSetPer
  17604.     MOVE.W  n_period(A6),D2
  17605.     MOVE.B  n_glissfunk(A6),D0
  17606.     AND.B   #$0F,D0
  17607.     BEQ GlissSkip
  17608.     MOVEQ   #0,D0
  17609.     MOVE.B  n_finetune(A6),D0
  17610.     MULU    #37*2,D0
  17611.     LEA PeriodTable(PC),A0
  17612.     ADD.L   D0,A0
  17613.     MOVEQ   #0,D0
  17614. GlissLoop
  17615.     CMP.W   (A0,D0.W),D2
  17616.     BHS GlissFound
  17617.     ADDQ.W  #2,D0
  17618.     CMP.W   #37*2,D0
  17619.     BLO GlissLoop
  17620.     MOVEQ   #35*2,D0
  17621. GlissFound
  17622.     MOVE.W  (A0,D0.W),D2
  17623. GlissSkip
  17624.     MOVE.W  D2,6(A5) ; Set period
  17625.     RTS
  17626.  
  17627. Vibrato MOVE.B  n_cmdlo(A6),D0
  17628.     BEQ Vibrato2
  17629.     MOVE.B  n_vibratocmd(A6),D2
  17630.     AND.B   #$0F,D0
  17631.     BEQ vibskip
  17632.     AND.B   #$F0,D2
  17633.     OR.B    D0,D2
  17634. vibskip MOVE.B  n_cmdlo(A6),D0
  17635.     AND.B   #$F0,D0
  17636.     BEQ vibskip2
  17637.     AND.B   #$0F,D2
  17638.     OR.B    D0,D2
  17639. vibskip2
  17640.     MOVE.B  D2,n_vibratocmd(A6)
  17641. Vibrato2
  17642.     MOVE.L  A4,-(SP)
  17643.     MOVE.B  n_vibratopos(A6),D0
  17644.     LEA VibratoTable(PC),A4
  17645.     LSR.W   #2,D0
  17646.     AND.W   #$001F,D0
  17647.     MOVEQ   #0,D2
  17648.     MOVE.B  n_wavecontrol(A6),D2
  17649.     AND.B   #$03,D2
  17650.     BEQ vib_sine
  17651.     LSL.B   #3,D0
  17652.     CMP.B   #1,D2
  17653.     BEQ vib_rampdown
  17654.     MOVE.B  #255,D2
  17655.     BRA vib_set
  17656. vib_rampdown
  17657.     TST.B   n_vibratopos(A6)
  17658.     BPL vib_rampdown2
  17659.     MOVE.B  #255,D2
  17660.     SUB.B   D0,D2
  17661.     BRA vib_set
  17662. vib_rampdown2
  17663.     MOVE.B  D0,D2
  17664.     BRA vib_set
  17665. vib_sine
  17666.     MOVE.B  0(A4,D0.W),D2
  17667. vib_set
  17668.     MOVE.B  n_vibratocmd(A6),D0
  17669.     AND.W   #15,D0
  17670.     MULU    D0,D2
  17671.     LSR.W   #7,D2
  17672.     MOVE.W  n_period(A6),D0
  17673.     TST.B   n_vibratopos(A6)
  17674.     BMI VibratoNeg
  17675.     ADD.W   D2,D0
  17676.     BRA Vibrato3
  17677. VibratoNeg
  17678.     SUB.W   D2,D0
  17679. Vibrato3
  17680.     MOVE.W  D0,6(A5)
  17681.     MOVE.B  n_vibratocmd(A6),D0
  17682.     LSR.W   #2,D0
  17683.     AND.W   #$003C,D0
  17684.     ADD.B   D0,n_vibratopos(A6)
  17685.     MOVE.L  (SP)+,A4
  17686.     RTS
  17687.  
  17688. TonePlusVolSlide
  17689.     BSR TonePortNoChange
  17690.     BRA VolumeSlide
  17691.  
  17692. VibratoPlusVolSlide
  17693.     BSR Vibrato2
  17694.     BRA VolumeSlide
  17695.  
  17696. Tremolo MOVE.L  A4,-(SP)
  17697.     MOVE.B  n_cmdlo(A6),D0
  17698.     BEQ Tremolo2
  17699.     MOVE.B  n_tremolocmd(A6),D2
  17700.     AND.B   #$0F,D0
  17701.     BEQ treskip
  17702.     AND.B   #$F0,D2
  17703.     OR.B    D0,D2
  17704. treskip MOVE.B  n_cmdlo(A6),D0
  17705.     AND.B   #$F0,D0
  17706.     BEQ treskip2
  17707.     AND.B   #$0F,D2
  17708.     OR.B    D0,D2
  17709. treskip2
  17710.     MOVE.B  D2,n_tremolocmd(A6)
  17711. Tremolo2
  17712.     MOVE.B  n_tremolopos(A6),D0
  17713.     LEA VibratoTable(PC),A4
  17714.     LSR.W   #2,D0
  17715.     AND.W   #$001F,D0
  17716.     MOVEQ   #0,D2
  17717.     MOVE.B  n_wavecontrol(A6),D2
  17718.     LSR.B   #4,D2
  17719.     AND.B   #$03,D2
  17720.     BEQ tre_sine
  17721.     LSL.B   #3,D0
  17722.     CMP.B   #1,D2
  17723.     BEQ tre_rampdown
  17724.     MOVE.B  #255,D2
  17725.     BRA tre_set
  17726. tre_rampdown
  17727.     TST.B   n_vibratopos(A6)
  17728.     BPL tre_rampdown2
  17729.     MOVE.B  #255,D2
  17730.     SUB.B   D0,D2
  17731.     BRA tre_set
  17732. tre_rampdown2
  17733.     MOVE.B  D0,D2
  17734.     BRA tre_set
  17735. tre_sine
  17736.     MOVE.B  0(A4,D0.W),D2
  17737. tre_set
  17738.     MOVE.B  n_tremolocmd(A6),D0
  17739.     AND.W   #15,D0
  17740.     MULU    D0,D2
  17741.     LSR.W   #6,D2
  17742.     MOVEQ   #0,D0
  17743.     MOVE.B  n_volume(A6),D0
  17744.     TST.B   n_tremolopos(A6)
  17745.     BMI TremoloNeg
  17746.     ADD.W   D2,D0
  17747.     BRA Tremolo3
  17748. TremoloNeg
  17749.     SUB.W   D2,D0
  17750. Tremolo3
  17751.     BPL TremoloSkip
  17752.     CLR.W   D0
  17753. TremoloSkip
  17754.     CMP.W   #$40,D0
  17755.     BLS TremoloOk
  17756.     MOVE.W  #$40,D0
  17757. TremoloOk
  17758.     MOVE.W  D0,8(A5)
  17759.     MOVE.B  n_tremolocmd(A6),D0
  17760.     LSR.W   #2,D0
  17761.     AND.W   #$003C,D0
  17762.     ADD.B   D0,n_tremolopos(A6)
  17763.     MOVE.L  (SP)+,A4
  17764.     ADDQ.L  #4,SP
  17765.     RTS
  17766.  
  17767. SampleOffset
  17768.     MOVEQ   #0,D0
  17769.     MOVE.B  n_cmdlo(A6),D0
  17770.     BEQ sononew
  17771.     MOVE.B  D0,n_sampleoffset(A6)
  17772. sononew MOVE.B  n_sampleoffset(A6),D0
  17773.     LSL.W   #7,D0
  17774.     CMP.W   n_length(A6),D0
  17775.     BGE sofskip
  17776.     SUB.W   D0,n_length(A6)
  17777.     LSL.W   #1,D0
  17778.     ADD.L   D0,n_start(A6)
  17779.     RTS
  17780. sofskip MOVE.W  #$0001,n_length(A6)
  17781.     RTS
  17782.  
  17783. VolumeSlide
  17784.     MOVEQ   #0,D0
  17785.     MOVE.B  n_cmdlo(A6),D0
  17786.     LSR.B   #4,D0
  17787.     TST.B   D0
  17788.     BEQ VolSlideDown
  17789. VolSlideUp
  17790.     ADD.B   D0,n_volume(A6)
  17791.     CMP.B   #$40,n_volume(A6)
  17792.     BMI vsuskip
  17793.     MOVE.B  #$40,n_volume(A6)
  17794. vsuskip MOVE.B  n_volume(A6),D0
  17795. ;   MOVE.W  D0,8(A5)
  17796.     RTS
  17797.  
  17798. VolSlideDown
  17799.     MOVEQ   #0,D0
  17800.     MOVE.B  n_cmdlo(A6),D0
  17801.     AND.B   #$0F,D0
  17802. VolSlideDown2
  17803.     SUB.B   D0,n_volume(A6)
  17804.     BPL vsdskip
  17805.     CLR.B   n_volume(A6)
  17806. vsdskip MOVE.B  n_volume(A6),D0
  17807. ;   MOVE.W  D0,8(A5)
  17808.     RTS
  17809.  
  17810. PositionJump
  17811.     MOVEQ   #0,D0
  17812.     MOVE.B  n_cmdlo(A6),D0
  17813.     SUBQ.B  #1,D0
  17814.     MOVE.L  D0,SongPosition
  17815. pj2 CLR.B   PBreakPosition
  17816.     ST  PosJumpAssert
  17817.     RTS
  17818.  
  17819. VolumeChange
  17820.     MOVEQ   #0,D0
  17821.     MOVE.B  n_cmdlo(A6),D0
  17822.     CMP.B   #$40,D0
  17823.     BLS VolumeOk
  17824.     MOVEQ   #$40,D0
  17825. VolumeOk
  17826.     MOVE.B  D0,n_volume(A6)
  17827. ;   MOVE.W  D0,8(A5)
  17828.     RTS
  17829.  
  17830. PatternBreak
  17831.     MOVEQ   #0,D0
  17832.     MOVE.B  n_cmdlo(A6),D0
  17833.     MOVE.L  D0,D2
  17834.     LSR.B   #4,D0
  17835.     MULU    #10,D0
  17836.     AND.B   #$0F,D2
  17837.     ADD.B   D2,D0
  17838.     CMP.B   #63,D0
  17839.     BHI pj2
  17840.     MOVE.B  D0,PBreakPosition
  17841.     ST  PosJumpAssert
  17842.     RTS
  17843.  
  17844. SetSpeed
  17845.     MOVE.B  3(A6),D0
  17846.     AND.W   #$FF,D0
  17847.     BEQ.S   SpeedNull
  17848.     TST.B   IntMode
  17849.     BEQ.S   normspd
  17850.     CMP.W   #32,D0
  17851.     BLO.S   normspd
  17852.     MOVE.W  D0,RealTempo
  17853.     MOVEM.L D0-D7/A0-A6,-(SP)
  17854.     MOVE.W  SamScrEnable,-(SP)
  17855.     ST  SamScrEnable
  17856.     ST  UpdateTempo
  17857.     JSR SetTempo
  17858.     MOVE.W  (SP)+,SamScrEnable
  17859.     MOVEM.L (SP)+,D0-D7/A0-A6
  17860.     RTS
  17861. normspd CLR.L   Counter
  17862.     MOVE.W  D0,CurrSpeed+2
  17863.     RTS
  17864. SpeedNull
  17865.     CLR.L   RunMode
  17866.     JSR SetNormalPtrCol
  17867.     RTS
  17868.  
  17869.  
  17870. CheckMoreEffects
  17871.     MOVE.B  2(A6),D0
  17872.     AND.B   #$0F,D0
  17873.     CMP.B   #$9,D0
  17874.     BEQ SampleOffset
  17875.     CMP.B   #$B,D0
  17876.     BEQ PositionJump
  17877.     CMP.B   #$D,D0
  17878.     BEQ PatternBreak
  17879.     CMP.B   #$E,D0
  17880.     BEQ E_Commands
  17881.     CMP.B   #$F,D0
  17882.     BEQ SetSpeed
  17883.     TST.W   (A4)
  17884.     BEQ Return2
  17885.     CMP.B   #$C,D0
  17886.     BEQ VolumeChange
  17887.     BRA PerNop
  17888.  
  17889. E_Commands
  17890.     MOVE.B  n_cmdlo(A6),D0
  17891.     AND.B   #$F0,D0
  17892.     LSR.B   #4,D0
  17893.     BEQ FilterOnOff
  17894.     CMP.B   #1,D0
  17895.     BEQ FinePortaUp
  17896.     CMP.B   #2,D0
  17897.     BEQ FinePortaDown
  17898.     CMP.B   #3,D0
  17899.     BEQ SetGlissControl
  17900.     CMP.B   #4,D0
  17901.     BEQ SetVibratoControl
  17902.     CMP.B   #5,D0
  17903.     BEQ SetFineTune
  17904.     CMP.B   #6,D0
  17905.     BEQ JumpLoop
  17906.     CMP.B   #7,D0
  17907.     BEQ SetTremoloControl
  17908.     CMP.B   #8,D0
  17909.     BEQ KarplusStrong
  17910.     CMP.B   #$E,D0
  17911.     BEQ PatternDelay
  17912.     TST.W   (A4)
  17913.     BEQ Return2
  17914.     CMP.B   #9,D0
  17915.     BEQ RetrigNote
  17916.     CMP.B   #$A,D0
  17917.     BEQ VolumeFineUp
  17918.     CMP.B   #$B,D0
  17919.     BEQ VolumeFineDown
  17920.     CMP.B   #$C,D0
  17921.     BEQ NoteCut
  17922.     CMP.B   #$D,D0
  17923.     BEQ NoteDelay
  17924.     CMP.B   #$F,D0
  17925.     BEQ FunkIt
  17926.     RTS
  17927.  
  17928. FilterOnOff
  17929.     MOVE.B  n_cmdlo(A6),D0
  17930.     AND.B   #1,D0
  17931.     ASL.B   #1,D0
  17932.     AND.B   #$FD,$BFE001
  17933.     OR.B    D0,$BFE001
  17934.     RTS
  17935.  
  17936. SetGlissControl
  17937.     MOVE.B  n_cmdlo(A6),D0
  17938.     AND.B   #$0F,D0
  17939.     AND.B   #$F0,n_glissfunk(A6)
  17940.     OR.B    D0,n_glissfunk(A6)
  17941.     RTS
  17942.  
  17943. SetVibratoControl
  17944.     MOVE.B  n_cmdlo(A6),D0
  17945.     AND.B   #$0F,D0
  17946.     AND.B   #$F0,n_wavecontrol(A6)
  17947.     OR.B    D0,n_wavecontrol(A6)
  17948.     RTS
  17949.  
  17950. SetFineTune
  17951.     MOVE.B  n_cmdlo(A6),D0
  17952.     AND.B   #$0F,D0
  17953.     MOVE.B  D0,n_finetune(A6)
  17954.     RTS
  17955.  
  17956. JumpLoop
  17957.     TST.L   Counter
  17958.     BNE Return2
  17959.     MOVE.B  n_cmdlo(A6),D0
  17960.     AND.B   #$0F,D0
  17961.     BEQ SetLoop
  17962.     TST.B   n_loopcount(A6)
  17963.     BEQ jumpcnt
  17964.     SUB.B   #1,n_loopcount(A6)
  17965.     BEQ Return2
  17966. jmploop MOVE.B  n_pattpos(A6),PBreakPosition
  17967.     ST  PBreakFlag
  17968.     RTS
  17969.  
  17970. jumpcnt MOVE.B  D0,n_loopcount(A6)
  17971.     BRA jmploop
  17972.  
  17973. SetLoop MOVE.L  PatternPosition,D0
  17974.     LSR.L   #4,D0
  17975.     AND.B   #63,D0
  17976.     MOVE.B  D0,n_pattpos(A6)
  17977.     RTS
  17978.  
  17979. SetTremoloControl
  17980.     MOVE.B  n_cmdlo(A6),D0
  17981.     AND.B   #$0F,D0
  17982.     LSL.B   #4,D0
  17983.     AND.B   #$0F,n_wavecontrol(A6)
  17984.     OR.B    D0,n_wavecontrol(A6)
  17985.     RTS
  17986.  
  17987. KarplusStrong
  17988.     MOVEM.L D1-D2/A0-A1,-(SP)
  17989.     MOVE.L  n_loopstart(A6),A0
  17990.     MOVE.L  A0,A1
  17991.     MOVE.W  n_replen(A6),D0
  17992.     ADD.W   D0,D0
  17993.     SUBQ.W  #2,D0
  17994. karplop MOVE.B  (A0),D1
  17995.     EXT.W   D1
  17996.     MOVE.B  1(A0),D2
  17997.     EXT.W   D2
  17998.     ADD.W   D1,D2
  17999.     ASR.W   #1,D2
  18000.     MOVE.B  D2,(A0)+
  18001.     DBRA    D0,karplop
  18002.     MOVE.B  (A0),D1
  18003.     EXT.W   D1
  18004.     MOVE.B  (A1),D2
  18005.     EXT.W   D2
  18006.     ADD.W   D1,D2
  18007.     ASR.W   #1,D2
  18008.     MOVE.B  D2,(A0)
  18009.     MOVEM.L (SP)+,D1-D2/A0-A1
  18010.     RTS
  18011.  
  18012. RetrigNote
  18013.     MOVE.L  D1,-(SP)
  18014.     MOVEQ   #0,D0
  18015.     MOVE.B  n_cmdlo(A6),D0
  18016.     AND.B   #$0F,D0
  18017.     BEQ rtnend
  18018.     MOVE.L  Counter,D1
  18019.     BNE rtnskp
  18020.     MOVE.W  n_note(A6),D1
  18021.     AND.W   #$0FFF,D1
  18022.     BNE rtnend
  18023.     MOVE.L  Counter,D1
  18024. rtnskp  DIVU    D0,D1
  18025.     SWAP    D1
  18026.     TST.W   D1
  18027.     BNE rtnend
  18028. DoRetrg MOVE.W  n_dmabit(A6),$DFF096    ; Channel DMA off
  18029.     MOVE.L  n_start(A6),(A5)    ; Set sampledata pointer
  18030.     MOVE.W  n_length(A6),4(A5)  ; Set length
  18031.     MOVE.W  n_period(A6),6(A5)
  18032.     MOVEQ   #0,D0
  18033.     MOVE.B  n_volume(A6),D0
  18034. ;   MOVE.W  D0,8(A5)
  18035.     MOVE.W  DMAWait,D0
  18036. rtnloop1
  18037.     DBRA    D0,rtnloop1
  18038.     MOVE.W  n_dmabit(A6),D0
  18039.     BSET    #15,D0
  18040.     MOVE.W  D0,$DFF096
  18041.     MOVE.W  DMAWait,D0
  18042. rtnloop2
  18043.     DBRA    D0,rtnloop2
  18044.     MOVE.L  n_loopstart(A6),(A5)
  18045.     MOVE.L  n_replen(A6),4(A5)
  18046. rtnend  MOVE.L  (SP)+,D1
  18047.     RTS
  18048.  
  18049. VolumeFineUp
  18050.     TST.L   Counter
  18051.     BNE Return2
  18052.     MOVEQ   #0,D0
  18053.     MOVE.B  n_cmdlo(A6),D0
  18054.     AND.B   #$F,D0
  18055.     BRA VolSlideUp
  18056.  
  18057. VolumeFineDown
  18058.     TST.L   Counter
  18059.     BNE Return2
  18060.     MOVEQ   #0,D0
  18061.     MOVE.B  n_cmdlo(A6),D0
  18062.     AND.B   #$0F,D0
  18063.     BRA VolSlideDown2
  18064.  
  18065. NoteCut MOVEQ   #0,D0
  18066.     MOVE.B  n_cmdlo(A6),D0
  18067.     AND.B   #$0F,D0
  18068.     CMP.L   Counter,D0
  18069.     BNE Return2
  18070.     CLR.B   n_volume(A6)
  18071. ;   MOVE.W  #0,8(A5)
  18072.     RTS
  18073.  
  18074. NoteDelay
  18075.     MOVEQ   #0,D0
  18076.     MOVE.B  n_cmdlo(A6),D0
  18077.     AND.B   #$0F,D0
  18078.     CMP.L   Counter,D0
  18079.     BNE Return2
  18080.     MOVE.W  (A6),D0
  18081.     AND.W   #$0FFF,D0
  18082.     BEQ Return2
  18083.     MOVE.L  D1,-(SP)
  18084.     BRA DoRetrg
  18085.  
  18086. PatternDelay
  18087.     TST.L   Counter
  18088.     BNE Return2
  18089.     MOVEQ   #0,D0
  18090.     MOVE.B  n_cmdlo(A6),D0
  18091.     AND.B   #$0F,D0
  18092.     TST.B   PattDelayTime2
  18093.     BNE Return2
  18094.     ADDQ.B  #1,D0
  18095.     MOVE.B  D0,PattDelayTime
  18096.     RTS
  18097.  
  18098. FunkIt  TST.L   Counter
  18099.     BNE Return2
  18100.     MOVE.B  n_cmdlo(A6),D0
  18101.     AND.B   #$0F,D0
  18102.     LSL.B   #4,D0
  18103.     AND.B   #$0F,n_glissfunk(A6)
  18104.     OR.B    D0,n_glissfunk(A6)
  18105.     TST.B   D0
  18106.     BEQ Return2
  18107. UpdateFunk
  18108.     MOVEM.L A0/D1,-(SP)
  18109.     MOVEQ   #0,D0
  18110.     MOVE.B  n_glissfunk(A6),D0
  18111.     LSR.B   #4,D0
  18112.     BEQ funkend
  18113.     LEA FunkTable(PC),A0
  18114.     MOVE.B  (A0,D0.W),D0
  18115.     ADD.B   D0,n_funkoffset(A6)
  18116.     BTST    #7,n_funkoffset(A6)
  18117.     BEQ funkend
  18118.     CLR.B   n_funkoffset(A6)
  18119.     MOVE.L  n_loopstart(A6),D0
  18120.     MOVEQ   #0,D1
  18121.     MOVE.W  n_replen(A6),D1
  18122.     ADD.L   D1,D0
  18123.     ADD.L   D1,D0
  18124.     MOVE.L  n_wavestart(A6),A0
  18125.     ADDQ.L  #1,A0
  18126.     CMP.L   D0,A0
  18127.     BLO.S   funkok
  18128.     MOVE.L  n_loopstart(A6),A0
  18129. funkok  MOVE.L  A0,n_wavestart(A6)
  18130.     MOVEQ   #-1,D0
  18131.     SUB.B   (A0),D0
  18132.     MOVE.B  D0,(A0)
  18133. funkend MOVEM.L (SP)+,A0/D1
  18134.     RTS
  18135.  
  18136. ;************************* End of Code ******************************
  18137.  
  18138. FunkTable dc.b 0,5,6,7,8,10,11,13,16,19,22,26,32,43,64,128
  18139.  
  18140. VibratoTable   
  18141.     dc.b   0, 24, 49, 74, 97,120,141,161
  18142.     dc.b 180,197,212,224,235,244,250,253
  18143.     dc.b 255,253,250,244,235,224,212,197
  18144.     dc.b 180,161,141,120, 97, 74, 49, 24
  18145.  
  18146. AllRightText    dc.b    'All right',0
  18147. PLSTFullText    dc.b    'Plst is full!',0
  18148. AreYouSureText  dc.b    'Are you sure?',0
  18149. NoDiskInDriveText
  18150.         dc.b    'No disk in df0!',0
  18151. WriteProtectedText
  18152.         dc.b    'Write protected',0
  18153. OprAbortedText  dc.b    'Print aborted!',0
  18154. EnterDataText   dc.b    'Enter data',0
  18155. AddingPathText  dc.b    'Adding path...',0
  18156. DiskErrorText   dc.b    'Disk error !!',0
  18157. LoadingText dc.b    'Loading...',0
  18158. LoadingSongText dc.b    'Loading song',0
  18159. LoadingModuleText
  18160.         dc.b    'Loading module',0
  18161. LoadingSampleText
  18162.         dc.b    'Loading sample',0
  18163. SavingText  dc.b    'Saving...',0
  18164. ;SaveSongText   dc.b    'Save song ?',0
  18165. SavingSongText  dc.b    'Saving song',0
  18166. ;SaveModuleText dc.b    'Save module ?',0
  18167. SavingModuleText
  18168.         dc.b    'Saving module',0
  18169. ;SaveSampleText dc.b    'Save sample ?',0
  18170. SavingSampleText
  18171.         dc.b    'Saving sample',0
  18172. LoadingPLSTText dc.b    'Loading plst',0
  18173. SavingPLSTText  dc.b    'Saving plst',0
  18174. DeletingSongText
  18175.         dc.b    'Deleting song',0
  18176. DeletingModuleText
  18177.         dc.b    'Deleting module',0
  18178. DeletingSampleText
  18179.         dc.b    'Deleting sample',0
  18180. RenamingFileText
  18181.         dc.b    'Renaming file',0
  18182. DecrunchingText dc.b    'Decrunching...',0
  18183. CrunchingText   dc.b    'Crunching...',0
  18184. SelectEntryText dc.b    'Select entry',0
  18185. SelectSongText  dc.b    'Select song',0
  18186. SelectModuleText
  18187.         dc.b    'Select module',0
  18188. SelectSampleText
  18189.         dc.b    'Select sample',0
  18190. SelectFileText  dc.b    'Select file',0
  18191. ReadingDirText  dc.b    'Reading dir...',0
  18192. PosSetText  dc.b    'Position set',0
  18193. PrintingSongText
  18194.         dc.b    'Printing song',0
  18195. PrintingPLSTText
  18196.         dc.b    'Printing plst',0
  18197.  
  18198. SaveSongText    dc.b    'Save song ?',0
  18199. DeleteSongText  dc.b    'Delete song ?',0
  18200. SaveModuleText  dc.b    'Save module ?',0
  18201. DeleteModuleText dc.b   'Delete module ?',0
  18202. SaveSampleText  dc.b    'Save sample ?',0
  18203. DeleteSampleText dc.b   'Delete sample ?',0
  18204. PrintPLSTText   dc.b    'Print plst ?',0
  18205. PrintSongText   dc.b    'Print song ?',0
  18206. QuitPTText  dc.b    'Really quit ?',0
  18207. UpsampleText    dc.b    'Upsample ?',0
  18208. DownSampleText  dc.b    'Downsample ?',0
  18209. PleaseSelectText dc.b   'Please select',0
  18210. ClearSplitText  dc.b    'Clear split ?',0
  18211. ResetAllText    dc.b    'Reset config ?',0
  18212. DeletePresetText dc.b   'Delete preset ?',0
  18213. LoadPLSTText    dc.b    'Load presetlist?',0
  18214. SavePLSTText    dc.b    'Save presetlist?',0
  18215. KillSampleText  dc.b    'Kill sample ?',0
  18216. AbortLoadText   dc.b    'Abort loading ?',0
  18217. LoadConfigText  dc.b    'Load config ?',0
  18218. SaveConfigText  dc.b    'Save config ?',0
  18219.  
  18220. DiskFormatText  dc.b    'Disk format'
  18221. InProgressText  dc.b    'in progress'
  18222. FormattingCylText
  18223.         dc.b    'Formatting cyl ',0
  18224. VerifyingText   dc.b    'Verifying  cyl ',0
  18225. InitDiskText    dc.b    'Initializing',0
  18226. PlsEntNamText   dc.b    'Please enter name'
  18227. OfVolumeText    dc.b    'of volume:  ST-__',0,0
  18228.     cnop 0,2
  18229. DiskNumText1    dc.b    '0'
  18230. DiskNumText2    dc.b    '0  '
  18231. PEdDefaultPath  dc.b    'df0:',0
  18232.         dcb.b   47,0
  18233.    
  18234. PEdDefaultVol   dc.b    'st-'
  18235. SndDiskNum0 dc.b    '0'
  18236. SndDiskNum1 dc.b    '1:'
  18237.  
  18238. PresetName  dc.b    '      '
  18239. PsetNameText    dc.b    '                '
  18240.         dc.b    ' '
  18241. PsetVolText dc.b    '  '
  18242.         dc.b    ' '
  18243. PsetLenText dc.b    '    '
  18244.         dc.b    ' '
  18245. PsetRepeatText  dc.b    '    '
  18246.         dc.b    ' '
  18247. PsetReplenText  dc.b    '    '
  18248.  
  18249. InsertPsetText  dc.b    'ST-01:                  0 0000 0000 0002'
  18250. PsetPLSTtext    dc.b    'No.    Samplename               '
  18251.         dc.b    'Length  Repeat  RepLen',$A,$A
  18252. PsetPrtNumText  dc.b    '    :  '
  18253. PsetPrtNameText dc.b    '                             '
  18254. PsetPrtLenText  dc.b    '        '
  18255. PsetPrtRepeatText   dc.b    '        '
  18256. PsetPrtRepLenText   dc.b    10
  18257.     dc.b    0
  18258. SongDumpText
  18259.     dc.b    9
  18260.     dc.b    'Protracker Song-Dump -- Made with '
  18261.     dc.b    'Protracker V2.0A  ',$D,$A,$A
  18262.     dc.b    9
  18263.     dc.b    'Songname:  '
  18264. CRLF_Text   dc.b    13,10
  18265. FF_Text     dc.b    12,0
  18266.  
  18267.     cnop 0,2
  18268. PatternNumText  dc.b    9,9,9,'Pattern: '
  18269. PattNumText1    dc.b    '0'
  18270. PattNumText2    dc.b    '0',$D,$A,$D,$A
  18271.  
  18272. PtotText    dc.b    9
  18273. PattXText1  dc.b    "0"
  18274. PattXText2  dc.b    "0 : "
  18275. PpText      dc.b    "                      "
  18276. Prafs       dc.b    "  0000  0000  0000    ",$D,$A
  18277. PnText2     dc.b    "        "
  18278.     cnop 0,2
  18279.         dc.b    0
  18280. PattPosText dc.b    '00  :                                                       '
  18281. PnText      dc.b    '    ',0
  18282.  
  18283.     cnop 0,2
  18284. FmtSongDirName  dc.b    'DF0:songs',0
  18285. FmtModuleDirName    dc.b    'DF0:modules',0
  18286.  
  18287.     cnop 0,2
  18288. STText1     dc.b    'ST'
  18289. STText1Num  dc.b    '-'
  18290. STText1Number   dc.b    0,0,':'
  18291. STText2     dc.b    'ST'
  18292. STText2Num  dc.b    '-'
  18293. STText2Number   dc.b    0,0,':'
  18294. STText3     dc.b    'ST'
  18295. STText3Num  dc.b    '-'
  18296. STText3Number   dc.b    0,0,':'
  18297.  
  18298. EmptyLineText   dc.b    '                       ',0
  18299.  
  18300. FastHexTable    dc.b    '000102030405060708090A0B0C0D0E0F'
  18301.         dc.b    '101112131415161718191A1B1C1D1E1F'
  18302.         dc.b    '202122232425262728292A2B2C2D2E2F'
  18303.         dc.b    '303132333435363738393A3B3C3D3E3F'
  18304.         dc.b    '404142434445464748494A4B4C4D4E4F'
  18305.         dc.b    '505152535455565758595A5B5C5D5E5F'
  18306.         dc.b    '606162636465666768696A6B6C6D6E6F'
  18307.         dc.b    '707172737475767778797A7B7C7D7E7F'
  18308.         dc.b    '808182838485868788898A8B8C8D8E8F'
  18309.         dc.b    '909192939495969798999A9B9C9D9E9F'
  18310.         dc.b    'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'
  18311.         dc.b    'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
  18312.         dc.b    'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
  18313.         dc.b    'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
  18314.         dc.b    'E0E1E2E3E4E5E6E7E8E9EAEBECEdEEEF'
  18315.         dc.b    'F0F1F2F3F4F5F6F7F8F9FAFBFCFdFEFF'
  18316.  
  18317. TrackdiskName   dc.b    'trackdisk.device',0
  18318. InputDevName    dc.b    'input.device',0
  18319. DOSbase     dc.l    0
  18320. IntuitionBase   dc.l    0
  18321. GfxBase     dc.l    0
  18322.  
  18323. RawKeyHexTable 
  18324.     dc.b    10,1,2,3,4,5,6,7
  18325.     dc.b    8,9,32,53,51,34,18,35
  18326. RawKeyScaleTable   
  18327.     dc.b    49,33,50,34,51,52,36,53,37,54,38,55,56,40,57
  18328.     dc.b    41,58,16,2,17,3,18,19,5,20,6,21,7,22,23,9,24,10
  18329.     dc.b    25,26,12,27,70,70,0
  18330.  
  18331. KbdTransTable1 
  18332.     dc.b     0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12,13,14,15,16
  18333.     dc.b    12,13,14,15,16,17,18,19,20,21,22,23
  18334.     dc.b    24,25,26,27,28,29,30,31,36,36
  18335. KbdTransTable2
  18336.     dc.b    12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28
  18337.     dc.b    24,25,26,27,28,29,30,31,32,33,34,35
  18338.     dc.b    36,36,36,36,36,36,36,36,36,36
  18339. NoteNames1
  18340.     dc.b    'C-1 C#1 D-1 D#1 E-1 F-1 F#1 G-1 G#1 A-1 A#1 B-1 '
  18341.     dc.b    'C-2 C#2 D-2 D#2 E-2 F-2 F#2 G-2 G#2 A-2 A#2 B-2 '
  18342.     dc.b    'C-3 C#3 D-3 D#3 E-3 F-3 F#3 G-3 G#3 A-3 A#3 B-3 '
  18343. SpcNoteText
  18344.     dc.b    '--- '
  18345. NoteNames2
  18346.     dc.b    'C-1 D¡1 D-1 E¡1 E-1 F-1 G¡1 G-1 A¡1 A-1 B¡1 B-1 '
  18347.     dc.b    'C-2 D¡2 D-2 E¡2 E-2 F-2 G¡2 G-2 A¡2 A-2 B¡2 B-2 '
  18348.     dc.b    'C-3 D¡3 D-3 E¡3 E-3 F-3 G¡3 G-3 A¡3 A-3 B¡3 B-3 '
  18349.     dc.b    '--- '
  18350.  
  18351. PeriodTable
  18352. ; Tuning 0
  18353.     dc.w    856,808,762,720,678,640,604,570,538,508,480,453
  18354.     dc.w    428,404,381,360,339,320,302,285,269,254,240,226
  18355.     dc.w    214,202,190,180,170,160,151,143,135,127,120,113,0
  18356. ; Tuning 1
  18357.     dc.w    850,802,757,715,674,637,601,567,535,505,477,450
  18358.     dc.w    425,401,379,357,337,318,300,284,268,253,239,225
  18359.     dc.w    213,201,189,179,169,159,150,142,134,126,119,113,0
  18360. ; Tuning 2
  18361.     dc.w    844,796,752,709,670,632,597,563,532,502,474,447
  18362.     dc.w    422,398,376,355,335,316,298,282,266,251,237,224
  18363.     dc.w    211,199,188,177,167,158,149,141,133,125,118,112,0
  18364. ; Tuning 3
  18365.     dc.w    838,791,746,704,665,628,592,559,528,498,470,444
  18366.     dc.w    419,395,373,352,332,314,296,280,264,249,235,222
  18367.     dc.w    209,198,187,176,166,157,148,140,132,125,118,111,0
  18368. ; Tuning 4
  18369.     dc.w    832,785,741,699,660,623,588,555,524,495,467,441
  18370.     dc.w    416,392,370,350,330,312,294,278,262,247,233,220
  18371.     dc.w    208,196,185,175,165,156,147,139,131,124,117,110,0
  18372. ; Tuning 5
  18373.     dc.w    826,779,736,694,655,619,584,551,520,491,463,437
  18374.     dc.w    413,390,368,347,328,309,292,276,260,245,232,219
  18375.     dc.w    206,195,184,174,164,155,146,138,130,123,116,109,0
  18376. ; Tuning 6
  18377.     dc.w    820,774,730,689,651,614,580,547,516,487,460,434
  18378.     dc.w    410,387,365,345,325,307,290,274,258,244,230,217
  18379.     dc.w    205,193,183,172,163,154,145,137,129,122,115,109,0
  18380. ; Tuning 7
  18381.     dc.w    814,768,725,684,646,610,575,543,513,484,457,431
  18382.     dc.w    407,384,363,342,323,305,288,272,256,242,228,216
  18383.     dc.w    204,192,181,171,161,152,144,136,128,121,114,108,0
  18384. ; Tuning -8
  18385.     dc.w    907,856,808,762,720,678,640,604,570,538,508,480
  18386.     dc.w    453,428,404,381,360,339,320,302,285,269,254,240
  18387.     dc.w    226,214,202,190,180,170,160,151,143,135,127,120,0
  18388. ; Tuning -7
  18389.     dc.w    900,850,802,757,715,675,636,601,567,535,505,477
  18390.     dc.w    450,425,401,379,357,337,318,300,284,268,253,238
  18391.     dc.w    225,212,200,189,179,169,159,150,142,134,126,119,0
  18392. ; Tuning -6
  18393.     dc.w    894,844,796,752,709,670,632,597,563,532,502,474
  18394.     dc.w    447,422,398,376,355,335,316,298,282,266,251,237
  18395.     dc.w    223,211,199,188,177,167,158,149,141,133,125,118,0
  18396. ; Tuning -5
  18397.     dc.w    887,838,791,746,704,665,628,592,559,528,498,470
  18398.     dc.w    444,419,395,373,352,332,314,296,280,264,249,235
  18399.     dc.w    222,209,198,187,176,166,157,148,140,132,125,118,0
  18400. ; Tuning -4
  18401.     dc.w    881,832,785,741,699,660,623,588,555,524,494,467
  18402.     dc.w    441,416,392,370,350,330,312,294,278,262,247,233
  18403.     dc.w    220,208,196,185,175,165,156,147,139,131,123,117,0
  18404. ; Tuning -3
  18405.     dc.w    875,826,779,736,694,655,619,584,551,520,491,463
  18406.     dc.w    437,413,390,368,347,328,309,292,276,260,245,232
  18407.     dc.w    219,206,195,184,174,164,155,146,138,130,123,116,0
  18408. ; Tuning -2
  18409.     dc.w    868,820,774,730,689,651,614,580,547,516,487,460
  18410.     dc.w    434,410,387,365,345,325,307,290,274,258,244,230
  18411.     dc.w    217,205,193,183,172,163,154,145,137,129,122,115,0
  18412. ; Tuning -1
  18413.     dc.w    862,814,768,725,684,646,610,575,543,513,484,457
  18414.     dc.w    431,407,384,363,342,323,305,288,272,256,242,228
  18415.     dc.w    216,203,192,181,171,161,152,144,136,128,121,114,0
  18416.  
  18417. CursorPosTable 
  18418.     dc.b    3,6,7,8,9,10,12
  18419.     dc.b    15,16,17,18,19,21
  18420.     dc.b    24,25,26,27,28,30
  18421.     dc.b    33,34,35,36,37
  18422. UnshiftedKeymap
  18423.     dc.b    '`1234567890-=\*0'
  18424.     dc.b    'qwertyuiop[]*123'
  18425.     dc.b    'asdfghjkl;',39,'#',0,'456'
  18426.     dc.b    '<zxcvbnm,./',0,'.','789 '
  18427. ShiftedKeymap
  18428.     dc.b    '~!@#$%^&*()_+|*0'
  18429.     dc.b    'qwertyuiop{}*123'
  18430.     dc.b    'asdfghjkl:',34,'^',0,'456'
  18431.     dc.b    '>zxcvbnm<>?',0,'.','789 '
  18432.  
  18433. SongNumOfPatt   dc.w    1
  18434. NoteNamesPtr    dc.l    0
  18435. SpritePtrsPtr   dc.l    0
  18436. LineCurPosPtr   dc.l    0
  18437. NoSpritePtr dc.l    0
  18438. CursorPosPtr    dc.l    0
  18439. Ch1SpritePtr    dc.l    0
  18440. Ch2SpritePtr    dc.l    0
  18441. Ch3SpritePtr    dc.l    0
  18442. Ch4SpritePtr    dc.l    0
  18443. PPattPos    dc.l    0
  18444. SaveEditMode    dc.l    0
  18445. EditMode    dc.l    0
  18446. RunMode     dc.l    0
  18447. CurrCmds    dc.l    0
  18448. TextBplPtr  dc.l    0
  18449. TextOffset  dc.w    0
  18450. TextLength  dc.w    0
  18451. TextLenTemp dc.l    0
  18452. ShowTextPtr dc.l    0
  18453. PatternNumber   dc.l    0
  18454. CurrPos     dc.l    0
  18455. CurrSpeed   dc.l    0
  18456. KeyTransTabPtr  dc.l    0
  18457. CmdOffset   dc.w    0
  18458. RawKeyCode  dc.b    0
  18459. PattRfsh    dc.b    0
  18460. MountFlag   dc.w    0
  18461. GetlineFlag dc.w    0
  18462. LoadInProgress  dc.w    0
  18463. KbIntSave   dc.l    0
  18464. KbIntSavePtr    dc.l    0
  18465. CurrentPlayNote dc.w    214
  18466. LineCurX    dc.w    0
  18467. LineCurY    dc.w    0
  18468. TextEndPtr  dc.l    0
  18469. ScrPattPos  dc.w    0
  18470. PattCurPos  dc.w    0
  18471. GadgRepeat  dc.w    0
  18472. WordNumber  dc.w    0
  18473. HighPattNum dc.w    0
  18474. InsNum  dc.w    0
  18475. LastInsNum  dc.w    1
  18476. PlayInsNum  dc.w    1
  18477. HiLowInstr  dc.w    0
  18478. PEDpos      dc.w    0
  18479. PLSTpos     dc.w    0
  18480. MaxPLSTOffset   dc.l    0
  18481. PresetMarkTotal dc.w    0
  18482. PLSTOffset  dcb.b   14*4,0
  18483. CurrentPreset   dc.w    1
  18484. UpOrDown    dc.w    0
  18485. Joy0Low     dc.w    0
  18486. Joy0High    dc.w    0
  18487. MouseX  dc.w    0
  18488. MouseY  dc.w    0
  18489. MouseX2 dc.w    0
  18490. MouseY2 dc.w    0
  18491. MouseX3 dc.w    0
  18492. MouseY3 dc.w    0
  18493. DecompMemPtr    dc.l    0
  18494. DecompMemSize   dc.l    0
  18495.  
  18496. SampleInfo  dc.w    0
  18497. si_volume   dc.w    0
  18498. si_long     dc.l    0
  18499. si_pointer  dc.l    0,0,0,0,0
  18500. SampleInfo2 dc.w    0
  18501. si_volume2  dc.w    0
  18502. si_long2    dc.l    0
  18503. si_pointer2 dc.l    0,0,0,0,0
  18504.  
  18505. LongFFFF    dc.l    0
  18506. PosJumpAssert   dc.b    0
  18507. PBreakPosition  dc.b    0
  18508. PBreakFlag  dc.b    0
  18509. LEDStatus   dc.b    0
  18510. PattDelayTime   dc.b    0
  18511. PattDelayTime2  dc.b    0
  18512. PattRfshNum dc.l    0
  18513. DidQuantize dc.w    0
  18514. MessagePtr  dc.l    0
  18515. FileNamePtr dc.l    0
  18516. DiskDataPtr dc.l    0
  18517. FileHandle  dc.l    0
  18518. DiskDataLength  dc.l    0
  18519. LowMask     dc.b    $FF
  18520. PatternPosition dc.l    0
  18521. SongPosition    dc.l    0
  18522. Counter     dc.l    0
  18523. PatternPtr  dc.l    0
  18524. SongDataPtr dc.l    0
  18525. SampleStarts    dcb.l   31,0
  18526. SamplePtrs  EQU SampleStarts-4
  18527. SampleLengths   dcb.l   32,0
  18528. DMACONtemp  dc.w    0
  18529. StackSave   dc.l    0
  18530. InputDevMouse   dc.l    0,0,0
  18531. AnalyzerHeights dcb.w   23,0
  18532. AnalyzerOpplegg dcb.w   23,0
  18533. Action      dc.w    0
  18534. PathPtr     dc.l    0
  18535. FileLock    dc.l    0
  18536. CurrScreen  dc.w    0
  18537. SaveCurrScreen  dc.w    0
  18538. PointerCol1Save dc.w    0
  18539. PointerCol2Save dc.w    0
  18540. PointerCol3Save dc.w    0
  18541. GetDecTemp  dc.b    0
  18542. UpdateTempo dc.b    0
  18543. MoreInstrFlag   dc.w    0
  18544. SampleSortList  dcb.l   32,0
  18545. PLSTmem     dc.l    0
  18546. PresetTotal dc.w    0
  18547. SaveScope   dc.b    0
  18548.         dc.b    0 ;free 0
  18549. DisableAnalyzer dc.b    0
  18550. SaveDA      dc.b    0
  18551. AutoReqRunning  dc.b    0
  18552. NoSampleInfo    dc.b    0
  18553. FormatDataPtr   dc.l    0
  18554. CylinderNumber  dc.w    0
  18555. TrackdiskPort   dc.l    0,0,0,0
  18556. ProcessPtr  dc.l    0,0,0,0
  18557. DateStamp   dc.l    0,0,0,0
  18558. EnterTextFlag   dc.w    0
  18559. PresetLength    dc.w    0
  18560. PresetFineTune  dc.w    0
  18561. PresetRepeat    dc.w    0
  18562. PresetReplen    dc.w    0
  18563. PED_Action  dc.w    0
  18564. PsetNumTemp dc.w    0
  18565. PsetPtrTemp dc.l    0
  18566. FreeDiskSpace   dc.l    0
  18567. SplitAddress    dc.l    0
  18568. LaHeTx      dc.l    $12345678
  18569. PLSTallocsize   dc.l    0
  18570. MaxPLSTEntries2 dc.w    0
  18571.  
  18572. ;---- Setup Data ----
  18573.  
  18574. DefaultSetupData
  18575.     dc.b    'PT2.0 Configuration File',$A,0
  18576.     dc.b    'ST-00:songs'
  18577.     dcb.b   21,0
  18578.     dc.b    'ST-00:modules'
  18579.     dcb.b   19,0
  18580.     dc.b    'DF0:'
  18581.     dcb.b   28,0
  18582.     dc.b    'PRT:'
  18583.     dcb.b   28,0
  18584. DefCol  dc.w    $000,$BBB,$888,$555,$FD0,$D04,$000,$34F
  18585.     dc.b    1   ; Song Pack Mode
  18586.     dc.b    0   ; Module Pack Mode
  18587.     dc.b    0   ; Split  0=off, 1=on
  18588.     dc.b    0   ; Filter
  18589.     dc.b    0   ; TransDel
  18590.     dc.b    1   ; ShowDec
  18591.     dc.b    1   ; AutoDir
  18592.     dc.b    1   ; AutoExit
  18593.     dc.b    1   ; ModOnly
  18594.     dc.b    0   ; MIDI
  18595.     dc.b    1,$18,$18,0 ; SplitData
  18596.     dc.b    2,$1A,$18,0
  18597.     dc.b    3,$1C,$18,0
  18598.     dc.b    4,$1D,$18,0
  18599.     dc.w    20,2    ; KeyRepDelay/Speed
  18600.     dc.b    0   ; Accidental
  18601.     dc.b    0   ; not in use
  18602.     dc.b    'newshell',0    ; ExtCmd 0
  18603.     dcb.b   23,0
  18604.     dc.b    'add21k',0  ; ExtCmd 1
  18605.     dcb.b   25,0
  18606.     dc.b    'info',0    ; ExtCmd 2
  18607.     dcb.b   27,0
  18608.     dc.b    'list',0    ; ExtCmd 3
  18609.     dcb.b   27,0
  18610.     dc.b    'loadwb -debug',0 ; ExtCmd 4
  18611.     dcb.b   18,0
  18612.     dc.b    'diskmaster1.3',0 ; ExtCmd 5
  18613.     dcb.b   18,0
  18614.     dc.b    'run AudioMasterIII',0 ; ExtCmd 6
  18615.     dcb.b   13,0
  18616.     dc.b    'ced',0 ; ExtCmd 7
  18617.     dcb.b   28,0
  18618.     dc.w    0   ; Not in use
  18619.     dc.w    2500    ; Max PLST Entries
  18620.     dc.b    2,3,4,1 ; Multi Mode Next
  18621.     dc.w    $102,$202,$037,$047,$304, $F06,$C10,$C20,$E93,$A0F
  18622.     dc.b    0 ; RAW/IFF Save, 0=RAW, 1=IFF
  18623.     dc.b    1 ; IntMode, 0=VBLANK, 1=CIA
  18624.     dc.b    0 ; Override
  18625.     dc.b    0 ; Nosamples
  18626.     dc.b    0 ; BlankZero
  18627.     dc.b    1 ; ShowDirs
  18628.     dc.b    0 ; CutToBuf
  18629.     dc.b    0 ; ShowPublic
  18630.     dc.b    1 ; IFFLoop
  18631.     dc.b    0 ; HHFlag
  18632.     dc.w    125 ; Tempo
  18633.     dc.w    300 ; DMAWait
  18634.     dc.w    24  ; TuneNote (C-3)
  18635.     dc.w    $20 ; TToneVol
  18636.     dc.b    0,0,0,0,0,0,0,0 ; (Pad to 512 bytes)
  18637.     dc.b    "ST-00:" ; Protracker Path
  18638.     dcb.b   26
  18639.     dc.w    6 ; DefaultSpeed
  18640.     dc.w    $0F00,$0F00,$0F10,$0F10,$0F20,$0F20,$0F30,$0F30 ; VU-Meter
  18641.     dc.w    $0F40,$0F50,$0F60,$0F70,$0F80,$0F90,$0FA0,$0FB0 ; colors
  18642.     dc.w    $0FC0,$0FD0,$0FE0,$0FF0,$0FF0,$0EF0,$0EF0,$0DF0
  18643.     dc.w    $0DF0,$0CF0,$0CF0,$0BF0,$0BF0,$0AF0,$09F0,$09F0
  18644.     dc.w    $08F0,$08F0,$07F0,$07F0,$06F0,$06F0,$05F0,$05F0
  18645.     dc.w    $04F0,$04F0,$03F0,$03F0,$02F0,$01F0,$00F0,$00E0
  18646.  
  18647.     dc.w    $0F00,$0F10,$0F20,$0F30,$0F40,$0F50,$0F60,$0F70 ; Analyzer
  18648.     dc.w    $0F80,$0F90,$0FA0,$0FB0,$0FC0,$0FD0,$0FE0,$0FF0 ; colors
  18649.     dc.w    $0EF0,$0DF0,$0CF0,$0BF0,$0AF0,$09F0,$08F0,$07F0
  18650.     dc.w    $06F0,$05F0,$04F0,$03F0,$02F0,$01F0,$00F0,$00E0
  18651.     dc.w    $00D0,$00C0,$00B0,$00A0,$0090,$0080,$0070,$0060
  18652.     dcb.b   302  ; Pad to 1024 bytes
  18653.  
  18654. ;---- Sampler routines ----
  18655.  
  18656. _custom EQU $00DFF000
  18657. intreq  EQU $0000009C
  18658. intreqr EQU $0000001E
  18659. intena  EQU $0000009A
  18660. joy0dat EQU $0000000A
  18661. vhposr  EQU $00000006
  18662. dmacon  EQU $00000096
  18663. dmaconr EQU $00000002
  18664.  
  18665. SamInfoPtr  dc.l    0
  18666. SamInfoLen  dc.l    0
  18667. SampleNote  dc.w    24 ; C-3
  18668. ResampleNote    dc.w    24 ; C-3
  18669. SamIntSave  dc.w    0
  18670. SamDMASave  dc.w    0
  18671.  
  18672. ClearTempSampArea
  18673.     LEA TempSampArea,A0
  18674.     MOVE.W  #379,D0
  18675.     MOVEQ   #0,D1
  18676. ctsalop MOVE.W  D1,(A0)+
  18677.     DBRA    D0,ctsalop
  18678.     RTS
  18679.  
  18680. Sampler CLR.B   RawKeyCode
  18681.     BSR StopIt
  18682.     JSR TopExit
  18683.     JSR WaitForButtonUp
  18684.     JSR SetWaitPtrCol
  18685.     BSR ShowMon
  18686.     JSR Wait_4000
  18687.     JSR ClearRightArea
  18688.     JSR ClearAnalyzerColors
  18689.     BSR ClearTempSampArea
  18690.     BSR WaitForDiskDrive
  18691.     MOVE.W  $DFF01C,SamIntSave ; intenar
  18692.     MOVE.W  #$7FFF,_custom+intena
  18693.     JSR TurnOffVoices
  18694.     MOVE.W  SampleNote,D0
  18695.     ASL.W   #1,D0
  18696.     LEA PeriodTable,A0
  18697.     MOVE.W  (A0,D0.W),D0
  18698.     LSR.W   #1,D0
  18699.     LEA $00DFF000,A0
  18700.     LEA $AA(A0),A5
  18701.     LEA $BA(A0),A6
  18702.     MOVE.W  D0,$A6(A0)
  18703.     MOVE.W  D0,$B6(A0)
  18704.     MOVEQ.L #$20,D0
  18705.     MOVE.W  D0,$A8(A0)
  18706.     MOVE.W  D0,$B8(A0)
  18707.     MOVEQ.L #0,D0
  18708.     MOVE.W  D0,(A5)
  18709.     MOVE.W  D0,(A6)
  18710.     MOVE.B  #6,$00BFD200
  18711.     MOVEQ.L #2,D0
  18712.     MOVE.B  D0,$00BFD000
  18713.     MOVE.B  #0,$00BFE301
  18714.     LEA GraphOffsets(PC),A0
  18715.     LEA TempSampArea,A1
  18716.     MOVE.L  TextBplPtr,A2
  18717.     LEA $09E8-40(A2),A2
  18718.     LEA $00BFE101,A3
  18719.     LEA _custom+intreqr,A4
  18720.     MOVE.W  #$0180,D7
  18721.     MOVEQ.L #6,D6
  18722.     MOVEQ.L #10,D3
  18723. monilop2
  18724.     MOVEQ.L #22,D5
  18725. monilop4
  18726.     MOVEQ.L #7,D4
  18727. monilop3
  18728.     BTST    D7,(A4)
  18729.     BEQ.S   monilop3
  18730.     MOVE.W  D7,$7E(A4)
  18731.     MOVEQ.L #0,D0
  18732.     MOVE.B  (A3),D0
  18733.     MOVE.W  D0,D1
  18734.     SUB.B   D7,D0
  18735.     MOVE.B  D0,(A5)
  18736.     MOVE.B  D0,(A6)
  18737.     LSR.W   #3,D1
  18738.     ADD.W   D1,D1
  18739.     MOVE.W  0(A0,D1.W),D0
  18740.     MOVE.W  (A1),D1
  18741.     MOVE.W  D0,(A1)+
  18742.     BCLR    D4,0(A2,D1.W)
  18743.     BSET    D4,0(A2,D0.W)
  18744.     DBRA    D4,monilop3
  18745.     ADDQ.L  #1,A2
  18746.     DBRA    D5,monilop4
  18747.     SUB.L   #23,A2
  18748.     SUB.L   #368,A1
  18749.     BTST    D6,-$0100(A3)
  18750.     BEQ sampexit
  18751.     BTST    D3,-8(A4)
  18752.     BNE.S   monilop2
  18753.  
  18754. ;-- start sampling --
  18755.  
  18756.     MOVE.W  InsNum(PC),D1
  18757.     BEQ sampexit
  18758.     LSL.W   #2,D1
  18759.     LEA SamplePtrs,A0
  18760.     MOVE.L  (A0,D1.W),D0
  18761.     BEQ.S   samaok
  18762.     CLR.L   (A0,D1.W)
  18763.     MOVE.L  D0,A1
  18764.     MOVE.L  124(A0,D1.W),D0
  18765.     BEQ.S   samaok
  18766.     CLR.L   124(A0,D1.W)
  18767.     MOVE.L  4.W,A6
  18768.     JSR LVOFreeMem(A6)
  18769. samaok  MOVE.L  #$FFFE,D6   ; try 64k
  18770. samalclop
  18771.     MOVE.L  D6,D0
  18772.     MOVE.L  #MEMF_CHIP!MEMF_CLEAR,D1
  18773.     MOVE.L  4.W,A6
  18774.     JSR LVOAllocMem(A6)
  18775.     TST.L   D0
  18776.     BNE.S   samalcok
  18777.     SUB.L   #2048,D6    ; try 2k less
  18778.     BPL.S   samalclop
  18779.     BSR OutOfMemErr
  18780.     BRA sampexit
  18781.  
  18782. samalcok
  18783.     MOVE.W  InsNum(PC),D1
  18784.     LSL.W   #2,D1
  18785.     LEA SamplePtrs(PC),A0
  18786.     MOVE.L  D0,(A0,D1.W)
  18787.     MOVE.L  D6,124(A0,D1.W)
  18788.  
  18789.     MOVE.W  $DFF002,SamDMASave
  18790.     MOVE.W  #$03FF,_custom+dmacon
  18791.     BSR GetSampleInfo
  18792.     MOVE.L  SamInfoLen,D4
  18793.     CLR.W   $DFF100
  18794.     CLR.W   $DFF180
  18795.     MOVE.L  SamInfoPtr,A1
  18796.     LEA _custom+intreq,A2
  18797.     LEA $00BFE101,A3 ; parallel port
  18798.     LEA _custom+intreqr,A4
  18799.     LEA $DFF0BA,A6
  18800.  
  18801.     MOVE.W  #$0180,D7
  18802.     MOVEQ.L #6,D6
  18803.     MOVEQ.L #0,D5
  18804. samploop
  18805.     BTST    D7,(A4)
  18806.     BEQ.S   samploop
  18807.     MOVE.W  D7,(A2)
  18808.     MOVE.B  (A3),D0
  18809.     SUB.B   D7,D0
  18810.     MOVE.B  D0,(A5)
  18811.     MOVE.B  D0,(A6)
  18812.     MOVE.B  D0,(A1)+
  18813.     ADDQ.W  #1,D5
  18814.     CMP.W   D4,D5
  18815.     BEQ.S   sampend
  18816.     BTST    D6,-$0100(A3)
  18817.     BNE.S   samploop
  18818. sampend MOVE.W  SamDMASave,D0
  18819.     OR.W    #$8000,D0
  18820.     MOVE.W  D0,$00DFF096
  18821.  
  18822.     MOVE.L  A1,D0
  18823.     SUB.L   SamInfoPtr(PC),D0
  18824.     MOVE.L  D0,SamInfoLen
  18825.  
  18826.     MOVE.L  SongDataPtr(PC),A0
  18827.     MOVE.W  InsNum(PC),D1
  18828.     MULU    #30,D1
  18829.     LEA 12(A0,D1.W),A0
  18830.     MOVE.L  SamInfoLen(PC),D0
  18831.     LSR.L   #1,D0
  18832.     MOVE.W  D0,(A0)+
  18833.     MOVE.W  #$0040,(A0)+
  18834.     CLR.W   (A0)+
  18835.     MOVE.W  #1,(A0)
  18836.  
  18837.     MOVE.L  SamInfoLen(PC),D1
  18838.     NEG.L   D1
  18839.     AND.L   #$FFFFFFF8,D1
  18840.     NEG.L   D1
  18841.     MOVE.W  InsNum(PC),D0
  18842.     ASL.W   #2,D0
  18843.     LEA SamplePtrs,A0
  18844.     CMP.L   124(A0,D0.W),D1
  18845.     BGE.S   sampexit
  18846.     MOVE.L  124(A0,D0.W),D2
  18847.     MOVE.L  D1,124(A0,D0.W)
  18848.     SUB.L   D1,D2
  18849.     MOVE.L  0(A0,D0.W),A1
  18850.     MOVE.L  124(A0,D0.W),D0
  18851.     ADD.L   D0,A1
  18852.     MOVE.L  D2,D0
  18853.     MOVE.L  4.W,A6
  18854.     JSR LVOFreeMem(A6)
  18855. sampexit
  18856.     MOVE.W  SamIntSave,D0
  18857.     BSET    #15,D0
  18858.     MOVE.W  D0,$DFF09A
  18859.     JSR TurnOffVoices
  18860.     JSR DisplayMainScreen
  18861.     BSR ClearSamStarts
  18862.     BSR ShowSampleInfo
  18863.     BSR RedrawSample
  18864.     JSR WaitForButtonUp
  18865.     CLR.W   KeyBufPos
  18866.     CLR.B   RawKeyCode
  18867.     CLR.W   ShiftKeyStatus
  18868.     JMP Wait_4000
  18869.  
  18870. SampleNullInfo
  18871.     CLR.L   SamInfoPtr
  18872.     CLR.L   SamInfoLen
  18873.     MOVEQ   #-1,D0
  18874.     RTS
  18875.  
  18876. GetSampleInfo
  18877.     MOVE.W  InsNum(PC),D0
  18878.     BEQ.S   SampleNullInfo
  18879.     LSL.W   #2,D0
  18880.     LEA SamplePtrs(PC),A0
  18881.     MOVE.L  (A0,D0.W),SamInfoPtr
  18882.     MOVE.L  124(A0,D0.W),SamInfoLen
  18883.     MOVEQ   #0,D0
  18884.     RTS
  18885.  
  18886. ShowMon SF  ScopeEnable
  18887.     ST  DisableAnalyzer
  18888.     JSR ClearRightArea
  18889.     LEA MonitorData,A0
  18890.     MOVE.L  #MonitorSize,D0
  18891.     MOVEQ   #-1,D4
  18892.     JMP cgjojo
  18893.  
  18894. WaitForDiskDrive
  18895.     JSR StorePtrCol
  18896.     MOVE.L  4.W,A6
  18897.     LEA $15E(A6),A0 ; DeviceList
  18898.     LEA TrackdiskName,A1    ; trackdisk.device
  18899.     JSR LVOFindName(A6)
  18900.     MOVE.L  D0,A6
  18901.     LEA $24(A6),A6  ; dn_GlobalVec
  18902. trdloop2
  18903.     MOVE.L  A6,A1
  18904.     MOVEQ.L #3,D6
  18905. tdrloop TST.L   (A1)+
  18906.     BEQ.S   tdrskip
  18907.     MOVE.L  -4(A1),A2
  18908.     BTST    #7,$0041(A2)
  18909.     BEQ.S   tdrnotset
  18910. tdrskip DBRA    D6,tdrloop
  18911.     JMP RestorePtrCol
  18912.  
  18913. tdrnotset
  18914.     JSR SetDiskPtrCol
  18915.     BRA.S   trdloop2
  18916.  
  18917. ClearSamStarts
  18918.     LEA SamplePtrs+4,A0
  18919.     MOVEQ   #30,D0
  18920. cssLoop MOVE.L  (A0)+,D1
  18921.     BEQ cssSkip
  18922.     MOVE.L  D1,A1
  18923.     CLR.W   (A1)
  18924. cssSkip DBRA    D0,cssLoop
  18925.     RTS
  18926.  
  18927. GraphOffsets
  18928.     dc.w 31*40,30*40,29*40,28*40,27*40,26*40,25*40,24*40
  18929.     dc.w 23*40,22*40,21*40,20*40,19*40,18*40,17*40,16*40
  18930.     dc.w 15*40,14*40,13*40,12*40,11*40,10*40,09*40,08*40
  18931.     dc.w 07*40,06*40,05*40,04*40,03*40,02*40,01*40,00*40
  18932.  
  18933. SamNoteType dc.w    0
  18934.  
  18935. ShowSamNote
  18936.     TST.W   SamScrEnable
  18937.     BEQ Return2
  18938.     MOVE.L  NoteNamesPtr,A4
  18939.     MOVE.W  #237*40+36,TextOffset
  18940.     MOVE.W  SampleNote,D0
  18941.     LSL.W   #2,D0
  18942.     LEA (A4,D0.W),A0
  18943.     MOVE.L  A0,ShowTextPtr
  18944.     MOVE.W  #4,TextLength
  18945.     BRA ShowText
  18946.  
  18947. ShowResamNote
  18948.     TST.W   SamScrEnable
  18949.     BEQ Return2
  18950.     MOVE.L  NoteNamesPtr,A4
  18951.     MOVE.W  #248*40+36,TextOffset
  18952.     MOVE.W  ResampleNote,D0
  18953.     LSL.W   #2,D0
  18954.     LEA (A4,D0.W),A0
  18955.     MOVE.L  A0,ShowTextPtr
  18956.     MOVE.W  #4,TextLength
  18957.     BRA ShowText
  18958.  
  18959. ;---- Graphics Data ----
  18960.  
  18961. FontSize    = 568
  18962. SpectrumAnaSize = 808
  18963. ScopeSize   = 1814
  18964. SureBoxSize = 1100
  18965. ClearBoxSize    = 1100
  18966. FormatBoxSize   = 1412
  18967. DirScreenSize   = 2861
  18968. PLSTSize    = 1728-8
  18969. Edit1Size   = 1748
  18970. Edit2Size   = 1902
  18971. Edit3Size   = 2145
  18972. SetupScreenSize = 5468
  18973. Setup2Size  = 5074
  18974. PresetEdSize    = 5161
  18975. SampScreenSize  = 3843
  18976. MonitorSize = 817
  18977. HelpScreenSize  = 900
  18978.  
  18979. FontData    INCBIN "raw/ptfont.raw"
  18980.     cnop 0,2
  18981. SpectrumAnaData INCBIN "pak/ptspectrumana.pak"
  18982.     cnop 0,2
  18983. ScopeData   INCBIN "pak/ptscope.pak"
  18984.     cnop 0,2
  18985. SureBoxData INCBIN "raw/ptsurebox.raw"
  18986.     cnop 0,2
  18987. ClearBoxData    INCBIN "raw/ptclearbox.raw"
  18988.     cnop 0,2
  18989. FormatBoxData   INCBIN "raw/ptformatbox.raw"
  18990.     cnop 0,2
  18991. DirScreenData   INCBIN "pak/ptfilereq.pak"
  18992.     cnop 0,2
  18993. PLSTData    INCBIN "pak/ptplst.pak"
  18994.     cnop 0,2
  18995. Edit1Data   INCBIN "pak/ptedit1.pak"
  18996.     cnop 0,2
  18997. Edit2Data   INCBIN "pak/ptedit2.pak"
  18998.     cnop 0,2
  18999. Edit3Data   INCBIN "pak/ptedit3.pak"
  19000.     cnop 0,2
  19001. SetupScreenData INCBIN "pak/ptsetup.pak"
  19002.     cnop 0,2
  19003. Setup2Data  INCBIN "pak/ptsetup2.pak"
  19004.     cnop 0,2
  19005. PresetEdData    INCBIN "pak/ptpreseted.pak"
  19006.     cnop 0,2
  19007. SampScreenData  INCBIN "pak/ptsampler.pak"
  19008.     cnop 0,2
  19009. MonitorData INCBIN "pak/ptmonitor.pak"
  19010.     cnop 0,2
  19011. HelpScreenData  INCBIN "pak/pthelpscreen.pak"
  19012.     cnop 0,2
  19013. VolBoxData  INCBIN "raw/ptvolbox.raw"
  19014. ToggleONdata    INCBIN "raw/PTToggleON.raw"
  19015. ToggleOFFdata   INCBIN "raw/PTToggleOFF.raw"
  19016. S_BoxData   INCBIN "raw/PTLetters.raw"
  19017.  
  19018. A_BoxData   EQU S_BoxData+22
  19019. T_BoxData   EQU S_BoxData+44
  19020. P_BoxData   EQU S_BoxData+66
  19021. H_BoxData   EQU S_BoxData+88
  19022. C_BoxData   EQU S_BoxData+110
  19023.  
  19024.  
  19025. ;************************** CHIP DATA HUNK **************************
  19026.  
  19027.     SECTION ptdata,DATA_C
  19028.  
  19029. BitplaneData    INCBIN "raw/PTMainScreen.raw"
  19030.  
  19031. TopMenusPos EQU BitPlaneData+55
  19032. SpectrumAnaPos  EQU BitPlaneData+1815
  19033. FormatBoxPos    EQU BitPlaneData+2090
  19034. SureBoxPos  EQU BitPlaneData+2100
  19035. SamScrPos   EQU BitPlaneData+4880
  19036. VolBoxPos   EQU BitPlaneData+6209
  19037.  
  19038. TToneData   ; Tuning Tone (Sine Wave)
  19039.     dc.b    0,  25,  49,  71,  91, 106, 118, 126
  19040.     dc.b  127, 126, 118, 106,  91,  71,  49,  25
  19041.     dc.b    0, -25, -49, -71, -91,-106,-118,-126
  19042.     dc.b -127,-126,-118,-106, -91, -71, -49, -25
  19043.  
  19044. CopList dc.w    $0120   ; Sprite 0 high
  19045.     dc.w    0
  19046.     dc.w    $0122   ; Sprite 0 low
  19047.     dc.w    0
  19048.     dc.w    $0124   ; Sprite 1 high
  19049.     dc.w    0
  19050.     dc.w    $0126   ; Sprite 1 low
  19051.     dc.w    0
  19052.     dc.w    $0128   ; Sprite 2 high
  19053.     dc.w    0
  19054.     dc.w    $012A   ; Sprite 2 low
  19055.     dc.w    0
  19056.     dc.w    $012C   ; Sprite 3 high
  19057.     dc.w    0
  19058.     dc.w    $012E   ; Sprite 3 low
  19059.     dc.w    0
  19060.     dc.w    $0130   ; Sprite 4 high
  19061.     dc.w    0
  19062.     dc.w    $0132   ; Sprite 4 low
  19063.     dc.w    0
  19064.     dc.w    $0134   ; Sprite 5 high
  19065.     dc.w    0
  19066.     dc.w    $0136   ; Sprite 5 low
  19067.     dc.w    0
  19068.     dc.w    $0138   ; Sprite 6 high
  19069.     dc.w    0
  19070.     dc.w    $013A   ; Sprite 6 low
  19071.     dc.w    0
  19072.     dc.w    $013C   ; Sprite 7 high
  19073.     dc.w    0
  19074.     dc.w    $013E   ; Sprite 7 low
  19075.     dc.w    0
  19076. CopListBitplanes
  19077.     dc.w    $00E0   ; Bitplane 0 high
  19078.     dc.w    0
  19079.     dc.w    $00E2   ; Bitplane 0 low
  19080.     dc.w    0
  19081.     dc.w    $00E4   ; Bitplane 1 high
  19082.     dc.w    0
  19083.     dc.w    $00E6   ; Bitplane 1 low
  19084.     dc.w    0
  19085.     dc.w    $00E8   ; Bitplane 2 high
  19086. NoteBplptrHigh
  19087.     dc.w    0
  19088.     dc.w    $00EA   ; Bitplane 2 low
  19089. NoteBplptrLow
  19090.     dc.w    0
  19091. CopListColors
  19092.     dc.w    $01A2   ; Color 17
  19093.     dc.w    $0AAA
  19094.     dc.w    $01A4   ; Color 18
  19095.     dc.w    $0888
  19096.     dc.w    $01A6   ; Color 19
  19097.     dc.w    $0666
  19098.     dc.w    $01A0   ; Color 16
  19099.     dc.w    0
  19100.     dc.w    $0180   ; Color 0
  19101. CopCol0 dc.w    0
  19102.     dc.w    $0182   ; Color 1
  19103.     dc.w    $0AAA
  19104.     dc.w    $0184   ; Color 2
  19105.     dc.w    $0777
  19106.     dc.w    $0186   ; Color 3
  19107.     dc.w    $0444
  19108.     dc.w    $0188   ; Color 4
  19109.     dc.w    $0CCC
  19110.     dc.w    $018A   ; Color 5
  19111.     dc.w    $0A00
  19112.     dc.w    $018C   ; Color 6
  19113.     dc.w    $0000
  19114.     dc.w    $018E   ; Color 7
  19115.     dc.w    $004D
  19116.     dc.w    $01AE   ; Color 23
  19117.     dc.w    $0A00
  19118.     dc.w    $01AA   ; Color 21
  19119.     dc.w    $0700
  19120.     dc.w    $01AC   ; Color 22
  19121.     dc.w    $0400
  19122.     dc.w    $008E   ; Display Window Start
  19123.     dc.w    $2C81   ; 2C / 81
  19124.     dc.w    $0090   ; Display Window Stop
  19125.     dc.w    $2CC1   ; 2C / C1
  19126.     dc.w    $0092   ; Display Data Fetch Start
  19127.     dc.w    $0038
  19128.     dc.w    $0094   ; Display Data Fetch Stop
  19129.     dc.w    $00D0
  19130.     dc.w    $0108
  19131.     dc.w    0
  19132.     dc.w    $010A
  19133.     dc.w    0
  19134.     dc.w    $0102   ; bplcon1
  19135.     dc.w    0
  19136.     dc.w    $0104   ; bplcon2
  19137.     dc.w    $0024
  19138.     dc.w    $2C07   ; Wait for line $2C, pos $07
  19139.     dc.w    $FFFE
  19140.     dc.w    $0100   ; bplcon0
  19141.     dc.w    $3200
  19142. CopListAnalyzer
  19143.     dcb.w   320,0
  19144. CopListInsPos
  19145.     dc.w    $B807   ; Wait for line $88, pos $07
  19146.     dc.w    $FFFE
  19147.     dc.w    $0100   ; bplcon0
  19148.     dc.w    $2200
  19149. CopListBpl4
  19150.     dc.w    $00E8   ; Bitplane 4 high
  19151.     dc.w    0
  19152.     dc.w    $00EA   ; Bitplane 4 low
  19153.     dc.w    0
  19154.     dc.w    $0188   ; Color 4
  19155. NoteCol dc.w    $004D
  19156.     dc.w    $B907   ; Wait for line $89, pos $07
  19157.     dc.w    $FFFE
  19158.     dc.w    $0100   ; bplcon0
  19159.     dc.w    $3200
  19160. CopListMark2   
  19161.     dcb.w   672,0
  19162.  
  19163.     dc.w    $E907   ; Wait for line $E9, pos $07
  19164.     dc.w    $FFFE
  19165.     dc.w    $010A   ; bpl2mod
  19166.     dc.w    $FFD8
  19167.     dc.w    $0108   ; bpl1mod
  19168.     dc.w    $FFD8
  19169.     dc.w    $EA07   ; Wait for line $EA, pos $07
  19170.     dc.w    $FFFE
  19171.     dc.w    $0104   ; bplcon2
  19172.     dc.w    $0010
  19173.     dc.w    $010A   ; bpl2mod
  19174.     dc.w    0
  19175.     dc.w    $0108   ; bpl1mod
  19176.     dc.w    0
  19177.     dc.w    $EB07   ; Wait for line $E8, pos $07
  19178.     dc.w    $FFFE
  19179.     dc.w    $010A   ; bpl2mod
  19180.     dc.w    $FFD8
  19181.     dc.w    $0108   ; bpl1mod
  19182.     dc.w    $FFD8
  19183.     dc.w    $EC07   ; Wait for line $EC, pos $07
  19184.     dc.w    $FFFE
  19185.     dc.w    $010A   ; bpl2mod
  19186.     dc.w    0
  19187.     dc.w    $0108   ; bpl1mod
  19188.     dc.w    0
  19189.     dc.w    $ED07   ; Wait for line $ED, pos $07
  19190.     dc.w    $FFFE
  19191.     dc.w    $010A   ; bpl2mod
  19192.     dc.w    $FFD8
  19193.     dc.w    $0108   ; bpl1mod
  19194.     dc.w    $FFD8
  19195.     dc.w    $EE07   ; Wait for line $EE, pos $07
  19196.     dc.w    $FFFE
  19197.     dc.w    $010A   ; bpl2mod
  19198.     dc.w    0
  19199.     dc.w    $0108   ; bpl1mod
  19200.     dc.w    0
  19201.     dc.w    $EF07   ; Wait for line $EF, pos $07
  19202.     dc.w    $FFFE
  19203.     dc.w    $010A   ; bpl2mod
  19204.     dc.w    $FFD8
  19205.     dc.w    $0108   ; bpl1mod
  19206.     dc.w    $FFD8
  19207.     dc.w    $F007   ; Wait for line $F0, pos $07
  19208.     dc.w    $FFFE
  19209.     dc.w    $010A   ; bpl2mod
  19210.     dc.w    0
  19211.     dc.w    $0108   ; bpl1mod
  19212.     dc.w    0
  19213.     dc.w    $F107   ; Wait for line $F1, pos $07
  19214.     dc.w    $FFFE
  19215.     dc.w    $010A   ; bpl2mod
  19216.     dc.w    $FFD8
  19217.     dc.w    $0108   ; bpl1mod
  19218.     dc.w    $FFD8
  19219.     dc.w    $F207   ; Wait for line $F2, pos $07
  19220.     dc.w    $FFFE
  19221.     dc.w    $010A   ; bpl2mod
  19222.     dc.w    0
  19223.     dc.w    $0108   ; bpl1mod
  19224.     dc.w    0
  19225.     dc.w    $F307   ; Wait for line $F3, pos $07
  19226.     dc.w    $FFFE
  19227.     dc.w    $010A   ; bpl2mod
  19228.     dc.w    $FFD8
  19229.     dc.w    $0108   ; bpl1mod
  19230.     dc.w    $FFD8
  19231.     dc.w    $F407   ; Wait for line $F4, pos $07
  19232.     dc.w    $FFFE
  19233.     dc.w    $010A   ; bpl2mod
  19234.     dc.w    0
  19235.     dc.w    $0108   ; bpl1mod
  19236.     dc.w    0
  19237.     dc.w    $F507   ; Wait for line $F5, pos $07
  19238.     dc.w    $FFFE
  19239.     dc.w    $010A   ; bpl2mod
  19240.     dc.w    $FFD8
  19241.     dc.w    $0108   ; bpl1mod
  19242.     dc.w    $FFD8
  19243.     dc.w    $F607   ; Wait for line $F6, pos $07
  19244.     dc.w    $FFFE
  19245.     dc.w    $010A   ; bpl2mod
  19246.     dc.w    0
  19247.     dc.w    $0108   ; bpl1mod
  19248.     dc.w    0
  19249.     dc.w    $01B2   ; Color 1
  19250.     dc.w    0
  19251.     dc.w    $01B4   ; Color 2
  19252.     dc.w    0
  19253.     dc.w    $01B6   ; Color 3
  19254.     dc.w    0
  19255.     dc.w    $01BA   ; Color 5
  19256.     dc.w    0
  19257.     dc.w    $01BC   ; Color 6
  19258.     dc.w    0
  19259.     dc.w    $01BE   ; Color 7
  19260.     dc.w    0
  19261.     dc.w    $FFDF   ; Wait for line $FF, pos $DF
  19262.     dc.w    $FFFE
  19263.     dc.w    $2907   ; Wait for line $29, pos $07
  19264.     dc.w    $FFFE
  19265.     dc.w    $0100   ; bplcon0
  19266.     dc.w    $2200
  19267.     dc.w    $2C07   ; Wait for line $2C, pos $07
  19268.     dc.w    $FFFE
  19269.     dc.w    $0100   ; bplcon0
  19270.     dc.w    $0200
  19271.     dc.w    $FFFF   ; Wait for line $FF, pos $FF
  19272.     dc.w    $FFFE   ; End of copperlist
  19273.  
  19274.  
  19275. CopList2
  19276.     dc.w    $B607   ; Wait for line $B6, pos $07
  19277.     dc.w    $FFFE
  19278.     dc.w    $0100   ; bplcon0
  19279.     dc.w    $2200
  19280. CopList2Bpl4Ptr
  19281.     dc.w    $00E8   ; Bitplane 4 high
  19282.     dc.w    0
  19283.     dc.w    $00EA   ; Bitplane 4 low
  19284.     dc.w    0
  19285.     dc.w    $0188   ; Color 4
  19286.     dc.w    $004D
  19287.     dc.w    $01B2   ; LoopSprite color
  19288.     dc.w    $00F0
  19289.     dc.w    $01BA   ; PlayPos Sprite color
  19290.     dc.w    $00FF
  19291.     dc.w    $B707   ; Wait for line $B7, pos $07
  19292.     dc.w    $FFFE
  19293.     dc.w    $0100   ; bplcon0
  19294.     dc.w    $3200
  19295.     dc.w    $FFDF   ; Wait for line $FF, pos $DF
  19296.     dc.w    $FFFE
  19297.     dc.w    $2907   ; Wait for line $29, pos $07
  19298.     dc.w    $FFFE
  19299.     dc.w    $0100   ; bplcon0
  19300.     dc.w    $2200
  19301.     dc.w    $2C07   ; Wait for line $2C, pos $07
  19302.     dc.w    $FFFE
  19303.     dc.w    $0100   ; bplcon0
  19304.     dc.w    $0200
  19305.     dc.w    $FFFF   ; Wait for line $FF, pos $FF
  19306.     dc.w    $FFFE   ; End of copperlist
  19307.  
  19308.  
  19309. PointerSpriteData
  19310.     dc.w    0,0
  19311.     dc.w    $FFFF,$FFFF,$8002,$FFFE,$BFF4,$C00C,$BFE8,$C018
  19312.     dc.w    $BFD0,$C030,$BFE8,$C018,$BFF4,$C00C,$BFFA,$C006
  19313.     dc.w    $BFFD,$C003,$BFFA,$C006,$B7F4,$C80C,$ABE8,$DC18
  19314.     dc.w    $95D0,$F630,$A2A0,$E360,$C140,$C1C0,$8080,$8080
  19315. NoSpriteData
  19316.     dc.w    0,0,0,0
  19317. CursorSpriteData
  19318.     dc.w    0,0
  19319.     dc.w    $FFE0,$FFE0,$FFE0,$FFE0,$8020,$0000,$8020,$0000
  19320.     dc.w    $8020,$0000,$8020,$0000,$8020,$0000,$8020,$0000
  19321.     dc.w    $8020,$0000,$8020,$0000,$8020,$0000,$8020,$0000
  19322.     dc.w    $0000,$FFE0,$0000,$FFE0
  19323.     dc.w    0,0
  19324. LineCurSpriteData
  19325.     dc.w    0,0,$0000,$FE00,$0000,$FE00,$0000,$0000,0,0
  19326. VUSpriteData1
  19327.     dc.w    $E95B,$EA01
  19328.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19329.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19330.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19331.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19332.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19333.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19334.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19335.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19336.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19337.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19338.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19339.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19340.     dc.w    0,0
  19341. VUSpriteData2
  19342.     dc.w    $E97F,$EA01
  19343.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19344.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19345.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19346.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19347.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19348.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19349.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19350.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19351.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19352.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19353.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19354.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19355.     dc.w    0,0
  19356. VUSpriteData3
  19357.     dc.w    $E9A3,$EA01
  19358.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19359.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19360.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19361.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19362.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19363.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19364.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19365.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19366.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19367.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19368.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19369.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19370.     dc.w    0,0
  19371. VUSpriteData4
  19372.     dc.w    $E9C7,$EA01
  19373.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19374.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19375.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19376.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19377.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19378.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19379.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19380.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19381.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19382.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19383.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19384.     dc.w    $C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0,$C0C0,$3FC0
  19385.     dc.w    0,0
  19386. LoopSpriteData1
  19387.     dc.w 0,0
  19388.     dc.w $F000,0,$F000,0,$F000,0,$F000,0,$1000,0,$1000,0,$1000,0,$1000,0
  19389.     dc.w $1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0
  19390.     dc.w $1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0
  19391.     dc.w $1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$7000,0
  19392.     dc.w $1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0
  19393.     dc.w $1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0
  19394.     dc.w $1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0
  19395.     dc.w $1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0,$1000,0
  19396.     dc.w 0,0
  19397. LoopSpriteData2
  19398.     dc.w 0,0
  19399.     dc.w $F000,0,$F000,0,$F000,0,$F000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19400.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19401.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19402.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$E000,0
  19403.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19404.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19405.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19406.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19407.     dc.w 0,0
  19408. PlayPosSpriteData
  19409.     dc.w 0,0
  19410.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19411.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19412.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19413.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19414.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19415.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19416.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19417.     dc.w $8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0,$8000,0
  19418.     dc.w 0,0
  19419.  
  19420. ;******** BSS HUNK ********
  19421.  
  19422.     SECTION ptbss,BSS
  19423.  
  19424. FileInfoBlock   ds.b    256 ;,0
  19425. FIB_EntryType   EQU FileInfoBlock+4
  19426. FIB_FileName    EQU FileInfoBlock+8
  19427. FIB_FileSize    EQU FileInfoBlock+124
  19428. FIB_DateStamp   EQU FileInfoBlock+132
  19429.  
  19430. InfoData    ds.b    36
  19431. TopMenusBuffer  ds.b    2200
  19432. TextDataBuffer  ds.b    546  
  19433. TrackBuffer ds.b    256
  19434. CmdsBuffer  ds.b    256
  19435. BlockBuffer ds.b    256
  19436. PatternBuffer   ds.b    1024
  19437. UndoBuffer  ds.b    1024
  19438.  
  19439. TrackdiskIOExtTD
  19440.         ds.w    1
  19441.         ds.l    3
  19442. TDPortPtr   ds.l    1
  19443.         ds.w    1
  19444. Fmt_tja     ds.w    1
  19445.         ds.l    2
  19446.         ds.b    3
  19447. Fmt_hmmm    ds.b    1
  19448.         ds.w    1
  19449. FmtDataSize ds.w    2
  19450. FmtDataPtr  ds.w    2
  19451. FmtDiskOffset   ds.l    9
  19452.  
  19453. SplitTransTable ds.b    38
  19454. SplitInstrTable ds.b    38
  19455.  
  19456. ModulesPath2    ds.b    64
  19457. SongsPath2  ds.b    64
  19458. SamplePath2 ds.b    64
  19459.  
  19460.         ds.l    1
  19461.  
  19462. SetupData   ds.b    26
  19463. SongsPath   ds.b    32
  19464. ModulesPath ds.b    32
  19465. SamplePath  ds.b    32
  19466. PrintPath   ds.b    32
  19467. ColorTable  ds.w    8
  19468. PackMode    ds.b    1
  19469. ModPackMode ds.b    1
  19470. SplitFlag   ds.b    1
  19471. FilterFlag  ds.b    1
  19472. TransDelFlag    ds.b    1
  19473. ShowDecFlag ds.b    1
  19474. AutoDirFlag ds.b    1
  19475. AutoExitFlag    ds.b    1
  19476. ModOnlyFlag ds.b    1
  19477. MIDIFlag    ds.b    1
  19478. SplitData   ds.b    4
  19479.         ds.b    4
  19480.         ds.b    4
  19481.         ds.b    4
  19482. KeyRepDelay ds.w    1
  19483. KeyRepSpeed ds.w    1
  19484. Accidental  ds.b    1
  19485.         ds.b    1
  19486. ExtCommands ds.b    32*8 ; 256 bytes
  19487. MaxDirEntries   ds.w    1
  19488. MaxPLSTEntries  ds.w    1
  19489. MultiModeNext   ds.b    4
  19490. EffectMacros    ds.w    10
  19491. RAWIFFMode  ds.b    1
  19492. IntMode     ds.b    1
  19493. OverrideFlag    ds.b    1
  19494. NosamplesFlag   ds.b    1
  19495. BlankZeroFlag   ds.b    1
  19496. ShowDirsFlag    ds.b    1
  19497. ShowPublicFlag  ds.b    1
  19498. CutToBufFlag    ds.b    1
  19499. IFFLoopFlag ds.b    1
  19500. HHFlag      ds.b    1
  19501. Tempo       ds.w    1
  19502. DMAWait     ds.w    1
  19503. TuneNote    ds.w    1
  19504. TToneVol    ds.w    1
  19505. SalvageAddress  ds.b    8
  19506. PTPath      ds.b    32  ; 512 bytes
  19507. DefaultSpeed    ds.w    1
  19508. VUmeterColors   ds.w    48
  19509. AnalyzerColors  ds.w    40
  19510.         ds.b    302 ; Pad to 1024 bytes
  19511.  
  19512. HelpTextIndex   ds.l    256
  19513. HelpTextData    ds.b    656
  19514.  
  19515. InpEvPort   ds.b    34
  19516. InpEvIOReq  ds.b    48
  19517.  
  19518. ScopeInfo   ds.b    20*4
  19519. ScopeSamInfo    ds.b    16*31
  19520. BlankSample ds.b    320
  19521. FileName    ds.b    96
  19522. NewFileName ds.b    96
  19523. SampleFileName  ds.b    28
  19524. PresetNameText  ds.b    22
  19525. DirInputName    ds.b    30
  19526. NewInputName    ds.b    30
  19527. TempSampArea    ds.w    380
  19528. SaveColors  ds.w    40+48
  19529.  
  19530. END
  19531.  
  19532. ; /* End of File */
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!