|
|
; * * * * * * * * * * * * START OF SPECIFICATIONS * * * * * * * * * * * * * * *;; MODULE NAME: MSGSERV.SAL;; DESCRIPTIVE NAME: Message Services SALUT file;; FUNCTION: This module incorporates all the messages services and; is called upon at build time to INCLUDE the code requested; by a utility. Code is requested using the macro MSG_SERVICES.;; ENTRY POINT: Since this a collection of subroutines, entry point is at; requested procedure.;; INPUT: Since this a collection of subroutines, input is dependent on function; requested.;; EXIT-NORMAL: In all cases, CARRY FLAG = 0;; EXIT-ERROR: In all cases, CARRY FLAG = 1;; INTERNAL REFERENCES: (list of included subroutines);; - SYSLOADMSG; - SYSDISPMSG; - SYSGETMSG;;; EXTERNAL REFERENCES: None;; NOTES: At build time, some modules must be included. These are only included; once using assembler switches. Other logic is included at the request; of the utility.;; COMR and COMT are assembler switches to conditionally assemble code; for RESIDENT COMMAND.COM and TRANSIENT COMMAND.COM to reduce resident; storage and multiple EQUates.;; REVISION HISTORY: Created MAY 1987;; Label: DOS - - Message Retriever; (c) Copyright 1988 Microsoft;;; * * * * * * * * * * * * END OF SPECIFICATIONS * * * * * * * * * * * * * * * *; Page
$SALUT $M (2,5,22,62) ;;AN000;; Set SALUT formatting
IF $M_STRUC ;;AN000;; IF we haven't included the structures yet THEN $M_STRUC = FALSE ;;AN000;; Let the assembler know that we have ;;AN000;; and include them
PAGE SUBTTL DOS - Message Retriever - MSGSTR.INC Module;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; STRUCTURE: $M_SUBLIST_STRUC;;;; Replacable parameters are described by a sublist structure;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_SUBLIST_STRUC STRUC ;;AN000;; ;; $M_S_SIZE DB 11 ;;AN000;; SUBLIST size (PTR to next SUBLIST) $M_S_RESV DB 0 ;;AN000;; RESERVED $M_S_VALUE DD ? ;;AN000;; Time, Date or PTR to data item $M_S_ID DB ? ;;AN000;; n of %n $M_S_FLAG DB ? ;;AN000;; Data-type flags $M_S_MAXW DB ? ;;AN000;; Maximum field width $M_S_MINW DB ? ;;AN000;; Minimum field width $M_S_PAD DB ? ;;AN000;; Character for Pad field ;;$M_SUBLIST_STRUC ENDS ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; STRUCTURE: $M_CLASS_ID;;;; Each class will be defined by this structure.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_CLASS_ID STRUC ;;AN000;; ;; $M_CLS_ID DB -1 ;;AN000;; Class identifer $M_COMMAND_VER DW EXPECTED_VERSION ;;AN003;; COMMAND.COM version check $M_NUM_CLS_MSG DB 0 ;;AN000;; Total number of message in class ;;$M_CLASS_ID ENDS ;; ;;AN000;; $M_CLASS_ID_SZ EQU SIZE $M_CLASS_ID ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; STRUCTURE: $M_ID_STRUC;;;; Each message will be defined by this structure.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_ID STRUC ;;AN000;; ;; $M_NUM DW -1 ;;AN000;; Message Number $M_TXT_PTR DW ? ;;AN000;; Pointer to message text ;;$M_ID ENDS ;;AN000;; ;;AN000;; Status Flag Values: $M_ID_SZ EQU SIZE $M_ID ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; STRUCTURE: $M_RES_ADDRS;;;; Resident data area definition of variables;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_RES_ADDRS STRUC ;;AN000;; ;; $M_EXT_ERR_ADDRS DD 0 ;;AN000;; Allow pointers to THREE Extended error locations $M_EXT_FILE DD 0 ;;AN001;; $M_EXT_COMMAND DD 0 ;;AN000;; $M_EXT_TERM DD -1 ;;AN000;; $M_PARSE_COMMAND DD 0 ;;AN000;; $M_PARSE_ADDRS DD 0 ;;AN000;; Allow pointers to TWO Parse error locations $M_PARSE_TERM DD -1 ;;AN000;; $M_CRIT_ADDRS DD 0 ;;AN000;; Allow pointers to TWO Critical error locations $M_CRIT_COMMAND DD 0 ;;AN000;; $M_CRIT_TERM DD -1 ;;AN000;; $M_DISK_PROC_ADDR DD -1 ;;AN004;; Address of READ_DISK_PROC $M_CLASS_ADDRS DD $M_NUM_CLS DUP(0) ;;AN000;; Allow pointers to specified classes $M_CLS_TERM DD -1 ;;AN000;; $M_DBCS_VEC DD 0 ;;AN000;; Save DBCS vector $M_HANDLE DW ? ;;AN000;; $M_SIZE DB 0 ;;AN000;; $M_CRLF DB 0DH,0AH ;;AN004;; CR LF message $M_CLASS DB ? ;;AN004;; Saved class $M_RETURN_ADDR DW ? ;;AN000;; $M_MSG_NUM DW $M_NULL ;;AN000;; $M_DIVISOR DW 10 ;;AN000;; Default = 10 (must be a WORD for division) $M_TEMP_BUF DB $M_TEMP_BUF_SZ DUP("$") ;;AN000;; Temporary buffer $M_BUF_TERM DB "$" ;;AN000;;
$M_RES_ADDRS ENDS ;;AN000;; ;;$M_RES_ADDRS_SZ EQU SIZE $M_RES_ADDRS ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; STRUCTURE: $M_COUNTRY_INFO;;;; Important fields of the Get Country Information call;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_COUNTRY_INFO STRUC ;;AN000;; Expected Country infomation ;; $M_HEADER DB $M_RES_ADDRS_SZ-$M_TEMP_BUF_SZ-1 DUP(?) ;;AN000;; Go past first part of struc $M_DATE_FORMAT DW ? ;;AN000;; <------- Date Format $M_CURR_SEPARA DB 5 DUP(?) ;;AN000;; $M_THOU_SEPARA DB ?,0 ;;AN000;; <------- Thou Separator $M_DECI_SEPARA DB ?,0 ;;AN000;; <------- Decimal Separator $M_DATE_SEPARA DB ?,0 ;;AN000;; <------- Date Separator $M_TIME_SEPARA DB ?,0 ;;AN000;; <------- Time Separator $M_CURR_FORMAT DB ? ;;AN000;; $M_SIG_DIGS_CU DB ? ;;AN000;; $M_TIME_FORMAT DB ? ;;AN000;; <------- Time Format ;;$M_COUNTRY_INFO ENDS ;;AN000;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;ELSE ;;AN000;; ELSE if we have already included the STRUCTURES; $SALUT $M (2,5,13,62) ;;AN000;; Set SALUT formatting for code section
IF MSGDATA ;;AN000;; IF this is a request to include the data area MSGDATA = FALSE ;;AN000;; Let the assembler know not to include it again ;;AN000;; and include it PAGE SUBTTL DOS - Message Retriever - MSGRES.TAB Module;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DATA NAME: $M_RES_TABLE;;;; REFERENCE LABEL: $M_RT;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;IF COMR ;;AN000;; Since COMMAND.COM includes this twice $M_RT EQU $M_RT2 ;;AN000;; we must redefine the label so no $M_RT2 LABEL BYTE ;;AN000;; assembly errors occur $M_ALTLABEL = TRUE ;;AN000;; Flag that label was changedELSE ;;AN000;; $M_RT LABEL BYTE ;;AN000;;ENDIF ;;AN000;; $M_RES_ADDRS <> ;;AN000;; Resident addresses ;; include COPYRIGH.INC ;;AN001;; Include Copyright 1988 Microsoft ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include of Data table
; IF NOT $M_MSGDATA_ONLY ;;AN000;; IF this was a request for only the data table THEN ;; don't include any more code ;;AN000;; Figure out what other code to include IF DISK_PROC ;;AN003;; Is the request to include the READ_DISK code IF COMR ;;AN003;; (Only Resident COMMAND.COM should ask for it) $M_RT EQU $M_RT2 ;;AN003;; ENDIF DISK_PROC = FALSE ;;AN003;; Yes, THEN include it and reset flag PAGE SUBTTL DOS - Message Retriever - DISK_PROC Module;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: DISK_PROC;;;; FUNCTION: Used in COMMAND.COM if we need to access the Parse or Extended;; errors from disk\diskette;; INPUTS: AX has the message number;; DX has the message class;; AND ... the COMMAND.COM Variable RESGROUP:COMSPEC is;; assumed to be set!!;;;; OUTPUTS: ES:DI points to message length (BYTE) followed by text;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; PUBLIC READ_DISK_PROC ;; ;;READ_DISK_PROC PROC FAR ;;AN003;;
PUSH AX ;;AN003;; Save everything PUSH BX ;;AN003;; PUSH DX ;;AN003;; PUSH SI ;;AN003;; PUSH BP ;;AN003;; PUSH DS ;;AN003;; PUSH DI ;;AN003;; MOV BP,AX ;;AN003;; Save message number MOV AX,DOS_EXTENDED_OPEN ;;AN003;; Set INT 21 function LEA SI,RESGROUP:COMSPEC ;;AN003;; Get addressibilty to COMMAND.COM PUSH CS ;;AN003;; POP DS ;;AN003;; MOV DI,-1 ;;AN003;; No extended attribute list MOV BX,NO_CRIT_OPEN ;;AN003;; Don't generate critical error MOV DX,NOT_EX_FAIL_EX_OPEN ;;AN003;; Open Flag INT 21H ;;AN003;; Open the file POP DI ;;AN003;; Retreive LSEEK pointer ;;AN003;; Error ? $IF NC,LONG ;;AN003;; No, PUSH DI ;;AN003;; Save LSEEK pointer MOV BX,AX ;;AN003;; Set handle in BX MOV AX,DOS_LSEEK_FILE ;;AN003;; LSEEK to the errors XOR CX,CX ;;AN003;; Value has been set by COMMAND.COM MOV DX,DI ;;AN003;; INT 21H ;;AN003;; LSEEK the file POP DX ;;AN003;; Retreive LSEEK pointer ;;AN003;; Error ? $IF NC ;;AN003;; No, INC CX ;;AN003;; Set flag to first pass $DO ;;AN003;; PUSH DX ;;AN003;; Save LSEEK pointer PUSH CX ;;AN003;; Save first pass flag PUSH AX ;;AN003;; Save number of messages (if set yet) XOR SI,SI ;;AN003;; Reset buffer index MOV AH,DOS_READ_BYTE ;;AN003;; Read MOV CX,$M_TEMP_BUF_SZ ;;AN003;; the first part of the header LEA DX,$M_RT.$M_TEMP_BUF ;;AN003;; into the temp buffer INT 21H ;;AN003;; Read it MOV DI,DX ;;AN003;; POP AX ;;AN003;; POP CX ;;AN003;; OR CX,CX ;;AN003;; $IF NZ ;;AN003;; XOR CX,CX ;;AN003;; Set flag to second pass XOR AH,AH ;;AN003;; Get number of messages in class MOV AL,DS:[DI].$M_NUM_CLS_MSG ;;AN003;; MOV SI,$M_CLASS_ID_SZ ;;AN003;; Initialize index CMP DS:[DI].$M_COMMAND_VER,EXPECTED_VERSION ;;AN003;; Is this the right version of COMMAND.COM? $ENDIF ;;AN003;; POP DX ;;AN003;; $IF Z ;;AN003;; Yes, $SEARCH ;;AN003;; CMP BP,WORD PTR $M_RT.$M_TEMP_BUF[SI] ;;AN003;; Is this the message I'm looking for? $EXITIF Z ;;AN003;; Yes, (ZF=1) CLC ;;AN003;; Reset carry, exit search $ORELSE ;;AN003;; No, (ZF=0) ADD SI,$M_ID_SZ ;;AN003;; Increment index ADD DX,$M_ID_SZ ;;AN003;; Add offset of first header DEC AX ;;AN003;; Decrement # of messages left $LEAVE Z ;;AN003;; Have we exhausted all messages? CMP SI,$M_TEMP_BUF_SZ-1 ;;AN003;; No, Have we exhausted the buffer? $ENDLOOP A ;;AN003;; No, Check next message (ZF=1) STC ;;AN003;; Yes, (ZF=0) set error (ZF=0) $ENDSRCH ;;AN003;; $ELSE ;;AN003;; No, XOR CX,CX ;;AN003;; Set Zero flag to exit READ Loop STC ;;AN003;; Set Carry $ENDIF ;;AN003;; $ENDDO Z ;;AN003;; Get next buffer full if needed ;;AN003;; Error ? $IF NC ;;AN003;; No, MOV AX,DOS_LSEEK_FILE ;;AN003;; Prepare to LSEEK to the specific message XOR CX,CX ;;AN003;; Value has been set by COMMAND.COM ADD DX,$M_CLASS_ID_SZ ;;AN003;; Add offset of first header ADD DX,WORD PTR $M_RT.$M_TEMP_BUF[SI]+2 ;;AN003;; Add offset from msg structure INT 21H ;;AN003;; LSEEK the file MOV AH,DOS_READ_BYTE ;;AN003;; Read MOV CX,$M_TEMP_BUF_SZ ;;AN003;; the message LEA DX,$M_RT.$M_TEMP_BUF ;;AN003;; into the temp buffer INT 21H ;;AN003;; Read it MOV DI,DX ;;AN003;; into the temp buffer PUSH DS ;;AN003;; into the temp buffer POP ES ;;AN003;; into the temp buffer $ENDIF ;;AN003;; $ENDIF ;;AN003;; PUSHF ;;AN003;; Close file handle MOV AH,DOS_CLOSE_FILE ;;AN003;; Close file handle INT 21H ;;AN003;; $M_POPF ;;AN003;; $ENDIF ;;AN003;; Yes there was an error, POP DS ;;AN003;; POP BP ;;AN003;; POP SI ;;AN003;; POP DX ;;AN003;; POP BX ;;AN003;; POP AX ;;AN003;; ;;AN003;; abort everything RET ;;AN003;;
READ_DISK_PROC ENDP ;;AN003;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN003;; END of include for DISK_PROC;
IF SETSTDIO ;;AN000;; Is the request to include the code for SETSTDIO SETSTDIO = FALSE ;;AN000;; Yes, THEN include it and reset flag PAGE SUBTTL DOS - Message Retriever - SETSTDIO Module;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: SETSTDIO;;;; FUNCTION:;; INPUTS:;;;; OUPUTS:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;IF FARmsg ;AN001; SETSTDINON PROC FAR ;AN001;ELSE ;AN001; SETSTDINON PROC NEAR ;AN001;ENDIF ;AN001; PUSH AX ;AN002; Save changed regs PUSH BX ;AN002; PUSH DX ;AN002; MOV AX,DOS_IOCTL_GET_INFO ;AN001; Get info using IOCTL MOV BX,STDIN ;AN001; XOR DX,DX ;AN001; INT 21H ;AN001;
OR DH,$M_CRIT_ERR_MASK ;AN001; Turn on bit MOV AX,DOS_IOCTL_SET_INFO ;AN001; Set info using IOCTL INT 21H ;AN001; POP DX ;AN002; Restore Regs POP BX ;AN002; POP AX ;AN002;
RET ;AN001; ;AN001; SETSTDINON ENDP ;AN001;
IF FARmsg ;AN001; SETSTDINOFF PROC FAR ;AN001;ELSE ;AN001; SETSTDINOFF PROC NEAR ;AN001;ENDIF ;AN001;
PUSH AX ;AN002; Save changed regs PUSH BX ;AN002; PUSH DX ;AN002; MOV AX,DOS_IOCTL_GET_INFO ;AN001; Get info using IOCTL MOV BX,STDIN ;AN001; XOR DX,DX ;AN001; INT 21H ;AN001;
AND DH,NOT $M_CRIT_ERR_MASK ;AN001; Turn off bit MOV AX,DOS_IOCTL_SET_INFO ;AN001; Set info using IOCTL INT 21H ;AN001; POP DX ;AN002; Restore Regs POP BX ;AN002; POP AX ;AN002;
RET ;AN001;
SETSTDINOFF ENDP ;AN001;
IF FARmsg ;AN001; SETSTDOUTON PROC FAR ;AN001;ELSE ;AN001; SETSTDOUTON PROC NEAR ;AN001;ENDIF ;AN001;
PUSH AX ;AN002; Save changed regs PUSH BX ;AN002; PUSH DX ;AN002; MOV AX,DOS_IOCTL_GET_INFO ;AN001; Get info using IOCTL MOV BX,STDOUT ;AN001; XOR DX,DX ;AN001; INT 21H ;AN001;
OR DH,$M_CRIT_ERR_MASK ;AN001; Turn on bit MOV AX,DOS_IOCTL_SET_INFO ;AN001; Set info using IOCTL INT 21H ;AN001; POP DX ;AN002; Restore Regs POP BX ;AN002; POP AX ;AN002;
RET ;AN001;
SETSTDOUTON ENDP ;AN001;
IF FARmsg ;AN001; SETSTDOUTOFF PROC FAR ;AN001;ELSE ;AN001; SETSTDOUTOFF PROC NEARENDIF ;AN001;
PUSH AX ;AN002; Save changed regs PUSH BX ;AN002; PUSH DX ;AN002; MOV AX,DOS_IOCTL_GET_INFO ;AN001; Get info using IOCTL MOV BX,STDOUT ;AN001; XOR DX,DX ;AN001; INT 21H ;AN001;
AND DH,NOT $M_CRIT_ERR_MASK ;AN001; Turn off bit MOV AX,DOS_IOCTL_SET_INFO ;AN001; Set info using IOCTL INT 21H ;AN001; POP DX ;AN002; Restore Regs POP BX ;AN002; POP AX ;AN002;
RET ;AN001;
SETSTDOUTOFF ENDP ;AN001;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include for SETSTDIO; IF LOADmsg ;;AN000;; Is the request to include the code for SYSLOADMSG ? IF COMR ;;AN000;; $M_RT EQU $M_RT2 ;;AN000;; ENDIF LOADmsg = FALSE ;;AN000;; Yes, THEN include it and reset flag PAGE SUBTTL DOS - Message Retriever - LOADMSG.ASM Module;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: SYSLOADMSG;;;; FUNCTION:;; INPUTS:;;;; OUPUTS:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;IF FARmsg ;;AN000;; SYSLOADMSG PROC FAR ;;AN000;;ELSE ;;AN000;; SYSLOADMSG PROC NEAR ;;AN000;;ENDIF ;;AN000;; PUSH AX ;;AN000; PUSH BX ;;AN000; PUSH DX ;;AN000; PUSH ES ;;AN000; PUSH DI ;;AN000; XOR CX,CX ;;AN000; Reset to zero MOV ES,CX ;;AN000; XOR DI,DI ;;AN000; MOV AX,DOS_GET_EXT_PARSE_ADD ;;AN000;; 2FH Interface MOV DL,DOS_GET_EXTENDED ;;AN000;; Where are the Extended errors in COMMAND.COM INT 2FH ;;AN000;; Private interface MOV WORD PTR $M_RT.$M_EXT_COMMAND+2,ES ;;AN000;; Move into first avaliable table location MOV WORD PTR $M_RT.$M_EXT_COMMAND,DI ;;AN000;; ;; MOV AX,DOS_GET_EXT_PARSE_ADD ;;AN000;; 2FH Interface MOV DL,DOS_GET_PARSE ;;AN000;; Where are the Parse errors in COMMAND.COM INT 2FH ;;AN000;; Private interface MOV WORD PTR $M_RT.$M_PARSE_COMMAND+2,ES ;;AN000;; Move into first avaliable table location MOV WORD PTR $M_RT.$M_PARSE_COMMAND,DI ;;AN000;; ;; MOV AX,DOS_GET_EXT_PARSE_ADD ;;AN000;; 2FH Interface MOV DL,DOS_GET_CRITICAL ;;AN000;; Where are the Critical errors in COMMAND.COM INT 2FH ;;AN000;; Private interface MOV WORD PTR $M_RT.$M_CRIT_COMMAND+2,ES ;;AN000;; Move into first avaliable table location MOV WORD PTR $M_RT.$M_CRIT_COMMAND,DI ;;AN000;;
MOV AX,DOS_GET_EXT_PARSE_ADD ;;AN001;; 2FH Interface MOV DL,DOS_GET_FILE ;;AN001;; Where are the FILE dependant in IFSFUNC.EXE INT 2FH ;;AN001;; Private interface MOV WORD PTR $M_RT.$M_EXT_FILE+2,ES ;;AN001;; Move into first avaliable table location MOV WORD PTR $M_RT.$M_EXT_FILE,DI ;;AN001;;
IF COMR ;; ** Special case for RESIDENT COMMAND.COM IF2 IFNDEF READ_DISK_INFO ;;AN003;; Extrn READ_DISK_PROC:Far ;;AN003;; ENDIF ;;AN003;; ENDIF ;;AN003;;ELSE ;; IF FARmsg ;;AN000;; CALL FAR PTR $M_MSGSERV_1 ;;AN000;; Get addressibilty to MSGSERV CLASS 1 (EXTENDED Errors) ELSE ;;AN000;; CALL $M_MSGSERV_1 ;;AN000;; Get addressibilty to MSGSERV CLASS 1 (EXTENDED Errors) ENDIF ;;AN000;; MOV WORD PTR $M_RT.$M_EXT_ERR_ADDRS+2,ES ;;AN000;; Move into first avaliable table location MOV WORD PTR $M_RT.$M_EXT_ERR_ADDRS,DI ;;AN000;; MOV WORD PTR $M_RT.$M_CRIT_ADDRS+2,ES ;;AN000;; Move into first avaliable table location MOV WORD PTR $M_RT.$M_CRIT_ADDRS,DI ;;AN000;; ;; IF FARmsg ;;AN000;; CALL FAR PTR $M_MSGSERV_2 ;;AN000;; Get addressibilty to MSGSERV CLASS 2 (PARSE Errors) ELSE ;;AN000;; CALL $M_MSGSERV_2 ;;AN000;; Get addressibilty to MSGSERV CLASS 2 (PARSE Errors) ENDIF ;;AN000;; MOV WORD PTR $M_RT.$M_PARSE_ADDRS+2,ES ;;AN000;; Move into first avaliable table location MOV WORD PTR $M_RT.$M_PARSE_ADDRS,DI ;;AN000;;ENDIF ;; ;; MOV AX,DOS_GET_EXT_PARSE_ADD ;;AN001;; 2FH Interface MOV DL,DOS_GET_ADDR ;;AN001;; Where is the READ_DISK_PROC in COMMAND.COM INT 2FH ;;AN001;; Private interface MOV WORD PTR $M_RT.$M_DISK_PROC_ADDR+2,ES ;;AN001;; Move into first avaliable table location MOV WORD PTR $M_RT.$M_DISK_PROC_ADDR,DI ;;AN001;;
$M_BUILD_PTRS %$M_NUM_CLS ;;AN000;; Build all utility classes ;;AN000;; CALL $M_GET_DBCS_VEC ;;AN000;; Save the DBCS vector
IF NOT NOCHECKSTDIN ;;AN000;; IF EOF check is not to be suppressed CALL $M_CHECKSTDIN ;;AN000;; Set EOF CHECKENDIF ;;AN000;; ;;AN000;;IF NOT NOCHECKSTDOUT ;;AN000;; IF Disk Full check is not to be suppressed CALL $M_CHECKSTDOUT ;;AN000;; Set Disk Full CHECKENDIF ;;AN000;; ;;AN000;;IF NOVERCHECKmsg ;;AN000;; IF version check is to be supressed CLC ;;AN000;; Make sure carry is clearELSE ;;AN000;; ELSE PUSH CX ;;AN000;; CALL $M_VERSION_CHECK ;;AN000;; Check VersionENDIF ;;AN000;; ;; Error ? $IF NC ;;AN000;; No.IF NOT NOVERCHECKmsg ;;AN000;; IF version check was not supressed POP CX ;;AN000;; Reset stackENDIF ;;AN000;; POP DI ;;AN000;; Restore REGS POP ES ;;AN000;; POP DX ;;AN000;; POP BX ;;AN000;; POP AX ;;AN000;; $ELSE ;;AN000;; Yes,IF NOVERCHECKmsg ;;AN000;; IF version check is to be supressed ADD SP,10 ;;AN000;; STC ;;AN000;; Reset carry flagELSE ;;AN000;; IF version check is to be supressed ADD SP,12 ;;AN000;; STC ;;AN000;; Reset carry flagENDIF ;;AN000;; IF version check is to be supressed $ENDIF ;;AN000;; RET ;;AN000;; ;; SYSLOADMSG ENDP ;;AN000;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PAGE SUBTTL DOS - Message Retriever - $M_VERSION_CHECK Proc;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Proc Name: $M_GET_DBCS_VEC;;;; Function: Get the DBCS vector and save it for later use;;;; Inputs: None;;;; Outputs: None;;;; Regs Changed:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_GET_DBCS_VEC PROC NEAR ;;AN000;; ;; PUSH AX ;;AN000;; Save character to check PUSH SI ;;AN000;; PUSH DS ;;AN000;; MOV AX,DOS_GET_DBCS_INFO ;;AN000;; DOS function to get DBSC environment INT 21H ;;AN000;; Get environment pointer PUSH DS ;;AN000;; Get environment pointer POP ES ;;AN000;; Get environment pointer POP DS ;;AN000;; Get environment pointer $IF NC ;;AN000;; MOV WORD PTR $M_RT.$M_DBCS_VEC,SI ;;AN000;; Save DBCS Vector MOV WORD PTR $M_RT.$M_DBCS_VEC+2,ES ;;AN000;; $ENDIF ;;AN000;; POP SI ;;AN000;; POP AX ;;AN000;; Retrieve character to check RET ;;AN000;; Return ;;$M_GET_DBCS_VEC ENDP ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; IF NOCHECKSTDIN ;AN001; Are we suppose to include the code for Checking EOF ? ELSE ;AN001; Yes, THEN include it PAGE SUBTTL DOS - Message Retriever - $M_CHECKSTDIN Proc;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Proc Name: $M_CHECKSTDIN;;;; Function:;;;; Inputs: None;;;; Outputs:;;;; Regs Changed:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_CHECKSTDIN PROC NEAR ;AN001;
MOV AX,DOS_IOCTL_GET_INFO ;AN001; Get info using IOCTL MOV BX,STDIN ;AN001; XOR DX,DX ;AN001; INT 21H ;AN001;
OR DH,$M_CRIT_ERR_MASK ;AN001; Turn on bit MOV AX,DOS_IOCTL_SET_INFO ;AN001; Set info using IOCTL INT 21H ;AN001;
RET ;AN001;
$M_CHECKSTDIN ENDP ;AN001; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;AN001; END of include for EOF Check IF NOCHECKSTDOUT ;AN001; Are we suppose to include the code for Checking Disk Full? ELSE ;AN001; Yes, THEN include it PAGE SUBTTL DOS - Message Retriever - $M_CHECKSTDOUT Proc;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Proc Name: $M_CHECKSTDOUT;;;; Function:;;;; Inputs: None;;;; Outputs:;;;; Regs Changed:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_CHECKSTDOUT PROC NEAR ;AN001;
MOV AX,DOS_IOCTL_GET_INFO ;AN001; Get info using IOCTL MOV BX,STDOUT ;AN001; XOR DX,DX ;AN001; INT 21H ;AN001;
OR DH,$M_CRIT_ERR_MASK ;AN001; Turn on bit MOV AX,DOS_IOCTL_SET_INFO ;AN001; Set info using IOCTL INT 21H ;AN001;
RET ;AN001;
$M_CHECKSTDOUT ENDP ;AN001; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;AN001; END of include for Disk Full Check IF NOVERCHECKmsg ;;AN000;; Are we suppose to include the code for DOS version check? ELSE ;;AN000;; Yes, THEN include it PAGE SUBTTL DOS - Message Retriever - $M_VERSION_CHECK Proc;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Proc Name: $M_VERSION_CHECK;;;; Function: Determine if DOS version is within allowable limits;;;; Inputs: None;;;; Outputs: CARRY_FLAG = 1 if Incorrect DOS version;; Registers set for SYSDISPMSG;; CARRY_FLAG = 0 if Correct DOS version;;;; Regs Changed: AX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_VERSION_CHECK PROC NEAR ;;AN000;; ;; MOV AH,DOS_GET_VERSION ;;AN000;; Check that version matches VERSIONA.INC INT 21H ;;AN000;; ;; CMP AX,EXPECTED_VERSION ;;AN000;; IF DOS_MAJOR is correct $IF E ;;AN000;; CLC ;;AN000;; Clear the carry flag $ELSE ;;AN000;; ELSEIF NOT COMR ;; ** Special case for RESIDENT COMMAND.COM CMP AX,LOWEST_4CH_VERSION ;;AN000;; Does this version support AH = 4CH $IF B ;;AN000;; No, MOV BX,NO_HANDLE ;;AN000;; No handle (version doesn't support) $ELSE ;;AN000;; Yes, MOV BX,STDERR ;;AN000;; Standard Error $ENDIF ;;AN000;;ELSE MOV BX,NO_HANDLE ;;AN000;; No handleENDIF MOV AX,1 ;;AN000;; Set message # 1 MOV CX,NO_REPLACE ;;AN000;; No replacable parms MOV DL,NO_INPUT ;;AN000;; No input MOV DH,UTILITY_MSG_CLASS ;;AN000;; Utility class message STC ;;AN000;; Set Carry Flag $ENDIF ;;AN000;; ;; RET ;;AN000;; Return ;;$M_VERSION_CHECK ENDP ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include for DOS version check ENDIF ;;AN000;; END of include for SYSLOADMSG; IF GETmsg ;;AN000;; Is the request to include the code for SYSGETMSG ? IF COMR ;;AN000;; $M_RT EQU $M_RT2 ;;AN000;; ENDIF ;;AN000;; GETmsg = FALSE ;;AN000;; Yes, THEN include it and reset flag PAGE SUBTTL DOS - Message Retriever - GETMSG.ASM Module;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Proc Name: SYSGETMSG;;;; Function: The GET service returns the segment, offset and size of the;; message text to the caller based on a message number.;; The GET function will not display the message thus assumes;; caller will handle replaceable parameters.;;;; Inputs:;;;; Outputs:;;;; Psuedocode:;; Call $M_GET_MSG_ADDRESS;; IF MSG_NUM exists THEN;; Set DS:SI = MSG_TXT_PTR + 1;; CARRY_FLAG = 0;; ELSE;; CARRY_FLAG = 1;; ENDIF;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;IF FARmsg ;;AN000;; SYSGETMSG PROC FAR ;;AN000;;ELSE ;;AN000;; SYSGETMSG PROC NEAR ;;AN000;;ENDIF ;;AN000;; ;;;; Save registers needed later
PUSH AX ;;AN000;; Save changed regs PUSH ES ;;AN000;; PUSH DI ;;AN000;; PUSH BP ;;AN000;; ;;IF FARmsg ;;AN000;; CALL FAR PTR $M_GET_MSG_ADDRESS ;;AN000;; Scan thru classes to find messageELSE ;;AN000;; CALL $M_GET_MSG_ADDRESS ;;AN000;; Scan thru classes to find messageENDIF ;;AN000;; Return message in ES:DI $IF NC ;;AN000;; Message found? CMP DH,UTILITY_MSG_CLASS CLC ;;AN000;; $IF NE PUSH ES ;;AN000;; POP DS ;;AN000;; Return message in DS:SI $ELSEIF FARmsg ;;AN000;; Yes, PUSH ES ;;AN000;; POP DS ;;AN000;; Return message in DS:SIELSE ;;AN000;; PUSH CS ;;AN000;; Return message in DS:SI POP DS ;;AN000;;ENDIF ;;AN000;; $ENDIF ;;AN000;; MOV SI,DI ;;AN000;; Return message in DS:SI $ENDIF ;;AN000;; ;; POP BP ;;AN000;; Restore changed regs POP DI ;;AN000;; POP ES ;;AN000;; POP AX ;;AN000;; ;; RET ;;AN000;; Return ;; SYSGETMSG ENDP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; IF $M_SUBS ;;AN000;; Include the common subroutines if they haven't yet $M_SUBS = FALSE ;;AN000;; No, then include and reset the flag;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_GET_MSG_ADDRESS;;;; FUNCTION: To scan thru classes to return pointer to the message header;; INPUTS: Access to $M_RES_ADDRESSES;; OUPUTS: IF CX = 0 THEN Message was not found;; IF CX > 1 THEN ES:DI points to the specified message;; REGS CHANGED: ES,DI,CX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;IF FARmsg ;;AN000;; $M_GET_MSG_ADDRESS PROC FAR ;;AN000;;ELSE ;;AN000;; $M_GET_MSG_ADDRESS PROC NEAR ;;AN000;;ENDIF ;;AN000;; ;; PUSH SI ;;AN000;; PUSH BX ;;AN000;; XOR SI,SI ;;AN000;; Use SI as an index XOR CX,CX ;;AN000;; Use CX as an size $DO ;;AN000;; CMP DH,UTILITY_MSG_CLASS ;;AN000;; Were utility messages requested? $IF E ;;AN000;; Yes, IF FARmsg ;;AN000;; LES DI,DWORD PTR $M_RT.$M_CLASS_ADDRS[SI] ;;AN000;; Get address of class MOV BX,ES ;;AN000; ELSE ;;AN000;; MOV DI,WORD PTR $M_RT.$M_CLASS_ADDRS[SI] ;;AN000;; Get address of class MOV BX,DI ;;AN000; ENDIF ;;AN000;; $ELSE ;;AN000;; No, TEST DH,PARSE_ERR_CLASS ;;AN000;; Were parse errors requested? $IF NE ;;AN000;; Yes, LES DI,DWORD PTR $M_RT.$M_PARSE_COMMAND[SI] ;;AN000;; Get address of class MOV BX,ES ;;AN000; $ELSE ;;AN000;; No, extended errors were specified CMP AX,$M_CRIT_LO ;;AN000;; Is this a critical error? $IF AE,AND ;;AN000;; CMP AX,$M_CRIT_HI ;;AN000;; $IF BE ;;AN000;; Yes, LES DI,DWORD PTR $M_RT.$M_CRIT_ADDRS[SI] ;;AN000;; Get address of class MOV BX,ES ;;AN000; $ELSE ;;AN000;; LES DI,DWORD PTR $M_RT.$M_EXT_ERR_ADDRS[SI] ;;AN000;; Get address of class MOV BX,ES ;;AN000; $ENDIF ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;; ;; CMP BX,$M_TERMINATING_FLAG ;;AN000;; Are we finished all classes? $IF E ;;AN000;; Yes, CMP DH,UTILITY_MSG_CLASS ;;AN000;; Was it a UTILITY class? $IF E ;;AN000;; Yes, STC ;;AN000;; Set the carry flag $ELSE ;;AN000;; No, MOV $M_RT.$M_MSG_NUM,AX ;;AN000;; Save message number MOV AX,$M_SPECIAL_MSG_NUM ;;AN000;; Set special message number MOV BP,$M_ONE_REPLACE ;;AN000;; Set one replace in message XOR SI,SI ;;AN000;; Reset the SI index to start again CLC ;;AN000;; $ENDIF ;;AN000;; No, $ELSE ;;AN000;; CMP BX,$M_CLASS_NOT_EXIST ;;AN000;; Does this class exist? $IF NE ;;AN001;; Yes, CALL $M_FIND_SPECIFIED_MSG ;;AN000;; Try to find the message $ENDIF ;;AN000;; ADD SI,$M_ADDR_SZ_FAR ;;AN000;; Get next class CLC ;;AN000;; $ENDIF ;;AN000;; $LEAVE C ;;AN000;; OR CX,CX ;;AN000;; Was the message found? $ENDDO NZ,LONG ;;AN000;;
PUSHF ;;AN006;; Save the flag state CMP DH,EXT_ERR_CLASS ;;AN006;; Was an extended error requested? $IF E ;;AN006;; Yes, PUSH DX ;;AN006;; Save all needed registers PUSH BP ;;AN006;; PUSH CX ;;AN006;; PUSH ES ;;AN006;; PUSH DI ;;AN006;; PUSH AX ;;AN006;;
MOV AX,IFSFUNC_INSTALL_CHECK ;;AN006;; Check if IFSFUNC is installed INT 2FH ;;AN006;; CMP AL,IFSFUNC_INSTALLED ;;AN006;; Is it installed? POP AX ;;AN006;; Restore msg number $IF E ;;AN006;; Yes, MOV BX,AX ;;AN006;; BX is the extended error number MOV AX,IFS_GET_ERR_TEXT ;;AN006;; AX is the muliplex number INT 2FH ;;AN006;; Call IFSFUNC $ELSE ;;AN006;; No, STC ;;AN006;; Carry conditon $ENDIF ;;AN006;;
$IF C ;;AN006;; Was there an update? POP DI ;;AN006;; No, POP ES ;;AN006;; Restore old pointer POP CX ;;AN006;; $ELSE ;;AN006;; Yes ADD SP,6 ;;AN006;; Throw away old pointer CALL $M_SET_LEN_IN_CX ;;AN006;; Get the length of the ASCIIZ string $ENDIF ;;AN006;; POP BP ;;AN006;; Restore other Regs POP DX ;;AN006;; $ENDIF ;;AN006;; $M_POPF ;;AN006;; Restore the flag state
POP BX ;;AN000;; POP SI ;;AN000;; RET ;;AN000;; Return ES:DI pointing to the message ;;$M_GET_MSG_ADDRESS ENDP ;; ;;$M_SET_LEN_IN_CX PROC NEAR ;; ;; PUSH DI ;;AN006;; Save position PUSH AX ;;AN006;; MOV CX,-1 ;;AN006;; Set CX for decrements XOR AL,AL ;;AN006;; Prepare compare register REPNE SCASB ;;AN006;; Scan for zero NOT CX ;;AN006;; Change decrement into number DEC CX ;;AN006;; Don't include the zero POP AX ;;AN006;; POP DI ;;AN006;; Restore position RET ;;AN006;; ;;$M_SET_LEN_IN_CX ENDP ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_FIND_SPECIFIED_MSG;;;; FUNCTION: To scan thru message headers until message is found;; INPUTS: ES:DI points to beginning of msg headers;; CX contains the number of messages in class;; DH contains the message class;; OUPUTS: IF CX = 0 THEN Message was not found;; IF CX > 1 THEN ES:DI points to header of specified message;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_FIND_SPECIFIED_MSG PROC NEAR ;;AN000;; ;; CMP BX,1 ;;AN004;; Do we have an address to CALL? $IF E,AND ;;AN004;; Yes, CMP WORD PTR $M_RT.$M_DISK_PROC_ADDR,-1 ;;AN004;; Do we have an address to CALL? $IF NE ;;AN004;; Yes, CMP AX,$M_SPECIAL_MSG_NUM ;;AN004;; Are we displaying a default Ext Err? $IF E ;;AN004;; . . . and . . . PUSH AX ;;AN004;; Reset the special message number MOV AX,$M_RT.$M_MSG_NUM ;;AN004;; Get the old message number CALL DWORD PTR $M_RT.$M_DISK_PROC_ADDR ;;AN004;; Call the READ_DISK_PROC to get error text POP AX ;;AN004;; Reset the special message number $ELSE ;;AN004;; Get the old message number CALL DWORD PTR $M_RT.$M_DISK_PROC_ADDR ;;AN004;; Call the READ_DISK_PROC to get error text $ENDIF ;;AN004;; Get the old message number $ELSE ;;AN004;; XOR CX,CX ;;AN002;; CX = 0 will allow us to CMP DH,UTILITY_MSG_CLASS ;;AN001;; $IF NE ;;AN001;; MOV CL,BYTE PTR ES:[DI].$M_NUM_CLS_MSG ;;AN001;; Get number of messages in class $ELSE ;;AN001;;IF FARmsg ;;AN001;; CMP BYTE PTR ES:[DI].$M_CLASS_ID,DH ;;AN002;; Check if class still exists atELSE CMP BYTE PTR CS:[DI].$M_CLASS_ID,DH ;;AN002;; Check if class still exists atENDIF $IF E ;;AN002;; pointer (hopefully)IF FARmsg ;;AN001;; MOV CL,BYTE PTR ES:[DI].$M_NUM_CLS_MSG ;;AN000;; Get number of messages in classELSE MOV CL,BYTE PTR CS:[DI].$M_NUM_CLS_MSG ;;AN000;; Get number of messages in classENDIF $ENDIF ;;AN002;; go on to the next class $ENDIF ;;AN001;; ADD DI,$M_CLASS_ID_SZ ;;AN000;; Point past the class header STC ;;AN004;; Flag that we haven't found anything yet $ENDIF ;;AN004;;
$IF C ;;AN004;; Have we found anything yet? CLC ;;AN004;; No, reset carry $SEARCH ;;AN000;; OR CX,CX ;;AN000;; Do we have any to check? $LEAVE Z ;;AN000;; No, return with CX = 0 CMP DH,UTILITY_MSG_CLASS ;;AN001;; $IF NE ;;AN001;; CMP AX,WORD PTR ES:[DI].$M_NUM ;;AN001;; Is this the message requested? $ELSE ;;AN001;;IF FARmsg ;;AN001;; CMP AX,WORD PTR ES:[DI].$M_NUM ;;AN000;; Is this the message requested?ELSE CMP AX,WORD PTR CS:[DI].$M_NUM ;;AN000;; Is this the message requested?ENDIF $ENDIF $EXITIF E ;;AN000;; $ORELSE ;;AN000; DEC CX ;;AN000;; No, well do we have more to check? $LEAVE Z ;;AN000;; No, return with CX = 0 ADD DI,$M_ID_SZ ;;AN000;; Yes, skip past msg header $ENDLOOP ;;AN000;; STC ;;AN000;; $ENDSRCH ;;AN000;; Check next message $IF NC ;;AN000;; Did we find the message? CMP DH,UTILITY_MSG_CLASS ;;AN001;; Yes, is it a utility message? CLC ;;AN001;; $IF E ;;AN001;;IF FARmsg ;;AN001;;ELSE ;;AN000;; PUSH CS ;;AN000;; POP ES ;;AN000;; Return ES:DI pointing to the messageENDIF $ENDIF ;;AN001;; ADD DI,WORD PTR ES:[DI].$M_TXT_PTR ;;AN000;; Prepare ES:DI pointing to the message $ENDIF ;;AN004;; $ENDIF ;;AN004;; ;; Yes, great we can return with CX > 0
$IF NC ;;AN000;; Did we find the message? XOR CH,CH ;;AN000;; MOV CL,BYTE PTR ES:[DI] ;;AN000;; Move size into CX INC DI ;;AN000;; Increment past length $ENDIF ;;AN004;;
MOV $M_RT.$M_SIZE,$M_NULL ;;AN004;; Reset variable RET ;;AN000;; Return ;;$M_FIND_SPECIFIED_MSG ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include of common subroutines ENDIF ;;AN000;; END of include of SYSGETMSG; IF DISPLAYmsg ;;AN000;; Is the request to include the code for SYSGETMSG ? IF COMR ;;AN000;; $M_RT EQU $M_RT2 ;;AN000;; ENDIF ;;AN000;; DISPLAYmsg = FALSE ;;AN000;; Yes, THEN include it and reset flag PAGE SUBTTL DOS - Message Retriever - DISPMSG.ASM Module;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Proc Name: SYSDISPMSG;;;; Function: The DISPLAY service will output a defined message to a handle;; requested by the caller. It also provides function to display;; messages when handles are not applicable (ie. DOS function calls;; 00h to 0Ah) Replaceable parameters are allowed and are;; defined previous to entry.;;;; It is assumes that a PRELOAD function has already determined;; the addressibilty internally to the message retriever services.;; Inputs:;;;; Outputs:;;;; Psuedocode:;; Save registers needed later;; Get address of the message requested;; IF Message number exists THEN;; IF replacable parameters were specified THEN;; Display message with replacable parms;; ELSE;; Display string without replacable parms;; ENDIF;; IF character input was requested THEN;; Wait for character input;; ENDIF;; Clear CARRY FLAG;; ELSE;; Set CARRY FLAG;; ENDIF;; Return;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;IF FARmsg ;;AN000;; SYSDISPMSG PROC FAR ;;AN000;;ELSE ;;AN000;; SYSDISPMSG PROC NEAR ;;AN000;;ENDIF ;;AN000;; ;;;; Save registers and values needed later
PUSH AX ;;AN000;; Save changed REGs PUSH BX ;;AN000;; PUSH CX ;;AN000;; PUSH BP ;;AN000;; PUSH DI ;;AN000;; Save pointer to input buffer (offset) PUSH ES ;;AN000;; Save pointer to input buffer (segment) PUSH DX ;;AN000;; Save Input/Class request
MOV BP,CX ;;AN000;; Use BP to hold replace count MOV WORD PTR $M_RT.$M_HANDLE,BX ;;AN000;; Save handle MOV BYTE PTR $M_RT.$M_CLASS,DH ;;AN004;; Save class
;; Get address of the message requested
IF FARmsg ;;AN000;; CALL FAR PTR $M_GET_MSG_ADDRESS ;;AN000;; Scan thru classes to find messageELSE ;;AN000;; CALL $M_GET_MSG_ADDRESS ;;AN000;; Scan thru classes to find messageENDIF ;;AN000;; OR CX,CX ;;AN000;; Was message found? $IF NZ ;;AN000;; YES, Message address in ES:DI
;; Test if replacable parameters were specified
OR BP,BP ;;AN000;; Were replacable parameters requested $IF Z ;;AN000;;
;; Display string without replacable parms
CALL $M_DISPLAY_STRING ;;AN000;; No, great . . . Display message $ELSE ;;AN000;;IF $M_REPLACE ;;AN000;;
;; Display message with replacable parms
CALL $M_DISPLAY_MESSAGE ;;AN000;; Display the message with substitutionsENDIF ;;AN000;; $ENDIF ;;AN000;; $IF NC
POP DX ;;AN000;; Get Input/Class request
CALL $M_ADD_CRLF ;;AN004;; Check if we need to add the CR LF chars.
POP ES ;;AN000;; Get location of input buffer (if specified) POP DI ;;AN000;;
;; Test if character input was requested
IF INPUTmsg ;;AN000;; OR DL,DL ;;AN000;; Was Wait-For-Input requested? $IF NZ ;;AN000;; CALL $M_WAIT_FOR_INPUT ;;AN000;; $ENDIF ;;AN000;;ENDIF ;;AN000;; $ELSE ;;AN000;; ADD SP,6 ;;AN000;; STC ;;AN000;; Reset carry flag $ENDIF ;;AN000;; $ELSE ;;AN000;; No, POP ES ;;AN000;; Get pointer to input buffer (segment) POP DI ;;AN000;; Get base pointer to first sublist (offset) POP DX ;;AN000;; Get base pointer to first sublist (segment) STC ;;AN000;; Set carry flag $ENDIF ;;AN000;; ;; $IF NC ;;AN000;; Was there an error? POP BP ;;AN000;; No, POP CX ;;AN000;; POP BX ;;AN000;;IF INPUTmsg ;;AN000;; ADD SP,2 ;;AN000;;ELSE ;AN000; POP AX ;;AN000;;ENDIF ;;AN000;; $ELSE ;;AN000;; Yes, ADD SP,8 ;;AN000;; Eliminate from stack STC ;;AN000;; $ENDIF ;;AN000;; ;; RET ;;AN000;; Return ;; SYSDISPMSG ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; PROC NAME: $M_DISPLAY_STRING;;;; FUNCTION: Will display or write string;; INPUTS: ES:DI points to beginning of message;; CX contains the length of string to write (if applicable);; OUTPUTS: None;; REGS Revised: None;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_DISPLAY_STRING PROC NEAR ;;AN000;; ;; PUSH AX ;;AN000;; PUSH BX ;;AN000;; PUSH DX ;;AN000;; ;; MOV BX,$M_RT.$M_HANDLE ;;AN000;; Retrieve handle ;;IF COMR ;; ** Special case for RESIDENT COMMAND.COM CALL $M_DISPLAY_$_STRING ;;AN000;; No, display $ terminated stringELSE CMP BX,$M_NO_HANDLE ;;AN000;; Was there a handle specified? $IF E ;;AN000;; CALL $M_DISPLAY_$_STRING ;;AN000;; No, display $ terminated string $ELSE ;;AN000;; CALL $M_DISPLAY_H_STRING ;;AN000;; Yes, display string to handle $ENDIF ;;AN000;; ;AN001; $IF C ;;AN000;; Was there an error? MOV AH,DOS_GET_EXT_ERROR ;;AN000;; Yes, MOV BX,DOS_GET_EXT_ERROR_BX ;;AN000;; Get extended error INT 21H ;;AN000;; XOR AH,AH ;;AN000;; Clear AH ADD SP,6 ;;AN000;; Clean up stack STC ;;AN000;; Flag that there was an error $ELSE ;;AN000;; No, CMP BX,$M_NO_HANDLE ;;AN000;; Was there a handle specified? $IF NE ;;AN000;; CMP AX,CX ;AN001; Was it ALL written? $IF NE ;AN001; No, CALL $M_GET_EXT_ERR_39 ;AN001; Set Extended error ADD SP,6 ;AN001; Clean up stack STC ;AN001; Flag that there was an error $ENDIF ;AN001; $ENDIF ;AN001; $ENDIF ;;AN000;;ENDIF $IF NC ;;AN000;; Was there ANY error? POP DX ;;AN000;; Restore regs POP BX ;;AN000;; POP AX ;;AN000;; $ENDIF ;;AN000;; RET ;;AN000;; Return ;;$M_DISPLAY_STRING ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_DISPLAY_$_STRING;;;; FUNCTION: Will display a $ terminated string;; INPUTS: ES:DI points to beginning of message text (not the length);; OUPUTS: None;; REGS USED: AX,DX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_DISPLAY_$_STRING PROC NEAR ;;AN000;; ;; PUSH DS ;;AN000;; PUSH ES ;;AN000;; POP DS ;;AN000;; Set DS to segment of message textIF NOT COMR CMP CX,$M_SINGLE_CHAR ;;AN000;; Is this a single character? $IF E ;;AN000;; Yes, MOV AH,DOS_DISP_CHAR ;;AN000;; DOS Function to display CHARACTER MOV DL,BYTE PTR ES:[DI] ;;AN000;; Get the character INT 21H ;;AN000;; Write character POP DS ;;AN000;; Set DS to segment of message text MOV AL,DL ;;AN000;; Get the character in AL CALL $M_IS_IT_DBCS ;;AN000;; Is this the first byte of a DB character PUSH DS ;;AN000;; PUSH ES ;;AN000;; POP DS ;;AN000;; Set DS to segment of message text $IF C ;;AN000;; Yes, MOV DL,BYTE PTR ES:[DI]+1 ;;AN000;; Get the next character INT 21H ;;AN000;; Write character CLC ;;AN000;; Clear the DBCS indicator $ENDIF ;;AN000;; $ELSE ;;AN000;; No,ENDIF MOV AH,DOS_DISP_CHAR ;;AN000;; DOS Function to display CHARACTER $DO ;;AN002;; No, OR CX,CX ;;AN002;; Are there any left to display? $LEAVE Z ;;AN002;; Yes, MOV DL,BYTE PTR ES:[DI] ;;AN002;; Get the character INT 21H ;;AN002;; Display the character INC DI ;;AN002;; Set pointer to next character DEC CX ;;AN002;; Count this character $ENDDO Z ;;AN002;; No,IF NOT COMR $ENDIF ;;AN000;;ENDIF CLC ;;AN000;; Char functions used don't return carry as error POP DS ;;AN000;; RET ;;AN000;; ;;$M_DISPLAY_$_STRING ENDP ;;AN000;; ;;IF NOT COMR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_DISPLAY_H_STRING;;;; FUNCTION: Will display a string to a specified handle;; INPUTS: ES:DI points to beginning of message;; CX contains the number of bytes to write;; BX contains the handle to write to;; OUPUTS: None;; REGS USED: AX,DX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_DISPLAY_H_STRING PROC NEAR ;;AN000;; ;; XOR AX,AX ;;AN002;; Set number of bytes written to 0 OR CX,CX ;;AN002;; For performance, don't write if not necessary $IF NZ ;;AN002;; Any chars to write? PUSH DS ;;AN000;; Yes, PUSH ES ;;AN000;; POP DS ;;AN000;; Set DS to segment of message text MOV AH,DOS_WRITE_HANDLE ;;AN000;; DOS function to write to a handle MOV DX,DI ;;AN000;; Pointer to data to write CMP CX,$M_SINGLE_CHAR ;;AN000;; Is this a single character? $IF E ;;AN000;; Yes, INT 21H ;;AN000;; Write character POP DS ;;AN000;; Set DS to segment of message text PUSH AX ;;AN000;; MOV AL,BYTE PTR ES:[DI] ;;AN000;; Get the character CALL $M_IS_IT_DBCS ;;AN000;; Is this the first byte of a DB character POP AX ;;AN000;; Set DS to segment of message text PUSH DS ;;AN000;; PUSH ES ;;AN000;; POP DS ;;AN000;; Set DS to segment of message text $IF C ;;AN000;; Yes, CLC ;;AN000;; Clear the DBCS indicator MOV AH,DOS_WRITE_HANDLE ;;AN000;; DOS function to write to a handle INC DX ;;AN000;; Point to next character INT 21H ;;AN000;; Write character $ENDIF ;;AN000;; $ELSE ;;AN000;; No, INT 21H ;;AN000;; Write String at DS:SI to handle $ENDIF ;;AN000;; POP DS ;;AN000;; $ENDIF ;;AN002;; ;; RET ;;AN000;; ;;$M_DISPLAY_H_STRING ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_GET_EXT_ERR_39;;;; FUNCTION: Will set registers for extended error #39;; INPUTS: None;; OUPUTS: AX,BX,CX set;; REGS USED:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_GET_EXT_ERR_39 PROC NEAR ;AN001; ;; MOV AX,EXT_ERR_39 ;AN001; Set AX=39 MOV BX,(ERROR_CLASS_39 SHR 8) + ACTION_39 ;AN001; Set BH=1 BL=4 MOV CH,LOCUS_39 ;AN001; Set CH=1 ;AN001; RET ;AN001; ;;$M_GET_EXT_ERR_39 ENDP ;AN001; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ENDIF;;;; PROC NAME: $M_ADD_CRLF;;;; FUNCTION: Will decide whether to display a CRLF;; INPUTS: DX contains the Input/Class requested;; OUTPUTS: None;; REGS Revised: CX,ES,DI;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_ADD_CRLF PROC NEAR ;;AN004;; ;; CMP DH,UTILITY_MSG_CLASS ;;AN004;; Is it a utility message? $IF NE ;;AN004;; No, TEST DH,$M_NO_CRLF_MASK ;;AN004;; Are we to supress the CR LF? $IF Z ;;AN004;; No, PUSH DS ;;AN004;; POP ES ;;AN004;; Set ES to data segment LEA DI,$M_RT.$M_CRLF ;;AN004;; Point at CRLF message MOV CX,$M_CRLF_SIZE ;;AN004;; Set the message size CALL $M_DISPLAY_STRING ;;AN004;; Display the CRLF $ENDIF ;;AN004;; $ENDIF ;;AN004;; RET ;;AN004;; Return ;;$M_ADD_CRLF ENDP ;;AN004;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_IS_IT_DBCS;;;; FUNCTION: Will decide whether character is Single or Double Byte;; INPUTS: AL contains the byte to be checked;; OUPUTS: Carry flag = 0 if byte is NOT in DBCS range;; Carry flag = 1 if byte IS in DBCS range;; REGS USED: All restored;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_IS_IT_DBCS PROC NEAR ;;AN000;; ;; PUSH ES ;;AN000;; Save Extra segment register PUSH DI ;;AN000;; Save SI register ;; LES DI,$M_RT.$M_DBCS_VEC ;;AN000;; OR DI,DI ;;AN000;; Was the DBCS vector set? $IF NZ ;;AN000;; $DO ;;AN000;; CMP WORD PTR ES:[DI],$M_DBCS_TERM ;;AN000;; Is this the terminating flag? CLC ;;AN000;; $LEAVE E ;;AN000;; ;; No, CMP AL,BYTE PTR ES:[DI] ;;AN000;; Does the character fall in the DBCS range? $IF AE,AND ;;AN000;; CMP AL,BYTE PTR ES:[DI]+1 ;;AN000;; Does the character fall in the DBCS range? $IF BE ;;AN000;; STC ;;AN000;; Yes, $ENDIF ;;AN000;; Set carry flag INC DI ;;AN000;; No, INC DI ;;AN000;; Go to next vector $ENDDO ;;AN000;; $ENDIF ;;AN000;;
POP DI ;;AN000;; POP ES ;;AN000;; Restore SI register RET ;;AN000;; Return ;;$M_IS_IT_DBCS ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_CONVERT2ASC;;;; FUNCTION: Convert a binary number to a ASCII string;; INPUTS: DX:AX contains the number to be converted;; $M_RT_DIVISOR contains the divisor;; OUPUTS: CX contains the number of characters;; Top of stack --> Last character;; . . .;; Bot of stack --> First character;; REGS USED:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_CONVERT2ASC PROC NEAR ;;AN000;; ;; POP [$M_RT.$M_RETURN_ADDR] ;;AN000;; Save Return Address XOR BX,BX ;;AN000;; Use BP as a swapping register ;; XCHG BX,AX ;;AN000;; Initialize - Low Word in BP XCHG AX,DX ;;AN000;; - High Word in AX $DO ;;AN000;; DO UNTIL Low Word becomes zero DIV $M_RT.$M_DIVISOR ;;AN000;; Divide High Word by divisor XCHG BX,AX ;;AN000;; Setup to divide Low Word using remainder ;; and save reduced High Word in BP DIV $M_RT.$M_DIVISOR ;;AN000;; Divide Low Word by divisor CMP DX,9 ;;AN000;; Make a digit of the remainder $IF A ;;AN000;; IF 10 to 15, ADD DL,55 ;;AN000;; Make A to F ASCII $ELSE ;;AN000;; IF 0 to 9, ADD DL,'0' ;;AN000;; Make 0 to 9 ASCII $ENDIF ;;AN000;; PUSH DX ;;AN000;; Save the digit on the stack INC CX ;;AN000;; Count that digit OR AX,AX ;;AN000;; Are we done? $LEAVE Z,AND ;;AN000;; OR BX,BX ;;AN000;; AX and BX must be ZERO!! $LEAVE Z ;;AN000;; No,IF NOT COMR CMP CX,$M_FIRST_THOU ;;AN000;; Are we at the first thousands mark $IF E ;;AN000;; Yes, CMP $M_SL.$M_S_PAD,$M_COMMA ;;AN000;; Is the pad character a comma? $IF E ;;AN000;; Yes, PUSH WORD PTR $M_RT.$M_THOU_SEPARA ;;AN000;; Insert a thousand separator INC CX ;;AN000;; $ENDIF ;;AN000;; $ELSE ;;AN000;; No, CMP CX,$M_SECOND_THOU ;;AN000;; Are we at the first thousands mark $IF E ;;AN000;; Yes, CMP $M_SL.$M_S_PAD,$M_COMMA ;;AN000;; Is the pad character a comma? $IF E ;;AN000;; Yes, PUSH WORD PTR $M_RT.$M_THOU_SEPARA ;;AN000;; Insert a thousand separator INC CX ;;AN000;; $ENDIF ;;AN000;; $ELSE ;;AN000;; No, CMP CX,$M_THIRD_THOU ;;AN000;; Are we at the first thousands mark $IF E ;;AN000;; Yes, CMP $M_SL.$M_S_PAD,$M_COMMA ;;AN000;; Is the pad character a comma? $IF E ;;AN000;; Yes, PUSH WORD PTR $M_RT.$M_THOU_SEPARA ;;AN000;; Insert a thousand separator INC CX ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;;ENDIF XCHG AX,BX ;;AN000;; Setup to divide the reduced High Word ;;AN000;; and Revised Low Word XOR DX,DX ;;AN000;; Reset remainder $ENDDO ;;AN000;; NEXT ;;AN000;; Yes, XOR DX,DX ;;AN000;; Reset remainder XOR AX,AX ;;AN000;; Reset remainder PUSH [$M_RT.$M_RETURN_ADDR] ;;AN000;; Restore Return Address RET ;;AN000;; Return ;;$M_CONVERT2ASC ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_DISPLAY_MESSAGE;;;; FUNCTION: Will display or write entire message (with replacable parameters);; INPUTS: ES:DI points to beginning of message;; DS:SI points to first sublist structure in chain;; BX contains the handle to write to (if applicable);; CX contains the length of string to write (before substitutions);; BP contains the count of replacables;;;; OUTPUTS:;; REGS USED: All;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_DISPLAY_MESSAGE PROC NEAR ;;AN000;; ;; $DO ;;AN000;; Note: DS:SI -> message XOR DX,DX ;;AN000;; Set size = 0 OR CX,CX ;;AN000;; Are we finished the message yet? $IF NZ ;;AN000;; No, MOV AH,"%" ;;AN000;; Prepare to scan for % MOV AL,0 ;;AN004;; ;; $DO ;;AN000;; Scan through string until % CMP BYTE PTR ES:[DI],AH ;;AN000;; Is this character NOT a % $LEAVE E,AND ;;AN000;; No, CMP BYTE PTR ES:[DI+1],AH ;;AN000;; Is the next character also a % $LEAVE NE,AND ;;AN000;; No, CMP AL,AH ;;AN000;; Was the character before a % $LEAVE NE ;;AN000;; No, GREAT found it MOV AL,BYTE PTR ES:[DI] ;;AN004;; Yes, (to any of the above) CALL $M_IS_IT_DBCS ;;AN004;; Is this character the first part of a DBCS? $IF C ;;AN004;; Yes, INC DI ;;AN004;; Increment past second part $ENDIF ;;AN004;; INC DI ;;AN000;; Next character in string INC DX ;;AN000;; Size = Size + 1 DEC CX ;;AN000;; Decrement total size $ENDDO Z ;;AN000;; Exit scan if we're at the end of the line $ENDIF ;;AN000;; ;; PUSH SI ;;AN000;; Save beginning of sublists XCHG CX,DX ;;AN000;; Get size of message to display (tot sz in DX) OR BP,BP ;;AN000;; Do we have any replacables to do? $IF NZ ;;AN000;; Yes, DEC BP ;;AN000;; Decrement number of replacables
;; Search through sublists to find applicable one
CMP $M_RT.$M_MSG_NUM,$M_NULL ;;AN000;; Is this an Extended/Parse case $IF E ;;AN000;; No, $SEARCH ;;AN000;; MOV AL,$M_SL.$M_S_ID ;;AN000;; Get ID byte ADD AL,30H ;;AN000;; Convert to ASCII CMP AL,BYTE PTR ES:[DI]+1 ;;AN000;; Is this the right sublist? $EXITIF E ;;AN000;; $ORELSE ;;AN000;; No, CMP AL,$M_SPECIAL_CASE ;;AN000;; Does this sublist have ID = 0 $LEAVE E,AND ;;AN000;; Yes, OR DX,DX ;;AN000;; Are we at the end of the message? $LEAVE Z ;;AN000;; No, ADD SI,WORD PTR $M_SL.$M_S_SIZE ;;AN000;; Next SUBLIST $ENDLOOP ;;AN000;; Yes, CMP $M_RT.$M_CLASS,UTILITY_MSG_CLASS ;;AN004;; Is it a utility message? $IF E ;;AN004;; Yes, INC DX ;;AN000;; Remember to display CR,LF INC DX ;;AN000;; at the end of the message DEC CX ;;AN000;; Adjust message length DEC CX ;;AN000;; DEC DI ;;AN000;; Adjust ending address of message DEC DI ;;AN000;; $ELSE ;;AN004;; No, MOV DX,-1 ;;AN004;; Set special case $ENDIF ;;AN004;; $ENDSRCH ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;;
;; Prepare and display this part of message
PUSH DI ;;AN000;; Save pointer to replace number SUB DI,CX ;;AN000;; Determine beginning of string CALL $M_DISPLAY_STRING ;;AN000;; Display string until % (or end) POP DI ;;AN000;; Get back pointer to replace number POP CX ;;AN000;; Clean up stack in case error $LEAVE C,LONG ;;AN000;; Fail if carry was set PUSH CX ;;AN000;;
;; Save and reset pointer registers
MOV CX,DX ;;AN000;; Get the size of the rest of the message CMP $M_SL.$M_S_ID,$M_SPECIAL_CASE-30H ;;AN000;; Is this the %0 case? $IF NE ;;AN000;; No, OR CX,CX ;;AN000;; Are we finished the whole message? $IF NZ ;;AN000;; No, DEC CX ;;AN000;; Decrement total size (%) DEC CX ;;AN000;; Decrement total size (#) INC DI ;;AN000;; Go past % INC DI ;;AN000;; Go past replace number $ELSE ;;AN000;; Yes, (Note this will not leave because INC) POP SI ;;AN000;; Get back pointer to beginning of SUBLISTs $ENDIF ;;AN000;; Yes, Note this will not leave because INC $ELSE ;;AN000;; OR CX,CX ;;AN000;; Are we finished the whole message? $IF Z ;;AN004;; No, POP SI ;;AN000;; Get back pointer to beginning of SUBLISTs $ELSE ;;AN000;; No, CMP CX,-1 ;;AN004;; Are we at the end of the message? $IF Z ;;AN004;; No, XOR CX,CX ;;AN004;; $ENDIF ;;AN000;; OR DI,DI ;;AN004;; Turn ZF off $ENDIF ;;AN000;; $ENDIF ;;AN000;; Note this will not leave because INC $LEAVE Z ;;AN000;; PUSH BP ;;AN000;; Save the replace count PUSH DI ;;AN000;; Save location to complete message PUSH ES ;;AN000;; PUSH CX ;;AN000;; Save size of the rest of the message XOR CX,CX ;;AN000;; Reset CX used for character count
;; Determine what action is required on parameter
CMP $M_RT.$M_MSG_NUM,$M_NULL ;;AN000;; Is this an Extended/Parse case $IF E ;;AN000;;
IF CHARmsg ;;AN000;; Was Char specified? TEST BYTE PTR $M_SL.$M_S_FLAG,NOT Char_Type AND $M_TYPE_MASK ;;AN000;; $IF Z ;;AN000;;
;; Character type requested ;;AN000;; LES DI,DWORD PTR $M_SL.$M_S_VALUE ;;AN000;; Load pointer to replacing parameter CALL $M_CHAR_REPLACE ;;AN000;; $ELSE ;;AN000;; Get the rest of the message to displayENDIF ;;AN000;;IF NUMmsg ;;AN000;; Was Nnmeric type specified? TEST BYTE PTR $M_SL.$M_S_FLAG,NOT Sgn_Bin_Type AND $M_TYPE_MASK ;;AN000;; $IF Z,OR ;;AN000;; TEST BYTE PTR $M_SL.$M_S_FLAG,NOT Unsgn_Bin_Type AND $M_TYPE_MASK ;;AN000;; $IF Z,OR ;;AN000;; TEST BYTE PTR $M_SL.$M_S_FLAG,NOT Bin_Hex_Type AND $M_TYPE_MASK ;;AN000;; $IF Z ;;AN000;;
;; Numeric type requested
LES DI,DWORD PTR $M_SL.$M_S_VALUE ;;AN000;; Load pointer to replacing parameter CALL $M_BIN2ASC_REPLACE ;;AN000;; $ELSE ;;AN000;; Get the rest of the message to displayENDIF ;;AN000;;IF DATEmsg ;;AN000;; Was date specified? TEST BYTE PTR $M_SL.$M_S_FLAG,NOT Date_Type AND $M_TYPE_MASK ;;AN000;; $IF E ;;AN000;;
;; Date type requested
CALL $M_DATE_REPLACE ;;AN000;; $ELSE ;;AN000;; Get the rest of the message to displayENDIF ;;AN000;;IF TIMEmsg ;;AN000;; Was time (12 hour format) specified?
;; Time type requested (Default if we have not matched until here)
CALL $M_TIME_REPLACE ;;AN000;;ENDIF ;;AN000;;
IF DATEmsg ;;AN000;; $ENDIF ;;AN000;;ENDIF ;;AN000;;IF NUMmsg ;;AN000;; $ENDIF ;;AN000;;ENDIF ;;AN000;;IF CHARmsg ;;AN000;; $ENDIF ;;AN000;;ENDIF ;;AN000;;
IF $M_REPLACE ;;AN000;;;; With the replace information of the Stack, display the replaceable field
CALL $M_DISPLAY_REPLACE ;;AN000;; Display the replaceENDIF ;;AN000;;;; None of the above - Extended/Parse replace $ELSE ;;AN000;;IF NOT COMR CALL $M_EXT_PAR_REPLACE ;;AN000;;ENDIF $ENDIF ;;AN000;;
;; We must go back and complete the message after the replacable parameter if there is any left
$IF NC ;;AN000;; IF there was an error displaying then EXIT POP CX ;;AN000;; Get size of the rest of the message POP ES ;;AN000;; Get address of the rest of the message POP DI ;;AN000;; POP BP ;;AN000;; Get replacment count POP SI ;;AN000;; ELSE get address of first sublist structure $ELSE ;;AN000;; ADD SP,10 ;;AN000;; Clean up stack if error STC ;;AN000;; $ENDIF ;;AN000;; CMP $M_RT.$M_MSG_NUM,$M_NULL ;;AN000;; Is this an Extended/Parse case $ENDDO NE,OR ;;AN000;; $ENDDO C,LONG ;;AN000;; Go back and display the rest of the message ;; IF there was an error displaying then EXIT MOV $M_RT.$M_MSG_NUM,0 ;;AN000;; Reset message number to null RET ;;AN000;; Return ;;$M_DISPLAY_MESSAGE ENDP ;;AN000;;IF NOT COMR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_EXT_PAR_REPLACE;;;; FUNCTION:;; INPUTS:;; OUPUTS:;;;; REGS USED:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_EXT_PAR_REPLACE PROC NEAR ;;AN000;; ;; XOR DX,DX ;;AN000;; Prepare for get binary value (HIGH) MOV AX,$M_RT.$M_MSG_NUM ;;AN000;; Prepare for get binary value (LOW) MOV $M_RT.$M_DIVISOR,$M_BASE10 ;;AN000;; Set default divisor ;; CALL $M_CONVERT2ASC ;;AN000;; ;; $DO ;;AN000;; POP AX ;;AN000;; Get character in register MOV BYTE PTR $M_RT.$M_TEMP_BUF[BX],AL ;;AN000;; Move char into the buffer INC BX ;;AN000;; Increase buffer count CMP BX,$M_TEMP_BUF_SZ ;;AN000;; Is buffer full? $IF E ;;AN000;; Yes, CALL $M_FLUSH_BUF ;;AN000;; Flush the buffer $ENDIF ;;AN000;; DEC CL ;;AN000;; Have we completed replace? $ENDDO Z ;;AN000;; ;; MOV AX,$M_CR_LF ;;AN000;; Move char into the buffer MOV WORD PTR $M_RT.$M_TEMP_BUF[BX],AX ;;AN000;; Move char into the buffer INC BX ;;AN000;; Increase buffer count INC BX ;;AN000;; Increase buffer count CALL $M_FLUSH_BUF ;;AN000;; Flush the buffer RET ;;AN000:: ;;$M_EXT_PAR_REPLACE ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ENDIF IF $M_SUBS ;;AN000;; Include the common subroutines if they haven't yet $M_SUBS = FALSE ;;AN000;; No, then include and reset the flag;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_GET_MSG_ADDRESS;;;; FUNCTION: To scan thru classes to return pointer to the message header;; INPUTS: Access to $M_RES_ADDRESSES;; OUPUTS: IF CX = 0 THEN Message was not found;; IF CX > 1 THEN DS:SI points to the specified message;; REGS CHANGED: ES,DI,CX,DS,SI;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;IF FARmsg ;;AN000;; $M_GET_MSG_ADDRESS PROC FAR ;;AN000;;ELSE ;;AN000;; $M_GET_MSG_ADDRESS PROC NEAR ;;AN000;;ENDIF ;;AN000;; ;; PUSH SI ;;AN000;; PUSH BX ;;AN000;; XOR SI,SI ;;AN000;; Use SI as an index XOR CX,CX ;;AN000;; Use CX as an size $DO ;;AN000;; CMP DH,UTILITY_MSG_CLASS ;;AN000;; Were utility messages requested? $IF E ;;AN000;; Yes, IF FARmsg ;;AN000;; LES DI,DWORD PTR $M_RT.$M_CLASS_ADDRS[SI] ;;AN000;; Get address of class MOV BX,ES ;;AN000; ELSE ;;AN000;; MOV DI,WORD PTR $M_RT.$M_CLASS_ADDRS[SI] ;;AN000;; Get address of class MOV BX,DI ;;AN000; ENDIF ;;AN000;; $ELSE ;;AN000;; No, TEST DH,PARSE_ERR_CLASS ;;AN000;; Were parse errors requested? $IF NE ;;AN000;; Yes, LES DI,DWORD PTR $M_RT.$M_PARSE_COMMAND[SI] ;;AN000;; Get address of class MOV BX,ES ;;AN000; $ELSE ;;AN000;; No, extended errors were specified CMP AX,$M_CRIT_LO ;;AN000;; Is this a critical error? $IF AE,AND ;;AN000;; CMP AX,$M_CRIT_HI ;;AN000;; $IF BE ;;AN000;; Yes, LES DI,DWORD PTR $M_RT.$M_CRIT_ADDRS[SI] ;;AN000;; Get address of class MOV BX,ES ;;AN000; $ELSE ;;AN000;; LES DI,DWORD PTR $M_RT.$M_EXT_ERR_ADDRS[SI] ;;AN000;; Get address of class MOV BX,ES ;;AN000; $ENDIF ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;; ;; CMP BX,$M_TERMINATING_FLAG ;;AN000;; Are we finished all classes? $IF E ;;AN000;; Yes, CMP DH,UTILITY_MSG_CLASS ;;AN000;; Was it a UTILITY class? $IF E ;;AN000;; Yes, STC ;;AN000;; Set the carry flag $ELSE ;;AN000;; No, MOV $M_RT.$M_MSG_NUM,AX ;;AN000;; Save message number MOV AX,$M_SPECIAL_MSG_NUM ;;AN000;; Set special message number MOV BP,$M_ONE_REPLACE ;;AN000;; Set one replace in message XOR SI,SI ;;AN000;; Reset the SI index to start again CLC ;;AN000;; $ENDIF ;;AN000;; No, $ELSE ;;AN000;; CMP BX,$M_CLASS_NOT_EXIST ;;AN000;; Does this class exist? $IF NE ;;AN001;; Yes, CALL $M_FIND_SPECIFIED_MSG ;;AN000;; Try to find the message $ENDIF ;;AN000;; ADD SI,$M_ADDR_SZ_FAR ;;AN000;; Get next class CLC ;;AN000;; $ENDIF ;;AN000;; $LEAVE C ;;AN000;; OR CX,CX ;;AN000;; Was the message found? $ENDDO NZ,LONG ;;AN000;;
PUSHF ;;AN006;; Save the flag state CMP DH,EXT_ERR_CLASS ;;AN006;; Was an extended error requested? $IF E ;;AN006;; Yes, PUSH DX ;;AN006;; Save all needed registers PUSH BP ;;AN006;; PUSH CX ;;AN006;; PUSH ES ;;AN006;; PUSH DI ;;AN006;; PUSH AX ;;AN006;;
MOV AX,IFSFUNC_INSTALL_CHECK ;;AN006;; Check if IFSFUNC is installed INT 2FH ;;AN006;; CMP AL,IFSFUNC_INSTALLED ;;AN006;; Is it installed? POP AX ;;AN006;; Restore msg number $IF E ;;AN006;; Yes, MOV BX,AX ;;AN006;; BX is the extended error number MOV AX,IFS_GET_ERR_TEXT ;;AN006;; AX is the muliplex number INT 2FH ;;AN006;; Call IFSFUNC $ELSE ;;AN006;; No, STC ;;AN006;; Carry conditon $ENDIF ;;AN006;;
$IF C ;;AN006;; Was there an update? POP DI ;;AN006;; No, POP ES ;;AN006;; Restore old pointer POP CX ;;AN006;; $ELSE ;;AN006;; Yes ADD SP,6 ;;AN006;; Throw away old pointer CALL $M_SET_LEN_IN_CX ;;AN006;; Get the length of the ASCIIZ string $ENDIF ;;AN006;; POP BP ;;AN006;; Restore other Regs POP DX ;;AN006;; $ENDIF ;;AN006;; $M_POPF ;;AN006;; Restore the flag state
POP BX ;;AN000;; POP SI ;;AN000;; RET ;;AN000;; Return ES:DI pointing to the message ;;$M_GET_MSG_ADDRESS ENDP ;; ;;$M_SET_LEN_IN_CX PROC NEAR ;; ;; PUSH DI ;;AN006;; Save position PUSH AX ;;AN006;; MOV CX,-1 ;;AN006;; Set CX for decrements XOR AL,AL ;;AN006;; Prepare compare register REPNE SCASB ;;AN006;; Scan for zero NOT CX ;;AN006;; Change decrement into number DEC CX ;;AN006;; Don't include the zero POP AX ;;AN006;; POP DI ;;AN006;; Restore position RET ;;AN006;; ;;$M_SET_LEN_IN_CX ENDP ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_FIND_SPECIFIED_MSG;;;; FUNCTION: To scan thru message headers until message is found;; INPUTS: ES:DI points to beginning of msg headers;; CX contains the number of messages in class;; DH contains the message class;; OUPUTS: IF CX = 0 THEN Message was not found;; IF CX > 1 THEN ES:DI points to header of specified message;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_FIND_SPECIFIED_MSG PROC NEAR ;;AN000;; ;; CMP BX,1 ;;AN004;; Do we have an address to CALL? $IF E,AND ;;AN004;; Yes, CMP WORD PTR $M_RT.$M_DISK_PROC_ADDR,-1 ;;AN004;; Do we have an address to CALL? $IF NE ;;AN004;; Yes, CMP AX,$M_SPECIAL_MSG_NUM ;;AN004;; Are we displaying a default Ext Err? $IF E ;;AN004;; . . . and . . . PUSH AX ;;AN004;; Reset the special message number MOV AX,$M_RT.$M_MSG_NUM ;;AN004;; Get the old message number CALL DWORD PTR $M_RT.$M_DISK_PROC_ADDR ;;AN004;; Call the READ_DISK_PROC to get error text POP AX ;;AN004;; Reset the special message number $ELSE ;;AN004;; Get the old message number CALL DWORD PTR $M_RT.$M_DISK_PROC_ADDR ;;AN004;; Call the READ_DISK_PROC to get error text $ENDIF ;;AN004;; Get the old message number $ELSE ;;AN004;; XOR CX,CX ;;AN002;; CX = 0 will allow us to CMP DH,UTILITY_MSG_CLASS ;;AN001;; $IF NE ;;AN001;; MOV CL,BYTE PTR ES:[DI].$M_NUM_CLS_MSG ;;AN001;; Get number of messages in class $ELSE ;;AN001;;IF FARmsg ;;AN001;; CMP BYTE PTR ES:[DI].$M_CLASS_ID,DH ;;AN002;; Check if class still exists atELSE CMP BYTE PTR CS:[DI].$M_CLASS_ID,DH ;;AN002;; Check if class still exists atENDIF $IF E ;;AN002;; pointer (hopefully)IF FARmsg ;;AN001;; MOV CL,BYTE PTR ES:[DI].$M_NUM_CLS_MSG ;;AN000;; Get number of messages in classELSE MOV CL,BYTE PTR CS:[DI].$M_NUM_CLS_MSG ;;AN000;; Get number of messages in classENDIF $ENDIF ;;AN002;; go on to the next class $ENDIF ;;AN001;; ADD DI,$M_CLASS_ID_SZ ;;AN000;; Point past the class header STC ;;AN004;; Flag that we haven't found anything yet $ENDIF ;;AN004;;
$IF C ;;AN004;; Have we found anything yet? CLC ;;AN004;; No, reset carry $SEARCH ;;AN000;; OR CX,CX ;;AN000;; Do we have any to check? $LEAVE Z ;;AN000;; No, return with CX = 0 CMP DH,UTILITY_MSG_CLASS ;;AN001;; $IF NE ;;AN001;; CMP AX,WORD PTR ES:[DI].$M_NUM ;;AN001;; Is this the message requested? $ELSE ;;AN001;;IF FARmsg ;;AN001;; CMP AX,WORD PTR ES:[DI].$M_NUM ;;AN000;; Is this the message requested?ELSE CMP AX,WORD PTR CS:[DI].$M_NUM ;;AN000;; Is this the message requested?ENDIF $ENDIF $EXITIF E ;;AN000;; $ORELSE ;;AN000; DEC CX ;;AN000;; No, well do we have more to check? $LEAVE Z ;;AN000;; No, return with CX = 0 ADD DI,$M_ID_SZ ;;AN000;; Yes, skip past msg header $ENDLOOP ;;AN000;; STC ;;AN000;; $ENDSRCH ;;AN000;; Check next message $IF NC ;;AN000;; Did we find the message? CMP DH,UTILITY_MSG_CLASS ;;AN001;; Yes, is it a utility message? CLC ;;AN001;; $IF E ;;AN001;;IF FARmsg ;;AN001;;ELSE ;;AN000;; PUSH CS ;;AN000;; POP ES ;;AN000;; Return ES:DI pointing to the messageENDIF $ENDIF ;;AN001;; ADD DI,WORD PTR ES:[DI].$M_TXT_PTR ;;AN000;; Prepare ES:DI pointing to the message $ENDIF ;;AN004;; $ENDIF ;;AN004;; ;; Yes, great we can return with CX > 0
$IF NC ;;AN000;; Did we find the message? XOR CH,CH ;;AN000;; MOV CL,BYTE PTR ES:[DI] ;;AN000;; Move size into CX INC DI ;;AN000;; Increment past length $ENDIF ;;AN004;;
MOV $M_RT.$M_SIZE,$M_NULL ;;AN004;; Reset variable RET ;;AN000;; Return ;;$M_FIND_SPECIFIED_MSG ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include of common subroutines; IF $M_REPLACE ;;AN000;; Is the request to include the code for replaceable parms $M_REPLACE = FALSE ;;AN000;; Tell the assembler we did ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;$M_DISPLAY_REPLACE PROC NEAR ;;AN000;; ;; XOR BX,BX ;;AN000;; Use BX for buffer countIF NOT COMR CMP $M_SL.$M_S_ID,$M_SPECIAL_CASE-30H ;;AN000;; Is this the special case (convert to ASCII) $IF E ;;AN000;; Yes, MOV WORD PTR $M_RT.$M_TEMP_BUF[BX],$M_SPACE_HYP ;;AN000;; Move in a " -" INC BX ;;AN000;; Increment count INC BX ;;AN000;; Increment count MOV BYTE PTR $M_RT.$M_TEMP_BUF[BX],$M_SPACE ;;AN000;; Move in a " " INC BX ;;AN000;; Increment count CALL $M_FLUSH_BUF ;;AN000;; Write out " - " to prepare for special case $ENDIF ;;AN000;; If it fails we will catch it laterENDIF
POP BP ;;AN000;; Remember the return address XOR BX,BX ;;AN000;; Use BX for buffer count XOR DX,DX ;;AN000;; Use DX for count of parms taken off the stack
MOV $M_RT.$M_SIZE,CL ;;AN000;; Save size to later clear stack MOV AL,BYTE PTR $M_SL.$M_S_MINW ;;AN000;; Get the minimum width ;; CMP AL,CL ;;AN000;; Do we need pad chars added? $IF A ;;AN000;; Yes, SUB AL,CL ;;AN000;; Calculate how many pad chars are needed. MOV DH,AL ;;AN000;; Save the number of pad characters TEST BYTE PTR $M_SL.$M_S_FLAG,Right_Align ;;AN000;; Was replaceable parm to be right aligned? $IF NZ ;;AN000;; Yes, $DO ;;AN000;; Begin filling buffer with pad chars MOV AL,BYTE PTR $M_SL.$M_S_PAD ;;AN000;; MOV BYTE PTR $M_RT.$M_TEMP_BUF[BX],AL ;;AN000;; Move in a pad char INC BX ;;AN000;; CMP BX,$M_TEMP_BUF_SZ ;;AN000;; Is buffer full? $IF E ;;AN000;; Yes, CALL $M_FLUSH_BUF ;;AN000;; Flush the buffer $ENDIF ;;AN000;; DEC DH ;;AN000;; Have we filled with enough pad chars? $ENDDO Z ;;AN000;; No, next pad character $ENDIF ;;AN000;; $ENDIF ;;AN000;; Yes, ;; CMP BYTE PTR $M_SL.$M_S_MAXW,$M_UNLIM_W ;;AN000;; Is maximum width unlimited? $IF NE ;;AN000;; CMP BYTE PTR $M_SL.$M_S_MAXW,CL ;;AN000;; Will we exceed maximum width? $IF B ;;AN000;; Yes, SUB CL,BYTE PTR $M_SL.$M_S_MAXW ;;AN000;; Calculate how many extra chars MOV DL,CL ;;AN000;; Remember how many chars to pop off MOV CL,BYTE PTR $M_SL.$M_S_MAXW ;;AN000;; Set new string length $ENDIF ;;AN000;; $ENDIF ;;AN000;; OR CX,CX ;;AN000;; $IF NZ ;;AN000;; $DO ;;AN000;; Begin filling buffer with string TEST BYTE PTR $M_SL.$M_S_FLAG,NOT Char_Type AND $M_TYPE_MASK ;;AN000;; $IF Z,AND ;;AN000;; TEST $M_SL.$M_S_FLAG,Char_field_ASCIIZ AND $M_SIZE_MASK ; Is this replace a ASCIIZ string? $IF NZ ;;AN000;; Yes, MOV AL,BYTE PTR ES:[DI] ;;AN000;; Get first character from string INC DI ;;AN000;; Next character in string $ELSE ;;AN000;; No, POP AX ;;AN000;; Get character in register $ENDIF ;;AN000;; MOV BYTE PTR $M_RT.$M_TEMP_BUF[BX],AL ;;AN000;; Move char into the buffer INC BX ;;AN000;; Increase buffer count CMP BX,$M_TEMP_BUF_SZ ;;AN000;; Is buffer full? $IF E ;;AN000;; Yes, CALL $M_FLUSH_BUF ;;AN000;; Flush the buffer $ENDIF ;;AN000;; DEC CL ;;AN000;; Have we completed replace? $ENDDO Z ;;AN000;; Test again $ENDIF ;;AN000;; ;; TEST BYTE PTR $M_SL.$M_S_FLAG,Right_Align ;;AN000;; Was replaceable parm to be left aligned? $IF Z ;;AN000;; Yes, OR DH,DH ;;AN000;; Do we need pad chars added? $IF NZ ;;AN000;; Yes, $DO ;;AN000;; Begin filling buffer with pad chars MOV AL,BYTE PTR $M_SL.$M_S_PAD ;;AN000;; MOV BYTE PTR $M_RT.$M_TEMP_BUF[BX],AL ;;AN000;; Move in a pad char INC BX ;;AN000;; CMP BX,$M_TEMP_BUF_SZ ;;AN000;; Is buffer full? $IF E ;;AN000;; Yes, CALL $M_FLUSH_BUF ;;AN000;; Flush the buffer $ENDIF ;;AN000;; DEC DH ;;AN000;; Have we filled with enough pad chars? $ENDDO Z ;;AN000;; Test again $ENDIF ;;AN000;; $ENDIF ;;AN000;; ;; TEST BYTE PTR $M_SL.$M_S_FLAG,NOT Char_Type AND $M_TYPE_MASK ;;AN000;; $IF Z,AND ;;AN000;; TEST $M_SL.$M_S_FLAG,Char_field_ASCIIZ AND $M_SIZE_MASK ;;AN000;; Is this replace a ASCIIZ string? $IF NZ ;;AN000;; Yes, $ELSE ;;AN000;; OR DL,DL ;;AN000;; $IF NE ;;AN000;; $DO ;;AN000;; POP [$M_RT.$M_RETURN_ADDR] ;;AN000;; Clean Up stack using spare variable DEC DL ;;AN000;; Are we done? $ENDDO Z ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;; CALL $M_FLUSH_BUF ;;AN000;; Flush the buffer for the final time PUSH BP ;;AN000;; Restore the return address ;; RET ;;AN000;; ;;$M_DISPLAY_REPLACE ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_FLUSH_BUFFER;;;; FUNCTION: Display the contents of the temporary buffer;; INPUTS: DI contains the number of bytes to display;; OUTPUTS: BX reset to zero;;;; REGS USED:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_FLUSH_BUF PROC NEAR ;;AN000;; ;; PUSH CX ;;AN000;; Save changed regs PUSH ES ;;AN000;; PUSH DI ;;AN000;; PUSH DS ;;AN000;; Set ES pointing to buffer POP ES ;;AN000;; ;; MOV CX,BX ;;AN000;; Set number of bytes to display XOR BX,BX ;;AN000;; Reset buffer counter LEA DI,$M_RT.$M_TEMP_BUF ;;AN000;; Reset buffer location pointer CALL $M_DISPLAY_STRING ;;AN000;; Display the buffer ;; $IF NC ;;AN000;; Error? POP DI ;;AN000;; No, Restore changed regs POP ES ;;AN000;; POP CX ;;AN000;; $ELSE ;;AN000;; Yes, ADD SP,6 ;;AN000;; Fix stack STC ;;AN000;; $ENDIF ;;AN000;; Error? ;; RET ;;AN000;; Return ;;$M_FLUSH_BUF ENDP ;;AN000;; ;; ;; IF CHARmsg ;;AN000;; Is the request to include the code for CHAR replace? $M_REPLACE = TRUE ;;AN000;; Yes, THEN include it and flag that we will need common $M_CHAR_ONLY = TRUE ;;AN000;; replacement code later;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_CHAR_REPLACE;;;; FUNCTION: Will prepare a single char or ASCIIZ string for replace;; INPUTS: DS:SI points at corresponding SUBLIST;; ES:DI contains the VALUE from SUBLIST;; OUTPUTS: CX contains number of characters on stack;; Top of stack --> Last character;; . . .;; Bot of stack --> First character;;;; OTHER REGS Revised: AX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_CHAR_REPLACE PROC NEAR ;;AN000;; ;; POP BP ;;AN000;; Save return address TEST $M_SL.$M_S_FLAG,NOT Char_Field_Char AND $M_SIZE_MASK ;;AN000;; Was Character specified? $IF Z ;;AN000;; Yes, MOV AL,BYTE PTR ES:[DI] ;;AN000;; Get the character PUSH AX ;;AN000;; Put it on the stack INC CX ;;AN000;; Increase the count CALL $M_IS_IT_DBCS ;;AN000;; Is this the first byte of a DB character $IF C ;;AN000;; Yes, MOV AL,BYTE PTR ES:[DI]+1 ;;AN000;; Get the next character PUSH AX ;;AN000;; Put it on the stack CLC ;;AN000;; Clear the carry $ENDIF ;;AN000;; $ELSE ;;AN000;; No, it was an ASCIIZ string $DO ;;AN000;; MOV AL,BYTE PTR ES:[DI] ;;AN000;; Get the character OR AL,AL ;;AN000;; Is it the NULL? $LEAVE Z ;;AN000;; No, INC DI ;;AN000;; Next character INC CX ;;AN000;; Increment the count $ENDDO ;;AN000;; Yes, SUB DI,CX ;;AN000;; Set SI at the beginning of the string $ENDIF ;;AN000;; ;;AN000;; PUSH BP ;;AN000;; Restore return address RET ;;AN000;; Return ;;$M_CHAR_REPLACE ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include of CHAR replace code; IF NUMmsg ;;AN000;; Is the request to include the code for NUM replace? $M_REPLACE = TRUE ;;AN000;; Yes, THEN include it and flag that we will need common $M_CHAR_ONLY = FALSE ;;AN000;; replacement code later;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_BIN2ASC_REPLACE;;;; FUNCTION: Convert a signed or unsigned binary number to an ASCII string;; and prepare to display;; INPUTS: DS:SI points at corresponding SUBLIST;; ES:DI contains the VALUE from SUBLIST;; OUTPUTS: CX contains number of characters on stack;; Top of stack --> Last character;; . . .;; Bot of stack --> First character;; OTHER REGS Revised: BX,DX,AX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_BIN2ASC_REPLACE PROC NEAR ;;AN000;; ;; POP BP ;;AN000;; Save return address ;; XOR DX,DX ;;AN000;; Prepare for get binary value (HIGH) XOR AX,AX ;;AN000;; Prepare for get binary value (LOW) MOV $M_RT.$M_DIVISOR,$M_BASE16 ;;AN000;; Set default divisor XOR BX,BX ;;AN000;; Use BP as the NEG flag (if applicable)IF NOT COMR TEST $M_SL.$M_S_FLAG,NOT $M_BYTE AND $M_SIZE_MASK ;;AN000;; Was BYTE specified? $IF Z ;;AN000;; MOV AL, BYTE PTR ES:[DI] ;;AN000;; Setup byte in AL TEST $M_SL.$M_S_FLAG,NOT Sgn_Bin_Type AND $M_TYPE_MASK ;;AN000;; Was Signed binary specified? $IF Z ;;AN000;; TEST AL,10000000b ;;AN000;; Is this number negative? $IF NZ ;;AN000;; Yes, INC BX ;;AN000;; Remember that it was negative AND AL,01111111b ;;AN000;; Make it positive $ENDIF ;;AN000;; MOV $M_RT.$M_DIVISOR,$M_BASE10 ;;AN000;; $ENDIF ;;AN000;; TEST $M_SL.$M_S_FLAG,NOT Unsgn_Bin_Type AND $M_TYPE_MASK ;;AN000;; Was Signed binary specified? $IF Z ;;AN000;; MOV $M_RT.$M_DIVISOR,$M_BASE10 ;;AN000;; $ENDIF ;;AN000;; $ELSE ;;AN000;;ENDIF TEST $M_SL.$M_S_FLAG,NOT $M_WORD AND $M_SIZE_MASK ;;AN000;; Was WORD specified? $IF Z ;;AN000;; MOV AX, WORD PTR ES:[DI] ;;AN000;; Setup byte in AL TEST $M_SL.$M_S_FLAG,NOT Sgn_Bin_Type AND $M_TYPE_MASK ;; AN000;; Was Signed binary specified? $IF Z ;;AN000;; TEST AH,10000000b ;;AN000;; Is this number negative? $IF NZ ;;AN000;; Yes, INC BX ;;AN000;; Remember that it was negative AND AH,01111111b ;;AN000;; Make it positive $ENDIF ;;AN000;; MOV $M_RT.$M_DIVISOR,$M_BASE10 ;;AN000;; $ENDIF ;;AN000;; TEST $M_SL.$M_S_FLAG,NOT Unsgn_Bin_Type AND $M_TYPE_MASK ;;AN000;; Was Signed binary specified? $IF Z ;;AN000;; MOV $M_RT.$M_DIVISOR,$M_BASE10 ;;AN000;; $ENDIF ;;AN000;; $ELSE ;;AN000;;IF NOT COMR MOV AX, WORD PTR ES:[DI] ;;AN000;; Setup Double word in DX:AX MOV DX, WORD PTR ES:[DI]+2 ;;AN000;; TEST $M_SL.$M_S_FLAG,NOT Sgn_Bin_Type AND $M_TYPE_MASK ;;AN000;; Was Signed binary specified? $IF Z ;;AN000;; TEST DH,10000000b ;;AN000;; Is this number negative? $IF NZ ;;AN000;; Yes, INC BX ;;AN000;; Remember that it was negative AND DH,01111111b ;;AN000;; Make it positive $ENDIF ;;AN000;; MOV $M_RT.$M_DIVISOR,$M_BASE10 ;;AN000;; $ENDIF ;;AN000;; TEST $M_SL.$M_S_FLAG,NOT Unsgn_Bin_Type AND $M_TYPE_MASK ;;AN000;; Was Signed binary specified? $IF Z ;;AN000;; MOV $M_RT.$M_DIVISOR,$M_BASE10 ;;AN000;; $ENDIF ;;AN000;;ENDIF $ENDIF ;;AN000;; $ENDIF ;;AN000;; ;; CALL $M_CONVERT2ASC ;;AN000;; Convert to ASCII stringIF NOT COMR OR BX,BX ;;AN000;; $IF NZ ;;AN000;; Was number negative? XOR DX,DX ;;AN000;; Yes, MOV DL,$M_NEG_SIGN ;;AN000;; Put "-" on the stack with the number PUSH DX ;;AN000;; $ENDIF ;;AN000;; No,ENDIF ;; PUSH BP ;;AN000;; Restore return address RET ;;AN000;; Return ;;$M_BIN2ASC_REPLACE ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include of NUM replace code; IF DATEmsg ;;AN000;; Is the request to include the code for DATE replace? $M_REPLACE = TRUE ;;AN000;; Yes, THEN include it and flag that we will need common $M_CHAR_ONLY = FALSE ;;AN000;; replacement code later;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_DATE_REPLACE;;;; FUNCTION: Convert a date to a decimal ASCII string using current;; country format and prepare to display;; INPUTS: DS:SI points at corresponding SUBLIST;; ES:DI points at VALUE from SUBLIST;; OUTPUTS: CX contains number of characters on stack;; Top of stack --> Last character;; . . .;; Bot of stack --> First character;; OTHER REGS Revised: DX, AX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_DATE_REPLACE PROC NEAR ;;AN000;; ;; POP BP ;;AN000;; Save return address MOV $M_RT.$M_DIVISOR,$M_BASE10 ;;AN000;; Set default divisor CALL $M_GET_DATE ;;AN000;; Set date format/separator in $M_RT ;;AN000;; All O.K.? XOR DX,DX ;;AN000;; Reset DX value XOR AX,AX ;;AN000;; Reset AX value CMP WORD PTR $M_RT.$M_DATE_FORMAT,0 ;;AN000;; USA Date Format $IF E ;;AN000;; Beginning from end: (saved on the stack) CALL $M_YEAR ;;AN000;; Get Year CALL $M_CONVERTDATE ;;AN000;; Convert it to an ASCII string PUSH WORD PTR $M_RT.$M_DATE_SEPARA ;;AN000;; INC CX ;;AN000;; Increment count XOR AX,AX ;;AN000;; Reset AX value MOV AL,BYTE PTR $M_SL.$M_S_VALUE+3 ;;AN000;; Get Day CALL $M_CONVERTDATE ;;AN000;; Convert it to an ASCII string PUSH WORD PTR $M_RT.$M_DATE_SEPARA ;;AN000;; INC CX ;;AN000;; Increment count MOV AL,BYTE PTR $M_SL.$M_S_VALUE+2 ;;AN000;; Get Month CALL $M_CONVERTDATE ;;AN000;; Convert it to an ASCII string $ENDIF ;;AN000;; ;; CMP WORD PTR $M_RT.$M_DATE_FORMAT,1 ;;AN000;; EUROPE Date Format $IF E ;;AN000;; Beginning from end: (saved on the stack) CALL $M_YEAR ;;AN000;; Get Year CALL $M_CONVERTDATE ;;AN000;; Convert it to an ASCII string PUSH WORD PTR $M_RT.$M_DATE_SEPARA ;;AN000;; INC CX ;;AN000;; XOR AX,AX ;;AN000;; Reset AX MOV AL,BYTE PTR $M_SL.$M_S_VALUE+2 ;;AN000;; Get Month CALL $M_CONVERTDATE ;;AN000;; Convert it to an ASCII string PUSH WORD PTR $M_RT.$M_DATE_SEPARA ;;AN000;; INC CX ;;AN000;; MOV AL,BYTE PTR $M_SL.$M_S_VALUE+3 ;;AN000;; Get Day CALL $M_CONVERTDATE ;;AN000;; Convert it to an ASCII string $ENDIF ;;AN000;; ;; CMP WORD PTR $M_RT.$M_DATE_FORMAT,2 ;;AN000;; JAPAN Date Format $IF E ;;AN000;; Beginning from end: (saved on the stack) MOV AL,BYTE PTR $M_SL.$M_S_VALUE+3 ;;AN000;; Get Day CALL $M_CONVERTDATE ;;AN000;; Convert it to an ASCII string PUSH WORD PTR $M_RT.$M_DATE_SEPARA ;;AN000;; INC CX ;;AN000;; MOV AL,BYTE PTR $M_SL.$M_S_VALUE+2 ;;AN000;; Get Month CALL $M_CONVERTDATE ;;AN000;; Convert it to an ASCII string PUSH WORD PTR $M_RT.$M_DATE_SEPARA ;;AN000;; INC CX ;;AN000;; CALL $M_YEAR ;;AN000;; Get Year CALL $M_CONVERTDATE ;;AN000;; Convert it to an ASCII string $ENDIF ;;AN000;; ;; PUSH BP ;;AN000;; Restore return address RET ;;AN000;; Return ;;$M_DATE_REPLACE ENDP ;;AN000;; ;;$M_GET_DATE PROC NEAR ;;AN000;; MOV AH,DOS_GET_COUNTRY ;;AN000;; Call DOS for country dependant info MOV AL,0 ;;AN000;; Get current country info LEA DX,$M_RT.$M_TEMP_BUF ;;AN000;; Set up addressibility to buffer INT 21H ;;AN000;; $IF C ;;AN000;; No, MOV WORD PTR $M_RT.$M_DATE_FORMAT,$M_DEF_DATE_FORM ;;AN000;; Set default date format (BH) MOV BYTE PTR $M_RT.$M_DATE_SEPARA,$M_DEF_DATE_SEP ;;AN000;; Set default date separator (BL) $ENDIF ;;AN000;; RET ;;AN000;;$M_GET_DATE ENDP ;;AN000;; ;;$M_YEAR PROC NEAR ;;AN000;; MOV AX,WORD PTR $M_SL.$M_S_VALUE ;;AN000;; Get Year TEST $M_SL.$M_S_FLAG,Date_MDY_4 AND $M_DATE_MASK ;;AN000;; Was Month/Day/Year (2 Digits) specified? $IF Z ;;AN000;; CMP AX,$M_MAX_2_YEAR ;;AN000;; Get Year $IF A ;;AN000;; MOV AX,$M_MAX_2_YEAR ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;; RET ;;AN000;;$M_YEAR ENDP ;;AN000;; ;;$M_CONVERTDATE PROC NEAR ;;AN000;; POP WORD PTR $M_RT.$M_TEMP_BUF ;;AN000;; Save return address MOV $M_RT.$M_SIZE,CL ;;AN000;; Save the size before conversion CALL $M_CONVERT2ASC ;;AN000;; Convert it to an ASCII string DEC CX ;;AN000;; Test if size only grew by 1 CMP CL,$M_RT.$M_SIZE ;;AN000;; Did size only grow by one $IF E ;;AN000;; Yes, MOV AX,$M_TIMEDATE_PAD ;;AN000;; Get a pad character (0) PUSH AX ;;AN000;; Save it INC CX ;;AN000;; Count it $ENDIF ;;AN000;; INC CX ;;AN000;; Restore CX PUSH WORD PTR $M_RT.$M_TEMP_BUF ;;AN000;; Save return address RET ;;AN000;;$M_CONVERTDATE ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include of DATE replace code; IF TIMEmsg ;;AN000;; Is the request to include the code for TIME replace? $M_REPLACE = TRUE ;;AN000;; Yes, THEN include it and flag that we will need common $M_CHAR_ONLY = FALSE ;;AN000;; replacement code later;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_TIME_REPLACE;;;; FUNCTION: Convert a time to a decimal ASCII string;; and prepare to display;; INPUTS: DS:SI points at corresponding SUBLIST;; ES:DI points at VALUE from SUBLIST;; OUTPUTS: CX contains number of characters on stack;; Top of stack --> Last character;; . . .;; Bot of stack --> First character;; REGS USED: BP,CX,AX;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_TIME_REPLACE PROC NEAR ;;AN000;; ;; POP BP ;;AN000;; Save return address MOV $M_RT.$M_DIVISOR,$M_BASE10 ;;AN000;; Set default divisor CALL $M_GET_TIME ;;AN000;; All O.K.? TEST $M_SL.$M_S_FLAG,Time_Cty_Type AND $M_TIME_MASK ;;AN000;; Is this a request for current country info? $IF NZ ;;AN000;; Yes, CMP BYTE PTR $M_RT.$M_TIME_FORMAT,0 ;;AN000;; Is the current country format 12 Hour? $IF E ;;AN000;; Yes, MOV AL,BYTE PTR $M_SL.$M_S_VALUE ;;AN000;; Get Hours CMP AL,12 ;;AN000;; Is hour 12 or less? $IF L,OR ;;AN000;; or CMP AL,23 ;;AN000;; Is hour 24 or greater? $IF G ;;AN000;; Yes, MOV AL,$M_AM ;;AN000;; PUSH AX ;;AN000;; Push an "a" to represent AM. INC CX ;;AN000;; $ELSE ;;AN000;; No, MOV AL,$M_PM ;;AN000;; PUSH AX ;;AN000;; Push an "p" to represent PM. INC CX ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;; ;; XOR AX,AX ;;AN000;; XOR DX,DX ;;AN000;; TEST $M_SL.$M_S_FLAG,Time_HHMMSSHH_Cty AND $M_SIZE_MASK ;;AN000;; Was Hour/Min/Sec/Hunds (12 Hour) specified? $IF NZ ;;AN000;; MOV AL,BYTE PTR $M_SL.$M_S_VALUE+3 ;;AN000;; Get Hundreds CALL $M_CONVERTTIME ;;AN000;; PUSH WORD PTR $M_RT.$M_DECI_SEPARA ;;AN000;; INC CX ;;AN000;; $ENDIF ;;AN000;; TEST $M_SL.$M_S_FLAG,Time_HHMMSSHH_Cty AND $M_SIZE_MASK ;;AN000;; Was Hour/Min/Sec/Hunds (12 Hour) specified? $IF NZ,OR ;;AN000;; TEST $M_SL.$M_S_FLAG,Time_HHMMSS_Cty AND $M_SIZE_MASK ;;AN000;; Was Hour/Min/Sec (12 Hour) specified? $IF NZ ;;AN000;; MOV AL,BYTE PTR $M_SL.$M_S_VALUE+2 ;;AN000;; Get Seconds CALL $M_CONVERTTIME ;;AN000;; PUSH WORD PTR $M_RT.$M_TIME_SEPARA ;;AN000;; INC CX ;;AN000;; $ENDIF ;;AN000;; ;; Do Hour/Min (12 Hour) MOV AL,BYTE PTR $M_SL.$M_S_VALUE+1 ;;AN000;; Get Minutes CALL $M_CONVERTTIME ;;AN000;; PUSH WORD PTR $M_RT.$M_TIME_SEPARA ;;AN000;; INC CX ;;AN000;; ;; MOV AL,BYTE PTR $M_SL.$M_S_VALUE ;;AN000;; Get Hours TEST $M_SL.$M_S_FLAG,Time_Cty_Type AND $M_TIME_MASK ;;AN000;; Is this a request for current country info? $IF NZ ;;AN000;; Yes, CMP BYTE PTR $M_RT.$M_TIME_FORMAT,0 ;;AN000;; Is the current country format 12 Hour? $IF E ;;AN000;; Yes, CMP AL,13 ;;AN000;; Is hour less than 12? $IF GE ;;AN000;; Yes, SUB AL,12 ;;AN000;; Set to a 12 hour value $ENDIF ;;AN000;; CMP AL,0 ;;AN000;; Is hour less than 12? $IF E ;;AN000;; Yes, MOV AL,12 ;;AN000;; Set to a 12 hour value $ENDIF ;;AN000;; $ENDIF ;;AN000;; $ENDIF ;;AN000;; CALL $M_CONVERT2ASC ;;AN000;; Convert it to ASCII ;; PUSH BP ;;AN000;; Restore return address RET ;;AN000;; Return ;;$M_TIME_REPLACE ENDP ;;AN000;; ;;$M_GET_TIME PROC NEAR ;;AN000;; MOV AH,DOS_GET_COUNTRY ;;AN000;; Call DOS for country dependant info MOV AL,0 ;;AN000;; Get current country info LEA DX,$M_RT.$M_TEMP_BUF ;;AN000;; Set up addressibility to buffer INT 21H ;;AN000;; $IF C ;;AN000;; No, MOV WORD PTR $M_RT.$M_TIME_FORMAT,$M_DEF_TIME_FORM ;;AN000;; Set default time format (BH) MOV BYTE PTR $M_RT.$M_TIME_SEPARA,$M_DEF_TIME_SEP ;;AN000;; Set default time separator (BL) MOV BYTE PTR $M_RT.$M_DECI_SEPARA,$M_DEF_DECI_SEP ;;AN000;; Set default time separator (BL) $ENDIF ;;AN000;; RET ;;AN000;;$M_GET_TIME ENDP ;;AN000;; ;;$M_CONVERTTIME PROC NEAR ;;AN000;; POP WORD PTR $M_RT.$M_TEMP_BUF ;;AN000;; Save return address MOV $M_RT.$M_SIZE,CL ;;AN000;; Save the size before conversion CALL $M_CONVERT2ASC ;;AN000;; Convert it to an ASCII string DEC CX ;;AN000;; Test if size only grew by 1 CMP CL,$M_RT.$M_SIZE ;;AN000;; Did size only grow by one $IF E ;;AN000;; Yes, MOV AX,$M_TIMEDATE_PAD ;;AN000;; Get a pad character (0) PUSH AX ;;AN000;; Save it INC CX ;;AN000;; Count it $ENDIF ;;AN000;; INC CX ;;AN000;; Restore CX PUSH WORD PTR $M_RT.$M_TEMP_BUF ;;AN000;; Save return address RET ;;AN000;;$M_CONVERTTIME ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include of TIME replace ENDIF ;;AN000;; END of include of Replacement common code; IF INPUTmsg ;;AN000;; Is the request to include the code for NUM replace? INPUTmsg = FALSE ;;AN000;; Yes, THEN include it and reset the flag;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; PROC NAME: $M_WAIT_FOR_INPUT;;;; FUNCTION: To accept keyed input and return extended key value;; in AX register;; INPUTS: DL contains the DOS function requested for input;; OUPUTS: AX contains the extended key value that was read;; REGS USED:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;$M_WAIT_FOR_INPUT PROC NEAR ;;AN000;; ;; PUSH CX ;;AN000;; Save CX PUSH DX ;;AN000;; Save DX PUSH DS ;;AN000;; Save Data segment ;; CMP DL,DOS_CLR_KEYB_BUF_MASK ;;AN001;; Are we to clear the keyboard buffer? $IF A ;;AN001;; Yes, MOV AL,DL ;;AN001;; Mov function into AL AND AL,LOW_NIB_MASK ;;AN001;; Mask out the C in high nibble MOV AH,DOS_CLR_KEYB_BUF ;;AN001;; Set input function $ELSE ;;AN001;; No, MOV AH,DL ;;AN000;; Put DOS function in AH $ENDIF ;;AN001;; PUSH ES ;;AN000;; Get output buffer segment POP DS ;;AN000;; MOV DX,DI ;;AN000;; Get output buffer offset in case needed INT 21H ;;AN000;; Get keyboard input POP DS ;;AN000;;
CMP DL,DOS_BUF_KEYB_INP ;;AN000;; CLC ;;AN000;; $IF NE ;;AN000;; If character input CALL $M_IS_IT_DBCS ;;AN000;; Is this character DBCS? $IF C ;;AN000;; MOV CL,AL ;;AN000;; Save first character MOV AH,DL ;;AN001;; Get back function INT 21H ;;AN000;; Get keyboard input MOV AH,CL ;;AN000;; Retreive first character AX = xxxx CLC ;;AN000;; Clear carry condition $ELSE ;;AN000;; MOV AH,0 ;;AN000;; AX = 00xx where xx is SBCS $ENDIF ;;AN000;; $ENDIF ;;AN000;; ;; $IF NC ;;AN000;; POP DX ;;AN000;; POP CX ;;AN000;; $ELSE ;;AN000;; ADD SP,4 ;;AN000;; STC ;;AN000;; Reset carry flag $ENDIF ;;AN000;; RET ;;AN000;; Return ;;$M_WAIT_FOR_INPUT ENDP ;;AN000;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ENDIF ;;AN000;; END of include of Wait for Input ENDIF ;;AN000;; END of include of SYSDISPMSG ENDIF ;;AN000;; END of include of MSG_DATA_ONLYENDIF ;;AN000;; END of include of Structure only
|
