Power-Programmierung

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

/ Power-Programmierung / CD1.mdf / assemblr / library / screen / ucr_libr / stdlib.a < prev next >

Wrap

Text File | 1991-12-26 | 39.0 KB | 2,345 lines

StdGrp group stdlib, stddata ; stddata segment para public 'sldata' stddata ends stdlib segment para public 'slcode' stdlib ends ; Common constants and equates: NULL = 0 bell = 07h bs = 08h tab = 09h lf = 0ah cr = 0dh ; Interface to standard library routines. slcall macro adrs db 09ah dd stdgrp:adrs endm ; Some moderately useful macros: DOS macro opcode ifnb opcode mov ah, opcode endif int 21h endm ExitPgm macro mov ah, 4ch int 21h endm ; Normal stdlib macros: ;------------------------------------------------ ; getc macro ifndef sl_getc stdlib segment para public 'slcode' extrn sl_getc:far stdlib ends endif slcall sl_getc endm ; ; ; GetcStdIn macro ifndef sl_GetcStdIn stdlib segment para public 'slcode' extrn sl_GetcStdIn:far stdlib ends endif slcall sl_GetcStdIn endm ; ; ; ; GetcBIOS macro ifndef sl_GetcBIOS stdlib segment para public 'slcode' extrn sl_GetcBIOS:far stdlib ends endif slcall sl_GetcBIOS endm ; ; SetInBIOS macro ifndef sl_SetInBIOS stdlib segment para public 'slcode' extrn sl_SetInBIOS:far stdlib ends endif slcall sl_SetInBIOS endm ; SetInStd macro ifndef sl_SetInStd stdlib segment para public 'slcode' extrn sl_SetInStd:far stdlib ends endif slcall sl_SetInStd endm ; ; ; SetInAdrs macro ifndef sl_SetInAdrs stdlib segment para public 'slcode' extrn sl_SetInAdrs:far stdlib ends endif slcall sl_SetInAdrs endm ; ; GetInAdrs macro ifndef sl_GetInAdrs stdlib segment para public 'slcode' extrn sl_GetInAdrs:far stdlib ends endif slcall sl_GetInAdrs endm ; ; PushInAdrs macro ifndef sl_PushInAdrs stdlib segment para public 'slcode' extrn sl_PushInAdrs:far stdlib ends endif slcall sl_PushInAdrs endm ; ; PopInAdrs macro ifndef sl_PopInAdrs stdlib segment para public 'slcode' extrn sl_PopInAdrs:far stdlib ends endif slcall sl_PopInAdrs endm ; ; ; gets macro ifndef sl_gets stdlib segment para public 'slcode' extrn sl_gets:far stdlib ends endif slcall sl_gets endm ; getsm macro ifndef sl_getsm stdlib segment para public 'slcode' extrn sl_getsm:far stdlib ends endif slcall sl_getsm endm ; ; atol macro ifndef sl_atol stdlib segment para public 'slcode' extrn sl_atol:far stdlib ends endif slcall sl_atol endm ; atoul macro ifndef sl_atoul stdlib segment para public 'slcode' extrn sl_atoul:far stdlib ends endif slcall sl_atoul endm ; ; ; atol2 macro ifndef sl_atol2 stdlib segment para public 'slcode' extrn sl_atol2:far stdlib ends endif slcall sl_atol2 endm ; atoul2 macro ifndef sl_atoul2 stdlib segment para public 'slcode' extrn sl_atoul2:far stdlib ends endif slcall sl_atoul2 endm ; ; ; atoi and atou from atoi.asm ; atoi macro ifndef sl_atoi stdlib segment para public 'slcode' extrn sl_atoi:far stdlib ends endif slcall sl_atoi endm ; atou macro ifndef sl_atou stdlib segment para public 'slcode' extrn sl_atou:far stdlib ends endif slcall sl_atou endm ; ; atoi2 macro ifndef sl_atoi2 stdlib segment para public 'slcode' extrn sl_atoi2:far stdlib ends endif slcall sl_atoi2 endm ; atou2 macro ifndef sl_atou2 stdlib segment para public 'slcode' extrn sl_atou2:far stdlib ends endif slcall sl_atou2 endm ; ; ; atoh macro ifndef sl_atoh stdlib segment para public 'slcode' extrn sl_atoh:far stdlib ends endif slcall sl_atoh endm ; ; atolh macro ifndef sl_atolh stdlib segment para public 'slcode' extrn sl_atolh:far stdlib ends endif slcall sl_atolh endm ; ; atoh2 macro ifndef sl_atoh2 stdlib segment para public 'slcode' extrn sl_atoh2:far stdlib ends endif slcall sl_atoh2 endm ; ; atolh2 macro ifndef sl_atolh2 stdlib segment para public 'slcode' extrn sl_atolh2:far stdlib ends endif slcall sl_atolh2 endm ; ; ;------------------------------------------------ ; ; ISize macro ifndef sl_ISize stdlib segment para public 'slcode' extrn sl_ISize:far stdlib ends endif slcall sl_Isize endm ; USize macro ifndef sl_USize stdlib segment para public 'slcode' extrn sl_USize:far stdlib ends endif slcall sl_USize endm ; ; ; LSize macro ifndef sl_LSize stdlib segment para public 'slcode' extrn sl_LSize:far stdlib ends endif slcall sl_Lsize endm ; ULSize macro ifndef sl_ULSize stdlib segment para public 'slcode' extrn sl_ULSize:far stdlib ends endif slcall sl_ULSize endm ; ; ;----------------------------------------------------------------------- ; ; Print macro ifndef sl_print stdlib segment para public 'slcode' extrn sl_print:far stdlib ends endif slcall sl_print endm ; ;--------------------------------------------------------------------------- ; ; Printf macro ifdef sl_printff %out Warning: You're using both PRINTFF and PRINTF, just use PRINTFF endif ifndef sl_printf stdlib segment para public 'slcode' extrn sl_printf:far stdlib ends endif slcall sl_printf endm ; ; printff macro ifdef sl_printf %out Warning: You're using both PRINTFF and PRINTF, just use PRINTFF endif ifndef sl_Printff stdlib segment para public 'slcode' extrn sl_Printff:far stdlib ends endif slcall sl_Printff endm ; ; SPrintf macro ifndef sl_sprintf stdlib segment para public 'slcode' extrn sl_sprintf:far ifndef sp_BufSize extrn sp_BufSize:word endif stdlib ends endif slcall sl_sprintf endm ; ; SPrintfm macro ifndef sl_sprintfm stdlib segment para public 'slcode' extrn sl_sprintfm:far stdlib ends endif slcall sl_sprintfm endm ; ; ; Scanf macro ifndef sl_scanf stdlib segment para public 'slcode' extrn sl_scanf:far stdlib ends endif slcall sl_scanf endm ; SScanf macro ifndef sl_sscanf stdlib segment para public 'slcode' extrn sl_sscanf:far stdlib ends endif slcall sl_sscanf endm ; ; ;--------------------------------------------------------------------------- ; ; Putc macro ifndef sl_putc stdlib segment para public 'slcode' extrn sl_putc:far stdlib ends endif slcall sl_putc endm ; ; Putcr macro ifndef sl_putcr stdlib segment para public 'slcode' extrn sl_putcr:far stdlib ends endif slcall sl_putcr endm ; ; ; PutcStdOut macro ifndef sl_putcStdOut stdlib segment para public 'slcode' extrn sl_putcStdOut:far stdlib ends endif slcall sl_putcStdOut endm ; ; ; PutcBIOS macro ifndef sl_putcBIOS stdlib segment para public 'slcode' extrn sl_putcBIOS:far stdlib ends endif slcall sl_putcBIOS endm ; ; ; SetOutAdrs macro ifndef sl_SetOutAdrs stdlib segment para public 'slcode' extrn sl_SetOutAdrs:far stdlib ends endif slcall sl_SetOutAdrs endm ; ; GetOutAdrs macro ifndef sl_GetOutAdrs stdlib segment para public 'slcode' extrn sl_GetOutAdrs:far stdlib ends endif slcall sl_GetOutAdrs endm ; ; PushOutAdrs macro ifndef sl_PushOutAdrs stdlib segment para public 'slcode' extrn sl_PushOutAdrs:far stdlib ends endif slcall sl_PushOutAdrs endm ; ; PopOutAdrs macro ifndef sl_PopOutAdrs stdlib segment para public 'slcode' extrn sl_PopOutAdrs:far stdlib ends endif slcall sl_PopOutAdrs endm ; ; PutISize macro ifndef sl_putisize stdlib segment para public 'slcode' extrn sl_putisize:far stdlib ends endif slcall sl_putisize endm ; ; PutUSize macro ifndef sl_putusize stdlib segment para public 'slcode' extrn sl_putusize:far stdlib ends endif slcall sl_putusize endm ; ; ; PutLSize macro ifndef sl_putlsize stdlib segment para public 'slcode' extrn sl_putlsize:far stdlib ends endif slcall sl_putlsize endm ; ; PutULSize macro ifndef sl_putulsize stdlib segment para public 'slcode' extrn sl_putulsize:far stdlib ends endif slcall sl_putulsize endm ; ; ;--------------------------------------------------------------------------- ; ; Puts macro ifndef sl_puts stdlib segment para public 'slcode' extrn sl_puts:far stdlib ends endif slcall sl_puts endm ; ; ;---------------------------------------------------------------------------- ; ; Puth macro ifndef sl_puth stdlib segment para public 'slcode' extrn sl_puth:far stdlib ends endif slcall sl_puth endm ; ; Putw macro ifndef sl_putw stdlib segment para public 'slcode' extrn sl_putw:far stdlib ends endif slcall sl_putw endm ; ;--------------------------------------------------------------------------- ; Puti macro ifndef sl_puti stdlib segment para public 'slcode' extrn sl_puti:far stdlib ends endif slcall sl_puti endm ; ; Putu macro ifndef sl_putu stdlib segment para public 'slcode' extrn sl_putu:far stdlib ends endif slcall sl_putu endm ; ; ; Putl macro ifndef sl_putl stdlib segment para public 'slcode' extrn sl_putl:far stdlib ends endif slcall sl_putl endm ; ; PutUL macro ifndef sl_putul stdlib segment para public 'slcode' extrn sl_putul:far stdlib ends endif slcall sl_putul endm ; ; ;-------------------------------------------------------------------------- ; ; itoa macro ifndef sl_itoa stdlib segment para public 'slcode' extrn sl_itoa:far stdlib ends endif slcall sl_itoa endm ; ; itoam macro ifndef sl_itoam stdlib segment para public 'slcode' extrn sl_itoam:far stdlib ends endif slcall sl_itoam endm ; itoa2 macro ifndef sl_itoa2 stdlib segment para public 'slcode' extrn sl_itoa2:far stdlib ends endif slcall sl_itoa2 endm ; ; utoa macro ifndef sl_utoa stdlib segment para public 'slcode' extrn sl_utoa:far stdlib ends endif slcall sl_utoa endm ; utoam macro ifndef sl_utoam stdlib segment para public 'slcode' extrn sl_utoam:far stdlib ends endif slcall sl_utoam endm ; utoa2 macro ifndef sl_utoa2 stdlib segment para public 'slcode' extrn sl_utoa2:far stdlib ends endif slcall sl_utoa2 endm ; ; ; htoa macro ifndef sl_htoa stdlib segment para public 'slcode' extrn sl_htoa:far stdlib ends endif slcall sl_htoa endm ; htoam macro ifndef sl_htoam stdlib segment para public 'slcode' extrn sl_htoam:far stdlib ends endif slcall sl_htoam endm ; htoa2 macro ifndef sl_htoa2 stdlib segment para public 'slcode' extrn sl_htoa2:far stdlib ends endif slcall sl_htoa2 endm ; ; wtoa macro ifndef sl_wtoa stdlib segment para public 'slcode' extrn sl_wtoa:far stdlib ends endif slcall sl_wtoa endm ; wtoam macro ifndef sl_wtoam stdlib segment para public 'slcode' extrn sl_wtoam:far stdlib ends endif slcall sl_wtoam endm ; wtoa2 macro ifndef sl_wtoa2 stdlib segment para public 'slcode' extrn sl_wtoa2:far stdlib ends endif slcall sl_wtoa2 endm ; ; ; ltoa macro ifndef sl_ltoa stdlib segment para public 'slcode' extrn sl_ltoa:far stdlib ends endif slcall sl_ltoa endm ; ltoam macro ifndef sl_ltoam stdlib segment para public 'slcode' extrn sl_ltoam:far stdlib ends endif slcall sl_ltoam endm ; ltoa2 macro ifndef sl_ltoa2 stdlib segment para public 'slcode' extrn sl_ltoa2:far stdlib ends endif slcall sl_ltoa2 endm ; ; ; ultoa macro ifndef sl_ultoa stdlib segment para public 'slcode' extrn sl_ultoa:far stdlib ends endif slcall sl_ultoa endm ; ultoam macro ifndef sl_ultoam stdlib segment para public 'slcode' extrn sl_ultoam:far stdlib ends endif slcall sl_ultoam endm ; ultoa2 macro ifndef sl_ultoa2 stdlib segment para public 'slcode' extrn sl_ultoa2:far stdlib ends endif slcall sl_ultoa2 endm ; ; ; MemInit macro ifndef sl_MemInit stdlib segment para public 'slcode' extrn sl_MemInit:far stdlib ends endif slcall sl_MemInit endm ; ; ; malloc macro ifndef sl_malloc stdlib segment para public 'slcode' extrn sl_malloc:far stdlib ends endif slcall sl_malloc endm ; ; realloc macro ifndef sl_realloc stdlib segment para public 'slcode' extrn sl_realloc:far stdlib ends endif slcall sl_realloc endm ; ; DupPtr macro ifndef sl_dupptr stdlib segment para public 'slcode' extrn sl_dupptr:far stdlib ends endif slcall sl_dupptr endm ; ; free macro ifndef sl_free stdlib segment para public 'slcode' extrn sl_free:far stdlib ends endif slcall sl_free endm ; ; ; ; IsInHeap macro ifndef sl_IsInHeap stdlib segment para public 'slcode' extrn sl_IsInHeap:far stdlib ends endif slcall sl_IsInHeap endm ; ; IsPtr macro ifndef sl_IsPtr stdlib segment para public 'slcode' extrn sl_IsPtr:far stdlib ends endif slcall sl_IsPtr endm ; ; ;--------------------------------------------------------------------------- ; IsAlNum macro ifndef sl_IsAlNum stdlib segment para public 'slcode' extrn sl_IsAlNum:far stdlib ends endif slcall sl_IsAlNum endm ; ; ; IsxDigit- Checks al to see if it is a hex digit. ; IsxDigit macro ifndef sl_IsxDigit stdlib segment para public 'slcode' extrn sl_IsxDigit:far stdlib ends endif slcall sl_IsxDigit endm ; ; ; ToLower macro local NoCnvrt cmp al, 'A' jb NoCnvrt cmp al, 'Z' ja NoCnvrt or al, 20h NoCnvrt: endm ; ; ; ToUpper macro local NoCnvrt cmp al, 'a' jb NoCnvrt cmp al, 'z' ja NoCnvrt and al, 05fh NoCnvrt: endm ; ; ; IsDigit macro local NotDigit, IsDigit cmp al, '0' jb NotDigit ;Note: this also clears ZF. cmp al, '9' ja NotDigit ;Also clears ZF. cmp al, al ;Set Zero flag NotDigit: endm ; ; ; IsAlpha macro local IsAl, NotAlpha cmp al, 'A' jb NotAlpha ;Also clears ZF. cmp al, 'Z' jbe IsAl cmp al, 'a' jb NotAlpha cmp al, 'z' ja NotAlpha IsAl: cmp al, al ;Set ZF. NotAlpha: endm ; ; IsLower macro local NotLower cmp al, 'a' jb NotLower cmp al, 'z' ja NotLower cmp al, al ;Set ZF. NotLower: endm ; ; ; IsUpper- Checks to see if the character in al is upper case. ; IsUpper macro local NotUpper cmp al, 'A' jb NotUpper cmp al, 'Z' ja NotUpper cmp al, al ;Set ZF. NotUpper: endm ; ; ;-------------------------------------------------------------------------- ; ; strcpy macro ifndef sl_strcpy stdlib segment para public 'slcode' extrn sl_strcpy:far stdlib ends endif slcall sl_strcpy endm ; ; ; ; strcpyl macro ifndef sl_strcpyl stdlib segment para public 'slcode' extrn sl_strcpyl:far stdlib ends endif slcall sl_strcpyl endm ; ; ; strdup macro ifndef sl_strdup stdlib segment para public 'slcode' extrn sl_strdup:far stdlib ends endif slcall sl_strdup endm ; ; ; strdupl macro ifndef sl_strdupl stdlib segment para public 'slcode' extrn sl_strdupl:far stdlib ends endif slcall sl_strdupl endm ; ; strlen macro ifndef sl_strlen stdlib segment para public 'slcode' extrn sl_strlen:far stdlib ends endif slcall sl_strlen endm ; ; strcat macro ifndef sl_strcat stdlib segment para public 'slcode' extrn sl_strcat:far stdlib ends endif slcall sl_strcat endm ; ; strcatl macro ifndef sl_strcatl stdlib segment para public 'slcode' extrn sl_strcatl:far stdlib ends endif slcall sl_strcatl endm ; ; strcatm macro ifndef sl_strcatm stdlib segment para public 'slcode' extrn sl_strcatm:far stdlib ends endif slcall sl_strcatm endm ; ; ; strcatml macro ifndef sl_strcatml stdlib segment para public 'slcode' extrn sl_strcatml:far stdlib ends endif slcall sl_strcatml endm ; ; ; strchr macro ifndef sl_strchr stdlib segment para public 'slcode' extrn sl_strchr:far stdlib ends endif slcall sl_strchr endm ; ; strstr macro ifndef sl_strstr stdlib segment para public 'slcode' extrn sl_strstr:far stdlib ends endif slcall sl_strstr endm ; ; ; strstrl macro ifndef sl_strstrl stdlib segment para public 'slcode' extrn sl_strstrl:far stdlib ends endif slcall sl_strstrl endm ; ; ; strcmp macro ifndef sl_strcmp stdlib segment para public 'slcode' extrn sl_strcmp:far stdlib ends endif slcall sl_strcmp endm ; ; ; stricmp- As with strcmp above, except it is case insensitive. ; stricmp macro ifndef sl_stricmp stdlib segment para public 'slcode' extrn sl_stricmp:far stdlib ends endif slcall sl_stricmp endm ; ; stricmpl macro ifndef sl_stricmpl stdlib segment para public 'slcode' extrn sl_stricmpl:far stdlib ends endif slcall sl_stricmpl endm ; strcmpl macro ifndef sl_strcmpl stdlib segment para public 'slcode' extrn sl_strcmpl:far stdlib ends endif slcall sl_strcmpl endm ; ; strupr macro ifndef sl_strupr stdlib segment para public 'slcode' extrn sl_strupr:far stdlib ends endif slcall sl_strupr endm ; ; struprm macro ifndef sl_struprm stdlib segment para public 'slcode' extrn sl_struprm:far stdlib ends endif slcall sl_struprm endm ; ; strlwr macro ifndef sl_strlwr stdlib segment para public 'slcode' extrn sl_strlwr:far stdlib ends endif slcall sl_strlwr endm ; ; strlwrm macro ifndef sl_strlwrm stdlib segment para public 'slcode' extrn sl_strlwrm:far stdlib ends endif slcall sl_strlwrm endm ; ; strset macro ifndef sl_strset stdlib segment para public 'slcode' extrn sl_strset:far stdlib ends endif slcall sl_strset endm ; ; strsetm macro ifndef sl_strsetm stdlib segment para public 'slcode' extrn sl_strsetm:far stdlib ends endif slcall sl_strsetm endm ; ; strspan macro ifndef sl_strspan stdlib segment para public 'slcode' extrn sl_strspan:far stdlib ends endif slcall sl_strspan endm ; ; ; strspanl macro ifndef sl_strspanl stdlib segment para public 'slcode' extrn sl_strspanl:far stdlib ends endif slcall sl_strspanl endm ; ; ; strcspan macro ifndef sl_strcspan stdlib segment para public 'slcode' extrn sl_strcspan:far stdlib ends endif slcall sl_strcspan endm ; ; ; strcspanl macro ifndef sl_strcspanl stdlib segment para public 'slcode' extrn sl_strcspanl:far stdlib ends endif slcall sl_strcspanl endm ; ; strins macro ifndef sl_strins stdlib segment para public 'slcode' extrn sl_strins:far stdlib ends endif slcall sl_strins endm ; strinsl macro ifndef sl_strinsl stdlib segment para public 'slcode' extrn sl_strinsl:far stdlib ends endif slcall sl_strinsl endm ; ; strinsm macro ifndef sl_strinsm stdlib segment para public 'slcode' extrn sl_strinsm:far stdlib ends endif slcall sl_strinsm endm ; strinsml macro ifndef sl_strinsml stdlib segment para public 'slcode' extrn sl_strinsml:far stdlib ends endif slcall sl_strinsml endm ; strdel macro ifndef sl_strdel stdlib segment para public 'slcode' extrn sl_strdel:far stdlib ends endif slcall sl_strdel endm ; strdelm macro ifndef sl_strdelm stdlib segment para public 'slcode' extrn sl_strdelm:far stdlib ends endif slcall sl_strdelm endm ; strrev macro ifndef sl_strrev stdlib segment para public 'slcode' extrn sl_strrev:far stdlib ends endif slcall sl_strrev endm ; strrevm macro ifndef sl_strrevm stdlib segment para public 'slcode' extrn sl_strrevm:far stdlib ends endif slcall sl_strrevm endm ; ; ; ; set macro n0,n1,n2,n3,n4,n5,n6,n7 n0 db 1 n1 db 2 n2 db 4 n3 db 8 n4 db 10h n5 db 20h n6 db 40h n7 db 80h db 264 dup (0) endm ; ; CreateSets macro ifndef sl_CreateSets stdlib segment para public 'slcode' extrn sl_CreateSets:far stdlib ends endif slcall sl_CreateSets endm ; ; EmptySet macro ifndef sl_EmptySet stdlib segment para public 'slcode' extrn sl_EmptySet:far stdlib ends endif slcall sl_EmptySet endm ; ; RangeSet macro ifndef sl_RangeSet stdlib segment para public 'slcode' extrn sl_RangeSet:far stdlib ends endif slcall sl_RangeSet endm ; ; AddStr macro ifndef sl_AddStr stdlib segment para public 'slcode' extrn sl_AddStr:far stdlib ends endif slcall sl_AddStr endm ; ; AddStrl macro ifndef sl_AddStrl stdlib segment para public 'slcode' extrn sl_AddStrl:far stdlib ends endif slcall sl_AddStrl endm ; ; RmvStr macro ifndef sl_RmvStr stdlib segment para public 'slcode' extrn sl_RmvStr:far stdlib ends endif slcall sl_RmvStr endm ; ; RmvStrl macro ifndef sl_RmvStrl stdlib segment para public 'slcode' extrn sl_RmvStrl:far stdlib ends endif slcall sl_RmvStrl endm ; ; AddChar macro ifndef sl_AddChar stdlib segment para public 'slcode' extrn sl_AddChar:far stdlib ends endif slcall sl_AddChar endm ; ; RmvChar macro ifndef sl_RmvChar stdlib segment para public 'slcode' extrn sl_RmvChar:far stdlib ends endif slcall sl_RmvChar endm ; ; Member macro ifndef sl_member stdlib segment para public 'slcode' extrn sl_member:far stdlib ends endif slcall sl_member endm ; ; CopySet macro ifndef sl_CopySet stdlib segment para public 'slcode' extrn sl_CopySet:far stdlib ends endif slcall sl_CopySet endm ; ; setunion macro ifndef sl_union stdlib segment para public 'slcode' extrn sl_union:far stdlib ends endif slcall sl_union endm ; ; SetIntersect macro ifndef sl_Intersect stdlib segment para public 'slcode' extrn sl_Intersect:far stdlib ends endif slcall sl_Intersect endm ; ; SetDifference macro ifndef sl_Difference stdlib segment para public 'slcode' extrn sl_Difference:far stdlib ends endif slcall sl_Difference endm ; ; NextItem macro ifndef sl_NextItem stdlib segment para public 'slcode' extrn sl_NextItem:far stdlib ends endif slcall sl_NextItem endm ; ; RmvItem macro ifndef sl_RmvItem stdlib segment para public 'slcode' extrn sl_RmvItem:far stdlib ends endif slcall sl_RmvItem endm ; ;--------------------------------------------------------------------------- ; ; ; Macros for floating point arithmetic. ; ; Load single precision value into FPACC: ; lsfpa macro ifndef sl_lsfpa stdlib segment para public 'slcode' extrn sl_lsfpa:far stdlib ends endif slcall sl_lsfpa endm ; ; ; Store FPACC to a single precision value: ; ssfpa macro ifndef sl_ssfpa stdlib segment para public 'slcode' extrn sl_ssfpa:far stdlib ends endif slcall sl_ssfpa endm ; ; Load double precision value into FPACC: ; ldfpa macro ifndef sl_ldfpa stdlib segment para public 'slcode' extrn sl_ldfpa:far stdlib ends endif slcall sl_ldfpa endm ; ; ; Store FPACC into a double precision variable: ; sdfpa macro ifndef sl_sdfpa stdlib segment para public 'slcode' extrn sl_sdfpa:far stdlib ends endif slcall sl_sdfpa endm ; ; ; Load extended precision value into FPACC: ; lefpa macro ifndef sl_lefpa stdlib segment para public 'slcode' extrn sl_lefpa:far stdlib ends endif slcall sl_lefpa endm ; ; Load double precision value into FPACC: ; lefpal macro ifndef sl_lefpal stdlib segment para public 'slcode' extrn sl_lefpal:far stdlib ends endif slcall sl_lefpal endm ; ; Store FPACC into an extended precision variable: ; sefpa macro ifndef sl_sefpa stdlib segment para public 'slcode' extrn sl_sefpa:far stdlib ends endif slcall sl_sefpa endm ; ; Load single precision value into FPOP: ; lsfpo macro ifndef sl_lsfpo stdlib segment para public 'slcode' extrn sl_lsfpo:far stdlib ends endif slcall sl_lsfpo endm ; ; Load double precision value into FPOP: ; ldfpo macro ifndef sl_ldfpo stdlib segment para public 'slcode' extrn sl_ldfpo:far stdlib ends endif slcall sl_ldfpo endm ; ; Load extended precision value into FPOP: ; lefpo macro ifndef sl_lefpo stdlib segment para public 'slcode' extrn sl_lefpo:far stdlib ends endif slcall sl_lefpo endm ; ; Load extended precision value into FPOP: ; lefpol macro ifndef sl_lefpol stdlib segment para public 'slcode' extrn sl_lefpol:far stdlib ends endif slcall sl_lefpol endm ; ; ITOF- Convert integer to floating point. ; itof macro ifndef sl_itof stdlib segment para public 'slcode' extrn sl_itof:far stdlib ends endif slcall sl_itof endm ; ; UTOF- Convert unsigned integer to floating point. ; utof macro ifndef sl_utof stdlib segment para public 'slcode' extrn sl_utof:far stdlib ends endif slcall sl_utof endm ; ; ULTOF- Convert unsigned 32-bit integer to floating point. ; ultof macro ifndef sl_ultof stdlib segment para public 'slcode' extrn sl_ultof:far stdlib ends endif slcall sl_ultof endm ; ; LTOF- Convert 32-bit signed integer to floating point. ; ltof macro ifndef sl_ltof stdlib segment para public 'slcode' extrn sl_ltof:far stdlib ends endif slcall sl_ltof endm ; ; ADD FPOP to FPACC: ; fpadd macro ifndef sl_fadd stdlib segment para public 'slcode' extrn sl_fadd:far stdlib ends endif slcall sl_fadd endm ; ; Subtract FPOP from FPACC: ; fpsub macro ifndef sl_fsub stdlib segment para public 'slcode' extrn sl_fsub:far stdlib ends endif slcall sl_fsub endm ; ; ; Compare FPACC to FPOP: ; fpcmp macro ifndef sl_fcmp stdlib segment para public 'slcode' extrn sl_fcmp:far stdlib ends endif slcall sl_fcmp endm ; ; ; Multiply FPACC by FPOP: ; fpmul macro ifndef sl_fmul stdlib segment para public 'slcode' extrn sl_fmul:far stdlib ends endif slcall sl_fmul endm ; ; ; Divide FPACC by FPOP: ; fpdiv macro ifndef sl_fdiv stdlib segment para public 'slcode' extrn sl_fdiv:far stdlib ends endif slcall sl_fdiv endm ; ; ; Convert FPACC to a string of digits. ; ftoa macro ifndef sl_ftoa stdlib segment para public 'slcode' extrn sl_ftoa:far stdlib ends endif slcall sl_ftoa endm ; ftoa2 macro ifndef sl_ftoa2 stdlib segment para public 'slcode' extrn sl_ftoa2:far stdlib ends endif slcall sl_ftoa2 endm ; ftoam macro ifndef sl_ftoam stdlib segment para public 'slcode' extrn sl_ftoam:far stdlib ends endif slcall sl_ftoam endm ; ; ; Convert FPACC to a string of digits (scientific notation) ; etoa macro ifndef sl_etoa stdlib segment para public 'slcode' extrn sl_etoa:far stdlib ends endif slcall sl_etoa endm ; etoa2 macro ifndef sl_etoa2 stdlib segment para public 'slcode' extrn sl_etoa2:far stdlib ends endif slcall sl_etoa2 endm ; etoam macro ifndef sl_etoam stdlib segment para public 'slcode' extrn sl_etoam:far stdlib ends endif slcall sl_etoam endm ; ; ; ; Convert a string of digits (scientific notation) to FPACC ; atof macro ifndef sl_atof stdlib segment para public 'slcode' extrn sl_atof:far stdlib ends endif slcall sl_atof endm ; ; ; ; ftoi macro ifndef sl_ftoi stdlib segment para public 'slcode' extrn sl_ftoi:far stdlib ends endif slcall sl_ftoi endm ; ftou macro ifndef sl_ftou stdlib segment para public 'slcode' extrn sl_ftou:far stdlib ends endif slcall sl_ftou endm ; ftol macro ifndef sl_ftol stdlib segment para public 'slcode' extrn sl_ftol:far stdlib ends endif slcall sl_ftol endm ; ftoul macro ifndef sl_ftoul stdlib segment para public 'slcode' extrn sl_ftoul:far stdlib ends endif slcall sl_ftoul endm ; AccOp macro ifndef sl_AccOp stdlib segment para public 'slcode' extrn sl_AccOp:far stdlib ends endif slcall sl_AccOp endm ; XAccOp macro ifndef sl_XAccOp stdlib segment para public 'slcode' extrn sl_XAccOp:far stdlib ends endif slcall sl_XAccOp endm ; putf macro ifndef sl_Putf stdlib segment para public 'slcode' extrn sl_Putf:far stdlib ends endif slcall sl_Putf endm ; pute macro ifndef sl_Pute stdlib segment para public 'slcode' extrn sl_Pute:far stdlib ends endif slcall sl_Pute endm ; ; ; ;*************************************************************************** ; ; File I/O goodies ; fcreate macro ifndef sl_fcreate stdlib segment para public 'slcode' extrn sl_fcreate:far stdlib ends endif slcall sl_fcreate endm ; fopen macro ifndef sl_fopen stdlib segment para public 'slcode' extrn sl_fopen:far stdlib ends endif slcall sl_fopen endm ; fReadOn macro ifndef sl_fReadOn stdlib segment para public 'slcode' extrn sl_fReadOn:far stdlib ends endif slcall sl_fReadOn endm ; fReadOff macro ifndef sl_fReadOff stdlib segment para public 'slcode' extrn sl_fReadOff:far stdlib ends endif slcall sl_fReadOff endm ; fClose macro ifndef sl_fClose stdlib segment para public 'slcode' extrn sl_fClose:far stdlib ends endif slcall sl_fClose endm ; fFlush macro ifndef sl_fFlush stdlib segment para public 'slcode' extrn sl_fFlush:far stdlib ends endif slcall sl_fFlush endm ; fWriteOn macro ifndef sl_fWriteOn stdlib segment para public 'slcode' extrn sl_fWriteOn:far stdlib ends endif slcall sl_fWriteOn endm ; fWriteOff macro ifndef sl_fWriteOff stdlib segment para public 'slcode' extrn sl_fWriteOff:far stdlib ends endif slcall sl_fWriteOff endm ; fSeek macro ifndef sl_fSeek stdlib segment para public 'slcode' extrn sl_fSeek:far stdlib ends endif slcall sl_fSeek endm ; DOSHandle macro ifndef sl_DOSHandle stdlib segment para public 'slcode' extrn sl_DOSHandle:far stdlib ends endif slcall sl_DOSHandle endm ; fDel macro ifndef sl_fDel stdlib segment para public 'slcode' extrn sl_fDel:far stdlib ends endif slcall sl_fDel endm ; fRename macro ifndef sl_fRename stdlib segment para public 'slcode' extrn sl_fRename:far stdlib ends endif slcall sl_frename endm ; ; ; ; Intel hex conversion routine: ; ToHex macro ifndef sl_ToHex stdlib segment para public 'slcode' extrn sl_ToHex:far stdlib ends endif slcall sl_ToHex endm ; ARGC- Counts the command line parameters Argc macro ifndef sl_Argc stdlib segment para public 'slcode' extrn sl_Argc:far stdlib ends endif slcall sl_Argc endm ; ; Argv- Returns a specified cmd line parameter ; Argv macro ifndef sl_Argv stdlib segment para public 'slcode' extrn sl_Argv:far stdlib ends endif slcall sl_Argv endm ; GetEnv- Searches for an environment string: GetEnv macro ifndef sl_GetEnv stdlib segment para public 'slcode' extrn sl_GetEnv:far stdlib ends endif slcall sl_GetEnv endm ; Randomize- Randomizes the random number generator Randomize macro ifndef sl_randomize stdlib segment para public 'slcode' extrn sl_randomize:far stdlib ends endif slcall sl_randomize endm ; ; ; Random- Generates a random number and returns this number in AX ; Random macro ifndef sl_random stdlib segment para public 'slcode' extrn sl_random:far stdlib ends endif slcall sl_random endm ; ; ; CPUID- Returns CPU id in AX & BX ; CPUID macro ifndef sl_cpuid stdlib segment para public 'slcode' extrn sl_cpuid:far stdlib ends endif slcall sl_cpuid endm ; Structured Array Stuff: ; Equates for structured error return codes: AryNoError = 0 ;Should never occur AryTypeMismatch = 1 ;Array type mismatch AryOverflow = 2 ;Arithmetic overflow AryDiv0 = 3 ;Division by zero AryIllegalOp = 4 ;Illegal operation on array AryBounds = 5 ;Array index error AryMemory = 6 ;Memory allocation error AryBadDV = 7 ;Illegal dope vector AryNull = 8 ;Null pointer to array data ; Equates for defined structured array types SA_untyped = 0 SA_char = 1 SA_boolean = 2 SA_unsigned = 3 SA_integer = 4 SA_float = 5 SA_string = 6 SA_dv = 7 SAp_untyped = 80h SAp_char = 81h SAp_boolean = 82h SAp_unsigned = 83h SAp_integer = 84h SAp_float = 85h SAp_string = 86h SAp_dv = 87h ; DopeVector gives an approximate structure for the internal composition of ; a structured array data type. Approximate because the last field, ; DimensionList, may be several words long (it varies, containing NumDimen- ; sions words). In general, it is not a good idea to mess with the internal ; format of an array structure. However, for those programs which *must* ; tweak this stuff, it's always best to use these fields rather than numeric ; offsets into the structure. ; DopeVector struc ArrayData dd ? SizeInBytes dw ? ElementSize dw ? ArrayType db ? ;One of the element types defined above NumDimensions db ? DimensionList dw ? ;One word for each dimension DopeVector ends ; WHOA! This is a complex macro. It lets you allocate dope vectors for a ; structured array. See the STDLIB.TXT file for more details. array macro name, ElementSize, AryType, Dims, InitialValues local SizeDims, InitAry, NumElements ;; ;; First, allocate storage for the array pointer: ;; align dword ;Align for speed. name dd InitAry ;; ;; Count the number of dimensions and the size of the array: ;; SizeDims = 0 NumElements = 1 ifnb <Dims> irp ThisDim,<Dims> SizeDims = SizeDims+1 NumElements = NumElements * ThisDim endm ;; ;; Output the total number of bytes in this array: ;; dw NumElements*ElementSize ;; ;; Output the element size here: ;; dw ElementSize ;; ;; Output the type of each element here: ;; db AryType ;; ;; Make sure that the element size and type are compatible with one another: ;; if (AryType eq SA_char) if (ElementSize ne 1) %out Character array elements must be one byte each .err endif endif ;; if (AryType eq SA_boolean) if (ElementSize gt 2) %out Boolean array elements must be 1 or 2 bytes each .err endif endif ;; if (AryType eq SA_unsigned) if (ElementSize gt 4) %out Unsigned array elements must be 1, 2, or 4 bytes each .err endif if ElementSize eq 3 %out Unsigned array elements must be 1, 2, or 4 bytes each .err endif endif ;; if (AryType eq SA_integer) if ElementSize gt 4 %out Integer array elements must be 1, 2, or 4 bytes each .err endif if ElementSize eq 3 %out Integer array elements must be 1, 2, or 4 bytes each .err endif endif ;; if (AryType eq SA_float) if ElementSize ne 4 if ElementSize ne 8 if ElementSize ne 10 %out Float array elements must be 4, 8, or 10 bytes each .err endif endif endif endif ;; ;; Okay, output the number of dimensions: ;; db SizeDims ;; ;; Now output the size of each dimension: ;; irp ThisDim,<Dims> dw ThisDim endm ;; ;; If there are initial values, build the array here: ;; ifnb <InitialValues> ;; ;; If there are a set of initial values, build the actual array ;; immediately following the smart array data structure: ;; InitAry equ this byte ;; ;; The following loop repeats until we've output as many elements as ;; are present in the array. Note that this may be less, more, or the ;; same number of items present in the initial values list. ;; ExitWhen0 guarantees that we don't output too many values. ;; ExitWhen0 = NumElements ;; ;; The following loop ensures that the output *at least* enough items to ;; the array. It will repeat more than once if the inital value list contains ;; fewer elements than are needed for the actual array. ;; rept NumElements ;; ;; This loop processes each item in the initial list. Note that it may ;; terminate early if there are more items in the list than there are ;; array elements. By the same token, this loop may get restarted over and ;; over again if there are fewer elements in the list than in the actual array. ;; irp ThisValue, <InitialValues> ;; ;; Kludge to handle different types! ;; if ElementSize eq 1 db ThisValue else if ElementSize eq 2 dw ThisValue else if ElementSize eq 4 dd ThisValue else if ElementSize eq 8 dq ThisValue else if ElementSize eq 10 dt ThisValue else if ThisValue ne 0 %out If the element size is not 1, 2, 4, 8, or 10 %out then the initial values, if present, must all %out be zero. .err else db ElementSize dup (0) endif endif endif endif endif endif ;; ;; Well, we've just processed another initial value. Check to see if we've ;; processed all the array elements: ;; ExitWhen0 = ExitWhen0 - 1 if ExitWhen0 eq 0 exitm ;;Quit irp macro endif ;; endm ;;End of IRP ;; ;; Two situations force the end of the IRP loop above: either we've ;; exhausted the items in the initial values list, or we've filled the ;; array. At this point, check to make sure we haven't filled the array. ;; if ExitWhen0 eq 0 exitm ;;Quit REPT macro. endif ;; endm ;;End of REPT. ;; ;; ;; If the initial values list is blank, drop down here! ;; else ;; ;; If the user did not specify a set of initial values, initialize the ;; array pointer to NIL: ;; InitAry = 0 endif else ;; ;; If the DIMS parameter was not present, generate an error here: ;; %out Error in ARRAY declaration, must have array bounds. err endif endm ; The following opcodes are for the VectOuter, VectScalar, MatOp, and ; AryInner routines vopUser = 0 vopPlus = 2 vopMinus = 4 vopMul = 6 vopDiv = 8 vopMod = 10 vopAnd = 12 vopOr = 14 vopXor = 16 vopEQ = 18 vopNE = 20 vopGE = 22 vopGT = 24 vopLT = 26 vopLE = 28 vopMin = 30 vopMax = 32