31 lines
2.2 KiB
Plaintext
31 lines
2.2 KiB
Plaintext
1 .module wc_tmrkdfl
|
|
2 .area _CODE
|
|
00006006 3 WC_ENTRY = 0x6006
|
|
4 .globl _wc_tmrkdfl
|
|
00000000 5 _wc_tmrkdfl::
|
|
00000000 DD E5 [15] 6 push ix
|
|
00000002 E5 [11] 7 push hl ; save panel (HL = 1st arg)
|
|
00000003 D5 [11] 8 push de ; save filenum (DE = 2nd arg)
|
|
00000004 DD 21 00 00 [14] 9 ld ix, #0
|
|
00000008 DD 39 [15] 10 add ix, sp
|
|
0000000A DD 5E 08 [19] 11 ld e, 8(ix)
|
|
0000000D DD 56 09 [19] 12 ld d, 9(ix) ; DE = namebuf (from stack)
|
|
00000010 DD 6E 00 [19] 13 ld l, 0(ix)
|
|
00000013 DD 66 01 [19] 14 ld h, 1(ix) ; HL = filenum (from saved DE)
|
|
00000016 D9 [ 4] 15 exx
|
|
00000017 DD 6E 02 [19] 16 ld l, 2(ix)
|
|
0000001A DD 66 03 [19] 17 ld h, 3(ix) ; HL = panel (from saved HL)
|
|
0000001D E5 [11] 18 push hl
|
|
0000001E DD E1 [14] 19 pop ix ; IX = panel
|
|
00000020 D9 [ 4] 20 exx ; HL=filenum, DE=namebuf
|
|
00000021 3E 36 [ 7] 21 ld a, #0x36
|
|
00000023 CD 06 60 [17] 22 call WC_ENTRY
|
|
00000026 D1 [10] 23 pop de ; remove saved filenum
|
|
00000027 E1 [10] 24 pop hl ; remove saved panel
|
|
00000028 DD E1 [14] 25 pop ix
|
|
26 ; callee cleans 2 bytes (namebuf)
|
|
0000002A E1 [10] 27 pop hl
|
|
0000002B 33 [ 6] 28 inc sp
|
|
0000002C 33 [ 6] 29 inc sp
|
|
0000002D E9 [ 4] 30 jp (hl)
|