Subversion Repositories Kolibri OS

;

; Small-C Run Time Library for Win NT

;

; Nasm version  17/Nov/98  H T Walheim

; Revised:	20/Nov/98  HTW [Bugs in switch]

;

_CCARGC:

;B+ Ellipses arguments ( ,...)

  ;cl - argument count

  xor  eax,eax

  movzx eax,cl  ; No sign-extension

  ret

;E:.

;B+ Compare

__ult:

;B+ ???

  cmp  eax,ebx

  ja   true

  xor  eax,eax

  ret

;E:.

__ugt:

;B+ ???

  cmp  eax,ebx

  jb   true

  xor  eax,eax

  ret

;E:.

__ule:

;B+ ???

  cmp  eax,ebx

  jae  true

  xor  eax,eax

  ret

;E:.

__uge:

;B+ ???

  cmp  eax,ebx

  jbe  true

  xor  eax,eax

  ret

;E:.

__eq:

;B+ ???

  cmp  eax,ebx

  je   true

  xor  eax,eax

  ret

;E:.

__ne:

;B+ ???

  cmp  eax,ebx

  jne  true

  xor  eax,eax

  ret

;E:.

__lt:

;B+ ???

  cmp  eax,ebx

  jg   true

  xor  eax,eax

  ret

;E:.

__gt:

;B+ ???

  cmp  eax,ebx

  jl   true

  xor  eax,eax

  ret

;E:.

__le:

;B+ ???

  cmp  eax,ebx

  jge  true

  xor  eax,eax

  ret

;E:.

__ge:

;B+ ???

  cmp  eax,ebx

  jle  true

  xor  eax,eax

  ret

;E:.

;E:.

__lneg:

;B+ Logical Negate of Primary

  or   eax,eax

  jnz  false

true:

  mov  eax,1

  ret

false:

  xor  eax,eax

  ret

;E:.

__switch:

;B+ Execute "switch" statement

 ;eax   - switch value

 ;[esp] - pointer to switch table

 ;   dd addr1,value1

 ;         ...

 ;   dd 0

 ;   [jmp default]

 ;   continuation

 ;

 ; Revised: 20/Nov/98 [JECXZ needed]

 pop  ebx

  jmp  skip

back:

  add  ebx,8        ;next case-pair

skip:

  mov  ecx,[ebx]    ;case-label location (adress)

  jecxz default

  cmp  eax,[ebx+4]  ;test case-value

  jnz  back

  jmp  ecx          ;match -- jump to case

default:

  add  ebx,4

  jmp  ebx          ;jump to default/continuation

;E:.