Rev 7563 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 7564 | pavelyakov | 1 | |
| 2 | |||
| 3 | consoleInit(); |
||
| 7562 | pavelyakov | 4 | count = 1; |
| 7563 | pavelyakov | 5 | WHILE(count) |
| 7564 | pavelyakov | 6 | { |
| 7563 | pavelyakov | 7 | con_printf stdcall (DSDWORD[args]); |
| 7562 | pavelyakov | 8 | args+=4; |
| 9 | count--; |
||
| 7563 | pavelyakov | 10 | } |
| 11 | } |
||
| 7562 | pavelyakov | 12 | |
| 7563 | pavelyakov | 13 | :dword std_set(dword count, args) |
| 14 | |||
| 7564 | pavelyakov | 15 | dword name = 0; |
| 16 | dword value = 0; |
||
| 17 | WHILE(count>0) |
||
| 18 | { |
||
| 19 | name = DSDWORD[args]; |
||
| 20 | args += 4; |
||
| 21 | value = DSDWORD[args]; |
||
| 22 | args += 4; |
||
| 23 | variables.set(name, value); |
||
| 24 | count-=2; |
||
| 25 | } |
||
| 26 | } |
||
| 27 | |||
| 28 | :dword std_get(dword count, args) |
||
| 29 | |||
| 30 | RETURN variables.get(DSDWORD[args]); |
||
| 31 | } |
||
| 32 | |||
| 33 | :dword std_str(dword count, args) |
||
| 34 | |||
| 7563 | pavelyakov | 35 | dword tmp = 0; |
| 36 | tmp = malloc(15); |
||
| 37 | itoa_(tmp,DSDWORD[args]); |
||
| 38 | RETURN tmp; |
||
| 39 | } |
||
| 40 | |||
| 41 | :dword std_add(dword count, args) |
||
| 42 | |||
| 43 | dword ret = 0; |
||
| 44 | WHILE(count) |
||
| 45 | { |
||
| 46 | ret += DSDWORD[args]; |
||
| 7562 | pavelyakov | 47 | args+=4; |
| 7563 | pavelyakov | 48 | count--; |
| 49 | } |
||
| 50 | RETURN ret; |
||
| 7562 | pavelyakov | 51 | } |
| 7563 | pavelyakov | 52 | |
| 53 | :dword std_sub(dword count, args) |
||
| 54 | |||
| 55 | dword ret = 0; |
||
| 56 | IF(count) |
||
| 57 | { |
||
| 58 | ret = DSDWORD[args]; |
||
| 59 | count--; |
||
| 60 | args+=4; |
||
| 61 | } |
||
| 62 | WHILE(count) |
||
| 7562 | pavelyakov | 63 | { |
| 7563 | pavelyakov | 64 | ret -= DSDWORD[args]; |
| 7562 | pavelyakov | 65 | args+=4; |
| 7563 | pavelyakov | 66 | count--; |
| 67 | } |
||
| 68 | RETURN ret; |
||
| 7562 | pavelyakov | 69 | } |
| 7563 | pavelyakov | 70 | |
| 71 | void Init() |
||
| 72 | |||
| 73 | functions.init(100); |
||
| 74 | |||
| 75 | /* Console functions */ |
||
| 76 | |||
| 77 | |||
| 78 | |||
| 7564 | pavelyakov | 79 | |
| 7563 | pavelyakov | 80 | |
| 81 | /* System functions */ |
||
| 82 | |||
| 83 | |||
| 84 | /* Math functions */ |
||
| 85 | |||
| 86 | functions.set("-", #std_sub); |
||
| 87 | |||
| 88 | /* Lisp functions */ |
||
| 89 | |||
| 7564 | pavelyakov | 90 | functions.set("get", #std_get); |
| 91 | |||
| 92 | variables.init(100); |
||
| 93 | |||
| 7563 | pavelyakov | 94 | |
| 95 | dword StdCall(dword count, name, args) |
||
| 96 | |||
| 97 | dword tmp = 0; |
||
| 98 | |||
| 99 | functions.get(name); |
||
| 7564 | pavelyakov | 100 | |
| 7563 | pavelyakov | 101 | IF(!strcmp(name, "print")) |
| 7564 | pavelyakov | 102 | { |
| 103 | consoleInit(); |
||
| 104 | count = 1; |
||
| 105 | WHILE(count) |
||
| 106 | { |
||
| 107 | con_printf stdcall (DSDWORD[args]); |
||
| 108 | args += 4; |
||
| 109 | count--; |
||
| 110 | } |
||
| 111 | } |
||
| 112 | RETURN 0; |
||
| 113 | } |
||
| 7563 | pavelyakov | 114 |