;----------------------------------------------------------------------- ; ; Assembly Language Macros Version 0.1 ; Written by: Malcolm McCorquodale III Houston, Texas 713-626-4979 ; ; (c) 1984 by Malcolm McCorquodale III All commercial rights reserved. ; ; This software is distributed using the "FREE-SOFTWARE" concept. ; If you find these macros useful send whatever contribution you ; deem appropriate to: ; ; Malcolm McCorquodale III ; 3470 Locke Lane, ; Houston Texas 77027. ; (713) 626 - 4979 ; ;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; General Purpose Macros ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; SAVE Pushes 1 to 8 parameters. ;; Parameters p2 through p8 are optional. ;; ;;----------------------------------------------------------------------- SAVE MACRO P1,P2,P3,P4,P5,P6,P7,P8 IRP X, IFNB PUSH X ENDIF ENDM ENDM ;;----------------------------------------------------------------------- ;; ;; RESTORE Pops 1 to 8 parameters. ;; Parameters p2 through p8 are optional. ;; ;;----------------------------------------------------------------------- RESTORE MACRO P1,P2,P3,P4,P5,P6,P7,P8 IRP X, IFNB POP X ENDIF ENDM ENDM ;;----------------------------------------------------------------------- ;; ;; PRINT - Writes msg on the screen. ;; ;; No registers destroyed. ;; ;;----------------------------------------------------------------------- PRINT MACRO MSG ; Print message on the screen. LOCAL TEXT,PEXIT SAVE DS,DX MOV DX,CS MOV DS,DX MOV DX,OFFSET TEXT MOV AH,9 INT 21H RESTORE DX,DS JMP PEXIT TEXT DB MSG,'$' PEXIT: ENDM ;;----------------------------------------------------------------------- ;; ;; The macros below this point have not been fully tested. MM. ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; TERMINATE - End program and return to caller. ;; ;;----------------------------------------------------------------------- TERMINATE MACRO ; End of program. INT 20H ENDM ;;----------------------------------------------------------------------- ;; ;; RWABS ,,, ;; - 'R' for read, 'W' for write. ;; - drive number. ;; - number of sectors to transfer. ;; - Begining logical sector number. ;; ;; Read and write absolute sectors. ;; ;; Note: 1) Status information is returned in flags, After the ;; flags are sampled they should be poped off the stack ;; with a POPF. ;; ;; 2) DS:DX must point to the DTA before this call. ;; ;;----------------------------------------------------------------------- RWABS MACRO RW,DRIVE,NOFSECT,BEG ; R/W absolute disk sector. SAVE BX,CX,DX MOV AL,DRIVE MOV CX,NOFSECT MOV DX,BEG IFIDN ,<'R'> INT 25H ENDIF IFIDN ,<'W'> INT 26H ENDIF RESTORE DX,CX,BX ENDM ;;----------------------------------------------------------------------- ;; ;; ADDTODOS - Add the current proc to DOS. ;; ;; Note: is a label at the highest memory address ;; used by your code. ;; ;;----------------------------------------------------------------------- ADDTODOS MACRO DOSEND ; Add a procedure to DOS. MOV DX,DOSEND INC DX INT 27H ENDM ;;----------------------------------------------------------------------- ;; ;; DOSRS232 ;; Sends or receives a to/from the standard RS232 port. ;; ;; If is specified then it is sent to the RS232 port. ;; If is not specified then a character is read into AL. ;; ;; OUTPUT: If receiving data AL will contain the byte received. ;; ;; All registers saved. ;; ;;----------------------------------------------------------------------- DOSRS232 MACRO CHAR SAVE AH,DL IFB MOV AH,3 ; Receive a character from the RS232 port. ELSE MOV AH,4 ; Send a character to the RS232 port. ENDIF INT 21H RESTORE DL,AH ENDM ;;----------------------------------------------------------------------- ;; ;; PRINT1 - Send to the standard printer. ;; ;; No registers destroyed. ;; ;;----------------------------------------------------------------------- PRINT1 MACRO CHAR ; Send a character to the printer. SAVE AH,DL MOV DL,CHAR MOV AH,5 INT 21H RESTORE DL,AH ENDM ;;----------------------------------------------------------------------- ;; ;; INPUTSTR ,,[] ;; - Length of input buffer. ;; - Offset from to message buffer. ;; - Optional segment for input buffer. ;; ;; Input a string ending with a RETURN from the standard ;; input device. ;; ;; No registers destroyed except DS:DX which points to ;; input buffer on output. ;; ;; On exit: DS:DX will have :. ;; Byte 1 of buffer = Size of buffer. ;; Byte 2 of buffer = Number of bytes read w/o c/r. ;; Byte 3 of buffer = Start of text read. ;; ;;----------------------------------------------------------------------- INPUTSTR MACRO LEN,BUFOFF,BUFSEG ; Get a line of text. PUSH AH IFNB MOV DX,BUFSEG MOV DS,DX ENDIF MOV DX,BUFOFF MOV [DX],LEN MOV AH,0AH INT 21H POP AH ENDM ;;----------------------------------------------------------------------- ;; ;; POLLSTDIN - Check the status of the standard input device. ;; ;; On exit: AL = 0FFH - Character is available. ;; 00H - Character not available. ;; ;; Note: This routine executes an INT 23H if a ctl-brk ;; is detected. ;; ;; No registesrs destroyed. ;; ;;----------------------------------------------------------------------- POLLSTDIN MACRO ; Poll the standard input device. PUSH AH MOV AH,0BH INT 21H POP AH ENDM ;;----------------------------------------------------------------------- ;; ;; CLRSTDIN - Clear standard input buffer then execute ;; function . ;; may be 1 - Keyboard input. ;; 6 - Direct Console I/O. ;; 7 - Direct Console Input w/o Echo. ;; 8 - Console Input w/o Echo. ;; A - Buffered Keyboard Input. ;; ;; No registers destroyed except AX. ;; ;;----------------------------------------------------------------------- CLRSTDIN MACRO FUNC ; Clear the standard input device. MOV AL,FUNC MOV AH,0CH INT 21H ENDM ;;----------------------------------------------------------------------- ;; ;; DISKRESET - Flushes all file buffers. ;; ;;----------------------------------------------------------------------- DISKRESET MACRO ; Reset the disk. PUSH AH MOV AH,0DH INT 21H POP AH ENDM ;;----------------------------------------------------------------------- ;; ;; PICKDRIVE - Select the default disk drive. ;; ;; Input: 0 = Drive A, 1 = Drive B, etc. ;; ;; Output: AL = number of drives. Minimum=2. ;; ;; No registers destroyed. ;; ;;----------------------------------------------------------------------- PICKDRIVE MACRO DRIVE ; Pick the default disk drive. SAVE DL,AH MOV DL,DRIVE MOV AH,0EH INT 21H RESTORE AH,DL ENDM ;;----------------------------------------------------------------------- ;; ;; FINDRIVE - Determine the default drive. ;; ;; Output: AL = 0 = Drive A, 1 = Drive B, etc. ;; ;; No registers destroyed except AL. ;; ;;----------------------------------------------------------------------- FINDRIVE MACRO ; Find the default disk drive. PUSH AH MOV AH,19H INT 21H POP AH ENDM ;;----------------------------------------------------------------------- ;; ;; SETDTA - Set the DTA. ;; ;; On input: DS:DX must point to new DTA. ;; ;;----------------------------------------------------------------------- SETDTA MACRO ; Set the DTA. PUSH AH MOV AH,1AH INT 21H POP AH ENDM ;;----------------------------------------------------------------------- ;; ;; ALLOCTAB - Get pointer to FAT ID byte. ;; ;; If is specified then the pointer to the FAT ID ;; for drive is returned. ;; If is not specified then a pointer to the FAT ID ;; byte for the default drive is returned. ;; ;; Output: [DS:BX] = FAT ID byte. ;; DX = Number of allocation units. ;; AL = Number of sectors per allocation unit. ;; CX = Size of the physical sector. ;; ;;----------------------------------------------------------------------- ALLOCTAB MACRO DRIVE PUSH AH IFB MOV AH,1BH ; Get FAT ID for default drive. ELSE MOV AH,1CH ; Get FAT ID for specified drive. MOV DL,DRIVE ENDIF INT 21H POP AH ENDM ;;----------------------------------------------------------------------- ;; ;; CHANGEINT ,, - If and are specified then ;; interupt vector is set to :. If and ;; are not specified then interupt vector is ;; returned in ES:BX. ;; ;; All registers saved except ES and BX when a GET VECTOR ;;----------------------------------------------------------------------- CHANGEINT MACRO INT,SEG,OFF PUSH AX MOV AL,INT IFNB MOV AH,25H ; Set interupt vector. MOV DX,SEG MOV DS,DX MOV DX,OFF ELSE MOV AH,35H ; Get interupt vector. ENDIF INT 21H POP AX ENDM ;;----------------------------------------------------------------------- ;; ;; GETDATE - Return the date in CX:DX. CX has the year (1980-2099) in bi ;; in binary. DH has the month (1-0C). DL has the day. ;; All registers preserved ;; ;;----------------------------------------------------------------------- GETDATE MACRO ; Get the date. PUSH AH MOV AH,2AH INT 21H POP AH ENDM ;;----------------------------------------------------------------------- ;; ;; SETDATE ,, - Set the date. is 1980..2099. ;; is 1..0CH. is 1..31. On return: AL = 00 = sucess ;; AL = 0FFH = failure. ;; ;;----------------------------------------------------------------------- SETDATE MACRO YR,MO,DAY ; Set the date. SAVE CX,DX,AH MOV AH,2BH MOV CX,YR MOV DH,MO MOV DL,DAY INT 21H RESTORE AH,DX,CX ENDM ;;----------------------------------------------------------------------- ;; ;; GETTIME - Get the time of day. Returns CX:DX. CH = hours (0..23), ;; CL = minutes (0..59), DH = seconds (0..59), DL = 1/100 ;; seconds (0..99). ;; ;;----------------------------------------------------------------------- GETTIME MACRO ; Get the time. PUSH AH MOV AH,2CH INT 21H POP AH ENDM ;;----------------------------------------------------------------------- ;; ;; SETTIME
,,, - Set the time. ;; ;;----------------------------------------------------------------------- SETTIME MACRO HR,MIN,SEC,SEC100 ; Set the time. SAVE CX,DX,AH MOV AH,2D MOV CH,HR MOV CL,MIN MOV DH,SEC MOV DL,SEC100 INT 21H RESTORE AH,DX,CX ENDM ;;----------------------------------------------------------------------- ;; ;; VERIFY - Set or reset the verify flag. ;; ;; may be either 'ON', 'OFF' or 'QUERY'. ;; For 'OFF' and 'ON' all regs are ;; saved. For 'QUERY' AL returns 00 if off, 01 if on. ;; ;; OUTPUT: If is 'QUERY' then: AL = 0 for verify off ;; 1 for verify on ;; All registers saved if is not 'QUERY' else AL destroyed. ;; ;;----------------------------------------------------------------------- VERIFY MACRO FLAG IFIDN ,<'OFF'> ; TURN VERIFY SWITCH OFF. SAVE AX,DL XOR DL,DL XOR AL,AL MOV AH,2EH INT 21H RESTORE DL,AX ENDIF IFIDN ,<'ON'> ; TURN VERIFY SWITCH ON. SAVE AX,DL XOR DL,DL MOV AL,1 MOV AH,2EH INT 21H RESTORE DL,AX ENDIF IFIDN ,<'QUERY'> ; QUERY VERIFY SWITCH. PUSH AH MOV AH,54H INT 21H POP AH ENDIF ENDM ;;----------------------------------------------------------------------- ;; ;; GETDTA - Get DTA (Data Transfer Area). On return - ES:BX has address ;; of DTA. ;; ;;----------------------------------------------------------------------- GETDTA MACRO ; Get address of DTA. PUSH AH MOV AH,2FH INT 21H POP AH ENDM ;;----------------------------------------------------------------------- ;; ;; VERSION - Get PC-DOS version number. ;; ;; OUTPUT: AL = major version number, ;; AH = minor version number. ;; If AL = 0 then assume pre DOS 2.0 ;; ;;----------------------------------------------------------------------- VERSION MACRO ; Get PC-DOS version number. MOV AH,30H INT 21H ENDM ;;----------------------------------------------------------------------- ;; ;; KEEP ,, - Terminate this program but stay resident. ;; ;; = The return code for this program. ;; = The begining address of the program. ;; = The last byte plus one used by the program. ;; This number is divided by 16 to determine the memory ;; size in paragraphs required. ;; Registers may not be passed for and . ;; ;;----------------------------------------------------------------------- KEEP MACRO RC,BEG,FIN MOV AL,RC MOV DX,(FIN-BEG)/16 MOV AH,31H INT 21H ENDM ;;----------------------------------------------------------------------- ;; ;; CTL_BRK - Read or write the current CTL-BRK state. ;; ;; - Is either 'ON', 'OFF' or not specified. ;; ;; If flag is not specified then current CTL-BRK state is ;; returned in DL. ;; ;; All registers saved if is specified elss DL is destroyed. ;; ;;----------------------------------------------------------------------- CTL_BRK MACRO FLAG ; R/W CTRL-BREAK status flag. PUSH AX MOV AH,33H IFB XOR AL,AL ELSE MOV AL,1 ENDIF IFNB IFIDN ,<'OFF'> XOR DL,DL ENDIF IFIDN ,<'ON'> MOV DL,1 ENDIF ENDIF INIT 21H POP AX ENDM ;;----------------------------------------------------------------------- ;; ;; DISKAVAIL ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; ;; ;;----------------------------------------------------------------------- ;;----------------------------------------------------------------------- ;; ;; ;; ;;----------------------------------------------------------------------- ;;;;;; test prog assume cs:cseg,ds:cseg,es:cseg cseg segment para 'code' x proc far push ds xor ax,ax push ax writeln 'a message' ;; test writeln, save, restore. ret x endp cseg ends end