mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-26 01:44:21 +00:00
274 lines
14 KiB
Plaintext
274 lines
14 KiB
Plaintext
PL/M-86 COMPILER SDIR - SORT MODULE PAGE 1
|
||
|
||
|
||
ISIS-II PL/M-86 V2.0 COMPILATION OF MODULE SORT
|
||
OBJECT MODULE PLACED IN SORT
|
||
COMPILER INVOKED BY: :F0: SORT.PLM DEBUG OBJECT(SORT) OPTIMIZE(3) XREF
|
||
|
||
|
||
|
||
$title ('SDIR - Sort Module')
|
||
1 sort:
|
||
do;
|
||
/* sort module for extended dir */
|
||
|
||
$include(comlit.lit)
|
||
=
|
||
2 1 = declare
|
||
= lit literally 'literally',
|
||
= dcl lit 'declare',
|
||
= true lit '0ffh',
|
||
= false lit '0',
|
||
= boolean lit 'byte',
|
||
= forever lit 'while true',
|
||
= cr lit '13',
|
||
= lf lit '10',
|
||
= tab lit '9',
|
||
= ctrlc lit '3',
|
||
= ff lit '12',
|
||
= page$len$offset lit '1ch',
|
||
= nopage$mode$offset lit '2Ch',
|
||
= sectorlen lit '128';
|
||
|
||
3 1 print: procedure(str$adr) external; /* in util.plm */
|
||
4 2 dcl str$adr address;
|
||
5 2 end print;
|
||
|
||
6 1 dcl sorted boolean public; /* set by this module if successful sort */
|
||
|
||
$include(finfo.lit)
|
||
=
|
||
= /* file info record for SDIR - note if this structure changes in size */
|
||
= /* the multXX: routine in the sort.plm module must also change */
|
||
=
|
||
7 1 = declare
|
||
= f$info$structure lit 'structure(
|
||
= usr byte, name (8) byte, type (3) byte, onekblocks address,
|
||
= kbytes address, recs$lword address, recs$hbyte byte,
|
||
= hash$link address, x$i$adr address)';
|
||
8 1 = declare
|
||
= x$info$structure lit 'structure (
|
||
= create (4) byte,
|
||
= update (4) byte,
|
||
= passmode byte)';
|
||
=
|
||
|
||
9 1 declare
|
||
buf$fcb$adr address external, /* index into directory buffer */
|
||
buf$fcb based buf$fcb$adr (32) byte,
|
||
/* fcb template for dir */
|
||
|
||
PL/M-86 COMPILER SDIR - SORT MODULE PAGE 2
|
||
|
||
|
||
(f$i$adr, first$f$i$adr, last$f$i$adr, x$i$adr, filesfound)
|
||
address external,
|
||
/* indices into file$info array */
|
||
file$info based f$i$adr f$info$structure,
|
||
|
||
mid$adr address,
|
||
mid$file$info based mid$adr f$info$structure;
|
||
|
||
|
||
10 1 mult23: procedure(index) address public;
|
||
11 2 dcl index address; /* return address of file$info numbered by index */
|
||
12 2 return shl(index, 4) + shl(index,2) + shl(index,1) + index + first$f$i$adr;
|
||
/* index * size(file$info) + base of file$info array */
|
||
13 2 end mult23;
|
||
|
||
14 1 lessthan: procedure( str1$adr, str2$adr) boolean;
|
||
15 2 dcl (i,c1,c2) byte, /* true if str1 < str2 */
|
||
(str1$adr, str2$adr) address, /* sorting on name and type field */
|
||
str1 based str1$adr (1) byte, /* only, assumed to be first in */
|
||
str2 based str2$adr (1) byte; /* file$info record */
|
||
16 2 do i = 1 to 11;
|
||
17 3 if (c1:=(str1(i) and 7fh)) <> (c2:=(str2(i) and 7fh)) then
|
||
18 3 return(c1 < c2);
|
||
19 3 end;
|
||
20 2 return(false);
|
||
21 2 end lessthan;
|
||
|
||
22 1 dcl f$i$indices$base address public,
|
||
f$i$indices based f$i$indices$base (1) address;
|
||
|
||
23 1 qsort: procedure(l,r); /* no recursive quick sort, sorting largest */
|
||
24 2 dcl (l,r,i,j,temp) address,/* partition first */
|
||
stacksiz lit '14', /* should always be able to sort 2 ** stacksiz */
|
||
stack (stack$siz) structure (l address, r address),
|
||
sp byte;
|
||
|
||
25 2 sp = 0; stack(0).l = l; stack(0).r = r;
|
||
|
||
28 2 do while sp < stack$siz - 1;
|
||
29 3 l = stack(sp).l; r = stack(sp).r; sp = sp - 1;
|
||
32 3 do while l < r;
|
||
33 4 i = l; j = r;
|
||
35 4 mid$adr = mult23(f$i$indices(shr(l+r,1)));
|
||
36 4 do while i <= j;
|
||
37 5 f$i$adr = mult23(f$i$indices(i));
|
||
38 5 do while lessthan(f$i$adr,mid$adr);
|
||
39 6 i = i + 1;
|
||
40 6 f$i$adr = mult23(f$i$indices(i));
|
||
41 6 end;
|
||
42 5 f$i$adr = mult23(f$i$indices(j));
|
||
43 5 do while lessthan(mid$adr,f$i$adr);
|
||
44 6 j = j - 1;
|
||
45 6 f$i$adr = mult23(f$i$indices(j));
|
||
46 6 end;
|
||
47 5 if i <= j then
|
||
48 5 do; temp = f$i$indices(i); f$i$indices(i) = f$i$indices(j);
|
||
51 6 f$i$indices(j) = temp;
|
||
PL/M-86 COMPILER SDIR - SORT MODULE PAGE 3
|
||
|
||
|
||
52 6 i = i + 1;
|
||
53 6 if j > 0 then j = j - 1;
|
||
55 6 end;
|
||
56 5 end; /* while i <= j */
|
||
57 4 if j - l < r - i then /* which partition is larger */
|
||
58 4 do; if i < r then
|
||
60 5 do; sp = sp + 1; stack(sp).l = i; stack(sp).r = r;
|
||
64 6 end;
|
||
65 5 r = j; /* continue sorting left partition */
|
||
66 5 end;
|
||
else
|
||
67 4 do; if l < j then
|
||
69 5 do; sp = sp + 1; stack(sp).l = l; stack(sp).r = j;
|
||
73 6 end;
|
||
74 5 l = i; /* continue sorting right partition */
|
||
75 5 end;
|
||
76 4 end; /* while l < r */
|
||
77 3 end; /* while sp < stack$siz - 1 */
|
||
78 2 if sp <> 255 then
|
||
79 2 call print(.(cr,lf,lf,'Sort Stack Overflow',cr,lf,'$'));
|
||
80 2 else sorted = true;
|
||
81 2 end qsort;
|
||
|
||
82 1 sort: procedure public;
|
||
83 2 dcl i address;
|
||
84 2 f$i$indices$base = last$f$i$adr + size(file$info);
|
||
85 2 if filesfound < 2 then
|
||
86 2 return;
|
||
87 2 if shr((x$i$adr - f$i$indices$base),1) < filesfound then
|
||
88 2 do;
|
||
89 3 call print(.('Not Enough Memory for Sort',cr,lf,'$'));
|
||
90 3 return;
|
||
91 3 end;
|
||
92 2 do i = 0 to filesfound - 1;
|
||
93 3 f$i$indices(i) = i; /* initialize f$i$indices */
|
||
94 3 end;
|
||
95 2 call qsort(0,filesfound - 1);
|
||
96 2 sorted = true;
|
||
97 2 end sort;
|
||
|
||
98 1 end sort;
|
||
PL/M-86 COMPILER SDIR - SORT MODULE PAGE 4
|
||
|
||
|
||
CROSS-REFERENCE LISTING
|
||
-----------------------
|
||
|
||
|
||
DEFN ADDR SIZE NAME, ATTRIBUTES, AND REFERENCES
|
||
----- ------ ----- --------------------------------
|
||
|
||
|
||
2 BOOLEAN. . . . . . LITERALLY 6 14
|
||
9 0000H 32 BUFFCB . . . . . . BYTE BASED(BUFFCBADR) ARRAY(32)
|
||
9 0000H 2 BUFFCBADR. . . . . WORD EXTERNAL(1) 9
|
||
15 0046H 1 C1 . . . . . . . . BYTE 17 18
|
||
15 0047H 1 C2 . . . . . . . . BYTE 17 18
|
||
2 CR . . . . . . . . LITERALLY 79 89
|
||
2 CTRLC. . . . . . . LITERALLY
|
||
2 DCL. . . . . . . . LITERALLY
|
||
2 FALSE. . . . . . . LITERALLY 20
|
||
2 FF . . . . . . . . LITERALLY
|
||
9 0000H 2 FIADR. . . . . . . WORD EXTERNAL(2) 9 37 38 40 42 43 45
|
||
22 0000H 2 FIINDICES. . . . . WORD BASED(FIINDICESBASE) ARRAY(1) 35 37 40 42 45 49
|
||
50 51 93
|
||
22 0002H 2 FIINDICESBASE. . . WORD PUBLIC 22 35 37 40 42 45 49 50 51 84
|
||
87 93
|
||
9 0000H 23 FILEINFO . . . . . STRUCTURE BASED(FIADR) 84
|
||
9 0000H 2 FILESFOUND . . . . WORD EXTERNAL(6) 85 87 92 95
|
||
7 FINFOSTRUCTURE . . LITERALLY 9
|
||
9 0000H 2 FIRSTFIADR . . . . WORD EXTERNAL(3) 12
|
||
2 FOREVER. . . . . . LITERALLY
|
||
9 0013H 2 HASHLINK . . . . . WORD MEMBER(MIDFILEINFO)
|
||
9 0013H 2 HASHLINK . . . . . WORD MEMBER(FILEINFO)
|
||
15 0045H 1 I. . . . . . . . . BYTE 16 17
|
||
24 0004H 2 I. . . . . . . . . WORD 33 36 37 39 40 47 49 50 52 57 59 62
|
||
74
|
||
83 0042H 2 I. . . . . . . . . WORD 92 93
|
||
10 0004H 2 INDEX. . . . . . . WORD PARAMETER AUTOMATIC 11 12
|
||
24 0006H 2 J. . . . . . . . . WORD 34 36 42 44 45 47 50 51 53 54 57 65
|
||
68 72
|
||
9 000EH 2 KBYTES . . . . . . WORD MEMBER(MIDFILEINFO)
|
||
9 000EH 2 KBYTES . . . . . . WORD MEMBER(FILEINFO)
|
||
23 0006H 2 L. . . . . . . . . WORD PARAMETER AUTOMATIC 24 26 29 32 33 35 57 68
|
||
71 74
|
||
24 0000H 2 L. . . . . . . . . WORD MEMBER(STACK) 26 29 62 71
|
||
9 0000H 2 LASTFIADR. . . . . WORD EXTERNAL(4) 84
|
||
14 0025H 66 LESSTHAN . . . . . PROCEDURE BYTE STACK=0006H 38 43
|
||
2 LF . . . . . . . . LITERALLY 79 89
|
||
2 LIT. . . . . . . . LITERALLY 2 7 8 24
|
||
9 0000H 2 MIDADR . . . . . . WORD 9 35 38 43
|
||
9 0000H 23 MIDFILEINFO. . . . STRUCTURE BASED(MIDADR)
|
||
10 0000H 37 MULT23 . . . . . . PROCEDURE WORD PUBLIC STACK=0004H 35 37 40 42 45
|
||
9 0001H 8 NAME . . . . . . . BYTE ARRAY(8) MEMBER(MIDFILEINFO)
|
||
9 0001H 8 NAME . . . . . . . BYTE ARRAY(8) MEMBER(FILEINFO)
|
||
2 NOPAGEMODEOFFSET . LITERALLY
|
||
9 000CH 2 ONEKBLOCKS . . . . WORD MEMBER(MIDFILEINFO)
|
||
9 000CH 2 ONEKBLOCKS . . . . WORD MEMBER(FILEINFO)
|
||
2 PAGELENOFFSET. . . LITERALLY
|
||
3 0000H PRINT. . . . . . . PROCEDURE EXTERNAL(0) STACK=0000H 79 89
|
||
23 0067H 373 QSORT. . . . . . . PROCEDURE STACK=000EH 95
|
||
PL/M-86 COMPILER SDIR - SORT MODULE PAGE 5
|
||
|
||
|
||
23 0004H 2 R. . . . . . . . . WORD PARAMETER AUTOMATIC 24 27 30 32 34 35 57 59
|
||
63 65
|
||
24 0002H 2 R. . . . . . . . . WORD MEMBER(STACK) 27 30 63 72
|
||
9 0012H 1 RECSHBYTE. . . . . BYTE MEMBER(MIDFILEINFO)
|
||
9 0012H 1 RECSHBYTE. . . . . BYTE MEMBER(FILEINFO)
|
||
9 0010H 2 RECSLWORD. . . . . WORD MEMBER(MIDFILEINFO)
|
||
9 0010H 2 RECSLWORD. . . . . WORD MEMBER(FILEINFO)
|
||
2 SECTORLEN. . . . . LITERALLY
|
||
SHL. . . . . . . . BUILTIN 12
|
||
SHR. . . . . . . . BUILTIN 35 87
|
||
SIZE . . . . . . . BUILTIN 84
|
||
1 0000H SORT . . . . . . . PROCEDURE STACK=0000H
|
||
82 01DCH 102 SORT . . . . . . . PROCEDURE PUBLIC STACK=0012H
|
||
6 0044H 1 SORTED . . . . . . BYTE PUBLIC 80 96
|
||
24 0048H 1 SP . . . . . . . . BYTE 25 28 29 30 31 61 62 63 70 71 72 78
|
||
24 000AH 56 STACK. . . . . . . STRUCTURE ARRAY(14) 26 27 29 30 62 63 71 72
|
||
24 STACKSIZ . . . . . LITERALLY 24 28
|
||
15 0000H 1 STR1 . . . . . . . BYTE BASED(STR1ADR) ARRAY(1) 17
|
||
14 0006H 2 STR1ADR. . . . . . WORD PARAMETER AUTOMATIC 15 17
|
||
15 0000H 1 STR2 . . . . . . . BYTE BASED(STR2ADR) ARRAY(1) 17
|
||
14 0004H 2 STR2ADR. . . . . . WORD PARAMETER AUTOMATIC 15 17
|
||
3 0000H 2 STRADR . . . . . . WORD PARAMETER 4
|
||
2 TAB. . . . . . . . LITERALLY
|
||
24 0008H 2 TEMP . . . . . . . WORD 49 51
|
||
2 TRUE . . . . . . . LITERALLY 80 96
|
||
9 0009H 3 TYPE . . . . . . . BYTE ARRAY(3) MEMBER(MIDFILEINFO)
|
||
9 0009H 3 TYPE . . . . . . . BYTE ARRAY(3) MEMBER(FILEINFO)
|
||
9 0000H 1 USR. . . . . . . . BYTE MEMBER(MIDFILEINFO)
|
||
9 0000H 1 USR. . . . . . . . BYTE MEMBER(FILEINFO)
|
||
9 0015H 2 XIADR. . . . . . . WORD MEMBER(MIDFILEINFO)
|
||
9 0015H 2 XIADR. . . . . . . WORD MEMBER(FILEINFO)
|
||
9 0000H 2 XIADR. . . . . . . WORD EXTERNAL(5) 87
|
||
8 XINFOSTRUCTURE . . LITERALLY
|
||
|
||
|
||
|
||
MODULE INFORMATION:
|
||
|
||
CODE AREA SIZE = 0242H 578D
|
||
CONSTANT AREA SIZE = 0036H 54D
|
||
VARIABLE AREA SIZE = 0049H 73D
|
||
MAXIMUM STACK SIZE = 0012H 18D
|
||
149 LINES READ
|
||
0 PROGRAM ERROR(S)
|
||
|
||
END OF PL/M-86 COMPILATION
|