File TTY.PA (PAL assembler source file)

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

/ TTY DRIVER TASK FOR RTS8 V2B-A		12/1/76

	VERS=	1


/
/EDIT HISTORY:
/
/	FEATURES ADDED BY S.R. ON 16-JUL-75:

/1.	CTRL/S, CTRL/Q
/2.	AUTOMATIC CR/LF AFTER TTY WIDTH REACHED (USUALLY
/	 80 COLUMNS)
/3.	RE-ECHOING OF PROMPT LINES ON CTRL/U
/4.	BACKSPACE FACILITY FOR RUBOUT ON SCOPE TERMINALS
/5.	CTRL/U PRINTS "^U"
/6.	TAB OPTIONS
/7.	FILL OPTIONS

/	4-AUG-75: COMBINED IN OLD TTY HANDLER
/	25-NOV-75:	ADDED KL8A SUPPORT
/	29-DEC-75:	ADDED WIDTH-IGNORING CODE
/	23-JUN-76	REVISED KL8A SUPPORT
/	25-Sep-76	FIXED WIDTH IGNORING CODE
/			FIXED ^S BUG.
/			FIXED BUG CONCERNING LINES WITH MORE
/			  THAN 4096 CHARS
/	07-OCT-76	ADDED TTLOC AND TTFLD
/			ADJUSTED DEVICE CODE FOR MULTIPLE
/			  KL8A'S
/			ADDED GENERAL POWER FAIL CODE
/
/01-DEC-76:  (LHN)
/	1)  80 COLUMN LPT: CREF LISTING.
/	2)  CHANGED "ASSIGN" TO ALLOW 128 TASKS



IFNDEF	TTYFLD	<TTYFLD=0>
IFNDEF	TTYLOC	<TTYLOC=3400>




IFNDEF	TASK	<TASK=	TTY>
	CUR=	TTYFLD
	INIWT=	0

