forked from abiliojr/aedit
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathscreen.inc
More file actions
118 lines (93 loc) · 3 KB
/
screen.inc
File metadata and controls
118 lines (93 loc) · 3 KB
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
/***** USEFUL LITERALS *****/
DECLARE IS LITERALLY 'LITERALLY';
DECLARE DCL IS 'DECLARE';
DCL PROC IS 'PROCEDURE';
DCL ENDPROC IS 'END';
DCL ENDWHILE IS 'END';
DCL FOR IS 'DO';
DCL ENDFOR IS 'END';
DCL THENDO IS 'THEN DO';
DCL ELSEDO IS 'END; ELSE DO';
DCL ELSEIF IS 'END; ELSE IF';
DCL ENDIF IS 'END';
DCL FALSE IS '0';
DCL LOGICAL IS 'BYTE';
DCL BOOLEAN IS 'BYTE';
DCL WBYTE IS 'WORD';
DCL LF IS '10';
DCL ESC IS '1BH';
/***** PUB.PLM *****/
DCL row BYTE EXTERNAL ;
DCL col BYTE EXTERNAL ;
DCL have (*) WORD EXTERNAL ;
DCL line_size (*) BYTE EXTERNAL ;
DCL first_text_line BYTE EXTERNAL ;
DCL last_text_line BYTE EXTERNAL ;
DCL message_line BYTE EXTERNAL ;
DCL prompt_line BYTE EXTERNAL ;
DCL window STRUCTURE(
first_text_line BYTE,
last_text_line BYTE,
message_line BYTE,
prompt_line BYTE,
prompt_number BYTE,
current_message (81) BYTE, /* CONTENTS OF WINDOW MESSAGE LINE */
last_message (81) BYTE,
current_prompt (81) BYTE, /*CONTENTS OF WINDOW PROMPT LINE*/
suppressed_prompt (81) BYTE
) EXTERNAL ;
DCL window_present BYTE EXTERNAL ;
DCL window_num BYTE EXTERNAL ;
/***** CMNDS.PLM *****/
DCL prompt_number BYTE EXTERNAL ;
/***** LIT CONF *****/
DCL UNKNOWN IS '0';
DCL SIV IS '1';
DCL SIIIE IS '3';
DCL SIIIEO IS '4';
DCL SIIIET IS '5';
DCL ANSI IS '6';
DCL VT100 IS '7';
DCL col_first IS '0';
DCL up_out_code IS '0';
DCL down_out_code IS '1';
DCL left_out_code IS '2';
DCL right_out_code IS '3';
DCL home_out_code IS '4';
DCL back_out_code IS '5';
DCL erase_screen_out_code IS '6';
DCL erase_entire_screen_out_code IS '7';
DCL erase_line_out_code IS '8';
DCL erase_entire_line_out_code IS '9';
DCL reverse_scroll_out_code IS '10';
DCL goto_out_code IS '11';
DCL offset_index IS '12';
DCL delete_out_code IS '13';
DCL reverse_video_code IS '14';
DCL normal_video_code IS '15';
/***** CONF.PLM *****/
DCL config BYTE EXTERNAL ;
DCL wrapper BYTE EXTERNAL ;
DCL print_as(*) BYTE EXTERNAL ;
DCL first_coordinate BYTE EXTERNAL ;
DCL visible_attributes BYTE EXTERNAL ;
DCL OUTPUT_CODES (17) STRUCTURE(code(5) BYTE) EXTERNAL ;
DCL delay_times (17) WORD EXTERNAL ;
/***** CONSOL.PLM *****/
DCL current_message (*) BYTE EXTERNAL ;
DCL last_message (*) BYTE EXTERNAL ;
DCL current_prompt (*) BYTE EXTERNAL ;
DCL suppressed_prompt(*) BYTE EXTERNAL ;
gone_prompt: PROC EXTERNAL ; END;
/***** IO.PLM *****/
co_flush: PROC EXTERNAL ; END;
print_string: PROC(string) EXTERNAL ;
DCL string WORD; END;
/***** VIEW.PLM *****/
print_text_line: PROCEDURE(line) WORD EXTERNAL ;
DCL line WORD; END;
/***** AEDDUM.PLM *****/
cocom:PROCEDURE(ch) EXTERNAL ; /* AEDASM */
DECLARE ch BYTE; END;
codat:PROCEDURE(ch) EXTERNAL ; /* AEDASM */
DECLARE ch BYTE; END;