github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-01-14 07:29:00 +00:00
Code Issues Releases Wiki Activity

Commit APL transcription from Fausto Saporito as of 2014-01-04.

Browse Source
This commit is contained in:
Paul Kimpel 2014-01-05 16:28:54 +00:00
parent f07b2579e1
commit 79641cf789
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
source/APL/IMAGE.alg_m
View File

@ -159,7 +159,7 @@ COMMENT CHANGE LINE 3050 TO WRITE(PRINT,SF[I]) FOR MEMORY ERROR PROBS. 00013800
" KIND"), 00015900
("SYSTEM ERROR--POINTERS TO DATA TYPES OVERLAP."), 00016000
(" "); 00016100
WRITE(PRINT,F,I); 00016200
WRITE(PRINT,SF[I]); 00016200
IF I GTR 0 THEN 00016300
BEGIN 00016400
INTEGER GT1,GT2,GT3; 00016500
@ -2894,7 +2894,7 @@ INTEGER LASTCONSTANT; 00278900
INTEGER I,J,M,R; 00289400
J:=1; I:=D.SPF; R:=D.RF+I-1; 00289500
IF I NEQ 0 THEN 00289600
FOR M:=T STEP 1 UNTIL R DO J:=J|SP[MOC]; 00289700
FOR M:=I STEP 1 UNTIL R DO J:=J|SP[MOC]; 00289700
FINDSIZE:=J; 00289800
END PROCEDURE FINDSIZE; 00289900
00290000
@ -3463,10 +3463,10 @@ PROCEDURE DISPLAYCHARV(D); VALUE D; REAL D; 00344700
WDLINE := (LINESIZE+6) DIV 8 + 1; 00346300
IF II:=J-LINESIZE GTR 0 THEN BEGIN 00346400
T:= II DIV (I:=LINESIZE-2)+(IF II MOD I=0 THEN 0 ELSE 1); 00346500
NWORDS:=((F:=II-(T-1)|T)+6) DIV 8 + 1; 00346600
NWORDS:=((F:=II-(T-1)|I)+6) DIV 8 + 1; 00346600
END ELSE BEGIN NWORDS:=((F:=J)+6)DIV 8 + 1; T:=0; END; 00346700
FOR II:=1 STEP 1 UNTIL NMAT DO BEGIN 00346800
FOR I:=1 STEP I UNTIL K DO BEGIN 00346900
FOR I:=1 STEP 1 UNTIL K DO BEGIN 00346900
CC:=0; 00347000
FOR JJ:=1 STEP 1 UNTIL T DO BEGIN 00347100
TRANSFERSP(OUTOF,SP,L+M DIV 8,BUFFER,0,WDLINE); 00347200