summaryrefslogtreecommitdiff
path: root/v4.0/src/SELECT/MACROS7.INC
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/SELECT/MACROS7.INC')
-rw-r--r--v4.0/src/SELECT/MACROS7.INC126
1 files changed, 126 insertions, 0 deletions
diff --git a/v4.0/src/SELECT/MACROS7.INC b/v4.0/src/SELECT/MACROS7.INC
new file mode 100644
index 0000000..0c8ca06
--- /dev/null
+++ b/v4.0/src/SELECT/MACROS7.INC
@@ -0,0 +1,126 @@
1PROCESS_ESC MACRO ;;AN000;
2 .IF < N_USER_FUNC eq E_ESCAPE > ;;AN000;
3 .THEN ;;AN000;
4 POP_HEADING ;;AN000;
5 .ENDIF ;;AN000;
6 ENDM ;;AN000;
7 ;;AN000;
8PROCESS_F3 MACRO ;;AN000;
9 .IF < N_USER_FUNC eq E_F3 > ;;AN000;
10 .THEN ;;AN000;
11 GOTO EXIT_DOS ;;AN000;
12 .ENDIF ;;AN000;
13 ENDM ;;AN000;
14
15INIT_VAR_MINIMIZE MACRO
16 INIT_VAR S_BUFFERS, 0 ;;AN000;set BUFFERS = null (spaces)
17 INIT_VAR S_FCBS, 0 ;;AN000;set FCBS = null (spaces)
18 INIT_VAR F_ANSI, E_ANSI_NO ;;AN000;set ANSI = no
19 INIT_VAR S_ANSI, 0 ;;AN000;set ANSI field = null (spaces)
20 INIT_VAR F_FASTOPEN, E_FASTOPEN_NO ;;AN000;set FASTOPEN = no
21 INIT_VAR S_FASTOPEN, 0 ;;AN000;set FASTOPEN = null (spaces)
22 INIT_VAR F_GRAPHICS, E_GRAPHICS_NO ;;AN000;set GRAPHICS = no
23 INIT_VAR S_GRAPHICS, 0 ;;AN000;set GRAPHICS field = null (spaces)
24 COPY_STRING S_FILES, M_FILES, D_FILES_2 ;AN000; set FILES = 8
25 ENDM
26
27INIT_VAR_BALANCE MACRO
28 COPY_STRING S_BUFFERS, M_BUFFERS, D_BUFFERS_1 ;;AN000;set BUFFERS = 20
29 INIT_VAR S_FCBS, 0 ;;AN000;set FCBS = null (spaces)
30 INIT_VAR F_ANSI, E_ANSI_YES ;;AN000;set ANSI = yes
31 INIT_VAR S_ANSI, 0 ;;AN000;set ANSI field = null (spaces)
32 INIT_VAR F_FASTOPEN, E_FASTOPEN_YES ;;AN000;set FASTOPEN = yes
33 COPY_STRING S_FASTOPEN, M_FASTOPEN, D_FASTOPEN_1 ;;AN000;set FASTOPEN = C:=(50,25)
34 INIT_VAR F_GRAPHICS, E_GRAPHICS_YES ;;AN000;set GRAPHICS = yes
35 INIT_VAR S_GRAPHICS, 0 ;;AN000;set GRAPHICS field = null (spaces)
36 COPY_STRING S_FILES, M_FILES, D_FILES_1 ;AN000; set FILES = 20
37 ENDM
38
39INIT_VAR_MAXIMIZE MACRO
40 COPY_STRING S_BUFFERS, M_BUFFERS, D_BUFFERS_2 ;;AN000;set BUFFERS = 50,4
41 COPY_STRING S_FCBS, M_FCBS, D_FCBS_1 ;;AN000;set FCBS = 20,8
42 INIT_VAR F_ANSI, E_ANSI_YES ;;AN000;set ANSI = yes
43 COPY_STRING S_ANSI, M_ANSI, D_ANSI_1 ;;AN000;set ANSI field = /X
44 INIT_VAR F_FASTOPEN, E_FASTOPEN_YES ;;AN000;set FASTOPEN = yes
45 COPY_STRING S_FASTOPEN, M_FASTOPEN, D_FASTOPEN_2 ;;AN000;set FASTOPEN = C:(150,150)
46 INIT_VAR F_GRAPHICS, E_GRAPHICS_YES ;;AN000;set GRAPHICS = yes
47 INIT_VAR S_GRAPHICS, 0 ;;AN000;set GRAPHICS field = null (spaces)
48 COPY_STRING S_FILES, M_FILES, D_FILES_1 ;AN000; set FILES = 20
49 ENDM
50
51SAVE_PARAMETERS MACRO SAV_FILE, RET_CODE ;;AN000;
52 PREPARE_FILE SAV_FILE ;;AN000;
53 WORD_TO_CHAR F_SHELL, S_STR120_1
54 WRITE_LINE S_STR120_1
55 WORD_TO_CHAR N_FORMAT_MODE, S_STR120_1 ;;AN000;
56 WRITE_LINE S_STR120_1 ;;AN000;
57 WORD_TO_CHAR N_DISK_1, S_STR120_1 ;;AN000;
58 WRITE_LINE S_STR120_1 ;;AN000;
59 WORD_TO_CHAR I_DESTINATION,S_STR120_1 ;;AN033;SEH save destination, too
60 WRITE_LINE S_STR120_1 ;;AN033;SEH
61 WRITE_LINE S_INSTALL_PATH ;;AN000;
62 SAVE_FILE SAV_FILE, RET_CODE ;;AN000;
63 ENDM ;;AN000;
64
65CREATE_CONFIG MACRO CONFIG_FILE, RET_CODE ;;AN000;
66 PREPARE_FILE CONFIG_FILE ;;AN000;
67 CALL CREATE_CONFIG_SYS ;;AN000;
68 SAVE_FILE CONFIG_FILE, RET_CODE ;;AN000;
69 ENDM ;;AN000;
70
71CREATE_AUTOEXEC MACRO AUTO_FILE, DEST, RET_CODE ;;AN000;
72 MOV N_DEST, DEST ;;AN000;
73 PREPARE_FILE AUTO_FILE ;;AN000;
74 CALL CREATE_AUTOEXEC_BAT ;;AN000;
75 SAVE_FILE AUTO_FILE, RET_CODE ;;AN000;
76 ENDM ;;AN000;
77
78CREATE_SHELL MACRO SHELL_FILE, RET_CODE ;;AN000;
79 PREPARE_FILE SHELL_FILE ;;AN000;
80 CALL CREATE_SHELL_BAT ;;AN000;
81 SAVE_FILE SHELL_FILE, RET_CODE ;;AN000;
82 ENDM ;;AN000;
83
84ADD_WORD MACRO VAR1, VAR2 ;;AN000;
85 MOV AX,VAR2 ;;AN000;
86 ADD VAR1,AX ;;AN000;
87 ENDM ;;AN000;
88
89CHECK_DISPLAY MACRO ;;AN000;
90 CALL VIDEO_CHECK ;;AN000;
91 ENDM ;;AN000;
92
93SAVE_PANEL_LIST MACRO ;;AN000;
94 MOV AX,0ADC0H ;;AN000;
95 MOV BX,0FFFFH ;;AN000;
96 INT 2FH ;;AN000;
97 ENDM ;;AN000;
98
99PREP_FOR_ONE MACRO CPOS ;;AN000;
100 MOV DH,CPOS ;;AN000;
101 CALL DO_PREP_FOR_ONE ;;AN000;
102 ENDM ;;AN000;
103
104HOOK15 MACRO ;;AN000;
105 CALL DO_HOOK15 ;;AN000;
106 ENDM ;;AN000;
107
108UNHOOK15 MACRO ;;AN000;
109 CALL DO_UNHOOK15 ;;AN000;
110 ENDM ;;AN000;
111
112GET_INSTALLED_MEM MACRO MEMORY ;;AN000;
113 INT 12H ;;AN000;
114 MOV MEMORY,AX ;;AN000;
115 ENDM ;;AN000;
116
117HOOK_2F_FORMAT MACRO ;;AN000;
118 CALL HOOK_INT_2F_FORMAT ;;AN000;
119 ENDM ;;AN000;
120
121UNHOOK_2F MACRO ;;AN000;
122 CALL RESTORE_INT_2F ;;AN000;
123 ENDM ;;AN000;
124
125INCLUDE MACROS8.INC ;AN000;
126 \ No newline at end of file
HIC SVNT DRACONES