154 lines
6.1 KiB
PHP
154 lines
6.1 KiB
PHP
IF1 ;AN000;
|
||
;%OUT INCLUDING MSGHAN.INC...;AN000;
|
||
ENDIF ;AN000;
|
||
;THIS IS A COMMONLY INCLUDED FILE, USED BY (AT LEAST) THE FOLLOWING COMPONENTS:
|
||
;TREE, GRAFTABL, DISKCOMP, DISKCOPY, COMP - WRITTEN OR Revised BY E.K.
|
||
|
||
; VALUES FOR THE MSG_DESC CONTROL BLOCK
|
||
ONE_SUBS EQU 1 ;AN000;ONE VARIABLE FIELD IN MESSAGE
|
||
TWO_SUBS EQU 2 ;AN000;TWO VARIABLE FIELDS IN MESSAGE
|
||
THREE_SUBS EQU 3 ;AN000;THREE VARIABLE FIELDS IN MESSAGE
|
||
CLASS_1 EQU EXT_ERR_CLASS ;AN000;CLASS 1 (DOS EXTENDED ERRORS)
|
||
CLASS_2 EQU PARSE_ERR_CLASS ;AN000;CLASS 2 (PARSE ERRORS)
|
||
CLASS_A EQU UTILITY_MSG_CLASS ;AN000;CLASS A TYPE MESSAGE
|
||
|
||
;THIS MESSAGE DESCRIPTOR CONTROL BLOCK IS GENERATED, ONE PER MESSAGE,
|
||
;TO DEFINE THE SEVERAL PARAMETERS THAT ARE EXPECTED TO BE PASSED IN
|
||
;CERTAIN REGISTERS WHEN THE SYSDISPMSG FUNCTION IS TO BE INVOKED.
|
||
|
||
MSG_DESC STRUC ;AN000;
|
||
MSG_NUM DW 0 ;AN000;MESSAGE NUMBER (TO AX)
|
||
MSG_HANDLE DW STDOUT ;AN000;HANDLE OF OUTPUT DEVICE (TO BX)
|
||
MSG_SUBLIST DW 0 ;AN000;POINTER TO SUBLIST (TO SI)
|
||
MSG_COUNT DW 0 ;AN000;SUBSTITUTION COUNT (TO CX)
|
||
MSG_CLASS DW CLASS_A SHL 8 ;AN000;MESSAGE CLASS (IN HIGH BYTE, TO DH)
|
||
; LOW BYTE HAS 0 (FUNCTION "NO INPUT", TO DL)
|
||
MSG_DESC ENDS ;AN000;
|
||
|
||
; VALUES FOR THE SUBLIST CONTROL BLOCK
|
||
PC_ID_0 EQU 0 ;AN000;ID OF " - " TRAILER TO MESSAGE
|
||
PC_ID_1 EQU 1 ;AN000;ID OF PERCENT VARIABLE FIELD
|
||
PC_ID_2 EQU 2 ;AN000;ID OF PERCENT VARIABLE FIELD
|
||
PC_ID_3 EQU 3 ;AN000;ID OF PERCENT VARIABLE FIELD
|
||
MAX_0 EQU 0 ;AN000;MAXIMUM WIDTH OF STRING FIELD (0=NO LIMIT)
|
||
MIN_1 EQU 1 ;AN000;MINIMUM WIDTH OF STRING FIELD
|
||
PAD_BLK EQU " " ;AN000;CHAR FOR PAD FIELD
|
||
FILL_OFF EQU 0 ;AN000;TO BE REPLACED WITH ACTUAL OFFSET
|
||
FILL_SEG EQU 0 ;AN000;TO BE REPLACED WITH ACTUAL SEG ID
|
||
|
||
;THIS SUBLIST CONTROL BLOCK, POINTED TO BY SI WHEN SYSDISPMSG IS CALLED
|
||
;FURTHER DESCRIBES THE MESSAGE AND THE VARIABLE FIELDS THE MSG MAY CONTAIN.
|
||
;THERE IS ONE OF THESE CONTROL BLOCKS PER VARIABLE FIELD. ADDITIONAL
|
||
;VARIABLE FIELDS ARE DEFINED IN ADDITIONAL "SUBLIST" CONTROL BLOCKS,
|
||
;CONSECUTIVE AND CONTIGUOUS WITH THIS ONE. THE NUMBER OF THESE CONTROL
|
||
;BLOCKS IS THE SUBSTITUTION COUNT, PASSED IN CS TO SYSDISPMSG, AS DEFINED
|
||
;IN THE ABOVE "MSC_DESC" CONTROL BLOCK.
|
||
|
||
SUBLIST STRUC ;AN000;
|
||
SUB_SIZE DB 11 ;AN000;SUBLIST SIZE (POINTER TO NEXT SUBLIST)
|
||
SUB_RES DB 0 ;AN000;RESERVED
|
||
;NEXT FIELD IS TO BE USED AS A DOUBLE WORD
|
||
SUB_VALUE DW 0 ;AN000;TIME, DATE, OR PTR TO DATA ITEM
|
||
SUB_VALUE_SEG DW 0 ;AN000;SEG ID OF PTR
|
||
;(ABOVE FIELD MUST BE FILLED AT EXECUTION TIME
|
||
; IF THIS IS A .COM FILE)
|
||
SUB_ID DB 0 ;AN000;N OF %N
|
||
SUB_FLAGS DB 0 ;AN000;DATA TYPE FLAGS
|
||
SUB_MAX_WIDTH DB MAX_0 ;AN000;MAXIMUM FIELD WIDTH (0=UNLIMITED)
|
||
SUB_MIN_WIDTH DB 0 ;AN000;MINIMUM FIELD WIDTH
|
||
SUB_PAD_CHAR DB PAD_BLK ;AN000;CHARACTER FOR PAD FIELD
|
||
; CAN BE " ", "0" OR ",".
|
||
; "," CAUSES INSERTION OF THE ACTIVE
|
||
; THOUSANDS SEPARATOR BETWEEN EVERY 3 DIGITS.
|
||
SUBLIST ENDS ;AN000;
|
||
|
||
; BITS DEFINED FOR SUB_FLAGS ABOVE
|
||
; FORMAT = A0SSTTTT
|
||
; ++ + +--- FIELD TYPE
|
||
; || +--- DATA VARIABLE SIZE
|
||
; |+--- RESERVED, MUST BE ZERO
|
||
; +--- ALIGNMENT INDICATOR
|
||
SF_BITS RECORD F_ALIGN:1,F_RES:1=0,F_SIZE:2,F_TYPE:4;AN000;
|
||
|
||
; F_ALIGN FIELD, ALIGNMENT INDICATOR
|
||
SF_LEFT EQU 0 ;AN000;LEFT ALIGN
|
||
SF_RIGHT EQU 1 ;AN000;RIGHT ALIGN
|
||
|
||
; F_RES FIELD, RESERVED, SHOULD BE ZERO
|
||
|
||
; F_TYPE FIELD, FIELD TYPE
|
||
SF_CHAR EQU 0000B ;AN000;TYPE IS CHARACTER
|
||
; F_SIZE FIELD,
|
||
SF_CH EQU 00B ;AN000;SINGLE CHARACTER
|
||
SF_ASCIIZ EQU 01B ;AN000;ASCIIZ STRING
|
||
|
||
; F_TYPE FIELD, FIELD TYPE
|
||
SF_UN_BD EQU 0001B ;AN000;UNSIGNED BINARY TO DECIMAL CHARACTER
|
||
; F_SIZE FIELD,
|
||
SF_BYTE EQU 01B ;AN000;DATA IS BYTE SIZED
|
||
SF_WORD EQU 10B ;AN000;DATA IS WORD SIZED
|
||
SF_DWORD EQU 11B ;AN000;DATA IS DOUBLE WORD SIZED
|
||
|
||
; F_TYPE FIELD, FIELD TYPE
|
||
SF_SIN_BD EQU 0010B ;AN000;SIGNED BINARY TO DECIMAL CHARACTER
|
||
; F_SIZE FIELD,
|
||
;SF_BYTE EQU 01B ;DATA IS BYTE SIZED
|
||
;SF_WORD EQU 10B ;DATA IS WORD SIZED
|
||
;SF_DWORD EQU 11B ;DATA IS DOUBLE WORD SIZED
|
||
|
||
; F_TYPE FIELD, FIELD TYPE
|
||
SF_UN_BH EQU 0011B ;AN000;UNSIGNED BINARY TO HEXADECIMAL CHARACTER
|
||
; F_SIZE FIELD,
|
||
;SF_BYTE EQU 01B ;DATA IS BYTE SIZED
|
||
;SF_WORD EQU 10B ;DATA IS WORD SIZED
|
||
;SF_DWORD EQU 11B ;DATA IS DOUBLE WORD SIZED
|
||
|
||
; F_TYPE FIELD, FIELD TYPE
|
||
SF_DATE EQU 0100B ;AN000;DATE TO CHARACTER,
|
||
; USING CURRENT COUNTRY FORMAT
|
||
;SUB_VALUE HIGH=YEAR
|
||
;SUB_VALUE LOW=MMDD
|
||
; F_SIZE FIELD,
|
||
SF_MD EQU 01B ;AN000;MONTH AND DAY ONLY
|
||
SF_MDY2 EQU 10B ;AN000;MONTH,DAY AND YEAR (2 DIGITS)
|
||
SF_MDY4 EQU 11B ;AN000;MONTH,DAY AND YEAR (4 DIGITS)
|
||
|
||
; F_TYPE FIELD, FIELD TYPE
|
||
SF_TIME_12 EQU 0101B ;AN000;TIME TO CHARACTER, 12 HOUR FORMAT
|
||
; USING CURRENT COUNTRY FORMAT
|
||
;SUB_VALUE HIGH=HHMM
|
||
;SUB_VALUE LOW=SSHH
|
||
; F_SIZE FIELD,
|
||
SF_HHMM EQU 00B ;AN000;HH:MM (ACTIVE TIME FORMAT)
|
||
SF_HHMMSS EQU 01B ;AN000;HH:MM:SS (ACTIVE TIME FORMAT)
|
||
SF_HHMMSSHH EQU 10B ;AN000;HH:MM:SS:HH
|
||
|
||
; F_TYPE FIELD, FIELD TYPE
|
||
SF_TIME_24 EQU 0110B ;AN000;TIME TO CHARACTER, 24 HOUR FORMAT
|
||
; USING CURRENT COUNTRY FORMAT
|
||
;SUB_VALUE HIGH=HHMM
|
||
;SUB_VALUE LOW=SSHH
|
||
; F_SIZE FIELD,
|
||
;SF_HHMM EQU 00B ;HH:MM (ACTIVE TIME FORMAT)
|
||
;SF_HHMMSS EQU 01B ;HH:MM:SS (ACTIVE TIME FORMAT)
|
||
;SF_HHMMSSHH EQU 10B ;HH:MM:SS:HH
|
||
|
||
; THE NEXT GROUP ARE ALL CLASS "1" MESSAGES
|
||
|
||
PUBLIC MSGNUM_EXTERR;AN000;
|
||
MSGNUM_EXTERR MSG_DESC <,STDERR,,,CLASS_1 SHL 8> ;AN000;ALL EXTENDED DOS ERRORS
|
||
;ERROR NUMBER WILL NEED TO BE FILLED IN
|
||
|
||
; THE NEXT GROUP ARE ALL CLASS "2" MESSAGES
|
||
|
||
PUBLIC MSGNUM_PARSE ;AN000;SO PARSE DRIVER CAN FIND IT
|
||
MSGNUM_PARSE MSG_DESC <,STDERR,,,CLASS_2 SHL 8> ;AN000;ALL PARSING ERRORS
|
||
;ERROR NUMBER WILL NEED TO BE FILLED IN
|
||
|
||
; THE NEXT GROUP ARE ALL CLASS "A" MESSAGES
|
||
; THESE ARE THE "CANNED" MESSAGES ALWAYS PRESENT
|
||
|
||
PUBLIC MSGNUM_VER ;AN000;
|
||
MSGNUM_VER MSG_DESC <1,STDERR> ;AN000;"Incorrect DOS Version"
|
||
;end of MSGHAN.INC
|
||
|