;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Main Module � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� %include "switch.inc" ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Externals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Segment Object1 BYTE Public 'Data' USE16 EndS 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 extern F_Draw5Num:Far extern F_Pre5Num:Far extern F_Post5Num:Far extern F_Draw3Num:Far extern F_Pre3Num:Far extern F_Post3Num:Far extern Glbl_TutorialHandler:Far extern H_SetHelpContext:Far extern K_GetKey:Far extern K_InitKeyBoard:Far extern K_UnInitKeyBoard:Far extern K_IsKeyWaiting:Far extern K_IsAnyKeyDown:Far extern PE_DrawOrderList:Far extern PE_PreOrderList:Far extern PE_PostOrderList: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 ; extern MouseDirectEnable:Far, MouseDirectDisable:Far extern MouseSaveEvents:Far, MouseRestoreEvents:Far extern MouseInput:Far, MouseClearEvents:Far extern GetKeyboardLock:Far, MIDIBufferEmpty:Far ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Globals � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Global M_FunctionDivider:Far Global M_FunctionHandler:Far Global M_Object1List:Far Global M_Object1ListDefault:Far Public ReleaseTimeSlice ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� Segment Main DWORD Public 'Code' USE16 ;Assume CS:Main, DS:Nothing ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Variables � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� DrawObjectList Label DWord DD DWord Ptr F_DrawBoxObject ; 0 DD DWord Ptr F_DrawTextObject ; 1 DD DWord Ptr F_DrawButtonObject ; 2 DD DWord Ptr F_Nothing ; Empty obj number, 3 DD DWord Ptr F_Nothing ; 4 DD DWord Ptr F_SetDirectMode ; 5 DD DWord Ptr F_CharacterDefinitions ; 6 DD DWord Ptr F_Nothing ; Empty obj number 7 DD DWord Ptr F_CallFarFunction ; 8 DD DWord Ptr F_DrawThumbBar ; 9 DD DWord Ptr F_DrawInfoLine ; 10 DD DWord Ptr H_SetHelpContext ; 11 DD DWord Ptr PE_DrawOrderList ; 12 DD DWord Ptr F_Draw3Num ; 13 DD DWord Ptr F_DrawScalableThumbBar ; 14 DD DWord Ptr F_CallFarFunction ; 15 DD DWord Ptr F_DrawStringInput ; 16 DD DWord Ptr F_DrawToggle ; 17 DD DWord Ptr F_Draw5Num ; 18 PreFunctionList Label DWord DD DWord Ptr F_Nothing ; 0 DD DWord Ptr F_Nothing ; 1 DD DWord Ptr F_PreButtonObject ; 2 DD DWord Ptr F_Nothing ; 3 DD DWord Ptr F_Nothing ; 4 DD DWord Ptr F_Nothing ; 5 DD DWord Ptr F_Nothing ; 6 DD DWord Ptr F_Nothing ; 7 DD DWord Ptr F_Nothing ; 8 DD DWord Ptr F_PreThumbBar ; 9 DD DWord Ptr F_Nothing ; 10 DD DWord Ptr F_Nothing ; 11 DD DWord Ptr PE_PreOrderList ; 12 DD DWord Ptr F_Pre3Num ; 13 DD DWord Ptr F_PreScalableThumbBar ; 14 DD DWord Ptr F_CallFarPreFunction ; 15 DD DWord Ptr F_PreStringInput ; 16 DD DWord Ptr F_PreToggle ; 17 DD DWord Ptr F_Pre5Num ; 18 PostFunctionList Label DWord DD DWord Ptr F_Nothing ; 0 DD DWord Ptr F_Nothing ; 1 DD DWord Ptr F_PostButtonObject ; 2 DD DWord Ptr F_Nothing ; 3 DD DWord Ptr F_PostExitObject ; 4 DD DWord Ptr F_Nothing ; 5 DD DWord Ptr F_Nothing ; 6 DD DWord Ptr F_Nothing ; 7 DD DWord Ptr F_Nothing ; 8 DD DWord Ptr F_PostThumbBar ; 9 DD DWord Ptr F_Nothing ; 10 DD DWord Ptr F_Nothing ; 11 DD DWord Ptr PE_PostOrderList ; 12 DD DWord Ptr F_Post3Num ; 13 DD DWord Ptr F_PostScalableThumbBar ; 14 DD DWord Ptr F_CallFarPostFunction ; 15 DD DWord Ptr F_PostStringInput ; 16 DD DWord Ptr F_PostToggle ; 17 DD DWord Ptr F_Post5Num ; 18 GlobalKeyList DD ? ReleaseTimeSlice DB 0 ;旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ;� Functions � ;읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� M_FunctionDivider:;:;Far ; Given DS:SI points to list ; Carry set if none found Push BX M_FunctionDivider1: ; 0 = Direct comparison ; 1 = Key comparison ; 2 = Alt, 3 = Ctrl, 4 = Shift ; 5 = capital key comparison ; 6 = MIDI message LodsB Test AL, AL JS M_FunctionDivider4 ; End of list Mov BX, CX JZ M_FunctionDivider2 ; If AL = 0 Cmp AL, 2 JE M_FunctionDivider8 JB M_FunctionDivider5 Cmp AL, 4 JB M_FunctionDivider18 JE M_FunctionDivider10 ; If AL = 4 Cmp AL, 6 JB M_FunctionDividerCAPS M_FunctionDividerMIDI: Test CL, CL JNZ M_FunctionDivider9 Mov BX, CX And BX, 0F000h Jmp M_FunctionDividerCheck M_FunctionDividerCAPS: Mov BX, DX Cmp BX, 'a' JB M_FunctionDivider6 Cmp BX, 'z' JA M_FunctionDivider9 Sub BL, 32 M_FunctionDivider6: Cmp BX, 'A' JB M_FunctionDivider9 Cmp BX, 'Z' JA M_FunctionDivider9 Jmp M_FunctionDivider2 M_FunctionDivider5: Mov BX, DX ; If al = 1... Jmp M_FunctionDivider2 M_FunctionDivider8: Test CH, 60h JZ M_FunctionDivider9 And BX, 1FFh Jmp M_FunctionDivider2 M_FunctionDivider18: Test CH, 18h ; Ctrl JZ M_FunctionDivider9 And BX, 1FFh Jmp M_FunctionDivider2 M_FunctionDivider10: Test CH, 6 JZ M_FunctionDivider9 And BX, 1FFh M_FunctionDivider2: Test CL, CL JZ M_FunctionDivider9 M_FunctionDividerCheck: LodsW Cmp AX, BX JE M_FunctionDivider3 LodsW Jmp M_FunctionDivider1 M_FunctionDivider9: LodsW LodsW Jmp M_FunctionDivider1 M_FunctionDivider3: DB 85h ; ClC M_FunctionDivider4: ; StC ; Pop BX Ret ;EndP M_FunctionDivider ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� M_FunctionHandler:;:;Far ARG ObjectList:DWord Push BP Mov BP, SP Call MouseSaveEvents M_FunctionHandler1: ; Draw all objects in list Call GetKeyboardLock Cmp AL, 2 JE MouseInput1 Call MouseClearEvents LDS SI, ObjectList ; DS:SI points to object list Add SI, 6 ; Skip pass list header Xor AX, AX M_FunctionHandler2: Cmp Word Ptr [SI], 0 ; DS:SI points to an offset of JE M_FunctionHandler4 ; an object M_FunctionHandler3: Push AX ; AX = object number Push DS Push SI Push BP LES DI, ObjectList ; ES:DI points to object list Mov SI, [SI] ; DS:SI points to object Mov BX, [SI] ; BX = object type Mov CL, 2 ShL BX, CL Call DWord Ptr [DrawObjectList+BX] Pop BP Pop SI ; DS:SI Points to an offset of Pop DS ; an object Pop AX Inc AX Add SI, 2 ; Advance Pointer Jmp M_FunctionHandler2 ; Next Object M_FunctionHandler4: ; Call Prefunction for object LDS SI, ObjectList ; DS:SI points to object list Mov AX, [SI] ; AX = Active object number LEA SI, [ESI+EAX*2+6] ; Skip pas list header (+6) ; AX = object number Cmp Word Ptr [SI], 0 ; if list doesn't point to JE M_FunctionHandler21 ; anything, don't call prefunc M_FunctionHandler20: Mov SI, [SI] ; DS:SI points to object Mov BX, [SI] ; BX = object type ShL BX, 2 Push BP Call DWord Ptr [PreFunctionList+BX] Pop BP M_FunctionHandler21: %IF TUTORIAL Call Glbl_TutorialHandler %ENDIF Call S_UpdateScreen M_FunctionHandler5: ; Input... ; Call K_IsAnyKeyDown ; And AL, AL ; JNZ M_KeyBoardInput1 MouseInput1: Call MouseInput ; returns 0 if nothing ; 1 if input (BX, CX, DX set) ; 2 if no input, but keyboard ; locked Cmp AX, 1 JB M_KeyBoardInput1 JA M_FunctionHandler6 ; IdleList ; Handle postobject, of ; object BX Mov AX, DI Cmp BX, 0FFFFh JE M_FunctionHandler23 LES DI, ObjectList ; ES:DI points to object list Push ES Pop DS Mov [DI], BX ; Object number in BX. LEA BX, [EBX*2+EDI+6] ; ES:BX points to offset of ; active object. Mov SI, [BX] ; DS:SI points to object Mov SI, [SI] ; SI = object type of active obj ShL SI, 2 Push BP Call DWord Ptr [PostFunctionList+SI] Pop BP Jmp M_FunctionHandler23 M_KeyBoardInput1: Call MIDIBufferEmpty JAE M_FunctionHandler8 Call K_IsKeyWaiting Test AX, AX JNZ M_FunctionHandler8 ; Check for mouse info... M_FunctionHandler6: ; IdleList Cmp CS:ReleaseTimeSlice, 0 JE NoReleaseTimeSlice Mov AX, 1680h Int 2Fh NoReleaseTimeSlice: ; StI LDS SI, ObjectList ; DS:SI points to object list Add SI, 2 ; DS:SI points to idle list Cmp Word Ptr [SI], 0 JE M_FunctionHandler5 ; If Offset of IdleList = 0, ; check for another key M_FunctionHandler7: Mov SI, [SI] Xor BX, BX ; Clear flag. M_FunctionHandler19: Cmp Word Ptr [SI], 0 JNE M_FunctionHandler18 Cmp Word Ptr [SI+2], 0 JE M_FunctionHandler29 M_FunctionHandler18: Push SI Push BX Push DS Push BP Call DWord Ptr [SI] Pop BP Pop DS Pop BX Cmp AX, 5 JE M_FunctionHandlerIdleCommand Pop SI Add SI, 4 Or BX, AX Jmp M_FunctionHandler19 M_FunctionHandlerIdleCommand: Pop AX ; Pull off SI from the stack Mov AX, DI Jmp M_FunctionHandler10 ; Mov SI, 1 ; Jmp M_FunctionHandler16 M_FunctionHandler29: Test BX, BX JZ M_FunctionHandler5 Jmp M_FunctionHandler1 M_FunctionHandler8: Call K_GetKey ; CX = Keyboard Input Data ; DX = Translated Input Data ; else MIDI input if CL = 0 M_FunctionHandler9: LES DI, ObjectList ; ES:DI points to object list Push ES Pop DS Mov BX, [DI] ; BX = active object number LEA BX, [EDI+EBX*2+6] ; ES:BX points to offset of ; active object. Xor AX, AX Cmp Word Ptr [BX], 0 JE M_FunctionHandler23 M_FunctionHandler22: Mov SI, [BX] ; DS:SI points to object Mov SI, [SI] ; SI = object type of active obj ShL SI, 2 Push BP Call DWord Ptr [PostFunctionList+SI] Pop BP M_FunctionHandler23: Push DS Push SI LDS SI, ObjectList Add SI, 4 Mov SI, [SI] Mov Word Ptr CS:GlobalKeyList+2, DS Mov Word Ptr CS:GlobalKeyList, SI Pop SI Pop DS ; Xor BX, BX ; Extra key list starts at 0 M_FunctionHandler10: Cmp AX, 1 JB M_FunctionHandler11 ; If AX = 0 JE M_FunctionHandler1 ; Redraw screen if AX = 1 Cmp AX, 3 JB M_FunctionHandler4 ; Goto preobject if AX = 2 JE M_FunctionHandler5 ; Get next input Cmp AX, 5 ; New list JE M_FunctionHandler16 JA M_FunctionHandler11 ; If > 5 Call MouseRestoreEvents Pop BP Ret 4 M_FunctionHandler16: Mov Word Ptr Offset ObjectList, DX Mov Word Ptr Offset ObjectList+2, CX Mov AX, SI Jmp M_FunctionHandler10 M_FunctionHandler11: LDS SI, CS:GlobalKeyList Cmp Word Ptr [SI], 0 JE M_FunctionHandler4 M_FunctionHandler12: LodsB Mov BX, DX Cmp AL, 1 JE M_FunctionHandler13 ; Keycode compare (1) Mov BX, CX JB M_FunctionHandler13 ; Scancode compare (0) And BX, 1FFh Cmp AL, 3 JB M_FunctionHandlerAlt ; Alt-keycode compare (2) JE M_FunctionHandlerCtrl ; Ctrl-keycode compare (3) Cmp AL, 5 JB M_FunctionHandlerForced ; Always call function (4) JE M_FunctionHandlerNewListNear ; Chain to new list (5) Cmp AL, 7 JB M_FunctionHandlerShift ; Shift-keycode compare (6) JE M_FunctionHandlerNewListFar ; Chain to far list (7) Cmp AL, 9 JB M_FunctionHandlerCapCheck ; Capitalised keycode (8) JE M_FunctionHandlerMIDI ; MIDI message (9) ; Jmp M_FunctionHandler1 Jmp M_FunctionHandler4 ; Undefined compare.. ; ; -> end of list M_FunctionHandlerAlt: Test CH, 60h JZ M_FunctionHandler14 Jmp M_FunctionHandler13 M_FunctionHandlerCtrl: Test CH, 18h JZ M_FunctionHandler14 Jmp M_FunctionHandler13 M_FunctionHandlerShift: Test CH, 6h JZ M_FunctionHandler14 Jmp M_FunctionHandler13 M_FunctionHandlerNewListNear: LodsW Mov Word Ptr CS:GlobalKeyList, AX Jmp M_FunctionHandler11 M_FunctionHandlerNewListFar: LodsD Mov CS:GlobalKeyList, EAX Jmp M_FunctionHandler11 M_FunctionHandlerForced: LodsW Jmp M_FunctionHandler26 M_FunctionHandlerCapCheck: ; Capital OK? (8) Mov BX, DX Cmp BX, 'A' JB M_FunctionHandler14 Cmp BX, 'z' JA M_FunctionHandler14 Cmp BX, 'a' JB M_FunctionHandlerCapCheck1 Sub BL, 32 M_FunctionHandlerCapCheck1: Jmp M_FunctionHandler13 M_FunctionHandlerMIDI: Test CL, CL JNZ M_FunctionHandler14 Mov BX, CX And BX, 0F000h Jmp M_FunctionHandlerCheck M_FunctionHandler13: Test CL, CL JZ M_FunctionHandler14 M_FunctionHandlerCheck: LodsW Cmp BX, AX JNE M_FunctionHandler14 M_FunctionHandler26: LES DI, ObjectList ; ES:DI points to object list Push BP Call DWord Ptr [SI] Pop BP Jmp M_FunctionHandler15 M_FunctionHandler14: Xor AX, AX M_FunctionHandler15: Add Word Ptr CS:GlobalKeyList, 7 Jmp M_FunctionHandler10 ;EndP M_FunctionHandler ;컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� M_Object1ListDefault:;:;Far ; Reqs: DI = offset of list Mov CX, 0FFFFh M_Object1List:;:;Far ; Reqs.. CX = inital object. ; Reqs.. DI = offset of list Mov AX, Object1 Push AX Mov ES, AX Push DI Cmp CX, 0FFFFh JE M_Object1List1 Mov Word Ptr [ES:DI], CX M_Object1List1: Call M_FunctionHandler Ret ;EndP M_Object1List ;EndP M_Object1ListDefault ;袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴袴� EndS