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

*20
// PROGRAM TYPALLR
	 
/FOR USE WITH NEW RESPLUK (JUN 74)
/WHICH CALUCLATES RESPIRATORY RATE
/RATHER THAN INTERVAL.
	 
	 
/TYPES OUT DATA STORED IN FILES WITH 
/PROGRAMS EKGLUK & RESPLUK.
/USED FOR RETRIEVING DATA & FOR
/PUNCHING PAPER TAPES ON THE TTY.
	 
/REQUIRES A FILE TAPE WITH ONLY RESPLUK
/AND\OR EKGLUK DATA.
	 
/HALTS FOR DATA TYPES OTHER THAN
/45 (RESPLUK) AND 46 (EKGLUK).
/ (ABOVE IN DECIMAL)
	 
/PBLOCK ADDED, LODSYM NOT NEEDED.
	LMODE
	SEGMNT 5
	*20
BEG,	CLR
	AXO		/STD TAPE
	 
D1,	LIF 4
	MESOUT
	MTPAL		/PROG TYPALL
	 
D2,	LIF 4
	INUNITS		/ASK INPUT UNITS
	 
D3,	LIF 4
	INTRACT
	CJ3
	M3		/ALL FILES?:
CJ3,	T3
	J3
T3,	NO
	YES
	0
J3,	JMP BEG		/CR ?
	JMP D4		/NO (LIST)
	JMP D5		/YES (ALL)
	JMP D3		/NUM ?
	 
	 
/"NO" CASE; TAKE IN A LIST OF FILE NAMES.
D4,	LIF 4
	TABSET		/INTABL PARAMS
	 0		/TBL NUM
	 LDF 6		/DF
	 2000		/PNTR
	 1000		/ENTRIES
	 
	LIF 4
	INTABLE		/GET NAMES
	 0		/TBL NUM
	 
	LIF 4
	TABINI		/INITL TBL PNTR
	 0		/TBL NUM
	 
	JMP WRDSET	/SET STRG WRDS
	 
MRLIST,	LIF 4
	TABGET		/GET FILE
	 0		/TBL NUM
	 JMP TABDUN	/NO MORE NAMES
	 JMP .-4	/FILE NOT FOUND
	 
	LIF 4
	TABZER		/ZERO TBL ENTRY
	 0		/TBL NUM
	 
	JMP TYPOUT	/TYPE OUT VALUES
	 
	JMP MRLIST	/RECYCLE
	 
TABDUN,	LIF 4
	TABINI		/INITL TBL PNTR
	 0		/TBL NUM
	 
	LIF 4
	MISSNG		/CHK MISSING
	 0		/TBL NUM
	 JMP .+1	/YES
	 
ALLDUN,	LIF 4
	STOP
/END D4 (LIST).
	 
	 
	 
/"YES"; DO ALL FILES ON ASSIGNED UNITS CASE.
D5,	LIF 4
	DIRINI		/INITL CORE PNTR
	 
	JMP WRDSET	/SET STRG WRDS
	 
MRAL,	LIF 4
	MGETNAM		/GET NXT NAME
	 JMP ALLDUN	/NO MORE FILES
	 
	LIF 4
	MGETFIL		/GET ABOVE FILE
	 HLT		/ERROR, NOT FOUND
	 
	JMP TYPOUT	/TYPE OUT VALUES
	 
	JMP MRAL	/RECYCLE
	 
WRDSET,	LDF 4		/SET STRG WORDS
	LDA I
	7107
	STA
	WORD1		/PBLOCK
	LDA I
	6107
	STA
	WORD2		/NON-CRITICAL, UNUSED
	JMP 0		/LEAVE
/END D5 (ALL FILES).
	 
	 
	 
/ROUTINE TO DO TYPOUT OF ENTERED FILE.
TYPOUT,	SET 3
	0
	SETWRD
	0400
	LDF 7
	LDA		/? EKG, RESP
	P0		/DATA TYPE
	SAE I
	56		/EKGLUK
	SKP
	JMP EKG
	SAE I
	55		/RESP
	 HLT		/ERROR
	 
