/8K FOCAL-8 (FAMILY OF 8)
/DEC-08-LF8KA-A-LA

/OCTOBER 1971			RM/SM

/COPYRIGHT 1971 DIGITAL EQUIPMENT CORPORATION
/	MAYNARD, MASSACHUSETTS 01754

/EXTENDED MEMORY OVERLAY FOR FOCAL-8
/CAUSES USER TEXT TO BE STORED IN
/FIELD 1 AND VARIABLES IN FIELD 0

/ASSEMBLY INSTRUCTIONS:
/.R PAL8 OR .R PAL10
/*8K,8K_8K,FOCAL8,FLOAT

/ASSEMBLY WITH PAL8 MAY YIELD UO ERRORS ON PASS 1
/THESE MAY BE IGNORED




CDF=6201

T=10

P=0

FIELD 0


LINE0=100
*PC
	0
*LASTV
	COMEIN
*BUFR
	LINE1
*COMBUF
	10
*CFRS
	LINE0	/START OF TEXT
*ENDT
	LINE1
*167
DPC,	ROT+5	/PC
DTHIS,	THISD	/THISLN
DPT1,	PT1D	/PT1
DXRT,	XRTD	/(TAD I XRT)
DAXIN,	AXIND	/(DCA I AXIN)
DAXOUT,	AXOUTD	/(TAD I AXOUT)
*START+2
	NOP

*COMBOT
	LINE0

*SRETN-4
	JMS I DAXIN	/(DCA I AXIN)

*INPUTX+2
	JMS I DPC	/TAD I PC
*DGRP1-3
        JMS I DXRT	     /TAD I XRT IN OTHER D.F.

*DGRP1+4
        JMS I DPC	/PC

*.+7
       JMS I DPT1	/TAD I PT1 IN OTHER DATA FLD.

*DOONE-3
	JMS I DPT1

*WALL-3
	JMS I DPT1	/TAD I PT1

*WALL
	JMS I DPT1
*XDYS+4
	JMS I DTHIS	/TAD I THISLN
*SCONT-3
	JMS I DAXIN	/(DCA I AXIN)
*GS1+1
	TAD END
*RETRN
	NOP
*DOK-4
	CDF T
*ERV-1
	CDF T
	DCA I CFRS	/LEAVE THE VARIABLES ALONE
	CDF P
*ERG+4
	JMS I DTHIS	/TAD I THISLN
	TSTGRP
	JMP START
	JMS I DTHIS

*ERVX
	TAD END
*GET3
	JMS I DAXOUT	/(AXOUT)
*FINDN+5
	JMS I DXRT
*FEND3-5
	JMS I DTHIS
*XENDLN+1
	CDF T
*XENDLN+14
	CDF P
	JMP I XENDLN
*PACX
	CDF P

*PCK1+4
	JMS I DAXIN
	DCA ADD		/CLEAR
	CLL
	TAD C200
	IAC

*ROT+5
	0000	/PC
	CDF T
	TAD I PC
	CDF P
	JMP I ROT+5
*2572
AXOUTD,	0000
	CDF T
	TAD I AXOUT
	CDF P
	JMP I AXOUTD

*RECOVR+10
	CDF

*RECOVX+6
	JMS I DPC

*RUB3-10
	CDF T

*TDUMP
	TAD END

*TDUMP+10
	JMP I OP+1

*OP
	0003
	TDUMPX




*6160	/UNDER "OUTDG"

THISD, 0000
	CDF T
	TAD I THISLN
	CDF P
	JMP I THISD


PT1D,	0000
	CDF T
	TAD I PT1
	CDF P
	JMP I PT1D


*PRNT8-2	/PATCH TO LIBRARY COMMAND
	CIF T		/TO SAVE C(BUFR)
	JMP I DLIB

*7557	/UNDER "LIBRARY"

DLIB,	DLIB8	/LINK FOR 8K L-COMMAND

XRTD,	0000
	CDF T
	TAD I XRT
	CDF P
	JMP I XRTD


AXIND,	0000
	CDF T
	DCA I AXIN
	CDF P
	JMP I AXIND

TDUMPX,	CDF T
	DCA I .+3
	CDF P
	JMP I .+2
	0004
	TDUMP+11



FIELD 1

*0000
	0	/ZERO PC
	0
	0	/TDUMP DATA
	0
	0
	5051
	BUFR
	LINE1
/10-77 : COMMAND INPUT BUFFER

*LINE0	/START OF TEXT
	0
	0
TEXT @C 8K FOCAL-8  @;*.-1
	4040
	7715

ST8K,	CDF P	/START 8K USER FILE AT THIS ADDRESS
	TAD 7
	DCA I 6
	CIF P
	JMP I RLIB
DLIB8,	IOF
	TAD I 6
	DCA 7
	CDF P
	TAD I RLIB+1
	DCA RLIB
	CIF P
	JMP I RLIB
RLIB,	7600	/RETURN TO DISK MONITOR.
	XADC+6


LINE1=.




FIELD 0
*0000
	0

NOPUNCH
XLIST

PAUSE