forked from redcode/SpecEmu
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathWndProc.asm
1793 lines (1435 loc) · 94.1 KB
/
WndProc.asm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
RESETENUM WM_USER + 2
ENUM WM_USER_WAVEIN
ENUM WM_USER_REMOTE_APP
align 16
WndProc proc uses ebx esi edi,
hWin: DWORD,
uMsg: DWORD,
wParam: DWORD,
lParam: DWORD
local var: DWORD
local caW: DWORD
local caH: DWORD
local Rct: RECT
local hDC: DWORD
local Ps: PAINTSTRUCT
local hMenuSub: DWORD
local buffer1[128]: BYTE ; these are two spare buffers
local buffer2[128]: BYTE ; for text manipulation etc..
local textstring: TEXTSTRING,
pTEXTSTRING:DWORD
cmp SwitchingModes, TRUE
je wndproc_Default
lea esi, wndproc_table
mov eax, uMsg
or ebx, -1 ; end marker = -1
@@: mov ecx, [esi] ; message
mov edx, [esi+4] ; message handler
lea esi, [esi+8]
cmp edx, ebx ; end marker?
je wndproc_Default
cmp eax, ecx ; our message?
jne @B
jmp edx ; jump to message handler
wndproc_Default:invoke DefWindowProc, hWin, uMsg, wParam, lParam
ret
wndproc_MM_WIM_DATA:
invoke PostMessage, hWin, WM_USER_WAVEIN, wParam, lParam
return 0
align 16
wndproc_WM_USER_WAVEIN:
mov edi, lParam
mov [edi].WAVEHDR.dwBytesRecorded, 0
mov [edi].WAVEHDR.dwFlags, 0
mov [edi].WAVEHDR.dwLoops, 0
mov eax, [edi].WAVEHDR.lpData
sub eax, offset cap_buffers
mov cap_writeposn, eax ; latest write buffer offset used for resync
invoke waveInPrepareHeader, cap_hWaveIn, edi, sizeof WAVEHDR
invoke waveInAddBuffer, cap_hWaveIn, edi, sizeof WAVEHDR
return 0
align 16
wndproc_WM_USER_REMOTE_APP:
; commands from Remote...
include C:\RadAsm\Masm\Projects\remote\EmuState.inc
.data?
align 4
EmuStateEx EMUSTATEEX <>
.code
MOVEB macro src:REQ, dest:REQ
mov al, src
mov dest, al
endm
MOVEW macro src:REQ, dest:REQ
mov ax, src
mov dest, ax
endm
mov ax, zPC
mov EmuStateEx.PreStepPC, ax
mov Z80PC, ax
INITSTRING addr textstring, addr pTEXTSTRING
invoke DisassembleLine, pTEXTSTRING
strncpy addr textstring, addr EmuStateEx.disassembly, sizeof EmuStateEx.disassembly
invoke Remote_Single_Step
mov eax, totaltstates
.if eax < MACHINE.InterruptCycles
RENDERFRAME
.endif
mov hCopyDataStruct.COPYDATASTRUCT.dwData, "STEP"
lea ecx, EmuStateEx
assume ecx: ptr EMUSTATEEX
mov hCopyDataStruct.COPYDATASTRUCT.lpData, ecx
mov hCopyDataStruct.COPYDATASTRUCT.cbData, sizeof EMUSTATEEX
mov eax, totaltstates
mov [ecx].state.tstates, eax
MOVEW zPC, [ecx].state.PC
MOVEW z80registers._sp, [ecx].state._SP
MOVEW z80registers.ix.w, [ecx].state.IX
MOVEW z80registers.iy.w, [ecx].state.IY
MOVEW z80registers.hl.w, [ecx].state.HL
MOVEW z80registers.de.w, [ecx].state.DE
MOVEW z80registers.bc.w, [ecx].state.BC
MOVEW z80registers.af.w, [ecx].state.AF
MOVEW z80registers.hl_.w, [ecx].state.HLalt
MOVEW z80registers.de_.w, [ecx].state.DEalt
MOVEW z80registers.bc_.w, [ecx].state.BCalt
MOVEW z80registers.af_.w, [ecx].state.AFalt
MOVEW z80registers.hl.w, [ecx].state.HL
MOVEB z80registers.i, [ecx].state.I
GET_R al
mov [ecx].state.R, al
MOVEB z80registers.intmode, [ecx].state.IM
; FIXME: fix for matching Zero emulator
ifc currentMachine.cpu_halted then inc [ecx].state.PC
invoke SendMessage, wParam, WM_COPYDATA, hWnd, addr hCopyDataStruct
assume ecx: nothing
return 0
align 16
wndproc_WM_PAINT:
.if $fnc (GetUpdateRect, hWin, NULL, FALSE) != 0
invoke RenderSpeccy, hWin
.endif
return 0
;wndproc_WM_ERASEBKGND:
; return TRUE
; https://devblogs.microsoft.com/oldnewthing/20031001-00/?p=42343
; So if your program wants to detect whether the mouse has moved, you need to add a check in your WM_MOUSEMOVE that the mouse position is different from the position reported by the previous WM_MOUSEMOVE message.
align 16
wndproc_WM_MOUSEMOVE:
mov eax, lParam
.if eax != lastmousemovelParam
mov lastmousemovelParam, eax
invoke Tools1_MouseMove, hWin, wParam, lParam
.if MenuIgnoreMouseMoveCnt > 0
dec MenuIgnoreMouseMoveCnt
return 0
.endif
.if FullScreenMode
mov MenuTimeout, 0
ifc MenuAttached eq FALSE then invoke AttachMenu, hWnd
.endif
.endif
return 0
align 16
wndproc_WM_CHAR:
; ====== keyup events ======
mov eax, lParam
shl eax, 2 ; bit 30 -> carry
jc wndproc_Default ; exit if repeating key press
IFDEF KEYSTATE_INFO
mov eax, wParam
and eax, 255
ADDMESSAGEHEX "WM_CHAR: ", eax
ENDIF
jmp wndproc_Default
align 16
wndproc_WM_KEYDOWN:
; ====== keydown events ======
mov eax, lParam
shl eax, 2 ; bit 30 -> carry
jc wndproc_Default ; exit if repeating key press
IFDEF KEYSTATE_INFO
mov eax, wParam
and eax, 255
ADDMESSAGEHEX "WM_KEYDOWN: ", eax
ENDIF
switch $fnc (GetKeyShiftState)
case VSTATE_NONE
switch wParam
case VK_INSERT
invoke RZX_Insert_Bookmark
case VK_DELETE
invoke RZX_Rollback
case VK_F1 ; toggle max speed mode
call ToggleFullSpeed
case VK_F2 ; load snapshot
invoke SendMessage, hWin, WM_COMMAND, IDM_LOADSNAPSHOT, NULL
case VK_F3 ; insert tape
invoke SendMessage, hWin, WM_COMMAND, IDM_INSERTTAPE, NULL
case VK_F4 ; toggle window/fullscreen modes
invoke SendMessage, hWin, WM_COMMAND, IDM_FULLSCREEN, NULL
case VK_F5 ; F5 = Cause NMI, activates the Multiface if available
mov currentMachine.nmi, TRUE
case VK_F6 ; F6 = Tape Browser
invoke SendMessage, hWin, WM_COMMAND, IDM_TAPEBROWSER, NULL
case VK_F7 ; cycle palette
inc UserPalette
.if UserPalette > MAXPALETTES - 1 ; defined in DirectDraw.asm
mov UserPalette, 0
.endif
invoke SetSpectrumPalette, UserPalette
RENDERFRAME
invoke Resync_Capture
case VK_F8 ; Options
invoke SendMessage, hWin, WM_COMMAND, IDM_OPTIONS, NULL
case VK_F11 ; start/stop tape
invoke StartStopTape
case VK_PAUSE ; pauses/resumes the emulation
invoke SendMessage, hWin, WM_COMMAND, IDM_PAUSE, NULL
case VK_ESCAPE ; ESC = Debugger
call InitPort
.if (lParam != "BRK") && (EmuRunning == TRUE) ; debugger traps always set lParam to "BRK"
mov eax, MACHINE.FrameCycles
sub eax, totaltstates
sub eax, 200
invoke nrandom, eax
add eax, totaltstates
add eax, 100
mov RunTo_Cycle, eax
invoke Set_RunTo_Condition, RUN_TO_CYCLE
.else
call HandleDebuggerDialog
invoke Resync_Capture
.endif
endsw
; case VSTATE_SHIFT
; case VSTATE_CONTROL
; case VSTATE_SHIFT_CONTROL
endsw
jmp wndproc_Default
align 16
wndproc_WM_KEYUP: ; ====== keyup events ======
IFDEF KEYSTATE_INFO
mov eax, wParam
and eax, 255
ADDMESSAGEHEX "WM_KEYUP: ", eax
ENDIF
; switch wParam
; endsw
jmp wndproc_Default
align 16
wndproc_WM_MENUCHAR:
return MNC_CLOSE shl 16
align 16
wndproc_WM_SYSCHAR: ; ====== system char events (ALT + Key) ======
mov eax, lParam
shl eax, 2 ; bit 30 -> carry
jc wndproc_Default ; exit if repeating key press
IFDEF KEYSTATE_INFO
mov eax, wParam
and eax, 255
ADDMESSAGEHEX "WM_SYSCHAR: ", eax
ENDIF
call InitPort
switch wParam
case VK_RETURN
invoke SendMessage, hWin, WM_COMMAND, IDM_FULLSCREEN, NULL
case VK_1 ; zoom 100%
invoke SendMessage, hWin, WM_COMMAND, IDM_ZOOM100, NULL
case VK_2 ; zoom 200%
invoke SendMessage, hWin, WM_COMMAND, IDM_ZOOM200, NULL
case VK_3 ; zoom 300%
invoke SendMessage, hWin, WM_COMMAND, IDM_ZOOM300, NULL
case VK_4 ; zoom 400%
invoke SendMessage, hWin, WM_COMMAND, IDM_ZOOM400, NULL
case VK_9
invoke BltFlip_Mirror_Horz
case VK_0
invoke BltFlip_Mirror_Vert
endsw
jmp wndproc_Default
align 16
wndproc_WM_SYSKEYDOWN: ; ====== system keydown events (ALT + Key) ======
mov eax, lParam
shl eax, 2 ; bit 30 -> carry
jc wndproc_Default ; exit if repeating key press
IFDEF KEYSTATE_INFO
mov eax, wParam
and eax, 255
ADDMESSAGEHEX "WM_SYSKEYDOWN: ", eax
ENDIF
call InitPort
switch $fnc (GetKeyShiftState)
; ==============================================================================================
case VSTATE_NONE
switch wParam
case VK_O
; open file type
invoke SendMessage, hWin, WM_COMMAND, IDM_OPENFILETYPE, NULL
case VK_F2
; save snapshot
invoke SendMessage, hWin, WM_COMMAND, IDM_SAVESNAPSHOT, NULL
case VK_F6
; Soft Reset
invoke SendMessage, hWin, WM_COMMAND, IDM_RESET, NULL
case VK_F11
; rewind tape
invoke SendMessage, hWin, WM_COMMAND, IDM_REWINDTAPE, NULL
case VK_L
; load memory snapshot
invoke SendMessage, hWin, WM_COMMAND, IDM_LOADMEMSNAP, NULL
case VK_S
; save memory snapshot
invoke SendMessage, hWin, WM_COMMAND, IDM_SAVEMEMSNAP, NULL
case VK_C
; toggle ULA artifacts
xor ULA_Artifacts_Enabled, TRUE
invoke SetDirtyLines
case VK_P
; paste clipboard text into auto-type buffer
switch HardwareMode
case HW_128, HW_PLUS2, HW_PLUS2A, HW_PLUS3, HW_PENTAGON128
.if $fnc (ShowMessageBox, hWin, SADD ("Paste clipboard text into emulation?"), addr szWindowName, MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) == IDYES
.if $fnc (OpenClipboard, hWin) != 0
.if $fnc (IsClipboardFormatAvailable, CF_TEXT) != 0
.if $fnc (GetClipboardData, CF_TEXT) != NULL
mov hClipboardData, eax
.if $fnc (GlobalLock, hClipboardData) != NULL
mov ebx, eax
lea edi, DummyMem
xor ecx, ecx
.while ecx < 8191
mov al, [ebx]
inc ebx
.break .if al == 0
switch al
case 10
.else
mov [edi], al
inc edi
inc ecx
endsw
.endw
mov byte ptr [edi], 0 ; null terminator
invoke Set_RunTo_Condition, RUN_TO_AUTOLOADTAPE
invoke Set_Autotype_Rom_Point ; sets autotype ROM pointer and PC address
mov autotype_stage, 0
mov autotype_keybuffer, offset DummyMem
.endif
.endif
.endif
invoke CloseClipboard
.endif
.endif
endsw ; /paste
; case VK_G ; save +D RAM image
; invoke CreateFile, CTXT ("C:\PlusD_Ram.ram"), GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL
; .if eax != INVALID_HANDLE_VALUE
; mov SnapFH, eax
; invoke WriteFile, SnapFH, addr gdos_ram, 8192, addr BytesSaved, NULL
; invoke CloseHandle, SnapFH
; mov SnapFH, 0
; .endif
IFDEF ULATUNING
case VK_ADD
inc ULATune
case VK_SUBTRACT
dec ULATune
case VK_MULTIPLY
invoke INITTEXTSTRING, addr textstring, addr pTEXTSTRING
ADDDIRECTTEXTSTRING pTEXTSTRING, "Machine: "
GETMODELNAME ecx
ADDTEXTSTRING pTEXTSTRING, ecx
ADDCHAR pTEXTSTRING, 13
ADDDIRECTTEXTSTRING pTEXTSTRING, "ULA Frame Start: "
ADDTEXTDECIMAL pTEXTSTRING, MACHINE.ULAFrameStart
ADDCHAR pTEXTSTRING, 13
ADDDIRECTTEXTSTRING pTEXTSTRING, "ULA Offset: "
ADDTEXTDECIMAL pTEXTSTRING, ULATune
invoke ShowMessageBox, hWin, addr textstring, addr szWindowName, MB_OK or MB_ICONINFORMATION
invoke Resync_Capture
ENDIF ;/ULATUNING
endsw
; ==============================================================================================
case VSTATE_SHIFT
switch wParam
case VK_J
.if rzx_mode == RZX_PLAY
.if rzx_streaming_enabled == TRUE
invoke Close_Streaming_RZX
.else
invoke Create_Streaming_RZX
.endif
.endif
IFDEF WANTSOUND
case VK_Q
.if MuteSound == FALSE
.if AudioFH != 0
CLEARSOUNDBUFFERS
invoke ShowMessageBox, hWin, SADD ("Do you want to end WAV recording in order to mute the sound?"), addr szWindowName, MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2
push eax
invoke Resync_Capture
pop eax
.if eax == IDNO
jmp wndproc_Default
.endif
call CloseAudioFile
.endif
.endif
xor MuteSound, TRUE
.if MuteSound == TRUE
CLEARSOUNDBUFFERS
.endif
ENDIF
IFDEF DEBUGBUILD
case VK_I
.if Check_RunTo == TRUE
mov eax, CTXT ("Runto Active")
.else
mov eax, CTXT ("Runto Inactive")
.endif
ADDMESSAGEPTR eax
.if rzx_mode == RZX_PLAY
mov eax, CTXT ("RZX PLAY")
.elseif rzx_mode == RZX_RECORD
mov eax, CTXT ("RZX RECORD")
.else
mov eax, CTXT ("RZX NONE")
.endif
ADDMESSAGEPTR eax
movzx eax, keyboard_hasfocus
ADDMESSAGEDEC "Has Keyboard Focus: ", eax
ENDIF
endsw
; ==============================================================================================
; case VSTATE_CONTROL
; switch wParam
; endsw
; ==============================================================================================
; case VSTATE_SHIFT_CONTROL
; switch wParam
; endsw
endsw
; If you intercept the WM_SYSKEYDOWN message, call DefWindowProc afterward. Otherwise, you will block the operating system from handling the command.
; ALT menu navigation and ALT+F4 require DefWndProc for WM_SYSKEYDOWN messages.
jmp wndproc_Default
align 16
wndproc_WM_SYSKEYUP: ; ====== system keydown events (ALT + Key) ======
IFDEF KEYSTATE_INFO
mov eax, wParam
and eax, 255
ADDMESSAGEHEX "WM_SYSKEYUP: ", eax
ENDIF
jmp wndproc_Default
.data
rzx_rec_showREC db 10101010b
.code
align 16
wndproc_WM_TIMER:
switch wParam
case TIMER_1_SECOND
.if rzx_flash_window_counter > 0
dec rzx_flash_window_counter
.if ZERO?
invoke FlashWindow, hWnd, TRUE ; reinvert window state back to non-flashed
.endif
.endif
invoke MW_Populate_Memory ; re-populates main win memory viewer if enabled
.if (FullScreenMode == TRUE) && (MenuAttached == TRUE)
inc MenuTimeout
ifc MenuTimeout gt 3 then invoke DetachMenu ; timeout in seconds
.endif
.if HardwareMode == HW_TC2048
.if (FramesPerSecond == 59) || (FramesPerSecond == 61)
mov FramesPerSecond, 60
.endif
.else
.if (FramesPerSecond == 49) || (FramesPerSecond == 51)
mov FramesPerSecond, 50
.endif
.endif
IFDEF SHOW_FPS
invoke INITTEXTSTRING, addr textstring, addr pTEXTSTRING
ADDTEXTSTRING pTEXTSTRING, offset szWindowName
ADDDIRECTTEXTSTRING pTEXTSTRING, " ["
ADDTEXTDECIMAL pTEXTSTRING, FramesPerSecond
ADDDIRECTTEXTSTRING pTEXTSTRING, " FPS]"
invoke SetWindowText, hWin, addr textstring
ENDIF
invoke IntMul, FramesPerSecond, 100
invoke Div2Int, eax, MACHINE.FramesPerSecond
mov FramesPerSecond, eax
invoke INITTEXTSTRING, addr textstring, addr pTEXTSTRING
mov eax, FramesPerSecond
ADDTEXTDECIMAL pTEXTSTRING, eax
ADDDIRECTTEXTSTRING pTEXTSTRING, " %"
invoke SetStatusPartText, mainwin_hStatus, statuspart_speed, addr textstring
.if rzx_mode == RZX_PLAY
invoke INITTEXTSTRING, addr textstring, addr pTEXTSTRING
ADDDIRECTTEXTSTRING pTEXTSTRING, "RZX: "
imul eax, RZXPLAY.rzx_frame_counter, 100
invoke IntDiv, eax, RZXPLAY.rzx_max_playback_frames
ifc eax gt 99 then mov eax, 99
ADDTEXTDECIMAL pTEXTSTRING, ax
ADDCHAR pTEXTSTRING, "%"
invoke SetStatusPartText, mainwin_hStatus, statuspart_rzx, addr textstring
.elseif rzx_mode == RZX_RECORD
invoke INITTEXTSTRING, addr textstring, addr pTEXTSTRING
ADDDIRECTTEXTSTRING pTEXTSTRING, "RZX: "
ror rzx_rec_showREC, 1
.if CARRY?
ADDDIRECTTEXTSTRING pTEXTSTRING, "REC"
.endif
invoke SetStatusPartText, mainwin_hStatus, statuspart_rzx, addr textstring
IFDEF PACMAN
.elseif pacmode == PACMODE_RECORD
invoke INITTEXTSTRING, addr textstring, addr pTEXTSTRING
ADDDIRECTTEXTSTRING pTEXTSTRING, "PAC: "
ror rzx_rec_showREC, 1
.if CARRY?
ADDDIRECTTEXTSTRING pTEXTSTRING, "REC"
.endif
invoke SetStatusPartText, mainwin_hStatus, statuspart_rzx, addr textstring
.elseif pacmode == PACMODE_PLAYBACK
invoke SetStatusPartText, mainwin_hStatus, statuspart_rzx, SADD ("PAC: PLAY")
ENDIF
.else
IFDEF DEBUGBUILD
invoke SetStatusPartText, mainwin_hStatus, statuspart_rzx, SADD ("Debug")
ELSE
invoke SetStatusPartText, mainwin_hStatus, statuspart_rzx, SADD (" ")
ENDIF
.endif
IFDEF DEBUGBUILD
invoke FlashWindow, hWin, TRUE
ENDIF
mov FramesPerSecond, 0 ; reset FPS counter every second
inc Timer_1s_tickcount ; increment our global 1s tick counter
endsw
return 0
align 16
wndproc_WM_NCLBUTTONDOWN:
; The DefWindowProc function tests the specified point to find the location of the cursor and performs the appropriate action.
; If appropriate, DefWindowProc sends the WM_SYSCOMMAND message to the window.
CLEARSOUNDBUFFERS
jmp wndproc_Default
align 16
wndproc_WM_COPYDATA:
; If the receiving application processes this message, it should return TRUE; otherwise, it should return FALSE.
; retrieve filenames passed from new instances
; wParam = calling application's main window handle
; hWnd = SpecEmu's main window handle
; only accept files when debugger is non-active and there's no message box displayed
.if (DebuggerActive == FALSE) && (MessageBoxDisplayed == FALSE)
mov esi, lParam
assume esi: PTR COPYDATASTRUCT
.if esi != 0
.if [esi].dwData == "SPEC"
.if [esi].lpData != 0
strncpy [esi].lpData, addr szFileName, sizeof szFileName
invoke ReadFileType, addr szFileName
.endif
; commands from Remote...
.elseif [esi].dwData == "PAUS"
ifc $fnc (InSendMessage) then invoke ReplyMessage, TRUE
ifc EmuRunning eq TRUE then invoke PauseResumeEmulation ; pause the emulator
mov hCopyDataStruct.COPYDATASTRUCT.dwData, "PAUS"
mov hCopyDataStruct.COPYDATASTRUCT.cbData, 0
mov hCopyDataStruct.COPYDATASTRUCT.lpData, 0
invoke SendMessage, wParam, WM_COPYDATA, hWnd, addr hCopyDataStruct
.elseif [esi].dwData == "SNAP"
.if [esi].lpData != 0
strncpy [esi].lpData, addr szFileName, sizeof szFileName
ifc $fnc (InSendMessage) then invoke ReplyMessage, TRUE
invoke ReadFileType, addr szFileName
mov hCopyDataStruct.COPYDATASTRUCT.dwData, "SNAP"
mov hCopyDataStruct.COPYDATASTRUCT.cbData, 0
mov hCopyDataStruct.COPYDATASTRUCT.lpData, 0
invoke SendMessage, wParam, WM_COPYDATA, hWnd, addr hCopyDataStruct
mov RemoteStepCounter, 0
.endif
.elseif [esi].dwData == "STEP"
; post back to oneself and process asynchronously
; ifc $fnc (InSendMessage) then invoke ReplyMessage, TRUE
invoke PostMessage, hWnd, WM_USER_REMOTE_APP, wParam, "STEP" ;[esi].dwData
inc RemoteStepCounter
ADDMESSAGEDEC "STEP ", RemoteStepCounter
.endif
.endif
assume esi: NOTHING
.endif
invoke Resync_Capture
return TRUE
align 16
wndproc_WM_COMMAND:
;======== menu commands ========
LOWORD wParam
; call InitPort ; esxdos requires space+reset to reinitialise
switch eax
case RECENTFILEMENUID..RECENTFILEMENUID+9
mov ebx, eax
invoke GetMenuString, MenuHandle, ebx, addr szFileName, MAX_PATH, MF_BYCOMMAND
invoke ReadFileType, addr szFileName
case IDM_OPENFILETYPE ; open file
call Speaker_Low
MouseOn
invoke OpenFileType
RENDERFRAME
MouseOff
invoke Resync_Capture
case IDM_LOADSNAPSHOT ; load snapshot
call Speaker_Low
MouseOn
invoke LoadSnapshot, hWin
MouseOff
invoke Resync_Capture
case IDM_SAVESNAPSHOT ; save snapshot
MouseOn
invoke SaveSnapshot, hWin
MouseOff
invoke Resync_Capture
case IDM_LOADMEMSNAP ; load memory snapshot
.if rzx_mode == RZX_NONE
invoke LoadMemorySnapshot, hWin
RENDERFRAME
invoke Resync_Capture
.endif
case IDM_SAVEMEMSNAP ; save memory snapshot
invoke SaveMemorySnapshot, hWin
invoke Resync_Capture
case IDM_LOADIF2ROM
MouseOn
invoke LoadIF2_ROM, hWin
MouseOff
invoke Resync_Capture
case IDM_LOADBINARYFILE ; load binary file
MouseOn
call LoadBinaryDialog
MouseOff
invoke Resync_Capture
case IDM_SAVEBINARYFILE ; save binary file
MouseOn
call SaveBinaryDialog
MouseOff
invoke Resync_Capture
case IDM_INSERTTAPE ; insert tape
call Speaker_Low
MouseOn
invoke InsertTape
MouseOff
invoke Resync_Capture
case IDM_EJECTTAPE ; eject tape
invoke CloseTapeFile
case IDM_INSERTDISK_A ; insert disk into Drive A:
MouseOn
mov TargetDrive, 0 ; select A:
invoke InsertDisk
MouseOff
invoke Resync_Capture
case IDM_INSERTDISK_B ; insert disk into Drive B:
MouseOn
mov TargetDrive, 1 ; select B:
invoke InsertDisk
MouseOff
invoke Resync_Capture
case IDM_INSERTDISK_C ; insert disk into Drive C:
MouseOn
mov TargetDrive, 2 ; select C:
invoke InsertDisk
MouseOff
invoke Resync_Capture
case IDM_INSERTDISK_D ; insert disk into Drive D:
MouseOn
mov TargetDrive, 3 ; select D:
invoke InsertDisk
MouseOff
invoke Resync_Capture
case IDM_EJECTDISK_A
switch HardwareMode
case HW_PLUS3
invoke u765_EjectDisk, FDCHandle, 0
case HW_PENTAGON128
wd1793_EjectDisk TRDOSHandle, 0
.else
.if PLUSD_Enabled == TRUE
wd1793_EjectDisk PLUSDHandle, 1 ; 1-based for +D units
.endif
.if CBI_Enabled == TRUE
wd1793_EjectDisk CBIHandle, 0
.endif
endsw
case IDM_EJECTDISK_B
switch HardwareMode
case HW_PLUS3
invoke u765_EjectDisk, FDCHandle, 1
case HW_PENTAGON128
wd1793_EjectDisk TRDOSHandle, 1
.else
.if PLUSD_Enabled == TRUE
wd1793_EjectDisk PLUSDHandle, 2 ; 1-based for +D units
.endif
.if CBI_Enabled == TRUE
wd1793_EjectDisk CBIHandle, 1
.endif
endsw
case IDM_EJECTDISK_C
switch HardwareMode
case HW_PENTAGON128
wd1793_EjectDisk TRDOSHandle, 2
.else
.if CBI_Enabled == TRUE
wd1793_EjectDisk CBIHandle, 2
.endif
endsw
case IDM_EJECTDISK_D
switch HardwareMode
case HW_PENTAGON128
wd1793_EjectDisk TRDOSHandle, 3
.else
.if CBI_Enabled == TRUE
wd1793_EjectDisk CBIHandle, 3
.endif
endsw
case IDM_SAVESCREEN ; save screen
MouseOn
invoke SaveScreenFile
MouseOff
invoke Resync_Capture
case IDM_EXIT ; exit
invoke SendMessage, hWin, WM_SYSCOMMAND, SC_CLOSE, NULL
case IDM_ABOUT ; about
MouseOn
call HandleAboutDialog
MouseOff
invoke Resync_Capture
case IDM_RESET ; Soft Reset
invoke Close_RZX, 0, FALSE
invoke GetUserConfig ; gets user's current machine config
call ResetSpectrum
case IDM_HARDRESET ; Hard Reset
invoke Close_RZX, 0, FALSE
invoke GetUserConfig ; gets user's current machine config
mov HardReset, TRUE
call ResetSpectrum
case IDM_PAUSE ; Pause/Resume
call InitPort
invoke PauseResumeEmulation
ifc EmuRunning eq TRUE then invoke Resync_Capture
case IDM_GENERATENMI ; Generate NMI
mov currentMachine.nmi, TRUE
case IDM_1_75_MHZ..IDM_50_MHZ ; set CPU clock speed
sub eax, IDM_1_75_MHZ
dec eax ; make range -1 to IDM_50_MHZ - 1
mov CPU_Speed, al
case IDM_FULLSPEED ; toggle fullspeed mode
call ToggleFullSpeed
case IDM_ZOOM100
; ifc FullScreenMode ne TRUE then invoke SetClientSize, hWin, MACHINE.DisplayWidth, MACHINE.DisplayHeight
ifc FullScreenMode ne TRUE then invoke SetClientSize, hWin, 320, 240
case IDM_ZOOM200
; .if FullScreenMode != TRUE
; mov esi, MACHINE.DisplayWidth
; mov edi, MACHINE.DisplayHeight
; shl esi, 1
; shl edi, 1
; invoke SetClientSize, hWin, esi, edi
; .endif
ifc FullScreenMode ne TRUE then invoke SetClientSize, hWin, 320*2, 240*2
case IDM_ZOOM300
ifc FullScreenMode ne TRUE then invoke SetClientSize, hWin, 320*3, 240*3
case IDM_ZOOM400
ifc FullScreenMode ne TRUE then invoke SetClientSize, hWin, 320*4, 240*4
; ULA palette selection
case IDM_SPECTRUMPALETTE
invoke SetSpectrumPalette, PALETTE_SPECTRUM
RENDERFRAME
case IDM_GREENSCREENPALETTE
invoke SetSpectrumPalette, PALETTE_GREENSCREEN
RENDERFRAME
case IDM_BLACKANDWHITEPALETTE
invoke SetSpectrumPalette, PALETTE_GRAYSCALE
RENDERFRAME
case IDM_CUSTOMPALETTE
invoke SetSpectrumPalette, PALETTE_CUSTOM
RENDERFRAME
case IDM_EDITCUSTOMPALETTE
MouseOn
invoke EditCustomPalette
MouseOff
invoke Resync_Capture
; ULAplus palette selection
case IDM_ULAPLUS_AMBER
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_AMBER
RENDERFRAME
case IDM_ULAPLUS_C64
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_C64
RENDERFRAME
case IDM_ULAPLUS_DEMO
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_DEMO
RENDERFRAME
case IDM_ULAPLUS_GENERIC
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_GENERIC
RENDERFRAME
case IDM_ULAPLUS_GRADIENTS
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_GRADIENTS
RENDERFRAME
case IDM_ULAPLUS_GREENSCREEN
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_GREENSCREEN
RENDERFRAME
case IDM_ULAPLUS_PRIMARIES
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_PRIMARIES
RENDERFRAME
case IDM_ULAPLUS_RGB
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_RGB
RENDERFRAME
case IDM_ULAPLUS_RGB_ALT
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_RGB_ALT
RENDERFRAME
case IDM_ULAPLUS_STANDARD
invoke EnableULAplusMode, TRUE
invoke SelectULAplusPalette, ULAPLUSPALETTE_STANDARD
RENDERFRAME
case IDM_DEBUGGER ; Debugger
invoke PostMessage, hWnd, WM_KEYDOWN, VK_ESCAPE, "FK"
case IDM_POKEMEMORY ; Poke Memory
MouseOn
call HandlePokeDialog
MouseOff