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
|
page 60,132
; $SALUT (4,25,30,41)
INCLUDE pridefs.inc
BREAK <Transient Messages>
;
; DOS PRINT
;
; Transient Service code
;
; 02/13/84 MAU Fixed bug with BadCanMes
;
; 05/20/87 FJG Change format to new Message Service
; Routines/Parse code
;
addr macro sym,name
public name
ifidn <name>,<>
dw offset dg:sym
else
name dw offset dg:sym
endif
endm
Code Segment public para
PUBLIC SYSGETMSG, SYSLOADMSG, SYSDISPMSG
ASSUME CS:DG,DS:nothing,ES:nothing,SS:Stack
; include msgserv.asm
.xlist
.xcref
MSG_SERVICES <MSGDATA>
MSG_SERVICES <NEARmsg,LOADmsg,GETmsg,DISPLAYmsg,INPUTmsg,CHARmsg>
.cref
.list
; include message class 1, 2, A, B, C, and D
.xlist
.xcref
MSG_SERVICES <NEARmsg,PRINT.CL1,PRINT.CL2>
MSG_SERVICES <NEARmsg,PRINT.CLA,PRINT.CLB,PRINT.CLC,PRINT.CLD>
.cref
.list
; $SALUT (4,4,9,41)
; $SALUT (4,25,30,41)
false = 0
DateSW equ false
TimeSW equ false
CmpxSW equ false
KeySW equ false
QusSW equ false
Val2SW equ false
Val3SW equ false
; $SALUT (4,4,9,41)
PUBLIC SYSPARSE
; include parse.asm
;xlist
;xcref
include parse.asm
;cref
;list
CODE ENDS
end
|
