File TEIL4.

Directory of image this file is from
This file as a plain text file
TAPENT,	0
	CLA
	SWAB
	TAD SHFTNR
	DCA .+3
	CLL CLA IAC
	SHL
	0
	CLL IAC
	MQL
	MUY
	SIMNUM
	ACL
	DCA DATEIL

	CIF 20
	JMS WTRDNT
	CONTRL
	CORADD
	DATEIL
	STONAM
	DEVNAM

	JMP I TAPENT



LISTA,	222;224;227;231;6146;6150
LISTTY,	6031;6036;6041;6046
LISTDW,	6401;6406;6411;6416

TPONDW,	0
	6402
	6416
	TAD LISTDW
	DCA I LISTA
	TAD LISTDW+1
	DCA I LISTA+1
	TAD LISTDW+2
	DCA I LISTA+2
	TAD LISTDW+3
	DCA I LISTA+3
	CDF 20
	TAD LISTDW+2
	DCA I LISTA+4
	TAD LISTDW+3
	DCA I LISTA+5
	CDF 10
	JMP I TPONDW
TPONTY,	0
	6032
	6046
	TAD LISTTY
	DCA I LISTA
	TAD LISTTY+1
	DCA I LISTA+1
	TAD LISTTY+2
	DCA I LISTA+2
	TAD LISTTY+3
	DCA I LISTA+3
	CDF 20
	TAD LISTTY+2
	DCA I LISTA+4
	TAD LISTTY+3
	DCA I LISTA+5
	CDF 10
	JMP I TPONTY
PAGE

TITEL,	0
	LINE
	LINE
	TDC
	4316;275

	CIF 20
	JMS FFOUT
	N3
	5
	0

	TDC
	4240;4240;4240;4313;275

	CIF 20
	JMS FFOUT
	K3
	5
	0

	TDC
	4240;4240;4240
	4302;275

	CIF 20
	JMS FFOUT
	B3
	5
	0


	TDC
	4240;4240;4240;4302;4311;4324;4306;4305;4310;4314;4305;322
	TDC
	4322;4301;4324;4305;275

	CIF 20
	JMS EFOUT
	ERORN3

	LINE
	LINE
	JMS UEBER

	JMP I TITEL

PAGE

UEBER,	0
	NOP
	NOP
	4302
	4314
	4317
	4303
	4313
	4323
	240
	TDC
	4302;4311;4324;4305;4322;4322;4317;4322;4323;240
	TDC
	4322;4305;4303;4305;4311;4326;4305;4304;255
	TDC
	4302;4311;4324;255
	TDC
	4305;4322;4322;4317;4322;4323;240
	TDC
	4322;4305;4303;4305;4311;4326;4305;4304;255
	TDC
	4302;4314;4317;4303;4313;255
	TDC
	4305;4322;4322;4317;4322;4323;240
	TDC
	4000+"C
	4000+"O
	4000+"R
	4000+"R
	4000+"E
	4000+"C
	4000+"T
	4240
	4000+"F
	4000+"A
	4000+"L
	4000+"S
	4000+"E
	240
	LINE
	JMP I UEBER
PAGE

	
/JMS GETKEP	/GET AND KEEP
/ADR. VON X	/X IN FELD 10, SONST. ARG. IN FELD 20
/ADR. DER SUMME ALLER X
/ADR. DER SUMME ALLER X^2	/SUMMEN IN FL.POINT.DARST.

GETKEP,	0
	CLA
	TAD I GETKEP
	DCA GET1
	ISZ GETKEP
	TAD I GETKEP
	DCA GET2
	ISZ GETKEP
	TAD I GETKEP
	DCA GET3
	ISZ GETKEP

	TAD GET2
	DCA GET2A
	TAD GET3
	DCA GET3A

	INBLIP
	BLOTNT
	GTKPNT

GTKPON,	CIF 20
	JMS NORMD
GET1,	0
	X3
	CIF 20
	JMS SRMUY
	X3
	X3
	XQ3

	CIF 20
	JMS SUMM
	X3
GET2,	0
GET2A,	0
	CIF 20
	JMS SUMM
	XQ3
GET3,	0
GET3A,	0

	JMP I GETKEP

GTKPNT,	TAD ZERODA
	DCA GET1
	TAD ZERO3A
	DCA GET2
	TAD ZERO3A
	DCA GET3
	JMP GTKPON

