From 6fa2b70b37366dd04ebac0c023973901a97861d6 Mon Sep 17 00:00:00 2001 From: Paul Kimpel Date: Sat, 14 Jul 2012 12:24:36 +0000 Subject: [PATCH] Correct use of DEFINE parameters in CODEDUMP55. --- tools/CODEDUMP55.alg_m | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/tools/CODEDUMP55.alg_m b/tools/CODEDUMP55.alg_m index 1bc2333..b9d7d0b 100644 --- a/tools/CODEDUMP55.alg_m +++ b/tools/CODEDUMP55.alg_m @@ -12,12 +12,14 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00050000 % 2012-04-19 P.KIMPEL 00050010 % ORIGINAL VERSION. 00050011 +% 2012-07-14 P.KIMPEL 00050020120714PK +% CORRECT USE OF PARAMETER DEFINES. 00050021120714PK %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00099000 BEGIN 00100000 DEFINE 00100100 SECTORSIZE = 30 #, 00100200 - UNITSOF(V,U) = (((V)+(U-1)) DIV (U)) #, 00100300 - INCREMENTSOF(V,U) = (UNITSOF(V,U)*U) #; 00100400 + UNITSOF(V,U) = (((V)+((U)-1)) DIV (U)) #, 00100300120714PK + INCREMENTSOF(V,U) = (UNITSOF(V,U)*(U)) #; 00100400120714PK 00110000 INTEGER 00120100 CODERECSIZE, 00120200