20 lines
1.3 KiB
Plaintext
20 lines
1.3 KiB
Plaintext
1 .module wc_istr
|
|
2 .area _CODE
|
|
00006006 3 WC_ENTRY = 0x6006
|
|
4 .globl _wc_istr
|
|
00000000 5 _wc_istr::
|
|
00000000 DD E5 [15] 6 push ix
|
|
00000002 DD 21 00 00 [14] 7 ld ix, #0
|
|
00000006 DD 39 [15] 8 add ix, sp
|
|
00000008 DD 7E 04 [19] 9 ld a, 4(ix) ; A = mode (from stack)
|
|
0000000B 08 [ 4] 10 ex af, af' ; A' = mode
|
|
0000000C E5 [11] 11 push hl
|
|
0000000D DD E1 [14] 12 pop ix ; IX = win (HL = 1st arg)
|
|
0000000F 3E 09 [ 7] 13 ld a, #0x09
|
|
00000011 CD 06 60 [17] 14 call WC_ENTRY
|
|
00000014 DD E1 [14] 15 pop ix
|
|
16 ; callee cleans 1 byte (mode)
|
|
00000016 E1 [10] 17 pop hl
|
|
00000017 33 [ 6] 18 inc sp
|
|
00000018 E9 [ 4] 19 jp (hl)
|