ZERODA,	NZERO
ZERO3A,	ZERO3
CALCUL,	0

	INBLIP
	BLOTNT
	CALNT

	CIF 20
	JMS NORMD
	BLOCKL
	BLCKL3

	CIF 20
	JMS NORMD		/KANALFEHLER
	ERSUMA
	ERSMA3



	CIF 20
	JMS DIVIDR
	ERSMA3
	BLCKL3
	FRACA3

	CIF 20
	JMS NORMD		/BLOCKFEHLER
	ERSUMB
	ERSMB3


	CIF 20
	JMS DIVIDR
	ERSMB3
	BLCKL3
	FRACB3

	CIF 20
	JMS NORMD		/CORRECT FLAGS
	CORFGS
	FRACC3

	CIF 20
	JMS NORMD		/FALSE FLAGS
	FLSFGS
	LFSDS3



	JMP I CALCUL




CALNT,	CIF 20
	JMS NORMD
	MAXAD1
	N3

	CIF 20
	JMS NORMD
	MAXAD2
	K3

	CIF 20
	JMS NORMD
	MAXAD4
	B3

	CIF 20
	JMS NORMD
	ERRORV
	ERORN3

	CIF 20
	JMS DIVIDR
	ERORN3
	ZWOH31
	ERORN3

	JMP I CALCUL


PAGE

DOTYP,	0

	INBLIP
	BLOTNT
	TYPNT

	TDC
	240

	CIF 20
	JMS FFOUT
	BLCKL3
	10
	0

	TDC
	240

	CIF 20
	JMS FFOUT
	ERSMA3
	10
	0


	CIF 20
	JMS FFOUT
	ERSMB3
	10
	0

	TDC
	240
	
	CIF 20
	JMS EFOUT
	FRACA3


	CIF 20
	JMS FFOUT
	ERSMB3
	10
	0

	TDC
	240

	CIF 20
	JMS EFOUT
	FRACB3
	
	CIF 20
	JMS FFOUT
	FRACC3
	10
	0

	CIF 20
	JMS FFOUT
	FLSDS3
	10
	0

	LINE
	JMS TABEL
	JMP I DOTYP

TYPNT,	JMS TITEL
	JMP I DOTYP

TABEL,	0
	CLA CLL
	TAD FLGTFA
	DCA TABP
	TAD M16
	DCA TABC

TABLP,	CDF 20
	TAD I TABP
	CDF 10
	TOCT
	ISZ TABP
	ISZ TABC
	JMP TABLP

	JMP I TABEL

TABC,	0
M16,	-16
TABP,	0
XLIST

ENTF=JMS I 7

FIELD 2

*70

N3,	0;0;0
K3,	0;0;0
B3,	0;0;0
X3,	0;0;0
XQ3,	0;0;0
ZERO3,	0;0;0
ZWOH31,	30;3777;7777
BLCKL3,	0;0;0
ERSMA3,	0;0;0
ERSMB3,	0;0;0
FRACA3,	0;0;0
FRACB3,	0;0;0
FRACC3,	0;0;0
ERORN3,	0;0;0
FLSDS3,	0;0;0


FIELD 0

*4200

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

/ANRUF VON FIELD 0,1 ODER 2 AUS. S.R. BESTEHT AUS EINER
/INITIALISIERUNGSROUTINE UND EINER ARBEITSROUTINE

/CDF N		/ARG. IN FELD N
/CIF 20
/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 N
/CIF 20
/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

	RDF
	TAD CDFIN
	DCA WDATF	/CALCUL. DATAFIELD
	CLA CLL IAC RAL
	TAD WDATF
	DCA WRETF	/CALCUL. RETURNFIELD

	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
	FETCH1	/UEBERTRAGEN DES DEVICENAMENS IN DIESES FELD
	ISZ WTRDNT
		/DEVICE VERWENDEN?
	SNA CLA	/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

FLNAME,	0;0;0;0
SETRST,	0
        CLA
	TAD WRETF
	DCA RF
        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
        JMP TYDR 	/ZU GROSSE FILELAENGE
        ACL
        DCA FILENG
        TAD FILENG
        DCA CLOSE2
	JMP I SETRST



DEVNMI,	DEVNAM+1

WRTRED,	0
	CLA
	TAD I DEVNMI
	CDF 0		/DEV. VERWENDET?
	SNA CLA		/JA
	JMP RF		/NEIN

	TAD FILCNT
	IAC
	SMA SZA
	JMS TYDR
	DCA FILCNT
	CIF 0

	JMS I DHENT
DHFUNC,	0
CORADR,	0
STRTBK,	0
	JMS TYDR

	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
	CLA
	TAD TYD
	JMP .+3
TYDR,	0
	TAD TYDR
	MQL
	CDF CIF 0
	JMS I .+1
	544		/JMP TO TYDER


FIELD 2

*4511


/CIF 20
/JMS FFOUT      /F-FORMATAUSGABE
/ERG.ADR.       /ERG. IN FELD 20
/ANZ. ALLER STELLEN
/ANZ. DER STELLEN NACH DEM KOMMA

