ProfitPress Mega CDROM2 Shareware Freeware (MSDOS)(1992)(Eng)

home *** CD-ROM | disk | FTP | other *** search

/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / ASSEMBLY / STDLIB.ZIP / TEST.ASM < prev next >

Wrap

Assembly Source File | 1991-03-13 | 29.9 KB | 1,813 lines

include stdlib.a ;**************************************************************************** ; ; T E S T S U I T E F O R ; ; ; R A N D Y H Y D E ' S S T A N D A R D ; ; L I B R A R Y F O R A S S E M B L Y ; ; L A N G U A G E P R O G R A M M E R S ; ;**************************************************************************** ; ; ; Global variables go here: ; dseg segment para public 'data' i dw -4321 pi dd i u dw 2345 pu dd u l dd -1234567890 pl dd l ul dd 987654321 pul dd ul ; ps dd s s db "Printf string",0 TestString0 db "This string gets printed by puts!",cr,lf,0 TestString1 db "This string gets used by the STRxxx Routines",cr,lf,0 TestString2 db "gets",0 TestString3 db "Hello there",0 TestString4 db "THIS STRING GETS USED BY THE STRXXX ROUTINES",cr,lf,0 TestString5 db "all lower case",cr,lf,0 TestString6 db "Clear out this string",0 StringSet1 db "Tabcdefghijklmnopqrst ",0 StringSet2 db "uvwxyz!",0 InsStrSrc db "Insert This",0 InsStrDest db "--><--",0 RevStr1 db "012345",0 RevStr2 db "0123456",0 RevStr3 db "1",0 RevStr4 db 0 buffer db 256 dup (?) buffer2 db 256 dup (?) sfstr1 db "1 -1 1 65000 100000 -100000 1 4000000000 0abc x",0 sfstr2 db "1, 2",0 hex1 db "12ab",0 int1 db "-12345",0 int2 db "65000",0 lint1 db "-2000000000",0 lint2 db "4000000000",0 i1 dw ? i2 dw ? u1 dw ? u2 dw ? l1 dd ? l2 dd ? ul1 dd ? ul2 dd ? h1 dw ? c1 db ? c2 db '!' MemAvail dw ? ; ; Allocate some character sets down here ; set charset, cs2, cs3, cs4 ; dseg ends ; ; ; ; cseg segment para public 'code' assume cs:cseg, ds:dseg ; ; lesi macro adrs mov di, seg adrs mov es, di lea di, adrs endm ; ldxi macro adrs mov dx, seg adrs lea si, adrs endm ; ; Variables that wind up being used by the standard library routines. ; The MemInit routine uses "PSP" and "zzzzzzseg" labels. They must be ; present if you intend to use getenv, MemInit, malloc, and free. ; ; public PSP PSP dw ? ; cr equ 13 lf equ 10 ; ; ; Main is the main program. Program execution always begins here. ; Main proc mov cs:PSP, es ;Save pgm seg prefix mov ax, seg dseg ;Set up the segment registers mov ds, ax mov es, ax mov dx, 0 ;Allocate all available RAM. MemInit mov MemAvail, cx printf db "There are %x paragraphs of memory available." db cr,lf,lf,0 dd MemAvail ; ; ; ; ;*************************************************************************** ; ; Test the StrRev and StrRev2 routines here. ; print db "Testing StrRev:",cr,lf,0 lesi RevStr1 strrev puts putcr strrev puts putcr putcr ; lesi RevStr2 strrev puts putcr strrev puts putcr putcr ; lesi RevStr3 strrev puts putcr strrev puts putcr putcr ; lesi RevStr4 strrev puts putcr strrev puts putcr ; ; print db "Testing StrRev2:",cr,lf,0 lesi RevStr1 strrev2 puts putcr free ; lesi RevStr2 strrev2 puts putcr free ; lesi RevStr3 strrev2 puts putcr free ; lesi RevStr4 strrev2 puts putcr free putcr ; ; ;*************************************************************************** ; ; Test the STRINS and STRDEL routines here. ; print db "Testing StrDel:",cr,lf,0 ldxi buffer lesi InsStrDest strcpy mov ax, 2 mov cx, ax strdel puts putcr ; ldxi buffer lesi InsStrDest strcpy mov ax, 20 mov cx, 2 strdel puts putcr ; print db "Testing StrDel2:",cr,lf,0 lesi InsStrDest mov ax, 2 mov cx, ax strdel2 puts putcr free ; lesi InsStrDest mov ax, 20 mov cx, 2 strdel2 puts putcr free ; print db "Testing StrInsl:",cr,lf,0 ldxi buffer lesi InsStrDest strcpy ; mov cx, 3 strinsl db "Hi there",0 puts putcr ; print db "Testing StrIns2l:",cr,lf,0 lesi InsStrDest mov cx, 3 strins2l db "Ho ho ho!",0 puts putcr free ; lesi InsStrDest mov cx, 100 strins2l db "and a bottle of rum!",cr,lf,0 puts putcr free ; print db "Testing STRINS2:",cr,lf,0 lesi InsStrDest ldxi InsStrSrc mov cx, 3 strins2 jnc GoodStrins2 print db "Could not allocate memory for StrIns2",cr,lf,0 jmp short BadStrins2 ; GoodStrins2: puts putcr free ; BadStrIns2: lesi InsStrDest ldxi InsStrSrc mov cx, 100 strins2 jnc GoodSI2 print db "Strins2:memory allocation error",cr,lf,0 jmp short BSI2 ; GoodSI2: puts putcr free ; BSI2: print db "Testing STRINS:",cr,lf,0 lesi InsStrDest ldxi InsStrSrc mov cx, 3 strins puts putcr lesi InsStrDest ldxi InsStrSrc mov cx, 100 strins puts putcr ; ; ;*************************************************************************** ; ; Test the character set routines down here: ; print db "Testing RangeSet:",cr,lf,0 mov al, 'A' mov ah, 'F' lesi CharSet rangeset print db "Chars in set: ",0 call PrintSet ; print db cr,lf,lf,"Testing addstr, addstrl:",cr,lf,0 lesi cs2 ldxi StringSet2 addstr addstrl db "aAbBcCdDeEfF",0 print db "Chars in set: ",0 call PrintSet ; print db cr,lf,lf,"Testing rmvstr, rmvstrl:",cr,lf,0 lesi cs2 ldxi StringSet2 rmvstr rmvstrl db "ABCDEF",0 print db "Chars in set: ",0 call PrintSet ; print db cr,lf,lf,"Testing addchar/rmvchar:",cr,lf,0 lesi cs2 mov al, 'A' addchar mov al, 'a' rmvchar print db "Chars in set: ",0 call PrintSet ; print db cr,lf,lf,"Testing emptyset:",cr,lf,0 emptyset print db "Chars in set: ",0 call PrintSet ; print db cr,lf,lf,"Testing member:",cr,lf,0 addstrl db "ABCDEF",0 mov al, 'A' member jne NotInSet1 print db "A was not in the set",0 jmp short NIS1 ; NotInSet1: print db "A is in the set",0 NIS1: putcr mov al, "G" member jne NotInSet2 print db "G is not in the set",0 jmp short NIS2 ; NotInSet2: print db "G is in the set",0 NIS2: putcr ; print db cr,lf,lf,"Testing copyset:",cr,lf,0 mov dx, es mov si, di lesi cs3 copyset print db "Value in cs3: ",0 call Printset ; print db cr,lf,lf,"Testing unionset:",cr,lf,0 addstrl db "ABCDEFuvwxyz",0 ldxi cs2 setunion print db "Chars in set: ",0 call Printset ; print db cr,lf,lf,"Testing set difference",cr,lf,0 ldxi cs2 setdifference print db "Chars in set: ",0 call PrintSet ; ; ; ;*************************************************************************** ; ; Test the STRxxx routines here. ; ; ;*Strspan ; print db cr,lf,lf,"Testing strspan:",cr,lf,0 ; lesi TestString1 ldxi StringSet1 strspan mov i1, cx printf db "TestString1 contains a character not found in " db "StringSet1 at position %d\n\n",0 dd i1 ; ; ;*Strspanl ; print db "Testing strspanl:",cr,lf,0 ; lesi TestString1 strspanl db "Tabcdefghijklmnopqrst ",0 mov i1, cx printf db "TestString1 contains a character not found in " db "the set at position %d\n\n",0 dd i1 ; ; ;*Strcspan ; print db "Testing strcspan:",cr,lf,0 ; lesi TestString1 ldxi StringSet2 strcspan mov i1, cx printf db "TestString1 contains a character found in " db "StringSet2 at position %d\n\n",0 dd i1 ; ; ;*Strcspanl ; print db "Testing strcspanl:",cr,lf,0 ; lesi TestString1 strcspanl db "uvwxyz!",0 mov i1, cx printf db "TestString1 contains a character not found in " db "the set at position %d\n\n",0 dd i1 ; ; ;*Strset, Strset2 ; print db "Testing Strset",cr,lf,0 ; lesi TestString6 mov al, '*' strset puts ; ; print db cr,lf,lf,"Testing StrSet2:",cr,lf,0 mov cx, 32 mov al, '#' strset2 puts free putcr putcr ; ; ;*Strupr, Strupr2 ; printf db "Testing Strupr:\n" db "Before: %s",0 dd TestString5 lesi TestString5 strupr printf db "After: %s",0 dd TestString5 ; ; ;*Strlwr, Strlwr2 ; printf db cr,lf,"Testing Strlwr:\n" db "Before: %s",0 dd TestString5 lesi TestString5 strlwr printf db "After: %s",0 dd TestString5 ; ; ; ;*Strcmp, Strcmpl ; print db "Testing Strcmp",cr,lf,0 ; lesi TestString1 ldxi TestString1 strcmp jne Sne1 print db "TestString1 == TestString1",cr,lf,0 jmp short s2 ; Sne1: print db "TestString1 <> TestString1",cr,lf,0 ; s2: ldxi TestString0 strcmp jb IsBelow ja IsAbove printf db "'%s' is equal to '%s'\n",0 dd TestString1, TestString0 jmp short s3 ; IsBelow: printf db "%s is less than \n%s\n",0 dd TestString1, TestString0 jmp short s3 ; IsAbove: printf db "%s is greater than \n%s\n",0 dd TestString1, TestString0 ; S3: ; print db cr,lf,"Testing Strcmpl",cr,lf,0 ; lesi TestString2 strcmpl db "gets",0 jne Sne1a print db "TestString2 == 'gets'",cr,lf,0 jmp short s2a ; Sne1a: print db "TestString2 <> 'gets'",cr,lf,0 ; s2a: lesi TestString2 strcmpl db "itsa",0 jb IsBelowa ja IsAbovea printf db "'%s' is equal to 'itsa'\n",0 dd TestString2 jmp short s3a ; IsBelowa: printf db "'%s' is less than 'itsa'\n",0 dd TestString2 jmp short s3a ; IsAbovea: printf db "'%s' is greater than 'itsa'\n",0 dd TestString2 ; S3a: ; ; ;*Stricmp, Stricmpl ; print db cr,lf,"Testing Stricmp",cr,lf,0 ; lesi TestString1 ldxi TestString4 stricmp jne Sne1c print db "TestString1 == TestString4",cr,lf,0 jmp short s2c ; Sne1c: print db "TestString1 <> TestString4",cr,lf,0 ; s2c: lesi TestString1 ldxi TestString4 stricmp jb IsBelowc ja IsAbovec printf db "'%s' is equal to '%s'\n",0 dd TestString1, TestString4 jmp short s3c ; IsBelowc: printf db "'%s' is less than '%s'\n",0 dd TestString1, TestString4 jmp short s3c ; IsAbovec: printf db "'%s' is greater than '%s'\n",0 dd TestString1, TestString4 ; S3c: ; ; print db "Testing Stricmpl",cr,lf,0 ; lesi TestString2 stricmpl db "GETS",0 jne Sne1d print db "TestString2 == 'gets'",cr,lf,0 jmp short s2d ; Sne1d: print db "TestString2 <> 'gets'",cr,lf,0 ; s2d: lesi TestString2 strcmpl db "itsa",0 jb IsBelowd ja IsAboved printf db "'%s' is equal to 'itsa'\n",0 dd TestString2 jmp short s3d ; IsBelowd: printf db "'%s' is less than 'itsa'\n",0 dd TestString2 jmp short s3d ; IsAboved: printf db "'%s' is greater than 'itsa'\n",0 dd TestString2 ; S3d: ; ; ;*Strcpy ; lesi TestString1 ldxi Buffer strcpy puts ; ;*Strcpyl ; print db "Testing Strcpyl:",cr,lf,0 ; ldxi Buffer strcpyl db "This is an strcpyl string",cr,lf,0 puts ldxi Buffer2 strcpy puts ; ;*Strdup ; lesi TestString1 strdup puts free ; ;*Strdupl ; print db "Testing Strdupl:",cr,lf,0 ; strdupl db "This string is for strdupl",cr,lf,0 puts free ; ;*Strlen ; lesi s strlen mov i1, cx printf db "Length of string: '%s' is %d\n",0 dd s, i1 ; ;*Strcat ; print db "Testing strcat:",cr,lf,0 ; lesi Buffer strcpyl db "Test String 1 --",0 ldxi TestString1 strcat puts ; ;*Strcatl ; print db "Testing strcatl:",cr,lf,0 ; lesi Buffer strcpyl db "Strcatl test --",0 strcatl db "More stuff for Strcatl",cr,lf,0 puts ; ;*Strcat2 ; print db "Testing strcat2:",cr,lf,0 ; lesi TestString1 ldxi TestString0 strcat2 puts free ; print db "Testing strcat2l:",cr,lf,0 ; lesi TestString1 strcat2l db "Appended string",cr,lf,0 puts free ; ;*Strchar ; lesi TestString1 mov al, 'a' StrChr pushf mov i1, cx printf db "Testing strchr:",cr,lf db "Searching for 'a' in '%s'\n" db "Found it at position %d\n",0 dd TestString1, i1 popf jnc FndIt1 print db "Could not find character in string.",cr,lf,0 ; FndIt1: lesi TestString1 mov al, 'T' StrChr pushf mov i1, cx printf db "Testing strchr:",cr,lf db "Searching for 'T' in '%s'\n" db "Found it at position %d\n",0 dd TestString1, i1 popf jnc FndIt2 print db "Could not find character in string.",cr,lf,0 FndIt2: ; ; ;*Strstr ; print db "Testing strstr:",cr,lf,0 ; lesi TestString1 ldxi TestString2 strstr jc NotFnd2 mov i1, cx printf db "Found substring at position %i\n",0 dd i1 jmp short FndIt3 ; NotFnd2: print db "Didn't find substring #1.",cr,lf,0 ; FndIt3: ldxi TestString3 strstr jc NotFnd3 print db "Error, found a string which isn't present!",cr,lf,0 ; NotFnd3: ; ; ;*Strstrl ; print db "Testing strstrl:",cr,lf,0 ; lesi TestString1 strstrl db "gets",0 jc NotFnd2a mov i1, cx printf db "Found substring at position %i\n",0 dd i1 jmp short FndIt3a ; NotFnd2a: print db "Didn't find substring #1.",cr,lf,0 ; FndIt3a: strstrl db "Hello There",0 jc NotFnd3a print db "Error, found a string which isn't present!",cr,lf,0 ; NotFnd3a: ; ; ; ; putcr putcr ; ;*************************************************************************** ; ; Test IsAlNum, IsDigit, IsAlpha, IsLower, IsUpper, and IsxDigit here: ; print db "Testing IsAlNum, IsDigit, IsAlpha, IsLower, " db "IsUpper, and IsXDigit",cr,lf,0 ; mov cx, 26 mov al, 'Z' mov ah, 'z' TstAlphaLp: IsAlNum jne yALNumFail IsAlpha jne ALFail IsUpper jne UprFail cmp al, 'F' ja NotHex IsXDigit jne XFail ; NotHex: xchg al, ah IsAlNum yALNumFail: jne AlNumFail IsAlpha jne ALFail IsLower jne LwrFail cmp al, 'f' ja NotHex2 IsXDigit jne XFail ; NotHex2: xchg al, ah dec al dec ah loop TstAlphaLp ; mov cx, 10 mov al, '9' TstDigLp: IsDigit jne DigitFail IsAlNum jne AlNumFail IsXDigit jne XFail dec al loop TstDigLp jmp short TestBad ; ALNumFail: jmp short xALNumFail ALFail: jmp short xALFail UprFail: jmp xUprFail LwrFail: jmp xLwrFail XFail: jmp xXFail DigitFail: jmp xDigitFail ; TestBad: mov al, '1' IsAlpha je ALFail IsLower je LwrFail IsUpper je UprFail mov al, '!' IsDigit je DigitFail IsAlNum je AlNumFail IsXDigit je XFail jmp TestSPrintf ; xALNumFail: print db "IsALNum has failed",cr,lf,0 jmp TestSPrintf ; xALFail: print db "IsAlpha has failed",cr,lf,0 jmp short TestSPrintf ; xUprFail: print db "IsUpper has failed",cr,lf,0 jmp short TestSPrintf ; xLwrFail: print db "IsLower has failed",cr,lf,0 jmp short TestSPrintf ; xXFail: print db "IsXDigit has failed",cr,lf,0 jmp short TestSPrintf ; xDigitFail: print db "IsDigit has failed",cr,lf,0 ; ;*************************************************************************** ; ; Testing sprintf and sbprintf here. ; TestSPrintf: sprintf db "I= %i, I='%10i', I=%^i",cr,lf db "U= %u",cr,lf,0 dd i,i,pi,u puts free ; lesi Buffer sbprintf db "I= %i, I='%10i', I=%^i",cr,lf db "U= %u",cr,lf,0 dd i,i,pi,u puts ; ;*************************************************************************** ; ; Testing various ITOxx routines here. ; mov ax, -1234 itoa print db "ITOA: -1234 is ",0 puts putcr free ;Free allocated storage. ; ;----- ; mov ax, 43210 utoa print db "UTOA: 43210 is ",0 puts putcr free ;Free allocated storage. ; ;----- ; mov ax, 0ABCDh htoa print db "HTOA: 0cdh is ",0 puts putcr free ;Free allocated storage. ; ;----- ; mov ax, 0ABCDh wtoa print db "WTOA: 0abcdh is ",0 puts putcr free ;Free allocated storage. ; ;----- ; mov ax, -1234 mov dx, 0ffffh ltoa print db "LTOA: -1234 is ",0 puts putcr free ; ;----- ; mov ax, 1234 mov dx, 0 ultoa print db "ULTOA: 1234 is ",0 puts putcr free ; ; ;*************************************************************************** ; ; Testing memory management routines here: ; mov cx, 256 malloc IsPtr jnc ValidPtr print db "This is not a valid ptr (1)",cr,lf,0 jmp short x1 ; ValidPtr: print db "Malloc returned a valid ptr",cr,lf,0 ; x1: inc di IsPtr jc InvalidPtr print db "Incrementing a pointer didn't make it invalid",cr,lf,0 jmp short x2 ; InvalidPtr: print db "Incrementing a pointer makes it invalid",cr,lf,0 ; x2: IsInHeap jc BadIsIn print db "Although incrementing it leaves it in the heap",cr,lf,0 jmp short x3 ; BadIsIn: print db "Incrementing the pointer moved it out of the heap" db cr,lf,0 ; x3: dec di free jnc GoodFree print db "Free returned an error",cr,lf,0 jmp short x4 ; GoodFree: print db "FREE did its job.",cr,lf,0 ; x4: mov cx, 512 malloc mov cx, 256 realloc jnc GoodRealloc print db "Realloc screwed up!",cr,lf,0 jmp x5 ; GoodRealloc: DupPtr free jnc GF1 print db "Free choked after DupPtr",cr,lf,0 jmp short x5 ; GF1: free jnc GF2 print db "Free choked after second call.",cr,lf,0 jmp short x5 ; GF2: free jc x5 print db "Free DIDN'T return an error when it was " db "supposed to.",cr,lf,0 ; x5: ; ; ;**************************************************************************** ; ; Testing the ISIZE and LSIZE routines here: ; mov ax, -12345 isize print db "Size of -12345 (isize) is ",0 puti mov ax, 1234 usize print db cr,lf,"Size of 1234 (usize) is ",0 puti ; mov dx, 0ffffh mov ax, -12345 lsize print db cr,lf,"Size of -12345 (lsize) is ",0 puti mov ax, 1234 xor dx, dx ulsize print db cr,lf,"Size of 1234 (ulsize) is ",0 puti putcr ; ;**************************************************************************** ; ; Test the "ATOxx" routines here. ; print db "Testing ATOH: ",0 lesi hex1 atoh putw mov al, ' ' putc ; atoh2 putw putcr ; print db "Testing ATOI: ",0 lesi int1 atoi puti mov al, ' ' putc atoi2 puti putcr ; print db "Testing ATOU: ",0 lesi int2 atou putu mov al, ' ' putc atou2 putu putcr ; print db "Testing ATOL: ",0 lesi lint1 atol putl mov al, ' ' putc atol2 putl putcr ; print db "Testing ATOUL: ",0 lesi lint2 atoul putul mov al, ' ' putc atoul2 putul putcr ; ; ;**************************************************************************** ; ; Test SCANF here: ; printf db "Enter some text: ",0 scanf db "%s",0 dd buffer print db "You entered: ",0 lesi buffer puts putcr ; ; Test SSCANF here: ; printf db "Before, c1=%c, c2=%c\n",0 dd c1,c2 ; lesi sfstr1 sscanf db "%i %d %u %u %ld %li %lu %lu %x %c",0 dd i1,i2,u1,u2,l1,l2,ul1,ul2,h1,c1 ; printf db "Values input by sscanf:\n" db "i1=%d, i2=%d\n" db "u1=%u, u2=%u\n" db "l1=%ld, l2=%ld\n" db "ul1=%lu, ul2=%lu\n" db "h1=%x\n" db "c1=%c, c2=%c\n" db 0 dd i1,i2,u1,u2,l1,l2,ul1,ul2,h1,c1,c2 ; ; print db "Testing scanf character skipping:",cr,lf,0 lesi sfstr2 sscanf db "%i, %i",0 dd i1,i2 printf db "i1=%i, i2=%i\n",0 dd i1, i2 ; ; ;**************************************************************************** ; ; ; ; Testing the PUTC routines here. ; ; The following code should print: ; ; aaa ; aaa ; aaa ; aaaaaaaa ; ; aaaa ; aaaaaaaa ; ; aaaa ; ; mov al, 'a' putc putc putc ; putcr ; putcstdout putcstdout putcstdout putcr ; putcbios putcbios putcbios putcr ; mov di, cs mov es, di lea di, dblchars setoutadrs ; putc putc putc putc putcr ; getoutadrs cmp di, offset dblchars jne badtest mov di, es cmp di, seg dblchars jne badtest ; mov di, seg sl_putcstdout mov es, di lea di, sl_putcstdout pushoutadrs putc putc putc putc putcr ; popoutadrs putc putc putc putc putcr popoutadrs cmp di, offset dblchars jne badtest mov di, es cmp di, seg dblchars jne badtest ; putc putc putc putc putcr jmp short goodtest ; badtest: print db "GetOutAdrs or PopOutAdrs did not return " db "the proper address",cr,lf,0 ; GoodTest: ; ; ;**************************************************************************** ; ; Test the remaining print routines here ; print db "This is a test of the print routine",cr,lf,0 ; print db 0 ; print db "So is this!",cr,lf,0 ; lesi TestString0 puts ; print db "Hex value 0xfa output by PutH: ",0 mov al, 0fah puth ; print db cr,lf,"Hex value 0xfa12 output by PutW: ",0 mov ax, 0fa12h putw ; print db cr,lf,"Decimal value 0xffff output by puti: ",0 mov ax, 0ffffh puti print db cr,lf,"Decimal value 1 output by puti: ",0 mov ax, 1 puti ; print db cr,lf,"Unsigned value 0ffffh output by putu: ",0 mov ax, 0ffffh putu print db cr,lf,"Unsigned value 1 output by putu: ",0 mov ax, 1 putu ; print db cr,lf,"Long value 0ffff1234 output by putL: ",0 mov ax, 1234h mov dx, 0ffffh putl print db cr,lf,"Long value 01234ffff output by putL: ",0 mov dx, 1234h mov ax, 0ffffh putl ; print db cr,lf,"Unsigned long value 1234ffff output by " db "putUL: ",0 putul print db cr,lf,"Unsigned long value 0ffff1234 output by " db "putUL: ",0 mov dx, 0ffffh mov ax, 1234h putUL putcr ; mov cx, 10 islp1: print db "Outputting -2567 using a field width of ",0 mov ax, cx puti print db " **",0 mov ax, -2567 putisize print db "** w/PutISize",cr,lf,0 loop islp1 ; mov cx, 10 islp2: print db "Outputting -2567 using a field width of ",0 mov ax, cx puti print db " **",0 mov ax, -2567 putusize print db "** w/PutUSize",cr,lf,0 loop islp2 ; mov cx, 10 islp3: print db "Outputting -2567 using a field width of ",0 mov ax, cx puti print db " **",0 mov ax, -2567 mov dx, 0ffffh putlsize print db "** w/PutLSize",cr,lf,0 loop islp3 print db "Outputting 0ff001234h using PutLSize: ",0 mov dx, 0ff00h mov ax, 1234h mov cx, 10 PutLSize putcr ; mov cx, 10 islp4: print db "Outputting -2567 using a field width of ",0 mov ax, cx puti print db " **",0 mov ax, -2567 mov dx, 0ffffh putulsize print db "** w/PutULSize",cr,lf,0 loop islp4 print db "Outputting 0ff001234h using PutULSize: ",0 mov dx, 0ff00h mov ax, 1234h mov cx, 10 PutULSize putcr ; ;**************************************************************************** ; ; Testing the PRINTF routine: ; printf db "This is a test of the printf routine w/o any " db "operands.\n" db "It tests the esc characters \\n, \\r, \\b, \\t, " db "\0x0d, and \\\\.\n" db "Test of \\r:\n" db "Old line.\rNew line.\n" db "Test of \t\ttab.\n" db "Test of backspace\b\b\b\b\bs p a c e\n" db "Test of return using \\0x0d:\n" db "Old line.\0x0dNew line.\n\n",0 ; printf db cr,lf db "Test of integer output formats (using I):\n" db "\%d\t\t-\t*%d*\n" db "\%10d\t\t-\t*%10d*\n" db "\%-10d\t\t-\t*%-10d*\n" db "\%\\*10d\t\t-\t*%\*10d*\n" db "\%\-\\*10d\t\t-\t*%-\*10d*\n" db "\%^d\t\t-\t*%^d*\n" db "\%10^d\t\t-\t*%10^d*\n" db "\%-10^d\t\t-\t*%-10^d*\n" db "\%\\*10^d\t\t-\t*%\*10^d*\n" db "\%\-\\*10^d\t-\t*%-\*10^d*\n" db 0 dd i,i,i,i,i,pi,pi,pi,pi,pi ; printf db cr,lf db "Test of unsigned integer output formats (using U):\n" db "\%u\t\t-\t*%u*\n" db "\%10u\t\t-\t*%10u*\n" db "\%-10u\t\t-\t*%-10u*\n" db "\%\\*10u\t\t-\t*%\*10u*\n" db "\%\-\\*10u\t\t-\t*%-\*10u*\n" db "\%^u\t\t-\t*%^u*\n" db "\%10^u\t\t-\t*%10^u*\n" db "\%-10^u\t\t-\t*%-10^u*\n" db "\%\\*10^u\t\t-\t*%\*10^u*\n" db "\%\-\\*10^u\t-\t*%-\*10^u*\n" db 0 dd u,u,u,u,u,pu,pu,pu,pu,pu ; printf db cr,lf db "Test of unsigned long output formats (using UL):\n" db "\%ul\t\t-\t*%lu*\n" db "\%15lu\t\t-\t*%15lu*\n" db "\%-15lu\t\t-\t*%-15lu*\n" db "\%\\*15lu\t\t-\t*%\*15lu*\n" db "\%\-\\*15lu\t-\t*%-\*15lu*\n" db "\%^lu\t\t-\t*%^lu*\n" db "\%15^lu\t\t-\t*%15^lu*\n" db "\%-15^lu\t\t-\t*%-15^lu*\n" db "\%\\*15^lu\t-\t*%\*15^lu*\n" db "\%\-\\*15^lu\t-\t*%-\*15^lu*\n" db 0 dd ul,ul,ul,ul,ul,pul,pul,pul,pul,pul ; printf db cr,lf db "Test of long output formats (using L):\n" db "\%ld\t\t-\t*%ld*\n" db "\%15ld\t\t-\t*%15ld*\n" db "\%-15ld\t\t-\t*%-15ld*\n" db "\%\\*15ld\t\t-\t*%\*15ld*\n" db "\%\-\\*15ld\t-\t*%-\*1ld*\n" db "\%^ld\t\t-\t*%^ld*\n" db "\%15^ld\t\t-\t*%15^ld*\n" db "\%-15^ld\t\t-\t*%-15^ld*\n" db "\%\\*15^ld\t-\t*%\*15^ld*\n" db "\%\-\\*15^ld\t-\t*%-\*15^ld*\n" db 0 dd l,l,l,l,l,pl,pl,pl,pl,pl ; printf db cr,lf db "Test of hexadecimal output (byte) using I:\n" db "\%h\t\t-\t*%h*\n" db "\%5h\t\t-\t*%5h*\n" db "\%-5h\t\t-\t*%-5h*\n" db "\%\\*5h\t\t-\t*%\*5h*\n" db "\%\-\\*5h\t\t-\t*%-\*5h*\n" db "\%^h\t\t-\t*%^h*\n" db "\%5^h\t\t-\t*%5^h*\n" db "\%-5^h\t\t-\t*%-5^h*\n" db "\%\\*5^h\t\t-\t*%\*5^h*\n" db "\%\-\\*5^h\t\t-\t*%-\*5^h*\n" db 0 dd i,i,i,i,i,pi,pi,pi,pi,pi ; printf db cr,lf db "Test of hexadecimal output (word) using I:\n" db "\%x\t\t-\t*%x*\n" db "\%5x\t\t-\t*%5x*\n" db "\%-5x\t\t-\t*%-5x*\n" db "\%\\*5x\t\t-\t*%\*5x*\n" db "\%\-\\*5x\t\t-\t*%-\*5x*\n" db "\%^x\t\t-\t*%^x*\n" db "\%5^x\t\t-\t*%5^x*\n" db "\%-5^x\t\t-\t*%-5^x*\n" db "\%\\*5^x\t\t-\t*%\*5^x*\n" db "\%\-\\*5^x\t\t-\t*%-\*5^x*\n" db 0 dd i,i,i,i,i,pi,pi,pi,pi,pi ; printf db cr,lf db "Test of hexadecimal output (long) using UL:\n" db "\%lx\t\t-\t*%lx*\n" db "\%15lx\t\t-\t*%15lx*\n" db "\%-15lx\t\t-\t*%-15lx*\n" db "\%\\*15lx\t\t-\t*%\*15lx*\n" db "\%\-\\*15lx\t-\t*%-\*15lx*\n" db "\%^lx\t\t-\t*%^lx*\n" db "\%15^lx\t\t-\t*%15^lx*\n" db "\%-15^lx\t\t-\t*%-15^lx*\n" db "\%\\*15^lx\t-\t*%\*15^lx*\n" db "\%\-\\*15^lx\t-\t*%-\*15^lx*\n" db 0 dd ul,ul,ul,ul,ul,pul,pul,pul,pul,pul ; printf db cr,lf db "Test of character output using S:\n" db "\%c\t\t-\t*%c*\n" db "\%5c\t\t-\t*%5c*\n" db "\%-5c\t\t-\t*%-5c*\n" db "\%\\*5c\t\t-\t*%\*5c*\n" db "\%\-\\*5c\t\t-\t*%-\*5c*\n" db "\%^c\t\t-\t*%^c*\n" db "\%5^c\t\t-\t*%5^c*\n" db "\%-5^c\t\t-\t*%-5^c*\n" db "\%\\*5^c\t\t-\t*%\*5^c*\n" db "\%\-\\*5^c\t\t-\t*%-\*5^c*\n" db 0 dd s,s,s,s,s,ps,ps,ps,ps,ps ; printf db cr,lf db "Test of string output using s:\n" db "\%s\t\t-\t*%s*\n" db "\%15s\t\t-\t*%15s*\n" db "\%-15s\t\t-\t*%-15s*\n" db "\%\\*15s\t\t-\t*%\*15s*\n" db "\%\-\\*15s\t\t-\t*%-\*15s*\n" db "\%^s\t\t-\t*%^s*\n" db "\%15^s\t\t-\t*%15^s*\n" db "\%-15^s\t\t-\t*%-15^s*\n" db "\%\\*15^s\t\t-\t*%\*15^s*\n" db "\%\-\\*15^s\t-\t*%-\*15^s*\n" db 0 dd s,s,s,s,s,ps,ps,ps,ps,ps ; ;**************************************************************************** ; ; Test the input routines here. ; print db "Testing GETC- Press any key: ",0 getc print db cr,lf,"You pressed: '",0 putc print db "' : ",0 putw print db cr,lf,"Testing GetcStdIn- Press any key:",0 GetcStdIn print db cr,lf,"You pressed: '",0 putc print db "' : ",0 putw print db cr,lf,"Testing GetcBIOS- Press any key:",0 getcBIOS print db cr,lf,"You pressed: '",0 putc print db "' : ",0 putw ; print db cr,lf,"Redirecting input, reading: ",0 lesi ReturnA SetInAdrs getc print db cr,lf,"Getc returned: '",0 putc print db "' : ",0 putw print db cr,lf,"Pushing address, changing to 'B': ",0 lesi ReturnB PushInAdrs getc print db cr,lf,"Getc returned: '",0 putc print db "' : ",0 putw print db cr,lf,"Popping address: ",0 PopInAdrs cmp di, offset ReturnB jne BadPopIn mov di, es cmp di, seg ReturnB je GoodPopIn BadPopIn: print db cr,lf,"Did not return the proper address",cr,lf,0 GoodPopIn: print db cr,lf,"Popping address again, should read from kbd: " db 0 PopInAdrs getc print db cr,lf,"Getc returned: '",0 putc print db "' : ",0 putw putcr ; ;**************************************************************************** ; ; Test GETS here: ; print db "Testing GETS, enter a line of text: ",0 gets jnc goodgets print db "Bad gets call",cr,lf,0 ; goodgets: print db "You entered: ",0 puts putcr ; ; ;*************************************************************************** ; ; ; Quit: mov ah, 4ch int 21h ; ; Main endp ; ; dblchars proc far putcstdout putcstdout ret dblchars endp ; ; ReturnA proc far mov ax, "A" ret ReturnA endp ; ReturnB proc far mov ax, "B" ret ReturnB endp ; ; ; Printset- Prints the characters in the set passed in es:di ; PrintSet proc push es push ds push di push si push dx push ax ; mov dx, es ;dx:si := es:di mov si, di ; createsets copyset PrLoop: rmvitem cmp al, 0 jz PrDone putc jmp PrLoop ; PrDone: free pop ax pop dx pop si pop di pop ds pop es ret PrintSet endp ; ; cseg ends ; ; ; Allocate a reasonable amount of space for the stack (2k). ; sseg segment para stack 'stack' stk db 256 dup ("stack ") sseg ends ; ; ; ; zzzzzzseg must be the last segment that gets loaded into memory! ; zzzzzzseg segment para public 'zzzzzz' LastBytes db 16 dup (?) heap db 1024 dup (?) zzzzzzseg ends end Main