Google
 

Trailing-Edge - PDP-10 Archives - bb-d549g-sb - 10kimp.mac
There are 3 other files named 10kimp.mac in the archive. Click here to see a list.
TITLE	10KIMP	VERSION 3	
SUBTTL	COMP10 IMPURE AREA		CWRU/CAM

EDIT==6
VERSION==XWD 300,EDIT

;COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.


LOC	137
	VERSION
RELOC
	ENTRY	HEADSW,ASTRFL,TSW
	ENTRY ZOP
	BSIZE=^D3500
	ENTRY	PUSHST,OLDPNT,OLDNUM
PUSHST:	BLOCK	16
	IFNDEF BSIZE,<BSIZE=1000>
	ENTRY	CRPERR,GLTBL
CRPERR:	5
GLTBL:	LBUFP2
	[ENDP-1]
	ENTRY	SAVFFX
	ENTRY	OUTDEV,PPSET,ERRCNT,TOP,TOP1,TOP2
	ENTRY	LBUFP,LBUFP1,LBUFP2,P1,P2,SAVEXS,TEMP
	ENTRY	RTNTMP,WCADR,HIGH,ROOM,GETCNT,GETFIL
	ENTRY	NUMTMP,TEMPF1,TEMPF2,LINEND,LSTCH,SAVEC,SAVNO2
	ENTRY	LINCNT,SAVNO,LINENO,BUFF1,BUFF2,ENDP,NUMLIN
	ENTRY	TUMP
	ENTRY	LINEN0
OUTDEV:	BLOCK 	1
	PPSET:	BLOCK	20
OLDNUM:	BLOCK	2
OLDPNT:	BLOCK	2
 SAVFFX:	0

LASPNT:	BLOCK	2
ERRCNT:	BLOCK	1


TOP:		;CONTAINS # LINES ACTUALLY STORED IN BUFFER
	TOP1:	BLOCK	1
TOP2:	BLOCK	1
LBUFP:
LBUFP1:	BLOCK	1
LBUFP2:	BLOCK	1

P1:	BLOCK	1
P2:	BLOCK	1


SAVEXS:	BLOCK	17

TUMP:	BLOCK	1
RTNTMP:	BLOCK	1	;RETURN ADDRESS FOR "MULTI" SUBROUTINE
WCADR:	BLOCK 1		;TEMP IN GLINE SUBROUTINE
HIGH:	BLOCK	1	;USED BY NOROOM
ROOM:	BLOCK	1	;USED BY "NOROOM"
GETCNT:	BLOCK	1	;# LINES (-1) "GETTWO" GOT
GETFIL:	BLOCK	1	;# OF FILE FROM WHICH "GETTWO" GOT LINE (.L. 0 IF NONE)
NUMTMP:	BLOCK	1		;TEMP FOR NUMLIN
TEMPF1:	BLOCK	1		;TEMP FOR F1
TEMPF2:	BLOCK	1		;TEMP FOR F2
LINEND:	1
LSTCH:	BLOCK 3
SAVEC:	0
SAVNO2:	0
LINCNT:	0
SAVNO:	0
LINEN0:	BLOCK	3
	BUFF1:	BLOCK	BSIZE
BUFF2:	BLOCK	BSIZE

