+++ /dev/null
-; Catacomb 3-D Source Code\r
-; Copyright (C) 1993-2014 Flat Rock Software\r
-;\r
-; This program is free software; you can redistribute it and/or modify\r
-; it under the terms of the GNU General Public License as published by\r
-; the Free Software Foundation; either version 2 of the License, or\r
-; (at your option) any later version.\r
-;\r
-; This program is distributed in the hope that it will be useful,\r
-; but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-; GNU General Public License for more details.\r
-;\r
-; You should have received a copy of the GNU General Public License along\r
-; with this program; if not, write to the Free Software Foundation, Inc.,\r
-; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
-\r
-IDEAL\r
-MODEL MEDIUM,C\r
-\r
-; Assembly portion of the User Mgr. This is just John Carmack's table\r
-; driven pseudo-random number generator, and we put it in the User Mgr\r
-; because we couldn't figure out where it should go\r
-\r
-\r
-;============================================================================\r
-;\r
-; RANDOM ROUTINES\r
-;\r
-;============================================================================\r
-\r
- FARDATA\r
-\r
-rndindex dw ?\r
-\r
-rndtable db 0, 8, 109, 220, 222, 241, 149, 107, 75, 248, 254, 140, 16, 66\r
- db 74, 21, 211, 47, 80, 242, 154, 27, 205, 128, 161, 89, 77, 36\r
- db 95, 110, 85, 48, 212, 140, 211, 249, 22, 79, 200, 50, 28, 188\r
- db 52, 140, 202, 120, 68, 145, 62, 70, 184, 190, 91, 197, 152, 224\r
- db 149, 104, 25, 178, 252, 182, 202, 182, 141, 197, 4, 81, 181, 242\r
- db 145, 42, 39, 227, 156, 198, 225, 193, 219, 93, 122, 175, 249, 0\r
- db 175, 143, 70, 239, 46, 246, 163, 53, 163, 109, 168, 135, 2, 235\r
- db 25, 92, 20, 145, 138, 77, 69, 166, 78, 176, 173, 212, 166, 113\r
- db 94, 161, 41, 50, 239, 49, 111, 164, 70, 60, 2, 37, 171, 75\r
- db 136, 156, 11, 56, 42, 146, 138, 229, 73, 146, 77, 61, 98, 196\r
- db 135, 106, 63, 197, 195, 86, 96, 203, 113, 101, 170, 247, 181, 113\r
- db 80, 250, 108, 7, 255, 237, 129, 226, 79, 107, 112, 166, 103, 241\r
- db 24, 223, 239, 120, 198, 58, 60, 82, 128, 3, 184, 66, 143, 224\r
- db 145, 224, 81, 206, 163, 45, 63, 90, 168, 114, 59, 33, 159, 95\r
- db 28, 139, 123, 98, 125, 196, 15, 70, 194, 253, 54, 14, 109, 226\r
- db 71, 17, 161, 93, 186, 87, 244, 138, 20, 52, 123, 251, 26, 36\r
- db 17, 46, 52, 231, 232, 76, 31, 221, 84, 37, 216, 165, 212, 106\r
- db 197, 242, 98, 43, 39, 175, 254, 145, 190, 84, 118, 222, 187, 136\r
- db 120, 163, 236, 249\r
-\r
-\r
- CODESEG\r
-\r
-LastRnd dw ?\r
-\r
-;=================================================\r
-;\r
-; void US_InitRndT (boolean randomize)\r
-; Init table based RND generator\r
-; if randomize is false, the counter is set to 0\r
-;\r
-;=================================================\r
-\r
-PROC US_InitRndT randomize:word\r
- uses si,di\r
- public US_InitRndT\r
-\r
- mov ax,SEG rndtable\r
- mov es,ax\r
- mov ax,[randomize]\r
- or ax,ax\r
- jne @@timeit ;if randomize is true, really random\r
-\r
- mov dx,0 ;set to a definite value\r
- jmp @@setit\r
-\r
-@@timeit:\r
- mov ah,2ch\r
- int 21h ;GetSystemTime\r
- and dx,0ffh\r
-\r
-@@setit:\r
- mov [es:rndindex],dx\r
- ret\r
-\r
-ENDP\r
-\r
-;=================================================\r
-;\r
-; int US_RndT (void)\r
-; Return a random # between 0-255\r
-; Exit : AX = value\r
-;\r
-;=================================================\r
-PROC US_RndT\r
- public US_RndT\r
-\r
- mov ax,SEG rndtable\r
- mov es,ax\r
- mov bx,[es:rndindex]\r
- inc bx\r
- and bx,0ffh\r
- mov [es:rndindex],bx\r
- mov al,[es:rndtable+BX]\r
- xor ah,ah\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-END\r
-\r