Rev 33 | Rev 43 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 33 | Rev 41 | ||
---|---|---|---|
Line 27... | Line 27... | ||
27 | end virtual |
27 | end virtual |
28 | } |
28 | } |
Line 29... | Line 29... | ||
29 | 29 | ||
Line -... | Line 30... | ||
- | 30 | ends fix } struct_helper name@struct |
|
- | 31 | ||
- | 32 | ;// mike.dld, 2006-29-01 [ |
|
- | 33 | ||
- | 34 | ; macros definition |
|
- | 35 | macro diff16 title,l1,l2 |
|
- | 36 | { |
|
- | 37 | local s,d |
|
- | 38 | s = l2-l1 |
|
- | 39 | display title,': 0x' |
|
- | 40 | repeat 8 |
|
- | 41 | d = 48 + s shr ((8-%) shl 2) and $0F |
|
- | 42 | if d > 57 |
|
- | 43 | d = d + 65-57-1 |
|
- | 44 | end if |
|
- | 45 | display d |
|
- | 46 | end repeat |
|
- | 47 | display 13,10 |
|
- | 48 | } |
|
- | 49 | ||
- | 50 | struc db [a] { common . db a |
|
- | 51 | if ~used . |
|
- | 52 | display 'not used db: ',`.,13,10 |
|
- | 53 | end if } |
|
- | 54 | struc dw [a] { common . dw a |
|
- | 55 | if ~used . |
|
- | 56 | display 'not used dw: ',`.,13,10 |
|
- | 57 | end if } |
|
- | 58 | struc dd [a] { common . dd a |
|
- | 59 | if ~used . |
|
- | 60 | display 'not used dd: ',`.,13,10 |
|
- | 61 | end if } |
|
- | 62 | struc dp [a] { common . dp a |
|
- | 63 | if ~used . |
|
- | 64 | display 'not used dp: ',`.,13,10 |
|
- | 65 | end if } |
|
- | 66 | struc dq [a] { common . dq a |
|
- | 67 | if ~used . |
|
- | 68 | display 'not used dq: ',`.,13,10 |
|
- | 69 | end if } |
|
- | 70 | struc dt [a] { common . dt a |
|
- | 71 | if ~used . |
|
- | 72 | display 'not used dt: ',`.,13,10 |
|
- | 73 | end if } |
|
- | 74 | ||
- | 75 | ; constants definition |
|
- | 76 | WSTATE_NORMAL = 00000000b |
|
- | 77 | WSTATE_MAXIMIZED = 00000001b |
|
- | 78 | WSTATE_MINIMIZED = 00000010b |
|
- | 79 | WSTATE_ROLLEDUP = 00000100b |
|
- | 80 | ||
- | 81 | ; structures definition |
|
- | 82 | struc WDATA { |
|
- | 83 | .left dd ? |
|
- | 84 | .top dd ? |
|
- | 85 | .width dd ? |
|
- | 86 | .height dd ? |
|
- | 87 | .cl_workarea dd ? |
|
- | 88 | .cl_titlebar dd ? |
|
- | 89 | .cl_frames dd ? |
|
- | 90 | .reserved db ? |
|
- | 91 | .fl_wstate db ? |
|
- | 92 | .fl_wdrawn db ? |
|
- | 93 | .fl_redraw db ? |
|
- | 94 | } |
|
- | 95 | virtual at 0 |
|
- | 96 | WDATA WDATA |
|
- | 97 | end virtual |
|
- | 98 | label WDATA.fl_wstyle byte at 0x13 ; WDATA.cl_workarea+3 |
|
- | 99 | ||
- | 100 | struc RECT { |
|
- | 101 | .left dd ? |
|
- | 102 | .top dd ? |
|
- | 103 | .right dd ? |
|
- | 104 | .bottom dd ? |
|
- | 105 | } |
|
- | 106 | virtual at 0 |
|
- | 107 | RECT RECT |
|
- | 108 | end virtual |
|
- | 109 | ||
- | 110 | struc BOX { |
|
- | 111 | .left dd ? |
|
- | 112 | .top dd ? |
|
- | 113 | .width dd ? |
|
- | 114 | .height dd ? |
|
- | 115 | } |
|
- | 116 | virtual at 0 |
|
- | 117 | BOX BOX |
|
- | 118 | end virtual |
|
- | 119 | ||
Line 30... | Line 120... | ||
30 | ends fix } struct_helper name@struct |
120 | ;// mike.dld, 2006-29-01 ] |
31 | 121 | ||
32 | 122 | ||
33 | ; Core functions |
123 | ; Core functions |