mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-04-14 00:53:43 +00:00
Commit LONGALG patch to Mark XIII Extended Algol for support of LONG ARRAY type required by the B6500 simulator.
This commit is contained in:
Paul Kimpel
7651
source/B65SIM/B65SIM-COMPILE-PRT.lst
Normal file
7651
source/B65SIM/B65SIM-COMPILE-PRT.lst
Normal file
File diff suppressed because it is too large
Load Diff
8
source/B65SIM/B65SIM-COMPILE.card
Normal file
8
source/B65SIM/B65SIM-COMPILE.card
Normal file
@@ -0,0 +1,8 @@
|
||||
?REMOVE B65SIM/DISK
|
||||
?COMPILE B65SIM/DISK WITH LONGALG LIBRARY
|
||||
?ALGOL FILE TAPE=SYMBOL/B65SIM SERIAL
|
||||
?ALGOL FILE NEWTAPE=NEWSYM/B65SIM SERIAL
|
||||
?DATA CARD
|
||||
$TAPE LIST SINGLE PRT
|
||||
$ 99999990
|
||||
?END
|
||||
BIN
source/B65SIM/LONGALG-DELTA.pdf
Normal file
BIN
source/B65SIM/LONGALG-DELTA.pdf
Normal file
Binary file not shown.
127
source/B65SIM/LONGALG-PATCH.alg_m
Normal file
127
source/B65SIM/LONGALG-PATCH.alg_m
Normal file
@@ -0,0 +1,127 @@
|
||||
?REMOVE LONGALG/DISK, LONGALG/NEW, NEWSYM/LONGALG 00000100
|
||||
?COMPILE LONGALG/NEW ALGOL LIBRARY 00000200
|
||||
?ALGOL STACK=1000 00000300
|
||||
?ALGOL FILE TAPE=SYMBOL/ALGOL SERIAL 00000400
|
||||
?ALGOL FILE NEWTAPE=NEWSYM/LONGALG SERIAL 00000450
|
||||
?FILE LINE = LINE BACK UP DISK 00000500
|
||||
?FILE NEWTAPE = "0CRDIMG" TAPE 00000600
|
||||
?FILE PNCH = PNCH PUNCH 00000700
|
||||
?DATA CARD 00000800
|
||||
$ TAPE CHECK NEW 00000900
|
||||
% THE SECOND COMING OF THE B-5500 LONGALG COMPILER 00001020
|
||||
% 3 JUNE 2017 00001040
|
||||
506 BLOCK: LONG APPEARS IMMEDIATELY BEFORE IDENTIFIER(NO TYPE). 00305070
|
||||
[22:1] =IF 1, THIS IS THE FINAL ROW OF A LONG ARRAY, WHICH 01106700
|
||||
WILL REQUIRE DOUBLING OF THE RAW INDEX VALUE AND 01106800
|
||||
AN EXTRA LEVEL OF INDEXING FOR LONGROWSZ-WORD ROWS. 01106900
|
||||
DEFINEV =19#, COMMENT 23; 01298000
|
||||
LONGV =20#; COMMENT 24; 01298100
|
||||
DEFINE LONGROWSZ=256#; % SIZE OF LONG-ARRAY SEGMENTED ROWS 01299300
|
||||
LASTSEQUENCE =156#, 01575000
|
||||
SORTA =666# ; 01580000
|
||||
P5, COMMENT TELLS WHETHER LONG WAS SEEN; 01589600
|
||||
<X22,"RETRO-B5500 LONGALG COMPILER MARK ", 01830000
|
||||
OCT0430000240000000, "4LONG0", %664 09214432
|
||||
0, COMMENT SORTA ; %666 09214435
|
||||
" " ; COMMENT LASTSEQUENCE,LASTSEQROW ; %667 09214440
|
||||
639STEP 3UNTIL 660,664 09214516
|
||||
STEPIT; J~K;P2~P3~P5~FALSE;GTA1[0]~0; GET7(ACCUM[1],FILID); 13080000
|
||||
BOOLEAN LLITOG,ULITOG,LONGDIM; 13450000
|
||||
ELSE IF T1=LONGV THEN 13467100
|
||||
BEGIN 13467200
|
||||
P5~TRUE; 13467300
|
||||
END 13467400
|
||||
CSZ: 13527000
|
||||
LONGDIM:= P5 AND TABLE(I)=RTBRKET; % LAST DIM OF LONG ARRAY 13527100
|
||||
IF LLITOG AND ULITOG THEN 13527200
|
||||
T~IF ADDCON=ADDC THEN 13529500
|
||||
T4+T3+1 ELSE T4-T3+1; 13529600
|
||||
IF T{0 THEN FLAG(59); 13529700
|
||||
IF NOT LONGDIM THEN 13529800
|
||||
BEGIN 13529900
|
||||
IF T>1023 THEN FLAG(59); 13530000
|
||||
EMITL(T); 13530100
|
||||
END 13530200
|
||||
ELSE 13530300
|
||||
BEGIN 13530400
|
||||
% FOR A LONG ARRAY, DOUBLE THE SIZE OF 13530500
|
||||
% THE LAST DIMENSION AND SPLIT IT INTO 13530600
|
||||
% LONGROWSZ-WORD ROWS. 13530700
|
||||
T~(2|T+LONGROWSZ-1) DIV LONGROWSZ; 13530800
|
||||
EMITL(T); % # ROWS 13530900
|
||||
EMITL(LONGROWSZ); % FINAL ROW SIZE 13531000
|
||||
IF T>1023 THEN FLAG(59); 13531100
|
||||
IF T<LONGROWSZ THEN % CHOOSE MAX SIZE 13531200
|
||||
T~LONGROWSZ; 13531300
|
||||
END; 13531400
|
||||
END;EMITL(1);EMITO(ADD); 13545000
|
||||
IF LONGDIM THEN 13545100
|
||||
BEGIN 13545200
|
||||
EMITO(DUP); 13545300
|
||||
EMITO(ADD); % DOUBLE THE SIZE 13545400
|
||||
EMITL(LONGROWSZ-1); 13545500
|
||||
EMITO(ADD); % ROUND UP TO LONGROWSZ 13545550
|
||||
EMITL(LONGROWSZ); 13545600
|
||||
EMITO(IDV); % # ROWS 13545650
|
||||
EMITL(LONGROWSZ); % FINAL ROW SIZE 13545700
|
||||
END; 13545800
|
||||
SLB: % IF LAST DIM OF LONG ARRAY, SET BIT 22 IN INFO DIMENSION WORD 13547000
|
||||
PUTNBUMP(T2 & REAL(LONGDIM)[22:47:1]); 13547100
|
||||
LBJ~LBJ+1;IF T~TABLE(I)=COMMA THEN GO TO TWO 13547200
|
||||
EMITL(LBJ+REAL(LONGDIM));EMITL(GTA1[0]); 13552000
|
||||
THEN G~GTA1[J~J-1]; 13726100
|
||||
IF NOT P5 13726200
|
||||
THEN IF P5~(G=LONGV) 13726300
|
||||
STREAMERR,DEFINEDEC,LONGERR,CALLSTATEMENT,HF,START; 14017000
|
||||
STREAMERR,DEFINEDEC,LONGERR; 14021000
|
||||
P2~P3~P5~FALSE; 14133000
|
||||
LONGERR:FLAG(506);J~J+1;GO TO REALDEC; 14136200
|
||||
PROCEDURE INDEXER(TALL,J,BYNAME); 15214020
|
||||
VALUE TALL,J,BYNAME; 15214040
|
||||
REAL TALL,J; 15214060
|
||||
BOOLEAN BYNAME; 15214080
|
||||
BEGIN COMMENT 15214100
|
||||
INDEXER HANDLES THE COMPLEXITIES OF INITIAL AND FINAL 15214120
|
||||
INDEXING OF ARRAY DIMENSIONS WHERE DOUBLE-INDEXING OF THE 15214140
|
||||
LAST DIMENSION OF A LONG ARRAY MAY BE INVOLVED. ON ENTRY, 15214160
|
||||
ASSUMES THE RAW INDEX VALUE IS AT TOP OF STACK; 15214180
|
||||
15214200
|
||||
IF BOOLEAN(TAKE(GIT(TALL)+J).[22:1]) THEN 15214220
|
||||
BEGIN % THIS IS THE LONG DIMENSION FOR A LONG ARRAY. 15214240
|
||||
EMITO(DUP); 15214260
|
||||
EMITO(ADD); % DOUBLE THE INDEX 15214280
|
||||
EMITPAIR(JUNK,ISN); % SAVE A COPY FOR THE COL INDEX 15214300
|
||||
EMITL(LONGROWSZ); 15214320
|
||||
EMITO(IDV); % COMPUTE THE SPLIT-ROW INDEX 15214340
|
||||
IF J=1 THEN 15214360
|
||||
EMITN(TALL.ADDRESS) 15214380
|
||||
ELSE 15214400
|
||||
EMITO(CDC); 15214420
|
||||
EMITO(LOD); % LOAD THE DESTINATION DESCRIPTOR15214440
|
||||
EMITV(JUNK); % RETRIEVE THE SAVED INDEX VALUE 15214460
|
||||
EMITL(LONGROWSZ); 15214480
|
||||
EMITO(RDV); % COMPUTE THE SPLIT-COL INDEX 15214500
|
||||
IF BYNAME THEN 15214520
|
||||
EMITO(CDC) 15214540
|
||||
ELSE 15214560
|
||||
EMITO(COC); 15214580
|
||||
END 15214600
|
||||
ELSE IF J=1 THEN 15214620
|
||||
IF BYNAME THEN 15214640
|
||||
EMITN(TALL.ADDRESS) 15214660
|
||||
ELSE 15214680
|
||||
EMITV(TALL.ADDRESS) 15214700
|
||||
ELSE 15214720
|
||||
IF BYNAME THEN 15214740
|
||||
EMITO(CDC) 15214760
|
||||
ELSE 15214780
|
||||
EMITO(COC); 15214800
|
||||
END INDEXER; 15214820
|
||||
INDEXER(TALL,J,TRUE); 15224000
|
||||
INDEXER(TALL,J,TRUE); 15227000
|
||||
INDEXER(TALL,J,FALSE); 15344000
|
||||
INDEXER(TALL,J,NOT SPCLMON); 15350000
|
||||
$ VOIDT 15356001 15350001
|
||||
$ 15351000
|
||||
END;END. LAST CARD ON 0CRDIMG TAPE 99999990
|
||||
?END 99999999
|
||||
11147
source/B65SIM/LONGALG.alg_m
Normal file
11147
source/B65SIM/LONGALG.alg_m
Normal file
File diff suppressed because it is too large
Load Diff
@@ -98,7 +98,7 @@ REAL PROCCLOCK, % PROCESSOR CLOCK RATE IN MEGACYCLES DEFAULT=10 00279000
|
||||
PROCID , % PROCESSOR IDENTIFICATION DEFAULT = 1 00284500
|
||||
DISKLOAD, % ESPOL = 0; ALGOL = 1; COBOL = 2; 00285000
|
||||
BUFRMAX , % MAXIMUM BUFFER SIZE 00286000
|
||||
ROWLENGTH; % LENGTH OF M ARRAY ROW (6500 WOROS) 00287000
|
||||
ROWLENGTH; % LENGTH OF M ARRAY ROW (6500 WORDS) 00287000
|
||||
REAL ETIME, PTIME, STARTDATE; 00288000
|
||||
REAL TIMEOFDAY; % WHAT IT SAYS - SEE SCNI - SCNO 00288010
|
||||
SAVE ARRAY TBUF [0:16]; % FORMATTING AREA FOR TRACE AND MEMDUMP 00289000
|
||||
|
||||
Reference in New Issue
Block a user