forked from abiliojr/aedit
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathutil.inc
More file actions
61 lines (49 loc) · 1.26 KB
/
util.inc
File metadata and controls
61 lines (49 loc) · 1.26 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
/***** USEFUL LITERALS *****/
DECLARE IS LITERALLY 'LITERALLY';
DECLARE DCL IS 'DECLARE';
DCL LOOP IS 'DO; a_begin_loop:DO WHILE';
DCL OUTLOOP IS 'GOTO B_end_loop';
DCL ENDLOOP IS 'END a_begin_loop;b_end_loop:END;';
DCL PROC IS 'PROCEDURE';
DCL FOREVER IS 'WHILE 1';
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 TRUE IS '0FFH';
DCL FALSE IS '0';
DCL BOOLEAN IS 'BYTE';
DCL tab IS '09H';
/***** LIT PUBLIC *****/
DCL string_len_plus_1 IS '61';
DCL half1 IS 'STRUCTURE (
block_size WORD,
more_input BYTE,
file_disposition BYTE,
wk1_blocks WORD,
wk2_blocks WORD,
low_s WORD,
low_e WORD,
high_s WORD,
high_e WORD,
input_name(string_len_plus_1) BYTE,
output_name(string_len_plus_1) BYTE,' ;
DCL half2 IS '
new_file BYTE,
have_eof BYTE,
tblock(9) WORD,
toff(9) WORD,
in_conn WORD,
dirty BYTE,
left_column BYTE,
bol WORD,
wk1_conn BYTE,
wk2_conn BYTE)' ;
DCL oa_struc IS 'half1 half2';
/***** PUB.PLM *****/
DCL oa oa_struc EXTERNAL ;
/***** START.PLM *****/
DCL block_size WORD EXTERNAL ;