File 8KE.

Directory of image this file is from
This file as a plain text file

/8K FOCAL-8 (PDP-8/E)
/DEC-8E-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 *WTEST2-1 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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search