Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                 ;;

;;  flat assembler source                          ;;

;;  Copyright (c) 1999-2004, Tomasz Grysztar       ;;

;;  All rights reserved.                           ;;

;;                                                 ;;

;;  Menuet port by VT                              ;;

;;                                                 ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

NORMAL_MODE    = 8

CONSOLE_MODE   = 32

MAGIC1     = 6*(text.line_size-1)+6*2+2

MAGIC2     = 14

MAGIC3     = 1

MAGIC4     = 7

OUTPUTXY = (5+MAGIC4) shl 16 + MAGIC2*3+MAGIC3+MAGIC4+1+2

MAX_PATH = 100

APP_MEMORY = 0x00800000

;; Menuet header

use32

  org 0x0

  db 'MENUET01'  ; 8 byte id

  dd 0x01     ; header version

  dd START     ; program start

  dd program_end ; program image size

  dd APP_MEMORY  ; required amount of memory

  dd 0xDFFF0     ; stack

  dd params,0x0  ; parameters,icon

include 'lang.inc'

include 'fasm.inc'

;include 'debug2.inc'

center fix true

START:      ; Start of execution

   cmp       [params],0

   jz       noparams

   mov       ecx,10

   mov       al,' '

   mov       edi,infile

   push    ecx

   cld

   rep       stosd

   mov       ecx,[esp]

   mov       edi,outfile

   rep       stosd

   pop       ecx

   mov       edi,path

   rep       stosd

   mov       esi,params

;  DEBUGF  "params: %s\n",esi

   mov       edi,infile

   call    mov_param_str

;  mov     edi,infile

;  DEBUGF  " input: %s\n",edi

   inc       esi

   mov       edi,outfile

   call    mov_param_str

;  mov     edi,outfile

;  DEBUGF  "output: %s\n",edi

   inc       esi

   mov       edi,path

   call    mov_param_str

;  mov     edi,path

;  DEBUGF  "  path: %s\n",edi

   cmp       [esi], dword ',run'

   jne       @f

   mov       [_run_outfile],1

  @@:

   mov       [_mode],CONSOLE_MODE

   jmp       start

  noparams:

    call draw_window

still:

    mcall  10     ; Wait here for event

    dec    eax     ; Redraw request

    jz       red

    dec    eax     ; Key in buffer

    jz       key

    dec    eax     ; Button in buffer

    jz       button

    jmp  still

red:    ; Redraw

    call draw_window

    jmp  still

key:    ; Key

    mcall  2     ; Read it and ignore

    jmp  still

button:    ; Button in Window

    mcall  17

    cmp  ah,2    ; Start compiling

    je     start

    cmp  ah,3    ; Start compiled file

    jnz  norunout

    mov  edx,outfile

    call make_fullpaths

    mcall  58,file_info_start

;   xor   ecx,ecx

    jmp  still

   norunout:

    mov  ecx,[skinh]

    add  ecx,MAGIC3+MAGIC2/2-3

    mov  [ya],ecx

    cmp  ah,11     ; Infile

    je    f1

    cmp  ah,12     ; Outfile

    je    f2

    cmp  ah,13     ; Path

    je    f3

    dec  ah   ; Close application

    jnz  still

    mcall -1

skinh dd ?

