File HOLD.AL

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


        SECT    SUBR
        JA      #ST
#XR,    ORG     .+10
	TEXT    +SUBR  +
#RET,   SETX    #XR
        SETB    #BASE
        JA      .+3
#BASE,  ORG     .+6
J,      ORG     .+3
        ORG     #BASE+30
        FNOP
        JA      #RET
        FNOP
#GOBAK, 0;0
#ARGS,  ORG     .+3
#TMP,   ORG     .+0011
#LIT,   0001
        2000
        0000
        0002
        3000
        0000
        0003
        3000
        0000
        #LBL=.
        ORG     #LBL
#RTN,   BASE    #BASE
        JA      #GOBAK
#ST,    STARTD
        0210
        FSTA    #GOBAK,0
        0200
        SETX    #XR
        SETB    #BASE
	TRAP3  AD1	/ADD 1 TO AC 8-MODE ROUTINE
        LDX     0,1
        FSTA    #BASE
        FSTA    #ARGS
        FLDA%   #BASE,1+
        FSTA    J
        STARTF
        LDX     0002,0
        LDX     0003,0
        EXTERN  #NE
        JA      #RTN
        LDX     0004,0
        EXTERN  #NE
        JA      #RTN
	ORG	.+34
AD1,	0
	NOP
	CLA CLL
	TAD	ADDA
	RTL
	RAL
	TAD	KCDF
	DCA	.+1
	0
	CLA CLL
	TAD	ADDA+1
	DCA	JPTR
	TAD%	JPTR
	IAC
	DCA%	JPTR
GETBAK,	CDF CIF 00
	JMP%	RETURN+1
	EXTERN	#RETRN
RETURN,	ADDR	#RETRN
ADDA,	ADDR	J
JPTR,	0
KCDF,	CDF



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