.TITLE SRTDEF DEFINE SRTPKG OFFSETS ; SMERGE PACKAGE SYMBOLS ; .GLOBL NR,LUNA,ARAY,XDIMA,YDIMA,KEY,SUBR,LUN,MAXY .GLOBL XDIM,YDIM,ADDR,N,FLAG,LUN1,LUN2,STORE ; ; ARGUMENT LIST OFFSETS FOR CALLING SMERGE AND KSORT ; NR=2 ;ARGUMENT COUNT LUNA=4 ;POINTER TO RETURN LUN ARAY=6 ;POINTER TO ARRAY TO SORT XDIMA=10 ;POINTER TO LENGHT OF ONE SORT RECORD YDIMA=12 ;POINTER TO NUMBER OF RECORDS KEY=14 ;POINTER TO KEY ARRAY SUBR=16 ;COMPARE ROUTINE ADDRESS ; ;OFFSETS TO SRTPKG INTERNAL FLAGS POINTERS AND COUNTERS LUN=20 ;WORD TO STORE SMERGE RETURN LUN VALUE MAXY=22 ;MAXUMUM NUMBER OF SORT RECORS I CAN STORE XDIM=24 ;SIZE IN WORDS OF ONE SORT RECORD YDIM=26 ;NUMBER OF RECORDS FOR A SPECIFIC SMERGE CALL ADDR=30 ;ADDRESS OF NEXT RECORD N=32 ;NUMBER OF RECORDS ACCUMULATED IN CORE SO FAR FLAG=34 ;FLAG 0=SORT FITS IN CORE, 1=DID NOT FIT. LUN1=36 ;LUNS FOR MERGING WITH WHEN NOT LUN2=40 ;USING DEFAULT SCRAT1 AND SCRAT2 STORE=42 ;START OF DATA AREA OF SORT BUFFER .END