draw_window:

    pusha

    mcall  12,1 ; Start of draw

    get_sys_colors 1,0

    mcall 0,<50,280>,<50,250>,[sc.work]      ; Draw Window

    draw_caption header,header.size         ; Draw Window Label Text

    mov   ecx,[skinh-2]

    mov   cx,word[skinh]

    madd  ecx,MAGIC3,MAGIC3

    mov   ebx,[pinfo.x_size]

    madd  ebx,5,-5

    push  ecx

    madd  ecx,MAGIC2*3+2,MAGIC2*3+2

    mcall 38,,,[sc.work_graph]

    pop   ecx

    sub   ebx,MAGIC1+3

    mcall

    madd  ecx,MAGIC2,MAGIC2

    mcall

    madd  ecx,MAGIC2,MAGIC2

    mcall

    madd  ecx,MAGIC2,MAGIC2

    mcall

    push  ebx

    mpack ebx,MAGIC1+5,MAGIC1+5

    sub   cx,MAGIC2*3

    mcall

    mov   ebx,[esp-2]

    pop   bx

    mcall

    add   esp,2

    mpack ebx,5,MAGIC1-1

    mpack ecx,[skinh],MAGIC2-2

    madd  ecx,MAGIC3+1,0

    mcall 8,,,0x4000000B       ; Button: Enter Infile

    madd  ecx,MAGIC2,0

    mcall  ,,,0x4000000C       ; Button: Enter Outfile

    madd  ecx,MAGIC2,0

    mcall  ,,,0x4000000D       ; Button: Enter Path

    mpack ebx,[pinfo.x_size],MAGIC1

    msub  ebx,MAGIC1+5+1,0

    mpack ecx,[skinh],MAGIC2*3/2-1

    madd  ecx,MAGIC3,0

    mcall  ,,,0x00000002,[sc.work_button]

    madd  ecx,MAGIC2*3/2+1,0

    mcall  ,,,0x00000003

    mpack ebx,5+6,[skinh]    ; Draw Window Text

    add   bx,MAGIC3+MAGIC2/2-3

    mov  ecx,[sc.work_text]

    mov  edx,text

    mov  esi,text.line_size

    mov  eax,4

   newline:

    mcall

    add  ebx,MAGIC2

    add  edx,text.line_size

    cmp  byte[edx],'x'

    jne  newline

    mov   ebx,[pinfo.x_size]

    sub   ebx,MAGIC1+5+1-9

    shl   ebx,16

    mov   bx,word[skinh]

    add   bx,MAGIC3+(MAGIC2*3/2-1)/2-3

    mcall  ,,[sc.work_button_text],s_compile,7

    add   ebx,MAGIC2*3/2+1

    mcall ,,,s_run

    mpack ebx,MAGIC1+5+6,[skinh]

    add   ebx,MAGIC3+MAGIC2/2-3+MAGIC2*0

    mov   esi,[pinfo.x_size]

    sub   esi,MAGIC1*2+5*2+6+3

    mov   eax,esi

    mov   cl,6

    div   cl

    cmp   al,MAX_PATH

    jbe   @f

    mov   al,MAX_PATH

@@: movzx esi,al

    mcall 4,,[sc.work_text],infile

    add   ebx,MAGIC2

    mcall ,,,outfile

    add   ebx,MAGIC2

    mcall ,,,path

    call  draw_messages

    mcall  12,2 ; End of Draw

    popa

    ret

bottom_right dd ?

draw_messages:

    mov    eax,13      ; clear work area

    mpack  ebx,5+MAGIC4-2,[pinfo.x_size]

    sub    ebx,5*2+MAGIC4*2-1-2*2

    mpack  ecx,[skinh],[pinfo.y_size]

    madd   ecx,MAGIC2*3+MAGIC3+MAGIC4+1,-(MAGIC2*3+MAGIC3+MAGIC4*2+5)+2

    mov    word[bottom_right+2],bx

    mov    word[bottom_right],cx

    msub   [bottom_right],7,11

    add    [bottom_right],OUTPUTXY

    sub    ecx,[skinh]

    mov    edx,[sc.work]

    int    0x40

_cy = 0

_sy = 2

_cx = 4

_sx = 6

    push   ebx ecx

    mpack  ebx,5+MAGIC4-3,5+MAGIC4-2

    add    bx,[esp+_cx]

    mov    ecx,[esp+_sy-2]

    mov    cx,[esp+_sy]

    msub   ecx,1,1

    mcall  38,,,[sc.work_graph]

    mov    si,[esp+_cy]

    add    cx,si

    shl    esi,16

    add    ecx,esi

    madd   ecx,1,1

    mcall

    mpack  ebx,5+MAGIC4-3,5+MAGIC4-3

    mov    esi,[esp+_sy-2]

    mov    si,cx

    mov    ecx,esi

    mcall

    mov    si,[esp+_cx]

    add    bx,si

    shl    esi,16

    add    ebx,esi

    madd   ebx,1,1

    mcall

    pop    ecx ebx

    ret

; read string

f1: mov  [addr],infile

    add  [ya],MAGIC2*0

    jmp  rk

f2: mov  [addr],outfile

    add  [ya],MAGIC2*1

    jmp  rk

f3: mov  [addr],path

    add  [ya],MAGIC2*2

rk:

    mov  edi,[addr]

    mov  al,0

    mov  ecx,MAX_PATH

    add  edi,ecx

    dec  edi

    std

    repe scasb

    sub  ecx,MAX_PATH

    neg  ecx

    mov  al,$1C ; ''

    add  edi,2

    push  edi

    cld

    rep  stosb

    call print_text

    pop edi

