mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-01-13 15:17:03 +00:00
Commit ESPOLXEM mods as of 2012-08-19 (just before attempting initial compile on E-mode), plus corresponding corrections to ESPOL source.
This commit is contained in:
Paul Kimpel
parent
ddf0725e90
commit
4cb379d4f2
@ -977,7 +977,7 @@ DEFINE MCPTYPE = 63#, 01561410
|
||||
DCINTYPE = 62#, 01561420
|
||||
TSSINTYPE = 61#; 01561430
|
||||
COMMENT ESPOL CODE FILES ARE UNIQUELY TYPED IN THEIR FILE 01561440
|
||||
HEADERS. HEADER[4],[36:6] IS THE FIELD USED TO CONTAIN 01561450
|
||||
HEADERS. HEADER[4].[36:6] IS THE FIELD USED TO CONTAIN 01561450
|
||||
THE TYPE; 01561460
|
||||
FILE OUT DECK 0 (2,10); 01561500
|
||||
FILE STUFF DISK SERIAL[20:150](2,10,30,SAVE 15); 01561600
|
||||
@ -1439,7 +1439,7 @@ L: 02128000
|
||||
DEFINE WRITELINE = IF SINGLTOG THEN WRITE(LINE,15,LIN[*]) 02181000
|
||||
ELSE WRITE(LINE[DBL],15,LIN[*])#, 02181250
|
||||
PRINTCARD = BEGIN 02182500
|
||||
EDITLINE(LIN,FCR,L DIV 4,L,[46:2],MEDIUM,OMITTING); 02182750
|
||||
EDITLINE(LIN,FCR,L DIV 4,L.[46:2],MEDIUM,OMITTING); 02182750
|
||||
IF NOHEADING THEN DATIME; WRITELINE; 02183000
|
||||
END #; 02183250
|
||||
STREAM PROCEDURE EDITLINE(LINE,NCR,R,L,SYMBOL,OMIT); 02183500
|
||||
@ -1943,7 +1943,7 @@ LENGTH6: 02518000
|
||||
39, "RTN ", 40, "COC ", 48, "SUB ", 64, "MUL ", 67, "LND ", 68, "STD ",02541000
|
||||
69, "NEQ ", 71, "XIT ", 72, "MKS ",128, "DIV ",130, "COM ",131, "LQV ",02542000
|
||||
132, "SND ",133, "XCH ",134, "CHS ",167, "RTS ",168, "CDC ",260, "LOD ",02543000
|
||||
261, "DUP ",278, "LBC ",294,"LFC ",322,"ZP1 ",384, "IDV ",532, "ISD", 02544000
|
||||
261, "DUP ",278, "LBC ",294,"LFC ",322,"ZP1 ",384, "IDV ",532, "ISD ", 02544000
|
||||
533, "LEQ ",534, "BBW ",548, "ISN ",549, "LSS ",550, "BFW ",581, "EQL ",02545000
|
||||
582, "SSP ",790, "LBU ",806, "LFU ",896, "RDV ", 02546000
|
||||
1003,"SCI ",1004,"SAN ",1019,"SCS ", 02547000
|
||||
@ -3178,7 +3178,7 @@ IF NOT(STREAMTOG AND (LEVEL>2))THEN 05344400
|
||||
BEGIN ARRAY A[0:14]; 05413000
|
||||
REAL I,J,K,T; 05414000
|
||||
REAL P,Q; 05414100
|
||||
STREAM PROCEDURE NESTFORM(I,N,L,A) VALUE I,N; 05415000
|
||||
STREAM PROCEDURE NESTFORM(I,N,L,A); VALUE I,N; 05415000
|
||||
BEGIN LOCAL S; 05416000
|
||||
DI~A; 15(DS~8 LIT " "); 05417000
|
||||
DI~LOC S; DI~DI+7; SI~L; SI~SI+10; DS~CHR; 05418000
|
||||
@ -3402,7 +3402,7 @@ IF NOT(STREAMTOG AND (LEVEL>2))THEN 05344400
|
||||
GO TO EXIT; 06149000
|
||||
END; 06150000
|
||||
IF ELCLASS = UNKNOWNID THEN ERR(100); 06151000
|
||||
L1:L2:L3:L4:L5:L6:L8:L9:L10:L12:L13:L16:L17:L20,L21:L24:L25:L28:L29: 06152000
|
||||
L1:L2:L3:L4:L5:L6:L8:L9:L10:L12:L13:L16:L17:L20:L21:L24:L25:L28:L29: 06152000
|
||||
L32: 06153000
|
||||
ERR(103); GO TO EXIT; 06154000
|
||||
L7: 06155000
|
||||
@ -4054,7 +4054,7 @@ L33:L34:L35:L36:L37:L39: 07730000
|
||||
COMMENT PLUG EMITS EITHER AN OPERAND CALL ON A VARIABLE OR A CALL ON A 08018000
|
||||
CONSTANT DEPENDING ON THE REQUIREMENTS; 08019000
|
||||
PROCEDURE PLUG(C,A); VALUE C,A; REAL A; BOOLEAN C; 08020000
|
||||
IF C THEN EMITNUM(A) ELSE EMITV(A,ADDRESS); 08021000
|
||||
IF C THEN EMITNUM(A) ELSE EMITV(A.ADDRESS); 08021000
|
||||
COMMENT SIMPLE DETERMINES IF AN ARITHMETIC EXPRESSION IS + OR - A 08022000
|
||||
CONSTANT OR A SIMPLE VARIABLE. IT MAKES A THROUGH REPORT 08023000
|
||||
ON ITS ACTIVITY. IT ALSO MAKES PROVISION FOR THE RESCAN 08024000
|
||||
@ -4274,7 +4274,7 @@ REAL PROCEDURE REED; 08999000
|
||||
J:=-1; 08999125
|
||||
READ(CODISK[NO])[EOF]; 08999150
|
||||
REED:=I:=FETCH(MKABS(CODISK(1))); 08999175
|
||||
K:=MKABS(CODE(0))-1); 08999200
|
||||
K:=MKABS(CODE(0))-1; 08999200
|
||||
WHILE I-J>30 DO 08999225
|
||||
BEGIN 08999250
|
||||
MOVE(30,CODISK(0),K); K:=K+30; J:=J+30; 08999275
|
||||
@ -4498,10 +4498,10 @@ COMMENT THIS IS THE FILL FOR THE SECOND ROW OF INFO: 09081000
|
||||
OCT1310100130000002, "3NOP00", %507 09121500
|
||||
OCT0650006550000002, "6SCOPO", "N......."; %509 09121600
|
||||
FILL INFO[2,*] WITH 09121650
|
||||
OCT131030000020004., "3RDF00", %512 09121700
|
||||
OCT131030000020004, "3RDF00", %512 09121700
|
||||
OCT0000, COMMENT LITC 0; 09121800
|
||||
OCT2141, COMMENT FXS ; 09121900
|
||||
OCT131030000020004., "3RDS00", %516 09122000
|
||||
OCT131030000020004, "3RDS00", %516 09122000
|
||||
OCT0004, COMMENT LITC 1; 09122100
|
||||
OCT2141, COMMENT FXS ; 09122200
|
||||
OCT1310456000000002, "3RDV00", %520 09122300
|
||||
@ -4727,7 +4727,7 @@ FILL OPTIONS[*] WITH "5CHECK",0, % 0,1 09251208
|
||||
SI ~ LSQ; DS ~ WDS; SI ~FIEL; DS ~ 3 WDS; 09366000
|
||||
DI ~ FIEL; DS~ 28 LIT"NUMBER OF ERRORS DETECTED = "; 09367000
|
||||
SI ~ LOC NER; DS ~ 3 DEC; DS ~ 22 LIT ". COMPILATION TIME = "; 09368000
|
||||
SI ~ LOC T; DS ~ 4 DEC; DS + 9 LIT " SECONDS."; END; 09369000
|
||||
SI ~ LOC T; DS ~ 4 DEC; DS ~ 9 LIT " SECONDS."; END; 09369000
|
||||
STREAM PROCEDURE PEN(FIL,PRTSIZ,BASE,CORE,DISK); 09370000
|
||||
VALUE PRTSIZ,BASE,CORE,DISK; 09371000
|
||||
BEGIN DI~FIL; DS ~ 9 LIT"PRT SIZE="; SI~LOC PRTSIZ; 09372000
|
||||
@ -4737,7 +4737,7 @@ STREAM PROCEDURE PEN(FIL,PRTSIZ,BASE,CORE,DISK); 09370000
|
||||
SI~LOC DISK; DS~5 DEC; DS~61 LIT " "; 09376000
|
||||
END PEN; 09377000
|
||||
STREAM PROCEDURE FINALAX(LINE,N,SEQ); VALUE N; 09378000
|
||||
BEGIN DS ~ LINE; 15(DS ~ 8 LIT " "); 09379000
|
||||
BEGIN DI ~ LINE; 15(DS ~ 8 LIT " "); 09379000
|
||||
DI ~ LINE; DS ~ 31 LIT "NUMBER OF ACCIDENTAL ENTRIES = "; 09380000
|
||||
SI ~ LOC N; DS ~ 3 DEC; DI ~ DI+8; 09381000
|
||||
SI ~ SEQ; SI ~ SI-16; DS ~ 8 CHR; 09382000
|
||||
@ -4750,7 +4750,7 @@ STREAM PROCEDURE PEN(FIL,PRTSIZ,BASE,CORE,DISK); 09370000
|
||||
SCRAM := (TIME(1)-TIME1)/60; 09385000
|
||||
PAN(SCRAM,LIN[0],ERRORCOUNT,INFO[LASTSEQROW,LASTSEQUENCE-1]) 09386000
|
||||
; 09386500
|
||||
WRITELINE 09387000
|
||||
WRITELINE; 09387000
|
||||
PEN(LIN[0],PRTIMAX,T:=(L+3)DIV 4,T:=CORADR+T, 09388000
|
||||
((T+29)DIV 30+DISKADR)|30); 09389000
|
||||
WRITELINE; 09389500
|
||||
@ -4806,7 +4806,7 @@ IF ERRORCOUNT ! 0 THEN I~0/0 ELSE 09391000
|
||||
END; 09393470
|
||||
END PUSHEE; 09393480
|
||||
STREAM PROCEDURE FIXHDR(F,N); VALUE N; 09393700
|
||||
BEGIN SI~F; SI~SI-24; DS~LOC F; DS~WDS; 09393710
|
||||
BEGIN SI~F; SI~SI-24; DI~LOC F; DS~WDS; 09393710
|
||||
SI~F; 14(SI~SI+8); DI~LOC F; DS~WDS; 09393720
|
||||
DI~F; DI~DI+38; SI~ LOC N; 09393730
|
||||
SI~SI+7; DS~CHR; 09393740
|
||||
@ -5288,7 +5288,7 @@ PROCEDURE ARRAE; 13376000
|
||||
INTEGER SAVEINFO; 13378000
|
||||
LABEL BETA1; 13379000
|
||||
TYPEV~REALARRAYID; 13380000
|
||||
IF T1~GTA1[J~J-1]=0 THEN J~J+1; 13381000
|
||||
IF T1~GTA1[J~J-1]=0 THEN J~J+1 13381000
|
||||
ELSE 13382000
|
||||
IF T1=OWNV THEN 13383000
|
||||
BEGIN 13384000
|
||||
@ -5665,7 +5665,7 @@ INTEGERDEC:P3~TRUE;ENTER(INTID);GO TO START; 14141000
|
||||
END; 14154000
|
||||
DO UNTIL FALSE; 14155000
|
||||
ARRAYDEC: ARRAE; GO TO START; 14156000
|
||||
FILEDEC: INDEX: OUTDEC: 14158000
|
||||
FILEDEC: INDEC: OUTDEC: 14158000
|
||||
GOTSCHK:GOTSTORAGE~ NOT SPECTOG OR GOTSTORAGE;GO TO START; 14160000
|
||||
NAMEDEC: IF T1~GTA1[J~J-1]!ARRAYV THEN J~J+1; 14161000
|
||||
TYPEV~NAMEID; 14161010
|
||||
@ -5749,7 +5749,7 @@ GO TO START; 14253000
|
||||
REAL J,K; 14254100
|
||||
BOOLEAN STREAM PROCEDURE PARM(S,D,K,J); VALUE K,J; 14254200
|
||||
BEGIN SI~S;SI~SI+2; DI~D;DI~DI+2; 14254300
|
||||
IF K SC!DC THEN TALLY~1 14254400
|
||||
IF K SC!DC THEN TALLY~1; 14254400
|
||||
DI~LOC J;DI~DI+7; 14254500
|
||||
IF SC!DC THEN TALLY~1; 14254600
|
||||
PARM~TALLY; 14254700
|
||||
@ -6622,7 +6622,7 @@ PROCEDURE LABELS; 16156000
|
||||
ELSE BEGIN ERR(250); GO TO EXIT END; 16205000
|
||||
IF STEPI ! SCV THEN BEGIN ERR(263);GO TO EXIT END; 16206000
|
||||
IFSC: IF STEPI ! RELOP THEN BEGIN ERR(264);GO TO EXIT END; 16207000
|
||||
IF STEPI = DCV THEN EMITC( ADDR,ELBAT[I-1].COMPARECODE); 16208000
|
||||
IF STEPI = DCV THEN EMITC( ADDR,ELBAT[I-1].COMPARECODE) 16208000
|
||||
ELSE 16209000
|
||||
IF ELCLASS = STRNGCON THEN 16210000
|
||||
EMITC(ACCUM[1].[18:6],ELBAT[I-1].TESTCODE) 16211000
|
||||
@ -6632,7 +6632,7 @@ PROCEDURE LABELS; 16156000
|
||||
ELSE BEGIN ERR(265); GO TO EXIT END; 16214000
|
||||
GO TO IFTOG ; 16215000
|
||||
IFSB: EMITC(1,BIT); 16216000
|
||||
IFTOG: IF STEP ! THENV THEN BEGIN ERR(266); GO TO EXIT END; 16217000
|
||||
IFTOG: IF STEPI ! THENV THEN BEGIN ERR(266); GO TO EXIT END; 16217000
|
||||
FIX1 ~ L; 16218000
|
||||
EMIT(JFC); 16219000
|
||||
IF STEPI!ELSEV THEN% 16220000
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user