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 / BASIC / UBAS821.ZIP / UB.MAC < prev next >

Wrap

Text File | 1990-11-04 | 3.4 KB | 261 lines

;UB.MAC ; MACRO LIBRARY FOR ; UBASIC USER MAKING ROUTINE ; SYSTBL EQU 0000H LSIZE EQU 0040H ;özù±Æ╖ò╧Éöé╠ BYTE Éöé¬Åæéóé─éáéΘ LLSIZE EQU 0042H ;özù±ô┴ò╩ò╧Éöé╠ BYTE Éöé¬Åæéóé─éáéΘ CALCSP EQU 0044H ;îvÄZâXâ^âbâNé╠â|âCâôâ^é¬éáéΘ POINT EQU 0046H ;POINT ARRAYHEADSEG EQU 2 ;özù±é╠HEADERò¬é╠SEGMENT ;bit masks for attribute word attribmask equ 0111110000000000b attribmaskhigh equ 01111100b lenmask equ 0000001111111111b lenmaskhigh equ 00000011b pointmask equ 0100000000000000b pointmaskhigh equ 01000000b complexmask equ 0010000000000000b complexmaskhigh equ 00100000b ratmask equ 0001000000000000b ratmaskhigh equ 00010000b stringmask equ 0000100000000000b stringmaskhigh equ 00001000b packmask equ 0000010000000000b packmaskhigh equ 00000100b polymask equ 0000110000000000b polymaskhigh equ 00001100b modpolymask equ 0001100000000000b modpolymaskhigh equ 00011000b ; parameter address V1 EQU 0080H V2 EQU 0084H V3 EQU 0088H V4 EQU 008CH V5 EQU 0090H V6 EQU 0094H V7 EQU 0098H V8 EQU 009CH V9 EQU 00A0H V10 EQU 00A4H V11 EQU 00A8H V12 EQU 00ACH V13 EQU 00B0H V14 EQU 00B4H V15 EQU 00B8H V16 EQU 00BCH V17 EQU 00C0H V18 EQU 00C4H V19 EQU 00C8H V20 EQU 00CCH V21 EQU 00D0H V22 EQU 00D4H V23 EQU 00D8H V24 EQU 00DCH V25 EQU 00E0H V26 EQU 00E4H V27 EQU 00E8H V28 EQU 00ECH V29 EQU 00F0H V30 EQU 00F4H V31 EQU 00F8H V32 EQU 00FCH AR0 EQU 0020H AR1 EQU 0022H AR2 EQU 0024H AR3 EQU 0026H AR4 EQU 0028H AR5 EQU 002AH AR6 EQU 002CH AR7 EQU 002EH ;FUNCTION CODE SGN EQU 1 LEN EQU 2 BIT EQU 3 GCD EQU 4 SQR EQU 5 ISQR EQU 6 FIX EQU 7 KRO EQU 8 SIN EQU 9 COS EQU 10 EXP EQU 11 LOG EQU 12 PAI EQU 13 PRM EQU 14 MOB EQU 15 EUL EQU 16 PRMDIV EQU 17 MODPOW EQU 26 MODINV EQU 27 INT EQU 28 ALEN EQU 29 NXTPRM EQU 30 MAX EQU 31 MIN EQU 32 SFT EQU 33 MOV_AX MACRO PARAM DB 2EH ;CS: DB 0A1H ;MOV AX,[PARAM] DW PARAM ENDM MOV_BX MACRO PARAM DB 2EH ;CS: DB 8BH ;MOV BX,[PARAM] DB 1EH DW PARAM ENDM LDS_SI MACRO PARAM DB 2EH ;CS: DB 0C5H,36H DW PARAM ENDM LES_DI MACRO PARAM DB 2EH ;CS: DB 0C4H,3EH DW PARAM ENDM CALL_F MACRO PARAM DB 36H ;SS: DB 0FFH,1EH DW PARAM ENDM @LET MACRO DEST,SORC LDS_SI SORC LES_DI DEST MOV CX,[SI] AND CX,lenmask INC CX CLD REP MOVSW ENDM @PUSH MACRO SORC LDS_SI SORC CALL_F SYSTBL+4 ENDM @POP MACRO DEST LES_DI DEST CALL_F SYSTBL+8 ENDM @ADD MACRO CALL_F SYSTBL+32 ;8*4 ENDM @SUB MACRO CALL_F SYSTBL+36 ;9*4 ENDM @MUL MACRO CALL_F SYSTBL+40 ;10*4 ENDM @DIV MACRO CALL_F SYSTBL+44 ;11*4 ENDM @IDIV MACRO CALL_F SYSTBL+48 ;12*4 ENDM @MOD MACRO CALL_F SYSTBL+52 ;13*4 ENDM @P2 MACRO CALL_F SYSTBL+56 ;14*4 ENDM @FUNC MACRO FUNCNAME MOV AX,SS MOV DS,AX MOV ES,AX MOV AL,FUNCNAME CALL_F SYSTBL ENDM @DUMPUSH MACRO MOV_BX CALCSP MOV_AX LLSIZE SUB SS:[BX],AX ENDM @DUMPOP MACRO MOV_BX CALCSP MOV_AX LLSIZE ADD SS:[BX],AX ENDM RETF MACRO DB 0CBH ENDM RETURN MACRO MOV AX,SS MOV DS,AX MOV ES,AX RETF ;DB 0CBH CODE ENDS END START ENDM JMPS MACRO DEST JMP SHORT DEST ENDM JMPE MACRO DEST LOCAL LAB JNE LAB JMP DEST LAB: ENDM .LIST CODE SEGMENT ASSUME CS:CODE,DS:CODE ORG 100H START: