Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/tfrcob.c17
There are 3 other files named tfrcob.c17 in the archive. Click here to see a list.
 INS 5/2	;17C1
	;RLF	17-Jul-87	[270] Correction to edit 241
	;RLF	08-Jul-87	[267] Correction to edit 255
	;RLF	16-Jun-87	[266] Correction to edit 260
	;KWS	10-Jun-87	[265] Fix PF3 key so it refreshes the
	;				screen properly
	;RLF	19-May-87	[264] Turn off DSA so it won't get the
	;				wrong date at midnight
	;RLF	12-May-87	[262] PF1 hangs terminal if last field of
	;				previous line is protected
 REP 26/34	;17C2
	STRPRM:	PUSH	P,E			;[241] SAVE REG E FOR USE
 WIT
	STRPRM:					;[270] CANCEL EDIT 241
 REP 33/34	;17C3
		POP	P,E			;[241] RESTORE REG E
 WIT
						;[270] CANCEL EDIT 241
 REP 59/45	;17C4
		SKIPL	MLTFLG			;IF NOT FIRST IN LINE
 WIT
		SKIPLE	MLTFLG			;[266] IF NOT FIRST IN LINE
 REP 56/47	;17C5
		TXNE	PRM,%PROT		;IF FIELD IS PROTECTED, THEN IT
		 JRST	ESC.PA			;IS NOT OF INTEREST EITHER.
 WIT
		TXNE	PRM,%PROT		;IF FIELD IS PROTECTED, THEN 
		 JRST	[MOVE	A,CURFLD	;[262] SEE IF IT IS AT END
			 CAME	A,HIFLD		;[262] OF LINE.
			 JRST	ESC.PA		;[262] NO, GET NEXT FIELD.
			 ADJSP	P,-1		;[262] YES, RESTORE THE STACK,
			 MOVE	A,LASTFLD	;[262] GET THE PREVIOUS FIELD,
			 SETZM	MLTFLT		;[262] SET UP FOR BACK UP,
			 JRST	ESC.PC]		;[262] AND GO READ IT.
 REP 42/49	;17C6
		MOVE	A,LENFLD		;IF THIS IS A MULTIPLE FIELD
		TXNN	PRM,%MULT		;THEN WE NEED TO FILL THE
		 CALL	SV.NUMRD		;WHOLE OF THE FIELD
		CALL	INITSD			;MAKE SURE WE POINT AT IT.
		 JFCL
 WIT
		CALL	INITSD			;MAKE SURE WE POINT AT IT.
		 JFCL
		MOVE	A,LENFLD		;[265]IF THIS IS A MULTIPLE FIELD
		TXNE	PRM,%MULT		;[265]THEN WE NEED TO FILL THE
		 CALL	SV.NUMRD		;[265]WHOLE OF THE FIELD
 REP 33/54	;17C7
		SKIPN	MLTELM			;[260] NO - MORE ELEMENTS?
 WIT
		AOSL	MLTELM			;[266] NO - MORE ELEMENTS?
 REP 272/58	;17C8
			 MOVE  E,INT.C		;[255] COMPUTE NUM. OF CHAR. READ
			 SUB   E,TXTTAB+.RDDBC  ;[255]
			 JUMPE E,INR.14		;[255]IF THERE HAS BEEN A CHAR JUSTIFY
			 SUBI  A,"A"		;OFFSET
			 ADDI  A,TRM.UA		;SET UP RETURN CODE
 WIT
			 SUBI  A,"A"		;OFFSET
			 ADDI  A,TRM.UA		;SET UP RETURN CODE
			 MOVE  E,INT.C		;[267] COMPUTE NUM. OF CHAR. READ
			 SUB   E,TXTTAB+.RDDBC  ;[267]
			 JUMPE E,INR.14		;[267] IF THERE HAS BEEN A CHAR JUSTIFY
 REP 36/83	;17C9
		MOVX	D,IC%UTZ		;[206] USE TIMEZONE ZERO
 WIT
		MOVX	D,IC%DSA!IC%UTZ		;[264][206] USE TIMEZONE ZERO
 REP 24/84	;17C10
		MOVX	D,IC%UTZ		;[206] USE TIMEZONE ZERO
 WIT
		MOVX	D,IC%DSA!IC%UTZ		;[264][206] USE TIMEZONE ZERO
 INS 314/94	;17C11
		CAIN	B,.TT300		;[256]
		 MOVEI	A,%VT100		;[256] TERMINAL SAME AS VT100
 SUM 185439