-
-
Notifications
You must be signed in to change notification settings - Fork 85
/
dcalgol.scroll
38 lines (31 loc) · 878 Bytes
/
dcalgol.scroll
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
import ../code/conceptPage.scroll
id dcalgol
name Data Communications ALGOL
appeared 1970
tags pl
originCommunity Burroughs Corporation
reference https://en.wikipedia.org/wiki/Burroughs_large_systems
example
BEGIN
ARRAY DCREC [0:0];
MESSAGE BUSTER;
QUEUE PRIMARY;
INTEGER I1;
POINTER P1;
ALLOCATE (BUSTER, 8);
BUSTER [0] := 0;
I1 := DCWRITE (BUSTER, PRIMARY); %Initialize Primary Queue
ALLOCATE (BUSTER, 9);
BUSTER [0] := 0 & 4 [47:8] & 1 [31:1] & 1 [30:1] & 1 [29:1]
& 1 [28:1] & 1 [27:1] & 1 [26:1] & 1 [25:1] & 472 [22:23];
I1 := DCWRITE (BUSTER); %Station Inquiry
RESIZE (DCREC, SIZE (BUSTER) + 10, DISCARD);
REPLACE P1:DCREC [1] BY POINTER (BUSTER [1], 8) FOR (SIZE (BUSTER) -
1) * 6;
WHILE MYSELF.TASKVALUE = 0 DO
DISPLAY ("HELLO WORLD"); %Duh
END.
stringToken "
hasStrings true
"Hello world"
hopl https://hopl.info/showlanguage.prx?exp=1958