/GOT RESP DATA; FIRST SET FOR TYPOUT OF
/DATA TYPE, NUMBER, & NAME.
RESP,	SFLOAT
	P0		/DATA TYPE
	OUTPUT
	2\RSPTYP
	SFLOAT
	P20		/NUM SEG
	OUTPUT
	2\RSPNUM
	LDF 4
	STA
	FILNAM+2
	DFLOAT
	FILNAM+1
	LDA
	FILNAM
	LDF 7
	STA
	2\RSPNAM
	OUTPUT
	2\RSPNAM+1
/SET SETWRD CHANGE CNTRS & CHANGED SETWRDS.
	SET I 16	/SET1 CNTR
	-6
	SET I 17	/SET2 CNTR
	-12
	LDA I
	1045
	STC WRD1
	LDA I
	1042
	STC WRD2
/NOW SET INITIAL SETWRD & POINT TO 
/CORRECT TYPOUT BUFFER.
	SETWRD
	1043
	SET I 10	/VALUES WITH SD
	-10
	LDA I
	2\RSPBUF
	 
	JMP FILBUF	/PARTIAL STUFF
	 
/NOW COMPLETE STUFF OF RSPBUF WITH SINGLE
/VALUE NUMBERS.
	SET I 10
	-5		/NO SD CNTR
/OUTPUT RATE
	SETWRD
	1000
	LOAD
	4\7
	JMP INC113
	JMP SDO
/OUTPUT REST
	JMP SET1
	JMP .+5
BKSML,	LOAD
	4\7		/GET VALUE
	JMP INC113	/INC 11 X 3
	JMP SDO	
	XSK I 17	/2ND SETWRD?
	SKP
	JMP SET2	/YES
	LOAD		/INC 7X3 
	4\7		/AROUND BLANK SD
	XSK I 10	/DUN?
	JMP BKSML
	 
/TYPOUT BUF IN DF7 USING 6 PASSES
/THROUGH TYPOUT WHICH TYPES 74(8)
/HAFCHAR.
RSPOUT, LDA I
	2\RSPNAM-42
	STC TYPNTR
	SET I 4
	-6
BKTYP,	LDA
	TYPNTR
	ADD KP36
	STC TYPNTR
	OPR 11
	0004
	-74		/NUM HAFCHAR
	7
TYPNTR,	0
	JMP .-5
	 
	OPR 1
	0004
	.+3
	JMP .-3
	 
	OPR 5
	XSK I 4
	JMP BKTYP
	JMP 3		/LEAVE
	 
/GOT EKG DATA, SET UP FOR TYPOUT OF
/DATA TYPE, NUMBER AND NAME.
EKG,	SFLOAT
	P0		/DATA TYPE
	OUTPUT
	2\EKGTYP
	SFLOAT
	P20		/NUM SEG
	OUTPUT
	2\EKGNUM
	LDF 4
	STA
	FILNAM+2
	DFLOAT
	FILNAM+1
	LDA
	FILNAM
	LDF 7
	STA
	2\EKGNAM
	OUTPUT
	2\EKGNAM+1
/SET SETWRD CHANGE CNTRS AND CHANGED SETWRDS.
	SET I 16	/SET1 CNTR
	-13
	SET I 17	/SET2 CNTR
	-100
	LDA I
	1042
	STC WRD1
	SETWRD
	1044
	LDF 7
	LDA
	P17
	COM
	STC 10		/CNTR
	LDA I
	2\EKGBUF
	 
	JMP FILBUF	/STUFF EKGBUF
	 
/TYPOUT BUF IN DF7 USING 10(8) PASSES
/THROUGH TYPOUT WHICH TYPES 102 HAFCHAR
EKGOUT,	SET I 4
	-10
	LDA I
	2\EKGNAM-46
	STC PNTR
BTYP,	LDA I
	41
	ADM
	PNTR
	 
	OPR 11
	0004
	-102
	7
