LANG OCTASM,0.1
\OCTASM.SYM
{
  ax=5300h bx=0 int 15h jc fin
  test cx,1 jz fin
  push ax ax=5301h bx=0 int 15h
  pop cx jnc >1
  cmp ah,2 jne fin
# ax=530eh bx=0 int 15h
  ax=5307h bx=1 cx=3 int 15h jc fin
  ret
#fin
  prn("%nb %13 function not supported")
  ret
}
