reorganize code
Iris Lightshard nilix@nilfm.cc
PGP Signature
-----BEGIN PGP SIGNATURE----- iQIzBAABCAAdFiEEkFh6dA+k/6CXFXU4O3+8IhROY5gFAmQWjqUACgkQO3+8IhRO Y5ggdBAAgPeS1kwMbWYpHy0YipJkh/54hn8HG/N3HFoqVYIt00oBfkYdcFN4v/HO TPkYz+ZfA0vOYUCQlHyEShkStb4Jl04EvozC4cCwz+gZp8noEh8nn9P+ENrqivFq vZStYNeT3NcIaZCJo+6KvNIS6Ql1mO6nmhZKx7qyQgFqwMtAt6/Hu8XV7HEPj5gs UDrV5cXBgbJB+Ah/0QIZTlad/gNsMcITMPMJYzvVp/MnNfcBSMtzLypV4uPNOF1h /kwFsTz1aLbaWW7HZvwMnhKxXytUkkaDy48u69AGelb80dvPEmDL8AiVy6deE2hI RokPhac3dBtLQl4FBdfkDFHMxPipEMDKg1s+Mu3u/N7ZsACmfYezqg3xUnlDKElH z6b4+8SgedSpGwCkKtkJ0okWcagPXaf2azOSLxt+MtFGNkGVXHSy0rQsJEKIDn1b 0OifY6fJesjaHN1kdI/Y4pTP+uA4nozmZSINVHy31KCR4TnLsFK3tQJX4XE7I6+t z8o+ein1fnWb31tR8i7AilRu+XkNM8iVx9RU91wwkmpqlgjvVFdn8i/WpdlXWWHk KqfgcBRcpo+ejEeTaOJtbJYlXmBYlUPy7+O2sGT+J5XF0F+DzlUzUG+uor5f7Dmq dgcHwnjj9uSnHCC3521OqJ6/ooomcfFP2is/7N+VauYF6S24yOE= =HmT/ -----END PGP SIGNATURE-----
1 files changed,
268 insertions(+),
222 deletions(-)
jump to
M
taro-ls.tal
→
taro-ls.tal
@@ -80,9 +80,7 @@ ;on_stdin .Console/vector DEO2
;on_key .Controller/vector DEO2 BRK -@on_key ( -> ) - .Controller/key DEI .Console/error DEO -BRK +( -== message in ==- ) @on_stdin ( -> )@@ -106,8 +104,7 @@ decode_inc_count .mboxes/bytes STZ2
,&count JMP &no_mbox_list DUP MAIL_LIST NEQ ,&no_mail_list JCN - - POP ;list_data .decoding/processed LDZ2 ADD2 STA + POP ;list_data .decoding/processed LDZ2 ADD2 STA decode_inc_count .list/bytes STZ2 ,&count JMP &no_mail_list@@ -116,6 +113,7 @@
&count decode_is_done ,&done JCN BRK + &done #0000 DUP2 .decoding/count STZ2 .decoding/processed STZ2 #00 .decoding STZ BRK@@ -132,82 +130,246 @@
BRK @decode_inc_count ( -- current* ) + .decoding/processed LDZ2 INC2 DUP2 .decoding/processed STZ2 + JMP2r @decode_is_done ( -- bit ) + .decoding/processed LDZ2 .decoding/count LDZ2 EQU2 DUP ,&refresh_ui JCN JMP2r + &refresh_ui - .list/bytes LDZ2 .decoding/count LDZ2 NEQ2 ,&no_list JCN - #01 .refresh/list STZ + .list/bytes LDZ2 .decoding/count LDZ2 NEQ2 ,&no_list JCN + #01 .refresh/list STZ &no_list - .mboxes/bytes LDZ2 .decoding/count LDZ2 NEQ2 ,&no_mbox JCN - #01 .refresh/mboxes STZ + .mboxes/bytes LDZ2 .decoding/count LDZ2 NEQ2 ,&no_mbox JCN + #01 .refresh/mboxes STZ &no_mbox + +JMP2r + +( -== message out ==- ) + +@send_get_mbox ( -> ) + + #01 .Console/write DEO + ;selected_mbox strlen SWP .Console/write DEO .Console/write DEO + ;selected_mbox send_str + JMP2r +@send_str ( str* -- ) + + &while + LDAk .Console/write DEO + INC2 LDAk ,&while JCN + POP2 + +JMP2r + +( -== input ==- ) + +@on_key ( -> ) + .Controller/key DEI .Console/error DEO +BRK + @on_mouse ( -> ) ;mbox_select_handler .mboxes .refresh/mboxes #0000 #00 mouse_event_list ;noop_list_click .list .refresh/list TOP_SECTION MID_SEPARATOR ADD2 #04 mouse_event_list .resizing LDZ #00 EQU ,&resz_check JCN - ( resizing ) - .Mouse/x DEI2 .resizing/x LDZ2 SUB2 .resizing/dx STZ2 - .Mouse/y DEI2 .resizing/y LDZ2 SUB2 .resizing/dy STZ2 + ( resizing ) + .Mouse/x DEI2 .resizing/x LDZ2 SUB2 .resizing/dx STZ2 + .Mouse/y DEI2 .resizing/y LDZ2 SUB2 .resizing/dy STZ2 - handle_rsz #01 AND ,&done JCN + handle_rsz #01 AND ,&done JCN - ( btn1 release ) - #00 .resizing STZ + ( btn1 release ) + #00 .resizing STZ BRK &resz_check - .Mouse/x DEI2 .Screen/width DEI2 #0008 SUB2 LTH2 ,&done JCN - .Mouse/y DEI2 .Screen/height DEI2 #0008 SUB2 LTH2 ,&done JCN - .Mouse/state DEI #01 EOR ,&done JCN + .Mouse/x DEI2 .Screen/width DEI2 #0008 SUB2 LTH2 ,&done JCN + .Mouse/y DEI2 .Screen/height DEI2 #0008 SUB2 LTH2 ,&done JCN + .Mouse/state DEI #01 EOR ,&done JCN - #01 .resizing STZ - .Mouse/x DEI2 .resizing/x STZ2 - .Mouse/y DEI2 .resizing/y STZ2 + #01 .resizing STZ + .Mouse/x DEI2 .resizing/x STZ2 + .Mouse/y DEI2 .resizing/y STZ2 &done + #01 .refresh/fg STZ BRK @handle_rsz ( -- mousestate ) ( chk_x_rsz ) - .Mouse/x DEI2 .Screen/width DEI2 #0002 SUB2 GTH2 ,&inc_x JCN - #ffff .resizing/dx LDZ2 SUB2 #0008 GTH2 ,&dec_x JCN - ,&chk_y_rsz JMP + .Mouse/x DEI2 .Screen/width DEI2 #0002 SUB2 GTH2 ,&inc_x JCN + #ffff .resizing/dx LDZ2 SUB2 #0008 GTH2 ,&dec_x JCN + ,&chk_y_rsz JMP &dec_x - .Screen/width DEI2 #0100 LTH2 ,&chk_y_rsz JCN - .Screen/width DEI2 #0008 SUB2 .Screen/width DEO2 - ,&chk_y_rsz JMP + .Screen/width DEI2 #0100 LTH2 ,&chk_y_rsz JCN + .Screen/width DEI2 #0008 SUB2 .Screen/width DEO2 + ,&chk_y_rsz JMP &inc_x - .Screen/width DEI2 #0008 ADD2 .Screen/width DEO2 + .Screen/width DEI2 #0008 ADD2 .Screen/width DEO2 ,&chk_y_rsz JMP &chk_y_rsz - .Mouse/y DEI2 .Screen/height DEI2 #0002 SUB2 GTH2 ,&inc_y JCN - #ffff .resizing/dy LDZ2 SUB2 #0008 GTH2 ,&dec_y JCN - ,&chk_release JMP + .Mouse/y DEI2 .Screen/height DEI2 #0002 SUB2 GTH2 ,&inc_y JCN + #ffff .resizing/dy LDZ2 SUB2 #0008 GTH2 ,&dec_y JCN + ,&chk_release JMP &dec_y - .Screen/height DEI2 #0100 LTH2 ,&chk_release JCN - .Screen/height DEI2 #0008 SUB2 .Screen/height DEO2 - ,&chk_release JMP + .Screen/height DEI2 #0100 LTH2 ,&chk_release JCN + .Screen/height DEI2 #0008 SUB2 .Screen/height DEO2 + ,&chk_release JMP &inc_y - .Screen/height DEI2 #0008 ADD2 .Screen/height DEO2 - ,&chk_release JMP + .Screen/height DEI2 #0008 ADD2 .Screen/height DEO2 + ,&chk_release JMP &chk_release - #01 .refresh/list STZ - #01 .refresh/mboxes STZ - .Screen/height DEI2 TOP_SECTION BOTTOM_SECTION ADD2 MID_SEPARATOR ADD2 SUB2 #03 SFT2 NIP .list/height STZ - .Mouse/state DEI + #01 .refresh/list STZ + #01 .refresh/mboxes STZ + .Screen/height DEI2 TOP_SECTION BOTTOM_SECTION ADD2 MID_SEPARATOR ADD2 SUB2 #03 SFT2 NIP .list/height STZ + .Mouse/state DEI + +JMP2r + +@mouse_event_list ( clickhandler* list refresh ypos* multiselect -- ) + + ,&multi STR + ,&y STR2 + ,&r STR + STH + + ( check bounds ) + .Mouse/x DEI2 .Screen/width DEI2 #0008 SUB2 GTH2 ,&done JCN + .Mouse/y DEI2 ,&y LDR2 LTH2 ,&done JCN + .Mouse/y DEI2 ,&y LDR2 [ STHkr LB_HEIGHT LDZ #00 SWP #30 SFT2 ] ADD2 GTH2 ,&done JCN + + ( check scrollwheel ) + .Mouse/scrolly DEI2 #0000 EQU2 ,&no_scroll JCN + .Mouse/scrolly DEI2 #0001 EQU2 ,&scroll_down JCN + + ( scroll_up ) + STHkr try_scroll_up_mouse + ,&no_scroll JMP + + ( data ) + &multi $1 + + &scroll_down + STHkr try_scroll_down_mouse + + &no_scroll + .Mouse/state DEI #01 AND #00 EQU ,&done JCN + ( leftclick ) + ,&multi LDR ,&y LDR2 STHkr mouse_select_on_click + STHr ROT ROT JSR2 + #01 ,&r LDR STZ + JMP2r + + ( data ) + &y $2 + &r $1 + + &done + #01 ,&r LDR STZ + POPr + POP2 + +JMP2r +@mouse_select_on_click ( multi ypos list -- ) + STH + ,&y STR2 + + .Controller/button DEI #04 AND AND ,&multiselect JCN + #0001 STHkr LB_SELECT_LEN STZ2 + .Mouse/y DEI2 ,&y LDR2 SUB2 #03 SFT2 STHkr LB_TOP LDZ2 ADD2 STHkr LB_SELECT_IDX STZ2 + POPr + JMP2r + &multiselect + .Mouse/y DEI2 ,&y LDR2 SUB2 #03 SFT2 STHkr LB_TOP LDZ2 ADD2 + DUP2 STHkr LB_SELECT_IDX LDZ2 LTH2 ,&last_to_first JCN + ( first_to_last ) + STHkr LB_SELECT_IDX LDZ2 SUB2 INC2 STHkr LB_SELECT_LEN STZ2 + POPr JMP2r + &last_to_first + DUP2 STHkr LB_SELECT_IDX LDZ2 SWP2 SUB2 INC2 STHkr LB_SELECT_LEN STZ2 + STHr LB_SELECT_IDX STZ2 + JMP2r +&y $2 + +@mbox_select_handler ( list -- ) + + #0000 ,&idx STR2 + #00 ,&chr STR + STHk + + ( clear the previous selection with null bytes ) + #ff #00 &clear_mbox EQUk ,&ready JCN + DUP #00 SWP ;selected_mbox ADD2 #00 ROT ROT STA + INC ,&clear_mbox JMP &ready POP2 + + ( get position of the current selection ) + ( bytes ) LDZ2 #0000 &while EQU2k ,&end JCN + STHkr LB_SELECT_IDX LDZ2 ,&idx LDR2 EQU2 ,&write_str JCN + DUP2 STHkr LB_DATA LDZ2 ADD2 LDA #0a EQU ,&inc JCN + INC2 ,&while JMP + &inc ,&idx LDR2 INC2 ,&idx STR2 INC2 ,&while JMP + + ( data ) + &idx $2 + &chr $1 + + ( copy the current selection to the buffer ) + &write_str STHkr LB_DATA LDZ2 ADD2 + &loop LDAk #0a EQU ,&end JCN + LDAk [ ;selected_mbox #00 ,&chr LDR ADD2 ] STA + ,&chr LDR INC ,&chr STR INC2 ,&loop JMP + &end + + POP2 POP2 + POPr + send_get_mbox +JMP2r + +@noop_list_click ( list -- ) + + POP + +JMP2r + +@try_scroll_up_mouse ( list -- ) + + STH + STHkr LB_LEN LDZ2 #00 STHkr LB_HEIGHT LDZ LTH2 ,&no_scroll_up JCN + STHkr LB_TOP LDZ2 #0000 EQU2 ,&no_scroll_up JCN + STHkr LB_TOP LDZ2 #0001 SUB2 STHkr LB_TOP STZ2 + STHkr update_sb_pos + &no_scroll_up + POPr + +JMP2r + +@try_scroll_down_mouse ( list -- ) + + STH + STHkr LB_LEN LDZ2 #00 STHkr LB_HEIGHT LDZ LTH2 ,&no_scroll_down JCN + STHkr LB_TOP LDZ2 #00 STHkr LB_HEIGHT LDZ ADD2 STHkr LB_LEN LDZ2 EQU2 ,&no_scroll_down JCN + STHkr LB_TOP LDZ2k INC2 ROT STZ2 + STHkr update_sb_pos + &no_scroll_down + POPr + +JMP2r + +( -== gfx ==- ) @on_screen ( -> )@@ -250,6 +412,7 @@ JMP2r
&x $2 @clear_listbox ( top* height -- ) + #00 SWP #30 SFT2 ,&height STR2 ,&top STR2@@ -277,14 +440,6 @@ #02 .Screen/sprite DEO
JMP2r -@strlen ( addr* -- len* ) - - DUP2 - &loop - INC2 LDAk ,&loop JCN - SWP2 SUB2 - -JMP2r @store_char ( char list_e_offset -- char )@@ -296,7 +451,10 @@
@shouldnt_draw_word ( list -- flag ) DUP LB_OFFSET LDZ2 DUP2 + ( above top of view ) STH2 ROT STHk LB_TOP LDZ2 LTH2 ,&clear_rtn JCN + + ( below bottom of view ) STHr DUP LB_TOP LDZ2 ROT LB_HEIGHT LDZ #00 SWP ADD2 #0001 SUB2 STH2r SWP2 GTH2 ,&no_draw JCN #00 JMP2r@@ -304,9 +462,11 @@ &clear_rtn
POP2r POPr &no_draw #01 + JMP2r @draw_list_elem ( list -- ) + STHk get_entry_color STH [ ;word@@ -318,64 +478,67 @@
JMP2r @get_entry_color ( list -- colorByte ) + STHk LB_OFFSET LDZ2 STHkr LB_SELECT_IDX LDZ2 - LTH2 ,&normal JCN + STHkr LB_OFFSET LDZ2 STHkr LB_SELECT_IDX LDZ2 STHkr LB_SELECT_LEN LDZ2 ADD2 #0001 SUB2 GTH2 ,&normal JCN + POPr ( selected ) #04 JMP2r + &normal POPr #03 + JMP2r @finish_line ( list -- ) + STH ;blank .Screen/addr DEO2 - &while - .Screen/x DEI2 - .Screen/width DEI2 #0010 SUB2 - - GTH2 ,&end JCN + &while .Screen/x DEI2 .Screen/width DEI2 #0010 SUB2 GTH2 ,&end JCN STHkr get_entry_color .Screen/sprite DEO .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2 - ,&while JMP &end POPr + JMP2r @draw_listbox ( .list ypos* -- ) -#0000 .Screen/x DEO2 -( ypos ) .Screen/y DEO2 + #0000 .Screen/x DEO2 + ( ypos ) .Screen/y DEO2 -( .list ) STH -&begin -#0000 STHkr LB_OFFSET STZ2 -STHkr LDZ2 #0000 &while EQU2k ,&end JCN - DUP2 STHkr LB_DATA LDZ2 ADD2 LDA - DUP #00 EQU ,&end JCN + ( .list ) STH + &begin + #0000 STHkr LB_OFFSET STZ2 + STHkr LDZ2 #0000 &while EQU2k ,&end JCN + DUP2 STHkr LB_DATA LDZ2 ADD2 LDA + DUP #00 EQU ,&end JCN ( if not newline, store the character and increment the offsets ) DUP #0a EQU ,&inc_line JCN STHkr LB_ELEM_OFFSET store_char ,&continue JMP ( continue looping ) - &inc_line - POP #0000 STHkr LB_ELEM_OFFSET LDZ ;word ADD2 STA - STHkr shouldnt_draw_word ,&no_draw JCN - STHkr draw_list_elem - #0000 .Screen/x DEO2 - .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2 - &no_draw - STHkr LB_OFFSET LDZ2 INC2 STHkr LB_OFFSET STZ2 + &inc_line + POP #0000 STHkr LB_ELEM_OFFSET LDZ ;word ADD2 STA + STHkr shouldnt_draw_word ,&no_draw JCN + STHkr draw_list_elem + #0000 .Screen/x DEO2 + .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2 + &no_draw + STHkr LB_OFFSET LDZ2 INC2 STHkr LB_OFFSET STZ2 - #00 STHkr LB_ELEM_OFFSET STZ + #00 STHkr LB_ELEM_OFFSET STZ + &continue INC2 ,&while JMP &end + STHkr LB_OFFSET LDZ2 #0001 SUB2 STHr LB_LEN STZ2 POP2 POP2 JMP2r@@ -389,154 +552,8 @@ #4f .Screen/sprite DEO
JMP2r -@print ( short* -- ) - - SWP ,&byte JSR - &byte ( byte -- ) DUP #04 SFT ,&char JSR - &char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD .Console/error DEO - -JMP2r - -@print_str ( str* -- ) - - &while - LDAk .Console/write DEO - INC2 LDAk ,&while JCN - POP2 +@draw_scrollbar ( list ypos -- ) -JMP2r - -@debug ( str* -- ) - - &while - LDAk .Console/error DEO - INC2 LDAk ,&while JCN - POP2 - -JMP2r - - -@mouse_event_list ( clickhandler* list refresh ypos* multiselect -- ) - - ,&multi STR - ,&y STR2 - ,&r STR - STH - - ( check bounds ) - .Mouse/x DEI2 .Screen/width DEI2 #0008 SUB2 GTH2 ,&done JCN - .Mouse/y DEI2 ,&y LDR2 LTH2 ,&done JCN - .Mouse/y DEI2 ,&y LDR2 [ STHkr LB_HEIGHT LDZ #00 SWP #30 SFT2 ] ADD2 GTH2 ,&done JCN - - ( check scrollwheel ) - .Mouse/scrolly DEI2 #0000 EQU2 ,&no_scroll JCN - .Mouse/scrolly DEI2 #0001 EQU2 ,&scroll_down JCN - - ( scroll_up ) - STHkr try_scroll_up_mouse - ,&no_scroll JMP - &multi $1 - &scroll_down - STHkr try_scroll_down_mouse - - &no_scroll - ( select entry ) - - - ( click handler here ) - .Mouse/state DEI #01 AND #00 EQU ,&done JCN - ,&multi LDR ,&y LDR2 STHkr mouse_select_on_click - STHr ROT ROT JSR2 - #01 ,&r LDR STZ - JMP2r - &y $2 - &r $1 - &done - #01 ,&r LDR STZ - POPr - POP2 -JMP2r - -@mouse_select_on_click ( multi ypos list -- ) - STH - ,&y STR2 - .Controller/button DEI #04 AND AND ,&multiselect JCN - #0001 STHkr LB_SELECT_LEN STZ2 - .Mouse/y DEI2 ,&y LDR2 SUB2 #03 SFT2 STHkr LB_TOP LDZ2 ADD2 STHkr LB_SELECT_IDX STZ2 - POPr - JMP2r - &multiselect - ( first_to_last ) - .Mouse/y DEI2 ,&y LDR2 SUB2 #03 SFT2 STHkr LB_TOP LDZ2 ADD2 - DUP2 STHkr LB_SELECT_IDX LDZ2 LTH2 ,&last_to_first JCN - STHkr LB_SELECT_IDX LDZ2 SUB2 INC2 STHkr LB_SELECT_LEN STZ2 - POPr JMP2r - &last_to_first - DUP2 STHkr LB_SELECT_IDX LDZ2 SWP2 SUB2 INC2 STHkr LB_SELECT_LEN STZ2 - STHr LB_SELECT_IDX STZ2 -JMP2r -&y $2 - -@mbox_select_handler ( list -- ) - - #0000 ,&idx STR2 - #00 ,&chr STR - STHk - - ( clear the previous selection with null bytes ) - #ff #00 &clear_mbox EQUk ,&ready JCN - DUP #00 SWP ;selected_mbox ADD2 #00 ROT ROT STA - INC ,&clear_mbox JMP &ready POP2 - - ( get position of the current selection ) - ( bytes ) LDZ2 #0000 &while EQU2k ,&end JCN - STHkr LB_SELECT_IDX LDZ2 ,&idx LDR2 EQU2 ,&write_str JCN - DUP2 STHkr LB_DATA LDZ2 ADD2 LDA #0a EQU ,&inc JCN - INC2 ,&while JMP - &inc ,&idx LDR2 INC2 ,&idx STR2 INC2 ,&while JMP - - &idx $2 - &chr $1 - - ( copy the current selection to the buffer ) - &write_str STHkr LB_DATA LDZ2 ADD2 - &loop LDAk #0a EQU ,&end JCN - LDAk [ ;selected_mbox #00 ,&chr LDR ADD2 ] STA - ,&chr LDR INC ,&chr STR INC2 ,&loop JMP - &end - - POP2 POP2 - POPr - #01 .Console/write DEO - ;selected_mbox strlen SWP .Console/write DEO .Console/write DEO - ;selected_mbox print_str -JMP2r - -@noop_list_click ( list -- ) - POP -JMP2r - -@try_scroll_up_mouse ( list -- ) - STH - STHkr LB_LEN LDZ2 #00 STHkr LB_HEIGHT LDZ LTH2 ,&no_scroll_up JCN - STHkr LB_TOP LDZ2 #0000 EQU2 ,&no_scroll_up JCN - STHkr LB_TOP LDZ2 #0001 SUB2 STHkr LB_TOP STZ2 - STHkr update_sb_pos - &no_scroll_up - POPr -JMP2r - -@try_scroll_down_mouse ( list -- ) - STH - STHkr LB_LEN LDZ2 #00 STHkr LB_HEIGHT LDZ LTH2 ,&no_scroll_down JCN - STHkr LB_TOP LDZ2 #00 STHkr LB_HEIGHT LDZ ADD2 STHkr LB_LEN LDZ2 EQU2 ,&no_scroll_down JCN - STHkr LB_TOP LDZ2k INC2 ROT STZ2 - STHkr update_sb_pos - &no_scroll_down - POPr -JMP2r - -@draw_scrollbar ( list ypos -- ) ,&y STR2 STH@@ -604,13 +621,42 @@ POPr
JMP2r +( -== util ==- ) + +@strlen ( addr* -- len* ) + + DUP2 + &loop + INC2 LDAk ,&loop JCN + SWP2 SUB2 + +JMP2r + +@debug_u16 ( short* -- ) + + SWP ,&byte JSR + &byte ( byte -- ) DUP #04 SFT ,&char JSR + &char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD .Console/error DEO + +JMP2r + + + +@debug ( str* -- ) + + &while + LDAk .Console/error DEO + INC2 LDAk ,&while JCN + POP2 + +JMP2r + +( -== data ==- ) + @resize_handle [ e2c2 aa1a 3a02 fe00 ] @cursor [ f8e0 e090 8804 0000 ] @scrollbar [ 0707 0707 0707 0707 ] @blank [ 0000 0000 0000 0000 ] -@loading "Loading... 00 -@debug_mbox_search "Finding 20 "selected 20 "mbox 00 -@debug_mbox_copy "Copying 20 "mbox 20 "name 00 @font [ 00 00 00 00 00 00 00 00 00 18 18 18 08 00 08 00 00 14 14 00 00 00 00 00 00 24 7e 24 24 7e 24 00