File WRTRED.PA (PAL assembler source file)

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

FIELD 0
*6600


/S.R. UM AUF BAND ODER PLATTE ABZUSPEICHERN
/S.R. STEHT IN FIELD 0, BENOETIGT PLATZ FUER DEV.HAN.
/IN FIELD 0 VON 7200-7577,SOFERN NICHT DER SYSTEM-
/DEV.HAN. VERWENDET WIRD.

/ANRUF VON FIELD 1 AUS. S.R. BESTEHT AUS EINER
/INITIALISIERUNGSROUTINE UND EINER ARBEITSROUTINE

/CDF 10		/ARG. IN FELD 10
/CIF 0
/JMS WTRDNT	/INITIALISIERUNGSROUTINE
/ADR. DES FUNC.CONTR.WORDS FUER DEN DEV.HAN.
/ADR. DER CORADRESSE
/ADR. DER ANZ. DER SPEICHERUNGEN
/ADR. DES FILENAMENS
/ADR. DES DEVICENAMENS

/CDF 10
/CIF 0
/JMS WRTRED	/ARBEITSROUTINE



CORAD,	0
DHFUN,	0
STORNR,	0
FLNAMA,	FLNAME
CDFIN,	CDF 0

WTRDNT,	0
	CLA
	TAD I WTRDNT
	DCA TEMW
	TAD I TEMW
	DCA DHFUN
	ISZ WTRDNT	/D.H.FUNC.CONTR.WORD

	TAD I WTRDNT
	DCA TEMW
	TAD I TEMW
	DCA CORAD	/COREADRESSE
	ISZ WTRDNT

	TAD I WTRDNT
	DCA TEMW
	TAD I TEMW
	DCA STORNR	/NUMBER OF STORAGES
	ISZ WTRDNT

	TAD I WTRDNT
	DCA TEMU
	SWAB
	TAD FLNAMA
	DCA TEMV
	CLA CLL CMA RTL
	DCA TEMW
	CAM DAD
TEMU,	0
	CDF 0
	DST
TEMV,	0
WDATF,	CDF 10
	ISZ TEMU
	ISZ TEMU
	ISZ TEMV
	ISZ TEMV
	ISZ TEMW
	JMP TEMU-1	/UEBERTRAGEN DES FILENAMENS IN DIESES FELD
	ISZ WTRDNT

	CLA
	TAD I WTRDNT
	DCA TEMW
	CAM DAD
TEMW,	0
	CDF 0
	DST
	DVNAME		/UEBERTRAGEN DES DEVICENAMENS IN DIESES FELD
	ISZ WTRDNT
	CAM DAD
	DVNAME
	DST
	FETCH1
	DPSZ		/DEVICE VERWENDEN ?
	SKP		/JA
	JMP WRETF	/NEIN


	JMS SETRST	/USR ARGUMENT INIT.

	CIF 10
	JMS I (7700	/USRIN
	10

	CLA
	CIF 10
	JMS I (200
	1		/FETCH DEV.HAN.
FETCH1,	0424
FETCH2,	0161		/DEV.NAME	/DEV.NUMBER
FETCH3,	7201		/PAGE LOCATION	/ENTRY POINT OF DEV.HAN.
	JMS I TYDI


	TAD FETCH2
	DCA DEVNUM
	TAD FETCH3
	DCA I DHENTI
	TAD DHFUN
	SPA CLA		/KERNSPEICHER LADEN ODER AUSLESEN?
	JMP AUSLES	/AUSLESEN
			/LADEN
LADEN,	TAD DEVNUM
	CIF 10
	JMS I (200	/LOOKUP
	2
LOKUP1,	FLNAME		/FILE STARTING BLOCK
LOKUP2,	0		/-FILELENGTH
	JMS I TYDI

	TAD LOKUP1
	DCA I STRTBI
	TAD LOKUP2
	DCA FILCNT
	JMP GETOF



AUSLES,	TAD DEVNUM
	CIF 10
	JMS I (200	/ENTER
	3
ENTER1,	FLNAME		/FILE STARTING BLOCK
ENTER2,	0		/-FILELENGTH
	JMS I TYDI


TAD ENTER1 DCA I STRTBI TAD ENTER2 TAD FILENG /PRUEFEN, OB GENUG PLATZ SMA SZA CLA JMS I TYDI /NEIN TAD FILENG /JA CIA DCA FILCNT TAD DEVNUM CIF 10 JMS I (200 /CLOSE 4 CLOSE1, FLNAME CLOSE2, 0 JMS I TYDI GETOF, CIF 10 JMS I (200 11 /USROUT WRETF, CIF CDF 10 JMP I WTRDNT FILCNT, 0 DEVNUM, 0 TYDI, TYD STRTBI, STRTBK DHENTI, DHENT FILENG, 0 PAGE DVNAME, 0;0 FLNAME, 0;0;0;0 SETRST, 0 CLA TAD (7201 DCA FETCH3 TAD DHFUN DCA DHFUNC TAD CORAD DCA CORADR TAD FLNAMA DCA LOKUP1 TAD FLNAMA DCA ENTER1 TAD FLNAMA DCA CLOSE1 TAD DHFUNC AND (3700 BSW CLL RAR /ANZ. DER OS8 BLOECKE MQL MUY STORNR SZA TYDER /ZU GROSSE FILELAENGE ACL DCA FILENG TAD FILENG DCA CLOSE2 JMP I SETRST WRTRED, 0 CDF 0 SWAB CAM DAD DVNAME DPSZ /DEVICE VERWENDET ? SKP CLA /JA JMP RF /NEIN TAD FILCNT IAC SMA SZA TYDER /VORBERECHNETE FILELAENGE ZU ENDE DCA FILCNT CIF 0 JMS I DHENT DHFUNC, 0 CORADR, 0 STRTBK, 0 TYDER TAD DHFUNC AND (3700 BSW CLL RAR TAD STRTBK DCA STRTBK RF, CDF CIF 10 JMP I WRTRED DHENT, 0 TYD, 0 CIF 10 JMS I (200 11 /USROUT TYDER



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