16 lines
1001 B
Plaintext
16 lines
1001 B
Plaintext
1 .module wc_prm_pl
|
|
2 .area _CODE
|
|
00006006 3 WC_ENTRY = 0x6006
|
|
4 .globl _wc_prm_pl
|
|
00000000 5 _wc_prm_pl::
|
|
00000000 08 [ 4] 6 ex af, af'
|
|
00000001 DD E5 [15] 7 push ix
|
|
00000003 3E 53 [ 7] 8 ld a, #0x53
|
|
00000005 CD 06 60 [17] 9 call WC_ENTRY
|
|
10 ; Z=нет параметра → вернуть 0xFF, иначе A=номер опции
|
|
00000008 20 02 [12] 11 jr nz, _wc_prm_pl_end
|
|
0000000A 3E FF [ 7] 12 ld a, #0xFF
|
|
0000000C 13 _wc_prm_pl_end:
|
|
0000000C DD E1 [14] 14 pop ix
|
|
0000000E C9 [10] 15 ret
|