EFZ1,
FFOUT,  0
        CLA IAC
        DCA 56
        DCA 55
        TAD I FFOUT
        DCA FFZ1
        ISZ FFOUT
        TAD I FFOUT
        DCA 57
        ISZ FFOUT
        TAD I FFOUT
        DCA 60
        ISZ FFOUT

        CDF 20

        ENTF
        FGET I FFZ1
        FOUT
        FEXT

        CIF CDF 10
        JMP I FFOUT



/CIF 20
/JMS EFOUT
/ARG.   /ERGEBNISAUSGABE IN EFORMAT

FFZ1,
EFOUT,  0
        CLA
        TAD I EFOUT
        DCA EFZ1
        ISZ EFOUT

        CDF 20
        DCA 55
        DCA 56

        ENTF
        FGET I EFZ1
        FOUT
        FEXT

        CDF CIF 10
        JMP I EFOUT

PAGE

/CIF 20
/JMS SRMUY	/MULTIPLIKATION,ALLE ARG. IN FELD 20
/FAKTOR1
/FAKTOR2
/PRODUKT

SUZ1,
SRMUY,	0
	CLA
	TAD I SRMUY
	DCA DIVZ1
	ISZ SRMUY
	TAD I SRMUY
	DCA DIVZ2
	ISZ SRMUY
	TAD I SRMUY
	DCA DIVZ3
	ISZ SRMUY

	CDF 20

	ENTF
	FGET I DIVZ1
	FMPY I DIVZ2
	FPUT I DIVZ3
	FEXT

	CIF CDF 10
	JMP I SRMUY

/CIF 20
/JMS DIVIDR	/DIVISION, ALLE ARGUMENTE IN FELD 20
/DIVIDENT
/DIVISOR
/ERGEBNIS	


SUZ2,
DIVIDR,	0
	CLA
	TAD I DIVIDR
	DCA DIVZ1
	ISZ DIVIDR
	TAD I DIVIDR
	DCA DIVZ2
	ISZ DIVIDR
	TAD I DIVIDR
	DCA DIVZ3
	ISZ DIVIDR

	CDF 20

	ENTF
	FGET I DIVZ1
	FDIV I DIVZ2
	FPUT I DIVZ3
	FEXT

	CIF CDF 10
	JMP I DIVIDR

/CIF 20
/JMS SUMM	ALLE ARG. IN FELD 20
/SUMMAND1
/SUMMAND2
/SUMME

DIVZ2,
SUMM,	0
	CLA
	TAD I SUMM
	DCA SUZ1
	ISZ SUMM
	TAD I SUMM
	DCA SUZ2
	ISZ SUMM
	TAD I SUMM
	DCA SUZ3
	ISZ SUMM

	CDF 20

	ENTF
	FGET I SUZ1
	FADD I SUZ2
	FPUT I SUZ3
	FEXT

	CIF CDF 10
	JMP I SUMM


/CIF 20
/JMS DIFF	/DIFFERENZ
/SUMMAND1
/SUMMAND2
/DIFFERENZ

DIVZ3,
NRMDZ2,
DIFF,	0
	CLA
	TAD I DIFF
	DCA SUZ1
	ISZ DIFF
	TAD I DIFF
	DCA SUZ2
	ISZ DIFF
	TAD I DIFF
	DCA SUZ3
	ISZ DIFF

	CDF 20

	ENTF
	FGET I SUZ1
	FSUB I SUZ2
	FPUT I SUZ3
	FEXT

	CDF CIF 10
	JMP I DIFF


/CIF 20
/JMS NORMD	/UMWANDLUNG: DOUBLE PREC. IN FLOAT. POINT
/ARG1	/DOPPELTGENAU IN FELD 10
/ARG2	/FP.DARST. IN FELD 20

NRP23,	27

DIVZ1,
SUZ3,
NORMD,	0
	SWAB
	CLA
	TAD I NORMD
	DCA NRMDZ1
	ISZ NORMD
	TAD I NORMD
	DCA NRMDZ2
	ISZ NORMD

	CAM DAD
NRMDZ1,	0
	CDF 20
	SWP
	DST
	45
	CLA
	TAD NRP23
	DCA 44

	ENTF
	FNOR
	FPUT I NRMDZ2
	FEXT

	CIF CDF 10
	JMP I NORMD


/CIF 20
/JMS FUNCSR	/X,Y IN FELD 20
/FUNCTION
/X ADR.
/Y ADR.

FUNCSR,	0
	CLA
	TAD I FUNCSR
	DCA FUNC
	ISZ FUNCSR
	TAD I FUNCSR
	DCA NRMDZ1
	ISZ FUNCSR
	TAD I FUNCSR
	DCA NRMDZ2
	ISZ FUNCSR

	CDF 20

	ENTF
	FGET I NRMDZ1
FUNC,	0
	FPUT I NRMDZ2
	FEXT

	CIF CDF 10
	JMP I FUNCSR

XLIST
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