github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-03-04 18:14:06 +00:00
Code Issues Releases Wiki Activity

Correct 8-bit character offsets for PACKEBCDICTOBIC and UNPACKBICTOEBCDIC routines in ALGOLXEM and ESPOLXEM; delete extraneous LibMaintExtract source created during recent SVN repo merge.

Browse Source
This commit is contained in:
Paul Kimpel
2013-03-10 18:17:51 +00:00
parent 50d53b0b3b
commit 8775d14991
2 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tools/xem/ALGOLXEM.alg_m
View File

@@ -1689,7 +1689,8 @@ PROCEDURE PACKEBCDICTOBIC(S, SX, D, DX, N); 00900200
SB:= 45-(SX MOD 6)*8; 00902400
DW:= DX DIV 8; 00902500
DB:= 47-(DX MOD 8)*6; 00902600
REPLACE POINTER(S[SX],8) BY POINTER(S[SX],8) FOR N WITH EBCDICTOBIC; 00902700
REPLACE POINTER(S[SX DIV 6],8)+(SX MOD 6) BY 00902700
POINTER(S[SX DIV 6],8)+(SX MOD 6) FOR N WITH EBCDICTOBIC; 00902720
SA:= S[SW]; 00902800
DA:= D[DW]; 00902900
NC:= N; 00903000
@@ -1775,7 +1776,8 @@ PROCEDURE UNPACKBICTOEBCDIC(S, SX, D, DX, N); 00906000
END WHILE; 00911000
00911100
D[DW]:= DA; 00911200
REPLACE POINTER(D[DX],8) BY POINTER(D[DX],8) FOR N WITH BICTOEBCDIC; 00911300
REPLACE POINTER(D[DX DIV 6],8)+(DX MOD 6) BY 00911300
POINTER(D[DX DIV 6],8)+(DX MOD 6) FOR N WITH BICTOEBCDIC; 00911320
END UNPACKBICTOEBCDIC; 00911400
00920000
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00920100
@@ -3297,9 +3299,9 @@ COMMENT "BLANKET" BLANKS OUT N+1 WORDS IN "THERE"; 09000000
N2:= MIN(OFFSET(P)-1, 118); 09730000=01828500=
WRITE(LINE, 09735000=01829100=
$ SET OMIT = NOT ALGOL 09735100=01829900=
<X18,"BURROUGHS B-5700 ALGOLXEM COMPILER MARK ", 09735120
<X21,"retro-B5500 ALGOLXEM COMPILER MARK ", 09735120
$ POP OMIT SET OMIT = ALGOL 09735140
<X18,"BURROUGHS B-5700 TSPOLXEM COMPILER MARK ", 09735160
<X21,"retro-B5500 TSPOLXEM COMPILER MARK ", 09735160
$ POP OMIT 09735180
"XVI.0.122" 09735200=01831000=
," ",A6,"DAY, ",I4,"-",A2,"-",A2,", ",I2,":",A2,X1,A3, 09735300=01832000=

8
tools/xem/ESPOLXEM.alg_m
View File

@@ -1581,7 +1581,8 @@ PROCEDURE PACKEBCDICTOBIC(S, SX, D, DX, N); 02200300
SB:= 45-(SX MOD 6)*8; 02202500
DW:= DX DIV 8; 02202600
DB:= 47-(DX MOD 8)*6; 02202700
REPLACE POINTER(S[SX],8) BY POINTER(S[SX],8) FOR N WITH EBCDICTOBIC; 02202800
REPLACE POINTER(S[SX DIV 6],8)+(SX MOD 6) BY 02202800
POINTER(S[SX DIV 6],8)+(SX MOD 6) FOR N WITH EBCDICTOBIC; 02202820
SA:= S[SW]; 02202900
DA:= D[DW]; 02203000
NC:= N; 02203100
@@ -1667,7 +1668,8 @@ PROCEDURE UNPACKBICTOEBCDIC(S, SX, D, DX, N); 02206100
END WHILE; 02211100
02211200
D[DW]:= DA; 02211300
REPLACE POINTER(D[DX],8) BY POINTER(D[DX],8) FOR N WITH BICTOEBCDIC; 02211400
REPLACE POINTER(D[DX DIV 6],8)+(DX MOD 6) BY 02211400
POINTER(D[DX DIV 6],8)+(DX MOD 6) FOR N WITH BICTOEBCDIC; 02211420
END UNPACKBICTOEBCDIC; 02211500
02220000
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%02220100
@@ -2741,7 +2743,7 @@ COMMENT "BLANKET" BLANKS OUT N+1 WORDS IN "THERE"; 07315000
REPLACE P:POINTER(EBCDICBUFF,8) BY DISK.LTITLE; 07790000=01828500=
N2:= MIN(OFFSET(P)-1, 118); 07795000=01828500=
WRITE(LINE, 07800000=01835500=
<X18, "BURROUGHS B-5700 ESPOLXEM COMPILER MARK ", 07802000
<X21, "retro-B5500 ESPOLXEM COMPILER MARK ", 07802000
"XVI.0.00" 07805000=01835500=
," ",A6,"DAY, ",I4,"-",A2,"-",A2,", ",I2,":",A2,X1,A3, 07806000=01832000=
////X*,A*,/X*,*("=")//>, 07808000