X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..0000ed8f3efcdbf411f6c91517909089e5d7ef5d:/src/ptysrh.mac diff --git a/src/ptysrh.mac b/src/ptysrh.mac index 1e2b1e5..a98f4a9 100644 --- a/src/ptysrh.mac +++ b/src/ptysrh.mac @@ -52,10 +52,10 @@ PTYDDB: SIXBIT /PTY0/ Z XP PTYCSV,.-ZZ Z - XP PTYDDS,.-ZZ + XP PTYSAC,.-ZZ BLOCK 13 XP PTYBND,PTYSAC+12 - XP PTYDM1,PTYBND-1 + XP PTYBM1,PTYBND-1 XP PTYDDS,.-ZZ ;SIZE OF PTY DDB PTYSA2: BLT SCNHAC,0 @@ -106,9 +106,8 @@ PTYREL: LDB LINE,[POINT 6,DEVCHR(DDB),23] ;SET IN THE OF IOS) -EXTERNAL TCONLN,TTYTIBTPYTAB,PTYTAB,SETIOD -EXTERNAL ADVBFF,RUNIT,RECIN3,PUTCHI -EXTERNAL TTIBUF,SPCHEK,DDBSRC,LINTAB,CNCTST,TIFCTR,INBFUL +EXTERNAL TCOMLN,TTYTAB,TCOMM,TPYTAB,PTYTAB,ITMCNT,SETIOD +EXTERNAL ADVBFE,PUNIT PTYOUT: LDB LINE,PUNIT JSR PTYSAV @@ -172,7 +171,7 @@ PTYOU4: CAIE CHREC,"^" MOVEM IOS,DEVIOS(DDB) ;SAVE TTY STATE TRO PIOS,IOPTRE ;LET USER KNOW -PTYOU3: JRS PTYRET ;RESTORE ACS +PTYOU3: JSR PTYRET ;RESTORE ACS EXCH IOS,PIOS PTYOU8: TLZE IOS,IOW PUSHJ PDP,SETIOD ;START PTY JOB @@ -189,7 +188,7 @@ PTYOU5: TRZ IOS,IOACT+IOPTW ;CONSIDER OUTPUT COMPLETED TLO IOS,IOFST MOVEM IOS,DEVIOS(DDB) POPJ PDP, - EXTERNAL TCONLN,TTYTAB,SETIOD,ADVBFF,STOSQD,ADRERR + EXTERNAL TCONLN,TTYTAB,SETIOD,STODAT,ADVBFF,STOSQD,ADRERR PTYIN: LDB LINE,[POINT 6,DEVCHR(DDB),23] ADDI LINE,TCONLN @@ -213,7 +212,7 @@ PTYIN1: PUSH PDP,LINE JUMPE CHREC,PTYIN5+1 ;NO ;YES,SAVE LINE NO. PTYIN4: TLNN PIOS,IO+SP ;IS TTY DONE? - JRST PTYI38 ;YES. THATS ALL + JRST PTYI3B ;YES. THATS ALL MOVE DAT,CHREC PUSHJ PDP,STODAT ;STORE CHARACTER JRST ADRERR @@ -258,9 +257,9 @@ PTYIN8: MOVEM IOS, DEVIOS(DDB) IFE FTCHECK+FTMONP,< PTYSAV: 0 > -PTYSA0: MOVEM SCHHAC,PTYBDN(DDB) ;SAVE HIGH AC +PTYSA0: MOVEM SCNHAC,PTYBND(DDB) ;SAVE HIGH AC HRRZ SCNHAC,DDB - ADDI SCHNHAC,PTYBM1 + ADDI SCNHAC,PTYBM1 HRRM SCNHAC,PTYSA2 SUBI SCNHAC,SCNHAC-1 XCT PTYSA2 ;DO BLT SCNHAC @@ -352,6 +351,7 @@ PTYSET: MOVE PDDB,LINE IORB PIOS,DEVIOS(PDDB) TRNE PIOS,IOPTW ;IS LINKED TTY JOB IN INPUT WAIT? PUSHJ PDP,PTWAKE ;YES, WAKE UP CONTROL JOB - JSRT ACRET + JRST ACRET END + \ No newline at end of file