Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/cmlbas.mac
There is 1 other file named cmlbas.mac in the archive. Click here to see a list.
	TITLE	USFLSP	LOCATIONS FOR USER FILE
	SUBTTL	C.MITCHELL 1977.

	SEARCH	MONSYM,MACSYM,CMLBSM

	ENTRY	USCHNS,USCHFG,USNCHK,USNMTB

USCHNS:	BLOCK	1		;POINTER TO START OF CHAIN
USCHFG:	BLOCK	1		;CHANGE FLAG
USNCHK:	BLOCK	1		;NO CHECKS IF -1
USNMTB:	BLOCK	DMXUSR+1	;TABLE OF NAMES FOR RECOGNITION

	PRGEND
	TITLE	PLFLSP	SPACE FOR PEOPLE FILE
	SUBTTL	C.MITCHELL 1977. 

	SEARCH	CMLBSM

	ENTRY	CODTAB,ADRTAB,PLNMTB,FSTTAB
	ENTRY	PLCHNS,PLCHFG,PLNCHK,PLADRL,INTTAB,CLSTAB

CODTAB:	BLOCK	ADRMAX+1	;FOR CODES
ADRTAB:	BLOCK	ADRMAX+1	;FOR ADDRESSES
PLNMTB:	BLOCK	PEPMAX+1	;FOR PEOPLE
FSTTAB:	BLOCK	FSTMAX+1	;FOR FIRST NAMES
PLADRL:	BLOCK	1		;START OF ADDRESSES
PLCHFG:	BLOCK	1		;CHANGE FLAG
PLNCHK:	BLOCK	1		;DO NOT CHECK CONSISTENCY IF -1
PLCHNS:	BLOCK	1		;START OF PEOPLE ENTRIES
INTTAB:	BLOCK	^D40+^D36*^D9	;INTEREST TABLE
CLSTAB:	BLOCK	^D40+^D36*^D9	;CLASS TABLE

	PRGEND
	TITLE	DEVBUF	BUFFER FOR BUILDING DEVICE SPECS
	SUBTTL	C.MITCHELL 1977. 

	IFNDEF	.PSECT,<
	.DIRECT	.XTABM>

	SALL

	ENTRY	DSPCBF,STRID

	;JUST SOME SPACE FOR BUILDING DEVICE SPECIFICATIONS.

STRID:	BLOCK	1		;FOR STRUCTURE OR DEVICE ID
DSPCBF:	BLOCK	20		;FOR FULL SPEC

	PRGEND
	TITLE	LAYSPC	SPACE FOR "LAYOUT" ROUTINES
	SUBTTL	CMITCHELL 1977


	ENTRY	LAYFLG,LAYSPC,LINES,RNGBP,FFSEEN,TITLE,TABSTP
	ENTRY	LENGTH,WIDTH,LINES,OTLNBF


LAYFLG:	BLOCK	1		;GENERAL FLAG
LAYSPC:	BLOCK	^D27		;GENERAL BUFFER
LINES:	BLOCK	1		;COUNT OF LINES LEFT ON PAGE
RNGBP:	BLOCK	1		;BYTE POINTER FOR LINE GENERATION
FFSEEN:	BLOCK	1		;FLAG -1 WHEN FORM-FEED SEEN
TITLE:	BLOCK	1		;POINTER TO TITLE
TABSTP:	BLOCK	1		;TAB POSITION
WIDTH:	BLOCK	1		;WIDTH OF PAGE
LENGTH:	BLOCK	1		;LENGTH OF PAGE
OTLNBF:	BLOCK	^D30		;OUTPUT BUFFER

	PRGEND
	TITLE	NWSSPC	SPACE FOR NEWSLETTER ETC.
	SUBTTL	C.MITCHELL 1977


	ENTRY	DATE,EDNUM,EDSTR

DATE:	BLOCK	1		;DATE OF PULICATION
EDNUM:	BLOCK	1		;EDITION NUMBER
EDSTR:	BLOCK	10		;STRING VERSION OF ABOVE

	PRGEND
	TITLE	HEPLOC	LOCATIONS ON THE HEAP
	SUBTTL	C.MITCHELL 1977. 

	SEARCH	MONSYM,MACSYM,CMLBSM

	ENTRY	NXTBUF,HEPLEN,LSTBUF,NAMBUF,FSTBUF,HEAP

	;LOCATIONS ON THE HEAP


NAMBUF:	BLOCK	10		;BLOCK FOR NAME ETC.
FSTBUF:	BLOCK	10		;BLOCK FOR FIRST NAME
LSTBUF:	BLOCK	1		;TEMORARY LOCATION FOR STACK WORK
NXTBUF:	BLOCK	1		;POINTER TO FREE AREA
HEPLEN:	BLOCK	1		;LENGTH OF REMAINING SPACE
HEAP:	BLOCK	1		;FOR ADDRESS OF START OF HEAP

	END