summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/DISKCOMP/DCMPMACR.INC
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/DISKCOMP/DCMPMACR.INC')
-rw-r--r--v4.0/src/CMD/DISKCOMP/DCMPMACR.INC171
1 files changed, 171 insertions, 0 deletions
diff --git a/v4.0/src/CMD/DISKCOMP/DCMPMACR.INC b/v4.0/src/CMD/DISKCOMP/DCMPMACR.INC
new file mode 100644
index 0000000..f0cdd0d
--- /dev/null
+++ b/v4.0/src/CMD/DISKCOMP/DCMPMACR.INC
@@ -0,0 +1,171 @@
1 IF1 ;AN000;
2 %OUT INCLUDING DCMPMACR.INC...;AN000;
3 ELSE ;AN000;
4; %OUT INCLUDING DCMPMACR.INC...
5 ENDIF ;AN000;
6;***************************************************************************;
7; MACRO DEFINITION ;
8;***************************************************************************;
9
10HEADER MACRO TEXT ;;AN000;
11.XLIST ;;AN000;
12 SUBTTL &TEXT ;;AN000;
13.LIST ;;AN000;
14 PAGE ;;AN000;
15 ENDM ;;AN000;
16; = = = = = = = = =
17DOSCALL MACRO FUNC,SUBFUNC ;;AN000;
18 IFNB <FUNC> ;;AN000;IS THERE ANY PARMS AT ALL?
19 IFNB <SUBFUNC> ;;AN000;
20 MOV AX,(FUNC SHL 8)+SUBFUNC ;;AN000;FUNC TO AH,SUBFUNC TO AL
21 ELSE ;;AN000;SINCE THERE IS NO SUBFUNC
22 MOV AH,FUNC ;;AN000;
23 ENDIF ;;AN000;
24 ENDIF ;;AN000;
25 INT 21H ;;AN000;
26 ENDM ;;AN000;
27; = = = = = = = = =
28PRINT MACRO MESSAGE ;;AN000;
29 MOV DI,OFFSET MESSAGE ;;AC000;
30 CALL SENDMSG ;;AC000;
31 ENDM ;;AN000;
32; = = = = = = = = =
33.xlist ;AN000;
34;INPUT MACRO MESSAGE
35; PRINT MESSAGE
36; CALL PROMPT
37; ENDM
38.list ;AN000;
39; $SALUT (0,16,22,36)
40MY_TRACKLAYOUT MACRO ;;AN000;
41 LOCAL CSECT_F ;;AN000;
42CSECT_F DW 0 ;;AN000;# OF SECTORS IN A TRACK. Currently 18 is max.
43 ;; THE REST IS FOR FUTURE MEDIA
44 DW 1 ;;AN000;1 ST SECTOR
45 DW 512 ;;AN000;# OF BYTES
46 DW 2 ;;AN000;
47 DW 512 ;;AN000;
48 DW 3 ;;AN000;
49 DW 512 ;;AN000;
50 DW 4 ;;AN000;
51 DW 512 ;;AN000;
52 DW 5 ;;AN000;
53 DW 512 ;;AN000;
54 DW 6 ;;AN000;
55 DW 512 ;;AN000;
56 DW 7 ;;AN000;
57 DW 512 ;;AN000;
58 DW 8 ;;AN000;
59 DW 512 ;;AN000;
60 DW 9 ;;AN000;
61 DW 512 ;;AN000;
62 DW 10 ;;AN000;
63 DW 512 ;;AN000;
64 DW 11 ;;AN000;
65 DW 512 ;;AN000;
66 DW 12 ;;AN000;
67 DW 512 ;;AN000;
68 DW 13 ;;AN000;
69 DW 512 ;;AN000;
70 DW 14 ;;AN000;
71 DW 512 ;;AN000;
72 DW 15 ;;AN000;
73 DW 512 ;;AN000;
74 DW 16 ;;AN000;
75 DW 512 ;;AN000;
76 DW 17 ;;AN000;
77 DW 512 ;;AN000;
78 DW 18 ;;AN000;
79 DW 512 ;;AN000;CURRENTLY 18 SECTORS/TRACK IS MAXIMUM
80 DW 19 ;;AN000;BELOW IS FOR THE FUTURE MEDIA.
81 DW 512 ;;AN000;
82 DW 20 ;;AN000;
83 DW 512 ;;AN000;
84 DW 21 ;;AN000;
85 DW 512 ;;AN000;
86 DW 22 ;;AN000;
87 DW 512 ;;AN000;
88 DW 23 ;;AN000;
89 DW 512 ;;AN000;
90 DW 24 ;;AN000;
91 DW 512 ;;AN000;
92 DW 25 ;;AN000;
93 DW 512 ;;AN000;
94 DW 26 ;;AN000;
95 DW 512 ;;AN000;
96 DW 27 ;;AN000;
97 DW 512 ;;AN000;
98 DW 28 ;;AN000;
99 DW 512 ;;AN000;
100 DW 29 ;;AN000;
101 DW 512 ;;AN000;
102 DW 30 ;;AN000;
103 DW 512 ;;AN000;
104 DW 31 ;;AN000;
105 DW 512 ;;AN000;
106 DW 32 ;;AN000;
107 DW 512 ;;AN000;
108 DW 33 ;;AN000;
109 DW 512 ;;AN000;
110 DW 34 ;;AN000;
111 DW 512 ;;AN000;
112 DW 35 ;;AN000;
113 DW 512 ;;AN000;
114 DW 36 ;;AN000;
115 DW 512 ;;AN000;
116 DW 37 ;;AN000;
117 DW 512 ;;AN000;
118 DW 38 ;;AN000;
119 DW 512 ;;AN000;
120 DW 39 ;;AN000;
121 DW 512 ;;AN000;
122 DW 40 ;;AN000;
123 DW 512 ;;AN000;
124 DW 41 ;;AN000;
125 DW 512 ;;AN000;
126 DW 42 ;;AN000;
127 DW 512 ;;AN000;
128 DW 43 ;;AN000;
129 DW 512 ;;AN000;
130 DW 44 ;;AN000;
131 DW 512 ;;AN000;
132 DW 45 ;;AN000;
133 DW 512 ;;AN000;
134 DW 46 ;;AN000;
135 DW 512 ;;AN000;
136 DW 47 ;;AN000;
137 DW 512 ;;AN000;
138 DW 48 ;;AN000;
139 DW 512 ;;AN000;
140 DW 49 ;;AN000;
141 DW 512 ;;AN000;
142 DW 50 ;;AN000;
143 DW 512 ;;AN000;
144 DW 51 ;;AN000;
145 DW 512 ;;AN000;
146 DW 52 ;;AN000;
147 DW 512 ;;AN000;
148 DW 53 ;;AN000;
149 DW 512 ;;AN000;
150 DW 54 ;;AN000;
151 DW 512 ;;AN000;
152 DW 55 ;;AN000;
153 DW 512 ;;AN000;
154 DW 56 ;;AN000;
155 DW 512 ;;AN000;
156 DW 57 ;;AN000;
157 DW 512 ;;AN000;
158 DW 58 ;;AN000;
159 DW 512 ;;AN000;
160 DW 59 ;;AN000;
161 DW 512 ;;AN000;
162 DW 60 ;;AN000;
163 DW 512 ;;AN000;
164 DW 61 ;;AN000;
165 DW 512 ;;AN000;
166 DW 62 ;;AN000;
167 DW 512 ;;AN000;
168 DW 63 ;;AN000;
169 DW 512 ;;AN000;
170 ENDM ;AN000;
171 \ No newline at end of file
HIC SVNT DRACONES