; mpint.asm - Multi Precision INTeger routines test suite ; ; Copyright (C) 2015-2021 Jeffrey Amelynck ; ; This program is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation, either version 3 of the License, or ; (at your option) any later version. ; ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with this program. If not, see . format binary as "" __DEBUG__ = 1 __DEBUG_LEVEL__ = 1 MAX_BITS = 4096 use32 db 'MENUET01' ; signature dd 1 ; header version dd start ; entry point dd i_end ; initialized size dd mem+65536 ; required memory dd mem+65536 ; stack pointer dd 0 ; parameters dd 0 ; path include '../../../macros.inc' purge mov,add,sub include '../../../proc32.inc' include '../../../debug-fdo.inc' include '../mpint.inc' cmptestctr = 0x10000000 macro cmptesteq arg1, arg2 { stdcall mpint_cmp, arg1, arg2 je @f mov eax, cmptestctr int3 @@: cmptestctr = cmptestctr + 1 } macro cmptesta arg1, arg2 { stdcall mpint_cmp, arg1, arg2 ja @f mov eax, cmptestctr int3 @@: cmptestctr = cmptestctr + 1 stdcall mpint_cmp, arg2, arg1 jb @f mov eax, cmptestctr int3 @@: cmptestctr = cmptestctr + 1 } start: DEBUGF 1, "MPINT Test suite\n" ; First, do some checks on the compare routine cmptesteq mpint_0_0, mpint_0_0 cmptesteq mpint_0_0, mpint_0_1 cmptesteq mpint_0_1, mpint_0_0 cmptesteq mpint_0_1, mpint_0_1 cmptesteq mpint_0_5, mpint_0_0 cmptesteq mpint_0_0, mpint_0_5 cmptesteq mpint_0_5, mpint_0_1 cmptesteq mpint_0_1, mpint_0_5 cmptesteq mpint_1_1, mpint_1_1 cmptesteq mpint_1_1, mpint_1_2 cmptesteq mpint_1_2, mpint_1_1 cmptesteq mpint_1_2, mpint_1_2 cmptesteq mpint_1_5, mpint_1_1 cmptesteq mpint_1_1, mpint_1_5 cmptesteq mpint_1_5, mpint_1_2 cmptesteq mpint_1_2, mpint_1_5 cmptesteq mpint_2_1, mpint_2_1 cmptesteq mpint_2_1, mpint_2_2 cmptesteq mpint_2_2, mpint_2_1 cmptesteq mpint_2_2, mpint_2_2 cmptesteq mpint_2_5, mpint_2_1 cmptesteq mpint_2_1, mpint_2_5 cmptesteq mpint_2_5, mpint_2_2 cmptesteq mpint_2_2, mpint_2_5 cmptesta mpint_1_1, mpint_0_0 cmptesta mpint_1_1, mpint_0_1 cmptesta mpint_1_1, mpint_0_5 cmptesta mpint_1_5, mpint_0_0 cmptesta mpint_1_5, mpint_0_1 cmptesta mpint_1_5, mpint_0_5 cmptesta mpint_2_1, mpint_1_1 cmptesta mpint_2_1, mpint_1_2 cmptesta mpint_2_1, mpint_1_5 cmptesta mpint_2_2, mpint_1_1 cmptesta mpint_2_2, mpint_1_2 cmptesta mpint_2_2, mpint_1_5 cmptesta mpint_2_5, mpint_1_1 cmptesta mpint_2_5, mpint_1_2 cmptesta mpint_2_5, mpint_1_5 cmptesta mpint_100, mpint_ff cmptesta mpint_10000, mpint_ff00 cmptesta mpint_100000000, mpint_ff000000 iglobal mpint_0_0 dd 0 rb MPINT_MAX_LEN mpint_0_1 dd 1 db 0 rb MPINT_MAX_LEN - 1 mpint_0_2 dd 2 db 0, 0 rb MPINT_MAX_LEN - 2 mpint_0_3 dd 3 db 0, 0, 0 rb MPINT_MAX_LEN - 3 mpint_0_4 dd 4 db 0, 0, 0, 0 rb MPINT_MAX_LEN - 4 mpint_0_5 dd 5 db 0, 0, 0, 0, 0 rb MPINT_MAX_LEN - 5 mpint_1_1 dd 1 db 1 rb MPINT_MAX_LEN - 1 mpint_1_2 dd 2 db 1, 0 rb MPINT_MAX_LEN - 2 mpint_1_3 dd 3 db 1, 0, 0 rb MPINT_MAX_LEN - 3 mpint_1_4 dd 4 db 1, 0, 0, 0 rb MPINT_MAX_LEN - 4 mpint_1_5 dd 5 db 1, 0, 0, 0, 0 rb MPINT_MAX_LEN - 5 mpint_2_1 dd 1 db 2 rb MPINT_MAX_LEN - 1 mpint_2_2 dd 2 db 2, 0 rb MPINT_MAX_LEN - 2 mpint_2_3 dd 3 db 2, 0, 0 rb MPINT_MAX_LEN - 3 mpint_2_4 dd 4 db 2, 0, 0, 0 rb MPINT_MAX_LEN - 4 mpint_2_5 dd 5 db 2, 0, 0, 0, 0 rb MPINT_MAX_LEN - 5 mpint_ff dd 2 db 0xff, 0 rb MPINT_MAX_LEN - 2 mpint_100 dd 2 db 0, 1 rb MPINT_MAX_LEN - 2 mpint_ff00 dd 3 db 0, 0xff, 0 rb MPINT_MAX_LEN - 3 mpint_10000 dd 3 db 0, 0, 1 rb MPINT_MAX_LEN - 3 mpint_ff000000 dd 5 db 0, 0, 0, 0xff, 0 rb MPINT_MAX_LEN - 5 mpint_100000000 dd 5 db 0, 0, 0, 0, 1 rb MPINT_MAX_LEN - 5 endg include "tests.inc" DEBUGF 1, "All tests completed\n" mcall -1 IncludeIGlobals i_end: mpint_tmp rb MPINT_MAX_LEN+4 include_debug_strings mem: