Add OPL4 playback and analyzer support

2026-09-15 14:59:29 +03:00
commit 1686838e03
553 changed files with 50524 additions and 0 deletions
@@ -0,0 +1,25 @@
+                                      1         .module wc_gadrw
+                                      2         .area _CODE
+                         00006006     3 WC_ENTRY = 0x6006
+                                      4         .globl _wc_gadrw
+    00000000                          5 _wc_gadrw::
+    00000000 DD E5            [15]    6         push    ix
+    00000002 E5               [11]    7         push    hl                      ; save win (HL = 1st arg)
+    00000003 DD 21 00 00      [14]    8         ld      ix, #0
+    00000007 DD 39            [15]    9         add     ix, sp
+    00000009 DD 56 06         [19]   10         ld      d, 6(ix)                ; D = y
+    0000000C DD 5E 07         [19]   11         ld      e, 7(ix)                ; E = x
+    0000000F DD 6E 00         [19]   12         ld      l, 0(ix)
+    00000012 DD 66 01         [19]   13         ld      h, 1(ix)                ; HL = win
+    00000015 E5               [11]   14         push    hl
+    00000016 DD E1            [14]   15         pop     ix                      ; IX = win
+    00000018 3E 05            [ 7]   16         ld      a, #0x05
+    0000001A CD 06 60         [17]   17         call    WC_ENTRY                ; HL = result addr
+    0000001D EB               [ 4]   18         ex      de, hl                  ; DE = result (sdcccall(1) uint16)
+    0000001E E1               [10]   19         pop     hl                      ; remove saved win (use HL, keep DE)
+    0000001F DD E1            [14]   20         pop     ix                      ; restore caller IX
+                                     21         ; callee cleans 2 bytes (y+x); preserve DE = return value
+    00000021 E1               [10]   22         pop     hl                      ; HL = return address
+    00000022 33               [ 6]   23         inc     sp
+    00000023 33               [ 6]   24         inc     sp                      ; discard y(1)+x(1)
+    00000024 E9               [ 4]   25         jp      (hl)                    ; return, DE = result