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)