MASM, TASM, FASM: что выбрать для программирования в ядре

include 'GreyAsm16.inc'
 
var hello1 : string = "Hello, world!!! (Press any key...)$"
var hello2 : string = "   it is a inner 'for'.$"
var hello3 : string = "The socond 'for'. (Press any key...)$"   
var press1 : string = "Press any key to exit$"
var for1_min : word = 1
var for1_max : word = 5
var for2_min : word = 1
var for2_max : word = 3
  
start
  set ax = [for1_min], bx = [for1_max]
  for ax to bx
    console.printline hello1
    console.waitkey 0    
    stack.set ax, bx
    set ax = [for2_min], bx = [for2_max]   
    for ax to bx
      console.printline hello2
    for.end    
    stack.get bx, cx  
  for.end  
  console.line  
  for 1 to 5
    console.printline hello3
    console.waitkey 0
  for.end
  console.line
  console.print press1
  console.waitkey 13
finish

use16
org 0x100
jmp maincodebegin
 
macro start
{
  maincodebegin:
}
 
macro finish
{
  maincodeend:
  exit 0x00  
}
 
macro goend
{
  jmp maincodeend:
}
 
macro convert.dec_to_str dc, st
{
    
}
 
macro for.init cond
{
  match a to b, cond
  \{
    push [__FOR.ST]
    push [__FOR.RS]
    local ..for.doing
    __FOR.DOING equ ..for.doing
    local  ..for.end.code
    __FOR.END.CODE equ ..for.end.code
    local  ..for.end
    __FOR.END equ ..for.end
    mov [__FOR.ST], a
    mov [__FOR.RS], b
    __FOR.DOING:
  \}
}
 
macro for [cond]
{
  for.init cond
}
 
macro for.end
{
  __FOR.END.CODE:
  push ax
  push dx
  mov ax, [__FOR.ST]
  mov dx, [__FOR.RS]
  cmp ax, dx
  pop dx
  pop ax
  je __FOR.END
  inc [__FOR.ST]
  jmp __FOR.DOING
  __FOR.END:
  restore __FOR.DOING
  restore __FOR.END.CODE
  restore __FOR.END
  pop [__FOR.RS]
  pop [__FOR.ST]
}
 
macro for.next
{
  jmp __FOR.END.CODE    
}
 
macro for.break
{
  jmp __FOR.END
}
 
macro while.set cond
{
  match (1==2), cond \{ while.make 1, 2, 0x01 \}    
}
 
macro while.make a, b, s
{
  push [__WHILE.FP]
  push [__WHILE.SF]
  push [__WHILE.SM]
  ;mov [__WHILE.FF], a
  ;mov [__WHILE.SF], b
  ;mov [__WHILE.SM], s
  __WHILE.DOING: 
}
 
macro while.end
{
  __WHILE.END:
}
 
macro while.break
{
  jmp __WHILE.END
}
 
macro console.print string
{
  push  dx
  mov   dx, string
  dos   0x09
  pop   dx
}
 
macro console.printline string
{
  console.print string
  console.print enter_str
}
 
macro console.line
{
  console.print enter_str
}
 
macro console.waitkey key
{
  local ..waitloop
  .waitloop equ ..waitloop
  stack.set ax
  .waitloop:
      dos 0x08
      cmp al, 0
      je .waitloop
      if key = 0
      else
        cmp al, key
        jne .waitloop
      end if
  stack.get ax
  restore .waitloop
}
 
macro exit exitcode
{
  mov al, 0x4C
  dos exitcode 
}
 
macro dos command
{
  push  ax
  mov   ah, command
  int   0x21
  pop   ax
}
 
macro var [command]
{
  match a:b==c, command
  \{
    if b eq string
      a db c
    end if
    if b eq byte
      a db c
    end if
    if b eq word
      a dw c
    end if
    if b eq double
      a dd c
    end if
  \}
}
 
macro goto label
{
  jmp label
}
 
macro clr [reg]
{
  xor reg, reg
}
 
macro stack.set [reg]
{
  push reg
}
 
macro stack.get [reg]
{
  pop reg
}
 
macro set [cond]
{
  match a==b, cond
  \{
    mov a, b  
  \}
}
 
macro max res, a, b
{
  stack.set ax, bx
  set ax = [a], bx = [b]
  cmp ax, bx
  jg .more
  mov [res], bx
  jmp .end
  .more:
  mov [res], ax
  .end:
  stack.get bx, ax
}
 
enter_str db 13, 10, "$"
null_str db "$"
__FOR.ST dw 0
__FOR.RS dw 0
__FOR.DR dw 0
__FOR.D1 dw 0
__FOR.D2 dw 1
__WHILE.FP dw 0
__WHILE.SF dw 0
__WHILE.SM dw 0
__BUFFER rw 255
__NULL dw 0