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
**************