From 4d5d736be3247ce4947b3baa8cabbabed71eaafe Mon Sep 17 00:00:00 2001 From: mothcompute Date: Sat, 11 Mar 2023 15:18:28 -0800 Subject: [PATCH] it_tute builds --- README.md | 2 +- build | 4 +- check-errors | 6 + errors-sorted | 29 - it.s | 240 +-- it_disk.s | 1423 +++++++++--------- it_displ.s | 487 ++++--- it_ems.s | 147 +- it_err.s | 6 +- it_f.s | 969 ++++++------- it_four.s | 50 +- it_g.s | 350 +++-- it_h.s | 1565 ++++++++++---------- it_i.s | 1257 ++++++++-------- it_k.s | 135 +- it_l.s | 129 +- it_m.s | 133 +- it_mmtsr.s | 22 +- it_mouse.s | 193 ++- it_msg.s | 212 +-- it_music.s | 985 +++++++------ it_net.s | 399 +++-- it_obj1.s | 3872 ++++++++++++++++++++++++------------------------- it_pe.s | 1257 ++++++++-------- it_s.s | 175 ++- it_tute.s | 116 +- it_vesa.s | 50 +- 27 files changed, 7063 insertions(+), 7150 deletions(-) create mode 100755 check-errors delete mode 100644 errors-sorted diff --git a/README.md b/README.md index 3522c99..1d2ac88 100644 --- a/README.md +++ b/README.md @@ -1,7 +1,7 @@ Impulse Tracker =============== -Eventually, maybe, a version of IT for modern systems +Eventually, maybe, a version of IT for modern x86\_64 systems Pre-Requisite Software ---------------------- diff --git a/build b/build index 4755bfa..f9dce12 100755 --- a/build +++ b/build @@ -3,7 +3,7 @@ mkdir -p obj gen for i in *.s; do echo $i - nasm -g $i -felf32 -o "obj/$(echo $i | sed 's/s$/o/g')" + nasm -g $i -felf64 -o "obj/$(echo $i | sed 's/s$/o/g')" done -cc -m32 main.c c/* obj/* -g3 +cc main.c c/* obj/* -g3 diff --git a/check-errors b/check-errors new file mode 100755 index 0000000..a656972 --- /dev/null +++ b/check-errors @@ -0,0 +1,6 @@ +for i in *.s; do echo -e $(nasm -felf32 -o /tmp/test.o $i 2>&1 | wc -l)'\t'$i; done | sort -n + +echo -e '\nct. in source:' +for i in '^EndP' '^EndM' '^Proc'; do + echo -e $i'\t'$(grep -RE $i 2>/dev/null | wc -l) +done diff --git a/errors-sorted b/errors-sorted deleted file mode 100644 index e45b6a4..0000000 --- a/errors-sorted +++ /dev/null @@ -1,29 +0,0 @@ -18 it_mdata.s -37 it_err.s -51 it_vesa.s -90 it_h.s -140 it_four.s -165 it_tute.s -167 it_m.s -172 it_l.s -174 it_mmtsr.s -238 it_k.s -240 it_ems.s -287 it_s.s -311 it_msg.s -318 it_mouse.s -336 it.s -425 it_g.s -641 it_net.s -815 it_displ.s -1563 it_f.s -1795 it_music.s -2057 it_pe.s -2155 it_i.s -2238 it_disk.s -2398 it_obj1.s - -instances in source code: -EndM: 374 -EndP: 3320 -Proc: 3597 diff --git a/it.s b/it.s index 5625fd3..21f9692 100644 --- a/it.s +++ b/it.s @@ -5,103 +5,103 @@ ; TODO ;Jumps -include switch.inc +%include "switch.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Segment Object1 BYTE Public 'Data' - Extrn HelpKeyValue:Word, OrderKeyValue:Word + extern HelpKeyValue:Word, OrderKeyValue:Word EndS Segment InfoLine BYTE Public 'Code' USE16 - Extrn ShowUsageTime:Byte + extern ShowUsageTime:Byte EndS Segment Disk BYTE Public 'Code' USE16 - Extrn DiskOptions:Byte + extern DiskOptions:Byte EndS Segment Screen BYTE Public 'Code' - Extrn CharacterGenerationOffset:Word - Extrn VGAFlags:Byte + extern CharacterGenerationOffset:Word + extern VGAFlags:Byte EndS Segment Mouse BYTE Public 'Code' - Extrn MouseCharacterGenerationOffset:Word + extern MouseCharacterGenerationOffset:Word EndS Segment Main DWORD Public 'Code' USE16 - Extrn ReleaseTimeSlice:Byte + extern ReleaseTimeSlice:Byte EndS - Extrn D_InitDisk:Far - Extrn D_UnInitDisk:Far - Extrn D_DisableFileColours:Far + extern D_InitDisk:Far + extern D_UnInitDisk:Far + extern D_DisableFileColours:Far - Extrn E_InitEMS:Far - Extrn E_UnInitEMS:Far + extern E_InitEMS:Far + extern E_UnInitEMS:Far - Extrn Error_InitHandler:Far - Extrn Error_UnInitHandler:Far + extern Error_InitHandler:Far + extern Error_UnInitHandler:Far - Extrn K_InitKeyBoard:Far - Extrn K_UnInitKeyBoard:Far - Extrn K_InstallKeyboardType:Far - Extrn K_RemoveKeyboardType:Far + extern K_InitKeyBoard:Far + extern K_UnInitKeyBoard:Far + extern K_InstallKeyboardType:Far + extern K_RemoveKeyboardType:Far - Extrn K_InstallDOSHandler:Far - Extrn K_UnInstallDOSHandler:Far - Extrn K_SwapKeyBoard:Far + extern K_InstallDOSHandler:Far + extern K_UnInstallDOSHandler:Far + extern K_SwapKeyBoard:Far - Extrn O1_AutoDetectList:Far - Extrn O1_ConfirmQuit:Far - Extrn O1_PatternEditList:Far - Extrn O1_CrashRecovery:Far - Extrn O1_KeyboardList:Far + extern O1_AutoDetectList:Far + extern O1_ConfirmQuit:Far + extern O1_PatternEditList:Far + extern O1_CrashRecovery:Far + extern O1_KeyboardList:Far - Extrn M_Object1List:Far + extern M_Object1List:Far - Extrn S_InitScreen:Far - Extrn S_ClearScreen:Far - Extrn S_UnInitScreen:Far - Extrn S_SetDirectMode:Far - Extrn S_DrawString:Far + extern S_InitScreen:Far + extern S_ClearScreen:Far + extern S_UnInitScreen:Far + extern S_SetDirectMode:Far + extern S_DrawString:Far - Extrn Music_InitMusic:Far - Extrn Music_UnInitMusic:Far + extern Music_InitMusic:Far + extern Music_UnInitMusic:Far - Extrn Music_SetLimit:Far - Extrn Music_SetSoundCard:Far - Extrn Music_SetDMA:Far - Extrn Music_SetIRQ:Far - Extrn Music_SetMixSpeed:Far - Extrn Music_SetAddress:Far - Extrn Music_ReverseChannels:Far - Extrn Music_PatternStorage:Far - Extrn Music_SetSoundCardDriver:Far - Extrn Music_Stop:Far - Extrn Music_AutoDetectSoundCard:Far + extern Music_SetLimit:Far + extern Music_SetSoundCard:Far + extern Music_SetDMA:Far + extern Music_SetIRQ:Far + extern Music_SetMixSpeed:Far + extern Music_SetAddress:Far + extern Music_ReverseChannels:Far + extern Music_PatternStorage:Far + extern Music_SetSoundCardDriver:Far + extern Music_Stop:Far + extern Music_AutoDetectSoundCard:Far -IF NETWORKENABLED - Extrn Network_Shutdown:Far -ENDIF +%IF NETWORKENABLED + extern Network_Shutdown:Far +%ENDIF - Extrn PE_InitPatternEdit:Far - Extrn PE_UnInitPatternEdit:Far - Extrn PECheckModified:Far + extern PE_InitPatternEdit:Far + extern PE_UnInitPatternEdit:Far + extern PECheckModified:Far - Extrn D_RestorePreShellDirectory:Far - Extrn D_GetPreShellDirectory:Far + extern D_RestorePreShellDirectory:Far + extern D_GetPreShellDirectory:Far - Extrn MMTSR_InstallMMTSR:Far - Extrn MMTSR_UninstallMMTSR:Far + extern MMTSR_InstallMMTSR:Far + extern MMTSR_UninstallMMTSR:Far - Extrn InitMouse:Far, UnInitMouse:Far - Extrn CmdLineDisableMouse:Far + extern InitMouse:Far, UnInitMouse:Far + extern CmdLineDisableMouse:Far - Extrn InitTimerHandler:Far, UnInitTimerHandler:Far + extern InitTimerHandler:Far, UnInitTimerHandler:Far ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� @@ -114,17 +114,19 @@ ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -Segment StartUp BYTE Public 'Code' USE16 - Assume CS:StartUp, DS:Nothing, ES:Nothing +;Segment StartUp BYTE Public 'Code' USE16 +section .text +%warning "USE16" +; ;Assume CS:StartUp, DS:Nothing, ES:Nothing CREATENEWLOGFILE EQU 1 -include debug.inc +%include "debug.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -StackSize = 1000h +StackSize equ 1000h No386Msg DB "Sorry, Impulse Tracker requires a 386+ processor to run." DB 13, 10, "$" @@ -154,24 +156,24 @@ EXECData DW 0 ; Inherit same environment block DW Offset FCB2, Startup ShellMsg DB "Type EXIT to return to Impulse Tracker$" -IF SHOWREGISTERNAME -include wavswitc.inc -include username.inc -ENDIF +%IF SHOWREGISTERNAME +%include "wavswitc.inc" +%include "username.inc" +%ENDIF Label CmdLineHelp Byte -IF SHOWVERSION +%IF SHOWVERSION DB "Impulse Tracker 2.14, Copyright (C) 1995-2000 Jeffrey Lim", 13, 10 DB 10 DB " Usage: IT.EXE [Switches]", 13, 10 -ELSE +%ELSE DB "Impulse Tracker, Copyright (C) 1995-2000 Jeffrey Lim", 13, 10 -IF SHOWREGISTERNAME +%IF SHOWREGISTERNAME DB "Registered to: " DB REGISTERNAME DB 13, 10 -ENDIF -ENDIF +%ENDIF +%ENDIF DB 10 DB "Switches:", 13, 10 DB " SFilename.Drv Select sound card driver", 13, 10 @@ -232,7 +234,7 @@ StartupQueueNextFunction DW Offset GetStartupKeyList2 ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc CapitaliseAL +CapitaliseAL: Cmp AL, 'a' JB CapitaliseAL1 @@ -245,7 +247,7 @@ Proc CapitaliseAL CapitaliseAL1: Ret -EndP CapitaliseAL +;EndP CapitaliseAL CapitaliseAL: cmp al, 'a' @@ -257,7 +259,7 @@ CapitaliseAL: ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetDecimalNumber ; Returns CX +GetDecimalNumber: ; Returns CX LodsB Cmp AL, '0' @@ -294,12 +296,12 @@ GetDecimalNumber4: ClC Ret -EndP GetDecimalNumber +;EndP GetDecimalNumber ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Start - Assume DS:Nothing +Start: + ;Assume DS:Nothing ; 386 check. @@ -416,13 +418,13 @@ NoShowUsageTime: Push InfoLine Pop DS - Assume DS:InfoLine + ;Assume DS:InfoLine Mov [ShowUsageTime], 0 Pop DS Jmp CmdLine1 - Assume DS:Nothing + ;Assume DS:Nothing NoReleaseTimeSlice: Cmp AL, '2' @@ -433,7 +435,7 @@ NoReleaseTimeSlice2: Push Main Pop DS - Assume DS:Main + ;Assume DS:Main Mov [ReleaseTimeSlice], 1 @@ -477,31 +479,31 @@ DisableMMTSR: DisableDetectDriveMap: Push Disk Pop DS - Assume DS:Disk + ;Assume DS:Disk Or [DiskOptions], 1 Jmp CmdLine1 - Assume DS:Nothing + ;Assume DS:Nothing DisableCacheFiles: Push Disk Pop DS - Assume DS:Disk + ;Assume DS:Disk Or [DiskOptions], 2 Jmp CmdLine1 - Assume DS:Nothing + ;Assume DS:Nothing KeyboardSwap: Mov AX, Object1 Mov DS, AX - Assume DS:Object1 + ;Assume DS:Object1 Mov [HelpKeyValue], 157h Mov [OrderKeyValue], 13Bh Jmp CmdLine1 - Assume DS:Nothing + ;Assume DS:Nothing DisableColours: Call D_DisableFileColours @@ -516,7 +518,7 @@ OverrideVGA: Mov CX, Screen Mov DS, CX - Assume DS:Screen + ;Assume DS:Screen Cmp AL, '1' JE OverrideVGA1 @@ -545,11 +547,11 @@ Matrox: Mov AX, Mouse Mov DS, AX - Assume DS:Mouse + ;Assume DS:Mouse Mov [MouseCharacterGenerationOffset], 256*32 Jmp CmdLine1 - Assume DS:Nothing + ;Assume DS:Nothing SetControl: Mov [CS:Control], 1 @@ -624,7 +626,7 @@ SetMixSpeed1: SetMixSpeedError: Push CS Pop DS - Assume DS:StartUp + ;Assume DS:StartUp Mov AH, 9 Mov DX, Offset MixErrorMsg @@ -632,7 +634,7 @@ SetMixSpeedError: Mov [Pause], 1 Jmp CmdLine1 - Assume DS:Nothing + ;Assume DS:Nothing SetIRQ1: Call GetDecimalNumber @@ -648,7 +650,7 @@ SetIRQ1: IRQError: Push CS Pop DS - Assume DS:StartUp + ;Assume DS:StartUp Mov AH, 9 Mov DX, Offset IRQErrorMsg @@ -656,7 +658,7 @@ IRQError: Mov [Pause], 1 Jmp CmdLine1 - Assume DS:Nothing + ;Assume DS:Nothing SetAddress1: @@ -713,7 +715,7 @@ SetAddress5: AddressError: Push CS Pop DS - Assume DS:StartUp + ;Assume DS:StartUp Mov AH, 9 Mov DX, Offset AddressErrorMsg @@ -721,7 +723,7 @@ AddressError: Mov [Pause], 1 Jmp CmdLine1 - Assume DS:Nothing + ;Assume DS:Nothing Limit1: Call GetDecimalNumber @@ -739,7 +741,7 @@ Limit1: LimitError: Push CS Pop DS - Assume DS:StartUp + ;Assume DS:StartUp Mov AH, 9 Mov DX, Offset LimitErrorMsg @@ -747,7 +749,7 @@ LimitError: Mov [Pause], 1 Jmp CmdLine1 - Assume DS:Nothing + ;Assume DS:Nothing CmdLineEnd: @@ -755,7 +757,7 @@ CmdLineEnd: Push CS Pop DS - Assume DS:StartUp + ;Assume DS:StartUp Trace "Windows Detection" @@ -862,7 +864,7 @@ SkipMMTSR: Call M_Object1List Jmp Quit1 -Proc Quit Far +Quit:;Far Mov DI, Offset O1_ConfirmQuit Mov CX, 3 @@ -878,9 +880,9 @@ Quit1: Call PECheckModified Call Music_Stop -IF NETWORKENABLED +%IF NETWORKENABLED Call Network_Shutdown -ENDIF +%ENDIF Call MMTSR_UninstallMMTSR Call PE_UnInitPatternEdit @@ -897,23 +899,23 @@ ENDIF Mov AX, 4C00h Int 21h -EndP Quit +;EndP Quit -EndP Start +;EndP Start ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc IsStartupKeyList Far +IsStartupKeyList:;Far Mov AL,CS:StartupList Ret -EndP IsStartupKeyList +;EndP IsStartupKeyList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetStartupKeyList Far +GetStartupKeyList:;Far Jmp [CS:StartupKeyListFunction] @@ -977,11 +979,11 @@ GetStartupKeyList3: ; Save module then quit Mov [CS:StartupList], 0 Ret -EndP GetStartupKeyList +;EndP GetStartupKeyList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc CrashRecovery Far ; CtrlAltDel location. +CrashRecovery:;Far ; CtrlAltDel location. ClD StI @@ -999,11 +1001,11 @@ Proc CrashRecovery Far ; CtrlAltDel location. Mov CX, 0FFFFh Jmp M_Object1List -EndP CrashRecovery +;EndP CrashRecovery ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetEnvironment Far ; DS:SI points to string. +GetEnvironment:;Far ; DS:SI points to string. ; CX = length of string. ; Returns ES:DI @@ -1042,11 +1044,11 @@ GetEnvironment3: ClC Ret -EndP GetEnvironment +;EndP GetEnvironment ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Refresh Far +Refresh:;Far Call D_GetPreShellDirectory Call S_InitScreen @@ -1057,11 +1059,11 @@ Proc Refresh Far Mov AX, 1 Ret -EndP Refresh +;EndP Refresh ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DOSShell Far +DOSShell:;Far PushAD Push DS @@ -1090,7 +1092,7 @@ DOSShell3: Push CS Pop DS Pop ES - Assume DS:StartUp + ;Assume DS:StartUp Mov AH, 9 Mov DX, Offset ShellMsg @@ -1107,7 +1109,7 @@ DOSShell3: DOSShell1: ClI Int 21h - Assume DS:Nothing + ;Assume DS:Nothing PopF @@ -1134,8 +1136,8 @@ DOSShell5: Mov AX, 1 Ret -EndP DOSShell - Assume DS:Nothing +;EndP DOSShell + ;Assume DS:Nothing ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_disk.s b/it_disk.s index 9bb9358..267122c 100644 --- a/it_disk.s +++ b/it_disk.s @@ -2,11 +2,8 @@ ;� Disk Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include switch.inc -include network.inc - - Jumps - .386 +%include "switch.inc" +%include "network.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � @@ -16,128 +13,128 @@ Segment Object1 BYTE Public 'Data' EndS Segment Pattern BYTE Public 'Code' - Extrn BaseOctave:Byte - Extrn RowHilight1:Byte - Extrn RowHilight2:Byte + extern BaseOctave:Byte + extern RowHilight1:Byte + extern RowHilight2:Byte EndS Segment Pattern BYTE Public 'Code' - Extrn PatternDataArea:Word + extern PatternDataArea:Word EndS Segment Music BYTE Public 'Code' EndS - Extrn Display_GetDisplayWindowData:Far + extern Display_GetDisplayWindowData:Far - Extrn E_UnInitEMS:Far - Extrn E_MapEMSMemory:Far - Extrn E_GetEMSPageFrame:Far + extern E_UnInitEMS:Far + extern E_MapEMSMemory:Far + extern E_GetEMSPageFrame:Far - Extrn Glbl_F3:Far - Extrn Glbl_F4:Far + extern Glbl_F3:Far + extern Glbl_F4:Far - Extrn I_GetSampleOffset:Far - Extrn I_GetInstrumentOffset:Far - Extrn I_ClearTables:Far - Extrn I_GetPresetEnvelopeOffset:Far + extern I_GetSampleOffset:Far + extern I_GetInstrumentOffset:Far + extern I_ClearTables:Far + extern I_GetPresetEnvelopeOffset:Far - Extrn K_UnInitKeyBoard:Far - Extrn K_IsAnyKeyDown:Far - Extrn K_ClearKeyBoardQueue:Far - Extrn K_GetKey:Far + extern K_UnInitKeyBoard:Far + extern K_IsAnyKeyDown:Far + extern K_ClearKeyBoardQueue:Far + extern K_GetKey:Far - Extrn M_FunctionDivider:Far - Extrn M_Object1List:Far + extern M_FunctionDivider:Far + extern M_Object1List:Far - Extrn Music_PlayNote:Far - Extrn Music_PlaySample:Far - Extrn Music_ReleaseAllPatterns:Far - Extrn Music_ReleaseAllSamples:Far - Extrn Music_ReleaseSample:Far - Extrn Music_GetSongSegment:Far - Extrn Music_AllocateSample:Far - Extrn Music_ClearAllSampleNames:Far - Extrn Music_GetNumberOfSamples:Far - Extrn Music_GetNumberOfInstruments:Far - Extrn Music_GetPattern:Far - Extrn Music_AllocatePattern:Far - Extrn Music_AllocateSample:Far - Extrn Music_GetSampleLocation:Far - Extrn Music_ClearAllInstruments:Far - Extrn Music_GetInstrumentMode:Far - Extrn Music_AssignSampleToInstrument:Far - Extrn Music_SoundCardLoadSample:Far - Extrn Music_SoundCardLoadAllSamples:Far - Extrn Music_GetPitchTable:Far - Extrn Music_GetMIDIDataArea:Far + extern Music_PlayNote:Far + extern Music_PlaySample:Far + extern Music_ReleaseAllPatterns:Far + extern Music_ReleaseAllSamples:Far + extern Music_ReleaseSample:Far + extern Music_GetSongSegment:Far + extern Music_AllocateSample:Far + extern Music_ClearAllSampleNames:Far + extern Music_GetNumberOfSamples:Far + extern Music_GetNumberOfInstruments:Far + extern Music_GetPattern:Far + extern Music_AllocatePattern:Far + extern Music_AllocateSample:Far + extern Music_GetSampleLocation:Far + extern Music_ClearAllInstruments:Far + extern Music_GetInstrumentMode:Far + extern Music_AssignSampleToInstrument:Far + extern Music_SoundCardLoadSample:Far + extern Music_SoundCardLoadAllSamples:Far + extern Music_GetPitchTable:Far + extern Music_GetMIDIDataArea:Far - Extrn Music_Stop:Far - Extrn Msg_ResetMessage:Far - Extrn Msg_GetMessageOffset:Far - Extrn Msg_GetMessageLength:Far + extern Music_Stop:Far + extern Msg_ResetMessage:Far + extern Msg_GetMessageOffset:Far + extern Msg_GetMessageLength:Far -IF TUTORIAL -ELSE - Extrn O1_LoadS3MList:Far - Extrn O1_LoadXMList:Far - Extrn O1_LoadMODList:Far - Extrn O1_LoadMTMList:Far - Extrn O1_Load669List:Far - Extrn O1_LoadITList:Far -ENDIF - Extrn O1_ConfirmOverWriteList:Far - Extrn O1_UnableToSaveList:Far - Extrn O1_SaveITList:Far - Extrn O1_SaveS3MList:Far - Extrn O1_ConfirmDelete:Far ; Updates Song name loader. - Extrn O1_ConfirmDelete2:Far - Extrn O1_ConfirmDelete3:Far - Extrn O1_ConfirmSaveRenameList:Far - Extrn O1_ConfirmResaveList:Far - Extrn O1_ConfirmDiscardList:Far - Extrn O1_InitInstrument:Far - Extrn O1_EditSampleName:Far - Extrn O1_OutOfSamplesList:Far - Extrn O1_EnableInstrumentMode:Far - Extrn O1_StereoSampleList:Far +%IF TUTORIAL +%ELSE + extern O1_LoadS3MList:Far + extern O1_LoadXMList:Far + extern O1_LoadMODList:Far + extern O1_LoadMTMList:Far + extern O1_Load669List:Far + extern O1_LoadITList:Far +%ENDIF + extern O1_ConfirmOverWriteList:Far + extern O1_UnableToSaveList:Far + extern O1_SaveITList:Far + extern O1_SaveS3MList:Far + extern O1_ConfirmDelete:Far ; Updates Song name loader. + extern O1_ConfirmDelete2:Far + extern O1_ConfirmDelete3:Far + extern O1_ConfirmSaveRenameList:Far + extern O1_ConfirmResaveList:Far + extern O1_ConfirmDiscardList:Far + extern O1_InitInstrument:Far + extern O1_EditSampleName:Far + extern O1_OutOfSamplesList:Far + extern O1_EnableInstrumentMode:Far + extern O1_StereoSampleList:Far - Extrn PE_TranslateXMPattern:Far - Extrn PE_Translate669Pattern:Far - Extrn PE_TranslateS3MPattern:Far - Extrn PE_TranslateMTMPattern:Far - Extrn PE_TranslateMODPattern:Far - Extrn PE_ResetOrderPattern:Far - Extrn PE_UnInitPatternEdit:Far - Extrn PEFunction_OutOfMemoryMessage:Far - Extrn PECheckModified:Far - Extrn PEResetModified:Far - Extrn PE_GetMaxPattern:Far - Extrn PE_ConvAX2Num:Far - Extrn PE_GetLastInstrument:Far - Extrn PE_GetPatternConfigOffset:Far - Extrn PE_SaveCurrentPattern:Far - Extrn PE_RestoreCurrentPattern:Far + extern PE_TranslateXMPattern:Far + extern PE_Translate669Pattern:Far + extern PE_TranslateS3MPattern:Far + extern PE_TranslateMTMPattern:Far + extern PE_TranslateMODPattern:Far + extern PE_ResetOrderPattern:Far + extern PE_UnInitPatternEdit:Far + extern PEFunction_OutOfMemoryMessage:Far + extern PECheckModified:Far + extern PEResetModified:Far + extern PE_GetMaxPattern:Far + extern PE_ConvAX2Num:Far + extern PE_GetLastInstrument:Far + extern PE_GetPatternConfigOffset:Far + extern PE_SaveCurrentPattern:Far + extern PE_RestoreCurrentPattern:Far - Extrn S_UnInitScreen:Far - Extrn S_GetDestination:Far - Extrn S_DrawString:Far - Extrn S_SaveScreen:Far - Extrn S_RestoreScreen:Far - Extrn S_GetGenerationTableOffset:Far - Extrn S_GenerateCharacters:Far - Extrn S_RedefineCharacters:Far - Extrn S_GetPaletteOffset:Far - Extrn S_SetPalette:Far + extern S_UnInitScreen:Far + extern S_GetDestination:Far + extern S_DrawString:Far + extern S_SaveScreen:Far + extern S_RestoreScreen:Far + extern S_GetGenerationTableOffset:Far + extern S_GenerateCharacters:Far + extern S_RedefineCharacters:Far + extern S_GetPaletteOffset:Far + extern S_SetPalette:Far - Extrn SetInfoLine:Far - Extrn ClearInfoLine:Far + extern SetInfoLine:Far + extern ClearInfoLine:Far - Extrn Glbl_SetCurrentMode:Far - Extrn Glbl_F10:Far + extern Glbl_SetCurrentMode:Far + extern Glbl_F10:Far - Extrn GetKeyboardLock:Far, GetTimerCounter:Far - Extrn MouseUpdateEnable:Far, MouseUpdateDisable:Far + extern GetKeyboardLock:Far, GetTimerCounter:Far + extern MouseUpdateEnable:Far, MouseUpdateDisable:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -239,30 +236,30 @@ ENDIF Public D_Resettimer Public D_ShowTime -IF TIMERSCREEN +%IF TIMERSCREEN Public D_DrawTimer Public D_PostTimerList -ENDIF +%ENDIF -IF TUTORIAL +%IF TUTORIAL Public SamplesInModule Public InSampleFileName -ELSE +%ELSE Public D_LoadS3M Public D_LoadMTM Public D_LoadMOD Public D_Load669 Public D_LoadIT Public D_LoadXM -ENDIF +%ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Disk BYTE Public 'Code' USE16 - Assume CS:Disk, DS:Nothing + ;Assume CS:Disk, DS:Nothing CREATENEWLOGFILE EQU 0 -include debug.inc +%include "debug.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -576,7 +573,7 @@ MODModule1 DB "MOD Format", 0 ; ULTModule DB "Ultra Tracker Module", 0 KRZFormat DB "Kurzweil Synth File", 0 PATFormat DB "Gravis UltraSound Patch", 0 -IFFFormat DB "AIFF Sample", 0 +%IF FFormat DB "AIFF Sample", 0 Unchecked DB "Unchecked", 0 UnknownFormat DB "Unknown module format", 0 @@ -599,11 +596,11 @@ ITInstrumentSavedMsg DB "Instrument saved (instrument ", 0FDh, "D)", 0 InstrumentErrorMsg DB "Error: Instrument ", 0FDh, "D NOT saved! (No Filename?)", 0 ITSampleSavedMsg DB "Impulse Tracker sample saved (sample ", 0FDh, "D)", 0 ST3SampleSavedMsg DB "Scream Tracker sample saved (sample ", 0FDh, "D)", 0 -IF SAVESAMPLEWAV +%IF SAVESAMPLEWAV RawSampleSavedMsg DB "WAV Sample saved (sample ", 0FDh, "D)", 0 -ELSE +%ELSE RawSampleSavedMsg DB "RAW Sample saved (sample ", 0FDh, "D)", 0 -ENDIF +%ENDIF SampleErrorMsg DB "Error: Sample ", 0FDh, "D NOT saved! (No Filename?)", 0 InitInstrumentMsg DB "Sample assigned to Instrument ", 0FDh, "D", 0 InitInstrumentErrorMsg DB "Error: No available Instruments!", 0 @@ -629,7 +626,7 @@ FileSizeMsg DB 0FDh, "Dk", 0 FreeSampleMsg DB "Available", 13 DB "Samples: ", 0FDh, 'D', 0 -IF SAVESAMPLEWAV +%IF SAVESAMPLEWAV WAVEFileHeader DB "RIFF" WAVEFileSize DD 0 WAVEFileHeader2 DB "WAVEfmt " @@ -642,7 +639,7 @@ IF SAVESAMPLEWAV WAVEBits DW 16 WAVEHeader3 DB "data" WAVEDataSize DD 0 -ENDIF +%ENDIF DiskOptions DB 0 EditTimer DD 0 @@ -972,13 +969,13 @@ LSViewWindowKeys Label ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_InitDisk Far +Proc D_InitDisk Far Push DS Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk ; Get date/time for CACHE.IT file Trace " - Finding CDROM Drives" @@ -1267,7 +1264,7 @@ D_InitDisk13: D_InitDisk2: ; Load font data.. and set it. Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset StartingDirectory Call D_SetDriveDirectory @@ -1316,16 +1313,16 @@ D_NoFontFile: Pop DS Ret -EndP D_InitDisk - Assume DS:Nothing +;EndP D_InitDisk + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_UnInitDisk Far +Proc D_UnInitDisk Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AX, DiskDataArea Test AX, AX @@ -1343,12 +1340,12 @@ D_UnInitDisk1: Ret -EndP D_UnInitDisk - Assume DS:Nothing +;EndP D_UnInitDisk + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_GetDriveDirectory ; DS:SI points to buffer +Proc D_GetDriveDirectory ; DS:SI points to buffer Push AX Push DX @@ -1371,11 +1368,11 @@ Proc D_GetDriveDirectory ; DS:SI points to buffer Ret -EndP D_GetDriveDirectory +;EndP D_GetDriveDirectory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SetDriveDirectory ; DS:SI points to dir. +Proc D_SetDriveDirectory ; DS:SI points to dir. Push AX Push BX @@ -1429,11 +1426,11 @@ D_SetDriveDirectory2: Pop AX Ret -EndP D_SetDriveDirectory +;EndP D_SetDriveDirectory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadFileNames +Proc D_LoadFileNames Mov ES, CS:DiskDataArea Xor DI, DI @@ -1446,7 +1443,7 @@ Proc D_LoadFileNames Pop DS Pop ES - Assume DS:Disk + ;Assume DS:Disk Mov NumFileInfo, 0 Mov NumEntries, 0 @@ -1516,7 +1513,7 @@ D_LoadFileNames4: Push DX Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov DX, 60000 Mov AH, 1Ah @@ -1524,7 +1521,7 @@ D_LoadFileNames4: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AH, 4Eh Pop DX @@ -1543,7 +1540,7 @@ D_LoadFileNames5: Mov CX, 21 Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov SI, 60000+16h @@ -1576,12 +1573,12 @@ D_LoadFileNames8: D_LoadFileNames6: RetN -EndP D_LoadFileNames - Assume DS:Nothing +;EndP D_LoadFileNames + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SortRoutine +Proc D_SortRoutine Mov DS, DiskDataArea Push DS @@ -1667,11 +1664,11 @@ D_SortRoutine4: D_SortRoutine1: Ret -EndP D_SortRoutine +;EndP D_SortRoutine ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SortFileNames +Proc D_SortFileNames Xor CX, CX Mov DX, CS:NumFiles @@ -1679,11 +1676,11 @@ Proc D_SortFileNames Ret -EndP D_SortFileNames +;EndP D_SortFileNames ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SortDirNames +Proc D_SortDirNames Mov CX, CS:NumFiles Mov DX, CX @@ -1692,11 +1689,11 @@ Proc D_SortDirNames Ret -EndP D_SortDirNames +;EndP D_SortDirNames ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_InitLoadModule Far +Proc D_InitLoadModule Far Push DS Push ES @@ -1706,7 +1703,7 @@ Proc D_InitLoadModule Far Push CS Pop DS Pop ES - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset FileSpecifierDefault Mov DI, Offset FileSpecifier @@ -1716,9 +1713,9 @@ Proc D_InitLoadModule Far Pop DI Pop ES Pop DS - Assume DS:Nothing + ;Assume DS:Nothing -Proc D_InitLoadModule2 Far +Proc D_InitLoadModule2 Far Cmp CS:FileSpecifier, 0 JE D_InitLoadModule @@ -1731,7 +1728,7 @@ Proc D_InitLoadModule2 Far Push CS Pop DS Pop ES - Assume DS:Disk + ;Assume DS:Disk Mov DI, Offset CurrentSearchPos Mov CX, 14 @@ -1752,20 +1749,20 @@ Proc D_InitLoadModule2 Far Pop DS Ret -EndP D_InitLoadModule2 +;EndP D_InitLoadModule2 -EndP D_InitLoadModule - Assume DS:Nothing +;EndP D_InitLoadModule + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DrawFileWindow Far ; Layout of filenames in memory +Proc D_DrawFileWindow Far ; Layout of filenames in memory ; Start at offset 2000 ; Pointers to filenames at 0 Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call S_GetDestination @@ -1788,7 +1785,7 @@ D_DrawFileWindow2: Mov BX, AX ; BX = filenum Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov DI, (3+13*80)*2 Mov CX, 31 @@ -1893,7 +1890,7 @@ D_DrawFileWindow9: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Cmp NumFiles, 0 JE D_DrawFileWindow7 @@ -1937,7 +1934,7 @@ D_DrawFileWindow12: Add BX, BX Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov BX, [BX] Mov SI, [BX+23] @@ -1946,7 +1943,7 @@ D_DrawFileWindow12: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Add SI, SI Mov SI, [FormatNames+SI] @@ -1975,7 +1972,7 @@ D_DrawFileWindow13: D_DrawFileWindow14: Mov DS, DS:DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov DX, [BX+6] Mov AX, [BX+4] @@ -2028,7 +2025,7 @@ D_DrawFileWindow15: ; OK, time for a date :) Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov DI, (51+42*80)*2 Mov AX, BX @@ -2171,16 +2168,16 @@ D_DrawFileWindow27: Ret -EndP D_DrawFileWindow - Assume DS:Nothing +;EndP D_DrawFileWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DrawDirectoryWindow Far +Proc D_DrawDirectoryWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call S_GetDestination @@ -2206,7 +2203,7 @@ D_DrawDirectoryWindow2: Mov DI, (44+13*80)*2 Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing D_DrawDirectoryWindow3: Cmp BX, CS:NumDirectories @@ -2240,7 +2237,7 @@ D_DrawDirectoryWindow8: D_DrawDirectoryWindow4: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Cmp NumDirectories, 0 JE D_DrawDirectoryWindow6 @@ -2261,16 +2258,16 @@ D_DrawDirectoryWindow7: Ret -EndP D_DrawDirectoryWindow - Assume DS:Nothing +;EndP D_DrawDirectoryWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DrawDriveWindow Far +Proc D_DrawDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call S_GetDestination @@ -2327,12 +2324,12 @@ D_DrawDriveWindow4: D_DrawDriveWindow5: Ret -EndP D_DrawDriveWindow - Assume DS:Nothing +;EndP D_DrawDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadFileHeader ; Given DS:SI = filename +Proc D_LoadFileHeader ; Given DS:SI = filename Push BP @@ -2439,14 +2436,14 @@ D_LoadFileHeader1: PushF Jmp D_LoadFileHeader4 -EndP D_LoadFileHeader +;EndP D_LoadFileHeader ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadModuleHeader +Proc D_LoadModuleHeader Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Add BX, BX Mov SI, [BX] @@ -2456,11 +2453,11 @@ Proc D_LoadModuleHeader Ret -EndP D_LoadModuleHeader +;EndP D_LoadModuleHeader ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadSongNames Far ; Part of idle list. +Proc D_LoadSongNames Far ; Part of idle list. Call K_IsAnyKeyDown And AL, AL @@ -2472,7 +2469,7 @@ Proc D_LoadSongNames Far ; Part of idle list. Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov BX, LoadSongNameCount Cmp BX, NumFiles @@ -2495,15 +2492,15 @@ D_LoadSongNames3: Mov AX, 1 ; Signify redraw screen Ret -EndP D_LoadSongNames +;EndP D_LoadSongNames ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PreFileWindow Far +Proc D_PreFileWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentFile Sub AX, TopFile @@ -2543,16 +2540,16 @@ D_PreFileWindow3: Ret -EndP D_PreFileWindow - Assume DS:Nothing +;EndP D_PreFileWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PreDirectoryWindow Far +Proc D_PreDirectoryWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentDirectory Sub AX, TopDirectory @@ -2575,16 +2572,16 @@ D_PreDirectoryWindow1: Ret -EndP D_PreDirectoryWindow - Assume DS:Nothing +;EndP D_PreDirectoryWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PreDriveWindow Far +Proc D_PreDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AL, CurrentDrive Sub AL, TopDrive @@ -2605,19 +2602,19 @@ D_PreDriveWindow1: Ret -EndP D_PreDriveWindow - Assume DS:Nothing +;EndP D_PreDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadFileOpenErrorMsg Far +Proc D_LoadFileOpenErrorMsg Far Mov DI, (4+16*80)*2 Mov AH, 4 Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset OpenErrorMsg @@ -2626,12 +2623,12 @@ Proc D_LoadFileOpenErrorMsg Far Mov AX, 1 Ret -EndP D_LoadFileOpenErrorMsg - Assume DS:Nothing +;EndP D_LoadFileOpenErrorMsg + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_Decompress16BitData +Proc D_Decompress16BitData ; Register usage: ; BX = LastValue @@ -2740,11 +2737,11 @@ D_Decompress16BitB: Jmp D_Decompress16BitData1 -EndP D_Decompress16BitData +;EndP D_Decompress16BitData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_Decompress8BitData ; DS:SI = source +Proc D_Decompress8BitData ; DS:SI = source ; ES:DI = destination ; CX = count. @@ -2857,14 +2854,14 @@ D_Decompress8BitC: ; 9 bit representation Jmp D_Decompress8BitD -EndP D_Decompress8BitData +;EndP D_Decompress8BitData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� TempData DW 0 DisableStereoMenu DB 0 -Proc D_LoadSampleData ; DS:SI points to sample header +Proc D_LoadSampleData ; DS:SI points to sample header ; AX = sample number (0 based) Push DS @@ -2985,10 +2982,10 @@ NotTX12BitSampleA: Mov DX, Pattern Mov DS, DX - Assume DS:Pattern + ;Assume DS:Pattern Mov DS, Word Ptr [PatternDataArea] - Assume DS:Nothing + ;Assume DS:Nothing Xor DX, DX Mov CX, 2 @@ -3257,11 +3254,11 @@ D_LoadSampleData1: StC Ret -EndP D_LoadSampleData +;EndP D_LoadSampleData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ConvertWriteData ; DS:DX points to data +Proc ConvertWriteData ; DS:DX points to data ; BP = 1, convert, BP = 2, 16-bit ; CX = number of bytes @@ -3296,11 +3293,11 @@ ConvertWriteData1: PopF Ret -EndP ConvertWriteData +;EndP ConvertWriteData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveSampleDataConvert ; AX = sample number (1 based) +Proc D_SaveSampleDataConvert ; AX = sample number (1 based) PushAD Push DS @@ -3357,11 +3354,11 @@ D_SaveSampleDataConvert2: PopAD Ret -EndP D_SaveSampleDataConvert +;EndP D_SaveSampleDataConvert ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc WriteBits ; CH = bits to write +Proc WriteBits ; CH = bits to write ; CL = current bit. ; BX = data. ; ES:DI = output buffer. @@ -3393,7 +3390,7 @@ D_WriteBits1: D_WriteBits2: Ret -EndP WriteBits +;EndP WriteBits ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -3403,7 +3400,7 @@ EndP WriteBits ; PatternDataArea:0 = bufferlength ; PatternDataArea:2 = outputbuffer -Proc D_SaveSampleDataCompressed ; AX = sample number, 1 based. +Proc D_SaveSampleDataCompressed ; AX = sample number, 1 based. PushAD Push DS @@ -3450,7 +3447,7 @@ D_SaveSampleCompressed8BitSample: Mov ES, CS:DiskDataArea Mov DI, 16384 ; Offset in DiskDataArea -IF DDCOMPRESS +%IF DDCOMPRESS Mov DX, 1 Cmp CS:SaveFormat, 3 @@ -3460,7 +3457,7 @@ IF DDCOMPRESS D_SaveFormatNot215: -ENDIF +%ENDIF D_CalculateDeltas: Xor AH, AH ; AH = lastdata. @@ -3488,7 +3485,7 @@ D_Calculate8BitDeltas: D_CalculateDeltaEnd: -IF DDCOMPRESS +%IF DDCOMPRESS Mov DI, 16384 Pop CX Push ES @@ -3501,11 +3498,11 @@ IF DDCOMPRESS Push Pattern Pop ES - Assume ES:Pattern + ;Assume ES:Pattern Mov ES, PatternDataArea - Assume ES:Nothing + ;Assume ES:Nothing -ELSE +%ELSE Pop CX @@ -3516,15 +3513,15 @@ ELSE Push Pattern Pop ES - Assume ES:Pattern + ;Assume ES:Pattern Mov ES, PatternDataArea - Assume ES:Nothing + ;Assume ES:Nothing Push CX Mov SI, 16384 Mov DI, SI -ENDIF +%ENDIF Mov BH, 40 Test BP, 1 @@ -3971,11 +3968,11 @@ D_SaveSampleDataCompressed2: PopAD Ret -EndP D_SaveSampleDataCompressed +;EndP D_SaveSampleDataCompressed ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveSampleData ; AX = sample number (1 based) +Proc D_SaveSampleData ; AX = sample number (1 based) PushAD Push DS @@ -4022,16 +4019,16 @@ D_SaveSampleData2: Ret -EndP D_SaveSampleData +;EndP D_SaveSampleData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include it_timer.inc -include it_d_rm.inc +%include "it_timer.inc" +%include "it_d_rm.inc" ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_CheckOverWrite ; DS:DX points to filename +Proc D_CheckOverWrite ; DS:DX points to filename ; Returns Carry set if not ok Mov CX, 6 @@ -4065,11 +4062,11 @@ D_CheckOverWrite2: Ret -EndP D_CheckOverWrite +;EndP D_CheckOverWrite ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostFileSaveWindow Far +Proc D_PostFileSaveWindow Far ; Cmp DX, 13 Cmp CX, 11Ch @@ -4094,7 +4091,7 @@ D_PostFileSaveWindow1: D_PostFileSaveWindow2: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov DX, Offset SaveFileName Call D_CheckOverWrite @@ -4112,12 +4109,12 @@ D_PostFileSaveWindow3: D_PostFileSaveWindow4: Jmp D_SaveFileS3MModule -EndP D_PostFileSaveWindow - Assume DS:Nothing +;EndP D_PostFileSaveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostFileLoadWindow Far +Proc D_PostFileLoadWindow Far ; Cmp DX, 13 Cmp CX, 11Ch @@ -4139,8 +4136,8 @@ D_PostFileLoadWindowLink: Call D_GetSongNameModuleType Pop DI -IF TUTORIAL -ELSE +%IF TUTORIAL +%ELSE Mov BX, CS:CurrentFile Add BX, BX Mov BX, [BX] @@ -4169,21 +4166,21 @@ ELSE Cmp AX, 18 JE D_LoadFileMTMModule -ENDIF +%ENDIF D_PostFileLoadWindow1: Mov AX, 1 Ret -EndP D_PostFileLoadWindow +;EndP D_PostFileLoadWindow ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostFileWindow Far +Proc D_PostFileWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset FileWindowKeys Call M_FunctionDivider @@ -4269,16 +4266,16 @@ D_PostFileWindow20: Xor AX, AX Ret -EndP D_PostFileWindow - Assume DS:Nothing +;EndP D_PostFileWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostDirectoryWindow Far +Proc D_PostDirectoryWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset DirectoryWindowKeys Call M_FunctionDivider @@ -4353,16 +4350,16 @@ D_PostDirectoryWindow20: Xor AX, AX Ret -EndP D_PostDirectoryWindow - Assume DS:Nothing +;EndP D_PostDirectoryWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostDriveWindow Far +Proc D_PostDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset DriveWindowKeys Call M_FunctionDivider @@ -4374,16 +4371,16 @@ D_PostDriveWindow1: Xor AX, AX Ret -EndP D_PostDriveWindow - Assume DS:Nothing +;EndP D_PostDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostSaveDriveWindow Far +Proc D_PostSaveDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset SaveDriveWindowKeys Call M_FunctionDivider @@ -4395,16 +4392,16 @@ D_PostSaveDriveWindow1: Xor AX, AX Ret -EndP D_PostSaveDriveWindow - Assume DS:Nothing +;EndP D_PostSaveDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_NewSpecifier Far +Proc D_NewSpecifier Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Xor BX, BX Mov SI, Offset FileSpecifier @@ -4509,12 +4506,12 @@ D_NewSpecifier2: Mov AX, 1 Ret -EndP D_NewSpecifier - Assume DS:Nothing +;EndP D_NewSpecifier + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_NewDirectory Far +Proc D_NewDirectory Far ; Mov SI, Offset SongDirectory ; Push CS @@ -4534,11 +4531,11 @@ D_NewDirectory1: Mov AX, 1 Ret -EndP D_NewDirectory +;EndP D_NewDirectory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_ClearFileSpecifier Far +Proc D_ClearFileSpecifier Far Push ES Push DI @@ -4559,15 +4556,15 @@ Proc D_ClearFileSpecifier Far Ret -EndP D_ClearFileSpecifier +;EndP D_ClearFileSpecifier ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveModule Far +Proc D_SaveModule Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset FileSpecifier Cmp Byte Ptr [SI], 0 @@ -4681,12 +4678,12 @@ D_SaveModule12: Jmp D_PostFileSaveWindow2 ; Jmp D_SaveFileITModule -EndP D_SaveModule - Assume DS:Nothing +;EndP D_SaveModule + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_NoSaveMessage Far +Proc D_NoSaveMessage Far Call S_SaveScreen @@ -4699,11 +4696,11 @@ Proc D_NoSaveMessage Far Mov AX, 1 Ret -EndP D_NoSaveMessage +;EndP D_NoSaveMessage ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveBlock ; DS:DX points to buffer +Proc D_SaveBlock ; DS:DX points to buffer ; BX = file handle ; CX = number of bytes @@ -4742,11 +4739,11 @@ D_SaveBlock1: Ret -EndP D_SaveBlock +;EndP D_SaveBlock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DeleteIfError ; DS:DX = filename +Proc D_DeleteIfError ; DS:DX = filename PushF @@ -4764,11 +4761,11 @@ D_DeleteIfError1: PopF Ret -EndP D_DeleteIfError +;EndP D_DeleteIfError ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_UpdateFileName +Proc D_UpdateFileName Push CS Push CS @@ -4828,19 +4825,19 @@ D_UpdateFileName6: D_UpdateFileNameEnd: Ret -EndP D_UpdateFileName +;EndP D_UpdateFileName ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include it_d_wm.inc +%include "it_d_wm.inc" ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_InitLoadSamples Far +Proc D_InitLoadSamples Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset SampleDirectory Call D_SetDriveDirectory ; DS:SI points to cur dir. @@ -4877,7 +4874,7 @@ D_InitLoadSamples4: Mov CX, 4 ; Integer containing number ; of sample entries... Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Xor DX, DX Int 21h @@ -4931,7 +4928,7 @@ D_InitLoadSampleCacheFileOK: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov LoadSampleNameCount, SI Mov NumSamples, SI @@ -4970,7 +4967,7 @@ D_InitLoadSamples3: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call DeleteSampleCacheFile @@ -4980,12 +4977,12 @@ D_InitLoadSamples1: D_InitLoadSamples2: Ret -EndP D_InitLoadSamples - Assume DS:Nothing +;EndP D_InitLoadSamples + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DeleteSampleCacheFile +Proc DeleteSampleCacheFile Push DS @@ -5000,11 +4997,11 @@ Proc DeleteSampleCacheFile Ret -EndP DeleteSampleCachefile +;EndP DeleteSampleCachefile ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DeleteInstrumentCacheFile +Proc DeleteInstrumentCacheFile Push DS @@ -5019,11 +5016,11 @@ Proc DeleteInstrumentCacheFile Ret -EndP DeleteInstrumentCachefile +;EndP DeleteInstrumentCachefile ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_GetNumFiles ; DS = DiskDaraArea +Proc D_GetNumFiles ; DS = DiskDaraArea Mov DS, CS:DiskDataArea @@ -5117,11 +5114,11 @@ D_GetNumFilesError: Ret -EndP D_GetNumFiles +;EndP D_GetNumFiles ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadSampleFiles +Proc D_LoadSampleFiles Mov DS, CS:DiskDataArea Push DS @@ -5253,11 +5250,11 @@ D_LoadSampleFiles8: RetN -EndP D_LoadSampleFiles +;EndP D_LoadSampleFiles ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DrawLoadSampleWindow Far ; Has to handle +Proc D_DrawLoadSampleWindow Far ; Has to handle ; 1) Sample list ; 2) Sample info box ; 3) WaveForm stuff @@ -5311,7 +5308,7 @@ D_DrawLoadSampleWindow28: D_DrawLoadSampleWindow31: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call S_GetDestination @@ -5367,7 +5364,7 @@ D_DrawLoadSampleWindow3: D_DrawLoadSampleWindow9: Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov AX, 96 Mul BX Mov SI, AX ; SI = offset of first sample. @@ -5719,7 +5716,7 @@ D_DrawLoadSampleWindow27: Push CS ; Wave form shit.. Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentSample Cmp AX, SampleInMemory @@ -5744,16 +5741,16 @@ D_DrawLoadSampleWindow56: D_DrawLoadSampleWindow54: Ret -EndP D_DrawLoadSampleWindow - Assume DS:Nothing +;EndP D_DrawLoadSampleWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PreLoadSampleWindow Far +Proc D_PreLoadSampleWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentSample Sub AX, TopSample @@ -5785,15 +5782,15 @@ D_PreLoadSample3: Ret -EndP D_PreLoadSampleWindow +;EndP D_PreLoadSampleWindow ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostLoadSampleWindow Far +Proc D_PostLoadSampleWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset LSWindowKeys Call M_FunctionDivider @@ -5831,14 +5828,14 @@ D_PostLoadSampleWindow2: Mov CX, Pattern Mov DS, CX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, 12 Mul BaseOctave Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Add AX, BX Cmp AX, 119 @@ -5881,16 +5878,16 @@ D_PostLoadSampleWindow3: Xor AX, AX Ret -EndP D_PostLoadSampleWindow - Assume DS:Nothing +;EndP D_PostLoadSampleWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostViewSampleLibrary Far +Proc D_PostViewSampleLibrary Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset LSViewWindowKeys Call M_FunctionDivider @@ -5898,15 +5895,15 @@ Proc D_PostViewSampleLibrary Far Jmp [SI] -EndP D_PostViewSampleLibrary +;EndP D_PostViewSampleLibrary ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LSDrawDriveWindow Far +Proc D_LSDrawDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call S_GetDestination @@ -5963,16 +5960,16 @@ D_LSDrawDriveWindow4: D_LSDrawDriveWindow5: Ret -EndP D_LSDrawDriveWindow - Assume DS:Nothing +;EndP D_LSDrawDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LSPreDriveWindow Far +Proc D_LSPreDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AL, CurrentDrive Sub AL, TopDrive @@ -5993,16 +5990,16 @@ D_LSPreDriveWindow1: Ret -EndP D_LSPreDriveWindow - Assume DS:Nothing +;EndP D_LSPreDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LSPostDriveWindow Far +Proc D_LSPostDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset LSDriveWindowKeys Call M_FunctionDivider @@ -6014,16 +6011,16 @@ D_LSPostDriveWindow1: Xor AX, AX Ret -EndP D_LSPostDriveWindow - Assume DS:Nothing +;EndP D_LSPostDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LIDrawDriveWindow Far +Proc D_LIDrawDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call S_GetDestination @@ -6063,16 +6060,16 @@ D_LIDrawDriveWindow4: D_LIDrawDriveWindow5: Ret -EndP D_LIDrawDriveWindow - Assume DS:Nothing +;EndP D_LIDrawDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LIPreDriveWindow Far +Proc D_LIPreDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AL, CurrentDrive Add AL, 16 @@ -6093,16 +6090,16 @@ D_LIPreDriveWindow1: Ret -EndP D_LIPreDriveWindow - Assume DS:Nothing +;EndP D_LIPreDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LIPostDriveWindow Far +Proc D_LIPostDriveWindow Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset LIDriveWindowKeys Call M_FunctionDivider @@ -6114,17 +6111,17 @@ D_LIPostDriveWindow1: Xor AX, AX Ret -EndP D_LIPostDriveWindow - Assume DS:Nothing +;EndP D_LIPostDriveWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadSampleHeader ; Given BX = sample number. +Proc D_LoadSampleHeader ; Given BX = sample number. Push BX Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov AX, 96 Mul BX @@ -6136,16 +6133,16 @@ Proc D_LoadSampleHeader ; Given BX = sample number. Ret -EndP D_LoadSampleHeader +;EndP D_LoadSampleHeader ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadInstrumentHeader ; Given BX = instrument num +Proc D_LoadInstrumentHeader ; Given BX = instrument num Push BX Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov AX, 48 Mul BX @@ -6158,20 +6155,20 @@ Proc D_LoadInstrumentHeader ; Given BX = instrument num Ret -EndP D_LoadInstrumentHeader +;EndP D_LoadInstrumentHeader ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include it_d_inf.inc +%include "it_d_inf.inc" ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveSampleCacheFile ; Assumes DS=Disk +Proc D_SaveSampleCacheFile ; Assumes DS=Disk Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Test DiskOptions, 2 JNZ D_SaveSampleCacheFile1 @@ -6198,7 +6195,7 @@ Proc D_SaveSampleCacheFile ; Assumes DS=Disk Mov AH, 40h Xor DX, DX Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Int 21h ; Write cache file! ; Set date and time... @@ -6212,23 +6209,23 @@ Proc D_SaveSampleCacheFile ; Assumes DS=Disk Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk D_SaveSampleCacheFile1: Mov SampleCacheFileComplete, 1 Ret -EndP D_SaveSampleCacheFile - Assume DS:Nothing +;EndP D_SaveSampleCacheFile + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveInstrumentCacheFile ; Assumes DS=Disk +Proc D_SaveInstrumentCacheFile ; Assumes DS=Disk Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Test DiskOptions, 2 JNZ D_SaveInstrumentCacheFile1 @@ -6252,7 +6249,7 @@ Proc D_SaveInstrumentCacheFile ; Assumes DS=Disk Mov AH, 40h Xor DX, DX Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Int 21h ; Write cache file! @@ -6267,23 +6264,23 @@ Proc D_SaveInstrumentCacheFile ; Assumes DS=Disk Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk D_SaveInstrumentCacheFile1: Mov InstrumentCacheFileComplete, 1 Ret -EndP D_SaveInstrumentCacheFile - Assume DS:Nothing +;EndP D_SaveInstrumentCacheFile + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadSampleNames Far +Proc D_LoadSampleNames Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Cmp SampleCacheFileComplete, 1 JNE D_LoadSampleNames2 @@ -6321,7 +6318,7 @@ D_LoadSampleNames1: D_LoadSampleNames3: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Inc LoadSampleNameCount Mov BX, LoadSampleNameCount @@ -6339,12 +6336,12 @@ D_LoadSampleNames4: Mov AX, 1 ; Signify redraw screen Ret -EndP D_LoadSampleNames - Assume DS:Nothing +;EndP D_LoadSampleNames + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_GetLoadSampleVars Far ; Returns SI with offset of +Proc D_GetLoadSampleVars Far ; Returns SI with offset of Push AX Push DX @@ -6359,11 +6356,11 @@ Proc D_GetLoadSampleVars Far ; Returns SI with offset of Ret -EndP D_GetLoadSampleVars +;EndP D_GetLoadSampleVars ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_GotoStartingDirectory Far +Proc D_GotoStartingDirectory Far Push DS Push CS @@ -6375,15 +6372,15 @@ Proc D_GotoStartingDirectory Far Ret -EndP D_GotoStartingDirectory +;EndP D_GotoStartingDirectory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveDirectoryConfiguration Far +Proc D_SaveDirectoryConfiguration Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov NoSaveError, 0 Mov CountryTableConfig, 0 @@ -6426,14 +6423,14 @@ D_SaveDirectoryConfiguration1: Mov AX, 1 Ret -EndP D_SaveDirectoryConfiguration - Assume DS:Nothing +;EndP D_SaveDirectoryConfiguration + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_Up Far +Proc FileWindow_Up Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentFile And AX, AX @@ -6445,14 +6442,14 @@ FileWindow_Up1: Mov AX, 1 Ret -EndP FileWindow_Up - Assume DS:Nothing +;EndP FileWindow_Up + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_Down Far +Proc FileWindow_Down Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentFile Inc AX @@ -6465,14 +6462,14 @@ FileWindow_Down1: Mov AX, 1 Ret -EndP FileWindow_Down - Assume DS:Nothing +;EndP FileWindow_Down + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_PgUp Far +Proc FileWindow_PgUp Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentFile Sub AX, 31 @@ -6486,14 +6483,14 @@ FileWindow_PgUp1: Mov AX, 1 Ret -EndP FileWindow_PgUp - Assume DS:Nothing +;EndP FileWindow_PgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_PgDn Far +Proc FileWindow_PgDn Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentFile Add AX, 31 @@ -6512,70 +6509,70 @@ FileWindow_PgDn1: Mov AX, 1 Ret -EndP FileWindow_PgDn - Assume DS:Nothing +;EndP FileWindow_PgDn + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_Right Far +Proc FileWindow_Right Far - Assume DS:Disk + ;Assume DS:Disk Mov Word Ptr [ES:DI], 13 Mov AX, 1 Ret -EndP FileWindow_Right - Assume DS:Nothing +;EndP FileWindow_Right + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_Left Far +Proc FileWindow_Left Far - Assume DS:Disk + ;Assume DS:Disk Mov Word Ptr [ES:DI], 14 Mov AX, 1 Ret -EndP FileWindow_Left - Assume DS:Nothing +;EndP FileWindow_Left + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_ShiftTab Far +Proc FileWindow_ShiftTab Far - Assume DS:Disk + ;Assume DS:Disk Mov Word Ptr [ES:DI], 16 Mov AX, 1 Ret -EndP FileWindow_ShiftTab - Assume DS:Nothing +;EndP FileWindow_ShiftTab + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_Home Far +Proc FileWindow_Home Far - Assume DS:Disk + ;Assume DS:Disk Mov CurrentFile, 0 Mov AX, 1 Ret -EndP FileWindow_Home - Assume DS:Nothing +;EndP FileWindow_Home + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_End Far +Proc FileWindow_End Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, NumFiles Dec AX @@ -6587,14 +6584,14 @@ FileWindow_End1: Mov AX, 1 Ret -EndP FileWindow_End - Assume DS:Nothing +;EndP FileWindow_End + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FileWindow_DeleteFile Far +Proc FileWindow_DeleteFile Far - Assume DS:Disk + ;Assume DS:Disk Cmp NumFiles, 0 JE FileWindow_DeleteFile26 @@ -6611,7 +6608,7 @@ Proc FileWindow_DeleteFile Far FileWindow_DeleteFile24: ; Time to kill the sucker... Mov DS, CS:DiskDataArea Mov BX, CS:CurrentFile - Assume DS:Nothing + ;Assume DS:Nothing Add BX, BX Mov DX, [BX] @@ -6625,7 +6622,7 @@ FileWindow_DeleteFile24: ; Time to kill the sucker.. Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov DI, CurrentFile Mov CX, DI @@ -6665,14 +6662,14 @@ FileWindow_DeleteFile26: Mov AX, 1 Ret -EndP FileWindow_DeleteFile - Assume DS:Nothing +;EndP FileWindow_DeleteFile + ;Assume DS:Nothing ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -Proc DirectoryWindow_Up Far +Proc DirectoryWindow_Up Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentDirectory And AX, AX @@ -6684,13 +6681,13 @@ DirectoryWindow_Up1: Mov AX, 1 Ret -EndP DirectoryWindow_Up +;EndP DirectoryWindow_Up ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DirectoryWindow_Down Far +Proc DirectoryWindow_Down Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentDirectory Inc AX @@ -6703,13 +6700,13 @@ DirectoryWindow_Down1: Mov AX, 1 Ret -EndP DirectoryWindow_Down +;EndP DirectoryWindow_Down ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DirectoryWindow_PgUp Far +Proc DirectoryWindow_PgUp Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentDirectory Sub AX, 21 @@ -6720,13 +6717,13 @@ Proc DirectoryWindow_PgUp Far Mov AX, 1 Ret -EndP DirectoryWindow_PgUp +;EndP DirectoryWindow_PgUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DirectoryWindow_PgDn Far +Proc DirectoryWindow_PgDn Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentDirectory Add AX, 21 @@ -6738,26 +6735,26 @@ Proc DirectoryWindow_PgDn Far Mov AX, 1 Ret -EndP DirectoryWindow_PgDn +;EndP DirectoryWindow_PgDn ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DirectoryWindow_Home Far +Proc DirectoryWindow_Home Far - Assume DS:Disk + ;Assume DS:Disk Mov CurrentDirectory, 0 Mov AX, 1 Ret -EndP DirectoryWindow_Home +;EndP DirectoryWindow_Home ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DirectoryWindow_End Far +Proc DirectoryWindow_End Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, NumDirectories Dec AX @@ -6769,26 +6766,26 @@ DirectoryWindow_End1: Mov AX, 1 Ret -EndP DirectoryWindow_End +;EndP DirectoryWindow_End ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DirectoryWindow_Left Far +Proc DirectoryWindow_Left Far - Assume DS:Disk + ;Assume DS:Disk Mov Word Ptr [ES:DI], 12 Mov AX, 1 Ret -EndP DirectoryWindow_Left +;EndP DirectoryWindow_Left ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DirectoryWindow_Enter Far +Proc DirectoryWindow_Enter Far - Assume DS:Disk + ;Assume DS:Disk Cmp NumDirectories, 0 JE DirectoryWindow_Enter2 @@ -6797,7 +6794,7 @@ Proc DirectoryWindow_Enter Far Add BX, NumFiles Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Add BX, BX Mov DX, [BX] @@ -6807,7 +6804,7 @@ Proc DirectoryWindow_Enter Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset SongDirectory Call D_GetDriveDirectory @@ -6832,13 +6829,13 @@ DirectoryWindow_Enter2: Xor AX, AX Ret -EndP DirectoryWindow_Enter +;EndP DirectoryWindow_Enter ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -Proc DriveWindow_Up Far +Proc DriveWindow_Up Far - Assume DS:Disk + ;Assume DS:Disk Mov AL, CurrentDrive And AL, AL @@ -6850,14 +6847,14 @@ DriveWindow_Up1: Mov AX, 1 Ret -EndP DriveWindow_Up - Assume DS:Nothing +;EndP DriveWindow_Up + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DriveWindow_Down Far +Proc DriveWindow_Down Far - Assume DS:Disk + ;Assume DS:Disk Mov AL, CurrentDrive Inc AX @@ -6870,56 +6867,56 @@ DriveWindow_Down1: Mov AX, 1 Ret -EndP DriveWindow_Down - Assume DS:Nothing +;EndP DriveWindow_Down + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DriveWindow_Tab Far +Proc DriveWindow_Tab Far - Assume DS:Disk + ;Assume DS:Disk Mov Word Ptr [ES:DI], 15 Mov AX, 1 Ret -EndP DriveWindow_Tab - Assume DS:Nothing +;EndP DriveWindow_Tab + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIDriveWindow_Tab Far +Proc LIDriveWindow_Tab Far - Assume DS:Disk + ;Assume DS:Disk Mov Word Ptr [ES:DI], 5 Mov AX, 1 Ret -EndP LIDriveWindow_Tab - Assume DS:Nothing +;EndP LIDriveWindow_Tab + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SaveDriveWindow_Tab Far +Proc SaveDriveWindow_Tab Far - Assume DS:Disk + ;Assume DS:Disk Mov Word Ptr [ES:DI], 18 Mov AX, 1 Ret -EndP SaveDriveWindow_Tab - Assume DS:Nothing +;EndP SaveDriveWindow_Tab + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DriveWindow_Enter Far +Proc DriveWindow_Enter Far - Assume DS:Disk + ;Assume DS:Disk Mov BL, CurrentDrive Xor BH, BH @@ -6950,14 +6947,14 @@ DriveWindow_Enter1: Mov AX, 1 Ret -EndP DriveWindow_Enter - Assume DS:Nothing +;EndP DriveWindow_Enter + ;Assume DS:Nothing ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -Proc LS_DriveWindow_Enter Far +Proc LS_DriveWindow_Enter Far - Assume DS:Disk + ;Assume DS:Disk Mov BL, CurrentDrive Xor BH, BH @@ -6980,13 +6977,13 @@ Proc LS_DriveWindow_Enter Far Mov AX, 1 Ret -EndP LS_DriveWindow_Enter +;EndP LS_DriveWindow_Enter ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -Proc LI_DriveWindow_Enter Far +Proc LI_DriveWindow_Enter Far - Assume DS:Disk + ;Assume DS:Disk Mov BL, CurrentDrive Xor BH, BH @@ -7009,22 +7006,22 @@ Proc LI_DriveWindow_Enter Far Mov AX, 1 Ret -EndP LI_DriveWindow_Enter +;EndP LI_DriveWindow_Enter ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSDriveWindow_Right Far +Proc LSDriveWindow_Right Far Mov Word Ptr [ES:DI], 17 Mov AX, 1 Ret -EndP LSDriveWindow_Right +;EndP LSDriveWindow_Right ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -Proc LoadSample ; AX = Sample number +Proc LoadSample ; AX = Sample number ; DS:SI points to sample header. Call PE_SaveCurrentPattern @@ -7135,17 +7132,17 @@ LoadSample1: PopF Ret -EndP LoadSample +;EndP LoadSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include it_d_ris.inc +%include "it_d_ris.inc" ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSViewWindow_Enter Far +Proc LSViewWindow_Enter Far - Assume DS:Disk + ;Assume DS:Disk Cmp NumSamples, 0 JE LSViewWindow_Enter1 @@ -7153,7 +7150,7 @@ Proc LSViewWindow_Enter Far Mov AX, 96 Mul CurrentSample Mov SI, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov DS, DiskDataArea Mov DL, [DS:SI+88] @@ -7166,13 +7163,13 @@ Proc LSViewWindow_Enter Far Mov AX, 1 Ret -EndP LSViewWindow_Enter +;EndP LSViewWindow_Enter ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSWindow_Enter Far +Proc LSWindow_Enter Far - Assume DS:Disk + ;Assume DS:Disk Cmp NumSamples, 0 JE LSWindow_Enter2 @@ -7180,7 +7177,7 @@ Proc LSWindow_Enter Far Mov AX, 96 Mul CurrentSample Mov SI, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov DS, DiskDataArea Mov DX, [DS:SI+88] ; Also get DH = InsampleChannels @@ -7204,7 +7201,7 @@ LSViewWindow_Enter1: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset SampleDirectory Call D_GetDriveDirectory @@ -7212,7 +7209,7 @@ LSViewWindow_Enter1: LSWindow_EnterInModuleError: Mov SamplesInModule, 0 Call D_InitLoadSamples - Assume DS:Nothing + ;Assume DS:Nothing Mov CS:CurrentSample, 0 Mov AX, 1 @@ -7238,7 +7235,7 @@ LSViewWindow_Enter2: ; Open file Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov CurrentSample, 0 @@ -7257,7 +7254,7 @@ LSWindow_EnterLoadInSampleData: Mov NumSamples, 1 Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Push DS Pop ES @@ -7272,7 +7269,7 @@ LSWindow_EnterLoadInSampleData: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Xor DI, DI Mov SI, Offset ExitLibraryDirectory @@ -7292,7 +7289,7 @@ LSWindow_EnterLoadInSampleData: Mov AX, 1 Ret - Assume DS:Nothing + ;Assume DS:Nothing LSWindow_EnterSample: Call Music_Stop @@ -7308,7 +7305,7 @@ LSWindow_EnterSample: Mov AX, 99 ; Release sample! Call Music_ReleaseSample - Xor DX, DX ; Assume don't call. + Xor DX, DX ; ;Assume don't call. Call Music_GetInstrumentMode JZ LSWindow_Enter4 ; Sample mode! @@ -7320,13 +7317,13 @@ LSWindow_EnterSample: Push DS Push SI - Mov CX, 4 ; Assume Not OK + Mov CX, 4 ; ;Assume Not OK Call I_GetSampleOffset ; DS:BX points to sample. Test Byte Ptr [BX+12h], 1 JNZ LSWindow_Enter5 - Mov CX, 3 ; Assume OK. + Mov CX, 3 ; ;Assume OK. LSWindow_Enter5: Mov DI, Offset O1_InitInstrument @@ -7345,10 +7342,10 @@ LSWindow_Enter4: Pop CX Xor DX, DX -IF NETWORKENABLED +%IF NETWORKENABLED NetworkSendSample Call Network_QueueSampleData -ENDIF +%ENDIF Pop DX @@ -7375,14 +7372,14 @@ LSWindow_Enter2: Mov AX, 1 Ret -EndP LSWindow_Enter - Assume DS:Nothing +;EndP LSWindow_Enter + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSWindow_Space Far +Proc LSWindow_Space Far - Assume DS:Disk + ;Assume DS:Disk Cmp NumSamples, 0 JE LSViewWindow_Enter1 @@ -7390,7 +7387,7 @@ Proc LSWindow_Space Far Mov AX, 96 Mul CurrentSample LEA SI, [EAX+14h] - Assume DS:Nothing + ;Assume DS:Nothing Push SI @@ -7436,7 +7433,7 @@ LS_WindowSpace3: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset SampleName Mov CX, 26 @@ -7447,16 +7444,16 @@ LS_WindowSpace4: Mov AX, 1 Ret -EndP LSWindow_Space +;EndP LSWindow_Space ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSWindow_Up Far +Proc LSWindow_Up Far Call CheckSampleModified JC LSWindow_Up1 - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentSample And AX, AX @@ -7468,17 +7465,17 @@ LSWindow_Up1: Mov AX, 1 Ret -EndP LSWindow_Up - Assume DS:Nothing +;EndP LSWindow_Up + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSWindow_Down Far +Proc LSWindow_Down Far Call CheckSampleModified JC LSWindow_Down1 - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentSample @@ -7492,17 +7489,17 @@ LSWindow_Down1: Mov AX, 1 Ret -EndP LSWindow_Down - Assume DS:Nothing +;EndP LSWindow_Down + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSWindow_PgUp Far +Proc LSWindow_PgUp Far Call CheckSampleModified JC LSWindow_PgUp1 - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentSample @@ -7515,17 +7512,17 @@ LSWindow_PgUp1: Mov AX, 1 Ret -EndP LSWindow_PgUp - Assume DS:Nothing +;EndP LSWindow_PgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSWindow_PgDn Far +Proc LSWindow_PgDn Far Call CheckSampleModified JC LSWindow_PgDn1 - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentSample @@ -7539,17 +7536,17 @@ LSWindow_PgDn1: Mov AX, 1 Ret -EndP LSWindow_PgDn - Assume DS:Nothing +;EndP LSWindow_PgDn + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSWindow_Home Far +Proc LSWindow_Home Far Call CheckSampleModified JC LSWindow_Home1 - Assume DS:Disk + ;Assume DS:Disk Mov CurrentSample, 0 @@ -7557,17 +7554,17 @@ LSWindow_Home1: Mov AX, 1 Ret -EndP LSWindow_Home - Assume DS:Nothing +;EndP LSWindow_Home + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LSWindow_End Far +Proc LSWindow_End Far Call CheckSampleModified JC LSWindow_End1 - Assume DS:Disk + ;Assume DS:Disk Mov AX, NumSamples @@ -7580,12 +7577,12 @@ LSWindow_End1: Mov AX, 1 Ret -EndP LSWindow_End - Assume DS:Nothing +;EndP LSWindow_End + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LSCheckLoopValues Far +Proc D_LSCheckLoopValues Far Call D_GetLoadSampleVars ; DS:SI points to thing @@ -7615,11 +7612,11 @@ D_LSCheckLoopValues1: Ret -EndP D_LSCheckLoopValues +;EndP D_LSCheckLoopValues ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LSCheckSusLoopValues Far +Proc D_LSCheckSusLoopValues Far Call D_GetLoadSampleVars ; DS:SI points to thing @@ -7649,15 +7646,15 @@ D_LSCheckSusLoopValues1: Ret -EndP D_LSCheckSusLoopValues +;EndP D_LSCheckSusLoopValues ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveSong Far +Proc D_SaveSong Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset SongDirectory Call D_SetDriveDirectory ; DS:SI points to cur dir. @@ -7710,16 +7707,16 @@ D_SaveSong4: JE D_SaveFileS3MModule Jmp D_SaveFileITModule -EndP D_SaveSong - Assume DS:Nothing +;EndP D_SaveSong + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PreSaveSample +Proc D_PreSaveSample Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov NoSaveError, 0 @@ -7729,7 +7726,7 @@ Proc D_PreSaveSample Call PE_GetLastInstrument Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov SI, BX Add SI, SI @@ -7751,16 +7748,16 @@ D_PreSaveSample1: StC Ret -EndP D_PreSaveSample +;EndP D_PreSaveSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveSample Far +Proc D_SaveSample Far Call D_PreSaveSample JC D_SaveSample2 -Proc D_SaveSampleInternal Far +Proc D_SaveSampleInternal Far ; OK to save. DS:SI points to ; structure, BX = sample num Mov ES, CS:DiskDataArea @@ -7819,20 +7816,20 @@ D_SaveSampleEnd: Mov AX, 1 Ret -EndP D_SaveSampleInternal +;EndP D_SaveSampleInternal -EndP D_SaveSample +;EndP D_SaveSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveRawSample Far - Assume DS:Disk +Proc D_SaveRawSample Far + ;Assume DS:Disk Call D_PreSaveSample ; DS:SI points to structure JC D_SaveRawSample2 - Assume DS:Nothing + ;Assume DS:Nothing -IF SAVESAMPLEWAV +%IF SAVESAMPLEWAV Mov DWord Ptr [CS:WaveBytesPerSample], 80001h Mov ECX, [SI+3Ch] ; C5Speed Mov [CS:WAVEMixSpeed], ECX @@ -7847,7 +7844,7 @@ IF SAVESAMPLEWAV D_SaveWAVHeader1: Mov [CS:WAVEDataSize], EAX Mov [CS:WAVEBytesPerSecond], ECX -ENDIF +%ENDIF Push DS Push SI @@ -7870,7 +7867,7 @@ ENDIF Int 21h JC D_SaveRawSample3 -IF SAVESAMPLEWAV +%IF SAVESAMPLEWAV PushA Push DS @@ -7885,7 +7882,7 @@ IF SAVESAMPLEWAV Pop DS PopA -ENDIF +%ENDIF PopF Push BX @@ -7912,7 +7909,7 @@ D_SaveRawSample4: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AX, BX Mov SI, Offset RawSampleSavedMsg @@ -7936,11 +7933,11 @@ D_SaveRawSampleEnd: Mov AX, 1 Ret -EndP D_SaveRawSample +;EndP D_SaveRawSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveST3Sample Far +Proc D_SaveST3Sample Far Call D_PreSaveSample JC D_SaveST3Sample2 @@ -8049,15 +8046,15 @@ D_SaveST3SampleEnd: Mov AX, 1 Ret -EndP D_SaveST3Sample +;EndP D_SaveST3Sample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SaveInstrument Far +Proc D_SaveInstrument Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov NoSaveError, 0 @@ -8067,7 +8064,7 @@ Proc D_SaveInstrument Far Call PE_GetLastInstrument Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov SI, BX Add SI, SI @@ -8111,7 +8108,7 @@ D_SaveInstrument1: ; Now to re-translate it. Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AH, 0 Mov CX, 99 @@ -8133,7 +8130,7 @@ D_SaveInstrument3: Pop SI Pop DS - Assume DS:Nothing + ;Assume DS:Nothing Mov ES, CS:DiskDataArea Xor DI, DI @@ -8143,7 +8140,7 @@ D_SaveInstrument3: Push ES Pop DS - Assume DS:Nothing + ;Assume DS:Nothing Mov [DS:1Eh], AH ; AH = number of samples. Mov Word Ptr [DS:1Ch], TRACKERVERSION @@ -8272,16 +8269,16 @@ D_SaveInstrumentEnd: Mov AX, 1 Ret -EndP D_SaveInstrument - Assume DS:Nothing +;EndP D_SaveInstrument + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DeleteSampleFile Far +Proc D_DeleteSampleFile Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Cmp NumSamples, 0 JE D_DeleteSampleFile1 @@ -8292,7 +8289,7 @@ Proc D_DeleteSampleFile Far Mul CurrentSample Mov SI, AX Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Cmp Byte Ptr [DS:SI+58h], 1 JBE D_DeleteSampleFile1 ; Don't delete dirs! ; Cmp Byte Ptr [DS:SI+58h], 20h @@ -8319,7 +8316,7 @@ Proc D_DeleteSampleFile Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov DI, SI Add SI, 96 @@ -8365,16 +8362,16 @@ D_DeleteSampleFile1: Mov AX, 1 Ret -EndP D_DeleteSampleFile - Assume DS:Nothing +;EndP D_DeleteSampleFile + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc CheckSampleModified +Proc CheckSampleModified Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Cmp SamplesInModule, 0 JNE CheckSampleModified1 @@ -8504,7 +8501,7 @@ CheckSampleModified4: ; Prompt to discard changes.. Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset CheckDataArea Mov ES, DS:DiskDataArea @@ -8534,12 +8531,12 @@ CheckSampleModified1: ClC Ret -EndP CheckSampleModified - Assume DS:Nothing +;EndP CheckSampleModified + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DrawWaveForm Far +Proc D_DrawWaveForm Far PushAD Push DS @@ -8782,11 +8779,11 @@ D_DrawWaveFormEnd: Ret -EndP D_DrawWaveForm +;EndP D_DrawWaveForm ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_ClearFileName Far +Proc D_ClearFileName Far Push AX Push CX @@ -8806,11 +8803,11 @@ Proc D_ClearFileName Far Pop AX Ret -EndP D_ClearFileName +;EndP D_ClearFileName ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_GetFormatType Far +Proc D_GetFormatType Far Push CS Pop ES @@ -8818,21 +8815,21 @@ Proc D_GetFormatType Far Ret -EndP D_GetFormatType +;EndP D_GetFormatType ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DisableFileColours Far +Proc D_DisableFileColours Far Mov CS:FileColours, 0 Ret -EndP D_DisableFileColours +;EndP D_DisableFileColours ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadInstrumentFiles +Proc D_LoadInstrumentFiles Mov DS, CS:DiskDataArea Push DS @@ -8977,15 +8974,15 @@ D_LoadInstrumentFiles8: RetN -EndP D_LoadInstrumentFiles +;EndP D_LoadInstrumentFiles ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_InitLoadInstruments Far +Proc D_InitLoadInstruments Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset InstrumentDirectory Call D_SetDriveDirectory ; DS:SI points to cur dir. @@ -9010,7 +9007,7 @@ D_InitLoadInstruments4: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov UnusedSamples, DX @@ -9041,7 +9038,7 @@ D_InitLoadInstruments5: ; of sample entries... ; 3rd word = Version check Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Xor DX, DX Int 21h @@ -9098,7 +9095,7 @@ D_InitLoadInstrumentsCacheOK: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov LoadInstrumentNameCount, SI Mov NumInstruments, SI @@ -9135,7 +9132,7 @@ D_InitLoadInstrument3: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call DeleteInstrumentCacheFile @@ -9145,15 +9142,15 @@ D_InitLoadInstrument1: D_InitLoadInstrument2: Ret -EndP D_InitLoadInstruments +;EndP D_InitLoadInstruments ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_LoadInstrumentNames Far +Proc D_LoadInstrumentNames Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Cmp InstrumentCacheFileComplete, 1 JNE D_LoadInstrumentNames2 @@ -9194,7 +9191,7 @@ D_LoadInstrumentNames1: D_LoadInstrumentNames3: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Inc LoadInstrumentNameCount @@ -9214,11 +9211,11 @@ D_LoadInstrumentNames4: Mov AX, 1 ; Signify redraw screen Ret -EndP D_LoadInstrumentNames +;EndP D_LoadInstrumentNames ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DrawLoadInstrument Far +Proc D_DrawLoadInstrument Far Cmp CS:NumInstruments, 0 JNE D_DrawLoadInstrumentPresent @@ -9244,7 +9241,7 @@ D_DrawLoadInstrumentWindow28: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AX, TopInstrument Mov BX, CurrentInstrument @@ -9264,7 +9261,7 @@ D_DrawLoadInstrument2: Mov TopInstrument, AX Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov DI, (2+13*80)*2 Mov CX, 35 @@ -9434,7 +9431,7 @@ D_DrawLoadInstrument5: D_DrawLoadInstrumentEnd: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov DI, (6+13*80)*2 ; (6, 13) Mov SI, Offset NoFilesMsg @@ -9456,16 +9453,16 @@ D_DrawLoadInstrumentEnd2: ; Put Unused Sample msg. Ret -EndP D_DrawLoadInstrument - Assume DS:Nothing +;EndP D_DrawLoadInstrument + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PreLoadInstrument Far +Proc D_PreLoadInstrument Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentInstrument Sub AX, TopInstrument @@ -9498,15 +9495,15 @@ D_PreLoadInstrument3: Ret -EndP D_PreLoadInstrument +;EndP D_PreLoadInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostLoadInstrument Far +Proc D_PostLoadInstrument Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset LoadInstrumentKeys Call M_FunctionDivider @@ -9518,15 +9515,15 @@ D_PostLoadInstrument1: Xor AX, AX Ret -EndP D_PostLoadInstrument +;EndP D_PostLoadInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_ViewInstrument Far +Proc D_ViewInstrument Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset ViewInstrumentKeys Call M_FunctionDivider @@ -9538,13 +9535,13 @@ D_ViewInstrument1: Xor AX, AX Ret -EndP D_ViewInstrument +;EndP D_ViewInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIWindow_Up Far +Proc LIWindow_Up Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentInstrument And AX, AX @@ -9556,14 +9553,14 @@ LIWindow_Up1: Mov AX, 1 Ret -EndP LIWindow_Up - Assume DS:Nothing +;EndP LIWindow_Up + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIWindow_Down Far +Proc LIWindow_Down Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentInstrument @@ -9577,14 +9574,14 @@ LIWindow_Down1: Mov AX, 1 Ret -EndP LIWindow_Down - Assume DS:Nothing +;EndP LIWindow_Down + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIWindow_PgUp Far +Proc LIWindow_PgUp Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentInstrument @@ -9597,14 +9594,14 @@ LIWindow_PgUp1: Mov AX, 1 Ret -EndP LIWindow_PgUp - Assume DS:Nothing +;EndP LIWindow_PgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIWindow_PgDn Far +Proc LIWindow_PgDn Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, CurrentInstrument @@ -9618,27 +9615,27 @@ LIWindow_PgDn1: Mov AX, 1 Ret -EndP LIWindow_PgDn - Assume DS:Nothing +;EndP LIWindow_PgDn + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIWindow_Home Far +Proc LIWindow_Home Far - Assume DS:Disk + ;Assume DS:Disk Mov CurrentInstrument, 0 Mov AX, 1 Ret -EndP LIWindow_Home - Assume DS:Nothing +;EndP LIWindow_Home + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIWindow_End Far +Proc LIWindow_End Far - Assume DS:Disk + ;Assume DS:Disk Mov AX, NumInstruments @@ -9651,29 +9648,29 @@ LIWindow_End1: Mov AX, 1 Ret -EndP LIWindow_End - Assume DS:Nothing +;EndP LIWindow_End + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIViewWindow_Tab Far +Proc LIViewWindow_Tab Far Mov Word Ptr [ES:DI], 7 Mov AX, 1 Ret -EndP LIViewWindow_Tab +;EndP LIViewWindow_Tab ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include it_d_ri.inc +%include "it_d_ri.inc" ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIViewWindow_Enter Far +Proc LIViewWindow_Enter Far - Assume DS:Disk + ;Assume DS:Disk Cmp NumInstruments, 0 JE LIViewWindow_Enter2 @@ -9681,7 +9678,7 @@ Proc LIViewWindow_Enter Far Mov AX, 48 Mul CurrentInstrument Mov SI, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov DS, DiskDataArea Mov DL, [DS:SI] @@ -9694,14 +9691,14 @@ LIViewWindow_Enter2: Mov AX, 1 Ret -EndP LIViewWindow_Enter - Assume DS:Nothing +;EndP LIViewWindow_Enter + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LIWindow_Enter Far +Proc LIWindow_Enter Far - Assume DS:Disk + ;Assume DS:Disk Cmp NumInstruments, 0 JE LIWindow_Enter4 @@ -9709,7 +9706,7 @@ Proc LIWindow_Enter Far Mov AX, 48 Mul CurrentInstrument Mov SI, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov DS, DiskDataArea Mov DL, [DS:SI] @@ -9733,7 +9730,7 @@ LIViewWindow_Enter1: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset InstrumentDirectory Call D_GetDriveDirectory @@ -9741,7 +9738,7 @@ LIViewWindow_Enter1: LIWindow_EnterInModuleError: Mov InstrumentsInModule, 0 Call D_InitLoadInstruments - Assume DS:Nothing + ;Assume DS:Nothing Mov CS:CurrentInstrument, 0 @@ -9771,7 +9768,7 @@ LIWindow_InInstrument1: ; Open file Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov CurrentInstrument, 0 @@ -9790,7 +9787,7 @@ LIWindow_EnterLoadInInstrumentData: Mov NumInstruments, 1 Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Push DS Pop ES @@ -9805,7 +9802,7 @@ LIWindow_EnterLoadInInstrumentData: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Xor DI, DI Mov SI, Offset ExitInstrumentLibraryDirectory @@ -9820,7 +9817,7 @@ LIWindow_EnterLoadInInstrumentData: Mov AX, 1 Ret - Assume DS:Nothing + ;Assume DS:Nothing LIWindow_Enter2: Mov EAX, [SI+44] @@ -9865,7 +9862,7 @@ LIWindow_Enter5: ; OK.. enough 'sample space'.. Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Call PE_GetLastInstrument @@ -10014,11 +10011,11 @@ LIWindow_Enter9: ; Need to load sample data?? Mov Word Ptr [ES:DI-80+2Eh], 1 -IF NETWORKENABLED +%IF NETWORKENABLED Mov AL, NETWORK_SAMPLEHEADEROBJECT Mov AH, DL Call Network_AddWordToQueue -ENDIF +%ENDIF Test Byte Ptr [SI-80+12h], 1 JZ LIWindow_Enter11 ; No! @@ -10038,13 +10035,13 @@ ENDIF Pop CX -IF NETWORKENABLED +%IF NETWORKENABLED Xor DX, DX Call Network_QueueSampleData ; Mov AL, NETWORK_SAMPLEHEADEROBJECT ; Mov AH, DL ; Call Network_AddWordToQueue -ENDIF +%ENDIF Jmp LIWindow_Enter11 @@ -10114,26 +10111,26 @@ LIWindow_Enter7: Mov DS, AX Or Byte Ptr [DS:2Ch], 4 -IF NETWORKENABLED +%IF NETWORKENABLED Mov CX, 1 Mov DX, 2Ch Call Network_SendSongDataInformation -ENDIF +%ENDIF LIWindow_Enter13: NetworkSendInstrument Jmp Glbl_F4 -EndP LIWindow_Enter - Assume DS:Nothing +;EndP LIWindow_Enter + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_DeleteInstrumentFile Far +Proc D_DeleteInstrumentFile Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Cmp NumInstruments, 0 JE D_DeleteInstrumentFile1 @@ -10144,7 +10141,7 @@ Proc D_DeleteInstrumentFile Far Mul CurrentInstrument Mov SI, AX Mov DS, DiskDataArea - Assume DS:Nothing + ;Assume DS:Nothing Cmp Byte Ptr [DS:SI], 1 JBE D_DeleteInstrumentFile1 ; Don't delete dirs! Cmp Byte Ptr [DS:SI], 8 @@ -10172,7 +10169,7 @@ Proc D_DeleteInstrumentFile Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov DI, SI Add SI, 48 @@ -10216,12 +10213,12 @@ D_DeleteInstrumentFile1: Mov AX, 1 Ret -EndP D_DeleteInstrumentFile - Assume DS:Nothing +;EndP D_DeleteInstrumentFile + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_GetPreShellDirectory Far +Proc D_GetPreShellDirectory Far Push CS Pop DS @@ -10235,11 +10232,11 @@ Proc D_GetPreShellDirectory Far Ret -EndP D_GetPreShellDirectory +;EndP D_GetPreShellDirectory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_RestorePreShellDirectory Far +Proc D_RestorePreShellDirectory Far Push CS Pop DS @@ -10249,20 +10246,20 @@ Proc D_RestorePreShellDirectory Far Ret -EndP D_RestorePreShellDirectory +;EndP D_RestorePreShellDirectory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SetDriveDirectoryFar Far +Proc D_SetDriveDirectoryFar Far Call D_SetDriveDirectory Ret -EndP D_SetDriveDirectoryFar +;EndP D_SetDriveDirectoryFar ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_GetFileName Far +Proc D_GetFileName Far Push CS Pop DS @@ -10270,17 +10267,17 @@ Proc D_GetFileName Far Ret -EndP D_GetFileName +;EndP D_GetFileName ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_ResetTimer Far +Proc D_ResetTimer Far Push DS Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call GetTimerCounter Mov [EditTimer], EAX @@ -10291,8 +10288,8 @@ Proc D_ResetTimer Far Pop DS Ret -EndP D_ResetTimer - Assume DS:Nothing +;EndP D_ResetTimer + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -10305,11 +10302,11 @@ RemainingDateMsg DB " ", 0FDh, "D, ", 0FDh, "D", 0 Time2Msg DB 0FDh, "D:00", 0 TotalTime DD 0 -Proc D_ShowTime Far +Proc D_ShowTime Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov EDX, 3600 Mul EDX @@ -10380,12 +10377,12 @@ D_ShowTime2: D_ShowTimeEnd: Ret -EndP D_ShowTime - Assume DS:Nothing +;EndP D_ShowTime + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF TIMERSCREEN +%IF TIMERSCREEN TimerListKeys Label @@ -10417,11 +10414,11 @@ TimerListKeys Label ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_PostTimerList Far +Proc D_PostTimerList Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset TimerListKeys Call M_FunctionDivider @@ -10434,12 +10431,12 @@ D_PostTimerList1: Ret -EndP D_PostTimerList +;EndP D_PostTimerList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_TimerListUp Far - Assume DS:Disk +Proc D_TimerListUp Far + ;Assume DS:Disk Sub TopTimerData, 1 AdC TopTimerData, 0 @@ -10447,13 +10444,13 @@ Proc D_TimerListUp Far Mov AX, 1 Ret -EndP D_TimerListUp - Assume DS:Nothing +;EndP D_TimerListUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_TimerListDown Far - Assume DS:Disk +Proc D_TimerListDown Far + ;Assume DS:Disk Mov AX, TopTimerData Cmp AX, NumTimerData @@ -10466,13 +10463,13 @@ D_TimerListDown1: Mov AX, 1 Ret -EndP D_TimerListDown - Assume DS:Nothing +;EndP D_TimerListDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_TimerListPgUp Far - Assume DS:Disk +Proc D_TimerListPgUp Far + ;Assume DS:Disk Sub TopTimerData, 28 JNC D_TimerListPgUp1 @@ -10483,13 +10480,13 @@ D_TimerListPgUp1: Mov AX, 1 Ret -EndP D_TimerListPgUp - Assume DS:Nothing +;EndP D_TimerListPgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_TimerListPgDn Far - Assume DS:Disk +Proc D_TimerListPgDn Far + ;Assume DS:Disk Mov AX, TopTimerData Add AX, 28 @@ -10506,14 +10503,14 @@ D_TimerListPgDn1: Mov AX, 1 Ret -EndP D_TimerListPgDn - Assume DS:Nothing +;EndP D_TimerListPgDn + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ShowTimes DB 0 -Proc D_DrawTimer Far +Proc D_DrawTimer Far Call Music_GetSongSegment Mov ES, AX @@ -10536,7 +10533,7 @@ Proc D_DrawTimer Far Test ShowTimes, 1 JZ D_DrawTimerEnd - Assume DS:Disk + ;Assume DS:Disk Mov CX, 28 Mov SI, TopTimerData @@ -10636,47 +10633,47 @@ D_DrawTimerEnd: Xor AX, AX Ret -EndP D_DrawTimer +;EndP D_DrawTimer -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_ReleaseTimer Far +Proc D_ReleaseTimer Far Call ReleaseTimerData Inc AX Ret -EndP D_ReleaseTimer +;EndP D_ReleaseTimer ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF TIMERSCREEN +%IF TIMERSCREEN -Proc D_ToggleShowTimes Far - Assume DS:Disk +Proc D_ToggleShowTimes Far + ;Assume DS:Disk Xor ShowTimes, 1 Mov AX, 1 Ret -EndP D_ToggleShowTimes - Assume DS:Nothing +;EndP D_ToggleShowTimes + ;Assume DS:Nothing -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SlowSampleSort Far +Proc D_SlowSampleSort Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk -IF SORTENABLED +%IF SORTENABLED Cmp SamplesInModule, 1 JE D_SlowSampleSortExit Cmp SampleCacheFileComplete, 1 @@ -10689,7 +10686,7 @@ IF SORTENABLED Mov ES, DiskDataArea Push ES Pop DS - Assume DS:Nothing + ;Assume DS:Nothing Xor SI, SI @@ -10785,22 +10782,22 @@ D_CompareSamplesNoSwap: D_SlowSampleSortExit: -ENDIF +%ENDIF Mov AX, 1 Ret -EndP D_SlowSampleSort +;EndP D_SlowSampleSort ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc D_SlowInstrumentSort Far +Proc D_SlowInstrumentSort Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk -IF SORTENABLED +%IF SORTENABLED Cmp InstrumentsInModule, 1 JE D_SlowInstrumentSortExit Cmp InstrumentCacheFileComplete, 1 @@ -10810,7 +10807,7 @@ IF SORTENABLED Mov ES, DiskDataArea Push ES Pop DS - Assume DS:Nothing + ;Assume DS:Nothing Xor SI, SI @@ -10918,12 +10915,12 @@ D_CompareInstrumentsNoSwap: D_SlowInstrumentSortExit: -ENDIF +%ENDIF Mov AX, 1 Ret -EndP D_SlowInstrumentSort +;EndP D_SlowInstrumentSort ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_displ.s b/it_displ.s index 909ef85..3f457fd 100644 --- a/it_displ.s +++ b/it_displ.s @@ -2,67 +2,64 @@ ;� Display Module!! � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386 - -include switch.inc +%include "switch.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Segment Pattern WORD Public 'Code' USE16 - Extrn Order:Word + extern Order:Word EndS Segment Object1 BYTE Public 'Data' USE16 EndS Segment Glbl BYTE Public 'Code' USE16 - Extrn CurrentMode:Byte + extern CurrentMode:Byte EndS -IF SPECTRUMANALYSER - Extrn Fourier_Start:Far -ENDIF - Extrn S_GetDestination:Far - Extrn S_DrawBox:Far - Extrn S_DrawString:Far - Extrn Music_GetOutputWaveform:Far - Extrn Music_GetInstrumentMode:Far - Extrn Music_GetSongSegment:Far - Extrn Music_GetSampleLocation:Far - Extrn Music_GetHostChannelInformationTable:Far - Extrn Music_GetSlaveChannelInformationTable:Far - Extrn Music_NextOrder:Far - Extrn Music_LastOrder:Far - Extrn Music_GetPlayMode:Far - Extrn Music_GetPlayMode2:Far - Extrn Music_GetPattern:Far - Extrn Music_ToggleChannel:Far - Extrn Music_SoloChannel:Far - Extrn Music_GetDisplayVariables:Far - Extrn Music_InitStereo:Far -; Extrn Music_UpdateSampleLocation:Far - Extrn Music_Poll:Far - Extrn Music_ToggleReverse:Far - Extrn Music_GetLastChannel:far - Extrn Music_GetPatternLength:Far +%IF SPECTRUMANALYSER + extern Fourier_Start:Far +%ENDIF + extern S_GetDestination:Far + extern S_DrawBox:Far + extern S_DrawString:Far + extern Music_GetOutputWaveform:Far + extern Music_GetInstrumentMode:Far + extern Music_GetSongSegment:Far + extern Music_GetSampleLocation:Far + extern Music_GetHostChannelInformationTable:Far + extern Music_GetSlaveChannelInformationTable:Far + extern Music_NextOrder:Far + extern Music_LastOrder:Far + extern Music_GetPlayMode:Far + extern Music_GetPlayMode2:Far + extern Music_GetPattern:Far + extern Music_ToggleChannel:Far + extern Music_SoloChannel:Far + extern Music_GetDisplayVariables:Far + extern Music_InitStereo:Far +; extern Music_UpdateSampleLocation:Far + extern Music_Poll:Far + extern Music_ToggleReverse:Far + extern Music_GetLastChannel:far + extern Music_GetPatternLength:Far - Extrn M_FunctionDivider:Far + extern M_FunctionDivider:Far -IF NETWORKENABLED - Extrn Network_Poll:Far -ENDIF +%IF NETWORKENABLED + extern Network_Poll:Far +%ENDIF - Extrn O1_DisplayList, O1_FullDisplayList + extern O1_DisplayList, O1_FullDisplayList - Extrn PE_GetCurrentPattern:Far - Extrn PE_ConvAX2Num:Far + extern PE_GetCurrentPattern:Far + extern PE_ConvAX2Num:Far - Extrn PE_GotoPattern:Far + extern PE_GotoPattern:Far - Extrn SetInfoLine:Far + extern SetInfoLine:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -79,7 +76,7 @@ ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment InfoPage BYTE Public 'Code' USE16 - Assume CS:InfoPage, DS:InfoPage + ;Assume CS:InfoPage, DS:InfoPage ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -331,11 +328,11 @@ DisplayListKeys Label DW 6 ; Ctrl F DW Offset Display_FullScreen -IF SPECTRUMANALYSER +%IF SPECTRUMANALYSER DB 2 ; Alt.. DW 158h ; F12 DW Offset Display_FourierStart -ENDIF +%ENDIF DB 0FFh ; End of list @@ -343,7 +340,7 @@ ENDIF ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetChannelColour ; Gets AH +Proc GetChannelColour ; Gets AH Push DS Push BX @@ -380,11 +377,11 @@ GetChannelColour1: ; Muted colours GetChannelColourEnd: Ret -EndP GetChannelColour +;EndP GetChannelColour ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DrawChannelNumbers +Proc DrawChannelNumbers Mov CH, 0Ah Mov CL, [CS:BP+4] @@ -394,7 +391,7 @@ Proc DrawChannelNumbers Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Display_HostChannel3: Push CX @@ -446,11 +443,11 @@ Display_HostChannel21: Ret -EndP DrawChannelNumbers +;EndP DrawChannelNumbers ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DrawHexAL +Proc DrawHexAL Cmp AL, 10 SBB AL, 69h @@ -459,13 +456,13 @@ Proc DrawHexAL StosW Ret -EndP DrawHexAL +;EndP DrawHexAL ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_HostChannel +Proc Display_HostChannel ; Draw boxes first. - Assume DS:InfoPage + ;Assume DS:InfoPage Mov ES, Destination @@ -531,7 +528,7 @@ Display_HostChannel22: Mov AL, 80 ; HostChannelSize Mul Byte Ptr [CS:BP+2] Call Music_GetHostChannelInformationTable - Assume DS:Nothing + ;Assume DS:Nothing Add SI, AX Mov DI, [CS:BP+6] Add DI, (31+1*80)*2 @@ -911,12 +908,12 @@ Display_HostChannel6: Ret -EndP Display_HostChannel - Assume DS:Nothing +;EndP Display_HostChannel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Draw10Num +Proc Draw10Num Mov CX, 10 Mov EBP, 10 @@ -938,11 +935,11 @@ Draw10Num1: Ret -EndP Draw10Num +;EndP Draw10Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Draw2Num +Proc Draw2Num Xor AH, AH Mov DL, 10 @@ -959,11 +956,11 @@ Proc Draw2Num Ret -EndP Draw2Num +;EndP Draw2Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Draw3Num +Proc Draw3Num Cmp AH, 10 JB Draw3Num1 @@ -991,13 +988,13 @@ Draw3Num1: Ret -EndP Draw3Num +;EndP Draw3Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_Details +Proc Display_Details ; Draw boxes first. - Assume DS:InfoPage + ;Assume DS:InfoPage Mov ES, Destination @@ -1079,7 +1076,7 @@ Display_Details22: Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Display_Details3: Push CX @@ -1132,7 +1129,7 @@ Display_Details21: Mov AL, 80 ; HostChannelSize Mul Byte Ptr [CS:BP+2] Call Music_GetHostChannelInformationTable - Assume DS:Nothing + ;Assume DS:Nothing Add SI, AX Mov DI, [CS:BP+6] Add DI, (15+2*80)*2 @@ -1302,13 +1299,13 @@ Display_Details8: Ret -EndP Display_Details - Assume DS:Nothing +;EndP Display_Details + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LoadNextData ; Returns DS:SI to data. (unpacked) - Assume DS:InfoPage +Proc LoadNextData ; Returns DS:SI to data. (unpacked) + ;Assume DS:InfoPage Mov BX, DecodePattern Cmp BX, PatternArrayNumber @@ -1341,7 +1338,7 @@ LoadNextData2: ; OK... time to decode. Mov SI, DecodeOffset Mov DS, DecodeSegment - Assume DS:Nothing + ;Assume DS:Nothing LoadNextData4: LodsB @@ -1442,7 +1439,7 @@ LoadNextData16: LoadNextData5: Push CS Pop DS - Assume DS:InfoPage + ;Assume DS:InfoPage Mov DecodeOffset, SI @@ -1455,15 +1452,15 @@ LoadNextData1: Mov SI, DecodeOffset Add DecodeOffset, 320 Mov DS, PatternSegment - Assume DS:Nothing + ;Assume DS:Nothing Ret -EndP LoadNextData +;EndP LoadNextData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GotoRow ; DS:SI points to data. +Proc GotoRow ; DS:SI points to data. Push CX @@ -1532,16 +1529,16 @@ GotoRow2: Pop CX Ret -EndP GotoRow +;EndP GotoRow ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetBeforeRows ; Returns +Proc GetBeforeRows ; Returns ; CX = number of rows to show. ; the row numbers are handled. ; Initialises DataSegment, ; DataOffset and Array. - Assume DS:InfoPage + ;Assume DS:InfoPage Xor CX, CX Mov BX, CurrentRow @@ -1592,7 +1589,7 @@ GetBeforeRows4: GetBeforeRows5: Call Music_GetPattern - Assume DS:Nothing + ;Assume DS:Nothing LodsW LodsW ; AX = rows. @@ -1631,12 +1628,12 @@ GetBeforeRows8: GetBeforeRows9: Ret -EndP GetBeforeRows +;EndP GetBeforeRows ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetAfterRows ; Returns - Assume DS:InfoPage +Proc GetAfterRows ; Returns + ;Assume DS:InfoPage Xor CX, CX Mov BX, DecodeMaxRow @@ -1690,13 +1687,13 @@ GetAfterRows4: GetAfterRows5: Call Music_GetPattern - Assume DS:Nothing + ;Assume DS:Nothing Add SI, 8 Mov CS:DecodeSegment, DS Push CS Pop DS - Assume DS:InfoPage + ;Assume DS:InfoPage Mov DecodeOffset, SI @@ -1727,12 +1724,12 @@ GetAfterRows8: GetAfterRows9: Ret -EndP GetAfterRows +;EndP GetAfterRows ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetCurrentPatternRows ; Returns CX = number of rows to show. - Assume DS:InfoPage +Proc GetCurrentPatternRows ; Returns CX = number of rows to show. + ;Assume DS:InfoPage Mov BX, CurrentRow Mov AX, [CS:BP+4] @@ -1774,7 +1771,7 @@ GetCurrentPatternRows1: GetCurrentPatternRows5: Call Music_GetPattern - Assume DS:Nothing + ;Assume DS:Nothing LodsW LodsW ; AX = number of rows. @@ -1816,11 +1813,11 @@ GetCurrentPatternRows8: Pop CX Ret -EndP GetCurrentPatternRows +;EndP GetCurrentPatternRows ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DrawHilightBar +Proc DrawHilightBar Mov DI, [CS:BP+6] Mov AX, [CS:BP+4] @@ -1839,11 +1836,11 @@ DrawHilightBar1: Ret -EndP DrawHilightBar +;EndP DrawHilightBar ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayTrackData +Proc DisplayTrackData Cmp PlayMode, 0 JNE DisplayTrackData1 @@ -1916,11 +1913,11 @@ DisplayTrackData5: DisplayTrackData6: Ret -EndP DisplayTrackData +;EndP DisplayTrackData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Show5Channel +Proc Show5Channel Mov AL, [CS:BP+2] Mov AH, 5 @@ -2087,12 +2084,12 @@ Show5Channel9: Show5ChannelEnd: Ret -EndP Show5Channel +;EndP Show5Channel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_5Channel - Assume DS:InfoPage +Proc Display_5Channel + ;Assume DS:InfoPage Mov AX, 4 ; left Push AX @@ -2162,12 +2159,12 @@ Display_5Channel4: Ret -EndP Display_5Channel - Assume DS:Nothing +;EndP Display_5Channel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Show8Channel +Proc Show8Channel Mov AL, [CS:BP+2] Mov AH, 5 @@ -2303,12 +2300,12 @@ Show8Channel9: Show8ChannelEnd: Ret -EndP Show8Channel +;EndP Show8Channel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_8Channel - Assume DS:InfoPage +Proc Display_8Channel + ;Assume DS:InfoPage Mov AX, 4 ; left Push AX @@ -2378,12 +2375,12 @@ Display_8Channel4: Ret -EndP Display_8Channel - Assume DS:Nothing +;EndP Display_8Channel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Show10Channel +Proc Show10Channel Mov AL, [CS:BP+2] Mov AH, 5 @@ -2539,12 +2536,12 @@ Show10Channel10: Ret -EndP Show10Channel +;EndP Show10Channel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_10Channel - Assume DS:InfoPage +Proc Display_10Channel + ;Assume DS:InfoPage Mov AX, 4 ; left Push AX @@ -2615,12 +2612,12 @@ Display_10Channel4: Ret -EndP Display_10Channel - Assume DS:Nothing +;EndP Display_10Channel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Process3CharacterRow +Proc Process3CharacterRow Push SI @@ -2766,11 +2763,11 @@ Show18Channel7: Ret -EndP Process3CharacterRow +;EndP Process3CharacterRow ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Show18Channel +Proc Show18Channel Mov AL, [CS:BP+2] Mov AH, 5 @@ -2794,12 +2791,12 @@ Show18Channel1: Show18ChannelEnd: Ret -EndP Show18Channel +;EndP Show18Channel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_18Channel - Assume DS:InfoPage +Proc Display_18Channel + ;Assume DS:InfoPage Mov AX, 4 ; left Push AX @@ -2869,12 +2866,12 @@ Display_18Channel4: Ret -EndP Display_18Channel - Assume DS:Nothing +;EndP Display_18Channel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Show24Channel +Proc Show24Channel Mov AL, [CS:BP+2] Mov AH, 5 @@ -2893,12 +2890,12 @@ Show24Channel1: Ret -EndP Show24Channel +;EndP Show24Channel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_24Channel - Assume DS:InfoPage +Proc Display_24Channel + ;Assume DS:InfoPage Mov AX, 4 ; left Push AX @@ -2969,12 +2966,12 @@ Display_24Channel4: Ret -EndP Display_24Channel - Assume DS:Nothing +;EndP Display_24Channel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Show36Channel +Proc Show36Channel Mov AL, [CS:BP+2] Mov AH, 5 @@ -3121,12 +3118,12 @@ Show36Channel7: Show36Channel9: Jmp Show36Channel1 -EndP Show36Channel +;EndP Show36Channel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_36Channel - Assume DS:InfoPage +Proc Display_36Channel + ;Assume DS:InfoPage Mov AX, 4 ; left Push AX @@ -3194,12 +3191,12 @@ Display_36Channel4: Ret -EndP Display_36Channel - Assume DS:Nothing +;EndP Display_36Channel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Show64Channel +Proc Show64Channel ; DS:SI points to stuff. Mov CX, 64 @@ -3298,12 +3295,12 @@ Show64Channel7: Show64Channel9: Jmp Show64Channel1 -EndP Show64Channel +;EndP Show64Channel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_64Channel - Assume DS:InfoPage +Proc Display_64Channel + ;Assume DS:InfoPage Mov AX, 4 ; left Push AX @@ -3357,12 +3354,12 @@ Display_64Channel4: Ret -EndP Display_64Channel - Assume DS:Nothing +;EndP Display_64Channel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_Variables +Proc Display_Variables Mov DI, [CS:BP+6] Add DI, (2+1*80)*2 @@ -3422,12 +3419,12 @@ Display_Variables3: Ret -EndP Display_Variables +;EndP Display_Variables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_NoteDots ; Draw boxes first. - Assume DS:InfoPage +Proc Display_NoteDots ; Draw boxes first. + ;Assume DS:InfoPage Mov ES, Destination @@ -3564,14 +3561,14 @@ Display_Dots8: Ret -EndP Display_NoteDots +;EndP Display_NoteDots ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Comment ~ -Proc Display_SampleDots ; Draw boxes first. - Assume DS:InfoPage +Proc Display_SampleDots ; Draw boxes first. + ;Assume DS:InfoPage Mov ES, Destination @@ -3715,20 +3712,20 @@ Display_SampleDots8: Ret -EndP Display_SampleDots +;EndP Display_SampleDots ~ ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DrawDisplayData Far +Proc DrawDisplayData Far Call PE_GetCurrentPattern Mov CS:PatternSegment, DS Push CS Pop DS - Assume DS:InfoPage + ;Assume DS:InfoPage Call S_GetDestination Mov Destination, ES @@ -3753,7 +3750,7 @@ Proc DrawDisplayData Far DrawDisplayData1: Push CS Pop DS - Assume DS:InfoPage + ;Assume DS:InfoPage Push BP @@ -3814,16 +3811,16 @@ DisplayData3: Mov AX, 1 Ret -EndP DrawDisplayData - Assume DS:Nothing +;EndP DrawDisplayData + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PostDisplayData Far +Proc PostDisplayData Far Push CS Pop DS - Assume DS:InfoPage + ;Assume DS:InfoPage Mov SI, Offset DisplayListKeys Call M_FunctionDivider @@ -3835,12 +3832,12 @@ PostDisplayData1: Xor AX, AX Ret -EndP PostDisplayData +;EndP PostDisplayData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayUp Far - Assume DS:InfoPage +Proc DisplayUp Far + ;Assume DS:InfoPage Mov AX, 1 @@ -3849,13 +3846,13 @@ Proc DisplayUp Far Ret -EndP DisplayUp - Assume DS:Nothing +;EndP DisplayUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayDown Far - Assume DS:InfoPage +Proc DisplayDown Far + ;Assume DS:InfoPage Mov AX, CurrentChannel Inc AX @@ -3868,35 +3865,35 @@ DisplayDown1: Mov AX, 1 Ret -EndP DisplayDown - Assume DS:Nothing +;EndP DisplayDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayPlus Far +Proc DisplayPlus Far Call Music_NextOrder Mov AX, 1 Ret -EndP DisplayPlus +;EndP DisplayPlus ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayMinus Far +Proc DisplayMinus Far Call Music_LastOrder Mov AX, 1 Ret -EndP DisplayMinus +;EndP DisplayMinus ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayInsert Far - Assume DS:InfoPage +Proc DisplayInsert Far + ;Assume DS:InfoPage Cmp NumWindows, 5 JAE DisplayInsert1 @@ -3953,13 +3950,13 @@ DisplayInsert1: Mov AX, 1 Ret -EndP DisplayInsert - Assume DS:Nothing +;EndP DisplayInsert + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayDelete Far - Assume DS:InfoPage +Proc DisplayDelete Far + ;Assume DS:InfoPage Cmp NumWindows, 1 JBE DisplayDelete1 @@ -4014,13 +4011,13 @@ DisplayDelete1: Mov AX, 1 Ret -EndP DisplayDelete - Assume DS:Nothing +;EndP DisplayDelete + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayNext Far - Assume DS:InfoPage +Proc DisplayNext Far + ;Assume DS:InfoPage Mov AX, CurrentWindow Inc AX @@ -4035,12 +4032,12 @@ DisplayNext1: Mov AX, 1 Ret -EndP DisplayNext - Assume DS:Nothing +;EndP DisplayNext + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayPrevious Far +Proc DisplayPrevious Far Mov AX, CurrentWindow And AX, AX @@ -4053,12 +4050,12 @@ DisplayPrevious1: Mov AX, 1 Ret -EndP DisplayPrevious +;EndP DisplayPrevious ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayAltUp Far - Assume DS:InfoPage +Proc DisplayAltUp Far + ;Assume DS:InfoPage Mov BX, 3 @@ -4087,13 +4084,13 @@ DisplayAltUp1: Mov AX, 1 Ret -EndP DisplayAltUp - Assume DS:Nothing +;EndP DisplayAltUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayAltDown Far - Assume DS:InfoPage +Proc DisplayAltDown Far + ;Assume DS:InfoPage Mov AX, CurrentWindow Inc AX @@ -4117,13 +4114,13 @@ DisplayAltDown1: Mov AX, 1 Ret -EndP DisplayAltDown - Assume DS:Nothing +;EndP DisplayAltDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayPageUp Far - Assume DS:InfoPage +Proc DisplayPageUp Far + ;Assume DS:InfoPage Mov AX, CurrentWindow Mov AH, 8 @@ -4144,13 +4141,13 @@ DisplayPageUp1: Mov AX, 1 Ret -EndP DisplayPageUp - Assume DS:Nothing +;EndP DisplayPageUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayPageDown Far - Assume DS:InfoPage +Proc DisplayPageDown Far + ;Assume DS:InfoPage Mov AX, CurrentWindow Mov AH, 8 @@ -4171,26 +4168,26 @@ DisplayPageDown1: Mov AX, 1 Ret -EndP DisplayPageDown - Assume DS:Nothing +;EndP DisplayPageDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayHome Far - Assume DS:InfoPage +Proc DisplayHome Far + ;Assume DS:InfoPage Mov CurrentChannel, 0 Mov AX, 1 Ret -EndP DisplayHome - Assume DS:Nothing +;EndP DisplayHome + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayEnd Far - Assume DS:InfoPage +Proc DisplayEnd Far + ;Assume DS:InfoPage Call Music_GetLastChannel Mov CurrentChannel, AX @@ -4198,12 +4195,12 @@ Proc DisplayEnd Far Mov AX, 1 Ret -EndP DisplayEnd - Assume DS:Nothing +;EndP DisplayEnd + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayToggleChannel Far +Proc DisplayToggleChannel Far Mov AX, CurrentChannel Call Music_ToggleChannel @@ -4211,11 +4208,11 @@ Proc DisplayToggleChannel Far Mov AX, 1 Ret -EndP DisplayToggleChannel +;EndP DisplayToggleChannel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplaySoloChannel Far +Proc DisplaySoloChannel Far Mov AX, CurrentChannel Call Music_SoloChannel @@ -4223,21 +4220,21 @@ Proc DisplaySoloChannel Far Mov AX, 1 Ret -EndP DisplaySoloChannel +;EndP DisplaySoloChannel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� OldEBX DD 0 OldECX DD 0 -Proc DisplayUpdateScreen Far +Proc DisplayUpdateScreen Far -IF NETWORKENABLED +%IF NETWORKENABLED Call Network_Poll Test AX, AX JNZ DisplayUpdateScreen1 -ENDIF +%ENDIF Call Music_Poll Call Music_GetPlayMode2 @@ -4266,12 +4263,12 @@ DisplayUpdateScreen1: Mov AX, 1 Ret -EndP DisplayUpdateScreen +;EndP DisplayUpdateScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayToggleStereo Far - Assume DS:InfoPage +Proc DisplayToggleStereo Far + ;Assume DS:InfoPage Call Music_GetSongSegment Mov ES, AX @@ -4293,26 +4290,26 @@ DisplayToggleStereo1: Mov AX, 1 Ret -EndP DisplayToggleStereo - Assume DS:Nothing +;EndP DisplayToggleStereo + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_GetDisplayWindowData Far +Proc Display_GetDisplayWindowData Far Push CS Pop DS - Assume DS:InfoPage + ;Assume DS:InfoPage Mov DX, Offset DisplayWindows Ret -EndP DIsplay_GetDisplayWindowData +;EndP DIsplay_GetDisplayWindowData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_GotoPattern Far +Proc Display_GotoPattern Far Call Music_GetPlayMode Cmp AX, 1 @@ -4321,7 +4318,7 @@ Proc Display_GotoPattern Far Push Pattern Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov Order, DX @@ -4336,22 +4333,22 @@ Display_GotoPattern1: Xor AX, AX Ret -EndP Display_GotoPattern - Assume DS:Nothing +;EndP Display_GotoPattern + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_SpaceBar Far - Assume DS:InfoPage +Proc Display_SpaceBar Far + ;Assume DS:InfoPage Call DisplayToggleChannel Jmp DisplayDown -EndP Display_SpaceBar +;EndP Display_SpaceBar ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayToggleVelocity Far +Proc DisplayToggleVelocity Far Mov SI, Offset VolumeMsg Xor Byte Ptr Velocity, 1 @@ -4365,11 +4362,11 @@ DisplayToggleVelocity1: Mov AX, 1 Ret -EndP DisplayToggleVelocity +;EndP DisplayToggleVelocity ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayToggleInstrument Far +Proc DisplayToggleInstrument Far Mov SI, Offset SampleMsg Xor Byte Ptr Instrument, 1 @@ -4383,32 +4380,32 @@ DisplayToggleInstrument1: Mov AX, 1 Ret -EndP DisplayToggleInstrument +;EndP DisplayToggleInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DisplayToggleReverse Far +Proc DisplayToggleReverse Far Call Music_ToggleReverse Mov AX, 1 Ret -EndP DisplayToggleReverse +;EndP DisplayToggleReverse ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_SelectDisplayList Far +Proc Display_SelectDisplayList Far Cmp CS:FullScreen, 1 JZ Display_FullScreen3 Jmp Display_FullScreen4 -EndP Display_SelectDisplayList +;EndP Display_SelectDisplayList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Display_FullScreen Far +Proc Display_FullScreen Far Cmp NumWindows, 1 JE Display_FullScreen1 @@ -4419,9 +4416,9 @@ Proc Display_FullScreen Far Display_FullScreen1: Push Glbl Pop ES - Assume ES:Glbl + ;Assume ES:Glbl Mov ES:CurrentMode, 5 - Assume ES:Nothing + ;Assume ES:Nothing Xor FullScreen, 1 @@ -4433,9 +4430,9 @@ Display_FullScreen1: Display_FullScreen3: Push Glbl Pop ES - Assume ES:Glbl + ;Assume ES:Glbl Mov ES:CurrentMode, 200 - Assume ES:Nothing + ;Assume ES:Nothing Mov AX, 5 Mov SI, 1 @@ -4451,9 +4448,9 @@ Display_FullScreen2: Display_FullScreen4: Push Glbl Pop ES - Assume ES:Glbl + ;Assume ES:Glbl Mov ES:CurrentMode, 5 - Assume ES:Nothing + ;Assume ES:Nothing Mov AX, 5 Mov SI, 1 @@ -4462,19 +4459,19 @@ Display_FullScreen4: Mov DX, Offset O1_DisplayList Ret -EndP Display_FullScreen +;EndP Display_FullScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF SPECTRUMANALYSER +%IF SPECTRUMANALYSER -Proc Display_FourierStart Far +Proc Display_FourierStart Far Jmp Fourier_Start -EndP Display_FourierStart +;EndP Display_FourierStart -ENDIF +%ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_ems.s b/it_ems.s index 6f36248..6e16cae 100644 --- a/it_ems.s +++ b/it_ems.s @@ -2,7 +2,7 @@ ;� EMS Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include switch.inc +%include "switch.inc" ; Memory structure for patterns: ; Memory Block Header @@ -16,27 +16,24 @@ include switch.inc ; Offset 9-0Fh: Not used ; Offset 10h Data - Jumps - .386 - ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Segment Object1 BYTE Public 'Data' - Extrn EMSErrorValue:Word - Extrn EMSErrorValue2:Word - Extrn EMSErrorValue3:Word - Extrn EMSErrorValue4:Word - Extrn EMSErrorValue5:Word - Extrn EMSErrorValue6:Word - Extrn EMSErrorValue7:Word - Extrn EMSErrorValue8:Word + extern EMSErrorValue:Word + extern EMSErrorValue2:Word + extern EMSErrorValue3:Word + extern EMSErrorValue4:Word + extern EMSErrorValue5:Word + extern EMSErrorValue6:Word + extern EMSErrorValue7:Word + extern EMSErrorValue8:Word EndS - Extrn M_Object1List:Far + extern M_Object1List:Far - Extrn O1_EMSWarningMessage + extern O1_EMSWarningMessage ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -57,37 +54,37 @@ EndS Global E_GetEMSVersion:Far Global E_GetInternalEMSHandle:Far -IF EMSDEBUG +%IF EMSDEBUG Global E_DumpEMSMemory:Far -ENDIF +%ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment EMS WORD Public 'Code' USE16 - Assume CS:EMS, DS:Nothing + ;Assume CS:EMS, DS:Nothing ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� CREATENEWLOGFILE EQU 0 -include debug.inc +%include "debug.inc" EMSDetectString DB "EMMXXXX0" ; Identification string EMSHandlesRemaining DW 0 -EMSAvailable DW 0 ; Assume that it's not avail. +EMSAvailable DW 0 ; ;Assume that it's not avail. EMSPageFrame DW 0 EMSHandle DW 0 EMSVersion DB 0 DB 0 -IF EMSDEBUG +%IF EMSDEBUG EMSDumpName DB "EMSDump", 0 -ENDIF +%ENDIF EMSCorrespondenceList Label Word Page0 DB 0, 0 @@ -103,7 +100,7 @@ EMSCorrespondenceList Label Word ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_InitEMS Far +Proc E_InitEMS Far Push DS Push ES @@ -122,7 +119,7 @@ Proc E_InitEMS Far Push CS Pop DS - Assume DS:EMS + ;Assume DS:EMS Mov SI, Offset EMSDetectString @@ -242,12 +239,12 @@ E_InitEMS1: Pop DS Ret -EndP E_InitEMS - Assume DS:Nothing +;EndP E_InitEMS + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_GetFreeEMS Far ; Returns kb free.. +Proc E_GetFreeEMS Far ; Returns kb free.. Push BX Push DX @@ -274,11 +271,11 @@ E_GetFreeEMS1: Pop BX Ret -EndP E_GetFreeEMS +;EndP E_GetFreeEMS ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_ReleaseEMS Far ; AX = handle. +Proc E_ReleaseEMS Far ; AX = handle. Push AX Push DX @@ -300,11 +297,11 @@ E_ReleaseEMS1: Ret -EndP E_ReleaseEMS +;EndP E_ReleaseEMS ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc EMSWarning +Proc EMSWarning PushAD Push DS @@ -312,7 +309,7 @@ Proc EMSWarning Mov BX, Object1 Mov DS, BX - Assume DS:Object1 + ;Assume DS:Object1 Mov Byte Ptr EMSErrorValue, AH Mov EMSErrorValue2, CX @@ -343,12 +340,12 @@ Proc EMSWarning Ret -EndP EMSWarning - Assume DS:Nothing +;EndP EMSWarning + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_MapAvailableEMSMemory Far +Proc E_MapAvailableEMSMemory Far ; AX = handle. Push AX BX DX @@ -375,11 +372,11 @@ E_MapAvailableEMSMemory2: Ret -EndP E_MapAvailableEMSMemory +;EndP E_MapAvailableEMSMemory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_MapEMSMemory Far ; CL = total pages in handle +Proc E_MapEMSMemory Far ; CL = total pages in handle ; CH = starting (base) page. ; DX = handle @@ -397,10 +394,10 @@ Proc E_MapEMSMemory Far ; CL = total pages in handle E_MapEMSMemory003: -IF EMSUSE41 +%IF EMSUSE41 Cmp CS:EMSVersion, 40h JAE E_MapEMSMemoryV4_1 -ENDIF +%ENDIF Xor BX, BX @@ -419,7 +416,7 @@ E_MapEMSMemory001: JNZ E_MapEMSMemory001 Jmp E_MapEMSMemory002 -IF EMSUSE41 +%IF EMSUSE41 E_MapEMSMemoryV4_1: Push DS @@ -430,7 +427,7 @@ E_MapEMSMemoryV4_1: Push CS Pop DS - Assume DS:EMS + ;Assume DS:EMS Mov Page0, CH Inc CH @@ -448,12 +445,12 @@ E_MapEMSMemoryV4_1: PopF Pop SI Pop DS - Assume DS:Nothing + ;Assume DS:Nothing Test AH, AH JZ E_MapEMSMemory002 -ENDIF +%ENDIF E_MapEMSMemory004: ; Call EMSWarning @@ -466,11 +463,11 @@ E_MapEMSMemory002: E_MapEMSMemoryExit: Ret -EndP E_MapEMSMemory +;EndP E_MapEMSMemory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_UnInitEMS Far +Proc E_UnInitEMS Far Cmp EMSAvailable, 0 JE E_UnInitEMS1 @@ -481,20 +478,20 @@ Proc E_UnInitEMS Far E_UnInitEMS1: Ret -EndP E_UnInitEMS +;EndP E_UnInitEMS ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_GetEMSPageFrame Far +Proc E_GetEMSPageFrame Far Mov AX, CS:EMSPageFrame Ret -EndP E_GetEMSPageFrame +;EndP E_GetEMSPageFrame ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_MapAlignedBlockEMS Far ; Given AX, Return DS:SI +Proc E_MapAlignedBlockEMS Far ; Given AX, Return DS:SI Push CX DX @@ -514,11 +511,11 @@ Proc E_MapAlignedBlockEMS Far ; Given AX, Return DS:SI Ret -EndP E_MapAlignedBlockEMS +;EndP E_MapAlignedBlockEMS ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_AllocateBlockEMS Far ; EAX = number of bytes +Proc E_AllocateBlockEMS Far ; EAX = number of bytes ; Destroys EMS page frame ; Returns AX = segment address ; Carry set if fail, clear if @@ -635,11 +632,11 @@ AllocateBlockQuit: StI Ret -EndP E_AllocateBlockEMS +;EndP E_AllocateBlockEMS ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_ReleaseBlockEMS Far ; Given AX = 'segment'. +Proc E_ReleaseBlockEMS Far ; Given AX = 'segment'. ClI Push EAX EBX DS SI @@ -721,11 +718,11 @@ E_ReleaseBlockCleanup: StI Ret -EndP E_ReleaseBlockEMS +;EndP E_ReleaseBlockEMS ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_AllocateEMS Far ; EAX = number of bytes +Proc E_AllocateEMS Far ; EAX = number of bytes ; Returns AX with handle ; 0 if no handle allocated ; given carry = essential @@ -771,22 +768,22 @@ E_AllocateEMS1: Pop EBX Ret -EndP E_AllocateEMS +;EndP E_AllocateEMS ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_EMSAvailable Far ; Returns Zero flag set if no EMS +Proc E_EMSAvailable Far ; Returns Zero flag set if no EMS Cmp CS:EMSAvailable, 0 Ret -EndP E_EMSAvailable +;EndP E_EMSAvailable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Comment ~ -Proc E_SavePageFrame Far ; Given DX = Handle +Proc E_SavePageFrame Far ; Given DX = Handle Public E_SavePageFrame Push AX @@ -805,11 +802,11 @@ E_SavePageFrame1: Ret -EndP E_SavePageFrame +;EndP E_SavePageFrame ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_RestorePageFrame Far ; Given DX = Handle +Proc E_RestorePageFrame Far ; Given DX = Handle Public E_RestorePageFrame Push AX @@ -828,13 +825,13 @@ E_RestorePageFrame1: Ret -EndP E_RestorePageFrame +;EndP E_RestorePageFrame ~ ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_SaveEMSPageFrame Far +Proc E_SaveEMSPageFrame Far Cmp CS:EMSAvailable, 0 JE E_SaveEMSPageFrame1 @@ -865,11 +862,11 @@ E_SaveEMSPageFrame2: E_SaveEMSPageFrame1: Ret -EndP E_SaveEMSPageFrame +;EndP E_SaveEMSPageFrame ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_RestoreEMSPageFrame Far +Proc E_RestoreEMSPageFrame Far Cmp CS:EMSAvailable, 0 JE E_RestoreEMSPageFrame1 @@ -887,35 +884,35 @@ Proc E_RestoreEMSPageFrame Far E_RestoreEMSPageFrame1: Ret -EndP E_RestoreEMSPageFrame +;EndP E_RestoreEMSPageFrame ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_GetEMSVersion Far +Proc E_GetEMSVersion Far Mov AL, CS:EMSVersion Ret -EndP E_GetEMSVersion +;EndP E_GetEMSVersion ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc E_GetInternalEMSHandle Far +Proc E_GetInternalEMSHandle Far Mov AX, CS:EMSHandle Ret -EndP E_GetInternalEMSHandle +;EndP E_GetInternalEMSHandle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF EMSDEBUG +%IF EMSDEBUG -Proc E_DumpEMSMemory Far +Proc E_DumpEMSMemory Far Push CS Pop DS - Assume DS:EMS + ;Assume DS:EMS Mov AH, 3Ch Xor CX, CX @@ -959,10 +956,10 @@ Proc E_DumpEMSMemory Far Xor AX, AX Ret -EndP E_DumpEMSMemory - Assume DS:Nothing +;EndP E_DumpEMSMemory + ;Assume DS:Nothing -ENDIF +%ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_err.s b/it_err.s index 8cceb33..cc3f6b1 100644 --- a/it_err.s +++ b/it_err.s @@ -23,7 +23,7 @@ ;Segment Error BYTE Public 'Code' USE16 section .text %warning "USE16" -; Assume CS:Error +; ;Assume CS:Error CREATENEWLOGFILE EQU 0 %include "debug.inc" @@ -79,7 +79,7 @@ ErrorHandler: Push CS Pop DS -; Assume DS:Error +; ;Assume DS:Error Mov BX, DI And BX, 0FFh @@ -117,7 +117,7 @@ ErrorHandler4: IRet ;EndP ErrorHandler -; Assume DS:Nothing +; ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� diff --git a/it_f.s b/it_f.s index d14c98f..b70f9a2 100644 --- a/it_f.s +++ b/it_f.s @@ -2,17 +2,14 @@ ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386 - -include switch.inc -include network.inc +%include "switch.inc" +%include "network.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF MEMORYDEBUG +%IF MEMORYDEBUG Segment StartUp BYTE Public 'Code' EndS @@ -41,23 +38,23 @@ EndS Segment Main BYTE Public 'Code' EndS -ENDIF +%ENDIF Segment Pattern BYTE Public 'Code' - Extrn PatternDataArea:Word + extern PatternDataArea:Word EndS Segment Inst BYTE Public 'Code' - Extrn MaxNode:Word + extern MaxNode:Word EndS Segment Music BYTE Public 'Code' - Extrn SongDataArea:Word - Extrn MIDIDataArea:Word + extern SongDataArea:Word + extern MIDIDataArea:Word EndS Segment Disk BYTE Public 'Code' - Extrn DiskDataArea:Word + extern DiskDataArea:Word EndS Segment Screen BYTE Public 'Code' @@ -68,107 +65,107 @@ EndS ;------------------------------------------------------------------------------- - Extrn LastInstrument:Byte + extern LastInstrument:Byte - Extrn D_GetLoadSampleVars:Far - Extrn D_ClearFileName:Far - Extrn D_SaveSong:Far - Extrn D_ResetTimer:Far + extern D_GetLoadSampleVars:Far + extern D_ClearFileName:Far + extern D_SaveSong:Far + extern D_ResetTimer:Far - Extrn E_UnInitEMS:Far - Extrn E_GetFreeEMS:Far + extern E_UnInitEMS:Far + extern E_GetFreeEMS:Far - Extrn Glbl_F2_2:Far - Extrn Glbl_F3:Far - Extrn Glbl_Ctrl_F3:Far - Extrn Glbl_Ctrl_F4:Far - Extrn Glbl_F4:Far - Extrn Glbl_F5:Far - Extrn Glbl_Ctrl_F5:Far - Extrn Glbl_F6:Far - Extrn PE_F7:Far - Extrn Glbl_Shift_F6:Far - Extrn Glbl_Shift_F9:Far - Extrn Glbl_F9:Far - Extrn Glbl_F10:Far - Extrn Glbl_F11_2:Far - Extrn Glbl_F12:Far + extern Glbl_F2_2:Far + extern Glbl_F3:Far + extern Glbl_Ctrl_F3:Far + extern Glbl_Ctrl_F4:Far + extern Glbl_F4:Far + extern Glbl_F5:Far + extern Glbl_Ctrl_F5:Far + extern Glbl_F6:Far + extern PE_F7:Far + extern Glbl_Shift_F6:Far + extern Glbl_Shift_F9:Far + extern Glbl_F9:Far + extern Glbl_F10:Far + extern Glbl_F11_2:Far + extern Glbl_F12:Far - Extrn Glbl_GetHeaderMode:Far + extern Glbl_GetHeaderMode:Far - Extrn H_Help:Far + extern H_Help:Far - Extrn I_GetInstrumentOffset:Far - Extrn I_GetSampleOffset:Far + extern I_GetInstrumentOffset:Far + extern I_GetSampleOffset:Far - Extrn I_DrawWaveForm:Far - Extrn I_MapEnvelope:Far - Extrn D_DrawWaveForm:Far + extern I_DrawWaveForm:Far + extern I_MapEnvelope:Far + extern D_DrawWaveForm:Far - Extrn S_InitScreen:Far - Extrn S_Set80x25Mode:Far - Extrn S_SetPalette2:Far - Extrn S_RedefineCharacters:Far - Extrn S_UnInitScreen:Far - Extrn S_DrawBox:Far - Extrn S_UpdateScreen:Far - Extrn S_OverrideVGADetection:Far - Extrn S_SetDirectMode:Far - Extrn S_DrawString:Far - Extrn S_HiLight:Far - Extrn S_GetDestination:Far - Extrn S_SaveScreen:Far - Extrn S_RestoreScreen:Far + extern S_InitScreen:Far + extern S_Set80x25Mode:Far + extern S_SetPalette2:Far + extern S_RedefineCharacters:Far + extern S_UnInitScreen:Far + extern S_DrawBox:Far + extern S_UpdateScreen:Far + extern S_OverrideVGADetection:Far + extern S_SetDirectMode:Far + extern S_DrawString:Far + extern S_HiLight:Far + extern S_GetDestination:Far + extern S_SaveScreen:Far + extern S_RestoreScreen:Far - Extrn Music_GetSongSegment:Far - Extrn Music_InitMixTable:Far - Extrn Music_InitMuteTable:Far - Extrn Music_ClearAllInstruments:Far - Extrn Music_SetGlobalVolume:Far - Extrn Music_InitStereo:Far - Extrn Music_Stop:Far + extern Music_GetSongSegment:Far + extern Music_InitMixTable:Far + extern Music_InitMuteTable:Far + extern Music_ClearAllInstruments:Far + extern Music_SetGlobalVolume:Far + extern Music_InitStereo:Far + extern Music_Stop:Far - Extrn Music_RegetLoopInformation:Far + extern Music_RegetLoopInformation:Far - Extrn Music_ReleaseAllSamples:Far ; For New Song Function - Extrn Music_ReleaseAllPatterns:Far - Extrn Music_ClearAllInstruments:Far - Extrn Music_ClearAllSampleNames:Far - Extrn Music_GetFreeSoundCardMemory:Far - Extrn Music_SoundCardLoadAllSamples:Far - Extrn Music_ReinitSoundCard:Far - Extrn Music_TimeSong:Far + extern Music_ReleaseAllSamples:Far ; For New Song Function + extern Music_ReleaseAllPatterns:Far + extern Music_ClearAllInstruments:Far + extern Music_ClearAllSampleNames:Far + extern Music_GetFreeSoundCardMemory:Far + extern Music_SoundCardLoadAllSamples:Far + extern Music_ReinitSoundCard:Far + extern Music_TimeSong:Far - Extrn Glbl_DriverScreen:Far - Extrn Music_GetDriverVariable:Far - Extrn Music_SetDriverVariable:Far + extern Glbl_DriverScreen:Far + extern Music_GetDriverVariable:Far + extern Music_SetDriverVariable:Far - Extrn M_Object1List:Far + extern M_Object1List:Far - Extrn Msg_ResetMessage:Far + extern Msg_ResetMessage:Far - Extrn O1_EmptyList:Far - Extrn O1_ThumbStringList:Far - Extrn O1_InitialiseInstrumentList:Far - Extrn O1_NewSongList:Far + extern O1_EmptyList:Far + extern O1_ThumbStringList:Far + extern O1_InitialiseInstrumentList:Far + extern O1_NewSongList:Far - Extrn O1_MainMenu:Far - Extrn O1_FileMenu:Far - Extrn O1_PlaybackMenu:Far - Extrn O1_SampleMenu:Far - Extrn O1_InstrumentMenu:Far + extern O1_MainMenu:Far + extern O1_FileMenu:Far + extern O1_PlaybackMenu:Far + extern O1_SampleMenu:Far + extern O1_InstrumentMenu:Far - Extrn PE_ConvAX2Num:Far - Extrn PE_ResetOrderPattern:Far + extern PE_ConvAX2Num:Far + extern PE_ResetOrderPattern:Far - Extrn DOSShell:Far - Extrn Quit:Far + extern DOSShell:Far + extern Quit:Far - Extrn MouseAddEvent:Far, AddMouseQueue:Far, MouseClearEvents:Far - Extrn SetKeyboardLock:Far, NewCharacterSet:Far - Extrn MouseRemoveEvents:Far, MouseRestoreEvents:Far - Extrn MultiChannelInfo:Byte + extern MouseAddEvent:Far, AddMouseQueue:Far, MouseClearEvents:Far + extern SetKeyboardLock:Far, NewCharacterSet:Far + extern MouseRemoveEvents:Far, MouseRestoreEvents:Far + extern MultiChannelInfo:Byte ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -277,7 +274,7 @@ EndS Global F_InstrumentList:Far Global F_InstrumentLibrary:Far -IF MEMORYDEBUG +%IF MEMORYDEBUG Global F_DrawDebug:Far Global F_DebugUp:Far @@ -287,7 +284,7 @@ IF MEMORYDEBUG Global F_DebugStringInput:Far Public F_PostDebug -ENDIF +%ENDIF Public F_ShowMIDIZxxInput Public F_MIDI_Up @@ -297,7 +294,7 @@ ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Functions BYTE Public 'Code' USE16 - Assume CS:Functions, DS:Nothing + ;Assume CS:Functions, DS:Nothing ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -466,11 +463,11 @@ Set5NumValues Label Word ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� HeaderMsg1 Label Byte -IF SHOWVERSION +%IF SHOWVERSION DB 0FFh, 9, ' ', "Impulse Tracker v2.14 Copyright (C) 1995-2000 Jeffrey Lim", 13 -ELSE +%ELSE DB 0FFh, 12, ' ', "Impulse Tracker Copyright (C) 1995-2000 Jeffrey Lim", 13 -ENDIF +%ENDIF DB 0FFh, 9, ' ', 0FEh, 21h, 139, 0FFh, 25, 134, 138, 0FFh, 11, ' ', 139, 0FFh, 28, 134, 138, 13 DB 0FEh, 20h, "Song Name", 0FEh, 21h, 132, 0FEh, 5, 0FFh, 25, ' ', 0FEh, 23h, 131, 0FEh, 20h, 0 @@ -504,16 +501,16 @@ FilterMessage DB "Filter", 0 ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Nothing Far +Proc F_Nothing Far Xor AX, AX Ret -EndP F_Nothing +;EndP F_Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_InstrumentButtonHandler Far +Proc F_InstrumentButtonHandler Far Test AX, AX JZ F_InstrumentButtonHandler1 @@ -531,30 +528,30 @@ F_InstrumentButtonHandler1: Add DI, [SI+24] Ret -EndP F_InstrumentButtonHandler +;EndP F_InstrumentButtonHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_NothingNear +Proc F_NothingNear Xor AX, AX Ret -EndP F_NothingNear +;EndP F_NothingNear ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_CallFarPreFunction Far +Proc F_CallFarPreFunction Far Call DWord Ptr [SI+6] Ret -EndP F_CallFarPreFunction +;EndP F_CallFarPreFunction ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_CallFarPostFunction Far +Proc F_CallFarPostFunction Far Mov SI, [BX] @@ -562,21 +559,21 @@ Proc F_CallFarPostFunction Far Ret -EndP F_CallFarPostFunction +;EndP F_CallFarPostFunction ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_CallFarFunction Far +Proc F_CallFarFunction Far Call DWord Ptr [SI+2] Ret -EndP F_CallFarFunction +;EndP F_CallFarFunction ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawBoxObject Far +Proc F_DrawBoxObject Far LodsW Xor AH, AH @@ -595,11 +592,11 @@ Proc F_DrawBoxObject Far Ret -EndP F_DrawBoxObject +;EndP F_DrawBoxObject ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawTextObject Far +Proc F_DrawTextObject Far LodsW @@ -645,11 +642,11 @@ F_DrawTextObject3: Ret -EndP F_DrawTextObject +;EndP F_DrawTextObject ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PostExitObject Far +Proc F_PostExitObject Far Xor AX, AX Test CH, 1 @@ -662,11 +659,11 @@ Proc F_PostExitObject Far F_PostExitObject1: Ret -EndP F_PostExitObject +;EndP F_PostExitObject ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SetDirectMode Far +Proc F_SetDirectMode Far LodsW LodsB @@ -674,11 +671,11 @@ Proc F_SetDirectMode Far Ret -EndP F_SetDirectMode +;EndP F_SetDirectMode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_CharacterDefinitions Far +Proc F_CharacterDefinitions Far LodsW LodsW @@ -688,11 +685,11 @@ Proc F_CharacterDefinitions Far Ret -EndP F_CharacterDefinitions +;EndP F_CharacterDefinitions ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseButtonPress Far ; Given CX, DX = coords +Proc MouseButtonPress Far ; Given CX, DX = coords ; Given AX = Object number ; DS:SI points to mouse obj Mov CX, 11Ch @@ -708,11 +705,11 @@ Proc MouseButtonPress Far ; Given CX, DX = coords Xor AX, AX Ret -EndP MouseButtonPress +;EndP MouseButtonPress ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseButtonRelease Far +Proc MouseButtonRelease Far Mov CX, 01Ch Xor DX, DX @@ -726,11 +723,11 @@ Proc MouseButtonRelease Far Ret -EndP MouseButtonRelease +;EndP MouseButtonRelease ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawButtonObject Far ; AX = object number +Proc F_DrawButtonObject Far ; AX = object number ; SI = object Mov [CS:MouseEventData+10], AX ; Store object number @@ -811,11 +808,11 @@ F_DrawButtonObject1: Ret -EndP F_DrawButtonObject +;EndP F_DrawButtonObject ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PreButtonObject Far +Proc F_PreButtonObject Far Add SI, 28 Xor AH, AH @@ -850,11 +847,11 @@ Proc F_PreButtonObject Far Ret -EndP F_PreButtonObject +;EndP F_PreButtonObject ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PostButtonObject Far +Proc F_PostButtonObject Far Mov SI, [BX] Push SI @@ -964,11 +961,11 @@ F_PostButtonObject6: ; Enter pressed Add BX, BX Jmp [CS:ButtonTypes+BX] -EndP F_PostButtonObject +;EndP F_PostButtonObject ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonType0 Far +Proc ButtonType0 Far Pop BX @@ -993,11 +990,11 @@ ButtonType0_4: Jmp ButtonEffect -EndP ButtonType0 +;EndP ButtonType0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonType1 Far +Proc ButtonType1 Far Pop BX @@ -1018,21 +1015,21 @@ ButtonType1_2: Jmp ButtonEffect -EndP ButtonType1 +;EndP ButtonType1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonEffect Far +Proc ButtonEffect Far Mov BX, [SI+16] Add BX, BX Jmp [CS:ButtonEffects+BX] -EndP ButtonEffect +;EndP ButtonEffect ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonType2 Far +Proc ButtonType2 Far Pop BX @@ -1074,21 +1071,21 @@ ButtonType2_2: Mov AX, 1 Ret -EndP ButtonType2 +;EndP ButtonType2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonEffect0 Far +Proc ButtonEffect0 Far Mov DX, [SI+18] Mov AX, 4 Ret -EndP ButtonEffect0 +;EndP ButtonEffect0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonEffect1 Far +Proc ButtonEffect1 Far Mov CX, [SI+20] Mov DX, [SI+18] @@ -1096,11 +1093,11 @@ Proc ButtonEffect1 Far Mov SI, 1 Ret -EndP ButtonEffect1 +;EndP ButtonEffect1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonEffect2 Far +Proc ButtonEffect2 Far Push DS Push SI @@ -1115,11 +1112,11 @@ Proc ButtonEffect2 Far Ret -EndP ButtonEffect2 +;EndP ButtonEffect2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonEffect3 Far +Proc ButtonEffect3 Far Mov BX, [SI+18] ; Var number Mov AX, [SI+20] @@ -1129,19 +1126,19 @@ Proc ButtonEffect3 Far Mov AX, 1 Ret -EndP ButtonEffect3 +;EndP ButtonEffect3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonEffect4 Far +Proc ButtonEffect4 Far Jmp DWord Ptr [SI+18] -EndP ButtonEffect4 +;EndP ButtonEffect4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonEffect5 Far +Proc ButtonEffect5 Far Mov AX, 1 Call DWord Ptr [SI+18] @@ -1153,19 +1150,19 @@ Proc ButtonEffect5 Far Mov AX, 1 Ret -EndP ButtonEffect5 +;EndP ButtonEffect5 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ButtonEffect6 Far +Proc ButtonEffect6 Far Jmp DWord Ptr [SI+24] -EndP ButtonEffect6 +;EndP ButtonEffect6 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetPanning ; DI = channel no. +Proc GetPanning ; DI = channel no. Push DS @@ -1179,11 +1176,11 @@ Proc GetPanning ; DI = channel no. Ret -EndP GetPanning +;EndP GetPanning ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetPEVariables +Proc GetPEVariables Push DS @@ -1196,11 +1193,11 @@ Proc GetPEVariables Pop DS Ret -EndP GetPEVariables +;EndP GetPEVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetScreenVariables +Proc GetScreenVariables Push DS @@ -1212,11 +1209,11 @@ Proc GetScreenVariables Pop DS Ret -EndP GetScreenVariables +;EndP GetScreenVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetScreenVariables +Proc SetScreenVariables Push DS Push AX @@ -1231,11 +1228,11 @@ Proc SetScreenVariables Pop DS Ret -EndP SetScreenVariables +;EndP SetScreenVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetPanning +Proc SetPanning Push DS @@ -1247,20 +1244,20 @@ Proc SetPanning Mov [DI], AL -IF NETWORKENABLED +%IF NETWORKENABLED Mov CX, 1 Mov DX, DI Call Network_SendSongDataInformation -ENDIF +%ENDIF Pop DS Ret -EndP SetPanning +;EndP SetPanning ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetPEVariables +Proc SetPEVariables Push DS @@ -1275,11 +1272,11 @@ Proc SetPEVariables Pop DS Ret -EndP SetPEVariables +;EndP SetPEVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetInstVariables +Proc GetInstVariables Push DS Push AX @@ -1324,12 +1321,12 @@ GetInstVariables2: Ret -EndP GetInstVariables - Assume DS:Nothing +;EndP GetInstVariables + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetSampleVariables +Proc GetSampleVariables Push DS Push AX @@ -1351,12 +1348,12 @@ GetSampleVariables1: Ret -EndP GetSampleVariables - Assume DS:Nothing +;EndP GetSampleVariables + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetMusicVariables +Proc GetMusicVariables Push DS @@ -1369,11 +1366,11 @@ Proc GetMusicVariables Ret -EndP GetMusicVariables +;EndP GetMusicVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetInstrumentVariables +Proc GetInstrumentVariables Push DS @@ -1385,30 +1382,30 @@ Proc GetInstrumentVariables Ret -EndP GetInstrumentVariables +;EndP GetInstrumentVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetDriverVariables +Proc GetDriverVariables Call Music_GetDriverVariable Mov DX, AX Ret -EndP GetDriverVariables +;EndP GetDriverVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetDriverVariables +Proc SetDriverVariables Call Music_SetDriverVariable Ret -EndP SetDriverVariables +;EndP SetDriverVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetLoadSampleVariables +Proc GetLoadSampleVariables Push DS Push SI @@ -1426,11 +1423,11 @@ Proc GetLoadSampleVariables Ret -EndP GetLoadSampleVariables +;EndP GetLoadSampleVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetInstVariables +Proc SetInstVariables Push DS Push BX @@ -1440,16 +1437,16 @@ Proc SetInstVariables Pop AX -IF FILTERENVELOPES +%IF FILTERENVELOPES Cmp DI, 3Ah JB SetInstVariables3 Cmp DI, 3Bh JA SetInstVariables3 Xor AL, 80h -ELSE +%ELSE And Word Ptr [BX+3Ah], 7F7Fh -ENDIF +%ENDIF SetInstVariables3: Mov [BX+DI], AL @@ -1467,12 +1464,12 @@ SetInstVariables1: Ret -EndP SetInstVariables - Assume DS:Nothing +;EndP SetInstVariables + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetSampleVariables +Proc SetSampleVariables Push DS Push BX @@ -1496,12 +1493,12 @@ SetSampleVariables1: Ret -EndP SetSampleVariables - Assume DS:Nothing +;EndP SetSampleVariables + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetMusicVariables +Proc SetMusicVariables Push DS Push AX @@ -1512,11 +1509,11 @@ Proc SetMusicVariables Pop AX Mov [DI], AL -IF NETWORKENABLED +%IF NETWORKENABLED Mov CX, 1 Mov DX, DI Call Network_SendSongDataInformation -ENDIF +%ENDIF Cmp DI, 31h JNE SetMusicVariables1 @@ -1537,11 +1534,11 @@ SetMusicVariablesEnd: Ret -EndP SetMusicVariables +;EndP SetMusicVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetInstrumentVariables +Proc SetInstrumentVariables Push DS Push AX @@ -1556,11 +1553,11 @@ Proc SetInstrumentVariables Ret -EndP SetInstrumentVariables +;EndP SetInstrumentVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetLoadSampleVariables +Proc SetLoadSampleVariables Push DS Push SI @@ -1577,11 +1574,11 @@ Proc SetLoadSampleVariables Ret -EndP SetLoadSampleVariables +;EndP SetLoadSampleVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MousePressThumbBar Far +Proc MousePressThumbBar Far Mov DX, CX Mov CX, 8010h @@ -1597,11 +1594,11 @@ Proc MousePressThumbBar Far Ret -EndP MousePressThumbBar +;EndP MousePressThumbBar ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseHeldThumbBar Far +Proc MouseHeldThumbBar Far Test BH, 8 JNZ MouseHeldThumbBar2 @@ -1624,11 +1621,11 @@ MouseHeldThumbBar2: Ret -EndP MouseHeldThumbBar +;EndP MouseHeldThumbBar ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawThumbBar Far +Proc F_DrawThumbBar Far Mov [CS:MouseEventData+10], AX ; Store object number @@ -1722,7 +1719,7 @@ F_DrawThumbBar2: Push CS Pop DS - Assume DS:Functions + ;Assume DS:Functions Mov SI, Offset MouseEventData Mov Word Ptr [SI+8], 102h Mov Word Ptr [SI+12], Offset MousePressThumbBar @@ -1730,12 +1727,12 @@ F_DrawThumbBar2: Ret -EndP F_DrawThumbBar - Assume DS:Nothing +;EndP F_DrawThumbBar + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawScalableThumbBar Far +Proc F_DrawScalableThumbBar Far Mov [CS:MouseEventData+10], AX ; Store object number @@ -1835,7 +1832,7 @@ F_DrawScalableThumbBar2: Push CS Pop DS - Assume DS:Functions + ;Assume DS:Functions Mov SI, Offset MouseEventData Mov Word Ptr [SI+8], 102h Mov Word Ptr [SI+12], Offset MousePressThumbBar @@ -1843,12 +1840,12 @@ F_DrawScalableThumbBar2: Ret -EndP F_DrawScalableThumbBar - Assume DS:Nothing +;EndP F_DrawScalableThumbBar + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc HiLightPanning +Proc HiLightPanning Mov AL, 80 Mul Byte Ptr [SI+3] @@ -1864,11 +1861,11 @@ Proc HiLightPanning Ret -EndP HiLightPanning +;EndP HiLightPanning ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PreThumbBar Far +Proc F_PreThumbBar Far Call S_GetDestination @@ -1962,11 +1959,11 @@ F_PreThumbBar3: Call S_HiLight Ret -EndP F_PreThumbBar +;EndP F_PreThumbBar ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PreScalableThumbBar Far +Proc F_PreScalableThumbBar Far Call S_GetDestination @@ -2066,11 +2063,11 @@ F_PreScalableThumbBar3: Call S_HiLight Ret -EndP F_PreScalableThumbBar +;EndP F_PreScalableThumbBar ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PostScalableThumbBar Far +Proc F_PostScalableThumbBar Far Cmp CX, 8010h JE F_PostScalableThumbBarMouse1 @@ -2118,11 +2115,11 @@ F_PostScalableThumbBarMouse3: Mov AX, 2 Ret -EndP F_PostScalableThumbBar +;EndP F_PostScalableThumbBar ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PostThumbBar Far +Proc F_PostThumbBar Far Mov SI, [BX] @@ -2436,11 +2433,11 @@ F_PostThumbBar31: Mov AX, 1 Ret -EndP F_PostThumbBar +;EndP F_PostThumbBar ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawInfoLine Far +Proc F_DrawInfoLine Far Push ES LodsW @@ -2493,17 +2490,17 @@ F_DrawInfoLine3: Pop ES Ret -EndP F_DrawInfoLine +;EndP F_DrawInfoLine ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ShowChannels Far +Proc F_ShowChannels Far Push DS Push CS Pop DS - Assume DS:Functions + ;Assume DS:Functions Mov DI, (20+15*80)*2 Mov CX, 32 @@ -2517,16 +2514,16 @@ Proc F_ShowChannels Far Call F_ShowChannel1 Pop DS - Assume DS:Nothing + ;Assume DS:Nothing Ret -EndP F_ShowChannels +;EndP F_ShowChannels ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ShowChannel1 +Proc F_ShowChannel1 - Assume DS:Functions + ;Assume DS:Functions F_ShowChannel1_1: Mov SI, Offset ChannelMsg @@ -2543,54 +2540,54 @@ F_ShowChannel1_2: Add DI, 140 Loop F_ShowChannel1_1 - Assume DS:Nothing + ;Assume DS:Nothing Ret -EndP F_ShowChannel1 +;EndP F_ShowChannel1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_RedrawScreen Far +Proc F_RedrawScreen Far Mov AX, 1 Ret -EndP F_RedrawScreen +;EndP F_RedrawScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Return0 Far ; ESC pressed on opening scrn +Proc F_Return0 Far ; ESC pressed on opening scrn Xor DX, DX Mov AX, 4 Ret -EndP F_Return0 +;EndP F_Return0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Return64 Far +Proc F_Return64 Far Mov DX, 64 Mov AX, 4 Ret -EndP F_Return64 +;EndP F_Return64 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Return192 Far +Proc F_Return192 Far Mov DX, 192 Mov AX, 4 Ret -EndP F_Return192 +;EndP F_Return192 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PanningKeys +Proc PanningKeys Push AX Mov AX, DX @@ -2655,11 +2652,11 @@ PanningKeysSpace: Jmp PanningKeys2 -EndP PanningKeys +;EndP PanningKeys ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FilterKeys +Proc FilterKeys Push DI Mov DI, [SI+10] @@ -2684,11 +2681,11 @@ FilterKeysEnd: Pop DI Ret -EndP FilterKeys +;EndP FilterKeys ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DrawPanning +Proc DrawPanning Push DS Push SI @@ -2718,11 +2715,11 @@ DrawPanning1: Pop DS Ret -EndP DrawPanning +;EndP DrawPanning ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DrawMIDIChannel +Proc DrawMIDIChannel Mov AX, [SI+0Ah] Cmp AX, 3Fh @@ -2770,21 +2767,21 @@ DrawMIDIChannel3: DrawMIDIChannel2: Ret -EndP DrawMIDIChannel +;EndP DrawMIDIChannel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Return1 Far +Proc F_Return1 Far Mov DX, 1 Mov AX, 4 Ret -EndP F_Return1 +;EndP F_Return1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetSIOInstSegment +Proc GetSIOInstSegment Mov SI, Inst Mov DS, SI @@ -2792,11 +2789,11 @@ Proc GetSIOInstSegment Ret -EndP GetSIOInstSegment +;EndP GetSIOInstSegment ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetSIODiskSegment +Proc GetSIODiskSegment Mov SI, Disk Mov DS, SI @@ -2804,11 +2801,11 @@ Proc GetSIODiskSegment Ret -EndP GetSIODiskSegment +;EndP GetSIODiskSegment ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetLoadSampleString ; Returns DS:SI +Proc GetLoadSampleString ; Returns DS:SI Call D_GetLoadSampleVars ; Gets SI = currentsample offset ; DS = DiskDataArea @@ -2816,11 +2813,11 @@ Proc GetLoadSampleString ; Returns DS:SI Ret -EndP GetLoadSampleString +;EndP GetLoadSampleString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetMusicSegmentString +Proc GetMusicSegmentString Call Music_GetSongSegment Mov DS, AX @@ -2829,24 +2826,24 @@ Proc GetMusicSegmentString Ret -EndP GetMusicSegmentString +;EndP GetMusicSegmentString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetMusicSegmentString +Proc SetMusicSegmentString -IF NETWORKENABLED +%IF NETWORKENABLED Mov CX, 26 Mov DX, 4 Call Network_SendSongDataInformation -ENDIF +%ENDIF Ret -EndP SetMusicSegmentString +;EndP SetMusicSegmentString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetPatternSegmentString +Proc GetPatternSegmentString Push CS Pop DS @@ -2855,11 +2852,11 @@ Proc GetPatternSegmentString Ret -EndP GetPatternSegmentString +;EndP GetPatternSegmentString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetSampleString +Proc GetSampleString Call I_GetSampleOffset Mov SI, BX @@ -2867,21 +2864,21 @@ Proc GetSampleString Ret -EndP GetSampleString +;EndP GetSampleString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetSampleString +Proc SetSampleString NetworkSendSample Ret -EndP SetSampleString +;EndP SetSampleString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetInstrumentString +Proc GetInstrumentString Call I_GetInstrumentOffset Mov SI, BX @@ -2889,29 +2886,29 @@ Proc GetInstrumentString Ret -EndP GetInstrumentString +;EndP GetInstrumentString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetInstrumentString +Proc SetInstrumentString NetworkSendInstrument Ret -EndP SetInstrumentString +;EndP SetInstrumentString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� TopMIDIMacro DW 80h -Proc GetMIDIString ; CX = select2 +Proc GetMIDIString ; CX = select2 Push Music Pop DS - Assume DS:Music + ;Assume DS:Music Mov DS, MIDIDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov SI, CX Test CX, CX @@ -2925,11 +2922,11 @@ Proc GetMIDIString ; CX = select2 GetMIDIString1: Ret -EndP GetMIDIString +;EndP GetMIDIString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseSelectString Far +Proc MouseSelectString Far Mov CX, 8010h Xor DX, DX @@ -2939,13 +2936,13 @@ Proc MouseSelectString Far Ret -EndP MouseSelectString +;EndP MouseSelectString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� PostStringFunction DW 0 -Proc F_GetStringInputOffset +Proc F_GetStringInputOffset Mov BX, [SI+4] Mov CX, [SI+6] @@ -2970,11 +2967,11 @@ F_GetStringInputOffset1: Mov SI, CX Ret -EndP F_GetStringInputOffset +;EndP F_GetStringInputOffset ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawStringInput Far +Proc F_DrawStringInput Far Mov [CS:MouseEventData+10], AX ; Store object number @@ -3031,7 +3028,7 @@ F_DrawStringInput2: Push CS Pop DS - Assume DS:Functions + ;Assume DS:Functions Mov SI, Offset MouseEventData Mov [MouseEventData+8], 102h @@ -3041,12 +3038,12 @@ F_DrawStringInput2: Ret -EndP F_DrawStringInput - Assume DS:Nothing +;EndP F_DrawStringInput + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PreStringInput Far +Proc F_PreStringInput Far Mov AL, 80 Mul Byte Ptr [SI+3] @@ -3072,11 +3069,11 @@ F_PreStringInput2: StosB Ret -EndP F_PreStringInput +;EndP F_PreStringInput ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PostStringInput Far +Proc F_PostStringInput Far Test CL, CL JZ F_PostStringInput9 @@ -3208,11 +3205,11 @@ F_PostStringInput9: Xor AX, AX Ret -EndP F_PostStringInput +;EndP F_PostStringInput ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_GotoEmptyList Far +Proc F_GotoEmptyList Far Mov AX, 5 Mov SI, 1 @@ -3222,11 +3219,11 @@ Proc F_GotoEmptyList Far Ret -EndP F_GotoEmptyList +;EndP F_GotoEmptyList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetSampleToggle +Proc GetSampleToggle Push DS @@ -3276,11 +3273,11 @@ GetSampleToggle1: Pop DS Ret -EndP GetSampleToggle +;EndP GetSampleToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetInstrumentToggle +Proc GetInstrumentToggle Push DS @@ -3328,11 +3325,11 @@ GetInstrumentToggle2: Pop DS Ret -EndP GetInstrumentToggle +;EndP GetInstrumentToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetLoadSampleToggle +Proc GetLoadSampleToggle Push DS Push SI @@ -3384,11 +3381,11 @@ GetLoadSampleToggle1: Pop DS Ret -EndP GetLoadSampleToggle +;EndP GetLoadSampleToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetPatternSegmentToggle +Proc GetPatternSegmentToggle Push DS @@ -3405,11 +3402,11 @@ GetPatternSegmentToggle1: Pop DS Ret -EndP GetPatternSegmentToggle +;EndP GetPatternSegmentToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetMusicSegmentToggle +Proc GetMusicSegmentToggle Push DS @@ -3426,11 +3423,11 @@ GetMusicSegmentToggle1: Pop DS Ret -EndP GetMusicSegmentToggle +;EndP GetMusicSegmentToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SampleToggle +Proc SampleToggle Push DS @@ -3511,17 +3508,17 @@ SampleToggleEnd: Pop DS Ret -EndP SampleToggle +;EndP SampleToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc InstrumentToggle +Proc InstrumentToggle Push DS Call I_GetInstrumentOffset -IF FILTERENVELOPES +%IF FILTERENVELOPES Cmp DI, 1D4h JNE InstrumentToggle2 Cmp DL, 1 @@ -3536,9 +3533,9 @@ IF FILTERENVELOPES And Byte Ptr [BX+DI], 7Fh InstrumentToggle2: -ELSE +%ELSE And Byte Ptr [BX+1D4h], 7Fh -ENDIF +%ENDIF Xor [BX+DI], DL InstrumentToggle3: @@ -3549,11 +3546,11 @@ InstrumentToggle3: Pop DS Ret -EndP InstrumentToggle +;EndP InstrumentToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc LoadSampleToggle +Proc LoadSampleToggle Push DS Push SI @@ -3625,16 +3622,16 @@ LoadSampleToggle1: Pop DS Ret -EndP LoadSampleToggle +;EndP LoadSampleToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PatternSegmentToggle +Proc PatternSegmentToggle Push DS Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Xor [DS:DI], DL @@ -3652,12 +3649,12 @@ PatternSegmentToggle1: Pop DS Ret -EndP PatternSegmentToggle - Assume DS:Nothing +;EndP PatternSegmentToggle + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MusicSegmentToggle +Proc MusicSegmentToggle Push DS Call Music_GetSongSegment @@ -3665,20 +3662,20 @@ Proc MusicSegmentToggle Xor [DS:DI], DL -IF NETWORKENABLED +%IF NETWORKENABLED Mov CX, 1 Mov DX, DI Call Network_SendSongDataInformation -ENDIF +%ENDIF Pop DS Ret -EndP MusicSegmentToggle +;EndP MusicSegmentToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseToggle Far +Proc MouseToggle Far Mov CX, 8010h Mov DX, ' ' @@ -3688,11 +3685,11 @@ Proc MouseToggle Far Ret -EndP MouseToggle +;EndP MouseToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawToggle Far +Proc F_DrawToggle Far Mov [CS:MouseEventData+10], AX ; Store object number @@ -3741,7 +3738,7 @@ F_DrawToggle2: Push CS Pop DS - Assume DS:Functions + ;Assume DS:Functions Mov SI, Offset MouseEventData Mov [MouseEventData+8], 102h @@ -3751,11 +3748,11 @@ F_DrawToggle2: Ret -EndP F_DrawToggle +;EndP F_DrawToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PreToggle Far +Proc F_PreToggle Far Call S_GetDestination Mov BX, [SI+4] ; Segment no. @@ -3780,11 +3777,11 @@ Proc F_PreToggle Far Ret -EndP F_PreToggle +;EndP F_PreToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PostToggle Far +Proc F_PostToggle Far Mov SI, [BX] @@ -3841,11 +3838,11 @@ F_PostToggle6: Mov AX, 1 Ret -EndP F_PostToggle +;EndP F_PostToggle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetInstrument3Num +Proc GetInstrument3Num Push DS @@ -3857,11 +3854,11 @@ Proc GetInstrument3Num Pop DS Ret -EndP GetInstrument3Num +;EndP GetInstrument3Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetInstrument3Num ; AX = value. +Proc SetInstrument3Num ; AX = value. Push DS Push SI @@ -3869,11 +3866,11 @@ Proc SetInstrument3Num ; AX = value. Mov AX, Inst Mov DS, AX - Assume DS:Inst + ;Assume DS:Inst Mov CX, MaxNode Dec CL - Assume DS:Nothing + ;Assume DS:Nothing Call I_GetInstrumentOffset @@ -3922,11 +3919,11 @@ SetInstrument3Num2: SetInstrument3Num3: RetN -EndP SetInstrument3Num +;EndP SetInstrument3Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetSample5Num +Proc GetSample5Num Push DS @@ -3937,11 +3934,11 @@ Proc GetSample5Num Pop DS Ret -EndP GetSample5Num +;EndP GetSample5Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetLoadSample5Num +Proc GetLoadSample5Num Push DS Push SI @@ -3956,11 +3953,11 @@ Proc GetLoadSample5Num Ret -EndP GetLoadSample5Num +;EndP GetLoadSample5Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetInst5Num +Proc GetInst5Num Push DS Mov AX, Inst @@ -3971,11 +3968,11 @@ Proc GetInst5Num Pop DS Ret -EndP GetInst5Num +;EndP GetInst5Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetSample5Num ; AX = value. +Proc SetSample5Num ; AX = value. Push DS Push AX @@ -3991,11 +3988,11 @@ Proc SetSample5Num ; AX = value. Ret -EndP SetSample5Num +;EndP SetSample5Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetLoadSample5Num ; AX = value. +Proc SetLoadSample5Num ; AX = value. Push DS Push SI @@ -4009,11 +4006,11 @@ Proc SetLoadSample5Num ; AX = value. Pop DS Ret -EndP SetLoadSample5Num +;EndP SetLoadSample5Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetInst5Num +Proc SetInst5Num Push DS @@ -4025,11 +4022,11 @@ Proc SetInst5Num Ret -EndP SetInst5Num +;EndP SetInst5Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseNumberDecrement Far +Proc MouseNumberDecrement Far Mov CX, 8010h Mov DX, '-' @@ -4039,11 +4036,11 @@ Proc MouseNumberDecrement Far Ret -EndP MouseNumberDecrement +;EndP MouseNumberDecrement ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseNumberIncrement Far +Proc MouseNumberIncrement Far Mov CX, 8010h Mov DX, '+' @@ -4053,11 +4050,11 @@ Proc MouseNumberIncrement Far Ret -EndP MouseNumberIncrement +;EndP MouseNumberIncrement ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Draw3Num Far +Proc F_Draw3Num Far Mov [CS:MouseEventData+10], AX ; Store object number @@ -4108,11 +4105,11 @@ Proc F_Draw3Num Far Ret -EndP F_Draw3Num +;EndP F_Draw3Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Pre3Num Far +Proc F_Pre3Num Far Mov AL, 80 Mul Byte Ptr [SI+3] @@ -4128,11 +4125,11 @@ Proc F_Pre3Num Far Ret -EndP F_Pre3Num +;EndP F_Pre3Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Post3Num Far +Proc F_Post3Num Far Mov SI, [BX] Test CL, CL @@ -4304,11 +4301,11 @@ F_Post3Num21: RetN -EndP F_Post3Num +;EndP F_Post3Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ConvEAX2Num Far +Proc F_ConvEAX2Num Far Push EAX ; CH = colour Push EBX ; DX:AX = number @@ -4343,11 +4340,11 @@ F_ConvEAX2Num2: Ret -EndP F_ConvEAX2Num +;EndP F_ConvEAX2Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Draw5Num Far +Proc F_Draw5Num Far Mov [CS:MouseEventData+10], AX @@ -4398,11 +4395,11 @@ Proc F_Draw5Num Far Ret -EndP F_Draw5Num +;EndP F_Draw5Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Pre5Num Far +Proc F_Pre5Num Far Mov AL, 80 Mul Byte Ptr [SI+3] @@ -4418,11 +4415,11 @@ Proc F_Pre5Num Far Ret -EndP F_Pre5Num +;EndP F_Pre5Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Post5Num Far +Proc F_Post5Num Far Mov SI, [BX] Test CL, CL @@ -4587,11 +4584,11 @@ F_Post5Num17: F_Post5Num21: RetN -EndP F_Post5Num +;EndP F_Post5Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawHeader Far +Proc F_DrawHeader Far ; Call MouseClearEvents @@ -4650,11 +4647,11 @@ F_DrawHeader1: F_DrawHeader2: Ret -EndP F_DrawHeader +;EndP F_DrawHeader ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawSMCChannels Far +Proc F_DrawSMCChannels Far ; Call MouseClearEvents @@ -4693,11 +4690,11 @@ F_DrawSMCChannels1: Ret -EndP F_DrawSMCChannels +;EndP F_DrawSMCChannels ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ConfigButtonSetup Far +Proc F_ConfigButtonSetup Far Call Music_GetSongSegment Mov DS, AX ; OK... now check for @@ -4761,12 +4758,12 @@ F_ConfigButtonSetup3: Ret -EndP F_ConfigButtonSetup +;EndP F_ConfigButtonSetup ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF NETWORKENABLED -Proc F_SendSongFlags +%IF NETWORKENABLED +Proc F_SendSongFlags Push CX Push DX @@ -4780,19 +4777,19 @@ Proc F_SendSongFlags Ret -EndP F_SendSongFlags +;EndP F_SendSongFlags SendSongFlags EQU Call F_SendSongFlags -ELSE +%ELSE SendSongFlags EQU ; -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SetControlSample Far +Proc F_SetControlSample Far Call Music_GetSongSegment Mov DS, AX @@ -4803,11 +4800,11 @@ Proc F_SetControlSample Far Ret -EndP F_SetControlSample +;EndP F_SetControlSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SetControlInstrument Far +Proc F_SetControlInstrument Far Call Music_GetSongSegment Mov DS, AX @@ -4866,7 +4863,7 @@ F_SetControlInstrument4: Loop F_SetControlInstrument4 F_SetControlInstrument2: -IF NETWORKENABLED +%IF NETWORKENABLED Call Network_GetSendQueue JZ F_SetControlInstrument5 @@ -4877,7 +4874,7 @@ IF NETWORKENABLED F_SetControlInstrument5: Call Network_FinishedSendQueue -ENDIF +%ENDIF Inc DX Cmp DX, 99 JBE F_SetControlInstrument1 @@ -4886,11 +4883,11 @@ F_SetControlInstrument3: Ret -EndP F_SetControlInstrument +;EndP F_SetControlInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SetStereo Far +Proc F_SetStereo Far Call Music_GetSongSegment Mov DS, AX @@ -4903,11 +4900,11 @@ Proc F_SetStereo Far Ret -EndP F_SetStereo +;EndP F_SetStereo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SetMono Far +Proc F_SetMono Far Call Music_GetSongSegment Mov DS, AX @@ -4920,11 +4917,11 @@ Proc F_SetMono Far Ret -EndP F_SetMono +;EndP F_SetMono ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SetLinear Far +Proc F_SetLinear Far Call Music_GetSongSegment Mov DS, AX @@ -4935,11 +4932,11 @@ Proc F_SetLinear Far Ret -EndP F_SetLinear +;EndP F_SetLinear ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SetAmiga Far +Proc F_SetAmiga Far Call Music_GetSongSegment Mov DS, AX @@ -4950,20 +4947,20 @@ Proc F_SetAmiga Far Ret -EndP F_SetAmiga +;EndP F_SetAmiga ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Reset5NumInputPos Far +Proc F_Reset5NumInputPos Far Mov CS:NumberPos, 0 Ret -EndP F_Reset5NumInputPos +;EndP F_Reset5NumInputPos ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_NewSong Far +Proc F_NewSong Far EnsureNoNetwork @@ -5036,11 +5033,11 @@ F_NewSongEnd: Mov AX, 1 Ret -EndP F_NewSong +;EndP F_NewSong ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_MainMenu Far +Proc F_MainMenu Far Call S_SaveScreen @@ -5053,62 +5050,62 @@ Proc F_MainMenu Far Mov AX, 1 Ret -EndP F_MainMenu +;EndP F_MainMenu ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ViewPattern Far +Proc F_ViewPattern Far Call MouseRestoreEvents Add SP, 20 Jmp Glbl_F2_2 -EndP F_ViewPattern +;EndP F_ViewPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ViewVariables Far +Proc F_ViewVariables Far Call MouseRestoreEvents Add SP, 20 Jmp Glbl_F12 -EndP F_ViewVariables +;EndP F_ViewVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ViewOrderPan Far +Proc F_ViewOrderPan Far Call MouseRestoreEvents Add SP, 20 Jmp Glbl_F11_2 -EndP F_ViewOrderPan +;EndP F_ViewOrderPan ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_MessageEditor Far +Proc F_MessageEditor Far Call MouseRestoreEvents Add SP, 20 Jmp Glbl_Shift_F9 -EndP F_MessageEditor +;EndP F_MessageEditor ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Help Far +Proc F_Help Far Call S_RestoreScreen Call MouseRestoreEvents Add SP, 20 Jmp H_Help -EndP F_Help +;EndP F_Help ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PlaybackMenu Far +Proc F_PlaybackMenu Far Mov CX, 0FFFFh Mov DI, Offset O1_PlaybackMenu @@ -5118,11 +5115,11 @@ Proc F_PlaybackMenu Far Mov AX, 1 Ret -EndP F_PlaybackMenu +;EndP F_PlaybackMenu ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_InfoPage Far +Proc F_InfoPage Far Call MouseRestoreEvents Call MouseRestoreEvents @@ -5130,77 +5127,77 @@ Proc F_InfoPage Far Add SP, 48 Jmp Glbl_F5 -EndP F_InfoPage +;EndP F_InfoPage ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PlaySong Far +Proc F_PlaySong Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_Ctrl_F5 -EndP F_PlaySong +;EndP F_PlaySong ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PlayPattern Far +Proc F_PlayPattern Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_F6 -EndP F_PlayPattern +;EndP F_PlayPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PlayOrder Far +Proc F_PlayOrder Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_Shift_F6 -EndP F_PlayOrder +;EndP F_PlayOrder ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PlayMark Far +Proc F_PlayMark Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp PE_F7 -EndP F_PlayMark +;EndP F_PlayMark ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_Stop Far +Proc F_Stop Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Music_Stop -EndP F_Stop +;EndP F_Stop ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ReinitSoundCard Far +Proc F_ReinitSoundCard Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Music_ReinitSoundCard -EndP F_ReinitSoundCard +;EndP F_ReinitSoundCard ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_CalculateLength Far +Proc F_CalculateLength Far Call S_RestoreScreen Call MouseRestoreEvents @@ -5208,22 +5205,22 @@ Proc F_CalculateLength Far Add SP, 48 Jmp Music_TimeSong -EndP F_CalculateLEngth +;EndP F_CalculateLEngth ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DriverScreen Far +Proc F_DriverScreen Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_DriverScreen -EndP F_DriverScreen +;EndP F_DriverScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SampleMenu Far +Proc F_SampleMenu Far Mov CX, 0FFFFh Mov DI, Offset O1_SampleMenu @@ -5233,11 +5230,11 @@ Proc F_SampleMenu Far Mov AX, 1 Ret -EndP F_SampleMenu +;EndP F_SampleMenu ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_InstrumentMenu Far +Proc F_InstrumentMenu Far Mov CX, 0FFFFh Mov DI, Offset O1_InstrumentMenu @@ -5247,66 +5244,66 @@ Proc F_InstrumentMenu Far Mov AX, 1 Ret -EndP F_InstrumentMenu +;EndP F_InstrumentMenu ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SampleList Far +Proc F_SampleList Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_F3 -EndP F_SampleList +;EndP F_SampleList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_InstrumentList Far +Proc F_InstrumentList Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_F4 -EndP F_InstrumentList +;EndP F_InstrumentList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_InstrumentLibrary Far +Proc F_InstrumentLibrary Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_Ctrl_F4 -EndP F_InstrumentLibrary +;EndP F_InstrumentLibrary ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ReloadGravis Far +Proc F_ReloadGravis Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Music_SoundCardLoadAllSamples -EndP F_ReloadGravis +;EndP F_ReloadGravis ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_SampleLibrary Far +Proc F_SampleLibrary Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_Ctrl_F3 -EndP F_SampleLibrary +;EndP F_SampleLibrary ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_FileMenu Far +Proc F_FileMenu Far Mov CX, 0FFFFh Mov DI, Offset O1_FileMenu @@ -5316,23 +5313,23 @@ Proc F_FileMenu Far Mov AX, 1 Ret -EndP F_FileMenu +;EndP F_FileMenu ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_FileLoad Far +Proc F_FileLoad Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_F9 -EndP F_FileLoad +;EndP F_FileLoad ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_FileNew Far +Proc F_FileNew Far Call MouseRestoreEvents Call MouseRestoreEvents @@ -5340,11 +5337,11 @@ Proc F_FileNew Far Add SP, 48 Jmp F_NewSong -EndP F_FileNew +;EndP F_FileNew ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_FileSaveCurrent Far +Proc F_FileSaveCurrent Far Call MouseRestoreEvents Call MouseRestoreEvents @@ -5352,22 +5349,22 @@ Proc F_FileSaveCurrent Far Add SP, 48 Jmp D_SaveSong -EndP F_FileSaveCurrent +;EndP F_FileSaveCurrent ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_FileSaveAs Far +Proc F_FileSaveAs Far Call MouseRestoreEvents Call MouseRestoreEvents Add SP, 48 Jmp Glbl_F10 -EndP F_FileSaveAs +;EndP F_FileSaveAs ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_FileDOSShell Far +Proc F_FileDOSShell Far Call MouseRestoreEvents Call MouseRestoreEvents @@ -5375,11 +5372,11 @@ Proc F_FileDOSShell Far Add SP, 48 Jmp DOSShell -EndP F_FileDOSShell +;EndP F_FileDOSShell ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_FileQuit Far +Proc F_FileQuit Far Call MouseRestoreEvents Call MouseRestoreEvents @@ -5387,11 +5384,11 @@ Proc F_FileQuit Far Add SP, 48 Jmp Quit -EndP F_FileQuit +;EndP F_FileQuit ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF MEMORYDEBUG +%IF MEMORYDEBUG DebugOffset DW 0 DebugSegment DW 0 @@ -5465,11 +5462,11 @@ DebugDX DW 0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DrawDebug Far +Proc F_DrawDebug Far Push CS Pop DS - Assume DS:Functions + ;Assume DS:Functions Call S_GetDestination Mov SI, Offset SegmentMsg @@ -5522,7 +5519,7 @@ F_DrawDebug1: ; Now to shove debug stuff. Mov SI, DebugOffset Mov DS, DebugSegment - Assume DS:Nothing + ;Assume DS:Nothing Mov DI, (10+15*80)*2 Mov DX, 30 @@ -5591,12 +5588,12 @@ F_DrawDebug5: Mov AX, 1 Ret -EndP F_DrawDebug - Assume DS:Nothing +;EndP F_DrawDebug + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_PostDebug Far +Proc F_PostDebug Far Mov CS:DebugCX, CX Mov CS:DebugDX, DX @@ -5604,78 +5601,78 @@ Proc F_PostDebug Far Xor AX, AX Ret -EndP F_PostDebug +;EndP F_PostDebug ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DebugUp Far +Proc F_DebugUp Far Sub CS:DebugOffset, 16 Mov AX, 1 Ret -EndP F_DebugUp +;EndP F_DebugUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DebugDown Far +Proc F_DebugDown Far Add CS:DebugOffset, 16 Mov AX, 1 Ret -EndP F_DebugDown +;EndP F_DebugDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DebugPgUp Far +Proc F_DebugPgUp Far Sub CS:DebugOffset, 16*30 Mov AX, 1 Ret -EndP F_DebugPgUp +;EndP F_DebugPgUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DebugPgDn Far +Proc F_DebugPgDn Far Add CS:DebugOffset, 16*30 Mov AX, 1 Ret -EndP F_DebugPgDn +;EndP F_DebugPgDn ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_DebugStringInput Far +Proc F_DebugStringInput Far Mov AX, Disk Mov DS, AX - Assume DS:Disk + ;Assume DS:Disk Mov DX, DiskDataArea Xor BP, BP ; BP = ':' count. Mov AX, Music Mov DS, AX - Assume DS:Music + ;Assume DS:Music Mov BX, SongDataArea Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov SI, PatternDataArea Push CS Push CS Pop DS Pop ES - Assume DS:Functions ; ES = functions also. + ;Assume DS:Functions ; ES = functions also. Mov DebugSongDataSegment, BX Mov DebugDiskDataSegment, DX @@ -5833,17 +5830,17 @@ F_DebugStringInput19: Mov AX, 1 Ret -EndP F_DebugStringInput +;EndP F_DebugStringInput -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_ShowMIDIZxxInput Far +Proc F_ShowMIDIZxxInput Far Push CS Pop DS - Assume DS:Functions + ;Assume DS:Functions Mov SI, Offset ZxxString Mov AX, TopMIDIMacro @@ -5867,12 +5864,12 @@ F_ShowMIDIZxxInput2: Ret -EndP F_ShowMIDIZxxInput - Assume DS:Nothing +;EndP F_ShowMIDIZxxInput + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_MIDI_Up Far +Proc F_MIDI_Up Far Cmp CS:TopMIDIMacro, 80h JBE F_MIDI_Up1 @@ -5887,11 +5884,11 @@ F_MIDI_Up2: Mov AX, 1 Ret -EndP F_MIDI_Up +;EndP F_MIDI_Up ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_MIDI_Down Far +Proc F_MIDI_Down Far Cmp CS:TopMIDIMacro, 0F9h JAE F_MIDI_Down1 @@ -5902,11 +5899,11 @@ F_MIDI_Down1: Mov AX, 1 Ret -EndP F_MIDI_Down +;EndP F_MIDI_Down ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_MIDI_PgUp Far +Proc F_MIDI_PgUp Far Cmp Word Ptr [ES:DI], 33 JBE F_MIDI_PgUp1 @@ -5920,11 +5917,11 @@ F_MIDI_PgUp1: Mov AX, 1 Ret -EndP F_MIDI_PgUp +;EndP F_MIDI_PgUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc F_MIDI_PgDn Far +Proc F_MIDI_PgDn Far Cmp Word Ptr [ES:DI], 33 JBE F_MIDI_PgDn1 @@ -5939,7 +5936,7 @@ F_MIDI_PgDn1: Mov AX, 1 Ret -EndP F_MIDI_PgDn +;EndP F_MIDI_PgDn ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_four.s b/it_four.s index f45d272..b1d7651 100644 --- a/it_four.s +++ b/it_four.s @@ -2,13 +2,9 @@ ;� Fast Fourier Transform Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386P - .387 +%include "switch.inc" -include switch.inc - -IF SPECTRUMANALYSER +%IF SPECTRUMANALYSER ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � @@ -19,27 +15,27 @@ EndS Segment DiskData PARA Public 'Data' EndS - Extrn O1_FourierDisplay:Far + extern O1_FourierDisplay:Far - Extrn M_Object1List:Far + extern M_Object1List:Far - Extrn Music_GetWaveForm:Far + extern Music_GetWaveForm:Far - Extrn S_InitScreen:Far - Extrn S_SetDirectMode:Far + extern S_InitScreen:Far + extern S_SetDirectMode:Far Global MouseUpdateEnable:Far, MouseUpdateDisable:Far - Extrn VESA_Detect:Far - Extrn VESA_SetMode:Far - Extrn VESA_SetBlock:Far - Extrn InitMouse:Far, UnInitMouse:Far - Extrn S_DefineSmallNumbers:Far + extern VESA_Detect:Far + extern VESA_SetMode:Far + extern VESA_SetBlock:Far + extern InitMouse:Far, UnInitMouse:Far + extern S_DefineSmallNumbers:Far ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Infopage BYTE Public 'Code' USE16 - Assume CS:Infopage, DS:Nothing, ES:Nothing + ;Assume CS:Infopage, DS:Nothing, ES:Nothing ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -79,7 +75,7 @@ Fourier_CreateTable2: Ret -EndP Fourier_CreateTable +;EndP Fourier_CreateTable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -226,7 +222,7 @@ Fourier_CalculateMagnitudes1: ; Could be interleaved, but speed isn't Ret -EndP Fourier_Transform +;EndP Fourier_Transform ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -241,7 +237,7 @@ Public Fourier_ChangePalette Mov AX, 1 Ret -EndP Fourier_ChangePalette +;EndP Fourier_ChangePalette ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -366,7 +362,7 @@ Fourier_PaletteB5: Ret -EndP Fourier_SetPalette +;EndP Fourier_SetPalette ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -421,7 +417,7 @@ Fourier_End: Ret -EndP Fourier_Start +;EndP Fourier_Start ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -430,7 +426,7 @@ Public Fourier_PreDrawScreen Ret -EndP Fourier_PreDrawScreen +;EndP Fourier_PreDrawScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -571,7 +567,7 @@ Fourier_DrawBars4: Fourier_DrawScreen1: Ret -EndP Fourier_DrawScreen +;EndP Fourier_DrawScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -581,7 +577,7 @@ Public Fourier_IdleList Mov AX, 1 Ret -EndP Fourier_IdleList +;EndP Fourier_IdleList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -599,14 +595,14 @@ Fourier_PostFunction2: Mov AX, 4 Ret -EndP Fourier_PostFunction +;EndP Fourier_PostFunction ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� EndS -ENDIF +%ENDIF End diff --git a/it_g.s b/it_g.s index 197c205..d32a8a9 100644 --- a/it_g.s +++ b/it_g.s @@ -2,95 +2,93 @@ ;� Global Key Handler � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - -include switch.inc -include network.inc +%include "switch.inc" +%include "network.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Segment Pattern BYTE Public 'Code' - Extrn LastInstrument:Byte - Extrn Order:Word - Extrn MaxRow:Word - Extrn NumberOfRows:Word - Extrn PatternNumber:Word + extern LastInstrument:Byte + extern Order:Word + extern MaxRow:Word + extern NumberOfRows:Word + extern PatternNumber:Word EndS Segment Inst BYTE Public 'Code' - Extrn SampleNumber:Byte - Extrn InstrumentScreen:Word + extern SampleNumber:Byte + extern InstrumentScreen:Word EndS Segment Object1 BYTE Public 'Data' EndS - Extrn D_InitLoadModule:Far - Extrn D_InitLoadSamples:Far - Extrn D_InitLoadInstruments:Far - Extrn Display_SelectDisplayList:Far + extern D_InitLoadModule:Far + extern D_InitLoadSamples:Far + extern D_InitLoadInstruments:Far + extern Display_SelectDisplayList:Far - Extrn M_Object1List:Far + extern M_Object1List:Far - Extrn I_ClearTables:Far + extern I_ClearTables:Far - Extrn Music_GetInstrumentMode:Far - Extrn Music_GetPlayMode:Far - Extrn Music_PlayPattern:Far - Extrn Music_PlaySong:Far - Extrn Music_Stop:Far - Extrn Music_ToggleChannel:Far - Extrn Music_GetSlaveChannelInformationTable:Far - Extrn Music_IncreaseSpeed:Far - Extrn Music_DecreaseSpeed:Far - Extrn Music_IncreaseVolume:Far - Extrn Music_DecreaseVolume:Far - Extrn Music_GetSongSegment:Far - Extrn Music_GetDriverScreen:Far + extern Music_GetInstrumentMode:Far + extern Music_GetPlayMode:Far + extern Music_PlayPattern:Far + extern Music_PlaySong:Far + extern Music_Stop:Far + extern Music_ToggleChannel:Far + extern Music_GetSlaveChannelInformationTable:Far + extern Music_IncreaseSpeed:Far + extern Music_DecreaseSpeed:Far + extern Music_IncreaseVolume:Far + extern Music_DecreaseVolume:Far + extern Music_GetSongSegment:Far + extern Music_GetDriverScreen:Far - Extrn SetInfoLine:Far + extern SetInfoLine:Far - Extrn PE_GetCurrentPattern:Far - Extrn PE_SetPatternModified:far + extern PE_GetCurrentPattern:Far + extern PE_SetPatternModified:far - Extrn O1_InstrumentListGeneral:Far - Extrn O1_InstrumentListVolume:Far - Extrn O1_InstrumentListPanning:Far - Extrn O1_InstrumentListPitch:Far + extern O1_InstrumentListGeneral:Far + extern O1_InstrumentListVolume:Far + extern O1_InstrumentListPanning:Far + extern O1_InstrumentListPitch:Far - Extrn O1_KeyboardList:Far - Extrn O1_LoadSampleList:Far - Extrn O1_OrderPanningList:Far - Extrn O1_PatternEditList:Far - Extrn O1_PEConfigList:Far - Extrn O1_SampleList:Far - Extrn O1_LoadModuleList:Far - Extrn O1_ViewInstrumentLibrary:Far - Extrn O1_SaveModuleList:Far - Extrn O1_LoadInstrumentList:Far - Extrn O1_MessageList:Far - Extrn O1_OrderVolumeList:Far - Extrn O1_DisplayList:Far - Extrn I_DrawWaveForm:Far - Extrn S_DefineSmallNumbers:Far - Extrn S_SaveScreen:Far, S_RestoreScreen:Far - Extrn RestoreMouse:Far, RestoreMouseGraphics:Far - Extrn D_ClearFileSpecifier:Far - Extrn O1_ConfigureITList:Far - Extrn O1_ViewSampleLibrary:Far - Extrn O1_ConfigurePaletteList:Far - Extrn O1_MIDIScreen:Far - Extrn O1_TimerList:Far - Extrn I_MapEnvelope:Far - Extrn NewCharacterSet:Far - Extrn S_GetDestination:Far - Extrn S_DefineHiASCII:Far + extern O1_KeyboardList:Far + extern O1_LoadSampleList:Far + extern O1_OrderPanningList:Far + extern O1_PatternEditList:Far + extern O1_PEConfigList:Far + extern O1_SampleList:Far + extern O1_LoadModuleList:Far + extern O1_ViewInstrumentLibrary:Far + extern O1_SaveModuleList:Far + extern O1_LoadInstrumentList:Far + extern O1_MessageList:Far + extern O1_OrderVolumeList:Far + extern O1_DisplayList:Far + extern I_DrawWaveForm:Far + extern S_DefineSmallNumbers:Far + extern S_SaveScreen:Far, S_RestoreScreen:Far + extern RestoreMouse:Far, RestoreMouseGraphics:Far + extern D_ClearFileSpecifier:Far + extern O1_ConfigureITList:Far + extern O1_ViewSampleLibrary:Far + extern O1_ConfigurePaletteList:Far + extern O1_MIDIScreen:Far + extern O1_TimerList:Far + extern I_MapEnvelope:Far + extern NewCharacterSet:Far + extern S_GetDestination:Far + extern S_DefineHiASCII:Far -IF MEMORYDEBUG - Extrn O1_DebugList:Far -ENDIF +%IF MEMORYDEBUG + extern O1_DebugList:Far +%ENDIF ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -135,25 +133,25 @@ ENDIF Global Glbl_SaveMode:Far Global Glbl_RestoreMode:Far -IF TIMERSCREEN +%IF TIMERSCREEN Global Glbl_TimerScreen:Far -ENDIF +%ENDIF Global CurrentMode:Byte Public Glbl_F2_2 Public Glbl_F11_2 -IF MEMORYDEBUG +%IF MEMORYDEBUG Global Glbl_Debug:Far -ENDIF +%ENDIF Global Glbl_DriverScreen:Far ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Glbl BYTE Public 'Code' - Assume CS:Glbl, DS:Nothing + ;Assume CS:Glbl, DS:Nothing ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -203,7 +201,7 @@ InstrumentScreenTable Label ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F2 Far +Proc Glbl_F2 Far Call Glbl_SampleToInstrument Cmp CS:CurrentMode, 2 @@ -227,7 +225,7 @@ Glbl_F2_1: Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AX, MaxRow Inc AX @@ -240,13 +238,13 @@ Glbl_F2_1: Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov BX, NumberOfRows Dec BX Mov MaxRow, BX -IF NETWORKENABLED +%IF NETWORKENABLED Call Network_GetSendQueue JZ Glbl_F2_Network @@ -258,18 +256,18 @@ IF NETWORKENABLED Glbl_F2_Network: Call Network_FinishedSendQueue -ENDIF +%ENDIF Mov CS:CurrentMode, 2 Mov AX, 1 Ret -EndP Glbl_F2 - Assume DS:Nothing +;EndP Glbl_F2 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F3 Far +Proc Glbl_F3 Far Call I_DrawWaveForm @@ -281,18 +279,18 @@ Proc Glbl_F3 Far Mov DX, Offset O1_SampleList Ret -EndP Glbl_F3 +;EndP Glbl_F3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F4 Far +Proc Glbl_F4 Far ; Init SampleNumber Call Glbl_SampleToInstrument Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov BL, LastInstrument And BL, BL @@ -303,10 +301,10 @@ Proc Glbl_F4 Far Glbl_F4_1: Mov AX, Inst Mov DS, AX - Assume DS:Inst + ;Assume DS:Inst Mov SampleNumber, BL -Proc Glbl_F4_2 Far +Proc Glbl_F4_2 Far Call I_MapEnvelope @@ -321,14 +319,14 @@ Proc Glbl_F4_2 Far Ret -EndP Glbl_F4_2 +;EndP Glbl_F4_2 -EndP Glbl_F4 - Assume DS:Nothing +;EndP Glbl_F4 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F5 Far +Proc Glbl_F5 Far Cmp CS:CurrentMode, 5 JE Glbl_F5_1 @@ -370,11 +368,11 @@ Glbl_F5_2: Mov AX, 1 Ret -EndP Glbl_F5 +;EndP Glbl_F5 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F6 Far +Proc Glbl_F6 Far Call I_ClearTables @@ -385,11 +383,11 @@ Proc Glbl_F6 Far Mov AX, 1 Ret -EndP Glbl_F6 +;EndP Glbl_F6 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_LoadSample Far +Proc Glbl_LoadSample Far Call D_InitLoadSamples @@ -401,11 +399,11 @@ Proc Glbl_LoadSample Far Mov DX, Offset O1_LoadSampleList Ret -EndP Glbl_LoadSample +;EndP Glbl_LoadSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_LoadInstrument Far +Proc Glbl_LoadInstrument Far Call D_InitLoadInstruments @@ -417,11 +415,11 @@ Proc Glbl_LoadInstrument Far Mov DX, Offset O1_LoadInstrumentList Ret -EndP Glbl_LoadInstrument +;EndP Glbl_LoadInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Shift_F1 Far +Proc Glbl_Shift_F1 Far Mov AX, 5 Mov SI, 1 @@ -431,11 +429,11 @@ Proc Glbl_Shift_F1 Far Mov DX, Offset O1_MIDIScreen Ret -EndP Glbl_Shift_F1 +;EndP Glbl_Shift_F1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Shift_F9 Far +Proc Glbl_Shift_F9 Far Call S_DefineHIASCII @@ -447,17 +445,17 @@ Proc Glbl_Shift_F9 Far Mov DX, Offset O1_MessageList Ret -EndP Glbl_Shift_F9 +;EndP Glbl_Shift_F9 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Shift_F6 Far +Proc Glbl_Shift_F6 Far Call I_ClearTables Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AX, Order Call Music_PlaySong @@ -465,23 +463,23 @@ Proc Glbl_Shift_F6 Far Mov AX, 1 Ret -EndP Glbl_Shift_F6 - Assume DS:Nothing +;EndP Glbl_Shift_F6 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F8 Far +Proc Glbl_F8 Far Call Music_Stop Mov AX, 1 Ret -EndP Glbl_F8 +;EndP Glbl_F8 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F9 Far +Proc Glbl_F9 Far Call D_InitLoadModule @@ -498,11 +496,11 @@ Proc Glbl_F9 Far Ret -EndP Glbl_F9 +;EndP Glbl_F9 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F10 Far +Proc Glbl_F10 Far Call D_InitLoadModule @@ -521,11 +519,11 @@ Proc Glbl_F10 Far Ret -EndP Glbl_F10 +;EndP Glbl_F10 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F11 Far +Proc Glbl_F11 Far Cmp CS:CurrentMode, 11 JE Glbl_F11_1 @@ -549,11 +547,11 @@ Glbl_F11_1: Mov DX, Offset O1_OrderVolumeList Ret -EndP Glbl_F11 +;EndP Glbl_F11 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_F12 Far +Proc Glbl_F12 Far Mov AX, 5 Mov SI, 1 @@ -563,11 +561,11 @@ Proc Glbl_F12 Far Mov DX, Offset O1_ConfigureITList Ret -EndP Glbl_F12 +;EndP Glbl_F12 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Ctrl_F1 Far +Proc Glbl_Ctrl_F1 Far Mov AX, 5 Mov SI, 1 @@ -577,11 +575,11 @@ Proc Glbl_Ctrl_F1 Far Mov DX, Offset O1_KeyboardList Ret -EndP Glbl_Ctrl_F1 +;EndP Glbl_Ctrl_F1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Ctrl_F3 Far +Proc Glbl_Ctrl_F3 Far Call D_InitLoadSamples @@ -593,11 +591,11 @@ Proc Glbl_Ctrl_F3 Far Mov DX, Offset O1_ViewSampleLibrary Ret -EndP Glbl_Ctrl_F3 +;EndP Glbl_Ctrl_F3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Ctrl_F4 Far +Proc Glbl_Ctrl_F4 Far Call D_InitLoadInstruments @@ -609,11 +607,11 @@ Proc Glbl_Ctrl_F4 Far Mov DX, Offset O1_ViewInstrumentLibrary Ret -EndP Glbl_Ctrl_F4 +;EndP Glbl_Ctrl_F4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Ctrl_F5 Far +Proc Glbl_Ctrl_F5 Far Call I_ClearTables @@ -623,11 +621,11 @@ Proc Glbl_Ctrl_F5 Far Mov AX, 1 Ret -EndP Glbl_Ctrl_F5 +;EndP Glbl_Ctrl_F5 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Ctrl_F12 Far +Proc Glbl_Ctrl_F12 Far Mov AX, 5 Mov SI, 1 @@ -638,16 +636,16 @@ Proc Glbl_Ctrl_F12 Far Ret -EndP Glbl_Ctrl_F12 +;EndP Glbl_Ctrl_F12 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_GetHeaderMode Far +Proc Glbl_GetHeaderMode Far Push DS Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument Pop DS @@ -673,7 +671,7 @@ Glbl_GetHeaderMode2: Mov AX, Inst Mov DS, AX - Assume DS:Inst + ;Assume DS:Inst Pop AX Mov AL, SampleNumber @@ -681,32 +679,32 @@ Glbl_GetHeaderMode2: Pop DS Ret -EndP Glbl_GetHeaderMode - Assume DS:Nothing +;EndP Glbl_GetHeaderMode + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_SetCurrentMode Far +Proc Glbl_SetCurrentMode Far Mov CS:CurrentMode, AL Ret -EndP Glbl_SetCurrentMode +;EndP Glbl_SetCurrentMode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_GetCurrentMode Far ; Returns AL +Proc Glbl_GetCurrentMode Far ; Returns AL Mov AL, CS:CurrentMode Ret -EndP Glbl_GetCurrentMode +;EndP Glbl_GetCurrentMode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Alt_F1 Far +Proc Glbl_Alt_F1 Far Mov AX, 0 Call Music_ToggleChannel @@ -714,11 +712,11 @@ Proc Glbl_Alt_F1 Far Mov AX, 1 Ret -EndP Glbl_Alt_F1 +;EndP Glbl_Alt_F1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Alt_F2 Far +Proc Glbl_Alt_F2 Far Mov AX, 1 Call Music_ToggleChannel @@ -726,11 +724,11 @@ Proc Glbl_Alt_F2 Far Mov AX, 1 Ret -EndP Glbl_Alt_F2 +;EndP Glbl_Alt_F2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Alt_F3 Far +Proc Glbl_Alt_F3 Far Mov AX, 2 Call Music_ToggleChannel @@ -738,11 +736,11 @@ Proc Glbl_Alt_F3 Far Mov AX, 1 Ret -EndP Glbl_Alt_F3 +;EndP Glbl_Alt_F3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Alt_F4 Far +Proc Glbl_Alt_F4 Far Mov AX, 3 Call Music_ToggleChannel @@ -750,11 +748,11 @@ Proc Glbl_Alt_F4 Far Mov AX, 1 Ret -EndP Glbl_Alt_F4 +;EndP Glbl_Alt_F4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Alt_F5 Far +Proc Glbl_Alt_F5 Far Mov AX, 4 Call Music_ToggleChannel @@ -762,11 +760,11 @@ Proc Glbl_Alt_F5 Far Mov AX, 1 Ret -EndP Glbl_Alt_F5 +;EndP Glbl_Alt_F5 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Alt_F6 Far +Proc Glbl_Alt_F6 Far Mov AX, 5 Call Music_ToggleChannel @@ -774,11 +772,11 @@ Proc Glbl_Alt_F6 Far Mov AX, 1 Ret -EndP Glbl_Alt_F6 +;EndP Glbl_Alt_F6 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Alt_F7 Far +Proc Glbl_Alt_F7 Far Mov AX, 6 Call Music_ToggleChannel @@ -786,11 +784,11 @@ Proc Glbl_Alt_F7 Far Mov AX, 1 Ret -EndP Glbl_Alt_F7 +;EndP Glbl_Alt_F7 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_Alt_F8 Far +Proc Glbl_Alt_F8 Far Mov AX, 7 Call Music_ToggleChannel @@ -798,11 +796,11 @@ Proc Glbl_Alt_F8 Far Mov AX, 1 Ret -EndP Glbl_Alt_F8 +;EndP Glbl_Alt_F8 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_LeftBrace Far +Proc Glbl_LeftBrace Far Push CS Pop DS @@ -814,11 +812,11 @@ Proc Glbl_LeftBrace Far Mov AX, 1 Ret -EndP Glbl_LeftBrace +;EndP Glbl_LeftBrace ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_RightBrace Far +Proc Glbl_RightBrace Far Push CS Pop DS @@ -830,11 +828,11 @@ Proc Glbl_RightBrace Far Mov AX, 1 Ret -EndP Glbl_RightBrace +;EndP Glbl_RightBrace ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_LeftSquareBracket Far +Proc Glbl_LeftSquareBracket Far Push CS Pop DS @@ -847,11 +845,11 @@ Proc Glbl_LeftSquareBracket Far Mov AX, 1 Ret -EndP Glbl_LeftSquareBracket +;EndP Glbl_LeftSquareBracket ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_RightSquareBracket Far +Proc Glbl_RightSquareBracket Far Push CS Pop DS @@ -864,11 +862,11 @@ Proc Glbl_RightSquareBracket Far Mov AX, 1 Ret -EndP Glbl_RightSquareBracket +;EndP Glbl_RightSquareBracket ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_SaveMode Far +Proc Glbl_SaveMode Far ; Call S_GetDestination ; Mov AX, 0B800h @@ -889,11 +887,11 @@ Proc Glbl_SaveMode Far Ret -EndP Glbl_SaveMode +;EndP Glbl_SaveMode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_RestoreMode Far +Proc Glbl_RestoreMode Far ; Call NewCharacterSet @@ -909,13 +907,13 @@ Proc Glbl_RestoreMode Far Ret -EndP Glbl_RestoreMode +;EndP Glbl_RestoreMode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF MEMORYDEBUG +%IF MEMORYDEBUG -Proc Glbl_Debug Far +Proc Glbl_Debug Far Mov AX, 5 Mov SI, 1 @@ -925,27 +923,27 @@ Proc Glbl_Debug Far Mov DX, Offset O1_DebugList Ret -EndP Glbl_Debug +;EndP Glbl_Debug -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_SampleToInstrument +Proc Glbl_SampleToInstrument Cmp CS:CurrentMode, 3 JNE Glbl_SampleToInstrument1 Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Test Byte Ptr [DS:2Ch], 4 JZ Glbl_SampleToInstrument1 Mov AX, Pattern Mov ES, AX - Assume ES:Pattern + ;Assume ES:Pattern Mov AH, ES:LastInstrument Mov BX, [DS:64712] ; Offset of first instrument @@ -982,14 +980,14 @@ Glbl_SampleToInstrument3: Glbl_SampleToInstrument1: Ret -EndP Glbl_SampleToInstrument - Assume ES:Nothing +;EndP Glbl_SampleToInstrument + ;Assume ES:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF TIMERSCREEN +%IF TIMERSCREEN -Proc Glbl_TimerScreen Far +Proc Glbl_TimerScreen Far Mov AX, 5 Mov SI, 1 @@ -999,13 +997,13 @@ Proc Glbl_TimerScreen Far Mov DX, Offset O1_TimerList Ret -EndP Glbl_TimerScreen +;EndP Glbl_TimerScreen -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_DriverScreen Far +Proc Glbl_DriverScreen Far Call Music_GetDriverScreen JC Glbl_DriverScreen1 @@ -1015,7 +1013,7 @@ Proc Glbl_DriverScreen Far Glbl_DriverScreen1: Ret -EndP Glbl_DriverScreen +;EndP Glbl_DriverScreen ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_h.s b/it_h.s index 901de30..64b8070 100644 --- a/it_h.s +++ b/it_h.s @@ -2,25 +2,23 @@ ;� Help Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - .386 - Jumps +%include "switch.inc" -include switch.inc - -Segment Object1 BYTE Public 'Data' +;Segment Object1 BYTE Public 'Data' +section .data EndS ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Extrn M_Object1List:Far - Extrn Glbl_SaveMode:Far - Extrn Glbl_RestoreMode:Far + Extern M_Object1List:Far + extern Glbl_SaveMode:Far + extern Glbl_RestoreMode:Far - Extrn S_DrawString:Far + extern S_DrawString:Far - Extrn O1_HelpList:Far + extern O1_HelpList:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -37,11 +35,14 @@ EndS ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -Segment Object1 BYTE Public 'Data' +;Segment Object1 BYTE Public 'Data' +section .data EndS -Segment Help BYTE Public USE16 'Code' - Assume CS:Help, DS:Nothing +;Segment Help BYTE Public USE16 'Code' +; ;Assume CS:Help, DS:Nothing +section .text +%warning "USE16" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -70,158 +71,158 @@ TopLine DW 0 Positions DW 15 Dup (0) HelpContextPtrs Label Word - DW Offset HelpContext0Ptrs - DW Offset HelpContext1Ptrs - DW Offset HelpContext2Ptrs - DW Offset NoHelpContext - DW Offset HelpContext4Ptrs - DW Offset NoHelpContext - DW Offset NoHelpContext - DW Offset HelpContext7Ptrs - DW Offset NoHelpContext - DW Offset HelpContext9Ptrs - DW Offset NoHelpContext - DW Offset NoHelpContext - DW Offset HelpContext12Ptrs - DW Offset NoHelpContext - DW Offset NoHelpContext + DW HelpContext0Ptrs + DW HelpContext1Ptrs + DW HelpContext2Ptrs + DW NoHelpContext + DW HelpContext4Ptrs + DW NoHelpContext + DW NoHelpContext + DW HelpContext7Ptrs + DW NoHelpContext + DW HelpContext9Ptrs + DW NoHelpContext + DW NoHelpContext + DW HelpContext12Ptrs + DW NoHelpContext + DW NoHelpContext -NoHelpContext DW Offset NewLine - DW Offset HelpGlobal_0 - DW Offset HelpGlobal_1 - DW Offset HelpGlobal_37 - DW Offset HelpGlobal_3 - DW Offset HelpGlobal_4 - DW Offset HelpGlobal_20 - DW Offset HelpGlobal_9 - DW Offset HelpGlobal_10 - DW Offset HelpGlobal_19 - DW Offset HelpGlobal_11 - DW Offset HelpGlobal_12 - DW Offset HelpGlobal_33 - DW Offset HelpGlobal_13 - DW Offset HelpGlobal_5 - DW Offset HelpGlobal_6 - DW Offset HelpGlobal_2 - DW Offset HelpGlobal_7 - DW Offset HelpGlobal_8 - DW Offset HelpGlobal_32 - DW Offset NewLine - DW Offset HelpGlobal_17 - DW Offset HelpGlobal_31 - DW Offset HelpGlobal_18 - DW Offset NewLine - DW Offset HelpGlobal_16 - DW Offset HelpGlobal_34 - DW Offset HelpGlobal_35 - DW Offset HelpGlobal_36 - DW Offset HelpGlobal_21 - DW Offset HelpGlobal_14 - DW Offset HelpGlobal_15 +NoHelpContext DW NewLine + DW HelpGlobal_0 + DW HelpGlobal_1 + DW HelpGlobal_37 + DW HelpGlobal_3 + DW HelpGlobal_4 + DW HelpGlobal_20 + DW HelpGlobal_9 + DW HelpGlobal_10 + DW HelpGlobal_19 + DW HelpGlobal_11 + DW HelpGlobal_12 + DW HelpGlobal_33 + DW HelpGlobal_13 + DW HelpGlobal_5 + DW HelpGlobal_6 + DW HelpGlobal_2 + DW HelpGlobal_7 + DW HelpGlobal_8 + DW HelpGlobal_32 + DW NewLine + DW HelpGlobal_17 + DW HelpGlobal_31 + DW HelpGlobal_18 + DW NewLine + DW HelpGlobal_16 + DW HelpGlobal_34 + DW HelpGlobal_35 + DW HelpGlobal_36 + DW HelpGlobal_21 + DW HelpGlobal_14 + DW HelpGlobal_15 DW 0 -HelpContext0Ptrs DW Offset HelpContext0_26 - DW Offset HelpContext0_0 - DW Offset HelpContext0_27 - DW Offset NewLine - DW Offset HelpContext0_6 - DW Offset HelpContext0_28 - DW Offset HelpContext0_8 - DW Offset HelpContext0_9 - DW Offset HelpContext0_13 - DW Offset HelpContext0_14 - DW Offset HelpContext0_12 - DW Offset HelpContext0_15 - DW Offset NewLine - DW Offset HelpContext0_30 - DW Offset HelpContext0_29 - DW Offset NewLine - DW Offset Divider - DW Offset NewLine - DW Offset HelpGlobal_0 - DW Offset HelpGlobal_1 - DW Offset HelpGlobal_37 - DW Offset HelpGlobal_3 - DW Offset HelpGlobal_4 - DW Offset HelpGlobal_9 - DW Offset HelpGlobal_10 - DW Offset HelpGlobal_19 - DW Offset HelpGlobal_11 - DW Offset HelpGlobal_12 - DW Offset HelpGlobal_33 - DW Offset HelpGlobal_13 - DW Offset HelpGlobal_5 - DW Offset HelpGlobal_6 - DW Offset HelpGlobal_2 - DW Offset HelpGlobal_7 - DW Offset HelpGlobal_8 - DW Offset HelpGlobal_32 - DW Offset NewLine - DW Offset HelpGlobal_17 - DW Offset HelpGlobal_31 - DW Offset HelpGlobal_18 - DW Offset NewLine - DW Offset HelpGlobal_16 - DW Offset HelpGlobal_34 - DW Offset HelpGlobal_35 - DW Offset HelpGlobal_36 - DW Offset HelpGlobal_21 - DW Offset HelpGlobal_14 - DW Offset HelpGlobal_15 - DW Offset NewLine - DW Offset Divider +HelpContext0Ptrs DW HelpContext0_26 + DW HelpContext0_0 + DW HelpContext0_27 + DW NewLine + DW HelpContext0_6 + DW HelpContext0_28 + DW HelpContext0_8 + DW HelpContext0_9 + DW HelpContext0_13 + DW HelpContext0_14 + DW HelpContext0_12 + DW HelpContext0_15 + DW NewLine + DW HelpContext0_30 + DW HelpContext0_29 + DW NewLine + DW Divider + DW NewLine + DW HelpGlobal_0 + DW HelpGlobal_1 + DW HelpGlobal_37 + DW HelpGlobal_3 + DW HelpGlobal_4 + DW HelpGlobal_9 + DW HelpGlobal_10 + DW HelpGlobal_19 + DW HelpGlobal_11 + DW HelpGlobal_12 + DW HelpGlobal_33 + DW HelpGlobal_13 + DW HelpGlobal_5 + DW HelpGlobal_6 + DW HelpGlobal_2 + DW HelpGlobal_7 + DW HelpGlobal_8 + DW HelpGlobal_32 + DW NewLine + DW HelpGlobal_17 + DW HelpGlobal_31 + DW HelpGlobal_18 + DW NewLine + DW HelpGlobal_16 + DW HelpGlobal_34 + DW HelpGlobal_35 + DW HelpGlobal_36 + DW HelpGlobal_21 + DW HelpGlobal_14 + DW HelpGlobal_15 + DW NewLine + DW Divider DW 0 -HelpContext4Ptrs DW Offset HelpContext4_0 - DW Offset HelpContext4_1 - DW Offset HelpContext4_2 - DW Offset NewLine - DW Offset HelpContext0_6 - DW Offset HelpContext0_28 - DW Offset HelpContext0_8 - DW Offset HelpContext0_9 - DW Offset HelpContext0_13 - DW Offset HelpContext0_14 - DW Offset HelpContext0_12 - DW Offset HelpContext0_15 - DW Offset NewLine - DW Offset Divider - DW Offset NewLine - DW Offset HelpGlobal_0 - DW Offset HelpGlobal_1 - DW Offset HelpGlobal_37 - DW Offset HelpGlobal_3 - DW Offset HelpGlobal_4 - DW Offset HelpGlobal_20 - DW Offset HelpGlobal_9 - DW Offset HelpGlobal_22 - DW Offset HelpGlobal_10 - DW Offset HelpGlobal_19 - DW Offset HelpGlobal_11 - DW Offset HelpGlobal_12 - DW Offset HelpGlobal_33 - DW Offset HelpGlobal_13 - DW Offset HelpGlobal_5 - DW Offset HelpGlobal_23 - DW Offset HelpGlobal_6 - DW Offset HelpGlobal_2 - DW Offset HelpGlobal_7 - DW Offset HelpGlobal_8 - DW Offset HelpGlobal_32 - DW Offset NewLine - DW Offset HelpGlobal_17 - DW Offset HelpGlobal_31 - DW Offset HelpGlobal_18 - DW Offset NewLine - DW Offset HelpGlobal_16 - DW Offset HelpGlobal_34 - DW Offset HelpGlobal_35 - DW Offset HelpGlobal_36 - DW Offset HelpGlobal_21 - DW Offset HelpGlobal_14 - DW Offset HelpGlobal_15 - DW Offset NewLine - DW Offset Divider +HelpContext4Ptrs DW HelpContext4_0 + DW HelpContext4_1 + DW HelpContext4_2 + DW NewLine + DW HelpContext0_6 + DW HelpContext0_28 + DW HelpContext0_8 + DW HelpContext0_9 + DW HelpContext0_13 + DW HelpContext0_14 + DW HelpContext0_12 + DW HelpContext0_15 + DW NewLine + DW Divider + DW NewLine + DW HelpGlobal_0 + DW HelpGlobal_1 + DW HelpGlobal_37 + DW HelpGlobal_3 + DW HelpGlobal_4 + DW HelpGlobal_20 + DW HelpGlobal_9 + DW HelpGlobal_22 + DW HelpGlobal_10 + DW HelpGlobal_19 + DW HelpGlobal_11 + DW HelpGlobal_12 + DW HelpGlobal_33 + DW HelpGlobal_13 + DW HelpGlobal_5 + DW HelpGlobal_23 + DW HelpGlobal_6 + DW HelpGlobal_2 + DW HelpGlobal_7 + DW HelpGlobal_8 + DW HelpGlobal_32 + DW NewLine + DW HelpGlobal_17 + DW HelpGlobal_31 + DW HelpGlobal_18 + DW NewLine + DW HelpGlobal_16 + DW HelpGlobal_34 + DW HelpGlobal_35 + DW HelpGlobal_36 + DW HelpGlobal_21 + DW HelpGlobal_14 + DW HelpGlobal_15 + DW NewLine + DW Divider DW 0 NewLine DB 0, 0 @@ -283,298 +284,298 @@ HelpGlobal_15 DB 5, 81h, 'S', 0FFh, 12, ' Save ', 0A2h, 'song', 0 HelpContext1Ptrs Label Word - DW Offset HelpContext1_0 - DW Offset HelpContext1_1 - DW Offset HelpContext1_2 - DW Offset NewLine - DW Offset HelpContext1_3 - DW Offset NewLine - DW Offset HelpContext1_200 - DW Offset HelpContext1_201 - DW Offset HelpContext1_202 - DW Offset HelpContext1_203 - DW Offset HelpContext1_204 - DW Offset HelpContext1_205 - DW Offset HelpContext1_206 - DW Offset HelpContext1_207 - DW Offset HelpContext1_208 - DW Offset NewLine - DW Offset HelpContext1_299 - DW Offset HelpContext1_4 - DW Offset HelpContext1_5 - DW Offset HelpContext1_6 - DW Offset HelpContext1_7 - DW Offset HelpContext1_8 - DW Offset HelpContext1_9 - DW Offset HelpContext1_10 - DW Offset HelpContext1_11 - DW Offset HelpContext1_12 - DW Offset HelpContext1_13 - DW Offset HelpContext1_14 - DW Offset HelpContext1_15 - DW Offset HelpContext1_16 - DW Offset HelpContext1_17 - DW Offset HelpContext1_18 - DW Offset HelpContext1_19 - DW Offset HelpContext1_20 - DW Offset HelpContext1_21 - DW Offset HelpContext1_22 - DW Offset HelpContext1_23 - DW Offset HelpContext1_24 - DW Offset HelpContext1_141 - DW Offset HelpContext1_142 - DW Offset HelpContext1_143 - DW Offset HelpContext1_25 - DW Offset HelpContext1_26 - DW Offset HelpContext1_135 - DW Offset HelpContext1_136 - DW Offset HelpContext1_137 - DW Offset HelpContext1_27 - DW Offset HelpContext1_28 - DW Offset HelpContext1_29 - DW Offset HelpContext1_30 - DW Offset HelpContext1_31 - DW Offset HelpContext1_32 - DW Offset HelpContext1_33 - DW Offset HelpContext1_34 - DW Offset HelpContext1_35 - DW Offset HelpContext1_36 - DW Offset HelpContext1_45 - DW Offset HelpContext1_46 - DW Offset HelpContext1_47 - DW Offset HelpContext1_48 - DW Offset HelpContext1_49 - DW Offset HelpContext1_50 - DW Offset HelpContext1_51 - DW Offset HelpContext1_62 - DW Offset HelpContext1_63 - DW Offset HelpContext1_64 - DW Offset HelpContext1_65 - DW Offset HelpContext1_66 - DW Offset HelpContext1_52 - DW Offset HelpContext1_53 - DW Offset HelpContext1_144 - DW Offset HelpContext1_145 - DW Offset HelpContext1_153 - DW Offset HelpContext1_154 - DW Offset HelpContext1_155 - DW Offset HelpContext1_156 - DW Offset HelpContext1_157 - DW Offset HelpContext1_162 - DW Offset HelpContext1_168 - DW Offset HelpContext1_169 - DW Offset HelpContext1_170 - DW Offset HelpContext1_171 - DW Offset HelpContext1_54 - DW Offset HelpContext1_55 - DW Offset HelpContext1_56 - DW Offset HelpContext1_57 - DW Offset HelpContext1_146 - DW Offset HelpContext1_58 - DW Offset HelpContext1_59 - DW Offset HelpContext1_60 - DW Offset HelpContext1_61 - DW Offset HelpContext1_179 - DW Offset HelpContext1_180 - DW Offset HelpContext1_67 - DW Offset HelpContext1_68 - DW Offset HelpContext1_69 - DW Offset HelpContext1_70 - DW Offset HelpContext1_138 - DW Offset HelpContext1_139 - DW Offset HelpContext1_140 - DW Offset HelpContext1_71 - DW Offset HelpContext1_72 - DW Offset HelpContext1_73 - DW Offset NewLine - DW Offset Divider - DW Offset NewLine - DW Offset HelpContext1_74 - DW Offset HelpContext1_114 - DW Offset HelpContext1_115 - DW Offset HelpContext1_134 - DW Offset HelpContext1_75 - DW Offset HelpContext1_76 - DW Offset HelpContext1_77 - DW Offset HelpContext1_78 - DW Offset HelpContext1_79 - DW Offset HelpContext1_80 - DW Offset HelpContext1_81 - DW Offset HelpContext1_181 - DW Offset NewLine - DW Offset HelpContext1_82 - DW Offset HelpContext1_83 - DW Offset HelpContext1_163 - DW Offset HelpContext1_84 - DW Offset HelpContext1_85 - DW Offset NewLine - DW Offset HelpContext1_86 - DW Offset HelpContext1_127 - DW Offset NewLine - DW Offset HelpContext1_87 - DW Offset HelpContext1_164 - DW Offset HelpContext1_129 - DW Offset HelpContext1_88 - DW Offset HelpContext1_131 - DW Offset HelpContext1_90 - DW Offset HelpContext1_89 - DW Offset HelpContext1_160 - DW Offset HelpContext1_91 - DW Offset HelpContext1_92 - DW Offset HelpContext1_93 - DW Offset NewLine - DW Offset HelpContext1_116 - DW Offset HelpContext1_124 - DW Offset NewLine - DW Offset HelpContext1_130 - DW Offset HelpContext1_117 - DW Offset HelpContext1_161 - DW Offset NewLine - DW Offset HelpContext1_166 - DW Offset HelpContext1_174 - DW Offset HelpContext1_300 - DW Offset NewLine - DW Offset HelpContext1_176 - DW Offset NewLine - DW Offset HelpContext1_118 - DW Offset HelpContext1_119 - DW Offset HelpContext1_120 - DW Offset HelpContext1_121 - DW Offset HelpContext1_122 - DW Offset HelpContext1_123 - DW Offset HelpContext1_128 - DW Offset NewLine - DW Offset HelpContext1_167 - DW Offset NewLine - DW Offset HelpContext1_159 - DW Offset NewLine - DW Offset HelpContext1_94 - DW Offset HelpContext1_95 - DW Offset HelpContext1_96 - DW Offset HelpContext1_97 - DW Offset HelpContext1_98 - DW Offset HelpContext1_165 - DW Offset NewLine - DW Offset HelpContext1_99 - DW Offset NewLine - DW Offset HelpContext1_113 - DW Offset HelpContext1_100 - DW Offset HelpContext1_101 - DW Offset HelpContext1_102 - DW Offset HelpContext1_103 - DW Offset HelpContext1_104 - DW Offset HelpContext1_133 - DW Offset HelpContext1_105 - DW Offset HelpContext1_106 - DW Offset HelpContext1_132 - DW Offset HelpContext1_107 - DW Offset NewLine - DW Offset HelpContext1_108 - DW Offset HelpContext1_109 - DW Offset HelpContext1_110 - DW Offset HelpContext1_111 - DW Offset HelpContext1_173 - DW Offset NewLine - DW Offset HelpContext1_125 - DW Offset HelpContext1_126 - DW Offset NewLine - DW Offset HelpContext1_112 - DW Offset HelpContext1_175 - DW Offset NewLine - DW Offset HelpContext1_147 - DW Offset HelpContext1_148 - DW Offset HelpContext1_149 - DW Offset NewLine - DW Offset HelpContext1_152 - DW Offset HelpContext1_158 - DW Offset NewLine - DW Offset HelpContext1_150 - DW Offset HelpContext1_151 - DW Offset NewLine - DW Offset HelpContext1_172 - DW Offset HelpContext1_177 - DW Offset HelpContext1_178 - DW Offset NewLine - DW Offset Divider - DW Offset NewLine - DW Offset HelpGlobal_0 - DW Offset HelpGlobal_1 - DW Offset HelpGlobal_37 - DW Offset HelpGlobal_3 - DW Offset HelpGlobal_4 - DW Offset HelpGlobal_20 - DW Offset HelpGlobal_9 - DW Offset HelpGlobal_22 - DW Offset HelpGlobal_10 - DW Offset HelpGlobal_19 - DW Offset HelpGlobal_11 - DW Offset HelpGlobal_12 - DW Offset HelpGlobal_33 - DW Offset HelpGlobal_13 - DW Offset HelpGlobal_5 - DW Offset HelpGlobal_23 - DW Offset HelpGlobal_6 - DW Offset HelpGlobal_2 - DW Offset HelpGlobal_7 - DW Offset HelpGlobal_8 - DW Offset HelpGlobal_32 - DW Offset NewLine - DW Offset HelpGlobal_17 - DW Offset HelpGlobal_31 - DW Offset HelpGlobal_18 - DW Offset NewLine - DW Offset HelpGlobal_16 - DW Offset HelpGlobal_34 - DW Offset HelpGlobal_35 - DW Offset HelpGlobal_36 - DW Offset HelpGlobal_21 - DW Offset HelpGlobal_14 - DW Offset HelpGlobal_15 - DW Offset NewLine - DW Offset Divider + DW HelpContext1_0 + DW HelpContext1_1 + DW HelpContext1_2 + DW NewLine + DW HelpContext1_3 + DW NewLine + DW HelpContext1_200 + DW HelpContext1_201 + DW HelpContext1_202 + DW HelpContext1_203 + DW HelpContext1_204 + DW HelpContext1_205 + DW HelpContext1_206 + DW HelpContext1_207 + DW HelpContext1_208 + DW NewLine + DW HelpContext1_299 + DW HelpContext1_4 + DW HelpContext1_5 + DW HelpContext1_6 + DW HelpContext1_7 + DW HelpContext1_8 + DW HelpContext1_9 + DW HelpContext1_10 + DW HelpContext1_11 + DW HelpContext1_12 + DW HelpContext1_13 + DW HelpContext1_14 + DW HelpContext1_15 + DW HelpContext1_16 + DW HelpContext1_17 + DW HelpContext1_18 + DW HelpContext1_19 + DW HelpContext1_20 + DW HelpContext1_21 + DW HelpContext1_22 + DW HelpContext1_23 + DW HelpContext1_24 + DW HelpContext1_141 + DW HelpContext1_142 + DW HelpContext1_143 + DW HelpContext1_25 + DW HelpContext1_26 + DW HelpContext1_135 + DW HelpContext1_136 + DW HelpContext1_137 + DW HelpContext1_27 + DW HelpContext1_28 + DW HelpContext1_29 + DW HelpContext1_30 + DW HelpContext1_31 + DW HelpContext1_32 + DW HelpContext1_33 + DW HelpContext1_34 + DW HelpContext1_35 + DW HelpContext1_36 + DW HelpContext1_45 + DW HelpContext1_46 + DW HelpContext1_47 + DW HelpContext1_48 + DW HelpContext1_49 + DW HelpContext1_50 + DW HelpContext1_51 + DW HelpContext1_62 + DW HelpContext1_63 + DW HelpContext1_64 + DW HelpContext1_65 + DW HelpContext1_66 + DW HelpContext1_52 + DW HelpContext1_53 + DW HelpContext1_144 + DW HelpContext1_145 + DW HelpContext1_153 + DW HelpContext1_154 + DW HelpContext1_155 + DW HelpContext1_156 + DW HelpContext1_157 + DW HelpContext1_162 + DW HelpContext1_168 + DW HelpContext1_169 + DW HelpContext1_170 + DW HelpContext1_171 + DW HelpContext1_54 + DW HelpContext1_55 + DW HelpContext1_56 + DW HelpContext1_57 + DW HelpContext1_146 + DW HelpContext1_58 + DW HelpContext1_59 + DW HelpContext1_60 + DW HelpContext1_61 + DW HelpContext1_179 + DW HelpContext1_180 + DW HelpContext1_67 + DW HelpContext1_68 + DW HelpContext1_69 + DW HelpContext1_70 + DW HelpContext1_138 + DW HelpContext1_139 + DW HelpContext1_140 + DW HelpContext1_71 + DW HelpContext1_72 + DW HelpContext1_73 + DW NewLine + DW Divider + DW NewLine + DW HelpContext1_74 + DW HelpContext1_114 + DW HelpContext1_115 + DW HelpContext1_134 + DW HelpContext1_75 + DW HelpContext1_76 + DW HelpContext1_77 + DW HelpContext1_78 + DW HelpContext1_79 + DW HelpContext1_80 + DW HelpContext1_81 + DW HelpContext1_181 + DW NewLine + DW HelpContext1_82 + DW HelpContext1_83 + DW HelpContext1_163 + DW HelpContext1_84 + DW HelpContext1_85 + DW NewLine + DW HelpContext1_86 + DW HelpContext1_127 + DW NewLine + DW HelpContext1_87 + DW HelpContext1_164 + DW HelpContext1_129 + DW HelpContext1_88 + DW HelpContext1_131 + DW HelpContext1_90 + DW HelpContext1_89 + DW HelpContext1_160 + DW HelpContext1_91 + DW HelpContext1_92 + DW HelpContext1_93 + DW NewLine + DW HelpContext1_116 + DW HelpContext1_124 + DW NewLine + DW HelpContext1_130 + DW HelpContext1_117 + DW HelpContext1_161 + DW NewLine + DW HelpContext1_166 + DW HelpContext1_174 + DW HelpContext1_300 + DW NewLine + DW HelpContext1_176 + DW NewLine + DW HelpContext1_118 + DW HelpContext1_119 + DW HelpContext1_120 + DW HelpContext1_121 + DW HelpContext1_122 + DW HelpContext1_123 + DW HelpContext1_128 + DW NewLine + DW HelpContext1_167 + DW NewLine + DW HelpContext1_159 + DW NewLine + DW HelpContext1_94 + DW HelpContext1_95 + DW HelpContext1_96 + DW HelpContext1_97 + DW HelpContext1_98 + DW HelpContext1_165 + DW NewLine + DW HelpContext1_99 + DW NewLine + DW HelpContext1_113 + DW HelpContext1_100 + DW HelpContext1_101 + DW HelpContext1_102 + DW HelpContext1_103 + DW HelpContext1_104 + DW HelpContext1_133 + DW HelpContext1_105 + DW HelpContext1_106 + DW HelpContext1_132 + DW HelpContext1_107 + DW NewLine + DW HelpContext1_108 + DW HelpContext1_109 + DW HelpContext1_110 + DW HelpContext1_111 + DW HelpContext1_173 + DW NewLine + DW HelpContext1_125 + DW HelpContext1_126 + DW NewLine + DW HelpContext1_112 + DW HelpContext1_175 + DW NewLine + DW HelpContext1_147 + DW HelpContext1_148 + DW HelpContext1_149 + DW NewLine + DW HelpContext1_152 + DW HelpContext1_158 + DW NewLine + DW HelpContext1_150 + DW HelpContext1_151 + DW NewLine + DW HelpContext1_172 + DW HelpContext1_177 + DW HelpContext1_178 + DW NewLine + DW Divider + DW NewLine + DW HelpGlobal_0 + DW HelpGlobal_1 + DW HelpGlobal_37 + DW HelpGlobal_3 + DW HelpGlobal_4 + DW HelpGlobal_20 + DW HelpGlobal_9 + DW HelpGlobal_22 + DW HelpGlobal_10 + DW HelpGlobal_19 + DW HelpGlobal_11 + DW HelpGlobal_12 + DW HelpGlobal_33 + DW HelpGlobal_13 + DW HelpGlobal_5 + DW HelpGlobal_23 + DW HelpGlobal_6 + DW HelpGlobal_2 + DW HelpGlobal_7 + DW HelpGlobal_8 + DW HelpGlobal_32 + DW NewLine + DW HelpGlobal_17 + DW HelpGlobal_31 + DW HelpGlobal_18 + DW NewLine + DW HelpGlobal_16 + DW HelpGlobal_34 + DW HelpGlobal_35 + DW HelpGlobal_36 + DW HelpGlobal_21 + DW HelpGlobal_14 + DW HelpGlobal_15 + DW NewLine + DW Divider Comment & - DW Offset NewLine - DW Offset HelpHexTable0 - DW Offset HelpHexTable1 - DW Offset HelpHexTable2 - DW Offset NewLine - DW Offset HelpHexTable3 - DW Offset Divider - DW Offset HelpHexTable4 - DW Offset HelpHexTable5 - DW Offset HelpHexTable6 - DW Offset HelpHexTable7 - DW Offset HelpHexTable8 - DW Offset HelpHexTable9 - DW Offset HelpHexTable10 - DW Offset HelpHexTable11 - DW Offset HelpHexTable12 - DW Offset HelpHexTable13 - DW Offset HelpHexTable14 - DW Offset HelpHexTable15 - DW Offset HelpHexTable16 - DW Offset HelpHexTable17 - DW Offset HelpHexTable18 - DW Offset HelpHexTable19 - DW Offset HelpHexTable20 - DW Offset HelpHexTable21 - DW Offset HelpHexTable22 - DW Offset HelpHexTable23 - DW Offset HelpHexTable24 - DW Offset HelpHexTable25 - DW Offset HelpHexTable26 - DW Offset HelpHexTable27 - DW Offset HelpHexTable28 - DW Offset HelpHexTable29 - DW Offset HelpHexTable30 - DW Offset HelpHexTable31 - DW Offset HelpHexTable32 - DW Offset HelpHexTable33 - DW Offset HelpHexTable34 - DW Offset HelpHexTable35 - DW Offset Divider + DW NewLine + DW HelpHexTable0 + DW HelpHexTable1 + DW HelpHexTable2 + DW NewLine + DW HelpHexTable3 + DW Divider + DW HelpHexTable4 + DW HelpHexTable5 + DW HelpHexTable6 + DW HelpHexTable7 + DW HelpHexTable8 + DW HelpHexTable9 + DW HelpHexTable10 + DW HelpHexTable11 + DW HelpHexTable12 + DW HelpHexTable13 + DW HelpHexTable14 + DW HelpHexTable15 + DW HelpHexTable16 + DW HelpHexTable17 + DW HelpHexTable18 + DW HelpHexTable19 + DW HelpHexTable20 + DW HelpHexTable21 + DW HelpHexTable22 + DW HelpHexTable23 + DW HelpHexTable24 + DW HelpHexTable25 + DW HelpHexTable26 + DW HelpHexTable27 + DW HelpHexTable28 + DW HelpHexTable29 + DW HelpHexTable30 + DW HelpHexTable31 + DW HelpHexTable32 + DW HelpHexTable33 + DW HelpHexTable34 + DW HelpHexTable35 + DW Divider & DW 0 @@ -795,82 +796,82 @@ HelpContext1_177 DB 5, 81h, 'Z', 0FFh, 11, ' ', 0C8h, 'MIDI pla HelpContext1_178 DB 5, 80h, 'Scroll Lock ', 9Dh, 'MIDI input', 0 HelpContext2Ptrs Label Word - DW Offset HelpContext2_0 - DW Offset HelpContext2_1 - DW Offset HelpContext2_2 - DW Offset NewLine - DW Offset HelpContext2_3 - DW Offset HelpContext2_10 - DW Offset HelpContext2_4 - DW Offset HelpContext2_5 - DW Offset NewLine - DW Offset HelpContext2_11 - DW Offset HelpContext2_23 - DW Offset HelpContext2_8 - DW Offset HelpContext2_6 - DW Offset HelpContext2_17 - DW Offset HelpContext2_18 - DW Offset HelpContext2_27 - DW Offset HelpContext2_30 - DW Offset HelpContext2_33 - DW Offset HelpContext2_7 - DW Offset HelpContext2_29 - DW Offset HelpContext2_28 - DW Offset HelpContext2_14 - DW Offset HelpContext2_19 - DW Offset HelpContext2_12 - DW Offset HelpContext2_13 - DW Offset HelpContext2_16 - DW Offset HelpContext2_15 - DW Offset HelpContext2_9 - DW Offset NewLine - DW Offset HelpContext2_31 - DW Offset HelpContext2_32 - DW Offset NewLine - DW Offset HelpContext2_26 - DW Offset NewLine - DW Offset HelpContext2_21 - DW Offset HelpContext2_22 - DW Offset HelpContext2_24 - DW Offset HelpContext2_25 - DW Offset NewLine - DW Offset Divider - DW Offset NewLine - DW Offset HelpGlobal_0 - DW Offset HelpGlobal_1 - DW Offset HelpGlobal_37 - DW Offset HelpGlobal_3 - DW Offset HelpGlobal_4 - DW Offset HelpGlobal_20 - DW Offset HelpGlobal_9 - DW Offset HelpGlobal_22 - DW Offset HelpGlobal_10 - DW Offset HelpGlobal_19 - DW Offset HelpGlobal_11 - DW Offset HelpGlobal_12 - DW Offset HelpGlobal_33 - DW Offset HelpGlobal_13 - DW Offset HelpGlobal_5 - DW Offset HelpGlobal_23 - DW Offset HelpGlobal_6 - DW Offset HelpGlobal_2 - DW Offset HelpGlobal_7 - DW Offset HelpGlobal_8 - DW Offset HelpGlobal_32 - DW Offset NewLine - DW Offset HelpGlobal_17 - DW Offset HelpGlobal_31 - DW Offset HelpGlobal_18 - DW Offset NewLine - DW Offset HelpGlobal_16 - DW Offset HelpGlobal_34 - DW Offset HelpGlobal_35 - DW Offset HelpGlobal_36 - DW Offset HelpGlobal_21 - DW Offset HelpGlobal_14 - DW Offset HelpGlobal_15 - DW Offset NewLine - DW Offset Divider + DW HelpContext2_0 + DW HelpContext2_1 + DW HelpContext2_2 + DW NewLine + DW HelpContext2_3 + DW HelpContext2_10 + DW HelpContext2_4 + DW HelpContext2_5 + DW NewLine + DW HelpContext2_11 + DW HelpContext2_23 + DW HelpContext2_8 + DW HelpContext2_6 + DW HelpContext2_17 + DW HelpContext2_18 + DW HelpContext2_27 + DW HelpContext2_30 + DW HelpContext2_33 + DW HelpContext2_7 + DW HelpContext2_29 + DW HelpContext2_28 + DW HelpContext2_14 + DW HelpContext2_19 + DW HelpContext2_12 + DW HelpContext2_13 + DW HelpContext2_16 + DW HelpContext2_15 + DW HelpContext2_9 + DW NewLine + DW HelpContext2_31 + DW HelpContext2_32 + DW NewLine + DW HelpContext2_26 + DW NewLine + DW HelpContext2_21 + DW HelpContext2_22 + DW HelpContext2_24 + DW HelpContext2_25 + DW NewLine + DW Divider + DW NewLine + DW HelpGlobal_0 + DW HelpGlobal_1 + DW HelpGlobal_37 + DW HelpGlobal_3 + DW HelpGlobal_4 + DW HelpGlobal_20 + DW HelpGlobal_9 + DW HelpGlobal_22 + DW HelpGlobal_10 + DW HelpGlobal_19 + DW HelpGlobal_11 + DW HelpGlobal_12 + DW HelpGlobal_33 + DW HelpGlobal_13 + DW HelpGlobal_5 + DW HelpGlobal_23 + DW HelpGlobal_6 + DW HelpGlobal_2 + DW HelpGlobal_7 + DW HelpGlobal_8 + DW HelpGlobal_32 + DW NewLine + DW HelpGlobal_17 + DW HelpGlobal_31 + DW HelpGlobal_18 + DW NewLine + DW HelpGlobal_16 + DW HelpGlobal_34 + DW HelpGlobal_35 + DW HelpGlobal_36 + DW HelpGlobal_21 + DW HelpGlobal_14 + DW HelpGlobal_15 + DW NewLine + DW Divider DW 0 ; End of list. HelpContext2_0 DB 31, 0FFh, 1, 139, 0FFh, 17, 134, 0FFh, 1, 138, 0 @@ -900,11 +901,11 @@ HelpContext2_12 DB 5, 80h, 'R', 0FFh, 8, ' Replace ', 0A2h, 95h, ' HelpContext2_13 DB 5, 80h, 'S', 0FFh, 8, ' Swap ', 95h, ' (in song also)', 0 HelpContext2_16 DB 5, 80h, 'T', 0FFh, 8, ' Save ', 0A2h, 95h, ' ', 0B1h, 'disk (ST3 Format)', 0 -IF SAVESAMPLEWAV +%IF SAVESAMPLEWAV HelpContext2_15 DB 5, 80h, 'W', 0FFh, 8, ' Save ', 0A2h, 95h, ' ', 0B1h, 'disk (WAV Format)', 0 -ELSE +%ELSE HelpContext2_15 DB 5, 80h, 'W', 0FFh, 8, ' Save ', 0A2h, 95h, ' ', 0B1h, 'disk (RAW Format)', 0 -ENDIF +%ENDIF HelpContext2_9 DB 5, 80h, 'X', 0FFh, 8, ' Ex', 0C9h, 95h, ' (only in ', 94h, 'List)', 0 @@ -919,87 +920,87 @@ HelpContext2_24 DB 5, 81h, 'Grey + ', 92h, 0AEh, 0AFh, 0 HelpContext2_25 DB 5, 81h, 'Grey - ', 93h, 0AEh, 0AFh, 0 HelpContext7Ptrs Label Word - DW Offset HelpContext7_0 - DW Offset HelpContext7_1 - DW Offset HelpContext7_2 - DW Offset NewLine - DW Offset HelpContext7_8 - DW Offset HelpContext7_26 - DW Offset HelpContext7_9 - DW Offset HelpContext7_10 - DW Offset HelpContext7_36 - DW Offset HelpContext7_22 - DW Offset NewLine - DW Offset HelpContext7_25 - DW Offset HelpContext7_24 - DW Offset HelpContext7_23 - DW Offset HelpContext7_28 - DW Offset HelpContext7_11 - DW Offset HelpContext7_12 - DW Offset HelpContext7_13 - DW Offset HelpContext7_14 - DW Offset NewLine - DW Offset HelpContext7_34 - DW Offset HelpContext7_35 - DW Offset NewLine - DW Offset HelpContext7_33 - DW Offset NewLine - DW Offset HelpContext7_3 - DW Offset HelpContext7_4 - DW Offset HelpContext7_5 - DW Offset NewLine - DW Offset HelpContext7_6 - DW Offset HelpContext7_7 - DW Offset HelpContext7_27 - DW Offset HelpContext7_29 - DW Offset HelpContext7_30 - DW Offset NewLine - DW Offset HelpContext7_15 - DW Offset HelpContext7_16 - DW Offset HelpContext7_17 - DW Offset HelpContext7_18 - DW Offset HelpContext7_19 - DW Offset NewLine - DW Offset HelpContext7_20 - DW Offset HelpContext7_21 - DW Offset NewLine - DW Offset Divider - DW Offset NewLine - DW Offset HelpGlobal_0 - DW Offset HelpGlobal_1 - DW Offset HelpGlobal_37 - DW Offset HelpGlobal_3 - DW Offset HelpGlobal_4 - DW Offset HelpGlobal_20 - DW Offset HelpGlobal_9 - DW Offset HelpGlobal_22 - DW Offset HelpGlobal_10 - DW Offset HelpGlobal_19 - DW Offset HelpGlobal_11 - DW Offset HelpGlobal_12 - DW Offset HelpGlobal_33 - DW Offset HelpGlobal_13 - DW Offset HelpGlobal_5 - DW Offset HelpGlobal_23 - DW Offset HelpGlobal_6 - DW Offset HelpGlobal_2 - DW Offset HelpGlobal_7 - DW Offset HelpGlobal_8 - DW Offset HelpGlobal_32 - DW Offset NewLine - DW Offset HelpGlobal_17 - DW Offset HelpGlobal_31 - DW Offset HelpGlobal_18 - DW Offset NewLine - DW Offset HelpGlobal_16 - DW Offset HelpGlobal_34 - DW Offset HelpGlobal_35 - DW Offset HelpGlobal_36 - DW Offset HelpGlobal_21 - DW Offset HelpGlobal_14 - DW Offset HelpGlobal_15 - DW Offset NewLine - DW Offset Divider + DW HelpContext7_0 + DW HelpContext7_1 + DW HelpContext7_2 + DW NewLine + DW HelpContext7_8 + DW HelpContext7_26 + DW HelpContext7_9 + DW HelpContext7_10 + DW HelpContext7_36 + DW HelpContext7_22 + DW NewLine + DW HelpContext7_25 + DW HelpContext7_24 + DW HelpContext7_23 + DW HelpContext7_28 + DW HelpContext7_11 + DW HelpContext7_12 + DW HelpContext7_13 + DW HelpContext7_14 + DW NewLine + DW HelpContext7_34 + DW HelpContext7_35 + DW NewLine + DW HelpContext7_33 + DW NewLine + DW HelpContext7_3 + DW HelpContext7_4 + DW HelpContext7_5 + DW NewLine + DW HelpContext7_6 + DW HelpContext7_7 + DW HelpContext7_27 + DW HelpContext7_29 + DW HelpContext7_30 + DW NewLine + DW HelpContext7_15 + DW HelpContext7_16 + DW HelpContext7_17 + DW HelpContext7_18 + DW HelpContext7_19 + DW NewLine + DW HelpContext7_20 + DW HelpContext7_21 + DW NewLine + DW Divider + DW NewLine + DW HelpGlobal_0 + DW HelpGlobal_1 + DW HelpGlobal_37 + DW HelpGlobal_3 + DW HelpGlobal_4 + DW HelpGlobal_20 + DW HelpGlobal_9 + DW HelpGlobal_22 + DW HelpGlobal_10 + DW HelpGlobal_19 + DW HelpGlobal_11 + DW HelpGlobal_12 + DW HelpGlobal_33 + DW HelpGlobal_13 + DW HelpGlobal_5 + DW HelpGlobal_23 + DW HelpGlobal_6 + DW HelpGlobal_2 + DW HelpGlobal_7 + DW HelpGlobal_8 + DW HelpGlobal_32 + DW NewLine + DW HelpGlobal_17 + DW HelpGlobal_31 + DW HelpGlobal_18 + DW NewLine + DW HelpGlobal_16 + DW HelpGlobal_34 + DW HelpGlobal_35 + DW HelpGlobal_36 + DW HelpGlobal_21 + DW HelpGlobal_14 + DW HelpGlobal_15 + DW NewLine + DW Divider DW 0 ; End of list @@ -1047,67 +1048,67 @@ HelpContext7_20 DB 5, 'Press Spacebar ', 9Fh, 'default ', 0A5h, 0 HelpContext7_21 DB 5, 'Release Space ', 0C3h, 'off command', 0 HelpContext9Ptrs Label Word - DW Offset HelpContext9_0 - DW Offset HelpContext9_1 - DW Offset HelpContext9_2 - DW Offset NewLine - DW Offset HelpContext9_3 - DW Offset HelpContext9_4 - DW Offset HelpContext9_11 - DW Offset HelpContext9_5 - DW Offset HelpContext9_6 - DW Offset HelpContext9_7 - DW Offset NewLine - DW Offset HelpContext9_15 - DW Offset HelpContext9_16 - DW Offset NewLine - DW Offset HelpContext9_8 - DW Offset HelpContext9_9 - DW Offset NewLine - DW Offset HelpContext9_10 - DW Offset NewLine - DW Offset HelpContext9_12 - DW Offset HelpContext9_14 - DW Offset NewLine - DW Offset HelpContext9_13 - DW Offset NewLine - DW Offset Divider - DW Offset NewLine - DW Offset HelpGlobal_0 - DW Offset HelpGlobal_1 - DW Offset HelpGlobal_37 - DW Offset HelpGlobal_3 - DW Offset HelpGlobal_4 - DW Offset HelpGlobal_20 - DW Offset HelpGlobal_9 - DW Offset HelpGlobal_22 - DW Offset HelpGlobal_10 - DW Offset HelpGlobal_19 - DW Offset HelpGlobal_11 - DW Offset HelpGlobal_12 - DW Offset HelpGlobal_33 - DW Offset HelpGlobal_13 - DW Offset HelpGlobal_5 - DW Offset HelpGlobal_23 - DW Offset HelpGlobal_6 - DW Offset HelpGlobal_2 - DW Offset HelpGlobal_7 - DW Offset HelpGlobal_8 - DW Offset HelpGlobal_32 - DW Offset NewLine - DW Offset HelpGlobal_17 - DW Offset HelpGlobal_31 - DW Offset HelpGlobal_18 - DW Offset NewLine - DW Offset HelpGlobal_16 - DW Offset HelpGlobal_34 - DW Offset HelpGlobal_35 - DW Offset HelpGlobal_36 - DW Offset HelpGlobal_21 - DW Offset HelpGlobal_14 - DW Offset HelpGlobal_15 - DW Offset NewLine - DW Offset Divider + DW HelpContext9_0 + DW HelpContext9_1 + DW HelpContext9_2 + DW NewLine + DW HelpContext9_3 + DW HelpContext9_4 + DW HelpContext9_11 + DW HelpContext9_5 + DW HelpContext9_6 + DW HelpContext9_7 + DW NewLine + DW HelpContext9_15 + DW HelpContext9_16 + DW NewLine + DW HelpContext9_8 + DW HelpContext9_9 + DW NewLine + DW HelpContext9_10 + DW NewLine + DW HelpContext9_12 + DW HelpContext9_14 + DW NewLine + DW HelpContext9_13 + DW NewLine + DW Divider + DW NewLine + DW HelpGlobal_0 + DW HelpGlobal_1 + DW HelpGlobal_37 + DW HelpGlobal_3 + DW HelpGlobal_4 + DW HelpGlobal_20 + DW HelpGlobal_9 + DW HelpGlobal_22 + DW HelpGlobal_10 + DW HelpGlobal_19 + DW HelpGlobal_11 + DW HelpGlobal_12 + DW HelpGlobal_33 + DW HelpGlobal_13 + DW HelpGlobal_5 + DW HelpGlobal_23 + DW HelpGlobal_6 + DW HelpGlobal_2 + DW HelpGlobal_7 + DW HelpGlobal_8 + DW HelpGlobal_32 + DW NewLine + DW HelpGlobal_17 + DW HelpGlobal_31 + DW HelpGlobal_18 + DW NewLine + DW HelpGlobal_16 + DW HelpGlobal_34 + DW HelpGlobal_35 + DW HelpGlobal_36 + DW HelpGlobal_21 + DW HelpGlobal_14 + DW HelpGlobal_15 + DW NewLine + DW Divider DW 0 HelpContext9_0 DB 33, 0FFh, 1, 139, 0FFh, 13, 134, 0FFh, 1, 138, 0 @@ -1135,53 +1136,53 @@ HelpContext9_14 DB 3, 80h, 'R', 0FFh, 13, ' Reverse output ', 0A3h, Helpcontext9_13 DB 3, 'G', 0FFh, 17, ' Goto ', 85h, 'currently playing', 0 HelpContext12Ptrs Label Word - DW Offset HelpContext12_0 - DW Offset HelpContext12_1 - DW Offset HelpContext12_2 - DW Offset NewLine - DW Offset HelpContext12_3 - DW Offset NewLine - DW Offset HelpContext12_4 - DW Offset HelpContext12_5 - DW Offset HelpContext12_6 - DW Offset NewLine - DW Offset Divider - DW Offset NewLine - DW Offset HelpGlobal_0 - DW Offset HelpGlobal_1 - DW Offset HelpGlobal_37 - DW Offset HelpGlobal_3 - DW Offset HelpGlobal_4 - DW Offset HelpGlobal_20 - DW Offset HelpGlobal_9 - DW Offset HelpGlobal_22 - DW Offset HelpGlobal_10 - DW Offset HelpGlobal_19 - DW Offset HelpGlobal_11 - DW Offset HelpGlobal_12 - DW Offset HelpGlobal_33 - DW Offset HelpGlobal_13 - DW Offset HelpGlobal_5 - DW Offset HelpGlobal_23 - DW Offset HelpGlobal_6 - DW Offset HelpGlobal_2 - DW Offset HelpGlobal_7 - DW Offset HelpGlobal_8 - DW Offset HelpGlobal_32 - DW Offset NewLine - DW Offset HelpGlobal_17 - DW Offset HelpGlobal_31 - DW Offset HelpGlobal_18 - DW Offset NewLine - DW Offset HelpGlobal_16 - DW Offset HelpGlobal_34 - DW Offset HelpGlobal_35 - DW Offset HelpGlobal_36 - DW Offset HelpGlobal_21 - DW Offset HelpGlobal_14 - DW Offset HelpGlobal_15 - DW Offset NewLine - DW Offset Divider + DW HelpContext12_0 + DW HelpContext12_1 + DW HelpContext12_2 + DW NewLine + DW HelpContext12_3 + DW NewLine + DW HelpContext12_4 + DW HelpContext12_5 + DW HelpContext12_6 + DW NewLine + DW Divider + DW NewLine + DW HelpGlobal_0 + DW HelpGlobal_1 + DW HelpGlobal_37 + DW HelpGlobal_3 + DW HelpGlobal_4 + DW HelpGlobal_20 + DW HelpGlobal_9 + DW HelpGlobal_22 + DW HelpGlobal_10 + DW HelpGlobal_19 + DW HelpGlobal_11 + DW HelpGlobal_12 + DW HelpGlobal_33 + DW HelpGlobal_13 + DW HelpGlobal_5 + DW HelpGlobal_23 + DW HelpGlobal_6 + DW HelpGlobal_2 + DW HelpGlobal_7 + DW HelpGlobal_8 + DW HelpGlobal_32 + DW NewLine + DW HelpGlobal_17 + DW HelpGlobal_31 + DW HelpGlobal_18 + DW NewLine + DW HelpGlobal_16 + DW HelpGlobal_34 + DW HelpGlobal_35 + DW HelpGlobal_36 + DW HelpGlobal_21 + DW HelpGlobal_14 + DW HelpGlobal_15 + DW NewLine + DW Divider DW 0 HelpContext12_0 DB 31, 0FFh, 1, 139, 0FFh, 18, 134, 0FFh, 1, 138, 0 @@ -1282,52 +1283,52 @@ DecodeWordCEh DB "Wipe ", 0 ; cursor, window DecodeBuffer DB 80 Dup (0) -DecodeWords DW Offset DecodeWord80h, Offset DecodeWord81h - DW Offset DecodeWord82h, Offset DecodeWord83h - DW Offset DecodeWord84h, Offset DecodeWord85h - DW Offset DecodeWord86h, Offset DecodeWord87h - DW Offset DecodeWord88h, Offset DecodeWord89h - DW Offset DecodeWord8Ah, Offset DecodeWord8Bh - DW Offset DecodeWord8Ch, Offset DecodeWord8Dh - DW Offset DecodeWord8Eh, Offset DecodeWord8Fh - DW Offset DecodeWord90h, Offset DecodeWord91h - DW Offset DecodeWord92h, Offset DecodeWord93h - DW Offset DecodeWord94h, Offset DecodeWord95h - DW Offset DecodeWord96h, Offset DecodeWord97h - DW Offset DecodeWord98h, Offset DecodeWord99h - DW Offset DecodeWord9Ah, Offset DecodeWord9Bh - DW Offset DecodeWord9Ch, Offset DecodeWord9Dh - DW Offset DecodeWord9Eh, Offset DecodeWord9Fh - DW Offset DecodeWordA0h, Offset DecodeWordA1h - DW Offset DecodeWordA2h, Offset DecodeWordA3h - DW Offset DecodeWordA4h, Offset DecodeWordA5h - DW Offset DecodeWordA6h, Offset DecodeWordA7h - DW Offset DecodeWordA8h, Offset DecodeWordA9h - DW Offset DecodeWordAAh, Offset DecodeWordABh - DW Offset DecodeWordACh, Offset DecodeWordADh - DW Offset DecodeWordAEh, Offset DecodeWordAFh - DW Offset DecodeWordB0h, Offset DecodeWordB1h - DW Offset DecodeWordB2h, Offset DecodeWordB3h - DW Offset DecodeWordB4h, Offset DecodeWordB5h - DW Offset DecodeWordB6h, Offset DecodeWordB7h - DW Offset DecodeWordB8h, Offset DecodeWordB9h - DW Offset DecodeWordBAh, Offset DecodeWordBBh - DW Offset DecodeWordBCh, Offset DecodeWordBDh - DW Offset DecodeWordBEh, Offset DecodeWordBFh - DW Offset DecodeWordC0h, Offset DecodeWordC1h - DW Offset DecodeWordC2h, Offset DecodeWordC3h - DW Offset DecodeWordC4h, Offset DecodeWordC5h - DW Offset DecodeWordC6h, Offset DecodeWordC7h - DW Offset DecodeWordC8h, Offset DecodeWordC9h - DW Offset DecodeWordCAh, Offset DecodeWordCBh - DW Offset DecodeWordCCh, Offset DecodeWordCDh - DW Offset DecodeWordCEh +DecodeWords DW DecodeWord80h, DecodeWord81h + DW DecodeWord82h, DecodeWord83h + DW DecodeWord84h, DecodeWord85h + DW DecodeWord86h, DecodeWord87h + DW DecodeWord88h, DecodeWord89h + DW DecodeWord8Ah, DecodeWord8Bh + DW DecodeWord8Ch, DecodeWord8Dh + DW DecodeWord8Eh, DecodeWord8Fh + DW DecodeWord90h, DecodeWord91h + DW DecodeWord92h, DecodeWord93h + DW DecodeWord94h, DecodeWord95h + DW DecodeWord96h, DecodeWord97h + DW DecodeWord98h, DecodeWord99h + DW DecodeWord9Ah, DecodeWord9Bh + DW DecodeWord9Ch, DecodeWord9Dh + DW DecodeWord9Eh, DecodeWord9Fh + DW DecodeWordA0h, DecodeWordA1h + DW DecodeWordA2h, DecodeWordA3h + DW DecodeWordA4h, DecodeWordA5h + DW DecodeWordA6h, DecodeWordA7h + DW DecodeWordA8h, DecodeWordA9h + DW DecodeWordAAh, DecodeWordABh + DW DecodeWordACh, DecodeWordADh + DW DecodeWordAEh, DecodeWordAFh + DW DecodeWordB0h, DecodeWordB1h + DW DecodeWordB2h, DecodeWordB3h + DW DecodeWordB4h, DecodeWordB5h + DW DecodeWordB6h, DecodeWordB7h + DW DecodeWordB8h, DecodeWordB9h + DW DecodeWordBAh, DecodeWordBBh + DW DecodeWordBCh, DecodeWordBDh + DW DecodeWordBEh, DecodeWordBFh + DW DecodeWordC0h, DecodeWordC1h + DW DecodeWordC2h, DecodeWordC3h + DW DecodeWordC4h, DecodeWordC5h + DW DecodeWordC6h, DecodeWordC7h + DW DecodeWordC8h, DecodeWordC9h + DW DecodeWordCAh, DecodeWordCBh + DW DecodeWordCCh, DecodeWordCDh + DW DecodeWordCEh ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc H_DrawHelp Far +H_DrawHelp:;:;Far Push CS Pop DS @@ -1335,7 +1336,7 @@ Proc H_DrawHelp Far Push CS Pop ES - Assume DS:Help + ;Assume DS:Help Mov CX, 32 Mov SI, HelpContext @@ -1360,7 +1361,7 @@ H_DrawHelp1: ; DS:SI points to string. Deposit into buffer Push DI - Mov DI, Offset DecodeBuffer + Mov DI, DecodeBuffer Mov DX, 1 @@ -1379,7 +1380,7 @@ H_DecodeBuffer2: ; Insert word Push SI - LEA SI, [EAX*2 + Offset DecodeWords - 100h] + LEA SI, [EAX*2 + DecodeWords - 100h] Inc DX Mov SI, [SI] Jmp H_DecodeBuffer1 @@ -1403,7 +1404,7 @@ H_DecodeBufferEnd: StosB Pop DI - Mov SI, Offset DecodeBuffer + Mov SI, DecodeBuffer Mov AH, 6 Call S_DrawString @@ -1416,12 +1417,12 @@ H_DecodeBufferEnd: Ret -EndP H_DrawHelp - Assume DS:Nothing +;EndP H_DrawHelp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc H_Help Far +H_Help:;Far Call Glbl_SaveMode @@ -1433,16 +1434,16 @@ Proc H_Help Far Mov AX, 5 Mov CX, Object1 - Mov DX, Offset O1_HelpList + Mov DX, O1_HelpList Mov SI, 1 Ret -EndP H_Help +;EndP H_Help ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc H_HelpUp Far +H_HelpUp:;Far Sub CS:TopLine, 1 AdC CS:Topline, 0 @@ -1450,17 +1451,17 @@ Proc H_HelpUp Far Mov AX, 1 Ret -EndP H_HelpUp +;EndP H_HelpUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc H_HelpDown Far +H_HelpDown:;Far Push CX Push CS Pop DS - Assume DS:Help + ;Assume DS:Help Mov SI, HelpContext Add SI, SI @@ -1484,12 +1485,12 @@ H_HelpDown1: Mov AX, 1 Ret -EndP H_HelpDown - Assume DS:Nothing +;EndP H_HelpDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc H_HelpPgUp Far +H_HelpPgUp:;Far Mov AX, CS:TopLine Sub AX, 32 @@ -1502,11 +1503,11 @@ H_HelpPgUp1: Mov AX, 1 Ret -EndP H_HelpPgUp +;EndP H_HelpPgUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc H_HelpPgDn Far +H_HelpPgDn:;Far Mov CX, 32 @@ -1516,11 +1517,11 @@ H_HelpPgDn1: Ret ; AX = 1, set by H_HelpDown -EndP H_HelpPgDn +;EndP H_HelpPgDn ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc H_HelpESC Far +H_HelpESC:;Far Mov AX, CS:TopLine Mov BX, CS:HelpContext @@ -1530,18 +1531,18 @@ Proc H_HelpESC Far Jmp Glbl_RestoreMode -EndP H_HelpESC +;EndP H_HelpESC ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc H_SetHelpContext Far +H_SetHelpContext:;Far Mov AX, [SI+2] Mov CS:HelpContext, AX Ret -EndP H_SetHelpContext +;EndP H_SetHelpContext ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� @@ -1549,4 +1550,4 @@ EndS ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -End +;End diff --git a/it_i.s b/it_i.s index 7fb5069..599ae22 100644 --- a/it_i.s +++ b/it_i.s @@ -2,109 +2,106 @@ ;� Instrument List module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386 - -include switch.inc -include network.inc +%include "switch.inc" +%include "network.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Segment Object1 BYTE Public 'Data' - Extrn SampleFrequency:Word + extern SampleFrequency:Word EndS Segment DiskData PARA Public 'Data' EndS Segment Pattern BYTE Public 'Code' - Extrn BaseOctave:Byte - Extrn LastInstrument:Byte + extern BaseOctave:Byte + extern LastInstrument:Byte EndS - Extrn F_Reset5NumInputPos:Far - Extrn Glbl_F4_2:Far + extern F_Reset5NumInputPos:Far + extern Glbl_F4_2:Far - Extrn Glbl_GetCurrentMode:Far - Extrn S_GetDestination:Far - Extrn S_SaveScreen:Far - Extrn S_RestoreScreen:Far - Extrn S_DrawString:Far - Extrn M_FunctionDivider:Far - Extrn M_Object1List:Far - Extrn M_Object1ListDefault:Far - Extrn Music_GetSongSegment:Far - Extrn Music_ReleaseSample:Far - Extrn Music_ClearSampleName:Far - Extrn Music_PlaySample:Far - Extrn Music_GetInstrumentMode:Far -; Extrn Music_UpdateSampleLocation:Far + extern Glbl_GetCurrentMode:Far + extern S_GetDestination:Far + extern S_SaveScreen:Far + extern S_RestoreScreen:Far + extern S_DrawString:Far + extern M_FunctionDivider:Far + extern M_Object1List:Far + extern M_Object1ListDefault:Far + extern Music_GetSongSegment:Far + extern Music_ReleaseSample:Far + extern Music_ClearSampleName:Far + extern Music_PlaySample:Far + extern Music_GetInstrumentMode:Far +; extern Music_UpdateSampleLocation:Far - Extrn S_GetGenerationTableOffset:Far - Extrn S_GenerateCharacters:Far - Extrn S_SetDirectMode:Far - Extrn S_DrawBox:Far - Extrn S_DrawSmallBox:Far + extern S_GetGenerationTableOffset:Far + extern S_GenerateCharacters:Far + extern S_SetDirectMode:Far + extern S_DrawBox:Far + extern S_DrawSmallBox:Far - Extrn O1_ConfirmDeleteSample:Far - Extrn O1_ConfirmConvertList:Far - Extrn O1_ConfirmConvert2List:Far - Extrn O1_ConfirmCutSample:Far - Extrn O1_ExchangeSampleList:Far - Extrn O1_ExchangeInstrumentList:Far - Extrn O1_SwapSampleList:Far - Extrn O1_SwapInstrumentList:Far - Extrn O1_ReplaceSampleList:Far - Extrn O1_ReplaceInstrumentList:Far - Extrn O1_ResizeSampleList:Far - Extrn O1_ShowSampleFrequencyList:Far - Extrn O1_FrequencyIndeterminedList:Far - Extrn O1_ConfirmDeleteInstrument:Far - Extrn O1_SampleAmplificationList:Far - Extrn O1_CopyInstrumentList:Far - Extrn O1_SampleCenterList:Far + extern O1_ConfirmDeleteSample:Far + extern O1_ConfirmConvertList:Far + extern O1_ConfirmConvert2List:Far + extern O1_ConfirmCutSample:Far + extern O1_ExchangeSampleList:Far + extern O1_ExchangeInstrumentList:Far + extern O1_SwapSampleList:Far + extern O1_SwapInstrumentList:Far + extern O1_ReplaceSampleList:Far + extern O1_ReplaceInstrumentList:Far + extern O1_ResizeSampleList:Far + extern O1_ShowSampleFrequencyList:Far + extern O1_FrequencyIndeterminedList:Far + extern O1_ConfirmDeleteInstrument:Far + extern O1_SampleAmplificationList:Far + extern O1_CopyInstrumentList:Far + extern O1_SampleCenterList:Far - Extrn O1_InstrumentListGeneral:Far - Extrn O1_InstrumentListVolume:Far - Extrn O1_InstrumentListPanning:Far - Extrn O1_InstrumentListPitch:Far - Extrn O1_C5FrequencyList:Far - Extrn O1_GetInstrumentAmpList:Far + extern O1_InstrumentListGeneral:Far + extern O1_InstrumentListVolume:Far + extern O1_InstrumentListPanning:Far + extern O1_InstrumentListPitch:Far + extern O1_C5FrequencyList:Far + extern O1_GetInstrumentAmpList:Far - Extrn PE_GetLastInstrument:Far - Extrn PE_SwapInstruments:Far - Extrn PE_UpdateInstruments:Far - Extrn PEFunction_OutOfMemoryMessage:Far - Extrn PE_TranslateMIDI:Far, PE_RestoreMIDINote:Far - Extrn PE_InsertInstrument:Far - Extrn PE_DeleteInstrument:Far + extern PE_GetLastInstrument:Far + extern PE_SwapInstruments:Far + extern PE_UpdateInstruments:Far + extern PEFunction_OutOfMemoryMessage:Far + extern PE_TranslateMIDI:Far, PE_RestoreMIDINote:Far + extern PE_InsertInstrument:Far + extern PE_DeleteInstrument:Far - Extrn Music_PlayPattern:Far - Extrn Music_Stop:Far - Extrn Music_PlaySong:Far - Extrn Music_PlayNote:Far - Extrn Music_ToggleChannel:Far - Extrn Music_SoloChannel:Far - Extrn Music_GetSampleLocation:Far - Extrn Music_ClearInstrument:Far - Extrn Music_GetInstrumentMode:Far - Extrn Music_AllocateSample:Far - Extrn Music_GetSlaveChannelInformationTable:Far - Extrn Music_SoundCardLoadAllSamples:Far - Extrn Music_GetNumChannels:Far + extern Music_PlayPattern:Far + extern Music_Stop:Far + extern Music_PlaySong:Far + extern Music_PlayNote:Far + extern Music_ToggleChannel:Far + extern Music_SoloChannel:Far + extern Music_GetSampleLocation:Far + extern Music_ClearInstrument:Far + extern Music_GetInstrumentMode:Far + extern Music_AllocateSample:Far + extern Music_GetSlaveChannelInformationTable:Far + extern Music_SoundCardLoadAllSamples:Far + extern Music_GetNumChannels:Far - Extrn Music_RegetLoopInformation:Far + extern Music_RegetLoopInformation:Far - Extrn SetInfoLine:Far + extern SetInfoLine:Far - Extrn MouseAddEvent:Far, AddMouseQueue:Far, MouseClearEvents:Far - Extrn SetKeyboardLock:Far, MouseSetXY:Far - Extrn MouseRemoveEvents:Far, MouseGetStatus:Far - Extrn SetMouseCursorType:Far + extern MouseAddEvent:Far, AddMouseQueue:Far, MouseClearEvents:Far + extern SetKeyboardLock:Far, MouseSetXY:Far + extern MouseRemoveEvents:Far, MouseGetStatus:Far + extern SetMouseCursorType:Far - Extrn Fourier_Transform:Far, Fourier_CreateTable:Far + extern Fourier_Transform:Far, Fourier_CreateTable:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -219,7 +216,7 @@ EndS ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Inst WORD Public 'Code' USE16 - Assume CS:Inst, DS:Nothing + ;Assume CS:Inst, DS:Nothing ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -810,7 +807,7 @@ PitchPanCenterKeys Label ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_GetInstrumentScreen Far +Proc I_GetInstrumentScreen Far Push CS Pop ES @@ -818,11 +815,11 @@ Proc I_GetInstrumentScreen Far Ret -EndP I_GetInstrumentScreen +;EndP I_GetInstrumentScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_GetInstrumentOffset Far +Proc I_GetInstrumentOffset Far Call PE_GetLastInstrument Add BX, BX @@ -832,11 +829,11 @@ Proc I_GetInstrumentOffset Far Ret -EndP I_GetInstrumentOffset +;EndP I_GetInstrumentOffset ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_GetSampleOffset Far +Proc I_GetSampleOffset Far Call PE_GetLastInstrument Add BX, BX @@ -846,11 +843,11 @@ Proc I_GetSampleOffset Far Ret -EndP I_GetSampleOffset +;EndP I_GetSampleOffset ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_GetEnvelopeOffset ; Returns DS:SI +Proc I_GetEnvelopeOffset ; Returns DS:SI Push AX Call I_GetInstrumentOffset ; Returns DS:BX @@ -862,17 +859,17 @@ Proc I_GetEnvelopeOffset ; Returns DS:SI Ret -EndP I_GetEnvelopeOffset +;EndP I_GetEnvelopeOffset ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SelectScreen Far +Proc I_SelectScreen Far Mov BX, [SI+22] Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov InstrumentScreen, BX @@ -884,11 +881,11 @@ Proc I_SelectScreen Far Jmp Glbl_F4_2 -EndP I_SelectScreen +;EndP I_SelectScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseSelectOff Far +Proc MouseSelectOff Far Mov Word Ptr [SI-16+8], 102h Mov CS:SampleMouseCondition, 102h @@ -896,22 +893,22 @@ Proc MouseSelectOff Far Ret -EndP MouseSelectOff +;EndP MouseSelectOff ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseSelectNoteOff Far +Proc MouseSelectNoteOff Far Mov Word Ptr [SI-16+8], 102h Mov CS:NoteMouseCondition, 102h Mov AX, 1 Ret -EndP MouseSelectNoteOff +;EndP MouseSelectNoteOff ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseSelectNote Far +Proc MouseSelectNote Far Mov CS:NoteMouseCondition, 1107h @@ -937,11 +934,11 @@ MouseSelectNote2: Xor AX, AX Ret -EndP MouseSelectNote +;EndP MouseSelectNote ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseSelectInst Far +Proc MouseSelectInst Far Mov CS:MouseX, CX @@ -974,11 +971,11 @@ MouseSelectInst3: Xor AX, AX Ret -EndP MouseSelectInst +;EndP MouseSelectInst ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc AddSelectEvent +Proc AddSelectEvent Call MouseGetStatus Test AL, 6 @@ -991,17 +988,17 @@ AddSelectEvent1: Ret -EndP AddSelectEvent +;EndP AddSelectEvent ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DrawSampleList Far +Proc I_DrawSampleList Far Call S_GetDestination Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument @@ -1014,7 +1011,7 @@ Proc I_DrawSampleList Far I_DrawSampleList1: Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov BX, TopSample Cmp BL, AL @@ -1060,7 +1057,7 @@ I_DrawSampleList4: Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov CX, 35 Mov DI, (5+13*80)*2 @@ -1117,7 +1114,7 @@ I_DrawSampleList8: Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument Xor AH, AH @@ -1141,7 +1138,7 @@ I_DrawSampleList7: ; Add on pointer... Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov SI, Offset SampleMouseEvent Mov Word Ptr [SI+4], 35*8-1 @@ -1153,17 +1150,17 @@ I_DrawSampleList7: Ret -EndP I_DrawSampleList - Assume DS:Nothing +;EndP I_DrawSampleList + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PreSampleList Far +Proc I_PreSampleList Far Call S_GetDestination Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument Xor AH, AH @@ -1181,7 +1178,7 @@ Proc I_PreSampleList Far Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Dec SI Add SI, SI @@ -1212,15 +1209,15 @@ I_PreSampleList1: StosB Ret -EndP I_PreSampleList +;EndP I_PreSampleList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PostSampleList Far +Proc I_PostSampleList Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov SI, Offset SampleListKeys Call M_FunctionDivider @@ -1232,7 +1229,7 @@ I_PostSampleList7: Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument Xor AH, AH @@ -1246,7 +1243,7 @@ I_PostSampleList7: Mov BX, AX ; BX = Pos. SI = LastInst Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Add SI, SI Mov SI, [64912+SI] ; SI = sample offset. @@ -1350,7 +1347,7 @@ I_PostSampleList8: Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, 12 Mul BaseOctave @@ -1359,7 +1356,7 @@ I_PostSampleList8: Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Call UpdateMultiChannel @@ -1380,11 +1377,11 @@ I_PostSampleList9: Xor AX, AX Ret -EndP I_PostSampleList +;EndP I_PostSampleList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleLeft Far +Proc I_SampleLeft Far Mov AX, SamplePos Dec AX @@ -1396,11 +1393,11 @@ I_SampleLeft1: Mov AX, 1 Ret -EndP I_SampleLeft +;EndP I_SampleLeft ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleRight Far +Proc I_SampleRight Far Mov AX, SamplePos Inc AX @@ -1413,11 +1410,11 @@ I_SampleRight1: Mov AX, 1 Ret -EndP I_SampleRight +;EndP I_SampleRight ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_RedrawWave +Proc I_RedrawWave Call Glbl_GetCurrentMode @@ -1435,12 +1432,12 @@ I_RedrawWave1: I_RedrawWave2: Ret -EndP I_RedrawWave +;EndP I_RedrawWave ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SelectInstrument2 - Assume DS:Inst +Proc I_SelectInstrument2 + ;Assume DS:Inst ; Set Instrument pos... Mov AX, MouseX @@ -1462,7 +1459,7 @@ I_SelectInstrument7: Add DX, TopInstrument Jmp I_SelectInstrument4 -Proc I_SelectInstrument Far +Proc I_SelectInstrument Far Mov AX, MouseX Sub AX, 40 @@ -1492,7 +1489,7 @@ I_SelectInstrument1: I_SelectInstrument3: Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Cmp DL, LastInstrument Mov LastInstrument, DL @@ -1504,18 +1501,18 @@ I_SelectInstrument5: Mov AX, 1 Ret -EndP I_SelectInstrument +;EndP I_SelectInstrument -EndP I_SelectInstrument2 - Assume DS:Nothing +;EndP I_SelectInstrument2 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleDown Far +Proc I_SampleDown Far Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument @@ -1531,16 +1528,16 @@ I_SampleDown1: Mov AX, 1 Ret -EndP I_SampleDown - Assume DS:Nothing +;EndP I_SampleDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleUp Far +Proc I_SampleUp Far Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument @@ -1554,16 +1551,16 @@ I_SampleUp1: Mov AX, 1 Ret -EndP I_SampleUp - Assume DS:Nothing +;EndP I_SampleUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SamplePgUp Far +Proc I_SamplePgUp Far Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument @@ -1585,16 +1582,16 @@ I_SamplePgUp3: Mov AX, 1 Ret -EndP I_SamplePgUp - Assume DS:Nothing +;EndP I_SamplePgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SamplePgDn Far +Proc I_SamplePgDn Far Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument Cmp AL, 99 @@ -1614,16 +1611,16 @@ I_SamplePgDn2: Mov AX, 1 Ret -EndP I_SamplePgDn - Assume DS:Nothing +;EndP I_SamplePgDn + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleCtrlPgUp Far +Proc I_SampleCtrlPgUp Far Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov LastInstrument, 1 Call I_RedrawWave @@ -1631,15 +1628,15 @@ Proc I_SampleCtrlPgUp Far Mov AX, 1 Ret -EndP I_SampleCtrlPgUp +;EndP I_SampleCtrlPgUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleCtrlPgDn Far +Proc I_SampleCtrlPgDn Far Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov LastInstrument, 99 Call I_RedrawWave @@ -1647,44 +1644,44 @@ Proc I_SampleCtrlPgDn Far Mov AX, 1 Ret -EndP I_SampleCtrlPgDn +;EndP I_SampleCtrlPgDn ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleEnd Far +Proc I_SampleEnd Far Mov SamplePos, 25 Mov AX, 1 Ret -EndP I_SampleEnd +;EndP I_SampleEnd ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleHome Far +Proc I_SampleHome Far Mov SamplePos, 0 Mov AX, 1 Ret -EndP I_SampleHome +;EndP I_SampleHome ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleTab Far +Proc I_SampleTab Far Mov Word Ptr [ES:DI], 7 Mov AX, 1 Ret -EndP I_SampleTab +;EndP I_SampleTab ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ShowSampleInfo Far +Proc I_ShowSampleInfo Far Call I_GetSampleOffset @@ -1694,7 +1691,7 @@ Proc I_ShowSampleInfo Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov SI, Offset NoSampleMsg @@ -1721,11 +1718,11 @@ I_ShowSampleInfo2: Ret -EndP I_ShowSampleInfo +;EndP I_ShowSampleInfo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VibratoButtonSelect Far +Proc I_VibratoButtonSelect Far Call I_GetSampleOffset Mov AL, [BX+04Fh] ; AL = type. @@ -1737,7 +1734,7 @@ Proc I_VibratoButtonSelect Far I_VibratoButtonSelect1: Mov SI, [ES:DI] - Mov CH, AH ; Assume up + Mov CH, AH ; ;Assume up Cmp AL, CL JNE I_VibratoButtonSelect2 @@ -1754,11 +1751,11 @@ I_VibratoButtonSelect2: Ret -EndP I_VibratoButtonSelect +;EndP I_VibratoButtonSelect ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SetVibratoWaveform Far ; AH = waveform. +Proc I_SetVibratoWaveform Far ; AH = waveform. Mov AX, [SI+24] Push AX @@ -1769,11 +1766,11 @@ Proc I_SetVibratoWaveform Far ; AH = waveform. Ret -EndP I_SetVibratoWaveform +;EndP I_SetVibratoWaveform ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_CheckLoopValues Far +Proc I_CheckLoopValues Far Call I_GetSampleOffset @@ -1804,11 +1801,11 @@ I_CheckLoopValues1: Call I_DrawWaveForm Ret -EndP I_CheckLoopValues +;EndP I_CheckLoopValues ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_CheckSusLoopValues Far +Proc I_CheckSusLoopValues Far Call I_GetSampleOffset @@ -1839,11 +1836,11 @@ I_CheckSusLoopValues1: Call I_DrawWaveForm Ret -EndP I_CheckSusLoopValues +;EndP I_CheckSusLoopValues ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DrawWaveForm Far +Proc I_DrawWaveForm Far Mov [CS:LastWaveformValues], 7f80h @@ -1856,7 +1853,7 @@ Proc I_DrawWaveForm Far Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument And AL, AL @@ -1869,7 +1866,7 @@ I_DrawWaveForm1: Xor AH, AH Xor CX, CX Call Music_GetSampleLocation - Assume DS:Nothing + ;Assume DS:Nothing JC I_DrawWaveFormEnd @@ -2109,11 +2106,11 @@ I_DrawWaveFormEnd: Ret -EndP I_DrawWaveForm +;EndP I_DrawWaveForm ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DeleteSample Far +Proc I_DeleteSample Far Mov DI, Offset O1_ConfirmDeleteSample Mov CX, 4 @@ -2126,7 +2123,7 @@ Proc I_DeleteSample Far Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument Dec AX @@ -2141,14 +2138,14 @@ I_DeleteSample1: Mov AX, 1 Ret -EndP I_DeleteSample - Assume DS:Nothing +;EndP I_DeleteSample + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� C5Speed DD 0 -Proc I_CalculateC5Speed Far +Proc I_CalculateC5Speed Far Mov AX, 1 Ret @@ -2305,15 +2302,15 @@ I_CalculateC5SpeedEnd: Ret ! -EndP I_CalculateC5Speed +;EndP I_CalculateC5Speed ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PrintC5Frequency Far +Proc I_PrintC5Frequency Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Push C5Speed @@ -2327,12 +2324,12 @@ Proc I_PrintC5Frequency Far Ret -EndP I_PrintC5Frequency - Assume DS:Nothing +;EndP I_PrintC5Frequency + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DeleteInstrument Far +Proc I_DeleteInstrument Far Mov DI, Offset O1_ConfirmDeleteInstrument Mov CX, 4 @@ -2376,11 +2373,11 @@ I_DeleteInstrument1: Mov AX, 1 Ret -EndP I_DeleteInstrument +;EndP I_DeleteInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ConvertSample Far ; Signed/Unsigned +Proc I_ConvertSample Far ; Signed/Unsigned EnsureNoNetwork @@ -2439,11 +2436,11 @@ I_ConvertSample3: Int 3 Jmp I_ConvertSample4 -EndP I_ConvertSample +;EndP I_ConvertSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InvertSample Far ; Signed/Unsigned +Proc I_InvertSample Far ; Signed/Unsigned EnsureNoNetwork @@ -2501,11 +2498,11 @@ I_InvertSample_16Bit2: Int 3 Jmp I_InvertSample_16Bit1 -EndP I_InvertSample +;EndP I_InvertSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_CutSampleBeforeLoopUpdateLoop Near +Proc I_CutSampleBeforeLoopUpdateLoop Near Sub [DS:BX+DI], EDX JNC I_CutSampleBeforeLoopUpdateLoop1 @@ -2516,11 +2513,11 @@ I_CutSampleBeforeLoopUpdateLoop1: Add DI, 4 Ret -EndP I_CutSampleBeforeLoopUpdateLoop +;EndP I_CutSampleBeforeLoopUpdateLoop ;컴컴컴컴컴컴컴 -Proc I_CutSampleBeforeLoop Far +Proc I_CutSampleBeforeLoop Far EnsureNoNetwork @@ -2581,7 +2578,7 @@ I_CutSampleBeforeLoop6: ; To diskdata segment first. Mov AX, DiskData Mov ES, AX - Assume ES:Nothing + ;Assume ES:Nothing Xor EDI, EDI @@ -2651,11 +2648,11 @@ I_CutSampleBeforeLoop10: Int 3 Jmp I_CutSampleBeforeLoop11 -EndP I_CutSampleBeforeLoop +;EndP I_CutSampleBeforeLoop ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_CutSample Far +Proc I_CutSample Far EnsureNoNetwork @@ -2696,7 +2693,7 @@ I_CutSample1: Mov AX, 1 Ret -Proc I_CutSampleCheckValue Near +Proc I_CutSampleCheckValue Near Cmp DWord Ptr [DS:BX+DI], EAX JBE I_CutSampleCheckValue1 @@ -2706,14 +2703,14 @@ Proc I_CutSampleCheckValue Near I_CutSampleCheckValue1: Ret -EndP I_CutSampleCheckValue +;EndP I_CutSampleCheckValue -EndP I_CutSample +;EndP I_CutSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ClearSampleName Far - Assume DS:Inst +Proc I_ClearSampleName Far + ;Assume DS:Inst Mov SamplePos, 0 @@ -2741,12 +2738,12 @@ I_ClearSampleName3: Inc AX Ret -EndP I_ClearSampleName - Assume DS:Nothing +;EndP I_ClearSampleName + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InsertSample Far +Proc I_InsertSample Far EnsureNoNetwork @@ -2840,11 +2837,11 @@ I_InsertSampleEnd: Mov AX, 1 Ret -EndP I_InsertSample +;EndP I_InsertSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_RemoveSample Far +Proc I_RemoveSample Far EnsureNoNetwork @@ -2928,11 +2925,11 @@ I_RemoveSampleEnd: Mov AX, 1 Ret -EndP I_RemoveSample +;EndP I_RemoveSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InsertInstrument Far +Proc I_InsertInstrument Far EnsureNoNetwork @@ -2981,11 +2978,11 @@ I_InsertInstrumentEnd: Mov AX, 1 Ret -EndP I_InsertInstrument +;EndP I_InsertInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_RemoveInstrument Far +Proc I_RemoveInstrument Far EnsureNoNetwork @@ -3029,11 +3026,11 @@ I_RemoveInstrumentEnd: Mov AX, 1 Ret -EndP I_RemoveInstrument +;EndP I_RemoveInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetSampleNumber ; Carry if not a num. +Proc GetSampleNumber ; Carry if not a num. ; DX otherwise, Push CS Pop DS @@ -3070,11 +3067,11 @@ GetSampleNumber2: ; ClC Ret -EndP GetSampleNumber +;EndP GetSampleNumber ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetNumberInput ; DI = Offset of list. +Proc GetNumberInput ; DI = Offset of list. ; Returns DX with sample number. Push DI @@ -3110,11 +3107,11 @@ GetNumberInput1: Mov AX, 1 RetF -EndP GetNumberInput +;EndP GetNumberInput ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ExchangeSamples Far +Proc I_ExchangeSamples Far ; Clear input... @@ -3156,11 +3153,11 @@ I_ExchangeSamples1: Mov AX, 1 Ret -EndP I_ExchangeSamples +;EndP I_ExchangeSamples ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SwapSamples Far +Proc I_SwapSamples Far ; Clear input... @@ -3252,11 +3249,11 @@ I_SwapSamples1: Mov AX, 1 Ret -EndP I_SwapSamples +;EndP I_SwapSamples ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ReplaceSample Far +Proc I_ReplaceSample Far EnsureNoNetwork @@ -3321,12 +3318,12 @@ I_ReplaceSample1: Mov AX, 1 Ret -EndP I_ReplaceSample +;EndP I_ReplaceSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ReMix - Assume DS:Nothing +Proc I_ReMix + ;Assume DS:Nothing EnsureNoNetwork @@ -3368,7 +3365,7 @@ I_ReMixNoMix: I_ReMixEnoughMem: Mov AX, DiskData Mov ES, AX - Assume ES:Nothing + ;Assume ES:Nothing Call PE_GetLastInstrument ; Into BX Mov AX, BX @@ -3666,21 +3663,21 @@ I_ReMix7: I_ReMixEnd: Ret -EndP I_ReMix - Assume DS:Nothing +;EndP I_ReMix + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ResizeSample Far +Proc I_ResizeSample Far Mov CS:Interpolate, 1 Jmp I_ResizeJumpPoint -EndP I_ResizeSample +;EndP I_ResizeSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ResizeSampleNoInt Far +Proc I_ResizeSampleNoInt Far Mov CS:Interpolate, 0 @@ -3715,7 +3712,7 @@ I_ResizeJumpPoint: Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov EDX, NewSampleSize And EDX, EDX @@ -3727,12 +3724,12 @@ I_ResizeSampleNoInt1: Mov AX, 1 Ret -EndP I_ResizeSampleNoInt - Assume DS:Nothing +;EndP I_ResizeSampleNoInt + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_CenterSample Far +Proc I_CenterSample Far EnsureNoNetwork @@ -3887,11 +3884,11 @@ I_CenterSampleEnd: Mov AX, 1 Ret -EndP I_CenterSample +;EndP I_CenterSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_AmplifySample Far +Proc I_AmplifySample Far EnsureNoNetwork @@ -4093,11 +4090,11 @@ I_AmplifySampleEnd: Mov AX, 1 Ret -EndP I_AmplifySample +;EndP I_AmplifySample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ReverseSample Far +Proc I_ReverseSample Far EnsureNoNetwork @@ -4131,7 +4128,7 @@ Proc I_ReverseSample Far Mov AX, DiskData Mov ES, AX - Assume ES:Nothing + ;Assume ES:Nothing Xor EDI, EDI @@ -4209,7 +4206,7 @@ I_ReverseSample10: Mov AX, DiskData Mov ES, AX - Assume ES:Nothing + ;Assume ES:Nothing Xor EDI, EDI @@ -4320,11 +4317,11 @@ I_ReverseSample1: Mov AX, 1 Ret -EndP I_ReverseSample +;EndP I_ReverseSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SwapMemoryAllocation +Proc I_SwapMemoryAllocation Call I_GetSampleOffset ; Gets DS:BX Mov SI, [DS:64912+99*2] @@ -4337,11 +4334,11 @@ Proc I_SwapMemoryAllocation Ret -EndP I_SwapMemoryAllocation +;EndP I_SwapMemoryAllocation ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_RepositionSample +Proc I_RepositionSample Push AX @@ -4363,11 +4360,11 @@ Proc I_RepositionSample Pop AX Ret -EndP I_RepositionSample +;EndP I_RepositionSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ToggleSampleQuality Far +Proc I_ToggleSampleQuality Far EnsureNoNetwork @@ -4428,7 +4425,7 @@ I_ConvertTo8Bit: Mov AX, DiskData Mov ES, AX - Assume ES:Nothing + ;Assume ES:Nothing Xor EDI, EDI @@ -4560,7 +4557,7 @@ I_ConvertTo16Bit: Mov AX, DiskData Mov ES, AX - Assume ES:Nothing + ;Assume ES:Nothing Xor EDI, EDI @@ -4646,17 +4643,17 @@ I_ToggleSampleQuality1: Mov AX, 1 Ret -EndP I_ToggleSampleQuality +;EndP I_ToggleSampleQuality ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DrawInstrumentWindow Far +Proc I_DrawInstrumentWindow Far Call S_GetDestination Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument Test AL, AL @@ -4670,7 +4667,7 @@ I_DrawInstrumentWindow1: ; AL = last instrument Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov BX, TopInstrument Cmp AX, BX @@ -4716,7 +4713,7 @@ I_DrawInstrumentWindow4: Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov DX, 35 Mov DI, (5+13*80)*2 @@ -4774,17 +4771,17 @@ I_DrawInstrumentNoMouse: Ret -EndP I_DrawInstrumentWindow - Assume DS:Nothing +;EndP I_DrawInstrumentWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PreInstrumentWindow Far +Proc I_PreInstrumentWindow Far Call S_GetDestination Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, LastInstrument Xor AH, AH @@ -4816,12 +4813,12 @@ I_PreInstrumentWindow2: Ret -EndP I_PreInstrumentWindow - Assume DS:Nothing +;EndP I_PreInstrumentWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDI_AllocateChannel Far ; Given AX = Base channel, DL = note +Proc MIDI_AllocateChannel Far ; Given AX = Base channel, DL = note ; Finds physical channel, returns AX ; if no channel available, then ; overtakes channel at base channel @@ -4832,7 +4829,7 @@ Proc MIDI_AllocateChannel Far ; Given AX = Base channel, DL = note Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov DX, AX Mov BX, AX @@ -4877,22 +4874,22 @@ MIDI_AllocateChannelEnd: Pop DS SI DX CX BX Ret -EndP MIDI_AllocateChannel +;EndP MIDI_AllocateChannel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDI_GetChannel Far +Proc MIDI_GetChannel Far Xor AX, AX Mov AL, [CS:MIDITable+BX] Ret -EndP MIDI_GetChannel +;EndP MIDI_GetChannel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDI_FindChannel Far ; Given BX = Note, returns AX = channel +Proc MIDI_FindChannel Far ; Given BX = Note, returns AX = channel ; number, cleans up table, AL = 0FFh = ; note not present @@ -4902,11 +4899,11 @@ Proc MIDI_FindChannel Far ; Given BX = Note, returns AX = channel Ret -EndP MIDI_FindChannel +;EndP MIDI_FindChannel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDI_ClearTable Far +Proc MIDI_ClearTable Far Push AX CX ES DI @@ -4922,15 +4919,15 @@ Proc MIDI_ClearTable Far Ret -EndP MIDI_ClearTable +;EndP MIDI_ClearTable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDI_NoteOff Far +Proc MIDI_NoteOff Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst ; DL = note MIDI_NoteOff2: @@ -4957,16 +4954,16 @@ MIDI_NoteOff1: ; Xor AX, AX Ret -EndP MIDI_NoteOff - Assume DS:Nothing +;EndP MIDI_NoteOff + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDI_PlayNote Far +Proc MIDI_PlayNote Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Call PE_TranslateMIDI JC MIDI_PlayNote1 @@ -5000,16 +4997,16 @@ MIDI_PlayNote1: Ret -EndP MIDI_PlayNote - Assume DS:Nothing +;EndP MIDI_PlayNote + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PlayNote Far +Proc I_PlayNote Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Test CH, Not 1 JNZ I_PlayNote5 @@ -5037,7 +5034,7 @@ I_PlayNote1: Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, 12 Mul BaseOctave @@ -5098,13 +5095,13 @@ I_PlayNote5: Xor AX, AX Ret -EndP I_PlayNote - Assume DS:Nothing +;EndP I_PlayNote + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PostInstrumentWindow Far - Assume DS:Inst +Proc I_PostInstrumentWindow Far + ;Assume DS:Inst Push CS Pop DS @@ -5134,7 +5131,7 @@ I_PostInstrumentWindow13: ; BX = Pos, SI = LastInst Call Music_GetSongSegment Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Add SI, SI Mov SI, [64712+SI] ; SI = instrument offset. @@ -5194,7 +5191,7 @@ I_PostInstrumentWindow12: Ret I_PostInstrumentWindow5: - Assume DS:Inst + ;Assume DS:Inst Cmp CX, 1D3h ; Delete... JNE I_PostInstrumentWindow6 @@ -5209,7 +5206,7 @@ I_PostInstrumentWindow6: Ret I_PostInstrumentWindow7: - Assume DS:Inst + ;Assume DS:Inst Cmp DX, ' ' ; Spacebar JNE I_PostInstrumentWindow14 @@ -5223,14 +5220,14 @@ I_PostInstrumentWindow14: Xor AX, AX Ret -EndP I_PostInstrumentWindow - Assume DS:Nothing +;EndP I_PostInstrumentWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentLeft Far +Proc I_InstrumentLeft Far - Assume DS:Inst + ;Assume DS:Inst Cmp InstrumentEdit, 0 JE I_InstrumentLeft2 @@ -5248,14 +5245,14 @@ I_InstrumentLeft1: Mov AX, 1 Ret -EndP I_InstrumentLeft - Assume DS:Nothing +;EndP I_InstrumentLeft + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentRight Far +Proc I_InstrumentRight Far - Assume DS:Inst + ;Assume DS:Inst Cmp InstrumentEdit, 0 JE I_InstrumentRight2 @@ -5274,62 +5271,62 @@ I_InstrumentRight1: Ret -EndP I_InstrumentRight - Assume DS:Nothing +;EndP I_InstrumentRight + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentHome Far +Proc I_InstrumentHome Far - Assume DS:Inst + ;Assume DS:Inst Mov InstrumentPos, 0 Mov AX, 1 Ret -EndP I_InstrumentHome - Assume DS:Nothing +;EndP I_InstrumentHome + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentEnd Far +Proc I_InstrumentEnd Far - Assume DS:Inst + ;Assume DS:Inst Mov InstrumentPos, 24 Mov AX, 1 Ret -EndP I_InstrumentEnd - Assume DS:Nothing +;EndP I_InstrumentEnd + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentTab Far +Proc I_InstrumentTab Far Mov Word Ptr [ES:DI], 5 Mov AX, 1 Ret -EndP I_InstrumentTab +;EndP I_InstrumentTab ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentShiftTab Far +Proc I_InstrumentShiftTab Far Mov Word Ptr [ES:DI], 8 Mov AX, 1 Ret -EndP I_InstrumentShiftTab +;EndP I_InstrumentShiftTab ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentNameClear Far +Proc I_InstrumentNameClear Far Call I_GetInstrumentOffset Push DS @@ -5350,11 +5347,11 @@ Proc I_InstrumentNameClear Far Inc AX Ret -EndP I_InstrumentNameClear +;EndP I_InstrumentNameClear ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentClear Far +Proc I_InstrumentClear Far Call PE_GetLastInstrument Mov AX, BX @@ -5367,15 +5364,15 @@ Proc I_InstrumentClear Far Mov AX, 1 Ret -EndP I_InstrumentClear +;EndP I_InstrumentClear ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DrawNoteWindow Far +Proc I_DrawNoteWindow Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov SI, Offset NoteMouseEvent Call AddSelectEvent @@ -5497,15 +5494,15 @@ I_DrawNoteWindow6: Ret -EndP I_DrawNoteWindow +;EndP I_DrawNoteWindow ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PreNoteWindow Far +Proc I_PreNoteWindow Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Call S_GetDestination Mov AX, CurrentNote @@ -5538,16 +5535,16 @@ I_PreNoteWindow1: Ret -EndP I_PreNoteWindow - Assume DS:Nothing +;EndP I_PreNoteWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PostNoteWindow Far +Proc I_PostNoteWindow Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov SI, Offset NoteListKeys Call M_FunctionDivider @@ -5577,14 +5574,14 @@ I_PostNoteWindow2: Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AL, 12 Mul BaseOctave Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov SI, CurrentNote Add SI, SI @@ -5634,7 +5631,7 @@ I_PostNoteWindow5: Add SI, SI Call I_GetInstrumentOffset - Assume DS:Nothing + ;Assume DS:Nothing ; DS:BX points to inst. Add BX, 40h @@ -5660,7 +5657,7 @@ I_PostNoteWindow6: Add SI, SI Call I_GetInstrumentOffset - Assume DS:Nothing + ;Assume DS:Nothing Add BX, SI Add BX, 41h Mov Byte Ptr [BX], 0 @@ -5725,13 +5722,13 @@ I_PostNoteWindowEnd: NetworkSendInstrument Jmp I_NoteDown -EndP I_PostNoteWindow - Assume DS:Nothing +;EndP I_PostNoteWindow + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SelectNoteMouse Far - Assume DS:Inst +Proc I_SelectNoteMouse Far + ;Assume DS:Inst ShR DX, 3 Add DX, TopNote @@ -5752,14 +5749,14 @@ I_SelectNoteMouse2: Mov AX, 1 Ret -EndP I_SelectNoteMouse - Assume DS:Nothing +;EndP I_SelectNoteMouse + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteUp Far +Proc I_NoteUp Far - Assume DS:Inst + ;Assume DS:Inst Mov AX, CurrentNote Dec AX @@ -5775,16 +5772,16 @@ I_NoteUp1: Mov AX, 1 Ret -EndP I_NoteUp - Assume DS:Nothing +;EndP I_NoteUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteDown Far +Proc I_NoteDown Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov AX, CurrentNote Inc AX @@ -5797,14 +5794,14 @@ I_NoteDown1: Mov AX, 1 Ret -EndP I_NoteDown - Assume DS:Nothing +;EndP I_NoteDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NotePgUp Far +Proc I_NotePgUp Far - Assume DS:Inst + ;Assume DS:Inst Mov AX, CurrentNote Sub AX, 12 @@ -5818,14 +5815,14 @@ I_NotePgUp1: Mov AX, 1 Ret -EndP I_NotePgUp - Assume DS:Nothing +;EndP I_NotePgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NotePgDn Far +Proc I_NotePgDn Far - Assume DS:Inst + ;Assume DS:Inst Mov AX, CurrentNote Add AX, 12 @@ -5840,16 +5837,16 @@ I_NotePgDn1: Mov AX, 1 Ret -EndP I_NotePgDn - Assume DS:Nothing +;EndP I_NotePgDn + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteRight Far +Proc I_NoteRight Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov AX, NotePos Inc AX @@ -5864,14 +5861,14 @@ I_NoteRight1: Mov AX, 1 Ret -EndP I_NoteRight - Assume DS:Nothing +;EndP I_NoteRight + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteLeft Far +Proc I_NoteLeft Far - Assume DS:Inst + ;Assume DS:Inst Mov AX, NotePos Dec AX JS I_NoteLeft1 @@ -5882,64 +5879,64 @@ I_NoteLeft1: Mov AX, 1 Ret -EndP I_NoteLeft - Assume DS:Nothing +;EndP I_NoteLeft + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteHome Far - Assume DS:Inst +Proc I_NoteHome Far + ;Assume DS:Inst Mov CurrentNote, 0 Mov AX, 1 Ret -EndP I_NoteHome - Assume DS:Nothing +;EndP I_NoteHome + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteEnd Far - Assume DS:Inst +Proc I_NoteEnd Far + ;Assume DS:Inst Mov CurrentNote, 119 Mov AX, 1 Ret -EndP I_NoteEnd - Assume DS:Nothing +;EndP I_NoteEnd + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteTab Far +Proc I_NoteTab Far Mov Word Ptr [ES:DI], 16 Mov AX, 1 Ret -EndP I_NoteTab - Assume DS:Nothing +;EndP I_NoteTab + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteShiftTab Far +Proc I_NoteShiftTab Far Mov Word Ptr [ES:DI], 4 Mov AX, 1 Ret -EndP I_NoteShiftTab - Assume DS:Nothing +;EndP I_NoteShiftTab + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteSampleIncrease Far +Proc I_NoteSampleIncrease Far - Assume DS:Inst + ;Assume DS:Inst Mov AL, SampleNumber Inc AX @@ -5952,14 +5949,14 @@ I_NoteSampleIncrease1: Mov AX, 1 Ret -EndP I_NoteSampleIncrease - Assume DS:Nothing +;EndP I_NoteSampleIncrease + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteSampleDecrease Far +Proc I_NoteSampleDecrease Far - Assume DS:Inst + ;Assume DS:Inst Mov AL, SampleNumber Dec AL @@ -5971,14 +5968,14 @@ I_NoteSampleDecrease1: Mov AX, 1 Ret -EndP I_NoteSampleDecrease - Assume DS:Nothing +;EndP I_NoteSampleDecrease + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteSamplePickUp Far +Proc I_NoteSamplePickUp Far - Assume DS:Nothing + ;Assume DS:Nothing Call I_GetInstrumentOffset @@ -5994,19 +5991,19 @@ Proc I_NoteSamplePickUp Far Mov AX, 1 Ret -EndP I_NoteSamplePickUp +;EndP I_NoteSamplePickUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteNext Far - Assume DS:Inst +Proc I_NoteNext Far + ;Assume DS:Inst Mov SI, CurrentNote Add SI, SI JZ I_NoteNext1 Call I_GetInstrumentOffset - Assume DS:Nothing + ;Assume DS:Nothing Add BX, SI Add BX, 40h @@ -6025,13 +6022,13 @@ I_NoteNext1: Mov AX, 1 Ret -EndP I_NoteNext - Assume DS:Nothing +;EndP I_NoteNext + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NotePrevious Far - Assume DS:Inst +Proc I_NotePrevious Far + ;Assume DS:Inst Mov SI, CurrentNote Cmp SI, 119 @@ -6040,7 +6037,7 @@ Proc I_NotePrevious Far Add SI, SI Call I_GetInstrumentOffset - Assume DS:Nothing + ;Assume DS:Nothing Add BX, SI Add BX, 40h @@ -6054,7 +6051,7 @@ Proc I_NotePrevious Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov AX, CurrentNote Dec AX @@ -6068,14 +6065,14 @@ I_NotePrevious1: Mov AX, 1 Ret -EndP I_NotePrevious - Assume DS:Nothing +;EndP I_NotePrevious + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteAll Far +Proc I_NoteAll Far - Assume DS:Nothing + ;Assume DS:Nothing Call I_GetInstrumentOffset Push DS @@ -6111,14 +6108,14 @@ I_NoteAll2: Mov AX, 1 Ret -EndP I_NoteAll - Assume DS:Nothing +;EndP I_NoteAll + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteInsert Far +Proc I_NoteInsert Far - Assume DS:Nothing + ;Assume DS:Nothing Call I_GetInstrumentOffset Push DS @@ -6137,13 +6134,13 @@ Proc I_NoteInsert Far Mov AX, 1 Ret -EndP I_NoteInsert +;EndP I_NoteInsert ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteDelete Far +Proc I_NoteDelete Far - Assume DS:Nothing + ;Assume DS:Nothing Call I_GetInstrumentOffset Push DS @@ -6161,13 +6158,13 @@ Proc I_NoteDelete Far Mov AX, 1 Ret -EndP I_NoteDelete +;EndP I_NoteDelete ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteTransposeUp Far +Proc I_NoteTransposeUp Far - Assume DS:Nothing + ;Assume DS:Nothing Call I_GetInstrumentOffset Push DS @@ -6194,14 +6191,14 @@ I_NoteTransposeUp2: Mov AX, 1 Ret -EndP I_NoteTransposeUp - Assume DS:Nothing +;EndP I_NoteTransposeUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteTransposeDown Far +Proc I_NoteTransposeDown Far - Assume DS:Nothing + ;Assume DS:Nothing Call I_GetInstrumentOffset Push DS @@ -6224,14 +6221,14 @@ I_NoteTransposeDown1: Mov AX, 1 Ret -EndP I_NoteTransposeDown - Assume DS:Nothing +;EndP I_NoteTransposeDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_NoteSpace Far +Proc I_NoteSpace Far - Assume DS:Inst + ;Assume DS:Inst Cmp NotePos, 2 JB I_NoteSpace1 @@ -6239,7 +6236,7 @@ Proc I_NoteSpace Far Add SI, SI Call I_GetInstrumentOffset - Assume DS:Nothing + ;Assume DS:Nothing Mov AL, SampleNumber Mov [BX+SI+41h], AL @@ -6250,12 +6247,12 @@ I_NoteSpace1: Xor AX, AX Ret -EndP I_NoteSpace - Assume DS:Nothing +;EndP I_NoteSpace + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ExchangeInstruments Far +Proc I_ExchangeInstruments Far EnsureNoNetwork @@ -6294,11 +6291,11 @@ I_ExchangeInstruments1: Mov AX, 1 Ret -EndP I_ExchangeInstruments +;EndP I_ExchangeInstruments ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DoubleSampleSpeed Far +Proc I_DoubleSampleSpeed Far Call I_GetSampleOffset Mov EAX, [BX+3Ch] @@ -6314,11 +6311,11 @@ I_DoubleSampleSpeed1: Mov AX, 1 Ret -EndP I_DoubleSampleSpeed +;EndP I_DoubleSampleSpeed ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_HalveSampleSpeed Far +Proc I_HalveSampleSpeed Far Call I_GetSampleOffset ShR DWord Ptr [BX+3Ch], 1 @@ -6328,11 +6325,11 @@ Proc I_HalveSampleSpeed Far Mov AX, 1 Ret -EndP I_HalveSampleSpeed +;EndP I_HalveSampleSpeed ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleSpeedSemiUp Far +Proc I_SampleSpeedSemiUp Far Call I_GetSampleOffset @@ -6350,11 +6347,11 @@ I_SampleSpeedSemiUp1: Mov AX, 1 Ret -EndP I_SampleSpeedSemiUp +;EndP I_SampleSpeedSemiUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleSpeedSemiDown Far +Proc I_SampleSpeedSemiDown Far Call I_GetSampleOffset @@ -6367,11 +6364,11 @@ Proc I_SampleSpeedSemiDown Far Mov AX, 1 Ret -EndP I_SampleSpeedSemiDown +;EndP I_SampleSpeedSemiDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ReplaceInstrument Far +Proc I_ReplaceInstrument Far EnsureNoNetwork @@ -6396,11 +6393,11 @@ I_ReplaceInstrument1: Mov AX, 1 Ret -EndP I_ReplaceInstrument +;EndP I_ReplaceInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ScaleSampleVolumes Far +Proc I_ScaleSampleVolumes Far EnsureNoNetwork @@ -6441,11 +6438,11 @@ I_ScaleSampleVolumesEnd: Mov AX, 1 Ret -EndP I_ScaleSampleVolumes +;EndP I_ScaleSampleVolumes ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ScaleInstrumentVolumes Far +Proc I_ScaleInstrumentVolumes Far EnsureNoNetwork @@ -6486,11 +6483,11 @@ I_ScaleInstrumentVolumesEnd: Mov AX, 1 Ret -EndP I_ScaleInstrumentVolumes +;EndP I_ScaleInstrumentVolumes ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_CopyInstrument Far +Proc I_CopyInstrument Far Mov DI, Offset O1_CopyInstrumentList Call GetNumberInput @@ -6515,11 +6512,11 @@ Proc I_CopyInstrument Far Mov AX, 1 Ret -EndP I_CopyInstrument +;EndP I_CopyInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SwapInstruments Far +Proc I_SwapInstruments Far EnsureNoNetwork @@ -6568,11 +6565,11 @@ I_SwapInstruments1: Mov AX, 1 Ret -EndP I_SwapInstruments +;EndP I_SwapInstruments ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_UpdateInstrument Far +Proc I_UpdateInstrument Far EnsureNoNetwork @@ -6591,11 +6588,11 @@ Proc I_UpdateInstrument Far Mov AX, 1 Ret -EndP I_UpdateInstrument +;EndP I_UpdateInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseEnvelopeEvent1 Far +Proc MouseEnvelopeEvent1 Far Mov CS:MouseX, CX Mov CS:MouseY, DX @@ -6606,11 +6603,11 @@ Proc MouseEnvelopeEvent1 Far Xor AX, AX Ret -EndP MouseEnvelopeEvent1 +;EndP MouseEnvelopeEvent1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseEnvelopeEvent4 Far ; Delete node +Proc MouseEnvelopeEvent4 Far ; Delete node Test BH, 6 JNZ MouseEnvelopeEvent4_1 @@ -6625,11 +6622,11 @@ MouseEnvelopeEvent4_1: Xor AX, AX Ret -EndP MouseEnvelopeEvent4 +;EndP MouseEnvelopeEvent4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseEnvelopeEvent2 Far ; Envelope drag +Proc MouseEnvelopeEvent2 Far ; Envelope drag Mov CS:MouseX, CX Mov CS:MouseY, DX @@ -6640,11 +6637,11 @@ Proc MouseEnvelopeEvent2 Far ; Envelope drag Xor AX, AX Ret -EndP MouseEnvelopeEvent2 +;EndP MouseEnvelopeEvent2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseEnvelopeEvent3 Far ; Release envelope +Proc MouseEnvelopeEvent3 Far ; Release envelope Mov CX, 8002h Call AddMouseQueue @@ -6652,12 +6649,12 @@ Proc MouseEnvelopeEvent3 Far ; Release envelope Xor AX, AX Ret -EndP MouseEnvelopeEvent3 +;EndP MouseEnvelopeEvent3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DrawEnvelopeHeader ; AH = colour, DS = inst - Assume DS:Inst +Proc DrawEnvelopeHeader ; AH = colour, DS = inst + ;Assume DS:Inst Mov SI, InstrumentScreen ; 1-3 Add SI, SI ; 2-6 @@ -6670,16 +6667,16 @@ Proc DrawEnvelopeHeader ; AH = colour, DS = inst Ret -EndP DrawEnvelopeHeader - Assume DS:Nothing +;EndP DrawEnvelopeHeader + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DrawEnvelope Far +Proc I_DrawEnvelope Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov AH, 20h Call DrawEnvelopeHeader @@ -6758,12 +6755,12 @@ I_DrawEnvelope4: Ret -EndP I_DrawEnvelope - Assume DS:Nothing +;EndP I_DrawEnvelope + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PreEnvelope Far +Proc I_PreEnvelope Far Push CS Pop DS @@ -6773,16 +6770,16 @@ Proc I_PreEnvelope Far Ret -EndP I_PreEnvelope - Assume DS:Nothing +;EndP I_PreEnvelope + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PostEnvelope Far +Proc I_PostEnvelope Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov SI, Offset VolumeEnvelopeNodeKeys @@ -6798,7 +6795,7 @@ I_PostEnvelope2: Jmp [SI] I_PostEnvelope1: -IF ENABLEPRESETENVELOPES +%IF ENABLEPRESETENVELOPES Cmp DX, '0' JB I_PostEnvelopeNoPreset @@ -6885,19 +6882,19 @@ I_PostEnvelopeSet1: Ret I_PostEnvelopeNoSet: -ENDIF ; PRESETENVELOPES +%ENDIF ; PRESETENVELOPES Xor AX, AX Ret -EndP I_PostEnvelope +;EndP I_PostEnvelope ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_MapEnvelope Far +Proc I_MapEnvelope Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Cmp InstrumentScreen, 0 JNE I_MapEnvelope1 @@ -6930,7 +6927,7 @@ I_MapEnvelopeYAxis1: Push DI Call I_GetEnvelopeOffset ; DS:SI points to envelope - Assume DS:Nothing + ;Assume DS:Nothing Mov AL, 32 @@ -7225,7 +7222,7 @@ I_MapEnvelopeError: Call Music_GetSlaveChannelInformationTable ; Returns DS:SI, CX - Assume DS:Nothing + ;Assume DS:Nothing I_MapEnvelopePlaying1: Cmp [SI+33h], BL @@ -7285,12 +7282,12 @@ I_MapEnvelopeEnd: Ret -EndP I_MapEnvelope - Assume DS:Nothing +;EndP I_MapEnvelope + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_GetMouseNode ; Returns DI, carry if none +Proc I_GetMouseNode ; Returns DI, carry if none Call I_GetEnvelopeOffset ; Returns DS:SI to envelope @@ -7350,11 +7347,11 @@ I_GetMouseNode2: StC Ret -EndP I_GetMouseNode +;EndP I_GetMouseNode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_MouseEnvelopeDelete Far +Proc I_MouseEnvelopeDelete Far Call I_GetMouseNode JC I_MouseEnvelopeDelete1 @@ -7368,12 +7365,12 @@ I_MouseEnvelopeDelete1: Mov AX, 1 Ret -EndP I_MouseEnvelopeDelete +;EndP I_MouseEnvelopeDelete ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_MouseEnvelopePress Far - Assume DS:Nothing +Proc I_MouseEnvelopePress Far + ;Assume DS:Nothing ; If on top of node, then pick up this ; node, ; MouseNodeHeld = 1 ; If NOT near node, and nodes < 25, @@ -7551,13 +7548,13 @@ I_MouseEnvelopePressError: Mov AX, 1 Ret -EndP I_MouseEnvelopePress - Assume DS:Nothing +;EndP I_MouseEnvelopePress + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_MouseEnvelopeDrag Far - Assume DS:Nothing +Proc I_MouseEnvelopeDrag Far + ;Assume DS:Nothing ; CurrentNode update Call I_GetEnvelopeOffset @@ -7664,13 +7661,13 @@ I_GetMousePositionEnd: Mov AX, 1 Ret -EndP I_MouseEnvelopeDrag - Assume DS:Nothing +;EndP I_MouseEnvelopeDrag + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_MouseEnvelopeReleased Far - Assume DS:Inst +Proc I_MouseEnvelopeReleased Far + ;Assume DS:Inst ; MouseNodeHeld = 0 Xor BX, BX @@ -7685,14 +7682,14 @@ Proc I_MouseEnvelopeReleased Far Mov AX, 1 Ret -EndP I_MouseEnvelopeReleased - Assume DS:Nothing +;EndP I_MouseEnvelopeReleased + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeRight Far +Proc I_VolumeEnvelopeRight Far - Assume DS:Inst + ;Assume DS:Inst Mov AX, CurrentNode Inc AX @@ -7706,14 +7703,14 @@ I_VolumeEnvelopeRight1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeRight - Assume DS:Nothing +;EndP I_VolumeEnvelopeRight + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeLeft Far +Proc I_VolumeEnvelopeLeft Far - Assume DS:Inst + ;Assume DS:Inst Cmp CurrentNode, 0 JE I_VolumeEnvelopeLeft1 @@ -7725,41 +7722,41 @@ I_VolumeEnvelopeLeft1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeLeft - Assume DS:Nothing +;EndP I_VolumeEnvelopeLeft + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeUp Far +Proc I_VolumeEnvelopeUp Far Mov Word Ptr [ES:DI], 5 Mov AX, 1 Ret -EndP I_VolumeEnvelopeUp +;EndP I_VolumeEnvelopeUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeDown Far +Proc I_VolumeEnvelopeDown Far Mov Word Ptr [ES:DI], 17 Mov AX, 1 Ret -EndP I_VolumeEnvelopeDown +;EndP I_VolumeEnvelopeDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldUp Far +Proc I_VolumeEnvelopeHeldUp Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, CX @@ -7781,19 +7778,19 @@ I_VolumeEnvelopeHeldUp1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldUp - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldDown Far +Proc I_VolumeEnvelopeHeldDown Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, CX @@ -7814,14 +7811,14 @@ I_VolumeEnvelopeHeldDown1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldDown - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldLeft Far +Proc I_VolumeEnvelopeHeldLeft Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Mov DX, CX @@ -7829,7 +7826,7 @@ Proc I_VolumeEnvelopeHeldLeft Far JZ I_VolumeEnvelopeHeldLeft1 Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, DX @@ -7850,14 +7847,14 @@ I_VolumeEnvelopeHeldLeft1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldLeft - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldLeft + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldLeftFast Far +Proc I_VolumeEnvelopeHeldLeftFast Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Mov DX, CX @@ -7865,7 +7862,7 @@ Proc I_VolumeEnvelopeHeldLeftFast Far JZ I_VolumeEnvelopeHeldLeftFast2 Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, DX @@ -7895,14 +7892,14 @@ I_VolumeEnvelopeHeldLeftFast2: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldLeftFast - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldLeftFast + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldHome Far +Proc I_VolumeEnvelopeHeldHome Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Mov DX, CX @@ -7910,7 +7907,7 @@ Proc I_VolumeEnvelopeHeldHome Far JZ I_VolumeEnvelopeHeldHome1 Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, DX @@ -7927,14 +7924,14 @@ I_VolumeEnvelopeHeldHome1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldHome - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldHome + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldRight Far +Proc I_VolumeEnvelopeHeldRight Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Mov DX, CX @@ -7942,7 +7939,7 @@ Proc I_VolumeEnvelopeHeldRight Far JZ I_VolumeEnvelopeHeldRight1 Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, DX @@ -7970,14 +7967,14 @@ I_VolumeEnvelopeHeldRight1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldRight - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldRight + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldEnd Far +Proc I_VolumeEnvelopeHeldEnd Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Mov DX, CX @@ -7985,7 +7982,7 @@ Proc I_VolumeEnvelopeHeldEnd Far JZ I_VolumeEnvelopeHeldEnd1 Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, DX @@ -8010,14 +8007,14 @@ I_VolumeEnvelopeHeldEnd1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldEnd - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldEnd + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldRightFast Far +Proc I_VolumeEnvelopeHeldRightFast Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Mov DX, CX @@ -8025,7 +8022,7 @@ Proc I_VolumeEnvelopeHeldRightFast Far JZ I_VolumeEnvelopeHeldRightFast1 Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, DX @@ -8060,20 +8057,20 @@ I_VolumeEnvelopeHeldRightFast1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldRightFast - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldRightFast + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldPgDn Far +Proc I_VolumeEnvelopeHeldPgDn Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Mov AH, AmplitudeCompensate Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, CX @@ -8097,20 +8094,20 @@ I_VolumeEnvelopeHeldPgDn1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldPgDn - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldPgDn + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeHeldPgUp Far +Proc I_VolumeEnvelopeHeldPgUp Far - Assume DS:Inst + ;Assume DS:Inst Mov CX, CurrentNode Mov AH, AmplitudeCompensate Call I_GetEnvelopeOffset - Assume DS:Nothing + ;Assume DS:Nothing Add SI, CX Add SI, CX @@ -8135,13 +8132,13 @@ I_VolumeEnvelopeHeldPgUp1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeHeldPgUp - Assume DS:Nothing +;EndP I_VolumeEnvelopeHeldPgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeInsert Far - Assume DS:Inst +Proc I_VolumeEnvelopeInsert Far + ;Assume DS:Inst Mov DX, CurrentNode @@ -8157,7 +8154,7 @@ Proc I_VolumeEnvelopeInsert Far JE I_VolumeEnvelopeInsert1 Call I_GetEnvelopeOffset ; DS:SI - Assume DS:Nothing + ;Assume DS:Nothing LEA BX, [SI+6] Add BX, DX @@ -8234,14 +8231,14 @@ I_VolumeEnvelopeInsert1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeInsert - Assume DS:Nothing +;EndP I_VolumeEnvelopeInsert + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeDelete Far +Proc I_VolumeEnvelopeDelete Far - Assume DS:Inst + ;Assume DS:Inst Mov DX, CurrentNode Mov DI, DX @@ -8254,7 +8251,7 @@ Proc I_VolumeEnvelopeDelete Far JBE I_VolumeEnvelopeDelete1 Call I_GetEnvelopeOffset ; Returns DS:SI - Assume DS:Nothing + ;Assume DS:Nothing ClI @@ -8342,15 +8339,15 @@ I_VolumeEnvelopeDelete1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeDelete +;EndP I_VolumeEnvelopeDelete ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_EnvelopeSelected +Proc I_EnvelopeSelected Call I_GetEnvelopeOffset ; Returns DS:SI -IF FILTERENVELOPES +%IF FILTERENVELOPES Cmp CS:InstrumentScreen, 3 JNE I_MouseEnvelopeNoFilter @@ -8360,21 +8357,21 @@ IF FILTERENVELOPES Or Byte Ptr [SI], 80h I_MouseEnvelopeNoFilter: -ELSE +%ELSE And Byte Ptr [SI], 7Fh ; Turn of filters. -ENDIF +%ENDIF Or Byte Ptr [SI], 1 ; Turn on envelope Ret -EndP I_EnvelopeSelected +;EndP I_EnvelopeSelected ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_VolumeEnvelopeEnter Far +Proc I_VolumeEnvelopeEnter Far - Assume DS:Inst + ;Assume DS:Inst Xor NodeHeld, 1 JZ I_VolumeEnvelopeEnter1 @@ -8385,16 +8382,16 @@ I_VolumeEnvelopeEnter1: Mov AX, 1 Ret -EndP I_VolumeEnvelopeEnter - Assume DS:Nothing +;EndP I_VolumeEnvelopeEnter + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentListSpace Far +Proc I_InstrumentListSpace Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Cmp NoteReleased, 1 JNE I_InstrumentSpace1 @@ -8414,16 +8411,16 @@ I_InstrumentSpace1: Mov AX, 1 Ret -EndP I_InstrumentListSpace - Assume DS:Nothing +;EndP I_InstrumentListSpace + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_InstrumentListNoteOff Far +Proc I_InstrumentListNoteOff Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov NoteReleased, 1 Mov SI, Offset NoteData @@ -8435,12 +8432,12 @@ Proc I_InstrumentListNoteOff Far Mov AX, 1 Ret -EndP I_InstrumentListNoteOff - Assume DS:Nothing +;EndP I_InstrumentListNoteOff + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ShowSamplePlay Far +Proc I_ShowSamplePlay Far ; Clear table first. Push CS @@ -8491,11 +8488,11 @@ I_ShowSamplePlay2: Jmp I_ShowInstrumentPlay5 -EndP I_ShowSamplePlay +;EndP I_ShowSamplePlay ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ShowInstrumentPlay Far +Proc I_ShowInstrumentPlay Far ; Clear table first. Call Music_GetInstrumentMode @@ -8583,11 +8580,11 @@ I_ShowInstrumentPlayEnd: Ret -EndP I_ShowInstrumentPlay +;EndP I_ShowInstrumentPlay ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ClearTables Far +Proc I_ClearTables Far Push CS Pop ES @@ -8600,33 +8597,33 @@ Proc I_ClearTables Far Ret -EndP I_ClearTables +;EndP I_ClearTables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_TagInstrument Far +Proc I_TagInstrument Far Mov Byte Ptr [CS:InstrumentPlayTable+BX], 4 Ret -EndP I_TagInstrument +;EndP I_TagInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_TagSample Far +Proc I_TagSample Far Mov Byte Ptr [CS:SamplePlayTable+BX], 4 Ret -EndP I_TagSample +;EndP I_TagSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDI_PlaySample Far +Proc MIDI_PlaySample Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Test DH, DH JNZ MIDI_PlaySample1 @@ -8650,15 +8647,15 @@ MIDI_PlaySample2: Mov AX, 1 Ret -EndP MIDI_PlaySample +;EndP MIDI_PlaySample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PlaySample Far +Proc I_PlaySample Far Mov AX, Pattern Mov DS, AX - Assume DS:Pattern + ;Assume DS:Pattern Mov AH, LastInstrument Mov AL, CS:LastPlaySample @@ -8669,16 +8666,16 @@ Proc I_PlaySample Far Xor AX, AX Ret -EndP I_PlaySample - Assume DS:Nothing +;EndP I_PlaySample + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_IncreasePlayChannel Far +Proc I_IncreasePlayChannel Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov AX, PlayChannel Cmp AX, 63 @@ -8697,16 +8694,16 @@ I_IncreasePlayChannel1: Mov AX, 1 Ret -EndP I_IncreasePlayChannel - Assume DS:Nothing +;EndP I_IncreasePlayChannel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DecreasePlayChannel Far +Proc I_DecreasePlayChannel Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov AX, PlayChannel And AX, AX @@ -8725,12 +8722,12 @@ I_DecreasePlayChannel1: Mov AX, 1 Ret -EndP I_DecreasePlayChannel - Assume DS:Nothing +;EndP I_DecreasePlayChannel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateMultiChannel +Proc UpdateMultiChannel Cmp CS:MultiChannel, 0 JE UpdateMultiChannel1 @@ -8739,7 +8736,7 @@ Proc UpdateMultiChannel Push BX Push DS Push SI - Assume DS:Inst + ;Assume DS:Inst Push CS Pop DS @@ -8768,16 +8765,16 @@ UpdateMultiChannel2: UpdateMultiChannel1: Ret -EndP UpdateMultiChannel - Assume DS:Nothing +;EndP UpdateMultiChannel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_ToggleMultiChannel Far +Proc I_ToggleMultiChannel Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov SI, Offset MultiChannelEnabledMsg Xor MultiChannel, 1 @@ -8791,12 +8788,12 @@ I_ToggleMultiChannel1: Mov AX, 1 Ret -EndP I_ToggleMultiChannel - Assume DS:Nothing +;EndP I_ToggleMultiChannel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_DrawPitchPanCenter Far +Proc I_DrawPitchPanCenter Far Call S_GetDestination Call I_GetInstrumentOffset ; Returns DS:BX @@ -8824,11 +8821,11 @@ Proc I_DrawPitchPanCenter Far Ret -EndP I_DrawPitchPanCenter +;EndP I_DrawPitchPanCenter ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PrePitchPanCenter Far +Proc I_PrePitchPanCenter Far Call S_GetDestination Mov AL, 3h @@ -8841,15 +8838,15 @@ Proc I_PrePitchPanCenter Far Ret -EndP I_PrePitchPanCenter +;EndP I_PrePitchPanCenter ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PostPitchPanCenter Far +Proc I_PostPitchPanCenter Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Mov SI, Offset PitchPanCenterKeys Call M_FunctionDivider @@ -8861,31 +8858,31 @@ I_PostPitchPanCenter1: Xor AX, AX Ret -EndP I_PostPitchPanCenter +;EndP I_PostPitchPanCenter ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PitchPanCenterUp Far +Proc I_PitchPanCenterUp Far Mov Word Ptr [ES:DI], 27 Mov AX, 1 Ret -EndP I_PitchPanCenterUp +;EndP I_PitchPanCenterUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PitchPanCenterDown Far +Proc I_PitchPanCenterDown Far Mov Word Ptr [ES:DI], 29 Mov AX, 1 Ret -EndP I_PitchPanCenterDown +;EndP I_PitchPanCenterDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PitchPanCenterSemiUp Far +Proc I_PitchPanCenterSemiUp Far Call I_GetInstrumentOffset Mov AL, [BX+17h] @@ -8902,11 +8899,11 @@ I_PitchPanCenterSemiUp1: Mov AX, 1 Ret -EndP I_PitchPanCenterSemiUp +;EndP I_PitchPanCenterSemiUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_PitchPanCenterSemiDown Far +Proc I_PitchPanCenterSemiDown Far Call I_GetInstrumentOffset Mov AL, [BX+17h] @@ -8922,15 +8919,15 @@ I_PitchPanCenterSemiDown1: Mov AX, 1 Ret -EndP I_PitchPanCenterSemiDown +;EndP I_PitchPanCenterSemiDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_IdleUpdateEnvelope Far +Proc I_IdleUpdateEnvelope Far Push CS Pop DS - Assume DS:Inst + ;Assume DS:Inst Cmp UpdateInstrumentScreen, 0 JNE I_IdleUpdateEnvelope2 @@ -8943,7 +8940,7 @@ Proc I_IdleUpdateEnvelope Far Call PE_GetLastInstrument ; Gets BX Inc BX Call Music_GetSlaveChannelInformationTable - Assume DS:Nothing + ;Assume DS:Nothing I_IdleUpdateEnvelope1: Cmp Byte Ptr [SI+33h], BL @@ -8967,20 +8964,20 @@ I_IdleUpdateEnvelope3: Xor AX, AX Ret -EndP I_IdleUpdateEnvelope +;EndP I_IdleUpdateEnvelope ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateWAVEForm Far +Proc UpdateWAVEForm Far Call I_RedrawWave Ret -EndP UpdateWAVEForm +;EndP UpdateWAVEForm ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_SampleButtonHandler Far +Proc I_SampleButtonHandler Far Test AX, AX JZ I_SampleButtonHandler1 @@ -9000,11 +8997,11 @@ I_SampleButtonHandler1: Ret -EndP I_SampleButtonHandler +;EndP I_SampleButtonHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc I_GetPresetEnvelopeOffset Far +Proc I_GetPresetEnvelopeOffset Far Push CS Pop DS @@ -9012,7 +9009,7 @@ Proc I_GetPresetEnvelopeOffset Far Ret -EndP I_GetPresetEnvelopeOffset +;EndP I_GetPresetEnvelopeOffset ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_k.s b/it_k.s index 9ef7a59..7136839 100644 --- a/it_k.s +++ b/it_k.s @@ -2,28 +2,25 @@ ;� Keyboard Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386 - -include switch.inc +%include "switch.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Extrn D_GotoStartingDirectory:Far + extern D_GotoStartingDirectory:Far - Extrn E_UnInitEMS:Far - Extrn S_GetDestination:Far - Extrn Music_Stop:Far - Extrn Music_KBPlaySong:Far - Extrn Music_IncreaseVolume:Far - Extrn Music_DecreaseVolume:Far - Extrn S_DrawString:Far - Extrn CrashRecovery:Far + extern E_UnInitEMS:Far + extern S_GetDestination:Far + extern Music_Stop:Far + extern Music_KBPlaySong:Far + extern Music_IncreaseVolume:Far + extern Music_DecreaseVolume:Far + extern S_DrawString:Far + extern CrashRecovery:Far - Extrn IsStartupKeyList:Far - Extrn GetStartupKeyList:Far + extern IsStartupKeyList:Far + extern GetStartupKeyList:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -54,10 +51,10 @@ include switch.inc ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment KeyBoard BYTE Public 'Code' USE16 - Assume CS:KeyBoard, DS:KeyBoard + ;Assume CS:KeyBoard, DS:KeyBoard CREATENEWLOGFILE EQU 0 -include debug.inc +%include "debug.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -653,7 +650,7 @@ USKeyboardTable Label Byte Alt DB 0 Ctrl DB 0 -Proc K_KBHandler +Proc K_KBHandler Push AX Push BX @@ -744,11 +741,11 @@ K_KBHandler2: Pop AX IRet -EndP K_KBHandler +;EndP K_KBHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_DOSKBHandler Far +Proc K_DOSKBHandler Far Push AX @@ -813,11 +810,11 @@ K_DOSKBHandler6: Pop AX IRet -EndP K_DOSKBHandler +;EndP K_DOSKBHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_SetKeyBoardLights ; Reqs: DS:KeyBoard +Proc K_SetKeyBoardLights ; Reqs: DS:KeyBoard ; Sets keyboard lights (duh!) Push AX Mov AL, 0EDh @@ -848,11 +845,11 @@ K_SetKeyBoardLights3: Ret -EndP K_SetKeyBoardLights +;EndP K_SetKeyBoardLights ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_InitKeyBoard Far ; Raises key repeat rate +Proc K_InitKeyBoard Far ; Raises key repeat rate ; to 30 char/s, ; delay before second char=0.25s ; Gets old IRQ handler @@ -933,11 +930,11 @@ K_InitKeyBoard3: ; Chained to from K_UnInstallDOS Ret -EndP K_InitKeyBoard +;EndP K_InitKeyBoard ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_UnInitKeyBoard Far +Proc K_UnInitKeyBoard Far Push AX Push DS @@ -987,11 +984,11 @@ K_UnInitKeyBoard1: Ret -EndP K_UnInitKeyBoard +;EndP K_UnInitKeyBoard ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_InstallDOSHandler Far +Proc K_InstallDOSHandler Far Push AX Push DS @@ -1017,11 +1014,11 @@ Proc K_InstallDOSHandler Far Jmp K_UnInitKeyBoard3 -EndP K_InstallDOSHandler +;EndP K_InstallDOSHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_UnInstallDOSHandler Far +Proc K_UnInstallDOSHandler Far Push AX Push DS @@ -1045,11 +1042,11 @@ Proc K_UnInstallDOSHandler Far Jmp K_InitKeyBoard3 -EndP K_UnInstallDOSHandler +;EndP K_UnInstallDOSHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_GetNextKeyByte +Proc K_GetNextKeyByte Inc BX And BX, 0FFh @@ -1057,11 +1054,11 @@ Proc K_GetNextKeyByte Ret -EndP K_GetNextKeyByte +;EndP K_GetNextKeyByte ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_IsKeyWaiting Far ; Returns 1 in AX if key is ready +Proc K_IsKeyWaiting Far ; Returns 1 in AX if key is ready ; 0 in AX if no key is ready Push DS @@ -1101,11 +1098,11 @@ K_IsKeyWaiting1: Pop DS Ret -EndP K_IsKeyWaiting +;EndP K_IsKeyWaiting ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_GetKey Far ; CX/DX = input/translated +Proc K_GetKey Far ; CX/DX = input/translated Push AX Push BX @@ -1272,7 +1269,7 @@ K_TranslateAltRelease: K_TranslateKeyPress: LDS SI, TranslationTable - Assume DS:Nothing + ;Assume DS:Nothing K_TranslateKey1: LodsB @@ -1438,11 +1435,11 @@ K_GetKey20: Ret -EndP K_GetKey +;EndP K_GetKey ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_ClearKeyBoardQueue Far +Proc K_ClearKeyBoardQueue Far Push AX @@ -1457,11 +1454,11 @@ K_ClearKeyBoardQueue2: Pop AX Ret -EndP K_ClearKeyBoardQueue +;EndP K_ClearKeyBoardQueue ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_IsAnyKeyDown Far ; Returns AL = 1 if key is down. +Proc K_IsAnyKeyDown Far ; Returns AL = 1 if key is down. Push CX Push DS @@ -1469,7 +1466,7 @@ Proc K_IsAnyKeyDown Far ; Returns AL = 1 if key is down. Push CS Pop DS - Assume DS:Keyboard + ;Assume DS:Keyboard Mov SI, Offset KeyBoardTable Mov CX, 256 @@ -1490,20 +1487,20 @@ K_IsAnyKeyDown2: Ret -EndP K_IsAnyKeyDown +;EndP K_IsAnyKeyDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_IsKeyDown Far ; BX = key to test +Proc K_IsKeyDown Far ; BX = key to test Cmp [CS:KeyboardTable+BX], 0 Ret -EndP K_IsKeyDown +;EndP K_IsKeyDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_ResetKeyboardTables Far +Proc K_ResetKeyboardTables Far Push CS Pop ES @@ -1515,18 +1512,18 @@ Proc K_ResetKeyboardTables Far Mov AX, 1 Ret -EndP K_ResetKeyboardTables +;EndP K_ResetKeyboardTables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_DrawTables Far +Proc K_DrawTables Far Call S_GetDestination Mov DI, (2+15*80)*2 Push CS Pop DS - Assume DS:KeyBoard + ;Assume DS:KeyBoard Mov SI, Offset KeyboardBuffer Mov CX, 2004h ; CH = row count, CL = ShR @@ -1616,16 +1613,16 @@ K_DrawTable7: Xor AX, AX Ret -EndP K_DrawTables - Assume DS:Nothing +;EndP K_DrawTables + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_ShowMIDIInput Far +Proc K_ShowMIDIInput Far Push CS Pop DS - Assume DS:Keyboard + ;Assume DS:Keyboard ; Now to shove the MIDI input info. Xor AX, AX @@ -1646,18 +1643,18 @@ Proc K_ShowMIDIInput Far Xor AX, AX Ret -EndP K_ShowMIDIInput - Assume DS:Nothing +;EndP K_ShowMIDIInput + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_InstallKeyboardType Far +Proc K_InstallKeyboardType Far Call D_GotoStartingDirectory Push CS Pop DS - Assume DS:Keyboard + ;Assume DS:Keyboard Mov AX, 3D00h Mov DX, Offset KeyboardFile @@ -1715,15 +1712,15 @@ K_InstallKeyboardType1: K_InstallKeyboardType2: Ret -EndP K_InstallKeyboardType +;EndP K_InstallKeyboardType ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_RemoveKeyboardType Far +Proc K_RemoveKeyboardType Far Push CS Pop DS - Assume DS:Keyboard + ;Assume DS:Keyboard Mov AX, TranslationTableSegment Mov BX, CS @@ -1737,11 +1734,11 @@ Proc K_RemoveKeyboardType Far K_RemoveKeyboardType1: Ret -EndP K_RemoveKeyboardType +;EndP K_RemoveKeyboardType ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc K_SetScrollLock Far +Proc K_SetScrollLock Far Push CS Pop DS @@ -1749,27 +1746,27 @@ Proc K_SetScrollLock Far Call K_SetKeyboardLights Ret -EndP K_SetScrollLock +;EndP K_SetScrollLock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDIBufferEmpty Far ; Returns carry set if input OK. +Proc MIDIBufferEmpty Far ; Returns carry set if input OK. ; Returns carry CLEAR if input full. Cmp [CS:MIDIDataInput], 2 Ret -EndP MIDIBufferEmpty +;EndP MIDIBufferEmpty ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDISend Far ; Given AL = data byte. +Proc MIDISend Far ; Given AL = data byte. Push DS Push CS Pop DS - Assume DS:Keyboard + ;Assume DS:Keyboard Test AL, AL ; Status byte? JNS MIDISend1 @@ -1800,8 +1797,8 @@ MIDISendEnd: Pop DS Ret -EndP MIDISend - Assume DS:Nothing +;EndP MIDISend + ;Assume DS:Nothing ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_l.s b/it_l.s index 53cf64e..2065c52 100644 --- a/it_l.s +++ b/it_l.s @@ -2,39 +2,36 @@ ;� Info Line Module - Playing info updates / other messages � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386 - -include switch.inc +%include "switch.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Segment Glbl BYTE Public 'Code' - Extrn CurrentMode:Byte + extern CurrentMode:Byte EndS - Extrn I_ShowSamplePlay:Far - Extrn I_ShowInstrumentPlay:Far + extern I_ShowSamplePlay:Far + extern I_ShowInstrumentPlay:Far - Extrn S_UpdateScreen:Far - Extrn S_DrawString:Far - Extrn S_SetDirectMode:Far - Extrn S_GetDestination:Far + extern S_UpdateScreen:Far + extern S_DrawString:Far + extern S_SetDirectMode:Far + extern S_GetDestination:Far - Extrn Music_GetPlayMode:Far - Extrn Music_Poll:Far - Extrn Music_GetSlaveChannelInformationTable:Far + extern Music_GetPlayMode:Far + extern Music_Poll:Far + extern Music_GetSlaveChannelInformationTable:Far -IF NETWORKENABLED - Extrn Network_Poll:Far -ENDIF +%IF NETWORKENABLED + extern Network_Poll:Far +%ENDIF - Extrn PE_ShowOrder:Far - Extrn PE_FillSpeedTempo:Far - Extrn PE_GetMaxOrder:Far - Extrn Glbl_TutorialHandler:Far + extern PE_ShowOrder:Far + extern PE_FillSpeedTempo:Far + extern PE_GetMaxOrder:Far + extern Glbl_TutorialHandler:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -54,10 +51,10 @@ ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment InfoLine DWORD Public 'Code' USE16 - Assume CS:InfoLine, DS:InfoLine + ;Assume CS:InfoLine, DS:InfoLine CREATENEWLOGFILE EQU 0 -include debug.inc +%include "debug.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -93,7 +90,7 @@ ShowUsageTime DB 1 ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc TimerInterruptHandler +Proc TimerInterruptHandler Sub CS:InfoLineDelay, 1 AdC CS:InfoLineDelay, 0 @@ -101,11 +98,11 @@ Proc TimerInterruptHandler Inc CS:TimerCounter Jmp [CS:OldTimerHandler] -EndP TimerInterruptHandler +;EndP TimerInterruptHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc InitTimerHandler Far +Proc InitTimerHandler Far Push DS @@ -126,11 +123,11 @@ Proc InitTimerHandler Far Pop DS Ret -EndP InitTimerHandler +;EndP InitTimerHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UninitTimerHandler Far +Proc UninitTimerHandler Far Push DS @@ -145,11 +142,11 @@ Proc UninitTimerHandler Far Pop DS Ret -EndP UninitTimerHandler +;EndP UninitTimerHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FillToEOL +Proc FillToEOL Push ES Mov AX, ' ' + 2000h @@ -166,18 +163,18 @@ UpdateInfoLineEOL2: Pop ES Ret -EndP FillToEOL +;EndP FillToEOL ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateInfoLine Far +Proc UpdateInfoLine Far Push DS Push SI Push Glbl Pop DS - Assume DS:Glbl + ;Assume DS:Glbl Cmp CurrentMode, 200 JAE UpdateInfoLineEnd2 @@ -322,56 +319,56 @@ UpdateInfoLine7: Mov AX, 1 Ret -EndP UpdateInfoLine - Assume DS:Nothing +;EndP UpdateInfoLine + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc IdleUpdateInfoLine Far +Proc IdleUpdateInfoLine Far Call Music_Poll -IF TUTORIAL -ELSE +%IF TUTORIAL +%ELSE Mov AL, 1 Call S_SetDirectMode -ENDIF +%ENDIF Call UpdateInfoLine -IF TUTORIAL +%IF TUTORIAL Call Glbl_TutorialHandler -ENDIF +%ENDIF -IF TUTORIAL +%IF TUTORIAL Call S_UpdateScreen -ELSE +%ELSE Mov AL, 0 Call S_SetDirectMode -ENDIF +%ENDIF -IF NETWORKENABLED +%IF NETWORKENABLED Jmp Network_Poll -ELSE +%ELSE Xor AX, AX Ret -ENDIF +%ENDIF -EndP IdleUpdateInfoLine +;EndP IdleUpdateInfoLine ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ClearInfoLine Far +Proc ClearInfoLine Far Mov DWord Ptr [CS:InfoLineText], 0 Ret -EndP ClearInfoLine +;EndP ClearInfoLine ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetInfoLine Far ; DS:SI points to msg. +Proc SetInfoLine Far ; DS:SI points to msg. Mov CS:InfoLineDelay, 20 @@ -382,24 +379,24 @@ SetInfoLineChain: Ret -EndP SetInfoLine +;EndP SetInfoLine ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetInfoLine2 Far ; DS:SI points to msg. +Proc SetInfoLine2 Far ; DS:SI points to msg. Mov CS:InfoLineDelay, BX Jmp SetInfoLineChain -EndP SetInfoLine2 +;EndP SetInfoLine2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdatePointers ; BX = row, CX = pattern +Proc UpdatePointers ; BX = row, CX = pattern Mov SI, Glbl Mov DS, SI - Assume DS:Glbl + ;Assume DS:Glbl Mov AH, CurrentMode @@ -459,19 +456,19 @@ UpdatePointers5: UpdatePointersEnd: Ret -EndP UpdatePointers - Assume DS:Nothing +;EndP UpdatePointers + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ShowTime +Proc ShowTime PushA Push DS Push CS Pop DS - Assume DS:InfoLine + ;Assume DS:InfoLine Cmp AX, 2 Mov EAX, [TimerCounter] @@ -525,12 +522,12 @@ ShowTime2: Ret -EndP ShowTime - Assume DS:Nothing +;EndP ShowTime + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc StartClock Far +Proc StartClock Far Push EAX Mov EAX, CS:TimerCounter @@ -539,16 +536,16 @@ Proc StartClock Far Ret -EndP StartClock +;EndP StartClock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetTimerCounter Far +Proc GetTimerCounter Far Mov EAX, [CS:TimerCounter] Ret -EndP GetTimerCounter +;EndP GetTimerCounter ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_m.s b/it_m.s index 2b11f6a..c11c443 100644 --- a/it_m.s +++ b/it_m.s @@ -2,10 +2,7 @@ ;� Main Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386 - -include switch.inc +%include "switch.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � @@ -15,65 +12,65 @@ Segment Object1 BYTE Public 'Data' USE16 EndS - Extrn F_DrawStringInput:Far - Extrn F_PreStringInput:Far - Extrn F_PostStringInput:Far - Extrn F_Nothing:Far - Extrn F_DrawBoxObject:Far - Extrn F_DrawTextObject:Far - Extrn F_PostExitObject:Far - Extrn F_SetDirectMode:Far - Extrn F_CharacterDefinitions:Far - Extrn F_DrawButtonObject:Far - Extrn F_PreButtonObject:Far - Extrn F_PostButtonObject:Far - Extrn F_CallFarFunction:Far - Extrn F_DrawThumbBar:Far - Extrn F_DrawScalableThumbBar:Far - Extrn F_PreThumbBar:Far - Extrn F_PreScalableThumbBar:Far - Extrn F_PostThumbBar:Far - Extrn F_PostScalableThumbBar:Far - Extrn F_DrawInfoLine:Far - Extrn F_CallFarPreFunction:Far - Extrn F_CallFarPostFunction:Far - Extrn F_DrawToggle:Far - Extrn F_PreToggle:Far - Extrn F_PostToggle:Far + extern F_DrawStringInput:Far + extern F_PreStringInput:Far + extern F_PostStringInput:Far + extern F_Nothing:Far + extern F_DrawBoxObject:Far + extern F_DrawTextObject:Far + extern F_PostExitObject:Far + extern F_SetDirectMode:Far + extern F_CharacterDefinitions:Far + extern F_DrawButtonObject:Far + extern F_PreButtonObject:Far + extern F_PostButtonObject:Far + extern F_CallFarFunction:Far + extern F_DrawThumbBar:Far + extern F_DrawScalableThumbBar:Far + extern F_PreThumbBar:Far + extern F_PreScalableThumbBar:Far + extern F_PostThumbBar:Far + extern F_PostScalableThumbBar:Far + extern F_DrawInfoLine:Far + extern F_CallFarPreFunction:Far + extern F_CallFarPostFunction:Far + extern F_DrawToggle:Far + extern F_PreToggle:Far + extern F_PostToggle:Far - Extrn F_Draw5Num:Far - Extrn F_Pre5Num:Far - Extrn F_Post5Num:Far + extern F_Draw5Num:Far + extern F_Pre5Num:Far + extern F_Post5Num:Far - Extrn F_Draw3Num:Far - Extrn F_Pre3Num:Far - Extrn F_Post3Num:Far + extern F_Draw3Num:Far + extern F_Pre3Num:Far + extern F_Post3Num:Far - Extrn Glbl_TutorialHandler:Far + extern Glbl_TutorialHandler:Far - Extrn H_SetHelpContext:Far + extern H_SetHelpContext:Far - Extrn K_GetKey:Far - Extrn K_InitKeyBoard:Far - Extrn K_UnInitKeyBoard:Far - Extrn K_IsKeyWaiting:Far - Extrn K_IsAnyKeyDown:Far + extern K_GetKey:Far + extern K_InitKeyBoard:Far + extern K_UnInitKeyBoard:Far + extern K_IsKeyWaiting:Far + extern K_IsAnyKeyDown:Far - Extrn PE_DrawOrderList:Far - Extrn PE_PreOrderList:Far - Extrn PE_PostOrderList:Far + extern PE_DrawOrderList:Far + extern PE_PreOrderList:Far + extern PE_PostOrderList:Far - Extrn S_Set80x25Mode:Far - Extrn S_SetPalette:Far - Extrn S_RedefineCharacters:Far - Extrn S_DrawBox:Far - Extrn S_ClearScreen:Far - Extrn S_UpdateScreen:Far + extern S_Set80x25Mode:Far + extern S_SetPalette:Far + extern S_RedefineCharacters:Far + extern S_DrawBox:Far + extern S_ClearScreen:Far + extern S_UpdateScreen:Far -; Extrn MouseDirectEnable:Far, MouseDirectDisable:Far - Extrn MouseSaveEvents:Far, MouseRestoreEvents:Far - Extrn MouseInput:Far, MouseClearEvents:Far - Extrn GetKeyboardLock:Far, MIDIBufferEmpty:Far +; extern MouseDirectEnable:Far, MouseDirectDisable:Far + extern MouseSaveEvents:Far, MouseRestoreEvents:Far + extern MouseInput:Far, MouseClearEvents:Far + extern GetKeyboardLock:Far, MIDIBufferEmpty:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -88,7 +85,7 @@ EndS ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Main DWORD Public 'Code' USE16 - Assume CS:Main, DS:Nothing + ;Assume CS:Main, DS:Nothing ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -165,7 +162,7 @@ ReleaseTimeSlice DB 0 ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc M_FunctionDivider Far ; Given DS:SI points to list +M_FunctionDivider:;:;Far ; Given DS:SI points to list ; Carry set if none found Push BX @@ -264,11 +261,11 @@ M_FunctionDivider4: ; Ret -EndP M_FunctionDivider +;EndP M_FunctionDivider ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc M_FunctionHandler Far +M_FunctionHandler:;:;Far ARG ObjectList:DWord Push BP @@ -333,9 +330,9 @@ M_FunctionHandler20: M_FunctionHandler21: -IF TUTORIAL +%IF TUTORIAL Call Glbl_TutorialHandler -ENDIF +%ENDIF Call S_UpdateScreen @@ -627,15 +624,15 @@ M_FunctionHandler15: Add Word Ptr CS:GlobalKeyList, 7 Jmp M_FunctionHandler10 -EndP M_FunctionHandler +;EndP M_FunctionHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc M_Object1ListDefault Far ; Reqs: DI = offset of list +M_Object1ListDefault:;:;Far ; Reqs: DI = offset of list Mov CX, 0FFFFh -Proc M_Object1List Far ; Reqs.. CX = inital object. +M_Object1List:;:;Far ; Reqs.. CX = inital object. ; Reqs.. DI = offset of list Mov AX, Object1 @@ -652,13 +649,9 @@ M_Object1List1: Ret -EndP M_Object1List -EndP M_Object1ListDefault +;EndP M_Object1List +;EndP M_Object1ListDefault ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� EndS - -;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� - -End diff --git a/it_mmtsr.s b/it_mmtsr.s index 2cfec75..a258fd8 100644 --- a/it_mmtsr.s +++ b/it_mmtsr.s @@ -4,17 +4,17 @@ .386 -include switch.inc +%include "switch.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Extrn E_AllocateEMS:Far - Extrn E_GetEMSPageFrame:Far - Extrn E_ReleaseEMS:Far - Extrn E_MapEMSMemory:Far - Extrn Music_Stop:Far + extern E_AllocateEMS:Far + extern E_GetEMSPageFrame:Far + extern E_ReleaseEMS:Far + extern E_MapEMSMemory:Far + extern Music_Stop:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -26,10 +26,10 @@ include switch.inc ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment MMTSR PARA Public USE16 'Code' - Assume CS:MMTSR, DS:MMTSR + ;Assume CS:MMTSR, DS:MMTSR CREATENEWLOGFILE EQU 0 -include debug.inc +%include "debug.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -117,11 +117,11 @@ Proc MMTSR_InstallMMTSR Far @error0: ; print message at offset DS:DX onto screen Ret -EndP MMTSR_InstallMMTSR +;EndP MMTSR_InstallMMTSR ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -Proc MMTSR_UninstallMMTSR Far +Proc MMTSR_UninstallMMTSR Far Push CS Pop DS @@ -140,7 +140,7 @@ Proc MMTSR_UninstallMMTSR Far MMTSR_UninstallMMTSR1: Ret -EndP MMTSR_UninstallMMTSR +;EndP MMTSR_UninstallMMTSR ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_mouse.s b/it_mouse.s index 3639089..a172d4c 100644 --- a/it_mouse.s +++ b/it_mouse.s @@ -2,9 +2,6 @@ ;� Mouse Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386P - ; MouseRecord Structure... ; Area DW Left, Top, Right, Bottom ; Condition DB ? @@ -31,15 +28,15 @@ ; On - Cursor outside area ; Bit 4: Always call, ignore area -include switch.inc +%include "switch.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Extrn S_SetSequencer:Far, S_ResetSequencer:Far - Extrn S_SetDirectMode:Far - Extrn S_GetDestination:Far + extern S_SetSequencer:Far, S_ResetSequencer:Far + extern S_SetDirectMode:Far + extern S_GetDestination:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -63,10 +60,10 @@ include switch.inc ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Mouse PARA Public 'Code' USE16 - Assume CS:Mouse, DS:Nothing + ;Assume CS:Mouse, DS:Nothing CREATENEWLOGFILE EQU 0 -include debug.inc +%include "debug.inc" ; Assumes 80x50 display (512 characters, 8x8 pixels per char.) @@ -195,11 +192,11 @@ MouseQueueEnd DB 0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc RestoreMouse Far +Proc RestoreMouse Far Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse Cmp MouseDisplay, 0 JE RestoreMouse1 @@ -209,14 +206,14 @@ Proc RestoreMouse Far RestoreMouse1: Ret -EndP RestoreMouse - Assume DS:Nothing +;EndP RestoreMouse + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc RemoveMouseCursor ; Given ES=cursor to remove +Proc RemoveMouseCursor ; Given ES=cursor to remove - Assume DS:Mouse + ;Assume DS:Mouse Mov BX, Offset OldCharacterData Mov DI, MouseCursorOffset @@ -270,16 +267,16 @@ RemoveMouseCursor8: RemoveMouseCursor3: Ret -EndP RemoveMouseCursor - Assume DS:Nothing +;EndP RemoveMouseCursor + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc RestoreMouseGraphics Far +Proc RestoreMouseGraphics Far Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse Mov AL, RestoreGraphicsRequired Cmp MouseDisplay, 0 @@ -343,13 +340,13 @@ RestoreMouseGraphics3: RestoreMouseGraphics4: Ret -EndP RestoreMouseGraphics - Assume DS:Nothing +;EndP RestoreMouseGraphics + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SaveMouseCursor - Assume DS:Mouse +Proc SaveMouseCursor + ;Assume DS:Mouse Push CS ; *** Pop DS ; *** @@ -482,13 +479,13 @@ SaveMouseCursor7: SaveMouseCursor9: Ret -EndP SaveMouseCursor - Assume DS:Nothing +;EndP SaveMouseCursor + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GenerateMouseCursor - Assume DS:Mouse +Proc GenerateMouseCursor + ;Assume DS:Mouse ; Push CS ; *** ; Pop DS ; *** @@ -628,13 +625,13 @@ GenerateMouseCharacter6: Ret -EndP GenerateMouseCursor - Assume DS:Nothing +;EndP GenerateMouseCursor + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PlotMouseCursor - Assume DS:Mouse +Proc PlotMouseCursor + ;Assume DS:Mouse Push CS ; *** Pop DS ; *** @@ -675,12 +672,12 @@ PlotMouseCursor3: PlotMouseCursor4: Ret -EndP PlotMouseCursor - Assume DS:Nothing +;EndP PlotMouseCursor + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DrawMouseCursor ; Given ES to write to. +Proc DrawMouseCursor ; Given ES to write to. Call SaveMouseCursor Call GenerateMouseCursor @@ -692,15 +689,15 @@ Proc DrawMouseCursor ; Given ES to write to. Ret -EndP DrawMouseCursor +;EndP DrawMouseCursor ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DrawMouse Far +Proc DrawMouse Far Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse Cmp MouseDisplay, 0 JE DrawMouse1 @@ -710,12 +707,12 @@ Proc DrawMouse Far DrawMouse1: Ret -EndP DrawMouse - Assume DS:Nothing +;EndP DrawMouse + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseInterruptHandler Far +Proc MouseInterruptHandler Far PushF @@ -728,7 +725,7 @@ Proc MouseInterruptHandler Far Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse Mov NewMouseX, CX Mov NewMouseY, DX @@ -891,12 +888,12 @@ MouseInterruptHandler1: Ret -EndP MouseInterruptHandler - Assume DS:Nothing +;EndP MouseInterruptHandler + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc InitMouse Far +Proc InitMouse Far Cmp CS:MouseEnabled, 0 JE InitMouse2 @@ -951,44 +948,44 @@ InitMouse1: Ret -EndP InitMouse +;EndP InitMouse ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UnInitMouse Far +Proc UnInitMouse Far Xor AX, AX Int 33h Ret -EndP UnInitMouse +;EndP UnInitMouse ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseSecondSetEnable Far +Proc MouseSecondSetEnable Far Mov CS:OverwriteSecondSet, 0 Ret -EndP MouseSecondSetEnable +;EndP MouseSecondSetEnable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseSecondSetDisable Far +Proc MouseSecondSetDisable Far Mov CS:OverwriteSecondSet, 1 Ret -EndP MouseSecondSetDisable +;EndP MouseSecondSetDisable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseToggle Far +Proc MouseToggle Far Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse Cmp MouseAvailable, 0 JE MouseToggle1 @@ -1008,12 +1005,12 @@ MouseToggle1: Mov AX, 1 Ret -EndP MouseToggle - Assume DS:Nothing +;EndP MouseToggle + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseSetXY Far +Proc MouseSetXY Far PushF @@ -1062,18 +1059,18 @@ MouseSetXY1: Ret -EndP MouseSetXY +;EndP MouseSetXY ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseSaveEvents Far +Proc MouseSaveEvents Far PushF Push DS Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse Cmp MouseAvailable, 0 JE MouseSaveEvents1 @@ -1094,19 +1091,19 @@ MouseSaveEvents1: Ret -EndP MouseSaveEvents - Assume DS:Nothing +;EndP MouseSaveEvents + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseRestoreEvents Far +Proc MouseRestoreEvents Far PushF Push DS Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse Cmp MouseAvailable, 0 JE MouseRestoreEvents1 @@ -1127,36 +1124,36 @@ MouseRestoreEvents1: Ret -EndP MouseRestoreEvents - Assume DS:Nothing +;EndP MouseRestoreEvents + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetKeyboardLock Far ; AL = lock state +Proc SetKeyboardLock Far ; AL = lock state Mov CS:LockKeyBoard, AL Ret -EndP SetKeyboardLock +;EndP SetKeyboardLock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetKeyboardLock Far +Proc GetKeyboardLock Far Mov AL, CS:LockKeyBoard Ret -EndP GetKeyboardLock +;EndP GetKeyboardLock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc AddMouseQueue Far ; AX, CX, DX +Proc AddMouseQueue Far ; AX, CX, DX Push DS Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse Mov BH, QUEUEELEMENTSIZE Mov BL, MouseQueueEnd @@ -1175,18 +1172,18 @@ AddMouseQueue1: Pop DS Ret -EndP AddMouseQueue - Assume DS:Nothing +;EndP AddMouseQueue + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseInput Far +Proc MouseInput Far PushF Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse ClI @@ -1226,12 +1223,12 @@ MouseInput3: PopF Ret -EndP MouseInput - Assume DS:Nothing +;EndP MouseInput + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseAddEvent Far ; Given DS:SI to event +Proc MouseAddEvent Far ; Given DS:SI to event PushF @@ -1262,74 +1259,74 @@ MouseAddEvent1: PopF Ret -EndP MouseAddEvent +;EndP MouseAddEvent ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseClearEvents Far +Proc MouseClearEvents Far Mov AX, CS:MouseEventStart Mov CS:MouseEventEnd, AX Ret -EndP MouseClearEvents +;EndP MouseClearEvents ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseRemoveEvents Far ; AX = number to remove +Proc MouseRemoveEvents Far ; AX = number to remove ShL AX, 4 Sub CS:MouseEventEnd, AX Ret -EndP MouseRemoveEvents +;EndP MouseRemoveEvents ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseGetStatus Far +Proc MouseGetStatus Far Mov AL, CS:MouseStatus Ret -EndP MouseGetStatus +;EndP MouseGetStatus ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc NewCharacterSet Far +Proc NewCharacterSet Far Or CS:RestoreGraphicsRequired, 2 Ret -EndP NewCharacterSet +;EndP NewCharacterSet ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseUpdateEnable Far +Proc MouseUpdateEnable Far Mov CS:UpdateScreen, 1 Ret -EndP MouseUpdateEnable +;EndP MouseUpdateEnable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MouseUpdateDisable Far +Proc MouseUpdateDisable Far Mov CS:UpdateScreen, 0 Ret -EndP MouseUpdateDisable +;EndP MouseUpdateDisable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetMouseCursorType Far +Proc SetMouseCursorType Far PushF Push DS Push CS Pop DS - Assume DS:Mouse + ;Assume DS:Mouse ClI Mov MouseCursorType, BX @@ -1376,20 +1373,20 @@ SetMouseCursorType4: PopF Ret -EndP SetMouseCursorType +;EndP SetMouseCursorType ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc CmdLineDisableMouse Far +Proc CmdLineDisableMouse Far Mov Word Ptr CS:MouseDisplay, 0 Ret -EndP CmdLineDisableMouse +;EndP CmdLineDisableMouse ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ForceMouseRestore Far +Proc ForceMouseRestore Far Call MouseUpdateDisable ClI @@ -1399,7 +1396,7 @@ Proc ForceMouseRestore Far StI Jmp MouseUpdateEnable -EndP ForceMouseRestore +;EndP ForceMouseRestore ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� diff --git a/it_msg.s b/it_msg.s index 817ee39..55a0ab1 100644 --- a/it_msg.s +++ b/it_msg.s @@ -9,11 +9,11 @@ ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Extrn M_FunctionDivider:Far - Extrn M_Object1List:Far - Extrn S_GetDestination:Far - Extrn O1_LongMessageList:Far - Extrn O1_ConfirmClearMessage:Far + extern M_FunctionDivider:Far + extern M_Object1List:Far + extern S_GetDestination:Far + extern O1_LongMessageList:Far + extern O1_ConfirmClearMessage:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -29,7 +29,7 @@ ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Message BYTE Public 'Code' USE16 - Assume CS:Message, DS:Nothing + ;Assume CS:Message, DS:Nothing ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -154,7 +154,7 @@ EditMsgKeys Label ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_ResetMessage Far +Proc Msg_ResetMessage Far Push CS Pop ES @@ -168,17 +168,17 @@ Proc Msg_ResetMessage Far Ret -EndP Msg_ResetMessage +;EndP Msg_ResetMessage ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_DrawMessage Far +Proc Msg_DrawMessage Far Call S_GetDestination Push CS Pop DS - Assume DS:Message + ;Assume DS:Message Cmp Edit, 0 JE Msg_DrawMessage7 @@ -302,16 +302,16 @@ Msg_DrawMessage13: Msg_DrawMessageEnd: Ret -EndP Msg_DrawMessage - Assume DS:Nothing +;EndP Msg_DrawMessage + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_PreMessage Far +Proc Msg_PreMessage Far Push CS Pop DS - Assume DS:Message + ;Assume DS:Message Cmp Edit, 0 JE Msg_PreMessage1 @@ -331,12 +331,12 @@ Proc Msg_PreMessage Far Msg_PreMessage1: Ret -EndP Msg_PreMessage - Assume DS:Nothing +;EndP Msg_PreMessage + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_PostMessage Far +Proc Msg_PostMessage Far Push CS Pop DS @@ -393,12 +393,12 @@ Msg_PostMessage5: Mov AX, 1 Ret -EndP Msg_PostMessage - Assume DS:Nothing +;EndP Msg_PostMessage + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_Tab Far +Proc Msg_Tab Far Mov CX, 8 @@ -412,12 +412,12 @@ Msg_Tab1: Ret -EndP Msg_Tab +;EndP Msg_Tab ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_ViewMsgUp Far - Assume DS:Message +Proc Msg_ViewMsgUp Far + ;Assume DS:Message Mov AX, TopLine Sub AX, 1 @@ -427,13 +427,13 @@ Proc Msg_ViewMsgUp Far Mov AX, 1 Ret -EndP Msg_ViewMsgUp - Assume DS:Nothing +;EndP Msg_ViewMsgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_ViewMsgDown Far - Assume DS:Message +Proc Msg_ViewMsgDown Far + ;Assume DS:Message Mov AX, TopLine Inc AX @@ -448,13 +448,13 @@ Msg_ViewMsgDown1: Mov AX, 1 Ret -EndP Msg_ViewMsgDown - Assume DS:Nothing +;EndP Msg_ViewMsgDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_ViewMsgPgUp Far - Assume DS:Message +Proc Msg_ViewMsgPgUp Far + ;Assume DS:Message Mov AX, TopLine Sub AX, 35 @@ -468,13 +468,13 @@ Msg_ViewMsgPgUp1: Mov AX, 1 Ret -EndP Msg_ViewMsgPgUp - Assume DS:Nothing +;EndP Msg_ViewMsgPgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_ViewMsgPgDn Far - Assume DS:Message +Proc Msg_ViewMsgPgDn Far + ;Assume DS:Message Mov AX, TopLine Add AX, 35 @@ -489,13 +489,13 @@ Msg_ViewMsgPgDn1: Mov AX, 1 Ret -EndP Msg_ViewMsgPgDn - Assume DS:Nothing +;EndP Msg_ViewMsgPgDn + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_ViewMsgEdit Far - Assume DS:Message +Proc Msg_ViewMsgEdit Far + ;Assume DS:Message Mov TopLine, 0 Mov CurrentLine, 0 @@ -505,26 +505,26 @@ Proc Msg_ViewMsgEdit Far Mov AX, 1 Ret -EndP Msg_ViewMsgEdit - Assume DS:Nothing +;EndP Msg_ViewMsgEdit + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgView Far - Assume DS:Message +Proc Msg_EditMsgView Far + ;Assume DS:Message Mov Edit, 0 Mov AX, 1 Ret -EndP Msg_EditMsgView - Assume DS:Nothing +;EndP Msg_EditMsgView + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgLeft Far - Assume DS:Message +Proc Msg_EditMsgLeft Far + ;Assume DS:Message Sub CurrentPosition, 1 AdC CurrentPosition, 0 @@ -532,13 +532,13 @@ Proc Msg_EditMsgLeft Far Mov AX, 1 Ret -EndP Msg_EditMsgLeft - Assume DS:Nothing +;EndP Msg_EditMsgLeft + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgRight Far - Assume DS:Message +Proc Msg_EditMsgRight Far + ;Assume DS:Message Mov SI, CurrentPosition Cmp SI, MESSAGELENGTH-2 @@ -553,13 +553,13 @@ Msg_EditMsgRight1: Mov AX, 1 Ret -EndP Msg_EditMsgRight - Assume DS:Nothing +;EndP Msg_EditMsgRight + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgUp Far - Assume DS:Message +Proc Msg_EditMsgUp Far + ;Assume DS:Message Mov SI, CurrentPosition ; Need to search back ; twice... @@ -590,12 +590,12 @@ Msg_EditMsgUpEnd: Mov AX, 1 Ret -EndP Msg_EditMsgUp - Assume DS:Nothing +;EndP Msg_EditMsgUp + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgPgUp Far +Proc Msg_EditMsgPgUp Far Mov CX, 35 @@ -608,12 +608,12 @@ Msg_EditMsgPgUp1: Mov AX, 1 Ret -EndP Msg_EditMsgPgUp +;EndP Msg_EditMsgPgUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgDown Far - Assume DS:Message +Proc Msg_EditMsgDown Far + ;Assume DS:Message ; Search for enter Mov SI, CurrentPosition @@ -650,12 +650,12 @@ Msg_EditMsgDownEnd: Mov AX, 1 Ret -EndP Msg_EditMsgDown - Assume DS:Nothing +;EndP Msg_EditMsgDown + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgPgDn Far +Proc Msg_EditMsgPgDn Far Mov CX, 35 @@ -668,12 +668,12 @@ Msg_EditMsgPgDn1: Mov AX, 1 Ret -EndP Msg_EditMsgPgDn +;EndP Msg_EditMsgPgDn ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgDelete Far - Assume DS:Message +Proc Msg_EditMsgDelete Far + ;Assume DS:Message Mov SI, CurrentPosition Mov DX, 1 @@ -683,12 +683,12 @@ Proc Msg_EditMsgDelete Far Mov AX, 1 Ret -EndP Msg_EditMsgDelete - Assume DS:Nothing +;EndP Msg_EditMsgDelete + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgInsert Far +Proc Msg_EditMsgInsert Far Mov SI, CurrentPosition Mov DX, 1 @@ -702,12 +702,12 @@ Msg_EditMsgInsert1: Mov AX, 1 Ret -EndP Msg_EditMsgInsert +;EndP Msg_EditMsgInsert ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgBackspace Far - Assume DS:Message +Proc Msg_EditMsgBackspace Far + ;Assume DS:Message Mov SI, CurrentPosition And SI, SI @@ -720,13 +720,13 @@ Msg_EditMsgBackspace1: Mov AX, 1 Ret -EndP Msg_EditMsgBackspace - Assume DS:Nothing +;EndP Msg_EditMsgBackspace + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgDeleteLine Far - Assume DS:Message +Proc Msg_EditMsgDeleteLine Far + ;Assume DS:Message Mov SI, CurrentPosition ; Search back for ; start of line.. @@ -753,12 +753,12 @@ Msg_EditMsgDeleteLine4: Mov AX, 1 Ret -EndP Msg_EditMsgDeleteLine - Assume DS:Nothing +;EndP Msg_EditMsgDeleteLine + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_ClearMessage Far +Proc Msg_ClearMessage Far Mov DI, Offset O1_ConfirmClearMessage Mov CX, 4 @@ -773,12 +773,12 @@ Msg_ClearMessage1: Mov AX, 1 Ret -EndP Msg_ClearMessage +;EndP Msg_ClearMessage ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgHome Far - Assume DS:Message +Proc Msg_EditMsgHome Far + ;Assume DS:Message Mov SI, CurrentPosition Call FindStart @@ -787,13 +787,13 @@ Proc Msg_EditMsgHome Far Mov AX, 1 Ret -EndP Msg_EditMsgHome - Assume DS:Nothing +;EndP Msg_EditMsgHome + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_EditMsgEnd Far - Assume DS:Message +Proc Msg_EditMsgEnd Far + ;Assume DS:Message Mov SI, CurrentPosition @@ -815,12 +815,12 @@ Msg_EditMsgEnd1: Mov AX, 1 Ret -EndP Msg_EditMsgEnd - Assume DS:Nothing +;EndP Msg_EditMsgEnd + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc FindStart +Proc FindStart FindStart1: Sub SI, 1 @@ -833,11 +833,11 @@ FindStart2: Inc SI Ret -EndP FindStart +;EndP FindStart ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc InsertData ; SI = pos, DX = length. +Proc InsertData ; SI = pos, DX = length. Push CX Push DX @@ -881,12 +881,12 @@ InsertDataEnd: Pop CX Ret -EndP InsertData +;EndP InsertData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc DeleteData ; SI = pos, DX = length - ; Assume DS:Message +Proc DeleteData ; SI = pos, DX = length + ; ;Assume DS:Message Push CX Push DX @@ -916,11 +916,11 @@ DeleteData1: Pop CX Ret -EndP DeleteData +;EndP DeleteData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc CheckWordWrap ; Check current line only. +Proc CheckWordWrap ; Check current line only. Mov SI, CurrentPosition Call FindStart @@ -969,11 +969,11 @@ CheckWordWrap7: ; Insert an enter CheckWordWrap8: Ret -EndP CheckWordWrap +;EndP CheckWordWrap ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_GetMessageLength Far ; Returns AX +Proc Msg_GetMessageLength Far ; Returns AX Push DS Push SI @@ -995,11 +995,11 @@ Msg_GetMessageLength1: Pop DS Ret -EndP Msg_GetMessageLength +;EndP Msg_GetMessageLength ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_GetMessageOffset Far +Proc Msg_GetMessageOffset Far Push CS Pop DS @@ -1007,20 +1007,20 @@ Proc Msg_GetMessageOffset Far Mov DX, Offset MessageData Ret -EndP Msg_GetMessageOffset +;EndP Msg_GetMessageOffset ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Msg_ToggleCharacterSet Far - Assume DS:Message +Proc Msg_ToggleCharacterSet Far + ;Assume DS:Message Xor CharacterColour, 6 xor 12 Mov AX, 1 Ret -EndP Msg_ToggleCharacterSet - Assume DS:Nothing +;EndP Msg_ToggleCharacterSet + ;Assume DS:Nothing ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_music.s b/it_music.s index 8c78bb6..cc9a83c 100644 --- a/it_music.s +++ b/it_music.s @@ -2,71 +2,68 @@ ;� Music Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - .386 - .387 - -include switch.inc -include network.inc +%include "switch.inc" +%include "network.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Extrn D_GotoStartingDirectory:Far - Extrn D_SetDriveDirectoryFar:Far - Extrn D_GetFileName:Far - Extrn D_Showtime:Far + extern D_GotoStartingDirectory:Far + extern D_SetDriveDirectoryFar:Far + extern D_GetFileName:Far + extern D_Showtime:Far - Extrn E_EMSAvailable:Far - Extrn E_SaveEMSPageFrame:Far - Extrn E_RestoreEMSPageFrame:Far - Extrn E_UnInitEMS:Far - Extrn E_AllocateEMS:Far - Extrn E_MapEMSMemory:Far - Extrn E_GetEMSPageFrame:Far - Extrn E_ReleaseEMS:Far - Extrn E_AllocateBlockEMS:Far, E_ReleaseBlockEMS:Far - Extrn E_MapAlignedBlockEMS:Far - Extrn E_GetInternalEMSHandle:Far + extern E_EMSAvailable:Far + extern E_SaveEMSPageFrame:Far + extern E_RestoreEMSPageFrame:Far + extern E_UnInitEMS:Far + extern E_AllocateEMS:Far + extern E_MapEMSMemory:Far + extern E_GetEMSPageFrame:Far + extern E_ReleaseEMS:Far + extern E_AllocateBlockEMS:Far, E_ReleaseBlockEMS:Far + extern E_MapAlignedBlockEMS:Far + extern E_GetInternalEMSHandle:Far - Extrn I_TagInstrument:Far - Extrn I_TagSample:Far + extern I_TagInstrument:Far + extern I_TagSample:Far - Extrn O1_OutOfSoundCardMemoryList:Far + extern O1_OutOfSoundCardMemoryList:Far - Extrn M_FunctionHandler:Far - Extrn M_Object1List:Far + extern M_FunctionHandler:Far + extern M_Object1List:Far - Extrn Network_UpdatePatternIfIdle:Far + extern Network_UpdatePatternIfIdle:Far - Extrn PE_GetCurrentPattern:Far - Extrn PE_FillHeader:Far - Extrn S_GetDestination:Far - Extrn S_UnInitScreen:Far - Extrn S_DirectDrawString:Far - Extrn S_DrawString:Far - Extrn S_SetDirectMode:Far - Extrn S_SaveScreen:Far - Extrn S_RestoreScreen:Far - Extrn S_DrawBox:Far - Extrn S_DrawString:Far - Extrn S_UpdateScreen:Far - Extrn S_DrawSmallBox:Far - Extrn F_DrawHeader:Far + extern PE_GetCurrentPattern:Far + extern PE_FillHeader:Far + extern S_GetDestination:Far + extern S_UnInitScreen:Far + extern S_DirectDrawString:Far + extern S_DrawString:Far + extern S_SetDirectMode:Far + extern S_SaveScreen:Far + extern S_RestoreScreen:Far + extern S_DrawBox:Far + extern S_DrawString:Far + extern S_UpdateScreen:Far + extern S_DrawSmallBox:Far + extern F_DrawHeader:Far - Extrn K_GetKey:Far - Extrn StartClock:Far - Extrn SetInfoLine:Far, SetInfoLine2:Far - Extrn M_Object1List:Far + extern K_GetKey:Far + extern StartClock:Far + extern SetInfoLine:Far, SetInfoLine2:Far + extern M_Object1List:Far - Extrn MaxRow + extern MaxRow - Extrn IdleUpdateInfoLine:Far - Extrn GlobalKeyList:Far - Extrn GetEnvironment:Far + extern IdleUpdateInfoLine:Far + extern GlobalKeyList:Far + extern GetEnvironment:Far - Extrn MIDIBufferEmpty:Far, MIDISend:Far, MIDI_ClearTable:Far - Extrn O1_ShowTime + extern MIDIBufferEmpty:Far, MIDISend:Far, MIDI_ClearTable:Far + extern O1_ShowTime ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -170,7 +167,7 @@ include network.inc Public Music_ToggleSoloInstrument, Music_ToggleSoloSample - Extrn PE_GetLastInstrument:Far + extern PE_GetLastInstrument:Far Public CurrentPattern ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� @@ -188,10 +185,10 @@ Segment SongData PARA Public 'Data' EndS Segment Music DWORD Public 'Code' USE16 - Assume CS:Music + ;Assume CS:Music CREATENEWLOGFILE EQU 0 -include debug.inc +%include "debug.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -390,14 +387,14 @@ UnsoloMsg DB "Solo disabled", 0 SoloSampleMsg DB "Solo sample ", 0FDh, "D", 0 SoloInstrumentMsg DB "Solo instrument ", 0FDh, "D", 0 -IFDEF DEBUG +%IF DEF DEBUG LoadDriverMessage DB "Loading driver:", 0 UnableToReadFileMessage DB "Unable to read file", 0 DetectingMessage DB "Testing driver", 0 ScreenOffset DW 0 -ENDIF +%ENDIF PCSpeakerDriver DB "ITPCSPKR.DRV", 0 SBDriver DB "ITSB.DRV", 0 @@ -482,7 +479,7 @@ PitchTable Label DWord DW 0, 32, 59167, 33, 60214, 35, 3580, 38, 20806, 40, 46850, 42 DW 16701, 45, 61986, 47, 52221, 50, 53567, 53, 1148, 57, 26736, 60 -IF USEFPUCODE +%IF USEFPUCODE FPSave DB 128 Dup (0) @@ -491,7 +488,7 @@ Const1_On_768 DD 3AAAAAABh SlideValue DW 0 NewControlWord DW 7Fh -ELSE +%ELSE FineLinearSlideUpTable Label DW 0, 1, 59, 1, 118, 1, 178, 1, 237, 1 ; 0->4 @@ -592,7 +589,7 @@ LinearSlideDownTable Label DW 26770, 26674, 26577, 26482, 26386, 26291, 26196, 26102 ;248->255 DW 26008 ; 256 -ENDIF ; USEFPUCODE +%ENDIF ; USEFPUCODE ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -650,11 +647,11 @@ RetrigOffsets Label ;� Sound Driver Data � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF OLDDRIVER +%IF OLDDRIVER DriverID DB "Impulse Tracker Sound Driver" -ELSE +%ELSE DriverID DB "Impulse Tracker Advanced Sound Driver" -ENDIF +%ENDIF ALIGN 2 SoundDriverSegment DW 0 @@ -669,11 +666,11 @@ DriverFlags DW 0 ; Bit 1 = MIDI Out supported ; Bit 2 = Hiqual ; Bit 3 = Output waveform data available -IF OLDDRIVER +%IF OLDDRIVER DB 64 - ($ - DriverVariableTable) Dup (0) -ELSE +%ELSE DB 16 - ($ - DriverVariableTable) Dup (0) -ENDIF +%ENDIF ALIGN 4 @@ -704,11 +701,11 @@ DriverGetWaveform DD 0 EndDriverFunctions Label -IF OLDDRIVER +%IF OLDDRIVER DD 63-(EndDriverFunctions-StartDriverFunctions)/4 Dup (0) -ELSE +%ELSE DD 31-(EndDriverFunctions-StartDriverFunctions)/4 Dup (0) -ENDIF +%ENDIF DW 0 DriverLength DW 0 @@ -755,7 +752,7 @@ DriverRequiredFunctions Label ;� Registers for use: AX, BX, DX, ES, SI � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc RecalculateAllVolumes Far +Proc RecalculateAllVolumes Far Mov CX, NumChannels Mov SI, Offset SlaveChannelInformationTable @@ -769,11 +766,11 @@ RecalculateAllVolumes1: Ret -EndP RecalculateAllVolumes +;EndP RecalculateAllVolumes ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc InitPlayInstrument ; BX = instrument offset +Proc InitPlayInstrument ; BX = instrument offset Push ECX @@ -985,11 +982,11 @@ InitPlayInstrumentNoSample: Ret -EndP InitPlayInstrument +;EndP InitPlayInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ApplyRandomValues +Proc ApplyRandomValues Mov SI, [DI+24h] Mov BX, [SI+30h] @@ -1063,13 +1060,13 @@ RandomPan1: RandomPanEnd: Ret -EndP ApplyRandomValues +;EndP ApplyRandomValues ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� LastMIDIByte DB 0FFh -Proc MIDISendFilter +Proc MIDISendFilter Test CS:DriverFlags, 1 JZ MIDISendFilter2 @@ -1090,12 +1087,12 @@ MIDISendFilter1: MIDISendFilter2: Ret -EndP MIDISendFilter - Assume DS:Nothing +;EndP MIDISendFilter + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetFilterCutoff ; Given BL = filtervalue. +Proc SetFilterCutoff ; Given BL = filtervalue. ; Assumes that channel is non-disowned Push DI @@ -1114,11 +1111,11 @@ Proc SetFilterCutoff ; Given BL = filtervalue. Pop DI Ret -EndP SetFilterCutoff +;EndP SetFilterCutoff ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc SetFilterResonance ; Given BL = filtervalue. +Proc SetFilterResonance ; Given BL = filtervalue. ; Assumes that channel is non-disowned Push DI @@ -1137,17 +1134,17 @@ Proc SetFilterResonance ; Given BL = filtervalue. Pop DI Ret -EndP SetFilterResonance +;EndP SetFilterResonance ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� MIDIPitchDepthSent DW 0 -Proc MIDITranslate ; Assumes DS:SI points to slave +Proc MIDITranslate ; Assumes DS:SI points to slave ; And DS:DI points to host. ; BX = offset of MIDI command to interpret - Assume DS:Music + ;Assume DS:Music Test DriverFlags, 1 JZ MIDITranslateEnd @@ -1174,19 +1171,19 @@ Proc MIDITranslate ; Assumes DS:SI points to slave Mov DWord Ptr [ChannelCountTable+200], EAX ; scratch area -IFE USEFPUCODE ; If FPU code is being used, FP registers are already saved +%IF E USEFPUCODE ; If FPU code is being used, FP registers are already saved FNSave [ChannelCountTable] ; Scratch area FNInit -ENDIF +%ENDIF FLd [PitchDepthConstant] FIDiv DWord Ptr [ChannelCountTable+200] FILd DWord Ptr [SI+10h] ; Current pitch FIDiv DWord Ptr [SI+1Ch] ; Original pitch FYL2X FIStP DWord Ptr [ChannelCountTable+200] -IFE USEFPUCODE +%IF E USEFPUCODE FRstor [ChannelCountTable] -ENDIF +%ENDIF ; OK.. [ChannelCountTable] contains pitch depth. ; Have to check: @@ -1484,13 +1481,13 @@ MIDITranslate3: MIDITranslateEnd: Ret -EndP MIDITranslate - Assume DS:Nothing +;EndP MIDITranslate + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc AllocateChannel ; Returns SI. Carry set if problems - Assume DS:Music +Proc AllocateChannel ; Returns SI. Carry set if problems + ;Assume DS:Music Push CX Mov LastSlaveChannel, 0 @@ -2189,15 +2186,15 @@ AllocateChannelInstrument2: StC Ret -EndP AllocateChannel - Assume DS:Nothing +;EndP AllocateChannel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Seed1 DW 1234h Seed2 DW 5678h -Proc Random +Proc Random Push BX Push CX @@ -2226,11 +2223,11 @@ Proc Random Ret -EndP Random +;EndP Random ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetLoopInformation +Proc GetLoopInformation ; Destroys AX, BX, CX, DX Mov BX, [SI+34h] ; ES:BX points to sample header Mov AL, [ES:BX+12h] ; AL = sample flags @@ -2292,32 +2289,32 @@ GetLoopInformation6: Ret -EndP GetLoopInformation +;EndP GetLoopInformation ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include it_m_eff.inc +%include "it_m_eff.inc" ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PitchSlideDown ; Expects SI to slave +Proc PitchSlideDown ; Expects SI to slave ; BX = slide value - Assume DS:Music + ;Assume DS:Music -IF USEFPUCODE +%IF USEFPUCODE Neg BX -EndP PitchSlideDown ; EndP for PitchSlideDown +;EndP PitchSlideDown ; EndP for PitchSlideDown -ELSE +%ELSE Test Byte Ptr [ES:2Ch], 8 JNZ PitchSlideDownLinear ; Go on to amiga slide down. -EndP PitchSlideDown +;EndP PitchSlideDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PitchSlideDownAmiga +Proc PitchSlideDownAmiga Or Byte Ptr [SI], 32 ; recalculate pitch! @@ -2363,11 +2360,11 @@ PitchSlideDownAmiga4: PitchSlideDownAmiga3: Ret -EndP PitchSlideDownAmiga +;EndP PitchSlideDownAmiga ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PitchSlideDownLinear +Proc PitchSlideDownLinear ; Given BX = slide down value = 0->1024 Or Byte Ptr [SI], 32 ; recalculate pitch! @@ -2396,25 +2393,25 @@ PitchSlideDownLinear2: Pop DI Ret -EndP PitchSlideDownLinear +;EndP PitchSlideDownLinear ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -ENDIF ; USEFPUCODE +%ENDIF ; USEFPUCODE -Proc PitchSlideUp ; Expects SI to slave +Proc PitchSlideUp ; Expects SI to slave ; BX = slide value Test Byte Ptr [ES:2Ch], 8 JZ PitchSlideUpAmiga ; Go on to linear slide -EndP PitchSlideUp +;EndP PitchSlideUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PitchSlideUpLinear +Proc PitchSlideUpLinear -IF USEFPUCODE +%IF USEFPUCODE Mov [CS:SlideValue], BX FILD Word Ptr [CS:SlideValue] FMul [CS:Const1_On_768] ; Have SlideValue/768.0 @@ -2439,7 +2436,7 @@ PitchSlideUpFPUFreqCheck: PitchSlideUpLinear1: ; Turn off channel Or Word Ptr [SI], 200h And Byte Ptr [DI], Not 4 -ELSE +%ELSE Or Byte Ptr [SI], 32 ; recalculate pitch! @@ -2477,18 +2474,18 @@ PitchSlideUpLinear1: ; Turn off channel ; Or Byte Ptr [SI+1], 2 ; Cut! ; And Byte Ptr [DI], Not 4 -ENDIF +%ENDIF Ret -EndP PitchSlideUpLinear - Assume DS:Nothing +;EndP PitchSlideUpLinear + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PitchSlideUpAmiga +Proc PitchSlideUpAmiga -IF USEFPUCODE +%IF USEFPUCODE Mov [CS:SlideValue], BX FILD Word Ptr [CS:SlideValue] FILD DWord Ptr [SI+10h] ; InitFreq, Cmd @@ -2500,7 +2497,7 @@ IF USEFPUCODE FIStP DWord Ptr [SI+10h] Jmp PitchSlideUpFPUFreqCheck -ELSE +%ELSE Or Byte Ptr [SI], 32 ; recalculate pitch! Mov EAX, [SI+10h] @@ -2534,13 +2531,13 @@ PitchSlideUpAmiga1: ; Turn off channel ; And Byte Ptr [DI], Not 4 Ret -ENDIF +%ENDIF -EndP PitchSlideUpAmiga +;EndP PitchSlideUpAmiga ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetWaveForm Far +Proc Music_GetWaveForm Far Test Byte Ptr CS:DriverFlags, 4 JZ Music_GetWaveForm1 @@ -2553,22 +2550,22 @@ Music_GetWaveForm1: StC Ret -EndP Music_GetWaveForm +;EndP Music_GetWaveForm ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_Poll Far +Proc Music_Poll Far Mov AX, CS:PlayMode Mov BX, CS:CurrentPattern Jmp [DriverPoll] -EndP Music_Poll - Assume DS:Nothing +;EndP Music_Poll + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_InitTempo Far +Proc Music_InitTempo Far PushA Call Music_GetTempo @@ -2577,18 +2574,18 @@ Proc Music_InitTempo Far Ret -EndP Music_InitTempo +;EndP Music_InitTempo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetChannels ; Returns min of NumChannels & DriverMaxChannels +Proc GetChannels ; Returns min of NumChannels & DriverMaxChannels ; Also uses default channels if num channels ; = 0ffffh Push DS Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov AX, CmdLineNumChannels Cmp AX, 0FFFFh @@ -2614,30 +2611,30 @@ GetChannels3: ; MC4 Pop DS Ret -EndP GetChannels - Assume DS:Nothing +;EndP GetChannels + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ReinitSoundCard Far +Proc Music_ReinitSoundCard Far Call GetChannels Call [DriverReinitSound] Jmp Music_SoundCardLoadAllSamples -EndP Music_ReinitSoundCard +;EndP Music_ReinitSoundCard ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_UnInitSoundCard Far +Proc Music_UnInitSoundCard Far Jmp [DriverUninitSound] -EndP Music_UnInitSoundCard +;EndP Music_UnInitSoundCard ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_InitMusic Far +Proc Music_InitMusic Far PushAD Push DS @@ -2648,10 +2645,10 @@ Proc Music_InitMusic Far Mov AX, CS ShL EAX, 16 Mov AX, Offset Music_UpdateSampleLocation -IF ENABLEINT3 -ELSE +%IF ENABLEINT3 +%ELSE Mov [DS:0Ch], EAX -ENDIF +%ENDIF Trace " - Initialising SoundDriver Tables" @@ -2661,7 +2658,7 @@ ENDIF Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Trace " - Loading MIDI configuration" @@ -2690,15 +2687,15 @@ Music_InitMusic1: Pop ES Pop DS PopAD - Assume DS:Nothing + ;Assume DS:Nothing Ret -EndP Music_InitMusic +;EndP Music_InitMusic ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ReleasePattern Far ; AX = pattern number +Proc Music_ReleasePattern Far ; AX = pattern number Push AX Push DS @@ -2747,11 +2744,11 @@ Music_ReleasePattern1: Ret -EndP Music_ReleasePattern +;EndP Music_ReleasePattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetPattern Far ; AX = pattern number +Proc Music_GetPattern Far ; AX = pattern number ; Returns DS:SI points to pattern data. Push AX @@ -2810,11 +2807,11 @@ Music_GetPattern3: Pop AX Ret -EndP Music_GetPattern +;EndP Music_GetPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetPatternLocation Far ; AX = pattern number +Proc Music_GetPatternLocation Far ; AX = pattern number ; Returns AX = handle ; EBX = page/offset or ; seg/offset @@ -2824,7 +2821,7 @@ Proc Music_GetPatternLocation Far ; AX = pattern number Mov CX, [SI] Add CX, 8 ; CX = size of data including header -Proc Music_GetPatternLocationNoCount Far +Proc Music_GetPatternLocationNoCount Far LEA SI, [63912+EAX*4] @@ -2878,13 +2875,13 @@ Music_GetPatternLocation3: Ret -EndP Music_GetPatternLocationNoCount +;EndP Music_GetPatternLocationNoCount -EndP Music_GetPatternLocation +;EndP Music_GetPatternLocation ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_AllocatePattern Far ; DX = length. +Proc Music_AllocatePattern Far ; DX = length. ; SI = Pattern ; ES:DI points to pattern area Cmp CS:PatternStorage, 1 @@ -3001,11 +2998,11 @@ Music_AllocatePattern2: Ret -EndP Music_AllocatePattern +;EndP Music_AllocatePattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_AllocateSample Far ; AX = Sample number, 0 based +Proc Music_AllocateSample Far ; AX = Sample number, 0 based ; EDX = length ; Returns ES:DI, ES = 0 if not. Push EAX @@ -3103,11 +3100,11 @@ Music_AllocateSample3: Pop EAX Ret -EndP Music_AllocateSample +;EndP Music_AllocateSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ReleaseSample Far ; AX = sample number, 0 based +Proc Music_ReleaseSample Far ; AX = sample number, 0 based ; AH = 1 = called from network ; = 2 = called from allocate @@ -3158,11 +3155,11 @@ Music_ReleaseSample1: JA Music_ReleaseSample5 JE Music_ReleaseSample6 -IF NETWORKENABLED +%IF NETWORKENABLED Mov AH, DL Mov AL, NETWORK_DELETESAMPLEOBJECT Call Network_AddWordToQueue -ENDIF +%ENDIF Music_ReleaseSample6: Push DS @@ -3179,11 +3176,11 @@ Music_ReleaseSample5: PopAD Ret -EndP Music_ReleaseSample +;EndP Music_ReleaseSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ClearSampleName Far ; AX = Sample number (0 based) +Proc Music_ClearSampleName Far ; AX = Sample number (0 based) Push CX Push DS @@ -3210,11 +3207,11 @@ Proc Music_ClearSampleName Far ; AX = Sample number (0 based) Pop CX Ret -EndP Music_ClearSampleName +;EndP Music_ClearSampleName ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ClearAllSampleNames Far +Proc Music_ClearAllSampleNames Far Push AX Push CX @@ -3233,11 +3230,11 @@ Music_ClearAllSampleNames1: Ret -EndP Music_ClearAllSampleNames +;EndP Music_ClearAllSampleNames ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ReleaseAllSamples Far +Proc Music_ReleaseAllSamples Far Push AX Push CX @@ -3255,11 +3252,11 @@ Music_ReleaseAllSamples1: Pop AX Ret -EndP Music_ReleaseAllSamples +;EndP Music_ReleaseAllSamples ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ReleaseAllPatterns Far +Proc Music_ReleaseAllPatterns Far Push AX Push CX @@ -3276,11 +3273,11 @@ Music_ReleaseAllPatterns1: Pop AX Ret -EndP Music_ReleaseAllPatterns +;EndP Music_ReleaseAllPatterns ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ClearInstrument Far ; AX = Instrument number +Proc Music_ClearInstrument Far ; AX = Instrument number ; (0 based) Push CX @@ -3291,7 +3288,7 @@ Proc Music_ClearInstrument Far ; AX = Instrument number Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov DI, AX Add DI, DI @@ -3308,12 +3305,12 @@ Proc Music_ClearInstrument Far ; AX = Instrument number Pop CX Ret -EndP Music_ClearInstrument - Assume DS:Nothing +;EndP Music_ClearInstrument + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ClearAllInstruments Far +Proc Music_ClearAllInstruments Far Mov AX, 99 @@ -3324,11 +3321,11 @@ Music_ClearAllInstruments1: Ret -EndP Music_ClearAllInstruments +;EndP Music_ClearAllInstruments ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_UnInitMusic Far +Proc Music_UnInitMusic Far Call Music_UnInitSoundCard Call Music_UnloadDriver @@ -3346,20 +3343,20 @@ Music_UnInitMusic1: Ret -EndP Music_UnInitMusic +;EndP Music_UnInitMusic ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetSongSegment Far +Proc Music_GetSongSegment Far Mov AX, CS:SongDataArea Ret -EndP Music_GetSongSegment +;EndP Music_GetSongSegment ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_UnloadDriver +Proc Music_UnloadDriver Xor AX, AX XChg AX, CS:SoundDriverSegment @@ -3373,29 +3370,29 @@ Proc Music_UnloadDriver Music_UnloadDriver1: Ret -EndP Music_UnloadDriver +;EndP Music_UnloadDriver ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc NoFunction2 +Proc NoFunction2 Push CS Pop DS Mov SI, Offset NoSoundCardMsg -Proc NoFunction Far +Proc NoFunction Far Xor AX, AX StC Ret -EndP NoFunction +;EndP NoFunction -EndP NoFunction2 +;EndP NoFunction2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ClearDriverTables +Proc Music_ClearDriverTables ; Makes all of them point to ; Xor AX, AX, StC, RetF Mov AX, CS @@ -3408,11 +3405,11 @@ Proc Music_ClearDriverTables StosD Mov AX, Offset NoFunction -IF OLDDRIVER +%IF OLDDRIVER Mov CX, 61 -ELSE +%ELSE Mov CX, 29 -ENDIF +%ENDIF Rep StosD Xor EAX, EAX @@ -3422,14 +3419,14 @@ ENDIF Ret -EndP Music_ClearDriverTables +;EndP Music_ClearDriverTables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_LoadDriver ; Given DS:DX = filename - Assume DS:Nothing +Proc Music_LoadDriver ; Given DS:DX = filename + ;Assume DS:Nothing -IFDEF DEBUG +%IF DEF DEBUG PushA Push ES @@ -3440,7 +3437,7 @@ IFDEF DEBUG Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov DI, [ScreenOffset] Mov SI, Offset LoadDriverMessage @@ -3453,7 +3450,7 @@ LoadDriverMessage1: JNZ LoadDriverMessage1 Pop DS - Assume DS:Nothing + ;Assume DS:Nothing Mov SI, DX @@ -3468,14 +3465,14 @@ LoadDriverMessage2: Pop ES PopA -ENDIF +%ENDIF Mov AX, 3D00h Int 21h ClD JNC Music_LoadDriver2 -IFDEF DEBUG +%IF DEF DEBUG PushA Push DS @@ -3483,7 +3480,7 @@ IFDEF DEBUG Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov DI, 0B800h Mov ES, DI @@ -3503,9 +3500,9 @@ UnableToReadFileLoop: Pop ES Pop DS PopA - Assume DS:Nothing + ;Assume DS:Nothing -ENDIF +%ENDIF Jmp Music_LoadDriverNoClose @@ -3528,17 +3525,17 @@ Music_LoadDriver2: Mov BX, AX ; BX = file handle Mov AH, 3Fh ; Read file -IF OLDDRIVER +%IF OLDDRIVER Mov CX, 256 -ELSE +%ELSE Mov CX, 128 -ENDIF +%ENDIF Push CS Push CS Pop DS Pop ES - Assume DS:Music + ;Assume DS:Music Mov DX, Offset StartDriverFunctions Mov SI, DX @@ -3547,11 +3544,11 @@ ENDIF Cmp AX, CX JNE Music_LoadDriverError -IF OLDDRIVER +%IF OLDDRIVER Mov CX, 28 -ELSE +%ELSE Mov CX, 37 ; Length of ID -ENDIF +%ENDIF Mov DI, Offset DriverID RepE CmpsB @@ -3572,7 +3569,7 @@ ENDIF Mov CX, DriverLength Mov SoundDriverSegment, AX Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov DI, AX ; DI = segment of driver... @@ -3582,27 +3579,27 @@ ENDIF Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov AH, 3Fh Mov DX, Offset DriverVariableTable -IF OLDDRIVER +%IF OLDDRIVER Mov CX, 64 -ELSE +%ELSE Mov CX, 16 -ENDIF +%ENDIF Int 21h Mov AH, 3Fh -IF OLDDRIVER +%IF OLDDRIVER Mov CX, 128 Mov DX, Offset StartDriverFunctions+128 -ELSE +%ELSE Mov CX, 64 Mov DX, Offset StartDriverFunctions+64 -ENDIF +%ENDIF Mov SI, DX Int 21h JC Music_LoadDriverError @@ -3617,11 +3614,11 @@ ENDIF ; segment... Mov DI, Offset StartDriverFunctions -IF OLDDRIVER +%IF OLDDRIVER Mov CX, 64 -ELSE +%ELSE Mov CX, 32 -ENDIF +%ENDIF DriverFunctionLoop1: LodsW @@ -3632,24 +3629,24 @@ DriverFunctionLoop1: Mov ES, SoundDriverSegment Xor DI, DI -IF OLDDRIVER +%IF OLDDRIVER Mov CX, 256 -ELSE +%ELSE Mov CX, 16 -ENDIF +%ENDIF Mov SI, Offset DriverRequiredVariables Rep MovsB Mov SI, Offset DriverRequiredFunctions -IF OLDDRIVER +%IF OLDDRIVER Mov CX, 128 -ELSE +%ELSE Mov CX, 32 -ENDIF +%ENDIF Rep MovsD -IFDEF DEBUG +%IF DEF DEBUG PushA Push DS @@ -3657,7 +3654,7 @@ IFDEF DEBUG Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov DI, 0B800h Mov ES, DI @@ -3677,14 +3674,14 @@ DetectingMessageLoop: Pop ES Pop DS PopA - Assume DS:Nothing + ;Assume DS:Nothing -ENDIF +%ENDIF ClC Ret -EndP Music_LoadDriver +;EndP Music_LoadDriver ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -3692,7 +3689,7 @@ ADSCParams DW 7 Dup (0) ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_AutoDetectSoundCard Far +Proc Music_AutoDetectSoundCard Far ; Returns DS:SI = string ; AX, BX, CX, DX, DI = parameters @@ -3732,7 +3729,7 @@ Music_AutoDetectSoundCard1: Push SI Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov Word Ptr [DriverName+2], DS @@ -3776,7 +3773,7 @@ Music_AutoDetectSoundCard4: Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov [ADSCParams], SI Mov [ADSCParams+12], DI @@ -3791,16 +3788,16 @@ Music_AutoDetectSoundCard4: Ret -EndP Music_AutoDetectSoundCard - Assume DS:Nothing +;EndP Music_AutoDetectSoundCard + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ShowAutoDetectSoundCard Far +Proc Music_ShowAutoDetectSoundCard Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Push DWord Ptr [ADSCParams+10] Push DWord Ptr [ADSCParams+6] @@ -3815,12 +3812,12 @@ Proc Music_ShowAutoDetectSoundCard Far Add SP, 10 Ret -EndP Music_ShowAutoDetectSoundCard - Assume DS:Nothing +;EndP Music_ShowAutoDetectSoundCard + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetInstrumentMode Far +Proc Music_GetInstrumentMode Far Push DS Mov DS, CS:SongDataArea @@ -3831,14 +3828,14 @@ Proc Music_GetInstrumentMode Far Ret -EndP Music_GetInstrumentMode +;EndP Music_GetInstrumentMode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateGOTONote ; Get offset & arrayed flag. +Proc UpdateGOTONote ; Get offset & arrayed flag. Push DS - Assume DS:Nothing + ;Assume DS:Nothing Call PE_GetCurrentPattern ; AX = Pattern number @@ -3851,7 +3848,7 @@ Proc UpdateGOTONote ; Get offset & arrayed flag. Mov CS:PatternSegment, DS Pop DS - Assume DS:Music + ;Assume DS:Music Mov NumberOfRows, BX Mov AX, ProcessRow Cmp AX, BX @@ -3875,15 +3872,15 @@ UpdateGOTONote2: UpdateGOTONote1: Pop DS - Assume DS:Music + ;Assume DS:Music Mov AX, CurrentPattern Mov DecodeExpectedPattern, AX -IF NETWORKENABLED +%IF NETWORKENABLED Call Network_UpdatePatternIfIdle -ENDIF +%ENDIF Call Music_GetPattern - Assume DS:Nothing + ;Assume DS:Nothing ; DS:SI points to pattern. LodsW @@ -3970,26 +3967,26 @@ UpdateGOTONote9: UpdateGOTONote5: Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov PatternOffset, SI Mov PatternArray, 0 Ret -EndP UpdateGOTONote - Assume DS:Nothing +;EndP UpdateGOTONote + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PreInitCommand +Proc PreInitCommand Push DS Push SI Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Test Byte Ptr [DI+2], 33h JZ PreInitCommandEnd @@ -4068,12 +4065,12 @@ PreInitCommand4: Pop DS Ret -EndP PreInitCommand +;EndP PreInitCommand ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateNoteData - Assume DS:Music +Proc UpdateNoteData + ;Assume DS:Music Mov PatternLooping, 0 @@ -4109,14 +4106,14 @@ UpdateNoteCompressed1: Push DS Mov AX, CurrentPattern -IF NETWORKENABLED +%IF NETWORKENABLED ; Call Network_UpdatePatternIfIdle -ENDIF +%ENDIF Call Music_GetPattern ; Gets DS Mov SI, CS:PatternOffset ; Mov DS, PatternSegment - Assume DS:Nothing + ;Assume DS:Nothing UpdateNoteCompressed2: LodsB @@ -4186,20 +4183,20 @@ UpdateNoteCompressed13: UpdateNoteCompressed3: Pop DS - Assume DS:Music + ;Assume DS:Music Mov PatternOffset, SI Ret UpdateNoteArrayed: - Assume DS:Music + ;Assume DS:Music Push DS Mov SI, PatternOffset Mov DS, PatternSegment - Assume DS:Nothing + ;Assume DS:Nothing ; Mov CX, 64 ; 64 channels ; Mov DI, Offset HostChannelInformationTable @@ -4252,7 +4249,7 @@ UpdateNoteArrayed5: Call PreInitCommand Pop CX - Assume DS:Nothing + ;Assume DS:Nothing UpdateNoteArrayed6: @@ -4261,18 +4258,18 @@ UpdateNoteArrayed6: JNZ UpdateNoteArrayed1 Pop DS - Assume DS:Music + ;Assume DS:Music Mov PatternOffset, SI Ret -EndP UpdateNoteData - Assume DS:Nothing +;EndP UpdateNoteData + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateVibrato ; DS:SI points to slavechannelstruct. +Proc UpdateVibrato ; DS:SI points to slavechannelstruct. Mov BX, [SI+34h] ; ES:BX points to sample Mov DL, [ES:BX+4Dh] ; Vibrato depth @@ -4318,9 +4315,9 @@ UpdateVibrato3: SAL AX, 2 MovSX BX, AH -IFE USEFPUCODE +%IF E USEFPUCODE JS UpdateVibrato4 -ENDIF +%ENDIF JZ UpdateVibrato1 Push DI @@ -4328,32 +4325,32 @@ ENDIF Call PitchSlideUpLinear Pop DI -IFE USEFPUCODE +%IF E USEFPUCODE Jmp UpdateVibrato1 UpdateVibrato4: Neg BX Call PitchSlideDownLinear -ENDIF +%ENDIF UpdateVibrato1: Ret -EndP UpdateVibrato +;EndP UpdateVibrato ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Update Far +Proc Update Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music -IF USEFPUCODE +%IF USEFPUCODE FNSave FPSave FNInit FLdCW [NewControlWord] -ENDIF +%ENDIF Mov CX, MAXSLAVECHANNELS Mov SI, Offset SlaveChannelInformationTable @@ -4404,19 +4401,19 @@ UpdateEnd: Mov SI, Offset SlaveChannelInformationTable Mov AX, PlayMode -IF USEFPUCODE +%IF USEFPUCODE FRstor FPSave -ENDIF +%ENDIF Ret -EndP Update +;EndP Update ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateSamples +Proc UpdateSamples - Assume DS:Music + ;Assume DS:Music Mov CX, NumChannels Mov SI, Offset SlaveChannelInformationTable @@ -4506,12 +4503,12 @@ UpdateSamples2: Ret -EndP UpdateSamples - Assume DS:Nothing +;EndP UpdateSamples + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateEnvelope ; Returns Carry if envelope needs +Proc UpdateEnvelope ; Returns Carry if envelope needs ; to be turned off ; Reqs ES:DI points to envelope ; DS:SI points to slave channel envelope structure @@ -4634,7 +4631,7 @@ UpdateEnvelope6: ClC Ret -EndP UpdateEnvelope +;EndP UpdateEnvelope ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -4647,8 +4644,8 @@ MIDIPitch DW 16 Dup (2000h) ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateMIDI - Assume DS:Music +Proc UpdateMIDI + ;Assume DS:Music ; Stop cycle @@ -4806,13 +4803,13 @@ UpdateMIDI4: Ret -EndP UpdateMIDI - Assume DS:Nothing +;EndP UpdateMIDI + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateInstruments - Assume DS:Music ; Things to update: +Proc UpdateInstruments + ;Assume DS:Music ; Things to update: ; 1) Volume envelope ; 2) Fadeout ; 3) FinalVolume @@ -4904,9 +4901,9 @@ UpdatePitchEnvelopePitch: Mov BX, [SI+71h] SAR BX, 3 JZ UpdatePanEnvelope -IFE USEFPUCODE +%IF E USEFPUCODE JS UpdatePitchEnvDown -ENDIF +%ENDIF Push DI Mov DI, [SI+38h] @@ -4915,7 +4912,7 @@ ENDIF ; DS:DI points to host channel ; BX = magnintude Pop DI -IFE USEFPUCODE +%IF E USEFPUCODE Jmp UpdatePostPitchEnvelope UpdatePitchEnvDown: @@ -4923,7 +4920,7 @@ UpdatePitchEnvDown: Call PitchSlideDownLinear UpdatePostPitchEnvelope: -ENDIF +%ENDIF Or CL, 32 ; Recalculate freq UpdatePanEnvelope: @@ -5135,14 +5132,14 @@ UpdateInstrumentsNoMIDI: Jmp UpdateInstruments2 -EndP UpdateInstruments - Assume DS:Nothing +;EndP UpdateInstruments + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc UpdateData +Proc UpdateData - Assume DS:Music + ;Assume DS:Music Mov CX, 64 Mov AX, PlayMode @@ -5410,12 +5407,12 @@ UpdateData_Song1: Call UpdateNoteData Ret -EndP UpdateData - Assume DS:Nothing +;EndP UpdateData + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetNumberOfSamples Far ; Returns AX +Proc Music_GetNumberOfSamples Far ; Returns AX Push CX Push DS @@ -5425,7 +5422,7 @@ Proc Music_GetNumberOfSamples Far ; Returns AX Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov ES, SongDataArea Mov DI, 63912-160 @@ -5452,12 +5449,12 @@ Music_GetNumberOfSamples2: Ret -EndP Music_GetNumberOfSamples - Assume DS:Nothing +;EndP Music_GetNumberOfSamples + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetNumberOfInstruments Far ; Returns AX +Proc Music_GetNumberOfInstruments Far ; Returns AX Push CX Push DS @@ -5467,7 +5464,7 @@ Proc Music_GetNumberOfInstruments Far ; Returns AX Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov ES, SongDataArea Mov DI, 55912-554*2 @@ -5494,12 +5491,12 @@ Music_GetNumberOfInstruments2: Ret -EndP Music_GetNumberOfInstruments - Assume DS:Nothing +;EndP Music_GetNumberOfInstruments + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetSampleHeader Far ; AX = sample, 1 based +Proc Music_GetSampleHeader Far ; AX = sample, 1 based Mov SI, AX Mov DS, CS:SongDataArea @@ -5509,12 +5506,12 @@ Proc Music_GetSampleHeader Far ; AX = sample, 1 based Ret -EndP Music_GetSampleHeader +;EndP Music_GetSampleHeader ; Returns DS:SI ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetSampleLocation Far ; AX = sample (1based) +Proc Music_GetSampleLocation Far ; AX = sample (1based) ; CH = page. ; Returns DS:ESI ; ECX = length @@ -5578,12 +5575,12 @@ Music_GetSampleLocationEnd2: Ret -EndP Music_GetSampleLocation +;EndP Music_GetSampleLocation ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; Accessed via Int 3 -Proc Music_UpdateSampleLocation Far ; Reqs ESI. +Proc Music_UpdateSampleLocation Far ; Reqs ESI. PushAD @@ -5597,11 +5594,11 @@ Proc Music_UpdateSampleLocation Far ; Reqs ESI. PopAD IRet -EndP Music_UpdateSampleLocation +;EndP Music_UpdateSampleLocation ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_FarUpdateSampleLocation Far +Proc Music_FarUpdateSampleLocation Far PushF @@ -5613,17 +5610,17 @@ Proc Music_FarUpdateSampleLocation Far Ret -EndP Music_FarUpdateSampleLocation +;EndP Music_FarUpdateSampleLocation ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetPlayMode Far +Proc Music_GetPlayMode Far Push DS Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov AX, PlayMode Mov BX, CurrentRow @@ -5634,19 +5631,19 @@ Proc Music_GetPlayMode Far Pop DS Ret - Assume DS:Nothing + ;Assume DS:Nothing -EndP Music_GetPlayMode +;EndP Music_GetPlayMode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetPlayMode2 Far +Proc Music_GetPlayMode2 Far Push DS Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov AX, PlayMode Mov EBX, DWord Ptr CurrentOrder @@ -5657,12 +5654,12 @@ Proc Music_GetPlayMode2 Far Pop DS Ret -EndP Music_GetPlayMode2 - Assume DS:Nothing +;EndP Music_GetPlayMode2 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_PlayPattern Far ; AX = pattern, BX = number of rows +Proc Music_PlayPattern Far ; AX = pattern, BX = number of rows ; CX = row to start Push DS @@ -5671,7 +5668,7 @@ Proc Music_PlayPattern Far ; AX = pattern, BX = number of rows Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov MIDIPitchDepthSent, 0 Mov LastMIDIByte, 0FFh @@ -5687,12 +5684,12 @@ Proc Music_PlayPattern Far ; AX = pattern, BX = number of rows Ret -EndP Music_PlayPattern - Assume DS:Nothing +;EndP Music_PlayPattern + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_PlaySong Far ; AX = Order +Proc Music_PlaySong Far ; AX = Order PushA Push DS @@ -5701,7 +5698,7 @@ Proc Music_PlaySong Far ; AX = Order Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov MIDIPitchDepthSent, 0 Mov LastMIDIByte, 0FFh @@ -5722,11 +5719,11 @@ Proc Music_PlaySong Far ; AX = Order PopA Ret -EndP Music_PlaySong +;EndP Music_PlaySong ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_PlayPartSong Far ; AX = order, BX = row. +Proc Music_PlayPartSong Far ; AX = order, BX = row. Push AX Push BX @@ -5756,11 +5753,11 @@ Proc Music_PlayPartSong Far ; AX = order, BX = row. Pop AX Ret -EndP Music_PlayPartSong +;EndP Music_PlayPartSong ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_KBPlaySong Far +Proc Music_KBPlaySong Far Xor AX, AX Cmp CS:PlayMode, 2 @@ -5768,11 +5765,11 @@ Proc Music_KBPlaySong Far Ret -EndP Music_KBPlaySong +;EndP Music_KBPlaySong ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_StopChannels +Proc Music_StopChannels Push CX Push DS @@ -5781,7 +5778,7 @@ Proc Music_StopChannels Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov CX, 64 Mov SI, Offset HostChannelInformationTable @@ -5821,11 +5818,11 @@ Music_StopChannelsNoMIDI: Ret -EndP Music_StopChannels +;EndP Music_StopChannels ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_Stop Far +Proc Music_Stop Far PushA PushF @@ -5836,7 +5833,7 @@ Proc Music_Stop Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music ; Turn off MIDI channels first. @@ -5893,7 +5890,7 @@ Music_StopNoMIDI: Mov DI, Offset HostChannelInformationTable Mov DS, SongDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov SI, 40h Mov DX, 040h @@ -5940,7 +5937,7 @@ Music_Clear2: Pop SI Pop DS Pop CX - Assume DS:Music + ;Assume DS:Music Mov AX, [ES:32h] ; AL = speed, AH = tempo Mov BX, [ES:30h] ; BL = globalvol @@ -5962,22 +5959,22 @@ Music_Clear2: Ret -EndP Music_Stop - Assume DS:Nothing, ES:Nothing +;EndP Music_Stop + ;Assume DS:Nothing, ES:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_UpdatePatternOffset Far +Proc Music_UpdatePatternOffset Far Mov CS:DecodeExpectedPattern, 0FFFEh Ret -EndP Music_UpdatePatternOffset +;EndP Music_UpdatePatternOffset ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_PlayNote Far ; DS:SI points to 5-note struct +Proc Music_PlayNote Far ; DS:SI points to 5-note struct ; AX = channel ; DH = +32 means ignore mute ; settings @@ -6031,7 +6028,7 @@ Music_PlayNote3: Music_PlayNote4: Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Push DX @@ -6069,12 +6066,12 @@ Music_PlayNote5: Ret -EndP Music_PlayNote - Assume DS:Nothing +;EndP Music_PlayNote + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_PlaySample Far +Proc Music_PlaySample Far ; AL = Note ; AH = sample number ; CX = channel. @@ -6085,7 +6082,7 @@ Proc Music_PlaySample Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov ES, SongDataArea @@ -6131,48 +6128,48 @@ Music_PlaySample1: Ret -EndP Music_PlaySample +;EndP Music_PlaySample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetHostChannelInformationTable Far +Proc Music_GetHostChannelInformationTable Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov SI, Offset HostChannelInformationTable Ret -EndP Music_GetHostChannelInformationTable - Assume DS:Nothing +;EndP Music_GetHostChannelInformationTable + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetSlaveChannelInformationTable Far +Proc Music_GetSlaveChannelInformationTable Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov SI, Offset SlaveChannelInformationTable Mov CX, MAXSLAVECHANNELS Ret -EndP Music_GetSlaveChannelInformationTable - Assume DS:Nothing +;EndP Music_GetSlaveChannelInformationTable + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_NextOrder Far +Proc Music_NextOrder Far Push DS Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Cmp PlayMode, 2 JNE Music_NextOrder1 @@ -6188,18 +6185,18 @@ Music_NextOrder1: Pop DS Ret -EndP Music_NextOrder - Assume DS:Nothing +;EndP Music_NextOrder + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_LastOrder Far +Proc Music_LastOrder Far Push DS Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Cmp PlayMode, 2 JNE Music_NextOrder1 @@ -6225,12 +6222,12 @@ Music_LastOrder1: Pop DS Ret -EndP Music_LastOrder - Assume DS:Nothing +;EndP Music_LastOrder + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetGlobalVolume Far +Proc Music_SetGlobalVolume Far Push CX Push DS @@ -6238,7 +6235,7 @@ Proc Music_SetGlobalVolume Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov GlobalVolume, AL Call RecalculateAllVolumes @@ -6248,12 +6245,12 @@ Proc Music_SetGlobalVolume Far Pop CX Ret -EndP Music_SetGlobalVolume - Assume DS:Nothing +;EndP Music_SetGlobalVolume + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_MuteChannel Far ; AX = channel number +Proc Music_MuteChannel Far ; AX = channel number Push AX Push CX @@ -6263,7 +6260,7 @@ Proc Music_MuteChannel Far ; AX = channel number Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov CX, NumChannels Mov SI, Offset SlaveChannelInformationTable @@ -6290,12 +6287,12 @@ Music_MuteChannel2: Pop AX Ret -EndP Music_MuteChannel - Assume DS:Nothing +;EndP Music_MuteChannel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_UnmuteChannel Far ; AX = channel number +Proc Music_UnmuteChannel Far ; AX = channel number Push AX Push CX @@ -6305,7 +6302,7 @@ Proc Music_UnmuteChannel Far ; AX = channel number Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov CX, NumChannels Mov Word Ptr [SoloSample], 0FFFFh @@ -6351,12 +6348,12 @@ Music_UnmuteChannel2: Pop AX Ret -EndP Music_UnmuteChannel - Assume DS:Nothing +;EndP Music_UnmuteChannel + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ToggleChannel Far ; AX = channel number. +Proc Music_ToggleChannel Far ; AX = channel number. Push BX Push DS @@ -6385,11 +6382,11 @@ Music_ToggleChannel1: ; Mute channel Pop BX Ret -EndP Music_ToggleChannel +;EndP Music_ToggleChannel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_UnmuteAll Far +Proc Music_UnmuteAll Far Push BX Push CX @@ -6400,7 +6397,7 @@ Proc Music_UnmuteAll Far Jmp Music_SoloChannel3 -Proc Music_SoloChannel Far ; AX = channel +Proc Music_SoloChannel Far ; AX = channel Push BX Push CX @@ -6480,12 +6477,12 @@ Music_SoloChannel11: Ret -EndP Music_SoloChannel -EndP Music_UnmuteAll +;EndP Music_SoloChannel +;EndP Music_UnmuteAll ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_InitMuteTable Far +Proc Music_InitMuteTable Far Push AX Push CX @@ -6509,11 +6506,11 @@ Proc Music_InitMuteTable Far Ret -EndP Music_InitMuteTable +;EndP Music_InitMuteTable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_InitStereo Far +Proc Music_InitStereo Far Push DS @@ -6530,11 +6527,11 @@ Proc Music_InitStereo Far Pop DS Ret -EndP Music_InitStereo +;EndP Music_InitStereo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_IncreaseSpeed Far ; Returns AX = speed +Proc Music_IncreaseSpeed Far ; Returns AX = speed Mov AX, CS:CurrentSpeed Cmp AX, 1 @@ -6552,11 +6549,11 @@ Proc Music_IncreaseSpeed Far ; Returns AX = speed Music_IncreaseSpeed1: Ret -EndP Music_IncreaseSpeed +;EndP Music_IncreaseSpeed ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_DecreaseSpeed Far +Proc Music_DecreaseSpeed Far Mov AX, CS:CurrentSpeed Cmp AX, 0FFh @@ -6575,11 +6572,11 @@ Proc Music_DecreaseSpeed Far Music_DecreaseSpeed1: Ret -EndP Music_DecreaseSpeed +;EndP Music_DecreaseSpeed ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetSoundCard Far ; AL contains sound card num +Proc Music_SetSoundCard Far ; AL contains sound card num Xor AH, AH @@ -6599,65 +6596,65 @@ Proc Music_SetSoundCard Far ; AL contains sound card num Ret -EndP Music_SetSoundCard +;EndP Music_SetSoundCard ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetSoundCardDriver Far +Proc Music_SetSoundCardDriver Far Mov Word Ptr [CS:DriverName], SI Mov Word Ptr [CS:DriverName+2], DS Ret -EndP Music_SetSoundCardDriver +;EndP Music_SetSoundCardDriver ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetDMA Far +Proc Music_SetDMA Far Xor AH, AH Mov DMA, AX Ret -EndP Music_SetDMA +;EndP Music_SetDMA ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetMixSpeed Far - Assume DS:Nothing +Proc Music_SetMixSpeed Far + ;Assume DS:Nothing Mov CmdLineMixSpeed, CX Ret -EndP Music_SetMixSpeed +;EndP Music_SetMixSpeed ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetIRQ Far - Assume DS:Nothing +Proc Music_SetIRQ Far + ;Assume DS:Nothing Mov IRQ, CX Ret -EndP Music_SetIRQ +;EndP Music_SetIRQ ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetAddress Far +Proc Music_SetAddress Far Mov BasePort, DX Ret -EndP Music_SetAddress +;EndP Music_SetAddress ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetDisplayVariables Far +Proc Music_GetDisplayVariables Far Mov AX, CS:CurrentSpeed MovZX BX, CS:Tempo @@ -6665,18 +6662,18 @@ Proc Music_GetDisplayVariables Far Ret -EndP Music_GetDisplayVariables +;EndP Music_GetDisplayVariables ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_AssignSampleToInstrument Far ; BX = sample num +Proc Music_AssignSampleToInstrument Far ; BX = sample num ; returns AX Push CX DX DS SI ES DI Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov ES, SongDataArea @@ -6722,7 +6719,7 @@ Music_AssignSampleToInstrument2: Pop CX ; Clear the stack Music_AssignSampleToInstrument4: -IF NETWORKENABLED +%IF NETWORKENABLED Call Network_GetSendQueue JZ Music_AssignSampleNetwork @@ -6735,7 +6732,7 @@ IF NETWORKENABLED Music_AssignSampleNetwork: Call Network_FinishedSendQueue -ENDIF +%ENDIF Push ES Pop DS @@ -6763,30 +6760,30 @@ Music_AssignSampleToInstrument3: ClC Jmp Music_AssignSampleToInstrumentEnd -EndP Music_AssignSampleToInstrument - Assume DS:Nothing +;EndP Music_AssignSampleToInstrument + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetLimit Far +Proc Music_SetLimit Far Mov CS:CmdLineNumChannels, CX Ret -EndP Music_SetLimit +;EndP Music_SetLimit ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ReverseChannels Far +Proc Music_ReverseChannels Far Mov CS:ReverseChannels, 1 Ret -EndP Music_ReverseChannels +;EndP Music_ReverseChannels ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_IncreaseVolume Far +Proc Music_IncreaseVolume Far Push CX Push DS @@ -6794,7 +6791,7 @@ Proc Music_IncreaseVolume Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov AL, GlobalVolume And AX, 0FFh @@ -6812,12 +6809,12 @@ Music_IncreaseVolume1: Ret -EndP Music_IncreaseVolume - Assume DS:Nothing +;EndP Music_IncreaseVolume + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_DecreaseVolume Far +Proc Music_DecreaseVolume Far Push CX Push DS @@ -6825,7 +6822,7 @@ Proc Music_DecreaseVolume Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov AL, GlobalVolume And AX, 0FFh @@ -6842,12 +6839,12 @@ Music_DecreaseVolume1: Ret -EndP Music_DecreaseVolume - Assume DS:Nothing +;EndP Music_DecreaseVolume + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_RegetLoopInformation Far +Proc Music_RegetLoopInformation Far Push AX Push BX @@ -6860,7 +6857,7 @@ Proc Music_RegetLoopInformation Far Push CS Pop DS ; DS setup - Assume DS:Music + ;Assume DS:Music Mov ES, SongDataArea @@ -6898,20 +6895,20 @@ Music_RegetLoopInformation2: Ret -EndP Music_RegetLoopInformation - Assume DS:Nothing +;EndP Music_RegetLoopInformation + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ResetSoundCardMemory Far +Proc ResetSoundCardMemory Far Jmp [DriverResetMemory] -EndP ResetSoundCardMemory +;EndP ResetSoundCardMemory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SoundCardLoadSample Far ; AX = sample number +Proc Music_SoundCardLoadSample Far ; AX = sample number ; (1 based) ; Carry set if insuf mem PushA @@ -6929,11 +6926,11 @@ Music_SoundCardLoadSample1: PopA Ret -EndP Music_SoundCardLoadSample +;EndP Music_SoundCardLoadSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SoundCardLoadAllSamples Far +Proc Music_SoundCardLoadAllSamples Far PushAD Push DS @@ -6981,31 +6978,31 @@ Music_SoundCardLoadAllSamples2: Mov AX, 1 Ret -EndP Music_SoundCardLoadAllSamples - Assume DS:Nothing +;EndP Music_SoundCardLoadAllSamples + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetFreeSoundCardMemory Far +Proc Music_GetFreeSoundCardMemory Far Call [DriverGetStatus] Ret -EndP Music_GetFreeSoundCardMemory +;EndP Music_GetFreeSoundCardMemory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetNumChannels Far +Proc Music_GetNumChannels Far Mov AX, CS:NumChannels Ret -EndP Music_GetNumChannels +;EndP Music_GetNumChannels ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetPitchTable Far ; Returns ES:DI to pitch table +Proc Music_GetPitchTable Far ; Returns ES:DI to pitch table Push CS Pop ES @@ -7013,15 +7010,15 @@ Proc Music_GetPitchTable Far ; Returns ES:DI to pitch table Ret -EndP Music_GetPitchTable +;EndP Music_GetPitchTable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ToggleReverse Far +Proc Music_ToggleReverse Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Xor ReverseChannels, 1 Call ReCalculateAllVolumes @@ -7030,21 +7027,21 @@ Proc Music_ToggleReverse Far Ret -EndP Music_ToggleReverse - Assume DS:Nothing +;EndP Music_ToggleReverse + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_PatternStorage Far +Proc Music_PatternStorage Far Mov CS:PatternStorage, AL Ret -EndP Music_PatternStorage +;EndP Music_PatternStorage ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_InitMixTable Far +Proc Music_InitMixTable Far Push AX Push DS @@ -7059,22 +7056,22 @@ Proc Music_InitMixTable Far Pop AX Ret -EndP Music_InitMixTable +;EndP Music_InitMixTable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetTempo Far +Proc Music_GetTempo Far Xor BH, BH Mov BL, CS:Tempo Ret -EndP Music_GetTempo +;EndP Music_GetTempo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetLastChannel Far ; Returns AX +Proc Music_GetLastChannel Far ; Returns AX Push DS @@ -7100,46 +7097,46 @@ Music_GetLastChannel2: Pop DS Ret -EndP Music_GetLastChannel +;EndP Music_GetLastChannel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetDriverScreen Far +Proc Music_GetDriverScreen Far Jmp [DriverSoundCardScreen] -EndP Music_GetDriverScreen +;EndP Music_GetDriverScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetDriverVariable Far +Proc Music_GetDriverVariable Far Jmp [DriverGetVariable] -EndP Music_GetDriverVariable +;EndP Music_GetDriverVariable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetDriverVariable Far +Proc Music_SetDriverVariable Far Jmp [DriverSetVariable] -EndP Music_SetDriverVariable +;EndP Music_SetDriverVariable ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SetNextOrder Far +Proc Music_SetNextOrder Far Dec AX Mov CS:ProcessOrder, AX Ret -EndP Music_SetNextOrder +;EndP Music_SetNextOrder ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetDelay Far +Proc Music_GetDelay Far ClI @@ -7175,7 +7172,7 @@ Music_GetDelay2: StI Ret -EndP Music_GetDelay +;EndP Music_GetDelay ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -7186,7 +7183,7 @@ TotalTimer DD 0 TotalTimerHigh DD 0 PleaseWaitMsg DB "Please Wait...", 0 -Proc InternalTimer Far +Proc InternalTimer Far PushAD @@ -7199,15 +7196,15 @@ Proc InternalTimer Far PopAD Ret -EndP InternalTimer +;EndP InternalTimer ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_TimeSong Far ; Time song! +Proc Music_TimeSong Far ; Time song! Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Call S_SaveScreen @@ -7261,7 +7258,7 @@ Music_TimeSong1: Call Music_PlaySong Music_TimeSong3: - Assume DS:Nothing + ;Assume DS:Nothing Call Update Cmp CS:StopSong, 0 @@ -7300,11 +7297,11 @@ Music_TimeSong4: Mov AX, 1 Ret -EndP Music_TimeSong +;EndP Music_TimeSong ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ShowTime Far +Proc Music_ShowTime Far Call S_GetDestination @@ -7318,26 +7315,26 @@ Proc Music_ShowTime Far Ret -EndP Music_ShowTime +;EndP Music_ShowTime ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetPatternLength Far +Proc Music_GetPatternLength Far Mov AX, CS:NumberOfRows Ret -EndP Music_GetPatternLength +;EndP Music_GetPatternLength ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_SaveMIDIConfig Far +Proc Music_SaveMIDIConfig Far Call D_GotoStartingDirectory Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov AH, 3Ch Xor CX, CX @@ -7360,25 +7357,25 @@ Music_SaveMIDIConfig1: Xor AX, AX Ret -EndP Music_SaveMIDIConfig - Assume DS:Nothing +;EndP Music_SaveMIDIConfig + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_GetMIDIDataArea Far +Proc Music_GetMIDIDataArea Far Mov DS, CS:MIDIDataArea Ret -EndP Music_GetMIDIDataArea +;EndP Music_GetMIDIDataArea ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ToggleOrderUpdate Far +Proc Music_ToggleOrderUpdate Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Mov SI, Offset OrderUpdateEnabledMsg Xor OrderLockFlag, 1 @@ -7391,37 +7388,37 @@ Music_ToggleOrderUpdate1: Ret -EndP Music_ToggleOrderUpdate - Assume DS:Nothing +;EndP Music_ToggleOrderUpdate + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ToggleSoloInstrument Far +Proc Music_ToggleSoloInstrument Far Mov SI, Offset SoloInstrumentMsg Mov DI, Offset SoloInstrument Mov BP, 1 Jmp Music_ToggleSolo -EndP Music_ToggleSoloInstrument +;EndP Music_ToggleSoloInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ToggleSoloSample Far +Proc Music_ToggleSoloSample Far Mov SI, Offset SoloSampleMsg Mov DI, Offset SoloSample Xor BP, BP -EndP Music_ToggleSoloSample +;EndP Music_ToggleSoloSample ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Music_ToggleSolo Far +Proc Music_ToggleSolo Far Push CS Pop DS - Assume DS:Music + ;Assume DS:Music Call PE_GetLastInstrument ; Returns BX @@ -7468,8 +7465,8 @@ Music_ToggleSolo4: Mov AX, 1 Ret -EndP Music_ToggleSolo - Assume DS:Nothing +;EndP Music_ToggleSolo + ;Assume DS:Nothing ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_net.s b/it_net.s index 36e6242..d9ea5d3 100644 --- a/it_net.s +++ b/it_net.s @@ -2,12 +2,9 @@ ;� Network Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386P +%include "switch.inc" -include switch.inc - -IF NETWORKENABLED +%IF NETWORKENABLED SHOWQUEUESIZE EQU 0 @@ -28,61 +25,61 @@ NUMPROVIDEDFUNCTIONS EQU 16 ; Number of functions (DW Offsets) provided by ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Extrn D_ClearFileName:Far + extern D_ClearFileName:Far - Extrn E_AllocateEMS:Far - Extrn E_ReleaseEMS:Far - Extrn E_MapEMSMemory:Far - Extrn E_GetEMSPageFrame:Far - Extrn E_GetEMSVersion:Far -; Extrn E_SavePageFrame:Far -; Extrn E_RestorePageFrame:Far + extern E_AllocateEMS:Far + extern E_ReleaseEMS:Far + extern E_MapEMSMemory:Far + extern E_GetEMSPageFrame:Far + extern E_GetEMSVersion:Far +; extern E_SavePageFrame:Far +; extern E_RestorePageFrame:Far - Extrn F_DrawHeader:Far + extern F_DrawHeader:Far - Extrn Glbl_SetCurrentMode:Far - Extrn Glbl_GetCurrentMode:Far + extern Glbl_SetCurrentMode:Far + extern Glbl_GetCurrentMode:Far - Extrn I_MapEnvelope:Far + extern I_MapEnvelope:Far - Extrn M_FunctionDivider:Far - Extrn M_FunctionHandler:Far - Extrn M_Object1List:Far + extern M_FunctionDivider:Far + extern M_FunctionHandler:Far + extern M_Object1List:Far - Extrn Music_GetPatternLocation:Far ; Returns AX = handle + extern Music_GetPatternLocation:Far ; Returns AX = handle ; EBX = segment:offset ; DL = type. ; CX = pattern length - Extrn Music_GetPatternLocationNoCount:Far ; Returns AX = handle + extern Music_GetPatternLocationNoCount:Far ; Returns AX = handle ; EBX = segment:offset ; DL = type. - Extrn Music_ReleasePattern:Far ; Requires AX = pattern - Extrn Music_AllocatePattern:Far ; SI = pattern, DX = length - Extrn Music_UpdatePatternOffset:Far - Extrn Music_ReleaseAllSamples:Far - Extrn Music_AllocateSample:Far - Extrn Music_Stop:Far - Extrn Music_ReleaseSample:Far + extern Music_ReleasePattern:Far ; Requires AX = pattern + extern Music_AllocatePattern:Far ; SI = pattern, DX = length + extern Music_UpdatePatternOffset:Far + extern Music_ReleaseAllSamples:Far + extern Music_AllocateSample:Far + extern Music_Stop:Far + extern Music_ReleaseSample:Far - Extrn IdleUpdateInfoLine:Far - Extrn SetInfoLine:Far - Extrn SetInfoLine2:Far - Extrn GetTimerCounter:Far + extern IdleUpdateInfoLine:Far + extern SetInfoLine:Far + extern SetInfoLine2:Far + extern GetTimerCounter:Far - Extrn O1_LoadNetworkDriver:Far - Extrn O1_NetworkErrorList:Far - Extrn GlobalKeyList + extern O1_LoadNetworkDriver:Far + extern O1_NetworkErrorList:Far + extern GlobalKeyList - Extrn PE_FillHeader:Far - Extrn PE_NewPattern:Far - Extrn PEFunction_OutOfMemoryMessage:Far - Extrn PEFunction_StoreCurrentPattern:Far - Extrn PE_GetLastInstrument:Far + extern PE_FillHeader:Far + extern PE_NewPattern:Far + extern PEFunction_OutOfMemoryMessage:Far + extern PEFunction_StoreCurrentPattern:Far + extern PE_GetLastInstrument:Far - Extrn S_GetDestination:Far - Extrn S_DrawString:Far - Extrn S_SaveScreen:Far - Extrn S_RestoreScreen:Far + extern S_GetDestination:Far + extern S_DrawString:Far + extern S_SaveScreen:Far + extern S_RestoreScreen:Far Segment Object1 BYTE Public 'Data' EndS @@ -117,7 +114,7 @@ EndS ; Not used? ; ;Segment Network BYTE Public 'Code' USE16 -; Assume CS:Network, DS:Nothing, ES:Nothing +; ;Assume CS:Network, DS:Nothing, ES:Nothing ;EndS ; ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� @@ -128,24 +125,24 @@ EndS ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Pattern BYTE Public 'Code' USE16 - Extrn PatternDataArea:Word - Extrn PatternNumber:Word - Extrn Modified:Byte - Extrn PatternModified:Byte - Extrn MaxRow:Word + extern PatternDataArea:Word + extern PatternNumber:Word + extern Modified:Byte + extern PatternModified:Byte + extern MaxRow:Word EndS Segment Music BYTE Public 'Code' USE16 - Extrn CurrentOrder:Word - Extrn CurrentPattern:Word - Extrn CurrentRow:Word + extern CurrentOrder:Word + extern CurrentPattern:Word + extern CurrentRow:Word EndS Segment Disk DWORD Public 'Code' USE16 - Assume CS:Disk, DS:Nothing, ES:Nothing + ;Assume CS:Disk, DS:Nothing, ES:Nothing - Extrn DiskDataArea:Word - Extrn D_GotoStartingDirectory:Far + extern DiskDataArea:Word + extern D_GotoStartingDirectory:Far ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -196,9 +193,9 @@ DriverMask DB "IT*.NET", 0 NoDriverMsg DB "No Network Drivers Found", 0 NetworkDriverUnloaded DB "Network driver unloaded", 0 -IF SHOWQUEUESIZE +%IF SHOWQUEUESIZE DebugMessage DB "SendQueueSize: ", 0FDh, "D", 0 -ENDIF +%ENDIF ; NetworkOverflowMessage DB "Network Overflow: Driver Unloaded", 0 ALIGN 2 @@ -258,16 +255,16 @@ PatternModifiedTable DB 200 Dup (0) ; Bit field for 200 patterns ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Network_EmptyFunction Far +Proc Network_EmptyFunction Far Xor AX, AX Ret -EndP Network_EmptyFunction +;EndP Network_EmptyFunction ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Network_DriverScreen Far +Proc Network_DriverScreen Far ; If no network driver loaded, show load screen ; If driver loaded, then call driver's screen interface @@ -277,7 +274,7 @@ Proc Network_DriverScreen Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Cmp [DriverSegment], 0 JE Network_DriverScreen1 @@ -388,15 +385,15 @@ Network_DriverScreenLoadFileNamesEnd: Mov DX, Offset O1_LoadNetworkDriver Ret -EndP Network_DriverScreen +;EndP Network_DriverScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_DrawDriverScreen Far +Proc Network_DrawDriverScreen Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Call S_GetDestination ; Gets ES @@ -447,7 +444,7 @@ Network_DrawDriverScreenClip2: ShL SI, 7 Mov DS, [DiskDataArea] - Assume DS:Nothing + ;Assume DS:Nothing Cmp DX, 36 JB Network_DrawDriverScreenClip @@ -482,16 +479,16 @@ Network_DrawDriverScreenDriverName: Network_DrawDriverScreenEnd: Ret -EndP Network_DrawDriverScreen - Assume DS:Nothing +;EndP Network_DrawDriverScreen + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_PreDriverScreen Far +Proc Network_PreDriverScreen Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Cmp [NumDrivers], 0 JE Network_PreDriverScreenEnd @@ -522,13 +519,13 @@ Network_PreDriverScreen2: Network_PreDriverScreenEnd: Ret -EndP Network_PreDriverScreen - Assume DS:Nothing +;EndP Network_PreDriverScreen + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_Up Far - Assume DS:Disk +Proc Network_Up Far + ;Assume DS:Disk Sub [CurrentDriver], 1 AdC [CurrentDriver], 0 @@ -536,12 +533,12 @@ Proc Network_Up Far Mov AX, 1 Ret -EndP Network_Up - Assume DS:Nothing +;EndP Network_Up + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_Down Far +Proc Network_Down Far Mov AX, [CurrentDriver] Inc AX @@ -554,17 +551,17 @@ Network_Down1: Mov AX, 1 Ret -EndP Network_Down +;EndP Network_Down ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_PostDriverScreen Far +Proc Network_PostDriverScreen Far ; Has to handle up, down, Enter. Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset NetworkKeys Call M_FunctionDivider @@ -576,12 +573,12 @@ Network_PostDriverScreen1: Xor AX, AX Ret -EndP Network_PostDriverScreen +;EndP Network_PostDriverScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_LoadDriver Far - Assume DS:Disk +Proc Network_LoadDriver Far + ;Assume DS:Disk ; Allocate EMS memory buffers first @@ -643,7 +640,7 @@ Network_LoadDriverMemoryAlreadyAllocated2: Network_LoadDriver1: ShL DX, 7 Mov DS, [DiskDataArea] - Assume DS:Nothing + ;Assume DS:Nothing Mov DI, DX ; Try allocating memory first. @@ -680,7 +677,7 @@ Network_LoadDriver2: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AH, 3Fh Mov CX, NUMPROVIDEDVARIABLES @@ -732,7 +729,7 @@ Network_InitialiseBuffers1: ; Should jump to network initialise function now. Jmp NetworkDriver_Initialise - Assume DS:Nothing + ;Assume DS:Nothing Network_LoadDriver4: Mov AH, 3Eh @@ -741,18 +738,18 @@ Network_LoadDriver4: Network_LoadDriver3: Jmp Network_UnloadDriver -EndP Network_LoadDriver - Assume DS:Nothing +;EndP Network_LoadDriver + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_UnloadDriver Far +Proc Network_UnloadDriver Far Push CS Push CS Pop DS Pop ES - Assume DS:Disk + ;Assume DS:Disk Mov SI, Offset NetworkDriverUnloaded Call SetInfoLine @@ -781,14 +778,14 @@ Proc Network_UnloadDriver Far Jmp Network_DriverScreen -EndP Network_UnloadDriver - Assume DS:Nothing +;EndP Network_UnloadDriver + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 ; PatternCycle DW 0 -Proc Network_Poll Far +Proc Network_Poll Far Comment ~ Mov AX, CS:PatternCycle @@ -805,11 +802,11 @@ Network_Poll1: ~ Jmp NetworkDriver_Update -EndP Network_Poll +;EndP Network_Poll ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_DecodeUserName Far ; Given DS:SI = name +Proc Network_DecodeUserName Far ; Given DS:SI = name ; CX = count (including key) Test CX, CX @@ -847,11 +844,11 @@ Network_DecodeUserName3: Network_DecodeUserNameEnd: Ret -EndP Network_DecodeUserName +;EndP Network_DecodeUserName ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_Shutdown Far +Proc Network_Shutdown Far Mov AX, CS:NetworkEMSHandle Test AX, AX @@ -869,7 +866,7 @@ Network_Shutdown1: Network_Shutdown2: Jmp NetworkDriver_Shutdown -EndP Network_Shutdown +;EndP Network_Shutdown ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴 ; @@ -919,7 +916,7 @@ EndP Network_Shutdown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_CalculateCRC +Proc Network_CalculateCRC ; Calculates CRC and appends 6 byte header ; Given ES = EMSSegment @@ -961,11 +958,11 @@ Network_CalculateCRC1: Ret -EndP Network_CalculateCRC +;EndP Network_CalculateCRC ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_GetSendBufferPage Near +Proc Network_GetSendBufferPage Near ; Returns AX = EMSPageFrame Push CX @@ -981,7 +978,7 @@ Proc Network_GetSendBufferPage Near Ret -EndP Network_GetSendBufferPage +;EndP Network_GetSendBufferPage ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 @@ -1034,7 +1031,7 @@ InterpretObjectTypes DW Offset ReceiveNetworkBlock0 ; ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock0 Near +Proc SendNetworkBlock0 Near ; Block type 0 ; Offset 0: Pattern Number @@ -1056,7 +1053,7 @@ Proc SendNetworkBlock0 Near Push Pattern Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Cmp DL, Byte Ptr PatternNumber ; Still editing the pattern? JE SendNetworkBlock0_0 @@ -1069,7 +1066,7 @@ Proc SendNetworkBlock0 Near SendNetworkBlock0_0: StosW Mov DS, PatternDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov AL, 64 Mul CH @@ -1178,16 +1175,16 @@ SendNetworkBlock0_9: Ret -EndP SendNetworkBlock0 - Assume DS:Nothing +;EndP SendNetworkBlock0 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock0 Near +Proc ReceiveNetworkBlock0 Near Push Pattern Pop ES - Assume ES:Pattern + ;Assume ES:Pattern Mov [Word Ptr ES:Modified], 101h @@ -1197,7 +1194,7 @@ Proc ReceiveNetworkBlock0 Near JNE ReceiveNetworkBlock0_1 Mov ES, [ES:PatternDataArea] - Assume ES:Nothing + ;Assume ES:Nothing Mov CX, [DS:08h] ; CL = Channel, CH = Row Mov BX, [DS:0Ah] ; BL = Width, BH = Height @@ -1315,12 +1312,12 @@ ReceiveNetworkBlock0_1: ; Not the same, or zero width -> mark modified ReceiveNetworkBlock0_2: Ret -EndP ReceiveNetworkBlock0 - Assume ES:Nothing +;EndP ReceiveNetworkBlock0 + ;Assume ES:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock1 +Proc SendNetworkBlock1 ; Block type 1 ; Offset 0: Pattern number @@ -1329,7 +1326,7 @@ Proc SendNetworkBlock1 Push Pattern Pop FS - Assume FS:Pattern + ;Assume FS:Pattern LodsB Mov CS:SendDataQueueHead, SI @@ -1377,7 +1374,7 @@ SendNetworkBlock1_0: Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Add CX, 8 ; Setup EMS transfer @@ -1408,18 +1405,18 @@ SendNetworkBlock1_2: Ret -EndP SendNetworkBlock1 - Assume DS:Nothing, FS:Nothing +;EndP SendNetworkBlock1 + ;Assume DS:Nothing, FS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock1 +Proc ReceiveNetworkBlock1 Push FS Push Music Pop FS - Assume FS:Music + ;Assume FS:Music Mov EDX, [DS:8] Mov AL, [DS:7] @@ -1451,7 +1448,7 @@ Proc ReceiveNetworkBlock1 ; Setup EMS transfer Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov DestinationType, 1 Mov DestinationHandle, AX @@ -1484,7 +1481,7 @@ ReceiveNetworkBlock1_1: Push Pattern Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Cmp AL, [Byte Ptr DS:PatternNumber] JNE ReceiveNetworkBlock1_0 @@ -1501,22 +1498,22 @@ ReceiveNetworkBlock1_2: Pop FS Ret -EndP ReceiveNetworkBlock1 - Assume DS:Nothing +;EndP ReceiveNetworkBlock1 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock2 +Proc SendNetworkBlock2 MovsB Mov CS:SendDataQueueHead, SI Ret -EndP SendNetworkBlock2 +;EndP SendNetworkBlock2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock2 +Proc ReceiveNetworkBlock2 Mov AH, [DS:7] ; AH = pattern Mov AL, 1 ; NETWORK_ENTIREPATTERNOBJECT @@ -1530,11 +1527,11 @@ Proc ReceiveNetworkBlock2 ReceiveNetworkBlock2_1: Ret -EndP ReceiveNetworkBlock2 +;EndP ReceiveNetworkBlock2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock3 +Proc SendNetworkBlock3 LodsW ; Length StosW @@ -1551,11 +1548,11 @@ Proc SendNetworkBlock3 Ret -EndP SendNetworkBlock3 +;EndP SendNetworkBlock3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock3 +Proc ReceiveNetworkBlock3 Push SongData Pop ES @@ -1576,11 +1573,11 @@ Proc ReceiveNetworkBlock3 ReceiveNetworkBlock3_1: Ret -EndP ReceiveNetworkBlock3 +;EndP ReceiveNetworkBlock3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock4 +Proc SendNetworkBlock4 LodsB StosB @@ -1599,11 +1596,11 @@ Proc SendNetworkBlock4 SendNetworkBlock4_1: Ret -EndP SendNetworkBlock4 +;EndP SendNetworkBlock4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock4 +Proc ReceiveNetworkBlock4 Mov DI, [DS:7] And DI, 0FFh @@ -1637,11 +1634,11 @@ ReceiveNetworkBlock4_1: Ret -EndP ReceiveNetworkBlock4 +;EndP ReceiveNetworkBlock4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock5 ; Does not send length or +Proc SendNetworkBlock5 ; Does not send length or ; sample pointer. LodsB @@ -1669,11 +1666,11 @@ Proc SendNetworkBlock5 ; Does not send length or Ret -EndP SendNetworkBlock5 +;EndP SendNetworkBlock5 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock5 +Proc ReceiveNetworkBlock5 Mov DI, [DS:7] And DI, 0FFh @@ -1704,28 +1701,28 @@ Proc ReceiveNetworkBlock5 ReceiveNetworkBlock5_1: Ret -EndP ReceiveNetworkBlock5 +;EndP ReceiveNetworkBlock5 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock6 +Proc SendNetworkBlock6 MovsW Mov CS:SendDataQueueHead, SI Ret -EndP SendNetworkBlock6 +;EndP SendNetworkBlock6 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock6 +Proc ReceiveNetworkBlock6 Mov AX, [DS:7] ; AL = pattern number, AH = numrows Push Pattern Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Cmp AL, [Byte Ptr PatternNumber] JNE ReceiveNetworkBlock6_1 @@ -1741,22 +1738,22 @@ ReceiveNetworkBlock6_2: ReceiveNetworkBlock6_1: Jmp ReceiveNetworkBlock0_1 ; Marks pattern as modified. -EndP ReceiveNetworkBlock6 - Assume DS:Nothing +;EndP ReceiveNetworkBlock6 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock7 +Proc SendNetworkBlock7 MovsB Mov CS:SendDataQueueHead, SI Ret -EndP SendNetworkBlock7 +;EndP SendNetworkBlock7 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock7 +Proc ReceiveNetworkBlock7 Mov AL, [DS:7] Mov AH, 1 @@ -1769,11 +1766,11 @@ Proc ReceiveNetworkBlock7 ReceiveNetworkBlock7_1: Ret -EndP ReceiveNetworkBlock7 +;EndP ReceiveNetworkBlock7 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock8 ; New sample +Proc SendNetworkBlock8 ; New sample MovsB MovsD @@ -1781,11 +1778,11 @@ Proc SendNetworkBlock8 ; New sample Ret -EndP SendNetworkBlock8 +;EndP SendNetworkBlock8 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock8 ; New sample +Proc ReceiveNetworkBlock8 ; New sample ; Call Music_Stop @@ -1818,11 +1815,11 @@ ReceiveNetworkBlock8_1: ReceiveNetworkBlock8_2: Ret -EndP ReceiveNetworkBlock8 +;EndP ReceiveNetworkBlock8 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc GetSampleLocation ; Given BX = EMS transfer structure +Proc GetSampleLocation ; Given BX = EMS transfer structure ; Given DX = sample number ; Given ECX = offset ; Returns carry if problem. @@ -1891,11 +1888,11 @@ GetSampleLocation5: Ret -EndP GetSampleLocation +;EndP GetSampleLocation ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc SendNetworkBlock9 +Proc SendNetworkBlock9 LodsB StosB @@ -1912,7 +1909,7 @@ Proc SendNetworkBlock9 Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Mov AX, NetworkSendEMSHandle Mov DestinationType, 1 @@ -1934,12 +1931,12 @@ SendNetworkBlock9_1: Ret -EndP SendNetworkBlock9 - Assume DS:Nothing +;EndP SendNetworkBlock9 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ReceiveNetworkBlock9 +Proc ReceiveNetworkBlock9 Mov DX, [DS:7] Mov ECX, [DS:8] @@ -1957,7 +1954,7 @@ Proc ReceiveNetworkBlock9 Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk ShR SI, 8 Mov SourceType, 1 @@ -1973,12 +1970,12 @@ Proc ReceiveNetworkBlock9 ReceiveNetworkBlock9_1: Ret -EndP ReceiveNetworkBlock9 - Assume DS:Nothing +;EndP ReceiveNetworkBlock9 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_SendData Far +Proc Network_SendData Far ; Called by driver when it is able to send data ; ; Provided: AX = number of bytes it can send. @@ -2024,7 +2021,7 @@ Network_SendData3: JZ Network_SendDataEnd Mov DS, SendQueueSegment - Assume DS:Nothing + ;Assume DS:Nothing Push AX Push BX @@ -2124,7 +2121,7 @@ Network_SendDataError: Xor DX, DX Ret -EndP Network_SendData +;EndP Network_SendData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 @@ -2135,7 +2132,7 @@ ReceiveToBlock DB 0, 8, 16 ; EMS:65532: Check word ; EMS:65534: Buffer Offset -Proc Network_ReceiveData Far +Proc Network_ReceiveData Far ; Called by driver when data is received ; ; Provided: DS:SI = data block received @@ -2181,7 +2178,7 @@ Proc Network_ReceiveData Far Network_ReceiveData1: Mov DX, [ES:65532] -; Assume OK.. now place data into buffer, updating check word. +; ;Assume OK.. now place data into buffer, updating check word. Network_ReceiveData2: LodsB Add DL, AL @@ -2250,11 +2247,11 @@ Network_ReceiveData3: Ret -EndP Network_ReceiveData +;EndP Network_ReceiveData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_GetSendQueue Far +Proc Network_GetSendQueue Far PushAD PushF @@ -2275,7 +2272,7 @@ Proc Network_GetSendQueue Far Push CS Pop DS - Assume DS:Disk + ;Assume DS:Disk Comment ~ This code is incomplete @@ -2303,12 +2300,12 @@ Network_GetSendQueue1: Ret -EndP Network_GetSendQueue - Assume DS:Nothing +;EndP Network_GetSendQueue + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_FinishedSendQueue Far +Proc Network_FinishedSendQueue Far Cmp DI, 16384-16 ; 16 bytes slack area JB Network_FinishedSendQueue1 @@ -2321,14 +2318,14 @@ Network_FinishedSendQueue1: Pop EAX Mov [BP+42], EAX -IF SHOWQUEUESIZE +%IF SHOWQUEUESIZE Push CS Pop DS Mov AX, SendDataQueueTail Sub AX, SendDataQueueHead Mov SI, Offset DebugMessage Call SetInfoLine -ENDIF +%ENDIF Pop ES Pop DS @@ -2337,11 +2334,11 @@ ENDIF Ret -EndP Network_FinishedSendQueue +;EndP Network_FinishedSendQueue ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_NewConnection Far ; Called when this computer +Proc Network_NewConnection Far ; Called when this computer ; joins a group PushA @@ -2364,11 +2361,11 @@ Proc Network_NewConnection Far ; Called when this computer Ret -EndP Network_NewConnection +;EndP Network_NewConnection ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc ResetDI +Proc ResetDI Cmp DI, 16384-16 JB ResetDI1 @@ -2378,11 +2375,11 @@ Proc ResetDI ResetDI1: Ret -EndP ResetDI +;EndP ResetDI ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_QueueSampleData Far ; Given CX = Sample number, 0 base +Proc Network_QueueSampleData Far ; Given CX = Sample number, 0 base ; DL = ConnectionID Push EAX @@ -2452,11 +2449,11 @@ Network_QueueSampleData2: Ret -EndP Network_QueueSampleData +;EndP Network_QueueSampleData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_EstablishConnection Far ; Called when a connection is +Proc Network_EstablishConnection Far ; Called when a connection is ; made to this computer ; Called when a successful connection is made ; Given AL = new connection number @@ -2562,11 +2559,11 @@ Network_EstablishConnection6: Ret -EndP Network_EstablishConnection +;EndP Network_EstablishConnection ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_AddWordToQueue Far ; Given AX, broadcasts to all +Proc Network_AddWordToQueue Far ; Given AX, broadcasts to all Call Network_GetSendQueue JZ Network_AddWordToQueue0 @@ -2581,11 +2578,11 @@ Network_AddWordToQueue0: Call Network_FinishedSendQueue Ret -EndP Network_AddWordToQueue +;EndP Network_AddWordToQueue ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_UpdatePatternIfIdle Far +Proc Network_UpdatePatternIfIdle Far Cmp CS:SendQueueSegment, 0 JE Network_UpdatePatternEnd @@ -2596,7 +2593,7 @@ Proc Network_UpdatePatternIfIdle Far Pop AX JNE Network_UpdatePatternEnd -Proc Network_UpdatePattern Far +Proc Network_UpdatePattern Far PushA ; AX = pattern number @@ -2629,13 +2626,13 @@ Network_UpdatePattern1: Network_UpdatePatternEnd: Ret -EndP Network_UpdatePattern +;EndP Network_UpdatePattern -EndP Network_UpdatePatternIfIdle +;EndP Network_UpdatePatternIfIdle ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_EnsureNoNetwork Far +Proc Network_EnsureNoNetwork Far Push AX Call [CS:NetworkDriver_ConnectionStatus] @@ -2653,11 +2650,11 @@ Proc Network_EnsureNoNetwork Far Network_EnsureNoNetwork1: Ret -EndP Network_EnsureNoNetwork +;EndP Network_EnsureNoNetwork ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_SendSampleHeader Far +Proc Network_SendSampleHeader Far Call Network_GetSendQueue JZ Network_SendSampleHeader1 @@ -2672,11 +2669,11 @@ Network_SendSampleHeader1: Call Network_FinishedSendQueue Ret -EndP Network_SendSampleHeader +;EndP Network_SendSampleHeader ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_SendInstrumentHeader Far +Proc Network_SendInstrumentHeader Far Call Network_GetSendQueue JZ Network_SendInstrumentHeader1 @@ -2691,11 +2688,11 @@ Network_SendInstrumentHeader1: Call Network_FinishedSendQueue Ret -EndP Network_SendInstrumentHeader +;EndP Network_SendInstrumentHeader ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -Proc Network_SendSongDataInformation Far ; CX = Count, DX = offset +Proc Network_SendSongDataInformation Far ; CX = Count, DX = offset Call Network_GetSendQueue JZ Network_SendSongDataInformation1 @@ -2711,12 +2708,12 @@ Network_SendSongDataInformation1: Call Network_FinishedSendQueue Ret -EndP Network_SendSongDataInformation +;EndP Network_SendSongDataInformation ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 EndS -ENDIF +%ENDIF End diff --git a/it_obj1.s b/it_obj1.s index b12dfb8..915e00e 100644 --- a/it_obj1.s +++ b/it_obj1.s @@ -1,377 +1,375 @@ - Jumps +%include "switch.inc" -include switch.inc + extern D_SaveInstrument:Far + extern D_LSCheckLoopValues:Far + extern D_LSCheckSusLoopValues:Far - Extrn D_SaveInstrument:Far - Extrn D_LSCheckLoopValues:Far - Extrn D_LSCheckSusLoopValues:Far + extern D_PreLoadSampleWindow:Far + extern D_DrawLoadSampleWindow:Far + extern D_PostLoadSampleWindow:Far - Extrn D_PreLoadSampleWindow:Far - Extrn D_DrawLoadSampleWindow:Far - Extrn D_PostLoadSampleWindow:Far + extern D_LSDrawDriveWindow:Far + extern D_LSPreDriveWindow:Far + extern D_LSPostDriveWindow:Far - Extrn D_LSDrawDriveWindow:Far - Extrn D_LSPreDriveWindow:Far - Extrn D_LSPostDriveWindow:Far + extern D_LIDrawDriveWindow:Far + extern D_LIPreDriveWindow:Far + extern D_LIPostDriveWindow:Far - Extrn D_LIDrawDriveWindow:Far - Extrn D_LIPreDriveWindow:Far - Extrn D_LIPostDriveWindow:Far + extern D_SaveSample:Far + extern D_SaveRawSample:Far + extern D_SaveST3Sample:Far - Extrn D_SaveSample:Far - Extrn D_SaveRawSample:Far - Extrn D_SaveST3Sample:Far + extern D_GetFormatType:Far - Extrn D_GetFormatType:Far + extern D_SlowSampleSort:Far + extern D_SlowInstrumentSort:Far + extern D_SaveDirectoryConfiguration:Far + extern D_LoadSampleNames:Far + extern D_LoadSongNames:Far + extern D_DrawFileWindow:Far + extern D_DrawDirectoryWindow:Far + extern D_DrawDriveWindow:Far + extern D_PreFileWindow:Far + extern D_SaveModule:Far + extern D_PostFileLoadWindow:Far + extern D_PostFileSaveWindow:Far + extern D_PreDirectoryWindow:Far + extern D_PostDirectoryWindow:Far + extern D_PostViewSampleLibrary:Far + extern D_PreDriveWindow:Far + extern D_PostDriveWindow:Far + extern D_PostSaveDriveWindow:Far + extern D_NewDirectory:Far + extern D_NewSpecifier:Far - Extrn D_SlowSampleSort:Far - Extrn D_SlowInstrumentSort:Far - Extrn D_SaveDirectoryConfiguration:Far - Extrn D_LoadSampleNames:Far - Extrn D_LoadSongNames:Far - Extrn D_DrawFileWindow:Far - Extrn D_DrawDirectoryWindow:Far - Extrn D_DrawDriveWindow:Far - Extrn D_PreFileWindow:Far - Extrn D_SaveModule:Far - Extrn D_PostFileLoadWindow:Far - Extrn D_PostFileSaveWindow:Far - Extrn D_PreDirectoryWindow:Far - Extrn D_PostDirectoryWindow:Far - Extrn D_PostViewSampleLibrary:Far - Extrn D_PreDriveWindow:Far - Extrn D_PostDriveWindow:Far - Extrn D_PostSaveDriveWindow:Far - Extrn D_NewDirectory:Far - Extrn D_NewSpecifier:Far +%IF TUTORIAL +%ELSE + extern D_LoadXM:Far + extern D_LoadS3M:Far + extern D_LoadMOD:Far + extern D_LoadIT:Far + extern D_LoadMTM:Far + extern D_Load669:Far +%ENDIF + extern D_DrawHeader:Far + extern D_SaveIT:Far + extern D_SaveS3M:Far + extern D_SaveSong:Far + extern Quit:Far -IF TUTORIAL -ELSE - Extrn D_LoadXM:Far - Extrn D_LoadS3M:Far - Extrn D_LoadMOD:Far - Extrn D_LoadIT:Far - Extrn D_LoadMTM:Far - Extrn D_Load669:Far -ENDIF - Extrn D_DrawHeader:Far - Extrn D_SaveIT:Far - Extrn D_SaveS3M:Far - Extrn D_SaveSong:Far - Extrn Quit:Far + extern D_DrawLoadInstrument:Far + extern D_PreLoadInstrument:Far + extern D_PostLoadInstrument:Far + extern D_LoadInstrumentNames:Far + extern D_ViewInstrument:Far - Extrn D_DrawLoadInstrument:Far - Extrn D_PreLoadInstrument:Far - Extrn D_PostLoadInstrument:Far - Extrn D_LoadInstrumentNames:Far - Extrn D_ViewInstrument:Far +%IF EMSDEBUG -IF EMSDEBUG + extern E_DumpEMSMemory:Far - Extrn E_DumpEMSMemory:Far +%ENDIF -ENDIF + extern LSWindow_Up:Far + extern LSWindow_Down:Far - Extrn LSWindow_Up:Far - Extrn LSWindow_Down:Far + extern SongDirectory:Byte + extern FileSpecifier:Byte - Extrn SongDirectory:Byte - Extrn FileSpecifier:Byte - - Extrn F_InstrumentButtonHandler:Far + extern F_InstrumentButtonHandler:Far - Extrn F_DrawHeader:Far - Extrn F_Return0:Far - Extrn F_Return1:Far - Extrn F_ShowChannels:Far - Extrn F_RedrawScreen:Far - Extrn F_GotoEmptyList:Far - Extrn F_DrawSMCChannels:Far - Extrn F_Nothing:Far - Extrn F_CalculateLength:Far + extern F_DrawHeader:Far + extern F_Return0:Far + extern F_Return1:Far + extern F_ShowChannels:Far + extern F_RedrawScreen:Far + extern F_GotoEmptyList:Far + extern F_DrawSMCChannels:Far + extern F_Nothing:Far + extern F_CalculateLength:Far - Extrn F_MainMenu:Far - Extrn F_Help:Far ; Menu functions - Extrn F_ViewVariables:Far - Extrn F_ViewOrderPan:Far - Extrn F_ViewPattern:Far + extern F_MainMenu:Far + extern F_Help:Far ; Menu functions + extern F_ViewVariables:Far + extern F_ViewOrderPan:Far + extern F_ViewPattern:Far - Extrn F_FileMenu:Far - Extrn F_FileLoad:Far - Extrn F_FileNew:Far - Extrn F_FileSaveCurrent:Far - Extrn F_FileSaveAs:Far - Extrn F_FileDOSShell:Far - Extrn F_FileQuit:Far + extern F_FileMenu:Far + extern F_FileLoad:Far + extern F_FileNew:Far + extern F_FileSaveCurrent:Far + extern F_FileSaveAs:Far + extern F_FileDOSShell:Far + extern F_FileQuit:Far - Extrn F_PlaybackMenu:Far - Extrn F_InfoPage:Far - Extrn F_PlaySong:Far - Extrn F_PlayPattern:Far - Extrn F_PlayOrder:Far - Extrn F_PlayMark:Far - Extrn F_Stop:Far - Extrn F_ReinitSoundCard:Far - Extrn F_DriverScreen:Far - Extrn F_CalculateLength:Far + extern F_PlaybackMenu:Far + extern F_InfoPage:Far + extern F_PlaySong:Far + extern F_PlayPattern:Far + extern F_PlayOrder:Far + extern F_PlayMark:Far + extern F_Stop:Far + extern F_ReinitSoundCard:Far + extern F_DriverScreen:Far + extern F_CalculateLength:Far - Extrn F_MessageEditor:Far - Extrn F_SampleMenu:Far - Extrn F_SampleList:Far - Extrn F_SampleLibrary:Far - Extrn F_ReloadGravis:Far + extern F_MessageEditor:Far + extern F_SampleMenu:Far + extern F_SampleList:Far + extern F_SampleLibrary:Far + extern F_ReloadGravis:Far - Extrn F_Return64:Far - Extrn F_Return192:Far + extern F_Return64:Far + extern F_Return192:Far - Extrn F_InstrumentMenu:Far - Extrn F_InstrumentList:Far - Extrn F_InstrumentLibrary:Far + extern F_InstrumentMenu:Far + extern F_InstrumentList:Far + extern F_InstrumentLibrary:Far - Extrn F_ShowMIDIZxxInput:Far - Extrn F_MIDI_Up:Far, F_MIDI_Down:Far - Extrn F_MIDI_PgUp:Far, F_MIDI_PgDn:Far + extern F_ShowMIDIZxxInput:Far + extern F_MIDI_Up:Far, F_MIDI_Down:Far + extern F_MIDI_PgUp:Far, F_MIDI_PgDn:Far -IF SPECTRUMANALYSER - Extrn Fourier_Start:Far - Extrn Fourier_PreDrawScreen:Far - Extrn Fourier_DrawScreen:Far - Extrn Fourier_PostFunction:Far - Extrn Fourier_IdleList:Far - Extrn Fourier_ChangePalette:Far -ENDIF +%IF SPECTRUMANALYSER + extern Fourier_Start:Far + extern Fourier_PreDrawScreen:Far + extern Fourier_DrawScreen:Far + extern Fourier_PostFunction:Far + extern Fourier_IdleList:Far + extern Fourier_ChangePalette:Far +%ENDIF - Extrn K_DrawTables:Far - Extrn K_ResetKeyboardTables:Far - Extrn K_ShowMIDIInput:Far + extern K_DrawTables:Far + extern K_ResetKeyboardTables:Far + extern K_ShowMIDIInput:Far - Extrn PEFunction_IncreaseOctave:Far - Extrn PEFunction_DecreaseOctave:Far + extern PEFunction_IncreaseOctave:Far + extern PEFunction_DecreaseOctave:Far - Extrn Glbl_DriverScreen:Far - Extrn Glbl_Ctrl_F1:Far - Extrn Glbl_Ctrl_F3:Far - Extrn Glbl_Ctrl_F4:Far - Extrn Glbl_Ctrl_F5:Far - Extrn Glbl_Ctrl_F12:Far - Extrn Glbl_F8:Far - Extrn Glbl_F9:Far - Extrn Glbl_F10:Far - Extrn Glbl_F11:Far - Extrn Glbl_F12:Far - Extrn Glbl_F2:Far - Extrn Glbl_F3:Far - Extrn Glbl_F4:Far - Extrn Glbl_F5:Far - Extrn Glbl_F6:Far - Extrn PE_F7:Far ; Global... - Extrn Glbl_Shift_F1:Far - Extrn Glbl_Shift_F6:Far - Extrn Glbl_Shift_F9:Far - Extrn Glbl_Alt_F1:Far - Extrn Glbl_Alt_F2:Far - Extrn Glbl_Alt_F3:Far - Extrn Glbl_Alt_F4:Far - Extrn Glbl_Alt_F5:Far - Extrn Glbl_Alt_F6:Far - Extrn Glbl_Alt_F7:Far - Extrn Glbl_Alt_F8:Far - Extrn Glbl_LoadSample:Far - Extrn Glbl_LoadInstrument:Far - Extrn Glbl_LeftBrace:Far - Extrn Glbl_RightBrace:Far - Extrn Glbl_LeftSquareBracket:Far - Extrn Glbl_RightSquareBracket:Far + extern Glbl_DriverScreen:Far + extern Glbl_Ctrl_F1:Far + extern Glbl_Ctrl_F3:Far + extern Glbl_Ctrl_F4:Far + extern Glbl_Ctrl_F5:Far + extern Glbl_Ctrl_F12:Far + extern Glbl_F8:Far + extern Glbl_F9:Far + extern Glbl_F10:Far + extern Glbl_F11:Far + extern Glbl_F12:Far + extern Glbl_F2:Far + extern Glbl_F3:Far + extern Glbl_F4:Far + extern Glbl_F5:Far + extern Glbl_F6:Far + extern PE_F7:Far ; Global... + extern Glbl_Shift_F1:Far + extern Glbl_Shift_F6:Far + extern Glbl_Shift_F9:Far + extern Glbl_Alt_F1:Far + extern Glbl_Alt_F2:Far + extern Glbl_Alt_F3:Far + extern Glbl_Alt_F4:Far + extern Glbl_Alt_F5:Far + extern Glbl_Alt_F6:Far + extern Glbl_Alt_F7:Far + extern Glbl_Alt_F8:Far + extern Glbl_LoadSample:Far + extern Glbl_LoadInstrument:Far + extern Glbl_LeftBrace:Far + extern Glbl_RightBrace:Far + extern Glbl_LeftSquareBracket:Far + extern Glbl_RightSquareBracket:Far -IF NETWORKENABLED - Extrn Network_DriverScreen:Far - Extrn Network_DrawDriverScreen:Far - Extrn Network_PreDriverScreen:Far - Extrn Network_PostDriverScreen:Far +%IF NETWORKENABLED + extern Network_DriverScreen:Far + extern Network_DrawDriverScreen:Far + extern Network_PreDriverScreen:Far + extern Network_PostDriverScreen:Far Public O1_LoadNetworkDriver -ENDIF +%ENDIF -IF TIMERSCREEN - Extrn Glbl_TimerScreen:Far - Extrn D_DrawTimer:Far, D_PostTimerList:Far -ENDIF +%IF TIMERSCREEN + extern Glbl_TimerScreen:Far + extern D_DrawTimer:Far, D_PostTimerList:Far +%ENDIF - Extrn H_HelpESC:Far - Extrn H_Help:Far - Extrn H_DrawHelp:Far + extern H_HelpESC:Far + extern H_Help:Far + extern H_DrawHelp:Far - Extrn H_HelpUp:Far - Extrn H_HelpDown:Far - Extrn H_HelpPgUp:Far - Extrn H_HelpPgDn:Far + extern H_HelpUp:Far + extern H_HelpDown:Far + extern H_HelpPgUp:Far + extern H_HelpPgDn:Far - Extrn I_SelectScreen:Far - Extrn I_InstrumentListSpace:Far - Extrn I_InstrumentListNoteOff:Far - Extrn I_AmplifySample:Far - Extrn I_GetInstrumentScreen:Far - Extrn I_SampleButtonHandler:Far - Extrn I_CalculateC5Speed:Far - Extrn I_PrintC5Frequency:Far + extern I_SelectScreen:Far + extern I_InstrumentListSpace:Far + extern I_InstrumentListNoteOff:Far + extern I_AmplifySample:Far + extern I_GetInstrumentScreen:Far + extern I_SampleButtonHandler:Far + extern I_CalculateC5Speed:Far + extern I_PrintC5Frequency:Far - Extrn I_DoubleSampleSpeed:Far - Extrn I_HalveSampleSpeed:Far - Extrn I_SampleSpeedSemiUp:Far - Extrn I_SampleSpeedSemiDown:Far + extern I_DoubleSampleSpeed:Far + extern I_HalveSampleSpeed:Far + extern I_SampleSpeedSemiUp:Far + extern I_SampleSpeedSemiDown:Far - Extrn I_PlaySample:Far - Extrn I_PlayNote:Far + extern I_PlaySample:Far + extern I_PlayNote:Far - Extrn I_DrawPitchPanCenter:Far - Extrn I_PrePitchPanCenter:Far - Extrn I_PostPitchPanCenter:Far + extern I_DrawPitchPanCenter:Far + extern I_PrePitchPanCenter:Far + extern I_PostPitchPanCenter:Far - Extrn I_IncreasePlayChannel:Far - Extrn I_DecreasePlayChannel:Far + extern I_IncreasePlayChannel:Far + extern I_DecreasePlayChannel:Far - Extrn I_DeleteInstrument:Far - Extrn I_ReverseSample:Far - Extrn I_InvertSample:Far - Extrn I_CutSampleBeforeLoop:Far - Extrn I_ConvertSample:Far - Extrn I_DeleteSample:Far - Extrn I_CutSample:Far - Extrn I_ExchangeSamples:Far - Extrn I_SwapSamples:Far - Extrn I_ReplaceSample:Far - Extrn I_ReplaceInstrument:Far - Extrn I_SwapInstruments:Far - Extrn I_ResizeSample:Far - Extrn I_ResizeSampleNoInt:Far - Extrn I_UpdateInstrument:Far - Extrn I_ToggleSampleQuality:Far - Extrn I_CopyInstrument:Far - Extrn I_CenterSample:Far - Extrn I_ScaleInstrumentVolumes:Far - Extrn I_ScaleSampleVolumes:Far + extern I_DeleteInstrument:Far + extern I_ReverseSample:Far + extern I_InvertSample:Far + extern I_CutSampleBeforeLoop:Far + extern I_ConvertSample:Far + extern I_DeleteSample:Far + extern I_CutSample:Far + extern I_ExchangeSamples:Far + extern I_SwapSamples:Far + extern I_ReplaceSample:Far + extern I_ReplaceInstrument:Far + extern I_SwapInstruments:Far + extern I_ResizeSample:Far + extern I_ResizeSampleNoInt:Far + extern I_UpdateInstrument:Far + extern I_ToggleSampleQuality:Far + extern I_CopyInstrument:Far + extern I_CenterSample:Far + extern I_ScaleInstrumentVolumes:Far + extern I_ScaleSampleVolumes:Far - Extrn I_DrawInstrumentWindow:Far - Extrn I_PreInstrumentWindow:Far - Extrn I_PostInstrumentWindow:Far - Extrn I_ToggleMultiChannel:Far + extern I_DrawInstrumentWindow:Far + extern I_PreInstrumentWindow:Far + extern I_PostInstrumentWindow:Far + extern I_ToggleMultiChannel:Far - Extrn I_DrawNoteWindow:Far - Extrn I_PreNoteWindow:Far - Extrn I_PostNoteWindow:Far + extern I_DrawNoteWindow:Far + extern I_PreNoteWindow:Far + extern I_PostNoteWindow:Far - Extrn I_DrawEnvelope:Far - Extrn I_PreEnvelope:Far - Extrn I_PostEnvelope:Far + extern I_DrawEnvelope:Far + extern I_PreEnvelope:Far + extern I_PostEnvelope:Far - Extrn I_ShowSampleInfo:Far - Extrn I_SampleUp:Far - Extrn I_SampleDown:Far - Extrn I_CheckLoopValues:Far - Extrn I_CheckSusLoopValues:Far + extern I_ShowSampleInfo:Far + extern I_SampleUp:Far + extern I_SampleDown:Far + extern I_CheckLoopValues:Far + extern I_CheckSusLoopValues:Far - Extrn I_DrawSampleList:Far - Extrn I_PreSampleList:Far - Extrn I_PostSampleList:Far - Extrn I_IdleUpdateEnvelope:Far + extern I_DrawSampleList:Far + extern I_PreSampleList:Far + extern I_PostSampleList:Far + extern I_IdleUpdateEnvelope:Far - Extrn Msg_DrawMessage:Far - Extrn Msg_PreMessage:Far - Extrn Msg_PostMessage:Far + extern Msg_DrawMessage:Far + extern Msg_PreMessage:Far + extern Msg_PostMessage:Far - Extrn Music_SoundCardLoadAllSamples:Far - Extrn Music_ReinitSoundCard:Far - Extrn Music_SaveMIDIConfig:Far - Extrn Music_ShowAutodetectSoundcard:Far - Extrn Music_ToggleOrderUpdate:Far + extern Music_SoundCardLoadAllSamples:Far + extern Music_ReinitSoundCard:Far + extern Music_SaveMIDIConfig:Far + extern Music_ShowAutodetectSoundcard:Far + extern Music_ToggleOrderUpdate:Far - Extrn PE_FillHeader:Far - Extrn PE_SetCommandCursor:Far - Extrn PE_DrawPatternEdit:Far - Extrn PE_PrePatternEdit:Far - Extrn PE_PostPatternEdit:Far + extern PE_FillHeader:Far + extern PE_SetCommandCursor:Far + extern PE_DrawPatternEdit:Far + extern PE_PrePatternEdit:Far + extern PE_PostPatternEdit:Far - Extrn PEFunction_DrawUndo:Far - Extrn PEFunction_PreUndo:Far - Extrn PEFunction_PostUndo:Far + extern PEFunction_DrawUndo:Far + extern PEFunction_PreUndo:Far + extern PEFunction_PostUndo:Far - Extrn S_UpdateScreen:Far - Extrn S_RestoreScreen:Far + extern S_UpdateScreen:Far + extern S_RestoreScreen:Far - Extrn DrawDisplayData:Far - Extrn PostDisplayData:Far - Extrn DisplayUpdateScreen:Far + extern DrawDisplayData:Far + extern PostDisplayData:Far + extern DisplayUpdateScreen:Far - Extrn BaseOctave - Extrn SkipValue - Extrn RowHiLight1 - Extrn RowHiLight2 - Extrn NumberOfRows:Word - Extrn Amplification - Extrn InstrumentAmplification - Extrn FastVolumeAmplification - Extrn SampleAmplification - Extrn CommandToValue - Extrn MultiChannelInfo - Extrn SampleNumberInput:Byte - Extrn SongDirectory:Byte - Extrn SampleDirectory:Byte - Extrn InstrumentDirectory:Byte + extern BaseOctave + extern SkipValue + extern RowHiLight1 + extern RowHiLight2 + extern NumberOfRows:Word + extern Amplification + extern InstrumentAmplification + extern FastVolumeAmplification + extern SampleAmplification + extern CommandToValue + extern MultiChannelInfo + extern SampleNumberInput:Byte + extern SongDirectory:Byte + extern SampleDirectory:Byte + extern InstrumentDirectory:Byte - Extrn IdleUpdateInfoLine:Far - Extrn DOSShell:Far + extern IdleUpdateInfoLine:Far + extern DOSShell:Far - Extrn I_ExchangeInstruments:Far + extern I_ExchangeInstruments:Far - Extrn F_ConfigButtonSetup:Far - Extrn F_SetControlInstrument:Far - Extrn F_SetControlSample:Far - Extrn F_SetMono:Far - Extrn F_SetStereo:Far - Extrn F_SetAmiga:Far - Extrn F_SetLinear:Far + extern F_ConfigButtonSetup:Far + extern F_SetControlInstrument:Far + extern F_SetControlSample:Far + extern F_SetMono:Far + extern F_SetStereo:Far + extern F_SetAmiga:Far + extern F_SetLinear:Far - Extrn F_NewSong:Far + extern F_NewSong:Far - Extrn AddressInput:Byte - Extrn NewSampleSize:Word - Extrn ThumbStringEnter:Byte - Extrn SampleName:Byte + extern AddressInput:Byte + extern NewSampleSize:Word + extern ThumbStringEnter:Byte + extern SampleName:Byte -If MEMORYDEBUG +%If MEMORYDEBUG - Extrn F_PostDebug:Far - Extrn Glbl_Debug:Far - Extrn F_DrawDebug:Far - Extrn F_DebugUp:Far - Extrn F_DebugDown:Far - Extrn F_DebugPgUp:Far - Extrn F_DebugPgDn:Far - Extrn F_DebugStringInput:Far + extern F_PostDebug:Far + extern Glbl_Debug:Far + extern F_DrawDebug:Far + extern F_DebugUp:Far + extern F_DebugDown:Far + extern F_DebugPgUp:Far + extern F_DebugPgDn:Far + extern F_DebugStringInput:Far Global O1_DebugList -ENDIF +%ENDIF - Extrn PaletteDefs:Byte + extern PaletteDefs:Byte - Extrn S_UsePresetPalette:Far - Extrn DisplayMinus:Far - Extrn DisplayPlus:Far - Extrn PatternSetLength, PatternLengthStart, PatternLengthEnd + extern S_UsePresetPalette:Far + extern DisplayMinus:Far + extern DisplayPlus:Far + extern PatternSetLength, PatternLengthStart, PatternLengthEnd - Extrn MouseToggle:Far - Extrn Refresh:Far + extern MouseToggle:Far + extern Refresh:Far - Extrn MIDI_SetInstrument:Far, CentraliseCursor - Extrn MIDI_PlayNote:Far, MIDI_NoteOff:Far, MIDI_PlaySample:Far - Extrn MIDICentralNote, MIDIAmplification + extern MIDI_SetInstrument:Far, CentraliseCursor + extern MIDI_PlayNote:Far, MIDI_NoteOff:Far, MIDI_PlaySample:Far + extern MIDICentralNote, MIDIAmplification - Extrn Music_TimeSong:Far, Music_ShowTime:Far - Extrn Flags + extern Music_TimeSong:Far, Music_ShowTime:Far + extern Flags - Extrn Music_ToggleSoloInstrument:Far - Extrn Music_ToggleSoloSample:Far + extern Music_ToggleSoloInstrument:Far + extern Music_ToggleSoloSample:Far ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� @@ -416,19 +414,19 @@ ENDIF Global O1_GetInstrumentAmpList Global O1_GetFastAmpList -IF SHOWPATTERNLENGTH +%IF SHOWPATTERNLENGTH Global O1_ShowPatternLengthList -ENDIF +%ENDIF Global O1_C5FrequencyList -IF SPECTRUMANALYSER +%IF SPECTRUMANALYSER Global O1_FourierDisplay -ENDIF +%ENDIF Global O1_EMSWarningMessage -IF NETWORKENABLED +%IF NETWORKENABLED Global O1_NetworkErrorList -ENDIF +%ENDIF Global O1_TemplateErrorList Global O1_PatternTooLongList Global O1_SampleList @@ -499,9 +497,9 @@ ENDIF Global EMSErrorValue5, EMSErrorValue6 Global EMSErrorValue7, EMSErrorValue8 -IF TIMERSCREEN +%IF TIMERSCREEN Public O1_TimerList -ENDIF +%ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� @@ -509,14 +507,14 @@ Segment Object1 BYTE Public 'Data' O1_AutoDetectList DW 6 DW 0 - DW Near Ptr ESCContinueList - DW Near Ptr AboutBox - DW Near Ptr ImpulseLogo - DW Near Ptr AutoMiniBox - DW Near Ptr AboutText - DW Near Ptr AutoDetectText - DW Near Ptr CallAutoDetect - DW Near Ptr AutoContinueButton + DW ESCContinueList + DW AboutBox + DW ImpulseLogo + DW AutoMiniBox + DW AboutText + DW AutoDetectText + DW CallAutoDetect + DW AutoContinueButton DW 0 ESCContinueList DB 0 ; ESC @@ -526,148 +524,148 @@ ESCContinueList DB 0 ; ESC DB 0FFh O1_OrderPanningList DW 10 - DW Near Ptr IdleFunctionList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr FillHeader ; 2 - DW Near Ptr OrderandPanningMsg ; 3 - DW Near Ptr OrderBox ; 4 - DW Near Ptr PanBox1 ; 5 - DW Near Ptr PanBox2 ; 6 - DW Near Ptr ShowChannelMsgs ; 7 - DW Near Ptr PanText1 ; 8 - DW Near Ptr PanText2 ; 9 - DW Near Ptr OrderList ; 10 - DW Near Ptr Channel1 ; 11 - DW Near Ptr Channel2 ; 12 - DW Near Ptr Channel3 ; 13 - DW Near Ptr Channel4 ; 14 - DW Near Ptr Channel5 ; 15 - DW Near Ptr Channel6 ; 16 - DW Near Ptr Channel7 ; 17 - DW Near Ptr Channel8 ; 18 - DW Near Ptr Channel9 ; 19 - DW Near Ptr Channel10 ; 20 - DW Near Ptr Channel11 ; 21 - DW Near Ptr Channel12 ; 22 - DW Near Ptr Channel13 ; 23 - DW Near Ptr Channel14 ; 24 - DW Near Ptr Channel15 ; 25 - DW Near Ptr Channel16 ; 26 - DW Near Ptr Channel17 - DW Near Ptr Channel18 - DW Near Ptr Channel19 - DW Near Ptr Channel20 - DW Near Ptr Channel21 - DW Near Ptr Channel22 - DW Near Ptr Channel23 - DW Near Ptr Channel24 - DW Near Ptr Channel25 - DW Near Ptr Channel26 - DW Near Ptr Channel27 - DW Near Ptr Channel28 - DW Near Ptr Channel29 - DW Near Ptr Channel30 - DW Near Ptr Channel31 - DW Near Ptr Channel32 - DW Near Ptr Channel33 - DW Near Ptr Channel34 - DW Near Ptr Channel35 - DW Near Ptr Channel36 - DW Near Ptr Channel37 - DW Near Ptr Channel38 - DW Near Ptr Channel39 - DW Near Ptr Channel40 - DW Near Ptr Channel41 - DW Near Ptr Channel42 - DW Near Ptr Channel43 - DW Near Ptr Channel44 - DW Near Ptr Channel45 - DW Near Ptr Channel46 - DW Near Ptr Channel47 - DW Near Ptr Channel48 - DW Near Ptr Channel49 - DW Near Ptr Channel50 - DW Near Ptr Channel51 - DW Near Ptr Channel52 - DW Near Ptr Channel53 - DW Near Ptr Channel54 - DW Near Ptr Channel55 - DW Near Ptr Channel56 - DW Near Ptr Channel57 - DW Near Ptr Channel58 - DW Near Ptr Channel59 - DW Near Ptr Channel60 - DW Near Ptr Channel61 - DW Near Ptr Channel62 - DW Near Ptr Channel63 - DW Near Ptr Channel64 - DW Near Ptr SetHelpContext0 + DW IdleFunctionList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW FillHeader ; 2 + DW OrderandPanningMsg ; 3 + DW OrderBox ; 4 + DW PanBox1 ; 5 + DW PanBox2 ; 6 + DW ShowChannelMsgs ; 7 + DW PanText1 ; 8 + DW PanText2 ; 9 + DW OrderList ; 10 + DW Channel1 ; 11 + DW Channel2 ; 12 + DW Channel3 ; 13 + DW Channel4 ; 14 + DW Channel5 ; 15 + DW Channel6 ; 16 + DW Channel7 ; 17 + DW Channel8 ; 18 + DW Channel9 ; 19 + DW Channel10 ; 20 + DW Channel11 ; 21 + DW Channel12 ; 22 + DW Channel13 ; 23 + DW Channel14 ; 24 + DW Channel15 ; 25 + DW Channel16 ; 26 + DW Channel17 + DW Channel18 + DW Channel19 + DW Channel20 + DW Channel21 + DW Channel22 + DW Channel23 + DW Channel24 + DW Channel25 + DW Channel26 + DW Channel27 + DW Channel28 + DW Channel29 + DW Channel30 + DW Channel31 + DW Channel32 + DW Channel33 + DW Channel34 + DW Channel35 + DW Channel36 + DW Channel37 + DW Channel38 + DW Channel39 + DW Channel40 + DW Channel41 + DW Channel42 + DW Channel43 + DW Channel44 + DW Channel45 + DW Channel46 + DW Channel47 + DW Channel48 + DW Channel49 + DW Channel50 + DW Channel51 + DW Channel52 + DW Channel53 + DW Channel54 + DW Channel55 + DW Channel56 + DW Channel57 + DW Channel58 + DW Channel59 + DW Channel60 + DW Channel61 + DW Channel62 + DW Channel63 + DW Channel64 + DW SetHelpContext0 DW 0 O1_HelpList DW 6 - DW Near Ptr IdleFunctionList - DW Near Ptr HelpKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr FillHeader ; 2 - DW Near Ptr HelpMsg ; 3 - DW Near Ptr HelpBox ; 4 - DW Near Ptr ShowHelp ; 5 - DW Near Ptr HelpDoneButton ; 6 + DW IdleFunctionList + DW HelpKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW FillHeader ; 2 + DW HelpMsg ; 3 + DW HelpBox ; 4 + DW ShowHelp ; 5 + DW HelpDoneButton ; 6 DW 0 O1_PatternEditList DW 3 - DW Near Ptr InfoPageIdleList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr PatternEditMsg ; 2 - DW Near Ptr PatternEdit ; 3 - DW Near Ptr FillHeader ; 4 - DW Near Ptr SetHelpContext1 ; 5 + DW InfoPageIdleList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW PatternEditMsg ; 2 + DW PatternEdit ; 3 + DW FillHeader ; 4 + DW SetHelpContext1 ; 5 DW 0 O1_PEConfigList DW 14 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCF2&ReturnList - DW Near Ptr PEConfigBox ; 0 - DW Near Ptr PEConfigText ; 1 - DW Near Ptr PEConfigBsOctText ; 2 - DW Near Ptr PEConfigSkipValueText ; 3 - DW Near Ptr PEConfigRHLMinorText ; 4 - DW Near Ptr PEConfigRHLMajorText ;5 - DW Near Ptr PEConfigMaxRowsText ; 6 - DW Near Ptr PEConfigCommandCursor ; 7 - DW Near Ptr PECBox1 - DW Near Ptr PECBox2 - DW Near Ptr PECBox3 - DW Near Ptr PECBox4 - DW Near Ptr PECBox5 - DW Near Ptr PEConfigDoneButton ; 13 - DW Near Ptr PETBBaseOctave ; 14 - DW Near Ptr PETBSkipValue ; 15 - DW Near Ptr PETBRHLMinor ; 16 - DW Near Ptr PETBRHLMajor ; 17 - DW Near Ptr PETBMaxRow ; 18 - DW Near Ptr PECLinkButton ; 19 - DW Near Ptr PECSplitButton ; 20 - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCF2&ReturnList + DW PEConfigBox ; 0 + DW PEConfigText ; 1 + DW PEConfigBsOctText ; 2 + DW PEConfigSkipValueText ; 3 + DW PEConfigRHLMinorText ; 4 + DW PEConfigRHLMajorText ;5 + DW PEConfigMaxRowsText ; 6 + DW PEConfigCommandCursor ; 7 + DW PECBox1 + DW PECBox2 + DW PECBox3 + DW PECBox4 + DW PECBox5 + DW PEConfigDoneButton ; 13 + DW PETBBaseOctave ; 14 + DW PETBSkipValue ; 15 + DW PETBRHLMinor ; 16 + DW PETBRHLMajor ; 17 + DW PETBMaxRow ; 18 + DW PECLinkButton ; 19 + DW PECSplitButton ; 20 + DW FillHeader DW 0 O1_SetPatternLength DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr ESC&ReturnList - DW Near Ptr SetPatternLengthBox ; 0 - DW Near Ptr SetPatternLengthHeader - DW Near Ptr SetPatternLengthThumbBox1 - DW Near Ptr SetPatternLengthThumbBox2 - DW Near Ptr SetPatternLengthThumbBar ; 4 - DW Near Ptr SetPatternLengthStart ; 5 - DW Near Ptr SetPatternLengthEnd ; 6 - DW Near Ptr SetPatternLengthOKButton ; 7 - DW Near Ptr SetPatternLengthText + DW IdleFunctionList + DW ESC&ReturnList + DW SetPatternLengthBox ; 0 + DW SetPatternLengthHeader + DW SetPatternLengthThumbBox1 + DW SetPatternLengthThumbBox2 + DW SetPatternLengthThumbBar ; 4 + DW SetPatternLengthStart ; 5 + DW SetPatternLengthEnd ; 6 + DW SetPatternLengthOKButton ; 7 + DW SetPatternLengthText DW 0 SetPatternLengthBox DW 0 @@ -699,21 +697,21 @@ SetPatternLengthThumbBox2 DW 0 SetPatternLengthThumbBar DW 9 DB 34, 24 DW 32, 200 - DW 1, Offset PatternSetLength + DW 1, PatternSetLength DW 0FFFFh, 5, 0FFFFh, 0FFFFh DW 0FFFFh, 0FFFFh SetPatternLengthStart DW 9 DB 34, 27 DW 0, 199 - DW 1, Offset PatternLengthStart + DW 1, PatternLengthStart DW 4, 6, 0FFFFh, 0FFFFh DW 0FFFFh, 0FFFFh SetPatternLengthEnd DW 9 DB 34, 28 DW 0, 199 - DW 1, Offset PatternLengthEnd + DW 1, PatternLengthEnd DW 5, 7, 0FFFFh, 0FFFFh DW 0FFFFh, 0FFFFh @@ -750,275 +748,275 @@ ESCReturnList DB 0 DD DWord Ptr F_Return0 DB 5 - DW Near Ptr ChainMIDICommands + DW ChainMIDICommands O1_NoBlockMarkedList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr NBMText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCReturnList + DW NBMBox + DW NBMText + DW OKButton + DW FillHeader DW 0 O1_OutOfSoundCardMemoryList DW 2 DW 0 - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr OOSoundCardMemoryText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW ESCReturnList + DW NBMBox + DW OOSoundCardMemoryText + DW OKButton + DW FillHeader DW 0 O1_OutOfMemoryList DW 2 DW 0 - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr OOMText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW ESCReturnList + DW NBMBox + DW OOMText + DW OKButton + DW FillHeader DW 0 O1_PatternSizeMismatchList DW 2 DW 0 - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr PSMText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW ESCReturnList + DW NBMBox + DW PSMText + DW OKButton + DW FillHeader DW 0 O1_LongMessageList DW 2 DW 0 - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr LongMsgText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW ESCReturnList + DW NBMBox + DW LongMsgText + DW OKButton + DW FillHeader DW 0 O1_OutOfSamplesList DW 2 DW 0 - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr OOSText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW ESCReturnList + DW NBMBox + DW OOSText + DW OKButton + DW FillHeader DW 0 O1_OverlapBlockList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr OLBText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCReturnList + DW NBMBox + DW OLBText + DW OKButton + DW FillHeader DW 0 O1_SwapOutOfRangeList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr SOORText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCReturnList + DW NBMBox + DW SOORText + DW OKButton + DW FillHeader DW 0 O1_NoBlockDataList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr NBDText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCReturnList + DW NBMBox + DW NBDText + DW OKButton + DW FillHeader DW 0 O1_PatternTooLongList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr PatternTooLongText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCReturnList + DW NBMBox + DW PatternTooLongText + DW OKButton + DW FillHeader DW 0 O1_GetAmpList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr AmpExtraKeyList - DW Near Ptr AmpBox ; 0 - DW Near Ptr AmpText ; 1 - DW Near Ptr AmpTBBox ; 2 - DW Near Ptr AmpTB ; 3 - DW Near Ptr ConfirmOKButton ; 4 - DW Near Ptr ConfirmCancelButton ; 5 - DW Near Ptr FillHeader + DW IdleFunctionList + DW AmpExtraKeyList + DW AmpBox ; 0 + DW AmpText ; 1 + DW AmpTBBox ; 2 + DW AmpTB ; 3 + DW ConfirmOKButton ; 4 + DW ConfirmCancelButton ; 5 + DW FillHeader DW 0 O1_GetInstrumentAmpList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr AmpExtraKeyList - DW Near Ptr AmpBox ; 0 - DW Near Ptr AmpText ; 1 - DW Near Ptr AmpTBBox ; 2 - DW Near Ptr InstrumentAmpTB ; 3 - DW Near Ptr ConfirmOKButton ; 4 - DW Near Ptr ConfirmCancelButton ; 5 - DW Near Ptr FillHeader + DW IdleFunctionList + DW AmpExtraKeyList + DW AmpBox ; 0 + DW AmpText ; 1 + DW AmpTBBox ; 2 + DW InstrumentAmpTB ; 3 + DW ConfirmOKButton ; 4 + DW ConfirmCancelButton ; 5 + DW FillHeader DW 0 O1_GetFastAmpList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr AmpExtraKeyList - DW Near Ptr AmpBox ; 0 - DW Near Ptr AmpText ; 1 - DW Near Ptr FastAmpTBBox ; 2 - DW Near Ptr FastAmpTB ; 3 - DW Near Ptr ConfirmOKButton ; 4 - DW Near Ptr ConfirmCancelButton ; 5 - DW Near Ptr FillHeader + DW IdleFunctionList + DW AmpExtraKeyList + DW AmpBox ; 0 + DW AmpText ; 1 + DW FastAmpTBBox ; 2 + DW FastAmpTB ; 3 + DW ConfirmOKButton ; 4 + DW ConfirmCancelButton ; 5 + DW FillHeader DW 0 O1_SampleAmplificationList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr ESC&ReturnList - DW Near Ptr SampleAmpBox - DW Near Ptr SampleAmpText ; 1 - DW Near Ptr SampleAmpTBBox ; 2 - DW Near Ptr SampleAmpTB ; 3 - DW Near Ptr ConfirmOKButton ; 4 - DW Near Ptr ConfirmCancelButton ; 5 - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESC&ReturnList + DW SampleAmpBox + DW SampleAmpText ; 1 + DW SampleAmpTBBox ; 2 + DW SampleAmpTB ; 3 + DW ConfirmOKButton ; 4 + DW ConfirmCancelButton ; 5 + DW FillHeader DW 0 -IF SHOWPATTERNLENGTH +%IF SHOWPATTERNLENGTH O1_ShowPatternLengthList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr PatternLengthText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCReturnList + DW NBMBox + DW PatternLengthText + DW OKButton + DW FillHeader DW 0 -ENDIF +%ENDIF O1_C5FrequencyList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr C5FrequencyText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCReturnList + DW NBMBox + DW C5FrequencyText + DW OKButton + DW FillHeader DW 0 O1_EMSWarningMessage DW 2 DW 0 - DW Near Ptr ESCReturnList - DW Near Ptr EMSErrorBox - DW Near Ptr EMSErrorText - DW Near Ptr OKButton - DW Near Ptr FillHeader + DW ESCReturnList + DW EMSErrorBox + DW EMSErrorText + DW OKButton + DW FillHeader DW 0 -IF NETWORKENABLED +%IF NETWORKENABLED O1_NetworkErrorList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr TemplateErrorBox - DW Near Ptr NetworkErrorText - DW Near Ptr TemplateOKButton - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCReturnList + DW TemplateErrorBox + DW NetworkErrorText + DW TemplateOKButton + DW FillHeader DW 0 -ENDIF +%ENDIF O1_TemplateErrorList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr TemplateErrorBox - DW Near Ptr TemplateErrorText - DW Near Ptr TemplateOKButton - DW Near Ptr FillHeader + DW IdleFunctionList + DW ESCReturnList + DW TemplateErrorBox + DW TemplateErrorText + DW TemplateOKButton + DW FillHeader DW 0 O1_CrashRecovery DW 2 DW 0 - DW Near Ptr ESCReturnList - DW Near Ptr CrashRecoveryBox - DW Near Ptr CrashRecoveryText - DW Near Ptr CrashRecoveryOKButton + DW ESCReturnList + DW CrashRecoveryBox + DW CrashRecoveryText + DW CrashRecoveryOKButton DW 0 O1_LoadSampleList DW 15 - DW Near Ptr SampleNameLoader - DW Near Ptr LoadSampleKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr LoadSampleHeader ; 2 - DW Near Ptr FillHeader ; 3 - DW Near Ptr LoadSampleBox - DW Near Ptr DriveSampleBox - DW Near Ptr LSInfoBox - DW Near Ptr LSInfoText - DW Near Ptr LSWaveFormBox - DW Near Ptr LSParametersBox - DW Near Ptr LSParametersText ; 10 - DW Near Ptr LSParametersVolBox ; 11 - DW Near Ptr LSParametersVibBox - DW Near Ptr LSFileInfoBox - DW Near Ptr LSFileInfoText - DW Near Ptr LoadSampleWindow ; 15 - DW Near Ptr LSDriveWindow ; 16 - DW Near Ptr LSFileNameInput ; 17 - DW Near Ptr LSSpeedInput - DW Near Ptr LSLoopToggle ; 19 - DW Near Ptr LSLoopBeginInput - DW Near Ptr LSLoopEndInput - DW Near Ptr LSSusLoopToggle ; 22 - DW Near Ptr LSSusLoopBeginInput - DW Near Ptr LSSusLoopEndInput - DW Near Ptr LSDefaultVolumeInput ; 25 - DW Near Ptr LSGlobalVolumeInput ; 26 - DW Near Ptr LSVibratoSpeedInput ; 27 - DW Near Ptr LSVibratoDepthInput ; 28 - DW Near Ptr LSVibratoRateInput ; 29 - DW Near Ptr SetHelpContext6 + DW SampleNameLoader + DW LoadSampleKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW LoadSampleHeader ; 2 + DW FillHeader ; 3 + DW LoadSampleBox + DW DriveSampleBox + DW LSInfoBox + DW LSInfoText + DW LSWaveFormBox + DW LSParametersBox + DW LSParametersText ; 10 + DW LSParametersVolBox ; 11 + DW LSParametersVibBox + DW LSFileInfoBox + DW LSFileInfoText + DW LoadSampleWindow ; 15 + DW LSDriveWindow ; 16 + DW LSFileNameInput ; 17 + DW LSSpeedInput + DW LSLoopToggle ; 19 + DW LSLoopBeginInput + DW LSLoopEndInput + DW LSSusLoopToggle ; 22 + DW LSSusLoopBeginInput + DW LSSusLoopEndInput + DW LSDefaultVolumeInput ; 25 + DW LSGlobalVolumeInput ; 26 + DW LSVibratoSpeedInput ; 27 + DW LSVibratoDepthInput ; 28 + DW LSVibratoRateInput ; 29 + DW SetHelpContext6 DW 0 O1_ViewSampleLibrary DW 15 - DW Near Ptr SampleNameLoader - DW Near Ptr LoadSampleKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr ViewSampleHeader ; 2 - DW Near Ptr FillHeader ; 3 - DW Near Ptr LoadSampleBox - DW Near Ptr DriveSampleBox - DW Near Ptr LSInfoBox - DW Near Ptr LSInfoText - DW Near Ptr LSWaveFormBox - DW Near Ptr LSParametersBox - DW Near Ptr LSParametersText ; 10 - DW Near Ptr LSParametersVolBox ; 11 - DW Near Ptr LSParametersVibBox - DW Near Ptr LSFileInfoBox - DW Near Ptr LSFileInfoText - DW Near Ptr ViewSampleWindow ; 15 - DW Near Ptr LSDriveWindow ; 16 - DW Near Ptr LSFileNameInput ; 17 - DW Near Ptr LSSpeedInput - DW Near Ptr LSLoopToggle ; 19 - DW Near Ptr LSLoopBeginInput - DW Near Ptr LSLoopEndInput - DW Near Ptr LSSusLoopToggle ; 22 - DW Near Ptr LSSusLoopBeginInput - DW Near Ptr LSSusLoopEndInput - DW Near Ptr LSDefaultVolumeInput ; 25 - DW Near Ptr LSGlobalVolumeInput ; 26 - DW Near Ptr LSVibratoSpeedInput ; 27 - DW Near Ptr LSVibratoDepthInput ; 28 - DW Near Ptr LSVibratoRateInput ; 29 - DW Near Ptr SetHelpContext6 + DW SampleNameLoader + DW LoadSampleKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW ViewSampleHeader ; 2 + DW FillHeader ; 3 + DW LoadSampleBox + DW DriveSampleBox + DW LSInfoBox + DW LSInfoText + DW LSWaveFormBox + DW LSParametersBox + DW LSParametersText ; 10 + DW LSParametersVolBox ; 11 + DW LSParametersVibBox + DW LSFileInfoBox + DW LSFileInfoText + DW ViewSampleWindow ; 15 + DW LSDriveWindow ; 16 + DW LSFileNameInput ; 17 + DW LSSpeedInput + DW LSLoopToggle ; 19 + DW LSLoopBeginInput + DW LSLoopEndInput + DW LSSusLoopToggle ; 22 + DW LSSusLoopBeginInput + DW LSSusLoopEndInput + DW LSDefaultVolumeInput ; 25 + DW LSGlobalVolumeInput ; 26 + DW LSVibratoSpeedInput ; 27 + DW LSVibratoDepthInput ; 28 + DW LSVibratoRateInput ; 29 + DW SetHelpContext6 DW 0 @@ -1206,242 +1204,242 @@ LSDriveWindow DW 15 DD DWord Ptr D_LSPostDriveWindow O1_SampleList DW 28 - DW Near Ptr IdleFunctionList - DW Near Ptr SampleGlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr SampleListHeader - DW Near Ptr SampleListBox - DW Near Ptr InstDVBox - DW Near Ptr InstDVText - DW Near Ptr InstDVTBBox - DW Near Ptr InstDVTB ; 7 - DW Near Ptr InstGVBox - DW Near Ptr InstGVText - DW Near Ptr InstGVTBBox - DW Near Ptr InstGVTB ; 11 - DW Near Ptr InstVSBox - DW Near Ptr InstVSText - DW Near Ptr InstVSTBBox - DW Near Ptr InstVSTB ; 15 - DW Near Ptr InstVDBox - DW Near Ptr InstVDText - DW Near Ptr InstVDTBBox - DW Near Ptr InstVDTB ; 19 - DW Near Ptr InstVRBox - DW Near Ptr InstVRText - DW Near Ptr InstVRTBBox - DW Near Ptr InstVRTB ; 23 - DW Near Ptr InstVWBox - DW Near Ptr InstVWText - DW Near Ptr InstParamBox - DW Near Ptr InstParamText - DW Near Ptr SampleList ; 28 - DW Near Ptr InstFileName ; 29 - DW Near Ptr InstSpeed - DW Near Ptr InstLoopToggle - DW Near Ptr InstLoopBegin - DW Near Ptr InstLoopEnd - DW Near Ptr InstSusLoopToggle - DW Near Ptr InstSusLoopBegin - DW Near Ptr InstSusLoopEnd ;36 - DW Near Ptr InstVibSine ; 37 - DW Near Ptr InstVibRamp ; 38 - DW Near Ptr InstVibSquare ; 39 - DW Near Ptr InstVibRandom ; 40 - DW Near Ptr InstWaveFormBox ; 41 - DW Near Ptr InstWaveFormText ; 42 - DW Near Ptr InstDPBox ; 43 - DW Near Ptr InstDPText - DW Near Ptr InstDPTBBox - DW Near Ptr InstDPToggle ; 46 - DW Near Ptr InstDPTB ; 47 - DW Near Ptr InstFillInfo - DW Near Ptr FillHeader - DW Near Ptr SetHelpContext2 + DW IdleFunctionList + DW SampleGlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW SampleListHeader + DW SampleListBox + DW InstDVBox + DW InstDVText + DW InstDVTBBox + DW InstDVTB ; 7 + DW InstGVBox + DW InstGVText + DW InstGVTBBox + DW InstGVTB ; 11 + DW InstVSBox + DW InstVSText + DW InstVSTBBox + DW InstVSTB ; 15 + DW InstVDBox + DW InstVDText + DW InstVDTBBox + DW InstVDTB ; 19 + DW InstVRBox + DW InstVRText + DW InstVRTBBox + DW InstVRTB ; 23 + DW InstVWBox + DW InstVWText + DW InstParamBox + DW InstParamText + DW SampleList ; 28 + DW InstFileName ; 29 + DW InstSpeed + DW InstLoopToggle + DW InstLoopBegin + DW InstLoopEnd + DW InstSusLoopToggle + DW InstSusLoopBegin + DW InstSusLoopEnd ;36 + DW InstVibSine ; 37 + DW InstVibRamp ; 38 + DW InstVibSquare ; 39 + DW InstVibRandom ; 40 + DW InstWaveFormBox ; 41 + DW InstWaveFormText ; 42 + DW InstDPBox ; 43 + DW InstDPText + DW InstDPTBBox + DW InstDPToggle ; 46 + DW InstDPTB ; 47 + DW InstFillInfo + DW FillHeader + DW SetHelpContext2 DW 0 O1_LoadModuleList DW 12 - DW Near Ptr SongNameModuleLoader - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr LoadModuleText - DW Near Ptr FileBox - DW Near Ptr DirBox ; 5 - DW Near Ptr DriveBox - DW Near Ptr SearchBox - DW Near Ptr FileInfoBox - DW Near Ptr FileNameBox - DW Near Ptr SearchText ; 10 - DW Near Ptr FileText - DW Near Ptr FileWindow ; 12 - DW Near Ptr DirectoryWindow - DW Near Ptr DriveWindow - DW Near Ptr FileNamePrompt ; 15 - DW Near Ptr SongDirectoryPrompt - DW Near Ptr SetHelpContext3 + DW SongNameModuleLoader + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW LoadModuleText + DW FileBox + DW DirBox ; 5 + DW DriveBox + DW SearchBox + DW FileInfoBox + DW FileNameBox + DW SearchText ; 10 + DW FileText + DW FileWindow ; 12 + DW DirectoryWindow + DW DriveWindow + DW FileNamePrompt ; 15 + DW SongDirectoryPrompt + DW SetHelpContext3 DW 0 O1_SaveModuleList DW 15 - DW Near Ptr SongNameModuleLoader - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr SaveModuleText - DW Near Ptr FileBox - DW Near Ptr DirBox ; 5 - DW Near Ptr DriveBox - DW Near Ptr SearchBox - DW Near Ptr FileInfoBox - DW Near Ptr FileNameBox - DW Near Ptr SearchText ; 10 - DW Near Ptr FileText - DW Near Ptr FileSaveWindow ; 12 - DW Near Ptr DirectoryWindow - DW Near Ptr SaveDriveWindow - DW Near Ptr FileNameSavePrompt ; 15 - DW Near Ptr SongDirectoryPrompt - DW Near Ptr ITFormatButton ; 17 - DW Near Ptr S3MFormatButton ; 18 - DW Near Ptr OldITFormatButton ; 19 -IF DDCOMPRESS - DW Near Ptr IT215FormatButton ; 20 -ENDIF + DW SongNameModuleLoader + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW SaveModuleText + DW FileBox + DW DirBox ; 5 + DW DriveBox + DW SearchBox + DW FileInfoBox + DW FileNameBox + DW SearchText ; 10 + DW FileText + DW FileSaveWindow ; 12 + DW DirectoryWindow + DW SaveDriveWindow + DW FileNameSavePrompt ; 15 + DW SongDirectoryPrompt + DW ITFormatButton ; 17 + DW S3MFormatButton ; 18 + DW OldITFormatButton ; 19 +%IF DDCOMPRESS + DW IT215FormatButton ; 20 +%ENDIF DW 0 -IF NETWORKENABLED +%IF NETWORKENABLED O1_LoadNetworkDriver DW 6 - DW Near Ptr IdleFunctionList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr SaveModuleText - DW Near Ptr LoadNetworkText - DW Near Ptr LoadNetworkBox - DW Near Ptr LoadNetworkFunctions + DW IdleFunctionList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW SaveModuleText + DW LoadNetworkText + DW LoadNetworkBox + DW LoadNetworkFunctions DW 0 -ENDIF +%ENDIF O1_SaveITList DW 7 - DW Near Ptr IdleFunctionGotoEmpty - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr SaveModuleText - DW Near Ptr LoadBox - DW Near Ptr SaveITModuleText - DW Near Ptr DirectScreen ; 6 - DW Near Ptr SaveIT ; 7 + DW IdleFunctionGotoEmpty + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW SaveModuleText + DW LoadBox + DW SaveITModuleText + DW DirectScreen ; 6 + DW SaveIT ; 7 DW 0 O1_SaveS3MList DW 7 - DW Near Ptr IdleFunctionGotoEmpty - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr SaveModuleText - DW Near Ptr LoadBox - DW Near Ptr SaveS3MModuleText - DW Near Ptr DirectScreen ; 6 - DW Near Ptr SaveS3M ; 7 + DW IdleFunctionGotoEmpty + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW SaveModuleText + DW LoadBox + DW SaveS3MModuleText + DW DirectScreen ; 6 + DW SaveS3M ; 7 DW 0 -IF TUTORIAL -ELSE +%IF TUTORIAL +%ELSE O1_LoadS3MList DW 7 - DW Near Ptr IdleFunctionGotoEmpty - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr LoadModuleText - DW Near Ptr LoadBox - DW Near Ptr LoadS3MModuleText - DW Near Ptr DirectScreen ; 6 - DW Near Ptr LoadS3M ; 7 + DW IdleFunctionGotoEmpty + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW LoadModuleText + DW LoadBox + DW LoadS3MModuleText + DW DirectScreen ; 6 + DW LoadS3M ; 7 DW 0 O1_LoadXMList DW 7 - DW Near Ptr IdleFunctionGotoEmpty - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr LoadModuleText - DW Near Ptr LoadBox - DW Near Ptr LoadXMModuleText - DW Near Ptr DirectScreen ; 6 - DW Near Ptr LoadXM ; 7 + DW IdleFunctionGotoEmpty + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW LoadModuleText + DW LoadBox + DW LoadXMModuleText + DW DirectScreen ; 6 + DW LoadXM ; 7 DW 0 O1_LoadMTMList DW 7 - DW Near Ptr IdleFunctionGotoEmpty - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr LoadModuleText - DW Near Ptr LoadBox - DW Near Ptr LoadMTMModuleText - DW Near Ptr DirectScreen ; 6 - DW Near Ptr LoadMTM ; 7 + DW IdleFunctionGotoEmpty + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW LoadModuleText + DW LoadBox + DW LoadMTMModuleText + DW DirectScreen ; 6 + DW LoadMTM ; 7 DW 0 O1_LoadMODList DW 7 - DW Near Ptr IdleFunctionGotoEmpty - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr LoadModuleText - DW Near Ptr LoadBox - DW Near Ptr LoadMODModuleText - DW Near Ptr DirectScreen ; 6 - DW Near Ptr LoadMOD ; 7 + DW IdleFunctionGotoEmpty + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW LoadModuleText + DW LoadBox + DW LoadMODModuleText + DW DirectScreen ; 6 + DW LoadMOD ; 7 DW 0 O1_Load669List DW 7 - DW Near Ptr IdleFunctionGotoEmpty - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr LoadModuleText - DW Near Ptr LoadBox - DW Near Ptr Load669ModuleText - DW Near Ptr DirectScreen ; 6 - DW Near Ptr Load669 ; 7 + DW IdleFunctionGotoEmpty + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW LoadModuleText + DW LoadBox + DW Load669ModuleText + DW DirectScreen ; 6 + DW Load669 ; 7 DW 0 O1_LoadITList DW 7 - DW Near Ptr IdleFunctionGotoEmpty - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr LoadModuleText - DW Near Ptr LoadBox - DW Near Ptr LoadITModuleText - DW Near Ptr DirectScreen ; 6 - DW Near Ptr LoadIT ; 7 + DW IdleFunctionGotoEmpty + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW LoadModuleText + DW LoadBox + DW LoadITModuleText + DW DirectScreen ; 6 + DW LoadIT ; 7 DW 0 -ENDIF +%ENDIF O1_EmptyList DW 0 - DW Near Ptr IdleFunctionList - DW Near Ptr GlobalKeyList - DW Near Ptr InDirectScreen ; 0 - DW Near Ptr FullScreenBox ; 1 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr NoText + DW IdleFunctionList + DW GlobalKeyList + DW InDirectScreen ; 0 + DW FullScreenBox ; 1 + DW ScreenHeader + DW FillHeader + DW NoText DW 0 ITFormatButton DW 2 @@ -1470,7 +1468,7 @@ S3MFormatButton DW 2 DB 0 DB " S3M", 0 -IF DDCOMPRESS +%IF DDCOMPRESS OldITFormatButton DW 2 DW 18, 20, 14, 15 @@ -1499,7 +1497,7 @@ IT215FormatButton DW 2 DB " IT215", 0 -ELSE +%ELSE OldITFormatButton DW 2 DW 18, 15, 14, 15 @@ -1513,7 +1511,7 @@ OldITFormatButton DW 2 DB 8 DB 0 DB " IT2xx", 0 -ENDIF +%ENDIF NoText DW 10 @@ -1574,8 +1572,8 @@ LoadITModuleText DW 1 IdleFunctionGotoEmpty DD DWord Ptr F_GotoEmptyList DD 0 -IF TUTORIAL -ELSE +%IF TUTORIAL +%ELSE LoadMOD DW 15 DD DWord Ptr F_Return0 @@ -1607,7 +1605,7 @@ LoadIT DW 15 DD DWord Ptr D_LoadIT DD DWord Ptr F_GotoEmptyList -ENDIF +%ENDIF SaveIT DW 15 DD DWord Ptr F_Return0 @@ -1622,7 +1620,7 @@ SaveS3M DW 15 FileNamePrompt DW 16 DB 13, 46 DW 0 ; Disk segment - DW Offset FileSpecifier + DW FileSpecifier DW 64 ; Length DD D_NewSpecifier DW 12, 16, 16, 14 @@ -1630,7 +1628,7 @@ FileNamePrompt DW 16 FileNameSavePrompt DW 16 DB 13, 46 DW 0 ; Disk segment - DW Offset FileSpecifier + DW FileSpecifier DW 64 ; Length DD D_SaveModule DW 12, 16, 16, 14 @@ -1638,7 +1636,7 @@ FileNameSavePrompt DW 16 SongDirectoryPrompt DW 16 DB 13, 47 DW 0 - DW Offset SongDirectory + DW SongDirectory DW 64 DD D_NewDirectory DW 15, 12, 12, 15 @@ -1673,7 +1671,7 @@ SaveDriveWindow DW 15 DD DWord Ptr D_PreDriveWindow DD DWord Ptr D_PostSaveDriveWindow -IF NETWORKENABLED +%IF NETWORKENABLED LoadNetworkText DW 10 DB "Load Network Driver", 0 @@ -1686,7 +1684,7 @@ LoadNetworkFunctions DW 15 DD DWord Ptr Network_PreDriverScreen DD DWord Ptr Network_PostDriverScreen -ENDIF +%ENDIF LoadModuleText DW 10 DB "Load Module (F9)", 0 @@ -2106,7 +2104,7 @@ TemplateErrorText DW 1 DB " of the clipboard on which to", 13 DB 0FFh, 7, " base translations.", 0 -IF NETWORKENABLED +%IF NETWORKENABLED NetworkErrorText DW 1 DB 23, 25 DB 20h @@ -2114,7 +2112,7 @@ NetworkErrorText DW 1 DB "This function is not available in", 13 DB " multi-composer mode. Disconnect", 13 DB " from network mode to enable.", 0 -ENDIF +%ENDIF CrashRecoveryBox DW 0 DB 20, 19, 60, 30 @@ -2129,7 +2127,7 @@ CrashRecoveryText DW 1 DB "computer and rerun Impulse Tracker as", 13 DB " the system is likely to be unstable", 0 -IF SHOWPATTERNLENGTH +%IF SHOWPATTERNLENGTH PatternLengthText DW 1 DB 27, 27 @@ -2137,7 +2135,7 @@ PatternLengthText DW 1 DB "Pattern is ", 0FDh, 'D', " bytes long", 0 PatternLength DW 0 -ENDIF +%ENDIF C5FrequencyText DW 8 DD DWord Ptr I_PrintC5Frequency @@ -2188,28 +2186,28 @@ SampleAmpTBBox DW 0 AmpTB DW 9 DB 26, 30 DW 0, 200 - DW 1, Offset Amplification + DW 1, Amplification DW 4, 4, 4, 4 DW 0FFFFh, 0FFFFh InstrumentAmpTB DW 9 DB 26, 30 DW 0, 200 - DW 8, Offset InstrumentAmplification + DW 8, InstrumentAmplification DW 4, 4, 4, 4 DW 0FFFFh, 0FFFFh FastAmpTB DW 9 DB 33, 30 DW 10, 90 - DW 1, Offset FastVolumeAmplification + DW 1, FastVolumeAmplification DW 4, 4, 4, 4 DW 0FFFFh, 0FFFFh SampleAmpTB DW 9 DB 13, 30 DW 0, 400 - DW 8, Offset SampleAmplification + DW 8, SampleAmplification DW 4, 4, 4, 4 DW 0FFFFh, 0FFFFh @@ -2437,35 +2435,35 @@ PEConfigDoneButton DW 2 PETBBaseOctave DW 9 DB 40, 23 DW 0, 8 - DW 1, Offset BaseOctave + DW 1, BaseOctave DW 13, 15, 15, 13 DW 0FFFFh, 0FFFFh PETBSkipValue DW 9 DB 40, 26 DW 0, 16 - DW 1, Offset SkipValue + DW 1, SkipValue DW 14, 16, 16, 14 DW 0FFFFh, 0FFFFh PETBRHLMinor DW 9 DB 40, 29 DW 0, 32 - DW 1, Offset RowHiLight1 + DW 1, RowHiLight1 DW 15, 17, 17, 15 DW 0FFFFh, 0FFFFh PETBRHLMajor DW 9 DB 40, 32 DW 0, 128 - DW 1, Offset RowHiLight2 + DW 1, RowHiLight2 DW 16, 18, 18, 16 DW 0FFFFh, 0FFFFh PETBMaxRow DW 9 DB 40, 35 DW 32, 200 - DW 1, Offset NumberOfRows + DW 1, NumberOfRows DW 17, 19, 19, 17 DW 0FFFFh, 0FFFFh @@ -2498,7 +2496,7 @@ HelpKeyList DB 0 DD DWord Ptr H_HelpESC DB 5 - DW Offset GlobalKeyChain + DW GlobalKeyChain ShowHelp DW 8 DD DWord Ptr H_DrawHelp @@ -3060,7 +3058,7 @@ ViewSampleKeyList Label DD DWord Ptr D_SlowSampleSort DB 5 ; Chain to... - DW Offset GlobalKeyList + DW GlobalKeyList LoadInstrumentKeyList DB 0 @@ -3072,7 +3070,7 @@ LoadInstrumentKeyList DB 0 DD DWord Ptr D_SlowInstrumentSort DB 5 - DW Offset GlobalKeyList + DW GlobalKeyList GlobalKeyList DB 0 ; F1 HelpKeyValue DW 13Bh @@ -3187,11 +3185,11 @@ OrderKeyValue DW 157h DW 16 ; Ctrl 'P' DD DWord Ptr Music_TimeSong -IF MEMORYDEBUG +%IF MEMORYDEBUG DB 0 DW 15B7h ; Right shift+Ctrl+Printscreen DD DWord Ptr Glbl_Debug -ENDIF +%ENDIF DB 2 ; Alt.. DW 13Bh ; F1 @@ -3229,11 +3227,11 @@ ENDIF DW 157h ; F11 DD DWord Ptr Music_ToggleOrderUpdate -IF NETWORKENABLED +%IF NETWORKENABLED DB 6 ; Shift DW 101h ; ESC DD DWord Ptr Network_DriverScreen -ENDIF +%ENDIF DB 6 ; Shift F1 DW 13Bh @@ -3243,17 +3241,17 @@ ENDIF DW 13Fh DD DWord Ptr Glbl_DriverScreen -IF TIMERSCREEN +%IF TIMERSCREEN DB 0 ; Left shift, left+right alt DW 73C6h ; Right ctrl + Pause DD DWord Ptr Glbl_TimerScreen -ENDIF +%ENDIF -IF EMSDEBUG +%IF EMSDEBUG DB 0 ; Left shift, Left alt, right alt DW 6329h ; + ~ DD DWord Ptr E_DumpEMSMemory -ENDIF +%ENDIF PlayCommandChain: DB 3 ; Ctrl... @@ -3332,14 +3330,14 @@ ESCExitList DB 0 ; ESC DD DWord Ptr F_Return0 DB 5 - DW Near Ptr ChainMIDICommands + DW ChainMIDICommands SampleGlobalKeyList Label -IF ENABLESOLO +%IF ENABLESOLO DB 1 DW '`' DD DWord Ptr Music_ToggleSoloSample -ENDIF +%ENDIF DB 0 DW 1C9h @@ -3471,7 +3469,7 @@ ENDIF DD DWord Ptr Glbl_LoadSample DB 5 - DW Offset GlobalKeyList + DW GlobalKeyList ScreenBox DW 0 ; Object type 0 DB 0, 0, 79, 49 ; Coordinates @@ -3629,185 +3627,185 @@ LogoCharacter DW 256 ; First char to define DB 192, 0, 0, 0, 0, 0, 0, 0 ; 107 O1_ConfirmConvertList DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmConvertSampleText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmConvertSampleText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmConvert2List DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmConvertSampleText - DW Near Ptr ConfirmConvertYesButton - DW Near Ptr ConfirmConvertNoButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmConvertSampleText + DW ConfirmConvertYesButton + DW ConfirmConvertNoButton DW 0 O1_SampleCenterList DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmCenterSampleText - DW Near Ptr ConfirmConvertYesButton - DW Near Ptr ConfirmConvertNoButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmCenterSampleText + DW ConfirmConvertYesButton + DW ConfirmConvertNoButton DW 0 O1_EnableInstrumentMode DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr EnableInstrumentModeText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW EnableInstrumentModeText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_InitInstrument DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr InitInstrumentText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmInitialiseNoButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW InitInstrumentText + DW ConfirmOverWriteOKButton + DW ConfirmInitialiseNoButton DW 0 O1_ConfirmOverWriteList DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmOverWriteText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmOverWriteText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_InitialiseInstrumentList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmInitialiseText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmInitialiseNoButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmInitialiseText + DW ConfirmOverWriteOKButton + DW ConfirmInitialiseNoButton DW 0 O1_ConfirmDelete DW 4 - DW Near Ptr SongNameModuleLoader - DW Near Ptr OKCancelList - DW Near Ptr DrawFileNameWindow - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmDeleteText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW SongNameModuleLoader + DW OKCancelList + DW DrawFileNameWindow + DW ConfirmOverWriteBox + DW ConfirmDeleteText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmDelete2 DW 4 - DW Near Ptr SampleNameLoader - DW Near Ptr OKCancelList - DW Near Ptr DrawLoadSampleWindow - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmDeleteText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW SampleNameLoader + DW OKCancelList + DW DrawLoadSampleWindow + DW ConfirmOverWriteBox + DW ConfirmDeleteText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmDelete3 DW 4 - DW Near Ptr InstrumentNameLoader - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmDeleteText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW InstrumentNameLoader + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmDeleteText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmSaveRenameList DW 3 - DW Near Ptr SampleNameLoader - DW Near Ptr OKCancelList - DW Near Ptr DrawLoadSampleWindow - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmSaveRenameText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW SampleNameLoader + DW OKCancelList + DW DrawLoadSampleWindow + DW ConfirmOverWriteBox + DW ConfirmSaveRenameText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmResaveList DW 3 - DW Near Ptr SampleNameLoader - DW Near Ptr OKCancelList - DW Near Ptr DrawLoadSampleWindow - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmResaveText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW SampleNameLoader + DW OKCancelList + DW DrawLoadSampleWindow + DW ConfirmOverWriteBox + DW ConfirmResaveText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmDiscardList DW 3 - DW Near Ptr SampleNameLoader - DW Near Ptr OKCancelList - DW Near Ptr DrawLoadSampleWindow - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmDiscardText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW SampleNameLoader + DW OKCancelList + DW DrawLoadSampleWindow + DW ConfirmOverWriteBox + DW ConfirmDiscardText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmCutSample DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmCutSampleText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmCutSampleText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmDeleteSample DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmDeleteSampleText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmDeleteSampleText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmDeleteInstrument DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmDeleteInstrumentText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmDeleteInstrumentText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmClearMessage DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmClearMessageText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmClearMessageText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_ConfirmNoSave DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmNoSaveBox - DW Near Ptr ConfirmNoSaveMessage - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmNoSaveBox + DW ConfirmNoSaveMessage + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 EmptyObject DW 8 @@ -3972,10 +3970,10 @@ ConfirmInitialiseNoButton DW 2 O1_UnableToSaveList DW 2 DW 0 - DW Near Ptr ESCReturnList - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr UnableToSaveText - DW Near Ptr NoSaveOKButton + DW ESCReturnList + DW ConfirmOverWriteBox + DW UnableToSaveText + DW NoSaveOKButton DW 0 UnableToSaveText DW 1 @@ -3996,90 +3994,90 @@ NoSaveOKButton DW 2 DB " OK", 0 O1_ConfirmQuit DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr EmptyObject - DW Near Ptr ConfirmOverWriteBox - DW Near Ptr ConfirmQuitText - DW Near Ptr ConfirmOverWriteOKButton - DW Near Ptr ConfirmOverWriteCancelButton + DW IdleFunctionList + DW OKCancelList + DW EmptyObject + DW ConfirmOverWriteBox + DW ConfirmQuitText + DW ConfirmOverWriteOKButton + DW ConfirmOverWriteCancelButton DW 0 O1_SelectMultiChannel DW 7 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr SMCBox ; 0 - DW Near Ptr SMCText ; 1 - DW Near Ptr SMCInBox1 ; 2 - DW Near Ptr SMCInBox2 ; 3 - DW Near Ptr SMCInBox3 ; 4 - DW Near Ptr SMCInBox4 ; 5 - DW Near Ptr SMCDrawChannel ; 6 - DW Near Ptr SMCChannel00Toggle ; 7 - DW Near Ptr SMCChannel01Toggle - DW Near Ptr SMCChannel02Toggle - DW Near Ptr SMCChannel03Toggle - DW Near Ptr SMCChannel04Toggle - DW Near Ptr SMCChannel05Toggle - DW Near Ptr SMCChannel06Toggle - DW Near Ptr SMCChannel07Toggle - DW Near Ptr SMCChannel08Toggle - DW Near Ptr SMCChannel09Toggle - DW Near Ptr SMCChannel10Toggle - DW Near Ptr SMCChannel11Toggle - DW Near Ptr SMCChannel12Toggle - DW Near Ptr SMCChannel13Toggle - DW Near Ptr SMCChannel14Toggle - DW Near Ptr SMCChannel15Toggle - DW Near Ptr SMCChannel16Toggle - DW Near Ptr SMCChannel17Toggle - DW Near Ptr SMCChannel18Toggle - DW Near Ptr SMCChannel19Toggle - DW Near Ptr SMCChannel20Toggle - DW Near Ptr SMCChannel21Toggle - DW Near Ptr SMCChannel22Toggle - DW Near Ptr SMCChannel23Toggle - DW Near Ptr SMCChannel24Toggle - DW Near Ptr SMCChannel25Toggle - DW Near Ptr SMCChannel26Toggle - DW Near Ptr SMCChannel27Toggle - DW Near Ptr SMCChannel28Toggle - DW Near Ptr SMCChannel29Toggle - DW Near Ptr SMCChannel30Toggle - DW Near Ptr SMCChannel31Toggle - DW Near Ptr SMCChannel32Toggle - DW Near Ptr SMCChannel33Toggle - DW Near Ptr SMCChannel34Toggle - DW Near Ptr SMCChannel35Toggle - DW Near Ptr SMCChannel36Toggle - DW Near Ptr SMCChannel37Toggle - DW Near Ptr SMCChannel38Toggle - DW Near Ptr SMCChannel39Toggle - DW Near Ptr SMCChannel40Toggle - DW Near Ptr SMCChannel41Toggle - DW Near Ptr SMCChannel42Toggle - DW Near Ptr SMCChannel43Toggle - DW Near Ptr SMCChannel44Toggle - DW Near Ptr SMCChannel45Toggle - DW Near Ptr SMCChannel46Toggle - DW Near Ptr SMCChannel47Toggle - DW Near Ptr SMCChannel48Toggle - DW Near Ptr SMCChannel49Toggle - DW Near Ptr SMCChannel50Toggle - DW Near Ptr SMCChannel51Toggle - DW Near Ptr SMCChannel52Toggle - DW Near Ptr SMCChannel53Toggle - DW Near Ptr SMCChannel54Toggle - DW Near Ptr SMCChannel55Toggle - DW Near Ptr SMCChannel56Toggle - DW Near Ptr SMCChannel57Toggle - DW Near Ptr SMCChannel58Toggle - DW Near Ptr SMCChannel59Toggle - DW Near Ptr SMCChannel60Toggle - DW Near Ptr SMCChannel61Toggle - DW Near Ptr SMCChannel62Toggle - DW Near Ptr SMCChannel63Toggle ; 70 - DW Near Ptr SMCOKButton ; 71 + DW IdleFunctionList + DW ESCReturnList + DW SMCBox ; 0 + DW SMCText ; 1 + DW SMCInBox1 ; 2 + DW SMCInBox2 ; 3 + DW SMCInBox3 ; 4 + DW SMCInBox4 ; 5 + DW SMCDrawChannel ; 6 + DW SMCChannel00Toggle ; 7 + DW SMCChannel01Toggle + DW SMCChannel02Toggle + DW SMCChannel03Toggle + DW SMCChannel04Toggle + DW SMCChannel05Toggle + DW SMCChannel06Toggle + DW SMCChannel07Toggle + DW SMCChannel08Toggle + DW SMCChannel09Toggle + DW SMCChannel10Toggle + DW SMCChannel11Toggle + DW SMCChannel12Toggle + DW SMCChannel13Toggle + DW SMCChannel14Toggle + DW SMCChannel15Toggle + DW SMCChannel16Toggle + DW SMCChannel17Toggle + DW SMCChannel18Toggle + DW SMCChannel19Toggle + DW SMCChannel20Toggle + DW SMCChannel21Toggle + DW SMCChannel22Toggle + DW SMCChannel23Toggle + DW SMCChannel24Toggle + DW SMCChannel25Toggle + DW SMCChannel26Toggle + DW SMCChannel27Toggle + DW SMCChannel28Toggle + DW SMCChannel29Toggle + DW SMCChannel30Toggle + DW SMCChannel31Toggle + DW SMCChannel32Toggle + DW SMCChannel33Toggle + DW SMCChannel34Toggle + DW SMCChannel35Toggle + DW SMCChannel36Toggle + DW SMCChannel37Toggle + DW SMCChannel38Toggle + DW SMCChannel39Toggle + DW SMCChannel40Toggle + DW SMCChannel41Toggle + DW SMCChannel42Toggle + DW SMCChannel43Toggle + DW SMCChannel44Toggle + DW SMCChannel45Toggle + DW SMCChannel46Toggle + DW SMCChannel47Toggle + DW SMCChannel48Toggle + DW SMCChannel49Toggle + DW SMCChannel50Toggle + DW SMCChannel51Toggle + DW SMCChannel52Toggle + DW SMCChannel53Toggle + DW SMCChannel54Toggle + DW SMCChannel55Toggle + DW SMCChannel56Toggle + DW SMCChannel57Toggle + DW SMCChannel58Toggle + DW SMCChannel59Toggle + DW SMCChannel60Toggle + DW SMCChannel61Toggle + DW SMCChannel62Toggle + DW SMCChannel63Toggle ; 70 + DW SMCOKButton ; 71 DW 0 SMCBox DW 0 @@ -4113,448 +4111,448 @@ SMCDrawChannel DW 8 SMCChannel00Toggle DW 17 DB 20, 22 DW 1 - DW Offset MultiChannelInfo+00 + DW MultiChannelInfo+00 DB 1 DW 71, 8, 23, 55 SMCChannel01Toggle DW 17 DB 20, 23 DW 1 - DW Offset MultiChannelInfo+01 + DW MultiChannelInfo+01 DB 1 DW 7, 9, 24, 56 SMCChannel02Toggle DW 17 DB 20, 24 DW 1 - DW Offset MultiChannelInfo+02 + DW MultiChannelInfo+02 DB 1 DW 8, 10, 25, 57 SMCChannel03Toggle DW 17 DB 20, 25 DW 1 - DW Offset MultiChannelInfo+03 + DW MultiChannelInfo+03 DB 1 DW 9, 11, 26, 58 SMCChannel04Toggle DW 17 DB 20, 26 DW 1 - DW Offset MultiChannelInfo+04 + DW MultiChannelInfo+04 DB 1 DW 10, 12, 27, 59 SMCChannel05Toggle DW 17 DB 20, 27 DW 1 - DW Offset MultiChannelInfo+05 + DW MultiChannelInfo+05 DB 1 DW 11, 13, 28, 60 SMCChannel06Toggle DW 17 DB 20, 28 DW 1 - DW Offset MultiChannelInfo+06 + DW MultiChannelInfo+06 DB 1 DW 12, 14, 29, 61 SMCChannel07Toggle DW 17 DB 20, 29 DW 1 - DW Offset MultiChannelInfo+07 + DW MultiChannelInfo+07 DB 1 DW 13, 15, 30, 62 SMCChannel08Toggle DW 17 DB 20, 30 DW 1 - DW Offset MultiChannelInfo+08 + DW MultiChannelInfo+08 DB 1 DW 14, 16, 31, 63 SMCChannel09Toggle DW 17 DB 20, 31 DW 1 - DW Offset MultiChannelInfo+09 + DW MultiChannelInfo+09 DB 1 DW 15, 17, 32, 64 SMCChannel10Toggle DW 17 DB 20, 32 DW 1 - DW Offset MultiChannelInfo+10 + DW MultiChannelInfo+10 DB 1 DW 16, 18, 33, 65 SMCChannel11Toggle DW 17 DB 20, 33 DW 1 - DW Offset MultiChannelInfo+11 + DW MultiChannelInfo+11 DB 1 DW 17, 19, 34, 66 SMCChannel12Toggle DW 17 DB 20, 34 DW 1 - DW Offset MultiChannelInfo+12 + DW MultiChannelInfo+12 DB 1 DW 18, 20, 35, 67 SMCChannel13Toggle DW 17 DB 20, 35 DW 1 - DW Offset MultiChannelInfo+13 + DW MultiChannelInfo+13 DB 1 DW 19, 21, 36, 68 SMCChannel14Toggle DW 17 DB 20, 36 DW 1 - DW Offset MultiChannelInfo+14 + DW MultiChannelInfo+14 DB 1 DW 20, 22, 37, 69 SMCChannel15Toggle DW 17 DB 20, 37 DW 1 - DW Offset MultiChannelInfo+15 + DW MultiChannelInfo+15 DB 1 DW 21, 71, 38, 70 SMCChannel16Toggle DW 17 DB 36, 22 DW 1 - DW Offset MultiChannelInfo+16 + DW MultiChannelInfo+16 DB 1 DW 71, 24, 39, 7 SMCChannel17Toggle DW 17 DB 36, 23 DW 1 - DW Offset MultiChannelInfo+17 + DW MultiChannelInfo+17 DB 1 DW 23, 25, 40, 8 SMCChannel18Toggle DW 17 DB 36, 24 DW 1 - DW Offset MultiChannelInfo+18 + DW MultiChannelInfo+18 DB 1 DW 24, 26, 41, 9 SMCChannel19Toggle DW 17 DB 36, 25 DW 1 - DW Offset MultiChannelInfo+19 + DW MultiChannelInfo+19 DB 1 DW 25, 27, 42, 10 SMCChannel20Toggle DW 17 DB 36, 26 DW 1 - DW Offset MultiChannelInfo+20 + DW MultiChannelInfo+20 DB 1 DW 26, 28, 43, 11 SMCChannel21Toggle DW 17 DB 36, 27 DW 1 - DW Offset MultiChannelInfo+21 + DW MultiChannelInfo+21 DB 1 DW 27, 29, 44, 12 SMCChannel22Toggle DW 17 DB 36, 28 DW 1 - DW Offset MultiChannelInfo+22 + DW MultiChannelInfo+22 DB 1 DW 28, 30, 45, 13 SMCChannel23Toggle DW 17 DB 36, 29 DW 1 - DW Offset MultiChannelInfo+23 + DW MultiChannelInfo+23 DB 1 DW 29, 31, 46, 14 SMCChannel24Toggle DW 17 DB 36, 30 DW 1 - DW Offset MultiChannelInfo+24 + DW MultiChannelInfo+24 DB 1 DW 30, 32, 47, 15 SMCChannel25Toggle DW 17 DB 36, 31 DW 1 - DW Offset MultiChannelInfo+25 + DW MultiChannelInfo+25 DB 1 DW 31, 33, 48, 16 SMCChannel26Toggle DW 17 DB 36, 32 DW 1 - DW Offset MultiChannelInfo+26 + DW MultiChannelInfo+26 DB 1 DW 32, 34, 49, 17 SMCChannel27Toggle DW 17 DB 36, 33 DW 1 - DW Offset MultiChannelInfo+27 + DW MultiChannelInfo+27 DB 1 DW 33, 35, 50, 18 SMCChannel28Toggle DW 17 DB 36, 34 DW 1 - DW Offset MultiChannelInfo+28 + DW MultiChannelInfo+28 DB 1 DW 34, 36, 51, 19 SMCChannel29Toggle DW 17 DB 36, 35 DW 1 - DW Offset MultiChannelInfo+29 + DW MultiChannelInfo+29 DB 1 DW 35, 37, 52, 20 SMCChannel30Toggle DW 17 DB 36, 36 DW 1 - DW Offset MultiChannelInfo+30 + DW MultiChannelInfo+30 DB 1 DW 36, 38, 53, 21 SMCChannel31Toggle DW 17 DB 36, 37 DW 1 - DW Offset MultiChannelInfo+31 + DW MultiChannelInfo+31 DB 1 DW 37, 71, 54, 22 SMCChannel32Toggle DW 17 DB 52, 22 DW 1 - DW Offset MultiChannelInfo+32 + DW MultiChannelInfo+32 DB 1 DW 71, 40, 55, 23 SMCChannel33Toggle DW 17 DB 52, 23 DW 1 - DW Offset MultiChannelInfo+33 + DW MultiChannelInfo+33 DB 1 DW 39, 41, 56, 24 SMCChannel34Toggle DW 17 DB 52, 24 DW 1 - DW Offset MultiChannelInfo+34 + DW MultiChannelInfo+34 DB 1 DW 40, 42, 57, 25 SMCChannel35Toggle DW 17 DB 52, 25 DW 1 - DW Offset MultiChannelInfo+35 + DW MultiChannelInfo+35 DB 1 DW 41, 43, 58, 26 SMCChannel36Toggle DW 17 DB 52, 26 DW 1 - DW Offset MultiChannelInfo+36 + DW MultiChannelInfo+36 DB 1 DW 42, 44, 59, 27 SMCChannel37Toggle DW 17 DB 52, 27 DW 1 - DW Offset MultiChannelInfo+37 + DW MultiChannelInfo+37 DB 1 DW 43, 45, 60, 28 SMCChannel38Toggle DW 17 DB 52, 28 DW 1 - DW Offset MultiChannelInfo+38 + DW MultiChannelInfo+38 DB 1 DW 44, 46, 61, 29 SMCChannel39Toggle DW 17 DB 52, 29 DW 1 - DW Offset MultiChannelInfo+39 + DW MultiChannelInfo+39 DB 1 DW 45, 47, 62, 30 SMCChannel40Toggle DW 17 DB 52, 30 DW 1 - DW Offset MultiChannelInfo+40 + DW MultiChannelInfo+40 DB 1 DW 46, 48, 63, 31 SMCChannel41Toggle DW 17 DB 52, 31 DW 1 - DW Offset MultiChannelInfo+41 + DW MultiChannelInfo+41 DB 1 DW 47, 49, 64, 32 SMCChannel42Toggle DW 17 DB 52, 32 DW 1 - DW Offset MultiChannelInfo+42 + DW MultiChannelInfo+42 DB 1 DW 48, 50, 65, 33 SMCChannel43Toggle DW 17 DB 52, 33 DW 1 - DW Offset MultiChannelInfo+43 + DW MultiChannelInfo+43 DB 1 DW 49, 51, 66, 34 SMCChannel44Toggle DW 17 DB 52, 34 DW 1 - DW Offset MultiChannelInfo+44 + DW MultiChannelInfo+44 DB 1 DW 50, 52, 67, 35 SMCChannel45Toggle DW 17 DB 52, 35 DW 1 - DW Offset MultiChannelInfo+45 + DW MultiChannelInfo+45 DB 1 DW 51, 53, 68, 36 SMCChannel46Toggle DW 17 DB 52, 36 DW 1 - DW Offset MultiChannelInfo+46 + DW MultiChannelInfo+46 DB 1 DW 52, 54, 69, 37 SMCChannel47Toggle DW 17 DB 52, 37 DW 1 - DW Offset MultiChannelInfo+47 + DW MultiChannelInfo+47 DB 1 DW 53, 71, 70, 38 SMCChannel48Toggle DW 17 DB 68, 22 DW 1 - DW Offset MultiChannelInfo+48 + DW MultiChannelInfo+48 DB 1 DW 71, 56, 7, 39 SMCChannel49Toggle DW 17 DB 68, 23 DW 1 - DW Offset MultiChannelInfo+49 + DW MultiChannelInfo+49 DB 1 DW 55, 57, 8, 40 SMCChannel50Toggle DW 17 DB 68, 24 DW 1 - DW Offset MultiChannelInfo+50 + DW MultiChannelInfo+50 DB 1 DW 56, 58, 9, 41 SMCChannel51Toggle DW 17 DB 68, 25 DW 1 - DW Offset MultiChannelInfo+51 + DW MultiChannelInfo+51 DB 1 DW 57, 59, 10, 42 SMCChannel52Toggle DW 17 DB 68, 26 DW 1 - DW Offset MultiChannelInfo+52 + DW MultiChannelInfo+52 DB 1 DW 58, 60, 11, 43 SMCChannel53Toggle DW 17 DB 68, 27 DW 1 - DW Offset MultiChannelInfo+53 + DW MultiChannelInfo+53 DB 1 DW 59, 61, 12, 44 SMCChannel54Toggle DW 17 DB 68, 28 DW 1 - DW Offset MultiChannelInfo+54 + DW MultiChannelInfo+54 DB 1 DW 60, 62, 13, 45 SMCChannel55Toggle DW 17 DB 68, 29 DW 1 - DW Offset MultiChannelInfo+55 + DW MultiChannelInfo+55 DB 1 DW 61, 63, 14, 46 SMCChannel56Toggle DW 17 DB 68, 30 DW 1 - DW Offset MultiChannelInfo+56 + DW MultiChannelInfo+56 DB 1 DW 62, 64, 15, 47 SMCChannel57Toggle DW 17 DB 68, 31 DW 1 - DW Offset MultiChannelInfo+57 + DW MultiChannelInfo+57 DB 1 DW 63, 65, 16, 48 SMCChannel58Toggle DW 17 DB 68, 32 DW 1 - DW Offset MultiChannelInfo+58 + DW MultiChannelInfo+58 DB 1 DW 64, 66, 17, 49 SMCChannel59Toggle DW 17 DB 68, 33 DW 1 - DW Offset MultiChannelInfo+59 + DW MultiChannelInfo+59 DB 1 DW 65, 67, 18, 50 SMCChannel60Toggle DW 17 DB 68, 34 DW 1 - DW Offset MultiChannelInfo+60 + DW MultiChannelInfo+60 DB 1 DW 66, 68, 19, 51 SMCChannel61Toggle DW 17 DB 68, 35 DW 1 - DW Offset MultiChannelInfo+61 + DW MultiChannelInfo+61 DB 1 DW 67, 69, 20, 52 SMCChannel62Toggle DW 17 DB 68, 36 DW 1 - DW Offset MultiChannelInfo+62 + DW MultiChannelInfo+62 DB 1 DW 68, 70, 21, 53 SMCChannel63Toggle DW 17 DB 68, 37 DW 1 - DW Offset MultiChannelInfo+63 + DW MultiChannelInfo+63 DB 1 DW 69, 71, 22, 54 @@ -4571,83 +4569,83 @@ SMCOKButton DW 2 DB " OK ", 0 O1_ExchangeSampleList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr ExchangeSampleBox - DW Near Ptr ExchangeSampleText - DW Near Ptr ExchangeSampleInputBox - DW Near Ptr ExchangeSampleInput ; 3 - DW Near Ptr CancelExchangeButton ; 4 + DW IdleFunctionList + DW OKCancelList + DW ExchangeSampleBox + DW ExchangeSampleText + DW ExchangeSampleInputBox + DW ExchangeSampleInput ; 3 + DW CancelExchangeButton ; 4 DW 0 O1_ReplaceSampleList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr ExchangeSampleBox - DW Near Ptr ReplaceSampleText - DW Near Ptr ExchangeSampleInputBox - DW Near Ptr ExchangeSampleInput ; 3 - DW Near Ptr CancelExchangeButton ; 4 + DW IdleFunctionList + DW OKCancelList + DW ExchangeSampleBox + DW ReplaceSampleText + DW ExchangeSampleInputBox + DW ExchangeSampleInput ; 3 + DW CancelExchangeButton ; 4 DW 0 O1_ReplaceInstrumentList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr ExchangeSampleBox - DW Near Ptr ReplaceInstrumentText - DW Near Ptr ExchangeSampleInputBox - DW Near Ptr ExchangeSampleInput ; 3 - DW Near Ptr CancelExchangeButton ; 4 + DW IdleFunctionList + DW OKCancelList + DW ExchangeSampleBox + DW ReplaceInstrumentText + DW ExchangeSampleInputBox + DW ExchangeSampleInput ; 3 + DW CancelExchangeButton ; 4 DW 0 O1_SwapSampleList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr ExchangeSampleBox - DW Near Ptr SwapSampleText - DW Near Ptr ExchangeSampleInputBox - DW Near Ptr ExchangeSampleInput ; 3 - DW Near Ptr CancelExchangeButton ; 4 + DW IdleFunctionList + DW OKCancelList + DW ExchangeSampleBox + DW SwapSampleText + DW ExchangeSampleInputBox + DW ExchangeSampleInput ; 3 + DW CancelExchangeButton ; 4 DW 0 O1_SwapInstrumentList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr ExchangeSampleBox - DW Near Ptr SwapInstrumentText - DW Near Ptr ExchangeSampleInputBox - DW Near Ptr ExchangeSampleInput ; 3 - DW Near Ptr CancelExchangeButton ; 4 + DW IdleFunctionList + DW OKCancelList + DW ExchangeSampleBox + DW SwapInstrumentText + DW ExchangeSampleInputBox + DW ExchangeSampleInput ; 3 + DW CancelExchangeButton ; 4 DW 0 O1_CopyInstrumentList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr ExchangeSampleBox - DW Near Ptr CopyInstrumentText - DW Near Ptr ExchangeSampleInputBox - DW Near Ptr ExchangeSampleInput ; 3 - DW Near Ptr CancelExchangeButton ; 4 + DW IdleFunctionList + DW OKCancelList + DW ExchangeSampleBox + DW CopyInstrumentText + DW ExchangeSampleInputBox + DW ExchangeSampleInput ; 3 + DW CancelExchangeButton ; 4 DW 0 O1_ExchangeInstrumentList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr OKCancelList - DW Near Ptr ExchangeSampleBox - DW Near Ptr ExchangeInstrumentText - DW Near Ptr ExchangeSampleInputBox - DW Near Ptr ExchangeSampleInput ; 3 - DW Near Ptr CancelExchangeButton ; 4 + DW IdleFunctionList + DW OKCancelList + DW ExchangeSampleBox + DW ExchangeInstrumentText + DW ExchangeSampleInputBox + DW ExchangeSampleInput ; 3 + DW CancelExchangeButton ; 4 DW 0 O1_ResizeSampleList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr ESC&ReturnList - DW Near Ptr ResizeSampleBox ; 0 - DW Near Ptr ResizeSampleText ; 1 - DW Near Ptr ResizeSampleInputBox ; 2 - DW Near Ptr ResizeSampleInput ; 3 - DW Near Ptr CancelExchangeButton + DW IdleFunctionList + DW ESC&ReturnList + DW ResizeSampleBox ; 0 + DW ResizeSampleText ; 1 + DW ResizeSampleInputBox ; 2 + DW ResizeSampleInput ; 3 + DW CancelExchangeButton DW 0 ESCF2&ReturnList DB 0 @@ -4663,7 +4661,7 @@ ESC&ReturnList DB 0 DD DWord Ptr F_Return1 DB 5 - DW Near Ptr ChainMIDICommands + DW ChainMIDICommands ExchangeSampleBox DW 0 DB 26, 23, 54, 32 @@ -4694,7 +4692,7 @@ ResizeSampleInputBox DW 0 ResizeSampleInput DW 18 DB 42, 27 DW 2 - DW Offset NewSampleSize + DW NewSampleSize DD 0 DW 0FFFFh, 4, 4, 0FFFFh @@ -4747,7 +4745,7 @@ ExchangeSampleInputBox DW 0 ExchangeSampleInput DW 16 DB 42, 27 DW 2 - DW Offset SampleNumberInput + DW SampleNumberInput DW 3 DD DWord Ptr F_Return1 DW 0FFFFh, 4, 4, 0FFFFh @@ -4766,84 +4764,84 @@ CancelExchangeButton DW 2 O1_OrderVolumeList DW 10 - DW Near Ptr IdleFunctionList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr FillHeader ; 2 - DW Near Ptr OrderandVolumeMsg ; 3 - DW Near Ptr OrderBox ; 4 - DW Near Ptr PanBox1 ; 5 - DW Near Ptr PanBox2 ; 6 - DW Near Ptr ShowChannelMsgs ; 7 - DW Near Ptr VolumeText1 ; 8 - DW Near Ptr VolumeText2 ; 9 - DW Near Ptr OrderList ; 10 - DW Near Ptr ChannelVol1 ; 11 - DW Near Ptr ChannelVol2 ; 12 - DW Near Ptr ChannelVol3 ; 13 - DW Near Ptr ChannelVol4 ; 14 - DW Near Ptr ChannelVol5 ; 15 - DW Near Ptr ChannelVol6 ; 16 - DW Near Ptr ChannelVol7 ; 17 - DW Near Ptr ChannelVol8 ; 18 - DW Near Ptr ChannelVol9 ; 19 - DW Near Ptr ChannelVol10 ; 20 - DW Near Ptr ChannelVol11 ; 21 - DW Near Ptr ChannelVol12 ; 22 - DW Near Ptr ChannelVol13 ; 23 - DW Near Ptr ChannelVol14 ; 24 - DW Near Ptr ChannelVol15 ; 25 - DW Near Ptr ChannelVol16 ; 26 - DW Near Ptr ChannelVol17 - DW Near Ptr ChannelVol18 - DW Near Ptr ChannelVol19 - DW Near Ptr ChannelVol20 - DW Near Ptr ChannelVol21 - DW Near Ptr ChannelVol22 - DW Near Ptr ChannelVol23 - DW Near Ptr ChannelVol24 - DW Near Ptr ChannelVol25 - DW Near Ptr ChannelVol26 - DW Near Ptr ChannelVol27 - DW Near Ptr ChannelVol28 - DW Near Ptr ChannelVol29 - DW Near Ptr ChannelVol30 - DW Near Ptr ChannelVol31 - DW Near Ptr ChannelVol32 - DW Near Ptr ChannelVol33 - DW Near Ptr ChannelVol34 - DW Near Ptr ChannelVol35 - DW Near Ptr ChannelVol36 - DW Near Ptr ChannelVol37 - DW Near Ptr ChannelVol38 - DW Near Ptr ChannelVol39 - DW Near Ptr ChannelVol40 - DW Near Ptr ChannelVol41 - DW Near Ptr ChannelVol42 - DW Near Ptr ChannelVol43 - DW Near Ptr ChannelVol44 - DW Near Ptr ChannelVol45 - DW Near Ptr ChannelVol46 - DW Near Ptr ChannelVol47 - DW Near Ptr ChannelVol48 - DW Near Ptr ChannelVol49 - DW Near Ptr ChannelVol50 - DW Near Ptr ChannelVol51 - DW Near Ptr ChannelVol52 - DW Near Ptr ChannelVol53 - DW Near Ptr ChannelVol54 - DW Near Ptr ChannelVol55 - DW Near Ptr ChannelVol56 - DW Near Ptr ChannelVol57 - DW Near Ptr ChannelVol58 - DW Near Ptr ChannelVol59 - DW Near Ptr ChannelVol60 - DW Near Ptr ChannelVol61 - DW Near Ptr ChannelVol62 - DW Near Ptr ChannelVol63 - DW Near Ptr ChannelVol64 ; 74 - DW Near Ptr SetHelpContext4 + DW IdleFunctionList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW FillHeader ; 2 + DW OrderandVolumeMsg ; 3 + DW OrderBox ; 4 + DW PanBox1 ; 5 + DW PanBox2 ; 6 + DW ShowChannelMsgs ; 7 + DW VolumeText1 ; 8 + DW VolumeText2 ; 9 + DW OrderList ; 10 + DW ChannelVol1 ; 11 + DW ChannelVol2 ; 12 + DW ChannelVol3 ; 13 + DW ChannelVol4 ; 14 + DW ChannelVol5 ; 15 + DW ChannelVol6 ; 16 + DW ChannelVol7 ; 17 + DW ChannelVol8 ; 18 + DW ChannelVol9 ; 19 + DW ChannelVol10 ; 20 + DW ChannelVol11 ; 21 + DW ChannelVol12 ; 22 + DW ChannelVol13 ; 23 + DW ChannelVol14 ; 24 + DW ChannelVol15 ; 25 + DW ChannelVol16 ; 26 + DW ChannelVol17 + DW ChannelVol18 + DW ChannelVol19 + DW ChannelVol20 + DW ChannelVol21 + DW ChannelVol22 + DW ChannelVol23 + DW ChannelVol24 + DW ChannelVol25 + DW ChannelVol26 + DW ChannelVol27 + DW ChannelVol28 + DW ChannelVol29 + DW ChannelVol30 + DW ChannelVol31 + DW ChannelVol32 + DW ChannelVol33 + DW ChannelVol34 + DW ChannelVol35 + DW ChannelVol36 + DW ChannelVol37 + DW ChannelVol38 + DW ChannelVol39 + DW ChannelVol40 + DW ChannelVol41 + DW ChannelVol42 + DW ChannelVol43 + DW ChannelVol44 + DW ChannelVol45 + DW ChannelVol46 + DW ChannelVol47 + DW ChannelVol48 + DW ChannelVol49 + DW ChannelVol50 + DW ChannelVol51 + DW ChannelVol52 + DW ChannelVol53 + DW ChannelVol54 + DW ChannelVol55 + DW ChannelVol56 + DW ChannelVol57 + DW ChannelVol58 + DW ChannelVol59 + DW ChannelVol60 + DW ChannelVol61 + DW ChannelVol62 + DW ChannelVol63 + DW ChannelVol64 ; 74 + DW SetHelpContext4 DW 0 ChannelVol1 DW 9 ; Object 9 @@ -5295,42 +5293,42 @@ ChannelVol64 DW 9 DW 66, 74 ; PgUp/PgDn O1_ConfigureITList DW 14 ; Song name input - DW Near Ptr IdleFunctionList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr FillHeader ; 2 - DW Near Ptr ConfigureListHeader - DW Near Ptr DivisionLine - DW Near Ptr SongVarText1 - DW Near Ptr SongNameBox - DW Near Ptr InitialSpeedBox - DW Near Ptr VolumeBox - DW Near Ptr SongVarText2 - DW Near Ptr LinkCommandGToggle ; 10 - DW Near Ptr DirectoryText1 - DW Near Ptr DirectoryText2 - DW Near Ptr DirectoryInputBox - DW Near Ptr SongNameInput ; 14 - DW Near Ptr InitialTempoInput ; 15 - DW Near Ptr InitialSpeedInput ; 16 - DW Near Ptr GlobalVolumeInput ; 17 - DW Near Ptr MixingVolumeInput ; 18 - DW Near Ptr SeparationInput ; 19 - DW Near Ptr OldEffectsModeToggle ; 20 - DW Near Ptr ConfigSetupButtons ; 21 - DW Near Ptr ControlInstrumentButton ; 22 - DW Near Ptr ControlSampleButton ; 23 - DW Near Ptr PlayBackStereoButton ; 24 - DW Near Ptr PlayBackMonoButton ; 25 - DW Near Ptr SlideLinearButton ; 26 - DW Near Ptr SlideAmigaButton ; 27 - DW Near Ptr SongDirectoryInput ; 28 - DW Near Ptr SampleDirectoryInput ; 29 - DW Near Ptr InstrumentDirectoryInput ; 30 - DW Near Ptr SaveDirectoryConfigButton ; 31 - DW Near Ptr LinkCommandGToggle ; 32 - DW Near Ptr SetHelpContext5 + DW IdleFunctionList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW FillHeader ; 2 + DW ConfigureListHeader + DW DivisionLine + DW SongVarText1 + DW SongNameBox + DW InitialSpeedBox + DW VolumeBox + DW SongVarText2 + DW LinkCommandGToggle ; 10 + DW DirectoryText1 + DW DirectoryText2 + DW DirectoryInputBox + DW SongNameInput ; 14 + DW InitialTempoInput ; 15 + DW InitialSpeedInput ; 16 + DW GlobalVolumeInput ; 17 + DW MixingVolumeInput ; 18 + DW SeparationInput ; 19 + DW OldEffectsModeToggle ; 20 + DW ConfigSetupButtons ; 21 + DW ControlInstrumentButton ; 22 + DW ControlSampleButton ; 23 + DW PlayBackStereoButton ; 24 + DW PlayBackMonoButton ; 25 + DW SlideLinearButton ; 26 + DW SlideAmigaButton ; 27 + DW SongDirectoryInput ; 28 + DW SampleDirectoryInput ; 29 + DW InstrumentDirectoryInput ; 30 + DW SaveDirectoryConfigButton ; 31 + DW LinkCommandGToggle ; 32 + DW SetHelpContext5 DW 0 ConfigureListHeader DW 10 @@ -5448,14 +5446,14 @@ SeparationInput DW 9 OldEffectsModeToggle DW 17 DB 17, 26 DW 2 - DW 2Ch ; Offset of 'Flags' + DW 2Ch ; of 'Flags' DB 16 DW 19, 10, 10, 19 LinkCommandGToggle DW 17 DB 17, 27 DW 2 - DW 2Ch ; Offset of 'Flags' + DW 2Ch ; of 'Flags' DB 32 DW 20, 22, 22, 20 @@ -5538,21 +5536,21 @@ SlideAmigaButton DW 2 SongDirectoryInput DW 16 DB 13, 42 - DW 0, Offset SongDirectory + DW 0, SongDirectory DW 65 DD 0 DW 26, 29, 29, 26 SampleDirectoryInput DW 16 DB 013, 43 - DW 0, Offset SampleDirectory + DW 0, SampleDirectory DW 65 DD 0 DW 28, 30, 30, 28 InstrumentDirectoryInput DW 16 DB 13, 44 - DW 0, Offset InstrumentDirectory + DW 0, InstrumentDirectory DW 65 DD 0 DW 29, 31, 31, 29 @@ -5570,19 +5568,19 @@ SaveDirectoryConfigButton DW 2 DB " Save all Preferences", 0 O1_KeyboardList DW 8 - DW Near Ptr IdleKeyboardFunctionList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr FillHeader ; 2 - DW Near Ptr KeyboardHeader ; 3 - DW Near Ptr KeyboardBox1 ; 4 - DW Near Ptr KeyboardBox2 ; 5 - DW Near Ptr KeyboardText1 ; 6 - DW Near Ptr KeyboardText2 ; 7 - DW Near Ptr KBClearTableButton ; 8 - DW Near Ptr KBDrawTables - DW Near Ptr SetHelpContext8 + DW IdleKeyboardFunctionList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW FillHeader ; 2 + DW KeyboardHeader ; 3 + DW KeyboardBox1 ; 4 + DW KeyboardBox2 ; 5 + DW KeyboardText1 ; 6 + DW KeyboardText2 ; 7 + DW KBClearTableButton ; 8 + DW KBDrawTables + DW SetHelpContext8 DW 0 IdleKeyboardFunctionList DD DWord Ptr IdleUpdateInfoLine @@ -5627,40 +5625,40 @@ KBClearTableButton DW 2 O1_InstrumentListGeneral DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr InstrumentGlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr InstrumentListHeader ; 2 - DW Near Ptr InstrumentNameBox ; 3 - DW Near Ptr InstrumentWindow ; 4 - DW Near Ptr GInstrumentGeneralButton ; 5 - DW Near Ptr GInstrumentVolumeButton ; 6 - DW Near Ptr GInstrumentPanningButton ; 7 - DW Near Ptr GInstrumentPitchButton ; 8 - DW Near Ptr InstrumentTranslateBox ; 9 - DW Near Ptr InstrumentNoteWindow ; 10 - DW Near Ptr InstrumentFileDivision - DW Near Ptr InstrumentDCTDivision - DW Near Ptr InstrumentGeneralNNAText - DW Near Ptr InstrumentGeneralDCTText - DW Near Ptr InstrumentGeneralFileNameText ; 15 - DW Near Ptr NNAButtonCut ; 16 - DW Near Ptr NNAButtonContinue ; 17 - DW Near Ptr NNAButtonOff ;18 - DW Near Ptr NNAButtonFade ; 19 - DW Near Ptr DCTButtonOff ; 20 - DW Near Ptr DCTButtonNote ; 21 - DW Near Ptr DCTButtonSample ; 22 - DW Near Ptr DCTButtonInstrument ; 23 - DW Near Ptr DCAButtonCut ; 24 - DW Near Ptr DCAButtonOff ; 25 - DW Near Ptr DCAButtonFade ; 26 - DW Near Ptr InstrumentFilenameBox ; 27 - DW Near Ptr InstrumentFilename ; 28 - DW Near Ptr InstrumentNNADivision - DW Near Ptr FillHeader - DW Near Ptr SetHelpContext7 + DW IdleFunctionList + DW InstrumentGlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW InstrumentListHeader ; 2 + DW InstrumentNameBox ; 3 + DW InstrumentWindow ; 4 + DW GInstrumentGeneralButton ; 5 + DW GInstrumentVolumeButton ; 6 + DW GInstrumentPanningButton ; 7 + DW GInstrumentPitchButton ; 8 + DW InstrumentTranslateBox ; 9 + DW InstrumentNoteWindow ; 10 + DW InstrumentFileDivision + DW InstrumentDCTDivision + DW InstrumentGeneralNNAText + DW InstrumentGeneralDCTText + DW InstrumentGeneralFileNameText ; 15 + DW NNAButtonCut ; 16 + DW NNAButtonContinue ; 17 + DW NNAButtonOff ;18 + DW NNAButtonFade ; 19 + DW DCTButtonOff ; 20 + DW DCTButtonNote ; 21 + DW DCTButtonSample ; 22 + DW DCTButtonInstrument ; 23 + DW DCAButtonCut ; 24 + DW DCAButtonOff ; 25 + DW DCAButtonFade ; 26 + DW InstrumentFilenameBox ; 27 + DW InstrumentFilename ; 28 + DW InstrumentNNADivision + DW FillHeader + DW SetHelpContext7 DW 0 InstrumentDCTDivision DW 1 @@ -5894,41 +5892,41 @@ GInstrumentPitchButton DW 2 O1_InstrumentListVolume DW 4 - DW Near Ptr IdleInstrumentList - DW Near Ptr InstrumentGlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr InstrumentListHeader ; 2 - DW Near Ptr InstrumentNameBox ; 3 - DW Near Ptr InstrumentWindow ; 4 - DW Near Ptr VInstrumentGeneralButton ; 5 - DW Near Ptr VInstrumentVolumeButton ; 6 - DW Near Ptr VInstrumentPanningButton ; 7 - DW Near Ptr VInstrumentPitchButton ; 8 - DW Near Ptr InstrumentEnvelopeBox ; 9 - DW Near Ptr InstrumentEnvelope ; 10 - DW Near Ptr InstrumentVEBox ; 11 - DW Near Ptr InstrumentVELBox ; 12 - DW Near Ptr InstrumentVESLBox ; 13 - DW Near Ptr InstrumentVEText ; 14 - DW Near Ptr InstrumentVELText ; 15 - DW Near Ptr InstrumentVESLText ; 16 - DW Near Ptr InstrumentVEToggle ; 17 - DW Near Ptr InstrumentVELToggle ; 18 - DW Near Ptr InstrumentVELBeg ; 19 - DW Near Ptr InstrumentVELEnd ; 20 - DW Near Ptr InstrumentVESLToggle ; 21 - DW Near Ptr InstrumentVESLBeg ; 22 - DW Near Ptr InstrumentVESLEnd ; 23 - DW Near Ptr InstrumentGlobalVolumeBox ; 24 - DW Near Ptr InstrumentGlobalVolumeText ; 25 - DW Near Ptr InstrumentVolume2 ; 26 - DW Near Ptr InstrumentFadeOut2 ; 27 - DW Near Ptr InstrumentRandomVolBox ; 28 - DW Near Ptr InstrumentRandomVolBar ; 29 - DW Near Ptr InstrumentVECToggle ; 30 - DW Near Ptr FillHeader - DW Near Ptr SetHelpContext7 + DW IdleInstrumentList + DW InstrumentGlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW InstrumentListHeader ; 2 + DW InstrumentNameBox ; 3 + DW InstrumentWindow ; 4 + DW VInstrumentGeneralButton ; 5 + DW VInstrumentVolumeButton ; 6 + DW VInstrumentPanningButton ; 7 + DW VInstrumentPitchButton ; 8 + DW InstrumentEnvelopeBox ; 9 + DW InstrumentEnvelope ; 10 + DW InstrumentVEBox ; 11 + DW InstrumentVELBox ; 12 + DW InstrumentVESLBox ; 13 + DW InstrumentVEText ; 14 + DW InstrumentVELText ; 15 + DW InstrumentVESLText ; 16 + DW InstrumentVEToggle ; 17 + DW InstrumentVELToggle ; 18 + DW InstrumentVELBeg ; 19 + DW InstrumentVELEnd ; 20 + DW InstrumentVESLToggle ; 21 + DW InstrumentVESLBeg ; 22 + DW InstrumentVESLEnd ; 23 + DW InstrumentGlobalVolumeBox ; 24 + DW InstrumentGlobalVolumeText ; 25 + DW InstrumentVolume2 ; 26 + DW InstrumentFadeOut2 ; 27 + DW InstrumentRandomVolBox ; 28 + DW InstrumentRandomVolBar ; 29 + DW InstrumentVECToggle ; 30 + DW FillHeader + DW SetHelpContext7 DW 0 InstrumentVEBox DW 0 @@ -6105,43 +6103,43 @@ VInstrumentPitchButton DW 2 DB " Pitch", 0 O1_InstrumentListPanning DW 4 - DW Near Ptr IdleInstrumentList - DW Near Ptr InstrumentGlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr InstrumentListHeader ; 2 - DW Near Ptr InstrumentNameBox ; 3 - DW Near Ptr InstrumentWindow ; 4 - DW Near Ptr VInstrumentGeneralButton ; 5 - DW Near Ptr VInstrumentVolumeButton ; 6 - DW Near Ptr VInstrumentPanningButton ; 7 - DW Near Ptr VInstrumentPitchButton ; 8 - DW Near Ptr InstrumentEnvelopeBox ; 9 - DW Near Ptr InstrumentEnvelope ; 10 - DW Near Ptr InstrumentVEBox ; 11 - DW Near Ptr InstrumentVELBox ; 12 - DW Near Ptr InstrumentVESLBox ; 13 - DW Near Ptr InstrumentPanText ; 14 - DW Near Ptr InstrumentVELText ; 15 - DW Near Ptr InstrumentVESLText ; 16 - DW Near Ptr InstrumentPanToggle ; 17 - DW Near Ptr InstrumentPanLToggle ; 18 - DW Near Ptr InstrumentPanLBeg ; 19 - DW Near Ptr InstrumentPanLEnd ; 20 - DW Near Ptr InstrumentPanSLToggle ; 21 - DW Near Ptr InstrumentPanSLBeg ; 22 - DW Near Ptr InstrumentPanSLEnd ; 23 - DW Near Ptr InstrumentDefaultPanBox ; 24 - DW Near Ptr InstrumentDefaultPanText ; 25 - DW Near Ptr InstrumentDefaultPanToggle ; 26 - DW Near Ptr InstrumentDefaultPanValue ; 27 - DW Near Ptr InstrumentPitchPanCenter ; 28 - DW Near Ptr InstrumentPitchPanSeparation ; 29 - DW Near Ptr InstrumentPanSwing ; 30 - DW Near Ptr InstrumentPanBoxFiller - DW Near Ptr InstrumentPanCToggle ; 32 - DW Near Ptr FillHeader - DW Near Ptr SetHelpContext7 + DW IdleInstrumentList + DW InstrumentGlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW InstrumentListHeader ; 2 + DW InstrumentNameBox ; 3 + DW InstrumentWindow ; 4 + DW VInstrumentGeneralButton ; 5 + DW VInstrumentVolumeButton ; 6 + DW VInstrumentPanningButton ; 7 + DW VInstrumentPitchButton ; 8 + DW InstrumentEnvelopeBox ; 9 + DW InstrumentEnvelope ; 10 + DW InstrumentVEBox ; 11 + DW InstrumentVELBox ; 12 + DW InstrumentVESLBox ; 13 + DW InstrumentPanText ; 14 + DW InstrumentVELText ; 15 + DW InstrumentVESLText ; 16 + DW InstrumentPanToggle ; 17 + DW InstrumentPanLToggle ; 18 + DW InstrumentPanLBeg ; 19 + DW InstrumentPanLEnd ; 20 + DW InstrumentPanSLToggle ; 21 + DW InstrumentPanSLBeg ; 22 + DW InstrumentPanSLEnd ; 23 + DW InstrumentDefaultPanBox ; 24 + DW InstrumentDefaultPanText ; 25 + DW InstrumentDefaultPanToggle ; 26 + DW InstrumentDefaultPanValue ; 27 + DW InstrumentPitchPanCenter ; 28 + DW InstrumentPitchPanSeparation ; 29 + DW InstrumentPanSwing ; 30 + DW InstrumentPanBoxFiller + DW InstrumentPanCToggle ; 32 + DW FillHeader + DW SetHelpContext7 DW 0 InstrumentPanBoxFiller DW 1 @@ -6249,55 +6247,55 @@ InstrumentPanSwing DW 9 DW 0FFFFh, 0FFFFh O1_InstrumentListPitch DW 4 - DW Near Ptr IdleInstrumentList - DW Near Ptr InstrumentGlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr InstrumentListHeader ; 2 - DW Near Ptr InstrumentNameBox ; 3 - DW Near Ptr InstrumentWindow ; 4 - DW Near Ptr VInstrumentGeneralButton ; 5 - DW Near Ptr VInstrumentVolumeButton ; 6 - DW Near Ptr VInstrumentPanningButton ; 7 - DW Near Ptr VInstrumentPitchButton ; 8 - DW Near Ptr InstrumentEnvelopeBox ; 9 - DW Near Ptr InstrumentEnvelope ; 10 - DW Near Ptr InstrumentVEBox ; 11 - DW Near Ptr InstrumentVELBox ; 12 - DW Near Ptr InstrumentVESLBox ; 13 - DW Near Ptr InstrumentPitchText ; 14 - DW Near Ptr InstrumentVELText ; 15 - DW Near Ptr InstrumentVESLText ; 16 - DW Near Ptr InstrumentPitchToggle ; 17 - DW Near Ptr InstrumentPitchLToggle ; 18 - DW Near Ptr InstrumentPitchLBeg ; 19 - DW Near Ptr InstrumentPitchLEnd ; 20 - DW Near Ptr InstrumentPitchSLToggle ; 21 - DW Near Ptr InstrumentPitchSLBeg ; 22 - DW Near Ptr InstrumentPitchSLEnd ; 23 - DW Near Ptr InstrumentMIDIBox1 ; 24 - DW Near Ptr InstrumentMIDIChannel ; 25 - DW Near Ptr InstrumentMIDIProgram ; 26 - DW Near Ptr InstrumentMIDIBank1 ; 27 - DW Near Ptr InstrumentMIDIBank2 ; 28 - DW Near Ptr InstrumentPitchCToggle ; 29 -IF FILTERENVELOPES - DW Near Ptr InstrumentFilterCutoff ; 30 - DW Near Ptr InstrumentFilterResonance ; 31 -ENDIF - DW Near Ptr InstrumentMIDIText - DW Near Ptr FillHeader - DW Near Ptr SetHelpContext7 + DW IdleInstrumentList + DW InstrumentGlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW InstrumentListHeader ; 2 + DW InstrumentNameBox ; 3 + DW InstrumentWindow ; 4 + DW VInstrumentGeneralButton ; 5 + DW VInstrumentVolumeButton ; 6 + DW VInstrumentPanningButton ; 7 + DW VInstrumentPitchButton ; 8 + DW InstrumentEnvelopeBox ; 9 + DW InstrumentEnvelope ; 10 + DW InstrumentVEBox ; 11 + DW InstrumentVELBox ; 12 + DW InstrumentVESLBox ; 13 + DW InstrumentPitchText ; 14 + DW InstrumentVELText ; 15 + DW InstrumentVESLText ; 16 + DW InstrumentPitchToggle ; 17 + DW InstrumentPitchLToggle ; 18 + DW InstrumentPitchLBeg ; 19 + DW InstrumentPitchLEnd ; 20 + DW InstrumentPitchSLToggle ; 21 + DW InstrumentPitchSLBeg ; 22 + DW InstrumentPitchSLEnd ; 23 + DW InstrumentMIDIBox1 ; 24 + DW InstrumentMIDIChannel ; 25 + DW InstrumentMIDIProgram ; 26 + DW InstrumentMIDIBank1 ; 27 + DW InstrumentMIDIBank2 ; 28 + DW InstrumentPitchCToggle ; 29 +%IF FILTERENVELOPES + DW InstrumentFilterCutoff ; 30 + DW InstrumentFilterResonance ; 31 +%ENDIF + DW InstrumentMIDIText + DW FillHeader + DW SetHelpContext7 DW 0 InstrumentMIDIText DW 1 DB 36, 42 DB 20h -IF FILTERENVELOPES +%IF FILTERENVELOPES DB "Default Cutoff", 13 DB "Default Resonance", 13 -ENDIF +%ENDIF DB "MIDI Channel", 13 DB "MIDI Program", 13 DB "MIDI Bank Low", 13 @@ -6355,25 +6353,25 @@ InstrumentPitchSLEnd DW 13 DB 54, 39 DW 0, 1D9h DD 0 -IF FILTERENVELOPES +%IF FILTERENVELOPES DW 22, 30, 4, 4 -ELSE +%ELSE DW 22, 25, 4, 4 -ENDIF +%ENDIF InstrumentMIDIChannel DW 14 -IF FILTERENVELOPES +%IF FILTERENVELOPES DB 54, 44 -ELSE +%ELSE DB 54, 42 -ENDIF +%ENDIF DW 0, 17 DW 6, 3Ch -IF FILTERENVELOPES +%IF FILTERENVELOPES DW 30, 26, 4, 4 -ELSE +%ELSE DW 23, 26, 4, 4 -ENDIF +%ENDIF DW 0FFFFh, 0FFFFh DW 16 @@ -6395,11 +6393,11 @@ InstrumentFilterResonance DW 14 DW 16 InstrumentMIDIProgram DW 14 -IF FILTERENVELOPES +%IF FILTERENVELOPES DB 54, 45 -ELSE +%ELSE DB 54, 43 -ENDIF +%ENDIF DW -1, 127 DW 6, 3Dh DW 25, 27, 4, 4 @@ -6407,11 +6405,11 @@ ENDIF DW 16 InstrumentMIDIBank1 DW 14 -IF FILTERENVELOPES +%IF FILTERENVELOPES DB 54, 46 -ELSE +%ELSE DB 54, 44 -ENDIF +%ENDIF DW -1, 127 DW 6, 3Eh DW 26, 28, 4, 4 @@ -6419,11 +6417,11 @@ ENDIF DW 16 InstrumentMIDIBank2 DW 14 -IF FILTERENVELOPES +%IF FILTERENVELOPES DB 54, 47 -ELSE +%ELSE DB 54, 45 -ENDIF +%ENDIF DW -1, 127 DW 6, 3Fh DW 27, 0FFFFh, 4, 4 @@ -6442,11 +6440,11 @@ InstrumentTranslateBox DW 0 DB 27 InstrumentMIDIBox1 DW 0 -IF FILTERENVELOPES +%IF FILTERENVELOPES DB 53, 41, 71, 48 -ELSE +%ELSE DB 53, 41, 71, 46 -ENDIF +%ENDIF DB 27 InstrumentWindow DW 15 @@ -6460,11 +6458,11 @@ InstrumentNoteWindow DW 15 DD DWord Ptr I_PostNoteWindow InstrumentGlobalKeyList Label -IF ENABLESOLO +%IF ENABLESOLO DB 1 DW '`' DD DWord Ptr Music_ToggleSoloInstrument -ENDIF +%ENDIF DB 3 ; Ctrl DW 1C9h @@ -6551,25 +6549,25 @@ ENDIF DD DWord Ptr I_PlayNote DB 5 - DW Offset GlobalKeyList + DW GlobalKeyList O1_DisplayList DW 4 - DW Near Ptr InfoPageIdleList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr FillHeader ; 2 - DW Near Ptr DisplayHeader ; 3 - DW Near Ptr DisplayObject ; 4 - DW Near Ptr SetHelpContext9 + DW InfoPageIdleList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW FillHeader ; 2 + DW DisplayHeader ; 3 + DW DisplayObject ; 4 + DW SetHelpContext9 DW 0 O1_FullDisplayList DW 1 - DW Near Ptr InfoPageIdleList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr DisplayObject ; 1 - DW Near Ptr SetHelpContext9 + DW InfoPageIdleList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW DisplayObject ; 1 + DW SetHelpContext9 DW 0 InfoPageIdleList Label DWord @@ -6585,12 +6583,12 @@ DisplayObject DW 15 DD DWord Ptr PostDisplayData O1_ThumbStringList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr ESC&ReturnList - DW Near Ptr ThumbBox - DW Near Ptr ThumbInputText - DW Near Ptr ThumbInputBox - DW Near Ptr ThumbInput + DW IdleFunctionList + DW ESC&ReturnList + DW ThumbBox + DW ThumbInputText + DW ThumbInputBox + DW ThumbInput DW 0 ThumbBox DW 0 @@ -6608,27 +6606,27 @@ ThumbInputBox DW 0 ThumbInput DW 16 DB 44, 26 - DW 5, Offset ThumbStringEnter + DW 5, ThumbStringEnter DW 4 DD 0 ; No function DW 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh O1_NewSongList DW 11 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr NewSongBox ; 0 - DW Near Ptr NewSongText ; 1 - DW Near Ptr NewSongText2 ; 2 - DW Near Ptr KeepPatternButton ; 3 - DW Near Ptr ClearPatternButton ; 4 - DW Near Ptr KeepSampleButton ; 5 - DW Near Ptr ClearSampleButton ; 6 - DW Near Ptr KeepInstrumentButton ; 7 - DW Near Ptr ClearInstrumentButton ; 8 - DW Near Ptr KeepOrderListButton ; 9 - DW Near Ptr ClearOrderListButton ; 10 - DW Near Ptr NewSongOKButton ; 11 - DW Near Ptr NewSongCancelButton ; 12 + DW IdleFunctionList + DW ESCReturnList + DW NewSongBox ; 0 + DW NewSongText ; 1 + DW NewSongText2 ; 2 + DW KeepPatternButton ; 3 + DW ClearPatternButton ; 4 + DW KeepSampleButton ; 5 + DW ClearSampleButton ; 6 + DW KeepInstrumentButton ; 7 + DW ClearInstrumentButton ; 8 + DW KeepOrderListButton ; 9 + DW ClearOrderListButton ; 10 + DW NewSongOKButton ; 11 + DW NewSongCancelButton ; 12 DW 0 @@ -6778,20 +6776,20 @@ NewSongCancelButton DW 2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� O1_MainMenu DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr MainMenuBox1 ; 0 - DW Near Ptr MainMenuBox2 ; 1 - DW Near Ptr MainMenuText ; 2 - DW Near Ptr MainMenuFile ; 3 - DW Near Ptr MainMenuPlayBack ; 4 - DW Near Ptr MainMenuViewPatterns ; 5 - DW Near Ptr MainMenuViewSamples ; 6 - DW Near Ptr MainMenuViewInstruments; 7 - DW Near Ptr MainMenuViewOrderPan ; 8 - DW Near Ptr MainMenuViewVariables ; 9 - DW Near Ptr MainMenuMessage - DW Near Ptr MainMenuHelp ; 11 + DW IdleFunctionList + DW ESCReturnList + DW MainMenuBox1 ; 0 + DW MainMenuBox2 ; 1 + DW MainMenuText ; 2 + DW MainMenuFile ; 3 + DW MainMenuPlayBack ; 4 + DW MainMenuViewPatterns ; 5 + DW MainMenuViewSamples ; 6 + DW MainMenuViewInstruments; 7 + DW MainMenuViewOrderPan ; 8 + DW MainMenuViewVariables ; 9 + DW MainMenuMessage + DW MainMenuHelp ; 11 DW 0 @@ -6917,17 +6915,17 @@ MainMenuHelp DW 2 DB " Help! (F1)", 0 O1_FileMenu DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr FileBox1 ; 0 - DW Near Ptr FileBox2 ; 1 - DW Near Ptr FileMenuText ; 2 - DW Near Ptr FileLoad ; 3 - DW Near Ptr FileNew - DW Near Ptr FileSaveCurrent - DW Near Ptr FileSaveAs - DW Near Ptr FileDOSShell - DW Near Ptr FileQuit + DW IdleFunctionList + DW ESCReturnList + DW FileBox1 ; 0 + DW FileBox2 ; 1 + DW FileMenuText ; 2 + DW FileLoad ; 3 + DW FileNew + DW FileSaveCurrent + DW FileSaveAs + DW FileDOSShell + DW FileQuit DW 0 FileBox1 DW 0 @@ -7016,20 +7014,20 @@ FileQuit DW 2 DB " Quit (Ctrl-Q)", 0 O1_PlayBackMenu DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr PlayBackBox1 ; 0 - DW Near Ptr PlayBackBox2 ; 1 - DW Near Ptr PlayBackText ; 2 - DW Near Ptr PlayBackShowInfoPage ; 3 - DW Near Ptr PlayBackSong ; 4 - DW Near Ptr PlayBackPattern ; 5 - DW Near Ptr PlayBackOrder ; 6 - DW Near Ptr PlayBackMark ; 7 - DW Near Ptr PlayBackStop ; 8 - DW Near Ptr PlayBackReinit ; 9 - DW Near Ptr PlayBackDriverScreen ; 10 - DW Near Ptr PlayBackCalculateLength ; 11 + DW IdleFunctionList + DW ESCReturnList + DW PlayBackBox1 ; 0 + DW PlayBackBox2 ; 1 + DW PlayBackText ; 2 + DW PlayBackShowInfoPage ; 3 + DW PlayBackSong ; 4 + DW PlayBackPattern ; 5 + DW PlayBackOrder ; 6 + DW PlayBackMark ; 7 + DW PlayBackStop ; 8 + DW PlayBackReinit ; 9 + DW PlayBackDriverScreen ; 10 + DW PlayBackCalculateLength ; 11 DW 0 PlayBackBox1 DW 0 @@ -7155,14 +7153,14 @@ PlayBackCalculateLength DW 2 O1_SampleMenu DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr SampleBox1 ; 0 - DW Near Ptr SampleBox2 ; 1 - DW Near Ptr SampleText ; 2 - DW Near Ptr SampleMenuList ; 3 - DW Near Ptr SampleLibrary ; 4 - DW Near Ptr ReloadGravis ; 5 + DW IdleFunctionList + DW ESCReturnList + DW SampleBox1 ; 0 + DW SampleBox2 ; 1 + DW SampleText ; 2 + DW SampleMenuList ; 3 + DW SampleLibrary ; 4 + DW ReloadGravis ; 5 DW 0 @@ -7217,13 +7215,13 @@ ReloadGravis DW 2 DB " Reload Soundcard (Ctrl-G)", 0 O1_InstrumentMenu DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCReturnList - DW Near Ptr InstrumentBox1 ; 0 - DW Near Ptr InstrumentBox2 ; 1 - DW Near Ptr InstrumentText ; 2 - DW Near Ptr InstrumentMenuList ; 3 - DW Near Ptr InstrumentLibrary ; 4 + DW IdleFunctionList + DW ESCReturnList + DW InstrumentBox1 ; 0 + DW InstrumentBox2 ; 1 + DW InstrumentText ; 2 + DW InstrumentMenuList ; 3 + DW InstrumentLibrary ; 4 DW 0 InstrumentBox1 DW 0 @@ -7290,27 +7288,27 @@ EditSampleNameInputBox DW 0 EditSampleNameInput DW 16 DB 27, 29 - DW 0, Offset SampleName + DW 0, SampleName DW 26 DD DWord Ptr F_Return1 DW 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF MEMORYDEBUG +%IF MEMORYDEBUG O1_DebugList DW 5 - DW Near Ptr IdleDebugFunctionList - DW Near Ptr DebugKeyList - DW Near Ptr FullScreenBox - DW Near Ptr ScreenHeader - DW Near Ptr DebugBox - DW Near Ptr DebugText - DW Near Ptr DebugInputBox - DW Near Ptr DebugAddressInput - DW Near Ptr DebugInfo - DW Near Ptr FillHeader - DW Near Ptr DebugHeader + DW IdleDebugFunctionList + DW DebugKeyList + DW FullScreenBox + DW ScreenHeader + DW DebugBox + DW DebugText + DW DebugInputBox + DW DebugAddressInput + DW DebugInfo + DW FillHeader + DW DebugHeader DW 0 @@ -7341,7 +7339,7 @@ DebugKeyList Label DD DWord Ptr F_DebugPgDn DB 5 - DW Offset GlobalKeyList + DW GlobalKeyList DebugBox DW 0 @@ -7359,7 +7357,7 @@ DebugInputBox DW 0 DebugAddressInput DW 16 DB 12, 47 - DW 5, Offset AddressInput + DW 5, AddressInput DW 18 DD DWord Ptr F_DebugStringInput DW 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh @@ -7367,122 +7365,122 @@ DebugAddressInput DW 16 DebugHeader DW 10 DB "Debug", 0 -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� O1_ConfigurePaletteList DW 53 DW IdleFunctionList DW GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr FillHeader ; 2 - DW Near Ptr ConfigurePaletteHeader ; 3 - DW Near Ptr SetHelpContext10 - DW Near Ptr PaletteColourBorder1 - DW Near Ptr PaletteColourBorder2 - DW Near Ptr PaletteColourBorder3 - DW Near Ptr PaletteColourBorder4 - DW Near Ptr PaletteColourBorder5 - DW Near Ptr PaletteColourBorder6 ; 10 - DW Near Ptr PaletteColourBorder7 - DW Near Ptr PaletteColourBorder8 - DW Near Ptr PaletteColourBorder9 - DW Near Ptr PaletteColourBorder10 - DW Near Ptr PaletteColourBorder11 - DW Near Ptr PaletteColourBorder12 - DW Near Ptr PaletteColourBorder13 - DW Near Ptr PaletteColourBorder14 - DW Near Ptr PaletteColourBorder15 - DW Near Ptr PaletteColourBorder16 ; 20 - DW Near Ptr PaletteColourBox1 - DW Near Ptr PaletteColourBox2 - DW Near Ptr PaletteColourBox3 - DW Near Ptr PaletteColourBox4 - DW Near Ptr PaletteColourBox5 - DW Near Ptr PaletteColourBox6 - DW Near Ptr PaletteColourBox7 - DW Near Ptr PaletteColourBox8 - DW Near Ptr PaletteColourBox9 - DW Near Ptr PaletteColourBox10 ; 30 - DW Near Ptr PaletteColourBox11 - DW Near Ptr PaletteColourBox12 - DW Near Ptr PaletteColourBox13 - DW Near Ptr PaletteColourBox14 - DW Near Ptr PaletteColourBox15 - DW Near Ptr PaletteColourBox16 - DW Near Ptr PaletteInputBox1 - DW Near Ptr PaletteInputBox2 - DW Near Ptr PaletteInputBox3 - DW Near Ptr PaletteInputBox4 ; 40 - DW Near Ptr PaletteInputBox5 - DW Near Ptr PaletteInputBox6 - DW Near Ptr PaletteInputBox7 - DW Near Ptr PaletteInputBox8 - DW Near Ptr PaletteInputBox9 - DW Near Ptr PaletteInputBox10 - DW Near Ptr PaletteInputBox11 - DW Near Ptr PaletteInputBox12 - DW Near Ptr PaletteInputBox13 - DW Near Ptr PaletteInputBox14 ; 50 - DW Near Ptr PaletteInputBox15 - DW Near Ptr PaletteInputBox16 - DW Near Ptr Colour0RedInput ; 53 - DW Near Ptr Colour0GreenInput - DW Near Ptr Colour0BlueInput - DW Near Ptr Colour1RedInput ; 56 - DW Near Ptr Colour1GreenInput - DW Near Ptr Colour1BlueInput - DW Near Ptr Colour2RedInput - DW Near Ptr Colour2GreenInput ; 60 - DW Near Ptr Colour2BlueInput - DW Near Ptr Colour3RedInput - DW Near Ptr Colour3GreenInput - DW Near Ptr Colour3BlueInput - DW Near Ptr Colour4RedInput - DW Near Ptr Colour4GreenInput - DW Near Ptr Colour4BlueInput - DW Near Ptr Colour5RedInput - DW Near Ptr Colour5GreenInput - DW Near Ptr Colour5BlueInput ; 70 - DW Near Ptr Colour6RedInput - DW Near Ptr Colour6GreenInput - DW Near Ptr Colour6BlueInput - DW Near Ptr Colour7RedInput ; 74 - DW Near Ptr Colour7GreenInput - DW Near Ptr Colour7BlueInput - DW Near Ptr Colour8RedInput - DW Near Ptr Colour8GreenInput - DW Near Ptr Colour8BlueInput - DW Near Ptr Colour9RedInput ; 80 - DW Near Ptr Colour9GreenInput - DW Near Ptr Colour9BlueInput - DW Near Ptr Colour10RedInput - DW Near Ptr Colour10GreenInput - DW Near Ptr Colour10BlueInput - DW Near Ptr Colour11RedInput - DW Near Ptr Colour11GreenInput - DW Near Ptr Colour11BlueInput - DW Near Ptr Colour12RedInput - DW Near Ptr Colour12GreenInput ; 90 - DW Near Ptr Colour12BlueInput - DW Near Ptr Colour13RedInput - DW Near Ptr Colour13GreenInput - DW Near Ptr Colour13BlueInput - DW Near Ptr Colour14RedInput - DW Near Ptr Colour14GreenInput - DW Near Ptr Colour14BlueInput - DW Near Ptr Colour15RedInput - DW Near Ptr Colour15GreenInput - DW Near Ptr Colour15BlueInput ; 100 - DW Near Ptr PredefinedPaletteMsg - DW Near Ptr PredefinedPalette1 - DW Near Ptr PredefinedPalette2 - DW Near Ptr PredefinedPalette3 - DW Near Ptr PredefinedPalette4 - DW Near Ptr PredefinedPalette5 - DW Near Ptr PredefinedPalette6 - DW Near Ptr PredefinedPalette7 + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW FillHeader ; 2 + DW ConfigurePaletteHeader ; 3 + DW SetHelpContext10 + DW PaletteColourBorder1 + DW PaletteColourBorder2 + DW PaletteColourBorder3 + DW PaletteColourBorder4 + DW PaletteColourBorder5 + DW PaletteColourBorder6 ; 10 + DW PaletteColourBorder7 + DW PaletteColourBorder8 + DW PaletteColourBorder9 + DW PaletteColourBorder10 + DW PaletteColourBorder11 + DW PaletteColourBorder12 + DW PaletteColourBorder13 + DW PaletteColourBorder14 + DW PaletteColourBorder15 + DW PaletteColourBorder16 ; 20 + DW PaletteColourBox1 + DW PaletteColourBox2 + DW PaletteColourBox3 + DW PaletteColourBox4 + DW PaletteColourBox5 + DW PaletteColourBox6 + DW PaletteColourBox7 + DW PaletteColourBox8 + DW PaletteColourBox9 + DW PaletteColourBox10 ; 30 + DW PaletteColourBox11 + DW PaletteColourBox12 + DW PaletteColourBox13 + DW PaletteColourBox14 + DW PaletteColourBox15 + DW PaletteColourBox16 + DW PaletteInputBox1 + DW PaletteInputBox2 + DW PaletteInputBox3 + DW PaletteInputBox4 ; 40 + DW PaletteInputBox5 + DW PaletteInputBox6 + DW PaletteInputBox7 + DW PaletteInputBox8 + DW PaletteInputBox9 + DW PaletteInputBox10 + DW PaletteInputBox11 + DW PaletteInputBox12 + DW PaletteInputBox13 + DW PaletteInputBox14 ; 50 + DW PaletteInputBox15 + DW PaletteInputBox16 + DW Colour0RedInput ; 53 + DW Colour0GreenInput + DW Colour0BlueInput + DW Colour1RedInput ; 56 + DW Colour1GreenInput + DW Colour1BlueInput + DW Colour2RedInput + DW Colour2GreenInput ; 60 + DW Colour2BlueInput + DW Colour3RedInput + DW Colour3GreenInput + DW Colour3BlueInput + DW Colour4RedInput + DW Colour4GreenInput + DW Colour4BlueInput + DW Colour5RedInput + DW Colour5GreenInput + DW Colour5BlueInput ; 70 + DW Colour6RedInput + DW Colour6GreenInput + DW Colour6BlueInput + DW Colour7RedInput ; 74 + DW Colour7GreenInput + DW Colour7BlueInput + DW Colour8RedInput + DW Colour8GreenInput + DW Colour8BlueInput + DW Colour9RedInput ; 80 + DW Colour9GreenInput + DW Colour9BlueInput + DW Colour10RedInput + DW Colour10GreenInput + DW Colour10BlueInput + DW Colour11RedInput + DW Colour11GreenInput + DW Colour11BlueInput + DW Colour12RedInput + DW Colour12GreenInput ; 90 + DW Colour12BlueInput + DW Colour13RedInput + DW Colour13GreenInput + DW Colour13BlueInput + DW Colour14RedInput + DW Colour14GreenInput + DW Colour14BlueInput + DW Colour15RedInput + DW Colour15GreenInput + DW Colour15BlueInput ; 100 + DW PredefinedPaletteMsg + DW PredefinedPalette1 + DW PredefinedPalette2 + DW PredefinedPalette3 + DW PredefinedPalette4 + DW PredefinedPalette5 + DW PredefinedPalette6 + DW PredefinedPalette7 DW 0 ConfigurePaletteHeader DW 10 @@ -7731,289 +7729,289 @@ PaletteInputBox16 DW 0 Colour0RedInput DW 9 DB 10, 14 DW 0, 63 - DW 7, Offset PaletteDefs + DW 7, PaletteDefs DW 0FFFFh, 54, 74, 95, 0FFFFh, 56 Colour0GreenInput DW 9 DB 10, 15 DW 0, 63 - DW 7, Offset PaletteDefs+1 + DW 7, PaletteDefs+1 DW 53, 55, 75, 96, 0FFFFh, 57 Colour0BlueInput DW 9 DB 10, 16 DW 0, 63 - DW 7, Offset PaletteDefs+2 + DW 7, PaletteDefs+2 DW 54, 56, 76, 97, 0FFFFh, 58 Colour1RedInput DW 9 DB 10, 19 DW 0, 63 - DW 7, Offset PaletteDefs+3 + DW 7, PaletteDefs+3 DW 55, 57, 77, 98, 53, 59 Colour1GreenInput DW 9 DB 10, 20 DW 0, 63 - DW 7, Offset PaletteDefs+4 + DW 7, PaletteDefs+4 DW 56, 58, 78, 99, 54, 60 Colour1BlueInput DW 9 DB 10, 21 DW 0, 63 - DW 7, Offset PaletteDefs+5 + DW 7, PaletteDefs+5 DW 57, 59, 79, 100, 55, 61 Colour2RedInput DW 9 DB 10, 24 DW 0, 63 - DW 7, Offset PaletteDefs+6 + DW 7, PaletteDefs+6 DW 58, 60, 80, 0FFFFh, 56, 62 Colour2GreenInput DW 9 DB 10, 25 DW 0, 63 - DW 7, Offset PaletteDefs+7 + DW 7, PaletteDefs+7 DW 59, 61, 81, 0FFFFh, 57, 63 Colour2BlueInput DW 9 DB 10, 26 DW 0, 63 - DW 7, Offset PaletteDefs+8 + DW 7, PaletteDefs+8 DW 60, 62, 82, 0FFFFh, 58, 64 Colour3RedInput DW 9 DB 10, 29 DW 0, 63 - DW 7, Offset PaletteDefs+9 + DW 7, PaletteDefs+9 DW 61, 63, 83, 0FFFFh, 59, 65 Colour3GreenInput DW 9 DB 10, 30 DW 0, 63 - DW 7, Offset PaletteDefs+10 + DW 7, PaletteDefs+10 DW 62, 64, 84, 0FFFFh, 60, 66 Colour3BlueInput DW 9 DB 10, 31 DW 0, 63 - DW 7, Offset PaletteDefs+11 + DW 7, PaletteDefs+11 DW 63, 65, 85, 0FFFFh, 61, 67 Colour4RedInput DW 9 DB 10, 34 DW 0, 63 - DW 7, Offset PaletteDefs+12 + DW 7, PaletteDefs+12 DW 64, 66, 86, 0FFFFh, 62, 68 Colour4GreenInput DW 9 DB 10, 35 DW 0, 63 - DW 7, Offset PaletteDefs+13 + DW 7, PaletteDefs+13 DW 65, 67, 87, 0FFFFh, 63, 69 Colour4BlueInput DW 9 DB 10, 36 DW 0, 63 - DW 7, Offset PaletteDefs+14 + DW 7, PaletteDefs+14 DW 66, 68, 88, 0FFFFh, 64, 70 Colour5RedInput DW 9 DB 10, 39 DW 0, 63 - DW 7, Offset PaletteDefs+15 + DW 7, PaletteDefs+15 DW 67, 69, 89, 0FFFFh, 65, 71 Colour5GreenInput DW 9 DB 10, 40 DW 0, 63 - DW 7, Offset PaletteDefs+16 + DW 7, PaletteDefs+16 DW 68, 70, 90, 0FFFFh, 66, 72 Colour5BlueInput DW 9 DB 10, 41 DW 0, 63 - DW 7, Offset PaletteDefs+17 + DW 7, PaletteDefs+17 DW 69, 71, 91, 0FFFFh, 67, 73 Colour6RedInput DW 9 DB 10, 44 DW 0, 63 - DW 7, Offset PaletteDefs+18 + DW 7, PaletteDefs+18 DW 70, 72, 92, 0FFFFh, 68, 74 Colour6GreenInput DW 9 DB 10, 45 DW 0, 63 - DW 7, Offset PaletteDefs+19 + DW 7, PaletteDefs+19 DW 71, 73, 93, 0FFFFh, 69, 75 Colour6BlueInput DW 9 DB 10, 46 DW 0, 63 - DW 7, Offset PaletteDefs+20 + DW 7, PaletteDefs+20 DW 72, 74, 94, 0FFFFh, 70, 76 Colour7RedInput DW 9 DB 37, 14 DW 0, 63 - DW 7, Offset PaletteDefs+21 + DW 7, PaletteDefs+21 DW 73, 75, 95, 53, 71, 77 Colour7GreenInput DW 9 DB 37, 15 DW 0, 63 - DW 7, Offset PaletteDefs+22 + DW 7, PaletteDefs+22 DW 74, 76, 96, 54, 72, 78 Colour7BlueInput DW 9 DB 37, 16 DW 0, 63 - DW 7, Offset PaletteDefs+23 + DW 7, PaletteDefs+23 DW 75, 77, 97, 55, 73, 79 Colour8RedInput DW 9 DB 37, 19 DW 0, 63 - DW 7, Offset PaletteDefs+24 + DW 7, PaletteDefs+24 DW 76, 78, 98, 56, 74, 80 Colour8GreenInput DW 9 DB 37, 20 DW 0, 63 - DW 7, Offset PaletteDefs+25 + DW 7, PaletteDefs+25 DW 77, 79, 99, 57, 75, 81 Colour8BlueInput DW 9 DB 37, 21 DW 0, 63 - DW 7, Offset PaletteDefs+26 + DW 7, PaletteDefs+26 DW 78, 80, 100, 58, 76, 82 Colour9RedInput DW 9 DB 37, 24 DW 0, 63 - DW 7, Offset PaletteDefs+27 + DW 7, PaletteDefs+27 DW 79, 81, 102, 59, 77, 83 Colour9GreenInput DW 9 DB 37, 25 DW 0, 63 - DW 7, Offset PaletteDefs+28 + DW 7, PaletteDefs+28 DW 80, 82, 102, 60, 78, 84 Colour9BlueInput DW 9 DB 37, 26 DW 0, 63 - DW 7, Offset PaletteDefs+29 + DW 7, PaletteDefs+29 DW 81, 83, 102, 61, 79, 85 Colour10RedInput DW 9 DB 37, 29 DW 0, 63 - DW 7, Offset PaletteDefs+30 + DW 7, PaletteDefs+30 DW 82, 84, 102, 62, 80, 86 Colour10GreenInput DW 9 DB 37, 30 DW 0, 63 - DW 7, Offset PaletteDefs+31 + DW 7, PaletteDefs+31 DW 83, 85, 102, 63, 81, 87 Colour10BlueInput DW 9 DB 37, 31 DW 0, 63 - DW 7, Offset PaletteDefs+32 + DW 7, PaletteDefs+32 DW 84, 86, 102, 64, 82, 88 Colour11RedInput DW 9 DB 37, 34 DW 0, 63 - DW 7, Offset PaletteDefs+33 + DW 7, PaletteDefs+33 DW 85, 87, 102, 65, 83, 89 Colour11GreenInput DW 9 DB 37, 35 DW 0, 63 - DW 7, Offset PaletteDefs+34 + DW 7, PaletteDefs+34 DW 86, 88, 102, 66, 84, 90 Colour11BlueInput DW 9 DB 37, 36 DW 0, 63 - DW 7, Offset PaletteDefs+35 + DW 7, PaletteDefs+35 DW 87, 89, 102, 67, 85, 91 Colour12RedInput DW 9 DB 37, 39 DW 0, 63 - DW 7, Offset PaletteDefs+36 + DW 7, PaletteDefs+36 DW 88, 90, 102, 68, 86, 92 Colour12GreenInput DW 9 DB 37, 40 DW 0, 63 - DW 7, Offset PaletteDefs+37 + DW 7, PaletteDefs+37 DW 89, 91, 102, 69, 87, 93 Colour12BlueInput DW 9 DB 37, 41 DW 0, 63 - DW 7, Offset PaletteDefs+38 + DW 7, PaletteDefs+38 DW 90, 92, 102, 70, 88, 94 Colour13RedInput DW 9 DB 37, 44 DW 0, 63 - DW 7, Offset PaletteDefs+39 + DW 7, PaletteDefs+39 DW 91, 93, 102, 71, 89, 95 Colour13GreenInput DW 9 DB 37, 45 DW 0, 63 - DW 7, Offset PaletteDefs+40 + DW 7, PaletteDefs+40 DW 92, 94, 102, 72, 90, 96 Colour13BlueInput DW 9 DB 37, 46 DW 0, 63 - DW 7, Offset PaletteDefs+41 + DW 7, PaletteDefs+41 DW 93, 95, 102, 73, 91, 97 Colour14RedInput DW 9 DB 64, 14 DW 0, 63 - DW 7, Offset PaletteDefs+42 + DW 7, PaletteDefs+42 DW 94, 96, 53, 74, 92, 98 Colour14GreenInput DW 9 DB 64, 15 DW 0, 63 - DW 7, Offset PaletteDefs+43 + DW 7, PaletteDefs+43 DW 95, 97, 54, 75, 93, 99 Colour14BlueInput DW 9 DB 64, 16 DW 0, 63 - DW 7, Offset PaletteDefs+44 + DW 7, PaletteDefs+44 DW 96, 98, 55, 76, 94, 100 Colour15RedInput DW 9 DB 64, 19 DW 0, 63 - DW 7, Offset PaletteDefs+45 + DW 7, PaletteDefs+45 DW 97, 99, 56, 77, 95, 102 Colour15GreenInput DW 9 DB 64, 20 DW 0, 63 - DW 7, Offset PaletteDefs+46 + DW 7, PaletteDefs+46 DW 98, 100, 57, 78, 96, 102 Colour15BlueInput DW 9 DB 64, 21 DW 0, 63 - DW 7, Offset PaletteDefs+47 + DW 7, PaletteDefs+47 DW 99, 102, 58, 79, 97, 102 PredefinedPaletteMsg DW 1 @@ -8113,17 +8111,17 @@ PredefinedPalette7 DW 2 DB " Volcanic", 0 O1_LoadInstrumentList DW 5 - DW Near Ptr InstrumentNameLoader ; Idlekey - DW Near Ptr LoadInstrumentKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr LoadInstrumentHeader ; 2 - DW Near Ptr FillHeader ; 3 - DW Near Ptr LoadInstrumentWindow - DW Near Ptr LoadInstrument ; 5 - DW Near Ptr LoadInstrumentDriveWindow - DW Near Ptr LoadInstrumentDrive - DW Near Ptr SetHelpContext11 + DW InstrumentNameLoader ; Idlekey + DW LoadInstrumentKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW LoadInstrumentHeader ; 2 + DW FillHeader ; 3 + DW LoadInstrumentWindow + DW LoadInstrument ; 5 + DW LoadInstrumentDriveWindow + DW LoadInstrumentDrive + DW SetHelpContext11 DW 0 LoadInstrumentDriveWindow DW 0 @@ -8136,17 +8134,17 @@ LoadInstrumentDrive DW 15 DD DWord Ptr D_LIPostDriveWindow O1_ViewInstrumentLibrary DW 5 - DW Near Ptr InstrumentNameLoader ; Idlekey - DW Near Ptr LoadInstrumentKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr InstrumentLibraryHeader ; 2 - DW Near Ptr FillHeader ; 3 - DW Near Ptr LoadInstrumentWindow - DW Near Ptr ViewInstrument ; 5 - DW Near Ptr LoadInstrumentDriveWindow - DW Near Ptr LoadInstrumentDrive - DW Near Ptr SetHelpContext11 + DW InstrumentNameLoader ; Idlekey + DW LoadInstrumentKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW InstrumentLibraryHeader ; 2 + DW FillHeader ; 3 + DW LoadInstrumentWindow + DW ViewInstrument ; 5 + DW LoadInstrumentDriveWindow + DW LoadInstrumentDrive + DW SetHelpContext11 DW 0 LoadInstrumentHeader DW 10 @@ -8174,12 +8172,12 @@ InstrumentNameLoader DD DWord Ptr D_LoadInstrumentNames DD 0 O1_UndoList DW 3 - DW Near Ptr IdleFunctionList - DW Near Ptr ESCExitList - DW Near Ptr UndoBox1 - DW Near Ptr UndoBox2 - DW Near Ptr UndoText - DW Near Ptr UndoSelector + DW IdleFunctionList + DW ESCExitList + DW UndoBox1 + DW UndoBox2 + DW UndoText + DW UndoSelector DW 0 UndoBox1 DW 0 @@ -8203,15 +8201,15 @@ UndoSelector DW 15 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� O1_MessageList DW 4 - DW Near Ptr IdleFunctionList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr MessageBox - DW Near Ptr MessageObject - DW Near Ptr MessageHeader - DW Near Ptr SetHelpContext12 + DW IdleFunctionList + DW GlobalKeyList + DW FullScreenBox + DW ScreenHeader + DW FillHeader + DW MessageBox + DW MessageObject + DW MessageHeader + DW SetHelpContext12 DW 0 MessageBox DW 0 @@ -8229,50 +8227,50 @@ MessageHeader DW 10 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� O1_MIDIOutputScreen DW 9 - DW Near Ptr IdleFunctionList - DW Near Ptr MIDIOutKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr MIDIOutputHeader - DW Near Ptr MIDIOutputMainConfigText - DW Near Ptr MIDIOutputSFxConfigText - DW Near Ptr MIDIOutputMainConfigBox - DW Near Ptr MIDIOutputSFxConfigBox - DW Near Ptr MIDIOutputZxxConfigBox ; 8 - DW Near Ptr MIDIStartInput ; 9 - DW Near Ptr MIDIStopInput ; 10 - DW Near Ptr MIDITickInput ; 11 - DW Near Ptr MIDINoteOnInput ; 12 - DW Near Ptr MIDINoteOffInput ; 13 - DW Near Ptr MIDIChangeVolumeInput ; 14 - DW Near Ptr MIDIChangePanInput ; 15 - DW Near Ptr MIDIBankSelectInput ; 16 - DW Near Ptr MIDIProgramChangeInput ; 17 - DW Near Ptr MIDISF0Input - DW Near Ptr MIDISF1Input - DW Near Ptr MIDISF2Input - DW Near Ptr MIDISF3Input - DW Near Ptr MIDISF4Input - DW Near Ptr MIDISF5Input - DW Near Ptr MIDISF6Input - DW Near Ptr MIDISF7Input - DW Near Ptr MIDISF8Input - DW Near Ptr MIDISF9Input - DW Near Ptr MIDISFAInput - DW Near Ptr MIDISFBInput - DW Near Ptr MIDISFCInput - DW Near Ptr MIDISFDInput - DW Near Ptr MIDISFEInput - DW Near Ptr MIDISFFInput ; 33 - DW Near Ptr MIDIZ1Input - DW Near Ptr MIDIZ2Input - DW Near Ptr MIDIZ3Input - DW Near Ptr MIDIZ4Input - DW Near Ptr MIDIZ5Input - DW Near Ptr MIDIZ6Input - DW Near Ptr MIDIZ7Input - DW Near Ptr MIDIZxxNumbering + DW IdleFunctionList + DW MIDIOutKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW MIDIOutputHeader + DW MIDIOutputMainConfigText + DW MIDIOutputSFxConfigText + DW MIDIOutputMainConfigBox + DW MIDIOutputSFxConfigBox + DW MIDIOutputZxxConfigBox ; 8 + DW MIDIStartInput ; 9 + DW MIDIStopInput ; 10 + DW MIDITickInput ; 11 + DW MIDINoteOnInput ; 12 + DW MIDINoteOffInput ; 13 + DW MIDIChangeVolumeInput ; 14 + DW MIDIChangePanInput ; 15 + DW MIDIBankSelectInput ; 16 + DW MIDIProgramChangeInput ; 17 + DW MIDISF0Input + DW MIDISF1Input + DW MIDISF2Input + DW MIDISF3Input + DW MIDISF4Input + DW MIDISF5Input + DW MIDISF6Input + DW MIDISF7Input + DW MIDISF8Input + DW MIDISF9Input + DW MIDISFAInput + DW MIDISFBInput + DW MIDISFCInput + DW MIDISFDInput + DW MIDISFEInput + DW MIDISFFInput ; 33 + DW MIDIZ1Input + DW MIDIZ2Input + DW MIDIZ3Input + DW MIDIZ4Input + DW MIDIZ5Input + DW MIDIZ6Input + DW MIDIZ7Input + DW MIDIZxxNumbering DW 0 MIDIOutputHeader DW 10 @@ -8298,7 +8296,7 @@ MIDIOutKeyList DB 0 DD DWord Ptr F_MIDI_PgDn DB 5 - DW Offset GlobalKeyChain + DW GlobalKeyChain MIDIOutputMainConfigText DW 1 DB 2, 13 @@ -8575,32 +8573,32 @@ MIDIZ7Input DW 16 DW 39, 0FFFFh, 0FFFFh, 0FFFFh O1_MIDIScreen DW 7 - DW Near Ptr MIDIIdleList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader - DW Near Ptr FillHeader - DW Near Ptr MIDIHeader - DW Near Ptr ShowMIDIInput - DW Near Ptr MIDIOptionsBox ; 5 - DW Near Ptr MIDIOptions ; 6 - DW Near Ptr ProgramChangeToggle ; 7 - DW Near Ptr Program1Toggle ; 8 - DW Near Ptr RecordNoteOffToggle ; 9 - DW Near Ptr RecordVelocityToggle ; 10 - DW Near Ptr RecordAfterTouchToggle ; 11 - DW Near Ptr MIDITranslateBox ; 12 - DW Near Ptr MIDIAmplificationTB ; 13 - DW Near Ptr MIDICentralNoteTB ; 14 - DW Near Ptr MIDIOutputButton ; 15 - DW Near Ptr MIDISaveConfigButton ; 16 - DW Near Ptr MIDINoteOffCut ; 17 - DW Near Ptr MIDIPitchBox ; 18 - DW Near Ptr MIDIPitchToggle ; 19 - DW Near Ptr MIDIPWDInput ; 20 - DW Near Ptr MIDIEmbedBox - DW NEar Ptr MIDIEmbedToggle - DW Near Ptr SetHelpContext13 + DW MIDIIdleList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader + DW FillHeader + DW MIDIHeader + DW ShowMIDIInput + DW MIDIOptionsBox ; 5 + DW MIDIOptions ; 6 + DW ProgramChangeToggle ; 7 + DW Program1Toggle ; 8 + DW RecordNoteOffToggle ; 9 + DW RecordVelocityToggle ; 10 + DW RecordAfterTouchToggle ; 11 + DW MIDITranslateBox ; 12 + DW MIDIAmplificationTB ; 13 + DW MIDICentralNoteTB ; 14 + DW MIDIOutputButton ; 15 + DW MIDISaveConfigButton ; 16 + DW MIDINoteOffCut ; 17 + DW MIDIPitchBox ; 18 + DW MIDIPitchToggle ; 19 + DW MIDIPWDInput ; 20 + DW MIDIEmbedBox + DW MIDIEmbedToggle + DW SetHelpContext13 DW 0 MIDIHeader DW 10 @@ -8609,14 +8607,14 @@ MIDIHeader DW 10 MIDIPitchToggle DW 17 DB 25, 27 DW 2 - DW 2Ch ; Offset of 'Flags' + DW 2Ch ; of 'Flags' DB 64 DW 14, 20, 0FFFFh, 0FFFFh MIDIEmbedToggle DW 17 DB 25, 31 DW 2 - DW 2Ch ; Offset of 'Flags' + DW 2Ch ; of 'Flags' DB 128 DW 20, 15, 0FFFFh, 0FFFFh @@ -8696,68 +8694,68 @@ MIDIOptions DW 1 ProgramChangeToggle DW 17 DB 25, 15 - DW 1, Offset CentraliseCursor + DW 1, CentraliseCursor DB 8 DW 0FFFFh, 8, 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh Program1Toggle DW 17 DB 25, 16 - DW 1, Offset CentraliseCursor + DW 1, CentraliseCursor DB 16 DW 7, 9, 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh RecordNoteOffToggle DW 17 DB 25, 17 - DW 1, Offset CentraliseCursor + DW 1, CentraliseCursor DB 32 DW 8, 10, 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh RecordVelocityToggle DW 17 DB 25, 18 - DW 1, Offset CentraliseCursor + DW 1, CentraliseCursor DB 64 DW 9, 11, 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh RecordAfterTouchToggle DW 17 DB 25, 19 - DW 1, Offset CentraliseCursor + DW 1, CentraliseCursor DB 128 DW 10, 17, 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh MIDINoteOffCut DW 17 DB 25, 20 - DW 1, Offset Flags + DW 1, Flags DB 2 DW 11, 13, 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh MIDIAmplificationTB DW 9 DB 25, 23 DW 0, 200 - DW 1, Offset MIDIAmplification + DW 1, MIDIAmplification DW 17, 14, 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh MIDICentralNoteTB DW 14 DB 25, 24 DW 0, 127 - DW 1, Offset MIDICentralNote + DW 1, MIDICentralNote DW 13, 19, 0FFFFh, 0FFFFh, 0FFFFh, 0FFFFh DW 25 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF TIMERSCREEN +%IF TIMERSCREEN O1_TimerList DW 5 - DW Near Ptr InfoPageIdleList - DW Near Ptr GlobalKeyList - DW Near Ptr FullScreenBox ; 0 - DW Near Ptr ScreenHeader ; 1 - DW Near Ptr FillHeader ; 2 - DW Near Ptr TimerHeader - DW Near Ptr TimerText ; 4 - DW Near Ptr DrawTimer - DW Near Ptr Divider - DW Near Ptr SetHelpContext0 + DW InfoPageIdleList + DW GlobalKeyList + DW FullScreenBox ; 0 + DW ScreenHeader ; 1 + DW FillHeader ; 2 + DW TimerHeader + DW TimerText ; 4 + DW DrawTimer + DW Divider + DW SetHelpContext0 DW 0 TimerHeader DW 10 @@ -8781,17 +8779,17 @@ Divider DW 1 DB 20h DB 0FFh, 78, 09Ah, 0 -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� O1_StereoSampleList DW 2 - DW Near Ptr IdleFunctionList - DW Near Ptr LRKeyList - DW Near Ptr StereoSampleBox ; 0 - DW Near Ptr StereoSampleText - DW Near Ptr StereoButtonLeft ; 2 - DW Near Ptr StereoButtonRight ; 3 + DW IdleFunctionList + DW LRKeyList + DW StereoSampleBox ; 0 + DW StereoSampleText + DW StereoButtonLeft ; 2 + DW StereoButtonRight ; 3 DW 0 LRKeyList DB 8 @@ -8841,11 +8839,11 @@ StereoButtonRight DW 2 O1_ShowTime DW 2 DW 0 - DW Near Ptr ESCReturnList - DW Near Ptr NBMBox - DW Near Ptr ShowTime - DW Near Ptr OKButton - DW Near Ptr SongLengthText + DW ESCReturnList + DW NBMBox + DW ShowTime + DW OKButton + DW SongLengthText DW 0 SongLengthText DW 1 @@ -8858,12 +8856,12 @@ ShowTime DW 8 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF SPECTRUMANALYSER +%IF SPECTRUMANALYSER O1_FourierDisplay DW 0 -; DW Near Ptr FourierIdleList - DW Near Ptr InfoPageIdleList - DW Near Ptr FourierKeyList - DW Near Ptr FourierDisplay +; DW FourierIdleList + DW InfoPageIdleList + DW FourierKeyList + DW FourierDisplay DW 0 ;FourierIdleList DD DWord Ptr Fourier_IdleList @@ -8886,17 +8884,15 @@ FourierKeyList DB 1 DD DWord Ptr Fourier_ChangePalette DB 5 - DW Near Ptr PlayCommandChain + DW PlayCommandChain FourierDisplay DW 15 DD DWord Ptr Fourier_PreDrawScreen DD DWord Ptr Fourier_DrawScreen DD DWord Ptr Fourier_PostFunction -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� EndS - -End diff --git a/it_pe.s b/it_pe.s index 7d32c69..4750cf5 100644 --- a/it_pe.s +++ b/it_pe.s @@ -2,121 +2,120 @@ ;� PatternEdit module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386 - -include switch.inc - -include network.inc +%include "switch.inc" +%include "network.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Segment Object1 BYTE Public 'Data' +;Segment Object1 BYTE Public 'Data' +section .data EndS -Segment Disk BYTE Public 'Code' +;Segment Disk BYTE Public 'Code' +section .text EndS -Segment Inst BYTE Public 'Code' - Extrn InstrumentEdit:Byte - Extrn NodeHeld:Byte +;Segment Inst BYTE Public 'Code' +section .text + extern InstrumentEdit:Byte + extern NodeHeld:Byte EndS - Extrn E_GetFreeEMS:Far - Extrn E_UnInitEMS:Far - Extrn E_ReleaseEMS:Far - Extrn E_AllocateEMS:Far - Extrn E_MapAvailableEMSMemory:Far - Extrn E_GetEMSPageFrame:Far + extern E_GetFreeEMS:Far + extern E_UnInitEMS:Far + extern E_ReleaseEMS:Far + extern E_AllocateEMS:Far + extern E_MapAvailableEMSMemory:Far + extern E_GetEMSPageFrame:Far - Extrn Glbl_F2:Far, Glbl_F6:Far - Extrn Glbl_GetHeaderMode:Far - Extrn Glbl_LeftBrace:Far, Glbl_RightBrace:Far - Extrn Glbl_LeftSquareBracket:Far, Glbl_RightSquareBracket:Far + extern Glbl_F2:Far, Glbl_F6:Far + extern Glbl_GetHeaderMode:Far + extern Glbl_LeftBrace:Far, Glbl_RightBrace:Far + extern Glbl_LeftSquareBracket:Far, Glbl_RightSquareBracket:Far - Extrn I_ClearTables:Far + extern I_ClearTables:Far - Extrn K_UnInitKeyBoard:Far - Extrn K_SetScrollLock:Far - Extrn K_IsKeyDown:Far + extern K_UnInitKeyBoard:Far + extern K_SetScrollLock:Far + extern K_IsKeyDown:Far - Extrn M_FunctionHandler:Far - Extrn M_Object1List:Far - Extrn M_FunctionDivider:Far + extern M_FunctionHandler:Far + extern M_Object1List:Far + extern M_FunctionDivider:Far - Extrn Music_PlayPartSong:Far - Extrn Music_GetSongSegment:Far - Extrn Music_UnInitMusic:Far - Extrn Music_ReleasePattern:Far - Extrn Music_AllocatePattern:Far - Extrn Music_GetPattern:Far - Extrn Music_GetInstrumentMode:Far - Extrn Music_UpdatePatternOffset:Far - Extrn Music_PlayNote:Far - Extrn Music_InitMixTable:Far - Extrn Music_InitMuteTable:Far - Extrn Music_InitStereo:Far - Extrn Music_ToggleChannel:Far - Extrn Music_SoloChannel:Far - Extrn Music_GetPlayMode:Far - Extrn Music_PlayPattern:Far - Extrn Music_GetLastChannel:Far - Extrn Music_SetNextOrder:Far - Extrn Music_NextOrder:Far - Extrn Music_LastOrder:Far - Extrn Music_Stop:Far + extern Music_PlayPartSong:Far + extern Music_GetSongSegment:Far + extern Music_UnInitMusic:Far + extern Music_ReleasePattern:Far + extern Music_AllocatePattern:Far + extern Music_GetPattern:Far + extern Music_GetInstrumentMode:Far + extern Music_UpdatePatternOffset:Far + extern Music_PlayNote:Far + extern Music_InitMixTable:Far + extern Music_InitMuteTable:Far + extern Music_InitStereo:Far + extern Music_ToggleChannel:Far + extern Music_SoloChannel:Far + extern Music_GetPlayMode:Far + extern Music_PlayPattern:Far + extern Music_GetLastChannel:Far + extern Music_SetNextOrder:Far + extern Music_NextOrder:Far + extern Music_LastOrder:Far + extern Music_Stop:Far - Extrn Music_UnmuteAll:Far + extern Music_UnmuteAll:Far - Extrn Music_SoundCardLoadSample:Far - Extrn Music_SoundCardLoadAllSamples:Far - Extrn Music_GetDisplayVariables:Far + extern Music_SoundCardLoadSample:Far + extern Music_SoundCardLoadAllSamples:Far + extern Music_GetDisplayVariables:Far - Extrn Network_UpdatePattern:Far + extern Network_UpdatePattern:Far - Extrn FileName:Byte + extern FileName:Byte - Extrn O1_ConfirmNoSave:Far - Extrn O1_NoBlockMarkedList:Far - Extrn O1_SwapOutOfRangeList:Far - Extrn O1_OverlapBlockList:Far - Extrn O1_OutOfMemoryList:Far - Extrn O1_NoBlockDataList:Far - Extrn O1_GetAmpList:Far - Extrn O1_GetFastAmpList:Far + extern O1_ConfirmNoSave:Far + extern O1_NoBlockMarkedList:Far + extern O1_SwapOutOfRangeList:Far + extern O1_OverlapBlockList:Far + extern O1_OutOfMemoryList:Far + extern O1_NoBlockDataList:Far + extern O1_GetAmpList:Far + extern O1_GetFastAmpList:Far -IF SHOWPATTERNLENGTH - Extrn O1_ShowPatternLengthList:Far -ENDIF +%IF SHOWPATTERNLENGTH + extern O1_ShowPatternLengthList:Far +%ENDIF - Extrn O1_TemplateErrorList:Far - Extrn O1_PatternTooLongList:Far - Extrn O1_SelectMultiChannel:Far - Extrn O1_UndoList:Far - Extrn O1_SetPatternLength:Far - Extrn O1_PatternSizeMismatchList:Far + extern O1_TemplateErrorList:Far + extern O1_PatternTooLongList:Far + extern O1_SelectMultiChannel:Far + extern O1_UndoList:Far + extern O1_SetPatternLength:Far + extern O1_PatternSizeMismatchList:Far - Extrn S_UnInitScreen:Far - Extrn S_DrawBox:Far - Extrn S_DrawString:Far - Extrn S_GetDestination:Far - Extrn S_SaveScreen:Far - Extrn S_RestoreScreen:Far - Extrn S_SetDirectMode:Far - Extrn S_DrawSmallBox:Far - Extrn S_InvertCursor:Far + extern S_UnInitScreen:Far + extern S_DrawBox:Far + extern S_DrawString:Far + extern S_GetDestination:Far + extern S_SaveScreen:Far + extern S_RestoreScreen:Far + extern S_SetDirectMode:Far + extern S_DrawSmallBox:Far + extern S_InvertCursor:Far - Extrn PatternLength + extern PatternLength - Extrn UpdateInfoLine:Far - Extrn SetInfoLine:Far - Extrn MouseUpdateDisable:Far - Extrn UpdateWAVEForm:Far + extern UpdateInfoLine:Far + extern SetInfoLine:Far + extern MouseUpdateDisable:Far + extern UpdateWAVEForm:Far - Extrn MIDI_AllocateChannel:Far, MIDI_FindChannel:Far - Extrn Music_GetDelay:Far, MIDI_GetChannel:Far + extern MIDI_AllocateChannel:Far, MIDI_FindChannel:Far + extern Music_GetDelay:Far, MIDI_GetChannel:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -198,10 +197,10 @@ ENDIF ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Pattern WORD Public 'Code' USE16 - Assume CS:Pattern, DS:Nothing + ;Assume CS:Pattern, DS:Nothing CREATENEWLOGFILE EQU 0 -include debug.inc +%include "debug.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -356,11 +355,11 @@ PEFunctions Label Word DW 11Ch ; Enter DW Offset PEFunction_PickUp -IF SHOWPATTERNLENGTH +%IF SHOWPATTERNLENGTH DB 0 DW 111Ch ; Right Ctrl+Enter DW Offset PE_ShowPatternLength -ENDIF +%ENDIF DB 1 DW '{' @@ -958,11 +957,11 @@ TracePlayback DB 0 OrderListKeys Label -IF ORDERSORT +%IF ORDERSORT DB 1 DW 1300h ; Alt-R DW Offset PE_PostOrderListReorder -ENDIF +%ENDIF DB 0 DW 10Fh @@ -1042,7 +1041,7 @@ ENDIF ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_ConvAX2Num Far ; ES:DI points to screen +Proc PE_ConvAX2Num Far ; ES:DI points to screen ; CH = colour ; AX = number @@ -1088,11 +1087,11 @@ PE_ConvAX2Num2: Ret -EndP PE_ConvAX2Num +;EndP PE_ConvAX2Num ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_ConvHexAL Near +Proc PE_ConvHexAL Near Cmp AL, 10 SBB AL, 69h @@ -1101,11 +1100,11 @@ Proc PE_ConvHexAL Near Ret -EndP PE_ConvHexAL +;EndP PE_ConvHexAL ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_GetMaxOrder Far ; Returns AX with max order +Proc PE_GetMaxOrder Far ; Returns AX with max order Push CX Push ES @@ -1132,11 +1131,11 @@ PE_GetMaxOrder1: Ret -EndP PE_GetMaxOrder +;EndP PE_GetMaxOrder ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ClearEncodingInfo ; Encoding info +Proc ClearEncodingInfo ; Encoding info ; 1.Mask, 2.Instrument, 3.Volume, 4.Cmd ; 5.CmdVal, 6.Note @@ -1159,13 +1158,13 @@ ClearEncodingInfo1: Ret -EndP ClearEncodingInfo +;EndP ClearEncodingInfo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF ORDERSORT +%IF ORDERSORT -Proc PE_PostOrderListSwapPatterns ; Given BX = pattern 1 +Proc PE_PostOrderListSwapPatterns ; Given BX = pattern 1 ; DX = Pattern 2 PushA @@ -1222,11 +1221,11 @@ PE_PostOrderListSwapPatterns5: PopA Ret -EndP PE_PostOrderListSwapPatterns +;EndP PE_PostOrderListSwapPatterns ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PostOrderListReorder Far +Proc PE_PostOrderListReorder Far EnsureNoNetwork @@ -1262,18 +1261,18 @@ PE_PostOrderListReorderExit: Mov AX, 1 Ret -EndP PE_PostOrderListReorder - Assume DS:Nothing +;EndP PE_PostOrderListReorder + ;Assume DS:Nothing -ENDIF ; ORDERSORT +%ENDIF ; ORDERSORT ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_ResetOrderPattern Far +Proc PE_ResetOrderPattern Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Xor AX, AX Mov Order, AX @@ -1308,18 +1307,18 @@ PE_ResetOrderPattern1: Mov AX, Inst Mov DS, AX - Assume DS:Inst + ;Assume DS:Inst Mov NodeHeld, 0 Mov InstrumentEdit, 0 Ret -EndP PE_ResetOrderPattern - Assume DS:Nothing +;EndP PE_ResetOrderPattern + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_GetMaxPattern Far ; Assumes DS:SongData +Proc PE_GetMaxPattern Far ; Assumes DS:SongData Push CX Push DS @@ -1352,11 +1351,11 @@ PE_GetMaxPattern2: Pop CX Ret -EndP PE_GetMaxPattern +;EndP PE_GetMaxPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_FillHeader Far +Proc PE_FillHeader Far Call Music_GetSongSegment Mov DS, AX @@ -1557,11 +1556,11 @@ PE_FillHeader5: Ret -EndP PE_FillHeader +;EndP PE_FillHeader ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_FillSpeedTempo Far +Proc PE_FillSpeedTempo Far Call S_GetDestination @@ -1576,11 +1575,11 @@ Proc PE_FillSpeedTempo Far Ret -EndP PE_FillSpeedTempo +;EndP PE_FillSpeedTempo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_DrawOrderList Far +Proc PE_DrawOrderList Far Mov AL, 80 Mul Byte Ptr [SI+3] @@ -1592,7 +1591,7 @@ Proc PE_DrawOrderList Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov AX, TopOrder ; Bounds checking... Mov BX, Order @@ -1680,12 +1679,12 @@ PE_DrawOrderList6: PE_DrawOrderList8: Ret -EndP PE_DrawOrderList - Assume DS:Nothing +;EndP PE_DrawOrderList + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PreOrderList Far +Proc PE_PreOrderList Far Mov AL, 80 Mov BX, Order @@ -1705,13 +1704,13 @@ Proc PE_PreOrderList Far Ret -EndP PE_PreOrderList +;EndP PE_PreOrderList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc NetworkOrderList Near +Proc NetworkOrderList Near -IF NETWORKENABLED +%IF NETWORKENABLED Call Network_GetSendQueue JZ NetworkOrderList1 @@ -1723,14 +1722,14 @@ IF NETWORKENABLED NetworkOrderList1: Call Network_FinishedSendQueue -ENDIF +%ENDIF Ret -EndP NetworkOrderList +;EndP NetworkOrderList ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PostOrderList Far +Proc PE_PostOrderList Far Push ES Pop DS @@ -1754,7 +1753,7 @@ Proc PE_PostOrderList Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Push ES Pop FS @@ -2029,12 +2028,12 @@ PE_PostOrderList24: ; 'G' Jmp PE_GotoPattern2 -EndP PE_PostOrderList - Assume DS:Nothing +;EndP PE_PostOrderList + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_UnInitPatternEdit Far +Proc PE_UnInitPatternEdit Far Mov AX, CS:BlockDataArea And AX, AX @@ -2049,17 +2048,17 @@ PE_UnInitPatternEdit1: Ret -EndP PE_UnInitPatternEdit +;EndP PE_UnInitPatternEdit ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_ClearPatternData +Proc PE_ClearPatternData Push CX DX DS SI ES DI Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov ES, PatternDataArea Xor DI, DI @@ -2077,31 +2076,31 @@ PE_ClearPatternData1: Pop DI ES SI DS DX CX Ret -EndP PE_ClearPatternData - Assume DS:Nothing +;EndP PE_ClearPatternData + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_InitPatternEdit Far +Proc PE_InitPatternEdit Far Trace " - Initialising pattern data area" Call PE_ClearPatternData Ret -EndP PE_InitPatternEdit +;EndP PE_InitPatternEdit ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include it_pe_v.inc +%include "it_pe_v.inc" ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_DrawPatternEdit Far +Proc PE_DrawPatternEdit Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Cmp TracePlayback, 0 JE PE_TraceOff @@ -2573,7 +2572,7 @@ PE_DrawPatternEdit33: Mov CX, 32 ; 32 rows Mov DS, PatternDataArea - Assume DS:Nothing + ;Assume DS:Nothing PE_DrawPatternEdit5: Push CX @@ -2884,16 +2883,16 @@ PE_DrawPattern42: PE_DrawPattern40: Ret -EndP PE_DrawPatternEdit - Assume DS:Nothing +;EndP PE_DrawPatternEdit + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PrePatternEdit Far +Proc PE_PrePatternEdit Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Cmp NumChannelsEdit, 0 JNE PE_PrePatternEdit18 @@ -3105,14 +3104,14 @@ PE_PrePatternEdit15: StosW Ret -EndP PE_PrePatternEdit - Assume DS:Nothing +;EndP PE_PrePatternEdit + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetPatternOffset +Proc GetPatternOffset - Assume DS:Pattern + ;Assume DS:Pattern Push AX Push BX @@ -3131,14 +3130,14 @@ Proc GetPatternOffset Pop AX Ret -EndP GetPatternOffset - Assume DS:Nothing +;EndP GetPatternOffset + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc NetworkPatternBlock Near ; CL = width, CH = Height, BL = Channel, BH = Row +Proc NetworkPatternBlock Near ; CL = width, CH = Height, BL = Channel, BH = Row -IF NETWORKENABLED +%IF NETWORKENABLED Call Network_GetSendQueue JZ PE_GotoNextInputNoNetwork @@ -3155,30 +3154,30 @@ PE_GotoNextInputNoNetwork: Call Network_FinishedSendQueue Ret -ENDIF +%ENDIF -EndP NetworkPatternBlock +;EndP NetworkPatternBlock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc NetworkPartialPattern Near ; CL = width, CH = Height +Proc NetworkPartialPattern Near ; CL = width, CH = Height -IF NETWORKENABLED +%IF NETWORKENABLED Push BX Mov BL, Byte Ptr Channel Mov BH, Byte Ptr Row Call NetworkPatternBlock Pop BX -ENDIF +%ENDIF Ret -EndP NetworkPartialPattern +;EndP NetworkPartialPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc NetworkBlock Near +Proc NetworkBlock Near -IF NETWORKENABLED +%IF NETWORKENABLED Mov BL, Byte Ptr BlockLeft Mov BH, Byte Ptr BlockTop Mov CL, Byte Ptr BlockRight @@ -3186,10 +3185,10 @@ IF NETWORKENABLED Sub CX, BX Add CX, 101h Call NetworkPatternBlock -ENDIF +%ENDIF Ret -EndP NetworkBlock +;EndP NetworkBlock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� @@ -3203,11 +3202,11 @@ PatternCursorJumpTable DW Offset PE_PatternCursorPos0 DW Offset PE_PatternCursorPos7 DW Offset PE_PatternCursorPos8 -Proc PE_PostPatternEdit Far +Proc PE_PostPatternEdit Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Test CH, 1 JZ PE_PostPatternEdit17 @@ -3328,22 +3327,22 @@ PE_PostPatternEdit7: Xor AX, AX Ret -EndP PE_PostPatternEdit +;EndP PE_PostPatternEdit ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl_PgUp Far +Proc PEFunction_Ctrl_PgUp Far Mov Row, 0 Mov AX, 1 Ret -EndP PEFunction_Ctrl_PgUp +;EndP PEFunction_Ctrl_PgUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl_PgDn Far +Proc PEFunction_Ctrl_PgDn Far Mov AX, MaxRow Mov Row, AX @@ -3351,11 +3350,11 @@ Proc PEFunction_Ctrl_PgDn Far Mov AX, 1 Ret -EndP PEFunction_Ctrl_PgDn +;EndP PEFunction_Ctrl_PgDn ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Up Far +Proc PEFunction_Up Far Mov BX, SkipValue And BX, BX @@ -3374,11 +3373,11 @@ PEFunction_Up1: Mov AX, 1 Ret -EndP PEFunction_Up +;EndP PEFunction_Up ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Down Far +Proc PEFunction_Down Far Push CS Pop DS @@ -3401,11 +3400,11 @@ PEFunction_Down1: Mov AX, 1 Ret -EndP PEFunction_Down +;EndP PEFunction_Down ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Left Far +Proc PEFunction_Left Far Mov CX, PatternCursor Mov BX, Channel @@ -3441,11 +3440,11 @@ PEFunction_Left2: Mov AX, 1 Ret -EndP PEFunction_Left +;EndP PEFunction_Left ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Right Far ; If there is no +Proc PEFunction_Right Far ; If there is no ; command value... skip! Mov CX, PatternCursor @@ -3486,11 +3485,11 @@ PEFunction_Right2: Mov AX, 1 Ret -EndP PEFunction_Right +;EndP PEFunction_Right ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Press_Shift Far +Proc PEFunction_Press_Shift Far Mov AX, Channel Mov BX, Row @@ -3503,11 +3502,11 @@ Proc PEFunction_Press_Shift Far Xor AX, AX Ret -EndP PEFunction_Press_Shift +;EndP PEFunction_Press_Shift ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Release_Shift Far +Proc PEFunction_Release_Shift Far Cmp NoteEntered, 0 JE PEFunction_Release_Shift1 @@ -3524,15 +3523,15 @@ PEFunction_Release_Shift1: Xor AX, AX Ret -EndP PEFunction_Release_Shift +;EndP PEFunction_Release_Shift ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Alt_Home Far +Proc PEFunction_Alt_Home Far Mov BL, RowHilight1 Jmp PEFunction_PgUpChain -Proc PEFunction_PgUp Far +Proc PEFunction_PgUp Far Mov BL, RowHiLight2 @@ -3574,13 +3573,13 @@ PEFunction_PgUp1: Mov AX, 1 Ret -EndP PEFunction_PgUp +;EndP PEFunction_PgUp -EndP PEFunction_Alt_Home +;EndP PEFunction_Alt_Home ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_CentraliseCursor +Proc PE_CentraliseCursor Mov AX, Row Sub AX, 16 @@ -3592,16 +3591,16 @@ PE_CentraliseCursor1: Mov TopRow, AX Ret -EndP PE_CentraliseCursor +;EndP PE_CentraliseCursor ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Alt_End Far +Proc PEFunction_Alt_End Far Mov BL, RowHilight1 Jmp PEFunction_PgDnChain -Proc PEFunction_PgDn Far +Proc PEFunction_PgDn Far Mov BL, RowHiLight2 @@ -3625,13 +3624,13 @@ PEFunction_PgDn1: Mov AX, 1 Ret -EndP PEFunction_PgDn +;EndP PEFunction_PgDn -EndP PEFunction_Alt_End +;EndP PEFunction_Alt_End ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ShiftPgUp Far +Proc PEFunction_ShiftPgUp Far Call PEFunction_PgUp Call PE_CentraliseCursor @@ -3639,11 +3638,11 @@ Proc PEFunction_ShiftPgUp Far Mov AX, 1 Ret -EndP PEFunction_ShiftPgUp +;EndP PEFunction_ShiftPgUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ShiftPgDn Far +Proc PEFunction_ShiftPgDn Far Call PEFunction_PgDn Call PE_CentraliseCursor @@ -3651,11 +3650,11 @@ Proc PEFunction_ShiftPgDn Far Mov AX, 1 Ret -EndP PEFunction_ShiftPgDn +;EndP PEFunction_ShiftPgDn ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Home Far +Proc PEFunction_Home Far Cmp PatternCursor, 0 JE PEFunction_Home1 @@ -3677,11 +3676,11 @@ PEFunction_Home3: Mov AX, 1 Ret -EndP PEFunction_Home +;EndP PEFunction_Home ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_End Far +Proc PEFunction_End Far Cmp PatternCursor, 8 JE PEFunction_End1 @@ -3706,11 +3705,11 @@ PEFunction_End3: Mov AX, 1 Ret -EndP PEFunction_End +;EndP PEFunction_End ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Tab Far +Proc PEFunction_Tab Far Mov AX, Channel Cmp AX, 63 @@ -3723,11 +3722,11 @@ PEFunction_Tab1: Mov AX, 1 Ret -EndP PEFunction_Tab +;EndP PEFunction_Tab ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ShiftTab Far +Proc PEFunction_ShiftTab Far Cmp PatternCursor, 0 JNE PEFunction_ShiftTab2 @@ -3745,11 +3744,11 @@ PEFunction_ShiftTab1: Mov AX, 1 Ret -EndP PEFunction_ShiftTab +;EndP PEFunction_ShiftTab ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_SetMask Far +Proc PEFunction_SetMask Far Mov BX, PatternCursor Mov AL, [MaskChange+BX] @@ -3758,11 +3757,11 @@ Proc PEFunction_SetMask Far Mov AX, 1 Ret -EndP PEFunction_SetMask +;EndP PEFunction_SetMask ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ToggleMultiChannel Far +Proc PEFunction_ToggleMultiChannel Far Mov BX, Channel Xor [MultiChannelInfo+BX], 1 @@ -3779,11 +3778,11 @@ PEFunction_ToggleMultiChannel1: Mov AX, 1 Ret -EndP PEFunction_ToggleMultiChannel +;EndP PEFunction_ToggleMultiChannel ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_BackSpace Far +Proc PEFunction_BackSpace Far Xor CX, CX @@ -3850,11 +3849,11 @@ PEFunction_BackSpace3: Mov AX, 1 Ret -EndP PEFunction_BackSpace +;EndP PEFunction_BackSpace ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_PickUp Far +Proc PEFunction_PickUp Far Cmp Template, 4 JE PEFunction_PickUp2 @@ -3878,11 +3877,11 @@ PEFunction_PickUp1: Mov AX, 1 Ret -EndP PEFunction_PickUp +;EndP PEFunction_PickUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PatternCursorPos1 Far +Proc PE_PatternCursorPos1 Far Test CL, CL JZ PE_PatternCursorPos1_1 @@ -3913,11 +3912,11 @@ PE_PatternCursorPos1_1: Xor AX, AX Ret -EndP PE_PatternCursorPos1 +;EndP PE_PatternCursorPos1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PatternCursorPos0 Far +Proc PE_PatternCursorPos0 Far Test CL, CL JZ PE_PatternCursorPos0_4 @@ -4003,20 +4002,20 @@ PE_PatternCursorPos0_4: Xor AX, AX Ret -EndP PE_PatternCursorPos0 +;EndP PE_PatternCursorPos0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc NoteSpace Far +Proc NoteSpace Far Mov AL, LastNote Jmp PE_NewNote4 -EndP NoteSpace +;EndP NoteSpace ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc WipeNote Far +Proc WipeNote Far Mov AH, EditMask @@ -4063,7 +4062,7 @@ WipeNote3: Dec BP JNZ WipeNote5 -IF CHORDENTRY +%IF CHORDENTRY Cmp ShiftPressed, 0 JE PE_GotoNextInput @@ -4076,15 +4075,15 @@ IF CHORDENTRY Mov AX, 1 Ret -ELSE +%ELSE Jmp PE_GotoNextInput -ENDIF +%ENDIF -EndP WipeNote +;EndP WipeNote ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_GotoNextInput Far +Proc PE_GotoNextInput Far Mov CX, PatternCursor @@ -4202,11 +4201,11 @@ PE_GotoNextInput3: Mov AX, 1 Ret -EndP PE_GotoNextInput +;EndP PE_GotoNextInput ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc TemplateSetup +Proc TemplateSetup Mov AH, AL Push AX @@ -4239,11 +4238,11 @@ Proc TemplateSetup Ret -EndP TemplateSetup +;EndP TemplateSetup ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_TemplateOverwrite ; AX = note +Proc PE_TemplateOverwrite ; AX = note Push DS Push ES @@ -4299,11 +4298,11 @@ PE_TemplateOverWrite5: Pop DS Ret -EndP PE_TemplateOverWrite +;EndP PE_TemplateOverWrite ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_TemplateMixPattern ; AX = note +Proc PE_TemplateMixPattern ; AX = note Push DS Push ES @@ -4382,11 +4381,11 @@ PE_TemplateMixPattern5: Pop DS Ret -EndP PE_TemplateMixPattern +;EndP PE_TemplateMixPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_TemplateMixClipBoard ; AX = note +Proc PE_TemplateMixClipBoard ; AX = note Push DS Push ES @@ -4465,11 +4464,11 @@ PE_TemplateMixClipBoard5: Pop DS Ret -EndP PE_TemplateMixClipBoard +;EndP PE_TemplateMixClipBoard ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_TemplateNotesOnly +Proc PE_TemplateNotesOnly Push DS Push ES @@ -4548,11 +4547,11 @@ PE_TemplateNotesOnly4: Ret -EndP PE_TemplateNotesOnly +;EndP PE_TemplateNotesOnly ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_Template Far ; AX = note. +Proc PE_Template Far ; AX = note. Mov BX, BlockDataArea Test BX, BX @@ -4643,11 +4642,11 @@ PE_Template5: Mov AX, 1 Ret -EndP PE_Template +;EndP PE_Template ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_NewNote Far +Proc PE_NewNote Far Mov AX, 12 Mul BaseOctave @@ -4709,7 +4708,7 @@ PE_NewNote3: ; Play routine reqd here... Mov CX, 101h Call NetworkPartialPattern -IF CHORDENTRY +%IF CHORDENTRY Cmp ShiftPressed, 0 JE PE_GotoNextInput @@ -4722,15 +4721,15 @@ IF CHORDENTRY Mov AX, 1 Ret -ELSE +%ELSE Jmp PE_GotoNextInput -ENDIF +%ENDIF -EndP PE_NewNote +;EndP PE_NewNote ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Delete Far +Proc PEFunction_Delete Far Mov Word Ptr [Modified], 101h @@ -4798,11 +4797,11 @@ PEFunction_Delete2: Mov AX, 1 Ret -EndP PEFunction_Delete +;EndP PEFunction_Delete ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Insert Far +Proc PEFunction_Insert Far Mov BP, 1 Cmp Template, 0 @@ -4875,11 +4874,11 @@ PEFunction_Insert2: Mov AX, 1 Ret -EndP PEFunction_Insert +;EndP PEFunction_Insert ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_RowDelete Far +Proc PEFunction_RowDelete Far Cmp Byte Ptr LastKeyBoard2, 0D3h JE PEFunction_RowDelete2 @@ -4929,12 +4928,12 @@ PEFunction_RowDelete1: Mov AX, 1 Ret -EndP PEFunction_RowDelete +;EndP PEFunction_RowDelete ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_RowInsert Far +Proc PEFunction_RowInsert Far Cmp Byte Ptr LastKeyBoard2, 0D2h JE PEFunction_RowInsert2 @@ -4992,11 +4991,11 @@ PEFunction_RowInsert1: Mov AX, 1 Ret -EndP PEFunction_RowInsert +;EndP PEFunction_RowInsert ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_DecreaseInstrument Far +Proc PEFunction_DecreaseInstrument Far Sub LastInstrument, 1 AdC LastInstrument, 0 @@ -5004,11 +5003,11 @@ Proc PEFunction_DecreaseInstrument Far Mov AX, 1 Ret -EndP PEFunction_DecreaseInstrument +;EndP PEFunction_DecreaseInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_IncreaseInstrument Far +Proc PEFunction_IncreaseInstrument Far Cmp LastInstrument, 99 AdC LastInstrument, 0 @@ -5016,11 +5015,11 @@ Proc PEFunction_IncreaseInstrument Far Mov AX, 1 Ret -EndP PEFunction_IncreaseInstrument +;EndP PEFunction_IncreaseInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_DecreaseOctave Far +Proc PEFunction_DecreaseOctave Far Push CS Pop DS @@ -5031,11 +5030,11 @@ Proc PEFunction_DecreaseOctave Far Mov AX, 1 Ret -EndP PEFunction_DecreaseOctave +;EndP PEFunction_DecreaseOctave ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_IncreaseOctave Far +Proc PEFunction_IncreaseOctave Far Push CS Pop DS @@ -5046,11 +5045,11 @@ Proc PEFunction_IncreaseOctave Far Mov AX, 1 Ret -EndP PEFunction_IncreaseOctave +;EndP PEFunction_IncreaseOctave ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PatternCursorPos2 Far ; Tens column of ins. +Proc PE_PatternCursorPos2 Far ; Tens column of ins. Test CL, CL JZ PE_PatternCursorPos2_1 @@ -5097,11 +5096,11 @@ PE_PatternCursorPos2_1: Xor AX, AX Ret -EndP PE_PatternCursorPos2 +;EndP PE_PatternCursorPos2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PatternCursorPos3 Far ; Unit column of ins. +Proc PE_PatternCursorPos3 Far ; Unit column of ins. Test CL, CL JZ PE_PatternCursorPos3_1 @@ -5144,11 +5143,11 @@ PE_PatternCursorPos3_1: Xor AX, AX Ret -EndP PE_PatternCursorPos3 +;EndP PE_PatternCursorPos3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PatternCursorPos4 Far ; Tens column of vol. +Proc PE_PatternCursorPos4 Far ; Tens column of vol. Test CL, CL JZ PE_PatternCursorPos4_1 @@ -5250,11 +5249,11 @@ PE_PatternCursorPos4_1: Xor AX, AX Ret -EndP PE_PatternCursorPos4 +;EndP PE_PatternCursorPos4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_VolumePan Far +Proc PE_VolumePan Far Xor VolumePan, 80h Mov SI, Offset PanningControlSetMsg @@ -5269,11 +5268,11 @@ PE_VolumePan1: Mov AX, 1 Ret -EndP PE_VolumePan +;EndP PE_VolumePan ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PatternCursorPos5 Far ; Unit column of vol. +Proc PE_PatternCursorPos5 Far ; Unit column of vol. Test CL, CL JZ PE_PatternCursorPos5_1 @@ -5353,11 +5352,11 @@ PE_PatternCursorPos5_1: Xor AX, AX Ret -EndP PE_PatternCursorPos5 +;EndP PE_PatternCursorPos5 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PatternCursorPos6 Far +Proc PE_PatternCursorPos6 Far Test CL, CL JZ PE_PatternCursorPos6_2 @@ -5402,11 +5401,11 @@ PE_PatternCursorPos6_2: Xor AX, AX Ret -EndP PE_PatternCursorPos6 +;EndP PE_PatternCursorPos6 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PatternCursorPos7 Far +Proc PE_PatternCursorPos7 Far Test CL, CL JZ PE_PatternCursorPos7_3 @@ -5469,11 +5468,11 @@ PE_PatternCursorPos7_3: Xor AX, AX Ret -EndP PE_PatternCursorPos7 +;EndP PE_PatternCursorPos7 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PatternCursorPos8 Far +Proc PE_PatternCursorPos8 Far Test CL, CL JZ PE_PatternCursorPos8_3 @@ -5534,11 +5533,11 @@ PE_PatternCursorPos8_3: Xor AX, AX Ret -EndP PE_PatternCursorPos8 +;EndP PE_PatternCursorPos8 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_SetCommandCursor Far +Proc PE_SetCommandCursor Far Push CS Pop ES @@ -5548,11 +5547,11 @@ Proc PE_SetCommandCursor Far Ret -EndP PE_SetCommandCursor +;EndP PE_SetCommandCursor ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_MarkBeginBlock Far +Proc PEFunction_MarkBeginBlock Far Mov AX, Channel Mov BX, Row @@ -5596,11 +5595,11 @@ PEFunction_MarkBeginBlock5: Mov AX, 1 Ret -EndP PEFunction_MarkBeginBlock +;EndP PEFunction_MarkBeginBlock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_MarkEndBlock Far +Proc PEFunction_MarkEndBlock Far Mov AX, Channel Mov BX, Row @@ -5644,11 +5643,11 @@ PEFunction_MarkEndBlock5: Mov AX, 1 Ret -EndP PEFunction_MarkEndBlock +;EndP PEFunction_MarkEndBlock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_AltD Far +Proc PEFunction_AltD Far Mov AX, Channel Mov BX, Row @@ -5693,11 +5692,11 @@ PEFunction_AltD4: Mov AX, 1 Ret -EndP PEFunction_AltD +;EndP PEFunction_AltD ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_AltS Far +Proc PEFunction_AltS Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -5754,11 +5753,11 @@ PEFunction_AltS4: Mov AX, 1 Ret -EndP PEFunction_AltS +;EndP PEFunction_AltS ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEGetVolume ; Given DL = note, DH = instrument +Proc PEGetVolume ; Given DL = note, DH = instrument ; Returns DL, Carry if none Push AX BX DI DS @@ -5798,11 +5797,11 @@ PEGetVolumeEnd: Pop DS DI BX AX Ret -EndP PEGetVolume +;EndP PEGetVolume ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_AltK Far +Proc PEFunction_AltK Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -5987,11 +5986,11 @@ PEFunction_AltK2: Mov AX, 1 Ret -EndP PEFunction_AltK +;EndP PEFunction_AltK ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_AltL Far +Proc PEFunction_AltL Far Call Music_GetLastChannel ; AX = max channel. Mov BX, MaxRow @@ -6031,11 +6030,11 @@ PEFunction_AltL3: Mov AX, 1 Ret -EndP PEFunction_AltL +;EndP PEFunction_AltL ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_WipeBlock Far +Proc PEFunction_WipeBlock Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -6097,11 +6096,11 @@ PEFunction_WipeBlock1: Mov AX, 1 Ret -EndP PEFunction_WipeBlock +;EndP PEFunction_WipeBlock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_RollUp Far +Proc PEFunction_RollUp Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -6165,11 +6164,11 @@ PEFunction_RollUpEnd: Mov AX, 1 Ret -EndP PEFunction_RollUp +;EndP PEFunction_RollUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_RollDown Far +Proc PEFunction_RollDown Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -6233,11 +6232,11 @@ PEFunction_RollDownEnd: Mov AX, 1 Ret -EndP PEFunction_RollDown +;EndP PEFunction_RollDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_BlockHalve Far +Proc PEFunction_BlockHalve Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -6319,11 +6318,11 @@ PEFunction_BlockHalve4: Mov AX, 1 Ret -EndP PEFunction_BlockHalve +;EndP PEFunction_BlockHalve ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_BlockDouble Far +Proc PEFunction_BlockDouble Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -6423,11 +6422,11 @@ PEFunction_BlockDouble5: Mov AX, 1 Ret -EndP PEFunction_BlockDouble +;EndP PEFunction_BlockDouble ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_BlockSwap Far ; Alt-H... sorry. +Proc PEFunction_BlockSwap Far ; Alt-H... sorry. Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -6573,11 +6572,11 @@ PEFunction_BlockSwap7: Mov AX, 1 Ret -EndP PEFunction_BlockSwap +;EndP PEFunction_BlockSwap ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_BlockCopy Far +Proc PEFunction_BlockCopy Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -6656,11 +6655,11 @@ PEFunction_BlockCopy3: Mov AX, 1 Ret -EndP PEFunction_BlockCopy +;EndP PEFunction_BlockCopy ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_NoBlockMarkedMessage Far +Proc PEFunction_NoBlockMarkedMessage Far Mov DI, Offset O1_NoBlockMarkedList Mov CX, 2 @@ -6669,11 +6668,11 @@ Proc PEFunction_NoBlockMarkedMessage Far Mov AX, 1 Ret -EndP PEFunction_NoBlockMarkedMessage +;EndP PEFunction_NoBlockMarkedMessage ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_OutOfMemoryMessage Far +Proc PEFunction_OutOfMemoryMessage Far Call PE_FillHeader Call S_SaveScreen @@ -6687,11 +6686,11 @@ Proc PEFunction_OutOfMemoryMessage Far Mov AX, 1 Ret -EndP PEFunction_OutOfMemoryMessage +;EndP PEFunction_OutOfMemoryMessage ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_NoBlockData Far +Proc PEFunction_NoBlockData Far Mov DI, Offset O1_NoBlockDataList Mov CX, 2 @@ -6700,11 +6699,11 @@ Proc PEFunction_NoBlockData Far Mov AX, 1 Ret -EndP PEFunction_NoBlockData +;EndP PEFunction_NoBlockData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_BlockOverWrite Far +Proc PEFunction_BlockOverWrite Far Mov AX, BlockDataArea And AX, AX @@ -6775,11 +6774,11 @@ PEFunction_BlockOverWrite5: Mov AX, 1 Ret -EndP PEFunction_BlockOverWrite +;EndP PEFunction_BlockOverWrite ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_BlockPaste Far +Proc PEFunction_BlockPaste Far Mov AX, BlockDataArea And AX, AX @@ -6891,11 +6890,11 @@ PEFunction_BlockPaste2: Mov AX, BlockDataArea Jmp PEFunction_BlockOverWrite6 -EndP PEFunction_BlockPaste +;EndP PEFunction_BlockPaste ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_SecondBlockMix Far +Proc PEFunction_SecondBlockMix Far Mov BP, MaxRow Mov BX, Row @@ -7000,11 +6999,11 @@ PEFunction_SecondBlockMix5: Mov AX, 1 Ret -EndP PEFunction_SecondBlockMix +;EndP PEFunction_SecondBlockMix ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_BlockMix Far +Proc PEFunction_BlockMix Far Cmp BlockDataArea, 0 JE PEFunction_NoBlockData @@ -7086,11 +7085,11 @@ PEFunction_BlockMix6: Mov AX, 1 Ret -EndP PEFunction_BlockMix +;EndP PEFunction_BlockMix ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_UnMarkBlock Far +Proc PEFunction_UnMarkBlock Far Cmp BlockMark, 0 JZ PEFunction_UnMarkBlock1 @@ -7112,11 +7111,11 @@ PEFunction_UnMarkBlock2: Mov AX, 1 Ret -EndP PEFunction_UnMarkBlock +;EndP PEFunction_UnMarkBlock ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_SemiUp Far +Proc PEFunction_SemiUp Far Cmp [Word Ptr LastKeyBoard2+2], 1000h JE PEFunction_SemiUp6 @@ -7186,11 +7185,11 @@ PEFunction_SemiUp3: Mov AX, 1 Ret -EndP PEFunction_SemiUp +;EndP PEFunction_SemiUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_SemiDown Far +Proc PEFunction_SemiDown Far Cmp [Word Ptr LastKeyBoard2+2], 1E00h JE PEFunction_SemiDown6 @@ -7260,11 +7259,11 @@ PEFunction_SemiDown3: Mov AX, 1 Ret -EndP PEFunction_SemiDown +;EndP PEFunction_SemiDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_SlideCommand Far +Proc PEFunction_SlideCommand Far Mov DI, 15 Call PE_AddToUndoBuffer @@ -7348,11 +7347,11 @@ PEFunction_AltX2: Mov AX, 1 Ret -EndP PEFunction_SlideCommand +;EndP PEFunction_SlideCommand ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_WipeCommands Far +Proc PEFunction_WipeCommands Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -7411,11 +7410,11 @@ PEFunction_WipeCommands1: Mov AX, 1 Ret -EndP PEFunction_WipeCommands +;EndP PEFunction_WipeCommands ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_VolumeAmp Far +Proc PEFunction_VolumeAmp Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -7546,11 +7545,11 @@ PEFunction_VolumeAmp1: Mov AX, 1 Ret -EndP PEFunction_VolumeAmp +;EndP PEFunction_VolumeAmp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc GetPatternLength +Proc GetPatternLength Push AX Push BX @@ -7698,13 +7697,13 @@ GetPatternLength13: Mov AX, 1 RetF -EndP GetPatternLength +;EndP GetPatternLength ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -IF SHOWPATTERNLENGTH +%IF SHOWPATTERNLENGTH -Proc PE_ShowPatternLength Far +Proc PE_ShowPatternLength Far Push AX ; Just for stack length.. Call GetPatternLength @@ -7722,16 +7721,16 @@ Proc PE_ShowPatternLength Far Mov AX, 1 Ret -EndP PE_ShowPatternLength +;EndP PE_ShowPatternLength -ENDIF +%ENDIF ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� DecodePatternBytes DW 0 DecodePatternOffset DW 0 -Proc DecodePattern ; DS:SI points to pattern info to decode +Proc DecodePattern ; DS:SI points to pattern info to decode PushA Push DS @@ -7889,11 +7888,11 @@ DecodePatternEnd: Ret -EndP DecodePattern +;EndP DecodePattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc EncodePattern ; ES:DI points to area to deposit data +Proc EncodePattern ; ES:DI points to area to deposit data ; DX = length of data Push AX @@ -8070,13 +8069,13 @@ EncodePattern4: Pop AX Ret -EndP EncodePattern +;EndP EncodePattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_StorePattern +Proc PEFunction_StorePattern -IF NETWORKENABLED +%IF NETWORKENABLED Cmp PatternModified, 0 JE PEFunction_StorePattern5 @@ -8086,7 +8085,7 @@ IF NETWORKENABLED Call Network_AddWordToQueue PEFunction_StorePattern5: -ENDIF +%ENDIF Mov AX, PatternNumber Mov SI, AX @@ -8131,11 +8130,11 @@ PEFunction_StorePattern4: Mov AX, 1 RetF -EndP PEFunction_StorePattern +;EndP PEFunction_StorePattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_StoreCurrentPattern Far +Proc PEFunction_StoreCurrentPattern Far Push CS Pop DS @@ -8144,15 +8143,15 @@ Proc PEFunction_StoreCurrentPattern Far Mov AX, 1 Ret -EndP PEFunction_StoreCurrentPattern +;EndP PEFunction_StoreCurrentPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc NewPattern ; Reqs. AX = pattern +Proc NewPattern ; Reqs. AX = pattern -IF NETWORKENABLED +%IF NETWORKENABLED Call Network_UpdatePattern -ENDIF +%ENDIF Call Music_GetPattern Call DecodePattern @@ -8165,11 +8164,11 @@ ENDIF Ret -EndP NewPattern +;EndP NewPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_GotoPattern Far ; AX = pattern. +Proc PE_GotoPattern Far ; AX = pattern. Push CS Pop DS @@ -8191,15 +8190,15 @@ PE_GotoPattern1: Jmp Glbl_F2 -EndP PE_GotoPattern +;EndP PE_GotoPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include pe_trans.inc +%include "pe_trans.inc" ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_NextPattern Far +Proc PEFunction_NextPattern Far Cmp TracePlayback, 0 JE PEFunction_NextPatternNoTrace @@ -8231,11 +8230,11 @@ PEFunction_NextPattern1: Mov AX, 1 Ret -EndP PEFunction_NextPattern +;EndP PEFunction_NextPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_LastPattern Far +Proc PEFunction_LastPattern Far Cmp TracePlayback, 0 JE PEFunction_LastPatternNoTrace @@ -8267,10 +8266,10 @@ PEFunction_LastPattern1: Mov AX, 1 Ret -EndP PEFunction_LastPattern +;EndP PEFunction_LastPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Next4Patterns Far +Proc PEFunction_Next4Patterns Far Cmp PatternModified, 0 JE PEFunction_Next4Patterns2 @@ -8293,11 +8292,11 @@ PEFunction_Next4Patterns1: Mov AX, 1 Ret -EndP PEFunction_Next4Patterns +;EndP PEFunction_Next4Patterns ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Last4Patterns Far +Proc PEFunction_Last4Patterns Far Cmp PatternModified, 0 JE PEFunction_Last4Patterns2 @@ -8319,11 +8318,11 @@ PEFunction_Last4Patterns1: Mov AX, 1 Ret -EndP PEFunction_Last4Patterns +;EndP PEFunction_Last4Patterns ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_LastOrderPattern Far +Proc PEFunction_LastOrderPattern Far Cmp PatternModified, 0 JE PEFunction_LastOrderPattern3 @@ -8357,11 +8356,11 @@ PEFunction_LastOrderPattern1: Mov AX, 1 Ret -EndP PEFunction_LastOrderPattern +;EndP PEFunction_LastOrderPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_NextOrderPattern Far +Proc PEFunction_NextOrderPattern Far Cmp PatternModified, 0 JE PEFunction_NextOrderPattern3 @@ -8395,11 +8394,11 @@ PEFunction_NextOrderPattern1: Mov AX, 1 Ret -EndP PEFunction_NextOrderPattern +;EndP PEFunction_NextOrderPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Alt0 Far +Proc PEFunction_Alt0 Far Xor AX, AX Mov SkipValue, AX @@ -8410,11 +8409,11 @@ Proc PEFunction_Alt0 Far Ret -EndP PEFunction_Alt0 +;EndP PEFunction_Alt0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_BlockVolume Far +Proc PEFunction_BlockVolume Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -8467,11 +8466,11 @@ PEFunction_BlockVolume2: Mov AX, 1 Ret -EndP PEFunction_BlockVolume +;EndP PEFunction_BlockVolume ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_WipeExcessVolumes Far +Proc PEFunction_WipeExcessVolumes Far Cmp BlockMark, 0 JE PEFunction_NoBlockMarkedMessage @@ -8531,11 +8530,11 @@ PEFunction_WipeExcessVolumes4: Mov [SI+2], AL Jmp PEFunction_WipeExcessVolumes3 -EndP PEFunction_WipeExcessVolumes +;EndP PEFunction_WipeExcessVolumes ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_PlayCurrentNote Far +Proc PEFunction_PlayCurrentNote Far Mov AX, 64 Mul Row @@ -8548,7 +8547,7 @@ Proc PEFunction_PlayCurrentNote Far Mov DH, 32 Call Music_PlayNote -IF CHORDENTRY +%IF CHORDENTRY Push CS Pop DS @@ -8564,15 +8563,15 @@ IF CHORDENTRY Mov AX, 1 Ret -ELSE +%ELSE Jmp PEFunction_Down -ENDIF +%ENDIF -EndP PEFunction_PlayCurrentNote +;EndP PEFunction_PlayCurrentNote ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_PlayCurrentRow Far +Proc PEFunction_PlayCurrentRow Far Mov CX, 64 Mov DS, PatternDataArea @@ -8603,11 +8602,11 @@ PEFunction_PlayCurrentRow1: Jmp PEFunction_Down -EndP PEFunction_PlayCurrentRow +;EndP PEFunction_PlayCurrentRow ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_RestoreData Far +Proc PEFunction_RestoreData Far ; Mov PatternModified, 0 @@ -8634,11 +8633,11 @@ PEFunction_RestoreData1: Ret -EndP PEFunction_RestoreData +;EndP PEFunction_RestoreData ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_ToggleDefaultVolume Far +Proc PE_ToggleDefaultVolume Far Xor Flags, 1 Mov SI, Offset DefaultVolumeOn @@ -8653,11 +8652,11 @@ PEFunction_ToggleDefaultVolume1: Mov AX, 1 Ret -EndP PE_ToggleDefaultVolume +;EndP PE_ToggleDefaultVolume ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ToggleTemplate Far +Proc PEFunction_ToggleTemplate Far Test CentraliseCursor, 4 JZ ToggleTemplate2 @@ -8679,7 +8678,7 @@ ToggleTemplate2: Cmp AL, 4 JBE PEFunction_ToggleTemplate1 -Proc PEFunction_TemplateOff Far +Proc PEFunction_TemplateOff Far Xor AL, AL @@ -8689,13 +8688,13 @@ PEFunction_ToggleTemplate1: Mov AX, 1 Ret -EndP PEFunction_TemplateOff +;EndP PEFunction_TemplateOff -EndP PEFunction_ToggleTemplate +;EndP PEFunction_ToggleTemplate ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_GetCurrentPattern Far +Proc PE_GetCurrentPattern Far Mov AX, CS:PatternNumber Mov BX, CS:MaxRow @@ -8704,11 +8703,11 @@ Proc PE_GetCurrentPattern Far Ret -EndP PE_GetCurrentPattern +;EndP PE_GetCurrentPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_CheckWidth +Proc PE_CheckWidth Xor DX, DX ; Time to work out width Xor CX, CX ; Count of channels. @@ -8760,11 +8759,11 @@ PE_CheckWidth5: ; StC ; Ret -EndP PE_CheckWidth +;EndP PE_CheckWidth ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ViewTrack Far +Proc PEFunction_ViewTrack Far Mov DX, Channel Mov SI, Offset ViewChannels @@ -8828,11 +8827,11 @@ PEFunction_ViewTrack10: Mov AX, 1 Ret -EndP PEFunction_ViewTrack +;EndP PEFunction_ViewTrack ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ClearViews Far +Proc PEFunction_ClearViews Far Push CS Pop ES @@ -8849,11 +8848,11 @@ Proc PEFunction_ClearViews Far Mov AX, 1 Ret -EndP PEFunction_ClearViews +;EndP PEFunction_ClearViews ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_SelectColour Near +Proc PE_SelectColour Near MovZX AX, CL ; AL = row number @@ -8911,11 +8910,11 @@ PE_SelectColour3: PE_SelectColour6: Ret -EndP PE_SelectColour +;EndP PE_SelectColour ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_HilightCursor Near +Proc PE_HilightCursor Near Mov AX, [ES:DI] And AH, 8 @@ -8924,11 +8923,11 @@ Proc PE_HilightCursor Near Ret -EndP PE_HilightCursor +;EndP PE_HilightCursor ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_HilightView Near +Proc PE_HilightView Near Mov AX, 1 Cmp CS:Template, 0 @@ -9005,11 +9004,11 @@ PE_HilightView2: Ret -EndP PE_HilightView +;EndP PE_HilightView ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_GetChannelColour ; Puts colour in AH +Proc PE_GetChannelColour ; Puts colour in AH ; Param: BP = channel Push DS @@ -9028,11 +9027,11 @@ PE_GetChannelColour1: Ret -EndP PE_GetChannelColour +;EndP PE_GetChannelColour ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ViewCommon +Proc ViewCommon Push DS Push ES @@ -9066,12 +9065,12 @@ Proc ViewCommon Ret -EndP ViewCommon +;EndP ViewCommon ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ViewFull ; DS:SI = pattern data +Proc ViewFull ; DS:SI = pattern data ; ES:DI = screen pointer ; CS:BX = note data ; CX = row number @@ -9202,11 +9201,11 @@ ViewFull11: Mov BP, Offset CursorPositions Jmp PE_HilightView -EndP ViewFull +;EndP ViewFull ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ViewCompress ; DS:SI = pattern data +Proc ViewCompress ; DS:SI = pattern data ; ES:DI = screen pointer ; CS:BX = note data ; CX = row number @@ -9335,11 +9334,11 @@ ViewCompress11: Mov BP, Offset CursorPositions+9 Jmp PE_HilightView -EndP ViewCompress +;EndP ViewCompress ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ViewAllSmall ; DS:SI = pattern data +Proc ViewAllSmall ; DS:SI = pattern data ; ES:DI = screen pointer ; CS:BX = note data ; CX = row number @@ -9472,11 +9471,11 @@ ViewAllSmall11: Mov BP, Offset CursorPositions+18 Jmp PE_HilightView -EndP ViewAllSmall +;EndP ViewAllSmall ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ViewNote ; DS:SI = pattern data +Proc ViewNote ; DS:SI = pattern data ; ES:DI = screen pointer ; CS:BX = note data ; CX = row number @@ -9811,11 +9810,11 @@ ViewNoteEndHilight: Jmp PE_HilightView -EndP ViewNote +;EndP ViewNote ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ViewTiny ; DS:SI = pattern data +Proc ViewTiny ; DS:SI = pattern data ; ES:DI = screen pointer ; CS:BX = note data ; CX = row number @@ -10088,11 +10087,11 @@ ViewTinyEndHilight: Mov BP, Offset CursorPositions+36 Jmp PE_HilightView -EndP ViewTiny +;EndP ViewTiny ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ToggleDivision Far +Proc PEFunction_ToggleDivision Far Xor ViewDivision, 1 @@ -10108,65 +10107,65 @@ PEFunction_ToggleDivision1: Mov AX, 1 Ret -EndP PEFunction_ToggleDivision +;EndP PEFunction_ToggleDivision ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl0 Far +Proc PEFunction_Ctrl0 Far Mov AX, 0 Jmp PE_FastView -EndP PEFunction_Ctrl0 +;EndP PEFunction_Ctrl0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl1 Far +Proc PEFunction_Ctrl1 Far Mov AX, 1 Jmp PE_FastView -EndP PEFunction_Ctrl1 +;EndP PEFunction_Ctrl1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl2 Far +Proc PEFunction_Ctrl2 Far Mov AX, 2 Jmp PE_FastView -EndP PEFunction_Ctrl2 +;EndP PEFunction_Ctrl2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl3 Far +Proc PEFunction_Ctrl3 Far Mov AX, 3 Jmp PE_FastView -EndP PEFunction_Ctrl3 +;EndP PEFunction_Ctrl3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl4 Far +Proc PEFunction_Ctrl4 Far Mov AX, 4 Jmp PE_FastView -EndP PEFunction_Ctrl4 +;EndP PEFunction_Ctrl4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl5 Far +Proc PEFunction_Ctrl5 Far Mov AX, 5 Jmp PE_FastView -EndP PEFunction_Ctrl5 +;EndP PEFunction_Ctrl5 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_QuickViewSetup Far ; CX = num with div +Proc PEFunction_QuickViewSetup Far ; CX = num with div ; BX = num without div ; AH = type. Cmp ViewDivision, 0 @@ -10203,55 +10202,55 @@ PEFunction_QuickViewSetup2: Mov AX, 1 Ret -EndP PEFunction_QuickViewSetup +;EndP PEFunction_QuickViewSetup ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl_Shift1 Far +Proc PEFunction_Ctrl_Shift1 Far Mov AX, 100h Mov BX, 7 Mov CX, 6 Jmp PEFunction_QuickViewSetup -EndP PEFunction_Ctrl_Shift1 +;EndP PEFunction_Ctrl_Shift1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl_Shift2 Far +Proc PEFunction_Ctrl_Shift2 Far Mov AX, 200h Mov BX, 10 Mov CX, 9 Jmp PEFunction_QuickViewSetup -EndP PEFunction_Ctrl_Shift2 +;EndP PEFunction_Ctrl_Shift2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl_Shift3 Far +Proc PEFunction_Ctrl_Shift3 Far Mov AX, 300h Mov BX, 24 Mov CX, 18 Jmp PEFunction_QuickViewSetup -EndP PEFunction_Ctrl_Shift3 +;EndP PEFunction_Ctrl_Shift3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl_Shift4 Far +Proc PEFunction_Ctrl_Shift4 Far Mov AX, 400h Mov BX, 36 Mov CX, 24 Jmp PEFunction_QuickViewSetup -EndP PEFunction_Ctrl_Shift4 +;EndP PEFunction_Ctrl_Shift4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_FastView Far +Proc PE_FastView Far Dec AX ; AL = viewmethod Mov CL, AL @@ -10314,11 +10313,11 @@ PE_FastView6: Mov AX, 1 Ret -EndP PE_FastView +;EndP PE_FastView ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ViewLeft Far +Proc PEFunction_ViewLeft Far ; First find current channel. Mov DX, Channel Mov SI, Offset ViewChannels @@ -10341,11 +10340,11 @@ PEFunction_ViewLeft2: ; Else decrease channel Mov AX, 1 Ret -EndP PEFunction_ViewLeft +;EndP PEFunction_ViewLeft ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ViewRight Far +Proc PEFunction_ViewRight Far Mov DX, Channel Mov SI, Offset ViewChannels @@ -10369,11 +10368,11 @@ PEFunction_ViewRight2: Mov AX, 1 Ret -EndP PEFunction_ViewRight +;EndP PEFunction_ViewRight ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_AltRight Far +Proc PEFunction_AltRight Far Mov AX, Channel Inc AX @@ -10386,11 +10385,11 @@ PEFunction_AltRight1: Mov AX, 1 Ret -EndP PEFunction_AltRight +;EndP PEFunction_AltRight ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_AltLeft Far +Proc PEFunction_AltLeft Far Mov AX, Channel And AX, AX @@ -10403,11 +10402,11 @@ PEFunction_AltLeft1: Mov AX, 1 Ret -EndP PEFunction_AltLeft +;EndP PEFunction_AltLeft ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl_Home Far +Proc PEFunction_Ctrl_Home Far Mov AX, Row Sub AL, 1 @@ -10417,11 +10416,11 @@ Proc PEFunction_Ctrl_Home Far Mov AX, 1 Ret -EndP PEFunction_Ctrl_Home +;EndP PEFunction_Ctrl_Home ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Ctrl_End Far +Proc PEFunction_Ctrl_End Far Mov AX, Row Cmp AX, MaxRow @@ -10431,11 +10430,11 @@ Proc PEFunction_Ctrl_End Far Mov AX, 1 Ret -EndP PEFunction_Ctrl_End +;EndP PEFunction_Ctrl_End ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_AltUp Far +Proc PEFunction_AltUp Far Mov AX, TopRow Mov BX, Row @@ -10454,11 +10453,11 @@ PEFunction_AltUp1: Mov AX, 1 Ret -EndP PEFunction_AltUp +;EndP PEFunction_AltUp ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_AltDown Far +Proc PEFunction_AltDown Far Mov AX, TopRow Mov BX, MaxRow @@ -10478,27 +10477,27 @@ PEFunction_AltDown1: Mov AX, 1 Ret -EndP PEFunction_AltDown +;EndP PEFunction_AltDown ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_GetLastInstrument Far +Proc PE_GetLastInstrument Far MovZX BX, [CS:LastInstrument] Dec BX Ret -EndP PE_GetLastInstrument +;EndP PE_GetLastInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_SwapInstruments Far ; DH/DL = instruments +Proc PE_SwapInstruments Far ; DH/DL = instruments ; to swap. Call Music_GetSongSegment Mov DS, AX Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov TempVariableArea2, DX Mov AX, PatternNumber @@ -10520,7 +10519,7 @@ Proc PE_SwapInstruments Far ; DH/DL = instruments Call S_DrawSmallBox Mov TempVariableArea3, 0 - Assume DS:Nothing + ;Assume DS:Nothing PE_SwapInstruments1: ; Draw % Complete on screen first Mov AX, 100 @@ -10531,7 +10530,7 @@ PE_SwapInstruments1: ; Draw % Complete on screen firs Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov SI, Offset CompleteMsg Mov DI, (34+26*80)*2 @@ -10542,7 +10541,7 @@ PE_SwapInstruments1: ; Draw % Complete on screen firs Mov AX, TempVariableArea3 Mov PatternNumber, AX - Assume DS:Nothing + ;Assume DS:Nothing Call Music_GetPattern Call DecodePattern ; Next pattern should be in mem @@ -10602,7 +10601,7 @@ PE_SwapInstruments2: Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov AX, TempVariableArea Mov PatternNumber, AX @@ -10611,16 +10610,16 @@ PE_SwapInstruments2: Ret -EndP PE_SwapInstruments - Assume DS:Nothing +;EndP PE_SwapInstruments + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_InsertInstrument Far ; DL = instrument +Proc PE_InsertInstrument Far ; DL = instrument Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov TempVariableArea2, DX Mov AX, PatternNumber @@ -10642,7 +10641,7 @@ Proc PE_InsertInstrument Far ; DL = instrument Call S_DrawSmallBox Mov TempVariableArea3, 0 - Assume DS:Nothing + ;Assume DS:Nothing PE_InsertInstrument1: ; Draw % Complete on screen first Mov AX, 100 @@ -10653,7 +10652,7 @@ PE_InsertInstrument1: ; Draw % Complete on screen first Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov SI, Offset CompleteMsg Mov DI, (34+26*80)*2 @@ -10664,7 +10663,7 @@ PE_InsertInstrument1: ; Draw % Complete on screen first Mov AX, TempVariableArea3 Mov PatternNumber, AX - Assume DS:Nothing + ;Assume DS:Nothing Call Music_GetPattern Call DecodePattern ; Next pattern should be in mem @@ -10714,7 +10713,7 @@ PE_InsertInstrument2: Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov AX, TempVariableArea Mov PatternNumber, AX @@ -10723,16 +10722,16 @@ PE_InsertInstrument2: Ret -EndP PE_InsertInstrument - Assume DS:Nothing +;EndP PE_InsertInstrument + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_DeleteInstrument Far ; DL = instrument +Proc PE_DeleteInstrument Far ; DL = instrument Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov TempVariableArea2, DX Mov AX, PatternNumber @@ -10754,7 +10753,7 @@ Proc PE_DeleteInstrument Far ; DL = instrument Call S_DrawSmallBox Mov TempVariableArea3, 0 - Assume DS:Nothing + ;Assume DS:Nothing PE_DeleteInstrument1: ; Draw % Complete on screen first Mov AX, 100 @@ -10765,7 +10764,7 @@ PE_DeleteInstrument1: ; Draw % Complete on screen first Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov SI, Offset CompleteMsg Mov DI, (34+26*80)*2 @@ -10776,7 +10775,7 @@ PE_DeleteInstrument1: ; Draw % Complete on screen first Mov AX, TempVariableArea3 Mov PatternNumber, AX - Assume DS:Nothing + ;Assume DS:Nothing Call Music_GetPattern Call DecodePattern ; Next pattern should be in mem @@ -10823,7 +10822,7 @@ PE_DeleteInstrument2: Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov AX, TempVariableArea Mov PatternNumber, AX @@ -10832,16 +10831,16 @@ PE_DeleteInstrument2: Ret -EndP PE_DeleteInstrument - Assume DS:Nothing +;EndP PE_DeleteInstrument + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_UpdateInstruments Far ; ES:DI = instrument table +Proc PE_UpdateInstruments Far ; ES:DI = instrument table ; DL = instrument number Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov Byte Ptr TempVariableArea2, DL Mov AX, PatternNumber @@ -10866,7 +10865,7 @@ Proc PE_UpdateInstruments Far ; ES:DI = instrument ta Call S_DrawSmallBox Mov TempVariableArea3, 0 - Assume DS:Nothing + ;Assume DS:Nothing PE_UpdateInstruments1: ; Draw % Complete on screen first Mov AX, 100 @@ -10877,7 +10876,7 @@ PE_UpdateInstruments1: ; Draw % Complete on screen fi Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov SI, Offset CompleteMsg Mov DI, (34+26*80)*2 @@ -10887,7 +10886,7 @@ PE_UpdateInstruments1: ; Draw % Complete on screen fi Mov AX, TempVariableArea3 Mov PatternNumber, AX - Assume DS:Nothing + ;Assume DS:Nothing Call Music_GetPattern Call DecodePattern ; Next pattern should be in mem @@ -10957,7 +10956,7 @@ PE_UpdateInstruments2: Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov AX, TempVariableArea Mov PatternNumber, AX @@ -10966,13 +10965,13 @@ PE_UpdateInstruments2: Ret -EndP PE_UpdateInstruments - Assume DS:Nothing +;EndP PE_UpdateInstruments + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Alt_F9 Far - Assume DS:Pattern +Proc PEFunction_Alt_F9 Far + ;Assume DS:Pattern Mov AX, Channel Call Music_ToggleChannel @@ -10980,34 +10979,34 @@ Proc PEFunction_Alt_F9 Far Mov AX, 1 Ret -EndP PEFunction_Alt_F9 - Assume DS:Nothing +;EndP PEFunction_Alt_F9 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_MuteNext Far - Assume DS:Pattern +Proc PEFunction_MuteNext Far + ;Assume DS:Pattern Call PEFunction_Alt_F9 Jmp PEFunction_Tab -EndP PEFunction_MuteNext +;EndP PEFunction_MuteNext ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_MutePrevious Far - Assume DS:Pattern +Proc PEFunction_MutePrevious Far + ;Assume DS:Pattern Sub Channel, 1 AdC Channel, 0 Jmp PEFunction_Alt_F9 -EndP PEFunction_MutePrevious +;EndP PEFunction_MutePrevious ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Alt_F10 Far - Assume DS:Pattern +Proc PEFunction_Alt_F10 Far + ;Assume DS:Pattern Mov AX, Channel Call Music_SoloChannel @@ -11015,32 +11014,32 @@ Proc PEFunction_Alt_F10 Far Mov AX, 1 Ret -EndP PEFunction_Alt_F10 - Assume DS:Nothing +;EndP PEFunction_Alt_F10 + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_SoloGotoNext Far +Proc PEFunction_SoloGotoNext Far Call PEFunction_Alt_F10 Jmp PEFunction_Tab -EndP PEFunction_SoloGotoNext +;EndP PEFunction_SoloGotoNext ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_UnmuteAll Far +Proc PEFunction_UnmuteAll Far Call Music_UnmuteAll Mov AX, 1 Ret -EndP PEFunction_UnmuteAll +;EndP PEFunction_UnmuteAll ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_ShowOrder Far ; DX = order. +Proc PE_ShowOrder Far ; DX = order. Call S_GetDestination Mov CX, 32 @@ -11068,12 +11067,12 @@ PE_ShowOrder2: Ret -EndP PE_ShowOrder +;EndP PE_ShowOrder ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_PlayCurrentPosition Far - Assume DS:Pattern +Proc PE_PlayCurrentPosition Far + ;Assume DS:Pattern Call I_ClearTables @@ -11087,13 +11086,13 @@ Proc PE_PlayCurrentPosition Far Mov AX, 1 Ret -EndP PE_PlayCurrentPosition - Assume DS:Nothing +;EndP PE_PlayCurrentPosition + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_SetPlayMark Far - Assume DS:Pattern +Proc PEFunction_SetPlayMark Far + ;Assume DS:Pattern Cmp PlayMarkOn, 1 ; If on.. JNE PEFunction_SetPlayMarkNew @@ -11120,18 +11119,18 @@ PEFunction_SetPlayMarkEnd: Mov AX, 1 Ret -EndP PEFunction_SetPlayMark - Assume DS:Nothing +;EndP PEFunction_SetPlayMark + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_F7 Far ; If no mark is set, use +Proc PE_F7 Far ; If no mark is set, use ; current pattern & row Call I_ClearTables Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov CX, PatternNumber Mov BX, Row @@ -11182,12 +11181,12 @@ PE_F7_2: Mov AX, 1 Ret -EndP PE_F7 +;EndP PE_F7 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ToggleTracking Far - Assume DS:Pattern +Proc PEFunction_ToggleTracking Far + ;Assume DS:Pattern Mov SI, Offset NoViewChannelTrackingMsg Xor ViewChannelTracking, 1 @@ -11201,13 +11200,13 @@ PEFunction_ToggleTracking1: Mov AX, 1 Ret -EndP PEFunction_ToggleTracking - Assume DS:Nothing +;EndP PEFunction_ToggleTracking + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ToggleRowHilight Far - Assume DS:Pattern +Proc PEFunction_ToggleRowHilight Far + ;Assume DS:Pattern Mov SI, Offset NoRowHilightMsg Xor CentraliseCursor, 2 @@ -11222,13 +11221,13 @@ PEFunction_ToggleRowHilight1: Mov AX, 1 Ret -EndP PEFunction_ToggleRowHilight - Assume DS:Nothing +;EndP PEFunction_ToggleRowHilight + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ToggleCentralise Far - Assume DS:Pattern +Proc PEFunction_ToggleCentralise Far + ;Assume DS:Pattern Mov SI, Offset NoCentraliseCursorMsg Xor CentraliseCursor, 1 @@ -11243,13 +11242,13 @@ PEFunction_ToggleCentralise1: Mov AX, 1 Ret -EndP PEFunction_ToggleCentralise - Assume DS:Nothing +;EndP PEFunction_ToggleCentralise + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_ToggleTrace Far - Assume DS:Pattern +Proc PEFunction_ToggleTrace Far + ;Assume DS:Pattern Mov SI, Offset NoTraceMsg Xor TracePlayback, 1 @@ -11266,12 +11265,12 @@ PEFunction_ToggleTrace1: Mov AX, 1 Ret -EndP PEFunction_ToggleTrace - Assume DS:Nothing +;EndP PEFunction_ToggleTrace + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_GetPatternConfigOffset Far +Proc PE_GetPatternConfigOffset Far Push CS Pop DS @@ -11280,11 +11279,11 @@ Proc PE_GetPatternConfigOffset Far Ret -EndP PE_GetPatternConfigOffset +;EndP PE_GetPatternConfigOffset ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ReleaseUndoMemory +Proc ReleaseUndoMemory Test AX, AX JZ ReleaseUndoMemoryEnd @@ -11312,11 +11311,11 @@ ReleaseUndoMemoryEMS: ReleaseUndoMemoryEnd: Ret -EndP ReleaseUndoMemory +;EndP ReleaseUndoMemory ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_AddToUndoBuffer Far ; 1) Release oldest data. +Proc PE_AddToUndoBuffer Far ; 1) Release oldest data. ; 2) Shift all stuff down. ; 3) Store newest data. @@ -11328,7 +11327,7 @@ Proc PE_AddToUndoBuffer Far ; 1) Release oldest data. Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov AX, DI Cmp AL, 22 @@ -11416,12 +11415,12 @@ PE_AddToUndoBufferEnd: Ret -EndP PE_AddToUndoBuffer - Assume DS:Nothing +;EndP PE_AddToUndoBuffer + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_ClearUndoBuffer Far +Proc PE_ClearUndoBuffer Far Push EAX Push CX @@ -11430,7 +11429,7 @@ Proc PE_ClearUndoBuffer Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov CX, 10 Mov SI, Offset UndoBuffer @@ -11453,12 +11452,12 @@ PE_ClearUndoBuffer1: Ret -EndP PE_ClearUndoBuffer - Assume DS:Nothing +;EndP PE_ClearUndoBuffer + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_Undo Far +Proc PEFunction_Undo Far Mov SelectUndo, 0 @@ -11469,13 +11468,13 @@ Proc PEFunction_Undo Far Mov AX, 1 Ret -EndP PEFunction_Undo +;EndP PEFunction_Undo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_DrawUndo Far +Proc PEFunction_DrawUndo Far - Assume DS:Pattern + ;Assume DS:Pattern Push CS Pop DS @@ -11507,16 +11506,16 @@ PEFunction_DrawUndo1: Ret -EndP PEFunction_DrawUndo - Assume DS:Nothing +;EndP PEFunction_DrawUndo + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_PreUndo Far +Proc PEFunction_PreUndo Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Call S_GetDestination Mov AX, 160 @@ -11534,16 +11533,16 @@ PEFunction_PreUndo1: Ret -EndP PEFunction_PreUndo - Assume DS:Nothing +;EndP PEFunction_PreUndo + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEFunction_PostUndo Far +Proc PEFunction_PostUndo Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov BX, SelectUndo @@ -11601,7 +11600,7 @@ PEFunction_PostUndoEMS: PEFunction_PostUndoEnterEnd: Mov DS, AX - Assume DS:Nothing + ;Assume DS:Nothing Xor SI, SI Call DecodePattern @@ -11615,12 +11614,12 @@ PEFunction_PostUndoEnd: Mov AX, 4 Ret -EndP PEFunction_PostUndo +;EndP PEFunction_PostUndo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc ToggleFastVolume Far - Assume DS:Pattern +Proc ToggleFastVolume Far + ;Assume DS:Pattern Mov SI, Offset NoFastVolumeMsg Xor CentraliseCursor, 4 @@ -11651,12 +11650,12 @@ ToggleFastVolume3: Mov AX, 1 Ret -EndP ToggleFastVolume - Assume DS:Nothing +;EndP ToggleFastVolume + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PECheckModified Far +Proc PECheckModified Far Cmp CS:Modified, 0 JE PECheckModified1 @@ -11675,22 +11674,22 @@ Proc PECheckModified Far PECheckModified1: Ret -EndP PECheckModified +;EndP PECheckModified ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PEResetModified Far +Proc PEResetModified Far Mov CS:Modified, 0 Ret -EndP PEResetModified +;EndP PEResetModified ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_SetPatternLength Far - Assume DS:Pattern +Proc PE_SetPatternLength Far + ;Assume DS:Pattern ; Mov AX, MaxRow ; Inc AX @@ -11699,7 +11698,7 @@ Proc PE_SetPatternLength Far Mov PatternLengthStart, AX Mov PatternLengthEnd, AX - Assume DS:Nothing + ;Assume DS:Nothing Mov CX, 4 Mov DI, Offset O1_SetPatternLength @@ -11710,7 +11709,7 @@ Proc PE_SetPatternLength Far Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Call PEFunction_StorePattern @@ -11726,14 +11725,14 @@ PE_SetPatternLength3: JA PE_SetPatternLength4 Mov PatternNumber, AX - Assume DS:Nothing + ;Assume DS:Nothing Call Music_GetPattern Call DecodePattern ; Next pattern should be in mem Push CS Pop DS - Assume DS:Pattern + ;Assume DS:Pattern Mov AX, PatternSetLength Mov PatternModified, 1 @@ -11754,44 +11753,44 @@ PE_SetPatternLength2: Mov AX, 1 Ret -EndP PE_SetPatternLength - Assume DS:Nothing +;EndP PE_SetPatternLength + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_LeftBrace Far +Proc PE_LeftBrace Far Jmp Glbl_LeftBrace -EndP PE_LeftBrace +;EndP PE_LeftBrace ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_RightBrace Far +Proc PE_RightBrace Far Jmp Glbl_RightBrace -EndP PE_RightBrace +;EndP PE_RightBrace ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_LeftSquareBracket Far +Proc PE_LeftSquareBracket Far Jmp Glbl_LeftSquareBracket -EndP PE_LeftSquareBracket +;EndP PE_LeftSquareBracket ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_RightSquareBracket Far +Proc PE_RightSquareBracket Far Jmp Glbl_RightSquareBracket -EndP PE_RightSquareBracket +;EndP PE_RightSquareBracket ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDI_SetInstrument Far +Proc MIDI_SetInstrument Far Test Byte Ptr CS:CentraliseCursor, 16 JZ MIDI_SetInstrument2 @@ -11813,12 +11812,12 @@ MIDI_SetInstrument1: Mov AX, 1 Ret -EndP MIDI_SetInstrument +;EndP MIDI_SetInstrument ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_MIDIAfterTouch Far - Assume DS:Pattern +Proc PE_MIDIAfterTouch Far + ;Assume DS:Pattern Cmp MIDIInputEnabled, 0 JNE PE_MIDIAfterTouch2 @@ -11849,7 +11848,7 @@ PE_MIDIAfterTouch2: Mov Word Ptr [Modified], 101h Add SI, AX Mov DS, PatternDataArea - Assume DS:Nothing + ;Assume DS:Nothing Cmp SI, 64000 JAE PE_MIDIAfterTouch1 @@ -11859,13 +11858,13 @@ PE_MIDIAfterTouch1: Mov AX, 1 Ret -EndP PE_MIDIAfterTouch - Assume DS:Nothing +;EndP PE_MIDIAfterTouch + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_MIDINoteOff Far - Assume DS:Pattern +Proc PE_MIDINoteOff Far + ;Assume DS:Pattern Cmp MIDIInputEnabled, 0 JNE PE_MIDINoteOff1 @@ -11907,7 +11906,7 @@ PE_MIDINoteOff1: JAE PE_MIDINoteOff3 Mov DS, PatternDataArea - Assume DS:Nothing + ;Assume DS:Nothing Cmp Word Ptr [SI], NONOTE JE PE_MIDINoteOff4 @@ -11959,13 +11958,13 @@ PE_MIDINoteOff3: Mov AX, 1 Ret -EndP PE_MIDINoteOff - Assume DS:Nothing +;EndP PE_MIDINoteOff + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_MIDINote Far - Assume DS:Pattern +Proc PE_MIDINote Far + ;Assume DS:Pattern Cmp MIDIInputEnabled, 0 JNE PE_MIDINote6 @@ -12084,7 +12083,7 @@ PE_MIDINote5: JAE PE_MIDINote1 Mov DS, PatternDataArea - Assume DS:Nothing + ;Assume DS:Nothing Mov [SI], CX Mov [SI+2], BL @@ -12105,12 +12104,12 @@ PE_MIDINote1: Mov AX, 1 Ret -EndP PE_MIDINote - Assume DS:Nothing +;EndP PE_MIDINote + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_TranslateMIDI Far +Proc PE_TranslateMIDI Far ; Given DL = 0->127, return DL = 0->127 ; Given DH = 0->127, return DH=0->64 @@ -12169,23 +12168,23 @@ PE_TranslateMIDIVolumeEnd: Pop AX Ret -EndP PE_TranslateMIDI +;EndP PE_TranslateMIDI ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_RestoreMIDINote Far +Proc PE_RestoreMIDINote Far Add DL, 60 Sub DL, CS:MIDICentralNote Ret -EndP PE_RestoreMIDINote +;EndP PE_RestoreMIDINote ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_CycleMIDIPlayTrigger Far - Assume DS:Pattern +Proc PE_CycleMIDIPlayTrigger Far + ;Assume DS:Pattern Mov AL, MIDIPlayTrigger Inc AX @@ -12211,13 +12210,13 @@ PE_CycleMIDIPlayTriggerEnd: Mov AX, 1 Ret -EndP PE_CycleMIDIPlayTrigger - Assume DS:Nothing +;EndP PE_CycleMIDIPlayTrigger + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc MIDIInputToggle Far ; Ctrl-Scroll Lock - Assume DS:Pattern +Proc MIDIInputToggle Far ; Ctrl-Scroll Lock + ;Assume DS:Pattern Mov SI, Offset MIDIInputEnabledMsg Xor MIDIInputEnabled, 1 @@ -12230,21 +12229,21 @@ MIDIInputToggle1: Mov AX, 1 Ret -EndP MIDIInputToggle - Assume DS:Nothing +;EndP MIDIInputToggle + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_SetPatternModified Far +Proc PE_SetPatternModified Far Mov Word Ptr [CS:Modified], 101h Ret -EndP PE_SetPatternModified +;EndP PE_SetPatternModified ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_SaveCurrentPattern Far +Proc PE_SaveCurrentPattern Far PushAD Push DS @@ -12263,11 +12262,11 @@ Proc PE_SaveCurrentPattern Far PopAD Ret -EndP PE_SaveCurrentPattern +;EndP PE_SaveCurrentPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_RestoreCurrentPattern Far +Proc PE_RestoreCurrentPattern Far PushAD Push DS @@ -12281,11 +12280,11 @@ Proc PE_RestoreCurrentPattern Far PopAD Ret -EndP PE_RestoreCurrentPattern +;EndP PE_RestoreCurrentPattern ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc PE_NewPattern Far +Proc PE_NewPattern Far Mov AX, CS:PatternNumber Call Music_GetPattern @@ -12294,7 +12293,7 @@ Proc PE_NewPattern Far Mov CS:PatternModified, 0 Ret -EndP PE_NewPattern +;EndP PE_NewPattern ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_s.s b/it_s.s index 465833b..7b1b3a7 100644 --- a/it_s.s +++ b/it_s.s @@ -2,20 +2,17 @@ ;� Screen Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -include switch.inc - - Jumps - .386 +%include "switch.inc" Segment Mouse BYTE Public 'Code' - Extrn MouseCharacterGenerationOffset:Word + extern MouseCharacterGenerationOffset:Word EndS - Extrn E_UnInitEMS:Far - Extrn DrawMouse:Far, RestoreMouse:Far, ForceMouseRestore:Far - Extrn RestoreMouseGraphics:Far, NewCharacterSet:Far - Extrn MouseSecondSetEnable:Far, MouseSecondSetDisable:Far - Extrn MouseUpdateEnable:Far, MouseUpdateDisable:Far + extern E_UnInitEMS:Far + extern DrawMouse:Far, RestoreMouse:Far, ForceMouseRestore:Far + extern RestoreMouseGraphics:Far, NewCharacterSet:Far + extern MouseSecondSetEnable:Far, MouseSecondSetDisable:Far + extern MouseUpdateEnable:Far, MouseUpdateDisable:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � @@ -56,10 +53,10 @@ EndS ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Screen BYTE Public 'Code' USE16 - Assume CS:Screen, DS:Screen + ;Assume CS:Screen, DS:Screen CREATENEWLOGFILE EQU 0 -include debug.inc +%include "debug.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � @@ -292,9 +289,9 @@ BoxDefinitions Label Byte DB 153,21h,148,21h,152,21h,146,21h,32, 3h,145,23h,151,21h,143,23h,150,23h ; 27 DB 128,23h,129,23h,141,21h,131,23h,32,23h,132,21h,140,21h,134,21h,135,21h DB 128,21h,129,21h,141,21h,131,21h,32,23h,132,23h,140,21h,134,23h,135,23h -IF TUTORIAL +%IF TUTORIAL DB 128,13h,129,13h,130,13h,131,13h,32,13h,132,13h,133,13h,134,13h,135,13h -ENDIF +%ENDIF CharacterGenerationOffset DW 512*32 VGAFlags DB 0 ; Bit 0 = override VGA detection @@ -313,13 +310,13 @@ TestBytes DB ' ; - Defines basic characters (128->163) ; - AX returns non-zero if error occurs -Proc S_InitScreen Far +Proc S_InitScreen Far Push DS Push CS Pop DS - Assume DS:Screen + ;Assume DS:Screen Mov DirectVideo, 0 @@ -375,10 +372,10 @@ S_InitScreen5: Push Mouse Pop FS - Assume FS:Mouse + ;Assume FS:Mouse Mov FS:MouseCharacterGenerationOffset, 2000h - Assume FS:Nothing + ;Assume FS:Nothing S_InitScreen8: Call S_ResetSequencer @@ -432,12 +429,12 @@ S_InitScreen6: Pop DS Ret -EndP S_InitScreen - Assume DS:Nothing +;EndP S_InitScreen + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_SaveScreen Far +Proc S_SaveScreen Far PushF PushAD @@ -452,13 +449,13 @@ Proc S_SaveScreen Far Xor SI, SI Xor DI, DI -IF USE32BITSCREENCOPY +%IF USE32BITSCREENCOPY Mov CX, 2000 Rep MovsD -ELSE +%ELSE Mov CX, 4000 Rep MovsW -ENDIF +%ENDIF Call ForceMouseRestore @@ -469,11 +466,11 @@ ENDIF Ret -EndP S_SaveScreen +;EndP S_SaveScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_RestoreScreen Far +Proc S_RestoreScreen Far PushF PushAD @@ -488,13 +485,13 @@ Proc S_RestoreScreen Far Pop DS Xor SI, SI Xor DI, DI -IF USE32BITSCREENCOPY +%IF USE32BITSCREENCOPY Mov CX, 2000 Rep MovsD -ELSE +%ELSE Mov CX, 4000 Rep MovsW -ENDIF +%ENDIF Call ForceMouseRestore @@ -507,11 +504,11 @@ ENDIF Ret -EndP S_RestoreScreen +;EndP S_RestoreScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_Set80x50Mode Far +Proc S_Set80x50Mode Far Push AX Push DX @@ -562,22 +559,22 @@ S_Set80x50Mode1: Ret -EndP S_Set80x50Mode +;EndP S_Set80x50Mode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_SetPalette2 Far +Proc S_SetPalette2 Far PushA Push DS Jmp SP3 -EndP S_SetPalette2 +;EndP S_SetPalette2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_SetPalette Far +Proc S_SetPalette Far PushA Push DS @@ -606,7 +603,7 @@ SP3: Push CS Pop DS - Assume DS:Screen + ;Assume DS:Screen Mov SI, Offset PaletteDefs SP2: @@ -616,18 +613,18 @@ SP2: Pop DS - Assume DS:Nothing + ;Assume DS:Nothing PopA Ret -EndP S_SetPalette +;EndP S_SetPalette ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� SequencerSemaphore DB 0FFh -Proc S_SetSequencer Far +Proc S_SetSequencer Far Inc [CS:SequencerSemaphore] JNZ S_SetSequencer1 @@ -656,11 +653,11 @@ Proc S_SetSequencer Far S_SetSequencer1: Ret -EndP S_SetSequencer +;EndP S_SetSequencer ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_ResetSequencer Far +Proc S_ResetSequencer Far Dec [CS:SequencerSemaphore] JNS S_ResetSequencer1 @@ -688,11 +685,11 @@ Proc S_ResetSequencer Far S_ResetSequencer1: Ret -EndP S_ResetSequencer +;EndP S_ResetSequencer ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_RedefineCharacters Far +Proc S_RedefineCharacters Far ; DS:SI = Offset to characterdefs ; BX = Number of characters ; AX = First character @@ -740,11 +737,11 @@ RedefineCharacters1: Ret -EndP S_RedefineCharacters +;EndP S_RedefineCharacters ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_DefineSmallNumbers Far +Proc S_DefineSmallNumbers Far Push DS Push SI @@ -841,11 +838,11 @@ S_DefineSmallNumbers5: Ret -EndP S_DefineSmallNumbers +;EndP S_DefineSmallNumbers ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_UnInitScreen Far +Proc S_UnInitScreen Far Push ES @@ -860,11 +857,11 @@ Proc S_UnInitScreen Far Ret -EndP S_UnInitScreen +;EndP S_UnInitScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_GetDestination Far +Proc S_GetDestination Far Mov ES, CS:ScreenDataArea @@ -879,42 +876,42 @@ Proc S_GetDestination Far S_GetDestination1: Ret -EndP S_GetDestination +;EndP S_GetDestination ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_ClearScreen Far +Proc S_ClearScreen Far Push CX Push ES Push DI Call S_GetDestination -IF USE32BITSCREENCOPY +%IF USE32BITSCREENCOPY Mov CX, 2000 Mov EAX, 03000300h Xor DI, DI Rep StosD -ELSE +%ELSE Mov CX, 4000 Mov AX, 300h Xor DI, DI Rep StosW -ENDIF +%ENDIF Pop DI Pop ES Pop CX Ret -EndP S_ClearScreen +;EndP S_ClearScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ; Style - Low byte: Box style number ; - High byte: Flags - Bit 0: Filled box/empty box; on = don't fill -Proc S_DrawBox Far +Proc S_DrawBox Far ARG Style, Bottom, Right, Top, Left Push BP @@ -1007,11 +1004,11 @@ DrawBox3: Pop BP Ret -EndP S_DrawBox +;EndP S_DrawBox ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_UpdateScreen Far +Proc S_UpdateScreen Far Cmp CS:DirectVideo, 0 JNE S_UpdateScreen1 @@ -1047,13 +1044,13 @@ S_UpdateScreen2: Mov DS, CS:ScreenDataArea Mov CX, 0B800h Mov ES, CX -IF USE32BITSCREENCOPY +%IF USE32BITSCREENCOPY Mov CX, 2000 Rep MovsD -ELSE +%ELSE Mov CX, 4000 Rep MovsW -ENDIF +%ENDIF Mov ES, CS:ScreenDataArea Call RestoreMouse @@ -1067,11 +1064,11 @@ ENDIF S_UpdateScreen1: Ret -EndP S_UpdateScreen +;EndP S_UpdateScreen ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_SetDirectMode Far +Proc S_SetDirectMode Far Cmp CS:DirectVideo, AL JE S_SetDirectMode2 @@ -1094,13 +1091,13 @@ S_SetDirectMode1: Mov DS, CX Xor SI, SI Xor DI, DI -IF USE32BITSCREENCOPY +%IF USE32BITSCREENCOPY Mov CX, 2000 Rep MovsD -ELSE +%ELSE Mov CX, 4000 Rep MovsW -ENDIF +%ENDIF Call RestoreMouse @@ -1114,11 +1111,11 @@ S_SetDirectMode2: Mov CS:DirectVideo, AL Ret -EndP S_SetDirectMode +;EndP S_SetDirectMode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_HiLight Far ; DI points to offset +Proc S_HiLight Far ; DI points to offset ; AL = colour ; CX = number of characters Push ES @@ -1138,11 +1135,11 @@ HiLight1: Ret -EndP S_HiLight +;EndP S_HiLight ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_DirectDrawString Far +Proc S_DirectDrawString Far Push BP Mov BP, SP @@ -1161,11 +1158,11 @@ Proc S_DirectDrawString Far Jmp DrawString001 -EndP S_DirectDrawString +;EndP S_DirectDrawString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_DrawString Far ; DS:SI points to string +Proc S_DrawString Far ; DS:SI points to string ; DI points to offset ; AH = colour @@ -1412,22 +1409,22 @@ DrawString018: Jmp DrawString001 -EndP S_DrawString +;EndP S_DrawString ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_GetGenerationTableOffset Far ; returns ES:DI +Proc S_GetGenerationTableOffset Far ; returns ES:DI Mov ES, CS:ScreenDataArea Mov DI, 8000 Ret -EndP S_GetGenerationTableOffset +;EndP S_GetGenerationTableOffset ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_GenerateCharacters Far ; AX = starting char. +Proc S_GenerateCharacters Far ; AX = starting char. ; BX = chars per row. ; CX = number of rows. PushAD @@ -1523,11 +1520,11 @@ S_GenerateCharacters2: Ret -EndP S_GenerateCharacters +;EndP S_GenerateCharacters ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_DrawSmallBox Far +Proc S_DrawSmallBox Far Mov AX, 30 Push AX @@ -1544,11 +1541,11 @@ Proc S_DrawSmallBox Far Ret -EndP S_DrawSmallBox +;EndP S_DrawSmallBox ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_GetPaletteOffset Far +Proc S_GetPaletteOffset Far Push CS Pop DS @@ -1556,11 +1553,11 @@ Proc S_GetPaletteOffset Far Ret -EndP S_GetPaletteOffset +;EndP S_GetPaletteOffset ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_UsePresetPalette Far +Proc S_UsePresetPalette Far Mov AL, 48 Mul Byte Ptr [DS:SI+22] @@ -1569,7 +1566,7 @@ Proc S_UsePresetPalette Far Mov AX, CS Mov DS, AX Mov ES, AX - Assume DS:Screen + ;Assume DS:Screen Add SI, Offset PresetPalettes Mov DI, Offset PaletteDefs @@ -1581,12 +1578,12 @@ Proc S_UsePresetPalette Far Mov AX, 1 Ret -EndP S_UsePresetPalette - Assume DS:Nothing +;EndP S_UsePresetPalette + ;Assume DS:Nothing ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_DefineHiASCII Far +Proc S_DefineHiASCII Far Call MouseUpdateDisable @@ -1626,11 +1623,11 @@ S_DefineHIASCII1: Ret -EndP S_DefineHiASCII +;EndP S_DefineHiASCII ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc S_InvertCursor Far ; AL = char, AH = mask. +Proc S_InvertCursor Far ; AL = char, AH = mask. PushA Push DS @@ -1668,7 +1665,7 @@ S_InvertCursor1: PopA Ret -EndP S_InvertCursor +;EndP S_InvertCursor ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� diff --git a/it_tute.s b/it_tute.s index db2c0e1..360c8c7 100644 --- a/it_tute.s +++ b/it_tute.s @@ -1,34 +1,30 @@ +%include "switch.inc" - Jumps - .386 +%IF TUTORIAL -include switch.inc - -IF TUTORIAL - - Extrn S_DrawBox:Far - Extrn S_DrawString:Far - Extrn Music_GetSongSegment:Far - Extrn Music_GetPlayMode:Far - Extrn PE_GetLastInstrument:Far ; Returns BX = LastInst-1 + extern S_DrawBox:Far + extern S_DrawString:Far + extern Music_GetSongSegment:Far + extern Music_GetPlayMode:Far + extern PE_GetLastInstrument:Far ; Returns BX = LastInst-1 Segment Pattern BYTE Public 'Code' - Extrn PatternDataArea:Word - Extrn LastKeyBoard1:Word - Extrn LastKeyBoard2:Word + extern PatternDataArea:Word + extern LastKeyBoard1:Word + extern LastKeyBoard2:Word EndS Segment Disk Byte Public 'Code' USE16 - Extrn SamplesInModule:Byte - Extrn InSampleFileName:Byte + extern SamplesInModule:Byte + extern InSampleFileName:Byte EndS Public Glbl_TutorialHandler Segment Glbl BYTE Public 'Code' USE16 - Assume CS:Glbl, DS:Nothing, GS:Pattern + ;Assume CS:Glbl, DS:Nothing, GS:Pattern -Extrn CurrentMode:Byte +extern CurrentMode:Byte TutorialState DW 0 @@ -266,38 +262,38 @@ SnareDrumText DB "Snare Drum" ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State0 +Proc Tute_State0 Cmp AL, 9 Ret -EndP Tute_State0 +;EndP Tute_State0 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State1 +Proc Tute_State1 Cmp AL, 3 Ret -EndP Tute_State1 +;EndP Tute_State1 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State2 +Proc Tute_State2 Cmp AL, 13 Ret -EndP Tute_State2 +;EndP Tute_State2 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State3 +Proc Tute_State3 Push Disk Pop ES - Assume ES:Disk + ;Assume ES:Disk Cmp ES:SamplesInModule, 1 JNE Tute_State3a @@ -310,11 +306,11 @@ Proc Tute_State3 Tute_State3a: Ret -EndP Tute_State3 +;EndP Tute_State3 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State4 +Proc Tute_State4 Call Music_GetSongSegment Mov ES, AX @@ -325,78 +321,78 @@ Proc Tute_State4 RepE CmpSB Ret -EndP Tute_State4 +;EndP Tute_State4 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State5 +Proc Tute_State5 Cmp AL, 2 Ret -EndP Tute_State5 +;EndP Tute_State5 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State6 +Proc Tute_State6 Cmp Word Ptr [FS:0], 13Ch Ret -EndP Tute_State6 +;EndP Tute_State6 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State7 +Proc Tute_State7 Cmp Word Ptr [FS:320*16], 13Ch Ret -EndP Tute_State7 +;EndP Tute_State7 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State8 +Proc Tute_State8 Call Music_GetPlayMode Cmp AX, 1 Ret -EndP Tute_State8 +;EndP Tute_State8 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State9 +Proc Tute_State9 Call Music_GetPlayMode Test AX, AX Ret -EndP Tute_State9 +;EndP Tute_State9 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State10 +Proc Tute_State10 Cmp Word Ptr [FS:60*320], 13Ch Ret -EndP Tute_State10 +;EndP Tute_State10 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State12 +Proc Tute_State12 Call PE_GetLastInstrument Cmp BX, 1 Ret -EndP Tute_State12 +;EndP Tute_State12 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State14 +Proc Tute_State14 Call Music_GetSongSegment Mov ES, AX @@ -407,60 +403,60 @@ Proc Tute_State14 RepE CmpSB Ret -EndP Tute_State14 +;EndP Tute_State14 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_StateEnd +Proc Tute_StateEnd Inc AX ; Ensure zero flag is not set. Ret -EndP Tute_StateEnd +;EndP Tute_StateEnd ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State16 +Proc Tute_State16 Cmp Word Ptr [FS:62*320], 23Ch Ret -EndP Tute_State16 +;EndP Tute_State16 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State18 +Proc Tute_State18 Cmp [Word Ptr GS:LastKeyboard1+2], 2600h Ret -EndP Tute_State18 +;EndP Tute_State18 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Tute_State19 +Proc Tute_State19 Cmp [Word Ptr GS:LastKeyboard1+2], 2200h Ret -EndP Tute_State19 +;EndP Tute_State19 ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc Glbl_TutorialHandler Far +Proc Glbl_TutorialHandler Far PushAD Push DS Push CS Pop DS - Assume DS:Glbl + ;Assume DS:Glbl Push Pattern Pop GS Mov FS, [GS:PatternDataArea] - Assume FS:Nothing + ;Assume FS:Nothing Mov BX, [TutorialState] Mov AL, CurrentMode @@ -509,11 +505,9 @@ Tute_TuteFinished: PopAD Ret -EndP Glbl_TutorialHandler - Assume DS:Nothing, FS:Nothing +;EndP Glbl_TutorialHandler + ;Assume DS:Nothing, FS:Nothing EndS -ENDIF - -End +%ENDIF diff --git a/it_vesa.s b/it_vesa.s index e286aac..bb8a195 100644 --- a/it_vesa.s +++ b/it_vesa.s @@ -27,12 +27,9 @@ ;� � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� - Jumps - .386P +%include "switch.inc" -include switch.inc - -IF SPECTRUMANALYSER +%IF SPECTRUMANALYSER ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � @@ -46,14 +43,15 @@ IF SPECTRUMANALYSER ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� -Segment Vesa BYTE Public 'Code' USE16 - Assume CS:Vesa, DS:Nothing +;Segment Vesa BYTE Public 'Code' USE16 +%warning "USE16" +section .text ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -VESAInformationTable Label +VESAInformationTable:; Label VESASignature DB 4 Dup (0) VESAVersion DW 0 VESAOEMStringPrt DD 0 @@ -62,7 +60,7 @@ VESAVideoModePtr DD 0 VESATotalMemory DW 0 DB 256-($-VESAInformationTable) Dup(0) -VESAModeInformationTable Label +VESAModeInformationTable:; Label DB 256-($-VESAModeInformationTable) Dup (0) ModeInformationStructure Struc @@ -103,8 +101,8 @@ ModeInformationStructure EndS ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc VESA_Detect Far -Public VESA_Detect +VESA_Detect:; Far +global VESA_Detect PushA Push ES @@ -129,12 +127,12 @@ DetectVESA1: PopA Ret -EndP VESA_Detect +;EndP VESA_Detect ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc VESA_SetMode Far -Public VESA_SetMode +VESA_SetMode:; Far +global VESA_SetMode PushA Push DS @@ -161,12 +159,12 @@ VESA_SetMode3: Ret -EndP VESA_SetMode +;EndP VESA_SetMode ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc VESA_GetInfo -Public VESA_GetInfo +VESA_GetInfo: +global VESA_GetInfo Push AX Push CX @@ -190,12 +188,12 @@ VESA_GetInfo1: Ret -EndP VESA_GetInfo +;EndP VESA_GetInfo ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� -Proc VESA_SetBlock Far ; Gives access to a 64kb block -Public VESA_SetBlock ; Given AX = block number. +VESA_SetBlock:; Far ; Gives access to a 64kb block +global VESA_SetBlock ; Given AX = block number. PushA Push AX @@ -213,14 +211,6 @@ Public VESA_SetBlock ; Given AX = block number. PopA Ret -EndP VESA_SetBlock +;EndP VESA_SetBlock -;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� - -EndS - -;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� - -ENDIF - -End +%ENDIF