PNTR,	0
	JMP .-5
	 
	OPR 1
	0004
	.+3
	JMP .-3
	 
	OPR 5
	XSK I 4
	JMP BTYP
	JMP 3		/LEAVE
	 
/ROUTINE TO SET UP TYPOUT BUFFERS.
FILBUF,	SET 13
	0
	STC BUFPTR
	LDF 7
	SET I 7
	P104		/TAKE PTR, DF7
	SET I 11
BUFPTR,	0		/PUT PNTR, DF7
	 
MROUT,	LOAD
	4\7		/MEAN
	JMP MEANO
	LOAD
	4\7		/VARIANCE
	SQRT
	FAC		/GET S.D.
	JMP SDO
	 
/CHK FOR UP TO TWO SETWRD CHANGES.
	XSK I 16	/IST
	SKP		/NO
	JMP SET1
	XSK I 17	/2ND
	SKP		/NO
	JMP SET2
	 
	XSK I 10	/DUN ALL VALUES?
	JMP MROUT	/NO
	JMP 13		/YES, LEAVE
	 
	 
/ROUTINE TO OUTPUT MEAN IN DF7 TYPOUT BFR.
MEANO,	SET 14
	0
	JMP INC113	/BUMP 11 X3
	OUTPUT
	11
	JMP INC113	/INC 11 X 6
	JMP INC113
	JMP 14		/LEAVE
	 
INC113,	LDA I 11
	LDA I 11
	LDA I 11
	JMP 0
	 
/ROUTINE TO OUTPUT STD DEVIATION IN DF7
/TYPOUT BUFFER.
SDO,	SET 14
	0
	OUTPUT
	11
	JMP INC113	/INC 11 X 5
	JMP INC113+1
	JMP 14		/LEAVE
	 
	 
/ROUTINES TO CHANGE SETWRDS.
SET1,	SETWRD
WRD1,	0
	JMP 0
	 
SET2,	SETWRD
WRD2,	0
	JMP 0
/END FILBUF.
	 
/CONSTANTS.
KP36,	36
	 
/MESSAGES.
M3,	TEXT %ALL FILES?: %
MTPAL,	TEXT %PROG TYPALL %
	4543
AAEND5,	0
//END DF5 ROUTINES.
	 
	 
//DF7 BUFFERS FOLLOW.
/TYPOUT BUFFERS FOLLOW.
	SEGMNT 7
	*0
	4543
	4543
	4543
	4543
RSPNAM,	0
	0
	0
	4543
	2431		/TY
	2005		/PE
RSPTYP,	0
	0
	4543
RSPBUF,	4024		/ T
	2617		/VO
	1475		/L=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	4015		/ M
	1106		/IF
	2275		/R=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	4015		/ M
	0506		/EF
	2275		/R=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	4015		/ M
	2420		/TP
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	4003		/ C
	1715		/OM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	4024		/ T
	0515		/EM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	4027		/ W
	1722		/OR
	1375		/K=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	4022		/ R
	0523		/ES
	4075		/ =
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	4022		/ R
	0124		/AT
	0575		/E=
	4040
	4040
	4040
	4040
	4543
	4020		/ P
	1727		/OW
	2275		/R=
	4040
	4040
	4040
	4040
	4543
	4015		/ M
	2617		/VO
	1475		/L=
	4040
	4040
	4040
	4040
	4543
	4006		/ F
	2203		/RC
	4075		/ =
	4040
	4040
	4040
	4040
	4543
	4015		/ M
	1704		/OD
	4075		/ =
	4040
	4040
	4040
	4040
	4543
	4040
	4040
	1675		/N=
RSPNUM,	4040
	4040
	4040
	4040
	4040
	4040
	4040
	4040
	4543
	4543
	4543
	4543
	4543
/END OF RESP BUF.
	 
/EKG BUF FOLLOWS.
EKGNAM,	0
	0
	0
	4543
	2431		/TY
	2005		/PE
	4040
EKGTYP,	0
	0
	4543
