scc examples

git-svn-id: svn://kolibrios.org@719 a494cfbc-eb01-0410-851d-a64ba20cac60
2008-02-08 11:42:16 +00:00
parent 1967c25fac
commit 7bcf433fb8
3 changed files with 365 additions and 0 deletions
@@ -0,0 +1,140 @@
+;
+; 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:.