github.com/pkimpel.retro-b5500
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-b5500.git synced 2026-05-04 23:26:31 +00:00
Code Releases Activity

1. Commit ALGOLXEM compiler source after conversion to E-mode and initial debugging. It's actually starting to work, folks...

Browse Source 
2. Commit test cases used to debug ALGOLXEM under new "tests" directory.
3. Commit new CODEDUMP55.alg_m utility to prepare a semi-formatted dump of a B5500 code file.
4. Commit further typographical corrections to B5500 Algol compiler source uncovered during conversion and debugging of ALGOLXEM.
This commit is contained in:
paul.kimpel@digm.com
2012-04-20 17:46:34 +00:00
parent 0dd84ab0dc
commit 7904174733
6 changed files with 3442 additions and 1615 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
tests/ALGOLXEM/CASESW.alg_m Normal file
View File

@@ -0,0 +1,55 @@
$ SET LIST $ PRT DEBUGN 00000100120418PK
% CASE VS. SWITCH 10/01/70 ROSE & PK 00002000
BEGIN 00003000
INTEGER I, J, K; 00004000
FILE OUT PR 18 (2,15); 00005000
BEGIN %%% INNER BLOCK %%% 00006000
REAL X, Y, Z; 00007000
LABEL L1, L2, L3; 00008000
SWITCH S ~ L1, L2, L3; 00008500
ALPHA ARRAY A[0:I], B[0:2|I]; 00009000120418PK
FORMAT F1 (X20,O,X5,2O); 00010000
00011000
STREAM PROCEDURE MOVEPRT (PRT25, A, N1, N2); 00012000
VALUE N1, N2; 00013000
BEGIN 00014000
SI ~ LOC PRT25; SI ~ SI - 21; 00015000
DI ~ A; 00016000
N1(2(DS ~ 32 WDS)); N2(DS ~ WDS); 00017000
END MOVEPRT; 00018000
00019000
STREAM PROCEDURE BINOCT (N1, N2, S, D); 00020000
VALUE N1, N2; 00021000
BEGIN 00022000
SI ~ S; 00023000
DI ~ D; 00024000
N1(32(32(DS~ 3 RESET; 3(IF SB THEN DS ~ SET ELSE DS ~ RESET; 00025000
SKIP SB)))); 00026000
N2(16(DS ~ 3 RESET; 3(IF SB THEN DS ~ SET ELSE DS ~ RESET; 00027000
SKIP SB))); 00028000
END BINOCT; 00029000
00030000
L1: 00031000
J ~ 3; GO TO S[J]; 00032000
L2: 00033000
CASE J MOD 10 OF 00034000
BEGIN 00035000
J ~ 3; 00036000
K ~ J; 00037000
X ~ K +J; 00038000
Y ~ X ~ SQRT(X); 00039000
; 00040000
Z ~ 2|Y + 6.0; 00041000120418PK
; 00042000
K ~ 5000; 00043000
END CASE; 00044000
L3: 00045000
MOVEPRT (I, A[*], I DIV 64, I MOD 64); 00046000
BINOCT (I DIV 64, I MOD 64, A[*], B[*]); 00047000
FOR J ~ 0 STEP 1 UNTIL I DO 00048000
BEGIN 00049000
BINOCT (0, 1, J, Y); 00050000
WRITE (PR, F1, Y, B[J|2], B[J|2+1]); 00051000120418PK
END; 00052000
END INNER BLOCK; 00053000
END. 00054000

2
tests/ALGOLXEM/TEST-ONE.alg_m Normal file
View File

@@ -0,0 +1,2 @@
$ SET $ LIST PRT DEBUGN 00000010120419PK
BEGIN END. 00000100

5
tests/ALGOLXEM/TEST-TWO.alg_m Normal file
View File

@@ -0,0 +1,5 @@
$ SET LIST $ PRT DEBUGN 00000100120417PK
BEGIN 00000200
INTEGER I, J; 00000300
J:= I+5; 00000400
END. 00000500