1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
;
;*****************************************************************************
;*****************************************************************************
;UTILITY NAME: FORMAT.COM
;
;MODULE NAME: DISPLAY.ASM
;
;
; Change List: AN000 - New code DOS 3.3 spec additions
; AC000 - Changed code DOS 3.3 spec additions
;*****************************************************************************
;*****************************************************************************
;
;*****************************************************************************
; Define Segment ordering
;*****************************************************************************
;
.SEQ ;
PSP segment public para 'DUMMY'
PSP ends
data segment public para 'DATA' ;
Public Test_Data_Start
Test_Data_Start label byte
data ends ;
stack segment para stack
db 62 dup ("-Stack!-") ; (362-80h) is the additionsal IBM ROM
assume ss:stack
stack ends
code segment public para 'CODE' ;
assume cs:code,ds:data ;
code ends
End_Of_Memory segment public para 'BUFFERS' ;
Public Test_End
Test_End label byte
End_Of_Memory ends ;
;
;*****************************************************************************
; INCLUDE FILES
;*****************************************************************************
;
.xlist
INCLUDE FORCHNG.INC
INCLUDE FOREQU.INC
INCLUDE FORMSG.INC
INCLUDE SYSMSG.INC
.list
;
;*****************************************************************************
; Message Services
;*****************************************************************************
;
MSG_UTILNAME <FORMAT>
data segment public para 'DATA'
Msg_Services <MSGDATA>
data ends
code segment public para 'CODE'
Msg_Services <NEARmsg>
Msg_Services <LOADmsg>
Msg_Services <DISPLAYmsg,CHARmsg,NUMmsg>
Msg_Services <FORMAT.CLA,FORMAT.CLB,FORMAT.CLC,FORMAT.CL1,FORMAT.CL2,FORMAT.CTL>
code ends
;
;*****************************************************************************
; Public Declarations
;*****************************************************************************
;
Public SysDispMsg
Public SysLoadMsg
;
;***************************************************************************
; Message Structures
;***************************************************************************
;
Message_Table struc ; ;AN000;
;
Entry1 dw 0 ; ;AN000;
Entry2 dw 0 ; ;AN000;
Entry3 dw 0 ; ;AN000;
Entry4 dw 0 ; ;AN000;
Entry5 db 0 ; ;AN000;
Entry6 db 0 ; ;AN000;
Entry7 dw 0 ; ;AN000;
;
Message_Table ends ; ;AN000;
code segment public para 'CODE'
;*****************************************************************************
;Routine name&gml Display_Interface
;*****************************************************************************
;
;DescriptioN&gml Save all registers, set up registers required for SysDispMsg
; routine. This information is contained in a message description
; table pointed to by the DX register. Call SysDispMsg, then
; restore registers. This routine assumes that the only time an
; error will be returned is if an extended error message was
; requested, so it will ignore error returns
;
;Called Procedures: Message (macro)
;
;Change History&gml Created 4/22/87 MT
;
;Input&gml ES&gmlDX = pointer to message description
;
;Output&gml None
;
;Psuedocode
;----------
;
; Save all registers
; Setup registers for SysDispMsg from Message Description Tables
; CALL SysDispMsg
; Restore registers
; ret
;*****************************************************************************
Public Display_Interface
Display_Interface proc ; ;AN000;
push ds ; ;AN000;
push ax ;Save registers ;AN000;
push bx ; " " " " ;AN000;
push cx ; " " " " ;AN000;
push dx ; " " " " ;AN000;
push si ; " " " " ;AN000;
push di ; " " " " ;AN000;
mov di,dx ;Change pointer to table ;AN000;
mov dx,data ;Point to data segment
mov ds,dx ;
mov ax,[di].Entry1 ;Message number ;AN000;
mov bx,[di].Entry2 ;Handle ;AN000;
mov si,[di].Entry3 ;Sublist ;AN000;
mov cx,[di].Entry4 ;Count ;AN000;
mov dh,[di].Entry5 ;Class ;AN000;
mov dl,[di].Entry6 ;Function ;AN000;
mov di,[di].Entry7 ;Input ;AN000;
call SysDispMsg ;Display the message ;AN000;
pop di ;Restore registers ;AN000;
pop si ; " " " " ;AN000;
pop dx ; " " " " ;AN000;
pop cx ; " " " " ;AN000;
pop bx ; " " " " ;AN000;
pop ax ; " " " " ;AN000;
pop ds ; ;AN000;
ret ;All done ;AN000;
Display_Interface endp ; ;AN000;
code ends
end
|
