;-------------------- Welcome-to ------------------------; ; [$UPDû1.5], $pirit's Universal Polymorphic Device v1.5 ; ; (C)1995-1996 by ÄNighÅÄ$piriÅÄ ; ;--------------------------------------------------------; ; This file you can include in your assembler sourses ; ; (with TASM pseudo operator "include") if you don't ; ; want to use object module ; ;--------------------------------------------------------; ; Don't change here nothing! ; public $UPD,FullRandom,Random,BRandom,Boolean ; public $UPD_Bottom,$UPD_Top $UPD_Bottom = $ db 05Bh,024h,055h,050h,044h,0FBh,031h,02Eh,035h db 05Dh,02Ch,020h,024h,070h,069h,072h,069h,074h db 027h,073h,020h,055h,06Eh,069h,076h,065h,072h db 073h,061h,06Ch,020h,050h,06Fh,06Ch,079h,06Dh db 06Fh,072h,070h,068h,069h,063h,020h,044h,065h db 076h,069h,063h,065h,020h,076h,031h,02Eh,035h db 02Eh,020h,028h,043h,029h,031h,039h,039h,035h db 02Dh,031h,039h,039h,036h,020h,062h,079h,020h db 0C4h,04Eh,069h,067h,068h,0C5h,0C4h,024h,070h db 069h,072h,069h,0C5h,0C4h,000h,000h,000h,000h db 000h,000h,000h,000h,000h,000h,000h,000h,000h db 04Dh,04Dh,04Dh,04Dh,04Dh,04Dh,04Dh,04Dh,04Dh db 04Dh,04Bh,04Bh,04Bh,04Bh db 04Bh,04Bh,04Bh,04Bh,04Bh,04Bh,043h,054h,043h db 054h,043h,054h,043h,054h,043h,054h,043h,054h db 046h,054h,046h,054h,046h,054h,046h,054h,046h db 054h,046h,054h,046h,054h,046h,054h,046h,054h db 046h,054h,046h,054h,046h,054h,046h,054h,046h db 054h,046h,054h,046h,054h,046h,054h,046h,054h db 046h,054h,046h,054h,046h,054h,046h,054h,046h db 054h,046h,054h,046h,054h,046h,054h,046h,054h db 046h,054h,000h,000h,000h,000h,000h,000h,000h FullRandom: db 033h,0C0h,048h,0EBh,003h Boolean: db 0B8h,001h,000h Random: db 053h,051h,052h,050h,0E8h,000h,000h,05Bh,081h db 0EBh,071h,003h,02Bh,0C0h,0CDh,01Ah,0E4h,040h db 091h,092h,08Dh,09Fh,0A5h,003h db 031h,007h,0D3h,007h,033h,00Fh,0D3h,0C0h,033h db 017h,0D3h,0CAh,033h,0C2h,0F7h,0EAh,033h,0C2h db 031h,007h,059h,02Bh,0D2h,041h,074h,003h,0F7h db 0F1h,092h,05Ah,059h,05Bh,085h,0C0h,0C3h,000h db 000h BRandom: db 032h,0E4h,0EBh,0BFh,057h,081h,0C7h,0F8h db 002h,0AAh,05Fh,0AAh,0C3h,057h,081h,0C7h,0F8h db 002h,0ABh,05Fh,0ABh,0C3h,0E8h,010h,000h,0D0h db 0C9h,0D0h,0C9h,0D0h,0C9h,0E8h,007h,000h,0D0h db 0C1h,0D0h,0C1h,0D0h,0C1h,0C3h,051h,080h,0E1h db 007h,080h,0F9h,004h,059h,075h,00Eh,050h,0B0h db 007h,0E8h,0C7h,0FFh,080h,0E1h,0F8h,00Ah,0C8h db 058h,0EBh,0E8h,0C3h,050h,051h,056h,0C6h,087h db 031h,005h,00Eh,00Ah,0C0h db 075h,005h,080h,0AFh,031h,005h,003h,050h,0E8h db 064h,0FFh,08Bh,0C8h,058h,0E8h,0A3h,0FFh,08Bh db 0F0h,0D1h,0E6h,0D1h,0E6h,003h,0F0h,08Bh,080h db 02Fh,005h,003h,0C3h,050h,08Ah,080h,031h,005h db 0E8h,08Dh,0FFh,08Bh,0B0h,032h,005h,003h,0F0h db 081h,0FEh,070h,005h,072h,00Ah,081h,0FEh,082h db 005h,073h,004h,0D0h,0E8h,02Bh,0F0h,003h,0F3h db 0ACh,02Bh,0F3h,0C3h,081h,0FEh,054h,005h,076h db 008h,080h,0E1h,007h,0E8h,07Bh,0FFh,00Ah,0C1h db 0E8h,064h,0FFh,0E9h,0E1h,000h,081h,0FEh,063h db 005h,077h,011h,080h,0E5h,001h,00Ah,0C5h,0E8h db 053h,0FFh,0B0h,0C0h,0E8h,060h,0FFh,00Ah,0C1h db 0EBh,07Ah,081h,0FEh,067h db 005h,077h,011h,050h,0B0h,0F6h,0E8h,03Eh,0FFh db 058h,080h,0E1h,007h,0E8h,049h,0FFh,00Ah,0C1h db 0EBh,063h,081h,0FEh,070h,005h,077h,016h,080h db 0E5h,001h,00Ah,0C5h,0E8h,025h,0FFh,08Ah,0C1h db 00Ah,0EDh,074h,04Fh,0E8h,01Ch,0FFh,0E8h,0D0h db 0FEh,0EBh,047h,081h,0FEh,07Ah,005h,077h,006h db 081h,0E1h,007h,003h,0EBh,00Ah,081h,0FEh,082h db 005h,077h,021h,081h,0E1h,007h,001h,0E8h,010h db 0FFh,00Ah,0C5h,0E8h,0F9h,0FEh,08Ah,000h,00Ah db 0C1h,0E8h,0F2h,0FEh,0E8h,0A6h,0FEh,0FEh,0CDh db 075h,01Bh,0E8h,0E8h,0FEh,086h,0E0h,0EBh,014h db 050h,0B0h,0FEh,080h,0E5h,001h,00Ah,0C1h,0E8h db 0D9h,0FEh,058h,080h,0E1h db 007h,0E8h,0E4h,0FEh,00Ah,0C1h,0E8h,0CDh,0FEh db 0EBh,04Bh,0E8h,0C8h,0FEh,080h,0E1h,03Fh,0E8h db 0D4h,0FEh,051h,080h,0E1h,007h,080h,0F9h,006h db 059h,075h,003h,080h,0C9h,001h,08Ah,0C1h,0E8h db 0B0h,0FEh,0EBh,02Eh,081h,0FEh,09Fh,005h,077h db 00Fh,0B4h,0B4h,086h,0E0h,0E8h,0AAh,0FEh,0B8h db 0CDh,021h,0E8h,0A4h,0FEh,0EBh,019h,050h,0B0h db 006h,0E8h,093h,0FEh,058h,0B4h,0B4h,086h,0E0h db 0E8h,094h,0FEh,0B8h,0CDh,021h,0E8h,08Eh,0FEh db 0B0h,007h,0E8h,080h,0FEh,05Eh,059h,058h,0C3h db 036h,004h,00Eh,048h,005h,04Ah,004h,02Ch,057h db 005h,0DBh,004h,007h,084h,005h,0E0h,004h,009h db 08Ch,005h,0FDh,004h,00Ch db 096h,005h,0F8h,0F5h,0F9h,0FBh,0FCh,098h,026h db 02Eh,036h,03Eh,099h,0FDh,048h,040h,090h,002h db 012h,02Ah,01Ah,038h,022h,084h,00Ah,032h,088h db 0D0h,0D2h,0D0h,0D8h,0E0h,0E8h,004h,014h,02Ch db 01Ch,03Ch,024h,0A8h,00Ch,034h,080h,0C0h,080h db 0D0h,080h,0E8h,080h,0D8h,080h,0F8h,080h,0E0h db 0F6h,0C0h,080h,0C8h,080h,0F0h,0C0h,0C8h,0A6h db 0A7h,0AEh,0AFh,0ACh,0ADh,09Fh,0D7h,08Ah,002h db 012h,02Ah,01Ah,03Ah,022h,084h,00Ah,032h,00Bh db 019h,02Ah,02Ch,030h,04Dh,051h,054h,062h,02Fh db 034h,035h,052h,03Ch,005h,072h,00Ah,077h,003h db 040h,0EBh,007h,02Dh,002h,000h,0EBh,002h,0B0h db 007h,0C3h,056h,050h,050h db 0B0h,003h,00Bh,0D2h,075h,002h,02Ch,002h,0E8h db 0E5h,0FDh,096h,058h,083h,0FEh,003h,074h,02Fh db 083h,0FEh,002h,074h,017h,08Ah,0C4h,0D0h,0E0h db 0D0h,0E0h,0D0h,0E0h,00Ch,0C0h,00Ah,0E0h,04Eh db 074h,004h,0B0h,031h,0EBh,021h,0B0h,029h,0EBh db 01Dh,0B0h,08Dh,0D0h,0E4h,0D0h,0E4h,0D0h,0E4h db 080h,0CCh,006h,0E8h,0C1h,0FDh,0E8h,06Ch,0FDh db 0EBh,00Ah,0B0h,0B8h,00Ah,0C4h,0E8h,0ACh,0FDh db 0E8h,060h,0FDh,0E8h,0AFh,0FDh,058h,05Eh,0C3h db 050h,074h,01Ah,0B0h,08Dh,0D0h,0E4h,0D0h,0E4h db 0D0h,0E4h,080h,0CCh,006h,0E8h,09Bh,0FDh,08Bh db 087h,0FFh,002h,0D1h,0E8h,040h,0E8h,091h,0FDh db 0EBh,011h,0B0h,0B8h,00Ah db 0C4h,0E8h,07Fh,0FDh,08Bh,087h,0FFh,002h,0D1h db 0E8h,040h,0E8h,07Eh,0FDh,058h,0C3h,050h,051h db 050h,0B0h,00Fh,0E8h,067h,0FDh,040h,050h,0B4h db 0E8h,086h,0E0h,0E8h,06Bh,0FDh,033h,0C0h,0E8h db 05Dh,0FDh,058h,089h,0BFh,0F9h,002h,08Bh,0C8h db 0B0h,0FFh,0E8h,04Dh,0FDh,0E8h,04Eh,0FDh,0E2h db 0F6h,058h,0B0h,058h,00Ah,0C4h,0E8h,044h,0FDh db 080h,0CCh,0C0h,0B0h,081h,0E8h,045h,0FDh,089h db 0BFh,0FBh,002h,0E8h,03Eh,0FDh,059h,058h,0C3h db 051h,052h,052h,092h,0B0h,02Eh,0AAh,0ADh,00Ah db 0A7h,0F8h,002h,080h,0BFh,0F8h,002h,006h,075h db 003h,080h,0CCh,040h,081h,0FAh,044h,00Ah,072h db 008h,074h,00Ah,081h,0FAh db 04Ch,00Ah,073h,004h,05Ah,0ABh,0EBh,004h,05Ah db 00Ah,0E2h,0ABh,0F6h,0C4h,040h,074h,003h,032h db 0C0h,0AAh,05Ah,059h,0C3h,0E8h,0B4h,0FCh,074h db 00Bh,0B0h,040h,00Ah,087h,0F7h,002h,0E8h,0EDh db 0FCh,0EBh,00Ah,0B8h,0FFh,0C0h,00Ah,0A7h,0F7h db 002h,0E8h,0EAh,0FCh,0C3h,051h,02Bh,0C9h,08Ah db 0CCh,0E8h,016h,0FDh,0E2h,0FBh,059h,0C3h,050h db 051h,056h,0B0h,050h,08Ah,0C8h,00Ah,087h,0F7h db 002h,00Ah,08Fh,0F6h,002h,050h,0E8h,07Dh,0FCh db 058h,074h,001h,091h,0E8h,0BAh,0FCh,091h,0E8h db 0B6h,0FCh,050h,052h,08Ah,0A7h,0F7h,002h,033h db 0D2h,0E8h,0B4h,0FEh,05Ah,0B8h,001h,003h,033h db 0F6h,046h,0E8h,016h,000h db 058h,024h,007h,00Ch,058h,080h,0E1h,007h,080h db 0C9h,058h,0E8h,093h,0FCh,091h,0E8h,08Fh,0FCh db 05Eh,059h,058h,0C3h,050h,056h,051h,033h,0C9h db 08Ah,0CCh,050h,0B0h,002h,0E8h,07Ah,0FCh,00Ah db 0C0h,075h,01Bh,0B0h,0E8h,0E8h,075h,0FCh,053h db 033h,0C0h,08Ah,087h,05Ch,003h,0D1h,0E0h,003h db 0D8h,089h,0BFh,023h,003h,047h,047h,05Bh,0FEh db 087h,05Ch,003h,058h,0E8h,099h,0FCh,0E2h,0D5h db 059h,05Eh,058h,0C3h,051h,056h,057h,0E8h,0C5h db 000h,057h,083h,0C7h,003h,02Bh,0C0h,08Ah,087h db 05Bh,003h,0D1h,0E0h,053h,003h,0D8h,089h,0BFh db 017h,003h,05Bh,0B0h,008h,0E8h,032h,0FCh,004h db 005h,091h,0BEh,004h,000h db 0B0h,001h,0E8h,069h,0FCh,080h,0BFh,05Bh,003h db 000h,074h,02Ah,0B0h,002h,0E8h,01Bh,0FCh,075h db 023h,085h,0F6h,074h,01Fh,04Eh,0B0h,0E8h,0E8h db 013h,0FCh,08Ah,087h,05Bh,003h,048h,0E8h,007h db 0FCh,0D1h,0E0h,053h,003h,0D8h,08Bh,087h,017h db 003h,05Bh,02Bh,0C7h,048h,048h,0E8h,003h,0FCh db 0E2h,0C8h,0B0h,0C3h,0E8h,0F3h,0FBh,08Bh,0F7h db 05Fh,0E8h,0A9h,0FBh,0B0h,0E9h,074h,002h,0B0h db 0E8h,0E8h,0E4h,0FBh,050h,08Bh,0C6h,02Bh,0C7h db 048h,048h,0E8h,0E3h,0FBh,058h,08Bh,0FEh,03Ch db 0E8h,075h,039h,0E8h,08Ch,0FBh,074h,012h,0B0h db 007h,0E8h,0C5h,0FBh,091h,0E8h,0D7h,0FBh,0B0h db 058h,00Ah,0C1h,0E8h,0BEh db 0FBh,0EBh,022h,0B0h,002h,0E8h,0B3h,0FBh,074h db 015h,048h,0B0h,083h,074h,008h,0E8h,0ADh,0FBh db 0B8h,0ECh,0FEh,0EBh,00Bh,0E8h,0A5h,0FBh,0B8h db 0C4h,002h,0EBh,003h,0B8h,044h,044h,0E8h,0A3h db 0FBh,0FEh,087h,05Bh,003h,058h,02Bh,0C7h,0F7h db 0D8h,001h,087h,001h,003h,05Eh,059h,0C3h,0BEh db 003h,000h,0B0h,002h,0E8h,07Eh,0FBh,004h,004h db 08Ah,0E0h,0B0h,004h,0E8h,0EEh,0FEh,0C3h,051h db 052h,056h,057h,0E8h,0E7h,0FFh,0C6h,087h,061h db 003h,010h,0B0h,006h,0E8h,063h,0FBh,092h,080h db 0BFh,061h,003h,0FFh,074h,01Ch,0B0h,007h,0E8h db 056h,0FBh,0B1h,001h,091h,08Ah,0E1h,0D2h,0E0h db 084h,087h,061h,003h,075h db 0E7h,008h,087h,061h,003h,0E8h,04Fh,0FDh,04Ah db 0EBh,0DDh,0BEh,003h,000h,0B0h,005h,0E8h,037h db 0FBh,004h,005h,086h,0E0h,040h,0E8h,0A8h,0FEh db 058h,02Bh,0C7h,0F7h,0D8h,001h,087h,001h,003h db 05Eh,05Ah,059h,0C3h,052h,056h,057h,0B0h,003h db 0E8h,01Ah,0FBh,050h,0E8h,0D6h,0FAh,058h,074h db 014h,08Ah,0A7h,0F6h,002h,0A8h,001h,0E8h,06Bh db 0FDh,08Ah,0A7h,0F7h,002h,0A8h,002h,0E8h,092h db 0FDh,0EBh,012h,08Ah,0A7h,0F7h,002h,0A8h,002h db 0E8h,087h,0FDh,08Ah,0A7h,0F6h,002h,0A8h,001h db 0E8h,04Eh,0FDh,089h,0BFh,0FDh,002h,08Bh,08Fh db 05Dh,003h,0E8h,012h,0FEh,033h,0C0h,053h,003h db 0D9h,08Ah,087h,002h,003h db 08Ah,097h,00Ch,003h,03Ch,002h,072h,00Eh,03Ch db 006h,072h,008h,03Ch,00Ah,074h,006h,02Ch,004h db 0EBh,002h,004h,004h,0D0h,0E0h,05Bh,08Dh,0B7h db 03Ah,00Ah,003h,0F0h,005h,03Ah,00Ah,057h,081h db 0C7h,0F8h,002h,0E8h,081h,0FDh,05Fh,033h,0C0h db 053h,003h,09Fh,05Dh,003h,02Bh,0D9h,08Ah,087h db 003h,003h,08Ah,097h,00Dh,003h,0D0h,0E0h,05Bh db 08Dh,0B7h,03Ah,00Ah,003h,0F0h,005h,03Ah,00Ah db 0E8h,060h,0FDh,0E2h,0AAh,0B0h,002h,0E8h,087h db 0FAh,074h,03Dh,048h,074h,028h,0E8h,03Fh,0FAh db 074h,011h,0B8h,083h,0C0h,00Ah,0A7h,0F7h,002h db 0E8h,080h,0FAh,0B0h,002h,0E8h,072h,0FAh,0EBh db 02Dh,0B8h,081h,0C0h,00Ah db 0A7h,0F7h,002h,0E8h,06Fh,0FAh,0B8h,002h,000h db 0E8h,069h,0FAh,0EBh,01Bh,0B8h,081h,0E8h,00Ah db 0A7h,0F7h,002h,0E8h,05Dh,0FAh,0B8h,0FEh,0FFh db 0E8h,057h,0FAh,0EBh,009h,0E8h,04Eh,0FDh,0E8h db 072h,0FDh,0E8h,048h,0FDh,0E8h,06Ch,0FDh,080h db 0BFh,0F6h,002h,001h,075h,00Ah,0E8h,0F2h,0F9h db 074h,005h,0B0h,0E2h,0E9h,08Ah,000h,080h,0BFh db 0F6h,002h,000h,075h,024h,0E8h,0E1h,0F9h,074h db 01Fh,0E8h,0DCh,0F9h,074h,00Dh,0B0h,02Dh,0E8h db 019h,0FAh,0B8h,001h,000h,0E8h,01Ch,0FAh,0EBh db 06Ah,0B8h,005h,0FFh,0E8h,014h,0FAh,0B0h,0FFh db 0E8h,006h,0FAh,0EBh,05Dh,0B0h,002h,0E8h,0FBh db 0F9h,074h,03Ch,0FEh,0C8h db 074h,026h,0B4h,0E8h,00Ah,0A7h,0F6h,002h,050h db 0E8h,0ABh,0F9h,058h,074h,00Ch,0B0h,083h,0E8h db 0F0h,0F9h,0B0h,001h,0E8h,0E2h,0F9h,0EBh,039h db 0B0h,081h,0E8h,0E4h,0F9h,0B8h,001h,000h,0E8h db 0DEh,0F9h,0EBh,02Ch,0B8h,081h,0C0h,00Ah,0A7h db 0F6h,002h,0E8h,0D2h,0F9h,033h,0C0h,048h,0E8h db 0CCh,0F9h,0EBh,01Ah,0E8h,07Ah,0F9h,074h,00Bh db 0B0h,048h,00Ah,087h,0F6h,002h,0E8h,0B3h,0F9h db 0EBh,00Ah,0B8h,0FFh,0C8h,00Ah,0A7h,0F6h,002h db 0E8h,0B0h,0F9h,0B0h,075h,0E8h,0A2h,0F9h,052h db 08Bh,087h,0FDh,002h,08Bh,0D7h,02Ah,0C2h,048h db 0E8h,095h,0F9h,05Ah,058h,02Bh,0C7h,0F7h,0D8h db 001h,087h,001h,003h,08Bh db 0C7h,02Bh,087h,0F9h,002h,08Bh,0B7h,0FBh,002h db 089h,004h,040h,089h,084h,0F8h,002h,0C7h,085h db 0F8h,002h,0C3h,000h,05Eh,05Ah,0C3h,0F7h,018h db 0F7h,010h,0FFh,000h,0D1h,000h,0D3h,000h,001h db 000h,0FFh,008h,0D1h,008h,0D3h,008h,029h,000h db 031h,000h,057h,056h,033h,0C9h,08Ah,08Fh,05Ch db 003h,08Dh,0B7h,023h,003h,08Bh,03Ch,08Ah,087h db 05Bh,003h,048h,0E8h,041h,0F9h,0D1h,0E0h,053h db 003h,0D8h,08Bh,087h,017h,003h,05Bh,02Bh,0C7h db 048h,048h,0E8h,03Dh,0F9h,046h,046h,0E2h,0E1h db 05Eh,05Fh,0C3h $UPD: db 09Ch,050h,053h,052h,057h,056h db 055h,0FCh,0E8h,000h,000h,05Bh,081h,0EBh,089h db 00Ah,0E8h,016h,000h,0E8h db 0A9h,000h,0E8h,0CDh,000h,08Bh,08Fh,0FFh,002h db 003h,08Fh,001h,003h,05Dh,05Eh,05Fh,05Ah,05Bh db 058h,09Dh,0C3h,057h,056h,051h,089h,08Fh,0FFh db 002h,033h,0C0h,089h,087h,001h,003h,088h,0A7h db 05Bh,003h,088h,087h,05Ch,003h,0B0h,006h,0E8h db 0E6h,0F8h,004h,004h,091h,089h,08Fh,05Dh,003h db 08Dh,0BFh,003h,003h,0B0h,00Ah,0E8h,0D6h,0F8h db 0AAh,0E2h,0F8h,0B0h,007h,0E8h,0CEh,0F8h,03Ch db 005h,073h,004h,03Ch,003h,075h,0F3h,088h,087h db 0F7h,002h,0B0h,007h,0E8h,0BDh,0F8h,091h,0E8h db 0CFh,0F8h,091h,03Ah,087h,0F7h,002h,074h,0F0h db 088h,087h,0F6h,002h,08Ah,087h,0F7h,002h,0E8h db 0A3h,0FAh,088h,087h,0F8h db 002h,0B9h,02Bh,000h,033h,0FFh,08Dh,0B7h,0A0h db 002h,0ADh,033h,0F8h,0E2h,0FBh,081h,0FFh,0AFh db 0C5h,075h,024h,08Bh,08Fh,05Dh,003h,08Dh,0BFh db 00Dh,003h,0B0h,007h,0E8h,082h,0F8h,091h,0E8h db 094h,0F8h,091h,03Ah,087h,0F7h,002h,074h,0F0h db 0D0h,0E0h,0D0h,0E0h,0D0h,0E0h,0AAh,0E2h,0E7h db 059h,05Eh,05Fh,0C3h,050h,056h,0B0h,004h,0E8h db 063h,0F8h,004h,002h,051h,091h,0E8h,00Bh,0FCh db 0E2h,0FBh,059h,089h,0BFh,05Fh,003h,081h,087h db 05Fh,003h,0F8h,002h,0E8h,0D8h,0FCh,0E8h,027h db 0FDh,0E8h,0EFh,0FEh,05Eh,058h,0C3h,0FFh,087h db 0FFh,002h,057h,081h,0C7h,0F8h,002h,047h,08Bh db 08Fh,0FFh,002h,057h,051h db 053h,0F2h,0A4h,0FFh,097h,05Fh,003h,0FCh,05Bh db 059h,05Eh,05Fh,0F2h,0A4h,0C3h $UPD_Top = $