sinitcin

#[derive(Debug, Default, Clone, Copy)]
struct LexerT<'a> {
    pos: usize,
    text: &'a str,
    token: &'a str,
} 

fn next_token(state: LexerT) -> Option<LexerT> {
    let mut start_pos = 0;
    let mut end_pos = start_pos;

sinitcin

macro array_data_record [arg]
{
        db arg
}

macro array name, [arg]
{
  common
        name:
                array_data_record arg

sinitcin

* seh64.inc

macro enqueue list,item
 { match any,list \{ list equ list,item \}
   match ,list \{ list equ item \} }

macro dequeue list,item
 { done@dequeue equ
   match first=,rest,list
   \{ item equ first

sinitcin

section '.data' data readable writable

    class.form        db 'STORAGE',0
    title.form        db 'Главное окно',0
    hinstance         dd ?
    rc         RECT
    msg        MSG
    wc         WNDCLASS

section '.code' code readable executable

sinitcin

macro RGB red, green, blue
{
      xor eax, eax
      mov al, blue    ; blue
      rol eax, 8
      mov al, green   ; green
      rol eax, 8
      mov al, red     ; red
} 

sinitcin

format PE native 5.02 at 10000h
entry start

include 'win32a.inc'

section '.text' code readable executable

start:
    push UNICODE_STRING

sinitcin

    ; Устанавливаем адрес обработчика
    push exception
    push dword [fs:0]
    mov [fs:0],esp

    ; Исключение
    xor eax,eax
    mov [eax],1

    ; Если всё прошло отлично, то снимаем обработчик