EKGBUF,	2061		/P1
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2062		/P2
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2161		/Q1
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2162		/Q2
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2261		/R1
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2262		/R2
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2361		/S1
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2362		/S2
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2461		/T1
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2462		/T2
	0115		/AM
	2075		/P=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2605		/VE
	0324		/CT
	2275		/R=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	0130		/AX
	1123		/IS
	4075		/ =
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2061		/P1
	0425		/DU
	2275		/R=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2022		/PR
	0425		/DU
	2275		/R=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2123		/QS
	0425		/DU
	2275		/R=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	2124		/QT
	0425		/DU
	2275		/R=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	1624		/NT
	2226		/RV
	1475		/L=
	4040
	4040
	4040
	4040
	4040
	5340		/+
	4040
	4040
	4040
	4040
	4543
	4040
	4040
	1675		/N=
EKGNUM,	4040
	4040
	4040
	4040
	4040
	4543
	4543
	4543
/END OF EKG TYPOUT BUF.
AAEND7,	0
//END DF7 BUFFERS.
	 
	 
/PBLOCK FOLLOWS
	NOLIST
//PBLOCK
/PARAMETER BLOCK ASSIGNMENTS
/
	P0=3400		/DATA TYPE
	P17=3417	/NO.SAMP IN SEG
	P20=3420	/NO.SEG IN ENSM
	P23=3423	/BASELINE PNTS
/FLOATING POINT VARIABLES
/
/
	P42=3442	/MULT FACTOR
	P43=3445	/UV PER VOLT
	P44=3450	/SEG. LENGTH
	P46=3456	/BASELINE DELAY
/
/FROM NOW ON DESCRIPTION IS FOUND OVER
/THE DEFINED VARIABLE.
/
/AX,A1,A1CNT
	P104=3610
/COMMAND DECODER ASSIGNMENTS
/
/
	STOP=JMP 20
	SCAN=JMP 21
	STRSCN=JMP 21
	INUNIT=JMP 22
	STORIT=JMP 23
	GETFIL=JMP 24
	GETFST=JMP 24
	GETNAM=JMP 25
	GETNXT=JMP 25
	DIRINI=JMP 26
	DIRLST=JMP 27
	ASSIGN=JMP 30
	DEASS=JMP 31
	OUTUNIT=JMP 32
	LODBLK=JMP 33
	RUNBLK=JMP 34
	FIND=JMP 35
	CALL=JMP 37
	UNCALL=JMP 40
	RUNPRG=JMP 41
	INTRACT=JMP 42
	MESOUT=JMP 43
	DISK=JMP 44
	TABSET=JMP 45
	INTABLE=JMP 46
	MISSNG=JMP 47
	TABGET=JMP 50
	TABPUT=JMP 51
	TABZER=JMP 52
	MAKDIL=JMP 53
	TABINI=JMP 54
	MGETNAM=JMP 55
	MGETFIL=JMP 56
	MSTORIT=JMP 57
/
/COMMAND LOCATIONS.
/
	FILNAM=2320
	WORD1=2323
	WORD2=2324
	INBUF=2325
/COMMAND NUMBERS.
	YES=17
	NO=20
	GO=23
/
/EXEC3 ASSIGNMENTS
/
	OPR=500
	IOF=6002
	ION=6001
	EXC=1710
	REXC=540
	RLSW=514
	RRSW=515
/FLOATING POINT DEFINITIONS.
/
	FAC=0
	STARTE=740
	FSUB=741
	FMUL=742
	FDIV=743
	LOAD=744
	STORE=745
	SETWRD=746
	INPUT=747
	OUTPUT=750
	ISTOR1=751
	SQRT=752
	DFLOAT=753
	SFLOAT=754
	FIX=755
	FADD=756
	ISTOR2=757
	STARTF=760
	FCOMP=761
	FZER=762
	FAPO=763
	FAZE=764
	RECIP=765
	LIST
/END PBLOCK.
	 
//END TYPALLR
/JUN 74
/FHD, JLC (JLB)