Trailing-Edge
-
PDP-10 Archives
-
AP-D489C-SB
-
sort.bwr
There are no other files named sort.bwr in the archive.
SORT.BWR -- Beware file for SORT
Apr 1978
COPYRIGHT (C) 1978 BY
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
TRANSFERRED.
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
SORT.BWR Page 2
SORT.BWR -- Beware file for SORT
BUG FIXES:
Bug fixes found too late to be included in this release.
These fixes are included in the *.NEW files for you convenience.
Edit 303
File 1) DSK:SRTPRM.302[4,150] created: 1534 29-Mar-1978
File 2) DSK:SRTPRM.MAC[4,150] created: 1056 04-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/DPL/DZN 29-MAR-78
1) ;COPYRIGHT (C) 1975, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/DPL/DZN 4-Apr-78
2) ;COPYRIGHT (C) 1975, 1978 BY
**************
1)1 DECEVR==302 ;DEC EDIT VERSION
1) V%SORT==:<CUSTVR>B2+<DECVER>B11+<DECMVR>B17+DECEVR
****
2)1 DECEVR==303 ;DEC EDIT VERSION
2) V%SORT==:<CUSTVR>B2+<DECVER>B11+<DECMVR>B17+DECEVR
**************
1)5 SUBTTL DEFINITIONS -- Accumulators
****
2)4 ;SORT/MERGE %4(302) Released
2) ;303 Fix compares of two character EBCDIC alphanumeric keys in the middle of a word.
2)5 SUBTTL DEFINITIONS -- Accumulators
**************
SORT.BWR Page 3
File 1) DSK:SRTCMP.302[4,150] created: 0848 17-Mar-1978
File 2) DSK:SRTCMP.MAC[4,150] created: 1106 04-Apr-1978
1)1 SUBTTL D.M.NIXON/DZN 4-Mar-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DZN 4-Apr-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)33 .HWFRMT
1) MSKE12==BYTE (9) 0,0,377,0
1) MSKE13==BYTE (9) 0,0,0,377
1) .MFRMT
1)34 ; CODE GENERATION FOR COMPARISON OF EBCDIC KEYS
****
2)33 $EDIT 303;[303] Change @MSKE12 DZN 4-Apr-78
2) SEGMENT LOW10 ;[303]
2) .HWFRMT
2) ;MSKE10==BYTE (9) 377,000,000,000
2) ;MSKE11==BYTE (9) 000,377,000,000
2) MSKE12==BYTE (9) 000,000,377,000
2) MSKE13==BYTE (9) 000,000,000,377
2) ;MSKE20==BYTE (9) 377,377,000,000
2) MSKE21: BYTE (9) 000,377,377,000 ;[303]
2) ;MSKE22==BYTE (9) 000,000,377,377
2) ;MSKE30:BYTE (9) 377,377,377,000
2) ;MSKE31:BYTE (9) 000,377,377,377
2) ;MSKE40:BYTE (9) 377,377,377,377
2) .MFRMT
2) SEGMENT HIGH ;[303]
2)34 ; CODE GENERATION FOR COMPARISON OF EBCDIC KEYS
**************
1)35 $LSH$ -9
1) $JCAI$
1) EBC22: CAIGE P3,2+2 ;TEST FOR SPECIAL END CASES
****
2)35 $EDIT 303;[303] Replace @EBC21+1 DZN 4-Apr-78
2) $AND$ MSKE21 ;[303] MAKE SURE BYTES 0 AND 3 ARE ZERO
2) $JCAM$ ;[303] ..
2) EBC22: CAIGE P3,2+2 ;TEST FOR SPECIAL END CASES
**************
SORT.BWR Page 4
Edit 304
File 1) DSK:SRTPRM.302[4,150] created: 1534 29-Mar-1978
File 2) DSK:SRTPRM.MAC[4,150] created: 1031 06-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/DPL/DZN 29-MAR-78
1) ;COPYRIGHT (C) 1975, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/DPL/DZN 5-Apr-78
2) ;COPYRIGHT (C) 1975, 1978 BY
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==302 ;DEC EDIT VERSION
1) V%SORT==:<CUSTVR>B2+<DECVER>B11+<DECMVR>B17+DECEVR
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==304 ;DEC EDIT VERSION
2) V%SORT==:<CUSTVR>B2+<DECVER>B11+<DECMVR>B17+DECEVR
**************
1)5 SUBTTL DEFINITIONS -- Accumulators
****
2)4 ;SORT %4(302) Released
2) ;304 Fix ?SRTRIE errors on EBCDIC fixed-length files.
2)5 SUBTTL DEFINITIONS -- Accumulators
**************
File 1) DSK:SORT.302[4,150] created: 1519 29-Mar-1978
File 2) DSK:SORT.MAC[4,150] created: 1406 05-Apr-1978
1)1 SUBTTL D.M.NIXON/DZN/DLC 27-Mar-78
1) IFN FTOPS20,<
****
2)1 SUBTTL D.M.NIXON/DZN/DLC 5-Apr-78
2) IFN FTOPS20,<
**************
1)42 BLT T3,1(R) ;TRANSFER RECORD FRAGMENT
1) MOVNI T1,4 ;4 BYTES PER WORD
****
2)42 $EDIT 304;[304] Replace @GETEML+14 DZN 5-Apr-78
2) BLT T3,0(R) ;[304] TRANSFER RECORD FRAGMENT
2) MOVNI T1,4 ;4 BYTES PER WORD
**************
SORT.BWR Page 5
Edit 305 TOPS-20 only
File 1) DSK:SRTPRM.MAC created: 1340 11-APR-1978
File 2) DSK:SRTPRM.305 created: 1429 11-APR-1978
1)1 SUBTTL D.M.NIXON/DMN/DPL/DZN 29-MAR-78
1) ;COPYRIGHT (C) 1975, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/DPL/DZN 10-APR-78
2) ;COPYRIGHT (C) 1975, 1978 BY
**************
1)1 DECEVR==302 ;DEC EDIT VERSION
1) V%SORT==:<CUSTVR>B2+<DECVER>B11+<DECMVR>B17+DECEVR
****
2)1 DECEVR==305 ;DEC EDIT VERSION
2) V%SORT==:<CUSTVR>B2+<DECVER>B11+<DECMVR>B17+DECEVR
**************
1)5 SUBTTL DEFINITIONS -- Accumulators
****
2)4 ;SORT/MERGE %4(302) Released
2) ;305 ON TOPS-20 FIX BLOCKING FACTOR PROBLEMS
2)5 SUBTTL DEFINITIONS -- Accumulators
**************
1)11 FILBUF:!BLOCK 1 ;(TOPS10) WHERE BUFFERS START (BUFPTR)
1) ;(TOPS20) BUFFER SIZE (PGS),,1ST PAGE
1) ;(TOPS20) EXCEPT MAGTAPE, WHICH HAS:
1) ;(TOPS20) BUF SIZE (WORDS),,1ST WORD
1) FILBLK:!BLOCK 1 ;FILE BLOCKING FACTOR
1) FILFLG:!BLOCK 1 ;SEE FI.??? FLAGS ABOVE
****
2)11 FILBUF:!BLOCK 1 ;WHERE BUFFERS START (BUFPTR)
2) FILBLK:!BLOCK 1 ;FILE BLOCKING FACTOR
2) FILBSZ:!BLOCK 1 ;[305] FILE BLOCK SIZE
2) FILFLG:!BLOCK 1 ;SEE FI.??? FLAGS ABOVE
**************
[END OF SORT.BWR]