network/icq: sources uploaded to SVN
git-svn-id: svn://kolibrios.org@1832 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Yogev Ezra
parent
36e43113ac
commit
fc9a00e362
160
programs/network/icq/trunk/2000.inc
Normal file
160
programs/network/icq/trunk/2000.inc
Normal file
@ -0,0 +1,160 @@
|
||||
; constants
|
||||
FLAP_HEAD_SIZE = 6
|
||||
SNAC_HEAD_SIZE = 10
|
||||
|
||||
;AUTH_MESSAGE = 0008h
|
||||
;USER_ADDED_MESS = 000Ch
|
||||
;AUTH_REQ_MESS = 0006h
|
||||
;URL_MESS = 0004h
|
||||
;WEB_MESS = 000dh
|
||||
;EMAIL_MESS = 000eh
|
||||
;MASS_MESS_MASK = 8000h
|
||||
;MRURL_MESS = 8004h
|
||||
;NORM_MESS = 0001h
|
||||
;MRNORM_MESS = 8001h
|
||||
;CONTACT_MESS = 0013h
|
||||
;MRCONTACT_MESS = 8013h
|
||||
;
|
||||
;
|
||||
;
|
||||
;CAP_PRECAP = "\x09\x46\x13"
|
||||
;CAP_PRERTF = "\x97\xb1\x27"
|
||||
;CAP_POSCAP = "\x4c\x7f\x11\xd1\x82\x22\x44\x45\x53\x54\x00\x00"
|
||||
;CAP_POSRTF = "\x24\x3c\x43\x34\xad\x22\xd6\xab\xf7\x3f\x14\x92"
|
||||
|
||||
;
|
||||
;Fingerprinting Capabilities
|
||||
;
|
||||
;CAP_M2001 = "\x2e\x7a\x64" "\x75" "\xfa\xdf\x4d\xc8\x88\x6f\xea\x35\x95\xfd\xb6\xdf"
|
||||
;CAP_M2001_2 = "\xa0\xe9\x3f" "\x37" "\x4f\xe9\xd3\x11\xbc\xd2\x00\x04\xac\x96\xdd\x96"
|
||||
;CAP_M2002 = "\x10\xcf\x40" "\xd1" "\x4f\xe9\xd3\x11\xbc\xd2\x00\x04\xac\x96\xdd\x96"
|
||||
;CAP_MLITE = "\x56\x3f\xc8" "\x09" "\x0b\x6f\x41\xbd\x9f\x79\x42\x26\x09\xdf\xa2\xf3"
|
||||
;CAP_SIMICQ = "\x97\xb1\x27" "\x51" "\x24\x3c\x43\x34\xad\x22\xd6\xab\xf7\x3f\x14\x48"
|
||||
;CAP_MICQ = "mICQ \xa9 R.K. \x00\x00\x00\x00"
|
||||
;CAP_TRILL_NORM = "\x97\xb1\x27" "\x51" "\x24\x3c\x43\x34\xad\x22\xd6\xab\xf7\x3f\x14\x09"
|
||||
;CAP_TRILL_CRYPT= "\xf2\xe7\xc7" "\xf4" "\xfe\xad\x4d\xfb\xb2\x35\x36\x79\x8b\xdf\x00\x00"
|
||||
;CAP_LICQ = "\x09\x49\x13"
|
||||
|
||||
;
|
||||
;DC Packet Types
|
||||
;
|
||||
;PEER_INIT = 0ffh
|
||||
;PEER_INITACK = 01h
|
||||
;PEER_MSG = 02h
|
||||
;PEER_INIT2 = 03h
|
||||
;PEER_FILE_INIT = 00h
|
||||
;PEER_FILE_INIT_ACK = 01h
|
||||
;PEER_FILE_START = 02h
|
||||
;PEER_FILE_START_ACK = 03h
|
||||
;PEER_FILE_STOP = 04h
|
||||
;PEER_FILE_SPEED = 05h
|
||||
;PEER_FILE_DATA = 06h
|
||||
|
||||
|
||||
ICQ_PORT = 5190
|
||||
;
|
||||
; FLAP transport
|
||||
;
|
||||
FLAP_ID = 02ah
|
||||
|
||||
struc FLAP_head
|
||||
{
|
||||
.bId db FLAP_ID ;id byte
|
||||
.bCh db ? ;channel
|
||||
.wSn dw ? ;seq number
|
||||
.wDs dw ? ;data size
|
||||
}
|
||||
;
|
||||
; Channels ID
|
||||
;
|
||||
|
||||
NEW_CONNECTION = 01h
|
||||
SNAC_DATA = 02h
|
||||
FLAP_ERROR = 03h
|
||||
CLOSE_CONNECTION = 04h
|
||||
KEEP_ALIVE = 05h
|
||||
|
||||
;
|
||||
; SNAC
|
||||
;
|
||||
struc SNAC_head
|
||||
{
|
||||
.wFid dw ?; Family id
|
||||
.wSid dw ?; subtype id
|
||||
.wDf dw ?; SNAC flags
|
||||
.dRi dd ?; SNAC Request id
|
||||
}
|
||||
|
||||
;
|
||||
;
|
||||
; Familes/SNACs list
|
||||
;
|
||||
|
||||
GENERIC_SN = 0001h
|
||||
LOCATION_SN = 0002h
|
||||
BUDDY_LIST_SN = 0003h
|
||||
ICBM_SN = 0004h
|
||||
PRIVACY_SN = 0009h
|
||||
BUDDY_ICONS_SN = 0010h
|
||||
SSI_SN = 0013h
|
||||
AUTH_REG_SN = 0017h
|
||||
|
||||
;
|
||||
; TLV
|
||||
;
|
||||
struc TLV_head
|
||||
{
|
||||
.wTn dw ?; TLV type number
|
||||
.wLv dw ?; TLV length value
|
||||
}
|
||||
|
||||
;
|
||||
; userinfo block
|
||||
;
|
||||
struc UI_head
|
||||
{
|
||||
.bUinLength db 0 ; UIN/screenname length
|
||||
.bUin db 11 dup 0 ; string
|
||||
.wWl dw 0 ; Warning level
|
||||
.dUserClass dd 0
|
||||
.dCreateTime dd 0
|
||||
.dSignonTime dd 0
|
||||
.wIdleTime dw 0
|
||||
.dCreationTime dd 0
|
||||
.dUserStatus dd 0
|
||||
.dIpAddress dd 0
|
||||
.dOnlineTime dd 0
|
||||
|
||||
}
|
||||
|
||||
;
|
||||
;Roasting array
|
||||
;
|
||||
ROASTING_ARRAY db 0F3h, 026h, 081h, 0C4h, 039h, 086h, 0DBh, 092h, 071h, 0A3h, 0B9h, 0E6h, 053h, 07Ah, 095h, 07Ch
|
||||
|
||||
;
|
||||
; Status flags
|
||||
;
|
||||
;
|
||||
|
||||
STATUS_WEBAWARE = 0x0001 ;Status webaware flag
|
||||
STATUS_SHOWIP = 0x0002 ;Status show ip flag
|
||||
STATUS_BIRTHDAY = 0x0008 ;User birthday flag
|
||||
STATUS_WEBFRONT = 0x0020 ;User active webfront flag
|
||||
STATUS_DCDISABLED = 0x0100 ;Direct connection not supported
|
||||
STATUS_DCAUTH = 0x1000 ;Direct connection upon authorization
|
||||
STATUS_DCCONT = 0x2000 ;DC only with contact users
|
||||
|
||||
;
|
||||
; Status
|
||||
;
|
||||
|
||||
STATUS_ONLINE = 0x0000 ;Status is online
|
||||
STATUS_AWAY = 0x0001 ;Status is away
|
||||
STATUS_DND = 0x0002 ;Status is no not disturb (DND)
|
||||
STATUS_NA = 0x0004 ;Status is not available (N/A)
|
||||
STATUS_OCCUPIED = 0x0010 ;Status is occupied (BISY)
|
||||
STATUS_FREE4CHAT = 0x0020 ;Status is free for chat
|
||||
STATUS_INVISIBLE = 0x0100 ;Status is invisible
|
||||
|
||||
|
||||
275
programs/network/icq/trunk/EDITBOX.INC
Normal file
275
programs/network/icq/trunk/EDITBOX.INC
Normal file
@ -0,0 +1,275 @@
|
||||
; SEE YOU File FAQ.txt and HISTORY. Good Like!
|
||||
;;;;;;;;;;;;;;;;;;
|
||||
include 'editbox.mac' ;¬ ªà®á ª®â®àë© ¤®«¦¥ ®¡«¥£ç¨âì ¦¨§ì :) á¯¥æ¨ «ì® ¤«ï editbox
|
||||
;;;;;;;;;;;;;;;;;;
|
||||
macro use_edit_box procinfo,scr_h,scr_w
|
||||
{
|
||||
edit_box:
|
||||
ed_width equ [edi] ;è¨à¨ ª®¬¯®¥â
|
||||
ed_left equ [edi+4] ;¯®«®¦¥¨¥ ¯® ®á¨ å
|
||||
ed_top equ [edi+8] ;¯®«®¦¥¨¥ ¯® ®á¨ ã
|
||||
ed_color equ [edi+12] ;梥â ä® ª®¬¯®¥â
|
||||
shift_color equ [edi+16] ;=0x6a9480
|
||||
ed_focus_border_color equ [edi+20] ;梥â à ¬ª¨ ª®¬¯®¥â
|
||||
ed_blur_border_color equ [edi+24] ;梥⠥ ªâ¨¢®£® ª®¬¯®¥â
|
||||
ed_text_color equ [edi+28] ;梥â ⥪áâ
|
||||
ed_max equ [edi+32] ;ª®«-¢® ᨬ¢®«®¢ ª®â®àë¥ ¬®¦® ¬ ªá¨¬ «ì® ¢¢¥áâ¨
|
||||
ed_text equ [edi+36] ;㪠§ â¥«ì ¡ãä¥à
|
||||
ed_flags equ [edi+40] ;ä« £¨
|
||||
ed_size equ [edi+42] ;ª®«-¢® ᨬ¢®«®¢
|
||||
ed_pos equ [edi+46] ;¯®§¨æ¨ï ªãàá®à
|
||||
ed_offset equ [edi+50] ;ᬥ饨¥
|
||||
cl_curs_x equ [edi+54] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® å
|
||||
cl_curs_y equ [edi+58] ;¯à¥¤ë¤ã饥 ª®®à¤¨ â ªãàá®à ¯® ã
|
||||
ed_shift_pos equ [edi+62] ;¯®«®¦¥¨¥ ªãàá®à
|
||||
ed_shift_pos_old equ [edi+66] ;áâ ஥ ¯®«®¦¥¨¥ ªãàá®à
|
||||
;==========================================================
|
||||
;=== ¯à®æ¥¤ãà ¯à®à¨á®¢ª¨ =================================
|
||||
;==========================================================
|
||||
.draw:
|
||||
pusha
|
||||
;--- à¨á㥬 à ¬ªã ---
|
||||
call .draw_border ; ”ãªæ¨ï áâ ¡¨«ì
|
||||
.draw_bg_cursor_text:
|
||||
;--- ¨§¬¥ï¥¬ ᬥ饨¥, ¥á«¨ ¤® ---
|
||||
call .check_offset ;¢ëç¨á«¥¨¥ ¯®§¨æ¨¨ ªãàá®à áâ ¡¨«ì
|
||||
;--- à¨á㥬 ¢ãâà¥îî ®¡« áâì ---
|
||||
call .draw_bg ; à¨á®¢ âì ¯àאַ㣮«ì¨ª à ¡®ç¥© ®¡« áâ¨
|
||||
;---- à¨á㥬 ¢ë¤¥«¥¨¥, ¯® shift ¥á«¨ ¥áâì
|
||||
call .draw_shift
|
||||
.draw_cursor_text:
|
||||
;--- à¨á㥬 ªãàá®à ---
|
||||
;--- ¬®¦¥â ¥£® ¥ ¤® à¨á®¢ âì ----
|
||||
test word ed_flags,ed_focus
|
||||
je @f
|
||||
call .draw_cursor
|
||||
@@:
|
||||
call .draw_text
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;Ž¡é¨© ¢ë室 ¨§ editbox ¤«ï ¢á¥å äãªæ¨© ¨ ¯®áâ ®¡à ¡®â稪®¢
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
.editbox_exit:
|
||||
edit_ex
|
||||
;==========================================================
|
||||
;=== ®¡à ¡®âª ª« ¢¨ âãàë =================================
|
||||
;==========================================================
|
||||
.key:
|
||||
pusha
|
||||
test word ed_flags,ed_focus ; ¥á«¨ ¥ ¢ 䮪ãá¥, ¢ë室¨¬
|
||||
je .editbox_exit
|
||||
;<3B>஢¥àª ¦ â shift ?
|
||||
call .check_shift
|
||||
;----------------------------------------------------------
|
||||
;--- ¯à®¢¥à塞, çâ® ¦ â® --------------------------------
|
||||
;----------------------------------------------------------
|
||||
use_key_process backspase,delete,left,right,home,end,insert
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;‡ £«ãèª ®¡à ¡®âªã ª« ¢¨è ¢¢¥àå ¨ ¢¨§ â.¥. ¯à¨ ®¡ à㦥¨¨ íâ¨å ª®¤®¢ ¯à®¨á室¨â ¢ë室 ¨§ ®¡à ¡®â稪
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
use_key_no_process up,down,esc
|
||||
;--- ¦ â ¤àã£ ï ª« ¢¨è ---
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;<3B>஢¥àª ãáâ ®¢«¥ «¨ ä« £ ¯à¨ ª®â®à®¬ 㦮 ¢ë¢®¤¨âì ⮫쪮 æ¨äàë ¢ 㦮¬ ¡®ªá¥ ¥á«¨ â ª®©¥®¡å®¤¨¬®á⨠¥â 㦮 § ª®¬¥â¨à®¢ âì ¬ ªà®á
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
use_key_figures_only
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;¯à®¢¥àª shift ¡ë« «¨ ¦ â
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
are_key_shift_press
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; ¯à®¢¥à塞, 室¨âáï «¨ ªãàá®à ¢ ª®æ¥ + ¤ «ì¥©è ï ®¡à ¡®âª
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
are_key_cur_end
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;Ž¡à ¡®âª ª« ¢¨è insert,delete.backspase,home,end,left,right
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
use_work_key
|
||||
;==========================================================
|
||||
;=== ®¡à ¡®âª ¬ëè¨ =======================================
|
||||
;==========================================================
|
||||
.mouse:
|
||||
pusha
|
||||
;debug
|
||||
;----------------------------------------------------------
|
||||
;--- ¯®«ãç ¥¬ á®áâ®ï¨¥ ª®¯®ª ¬ëè¨ -----------------------
|
||||
;----------------------------------------------------------
|
||||
mcall 37,2
|
||||
;----------------------------------------------------------
|
||||
;--- ¯à®¢¥à塞 á®áâ®ï¨¥ ----------------------------------
|
||||
;----------------------------------------------------------
|
||||
test eax,1
|
||||
jnz .mouse_left_button
|
||||
and word ed_flags,ed_mouse_on_off
|
||||
xor ebx,ebx
|
||||
mov dword [mouse_flag],ebx
|
||||
jmp .editbox_exit
|
||||
.mouse_left_button:
|
||||
;----------------------------------------------------------
|
||||
;--- ¡«®ª¨à®¢ª ®â 䮪ãá¨à®¢ª¨ ¢ ¤àã£¨å ¡®ªá å ¯à¨ ¯®¯ ¤ ¨¨ ¨å ªãàá®à
|
||||
;----------------------------------------------------------
|
||||
mov eax,dword [mouse_flag]
|
||||
test eax,eax
|
||||
jz @f
|
||||
cmp eax,edi
|
||||
je @f
|
||||
jmp ._blur
|
||||
;----------------------------------------------------------
|
||||
;--- ¯®«ãç ¥¬ ª®®à¤¨ âë ¬ëè¨ ®â®á¨â¥«ì® 0 â.¥ ¢á¥© ®¡« á⨠íªà
|
||||
;----------------------------------------------------------
|
||||
@@: mcall 37,0
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;”ãªæ¨ï ®¡à ¡®âª¨ ¬ë誨 ¯®«ã票¥ ª®®à¤¨ â ¨ ¯à®¢¥àª ¨å + ¢ë¤¥«¥¨ï
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
use_work_mause scr_h,scr_w
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;Ž¡é¨¥ äãªæ¨¨ ®¡à ¡®âª¨
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
use_general_func
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;”ãªæ¨¨ ¤«ï à ¡®âë á key
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
use_key_func
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;”ãªæ¨¨ ¤«ï à ¡®âë á mouse
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
use_mouse_func scr_w
|
||||
}
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;Bit mask from editbox
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
ed_figure_only= 1000000000000000b ;®¤¨ ᨬ¢®«ë
|
||||
ed_always_focus= 100000000000000b
|
||||
ed_focus= 10b ;䮪ãá ¯à¨«®¦¥¨ï
|
||||
ed_shift_on= 1000b ;¥á«¨ ¥ ãáâ ®¢«¥ -§ ç¨â ¢¯¥à¢ë¥ ¦ â shift,¥á«¨ ¡ë« ãáâ ®¢«¥, § ç¨â ¬ë 㦥 çâ® - â® ¤¥« «¨ 㤥ন¢ ï shift
|
||||
ed_shift_on_off=1111111111110111b
|
||||
ed_shift= 100b ;¢ª«îç ¥âáï ¯à¨ ¦ ⨨ shift â.¥. ¥á«¨ ¦¨¬ î
|
||||
ed_shift_off= 1111111111111011b
|
||||
ed_shift_bac= 10000b ;¡¨â ¤«ï ®ç¨á⪨ ¢ë¤¥«¥®£® shift â.¥. ¯à¨ ãáâ ®¢ª¥ £®¢®à¨â çâ® ¥áâì ¢ë¤¥«¥¨¥
|
||||
ed_shift_bac_cl=1111111111101111b ;®ç¨á⪠¯à¨ 㤠«¥¨¨ ¢ë¤¥«¥¨ï
|
||||
ed_shift_cl= 1111111111100011b
|
||||
ed_shift_mcl= 1111111111111011b
|
||||
ed_left_fl= 100000b
|
||||
ed_right_fl= 1111111111011111b
|
||||
ed_offset_fl= 1000000b
|
||||
ed_offset_cl= 1111111110111111b
|
||||
ed_insert= 10000000b
|
||||
ed_insert_cl= 1111111101111111b
|
||||
ed_mouse_on = 100000000b
|
||||
ed_mous_adn_b= 100011000b
|
||||
ed_mouse_on_off=1111111011111111b
|
||||
ed_height=14 ; ¢ëá®â
|
||||
macro draw_edit_boxes start,_end,use_f9,procinfo
|
||||
{
|
||||
if use_f9 eq
|
||||
else
|
||||
mcall 9,procinfo,-1
|
||||
end if
|
||||
mov edi,start
|
||||
mov ecx,((_end-start)/ed_struc_size)
|
||||
@@:
|
||||
call edit_box.draw
|
||||
add edi,ed_struc_size
|
||||
loop @b
|
||||
}
|
||||
|
||||
macro mouse_edit_boxes start,_end
|
||||
{
|
||||
mov edi,start
|
||||
mov ecx,((_end-start)/ed_struc_size)
|
||||
@@:
|
||||
call edit_box.mouse
|
||||
add edi,ed_struc_size
|
||||
loop @b
|
||||
}
|
||||
|
||||
macro key_edit_boxes start,end
|
||||
{
|
||||
mov edi,start
|
||||
mov ecx,((end-start)/ed_struc_size)
|
||||
@@:
|
||||
call edit_box.key
|
||||
add edi,ed_struc_size
|
||||
loop @b
|
||||
}
|
||||
ed_struc_size=70
|
||||
struc edit_box width,left,top,color,shift_color,focus_border_color,\
|
||||
blur_border_color,text_color,max,text,flags,size,pos
|
||||
{
|
||||
.width dd width
|
||||
.left dd left
|
||||
.top dd top
|
||||
.color dd color
|
||||
.shift_color dd shift_color
|
||||
.focus_border_color dd focus_border_color
|
||||
.blur_border_color dd blur_border_color
|
||||
.text_color dd text_color
|
||||
.max dd max
|
||||
.text dd text
|
||||
.flags dw flags+0
|
||||
.size dd size+0
|
||||
.pos dd pos+0
|
||||
.offset dd 0
|
||||
.cl_curs_x dd 0
|
||||
.cl_curs_y dd 0
|
||||
.shift dd 0
|
||||
.shift_old dd 0
|
||||
}
|
||||
|
||||
|
||||
macro edit_boxes_set_sys_color start,end,color_table
|
||||
{
|
||||
mov edi,start
|
||||
mov ecx,((end-start)/ed_struc_size)
|
||||
mov esi,color_table
|
||||
@@:
|
||||
mov eax,[esi+36]
|
||||
mov ebx,[esi+20]
|
||||
mov ed_focus_border_color,eax
|
||||
shr bh,1
|
||||
shr bl,1
|
||||
shr ah,1
|
||||
shr al,1
|
||||
add ah,bh
|
||||
add al,bl
|
||||
ror eax,16
|
||||
ror ebx,16
|
||||
shr bl,1
|
||||
shr al,1
|
||||
add al,bl
|
||||
ror eax,16
|
||||
mov ed_blur_border_color,eax
|
||||
add edi,ed_struc_size
|
||||
loop @b
|
||||
}
|
||||
|
||||
macro draw_edit_box ed_ptr,use_f9,procinfo
|
||||
{
|
||||
if use_f9 eq
|
||||
else
|
||||
mcall 9,procinfo,-1
|
||||
end if
|
||||
mov edi,ed_ptr
|
||||
call edit_box.draw
|
||||
}
|
||||
|
||||
macro mouse_edit_box ed_ptr
|
||||
{
|
||||
mov edi,ed_ptr
|
||||
call edit_box.mouse
|
||||
}
|
||||
|
||||
macro key_edit_box ed_ptr
|
||||
{
|
||||
mov edi,ed_ptr
|
||||
call edit_box.key
|
||||
}
|
||||
macro default_box ed_ptr
|
||||
{
|
||||
pusha
|
||||
; xor eax,eax
|
||||
; mov ed_shift_pos,eax
|
||||
; mov ed_shift_pos_old,eax
|
||||
and word ed_flags,ed_shift_cl
|
||||
; mov ed_offset,eax
|
||||
popa
|
||||
}
|
||||
60
programs/network/icq/trunk/README.TXT
Normal file
60
programs/network/icq/trunk/README.TXT
Normal file
@ -0,0 +1,60 @@
|
||||
v 0.01
|
||||
|
||||
|
||||
Версия тестовая, поэтому много недоработок
|
||||
и выводятся отладочные сообщения
|
||||
|
||||
Поддерживается:
|
||||
* Локальный контакт-лист, пока жестко зашит в код
|
||||
* передача/прием сообщений plain-text
|
||||
* Перекодировка CP866<->CP1251
|
||||
* Прием offline сообщений
|
||||
* Отправка сообщения пользователю не в контакт-листе
|
||||
/UIN Сообщение
|
||||
|
||||
Недоработки: Много :-)
|
||||
* Отключено закрытие сокетов - моя VM (Parallels) наглухо виснет, при
|
||||
попытке закрыть сокет
|
||||
|
||||
* Все сообщения от разных юзеров в одном поле вывода
|
||||
* Нельзя сменить статус
|
||||
* Нельзя отключится, опять же из-за закрытия сокетов
|
||||
* Не поддерживается UTF-8 и RTF сообщения
|
||||
* Из информации о юзере доступен только ник
|
||||
* editbox иногда ведет себя странно :-)
|
||||
* ..........
|
||||
|
||||
Для изменения уина/пароля надо перекомпилировать программу
|
||||
- файл ki.asm, переменные UIN и PASS
|
||||
|
||||
|
||||
|
||||
Для внесения юзеров в КЛ - файл comp.inc, функция loaduin,
|
||||
перемнные U1, U2, U3 ....
|
||||
(Скорее всего, потом будет переписано для загрузки из файла)
|
||||
|
||||
Т.к. я тестировал программу только под VM, возможно, что ничего и не заработает
|
||||
Тестирование проводилось с локальным сервером SIQ под Windows, VM Parallels
|
||||
и с основным сервером аси под Menuet, VM VMware (т.к. в parallels нет поддержки NAT,
|
||||
а Kolibri не поддерживает сетевую карту в VMware, может, я и ошибаюсь :-))
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Выражаю благодарность всем разработчикам OS Kolibri
|
||||
за прекрасные инструменты и документацию, без которой я бы
|
||||
ничего не написал :-)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Все пожелания о дальнейшей судьбе проекта (закрыть, например :-))шлите на lv4evil@ya.ru
|
||||
|
||||
;Только за кривой код и ужасный английский ногами не бейте :-)
|
||||
2
programs/network/icq/trunk/build_ru.bat
Normal file
2
programs/network/icq/trunk/build_ru.bat
Normal file
@ -0,0 +1,2 @@
|
||||
@fasm ki.asm ki
|
||||
|
||||
926
programs/network/icq/trunk/comp.inc
Normal file
926
programs/network/icq/trunk/comp.inc
Normal file
@ -0,0 +1,926 @@
|
||||
;
|
||||
; à¨á®¢ âì ¯àאַ㣮«ì¨ª
|
||||
; x1,y1 ---------|
|
||||
; | |
|
||||
; | |
|
||||
; |-------------x2,y2
|
||||
;
|
||||
macro rect x1, y1, x2, y2, color
|
||||
{
|
||||
pushad
|
||||
|
||||
mov edx, color
|
||||
; ------------
|
||||
mov eax, 38
|
||||
mov ebx, x1
|
||||
shl ebx, 16
|
||||
add ebx, x2
|
||||
mov ecx, y1
|
||||
shl ecx, 16
|
||||
add ecx, y1
|
||||
int 40h
|
||||
|
||||
; ------------
|
||||
mov eax, 38
|
||||
mov ebx, x1
|
||||
shl ebx, 16
|
||||
add ebx, x2
|
||||
mov ecx, y2
|
||||
shl ecx, 16
|
||||
add ecx, y2
|
||||
int 40h
|
||||
; |
|
||||
; |
|
||||
; |
|
||||
mov eax, 38
|
||||
mov ebx, x1
|
||||
shl ebx, 16
|
||||
add ebx, x1
|
||||
mov ecx, y1
|
||||
shl ecx, 16
|
||||
add ecx, y2
|
||||
int 40h
|
||||
; |
|
||||
; |
|
||||
; |
|
||||
mov eax, 38
|
||||
mov ebx, x2
|
||||
shl ebx, 16
|
||||
add ebx, x2
|
||||
mov ecx, y1
|
||||
shl ecx, 16
|
||||
add ecx, y2
|
||||
int 40h
|
||||
|
||||
popad
|
||||
}
|
||||
|
||||
;
|
||||
; ‚뢮¤ íªà ¡ãä¥à á® áâப ¬¨
|
||||
;
|
||||
|
||||
scbuff db 512*128 dup 0
|
||||
; 512 - ¤«¨ áâப¨
|
||||
; 128 - ª®«¨ç¥á⢮ áâப
|
||||
;
|
||||
ind db 0 ; ’¥ªã騩 ¨¤¥ªá
|
||||
;
|
||||
;
|
||||
x_s dw 15 ; Š®®à¤¨ âë «¥¢®£® ¢¥à奣® 㣫 FIXIT
|
||||
y_s dw 38 ;
|
||||
|
||||
; ‚ëá®â áâப¨
|
||||
SH = 10
|
||||
|
||||
xlen dw 512 ; ¤«¨ áâப¨
|
||||
;ylen dw 128 ; ª®«¨ç¥á⢮ áâப
|
||||
ylen dw 40
|
||||
|
||||
;<EFBFBD>®á«¥¤¨¥ 4 ¡ ©â ¢ áâப¥ ®¡®§ ç îâ 梥â
|
||||
|
||||
printbuff:
|
||||
pushad
|
||||
|
||||
;
|
||||
; <EFBFBD> à¨á㥬 ¡¥«ë© ¯àאַ㣮«ì¨ª
|
||||
;
|
||||
mov eax, 13
|
||||
mov ebx, 15*65536+480
|
||||
mov ecx, 31*65536+418
|
||||
mov edx, 0FFFFFFh
|
||||
int 40h
|
||||
|
||||
|
||||
|
||||
xor ecx, ecx ; ‘ç¥â稪
|
||||
;xor eax, eax
|
||||
xor ebx, ebx
|
||||
;xor edx, edx
|
||||
|
||||
pb_loop:
|
||||
xor edx, edx
|
||||
xor eax, eax
|
||||
mov dl, [ind] ; ˆ¤¥ªá
|
||||
mov ax, [ylen]
|
||||
;mul edx
|
||||
cmp ecx, eax
|
||||
ja pr_end
|
||||
;
|
||||
;
|
||||
add edx, ecx ;<EFBFBD>ਡ ¢¨¬ áç¥â稪
|
||||
xor eax, eax
|
||||
mov ax, [ylen]
|
||||
cmp edx, eax ;ˆ¤¥ªá ¬¥ìè¥ ª®«¨ç¥á⢠áâப
|
||||
jna @f ;<=
|
||||
sub edx, eax ;…᫨ ¡®«ìè¥, áç¨â ¥¬ á ç «
|
||||
dec edx
|
||||
@@:
|
||||
;
|
||||
mov bx, [x_s] ; Š®®à¤¨ â X
|
||||
shl ebx, 16 ;
|
||||
push ecx
|
||||
mov eax, SH ; ‚ëç¨á«ï¥¬ ¬¥á⮯®«®¦¥¨¥ áâப¨
|
||||
imul eax, ecx ;
|
||||
;mov ecx, eax
|
||||
;xor eax, eax
|
||||
|
||||
;mov ax , [x_s]
|
||||
xor ecx, ecx
|
||||
mov cx, [y_s]
|
||||
add ecx, eax
|
||||
add ebx, ecx ; Š®®à¤¨ â Y
|
||||
;
|
||||
xor eax, eax
|
||||
mov ax, [xlen] ;¤«¨ áâப¨
|
||||
imul edx, eax ;“¬®¦ ¥¬ áç¥â稪 ¤«¨ã áâப¨, ¯®«ãç ¥¬ ᬥ饨¥ ®â®á¨â¥«ì® ç « ¡ãä¥à
|
||||
;mov edx, eax
|
||||
add edx, scbuff
|
||||
|
||||
xor eax, eax
|
||||
mov ax, [xlen]
|
||||
sub eax, 4
|
||||
xor ecx, ecx
|
||||
mov ecx, dword [edx+eax] ; <EFBFBD>®á«¥¤¨¥ 4 <EFBFBD> ©â á 梥⮬
|
||||
or ecx, 0x80000000 ; ‚뢮¤¨âì ASCIIZ
|
||||
mov eax, 4
|
||||
mov esi, -1 ; For Menuet
|
||||
int 40h
|
||||
pop ecx
|
||||
inc ecx
|
||||
jmp pb_loop
|
||||
|
||||
|
||||
pr_end:
|
||||
popad
|
||||
ret
|
||||
|
||||
;
|
||||
; Žâ« ¤®çë¥ á®®¡é¥¨ï
|
||||
;
|
||||
macro write_debug str
|
||||
{
|
||||
local ..string, ..label, ..end, ..loop, ..fin
|
||||
jmp ..label
|
||||
|
||||
..string db str, 0
|
||||
|
||||
..label:
|
||||
pushad
|
||||
xor eax, eax
|
||||
xor ebx, ebx
|
||||
xor ecx, ecx
|
||||
xor edx, edx
|
||||
|
||||
mov bl, [ind]
|
||||
mov ax, [xlen]
|
||||
imul ebx, eax
|
||||
add ebx, scbuff
|
||||
|
||||
..loop:
|
||||
mov dl, [..string+ecx]
|
||||
cmp dl, 0
|
||||
jz ..end
|
||||
mov [ebx+ecx], dl
|
||||
inc ecx
|
||||
jmp ..loop
|
||||
|
||||
..end:
|
||||
mov [ebx+ecx], dl
|
||||
xor ebx, ebx
|
||||
mov bl, [ind]
|
||||
cmp bx, [ylen]
|
||||
jz @f
|
||||
inc bl
|
||||
jmp ..fin
|
||||
@@:
|
||||
xor bl, bl
|
||||
|
||||
..fin:
|
||||
mov [ind], bl
|
||||
call printbuff
|
||||
;call draw_window
|
||||
popad
|
||||
}
|
||||
|
||||
;
|
||||
; Š®¯ª
|
||||
;
|
||||
macro draw_button x, y, xlen, ylen, id, str
|
||||
{
|
||||
pushad
|
||||
local ..string, ..label
|
||||
jmp ..label
|
||||
..string db str, 0
|
||||
|
||||
..label:
|
||||
mov eax, 8
|
||||
mov ebx, x*65536+xlen
|
||||
mov ecx, y*65536+ylen
|
||||
mov edx, id
|
||||
mov esi, 0x4466aa
|
||||
int 40h
|
||||
|
||||
mov eax, 4
|
||||
mov ebx, (x+5)*65536+y+ylen/2-3
|
||||
xor ecx, ecx
|
||||
or ecx, 0x80FFFFFF
|
||||
mov edx, ..string
|
||||
int 40h
|
||||
|
||||
popad
|
||||
}
|
||||
|
||||
;
|
||||
; Žâ« ¤®çë© ¢ë¢®¤ ¤ ëå
|
||||
;
|
||||
macro data_debug str, rg
|
||||
{
|
||||
pushad
|
||||
local ..string, ..end, ..loop, ..strend, ..fin, ..label
|
||||
jmp ..label
|
||||
..string db str, 20h, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
||||
..strend:
|
||||
|
||||
..label:
|
||||
;xor eax, eax
|
||||
;xor ebx, ebx
|
||||
xor ecx, ecx
|
||||
xor edx, edx
|
||||
|
||||
mov eax, rg
|
||||
lea ebx, [..strend-9]
|
||||
call int2str
|
||||
|
||||
xor eax, eax
|
||||
xor ebx, ebx
|
||||
|
||||
mov bl, [ind]
|
||||
mov ax, [xlen]
|
||||
imul ebx, eax
|
||||
add ebx, scbuff
|
||||
|
||||
..loop:
|
||||
mov dl, [..string+ecx]
|
||||
cmp dl, 0
|
||||
jz ..end
|
||||
mov [ebx+ecx], dl
|
||||
inc ecx
|
||||
jmp ..loop
|
||||
|
||||
..end:
|
||||
mov [ebx+ecx], dl
|
||||
xor ebx, ebx
|
||||
mov bl, [ind]
|
||||
cmp bx, [ylen]
|
||||
jz @f
|
||||
inc bl
|
||||
jmp ..fin
|
||||
@@:
|
||||
xor bl, bl
|
||||
|
||||
..fin:
|
||||
mov [ind], bl
|
||||
|
||||
|
||||
|
||||
call printbuff
|
||||
;call draw_window
|
||||
|
||||
popad
|
||||
}
|
||||
|
||||
; <--EAX
|
||||
; -->[ebx]
|
||||
;
|
||||
int2str:
|
||||
pushf
|
||||
;push ebx
|
||||
push ecx
|
||||
push edx
|
||||
push esi
|
||||
|
||||
;xor ebx, ebx
|
||||
xor ecx, ecx
|
||||
|
||||
i_loop:
|
||||
mov edx, eax
|
||||
push ecx
|
||||
shl ecx, 2
|
||||
mov esi, 28
|
||||
sub esi, ecx
|
||||
mov ecx, esi
|
||||
shr edx, cl
|
||||
pop ecx
|
||||
and dl, 0fh ;Žâ¤¥«¨âì ¬« ¤è¨¥ 4 ¡¨â
|
||||
cmp dl, 0Ah ;<EFBFBD>㪢
|
||||
jnc @f
|
||||
or dl, 0x30
|
||||
jmp i_n1
|
||||
|
||||
@@:
|
||||
sub dl, 9
|
||||
or dl, 0x40
|
||||
i_n1:
|
||||
mov [ebx+ecx], dl
|
||||
inc ecx
|
||||
cmp ecx, 8
|
||||
jnz i_loop
|
||||
|
||||
|
||||
pop esi
|
||||
pop edx
|
||||
pop ecx
|
||||
;pop ebx
|
||||
popf
|
||||
ret
|
||||
|
||||
;
|
||||
;
|
||||
CP866 db '€<>‚ƒ„…†‡ˆ‰Š‹Œ<E280B9>Ž<EFBFBD><C5BD>‘’“”•–—˜™š›œ<E280BA>žŸ ¡¢£¤¥¦§¨©ª«¬®¯àáâãäåæçèéêëìíîï'
|
||||
|
||||
;
|
||||
; <EFBFBD>¥à¥ª®¤¨à®¢ª ¨§ cp1251 ¢ cp866
|
||||
;
|
||||
; [eax] <-- Null-terminated string
|
||||
;
|
||||
|
||||
win2dos:
|
||||
pushad
|
||||
pushf
|
||||
|
||||
xor ebx, ebx
|
||||
xor ecx, ecx
|
||||
;xor edx, edx
|
||||
|
||||
w2d_loop:
|
||||
mov bl, [eax+ecx]
|
||||
cmp bl, 0
|
||||
jz w2d_end
|
||||
cmp bl, 0A8h ; ð
|
||||
jz w2d_yo1
|
||||
cmp bl, 0B8h ; ñ
|
||||
jz w2d_yo2
|
||||
cmp bl, 0C0h ; <EFBFBD>ãááª ï ¡ãª¢
|
||||
jnc w2d_rchar
|
||||
inc ecx
|
||||
jmp w2d_loop
|
||||
|
||||
w2d_yo1:
|
||||
mov [eax+ecx], byte 0F0h
|
||||
inc ecx
|
||||
jmp w2d_loop
|
||||
|
||||
w2d_yo2:
|
||||
mov [eax+ecx], byte 0F1h
|
||||
inc ecx
|
||||
jmp w2d_loop
|
||||
|
||||
w2d_rchar:
|
||||
sub bl, 0C0h
|
||||
mov bl, [CP866+ebx]
|
||||
mov [eax+ecx], bl
|
||||
inc ecx
|
||||
jmp w2d_loop
|
||||
|
||||
|
||||
w2d_end:
|
||||
|
||||
popf
|
||||
popad
|
||||
ret
|
||||
|
||||
|
||||
CP1251 db 'ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ'
|
||||
|
||||
;
|
||||
; <EFBFBD>¥à¥ª®¤¨à®¢ª ¨§ CP866 ¢ CP1251
|
||||
; [eax] <-- Null termainated string
|
||||
;
|
||||
|
||||
dos2win:
|
||||
pushf
|
||||
pushad
|
||||
|
||||
xor ebx, ebx
|
||||
xor ecx, ecx
|
||||
|
||||
dec ecx
|
||||
|
||||
d2w_loop:
|
||||
inc ecx
|
||||
mov bl, [eax+ecx]
|
||||
cmp bl, 0
|
||||
jz d2w_end
|
||||
cmp bl, 80h
|
||||
jnc d2w_rchar
|
||||
|
||||
;inc ecx
|
||||
jmp d2w_loop
|
||||
|
||||
d2w_yo1:
|
||||
mov byte [eax+ecx], 0A8h
|
||||
;inc ecx
|
||||
jmp d2w_loop
|
||||
|
||||
d2w_yo2:
|
||||
mov byte [eax+ecx], 0B8h
|
||||
;inc ecx
|
||||
jmp d2w_loop
|
||||
|
||||
d2w_rchar:
|
||||
cmp bl, 0B0h
|
||||
jnc d2w_rchar2
|
||||
|
||||
sub bl, 80h
|
||||
mov bl, [CP1251+ebx]
|
||||
mov [eax+ecx], bl
|
||||
jmp d2w_loop
|
||||
|
||||
d2w_rchar2:
|
||||
cmp bl, 0E0h
|
||||
jc d2w_loop
|
||||
cmp bl, 0F0h
|
||||
jz d2w_yo1
|
||||
cmp bl, 0F1h
|
||||
jz d2w_yo2
|
||||
cmp bl, 0F2h
|
||||
jnc d2w_loop
|
||||
add bl, 10h
|
||||
mov [eax+ecx], bl
|
||||
jmp d2w_loop
|
||||
|
||||
|
||||
d2w_end:
|
||||
|
||||
popad
|
||||
popf
|
||||
ret
|
||||
|
||||
|
||||
;
|
||||
; „«ï ¢ë¢®¤ á®®¡é¥¨©
|
||||
; [eax] <-- null-terminated string
|
||||
; ebx <-- color
|
||||
;
|
||||
writemsg:
|
||||
pushad
|
||||
push ebx
|
||||
push eax
|
||||
|
||||
xor eax, eax
|
||||
xor ebx, ebx
|
||||
|
||||
mov bl, [ind]
|
||||
mov ax, [xlen]
|
||||
imul ebx, eax
|
||||
add ebx, scbuff
|
||||
|
||||
pop eax
|
||||
mov edx, eax
|
||||
call strlen
|
||||
mov ecx, eax
|
||||
mov eax, edx
|
||||
call strcpy
|
||||
|
||||
mov [ebx+ecx], byte 0x00
|
||||
|
||||
xor eax, eax
|
||||
mov ax, [xlen]
|
||||
sub eax, 4
|
||||
pop ecx
|
||||
mov dword [ebx+eax], ecx ; <EFBFBD>®á«¥¤¨¥ 4 <EFBFBD> ©â á 梥⮬
|
||||
|
||||
|
||||
xor ebx, ebx
|
||||
mov bl, [ind]
|
||||
cmp bx, [ylen]
|
||||
jz @f
|
||||
inc bl
|
||||
jmp ..fin
|
||||
@@:
|
||||
xor bl, bl
|
||||
|
||||
..fin:
|
||||
mov [ind], bl
|
||||
|
||||
call printbuff
|
||||
;call draw_window
|
||||
|
||||
popad
|
||||
ret
|
||||
|
||||
;
|
||||
;
|
||||
|
||||
|
||||
|
||||
; <--EAX <EFBFBD>¥à¥¢®¤ ¨§ 16 ¢ 10 ä®à¬ã
|
||||
; -->[ebx]
|
||||
; --> eax ¤«¨
|
||||
int2strd:
|
||||
pushf
|
||||
;push ebx
|
||||
push ecx
|
||||
push edx
|
||||
push esi
|
||||
;push edi
|
||||
|
||||
;xor ebx, ebx
|
||||
xor ecx, ecx
|
||||
mov esi, 10
|
||||
|
||||
|
||||
id_loop:
|
||||
xor edx, edx
|
||||
|
||||
div esi
|
||||
|
||||
and dl, 0fh ;Žâ¤¥«¨âì ¬« ¤è¨¥ 4 ¡¨â
|
||||
or dl, 0x30
|
||||
|
||||
mov [ebx+ecx], dl
|
||||
cmp eax, 10
|
||||
inc ecx
|
||||
jnc id_loop
|
||||
|
||||
and al, 0fh ;Žâ¤¥«¨âì ¬« ¤è¨¥ 4 ¡¨â
|
||||
or al, 0x30
|
||||
|
||||
mov [ebx+ecx], al
|
||||
;mov [ebx+ecx+1], byte 0
|
||||
inc ecx
|
||||
mov eax, ecx
|
||||
; ¯¥à¥¢¥àãâì ¯®«ãç¥ãî áâபã
|
||||
;
|
||||
;xor edx, edx
|
||||
|
||||
;mov esi, 2
|
||||
;div esi
|
||||
shr eax, 1
|
||||
|
||||
xor edx, edx
|
||||
|
||||
id_loop2:
|
||||
cmp eax, 0
|
||||
jz id_end
|
||||
|
||||
|
||||
mov dl, [ebx+eax-1]
|
||||
lea esi, [ebx+ecx]
|
||||
sub esi, eax
|
||||
mov dh, [esi]
|
||||
|
||||
mov [ebx+eax-1], dh
|
||||
mov [esi], dl
|
||||
|
||||
dec eax
|
||||
jmp id_loop2
|
||||
|
||||
|
||||
|
||||
|
||||
id_end:
|
||||
mov eax, ecx
|
||||
|
||||
;pop edi
|
||||
pop esi
|
||||
pop edx
|
||||
pop ecx
|
||||
;pop ebx
|
||||
popf
|
||||
ret
|
||||
|
||||
;
|
||||
;
|
||||
;
|
||||
x_bb dw 550 ; Š®®à¤¨ âë «¥¢®£® ¢¥à奣® 㣫
|
||||
y_bb dw 30 ;
|
||||
;
|
||||
bb_width dw 100 ; ˜¨à¨ ª®¯®ª
|
||||
bb_height dw 15 ; ¢ëá®â ª®¯®ª
|
||||
;
|
||||
bb_dist dw 10 ; <EFBFBD> ááâ®ï¨¥ ¬¥¦¤ã ª®¯ª ¬¨
|
||||
|
||||
; ˆ¤¥â¨ä¨ª â®àë ª®¯®ª ç¨ ï á 100
|
||||
;
|
||||
; „«ï Š‹
|
||||
;
|
||||
;
|
||||
buttonbox:
|
||||
pushad
|
||||
pushf
|
||||
|
||||
xor ecx, ecx
|
||||
xor eax, eax
|
||||
xor ebx, ebx
|
||||
|
||||
bb_loop:
|
||||
|
||||
; <EFBFBD>஢¥à塞 ¯¥à¢ë© ¡ ©â 㨠, ¥á«¨ 0, ª®¯ªã à¨á®¢ âì ¥ ¤®
|
||||
mov ebx, NAME_LEN
|
||||
imul ebx, ecx
|
||||
|
||||
mov al, [names+ebx]
|
||||
cmp al, 0
|
||||
jz bb_end
|
||||
; à¨á㥬 ª®¯ªã
|
||||
; –¢¥â § ¢¨á¨â ®â áâ âãá UIN
|
||||
mov ebx, 4
|
||||
imul ebx, ecx
|
||||
mov eax, [stats+ebx] ; ‚ áâ à襬 á«®¢¥ ¤®¯®«¨â¥«ìë© áâ âãá
|
||||
cmp ax, -1
|
||||
jz bb_offline
|
||||
cmp ax, 1
|
||||
jz bb_away
|
||||
cmp ax, 2
|
||||
jz bb_dnd
|
||||
cmp ax, 4
|
||||
jz bb_na
|
||||
cmp ax, 10h
|
||||
jz bb_bisy
|
||||
cmp ax, 20h
|
||||
jz bb_free4chat
|
||||
cmp ax, 100h
|
||||
jz bb_invis
|
||||
; Online
|
||||
mov esi, 0x4466AA
|
||||
jmp bb_dr
|
||||
|
||||
bb_offline:
|
||||
mov esi, 0xBEBEBE
|
||||
jmp bb_dr
|
||||
|
||||
bb_away:
|
||||
mov esi, 0x14dcc3
|
||||
jmp bb_dr
|
||||
|
||||
bb_dnd:
|
||||
mov esi, 0x14dcc3
|
||||
jmp bb_dr
|
||||
|
||||
bb_na:
|
||||
mov esi, 0x14dcc3
|
||||
jmp bb_dr
|
||||
|
||||
bb_bisy:
|
||||
mov esi, 0x14dcc3
|
||||
jmp bb_dr
|
||||
|
||||
bb_free4chat:
|
||||
mov esi, 0x2233FF
|
||||
jmp bb_dr
|
||||
|
||||
bb_invis:
|
||||
mov esi, 0xD0D0D0
|
||||
|
||||
bb_dr:
|
||||
|
||||
mov bx, [x_bb]
|
||||
shl ebx, 16
|
||||
mov bx, [bb_width]
|
||||
;push ecx
|
||||
mov edx, ecx
|
||||
lea edx, [edx+100] ; ID
|
||||
mov edi, ecx
|
||||
mov cx, [y_bb]
|
||||
movzx eax, [bb_height]
|
||||
add ax, [bb_dist]
|
||||
imul eax, edi
|
||||
add ecx, eax
|
||||
shl ecx, 16
|
||||
mov cx, [bb_height]
|
||||
mov eax, 8
|
||||
int 40h
|
||||
|
||||
;
|
||||
; <EFBFBD> ¤¯¨áì ª®¯ª¥
|
||||
;
|
||||
add ebx, 50000h ; ‘¬¥é¥¨¥ ®â «¥¢®£® ªà ï
|
||||
shr ecx, 16
|
||||
movzx eax, [bb_height]
|
||||
shr eax, 1 ; /2
|
||||
sub eax, 3 ; ᬥ饨¥ ¢¢¥àå ®â æ¥âà
|
||||
add ecx, eax ; + ¯®«®¢¨ à §¬¥à ª®¯ª¨
|
||||
mov bx, cx
|
||||
mov ecx, 0x80FFFFFF ; –¢¥â
|
||||
mov edx, names
|
||||
mov esi, NAME_LEN
|
||||
imul esi, edi
|
||||
add edx, esi
|
||||
;mov esi, -1
|
||||
mov eax, 4
|
||||
int 40h
|
||||
|
||||
mov ecx, edi
|
||||
inc ecx
|
||||
cmp ecx, UINS
|
||||
ja bb_end
|
||||
jmp bb_loop
|
||||
|
||||
|
||||
bb_end:
|
||||
popf
|
||||
popad
|
||||
ret
|
||||
;
|
||||
; Œ áᨢ á UIN
|
||||
;
|
||||
UIN_LEN = 11 ; „«¨
|
||||
UINS = 15 ; Š®«¨ç¥á⢮
|
||||
;
|
||||
uins db UIN_LEN*UINS dup 0
|
||||
;
|
||||
; ¬ áᨢ á® áâ âãá ¬¨
|
||||
;
|
||||
stats dd UINS dup -1
|
||||
;
|
||||
; Œ áᨢ á ¨¬¥ ¬¨
|
||||
;
|
||||
NAME_LEN = 30
|
||||
|
||||
names db NAME_LEN*UINS dup 0
|
||||
|
||||
;
|
||||
;
|
||||
U1 db '123456789',0
|
||||
U2 db '123456789',0
|
||||
U3 db '123456789',0
|
||||
;
|
||||
; ‡ £à㧪 ¬ áᨢ UIN
|
||||
;
|
||||
loaduin:
|
||||
pushad
|
||||
mov eax, U1
|
||||
mov ebx, uins
|
||||
mov ecx, 9
|
||||
call strcpy
|
||||
|
||||
mov ebx, names
|
||||
call strcpy
|
||||
|
||||
mov eax, U2
|
||||
mov ebx, uins+UIN_LEN
|
||||
mov ecx, 9
|
||||
call strcpy
|
||||
|
||||
mov ebx, names+NAME_LEN
|
||||
call strcpy
|
||||
|
||||
mov eax, U3
|
||||
mov ebx, uins+UIN_LEN*2
|
||||
mov ecx, 9
|
||||
call strcpy
|
||||
|
||||
mov ebx, names+NAME_LEN*2
|
||||
call strcpy
|
||||
|
||||
|
||||
popad
|
||||
ret
|
||||
|
||||
;
|
||||
; ”ãªæ¨ï ¤«ï § £à㧪¨ Š‹ ¨ª ¬¨ ¨ áâ âãá ¬¨
|
||||
; eax <-- <EFBFBD>®¬¥à 㨠¯® ¯®à浪㠢 ¬ áᨢ¥ uins, ç¨ ï á 0
|
||||
; [ebx] <-- 㪠§ ⥫ì null-terminated áâபã á ®¢ë¬ ¨¬¥¥¬
|
||||
; ecx <-- <EFBFBD>®¢ë© áâ âãá
|
||||
;
|
||||
loadbb:
|
||||
pushad
|
||||
pushf
|
||||
;
|
||||
; <EFBFBD>஢¥à塞 ®¬¥à
|
||||
;
|
||||
cmp eax, UINS
|
||||
jnc loadbb_end ;>=
|
||||
|
||||
|
||||
;
|
||||
; “¤ «ï¥¬ ª®¯ªã
|
||||
;
|
||||
push ecx
|
||||
push ebx
|
||||
push eax
|
||||
|
||||
lea edx, [eax+100]
|
||||
or edx, 0x80000000
|
||||
mov eax, 8
|
||||
int 40h
|
||||
|
||||
;
|
||||
; ‘®åà 塞 ®¢ë© áâ âãá ¢ ¬ áᨢ¥ áâ âãᮢ
|
||||
;
|
||||
pop eax
|
||||
mov edx, 4 ; DWORD
|
||||
imul edx, eax
|
||||
mov [stats+edx], ecx
|
||||
;
|
||||
; ‘®åà 塞 ®¢®¥ ¨¬ï
|
||||
;
|
||||
mov edi, eax ; edi <-- Uin number
|
||||
pop eax ; <-- offset of string
|
||||
mov ebx, eax
|
||||
call strlen
|
||||
mov ecx, eax ; Len
|
||||
|
||||
|
||||
mov eax, ebx ;Source
|
||||
mov edx, NAME_LEN
|
||||
imul edx, edi
|
||||
lea ebx, [names+edx] ; Dest
|
||||
call strcpy
|
||||
mov [names+edx+ecx], byte 0
|
||||
|
||||
xchg edi, eax ; eax - áç¥â¨ª, edi - 㪠§ ⥫ì áâபã
|
||||
|
||||
pop ecx
|
||||
push edi
|
||||
; à¨á㥬 ª®¯ªã
|
||||
; –¢¥â § ¢¨á¨â ®â áâ âãá UIN
|
||||
|
||||
cmp cx, -1
|
||||
jz l_offline
|
||||
cmp cx, 1
|
||||
jz l_away
|
||||
cmp cx, 2
|
||||
jz l_dnd
|
||||
cmp cx, 4
|
||||
jz l_na
|
||||
cmp cx, 10h
|
||||
jz l_bisy
|
||||
cmp cx, 20h
|
||||
jz l_free4chat
|
||||
cmp cx, 100h
|
||||
jz l_invis
|
||||
; Online
|
||||
mov esi, 0x4466AA
|
||||
jmp l_dr
|
||||
|
||||
l_offline:
|
||||
mov esi, 0xBEBEBE
|
||||
jmp l_dr
|
||||
|
||||
l_away:
|
||||
mov esi, 0x14dcc3
|
||||
jmp l_dr
|
||||
|
||||
l_dnd:
|
||||
mov esi, 0x14dcc3
|
||||
jmp l_dr
|
||||
|
||||
l_na:
|
||||
mov esi, 0x14dcc3
|
||||
jmp l_dr
|
||||
|
||||
l_bisy:
|
||||
mov esi, 0x14dcc3
|
||||
jmp l_dr
|
||||
|
||||
l_free4chat:
|
||||
mov esi, 0x2233FF
|
||||
jmp l_dr
|
||||
|
||||
l_invis:
|
||||
mov esi, 0xD0D0D0
|
||||
|
||||
l_dr:
|
||||
|
||||
mov bx, [x_bb]
|
||||
shl ebx, 16
|
||||
mov bx, [bb_width]
|
||||
;push ecx
|
||||
mov edx, eax
|
||||
lea edx, [edx+100] ; ID
|
||||
mov edi, eax
|
||||
mov cx, [y_bb]
|
||||
movzx eax, [bb_height]
|
||||
add ax, [bb_dist]
|
||||
imul eax, edi
|
||||
add ecx, eax
|
||||
shl ecx, 16
|
||||
mov cx, [bb_height]
|
||||
mov eax, 8
|
||||
int 40h
|
||||
|
||||
;
|
||||
; <EFBFBD> ¤¯¨áì ª®¯ª¥
|
||||
;
|
||||
add ebx, 50000h ; ‘¬¥é¥¨¥ ®â «¥¢®£® ªà ï
|
||||
shr ecx, 16
|
||||
movzx eax, [bb_height]
|
||||
shr eax, 1 ; /2
|
||||
sub eax, 3 ; ᬥ饨¥ ¢¢¥àå ®â æ¥âà
|
||||
add ecx, eax ; + ¯®«®¢¨ à §¬¥à ª®¯ª¨
|
||||
mov bx, cx
|
||||
mov ecx, 0x80FFFFFF ; –¢¥â
|
||||
pop edx
|
||||
mov esi, -1
|
||||
mov eax, 4
|
||||
int 40h
|
||||
|
||||
|
||||
|
||||
loadbb_end:
|
||||
|
||||
popf
|
||||
popad
|
||||
ret
|
||||
1
programs/network/icq/trunk/config.inc
Normal file
1
programs/network/icq/trunk/config.inc
Normal file
@ -0,0 +1 @@
|
||||
__CPU_type fix p5
|
||||
1078
programs/network/icq/trunk/editbox.mac
Normal file
1078
programs/network/icq/trunk/editbox.mac
Normal file
File diff suppressed because it is too large
Load Diff
3496
programs/network/icq/trunk/ki.asm
Normal file
3496
programs/network/icq/trunk/ki.asm
Normal file
File diff suppressed because it is too large
Load Diff
1
programs/network/icq/trunk/lang.inc
Normal file
1
programs/network/icq/trunk/lang.inc
Normal file
@ -0,0 +1 @@
|
||||
lang fix ru
|
||||
502
programs/network/icq/trunk/macros.inc
Normal file
502
programs/network/icq/trunk/macros.inc
Normal file
@ -0,0 +1,502 @@
|
||||
@^ fix macro comment {
|
||||
^@ fix }
|
||||
|
||||
|
||||
macro m2m dest,src {
|
||||
push src
|
||||
pop dest
|
||||
}
|
||||
|
||||
|
||||
macro iglobal {
|
||||
IGlobals equ IGlobals,
|
||||
macro __IGlobalBlock { }
|
||||
|
||||
macro uglobal {
|
||||
UGlobals equ UGlobals,
|
||||
macro __UGlobalBlock { }
|
||||
|
||||
endg fix } ; Use endg for ending iglobal and uglobal blocks.
|
||||
|
||||
|
||||
macro IncludeIGlobals{
|
||||
macro IGlobals dummy,[n] \{ __IGlobalBlock
|
||||
purge __IGlobalBlock \}
|
||||
match I, IGlobals \{ I \} }
|
||||
|
||||
macro IncludeUGlobals{
|
||||
macro UGlobals dummy,[n] \{
|
||||
\common
|
||||
\local begin, size
|
||||
begin = $
|
||||
virtual at $
|
||||
\forward
|
||||
__UGlobalBlock
|
||||
purge __UGlobalBlock
|
||||
\common
|
||||
size = $ - begin
|
||||
end virtual
|
||||
rb size
|
||||
\}
|
||||
match U, UGlobals \{ U \} }
|
||||
|
||||
uglobal
|
||||
endg
|
||||
|
||||
iglobal
|
||||
endg
|
||||
|
||||
|
||||
; new application structure
|
||||
macro meos_app_start
|
||||
{
|
||||
use32
|
||||
org 0x0
|
||||
|
||||
db 'MENUET01'
|
||||
dd 0x01
|
||||
dd __start
|
||||
dd __end
|
||||
dd __memory
|
||||
dd __stack
|
||||
|
||||
if used __params & ~defined __params
|
||||
dd __params
|
||||
else
|
||||
dd 0x0
|
||||
end if
|
||||
|
||||
dd 0x0
|
||||
}
|
||||
MEOS_APP_START fix meos_app_start
|
||||
|
||||
macro code
|
||||
{
|
||||
__start:
|
||||
}
|
||||
CODE fix code
|
||||
|
||||
macro data
|
||||
{
|
||||
__data:
|
||||
IncludeIGlobals
|
||||
}
|
||||
DATA fix data
|
||||
|
||||
macro udata
|
||||
{
|
||||
if used __params & ~defined __params
|
||||
__params:
|
||||
db 0
|
||||
__end:
|
||||
rb 255
|
||||
else
|
||||
__end:
|
||||
end if
|
||||
__udata:
|
||||
IncludeUGlobals
|
||||
}
|
||||
UDATA fix udata
|
||||
|
||||
macro meos_app_end
|
||||
{
|
||||
align 32
|
||||
rb 2048
|
||||
__stack:
|
||||
__memory:
|
||||
}
|
||||
MEOS_APP_END fix meos_app_end
|
||||
|
||||
|
||||
; macro for defining multiline text data
|
||||
struc mstr [sstring]
|
||||
{
|
||||
forward
|
||||
local ssize
|
||||
virtual at 0
|
||||
db sstring
|
||||
ssize = $
|
||||
end virtual
|
||||
dd ssize
|
||||
db sstring
|
||||
common
|
||||
dd -1
|
||||
}
|
||||
|
||||
; macro for defining multiline text data
|
||||
struc mls [sstring]
|
||||
{
|
||||
forward
|
||||
local ssize
|
||||
virtual at 0
|
||||
db sstring ; mod
|
||||
ssize = $
|
||||
end virtual
|
||||
db ssize
|
||||
db sstring
|
||||
common
|
||||
db -1 ; mod
|
||||
}
|
||||
|
||||
|
||||
|
||||
; strings
|
||||
macro sz name,[data] { ; from MFAR [mike.dld]
|
||||
common
|
||||
if used name
|
||||
name db data
|
||||
.size = $-name
|
||||
end if
|
||||
}
|
||||
|
||||
macro lsz name,[lng,data] { ; from MFAR [mike.dld]
|
||||
common
|
||||
if used name
|
||||
label name
|
||||
forward
|
||||
if lang eq lng
|
||||
db data
|
||||
end if
|
||||
common
|
||||
.size = $-name
|
||||
end if
|
||||
}
|
||||
|
||||
macro szc name,elsz,[data] { ; from MFAR [mike.dld]
|
||||
common
|
||||
local s,m
|
||||
m = 0
|
||||
if used name
|
||||
label name
|
||||
forward
|
||||
virtual at 0
|
||||
db data
|
||||
s = $
|
||||
end virtual
|
||||
d#elsz s
|
||||
if m < s
|
||||
m = s
|
||||
end if
|
||||
db data
|
||||
common
|
||||
.size = $-name
|
||||
.maxl = m
|
||||
end if
|
||||
}
|
||||
|
||||
macro lszc name,elsz,[lng,data] { ; from MFAR [mike.dld]
|
||||
common
|
||||
local s,m,c
|
||||
m = 0
|
||||
c = 0
|
||||
if used name
|
||||
label name
|
||||
forward
|
||||
if lang eq lng
|
||||
virtual at 0
|
||||
db data
|
||||
s = $
|
||||
end virtual
|
||||
d#elsz s
|
||||
if m < s
|
||||
m = s
|
||||
end if
|
||||
db data
|
||||
c = c+1
|
||||
end if
|
||||
common
|
||||
.size = $-name
|
||||
.maxl = m
|
||||
.count = c
|
||||
end if
|
||||
}
|
||||
|
||||
|
||||
; easy system call macro
|
||||
macro mpack dest, hsrc, lsrc
|
||||
{
|
||||
if (hsrc eqtype 0) & (lsrc eqtype 0)
|
||||
mov dest, (hsrc) shl 16 + lsrc
|
||||
else
|
||||
if (hsrc eqtype 0) & (~lsrc eqtype 0)
|
||||
mov dest, (hsrc) shl 16
|
||||
add dest, lsrc
|
||||
else
|
||||
mov dest, hsrc
|
||||
shl dest, 16
|
||||
add dest, lsrc
|
||||
end if
|
||||
end if
|
||||
}
|
||||
|
||||
macro __mov reg,a,b { ; mike.dld
|
||||
if (~a eq)&(~b eq)
|
||||
mpack reg,a,b
|
||||
else if (~a eq)&(b eq)
|
||||
mov reg,a
|
||||
end if
|
||||
}
|
||||
|
||||
|
||||
include 'config.inc'
|
||||
;__CPU_type equ p5
|
||||
SYSENTER_VAR equ 0
|
||||
|
||||
macro mcall a,b,c,d,e,f { ; mike.dld, updated by Ghost for Fast System Calls
|
||||
local ..ret_point
|
||||
__mov eax,a
|
||||
__mov ebx,b
|
||||
__mov ecx,c
|
||||
__mov edx,d
|
||||
__mov esi,e
|
||||
__mov edi,f
|
||||
|
||||
if __CPU_type eq p5
|
||||
int 0x40
|
||||
else
|
||||
if __CPU_type eq p6
|
||||
push ebp
|
||||
mov ebp, esp
|
||||
push ..ret_point ; it may be 2 or 5 byte
|
||||
sysenter
|
||||
..ret_point:
|
||||
pop edx
|
||||
pop ecx
|
||||
|
||||
else
|
||||
if __CPU_type eq k6
|
||||
push ecx
|
||||
syscall
|
||||
pop ecx
|
||||
else
|
||||
display 'ERROR : unknown CPU type (set to p5)', 10, 13
|
||||
__CPU_type equ p5
|
||||
int 0x40
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
}
|
||||
|
||||
|
||||
; -------------------------
|
||||
macro header a,[b] {
|
||||
common
|
||||
use32
|
||||
org 0
|
||||
db 'MENUET',a
|
||||
forward
|
||||
if b eq
|
||||
dd 0
|
||||
else
|
||||
dd b
|
||||
end if }
|
||||
macro section name { align 16
|
||||
label name }
|
||||
macro func name {
|
||||
if ~used name
|
||||
display 'FUNC NOT USED: ',`name,13,10
|
||||
else
|
||||
align 4
|
||||
name:
|
||||
;diff16 `name,0,name
|
||||
;pushad
|
||||
;pushfd
|
||||
;dps `name
|
||||
;newline
|
||||
;mcall 5,1
|
||||
;popfd
|
||||
;popad
|
||||
}
|
||||
macro endf { end if }
|
||||
|
||||
macro diff16 title,l1,l2
|
||||
{
|
||||
local s,d
|
||||
s = l2-l1
|
||||
display title,': 0x'
|
||||
repeat 8
|
||||
d = '0' + s shr ((8-%) shl 2) and $0F
|
||||
if d > '9'
|
||||
d = d + 'A'-'9'-1
|
||||
end if
|
||||
display d
|
||||
end repeat
|
||||
display 13,10
|
||||
}
|
||||
|
||||
macro diff10 title,l1,l2
|
||||
{
|
||||
local s,d,z,m
|
||||
s = l2-l1
|
||||
z = 0
|
||||
m = 1000000000
|
||||
display title,': '
|
||||
repeat 10
|
||||
d = '0' + s / m
|
||||
s = s - (s/m)*m
|
||||
m = m / 10
|
||||
if d <> '0'
|
||||
z = 1
|
||||
end if
|
||||
if z <> 0
|
||||
display d
|
||||
end if
|
||||
end repeat
|
||||
display 13,10
|
||||
}
|
||||
|
||||
; optimize the code for size
|
||||
__regs fix <eax,ebx,ecx,edx,esi,edi,ebp,esp>
|
||||
|
||||
macro add arg1,arg2
|
||||
{
|
||||
if (arg2 eqtype 0)
|
||||
if (arg2) = 1
|
||||
inc arg1
|
||||
else
|
||||
add arg1,arg2
|
||||
end if
|
||||
else
|
||||
add arg1,arg2
|
||||
end if
|
||||
}
|
||||
|
||||
macro sub arg1,arg2
|
||||
{
|
||||
if (arg2 eqtype 0)
|
||||
if (arg2) = 1
|
||||
dec arg1
|
||||
else
|
||||
sub arg1,arg2
|
||||
end if
|
||||
else
|
||||
sub arg1,arg2
|
||||
end if
|
||||
}
|
||||
|
||||
macro mov arg1,arg2
|
||||
{
|
||||
if (arg1 in __regs) & ((arg2 eqtype 0) | (arg2 eqtype '0'))
|
||||
if (arg2) = 0
|
||||
xor arg1,arg1
|
||||
else if (arg2) = 1
|
||||
xor arg1,arg1
|
||||
inc arg1
|
||||
else if (arg2) = -1
|
||||
or arg1,-1
|
||||
else if (arg2) > -128 & (arg2) < 128
|
||||
push arg2
|
||||
pop arg1
|
||||
else
|
||||
mov arg1,arg2
|
||||
end if
|
||||
else
|
||||
mov arg1,arg2
|
||||
end if
|
||||
}
|
||||
|
||||
|
||||
macro RGB [a] {
|
||||
common
|
||||
match (r=,g=,b),a \{
|
||||
\dd ((r) shl 16) or ((g) shl 8) or (b)
|
||||
\}
|
||||
}
|
||||
|
||||
|
||||
struc POINT _t,_dx,_dy {
|
||||
.x _t _dx
|
||||
.y _t _dy
|
||||
}
|
||||
|
||||
; structure definition helper
|
||||
include 'struct.inc'
|
||||
|
||||
struct RECT
|
||||
left dd ?
|
||||
top dd ?
|
||||
right dd ?
|
||||
bottom dd ?
|
||||
ends
|
||||
|
||||
struct BOX
|
||||
left dd ?
|
||||
top dd ?
|
||||
width dd ?
|
||||
height dd ?
|
||||
ends
|
||||
|
||||
; structures used in MeOS
|
||||
struct process_information
|
||||
cpu_usage dd ? ; +0
|
||||
window_stack_position dw ? ; +4
|
||||
window_stack_value dw ? ; +6
|
||||
dw ? ; +8
|
||||
process_name rb 12 ; +10
|
||||
memory_start dd ? ; +22
|
||||
used_memory dd ? ; +26
|
||||
PID dd ? ; +30
|
||||
box BOX ; +34
|
||||
slot_state dw ? ; +50
|
||||
dw ? ; +52
|
||||
client_box BOX ; +54
|
||||
wnd_state db ? ; +70
|
||||
rb (1024-71)
|
||||
ends
|
||||
|
||||
struct system_colors
|
||||
frame dd ?
|
||||
grab dd ?
|
||||
grab_button dd ?
|
||||
grab_button_text dd ?
|
||||
grab_text dd ?
|
||||
work dd ?
|
||||
work_button dd ?
|
||||
work_button_text dd ?
|
||||
work_text dd ?
|
||||
work_graph dd ?
|
||||
ends
|
||||
|
||||
struct FILEDATE
|
||||
Second db ?
|
||||
Minute db ?
|
||||
Hour db ?
|
||||
db ?
|
||||
Day db ?
|
||||
Month db ?
|
||||
Year dw ?
|
||||
ends
|
||||
|
||||
struct FILEINFO
|
||||
Attributes dd ?
|
||||
IsUnicode db ?
|
||||
db 3 dup(?)
|
||||
DateCreate FILEDATE
|
||||
DateAccess FILEDATE
|
||||
DateModify FILEDATE
|
||||
Size dq ?
|
||||
ends
|
||||
|
||||
; constants
|
||||
|
||||
; events
|
||||
EV_IDLE = 0
|
||||
EV_TIMER = 0
|
||||
EV_REDRAW = 1
|
||||
EV_KEY = 2
|
||||
EV_BUTTON = 3
|
||||
EV_EXIT = 4
|
||||
EV_BACKGROUND = 5
|
||||
EV_MOUSE = 6
|
||||
EV_IPC = 7
|
||||
EV_STACK = 8
|
||||
|
||||
; event mask bits for function 40
|
||||
EVM_REDRAW = 1b
|
||||
EVM_KEY = 10b
|
||||
EVM_BUTTON = 100b
|
||||
EVM_EXIT = 1000b
|
||||
EVM_BACKGROUND = 10000b
|
||||
EVM_MOUSE = 100000b
|
||||
EVM_IPC = 1000000b
|
||||
EVM_STACK = 10000000b
|
||||
180
programs/network/icq/trunk/struct.inc
Normal file
180
programs/network/icq/trunk/struct.inc
Normal file
@ -0,0 +1,180 @@
|
||||
|
||||
; Macroinstructions for defining data structures
|
||||
|
||||
macro struct name
|
||||
{ fields@struct equ name
|
||||
match child parent, name \{ fields@struct equ child,fields@\#parent \}
|
||||
sub@struct equ
|
||||
struc db [val] \{ \common fields@struct equ fields@struct,.,db,<val> \}
|
||||
struc dw [val] \{ \common fields@struct equ fields@struct,.,dw,<val> \}
|
||||
struc du [val] \{ \common fields@struct equ fields@struct,.,du,<val> \}
|
||||
struc dd [val] \{ \common fields@struct equ fields@struct,.,dd,<val> \}
|
||||
struc dp [val] \{ \common fields@struct equ fields@struct,.,dp,<val> \}
|
||||
struc dq [val] \{ \common fields@struct equ fields@struct,.,dq,<val> \}
|
||||
struc dt [val] \{ \common fields@struct equ fields@struct,.,dt,<val> \}
|
||||
struc rb count \{ fields@struct equ fields@struct,.,db,count dup (?) \}
|
||||
struc rw count \{ fields@struct equ fields@struct,.,dw,count dup (?) \}
|
||||
struc rd count \{ fields@struct equ fields@struct,.,dd,count dup (?) \}
|
||||
struc rp count \{ fields@struct equ fields@struct,.,dp,count dup (?) \}
|
||||
struc rq count \{ fields@struct equ fields@struct,.,dq,count dup (?) \}
|
||||
struc rt count \{ fields@struct equ fields@struct,.,dt,count dup (?) \}
|
||||
macro db [val] \{ \common \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,db,<val> \}
|
||||
macro dw [val] \{ \common \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dw,<val> \}
|
||||
macro du [val] \{ \common \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,du,<val> \}
|
||||
macro dd [val] \{ \common \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dd,<val> \}
|
||||
macro dp [val] \{ \common \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dp,<val> \}
|
||||
macro dq [val] \{ \common \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dq,<val> \}
|
||||
macro dt [val] \{ \common \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dt,<val> \}
|
||||
macro rb count \{ \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,db,count dup (?) \}
|
||||
macro rw count \{ \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dw,count dup (?) \}
|
||||
macro rd count \{ \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dd,count dup (?) \}
|
||||
macro rp count \{ \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dp,count dup (?) \}
|
||||
macro rq count \{ \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dq,count dup (?) \}
|
||||
macro rt count \{ \local anonymous
|
||||
fields@struct equ fields@struct,anonymous,dt,count dup (?) \}
|
||||
macro union \{ fields@struct equ fields@struct,,union,<
|
||||
sub@struct equ union \}
|
||||
macro struct \{ fields@struct equ fields@struct,,substruct,<
|
||||
sub@struct equ substruct \}
|
||||
virtual at 0 }
|
||||
|
||||
macro ends
|
||||
{ match , sub@struct \{ restruc db,dw,du,dd,dp,dq,dt
|
||||
restruc rb,rw,rd,rp,rq,rt
|
||||
purge db,dw,du,dd,dp,dq,dt
|
||||
purge rb,rw,rd,rp,rq,rt
|
||||
purge union,struct
|
||||
match name=,fields,fields@struct \\{ fields@struct equ
|
||||
make@struct name,fields
|
||||
fields@\\#name equ fields \\}
|
||||
end virtual \}
|
||||
match any, sub@struct \{ fields@struct equ fields@struct> \}
|
||||
restore sub@struct }
|
||||
|
||||
macro make@struct name,[field,type,def]
|
||||
{ common
|
||||
if $
|
||||
display 'Error: definition of ',`name,' contains illegal instructions.',0Dh,0Ah
|
||||
err
|
||||
end if
|
||||
local define
|
||||
define equ name
|
||||
forward
|
||||
local sub
|
||||
match , field \{ make@substruct type,name,sub def
|
||||
define equ define,.,sub, \}
|
||||
match any, field \{ define equ define,.#field,type,<def> \}
|
||||
common
|
||||
match fields, define \{ define@struct fields \} }
|
||||
|
||||
macro define@struct name,[field,type,def]
|
||||
{ common
|
||||
local list
|
||||
list equ
|
||||
forward
|
||||
if ~ field eq .
|
||||
name#field type def
|
||||
sizeof.#name#field = $ - name#field
|
||||
else
|
||||
rb sizeof.#type
|
||||
end if
|
||||
local value
|
||||
match any, list \{ list equ list, \}
|
||||
list equ list <value>
|
||||
common
|
||||
sizeof.#name = $
|
||||
restruc name
|
||||
match values, list \{
|
||||
struc name value \\{
|
||||
match any, fields@struct \\\{ fields@struct equ fields@struct,.,name,<values> \\\}
|
||||
match , fields@struct \\\{ label .
|
||||
forward
|
||||
match , value \\\\{ field type def \\\\}
|
||||
match any, value \\\\{ field type value
|
||||
if ~ field eq .
|
||||
rb sizeof.#name#field - ($-field)
|
||||
end if \\\\}
|
||||
common \\\} \\} \} }
|
||||
|
||||
macro enable@substruct
|
||||
{ macro make@substruct substruct,parent,name,[field,type,def]
|
||||
\{ \common
|
||||
\local define
|
||||
define equ parent,name
|
||||
\forward
|
||||
\local sub
|
||||
match , field \\{ match any, type \\\{ enable@substruct
|
||||
make@substruct type,name,sub def
|
||||
purge make@substruct
|
||||
define equ define,.,sub, \\\} \\}
|
||||
match any, field \\{ define equ define,.\#field,type,<def> \\}
|
||||
\common
|
||||
match fields, define \\{ define@\#substruct fields \\} \} }
|
||||
|
||||
enable@substruct
|
||||
|
||||
macro define@union parent,name,[field,type,def]
|
||||
{ common
|
||||
virtual at 0
|
||||
forward
|
||||
if ~ field eq .
|
||||
virtual at 0
|
||||
parent#field type def
|
||||
sizeof.#parent#field = $ - parent#field
|
||||
end virtual
|
||||
if sizeof.#parent#field > $
|
||||
rb sizeof.#parent#field - $
|
||||
end if
|
||||
else if sizeof.#type > $
|
||||
rb sizeof.#type - $
|
||||
end if
|
||||
common
|
||||
sizeof.#name = $
|
||||
end virtual
|
||||
struc name [value] \{ \common
|
||||
label .\#name
|
||||
last@union equ
|
||||
forward
|
||||
match any, last@union \\{ virtual at .\#name
|
||||
field type def
|
||||
end virtual \\}
|
||||
match , last@union \\{ match , value \\\{ field type def \\\}
|
||||
match any, value \\\{ field type value \\\} \\}
|
||||
last@union equ field
|
||||
common rb sizeof.#name - ($ - .\#name) \} }
|
||||
|
||||
macro define@substruct parent,name,[field,type,def]
|
||||
{ common
|
||||
virtual at 0
|
||||
forward
|
||||
if ~ field eq .
|
||||
parent#field type def
|
||||
sizeof.#parent#field = $ - parent#field
|
||||
else
|
||||
rb sizeof.#type
|
||||
end if
|
||||
local value
|
||||
common
|
||||
sizeof.#name = $
|
||||
end virtual
|
||||
struc name value \{
|
||||
label .\#name
|
||||
forward
|
||||
match , value \\{ field type def \\}
|
||||
match any, value \\{ field type value
|
||||
if ~ field eq .
|
||||
rb sizeof.#parent#field - ($-field)
|
||||
end if \\}
|
||||
common \} }
|
||||
Loading…
Reference in New Issue
Block a user