/ IFNDEF TTDEV <TTDEV= 04> IFNZRO TTDEV-4&4000 <TTDEV=KL8ALINE TTDEV> IFNZRO TTDEV&6000 <TTDEV=TTDEV&770%10> IFNDEF KBDEV <KBDEV= TTDEV-1> IFNZRO KBDEV&6000 <KBDEV=KBDEV&770%10> IFNDEF CONSOL <CONSOL=1> /DEFAULT IS CONSOLE IFNDEF VT50 <VT50= 1> /SET TO 0 IF DON'T WANT ^S, / ^Q FEATURE IFNDEF SCOPE <SCOPE= 0> /SET TO 1 IF TTY CAN DO A / BACKSPACE IFNDEF FILL <FILL= 0> /NUMBER OF FILL CHARACTERS / AFTER CR/LF IFNDEF WIDTH <WIDTH= 120> /TTY LINE WIDTH IFNDEF TAB <TAB= 0> /SET TO 1 IF TTY HAS / HARDWARE TABS IFNDEF OLDTTY <OLDTTY=0> /SET TO 1 TO GET OLD / VERSION 1 TTY TASK IFNDEF LSTBOT <LSTBOT=0> /SET TO 1 TO LIST BOTH IFNDEF FBTTY <FBTTY=0> /IF NO OS/8 BACKGROUND TO / SHARE TTY WITH IFZERO TTDEV&100 < KSFX= KBDEV^10+6001 KRBX= KBDEV^10+6006 TSFX= TTDEV^10+6001 TCFX= TTDEV^10+6002 TSKX= TTDEV^10+6005 /PDP 8/E ONLY TLSX= TTDEV^10+6006 > IFNZRO TTDEV&100 < IFNDEF KL8ADV <KL8ADV= 40> /DEFINE KL8A IO CODE KLNUM=TTDEV&77%4 /KL8A NUMBER IFNZRO KL8A-KLNUM&4000 <KL8LIN,ERROR_> /MUST BE .LE. 'KL8A' KLNUM=KLNUM^2 /DEVICE CODES COME IN PAIRS TLSX= KL8ADV+KLNUM^10+6004 >
/ THE RTS-8 TELETYPE DRIVER PRINTS AND INPUTS LINES OR / CHARACTER STRINGS ON A TELETYPE. THE INPUT AND OUTPUT / DEVICE CODES OF THE TELETYPE ARE SPECIFIED (RESPECIVELY) / BY THE PARAMETERS "KBDEV" AND "TTDEV". IF THE PARAMETER / "CONSOL" IS NOT DEFINED TO BE ZERO, THE TELETYPE IS / ASSUMED TO BE THE CONSOLE TELETYPE AND WILL INVOKE THE / MCR WHENEVER ^C IS TYPED ON IT. /THE FORMAT OF TTY DRIVER MESSAGES ARE: /WORD 1 USED AS EVENT FLAG FOR MESSAGE /WORDS 2-3 USED BY RTS-8 / /WORD 4 FLAGS WORD - FLAGS ARE: / BIT 0 0=PACKED OUTPUT MESSAGE, 1=UNPACKED / BIT 1 0=PUT CRLF AFTER MESSAGE, 1=DO NOT / BIT 2 0=OUTPUT MESSAGE BEGINS AT WORD 6, / 1= OUTPUT MESSAGE POINTED TO BY WORD 6 / BIT 3 0=INPUT IS LINE ORIENTED, WITH EDITING / 1=INPUT IS COUNT ORIENTED W/O EDITING / OR ECHOING / BIT 4 0=PERFORM I/O INDICATED BY OTHER BITS / 1=ASSIGN TTY DRIVER TO TASK IN BITS 5-11 / BITS 5-11 MAX # CHARS IN INPUT BUFFER (0 MEANS 4096) / OR TASK TO ASSIGN DRIVER TO (IF BIT 4=1) / /WORD 5 IF ZERO, NO INPUT - ELSE POINTS AT INPUT / BUFFER /WORD 6 OUTPUT MESSAGE OR POINTER TO MESSAGE /IF TTDEV OR KBDEV HAS FORM 100+LINE, THEN THIS /INDICATES THAT LINE OF KL8A IS TO BE USED. XLIST 1-LSTBOT IFNZRO OLDTTY < XLIST 0
FIELD CUR%10 *TTYLOC START, IFZERO TTDEV&100 < MEVFLG, CAL FLAGS, SKPINS HALF, TTINT IFZERO PDP8E < /ONLY NEED 1 SKIP CHAIN CAL / ENTRY ON 8E SKPINS KBINT > > IFNZRO TTDEV&100 < MEVFLG, CIF 0 /CONNECT ROUTINE IN FIELD 0 FLAGS, IOF HALF, TAD (TTDEV&77^4 /GET KL8A LINE # IINTO AC JMS I (KL8ACT /CONNECT TO KL8A LINE KBINT /KEYBOARD INT ADR TTINT /PRINTER INT ADR > TTMSLP, TAD ASGNEE /GET ASIGNEE (IF ANY) CAL RECEIV /TAKE THE MESSAGE OFF THE Q MADDR, 0 /GETS ADDRESS OF MESSAGE DCA MSGCDF /FIELD OF MSG IN AC AC7775 TAD MADDR DCA MEVFLG /SAVE MESSAGE EVENT FLAG ADDRESS JMS CDFMSG TAD I MADDR DCA FLAGS /FIRST WORD OF MESSAGE IS FLAGS ISZ MADDR TAD I MADDR DCA REPLYY /2D WORD OF MESSAGE IS ADDRESS FOR ISZ MADDR /REPLY FROM KBD (0 IF NONE WANTED) TAD FLAGS AND (200 SZA CLA /IS THIS AN ASSIGN CALL? JMP ASSIGN /YES - JUST ASSIGN TTY TO SENDER TAD FLAGS RTL SMA CLA /BIT 1000 OF FLAG WORD INDICATES JMP .+3 /IF MESSAGE OR POINTER TO IT FOLLOWS TAD I MADDR DCA MADDR STA DCA HALF /INITIALIZE LEFT/RIGHT SWITCH
/LOOP TO UNPACK AND OUTPUT MESSAGE TTOLP, JMS CDFMSG TAD FLAGS SPA CLA /BIT 0 IF FLAG WD TELLS WHETHER JMP ONEPWD /MESSAGE IS PACKED OR UNPACKED ASCII ISZ HALF /PACKED - WHICH HALF? JMP RGHTHF AC7776 DCA HALF TAD I MADDR CLL RTR RTR RTR JMP .+3 RGHTHF, TAD I MADDR ISZ MADDR AND (77 SNA JMP CKCRLF TAD (240 /CONVERT SIXBIT TO ASCII AND (77 TAD (240 OUTCH, JMS TTOUT JMP TTOLP ONEPWD, TAD I MADDR ISZ MADDR SZA JMP OUTCH CKCRLF, TAD FLAGS RAL /BIT 1 OF FLAGS TELLS WHETHER SMA CLA /TO FOLLOW MESSAGE BY A CR/LF CTRLU, JMS CRLF TAD REPLYY SZA /IS THERE INPUT REQUIRED? JMP I (EOMESS /YES - GO GET IT EORPLY, CDF CUR /HERE IF NO INPUT OR IF INPUT IS TAD MSGCDF / FINISHED DCA MF TAD MEVFLG CAL /POST THE SENDER'S EVENT FLAG POST /SO HE'LL KNOW HE GOT HIS INPUT MF, 0 JMP TTMSLP /NNNNNNNNNNNNNNNNNNNEXT! ASSIGN, TAD FLAGS AND (0177 /GET TASK NUMBER **LHN DCA ASGNEE /SAVE AS ASSIGNED TASK JMP EORPLY ASGNEE, 0 /TASK ASSIGNMENT, 0 = UNASSIGNED REPLYY, 0 /ADDRESS OF REPLY BUFFER (IF ANY)
/LOW-LEVEL TTY OUTPUT CODE TTOUT, 0 AND (177 /STRIP OFF PARITY AND CRAP FOR KL8A DCA CDFMSG CDF CUR TAD I (INCH /GET THE LAST CHAR TYPED ON THE KBD AND (177 /STRIP OFF PARITY TAD (-17 /WAS IT ^O? SNA CLA JMP I TTOUT /YES - DON'T PRINT NOTHIN CAL WAITE /WAIT FOR LAST CHAR TO FINISH PTTOEV, TTOEV ISZ TTOEV /SET TTY BUSY (IN ADVANCE) TAD CDFMSG /GET CHAR IFNZRO TTDEV&100 <TAD (TTDEV&77^400 > /ADD IN LINE # TLSX /OUT WITH IT! CLA /CL(E)A(N) UP JMP I TTOUT CRLF, 0 TAD (215 JMS TTOUT TAD (212 JMS TTOUT JMP I CRLF TTINT, IFZERO TTDEV&100 < ZBLOCK 2 /USED FOR LINKING INTO SKIP CHAIN IFZERO PDP8E <TSFX> IFNZRO PDP8E <TSKX> /CHECK FOR KEYBOARD OR / PRINTER JMP I TTINT CDF CIF CUR IFNZRO PDP8E < TSFX /WHICH ONE? JMP I (KBINT /KEYBOARD > > CIF 0 IFZERO TTDEV&100 <TCFX> TAD PTTOEV POSTDS /POST "TTY COMPLETE" EVENT FLAG TTOEV, 0
/ CDFMSG, 0 MSGCDF, HLT JMP I CDFMSG PAGE
/INPUT REPLY FROM KEYBOARD EOMESS, DCA REPLY /SAVE REPLY BUFFER POINTER IN THIS CDF CUR / PAGE TAD I (FLAGS AND (177 /GET LOW ORDER BITS OF FLAG WORD CIA RPLYL1, DCA INPCNT /SET INPUT CHAR COUNT RPLYLP, CAL WAITE PTTIEV, TTIEV /WAIT FOR KEYBOARD STRIKE ISZ TTIEV /IMMEDIATELY SET EVENT FLAG AGAIN TAD I (FLAGS JMS I (CDFMSG AND (400 /ARE WE EDITING INPUT? SZA CLA JMP NOEDIT /NO - JUST TAKE IT AS IT COMES TAD INCH AND (177 /STRIP PARITY BIT TAD (200 /NOW FORCE IT BACK IN DCA I REPLY /SAVE CHAR IN REPLY MESSAGE TAD I REPLY AND (177 /AND OUT GOES THE PARITY BIT (AGAIN) SZA TAD (-17 /IGNORE NULL AND ^O SNA JMP RPLYLP TAD (17-176 SMA SZA JMP RUBOUT /X - 176 GT 0 - X MUST BE 177 SZA IAC SZA TAD (175-33 /CHECK FOR 3 FLAVORS OF ALTMODE SNA JMP ALTMOD /ALT MODE IS SPECIAL END-OF-LINE TAD (33-15 / DELIMITER SNA /IS THE CHAR A CARRIAGE RETURN? JMP CARRET CDF CUR TAD (15-25 SNA CLA /^U? JMP I (CTRLU /YES ISZ INPCNT /IS THERE ROOM IN THE BUFFER? JMP .+3 /YES STA JMP RPLYL1 /NO - KEEP IT FULL JMS I (CDFMSG TAD I REPLY /GET THE CHAR JMS I (TTOUT /ECHO IT NEXTCH, ISZ REPLY /BUMP POINTER JMP RPLYLP /CONTINUE INPCNT, 0
/SPECIAL CHARACTER PROCESSING RUBOUT, CDF CUR TAD I (REPLYY /AC=1 ON ENTRY! CIA TAD REPLY /ARE WE AT THE BEGINNING SPA CLA /OF THE REPLY LINE? JMP RPLYLP /YES TAD (334 JMS I (TTOUT /OUTPUT A BACKSLASH STA TAD REPLY DCA REPLY /BUMP THE POINTER BACK ONE STA TAD INPCNT /REMEMBER TO INCREASE THE COUNT! JMP RPLYL1 ALTMOD, TAD (44 JMS I (TTOUT /ECHO ALT MODE AS $ STA /PUT SPECIAL DELIMITER IN MESSAGE JMS I (CDFMSG CARRET, DCA I REPLY /SET THE LAST CHAR IN THE MESSAGE JMS I (CRLF JMP I (EORPLY NOEDIT, TAD INCH DCA I REPLY /NO PARITY, NO EDITING, NO ECHOING ISZ INPCNT /IF CONSOL=0, THIS MODE CAN JMP NEXTCH /BE USED TO READ BINARY PAPER TAPES JMP I (EORPLY
/KEYBOARD INPUT INTERRUPT ROUTINE AND STORAGE KBINT, IFZERO TTDEV&100 < IFZERO PDP8E < ZBLOCK 2 /FOR LINKING INTO SKIP CHAIN KSFX JMP I KBINT CDF CIF CUR > KRBX /READ CHARACTER AND CLEAR FLAG > AND (377 /CLEAR ERROR BITS AND KL8A LINE # DCA INCH IFNZRO CONSOL < TAD INCH AND (177 TAD (-3 SNA CLA /CHECK FOR ^C TYPED JMP GETMCR /YES, SET "MCR REQUESTED" EVENT FLAG > CIF 0 TAD PTTIEV POSTDS /POST "KEY STRUCK" EVENT FLAG IFNZRO CONSOL < GETMCR, TAD TTIEV /^C WILL DELETE ANYTHING WHICH SNA CLA /IS CURRENTLY IN THE TTY BUFFER ISZ TTIEV /BY SETTING THE EVENT FLAG NON-ZERO CDF CIF 0 /THE MCR IS STARTED UP (IF IT IS TAD (MCREF /QUIESCENT) BY POSTING THE MCR EVENT POSTDS /FLAG ON PAGE 0 OF FIELD 0. > REPLY, 0 INCH, 0 TTIEV, 1 /KEYBOARD NOT STRUCK INITIALLY
/ PAGE > /END OF "OLD" TTY CONDITIONAL XLIST 1-LSTBOT IFZERO OLDTTY < XLIST 0
FIELD CUR%10 *TTYLOC START, IFZERO TTDEV&100 < MEVFLG, CAL FLAGS, SKPINS HALF, TTINT IFZERO PDP8E < /ONLY NEED 1 SKIP CHAIN CAL / ENTRY ON 8/E SKPINS KBINT > > IFNZRO TTDEV&100 < MEVFLG, CIF 0 /CONNECT ROUTINE IN FIELD 0 FLAGS, IOF HALF, TAD (TTDEV&77^4 /GET KL8A LINE # INTO AC JMS I (KL8ACT /CONNECT TO KL8A LINE KBINT /KEYBOARD INT ADR TTINT /PRINTER INT ADR > IFDEF PWRF < REPLYY, CAL SAVM, SENDW PWRF /SEND DERAIL ADDRESS TO POWER FAIL PWMSG / TASK > TTMSLP, TAD ASGNEE /GET ASIGNEE (IF ANY) CAL RECEIV /TAKE THE MESSAGE OFF THE Q MADDR, 0 /GETS ADDRESS OF MESSAGE DCA MSGCDF /FIELD OF MSG IN AC AC7775 TAD MADDR DCA MEVFLG /SAVE MESSAGE EVENT FLAG ADDRESS JMS CDFMSG TAD I MADDR DCA FLAGS /FIRST WORD OF MESSAGE IS FLAGS ISZ MADDR TAD I MADDR DCA REPLYY /2D WORD OF MESSAGE IS ADDRESS FOR ISZ MADDR /REPLY FROM KBD (0 IF NONE WANTED) TAD FLAGS AND (200 SZA CLA /IS THIS AN ASSIGN CALL? JMP ASSIGN /YES - JUST ASSIGN TTY TO SENDER
/ TAD FLAGS RTL SMA CLA /BIT 1000 OF FLAG WORD INDICATES JMP .+3 /IF MESSAGE OR POINTER TO IT FOLLOWS TAD I MADDR DCA MADDR CTRLU2, TAD MADDR DCA SAVM STA DCA HALF /INITIALIZE LEFT/RIGHT SWITCH /LOOP TO UNPACK AND OUTPUT MESSAGE TTOLP, JMS CDFMSG TAD FLAGS SPA CLA /BIT 0 IF FLAG WD TELLS WHETHER JMP ONEPWD /MESSAGE IS PACKED OR UNPACKED ASCII ISZ HALF /PACKED - WHICH HALF? JMP RGHTHF AC7776 DCA HALF TAD I SAVM CLL RTR RTR RTR JMP .+3 RGHTHF, TAD I SAVM ISZ SAVM AND (77 SNA JMP CKCRLF TAD (240 /CONVERT SIXBIT TO ASCII AND (77 TAD (240 OUTCH, JMS I (TTOUTR JMP TTOLP
/ ONEPWD, TAD I SAVM ISZ SAVM SZA JMP OUTCH CKCRLF, TAD FLAGS RAL /BIT 1 OF FLAGS TELLS WHETHER SMA CLA /TO FOLLOW MESSAGE BY A CR/LF CTRLU, JMS I (CRLF TAD REPLYY SZA /IS THERE INPUT REQUIRED? JMP I (EOMESS /YES - GO GET IT EORPLY, CDF CUR /HERE IF NO INPUT OR IF INPUT IS TAD MSGCDF / FINISHED DCA MF TAD MEVFLG CAL /POST THE SENDER'S EVENT FLAG POST /SO HE'LL KNOW HE GOT HIS INPUT MF, 0 JMP TTMSLP /NNNNNNNNNNNNNNNNNNNEXT! ASSIGN, TAD FLAGS AND (0177 /GET TASK NUMBER **LHN DCA ASGNEE /SAVE AS ASSIGNED TASK JMP EORPLY ASGNEE, 0 /TASK ASSIGNMENT, 0 = UNASSIGNED IFNDEF PWRF < REPLYY, 0 /ADDRESS OF REPLY BUFFER (IF ANY) SAVM, 0 >
/LOW-LEVEL TTY OUTPUT CODE TTOUT, 0 AND (177 /STRIP OFF PARITY AND CRAP FOR KL8A DCA CDFMSG CDF CUR TAD I (INCH /GET THE LAST CHAR TYPED ON THE KBD AND (177 /STRIP OFF PARITY TAD (-17 /WAS IT ^O? SNA CLA JMP I TTOUT /YES - DON'T PRINT NOTHIN IFNZRO VT50< CAL WAITE /WAIT FOR XON XOFF > CAL WAITE /WAIT FOR LAST CHAR TO FINISH PTTOEV, TTOEV ISZ TTOEV /SET TTY BUSY (IN ADVANCE) IFNZRO TTDEV&100 <TAD (TTDEV&77^400 > /ADD LINE # TAD CDFMSG /GET CHAR TLSX /OUT WITH IT! CLA /CL(E)A(N) UP JMP I TTOUT TTINT, IFZERO TTDEV&100 < ZBLOCK 2 /USED FOR LINKING INTO SKIP CHAIN IFZERO PDP8E <TSFX> IFNZRO PDP8E <TSKX> /CHECK FOR KEYBOARD OR / PRINTER JMP I TTINT CDF CIF CUR IFNZRO PDP8E < TSFX /WHICH ONE? JMP I (KBINT /KEYBOARD > > CIF 0 IFZERO TTDEV&100 <TCFX> TAD PTTOEV POSTDS /POST "TTY COMPLETE" EVENT FLAG TTOEV, 0
/ CDFMSG, 0 MSGCDF, HLT JMP I CDFMSG PAGE
/INPUT REPLY FROM KEYBOARD EOMESS, DCA REPLY /SAVE REPLY BUFFER POINTER IN THIS CDF CUR / PAGE TAD I (FLAGS AND (177 /GET LOW ORDER BITS OF FLAG WORD CIA RPLYL1, DCA INPCNT /SET INPUT CHAR COUNT RPLYLP, CAL WAITE TTIEV /WAIT FOR KEYBOARD STRIKE ISZ I (TTIEV /IMMEDIATELY SET EVENT FLAG AGAIN TAD I (FLAGS JMS I (CDFMSG AND (400 /ARE WE EDITING INPUT? SZA CLA JMP NOEDIT /NO - JUST TAKE IT AS IT COMES TAD INCH AND (177 /STRIP PARITY BIT TAD (200 /NOW FORCE IT BACK IN DCA I REPLY /SAVE CHAR IN REPLY MESSAGE TAD I REPLY AND (177 /AND OUT GOES THE PARITY BIT (AGAIN) SZA TAD (-17 /IGNORE NULL AND ^O SNA JMP RPLYLP TAD (17-176 SMA SZA JMP RUBOUT /X - 176 GT 0 - X MUST BE 177 SZA IAC SZA TAD (175-33 /CHECK FOR 3 FLAVORS OF ALTMODE SNA JMP ALTMOD /ALT MODE IS SPECIAL END-OF-LINE TAD (33-15 / DELIMINTER SNA /IS THE CHAR A CARRIAGE RETURN? JMP CARRET CDF CUR TAD (15-25 SNA CLA /^U? JMP CTU /YES ISZ INPCNT /IS THERE ROOM IN THE BUFFER? JMP .+3 /YES STA JMP RPLYL1 /NO - KEEP IT FULL JMS I (CDFMSG TAD I REPLY /GET THE CHAR JMS I (TTOUTR /ECHO IT NEXTCH, ISZ REPLY /BUMP POINTER JMP RPLYLP /CONTINUE INPCNT, 0
/SPECIAL CHARACTER PROCESSING RUBOUT, CDF CUR TAD I (REPLYY /AC=1 ON ENTRY! CIA TAD REPLY /ARE WE AT THE BEGINNING SPA CLA /OF THE REPLY LINE? JMP RPLYLP /YES IFZERO SCOPE < TAD (334 JMS I (TTOUTR /OUTPUT A BACKSLASH > IFNZRO SCOPE < JMS I (BACK /DO BACKUP > STA TAD REPLY DCA REPLY /BUMP THE POINTER BACK ONE STA TAD INPCNT /REMEMBER TO INCREASE THE COUNT! JMP RPLYL1 ALTMOD, TAD (44 JMS I (TTOUTR /ECHO ALT MODE AS $ STA /PUT SPECIAL DELIMITER IN MESSAGE JMS I (CDFMSG CARRET, DCA I REPLY /SET THE LAST CHAR IN THE MESSAGE JMS I (CRLF JMP I (EORPLY NOEDIT, TAD INCH DCA I REPLY /NO PARITY, NO EDITING, NO ECHOING ISZ INPCNT /IF CONSOL=0, THIS MODE CAN JMP NEXTCH /BE USED TO READ BINARY PAPER TAPES JMP I (EORPLY
IFNDEF PWRF < REPLY, 0 INCH, 0 > CTU, TAD ("^ JMS I (TTOUTR /TYPE "^U" TAD ("U JMS I (TTOUTR TAD I (FLAGS /IF BIT 1 IS ON, WANT TO REPROMPT CLL RTL SNL CLA JMP I (CTRLU JMS I (CRLF JMP I (CTRLU2 IFDEF PWRF < PWMSG, 0 REPLY, 0 INCH, 0 /INPUT CHARACTER DRLADR, . /DERAIL ADDRESS DCA PWMSG /SAVE TASK AC DCA INCH /DESTROY INPUT CHARACTER IFNZRO TTDEV&100 <TAD (TTDEV&77^400> TLSX CLA TAD PWMSG /RESTORE AC JMP I DRLADR /RETURNTO MAINLINE > PAGE
/KEYBOARD INPUT INTERRUPT ROUTINE AND STORAGE KBINT, IFZERO TTDEV&100 < IFZERO PDP8E < ZBLOCK 2 /FOR LINKING INTO SKIP CHAIN KSFX JMP I KBINT CDF CIF CUR > KRBX /READ CHARACTER AND CLEAR FLAG > AND (377 /KILL ERROR BITS AND KL8A LINE # DCA I (INCH IFZERO VT50 < IFNZRO CONSOL < TAD I (INCH AND (177 TAD (-3 SNA CLA /CHECK FOR ^C TYPED JMP GETMCR /YES, SET "MCR REQUESTED" EVENT FLAG > > IFNZRO VT50 < TAD I (INCH AND (177 IFNZRO CONSOL < TAD (-3 SNA /CHECK FOR ^C JMP GETMCR /REQUEST MCR ON CTRL/C TAD (3-23 /NOW CHECK FOR CTRL/S > IFZERO CONSOL < TAD (-23 > SNA JMP CTRLS /^S TYPED (XOFF) TAD (23-21 SNA CLA JMP CTRLQ /^Q TYPED (XON) > CIF 0 TAD (TTIEV POSTDS /POST "KEY STRUCK" EVENT FLAG
IFNZRO VT50 < XOFF, 0 /0 MEANS CAN PRINT /1 MEANS PRINT INHIBITED DUE TO ^S CTRLS, CIF 0 TAD XOFF SNA /SET XOFF TO 1 ONLY IF 0 CLA IAC DCA XOFF /INHIBIT PRINTING POSTDS /DISMISS, NO FLAGS POSTED CTRLQ, TAD TTIEV SNA CLA ISZ TTIEV CIF 0 TAD (XOFF POSTDS /POST RESUME TYPING EVENT FLAG > IFNZRO CONSOL < GETMCR, TAD TTIEV /^C WILL DELETE ANYTHING WHICH SNA CLA /IS CURRENTLY IN THE TTY BUFFER ISZ TTIEV /BY SETTING THE EVENT FLAG NON-ZERO CDF CIF 0 /THE MCR IS STARTED UP (IF IT IS TAD (MCREF /QUIESCENT) BY POSTING THE MCR EVENT POSTDS /FLAG ON PAGE 0 OF FIELD 0. > TTIEV, 1 /KEYBOARD NOT STRUCK INITIALLY IFNZRO SCOPE < BACK, 0 TAD (10 /BACKSPACE JMS I (TTOUT TAD (240 /PRINT SPACE JMS I (TTOUT TAD (10 /BACKSPACE AGAIN JMS I (TTOUT STA TAD COLCNT SMA /CAN'T RUBOUT PAST COLUMN 1 DCA COLCNT /MOVE BACK ONE COLUMN CLA /CLEAR AC JMP I BACK /RETURN >
/ CRLF, 0 TAD (215 JMS I (TTOUT TAD (212 JMS I (TTOUT IFZERO FILL-1&4000 <JMS I (TTOUT> IFZERO FILL-2&4000 <JMS I (TTOUT> IFZERO FILL-3&4000 <JMS I (TTOUT> IFZERO FILL-4&4000 <JMS I (TTOUT> IFZERO FILL-5&4000 <JMS I (TTOUT> DCA COLCNT JMP I CRLF TTOUTR, 0 DCA TEM /SAVE CHAR TAD TEM AND (177 /7-BIT TAD (-15 /IS IT CR? SNA JMP ITSCR /IT'S A CR TAD (15-11 SNA CLA /IS IT A TAB? JMP TABB /YES DOO, ISZ COLCNT /AT END OF COLUMN? SND, IFNZRO WIDTH < TAD COLCNT CLL TAD WITH SZL /AT LAST COLUMN? (DON'T CLEAR AC) JMS NEWL /YES, DO EXTRA CR/LF > CLA /NOTE: THIS CLA COULD BE SKIPPED /AFTER 4096 INCREMENTS OF COLCNT TAD TEM /NO JMS I (TTOUT /ACTUALLY TYPE CHARACTER JMP I TTOUTR /RETURN ITSCR, DCA COLCNT JMP DOO COLCNT, 0 WITH, -WIDTH-1 TEM, 0
/ NEWL, 0 DCA XTRA JMS I (CRLF TAD XTRA SZA CLA TAD L7 /IF LAST CHAR WAS TAB IAC /SET INIT COL TO 10; OTHERWISE 1 DCA COLCNT JMP I NEWL XTRA, 0 IFNZRO TAB < TABB, TAD COLCNT AND (7770 TAD (10 DCA COLCNT /GO TO NEXT TAB STOP JMP SND > IFZERO TAB < TABB, ISZ COLCNT L7, 7 /JUST IN CASE IT SKIPS IFNZRO WIDTH < TAD COLCNT TAD WITH SNA CLA JMP EO > TAD (" JMS I (TTOUT /SIMULATE WITH SPACES TAD COLCNT AND L7 SZA CLA /UNTIL THE NEXT TAB STOP JMP TABB JMP I TTOUTR EO, JMS I (CRLF JMP I TTOUTR >
/ PAGE > /END OF "NEW" TTY CONDITIONAL XLIST 0 $=$=LHN=$=$



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search