Yea I can save you the hassle of looking it is due to using Floating Point ALL THE TIME for all calculations unlike TI Basic RND that only return the Floating Point result.

[0898] * Initialize random number generator
[0899] A28D 31,00,0A INTRND MOVE 10,G@X2SEED,V@RNDX2
A290 A3,A0,A2
A293 95
[0900] A294 00 RTN
[0901] A295 42,03,23 X2SEED BYTE >42,>03,>23,>15,>00 * = 33521, X2 INITIAL VAL
A298 15,00
[0902] A29A 43,02,3E X1SEED BYTE >43,>02,>3E,>2A,>17 * = 2624223, X1 INITIAL VAL
A29D 2A,17
[0903] ***********************************************************
[0904] * *
[0905] * RXB PATCH REPLACEMENT CODE FOR RND WITH TI BASIC RND *
[0906] * *
[0907] ***********************************************************
[0908] * PSEUDO-RANDOM NUMBER GENERATOR
[0909] * X(N+1) = (A*X(N)+C) MOD M; RND = X/M
[0910] * WHERE: X = X2 * 1E7 + X1
[0911] * A = A2 * 1E7 + A1
[0912] * C = C2 * 1E7 + C1
[0913] * M = 1E14
[0914] * ASSUMPTIONS:
[0915] * (1) All numbers are integers; fractional parts are
[0916] * truncated
[0917] * (2) If the variables listed below start in the ranges
99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0016
EQUATES EXEC-359
[0918] * specified. They will also end in the ranges specified
[0919] *
[0920] * CONSTANTS: 0 <= A2 < 5E6 ; 0 <= C2 < 1E7
[0921] * 0 <= A1 < 5E6 ; 0 <= C1 < 1E7
[0922] * VARIABLES: 0 <= X2 < 1E7 ; 0 <= T1 <= 1E14 ; 0 <= T2 < 1E
[0923] * 0 <= X1 < 1E7 ; 0 <= T3 <= 1E14 ; 0 <= T4 < 1E
[0924] *
[0925] * STACK USAGE:
[0926] * CONSTANT REFS CONTANT REFS CONTANT REF
[0927] * +---------+ IN/OUT IN/OUT IN/OUT
[0928] * | STACK+4 | X2*A1(F)(H) -- ---- -- ----
[0929] * +---------+
[0930] * | STACK+3 | T2 (C)(J) -- ---- -- ----
[0931] * +---------+
[0932] * | STACK+2 | T1 (B)(D) new X1 (E)(N) -- ----
[0933] * +---------+
[0934] * | STACK+1 |old X1(A)(G) T3 (K)(L) new X2 (M)(P)
[0935] * +---------+
[0936] ***********************************************************
[0937] * COMPUTE NEW VALUE FOR X1, SAVE IT IN V@RNDX1
[0938] * STACK
[0939] * SREFS FAC CONTENTS
[0940] * NRND MOVE 5,V@RNDX1,@FAC FAC = X1
[0941] * MOVE 5,V@RNDX1,@FAC fAC = X1
[0942] * CLR @FAC5 FAC = CLR
[0943] * DCLR @FAC6 FAC = CLR
[0944] * XML VPUSH (A) FAC = X1
[0945] * MOVE 8,G@RNDA1,@ARG ARG = A1
[0946] * XML FMUL FAC = X1*A1
[0947] * MOVE 8,G@RNDC1,@ARG ARG = C1
[0948] * XML FADD T1=FAC = X1*A1+C1
[0949] * XML VPUSH (B) FAC = T1
[0950] * MOVE 8,G@RNDEM,@ARG ARG = 1/1E7
[0951] * XML FMUL FAC = T1/1E7
[0952] * CALL GRINT T2=FAC = INT(T1/1E7)
[0953] * XML VPUSH (C) FAC = T2
[0954] * MOVE 8,G@RNDEP,@ARG ARG = 1E7
[0955] * XML FMUL FAC = T2*1E7
[0956] * DSUB 8,@VSPTR
[0957] * XML SSUB (D) X1=FAC = T1-T2*1E7
[0958] * MOVE 5,@FAC,V@RNDX1 FAC = X1 (new)
[0959] * XML VPUSH (E) FAC = X1
[0960] * COMPUTE NEW VALUE FOR X2, SAVE IT IN V@RNDX2
[0961] * MOVE 5,V@RNDX2,@FAC FAC = X2
[0962] * CLR @FAC5 FAC = CLR
[0963] * DCLR @FAC6 FAC = CLR
[0964] * MOVE 8,G@RNDA1,@ARG ARG = A1
[0965] * XML FMUL FAC = X2*A1
[0966] * DADD 8,@VSPTR
[0967] * XML VPUSH (F) FAC = X2*A1
[0968] * DSUB 24,@VSPTR
[0969] * XML VPOP (G) FAC = X1
[0970] * DADD 32,@VSPTR
[0971] * MOVE 8,G@RNDA2,@ARG ARG = A2
[0972] * XML FMUL FAC = X1*A2
[0973] * XML SADD (H) FAC = X2*A1+X1*A2
[0974] * MOVE 8,G@RNDC2,@ARG ARG = C2
[0975] * XML FADD FAC = X2*A1+X1*A2
[0976] * XML SADD (J) T3=FAC = X2*A1+X1*A2
[0977] * DSUB 16,@VSPTR
[0978] * XML VPUSH (K) FAC = T3
[0979] * MOVE 8,G@RNDEM,@ARG ARG = 1/1E7
[0980] * XML FMUL FAC = T3/1E7
[0981] * CALL GRINT T4=FAC = INT(T3/1E7)
99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0017
EQUATES EXEC-359
[0982] * MOVE 8,G@RNDEP,@ARG ARG = 1E7
[0983] * XML FMUL FAC = T4*1E7
[0984] * XML SSUB (L) X2=FAC = T3-T4*1E7
[0985] * MOVE 5,@FAC,V@RNDX2 FAC = X2 (new)
[0986] * COMPUTE NEW VALUE FOR RND, LEAVE IT IN FAC
[0987] * MOVE 8,G@RNDEM,@ARG ARG = 1/1E7
[0988] * XML FMUL FAC = X2/1E7
[0989] * XML VPUSH (M) FAC = X2/1E7
[0990] * DADD 8,@VSPTR
[0991] * XML VPOP (N) FAC = X1
[0992] * XML FMUL FAC = X1/1E7
[0993] * XML FMUL FAC = X1/1E14
[0994] * XML SADD (P)RND=FAC = (X2/1E7)+(X1/1E14
[0995] * XML CONT
[0996] ***********************************************************
[0997] * CONSTANTS FOR THE RANDOM NUMBER ROUTINE
[0998] * RNDA2 BYTE >43,>01,>2B,>59,>52,>00,>00,>00 * = 1438982
[0999] * RNDA1 BYTE >42,>2A,>08,>15,>00,>00,>00,>00 * = 0420821
[1000] * RNDC2 BYTE >43,>02,>0B,>20,>30,>00,>00,>00 * = 2113248
[1001] * RNDC1 BYTE >43,>06,>36,>05,>13,>00,>00,>00 * = 6540519
[1002] A29F 43,0A,00 RNDEP BYTE >43,>0A,>00,>00,>00,>00,>00,>00 * = 1E7
A2A2 00,00,00
A2A5 00,00
[1003] A2A7 3C,0A,00 RNDEM BYTE >3C,>0A,>00,>00,>00,>00,>00,>00 * = 1/1E7
A2AA 00,00,00
A2AD 00,00
[1004] ***********************************************************
[1005] * RXB BASIC RND REPLACEMENT FROM TI BASIC
[1006] A2AF BE,4A,3F NRND ST >3F,@FAC * Exponent
[1007] A2B2 BE,10,4B ST >4B,@VAR5 * Loop counter
[1008] A2B5 02,63 NRND1 RAND >63 * 0?
[1009] A2B7 8E,78 CZ @RANDOM * No, go on
[1010] A2B9 42,C5 BR NRND3
[1011] A2BB 92,4A DEC @FAC * 0?
[1012] A2BD 8E,4A CZ @FAC * End with 0
[1013] A2BF 62,D2 BS NRND4 * Go on
[1014] A2C1 42,B5 BR NRND1
[1015] A2C3 02,63 NRND2 RAND >63 * Till 100
[1016] A2C5 BC,90,10 NRND3 ST @RANDOM,*VAR5 * All digits
A2C8 78
[1017] A2C9 D6,10,51 CEQ >51,@VAR5 * Till >8351
[1018] A2CC 62,D4 BS NRND5
[1019] A2CE 90,10 INC @VAR5 * Increase loop counter
[1020] A2D0 42,C3 BR NRND2
[1021] A2D2 86,4B NRND4 CLR @FAC1 * Set 0
[1022] A2D4 0F,75 NRND5 XML CONT
[1023] ***********************************************************