ENDP:
NUMLIN:	BLOCK	1
	ENTRY	P6WORD
	ENTRY	PTRS.
	ENTRY	SFF1,LOGIPT,SCHAR
	ENTRY	CMDDDB
	ENTRY	LOGSPC,MRGSPC,LSTSPC
	ENTRY	CMDSPC
	ENTRY	USPEC
	ENTRY	BSPEC
	ENTRY	UCSPEC
	ENTRY	MCSPEC
	ENTRY	SAVFF
	ENTRY	FED
	ENTRY	ATFLAG
	ENTRY	CRLF
	ENTRY	CRLFBF
	ENTRY	LAST.
	ENTRY	LSTOP
	ENTRY	CAMOPT
	ENTRY	CONFLA
	ENTRY	INCOPT
	ENTRY	ID.CNT
	ENTRY	MATQUO
	ENTRY	SAVAC2
	ENTRY	COMPOP
	ENTRY	DIASW
	ENTRY	SFMODE
	ENTRY	BASIPT
	ENTRY	USEIPT
	ENTRY	BADDB
	ENTRY	BASDDB
	ENTRY	USDDB
	ENTRY	USEDDB
	ENTRY	ID.
	ENTRY	NUMBF2
	ENTRY	NUMBUF
	ENTRY	SAVEPP
	ENTRY	STATE.
	ENTRY	PDL
	ENTRY	PPROGW
	ENTRY	OLDCNT
	ENTRY	COMCNT
	ENTRY	LISTB
	ENTRY	OPTION
	ENTRY	COMBUF
	ENTRY	LSTTY
	ENTRY	LOGTTY
	ENTRY	SIXCNT
	ENTRY	SIXBUF
	ENTRY	SIXPTR
	ENTRY	SEVPTR
	ENTRY	SAVACS
	ENTRY	SQVE2
	ENTRY	LSTBKS
	ENTRY	LSTRET
	ENTRY	PTRLST
	ENTRY	MRET
	ENTRY	PTRMRG
	ENTRY	SQVE1
	ENTRY	LRET
	ENTRY	PTRLG
	ENTRY	BLOCKS
	ENTRY	MCIPT
	ENTRY	LOGOPT
	ENTRY	SAVEXX
	ENTRY	MRGIPT
	ENTRY	MRGOPT
	ENTRY	LSTOPT
	ENTRY	LSTIPT
		ENTRY	UCDDB
	ENTRY	UCIPTF
	ENTRY	UCIPT
	ENTRY	LSTDDB
	ENTRY	MRGDDB
	ENTRY	LOGDDB
	ENTRY	MCDDB
	ENTRY	SAVE16
	ENTRY	FIRST.
	ENTRY	PRTOPT
	ENTRY	CMDIPTF
	ENTRY	XSW,BASCLN,BPAGNO
BASCLN:	BLOCK	1		;ASCII LINE NO. FROM BASE FILE
	EXP	0
BPAGNO: BLOCK	1		;PAGE NUMBER FROM BASE FILE.
XSW:	BLOCK	1		;ON IF /X IS TYPED (USED BY FED)
CMDDDB:	BLOCK	7
CMDIPTF:	BLOCK	3
FIRST.:
P6WORD:	0
SCHAR:	0
SFF1:	0
LOGIPT:	0
SAVE16:	0
MRGDDB:	BLOCK	7
MRGOPT:	BLOCK	3
MRGIPT:	BLOCK	3
SAVEXX:	0
BLOCKS:	0
PTRLG:	0
LRET:	0
SQVE1:	0
PTRMRG:	0
MRET:	0
PTRLST:	0
LSTRET:	0
LSTBKS:	0
SQVE2:	0
SAVACS:	BLOCK	20
SEVPTR:	0
SIXPTR:	0
SIXBUF:	BLOCK	2
SIXCNT:	0
LOGTTY:	0
LSTTY:	0


COMBUF:	BLOCK	50
OPTION:	BLOCK	5
ASTRFL:TSW:HEADSW:	0
ZOP:	0
LISTB:	BLOCK	5
COMCNT:	0
OLDCNT:	0
	PPROGW:	0
PDL:	BLOCK	5
STATE.:	0
	SAVEPP:	0
NUMBUF:	BLOCK	3
NUMBF2:	BLOCK	3
	BYTE	(7)54,11,11,11,11
ID.:	0
USEDDB:USDDB:	BLOCK	7
BASDDB:BADDB:	BLOCK	7
USEIPT:	BLOCK	7
BASIPT:	BLOCK	7
SFMODE:	0
DIASW:	0
COMPOP:	0
SAVAC2:	BLOCK	20
MATQUO:	0
ID.CNT:	0
INCOPT:	0
CONFLA:	0
CAMOPT:	0
LSTOP:	0
LAST.:	0
PRTOPT:	BLOCK	1
PTRS.:	POINT	7,NUMBUF-1,35
	POINT	7,ID.-2,35
	POINT	7,CRLFBF-1,35
	POINT	7,@LBUFP2,35
	POINT	7,NUMBF2-1,35
CRLFBF:CRLF:	ASCIZ/
/
ATFLAG:	0
FED:	0
SAVFF:	0
BSPEC:	0
	0
	XWD	0,BASIPT
USPEC:	0
	0
	XWD	0,USEIPT
CMDSPC:	0
	0
	XWD	0,CMDIPT
LOGSPC:	0
	0
	XWD	LOGOPT,0
MRGSPC:	0
	0
	XWD	MRGOPT,MRGIPT
LINENO:LOGDDB:LOGOPT:LSTDDB:LSTIPT:LSTOPT:LSTSPC:MCDDB:MCIPT:MCSPEC:TEMP:UCDDB:UCIPT:UCIPTF:UCSPEC:BLOCK	20
	END;