github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-01-13 23:25:24 +00:00
Code Issues Releases Wiki Activity

Correct use of DEFINE parameters in CODEDUMP55.

Browse Source
This commit is contained in:
Paul Kimpel 2012-07-14 12:24:36 +00:00
parent dcfd9d7fb2
commit 6fa2b70b37
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/CODEDUMP55.alg_m
View File

@ -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