github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-02-27 08:49:00 +00:00
Code Issues Releases Wiki Activity

Implement BIC/BCLANSI translation in B5500ColdLoader and do disk writes in alpha mode; fix typos in DCMCP transcription.

Browse Source
This commit is contained in:
Paul Kimpel
2013-02-25 12:48:07 +00:00
parent f582ca2cb5
commit 937ce00a35
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SYMBOL/DCMCP.esp_m
View File

@@ -19828,7 +19828,7 @@ SVSEARCH: IF (LOC:=LINK.[CF])=0 THEN GO TO ROCKABYE; 24033200
FORGETSPACE(Y+2);% 24035900
END;% 24036000
END ELSE 24036100
OF SAVEF}63 OR TOGLE.MEMNO=0 THEN 24036125
IF SAVEF}63 OR TOGLE.MEMNO=0 THEN 24036125
BEGIN% ALLOCATE ON "SPACE AVAILABLE" BASIS 24036150
START:% 24036200
IF (LINK ~ POLISH(M[AVAIL], 0, SIZE, CFX, LLL,% 24036300
@@ -20608,7 +20608,7 @@ PROCEDURE LIBRARYTRANSFER; 28200000
% 28200108
% TOGS.[21:1] (BHS) INDICATES BAD HEADER 28200110
% [23:1] (FORKED) NOT ORIGINATING LIBMAIN/DISK 28200112
% [26:1] (OF) CURRENT <MFID>/<FID> HAS BEEN 28200114
% [26:1] (OE) CURRENT <MFID>/<FID> HAS BEEN 28200114
% OPENED EXCLUSIVE 28200116
% 28200118
% [28:1] (SOMECOPIED) AT LEAST ONE FILE HAS BEEN 28200120
@@ -20664,7 +20664,7 @@ BEGIN 28200200
BHS = TOGS.[21:1]#, 28208400
FORKED = TOGS.[23:1]#, 28208600
B6500 = TOGS.[24:1]#, 28208800
OF = TOGS.[26:1]#, 28209000
OE = TOGS.[26:1]#, 28209000
SOMECOPIED = TOGS.[28:1]#, 28209100
REELSW = TOGS.[33:1]#, 28209200
SKIPDIR = TOGS.[35:1]#, 28209400
@@ -20789,7 +20789,7 @@ PRE: SPOUT(T); T:=1; 28219200
IF IOD[W].[24:1] 28234800
THEN TMP:=TMP+B6500 28235000
ELSE BEGIN SIZE:=SIZE+B6500; WRDSZ[W]:=SIZE; END; 28235200
IOREQUEST(-(IOD[W]:=9AROW[W] INX TMP)& 28235400
IOREQUEST(-(IOD[W]:=(AROW[W] INX TMP)& 28235400
SIZE[8:38:10]& 28235600
TINU[U][3:3:5]& 28235800
(NOT IOD[W])[24:24:1]) OR @2017700000, 28236000