File PEN.FT (FORTRAN source file)

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

	SUBROUTINE PEN(ID,IN)
C HILSPROGRAMM FUER XY-SCHREIBER
C Z-FUNKTION : REGISTER 6 / BIT 4
C	ID=0 : SCHREIBSTIFT ABHEBEN
C	ID=1 : SCHREIBSTIFT IN SCHREIBSTELLUNG
C FORTRAN II
C SR : AUS.FT / IBIT.SB
	IF(ID)1000,1000,1002
1000	CALL ZBIT(IN,4)
1001	CALL AUS(1,6,IN)
S	JMS MS50
	RETURN
1002	CALL SETB(IN,4)
	GOTO 1001
SMS50,	0	/ CA 50 [MS] VERZOEGERUNG
S	CLA
S	TAD (K0000
S	DCA CT
SDEL,	NOP
S	ISZ CT
S	JMP DEL
S	JMP I MS50
SCT,	0
	END

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