Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0077/ttyops.scm
There is 1 other file named ttyops.scm in the archive. Click here to see a list.
File 1)	DSK:TTYOPS.OLD[4,415]	created: 1900 05-Oct-1974
File 2)	DSK:TTYOPS.MAC[4,415]	created: 1550 09-Jul-1980

1)1	CHIN:   Z
1)	        TTCALL  0,@0(16)        ;INPUT ONE CHAR FROM TTY
1)	        JRA     16,1(16)        ;RETURN
1)	;
****
2)1	CHIN:   TTCALL  0,@0(16)        ;INPUT ONE CHAR FROM TTY
2)		POPJ	17,		;RETURN
2)	;
**************
1)1	CHOUT:  Z
1)	        TTCALL  15,@0(16)       ;OUTPUT IMAGE MODE CHAR TO TTY
1)	        JRA     16,1(16)
1)	;
****
2)1	CHOUT:  TTCALL  15,@0(16)       ;OUTPUT IMAGE MODE CHAR TO TTY
2)		POPJ	17,
2)	;
**************
1)1	TTYTST: Z
1)	        SETOM   @1(16)          ;PRESET TO -1 TO DENOTE CHAR FOUND
1)	        TTCALL  2,@0(16)        ;INPUT CHARACTER AND SKIP
1)	        SETZM   @1(16)          ;ELSE SET K TO ZERO
1)	        JRA     16,2(16)        ;RETURN
1)	;
****
2)1	TTYTST: SETOM   @1(16)          ;PRESET TO -1 TO DENOTE CHAR FOUND
2)	        TTCALL  2,@0(16)        ;INPUT CHARACTER AND SKIP
2)	        SETZM   @1(16)          ;ELSE SET K TO ZERO
2)		POPJ	17,		;RETURN
2)	;
**************
1)1	NECHO:  Z
1)	        MOVEM   2,TEMP          ;SAVE AC2
1)	        SETO    2,              ;AC2=-1 TO SPECIFY USER'S TTY LINE
****
2)1	NECHO:  MOVEM   2,TEMP          ;SAVE AC2
2)	        SETO    2,              ;AC2=-1 TO SPECIFY USER'S TTY LINE
**************
1)1	        JRA     16,0(16)        ;RETURN
1)	;
****
2)1		POPJ	17,		;RETURN
2)	;
**************
1)1	ECHO:   Z
1)	        MOVEM   2,TEMP          ;SAVE AC2
1)	        SETO    2,              ;AC0=-1 TO SPECIFY USER'S TTY LINE
****
2)1	ECHO:   MOVEM   2,TEMP          ;SAVE AC2
2)	        SETO    2,              ;AC0=-1 TO SPECIFY USER'S TTY LINE
**************
1)1	        JRA     16,0(16)        ;RETURN
1)	TEMP:   0
1)	        END
1)	^Z^Z^Z^Z^ZIIIA^D^H^PAAA>>AAA>			^A			^AAA@@@@IIIA^A^A^A^A^A^A^A^A^C^Dx^D^C>AAA>			^FFIII1``^B^D^B~^Q^Q^Q~>AAAAxx*U*+?!- 
****
File 1)	DSK:TTYOPS.OLD[4,415]	created: 1900 05-Oct-1974
File 2)	DSK:TTYOPS.MAC[4,415]	created: 1550 09-Jul-1980

2)1		POPJ	17,		;RETURN
2)	TEMP:   0
2)	        END
**************