f11:mcall  10

    cmp    eax,2

    jne read_done

    mcall; 2

    shr    eax,8

    cmp    al,13

    je    read_done

    cmp    al,8

    jne nobs

    cmp    edi,[addr]

    je    f11

    sub    edi,1

    mov    byte[edi],$1C ; '_'

    call   print_text

    jmp    f11

   nobs:

    movzx  ebx,al

    sub    ebx,$20

    jle    f11

    sub    al,[sub_table+ebx]

   keyok:

    mov    ecx,[addr]

    add    ecx,MAX_PATH

    cmp    edi,ecx

    jae    f11

    mov    [edi],al

    call   print_text

    inc    edi

    jmp f11

  read_done:

    mov    ecx,[addr]

    add    ecx,MAX_PATH

    sub    ecx,edi

    mov    al,0;' '

    cld

    rep    stosb

    call   print_text

    jmp    still

print_text:

    mpack ebx,MAGIC1+5+6,[pinfo.x_size]

    sub   ebx,MAGIC1*2+5*2+6+3

    movzx esi,bx

    mov   ecx,[ya-2]

    mov   cx,8

    mcall 13,,,[sc.work]

    mpack ebx,MAGIC1+5+6,[ya]

    mov   eax,esi

    mov   cl,6

    div   cl

    cmp   al,MAX_PATH

    jbe   @f

    mov   al,MAX_PATH

@@: movzx esi,al

    mcall 4,,[sc.work_text],[addr]

    ret

; DATA

sz header,'FASM FOR MENUET'

text:

  db ' INFILE:'

.line_size = $-text

  db 'OUTFILE:'

  db '   PATH:'

  db 'x'

s_compile db 'COMPILE'

s_run      db '  RUN  '

infile    db 'EXAMPLE.ASM'

  times MAX_PATH+$-infile  db 0

outfile db 'EXAMPLE'

  times MAX_PATH+$-outfile db 0

path    db '/RD/1/'

  times MAX_PATH+$-path    db 0

lf db 13,10,0

addr dd 0x0

ya   dd 0x0

zero db 0x0

mov_param_str:

  @@:

    mov    al,[esi]

    cmp    al,','

    je       @f

    cmp    al,0

    je       @f

    mov    [edi],al

    inc    esi

    inc    edi

    jmp    @b

  @@:

    mov    al,0

    stosb

ret

start:

    cmp    [_mode],NORMAL_MODE

    jne    @f

    call   draw_messages

    push   [skinh]

    pop    [textxy]

    add    [textxy],OUTPUTXY

@@:

    mov    esi,_logo

    call   display_string

 ;

 ;   Fasm native code

 ;

    mov    [input_file],infile

    mov    [output_file],outfile

    call   init_memory

    call   make_timestamp

    mov    [start_time],eax

    call   preprocessor

    call   parser

    call   assembler

    call   formatter

    call   display_user_messages

    movzx  eax,[current_pass]

    inc    eax

    call   display_number

    mov    esi,_passes_suffix

    call   display_string

    call   make_timestamp

    sub    eax,[start_time]

    xor    edx,edx

    mov    ebx,100

    div    ebx

    or       eax,eax

    jz       display_bytes_count

    xor    edx,edx

    mov    ebx,10

    div    ebx

    push   edx

    call   display_number

    mov    dl,'.'

    call   display_character

    pop    eax

    call   display_number

    mov    esi,_seconds_suffix

    call   display_string

  display_bytes_count:

    mov    eax,[written_size]

    call   display_number

    mov    esi,_bytes_suffix

    call   display_string

    xor    al,al

    cmp    [_run_outfile],0

    je       @f

    mov    edx,outfile

    call   make_fullpaths

    mov    eax,58

    mov    ebx,file_info_start

    xor    ecx,ecx

    int    0x40

@@:

    jmp    exit_program

include 'system.inc'

include 'version.inc'

include 'errors.inc'

include 'expressi.inc'

include 'preproce.inc'

include 'parser.inc'

include 'assemble.inc'

include 'formats.inc'

include 'x86_64.inc'

_logo db 'flat assembler  version ',VERSION_STRING,13,10,0

_passes_suffix db ' passes, ',0

_seconds_suffix db ' seconds, ',0

_bytes_suffix db ' bytes.',13,10,0

_include db 'INCLUDE',0

_counter db 4,'0000'

_mode          dd NORMAL_MODE

_run_outfile  dd 0

sub_table:

times $41 db $00

times $1A db $20

times $25 db $00

times $10 db $20

times $30 db $00

times $10 db $50

times $04 db $00,$01

times $08 db $00

;include_debug_strings

params db 0 ; 'TINYPAD.ASM,TINYPAD,/HD/1/TPAD4/',

program_end:

rb 1000h

align 4

include 'variable.inc'

program_base dd ?

buffer_address dd ?

memory_setting dd ?

start_time dd ?

sc    system_colors

pinfo process_information