forked from NEO-SPECTRUMAN/SpecEmu
-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathAssembler.asm
780 lines (579 loc) · 36.9 KB
/
Assembler.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
include Scintilla.inc
Asm_StateCallback PROTO C :DWORD,:DWORD,:DWORD,:WORD,:DWORD,:DWORD
Asm_ListCallback PROTO C :DWORD,:WORD,:LPCSTR,:DWORD,:DWORD,:DWORD,:BOOL
ASM_ITEM_DATA struct
hWnd DWORD ? ; window handle tab's edit control
filename db MAX_PATH dup (?)
ASM_ITEM_DATA ends
TEDITBOX_SIZE struct
x DWORD ?
y DWORD ?
nwidth DWORD ?
nheight DWORD ?
TEDITBOX_SIZE ends
AssemblerDialogProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
ToggleAssemblerDialog PROTO
ShowAssemblerDialog PROTO
HideAssemblerDialog PROTO
NewPage PROTO :DWORD
CloseTab PROTO :DWORD
Switch_To_Tab PROTO :DWORD
GetCurrentTab PROTO
GetTabDataNode PROTO :DWORD
GetTabFilename PROTO :DWORD,:DWORD
Asm_SaveAllTabFiles PROTO
SaveTabFile PROTO :DWORD
SaveTabFileAs PROTO :DWORD
Get_EditBox_Size PROTO
AsmMessageBox PROTO :DWORD,:DWORD,:DWORD
.data?
align 4
Asm_hWnd dd ?
Asm_Tab_hWnd dd ? ; handle of tab control
current_sci_hWnd dd ? ; handle of currently active Scintilla edit control
next_avail_tab_index dd ?
next_child_ID dd ?
EditBox_Size TEDITBOX_SIZE <?>
asm_ofn OPENFILENAME <?>
asmtemppathstring BYTE MAX_PATH dup (?)
.data
Assembler_Enabled db FALSE
szASMFilter db "Asm files (*.asm)", 0, "*.asm", 0, 0
db 0
asm_new_def_filename db "Untitled*", 0
AssemblerWinName db "AssemblerWindow", 0
.code
TABSTRIP_HEIGHT = 25
SendEdit macro uMsg, wParam, lParam
invoke SendMessage, current_sci_hWnd, uMsg, wParam, lParam
endm
ToggleAssemblerDialog proc
.if Assembler_Enabled == TRUE
invoke HideAssemblerDialog
.else
invoke ShowAssemblerDialog
.endif
ret
ToggleAssemblerDialog endp
ShowAssemblerDialog proc
.if FullScreenMode == FALSE
mov Assembler_Enabled, TRUE
invoke ShowWindow, AssemblerDlg, SW_SHOW
.endif
ret
ShowAssemblerDialog endp
HideAssemblerDialog proc
mov Assembler_Enabled, FALSE
invoke ShowWindow, AssemblerDlg, SW_HIDE
ret
HideAssemblerDialog endp
AssemblerDialogProc proc uses ebx esi edi,
hWndDlg: DWORD,
uMsg: DWORD,
wParam: DWORD,
lParam: DWORD
local ofn: OPENFILENAME
local rect: RECT
local WinRect: RECT
local wwidth, wheight: DWORD
local itemtab: TC_ITEM
local srcmem: DWORD,
srclen: DWORD
local wParamLow: WORD,
wParamHigh: WORD
mov eax, wParam
mov wParamLow, ax
shr eax, 16
mov wParamHigh, ax
RESETMSG
OnInitDialog
m2m Asm_hWnd, hWndDlg
mov Asm_Tab_hWnd, $fnc (GetDlgItem, hWndDlg, IDC_ASM_TABS)
mov next_child_ID, 4200
mov next_avail_tab_index, 0
mov current_sci_hWnd, 0
invoke Get_EditBox_Size
invoke MoveWindow, Asm_Tab_hWnd, 0, 0, EditBox_Size.nwidth, TABSTRIP_HEIGHT, TRUE
mov DummyMem, 0
strcat addr DummyMem, addr AssemblerWinName, SADD ("_X")
invoke ReadProfileInt, addr DummyMem, -1
mov esi, eax
mov DummyMem, 0
strcat addr DummyMem, addr AssemblerWinName, SADD ("_Y")
invoke ReadProfileInt, addr DummyMem, -1
mov edi, eax
mov DummyMem, 0
strcat addr DummyMem, addr AssemblerWinName, SADD ("_W")
invoke ReadProfileInt, addr DummyMem, -1
mov wwidth, eax
mov DummyMem, 0
strcat addr DummyMem, addr AssemblerWinName, SADD ("_H")
invoke ReadProfileInt, addr DummyMem, -1
mov wheight, eax
mov edx, SWP_NOOWNERZORDER or SWP_NOZORDER
.if (wwidth == -1) || (wheight == -1)
or edx, SWP_NOSIZE ; SetWindowPos ignores cx, cy params (new width, hew height)
.endif
.if (esi != -1) && (edi != -1)
invoke SetWindowPos, hWndDlg, NULL, esi, edi, wwidth, wheight, edx
.endif
return TRUE
OnCommand
; menu commands
.if wParamHigh == 0
switch wParamLow
case IDM_ASM_NEW
invoke NewPage, addr asm_new_def_filename
case IDM_ASM_OPEN
mov ofn.lpstrDefExt, offset ASMExt
.if $fnc (GetFileName, hWndDlg, SADD ("Open assembler source file"), addr szASMFilter, addr ofn, addr szAsmFileName, addr ASMExt) != 0
; is this file already open?
xor esi, esi
.while TRUE
.if $fnc (GetTabDataNode, esi) != 0
mov edi, eax
.if $fnc (Cmpi, addr [edi].ASM_ITEM_DATA.filename, addr szAsmFileName) == 0
; filename matches with item tab in esi
invoke Switch_To_Tab, esi ; switch to the tab with matching filename
return TRUE
.endif
.else
.break ; reached end of tab item list; no filename match so continue to open new tab
.endif
inc esi ; next tab item
.endw
.if $fnc (ReadFileToMemory, addr szAsmFileName, addr srcmem, addr srclen) != NULL
.if $fnc (NewPage, addr szAsmFileName) == TRUE ; create a new source tab and edit control
SendEdit SCI_ADDTEXT, srclen, srcmem ; insert file source into edit control
SendEdit SCI_EMPTYUNDOBUFFER, 0, 0 ; clear UNDO after inserting the source text
.endif
FreeMem (srcmem) ; free the memory copy of the source file
.endif
.endif
case IDM_ASM_SAVE
mov esi, $fnc (GetCurrentTab)
ifc esi ne -1 then invoke SaveTabFile, esi
case IDM_ASM_SAVE_AS
mov esi, $fnc (GetCurrentTab)
ifc esi ne -1 then invoke SaveTabFileAs, esi
case IDM_ASM_CLOSE
mov esi, $fnc (GetCurrentTab)
ifc esi ne -1 then invoke CloseTab, esi
case IDM_ASM_ASSEMBLE
mov esi, $fnc (GetCurrentTab)
.if esi == -1
invoke AsmMessageBox, SADD ("No source file selected"), 0, MB_OK
return TRUE ; exit
.endif
; save all source files and then return to current source file tab
push esi
invoke Asm_SaveAllTabFiles
pop esi
invoke Switch_To_Tab, esi
.if $fnc (GetTabDataNode, esi) == 0
invoke AsmMessageBox, SADD ("Uh oh..."), 0, MB_OK
return TRUE ; exit
.endif
mov edi, eax
lea edi, [edi].ASM_ITEM_DATA.filename
invoke Assemble_Source, edi, hWndDlg
invoke Show_Message_Dialog
endsw
.endif
return TRUE
OnNotify
assume ebx: ptr NMHDR
mov ebx, lParam
mov eax, [ebx].NMHDR.hwndFrom
.if eax == Asm_Tab_hWnd
; notification came from the assembler's tab control
switch [ebx].NMHDR.code
case TCN_SELCHANGING
; hide the edit control switching out of view
mov esi, $fnc (GetCurrentTab)
.if esi != -1
.if $fnc (GetTabDataNode, esi) != 0
mov edi, eax
invoke ShowWindow, [edi].ASM_ITEM_DATA.hWnd, SW_HIDE
.endif
.endif
case TCN_SELCHANGE
; resize and show the edit control switching into view
mov esi, $fnc (GetCurrentTab)
.if esi != -1
invoke Switch_To_Tab, esi
.endif
endsw
.endif
assume ebx: NOTHING
OnSizing
LimitWindowWidth 400
LimitWindowHeight 300
invoke Get_EditBox_Size
invoke MoveWindow, current_sci_hWnd, EditBox_Size.x, EditBox_Size.y, EditBox_Size.nwidth, EditBox_Size.nheight, TRUE
return TRUE
OnSize
invoke Get_EditBox_Size
invoke MoveWindow, current_sci_hWnd, EditBox_Size.x, EditBox_Size.y, EditBox_Size.nwidth, EditBox_Size.nheight, TRUE
invoke MoveWindow, Asm_Tab_hWnd, 0, 0, EditBox_Size.nwidth, TABSTRIP_HEIGHT, TRUE
return TRUE
OnShowWindow
return TRUE
OnClose
invoke HideAssemblerDialog
return 0
OnActivate
; .if $LowWord (wParam) != WA_INACTIVE
; CLEARSOUNDBUFFERS
; .endif
return 0
OnEnterMenuLoop
CLEARSOUNDBUFFERS
OnEnterSizeMove
CLEARSOUNDBUFFERS
OnDestroy
invoke GetWindowRect, hWndDlg, addr WinRect
mov DummyMem, 0
strcat addr DummyMem, addr AssemblerWinName, SADD ("_X")
invoke WriteProfileInt, addr DummyMem, WinRect.left
mov DummyMem, 0
strcat addr DummyMem, addr AssemblerWinName, SADD ("_Y")
invoke WriteProfileInt, addr DummyMem, WinRect.top
mov DummyMem, 0
strcat addr DummyMem, addr AssemblerWinName, SADD ("_W")
invoke WriteProfileInt, addr DummyMem, @EVAL (WinRect.right - WinRect.left)
mov DummyMem, 0
strcat addr DummyMem, addr AssemblerWinName, SADD ("_H")
invoke WriteProfileInt, addr DummyMem, @EVAL (WinRect.bottom - WinRect.top)
return NULL
OnDefault
return FALSE
DOMSG
ret
AssemblerDialogProc endp
GetCurrentTab proc
return $fnc (SendMessage, Asm_Tab_hWnd, TCM_GETCURSEL, 0, 0) ; -1 on error, else current tab number
GetCurrentTab endp
Asm_SaveAllTabFiles proc uses esi
xor esi, esi
.while TRUE
.if $fnc (GetTabDataNode, esi) != 0
invoke Switch_To_Tab, esi
invoke SaveTabFile, esi
.else
.break ; reached end of tab item list; no filename match so continue to open new tab
.endif
inc esi ; next tab item
.endw
ret
Asm_SaveAllTabFiles endp
;' ========================================================================================
;' SCI_GETTEXT(int length, char *text)
;' This returns length-1 characters of text from the start of the document plus one
;' terminating 0 character. To collect all the text in a document, use SCI_GETLENGTH to
;' get the number of characters in the document (nLen), allocate a character buffer of
;' length nLen+1 bytes, then call SCI_GETTEXT(nLen+1, char *text). If the text argument
;' is 0 then the length that should be allocated to store the entire document is returned.
;' If you then save the text, you should use SCI_SETSAVEPOINT to mark the text as unmodified.
;' ========================================================================================
;' ========================================================================================
;FUNCTION SCI_GetText (BYVAL hSci AS DWORD) AS STRING
; LOCAL nLen AS LONG
; LOCAL buffer AS STRING
; nLen = SendMessage(hSci, %SCI_GETLENGTH, 0, 0)
; IF nLen < 1 THEN EXIT FUNCTION
; buffer = SPACE$(nLen + 1)
; SendMessageA(hSci, %SCI_GETTEXT, nLen + 1, STRPTR(buffer))
; FUNCTION = REMOVE$(buffer, CHR$(0))
;END FUNCTION
;' ========================================================================================
SaveTabFile proc uses esi edi,
tab_item: DWORD
local ofn: OPENFILENAME
local itemtab: TC_ITEM
local srcmem: DWORD,
srclen: DWORD
local alloclen: DWORD
local filename [MAX_PATH]: BYTE
mov edi, $fnc (GetTabDataNode, tab_item)
ifc edi eq 0 then ret
strcpy addr [edi].ASM_ITEM_DATA.filename, addr filename ; copy full filepath/name into our local filename buffer
.if $fnc (Cmpi, addr [edi].ASM_ITEM_DATA.filename, addr asm_new_def_filename) == 0
; filename matches our default new page filename
; so we do a Save As function
invoke SaveTabFileAs, tab_item
ret
.endif
invoke SendMessage, [edi].ASM_ITEM_DATA.hWnd, SCI_GETLENGTH, 0, 0 ; return the length of the document in bytes
mov srclen, eax
inc eax
mov alloclen, eax
mov srcmem, AllocMem (alloclen)
.if srcmem != NULL
invoke SendMessage, [edi].ASM_ITEM_DATA.hWnd, SCI_GETTEXT, alloclen, srcmem
.if $fnc (WriteMemoryToFile, addr filename, srcmem, srclen) != 0
invoke SendMessage, [edi].ASM_ITEM_DATA.hWnd, SCI_EMPTYUNDOBUFFER, 0, 0 ; clear UNDO after writing source file
invoke SendMessage, [edi].ASM_ITEM_DATA.hWnd, SCI_SETSAVEPOINT, 0, 0 ; mark the text as unmodified
.endif
FreeMem (srcmem)
.endif
ret
SaveTabFile endp
SaveTabFileAs proc uses esi edi,
tab_item: DWORD
local ofn: OPENFILENAME
local itemtab: TC_ITEM
local srcmem: DWORD,
srclen: DWORD
local alloclen: DWORD
local fnameonly [MAX_PATH]: BYTE,
savefname [MAX_PATH]: BYTE
mov edi, $fnc (GetTabDataNode, tab_item)
ifc edi eq 0 then ret
ifc Assembler_Enabled eq FALSE then invoke ShowAssemblerDialog
invoke SendMessage, [edi].ASM_ITEM_DATA.hWnd, SCI_GETLENGTH, 0, 0 ; return the length of the document in bytes
mov srclen, eax
inc eax
mov alloclen, eax
mov srcmem, AllocMem (alloclen)
.if srcmem != NULL
invoke SendMessage, [edi].ASM_ITEM_DATA.hWnd, SCI_GETTEXT, alloclen, srcmem
mov savefname[0], 0 ; empty filename in dialog
.if $fnc (SaveFileName, Asm_hWnd, SADD ("Save file as"), addr szASMFilter, addr ofn, addr savefname, addr ASMExt, 0) != 0
.if $fnc (AskOverwriteFile, addr savefname, Asm_hWnd, addr szWindowName) == TRUE
.if $fnc (WriteMemoryToFile, addr savefname, srcmem, srclen) != 0
invoke SendMessage, [edi].ASM_ITEM_DATA.hWnd, SCI_EMPTYUNDOBUFFER, 0, 0 ; clear UNDO after writing source file
invoke SendMessage, [edi].ASM_ITEM_DATA.hWnd, SCI_SETSAVEPOINT, 0, 0 ; mark the text as unmodified
strcpy addr savefname, addr [edi].ASM_ITEM_DATA.filename ; copy full filepath/name into our item data node
invoke ExtractFileName, addr savefname, addr fnameonly ; only display filename
memclr addr itemtab, sizeof itemtab
lea esi, itemtab
mov [esi].TC_ITEM.imask, TCIF_TEXT
lea eax, fnameonly
mov [esi].TC_ITEM.pszText, eax
mov [esi].TC_ITEM.cchTextMax, len (addr fnameonly)
invoke SendMessage, Asm_Tab_hWnd, TCM_SETITEM, tab_item, addr itemtab
.endif
.endif
.endif
FreeMem (srcmem)
.endif
ret
SaveTabFileAs endp
NewPage proc uses esi edi ebx,
lpFilename: DWORD
local editctrl: DWORD
local rect: RECT,
newtab: TC_ITEM
local fnameonly [MAX_PATH]: BYTE
mov edi, AllocMem (sizeof ASM_ITEM_DATA)
ifc edi eq 0 then return FALSE
invoke Get_EditBox_Size
invoke CreateWindowEx, WS_EX_CLIENTEDGE, SADD ("Scintilla"), addr szWindowName, WS_CHILD or WS_VISIBLE,
EditBox_Size.x, EditBox_Size.y, EditBox_Size.nwidth, EditBox_Size.nheight,
Asm_hWnd, next_child_ID, hInstance, NULL
ifc eax eq NULL then FreeMem (edi) : return FALSE
mov editctrl, eax
lea esi, newtab
memclr esi, sizeof TC_ITEM
strcpy lpFilename, addr [edi].ASM_ITEM_DATA.filename ; copy full filepath/name into our item data node
invoke ExtractFileName, lpFilename, addr fnameonly ; only display filename
mov [esi].TC_ITEM.imask, TCIF_TEXT or TCIF_PARAM
lea eax, fnameonly
mov [esi].TC_ITEM.pszText, eax
mov [esi].TC_ITEM.cchTextMax, len (addr fnameonly)
mov [esi].TC_ITEM.lParam, edi ; store our item data node pointer into new tab's lParam
m2m [edi].ASM_ITEM_DATA.hWnd, editctrl ; window handle for the new tab's edit control
.if $fnc (SendMessage, Asm_Tab_hWnd, TCM_INSERTITEM, next_avail_tab_index, esi) == -1
invoke DestroyWindow, editctrl
FreeMem edi
return FALSE
.endif
invoke Switch_To_Tab, next_avail_tab_index ; our new tab becomes the current tab
inc next_avail_tab_index
inc next_child_ID
SendEdit SCI_SETMARGINTYPEN, 0, SC_MARGIN_NUMBER
SendEdit SCI_SETMARGINWIDTHN, 0, 32
SendEdit SCI_STYLESETFONT, STYLE_DEFAULT, SADD ("Courier New")
SendEdit SCI_STYLESETSIZE, STYLE_DEFAULT, 9
SendEdit SCI_STYLECLEARALL, 0, 0
return TRUE
NewPage endp
CloseTab proc uses edi,
tab_item: DWORD
local textstring: TEXTSTRING
local ptextstring:DWORD
local filename [MAX_PATH + 100]: BYTE
mov edi, $fnc (GetTabDataNode, tab_item)
.if edi != 0
.if $fnc (SendMessage, [edi].ASM_ITEM_DATA.hWnd, SCI_GETMODIFY, 0, 0) != 0
; text is modified
invoke Switch_To_Tab, tab_item
invoke GetTabFilename, tab_item, addr filename
invoke INITTEXTSTRING, addr textstring, addr ptextstring
ADDDIRECTTEXTSTRING ptextstring, "The text in "
ADDCHAR ptextstring, 34
ADDTEXTSTRING ptextstring, addr filename
ADDCHAR ptextstring, 34
ADDDIRECTTEXTSTRING ptextstring, " has been changed."
ADDCHAR ptextstring, 10, 10
ADDDIRECTTEXTSTRING ptextstring, "Do you want to save the changes?"
.if $fnc (AsmMessageBox, addr textstring, 0, MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON1) == IDYES
invoke SaveTabFile, tab_item
.endif
.endif
invoke Switch_To_Tab, 0
invoke CloseWindow, [edi].ASM_ITEM_DATA.hWnd ; close tab's edit control
FreeMem edi
invoke SendMessage, Asm_Tab_hWnd, TCM_DELETEITEM, tab_item, 0 ; delete this tab
dec next_avail_tab_index
.endif
ret
CloseTab endp
Switch_To_Tab proc uses edi,
tab_item: DWORD
.if $fnc (GetTabDataNode, tab_item) != 0
mov edi, eax
ifc current_sci_hWnd ne 0 then invoke ShowWindow, current_sci_hWnd, SW_HIDE ; hide current tab edit control
m2m current_sci_hWnd, [edi].ASM_ITEM_DATA.hWnd ; update current tab edit control
invoke Get_EditBox_Size
invoke MoveWindow, current_sci_hWnd, EditBox_Size.x, EditBox_Size.y, EditBox_Size.nwidth, EditBox_Size.nheight, TRUE
invoke ShowWindow, current_sci_hWnd, SW_SHOW
invoke SetFocus, current_sci_hWnd
invoke SendMessage, Asm_Tab_hWnd, TCM_SETCURSEL, tab_item, 0 ; switch to new tab
.endif
ret
Switch_To_Tab endp
GetTabDataNode proc tab_item: DWORD
local itemtab: TC_ITEM
memclr addr itemtab, sizeof itemtab
mov itemtab.imask, TCIF_PARAM
.if $fnc (SendMessage, Asm_Tab_hWnd, TCM_GETITEM, tab_item, addr itemtab) == TRUE
return itemtab.lParam
.endif
return 0
GetTabDataNode endp
GetTabFilename proc tab_item: DWORD,
lpFilename: DWORD
.if $fnc (GetTabDataNode, tab_item) != 0
strcpy addr [eax].ASM_ITEM_DATA.filename, lpFilename
.else
mov eax, lpFilename
mov byte ptr [eax], 0 ; return NULL string
.endif
ret
GetTabFilename endp
Get_EditBox_Size proc
local rect: RECT
invoke GetClientRect, Asm_hWnd, addr rect
m2m EditBox_Size.x, rect.left
m2m EditBox_Size.y, @EVAL (rect.top + TABSTRIP_HEIGHT)
mov EditBox_Size.nwidth, @EVAL (rect.right - rect.left)
mov EditBox_Size.nheight, @EVAL (rect.bottom - rect.top - TABSTRIP_HEIGHT)
ret
Get_EditBox_Size endp
; invoke AsmMessageBox, hWndDlg, SADD ("Text"), SADD ("Caption"), MB_OK
AsmMessageBox proc lpText: DWORD,
lpCaption: DWORD,
uType: DWORD
mov eax, lpCaption
ifc eax eq 0 then lea eax, CTXT ("Assembler")
invoke MessageBox, Asm_hWnd, lpText, eax, uType
ret
AsmMessageBox endp
Assemble_Source proc sourcefile: LPCSTR,
hWndParent: DWORD
local hPasmoStdOut: DWORD
local hStdOutFileMem,
hStdOutFileLen: DWORD
local textlineptr: DWORD
local sa: SECURITY_ATTRIBUTES
local asmsourcefile [MAX_PATH]: BYTE ; path/filename
local asmsourcefilePath [MAX_PATH]: BYTE ; file path only
local asmsourcefileName [MAX_PATH]: BYTE ; file name only
local asmsourcefileTap [MAX_PATH]: BYTE ; asm TAP file name
local asmsourcefileSymbol [MAX_PATH]: BYTE ; asm Symbol file name
local asmsourcefileErr [MAX_PATH]: BYTE ; asm Error file name
local asmlaunchTapfile [MAX_PATH]: BYTE ; asm TAP file path/name launch
local tempfilepath [1024]: BYTE
local tempcurdir [MAX_PATH]: BYTE
strncpy sourcefile, addr asmsourcefile, sizeof asmsourcefile
invoke Clear_Messages
invoke GetCurrentDirectory, sizeof tempcurdir, addr tempcurdir ; preserve current currdir
invoke ExtractFilePath, addr asmsourcefile, addr asmsourcefilePath
invoke ExtractFileName, addr asmsourcefile, addr asmsourcefileName
strncpy addr asmsourcefileName, addr asmsourcefileTap, sizeof asmsourcefileTap
strncpy addr asmsourcefileName, addr asmsourcefileSymbol, sizeof asmsourcefileSymbol
strncpy addr asmsourcefileName, addr asmsourcefileErr, sizeof asmsourcefileErr
invoke @@AddExtension, addr asmsourcefileTap, CTXT ("tap")
invoke @@AddExtension, addr asmsourcefileSymbol, CTXT ("symbol")
invoke @@AddExtension, addr asmsourcefileErr, CTXT ("err")
.if $fnc (SetCurrentDirectory, addr asmsourcefilePath) == 0
invoke ShowMessageBox, hWndParent, SADD ("SetCurrentDirectory failed"), addr szWindowName, MB_OK or MB_ICONINFORMATION
return FALSE
.endif
mov byte ptr tempfilepath, 0
invoke szMultiCat, 3, addr tempfilepath, addr char_quote, offset appPath, SADD ("pasmo.exe", 34, " --alocal --err --name code --tapbas ")
invoke szMultiCat, 3, addr tempfilepath, addr char_quote, addr asmsourcefileName, addr char_quote_space ; "<srcfile>.asm" + " "
invoke szMultiCat, 3, addr tempfilepath, addr char_quote, addr asmsourcefileTap, addr char_quote_space ; "<srcfile>.tap" + " "
invoke szMultiCat, 3, addr tempfilepath, addr char_quote, addr asmsourcefileSymbol, addr char_quote ; "<srcfile>.symbol"
ifdef DEBUGBUILD
; show Pasmo command line
;invoke ShowMessageBox, hWndParent, addr tempfilepath, addr szWindowName, MB_OK or MB_ICONINFORMATION
endif
mov DummyMem, 0
invoke szMultiCat, 2, addr DummyMem, CTXT ("Assembling: "), addr asmsourcefileName
ADDMESSAGEPTR addr DummyMem
memclr addr sa, sizeof sa
mov sa.nLength, sizeof sa
mov sa.bInheritHandle, TRUE
mov hPasmoStdOut, $fnc (CreateFile, addr asmsourcefileErr, FILE_ALL_ACCESS, FILE_SHARE_READ, addr sa, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL)
.if hPasmoStdOut != INVALID_HANDLE_VALUE
memclr addr ProcessInfo, sizeof ProcessInfo
memclr addr StartupInfo, sizeof StartupInfo
mov StartupInfo.cb, sizeof STARTUPINFO
mov StartupInfo.dwFlags, STARTF_USESTDHANDLES
mov StartupInfo.hStdInput, $fnc (GetStdHandle, STD_INPUT_HANDLE)
m2m StartupInfo.hStdOutput, hPasmoStdOut
mov StartupInfo.hStdError, $fnc (GetStdHandle, STD_ERROR_HANDLE)
.if $fnc (CreateProcess, NULL, addr tempfilepath, NULL, NULL, TRUE, NORMAL_PRIORITY_CLASS or CREATE_NO_WINDOW, NULL, NULL, addr StartupInfo, addr ProcessInfo) != 0
; wait for Pasmo to finish
invoke WaitForSingleObject, ProcessInfo.hProcess, INFINITE
; close handles to the child process and its primary thread
invoke CloseHandle, ProcessInfo.hProcess
invoke CloseHandle, ProcessInfo.hThread
.else
invoke ShowMessageBox, hWndParent, SADD ("CreateProcess failed"), addr szWindowName, MB_OK or MB_ICONINFORMATION
.endif
invoke CloseHandle, hPasmoStdOut
.if $fnc (ReadFileToMemory, addr asmsourcefileErr, addr hStdOutFileMem, addr hStdOutFileLen) != 0
.if hStdOutFileLen > 0
; errors in assembly
m2m textlineptr, hStdOutFileMem
.while TRUE
.if $fnc (ReadTextLine, addr textlineptr, addr DummyMem) != 0
ADDMESSAGEPTR addr DummyMem
.else
.break
.endif
.endw
.else
; assembled without errors
ADDMESSAGE "Assembly Complete"
mov DummyMem, 0
invoke szMultiCat, 2, addr DummyMem, CTXT ("Loading: "), addr asmsourcefileTap
ADDMESSAGEPTR addr DummyMem
mov asmlaunchTapfile, 0
invoke szMultiCat, 2, addr asmlaunchTapfile, addr asmsourcefilePath, addr asmsourcefileTap
ADDMESSAGEPTR addr asmlaunchTapfile
invoke InsertTape_1, addr asmlaunchTapfile
.endif
invoke GlobalFree, hStdOutFileMem
invoke DeleteFile, addr asmsourcefileErr
.endif
.else
invoke ShowMessageBox, hWndParent, SADD ("CreateFile failed"), addr szWindowName, MB_OK or MB_ICONINFORMATION
.endif
invoke SetCurrentDirectory, addr tempcurdir ; restore current currdir on exit
return TRUE
Assemble_Source endp