mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-05 02:15:05 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
76 lines
5.9 KiB
Plaintext
76 lines
5.9 KiB
Plaintext
$+STREAM 00000000
|
|
BEGIN % INITIAL MCALGOL LANGUAGE FILE LOADER 00001000
|
|
DEFINE NUD = 0#, LUD = 0#, 00002000
|
|
BLVL = 1#, RCCNT = -1#, 00003000
|
|
LANGLVL = 3#, 00004000
|
|
BECT = 1#, OHM = 0#, 00005000
|
|
PT = 0#, DECP = 0#, 00006000
|
|
GALFBAS = 1279#, GINTBAS = 1791#, GPTRBAS = 2815#, 00007000
|
|
NPTCH = -2#; 00008000
|
|
FILE CARD(2,150,10); 00009000
|
|
REAL P2; 00010000
|
|
INTEGER ND,COUNT,I,SUB,CODEWORD,P1,CW,J,L,LD; 00011000
|
|
ARRAY A,BFR,IDENT[0:9],DLIST[0:249],DICT[0:127,0:255]; 00012000
|
|
LABEL START, EOF; 00013000
|
|
STREAM PROCEDURE SCANNER(S,A,CW,SU,C); 00014000
|
|
BEGIN 00015000
|
|
LOCAL T, TT; 00016000
|
|
LABEL DEBL1, DEBL2, DEBL3; 00017000
|
|
SI~S; DI~A; DI~DI+3; 00018000
|
|
DEBL1: IF SC=" " THEN BEGIN SI~SI+1; GO DEBL1; END; 00019000
|
|
63(IF SC!" " THEN BEGIN DS~ CHR;TALLY~ TALLY+1;END ELSE JUMP 00020000
|
|
OUT); 00021000
|
|
DS~7 LIT " "; TT~SI; T~TALLY; 00022000
|
|
SI~LOC T; DI~C; DS~WDS; SI~TT; DI~CW; 00023000
|
|
DEBL2: IF SC=" " THEN BEGIN SI~SI+1; GO DEBL2; END; 00024000
|
|
DS~2 OCT; DI~SU; 00025000
|
|
DEBL3: IF SC=" " THEN BEGIN SI~SI+1; GO DEBL3; END; 00026000
|
|
DS~3 OCT; 00027000
|
|
END SCANNER; 00028000
|
|
STREAM PROCEDURE MOV(N1,N2,A,B); VALUE N1,N2; BEGIN 00029000
|
|
SI~A; DI~B; N1(DS~32 WDS; DS~32 WDS); DS~N2 WDS END; 00030000
|
|
STREAM PROCEDURE MOVE(A,B,I,L,D); VALUE A,B,L; BEGIN 00031000
|
|
DI~D; SI~LOC A; DS~2 WDS; SI~I; DS~L WDS; 00032000
|
|
END; 00033000
|
|
DLIST[0] ~ -1; 00034000
|
|
MOV(3,57,DLIST,DLIST[1]); 00035000
|
|
START: READ(CARD,10,BFR[*])[EOF]; 00036000
|
|
SCANNER(BFR,IDENT,CW,SUB,COUNT); 00037000
|
|
IDENT[0].[1:17]~ COUNT; 00038000
|
|
I~ IDENT[0] MOD 125; 00039000
|
|
IF ND.[40:8]+L~(COUNT+10) DIV 8>254 THEN 00040000
|
|
ND~ 0&(ND+256)[33:33:7]; 00041000
|
|
IF CODEWORD<CW THEN 00042000
|
|
BEGIN 00043000
|
|
A[J]~ ND; 00044000
|
|
J~ J+1; 00045000
|
|
CODEWORD~ CW; 00046000
|
|
END; 00047000
|
|
IF CODEWORD=22 THEN 00048000
|
|
BEGIN 00049000
|
|
P1~ DLIST[I]; 00050000
|
|
DLIST[I]~ ND; 00051000
|
|
END 00052000
|
|
ELSE 00053000
|
|
P1~ ND; 00054000
|
|
P2 ~ (ND+2+L) & CW[27:42:6] & SUB[18:39:9] & (ND-LD)[1:40:8]; 00055000
|
|
LD ~ ND; 00056000
|
|
MOVE(P1,P2,IDENT,L,DICT[ND.[33:7],ND.[40:8]]); 00057000
|
|
ND ~ ND + 2 + L; 00058000
|
|
GO START; 00059000
|
|
EOF: BEGIN 00060000
|
|
FILE LANGUAGE DISK SERIAL[1:2+(ND+255).[33:7]] 00061000
|
|
(2,256,SAVE 780); 00062000
|
|
WRITE(LANGUAGE,*,FOR I~0 STEP 1 UNTIL J-1 DO A[I], 00063000
|
|
ND,LD,NUD,LUD, 00064000
|
|
BLVL,RCCNT,LANGLVL,BECT,OHM,PT,DECP, 00065000
|
|
GALFBAS,GINTBAS,GPTRBAS, 00066000
|
|
NPTCH); 00067000
|
|
WRITE(LANGUAGE,250,DLIST[*]); DICT[0,0] ~ -1; 00068000
|
|
FOR I~ 0 STEP 256 UNTIL ND-1 DO 00069000
|
|
WRITE(LANGUAGE,256,DICT[I.[33:7],*]); 00070000
|
|
LOCK(LANGUAGE) 00071000
|
|
END END. 00072000
|
|
00073000
|
|
00074000
|