[pdp8.git] / sw / tools / KERMIT.PA

/ MODIFIED SILENT VERSION, HACHTI 2008
/       KERMIT FOR DEC 12-BIT MACHINES

/       LAST EDIT:      06-SEP-1990     11:00:00        CJL

        XLIST   OFF
        IFNDEF  OFF     <OFF=   1>      /TURN LISTING OFF
        IFNDEF  ON      <ON=    0>      /TURN LISTING ON
        XLIST   ON;     IFZERO  1       <








***      **** *********** *********    ***      *** *** *********** *****   ****
***     ****  *********** **********   ****    **** *** *********** *****  ******
***   ****    ***         ***    ****  ****    **** ***     ***       *** ***  ***
***  ****     ***         ***     ***  *****  ***** ***     ***       *** **   ****
*** ****      ***         ***     ***  *****  ***** ***     ***       *** **    ***
*******       ***         ***    ****  ************ ***     ***       ***       **
******        **********  **********   *** **** *** ***     *** ***** ***      **
*******       **********  *********    *** **** *** ***     *** ***** ***     **
*** ****      ***         *** ****     ***  **  *** ***     ***       ***    **
***  ****     ***         ***  ****    ***  **  *** ***     ***       ***   **
***   ****    ***         ***   ****   ***      *** ***     ***       ***  **
***    ****   *********** ***    ****  ***      *** ***     ***       *** *********
***      **** *********** ***     **** ***      *** ***     ***       *** *********
                                        >       XLIST   ON



















/       COPYRIGHT (C) 1989, 1990 BY THE TRUSTEES OF COLUMBIA UNIVERSITY IN THE CITY OF
/       NEW YORK.



/       PERMISSION IS  GRANTED  TO  ANY  INDIVIDUAL OR INSTITUTION TO COPY OR USE THIS
/       DOCUMENT AND THE  PROGRAM(S) DESCRIBED IN IT, EXCEPT FOR EXPLICITLY COMMERCIAL
/       PURPOSES.
\f/      EDIT HISTORY.                                                   /014 CJL

/       052     06-SEP-1990     BUG FIX.                        CHARLES LASNER (CJL)

/               SENDING A FILE WHICH  EXACTLY  FILLS  THE LAST DATA PACKET AT THE
/               END OF THE FILE WILL  CAUSE  THE  PACKET  TO  BE SENT TWICE.  THE
/               ROUTINE DIDN'T CHECK FOR AN EMPTY OUTPUT BUFFER AT EOF.

/       051     29-AUG-1990     BUG FIX.                        CJL

/               PDP-8/A NOT IDENTIFIED CORRECTLY  IN  CPUID ROUTINE.  THE UPDATED
/               PC IS WHAT IS LOADED  INTO  THE  AC  WHEN 7016 IS EXECUTED ON THE
/               KK-8/A CPU.  THE ROUTINE WAS  CHECKING FOR THE NON-UPDATED VALUE.
/               ALSO  NEW  DOCUMENTATION FOR PRE-CLEARING MEMORY FOR  BENEFIT  OF
/               ENCODED BINARY FILES.
\f/      050     06-SEP-1989     DECMATE I SUPPORT, ETC.         CJL

/               THIS EDIT IMPLEMENTS DECMATE  I  SUPPORT USING THE DP278-A OR -B.
/               A NEW CONDITIONAL 'PORT' SELECTS  WHICH  PORT  IS TO BE USED.  IF
/               KERMIT-12 IS RUN ON DECMATE I  (WHILE  NOT  CONFIGURED FOR SERIAL
/               PRINTER  PORT  COMMUNICATIONS;    SEE  EDIT  048.)   THEN  REMOTE
/               COMMUNICATIONS TAKES PLACE ON THE PORT SELECTED AT  ASSEMBLY TIME
/               ('PORT=0' OR 'PORT=1').    ADDED  BAUD  RATE PARAMETER 'BRATE' TO
/               SELECT REMOTE COMMUNICATIONS BAUD  RATE  FROM THE STANDARD TABLE;
/               DEFAULTS TO 1200 BAUD ('BRATE=7').
 
/       049     30-AUG-1989     REMOTE FLOW CONTROL, ETC.       CJL

/               THIS  EDIT  IMPLEMENTS FLOW CONTROL SUPPORT (IF FLOW  CONTROL  IS
/               ENABLED) FOR THE REMOTE LINE WHILE SENDING PACKETS TO  THE REMOTE
/               KERMIT REGARDLESS  OF  STATE.    PREVIOUSLY,  FLOW  CONTROL  ONLY
/               APPLIED TO CONNECT  MODE.  LOCAL FLOW CONTROL (TOWARDS THE REMOTE
/               KERMIT) IS UNNECESSARY AS  LOCAL  BUFFERS  FOR  REMOTE  INPUT ARE
/               ALWAYS AVAILABLE.  CERTAIN ROUTINE  CHANGES  MADE  FOR BENEFIT OF
/               DECMATE I SUPPORT IN A SUBSEQUENT EDIT.

/       048     24-AUG-1989     DECMATE II, ETC. SUPPORT.       CJL

/               ONCE-ONLY CODE ADDED  TO  IMPLEMENT DECMATE II, ETC.  REMOTE LINE
/               SUPPORT  ON  SERIAL  COMMUNICATIONS   PORT.    SELECTED  PORT  IS
/               INDICATED ON OPENING BANNER IF OPERATING ON DECMATE.

/       THIS EDIT PROVIDES BASIC SUPPORT  OF  THE DECMATE II COMMUNICATIONS PORT AS AN
/       AUTOMATIC FEATURE OF THE STANDARD RELEASE  OF  K12MIT.  AUTOMATIC DETECTION OF
/       DECMATE II, ETC.  HARDWARE IS PERFORMED  UNLESS  THE  PDP-8-TYPE  REMOTE  LINE
/       SUPPORT IS ASSEMBLED FOR THE SERIAL PRINTER AS  THE  REMOTE  LINE ('SPRINT' IS
/       SET OR EQUIVALENT).

/       THIS  EDIT INCORPORATES ALL OF THE  INFORMATION  TAKEN  FROM  VARIOUS  SOURCES
/       REGARDING DECMATE PORT INITIALIZATION, ETC.  EVERY  ATTEMPT  HAS  BEEN MADE TO
/       COMPLETELY  SET ALL APPROPRIATE REGISTERS, ETC.  FOR  DECMATE  II,  III,  III+
/       OPERATION.  NO SUPPORT EXISTS FOR THE DECMATE III  BUILT-IN  MODEM  OPTION, AS
/       EXPLICIT  DOCUMENTATION  IS NOT AVAILABLE (SOME OF THE INITIALIZATION CODE  IS
/       APPARENTLY USED TO DISABLE THE MODEM).  THESE ROUTINES ARE ONLY  KNOWN TO WORK
/       ON  THE DECMATE II, AS THE III (ESPECIALLY WITH OPTIONAL MODEM) AND  THE  III+
/       HAVEN'T BEEN  AVAILABLE  TO  THE  AUTHOR FOR TESTING.  THE INITIALIZATION CODE
/       WILL BE UPDATED  LATER  TO  INCLUDE  PANEL  REQUESTS,  ETC.    TO  CORRECT ANY
/       PROBLEMS, ETC.  DECMATE-SPECIFIC  FEATURES  (SUCH  AS  SETUP COMMANDS) WILL BE
/       ADDED LATER AND ENABLED FROM THESE ROUTINES.

/       THIS EDIT INCORPORATES  NON-INTERRUPT  ROUTINES  WHICH HAVE BEEN TESTED AT THE
/       MAXIMUM COMMUNICATIONS SPEED OF  THE  DECMATE  II  (19200  BAUD).    THEY WILL
/       SUFFICE FOR ALL KERMIT IMPROVEMENTS  SHORT  OF  SLIDING  WINDOWS AT WHICH TIME
/       INTERRUPT-DRIVEN I/O WILL BE REQUIRED.   (INTERRUPT-DRIVEN  I/O  IS ILLEGAL ON
/       CERTAIN OS/8 SYSTEMS WHERE INTERRUPTS ARE HARMFUL  TO THE SYSTEM OR NON-SYSTEM
/       HANDLERS.) 
\f/      047     21-AUG-1989     CODE CLEANUP.                   CJL

/               STREAM-LINED CONNECT MODE ROUTINES FOR MINIMUM USE OF IOTS.  THIS
/               IS  IN  PREPARATION  FOR  EVENTUAL DECMATE II OPERATION,  AND  TO
/               MINIMIZE  K12PCH  PATCH  FILE SIZE.  CERTAIN NON-CONNECT ROUTINES
/               MOVED TO FACILIATE CONNECT ROUTINE REORGANIZATION. 

/       046     15-AUG-1989     CODE CLEANUP.                   CJL

/               ADDED NEW (NON-CONNECT) MODE COMMUNICATIONS ROUTINES FOR EVENTUAL
/               DECMATE USE.  ELIMINATION OF 'IREM' AND 'IREMW' ROUTINES IN FAVOR
/               OF 'COMIN'.   ELIMINATION  OF 'OREM' IN FAVOR OF 'COMOUT'.  ADDED
/               STATUS UPDATE ROUTINE ('UPSTATUS')  FOR EVENTUAL DECMATE II, ETC.
/               USAGE.  ELIMINATED PDP-8, DECMATE  I,  DECMATE  II  CONDITIONALS.
/               REORGANIZED  SERIAL  LINE  CONDITIONALS  AND ADDED  NEW  'SPRINT'
/               PARAMETER FOR SERIAL PRINTER  PORT  USAGE AS COMMUNICATIONS PORT.
/               ADDED ONCE-ONLY CODE ADDED TO  AUTOMATICALLY  RECOGNIZE DECMATE I
/               AND II OPERATION UNLESS ASSEMBLED FOR  REMOTE  COMMUNICATIONS  ON
/               SERIAL  PRINTER  PORT  ('SPRINT'  SET).   UPDATED  K12PCH.PAL  TO
/               CORRESPOND   TO  NEW  DEFINITIONS.    DEFINED  EVENTUALLY  NEEDED
/               COMMUNICATIONS PORT  INSTRUCTIONS FOR DECMATE II;  ACTUAL DECMATE
/               II OPERATION WILL  BE  DEFINED  IN A SUBSEQUENT EDIT.  DOCUMENTED
/               NEW LOADING AND SAVING  INSTRUCTIONS  FOR  K12MIT  TO  ALLOW  FOR
/               ONCE-ONLY CODE IN 10000-11777 WITHOUT  SWAPPING  THE CODE OUT FOR
/               THE USR.  THIS ELIMINATES OVERHEAD  WHEN  LOADING  K12MIT, BUT IS
/               DIFFERENT  FROM  THE FORMER INSTRUCTIONS WHICH ASSUMED  NO  OTHER
/               USAGE OF 10000-11777 OTHER THAN THE (LOCKED-IN) USR.

/       THIS EDIT  PROVIDES THE FRAMEWORK FOR AUTOMATIC DETECTION OF PROGRAM EXECUTION
/       OF K12MIT ON  ANY  MEMBER  OF  THE  DECMATE  FAMILY  (I, II, III, III+).  WHEN
/       6120-TYPE CPU DETECTION OCCURS,  THE  DECMATE I OR II-TYPE COMMUNICATIONS PORT
/       INITIALIZE CODE IS AUTOMATICALLY SELECTED  AS  NECESSARY UNLESS THE PDP-8-TYPE
/       ROUTINES ARE ASSEMBLED (WITH 'SPRINT' SET  OR  EQUIVALENT USER SETTINGS, ETC.)
/       FOR THE VT-78-TYPE PRINTER PORT (32/33), IN  WHICH  CASE THE COMMUNICATIONS IS
/       DONE VIA THE PRINTER PORT ON THE DECMATE (WHICH IS ALMOST PDP-8 COMPATIBLE AND
/       IS ACCOMODATED AS SUCH).

/       SUBSEQUENT EDITS SHOULD PROVIDE FOR A DECMATE I PARAMETER TO CONTROL  THE PORT
/       SELECTION,  AS  THERE  ARE  AT  LEAST  TWO VARIANT OPTIONS BOARDS (DP-278A AND
/       DP-278B) EACH CONSISTING OF TWO PORTS.
\f/      045     12-AUG-1989     BUG FIX.                        CJL

/               FINISH,  GET,  AND  RECEIVE  COMMANDS   FAIL  TO  ABORT  PROPERLY
/               (ESPECIALLY AFTER THE SEND COMMAND HAS BEEN USED), AS THE CURRENT
/               OPERATING MODE ('KMODE') IS NEVER PROPERLY SET,  OR  IS SET AFTER
/               SEVERAL PACKETS HAVE BEEN SENT.  EACH COMMAND  NOW  SETS  ITS OWN
/               OPERATING MODE BEFORE INITIATING ANY PACKETS.

/       044     11-AUG-1989     CODE CLEANUP.                   CJL

/               CHANGED  'CCMSG'  TO  'ABMSG'  WITH  CLEARER  MESSAGE.    CHANGED
/               'CCFLAG'  TO  'ABFLAG' FOR CONSISTENCY.  CHANGED ABORT  CHARACTER
/               FROM <^C> TO CHOICE OF <^X> OR <^Z> FOR  CONSISTENCY.  ELIMINATED
/               'ITTY'  AND  'ITTYW'  ROUTINES  BY  USING  'CTLCTST'  AND 'INPUT'
/               ROUTINES ALREADY  AVAILABLE  A/O EDIT 043.  ELIMINATED 'TCHAR' IN
/               FAVOR OF 'INCHAR' AVAILABLE A/O EDIT 043.

/       043     07-AUG-1989     CODE CLEANUP, ETC.              CJL

/               REWRITE OF  CONSOLE SUPPORT ROUTINES INCLUDING FORCED-ECHO OUTPUT
/               AND COLUMN COUNT FOR <HT> SIMULATION IN PREPARATION FOR IMPENDING
/               USER-INTERFACE  REWRITE.     'SCRIBE',  'LININP',  AND  'ESCPRNT'
/               ROUTINES NOW CALL  "P7ECHO" ROUTINE TO ENSURE PRINTING OF CRUCIAL
/               MESSAGES.

/       042     13-JUN-1989     CODE CLEANUP.                   CJL

/               FIXED VARIOUS NAK-RELATED BUGS AND SEND-INIT PROBLEMS AS IN  K278
/               (SOME  OF  THE K278 STUFF IS DEFICIENT!).  CALCULATION OF  PROPER
/               SEQUENCE  NUMBER  FOR NAK CORRECTED OVER FORMER (K08MIT AND K278)
/               VERSIONS.  ADDED ERROR MESSAGE FOR FULL-DISK PROBLEM.

/       041     12-MAY-1989     BUG FIX.                        CJL

/               VARIOUS  VERSIONS  (DECMATE)  WON'T  FUNCTION REMOTELY WHILE KL-8
/               VERSIONS WORK  FINE.    ADDED  REMOTE LINE READ IOT TO INITIALIZE
/               REMOTE  LINE  AT   STARTUP  TIME  FOR  VERSIONS  REQUIRING  THIS.
/               CORRESPONDING CHANGES IN PATCH FILE MADE FOR REMOTE LINE READ IOT
/               IN TWO PLACES.
\f/      040     07-MAR-1989     COSMETIC CLEANUP.               CJL

/               CLEANUP OF EDIT HISTORY AND OTHER COMMENTS.

/       039     21-MAY-1988     CODE CLEANUP.                   CJL

/               ADDED VARIABLE 'INIECHO' TO  ALLOW  DEFAULT CONNECT-MODE STATE TO
/               BE HALF-DUPLEX ("SET LOCAL-ECHO ON").    MODIFIED  INPUT  SERVICE
/               ERROR ADDRESSES TO SIMPLIFY ERROR TABLES.

/       038     19-MAY-1988     CODE CLEANUP.                   CJL

/               ELIMINATED  TRAILER FILES DURING ASSEMBLY BY  CREATING  VARIABLES
/               'GENMSG' AND 'UMSG.' THIS ALLOWS THE HEADER  FILE  (PARAM.PA)  TO
/               CONTAIN THE LOCAL MESSAGE TEXT WITHOUT SUBSEQUENT OVERLAY  (WHICH
/               WAS WHY THERE FORMERLY WAS A TRAILER FILE CAPABILITY).    OVERLAY
/               BY  K12PCH.BN  WILL  DEFAULT TO CREATION OF A DUMMY USER  MESSAGE
/               (WITHIN K12PCH) ENCOURAGING LOCAL  CUSTOMIZATION.  K12MIT.BN WILL
/               CONTAIN A NULL MESSAGE BY DEFAULT UNLESS CUSTOMIZED IN PARAM.PA.

/       037     21-JAN-1988     BUG FIX.                        CJL

/               RESET OS/8 DEVICE CONTROL WORD  TABLE TO DELETE TENTATIVE FILE IN
/               CASE OF PRIOR INPUT SERVICE ERROR.

/       036     20-JAN-1988     BUG FIX.                        CJL

/               RESET 'OFFLG' WHEN DOING INPUT SERVICE IN CASE PRIOR ERRORS LEAVE
/               THE FLAG SET.

/       035     14-JAN-1988     USR RESIDENT CODING.            CJL

/               CALLS TO USR NOW USE 10200 INSTEAD  OF  17700.   NO SWAP OVERHEAD
/               WHEN OPENING OR CLOSING FILES.

/       034     13-JAN-1988     CODE CLEANUP.                   CJL

/               ALL  EIGHT-BIT  ORIENTED  CONSOLE  CODE ELIMINATED;  NOW  IGNORES
/               PARITY (JUST SEVEN BITS).

/       033     12-JAN-1988     CODE CLEANUP.                   CJL

/               'TTYOUT' AND 'OTTY' ROUTINES ELIMINATED;  NOW USES 'P7CH' FOR ALL
/               CONSOLE OUTPUT (EXCEPT FOR CONNECT MODE).

/       032     12-JAN-1988     CODE CLEANUP.                   CJL

/               VARIOUS  ROUTINES REWRITTEN TO ELIMINATE DEPENDENCIES ON CPU TYPE
/               BEYOND THE CLASSIC PDP-8.
\f/      031     11-JAN-1988     CODE CLEANUP.                   CJL

/               ELIMINATED 'RTDISP'  AND  CHANGED CALLING CONVENTION FOR DISPATCH
/               ROUTINE.  ALL  CALLERS  NOW  LOCAL  OR VIA LOCAL POINTERS.  ADDED
/               SEVERAL  CONDITIONAL  PARAMETERS  AND    LABELS  FOR  BENEFIT  OF
/               K12PCH.PAL.

/       030     05-JAN-1988     CODE CLEANUP.                   CJL

/               CHANGED LOWER/UPPER CASE CONDITIONAL ASSEMBLY PARAMETERS AND MORE
/               EFFICIENT CODE.

/       029     21-DEC-1987     CODE CLEANUP.                   CJL

/               CHANGED CALLING CONVENTIONS FOR 'SCRIBE' AND SIMILAR ROUTINES AND
/               REWROTE 'COMMAND' ROUTINE.

/       028     15-DEC-1987     CODE CLEANUP.                   CJL

/               COMPLETE REWRITE OF FILE LOOKUP ROUTINE.   'LUKUP' NOW USES FIELD
/               ONE  BUFFER  AND  ITS OWN AUTO-INDEX REGISTER CONSERVING  PROGRAM
/               SPACE.

/       027     05-DEC-1987     CODE CLEANUP.                   CJL

/               CHANGED  DISPATCH  ('DISPA0') ROUTINE TO USE 'SRCHTABLE' ROUTINE.
/               ALL CALLS  MADE COMPATIBLE.  ELIMINATED 'SCANC' CODE.  ELIMINATED
/               CODE WITHIN 'DPARS'  ROUTINE.    'LUKUP' ROUTINE NOW DOES ITS OWN
/               DISK I/O.  ELIMINATED 'BLKIN' ROUTINE.

/       026     27-NOV-1987     NEW CONNECT MODE CODE.          CJL

/               TOTAL  REWRITE  OF ALL CONNECT MODE CONSOLE AND REMOTE INPUT  AND
/               OUTPUT  TERMINAL  ROUTINES.  CONNECT IS NOW FULLY BUFFERED IN ALL
/               DIRECTIONS.   IF  FLOW  CONTROL  IS  OBEYED, ANY BAUD RATE CAN BE
/               ACCOMODATED BOTH LOCALLY  AND  REMOTE  (UP  TO  9600 BAUD TESTED,
/               SHOULD WORK TO AT  LEAST  19200 BAUD BY INSPECTION).  TESTED WITH
/               FAST VT-100 EMULATOR CONSOLE TO  PROVE  ESCAPE  SEQUENCES ARE NOT
/               DROPPED WHEN LOCAL TERMINAL IS FASTER  THAN REMOTE LINE.  LIMITED
/               USE OF SUBROUTINES TO IMPROVE HIGH BAUD  RATE  OPERATION.   ADDED
/               TABLE-DRIVEN ERROR EXITROUTINE FOR SEND ROUTINES.

/       THIS EDIT PROVIDES  FULLY  BUFFERED  INPUT/OUTPUT  ROUTINES FOR BOTH LOCAL AND
/       REMOTE PORTS.  NO  INTERRUPTS  ARE  USED  FOR  MAXIMUM COMPATIBILITY WITH OS/8
/       DEVICES (SOME OF WHICH ARE  INTOLERANT OF INTERRUPTS, SUCH AS TD-8/E).  REMOTE
/       FLOW CONTROL (IF ENABLED) WILL SIGNAL BUFFER FILLING VIA <DC3> WHEN THE BUFFER
/       IS 3/4 FULL.  WHEN THE BUFFER  REACHES 1/4 FULL, THE REMOTE WILL BE SENT <DC1>
/       TO ALLOW FURTHER OUTPUT.  REMOTE FLOW CONTROL IS SUPPORTED IN BOTH DIRECTIONS;
/       LOCAL FLOW CONTROL IS FROM THE KEYBOARD ONLY.

/       WHILE THE CONSOLE OUTPUT IS PAUSED BY <DC3>, THE  BUFFER WILL FILL WITH OUTPUT
/       CHARACTERS.  WHEN THE USER RELEASES THE CONSOLE WITH <DC1>,  THE  BUFFER  WILL
/       RAPIDLY  EMPTY  (ASSUMING THE CONSOLE IS FASTER THAN THE REMOTE LINE).    THIS
/       ALLOWS THE USER TO PAUSE THE CONSOLE WITHOUT BACKING UP THE REMOTE  LINE UP TO
/       THE LIMITS OF BOTH LOCAL OUTPUT AND REMOTE INPUT BUFFERS.
\f/      025     24-NOV-1987     NEW FEATURES AND CODE CLEANUP.  CJL

/               PROPER  INTERRUPT  SETUP  FOR  <^C> AND <^P>, ECHO  STATE.    ALL
/               MESSAGES  IN  NEW  FORMAT,  (SOME NEW ONES HAVE BETTER  CONTENT).
/               ELIMINATED  'PRI6B' AND 'REM6B' ROUTINES.  NEW AND IMPROVED INPUT
/               SERVICE ERROR  CODE  MOVED  TO  PROPER  PAGE.    REWROTE  CONNECT
/               ROUTINES TO ALLOW  NON-INTERRUPT BUFFERED I/O LATER.  CREATED NEW
/               VARIABLE 'ESCHAR' AND PARAMETER  'ESCAPE'  TO  SET DEFAULT ESCAPE
/               CHARACTER.  ESCAPE CHARACTER CAN BE CHANGED IN MEMORY AND WILL BE
/               USED  CORRECTLY  BY ALL ROUTINES.   ADDED  'ESCPRNT'  ROUTINE  TO
/               HANDLE  ALL  CASES  (INCLUDING NON-CONTROL CHARACTERS).   DEFAULT
/               ESCAPE  PARAMETER  VALUE  COMPATIBLE  WITH K08V2, BUT IS  A  USER
/               PARAMETER,  CONFIGURED  AS  OTHER PARAMETERS DEFINED IN EDIT 017.
/               CREATED  ESCAPE FUNCTION TABLE FOR EXPANSION LATER.  NOW SUPPORTS
/               ESCAPE C(LOSE)  IN  UPPER  OR LOWER CASE, ESCAPE ESCAPE (SEND ONE
/               ESCAPE CHARACTER).   ALL  BAD  ESCAPE  COMMANDS  WILL ISSUE <BEL>
/               CHARACTER TO WARN USER  THAT COMMAND IS ILLEGAL AND OTHERWISE WAS
/               IGNORED.  CREATED NEW VARIABLE  'ECHOFLAG' TO ALLOW LOCAL ECHO IN
/               CONNECT MODE.

/       024     19-NOV-1987     NEW FEATURES.                   CJL

/               NEW  STARTUP MESSAGES AND HELP METHOD  VIA  COMMAND.    CPU  TYPE
/               IDENTIFICATION TO ALLOW FUTURE VERSIONS TO CHECK  FOR  QUIRKS AND
/               MODEL DEPENDENCIES.  THE DEFAULT PROMPT REFLECTS THE  ACTUAL  CPU
/               TYPE (THUS "KERMIT-12>" ON PDP-12).  VERSION, REVISION, AND  DATE
/               NOW EQUATED SYMBOLS.

/       023     18-NOV-1987     NEW CONSOLE I/O PACKAGE.        CJL

/               NEW  CONSOLE  I/O  ROUTINES  WITH  DC1/DC3  SUPPORT  FOR  CONSOLE
/               TERMINAL MESSAGES NOT ASSOCIATED WITH ANY REMOTE ACTIVITY (NOT TO
/               BE USED DURING CONNECT MODE).  USES FIELD ONE FOR MESSAGE TEXT TO
/               ALLOW FOR MORE PROGRAM  SPACE.    THE  MESSAGES  ARE NOW GIVEN IN
/               UPPER/LOWER SIXBIT FORMAT.  SUPPORT  FOR <^P> RESTART AND <^O> TO
/               FLIP  ECHO.  UPPER-CASE CAN BE  FORCED  BY  CHANGING  A  VARIABLE
/               ('UPONLY').

/       022     17-NOV-1987     BUG FIX.                        CJL

/               EXTRA-LONG INIT PACKETS CORRUPTING PROGRAM;  NOW  CHECKS  FOR AND
/               IGNORES EXTRA CAPABILITIES BEYOND 'CAPAS' BYTE.
\f/      021     17-NOV-1987     CODE CLEANUP.                   CJL

/               REWROTE  TENTATIVE OUTPUT FILE LENGTH CODE FOR MORE  CONSISTENCY.
/               RENAMED "FINISH" COMMAND CORRECTLY (FORMERLY "BYE").

/       FORMER  CODE  REGARDING  THE  TENTATIVE  FILE  MAXIMUM  LENGTH WAS  ACCEPTABLY
/       ORGANIZED  FOR  ORIGINAL  PS/8, OS/8 CONVENTIONS.  WITH THE EVOLUTION  OF  THE
/       OPERATING  SYSTEM  INTO  OS/78  (VERSIONS  1-4) AND OS/278 (VERSIONS 1-2), THE
/       ENTER OPERATION HAS BEEN CHANGED WITH DANGEROUS CONSEQUENCES.

/       THE  ORIGINAL DEFINITION OF THE LENGTH RETURNED BY ENTER IS THE ACTUAL  LENGTH
/       OF  THE LARGEST EMPTY (IN TWO'S COMPLEMENT FORM).  IF RECORD 7777 IS  PART  OF
/       THE  ACTUAL  LARGEST  EMPTY (FULL SIZE DEVICE AND THE LARGEST EMPTY IS LAST ON
/       THE  DEVICE),  THEN  THE  LENGTH RETURNED IS ONE LESS (THIS IS A LONG STANDING
/       BUG).  SINCE THERE IS NO STRAIGHT-FORWARD WAY TO DETERMINE THIS, THE LENGTH IS
/       ASSUMED TO BE CORRECT.

/       TESTS WITH THE  DECUS  VERSION  OF  OS/278 (DM-101) REVEAL A DANGEROUS CHANGE:
/       THE LENGTH RETURNED IS TWO LARGER THAN ACTUALLY EXISTS!

/       TO COUNTERACT THIS, EDIT  010  INSERTED  A  DECREMENT  OF  TWO INTO THE LENGTH
/       BEFORE PASSING IT BACK TO  THE  KERMIT FILE WRITING ROUTINE.  THE FILE WRITING
/       ROUTINE THEN ADDS ONE TO THE LENGTH TO CREATE A "DANGER COUNT", I.E., IN TWO'S
/       COMPLEMENT  NOTATION,  THIS IS THE AMOUNT THAT  WILL  INDICATE  FILE  OVERFLOW
/       SHOULD IT REACH ZERO.

/       THIS HAS NOW BEEN REORGANIZED TO ALLOW THE  ENTER  ROUTINE  TO  SET THE DANGER
/       COUNT  DIRECTLY.  OS/8 USERS MUST ALLOW FOR THE  EXTRA  ROOM  (WHICH  MUST  BE
/       PRESENT  BUT  WILL NOT BE USED), SINCE NO CHECK FOR  SYSTEM  VERSION  WILL  BE
/       PERFORMED.

/       020     16-NOV-1987     NEW ROUTINES AND CODE CLEANUP.  CJL

/               REWROTE  ENTIRE  OUTPUT  FILE    PACK   ROUTINE.    NOW  SUPPORTS
/               ASCII/BINARY  INTERNAL FILE MODE FOR  LATER  USE.    USES  OUTPUT
/               BUFFER IN FIELD ONE (SAME DEFINITIONS  AS  INPUT BUFFER) TO ALLOW
/               MORE PROGRAM SPACE.  END OF FILE  CONVENTION  IN  ASCII  MODE NOW
/               INCLUDES  ENSURING  <^Z>  CHARACTER  PACKED  INTO FILE (OR  NOT).
/               REWROTE  ENTIRE  OUTPUT  FILE  CLOSE  ROUTINE  TO  IMPLEMENT <^Z>
/               SCHEME.  ELIMINATED SEPARATE OUTPUT FILE INITIALIZE ROUTINE;  USE
/               SPECIAL ROUTINE CALL INSTEAD.  FIXED PACKET WRITE BUG.

/       019     15-NOV-1987     NEW ROUTINES AND CODE CLEANUP.  CJL

/               FIXED UNPACK <^Z> BUG.  REWROTE ENTIRE INPUT FILE UNPACK ROUTINE.
/               NOW SUPPORTS ASCII/BINARY INTERNAL FILE MODE FOR LATER USE.  USES
/               INPUT BUFFER IN FIELD ONE TO ALLOW  MORE  PROGRAM  SPACE.  BUFFER
/               FIELD DEFINED VIA SYMBOLS TO ALLOW CHANGES IN THE FUTURE.  END OF
/               FILE CONVENTION IN ASCII MODE NOW INCLUDES SENDING <^Z> CHARACTER
/               OR  NOT.  ELIMINATED SEPARATE INPUT FILE INITIALIZE ROUTINE;  USE
/               SPECIAL ROUTINE CALL INSTEAD.

/       018     09-NOV-1987     BUG FIX AND CODE CLEANUP.       CJL

/               FIXED RECEIVE BUG; NOW ALLOW DEV: ON RECEIVE.
\f/      017     05-NOV-1987     NEW FEATURES.                   CJL

/               CONDITIONAL ASSEMBLY  PARAMETERS  ADDED  FOR MACHINE TYPE (PDP-8,
/               DECMATE I, DECMATE  II/III/III+),  REMOTE LINE AND LOCAL TERMINAL
/               INTERFACE DEFINITIONS.

/       016     05-NOV-1987     CODE CLEANUP.                   CJL

/               OPTIMIZATION OF CODE, LITERALS, CONSTANTS.

/       015     04-NOV-1987     BUG FIX.                        CJL

/               INPUT SERVICE ROUTINE ERROR  DOES JMP INSTEAD OF JMS WHEN CALLING
/               COMMON ERROR HANDLER.

/       014     02-NOV-1987     SOURCE FILE CLEANUP.            CJL

/               SOURCE FILE COSMETICALLY CLEANED UP  AND  RENAMED  TO  K12MIT.PAL
/               WHICH CONFORMS WITH CUCCA NAMING CONVENTION.    NO  ACTUAL BINARY
/               CODE CHANGES BEYOND K08V2.  THIS EDIT  HISTORY  ADDED.    ENTRIES
/               PRIOR TO 014 TRANSCRIBED BY CJL.

/       SINCE THE PDP-12 (AND OTHER 12-BIT DEC MACHINES)  IS  THE INTENDED ENVIRONMENT
/       FOR THIS PROGRAM, IT IS NOW KNOWN AS KERMIT-12.

/       ASSEMBLING  THE  SOURCE FILE PRODUCES BINARY IDENTICAL TO K08V2.PA  CONFIRMING
/       THAT SOURCE CLEANUP DOESN'T DAMAGE THE CODING (K08V2 IS NOW OBSOLETE).

/       013     01-OCT-1987     CHANGE TO VERSION 2.0.          R. SCHLERF (RICH)

/               CHANGED  'RKIOT'/'RTIOT'    TO   43/44  REMOTE  LINE  IOT  (LOCAL
/               PREFERENCE).  CHANGED  'ESCAPE'  CHARACTER  TO  ^]  ('CONX1') FOR
/               GENERIC CONFORMITY.  ADDED  VERSION/COMMAND BANNER AT STARTUP FOR
/               MINI-HELP.    INCORPORATED  K278  CHANGES  003-006,  009-010  (NO
/               INTERRUPTS).  DELETED 'ERRMSG.' NOW USES  'STXERR'  AT 'CLOOP9'+2
/               FOR PROGRAM SPACE.  TO CONFORM TO  GENERIC KERMIT, "BACK ON PDP8"
/               MESSAGE  DELETED AND REPLACED WITH BEEP <^G>.   MESSAGE  "SENDING
/               FILE  XXXXXX.XX  CREATED  ON  DD-MM-YY"  REDUCED TO "SENDING FILE
/               XXXXXX.XX"  TO CONFORM TO GENERIC KERMIT.  PARITY BIT IS  IGNORED
/               ON BOTH REMOTE AND TTY LINES.  OUTPUT PARITY IS SET TO SPACE.

/       PROGRAM RENAMED TO K08V2.PA AND MADE AVAILABLE TO CUCCA BY:

/       RICHARD SCHLERF (RICH)
/       AMERICAN CYANAMID COMPANY
/       MEDICAL RESEARCH DIVISION
/       LEDERLE LABORATORIES
/       BUILDING 190 ROOM 115H
/       PEARL RIVER, NEW YORK  10965
/       (914) 732-2186 (09:00 TO 16:00)

/       SINCE  PRIMARY APPLICATION OF K08V2 IS FOR PDP-8 USAGE, THE MODIFICATIONS  NOT
/       SPECIFIC TO DECMATE II/III FROM K278 WERE MOVED TO THE K08MIT VERSION.  FUTURE
/       VERSIONS WILL  INCORPORATE  THE  DECMATE  FEATURES AND THUS OBSOLETE ALL OTHER
/       VERSIONS AT THAT TIME.
\f/      012     04-JUN-1986     PROGRAM FIX.                    SEPP STADELMANN (SSTA)

/               RE-INITIALIZE VIA 'V30ST' AS ROM SETUP CLEARS COMPOSETABLE, ETC.

/       04-JUN-1986 VERSION RELEASED  TO  CUCCA  BY  MARTYN HEMMINGS (DEC GERMANY) AND
/       SEPP STADELMANN (DEC SWITZERLAND) OF:

/       DIGITAL EQUIPMENT CORPORATION (DEC)
/       146 MAIN STREET
/       MAYNARD, MASS  01754
/       (617) 897-5111

/       CUCCA RENAMED FILES (KERMIT.PA AND KERCOM.PA) TO K278.PA AND K278COM.PA (WHICH
/       DOESN'T REALLY CONFORM TO THE NAMING CONVENTION).

/       CUCCA VERSION OF K278.PA FOUND TO BE DEFECTIVE.  FILE REPAIRED BY:

/       CHARLES LASNER (CJL)
/       CLA SYSTEMS
/       72-55 METROPOLITAN AVENUE
/       MIDDLE VILLAGE, NEW YORK  11379-2107
/       (718) 894-6499

/       REPAIRED FILE (K278.PA) NOW AVAILABLE AT CUCCA.

/       PROGRAM IS NOW  THE DECMATE II/III (III-PLUS) KERMIT ONLY.  HOOKS WERE LEFT IN
/       FOR PDP-8 VERSION, BUT  NOT  IMPLEMENTED.    K278  DOES  WORK  WITH ADDITIONAL
/       IMPLEMENTATIONS OF KERMIT, BUT RECEIVE  COMMAND DOES NOT WORK.  PROGRAM YIELDS
/       RECOVERABLE SYSTEM ERROR/HALT WHEN EXITING TO  FLOPPY-BASED DECMATE II SYSTEM.
/       CONNECT MODE IS VT200 8-BIT WHICH CONFUSES EVEN/ODD PARITY SYSTEMS.  K278 DOES
/       NOT SUPPORT SETUP KEY OF DECMATE, BUT IMPLEMENTS SETUP COMMAND.

/       011     04-JUN-1986     NEW FEATURES.                   SSTA

/               'PRQ3' CODE CONDITIONALS.  ROM SETUP COMMAND IMPLEMENTED FOR DMII/III.
/               AUTOMATIC UPPERCASE SELECT ON RETURN FROM CONNECT.

/       010     13-MAR-1986     BUG FIX.                        MARTYN HEMMINGS (MART)

/               FULL DISK HANDLED WELL.

/       009     13-MAR-1986     BUG FIX.                        MART

/               CLEAN UP BREAK AND GET.
\f/      008     12-MAR-1986     BUG FIX.                        MART

/               CLEAR  INPUT  CHARACTERS  FROM  COMMUNICATIONS PORT WHEN IN  IDLE
/               LOOP.

/       007     11-MAR-1986     NEW FEATURES AND BUG FIX.       MARTYN HEMMINGS AND
/                                                               SSEP STADELMANN
/                                                               (MART+SSTA)

/               INTERRUPT DRIVEN AND BUG FIX.

/       006     10-MAR-1986     NEW FEATURE.                    MART+SSTA

/               DEVICE PARSE ON GET.

/       005     10-MAR-1986     BUG FIX.                        MART+SSTA

/               NO DATE IN FILE WITH <^Z> INTACT.

/       004     10-MAR-1986     NEW FEATURES AND BUG FIX.       MART+SSTA

/               MAXIMUM  RECEIVE  BUFFER  FIXUP  ('RTERMI'),  15  SECOND TIME-OUT
/               DURING CONNECT.

/       003     10-MAR-1986     BUG FIX.                        SSTA

/               TWO PAGE HANDLER FIX.

/       K08MIT.PAL  COPIED  TO  DEC  ENGINEERING NETWORK (NODE LSMVAX::) ULTIMATELY TO
/       EUROPE (NODE VIRGIN::) WHERE PROGRAM BECAME KERMIT.PAL AND KERCOM.PAL.

/       KERMIT.PAL  AND KERCOM.PAL ARE TWO SOURCE FILES ASSEMBLED TOGETHER TO  PRODUCE
/       THE RUNNING KERMIT-8.  *THEY ARE FOR THE DECMATE II/III/III-PLUS ONLY.*

/       002     18-JUL-1985     ORIGINAL RELEASE.               RANDY HIPPE

/       18-JUL-1985 VERSION RELEASED TO CUCCA BY JERRY SANDS AND RANDY HIPPE OF:

/       BUREAU OF ENGRAVING, INC.
/       3311 BROADWAY N.E.
/       MINNEAPOLIS, MN  55413
/       (612) 623-0900 X218

/       CUCCA  RENAMED  FILE  (KER8.PAL)  TO  K08MIT.PAL  WHICH  CONFORMS  TO   NAMING
/       CONVENTION OF KERMIT FILES.

/       K08MIT SUPPORTS CONNECT, BYE (REALLY FIN), EXIT, SEND, GET, RECEIVE ONLY.

/       PROGRAM PRONE  TO  GETTING  "CONFUSED" AND OUTPUTS FILE DATE ATTRIBUTE BOTH AS
/       'CAPAS' BYTE FEATURE  AND  ASCII  TEXT INSERTED INTO CONTENTS OF FILE AHEAD OF
/       FILE DATA.  COMMAND PROCESSOR ACCEPTS UPPER-CASE COMPLETE COMMANDS ONLY.  <^C>
/       ABORT FEATURE TAKES VERY LONG TIME TO ACT (IF AT ALL!).  MANY KERMITS WILL NOT
/       WORK WITH K08MIT;  HOWEVER, K08MIT WAS TESTED SUCCESSFULLY WITH KERMIT-20.

/       001     30-JUL-1984     FIRST VERSION (KER8.PAL).       JERRY SANDS
\f/      HARDWARE HINTS AND KINKS.


/       KERMIT-12 REQUIRES THE FOLLOWING STANDARD OS/8 FAMILY CONFIGURATION:

/       PDP-8 FAMILY MEMBER WITH AT LEAST 8K MEMORY.

/       OS/8 SYSTEM DEVICE (WITH OS/8 FAMILY OPERATING SYSTEM RESIDENT).

/       KL8-COMPATIBLE CONSOLE INTERFACE.

/       7/8-BIT ASCII EXTERNAL CONSOLE TERMINAL DEVICE (TTY:).

/       KL8-COMPATIBLE REMOTE INTERFACE TO OTHER KERMIT.

/       NOTE:  ASSEMBLY  PARAMETERS  OF  KERMIT-12  ALLOW FOR LOCAL KERMIT CONTROLLING
/       TERMINALS TO BE OTHER  THAN  THE  PRIMARY  OS/8  CONSOLE  DEVICE.   THE ACTUAL
/       HARDWARE MUST STILL CONFORM TO  THE  SAME REQUIREMENTS (THE DEVICE CODES WOULD
/       THEN BE USER-SPECIFIED AND DIFFER FROM  THE  STANDARD  03/04)  AS THE STANDARD
/       CONSOLE INTERFACE AND TERMINAL.

/       SPECIAL DECMATE CONSIDERATIONS:

/       DECMATE  USAGE IS USUALLY OBTAINED BY  ASSEMBLING  FOR  THE  STANDARD  CONSOLE
/       DEVICE  (03/04),  AS  THE  BUILT-IN  FIRMWARE/SLUSHWARE  OF  THE  DECMATES  IS
/       SUFFICIENTLY COMPATIBLE WITH THE PDP-8 HARDWARE FOR KERMIT-12'S  REQUIREMENTS.
/       (THE ONLY OTHER ACCEPTABLE CONSOLE DEVICE ON THE DECMATE IS THE PRINTER PORT.)

/       DECMATE  REMOTE  COMMUNICATIONS  PORTS  ARE    *RADICALLY*    DIFFERENT   FROM
/       KL8-COMPATIBLE PORTS.  THESE ARE HANDLED AUTOMATICALLY BY ONCE-ONLY CODE WHICH
/       DETECTS  THE  USAGE  OF  KERMIT-12  ON  THE    SPECIFIC  DECMATE  SYSTEM,  AND
/       SELF-CONFIGURATION AS APPROPRIATE.  THERE IS ONE EXCEPTION  TO THIS, NAMELY IF
/       THE COMMUNICATIONS PORT CODE IS ASSEMBLED FOR THE PRINTER  PORT  (32/33), THEN
/       THE PRINTER PORT, *NOT* THE COMMUNICATIONS PORT WILL BE USED.    THE  STANDARD
/       ASSEMBLY  OF  KERMIT-12 IS FOR A PDP-8 WITH DEVICE 40/41 COMMUNICATIONS  PORT.
/       THIS DESIGNATED VERSION WILL SELF-CONFIGURE WHEN EXECUTED ON A DECMATE.
\f/      CONFIGURATION RESTRICTIONS:

/       WHEN  INTERRUPTS  ARE SUPPORTED AGAIN, DEVICES SUCH AS THE TD-8/E WON'T  WORK.
/       THE  NON-INTERRUPT  VERSION  SHOULD WORK TO 19200 BAUD ON THE PDP-8/E CPU,  SO
/       THIS  SHOULD NOT BE A PROBLEM.  INTERRUPT-DRIVEN VERSIONS OF KERMIT-12 MUST BE
/       RUN ONLY  ON  SYSTEMS  WHERE  *ALL*  INTENDED  DEVICES CAN HAVE THEIR HANDLERS
/       INTERRUPTED BY THE CONSOLE AND REMOTE LINE INTERRUPT HANDLERS.  WHEN IN DOUBT,
/       THE NON-INTERRUPT VERSION MUST BE USED (CURRENTLY THE ONLY VERSION).

/       IF FLOW CONTROL IS  DISABLED  (DUE  TO  XON/XOFF  BEING  UNAVAILABLE) THEN THE
/       CONSOLE BAUD RATE MUST MEET  OR  EXCEED  THE  REMOTE LINE RATE.  THE USER MUST
/       TAKE MINIMAL CARE NOT TO OVERLOAD  THE  INTERNAL BUFFERS OF KERMIT-12, AS THIS
/       WILL YIELD THE ERROR MESSAGE:  KEYBOARD INPUT ERROR!

/       THIS IS NOT LIKELY TO OCCUR UNLESS  ONE  "PLAYS"  WITH  A  KEYBOARD  WHICH CAN
/       GENERATE NUMEROUS ESCAPE SEQUENCES AS THE BUFFERS ARE  QUITE  ADEQUATE FOR ALL
/       REASONABLE TERMINAL APPLICATIONS.  SIMILARLY, IF THE REMOTE LINE DOES NOT OBEY
/       XON/XOFF  PROTOCOL  (WHILE  KERMIT-12  HAS  IT  ENABLED), THEN INTERNAL BUFFER
/       OVERFLOW WILL YIELD THE ERROR MESSAGE:  REMOTE LINE INPUT ERROR!

/       THESE ERRORS ARE EXTREMELY UNLIKELY AND CAN ONLY BE CREATED BY  MISUSE OF FLOW
/       CONTROL (THE ONLY EXCEPTION TO THIS IS THE ATTEMPT TO USE KERMIT-12  WITH  THE
/       CONSOLE  BAUD  RATE  SLOWER  THAN  THE REMOTE LINE BAUD RATE WITH FLOW CONTROL
/       DISABLED).  IF FLOW CONTROL IS ENABLED AND OBEYED THEN THE BUFFERING OF REMOTE
/       LINE INPUT  WILL  OCCUR  WHILE SHORT PAUSES OCCUR ON THE CONSOLE (ASSUMING THE
/       USER FREEZES/UNFREEZES THE  DISPLAY OFTEN AND THE CONSOLE DISPLAY BAUD RATE IS
/       FASTER THAN THE REMOTE LINE BAUD RATE) WITH PRACTICALLY NO REMOTE LINE DELAY.

/       FLOW CONTROL IS NOT  YET  SUPPORTED  DURING KERMIT TRANSFERS.  SINCE KERMIT-12
/       DOES  NOT SUPPORT SLIDING WINDOWS,  KERMIT-12  WILL  NEVER  GENERATE  OUTGOING
/       XON/XOFF SEQUENCES.  FUTURE REVISIONS WILL  SUPPORT INCOMING XON/XOFF FROM THE
/       REMOTE KERMIT.  XON/XOFF PROTOCOL DURING CONNECT  MODE IS COMPLETELY AVAILABLE
/       AT THE USER'S OPTION.

/       CONSOLE TERMINALS ARE REQUIRED TO SUPPORT "GLASS TTY:"  FEATURES,  I.E.    THE
/       PRINTING ASCII CHARACTER SET (LOWER-CASE DESIRABLE) AND THE CONTROL CHARACTERS
/       <CR>, <LF>, AND <BEL> (THE LAST FOR VARIOUS AUDIBLE REPORTS  ONLY).  TERMINALS
/       LACKING LOWER-CASE  SUPPORT  SHOULD "FOLD" LOWER-CASE CHARACTERS TO UPPER-CASE
/       AUTOMATICALLY.  TERMINALS  SUCH  AS  THE VT05 CAN HAVE THE KEYBOARD LOWER-CASE
/       ENABLED, AS KERMIT-12 SUPPORTS  OPTIONAL  OUTPUT FOLDING.  THE UPPER-CASE ONLY
/       OPTION SHOULD BE ENABLED FOR  TERMINALS WHICH IGNORE LOWER-CASE INPUT FROM THE
/       HOST,  AS KERMIT-12 GENERATES NUMEROUS LOWER-CASE  MESSAGE  CHARACTERS  (WHICH
/       BECOME UPPER-CASE IF THIS OPTION IS SET).   THE <BS> CHARACTER IS REQUIRED FOR
/       VISUAL  RUBOUT  (<BS>  <SPACE>  <BS>)  ONLY.   FUTURE  VERSIONS  WILL  SUPPORT
/       HARD-COPY BACKSPACE TO REMOVE THIS REQUIREMENT.  ALL TERMINAL  FEATURES  (SUCH
/       AS ACTUAL VT-100 FUNCTIONALITY) ARE FREELY PASSED TO THE HOST  DURING  CONNECT
/       MODE;  THE ONLY CHARACTER ACTUALLY RESERVED IS THE ESCAPE CHARACTER WHICH WILL
/       BE  TREATED  AS  A SEVEN-BIT CHARACTER ONLY.  IF THE USER PRESSES  THE  ESCAPE
/       CHARACTER TWICE,  THEN  THE  SEVEN-BIT REPRESENTATION OF THE CHARACTER IS SENT
/       ONCE;  THERE  IS  NO  WAY  TO SEND THE ESCAPE CHARACTER WITH THE HIGH-BIT SET.
/       SINCE THE ESCAPE CHARACTER  ITSELF  CAN  BE SET TO ALMOST ANY SEVEN-BIT VALUE,
/       THIS SHOULD NOT BE A SERIOUS LIMITATION.  TERMINALS THAT DON'T "BEEP" WHEN THE
/       <BEL> CHARACTER IS SENT SHOULD NOT  OUTPUT  A  PRINTABLE RENDITION OF THE <^G>
/       CHARACTER, AS THIS WOULD DISRUPT THE TERMINAL OUTPUT AND INTERNAL COLUMN COUNT
/       DURING VARIOUS MESSAGE SEQUENCES, ETC.
\f/      KL-8/E INTERFACES SHOULD BE SETUP WITH THE FOLLOWING STANDARD SETTINGS:

/       1 STOP BIT ABOVE 110 BAUD WITH 8 BITS DATA.

/       FUNCTIONAL  BAUD RATES INCLUDE 110, 150, 300, 600,  1200,  2400,  4800,  9600,
/       19200, 38400 AND 76800.  2400 BAUD REQUIRES A  REVISION  "B"  OR  BETTER M8650
/       MODULE  (IF  ONE  USES  DEC'S  DOCUMENTATION  OF AVAILABLE SPLIT-LUG OPTIONS).
/       ACTUAL  BAUD  RATES  UP TO APPROXIMATELY 100 KBAUD SHOULD WORK WHEN  KERMIT-12
/       BECOMES  INTERRUPT-DRIVEN.    RATES  OTHER THAN 110 BAUD REQUIRE A 19.6608 MHZ
/       BAUD-RATE OSCILLATOR.

/       THE BAUD  RATES STATED ABOVE ARE ACTUALLY AVAILABLE ON THE KL-8/E, BUT REQUIRE
/       A SINGLE SOLDER  JUMPER  TO  IMPLEMENT  THE  PROPER BAUD RATE ABOVE 2400 BAUD.
/       CHANGING BAUD-RATE GENERATOR CRYSTALS  WILL  PRODUCE OTHER RATES AS NECESSARY.
/       (SEND INQUIRIES  TO CLA SYSTEMS FOR INFORMATION REGARDING KL-8/E MODIFICATIONS
/       INCLUDING UPGRADED BAUD-RATE  OSCILLATORS,  ETC.) KERMIT-12 HAS BEEN TESTED TO
/       9600 BAUD AND SHOULD WORK TO 19200 BAUD (AS OF THE CURRENT VERSION).


/       KL8-J/A INTERFACES SHOULD BE SETUP WITH THE FOLLOWING STANDARD SETTINGS:

/       1 STOP BIT ABOVE 110 BAUD WITH 8 BITS DATA NO PARITY.

/       FUTURE  VERSIONS  OF KERMIT-12 WILL SUPPORT VARIOUS SOFTWARE-GENERATED  PARITY
/       OPTIONS.  THE FRAMING AND OVERRUN ERRORS CAN BE ENABLED AND WILL EVENTUALLY BE
/       SUPPORTED (BUT THE PARITY GENERATOR SHOULD BE DISABLED TO PREVENT  INTERACTION
/       WITH THE SOFTWARE USE OF PARITY GENERATION/DETECTION).

/       ALL BAUD RATES ARE SUPPORTABLE:

/       110, 150, 300, 600, 1200, 2400, 4800, 9600, 19200.

/       19200 BAUD IS ACHIEVED BY CUTTING JUMPER "W2" AND ADDING JUMPER  "W5" AND THEN
/       SETTING THE BOARD FOR WHAT IS NORMALLY 9600 BAUD.  A WESTERN DIGITAL TR-1602-B
/       OR  EQUIVALENT  UART  IS  REQUIRED TO SUPPORT 19200 BAUD;  MOST OF THE  RECENT
/       PRODUCTION  DEC M8655 BOARDS USE THE SMC COMM 2017 UART WHICH MEETS OR EXCEEDS
/       THIS REQUIREMENT.   EARLY  M8655 BOARDS USE GI UARTS IN CERAMIC PACKAGES WHICH
/       *CANNOT* BE USED AT 19200 BAUD (MANY ARE FLAKY AT 9600 BAUD!).

/       RECEIVE BAUD RATE SHOULD  BE IDENTICAL TO TRANSMIT BAUD RATE.  (DO NOT SET THE
/       RECEIVE=150 BAUD SWITCH!)
\f/      OTHER INTERFACES:

/       DKC-8/A (8/A OPTION BOARD #1)  INTERFACES  SHOULD  BE SETUP AS PER THE KL8-J/A
/       SPECIFICATIONS INCLUDING THE REQUIREMENTS OF THE UART.  SOME DEC DOCUMENTATION
/       INDICATED A PROHIBITION ON THE USE OF  19200 BAUD, BUT THIS IS OBVIATED BY THE
/       USE OF THE SAME UARTS AS IN THE KL8-J/A.

/       EARLIER DEVICES SUCH AS PT08, DP-12, KL-8/F OR DC02 (CHANNEL ZERO ONLY) SHOULD
/       WORK CORRECTLY AS FACTORY WIRED (MOST OF THESE DEVICES  DO NOT SUPPORT OPTIONS
/       KERMIT-12  WOULD  REQUIRE  TO  BE  DISABLED  ANYWAY.    THESE  INCLUDE  PARITY
/       GENERATION,  FRAMING  ERROR  DETECTION,  ETC.).  TO UTILIZE THESE DEVICES, THE
/       ASSEMBLY PARAMETERS  FOR  USER DEVICES AND THEIR RESPECTIVE DEVICE CODE VALUES
/       SHOULD BE GIVEN  DURING  ASSEMBLY  (SEE ASSEMBLY INSTRUCTIONS).  PROPER DEVICE
/       CODE VALUES MUST BE  OBTAINED  FOR  THE  SELECTED INTERFACE, AS THERE ARE MANY
/       ACTUAL POSSIBILITIES.  (DP-12 DEVICES  ARE  GENERALLY DEVICE 40/41;  PT08/DC02
/       INTERFACES ARE GENERALLY DEVICE 11/12, ETC.)
\f/      ASSEMBLY INSTRUCTIONS.

/       KERMIT-12 CAN BE ASSEMBLED BY EITHER OF TWO METHODS:


/       P?S/8 METHOD:

/       ASSUMING THE EXTENDED-LENGTH FILE KERM12 IS  THE  SOURCE  FILE,  THE FOLLOWING
/       COMMAND WILL PRODUCE A FULLY ORNAMENTED LISTING:

/       .PAL KB1,KB2,KB3,KB4<KERM12(ACEJLMNPQSX8)

/       OPTION SWITCH BREAKDOWN:

/       /A      ALL SYMBOLS IN SYMBOL PRINTOUT.

/       /C      OPTIMIZE  CORE  DURING ASSEMBLY FOR MORE SYMBOLS,  LESS  BUFFERS.
/               THIS OPTION SHOULD BE DELETED IF MORE THAN  8K  IS  AVAILABLE FOR
/               ASSEMBLY.

/       /E      FORGET LITERAL BOUNDARIES WHEN LEAVING THE CURRENT PAGE.

/       /J      *DO NOT* TERMINATE TEXT STRINGS WITH EXTRA ZERO WORD.

/       /L      PERFORM SECOND-PASS LISTING.

/       /M      CHAIN TO MAP FOR BITMAP OUTPUT AT END OF ASSEMBLY.

/       /N      ENABLE NEATNESS ADORNMENTS TO LISTING OUTPUT.

/       /P      ENABLE PRINTER-ORIENTED (WIDE MODE) LISTING OUTPUT.

/       /Q      ENABLE LITERALS ONLY, GENERATED LINKS ARE ERRORS.

/       /S      ENABLE SYMBOL TABLE PRINTOUT.

/       /X      ENABLE CROSS-REFERENCE OUTPUT AT END OF ASSEMBLY.

/       /8      ENABLE FULL SYMBOL TABLE INCLUDING LINC MODE CROSS ASSEMBLY.

/       THE NUMBER OF BINARY FILES REQUIRED (KB1, KB2, KB3, ETC.) IS  TO BE DETERMINED
/       AT ASSEMBLY TIME, AS KERMIT-12 WILL TEND TO GROW LARGER AS FEATURES ARE ADDED.

/       P?S/8 PAL IS THE PREFERRED METHOD  OF ASSEMBLING K12MIT DURING DEVELOPMENT DUE
/       TO SUPERIOR ERROR DIAGNOSTICS AND OVERALL SPEED.   K12MIT COULD GROW TO A SIZE
/       BEYOND THE CAPABILITIES OF OS/8 CREF.  THIS  LIMITATION  CANNOT  APPLY  TO THE
/       P?S/8 DEVELOPMENT ENVIRONMENT.

/       P?S/8 PAL CAN PRODUCE A LISTING OF K12MIT, BUT THE BINARY FILES CREATED BY THE
/       ASSEMBLY  MUST BE TRANSFERRED TO AN OS/8 ENVIRONMENT FOR USE, SINCE K12MIT (AS
/       SPECIFICALLY WRITTEN) IS FOR THE OS/8 FAMILY OF SYSTEMS ONLY.

/       NOTE:  P?S/8 IS *NOT* A DEC PRODUCT;  IT IS SOLD COMMERCIALLY AND IS AVAILABLE
/       FREE  OF  CHARGE (EXCEPT FOR MEDIA HANDLING CHARGES, ETC.) *ONLY* TO QUALIFIED
/       INSTITUTIONS.  CONTACT CJL FOR ADDITIONAL INFORMATION ON ACQUIRING P?S/8.
\f/      OS/8 FAMILY OF SYSTEMS METHOD:

/       K12MIT.PA CAN BE ASSEMBLED WITH PAL8 VERSION B0 WHICH IS AVAILABLE FROM  DECUS
/       AS PART OF THE OS/278 RELEASE.  PAL8 VERSION B0 WILL RUN ON  ANY  OS/8  FAMILY
/       SYSTEM,  AS  IT  HAS  NO  HARDWARE  DEPENDENCIES  BEYOND  THE  ORIGINAL  PDP-8
/       REQUIREMENT (NO BSW OR IAC ROTATE OR CAF OR R3L INSTRUCTIONS AS WAS INTENDED).
/       THIS ALSO APPLIES TO CREF  VERSION B0 WHICH IS REQUIRED WHEN A CROSS-REFERENCE
/       IS REQUESTED.  PAL8 VERSION B0  AND  CREF  VERSION B0 ARE AVAILABLE AS PART OF
/       THE KERMIT-12 DISTRIBUTION AS K12PL8.ENC AND K12CRF.ENC RESPECTIVELY.  SEE THE
/       DOCUMENTATION OF K12DEC FOR INFORMATION ON PRODUCING PAL8.SV  AND CREF.SV FROM
/       THESE ENCODED FILES.

/       ASSUMING CCL IS ENABLED, THE FOLLOWING COMMAND WILL PRODUCE A BINARY AND FULLY
/       ORNAMENTED LISTING:

/       .PAL DEV:K12MIT.BN,DEV:K12MIT.LS,DEV:KSCR.TM<DEV:PARAM.PA,DEV:K12MIT.PA(CEFMW)

/       DEV:  IS THE APPLICABLE DEVICE WHERE THE FILES RESIDE.    STANDARD  EXTENSIONS
/       ARE  ASSUMED  (.BN  FOR  BINARY, .LS FOR LISTING, .PA FOR PAL  SOURCE).    THE
/       KSCR.TM  TEMPORARY  OUTPUT FILE SPECIFICATION IS OPTIONAL, BUT IS DEFAULTED TO
/       SYS:CREFLS.TM IF  NOT  EXPLICITLY GIVEN.  MANY SYSTEM DEVICES ARE TOO SMALL TO
/       SUPPORT THIS TEMPORARY  FILE,  THUS  THE  FILE  MAY  BE  DIRECTED  TO  ANOTHER
/       AVAILABLE DEVICE WITH SUFFICIENT SPACE.

/       THE PARAM.PA FILE IS OPTIONAL AND USED TO PASS SHORT USER PARAMETERS, ETC.  TO
/       THE ASSEMBLY.

/       OPTION SWITCH BREAKDOWN:

/       /C      CHAIN TO CREF.SV TO PRODUCE A CROSS-REFERENCED LISTING FILE.

/       /E      GENERATED LINKS ARE ERRORS.

/       /F      *DO NOT* TERMINATE TEXT STRINGS WITH EXTRA ZERO WORD.

/       /M      USE MAMMOTH SYMBOL TABLE OPTION FOR CREF.

/       /W      FORGET LITERAL BOUNDARIES WHEN LEAVING THE CURRENT PAGE.

/       LOADING INSTRUCTIONS:

/       .LOAD DEV:K12CLR,K12MIT.BN      THIS LOADS THE BINARY CLEAR AND KERMIT
/       .SAVE DEV K12MIT.SV=1           THIS SAVES THE CORE IMAGE

/       THE  JOB STATUS WORD (=1) INDICATED THAT K12MIT.SV LOADS INTO 10000-11777, BUT
/       SHOULD NOT BE SAVED/RESTORED  WHEN  THE  USR  IS  LOADED  OVER  THIS  AREA  OR
/       DISMISSED (THE USR IS ACTUALLY  NEVER  DISMISSED  IN NORMAL K12MIT OPERATION).
/       OTHER BITS MAY BE SET AT  THE  USER'S  OPTION,  BUT  ARE UNNECESSARY;  THE BIT
/       INDICATED SERVES ONLY TO REDUCE SYSTEM OVERHEAD  REGARDING  THE DISPOSITION OF
/       10000-11777.  THE  BINARY  FILE  K12CLR.BN  (CREATED  BY ASSEMBLING K12CLR.PA)
/       LOADS ZEROES INTO ALL  OF  MEMORY  TO  CREATE A "CLEAN" CORE IMAGE FILE, WHICH
/       MAKES THE ENCODED BINARY FILE SMALLER DUE TO REPEAT COMPRESSION.
\f/      PASSING SHORT PARAMETER FILES.

/       WHEN INSERTING A SHORT USER MODIFICATION FILE IN THE INPUT STREAM  (PARAM.PAL)
/       THE FOLLOWING SHOULD BE NOTED:

/       ALWAYS  PUT  THE  SHORT  PARAMETER  FILE  (CONTAINING EQUATED SYMBOLS SUCH  AS
/       USER=1, ETC.) IN FRONT OF K12MIT.PAL.

/       IF TTY:  IS USED FOR DIRECT TYPE-IN OF THESE  PARAMETERS, THE INFORMATION NEED
/       ONLY BE TYPED ENDING WITH <^Z> DURING PASS 1.  SUBSEQUENT  PASSES  REQUIRE THE
/       ENDING <^Z> ONLY.  IF THIS METHOD IS USED, A LISTING WITHOUT  THE  USER  INPUT
/       WHICH  DID THE CUSTOMIZING OF KERMIT-12 CAN BE CREATED.  NOTE:  IF  BINARY  IS
/       GENERATED BY THE CONTENTS OF THE PARAMETER FILE (SUCH AS USE OF THE LOCAL TEXT
/       MESSAGE,  ETC.),  THE  INFORMATION MUST BE TYPED IN DURING PASS 2.  THE PASS 3
/       LISTING MAY  CONTAIN  THE INFORMATION IF SO DESIRED, REQUIRING A REPETITION OF
/       THE INPUT.   PASS  1  INPUT  OF  THE INFORMATION IS EFFECTIVELY IGNORED, AS NO
/       DEFINITIONS ARE CREATED ('LCLMSG' IS DEFINED ELSEWHERE, ETC.).

/       EXPERIENCED PDP-8 USERS NEW TO PAL8 VERSION B0 TAKE SPECIAL NOTICE:

/       DUE TO HARDWARE LIMITATIONS OF THE DECMATES, THE KEYBOARD FLAG WILL BE CLEARED
/       DURING PDP-8 PAL8 B0 OPERATION.  THE KL8E TTY:  HANDLER WILL NO LONGER BE ABLE
/       TO BUFFER <^Z> DURING THE ASSEMBLY;  YOU MUST  WAIT UNTIL THE HANDLER ACCESSES
/       THE KEYBOARD ON EACH PASS *THEN* PRESS <^Z> TO CONTINUE THE ASSEMBLY.


/       CREATING A CUSTOM MESSAGE FROM THE PARAMETER FILE.

/       IF  SO  DESIRED,  A CUSTOM LOCAL HEADER MESSAGE MAY BE ADDED BY INSERTING  THE
/       FOLLOWING INTO THE PARAMETER FILE:

/       BUFFLD= 10              /THESE PROBABLY
/       FILBUFF=2000            /WON'T CHANGE!

/       GENMSG= 0               /DON'T GENERATE STANDARD (NULL) MESSAGE
/       UMSG=   0               /DON'T GENERATE STANDARD (DUMMY) USER MESSAGE

/       FIELD   BUFFLD%10       /FIELD FOR TEXT MESSAGE

/       *FILBUFFER              /LOCAL MESSAGE LOADS THERE

/LCLMSG,TEXT    "%^I^NSERT ^L^OCAL ^M^ESSAGE ^H^ERE!%"

/       ZBLOCK  LCLMSG+40-.     /ZERO REST OF MESSAGE AREA

/       TEXT IS IN  UPPER/LOWER-CASE  SIXBIT  WITH  '^'  MEANING SHIFT CASE (INITIALLY
/       LOWER-CASE) AND '%' MEANING <CR>, <LF>.
\f/      OTHER METHODS:

/       KERMIT-12  *CANNOT*  BE ASSEMBLED  BY  PAL10  (LAST  KNOWN  VERSION  OF  PDP-8
/       CROSS-ASSEMBLER FOR TOPS10 (142)) BECAUSE IT LACKS CERTAIN FEATURES:

/       DOES NOT SUPPORT 'RELOC' PSEUDO-OP.

/       DOES NOT SUPPORT PAGE ZERO  REDEFINE  (CAUSES  "Z" ERROR ON SOURCE FILES WHICH
/       DON'T HAVE ERRORS WHEN ASSEMBLED BY EITHER P?S/8 PAL OR OS/8 PAL8).

/       INCORRECTLY HANDLES 'ZBLOCK' PSEUDO-OP (LEADS TO  "Q"  ERROR  ON  SOURCE FILES
/       WHICH DON'T HAVE ERRORS WHEN ASSEMBLED BY EITHER P?S/8 PAL OR OS/8 PAL8).

/       DOES NOT SUPPORT LITERAL "FORGETTING" (P?S/8 PAL OPTION /E OR OS/8 PAL8 OPTION
/       /W) WHICH IS REQUIRED FOR DEFINING OVERLAY AREAS, ETC.

/       DOES NOT SUPPORT TEXT WITHOUT ZERO WORD FILL (P?S/8 PAL OPTION /J OR OS/8 PAL8
/       OPTION /F FULFILLS THIS REQUIREMENT) WHICH IS REQUIRED FOR TEXT MESSAGES.


/       P?S/8 PAL IS AN IMPROPER SUPERSET OF PAL10.  PAL10 SUPPORTS MACRO-8 MODE AS AN
/       OPTION AND AUTOMATIC FIELD DUMP BITMAPS;  ALL OTHER KNOWN PAL10 FEATURES EXIST
/       IN  P?S/8  PAL  INCLUDING  THE  SUPPORT  OF  THE  AUTOMATIC FIELD DUMP  BITMAP
/       PSEUDO-OPS ('ENBITS' AND 'NOBITS').

/       OS/8  PAL8 (VERSION B0) IS A SUBSET OF P?S/8 PAL WHICH HAS  SEVERAL  SYNTACTIC
/       QUIRKS (WHICH  ARE AVOIDABLE, BUT NONETHELESS ARE INCOMPATIBLE WITH BOTH P?S/8
/       PAL  AND  PAL10    IN  CERTAIN  MINOR  WAYS);    REGARDLESS,  PAL8  LACKS  THE
/       COMPATIBILITY PROBLEMS OF PAL10.

/       MAINTAINING SOURCE COMPATIBILITY.

/       KERMIT-12 SOURCE FILE CONVENTIONS DEMAND THE USE OF THE COMMON SUBSET OF P?S/8
/       PAL AND OS/8 PAL8 (VERSION  B0).    CERTAIN  FORMS  OF  STATEMENTS  SHOULD  BE
/       AVOIDED:

/       TAD                     /NOT LEGAL IN PAL8
/       0+TAD                   /NOT LEGAL IN PAL10, AND POSSIBLY WRONG IN PAL8
/       TAD     (3)+1           /GENERATES SAME AS "TAD (3+1)" IN PAL8
/       -A!-B                   /UNARY OPERATOR HANDLED WRONG IN PAL8
/       I+N                     /NOT LEGAL IN PAL8
/       N+I                     /NOT LEGAL IN PAL8
/       I I                     /NOT LEGAL IN PAL8

/       THIS  REQUIREMENT IS EASILY MET BY  KERMIT-12  AS  MOST  OF  THESE  CASES  ARE
/       ESOTERIC QUIRKS AND NOT NEEDED FOR THIS ASSEMBLY.

/       THE RESTRICTIONS OF PAL10 (EVEN THOUGH IT  HAS  OTHER DESIRABLE FEATURES, MOST
/       OF WHICH IT SHARES WITH P?S/8 PAL) ARE  TOO SEVERE TO ALLOW USABLE ASSEMBLY OF
/       THIS  PROGRAM.    BETTER  CROSS-ASSEMBLERS  MAY  EXIST  ELSEWHERE  WHICH   ARE
/       SOURCE-COMPATIBLE WITH KERMIT-12.
\f/      USE OF P?S/8 LANGUAGE EXTENSIONS.

/       P?S/8 OFFERS SEVERAL USEFUL FEATURES OVER PAL8 (AND PAL10) WHICH MAY BE USEFUL
/       FOR  ASSEMBLY  DEVELOPMENT OF KERMIT-12.  THESE INCLUDE LANGUAGE ELEMENTS SUCH
/       AS "TAD (3)+1" HANDLED CORRECTLY, OR PSEUDO-OPS SUCH AS "PAUSE EXPR" WHERE THE
/       VALUE OF 'EXPR'  WILL  BE  DISPLAYED ON THE SYSTEM CONSOLE DURING THE ASSEMBLY
/       WHEN THAT POINT IN  THE  ASSEMBLY  IS  REACHED.   TO ACCESS THESE FEATURES AND
/       STILL  PROVIDE COMPATIBILITY WITH PAL8  (VERSION  B0),  THE  FOLLOWING  CODING
/       TECHNIQUE IS SUGGESTED:


/       IFNDEF  PQS     <PQS=0> /WILL BE 0 ON PAL8, PAL10


/       IFZERO  PQS     <       /DO PAL8, ETC. STUFF HERE

/       FOO=    (TABLE)         /DEFINE POINTER TO ADDRESS OF TABLE

/       TAD     FOO-1           /GET (POINTER TO ADDRESS OF TABLE)-1
/       DCA     XR1             /SETUP AUTO-INDEX REGISTER

/       WISH WE HAD PAUSE AND ERROR PSEUDO-OPS IN PAL8.

/                       >       /END OF PAL8, ETC. VARIANT


/       IFNZRO  PQS     <       /DO P?S/8 PAL STUFF HERE

/       TAD     (TABLE)-1       /GET (POINTER TO ADDRESS OF TABLE)-1
/       DCA     XR1             /SETUP AUTO-INDEX REGISTER

/       IFNDEF  PASS    <PASS=0>/DEFINE PASS VARIABLE

/       PASS=   PASS+1          /BUMP EVERY ASSEMBLER PASS

/       PAUSE   PASS            /DISPLAY PASS NUMBER

/       IFNZRO  .&4000  <

/       ERROR   1234            /DISPLAY ERROR MESSAGE IF THERE ARE PROBLEMS

/                       >

/                       >       /END OF P?S/8 PAL VARIANT


/       THIS ALLOWS TEMPORARY DEVELOPMENT FEATURES OR  PERMANENT ELEMENTS WHICH MAY BE
/       MORE ELEGANTLY EXPRESSED IN P?S/8 PAL VARIANT  CODING, WHILE THE PAL8 (VERSION
/       B0) VERSION CAN STILL BE USED (VIA DIRECT  OCTAL,  MULTIPLE EQUATE STATEMENTS,
/       CONDITIONAL FLUSH AS IN THE ABOVE EXAMPLE, ETC.   AS  NECESSARY)  FOR STANDARD
/       ASSEMBLY OF KERMIT-12.
\f/      ASSEMBLY PARAMETERS.

/       SEVERAL  PARAMETERS  MUST  BE  CHANGED  WITHIN  K12MIT.PA  (OR  PASSED TO  THE
/       ASSEMBLER VIA A SHORT FILE INSERTED INTO THE ASSEMBLY STREAM BEFORE  THE  MAIN
/       FILE):

/       SETTING  KEY= [RECEIVE IOT CODE FOR  CONSOLE  KEYBOARD]  DEFINES  THE  CONSOLE
/       KEYBOARD IOT CODE (DEFAULT IS 03).

/       SETTING  TTY=  [TRANSMIT  IOT CODE FOR CONSOLE  OUTPUT]  CHANGES  THE  CONSOLE
/       PRINTER IOT CODE (DEFAULT IS 04).

/       THE FOLLOWING DEFINITIONS ARE  ESSENTIALLY  FOR  KL8-TYPE DEVICES ONLY, AS THE
/       CODE DEMANDS KL8 HARDWARE COMPATIBILITY.    MODELS  OTHER  THAN PDP-8 (SUCH AS
/       DECMATE) GENERALLY EITHER PLACE RESTRICTIONS ON  AVAILABLE  INTERFACES  (OTHER
/       SOFTWARE DESIGNATES A SERIAL INTERFACE AS A  LOGICAL  PRINTER  PORT;  DECMATES
/       SUPPORT A FIRMWARE "PRINT SCREEN" KEY WHICH ENFORCES  THIS.),  OR  DON'T ALLOW
/       USABLE PLUG-IN OPTIONS.

/       IGNORING BUILT-IN DECMATE SUPPORT, THE FOLLOWING PARAMETERS ARE ACTIVE:

/       SETTING DEV30=  1       CREATES DEVICE 30/31 REMOTE LINE IOTS.

/       SETTING DEV40=  1       CREATES DEVICE 40/41 REMOTE LINE IOTS.

/       SETTING LEDERLE=1       CREATES DEVICE 43/44  REMOTE  LINE  IOTS (AND A CUSTOM
/                               HEADER).

/       SETTING ORIGNAL=1       CREATES  DEVICE  33/34  REMOTE   LINE  IOTS  (ORIGINAL
/                               SETTINGS).

/       SETTING SPRINT= 1       CREATES DEVICE 32/33 REMOTE LINE  IOTS (SERIAL PRINTER
/                               PORT).

/       SETTING USER=   1       CREATES DEVICE XX/XY REMOTE LINE IOTS.

/       IF NONE OF THESE ARE SET, THEN DEV40=1 APPLIES BY DEFAULT.



/       SETTING USER=   1       REQUIRES THE USER TO DEFINE TWO ADDITIONAL VALUES:

/               XX=     [RECEIVE IOT DEVICE CODE] (DEFAULT IS 40).

/               XY=     [TRANSMIT IOT DEVICE CODE] (DEFAULT IS 41).
\f/      SETTING SPRINT= 1       INHIBITS THE BUILT-IN CHECK FOR DECMATE  OPERATION AND
/                               USES    THE    SERIAL  PRINTER  PORT  FOUND  ON    ALL
/                               WPS-8-CONFIGURED    PDP-8/E,  PDP-8/A  CONFIGURATIONS,
/                               VT-78,  AND  ALL DECMATES (VT-278,  DECMATE  II,  III,
/                               III+) FOR REMOTE COMMUNICATIONS.

/       THE  USE OF THE SERIAL PRINTER PORT FOR REMOTE COMMUNICATIONS PURPOSES MAY  BE
/       PROBLEMATIC DUE TO CONSIDERATIONS SUCH AS THE RS-232 CONNECTION TO THE PRINTER
/       IS A  MODEM  (DCE), RATHER THAN A TERMINAL (DTE) (DECMATE II, ETC.  REQUIRES A
/       GENDER CHANGER.), OR  THE SOFTWARE DESIGNATION OF THE PORT AS BEING ALLEDGEDLY
/       *ONLY* FOR A PRINTER,  SUCH AS WHEN CERTAIN SYSTEMS SUPPORT THE "PRINT SCREEN"
/       KEY AS A SCREEN DUMP  TO  THE  SERIAL PRINTER PORT, ETC.  THESE ISSUES ARE NOT
/       RELEVANT TO KERMIT-12 OPERATION, AS THE "PRINT SCREEN" KEY IS NOT SUPPORTED BY
/       KERMIT-12 IN THIS CONFIGURATION AS SUCH (FUTURE  VERSIONS  COULD  REDEFINE THE
/       "PRINT SCREEN" KEY TO SUCH FUNCTIONS AS DUMP SCREEN TO A FILE, ETC.).

/       SETTING BRATE= NN       SETS THE DEFAULT BAUD RATE (FOR  SYSTEMS  THAT SUPPORT
/                               THIS  FEATURE)  FROM  A  TABLE  OF  VALUES  (0-15)  AS
/                               FOLLOWS:

/                               NN              BAUD RATE

/                               00              50
/                               01              75
/                               02              110
/                               03              134.5
/                               04              150
/                               05              300
/                               06              600
/                               07              1200
/                               08              1800
/                               09              2000
/                               10              2400
/                               11              3600
/                               12              4800
/                               13              7200
/                               14              9600
/                               15              19200

/       SETTING ESCAPE= NNNN    SETS THE DEFAULT ESCAPE CHARACTER TO NNNN.

/       SETTING FLOW=   1       ENABLES FLOW-CONTROL BY DEFAULT.
/       SETTING FLOW=   0       DISABLES FLOW-CONTROL BY DEFAULT.

/       SETTING FMODE=  0177    SETS THE DEFAULT FILE MODE TO ASCII.
/       SETTING FMODE=  4377    SETS THE DEFAULT FILE MODE TO BINARY.
\f/      SETTING GENMSG= 0       CAUSES  NO  BINARY TO BE GENERATED WHERE  'LCLMSG'  IS
/                               DEFINED.  THIS ALLOWS THE PARAMETER FILE (PARAM.PA) OR
/                               SUBSEQUENT  OVERLAY  BY  K12PCH.BN TO DEFINE THE LOCAL
/                               HEADER MESSAGE.    THIS  PARAMETER  SHOULD  NOT BE SET
/                               UNLESS ONE OF  THESE  METHODS IS USED, ELSE THE HEADER
/                               MESSAGE  WILL BE UNDEFINED.    (NOTE:    IF  K12PCH.BN
/                               GENERATES  A HEADER MESSAGE, THEN  THIS  PARAMETER  IS
/                               UNIMPORTANT,  AS  K12PCH.BN  OVERLAYS  THE  BINARY  OF
/                               K12MIT.)
/       SETTING GENMSG= 1       CAUSES A HEADER MESSAGE TO BE GENERATED.  THE CONTENTS
/                               OF  THE  MESSAGE  ARE CREATED BY SETTING LEDERLE=1  OR
/                               UMSG=1.   IF EITHER IS ZERO, A DEFAULT (NULL)  MESSAGE
/                               WILL BE GENERATED.

/       SETTING ICLOSE= 1       ENSURES  A  <^Z>  AT  <EOF>  OF  ASCII  INPUT FILES BY
/                               DEFAULT.
/       SETTING ICLOSE= 0       CLOSES ASCII INPUT FILES AS RECEIVED BY DEFAULT.

/       SETTING INIECHO=0       CAUSES A  FULL-DUPLEX CONNECT MODE STATE WITH NO LOCAL
/                               CHARACTER ECHOING BY DEFAULT.
/       SETTING INIECHO=1       CAUSES A HALF-DUPLEX  CONNECT  MODE  STATE  WITH LOCAL
/                               ECHO OF ALL CONSOLE CHARACTERS BY DEFAULT.

/       SETTING LOWER=  0       ALLOWS LOWER-CASE CONSOLE OUTPUT BY DEFAULT.
/       SETTING LOWER=  -40     FOLDS  LOWER-CASE  CONSOLE  OUTPUT  TO  UPPER-CASE  BY
/                               DEFAULT.

/       SETTING OCLOSE= 0       PREVENTS DEFAULT SENDING OF <^Z>  AT  <EOF>  OF  ASCII
/                               FILES.
/       SETTING OCLOSE= 1       CAUSES  <^Z> TO BE SENT AT <EOF>  OF  ASCII  FILES  BY
/                               DEFAULT.

/       SETTING PORT=   0       CAUSES THE DP-278 PORT 0 TO BE USED  IF  KERMIT-12  IS
/                               RUN ON A DECMATE 1 (ASSUMING SPRINT=0).
/       SETTING PORT=   1       CAUSES  THE DP-278 PORT 1 TO BE USED IF  KERMIT-12  IS
/                               RUN ON A DECMATE 1 (ASSUMING SPRINT=0).

/       SETTING RETCNT= NNNN    SETS THE PACKET RETRY COUNT TO NNNN BY DEFAULT.
/       SETTING UMSG=   0       PREVENTS THE  LOCAL  USER  HEADER  MESSAGE  FROM BEING
/                               GENERATED.
/       SETTING UMSG=   1       CAUSES THE LOCAL  USER HEADER MESSAGE TO BE GENERATED.
/                               THE PARAMETER GENMSG=1 IS  REQUIRED  TO  BE  SET.  THE
/                               SOURCE MUST BE MODIFIED LOCALLY  TO CHANGE THE MESSAGE
/                               TEXT FROM "INSERT LOCAL USER MESSAGE  HERE!,"  AS THIS
/                               IS THE DEFAULT CONTENTS.
\f/      KERMIT-12 FOR THE FAMILY OF 12-BIT DEC MACHINES.

/       BRIEF USAGE DESCRIPTION.

/       KERMIT-12 IS AN IMPLEMENTATION OF THE KERMIT PROTOCOL FOR THE FAMILY OF 12-BIT
/       DEC (AND COMPATIBLE) MACHINES GENERALLY KNOWN AS PDP-8 OR DECMATE.

/       AS OF THE CURRENT IMPLEMENTATION, THE FOLLOWING COMMANDS ARE EFFECTIVE:

/       1.      CONNECT (TO REMOTE SYSTEM AS TERMINAL).

/       2.      SEND FILESPEC (TO REMOTE RECEIVER OR SERVER).

/       3.      RECEIVE FILESPEC (FROM REMOTE SENDER).

/       4.      GET FILESPEC (FROM REMOTE SERVER).

/       5.      FINISH (SERVING).

/       6.      SETUP (ON DECMATE II/III/III-PLUS ONLY). **** NOT IMPLEMENTED ****

/       7.      EXIT (TO OPERATING SYSTEM).

/       8.      HELP (DISPLAYS HELP MESSAGE).

/       FILESPEC  MAY  BE  ANY LOCAL (OS/8) FILE-STRUCTURED DEVICE:FILENAME.EXTENSION,
/       WHERE THE  FILENAME  AND  EXTENSION WILL BE TRUNCATED TO 6 ALPHANUMERICS AND 2
/       ALPHANUMERICS RESPECTIVELY, AS  NECESSARY (THIS IS REFERRED TO AS 6.2 FILENAME
/       FORMAT).  THE DEVICE:    FIELD  IS  OPTIONAL;   ALL COMMANDS USING THE DEVICE:
/       FIELD FOR LOCAL DEVICE SPECIFICATION  WILL  USE  THIS  DEVICE AS THE SOURCE OR
/       DESTINATION AS NECESSARY FOR THE LOCAL  FILES.    IF  THE  DEVICE:    FIELD IS
/       OMITTED, THE DEFAULT DEVICE DSK:  WILL BE USED.  THE ACTUAL DEVICE USED MAY BE
/       SELECTED BEFORE INVOKING KERMIT-12 BY USING THE OS/8 ASSIGN COMMAND:

/       .ASSIGN DEV DSK

/       WHERE DEV IS ANY AVAILABLE FILE-STRUCTURED DEVICE.

/       KERMIT-12 USES AN UNUSUAL SCHEME FOR ITS PROMPT:    THE  ACTUAL DEFAULT PROMPT
/       TEXT  IS  PARTIALLY  TAKEN  FROM  THE  ACTUAL MACHINE KERMIT-12  IS  CURRENTLY
/       EXECUTING  ON.    FOR  EXAMPLE, IF KERMIT-12 HAS DETERMINED THE  CPU  TYPE  AS
/       PDP-8/E, THE PROMPT WILL BE:

/       KERMIT-8/E>

/       THIS  ALLOWS KERMIT-12 USERS (WITH DIFFERENT CPU-TYPE MACHINES) TO DISTINGUISH
/       MESSAGES ORIGINATING  FROM  THE  RESPECTIVE  SYSTEMS.    FUTURE  VERSIONS WILL
/       SUPPORT USER PROMPT STRINGS TO ALLOW MORE DISTINCTIVE SYSTEM MESSAGES.

/       THE HELP OR CONNECT COMMANDS MAY BE USED TO DETERMINE THE CURRENT CONNECT MODE
/       ESCAPE CHARACTER.
\f/      COMMAND RESTRICTIONS.

/       THE  SEND  COMMAND  ALLOWS   DEVICE:FILENAME.EXTENSION  (6.2)  WITH  WILD-CARD
/       SUBSTITUTION.  A * MAY  BE  GIVEN  FOR  AN  ENTIRE  FIELD  (EITHER FILENAME OR
/       EXTENSION OR BOTH) ONLY.  A  ?    WILL  MATCH  ANY SINGLE CHARACTER WHICH MUST
/       EXIST IN THE ACTUAL FILENAME OR EXTENSION,  UNLESS  RIGHT-MOST  IN  THE FIELD.
/       ALL  MATCHING FILES WILL BE SENT.  NO  OUTBOUND  FILENAME  (AS-NAME)  FACILITY
/       EXISTS AT THIS TIME.

/       THE  RECEIVE  COMMAND  ALLOWS  OPTIONAL  DEVICE:   ONLY.   *THE  FILENAME  AND
/       EXTENSION  ARE  NOT  ALLOWED*.  NAMES OF RECEIVED FILES WILL  BE  MODIFIED  IF
/       NECESSARY  TO  CONFORM  TO  THE  6.2  FORMAT.   *IMPLEMENTATION RESTRICTION* :
/       CERTAIN REMOTE  FILENAMES  CONTAINING  NON-ALPHANUMERIC  CHARACTERS  MAY CAUSE
/       KERMIT-12 TO HASTILY ABORT THE TRANSMISSION AND RETURN TO COMMAND LEVEL.

/       THE GET COMMAND  ALLOWS  OPTIONAL  DEVICE:    TO  DETERMINE DESTINATION OF THE
/       INCOMING FILES.  THE  OUTBOUND  FILESPEC  MUST  CONFORM  TO  LOCAL CONVENTIONS
/       (FILENAME AND EXTENSION ARE NOT  LIMITED  TO  6.2  FORMAT;  THE DEVICE:  FIELD
/       WILL NOT BE SENT TO THE  REMOTE  KERMIT  UNLESS  IT  IS  ILLEGAL  WITHIN  OS/8
/       SPECIFICATIONS, SUCH AS TOO MANY DEVICE LETTERS.    IN  THIS CASE, THE DEFAULT
/       DEVICE DSK:  APPLIES, AND THE ENTIRE "DEVICE"  FIELD  IS  SENT  ALONG WITH ANY
/       FILENAME  AND EXTENSION).  CERTAIN REMOTE SYSTEMS ARE INCOMPATIBLE  WITH  THIS
/       IMPLEMENTATION,  AS  IMBEDDED  SPACES  OR  NON-ALPHANUMERIC CHARACTERS ARE NOT
/       ALLOWED, EVEN  THOUGH  THEY  MAY  BE REQUIRED ON THE REMOTE SYSTEM.  WILD-CARD
/       CHARACTERS ARE ALLOWED, BUT ONLY AS SPECIFIED IN THE SEND COMMAND ABOVE.

/       <^X>  OR  <^Z>  CAN BE USED TO ABORT KERMIT TRANSMISSIONS (EVENTUALLY) BUT  IS
/       NORMALLY  A  SLOW  PROCESS,  SINCE  THE CHECKING IS DONE BY A SOFTWARE TIMEOUT
/       SCHEME.   AT  THE  PRESENT  TIME,  THERE  IS  NO DISTINCTION BETWEEN THESE THO
/       CHARACTERS, SO IT  IS NOT POSSIBLE TO ABORT A SINGLE FILE; THE ENTIRE BATCH OF
/       FILES INVOLVED IN THE TRANSFER IS ABORTED.

/       DECMATE II/III/III-PLUS CONSIDERATIONS:

/       FUNCTION KEYS SEND <ESC>  SEQUENCES SPECIFIED BY SLUSHWARE/FIRMWARE.  ALL SOFT
/       FUNCTION KEYS ARE THEREFORE INEFFECTIVE  (EXCEPT  FOR HOLD SCREEN WHICH ALWAYS
/       WORKS).

/       CONNECT MODE RUNS IN 8-BIT MODE.

/       THE COMPOSE KEY IS ENABLED FOR USE WITH A LOADED COMPOSE TABLE.

/       ANY VALID DECMATE II/III/III-PLUS CHARACTER SET  IS  ALLOWED  WHILE IN CONNECT
/       MODE  (MCS  TCS  LINE,  ETC.).    ALL   <ESC>  SEQUENCES  ARE  PASSED  TO  THE
/       SLUSHWARE/FIRMWARE UNMODIFIED.

/       KEYBOARD UPPER-CASE LOCK WILL ALWAYS BE AUTOMATICALLY APPLIED UPON RETURN FROM
/       CONNECT MODE.
\f/      DEFINITIONS.                                                    /017 CJL

        *200                                    /FOR DEFINITIONS        /047 CJL

/       REMOTE LINE PARAMETERS; SET ONLY ONE AS NECESSARY.              /046 CJL

        IFNDEF  DEV30   <DEV30= 0>              /USE DEVICE 30/31 VALUES
        IFNDEF  DEV40   <DEV40= 0>              /USE DEVICE 40/41 VALUES
        IFNDEF  LEDERLE <LEDERLE=0>             /USE LEDERLE LABS VALUES
        IFNDEF  ORIGNAL <ORIGNAL=0>             /USE ORIGINAL VALUES
        IFNDEF  SPRINT  <SPRINT=0>              /USE DEVICE 32/33 VALUES
        IFNDEF  USER    <USER=  0>              /USE USER-DEFINED VALUES

        REMOTE= DEV30+DEV40+LEDERLE+ORIGNAL     /SET REMOTE LINE IOT CODE
        REMOTE= REMOTE+SPRINT+USER              /SET REMOTE LINE IOT CODE

        IFZERO  REMOTE  <DEV40= 1>              /DEFAULT TO DEVICE 40/41 VERSION

/       DEV30 PARAMETERS.

        IFNZRO  DEV30                   <

        IFNDEF  REC     <REC=   30>             /DEVICE 30 INPUT
        IFNDEF  SEN     <SEN=   31>             /DEVICE 31 OUTPUT

                                        >

/       DEV40 PARAMETERS (DEFAULT).

        IFNZRO  DEV40                   <

        IFNDEF  REC     <REC=   40>             /DEVICE 40 INPUT
        IFNDEF  SEN     <SEN=   41>             /DEVICE 41 OUTPUT

                                        >

/       LEDERLE PARAMETERS.                                             /038 CJL

        IFNZRO  LEDERLE                 <

        IFNDEF  REC     <REC=   43>             /DEVICE 43 INPUT
        IFNDEF  SEN     <SEN=   44>             /DEVICE 44 OUTPUT
        IFNDEF  GENMSG  <GENMSG=1>              /GENERATE LOCAL HEADER MESSAGE
        IFNDEF  UMSG    <UMSG=  0>              /DON'T GENERATE USER MESSAGE

                                        >

/       ORIGNAL PARAMETERS.

        IFNZRO  ORIGNAL                 <

        IFNDEF  REC     <REC=   33>             /DEVICE 33 INPUT
        IFNDEF  SEN     <SEN=   34>             /DEVICE 34 OUTPUT

                                        >
\f/      SPRINT PARAMETERS.                                              /046 CJL

        IFNZRO  SPRINT                  <

        IFNDEF  REC     <REC=   32>             /DEVICE 32 INPUT
        IFNDEF  SEN     <SEN=   33>             /DEVICE 33 OUTPUT

                                        >

/       USER PARAMETERS.

        IFNZRO  USER                    <

        IFNDEF  XX      <XX=    40>             /DEFAULT TO DEVICE 40
        IFNDEF  XY      <XY=    41>             /DEFAULT TO DEVICE 41
        IFNDEF  REC     <REC=   XX>             /DEVICE XX INPUT
        IFNDEF  SEN     <SEN=   XY>             /DEVICE XY OUTPUT
        IFNDEF  GENMSG  <GENMSG=1>              /GENERATE LOCAL HEADER MESSAGE
        IFNDEF  UMSG    <UMSG=  1>              /GENERATE USER MESSAGE

                                        >

/       REMOTE LINE IOT DEFINITIONS.

/       RECEIVE DEFINITIONS.

        RKRBIOT=REC^10+6006                     /READ REMOTE, CLEAR FLAG
        RKSFIOT=REC^10+6001                     /SKIP ON REMOTE INPUT FLAG

/       TRANSMIT DEFINITIONS.

        RSBIOT= SEN^10+6003                     /SET BAUD RATE FROM AC[8-11]
        RTLSIOT=SEN^10+6006                     /TRANSMIT CHARACTER, CLEAR FLAG
        RTSFIOT=SEN^10+6001                     /SKIP ON TRANSMIT FLAG

/       CONSOLE TTY: DEFINITIONS.                                       /017 CJL

/       KEYBOARD DEFINITIONS.                                           /017 CJL

        IFNDEF  KEY     <KEY=   03>     /KEYBOARD DEVICE CODE

        KCCIOT= KEY^10+6002             /CLEAR CONSOLE KEYBOARD FLAG, AC
        KRBIOT= KEY^10+6006             /READ CONSOLE KEYBOARD BUFFER, CLEAR FLAG
        KRSIOT= KEY^10+6004             /READ CONSOLE KEYBOARD BUFFER STATIC
        KSFIOT= KEY^10+6001             /SKIP ON CONSOLE KEYBOARD FLAG

/       TELEPRINTER DEFINITIONS.                                        /017 CJL

        IFNDEF  TTY     <TTY=   04>     /TELEPRINTER DEVICE CODE

        TLSIOT= TTY^10+6006             /PRINT CHARACTER, CLEAR FLAG
        TSFIOT= TTY^10+6001             /SKIP ON TELEPRINTER FLAG
\f/      DEFAULT ESCAPE CHARACTER DEFINITION.                            /025 CJL

        IFNDEF  ESCAPE  <ESCAPE="]&37>  /DEFAULT IS CONTROL-]

/       DEFAULT LOWER-CASE ENABLE DEFINITION.                           /030 CJL

        IFNDEF  LOWER   <LOWER= 0/-40>  /LOWER-CASE IS ALLOWED AS IS
                                        /CHANGE TO -40 IF LOWER-CASE
                                        /SHOULD BE FOLDED TO UPPER-CASE

/       DEFAULT RETRY COUNT DEFINITION.                                 /031 CJL

        IFNDEF  RETCNT  <RETCNT=5>      /DEFAULT IS FIVE RETRIES

/       DEFAULT FILE MODE DEFINITION.                                   /031 CJL

        IFNDEF  FMODE   <FMODE= 4377>   /DEFAULT IS ASCII FILE MODE
                                        /4377 IS BINARY FILE MODE

/       DEFAULT FLOW-CONTROL MODE DEFINITION.                           /031 CJL

        IFNDEF  FLOW    <FLOW=  1>      /DEFAULT IS FLOW-CONTROL ENABLED

/       DEFAULT ASCII INPUT FILE <^Z> DISPOSITION.                      /031 CJL

        IFNDEF  ICLOSE  <ICLOSE=1>      /ENSURE <^Z> AT ASCII <EOF>

/       DEFAULT ASCII OUTPUT FILE <^Z> DISPOSITION.                     /031 CJL

        IFNDEF  OCLOSE  <OCLOSE=0>      /<^Z> NOT SENT AT ASCII <EOF>

/       DEFAULT LOCAL MESSAGE GENERATION DEFINITIONS.                   /038 CJL

        IFNDEF  GENMSG  <GENMSG=1>      /DEFAULT IS TO GENERATE A MESSAGE
        IFNDEF  UMSG    <UMSG=  0>      /DEFAULT IS NO DUMMY USER MESSAGE
        IFNDEF  LEDERLE <LEDERLE=0>     /DEFAULT IS NO LEDERLE MESSAGE

/       THE NULL MESSAGE WILL BE GENERATED BY DEFAULT.

/       ECHO DEFINITION.                                                /039 CJL

        IFNDEF  INIECHO <INIECHO=0>     /DEFAULT IS NO LOCAL ECHO

/       DEFAULT DECMATE I PORT DEFINITION.                              /050 CJL

        IFNDEF  PORT    <PORT=  0>      /DEFAULT IS PORT ZERO 

/       DEFAULT BAUD RATE DEFINITION.                                   /050 CJL

        IFNDEF  BRATE   <BRATE= 7>      /DEFAULT IS 1200 BAUD
\f/      STATE DEFINITIONS.

        STDAT=  "D&137                  /DATA
        STACK=  "Y&137                  /ACK
        STNAK=  "N&137                  /NAK
        STSIN=  "S&137                  /SEND-INIT
        STBRK=  "B&137                  /BREAK LINK
        STFIL=  "F&137                  /FILENAME HEADER
        STEOF=  "Z&137                  /END OF FILE OR REPLY
        STERR=  "E&137                  /ERROR PACKET
        STATT=  "A&137                  /FILE ATTRIBUTES
        STRIN=  "R&137                  /RECEIVE-INIT
        STEOT=  "B&137                  /BREAK TRANSMISSION
        STGEN=  "G&137                  /KERMIT GENERIC COMMAND

/       DEFAULT INIT PARAMETERS.

        DEFCK=  "1&177                  /DEFAULT 1 CHARACTER CHECKSUM   /014 CJL
        DEFEOL= 15+40                   /CR IS DEFAULT <EOL>
        DEFQCTL= "#&177                 /"#" IS DEFAULT QCTL

/       BUFFER DEFINITIONS.                                             /014 CJL

        DECIMAL                         /MAKE IT EASIER                 /014 CJL

        DEFMAXL=94                      /DEFAULT MAXIMUM PACKET SIZE

        LINSIZ= 32                      /KEYBOARD LINE BUFFER SIZE

        OCTAL                           /BACK TO NORMAL                 /014 CJL

        BUFSIZE=200                     /128 CHARACTER RING BUFFERS     /026 CJL
                                        /FOR NO-INTERRUPT CONNECT MODE
\f/      CONTROL CHARACTER DEFINITIONS.                                  /023 CJL

        CNTRLA= "A&37                   /<^A> DEFAULT MARK CHARACTER    /023 CJL
        CNTRLB= "B&37                   /<^B>                           /046 CJL
        CNTRLC= "C&37                   /<^C> PROGRAM EXIT CHARACTER    /023 CJL
        CNTRLD= "D&37                   /<^D>                           /046 CJL
        CNTRLE= "E&37                   /<^E>                           /046 CJL
        CNTRLF= "F&37                   /<^F>                           /046 CJL
        CNTRLG= "G&37                   /<^G> BELL CHARACTER            /023 CJL
        CNTRLH= "H&37                   /<^H> BACKSPACE CHARACTER       /023 CJL
        CNTRLI= "I&37                   /<^I> HORIZONTAL TAB CHARACTER  /043 CJL
        CNTRLJ= "J&37                   /<^J> LINEFEED CHARACTER        /023 CJL
        CNTRLK= "K&37                   /<^K> VERTICAL TAB CHARACTER    /046 CJL
        CNTRLL= "L&37                   /<^L> FORM FEED CHARACTER       /046 CJL
        CNTRLM= "M&37                   /<^M> CARRIAGE RETURN CHARACTER /023 CJL
        CNTRLN= "N&37                   /<^N>                           /046 CJL
        CNTRLO= "O&37                   /<^O> ECHO FLIP CHARACTER       /023 CJL
        CNTRLP= "P&37                   /<^P> PROGRAM RESTART CHARACTER /023 CJL
        CNTRLQ= "Q&37                   /<^Q> OUTPUT RESUME CHARACTER   /023 CJL
        CNTRLR= "R&37                   /<^R>                           /046 CJL
        CNTRLS= "S&37                   /<^S> OUTPUT WAIT CHARACTER     /023 CJL
        CNTRLT= "T&37                   /<^T>                           /046 CJL
        CNTRLU= "U&37                   /<^U>                           /046 CJL
        CNTRLV= "V&37                   /<^V>                           /046 CJL
        CNTRLW= "W&37                   /<^W>                           /046 CJL
        CNTRLX= "X&37                   /<^X> FILE ABORT CHARACTER      /044 CJL
        CNTRLY= "Y&37                   /<^Y>                           /046 CJL
        CNTRLZ= "Z&37                   /<^Z> ABORT AND <EOF> CHARACTER /044 CJL
        DELETE= 177                     /<DEL> DELETE OR <RO> CHARACTER /034 CJL
        LOWERC= "C&177+40               /LOWER-CASE C (CLOSE CHARACTER) /025 CJL
        UPPERC= "C&177                  /UPPER-CASE C (CLOSE CHARACTER) /025 CJL

/       I/O AND FIELD DEFINITIONS.                                      /019 CJL

        BUFFLD= 10                      /I/O BUFFER FIELD               /019 CJL
        DIRFLD= 10                      /DIRECTORY LOOKUP BUFFER FIELD  /028 CJL
        DMIFLD= 10                      /DECMATE ONCE-ONLY CODE FIELD   /046 CJL
        MSGFLD= 10                      /TEXT MESSAGE FIELD             /023 CJL
        PAGCNT= 2                       /I/O BUFFER SIZE IN PAGES       /019 CJL
        PRGFLD= 00                      /PROGRAM FIELD                  /019 CJL
        USRFLD= 10                      /USR FIELD                      /020 CJL

/       OS/8 MONITOR DEFINITIONS.                                       /014 CJL

        SBOOT=  7600                    /MONITOR EXIT LOCATION IS 07600 /014 CJL
        USR=    7700                    /NON-LOCKED USR ENTRY POINT     /035 CJL
\f/      USER SERVICE ROUTINE AND HANDLER DEFINITIONS.                   /020 CJL

        CLOSE=  4                       /CLOSE TENTATIVE OUTPUT FILE    /020 CJL
        ENTER=  3                       /ENTER TENTATIVE OUTPUT FILE    /020 CJL
        FETCH=  1                       /FETCH HANDLER                  /020 CJL
        INQUIRE=12                      /INQUIRE ABOUT HANDLER          /020 CJL
        LOOKUP= 2                       /LOOKUP FILE                    /020 CJL
        RESET=  13                      /RESET DEVICE CONTROL WORD TABLE/037 CJL
        USRIN=  10                      /LOCK USR IN CORE               /020 CJL
        WRITE=  4000                    /I/O CALL WRITE BIT             /020 CJL

/       INSTRUCTION DEFINITIONS.

        CLCL=   6136                    /CLEAR CLOCK FLAG (8/A, ETC.)   /046 CJL
        CLSK=   6131                    /SKIP ON, CLEAR CLOCK FLAG      /046 CJL
        CLSK8A= 6137                    /SKIP ON CLOCK FLAG (8/A, ETC.) /046 CJL
        COM=    0017                    /COMPLEMENT AC
        DCAC=   DCA     .               /CURRENT PAGE DCA INSTRUCTION   /047 CJL
        IAAC=   6171                    /"A" REGISTER TO AC
        IACA=   6167                    /AC TO "A" REGISTER
        ISZC=   ISZ     .               /CURRENT PAGE ISZ INSTRUCTION   /050 CJL
        JMPC=   JMP     .               /CURRENT PAGE JMP INSTRUCTION   /047 CJL
        JMPIC=  JMP I   .               /CURRENT PAGE JMP I INSTRUCTION /047 CJL
        JMSC=   JMS     .               /CURRENT PAGE JMS INSTRUCTION   /047 CJL
        JMSIC=  JMS I   .               /CURRENT PAGE JMS I INSTRUCTION /047 CJL
        LINC=   6141                    /GOTO LINC MODE
        PDP=    0002                    /GOTO PDP-8 MODE
        PRQ3=   6236                    /TYPE THREE PANEL REQUEST       /046 CJL
        TADC=   TAD     .               /CURRENT PAGE TAD INSTRUCTION   /047 CJL
        R3L=    7014                    /ROTATE AC (NOT LINK) LEFT 3    /046 CJL

/       NUMERIC LOAD DEFINITIONS.                                       /014 CJL

        NL0000= CLA                     /LOAD AC WITH 0000              /046 CJL
        NL0001= CLA IAC                 /LOAD AC WITH 0001              /014 CJL
        NL0002= CLA CLL CML RTL         /LOAD AC WITH 0002              /014 CJL
        NL0003= CLA STL IAC RAL         /LOAD AC WITH 0003 (8/I ON UP)  /046 CJL
        NL0004= CLA CLL IAC RTL         /LOAD AC WITH 0004 (8/I ON UP)  /046 CJL
        NL0006= CLA STL IAC RTL         /LOAD AC WITH 0006 (8/I ON UP)  /046 CJL
        NL0010= CLA IAC RAL RAR         /LOAD AC WITH 0010 (6120)       /024 CJL
        NL0100= CLA IAC BSW             /LOAD AC WITH 0100 (8/E ON UP)  /024 CJL
        NL3776= CLA CLL CMA RAR RAL     /LOAD AC WITH 3776 (8/I OR 8/L) /024 CJL
        NL3777= CLA CLL CMA RAR         /LOAD AC WITH 3777              /046 CJL
        NL4000= CLA CLL CML RAR         /LOAD AC WITH 4000              /014 CJL
        NL5777= CLA CLL CMA RTR         /LOAD AC WITH 5777              /046 CJL
        NL6000= CLA STL IAC RTR         /LOAD AC WITH 6000 (8/I ON UP)  /046 CJL
        NL7775= CLA CLL CMA RTL         /LOAD AC WITH 7775              /014 CJL
        NL7776= CLA CLL CMA RAL         /LOAD AC WITH 7776              /014 CJL
        NL7777= CLA CMA                 /LOAD AC WITH 7777              /014 CJL
\f/      DECMATE I COMMUNICATIONS PORT DEFINITIONS.                      /050 CJL

        IPORT0= 30              /COMMUNICATIONS PORT 0 INPUT DEVICE CODE

        RKFL0=  IPORT0^10+6000  /SET COMMUNICATIONS PORT 0 INPUT FLAG
        RKSF0=  IPORT0^10+6001  /SKIP ON, CLEAR COMMUNICATIONS PORT 0 INPUT FLAG
        RKCC0=  IPORT0^10+6002  /CLEAR AC
        RKIE0=  IPORT0^10+6005  /PORT 0 INPUT INTERRUPT ENABLE PER AC[11]
        RKRB0=  IPORT0^10+6006  /READ COMMUNICATIONS PORT 0 INTO AC

        OPORT0= 31              /COMMUNICATIONS PORT 0 OUTPUT DEVICE CODE

        RTFL0=  OPORT0^10+6000  /SET COMMUNICATIONS PORT 0 OUTPUT FLAG
        RTSF0=  OPORT0^10+6001  /SKIP ON, CLEAR COMMUNICATIONS PORT 0 OUTPUT FLAG
        RTCF0=  OPORT0^10+6002  /NOP
        RTIE0=  OPORT0^10+6005  /PORT 0 OUTPUT INTERRUPT ENABLE PER AC[11]
        RTLS0=  OPORT0^10+6006  /WRITE COMMUNICATIONS PORT 0 FROM AC

        IPORT1= 34              /COMMUNICATIONS PORT 1 INPUT DEVICE CODE

        RKFL1=  IPORT1^10+6000  /SET COMMUNICATIONS PORT 1 INPUT FLAG
        RKSF1=  IPORT1^10+6001  /SKIP ON, CLEAR COMMUNICATIONS PORT 1 INPUT FLAG
        RKCC1=  IPORT1^10+6002  /CLEAR AC
        RKIE1=  IPORT1^10+6005  /PORT 1 INPUT INTERRUPT ENABLE PER AC[11]
        RKRB1=  IPORT1^10+6006  /READ COMMUNICATIONS PORT 1 INTO AC

        OPORT1= 35              /COMMUNICATIONS PORT 1 OUTPUT DEVICE CODE

        RTFL1=  OPORT1^10+6000  /SET COMMUNICATIONS PORT 1 OUTPUT FLAG
        RTSF1=  OPORT1^10+6001  /SKIP ON, CLEAR COMMUNICATIONS PORT 1 OUTPUT FLAG
        RTCF1=  OPORT1^10+6002  /NOP
        RTIE1=  OPORT1^10+6005  /PORT 1 OUTPUT INTERRUPT ENABLE PER AC[11]
        RTLS1=  OPORT1^10+6006  /WRITE COMMUNICATIONS PORT 1 FROM AC

        PCON=   36              /PORT STATUS AND CONTROL DEVICE CODE

        SMFL=   PCON^10+6000    /SET MODEM CHANGE FLAG
        MFSK=   PCON^10+6001    /SKIP ON, CLEAR MODEM CHANGE FLAG
        WCON0=  PCON^10+6002    /WRITE COMMUNICATIONS PORT 0 CONTROL REGISTER
        PSR=    PCON^10+6003    /READ PORT STATUS REGISTER
        PMR=    PCON^10+6004    /READ PORT MODEM REGISTER
        MFIE=   PCON^10+6005    /LOAD MODEM CHANGE INTERRUPT ENABLE PER AC[11]
        WCON1=  PCON^10+6006    /WRITE COMMUNICATIONS PORT 1 CONTROL REGISTER
        RACD=   PCON^10+6007    /RESET ACTIVE COMMUNICATIONS PORT PER AC[0]
\f/      DECMATE II, ETC. COMMUNICATIONS PORT DEFINITIONS.               /046 CJL

        PORTIN= 30              /COMMUNICATIONS PORT INPUT DEVICE CODE

        IFL=    PORTIN^10+6000  /SET COMMUNICATIONS PORT INPUT/OUTPUT FLAG
        ISF=    PORTIN^10+6001  /SKIP ON, CLEAR COMMUNICATIONS PORT INPUT/OUTPUT FLAG
        ICF=    PORTIN^10+6002  /NOP (CLEAR THE AC?)
        INOP1=  PORTIN^10+6003  /(NOP?)
        IRS=    PORTIN^10+6004  /READ COMMUNICATIONS PORT RECEIVE BUFFER
        IIE=    PORTIN^10+6005  /COMMUNICATIONS PORT I/O INTERRUPT ENABLE PER AC[11]
        IRB=    PORTIN^10+6006  /READ COMMUNICATIONS PORT RECEIVE BUFFER
        INOP2=  PORTIN^10+6007  /(NOP?)

        PORTOUT=31              /COMMUNICATIONS PORT OUTPUT DEVICE CODE

        DUMBFL= PORTOUT^10+6000 /SET COMMUNICATIONS PORT DUMMY FLAG
        DUMBSF= PORTOUT^10+6001 /SKIP ON, CLEAR COMMUNICATIONS PORT DUMMY FLAG
        DUMBCF= PORTOUT^10+6002 /NOP (CLEAR THE AC?)
        ONOP1=  PORTOUT^10+6003 /(NOP?)
        OPC=    PORTOUT^10+6004 /LOAD COMMUNICATIONS PORT TRANSMIT BUFFER
        DUMBIE= PORTOUT^10+6005 /COMMUNICATIONS PORT DUMMY INTERRUPT ENABLE PER AC[11]
        OLS=    PORTOUT^10+6006 /LOAD COMMUNICATIONS PORT TRANSMIT BUFFER
        ONOP2=  PORTOUT^10+6007 /(NOP?)

        PORTCON=36              /COMMUNICATIONS PORT CONTROL DEVICE CODE

        MFL=    PORTCON^10+6000 /SET MODEM CHANGE FLAG
        MSF=    PORTCON^10+6001 /SKIP ON, CLEAR MODEM CHANGE FLAG
        MLC=    PORTCON^10+6002 /LOAD MODEM CONTROL REGISTER
        MSB=    PORTCON^10+6003 /LOAD BAUD RATE REGISTER
        MRS=    PORTCON^10+6004 /READ MODEM STATUS REGISTER
        MIE=    PORTCON^10+6005 /MODEM CHANGE INTERRUPT ENABLE PER AC[11]
        MPSCC=  PORTCON^10+6006 /ACCESS MULTIPROTOCOL SERIAL COMMUNICATIONS CONTROLLER
        MPRESET=PORTCON^10+6007 /RESET MULTIPROTOCOL SERIAL COMMUNICATIONS CONTROLLER
\f/      MISCELLANEOUS DEFINITIONS.                                      /014 CJL

/       STATIC DATE CALCULATIONS.                                       /024 CJL

/       THESE EQUATIONS CAUSE PRINTABLE  TEXT OF THE DATE PARTICULARS, WHICH ARE GIVEN
/       IN OS/8 INTERNAL FORMAT.  PROGRAM MAINTAINENCE REQUIRES THE UPDATE OF VERSION,
/       REVISION, REVDATE, AND REVDGRP.  REVDATE  AND  REVDGRP SHOULD BE OBTAINED FROM
/       THE SYSTEM WHEN RELEASING A NEW VERSION  AFTER  FIRST  CORRECTLY  INVOKING THE
/       SYSTEM DATE COMMAND.

/       VERSION=[ANY NUMBER IN THE RANGE 00-143 (DECIMAL 00-99)]

/       REVISIO=[ANY SIX-BIT ALPHA (A-Z); DO NOT FORGET &77]

/       REVDATE=[THE CONTENTS OF 17666 (DATE WORD)]

/       REVDGRP=[THE CONTENTS OF 07777 (ONLY BITS[3-4] ARE USED)]



        IFNDEF  REVDATE <REVDATE=4464>  /REVISION DATE (LOCATION 17666)

        IFNDEF  REVDGRP <REVDGRP=0400>  /REVISION 8 YEAR DATE GROUP (LOCATION 07777)

        IFNDEF  REVISIO <REVISIO="G&77> /REVISION OF KERMIT-12

        IFNDEF  VERSION <VERSION=12>    /VERSION OF KERMIT-12


        DAY=    REVDATE&370%10          /REVISION DAY

        DGROUP= REVDGRP&600%20          /REVISION DATE GROUP (WHICH 8 YEARS)

        MONTH=  REVDATE&7400%400        /REVISION MONTH

        YEAR=   REVDATE&7+DGROUP+106    /REVISION YEAR (SINCE 1900)
\f       FIELD   PRGFLD%10       /STARTING FIELD                         /038 CJL

        *0                      /START AT THE BEGINNING                 /014 CJL

INTPC,  .-.                     /PC FROM INTERRUPT (IF ANY)             /014 CJL
        JMP I   INTPC           /RETURN WITH INTERRUPTS OFF             /014 CJL

ABFLAG, .-.                     /FILE ABORT FLAG                        /044 CJL
TABLEJU,.-.                     /MATCHING VALUE FOR SRCHTABLE ROUTINE   /025 CJL

        IFNZRO  .-4     <ERROR  .>                                      /014 CJL
ODT,    ZBLOCK  7-.             /RESERVED FOR OS/8 ODT                  /014 CJL
RATE,   BRATE                   /BAUD RATE                              /050 CJL

        *10                     /GET TO AUTO-INDEX AREA                 /014 CJL

XR0,    .-.                     /AUTO-INDEX ZERO                        /014 CJL
XR1,    .-.                     /AUTO-INDEX ONE                         /014 CJL
DIRXR,  PORT                    /DIRECTORY LOOKUP DEDICATED AUTO-INDEX  /028 CJL
                                /INITIALIZED FOR DECMATE I ONCE-ONLY    /050 CJL

/       THE REMAINING LOCATIONS THROUGH  000017  MUST  BE USED DIRECTLY ONLY, SO AS TO
/       NOT CAUSE INADVERTANT AUTO-INDEXING.

/       COLUMN COUNTER FOR CONSOLE ROUTINES (NEVER USED INDIRECTLY).    /043 CJL

COLUMN, .-.                     /CONSOLE OUTPUT COLUMN COUNTER          /043 CJL

/       CONSOLE TERMINAL ECHO SWITCH (NEVER USED INDIRECTLY).           /020 CJL

ECHOSW, 0                       /0=ECHO, 4000=DON'T ECHO                /020 CJL

/       LATEST (NON-CONNECT MODE) CHARACTER (NEVER USED INDIRECTLY).    /043 CJL

INCHAR, .-.                     /LATEST INPUT CHARACTER FROM CONSOLE    /043 CJL

/       CURRENT KERMIT MODE (NEVER USED INDIRECTLY).                    /025 CJL

KMODE,  .-.                     /CURRENT MODE OF KERMIT                 /025 CJL

/       KERMIT MODE FLAG VALUES.                                        /014 CJL

/       MLINE=  1               /KERMIT IS ON-LINE
        MSEND=  2               /KERMIT IS IN SEND MODE
        MREC=   3               /KERMIT IS IN RECEIVE MODE

/       LATEST CHARACTER SENT TO OUTPUT FILE (NEVER USED INDIRECTLY).   /020 CJL

LATEST, .-.                     /LATEST CHARACTER SENT TO OUTPUT FILE   /020 CJL
\f       *20                     /GET PAST AUTO-INDEX AREA

INFLAG, .-.                     /DECMATE INPUT AVAILABLE FLAG           /046 CJL
OUTFLAG,.-.                     /DECMATE OUTPUT AVAILABLE FLAG          /046 CJL
TEMP,   0
RCHAR,  0                       /REMOTE LINE CURRENT INPUT CHAR
SCAN1,  0                       /
SCAN2,  0                       /
KEYDSP, 0                       /DISPATCH ADDRESS FOR KEYWORD MATCH
BININP, 0                       /BINARY REGISTER FOR DECIMAL INPUT
PTABLE, 0                       /
LPTR,   0                       /HOLDS LINE POINTER
STATE,  0                       /CURRENT STATE
RETRY,  -RETCNT                 /PACKET ERROR RETRY COUNTER             /031 CJL
RTRYC,  0                       /USE THIS FOR ACTUAL COUNTER

/       CURRENT PACKET I/O DATA.                                        /014 CJL

PAKPTR, 0                       /POINTER TO OUTPUT PACKET POINTER
PAKCKS, 0                       /HOLDS CURRENT OUTPUT PACKET CHECKSUM TOTAL
CURSEQ, 0                       /CURRENT SEQ NUMBER
QFLAG,  0                       /NON-ZERO WHEN NO CONTROL QUOTING

/       RECEIVE "INIT" REGISTERS.                                       /014 CJL

RMAXL,  DEFMAXL+40              /MAX LENGTH FOR DATA PACKET (DEFAULT)
RTIME,  0                       /TIME-OUT VALUE
RNPAD,  0                       /NUMBER OF PADDING CHARS
RPADC,  0                       /CHAR USED FOR PADDING
REOL,   DEFEOL                  /TERMINATOR CHAR USED FOR END OF PACKET
RQCTL,  DEFQCTL                 /CONTROL CHAR PREFIX CHAR
RQBIN,  0                       /PARITY CHAR PREFIX CHAR (CHARS GT 177)
RCHKT,  DEFCK                   /CHECKSUM TYPE  (DEFAULT TYPE 1)
RREPT,  0                       /PREFIX CHAR FOR REPEATED CHARS
RCAPAS, 0                       /EXTRA CAPABILITY BIT MASK

/       ZBLOCK  4               /RESERVED FOR EXTRA CAPABILITIES        /022 CJL

        INITEND=.               /END OF INIT REGISTERS                  /022 CJL

HNDADR, 0                       /FILE DEVICE HANDLER ADDRESS
FORCEP, 0                       /FLAG FOR FORCED OUTPUT OF PACKET WHEN THERE IS
                                /  NO DATA (JUST SOH, LEN, SEQ, AND CHECKSUM)
PRSERR, 0                       /HOLDS PARSE POSITION FOR REPORTING ERRORS
PACK6P, 0                       /POINTER TO STORAGE OF 6 BIT CHARS
PACK6F, 0                       /FLAG FOR WHICH BYTE TO STORE
GET6P,  0                       /POINTER USED IN THE GET6 ROUTINE
GET6F,  0                       /FLAG USED IN THE GET6 ROUTINE
MOVE4,  0                       /COUNTER FOR "MOVE"
INIFLG, 0                       /INIT DONE FLAG
MQ,     .-.                     /"MQ" TEMPORARY REGISTER                /032 CJL
\f/      FILE NAME PARSE REGISTERS.                                      /014 CJL

FNPTR,  0                       /POINTER TO WHERE TO PUT A PARSED FILE NAME
WILDF,  0                       /WILD CARD IN FILE NAME FLAG

/       FILE INFORMATION.                                               /014 CJL

FSBLK,  0                       /FILE START BLOCK
FLEN,   0                       /FILE LENGTH
DEVNUM, 0                       /PARSED DEVICE NUMBER HERE
OFFLG,  0                       /OUTPUT FILE OPEN FLAG
ODNAME, 0                       /POINTER TO USER SPECIFIED DEVICE FOR OUTPUT
ODNUMB, 0                       /OUTPUT DEVICE NUMBER

/       PARITY VARIABLES.                                               /014 CJL

/MARK,  0200                    /SET BIT [8] FOR COMMAND INPUTS         /A013
/PARITY,0                       /PARITY MASK (0=SPACE, 200=MARK)        /AM013

/       INTERNAL FILE MODE FLAG.                                        /019 CJL

FILMODE,FMODE                   /ASCII=0177, BINARY=4377                /019 CJL

/       UPPER-CASE ONLY FLAG.                                           /023 CJL

UPONLY, LOWER                   /0=UPPER/LOWER CASE, -40=UPPER-CASE ONLY/030 CJL

/       <^C> DISPATCH ADDRESS.                                          /023 CJL

UCADDRE,SBOOT                   /<^C> ADDRESS SHOULD BE SET AS NECESSARY/023 CJL

/       <^P> DISPATCH ADDRESS.                                          /023 CJL

UPADDRE,CHKCLR                  /<^P> ADDRESS SHOULD BE SET AS NECESSARY/023 CJL

/       ESCAPE CHARACTER FOR CONNECT MODE.                              /025 CJL

ESCHAR, ESCAPE                  /ESCAPE CHARACTER FOR CONNECT MODE      /025 CJL

/       FLOW CONTROL FLAG.                                              /026 CJL

FLOWFLA,-FLOW                   /0=NO FLOW CONTROL, 7777=FLOW CONTROL   /049 CJL
                                /VIA <^S>/<^Q>

/       KEYBOARD INPUT ERROR FLAG.                                      /026 CJL

KEYERRO,.-.                     /0=NO ERROR, NON-ZERO=BAD CHARACTER     /026 CJL
                                /OR BUFFER OVERRUN
\f/      REMOTE LINE INPUT ERROR FLAG.                                   /026 CJL

RINERRO,.-.                     /0=NO ERROR, NON-ZERO=BAD CHARACTER     /026 CJL
                                /OR BUFFER OVERRUN

/       REMOTE LINE OUTPUT FLOW CONTROL WAIT FLAG.                      /026 CJL

REMWAIT,.-.                     /0=DON'T WAIT, 4000=WAIT FOR <^Q>       /026 CJL

/       REMOTE INPUT WAIT FLAG.                                         /026 CJL

/       FLAG STATES:

/       VALUE                   ACTION

/       0000                    BUFFER IS LESS THAN  3/4  FULL.   INPUT FREELY ALLOWED
/                               WITHOUT FLOW CONTROL RESTRICTIONS.   IF BUFFER BECOMES
/                               3/4 FULL AND FLOW CONTROL IS  IN  EFFECT  THEN  CHANGE
/                               STATE TO 0001.

/       0001                    BUFFER IS NOW 3/4 FULL.  OUTPUT  <^S>  TO  REMOTE  AND
/                               THEN CHANGE STATE TO 4000.

/       4000                    WAITING FOR BUFFER TO EMPTY TO LESS THAN 1/4 FULL.  IF
/                               FLOW  CONTROL  IS BEING OBEYED, THEN BUFFER SHOULD NOW
/                               BE EMPTYING.

/       7777                    BUFFER  IS  NOW  LESS  THAN 1/4 FULL.  OUTPUT <^Q>  TO
/                               REMOTE AND THEN CHANGE STATE TO 0000.

RINWAIT,.-.                     /REMOTE INPUT WAIT FLAG                 /026 CJL

/       REMOTE LINE OUTPUT BUFFER POINTERS.                             /026 CJL

REMINSE,.-.                     /REMOTE OUTPUT INSERTION POINTER        /026 CJL
REMREMO,.-.                     /REMOTE OUTPUT REMOVAL POINTER          /026 CJL
\f/      POINTER FOR THE PACKET INPUT AND OUTPUT ROUTINES

        SPACK=  JMS I   .       /SEND A PACKET TO REMOTE
                SPACK0          /PUT IN A POINTER

        FPACK=  JMS I   .       /FORMAT PACKET
                FPACK0          /PUT IN THE POINTER

        RPACK=  JMS I   .       /RECEIVE A PACKET FROM REMOTE
                ILINK           /PUT IN A POINTER

/       POINTERS FOR OUTPUT ROUTINES

        PRI8B=  JMS I   .       /PRINT 8 BIT STRING ON TTY
                PRI8B0          /PUT IN THE POINTER

        REM8B=  JMS I   .       /SEND 8 BIT STRING DOWN REMOTE LINE
                REM8B0          /PUT IN THE POINTER

/       MISC.

        PACK6=  JMS I   .       /DEFINE CALL TO ROUTINE
                PACK60          /POINTER TO ROUTINE

        GET6=   JMS I   .       /DEFINE THE INSTRUCTION
                GET60           /PUT IN THE POINTER

        MOVE=   JMS I   .       /DEFINE CALL TO MOVE ROUTINE
                MOVE0           /POINTER

        CLEAR=  JMS I   .       /DEFINE CALL FOR "CLEAR" ROUTINE
                CLEAR0          /POINTER
\f       PAGE                    /START ON NEW PAGE                      /A014 CJL

/       KERMIT-12 PROGRAM STARTS HERE.                                  /A014 CJL

CLOOP,  JMP I   (INITIALIZE)    /**** INITIALIZED **** CLA CLL          /024 CJL
        JMS I   [CRESET]        /RESET CONSOLE ROUTINE STUFF
        DCA     ABFLAG          /CLEAR ABORT FLAG                       /044 CJL
        DCA     REMWAIT         /CLEAR REMOTE FLOW CONTROL WAIT         /049 CJL
CLDMZAP,JMS     DMINIT          /INITIALIZE DECMATE PORT                /048 CJL

/       THE  PREVIOUS  INSTRUCTION  IS  FOR  DECMATE  OPERATION  ONLY.    THE  DEFAULT
/       INSTRUCTION IS FOR KL8 INTERFACES ONLY.

        *CLDMZAP                /OVERLAY DECMATE CODE                   /048 CJL

CLDMZAP,NOP                     /DON'T INITIALIZE DECMATE PORT          /048 CJL
        TAD     RATE            /GET BAUD RATE
SETBAUD,MSB                     /SET REMOTE BAUD RATE                   /050 CJL

/       THE PREVIOUS INSTRUCTION IS FOR DECMATE II OPERATION ONLY.      /050 CJL

        *SETBAUD                /OVERLAY DECMATE II CODE                /050 CJL

SETBAUD,NOP                     /NOT APPLICABLE ON DECMATE I            /050 CJL

/       THE  PREVIOUS  INSTRUCTION  IS  FOR DECMATE I OPERATION  ONLY.    THE  DEFAULT
/       INSTRUCTION IS FOR KL8 INTERFACES ONLY.

        *SETBAUD                /OVERLAY DECMATE I CODE                 /050 CJL

SETBAUD,RSBIOT                  /SET REMOTE BAUD RATE                   /050 CJL
        JMS I   [SCRIBE]        /DO A                                   /025 CJL
        CRLF                    /<CR>, <LF>                             /025 CJL
        JMS I   [SCRIBE]        /GIVE THEM THE                          /025 CJL
/       PRMTMSG                 /PROMPT MESSAGE                         /025 CJL
        PRMT2
        JMS I   (LININP)        /GET INPUT LINE FROM USER
        TAD     (CMDTBL)        /GET ADDRESS OF PARSE TABLE             /M014 CJL
        DCA     PTABLE          /STORE FOR PARSER
        TAD     (LINBUF)        /GET INPUT LINE BUFFER ADDRESS          /M014 CJL

CLOOP1, JMS I   (KEYPRS)        /PARSE OFF A KEYWORD
        JMP     CLOOP9          /NO MATCH ON KEYWORD
        JMP     CLOOP           /END OF LINE DETECTED
        DCA     LPTR            /STORE POINTER TO NEXT POS ON LINE
        JMS I   KEYDSP          /DISPATCH TO SERVICE
        JMP     CLOOP7          /ERROR RETURN FROM SERVICE DISPATCH
        TAD     LPTR            /RE-GET COMMAND LINE POINTER
        JMP     CLOOP1          /CONTINUE LINE PARSE

CLOOP7, SNA                     /SKIP IF A RETURNING MESSAGE PASSED     /029 CJL
        JMP     CLOOP           /JUST GO BACK TO COMMAND LOOP           /029 CJL
        DCA     RETARG          /STORE IN-LINE                          /029 CJL
        JMS I   [SCRIBE]        /CALL MESSAGE PRINT ROUTINE
RETARG, .-.                     /WILL BE PASSED MESSAGE ADDRESS
        JMP     CLOOP           /KEEP GOING
\fCLOOP9,        JMS I   [SCRIBE]        /COMPLAIN OF                            /025 CJL
        CMERMSG                 /BAD COMMAND                            /025 CJL
        JMP     CLOOP           /GO AGAIN

/       ROUTINE TO FORMAT A PACKET OF DATA
/       CALL:   FPACK
/               DATA ADDRESS (DATA MUST ALREADY BE CONTROL/QUOTED AND MUST
/                             NOT BE LONGER THAN THE LARGEST PACKET)
/               PACKET TYPE

FPACK0, 0
        CLA CLL                 /INSURE CLEAR AC
        TAD I   FPACK0          /GET THE DATA ADDRESS
        DCA     FP1             /STORE IN SOURCE POINTER
        ISZ     FPACK0          /BUMP ARGUMENT POINTER
        TAD I   FPACK0          /NOW GET TYPE
        DCA I   (RSTYP)         /STORE
        ISZ     FPACK0          /BUMP ARGUMENT POINTER
        TAD     (RSDTA          /GET ADDRESS OF DATA BUFFER
        DCA     FP2             /STORE IN DESTINATION POINTER

        TAD     (40+3           /SET FOR LENGTH COUNTER
        DCA I   (RSLEN)         /STORE IN PACKET
        DCA     FP3             /INIT CHECKSUM
        TAD     CURSEQ          /GET CURRENT SEQ NUMBER
        AND     [77]            /MODULO 64                              /014/016 CJL
        TAD     [40]            /TAKE CHAR(SEQUENCE NUMBER)             /014/016 CJL
        DCA I   (RSSEQ)         /PUT INTO PACKET
FPACK2, TAD I   FP1             /GET A CHAR FROM SOURCE
        SPA                     /SKIP IF NOT END
        JMP     FPACK3          /END
        TAD     FP3             /COMBINE WITH CHECKSUM
        DCA     FP3             /AND RETURN
        TAD I   FP1             /GET CHAR BACK AGAIN
        DCA I   FP2             /NOW PUT INTO DESTINATION
        ISZ I   (RSLEN)         /BUMP THE LENGTH
        ISZ     FP1             /BUMP THE SOURCE POINTER
        ISZ     FP2             /BUMP THE DESTINATION POINTER
        JMP     FPACK2          /LOOP
\fFPACK3,        CLA CLL                 /CLEAR THE AC
        TAD     FP3             /GET CALCULATED CHECKSUM
        TAD I   (RSLEN)         /INCLUDE THE LENGTH
        TAD I   (RSSEQ)         /AND THE SEQUENCE
        TAD I   (RSTYP)         /AND THE TYPE
        JMS I   [CKSUM]         /GET IT CORRECT
        DCA I   FP2             /STORE WITH PACKET
        ISZ     FP2             /BUMP PACKET POINTER
        TAD     REOL            /GET ANY END OF LINE TO INCLUDE
        TAD     [-40]           /MAKE IT A REAL CHARACTER               /014/016 CJL
        SNA                     /SKIP IF EOL CHAR REQUIRED
        JMP     FPACK4          /NO EOL CHAR
        DCA I   FP2             /STORE EOL CHAR WITH PACKET
        ISZ     FP2             /BUMP POINTER
FPACK4, NL7777                  /SET -1                                 /032 CJL
        DCA I   FP2             /PACKET NOW COMPLETE
        TAD     RETRY           /SET UP RE-TRY COUNTER
        DCA     RTRYC
        ISZ     CURSEQ          /BUMP SEQUENCE NUMBER FOR NEXT TIME
        NOP                     /PROTECT ISZ
        JMP I   FPACK0          /RETURN

FP1,    0                       /POINTER TO SOURCE DATA
FP2,    0                       /POINTER TO PACKET BUFFER
FP3,    0                       /RUNNING CHECKSUM

/       DECMATE INITIALIZE ROUTINE.                             /048 CJL

DMINIT, .-.                     /DECMATE PORT INITIALIZE ROUTINE/048 CJL
DMI01,  TAD     DM234/(234)     /GET SCD ENABLE VALUE           /050 CJL
DMI02,  WCON0                   /WRITE CONTROL REGISTER 0 (1)   /050 CJL
DMI03,  NL0000                  /INDICATE PORT 0 (1)            /050 CJL
DMI04,  RACD                    /RESET THE ACTIVE PORT          /050 CJL
DMI05,  ISZ     DMWASTE         /WASTE                          /050 CJL
DMI06,  JMP     DMI05           /SOME TIME                      /050 CJL
DMI07,  ISZ     DMWASTE         /WASTE                          /050 CJL
DMI08,  JMP     DMI07           /SOME TIME                      /050 CJL
DMI09,  RTFL0                   /SET PORT 0 (1) OUTPUT FLAG     /050 CJL
DMI10,  TAD     DM2516/(2516)   /SETUP FOR 8 BITS, NO PARITY    /050 CJL
DMI11,  JMS     DMSEND          /SEND TO MODE REGISTER 1        /050 CJL
DMI12,  TAD     RATE            /GET BAUD RATE                  /050 CJL
DMI13,  TAD     DM2460/(2460)   /ADD ON CLOCK ENABLE VALUES     /050 CJL
DMI14,  JMS     DMSEND          /SEND TO MODE REGISTER 2        /050 CJL
DMI15,  TAD     DM3425/(3425)   /GET ENABLE AND RESET VALUE     /050 CJL
DMI16,  JMS     DMSEND          /SEND TO COMMAND REGISTER       /050 CJL
DMI17,  RKRB0                   /DO A DUMMY READ ON PORT 0 (1)  /050 CJL
\f/      THE  PREVIOUS  INSTRUCTIONS  ARE  FOR  DECMATE  I OPERATION ONLY.  THE DEFAULT
/       INSTRUCTIONS ARE FOR DECMATE II, ETC.  INTERFACES ONLY.

        *DMI01                  /OVERLAY DECMATE I CODE         /050 CJL

DMI01,  ISZ     DMWASTE         /WASTE                          /048 CJL
DMI02,  JMP     DMI01           /SOME TIME                      /048 CJL
DMI03,  ISZ     DMWASTE         /WASTE                          /048 CJL
DMI04,  JMP     DMI03           /SOME TIME                      /048 CJL
DMI05,  ISF                     /SKIP ON AND CLEAR PORT FLAG    /048 CJL
DM50,   50/NOP                  /JUST IN CASE                   /048 CJL
DMI07,  IRB                     /READ THE PORT BUFFER           /048 CJL
DMI08,  CLA                     /CLEAN UP                       /048 CJL
DMI09,  TAD     DM50/(50)       /GET OUTPUT INTERRUPT VALUE     /048 CJL
DMI10,  MPSCC                   /CLEAR OUTPUT INTERRUPT         /048 CJL
DMI11,  TAD     (60-50)         /GET ERROR RESET VALUE          /048 CJL
DMI12,  MPSCC                   /CLEAR OVERRUN ERRORS           /048 CJL
DMI13,  TAD     (70-60)         /SET END OF INTERRUPT VALUE     /048 CJL
DMI14,  MPSCC                   /CLEAR THE INTERRUPT            /048 CJL
DMI15,  DCA     OUTFLAG         /INDICATE OUTPUT IS AVAILABLE   /048 CJL
DMI16,  DCA     INFLAG          /CLEAR INPUT AVAILABLE FLAG     /048 CJL
DMI17,  JMP I   DMINIT          /RETURN                         /048 CJL

/       DECMATE I INITIALIZE CODE CONTINUES HERE.               /050 CJL

DMISET, RTFL0                   /SET PORT 0 (1) OUTPUT FLAG     /050 CJL
        CLA                     /CLEAN UP                       /050 CJL
        JMP I   DMINIT          /RETURN                         /050 CJL

DMSEND, .-.                     /DECMATE I SEND ROUTINE         /050 CJL
DMISKP, RTSF0                   /SKIP ON PORT 0 (1) OUTPUT FLAG /050 CJL
        JMP     DMISKP          /WAIT FOR IT                    /050 CJL
DMIOUT, RTLS0                   /SEND TO PORT 0 (1) REGISTER    /050 CJL
        CLA                     /CLEAN UP                       /050 CJL
        JMP I   DMSEND          /RETURN                         /050 CJL

DMWASTE,.-.                     /TIMER TEMPORARY                /050 CJL
DM234,  234                     /CONSTANT 0234                  /050 CJL
DM2460, 2460                    /CONSTANT 2460                  /050 CJL
DM2516, 2516                    /CONSTANT 2516                  /050 CJL
DM3425, 3425                    /CONSTANT 3425                  /050 CJL

        PAGE
\f/      ROUTINE TO SEND THE FORMATTED PACKET                    /027 CJL
/       ARGUMENTS:  CALL+1 NON-ZERO = AWAIT RESPONSE
/                              ZERO = DO NOT AWAIT RESPONSE
/                   CALL + 2 DISPATCH TABLE-2                   /027 CJL

SPACK0, 0
        REM8B;  RSBUF           /SEND PACKET JUST COMPLETED
        TAD I   SPACK0          /DO WE GET A RESPONSE?
        ISZ     SPACK0          /BUMP POINTER PAST ARGUMENT
        SNA CLA                 /SKIP IF YES
        JMP I   SPACK0          /ALL DONE HERE
        RPACK                   /GET PACKET BACK FROM REMOTE
        TAD I   SPACK0          /DID WE WANT A DISPATCH?
        ISZ     SPACK0          /BUMP PAST ARGUMENT
        SNA                     /SKIP IF YES
        JMP I   SPACK0          /EXIT IF NO
        DCA     SPACARG         /STORE IN-LINE                          /031 CJL
        JMS     DISPATCH        /CALL DISPATCH ROUTINE                  /031 CJL
SPACARG,.-.                     /WILL BE DISPATCH TABLE-2               /031 CJL
        JMP I   SPACK0          /NOT FOUND, GOTTA RETURN

/       CONSOLE RESET ROUTINE.                                          /024 CJL

CRESET, .-.                     /CONSOLE RESET ROUTINE
        CLA CLL                 /CLEAN UP
        DCA     ECHOSW          /ENABLE OUTPUT ECHO
        TAD     (UPCPRT)        /ALLOW THEM TO
        DCA     UCADDRESS       /RESTART VIA <^C>
        TAD     [CLOOP]         /ALLOW THEM TO
        DCA     UPADDRESS       /RESTART VIA <^P>
        JMP I   CRESET          /RETURN

/       ALTERNATE CONSOLE RESET ROUTINE.                                /025 CJL

CREST2, .-.                     /ALTERNATE CONSOLE RESET ROUTINE
        JMS     CRESET          /CLEAR AC AND ENABLE OUTPUT ECHO
        TAD     (KCCZAP)        /RENDER <^C>
        DCA     UCADDRESS       /TOTALLY HARMLESS
        TAD     (CHKCLR)        /MAKE <^P> PRINT "^P"
        DCA     UPADDRESS       /AND THEN GO AWAY
        JMP I   CREST2          /RETURN
\f/      ROUTINE TO CLEAR WORDS OF MEMORY
/       ENTER WITH:     AC = MINUS NUMBER OF WORDS TO CLEAR
/                       MQ = ADDRESS OF WHERE TO START THE CLEAR

CLEAR0, 0
        DCA     CLEAR5          /STORE COUNT OF WORDS
        TAD     MQ              /GET ADDRESS TO CLEAR                   /032 CJL
        DCA     CLEAR6          /STORE IN POINTER
        DCA I   CLEAR6          /ZERO A WORD
        ISZ     CLEAR6          /BUMP POINTER
        ISZ     CLEAR5          /BUMP COUNTER
        JMP     .-3             /LOOP
        JMP I   CLEAR0          /DONE

CLEAR5, 0                       /TEMP FOR "CLEAR" ROUTINE
CLEAR6, 0                       /TEMP FOR "CLEAR" ROUTINE

/       ROUTINE TO DISPATCH TO ROUTINE BASED ON VALUE OF "RRTYP".       /027 CJL

/       CALLING SEQUENCE:

/       CLA                     /AC MUST BE CLEAR
/       JMS     DISPATCH        /CALL ROUTINE
/       ADDRESS-2               /DISPATCH TABLE ADDRESS-2
/       NO MATCH RETURN         /RETURNS HERE WITH CLEAR AC IF NO MATCH

/       CALL  WILL DISPATCH TO THE CORRESPONDING ROUTINE ON A MATCH IN  THE  SPECIFIED
/       TABLE (WHICH ENDS WITH ZERO) WITH A CLEAR AC.

DISPATC,.-.                     /MATCH "RRTYP" AND DISPATCH ROUTINE
        CLA                     /JUST IN CASE                           /031 CJL
        TAD I   DISPATCH        /GET PASSED ARGUMENT
        ISZ     DISPATCH        /BUMP PAST THE ARGUMENT
        DCA     DISPA2          /SAVE PASSED ARGUMENT IN-LINE
        TAD I   (RRTYP)         /GET VALUE OF "RRTYP"
        CIA                     /INVERT FOR TESTING
        JMS I   [SRCHTABLE]     /CALL TABLE SEARCH ROUTINE
DISPA2, .-.                     /WILL BE TABLE ADDRESS-2
        SNA CLA                 /SKIP IF MATCH FOUND
        JMP I   DISPATCH        /RETURN ON NO MATCH
        JMP I   TABLEJUMP       /DISPATCH TO MATCHING ADDRESS
\f/      ROUTINE TO PUT CHARS INTO A BUFFER TO GET READY TO FORMAT A PACKET.
/       ENTER WITH CHAR IN THE AC; IF THE CHAR NEEDS CONTROL QUOTING, IT WILL BE ADDED
/       EXIT + 2 IF EVERYTHING IS OK
/       EXIT + 1 IF BUFFER IS FULL

OPBUF,  0                       /PUT CHARACTERS INTO BUFFER FOR PACKET ROUTINE
        JMS I   (OPRE)          /CHECK FOR PREFIX
        JMP     OPBUF1          /NO PREFIX
        DCA     OP1             /SAVE CONVERTED CHAR
        TAD     RQCTL           /GET QUOTE CHAR TO USE
        DCA I   OP2             /PUT RETURNED PREFIX INTO BUFFER
        ISZ     OP2             /BUMP POINTER
        TAD     OP1             /GET BACK CONVERTED CHAR
OPBUF1, DCA I   OP2             /PUT INTO BUFFER
        ISZ     OP2             /BUMP POINTER
        NL7777                  /SET -1                                 /032 CJL
        DCA I   OP2             /ALWAYS TERMINATE BUFFER
        TAD     RMAXL           /GET MAX BUFFER LENGTH
        TAD     (-40+HOLDBF-4   /
        CIA
        TAD     OP2             /COMPARE WITH WHAT WE HAVE
        SPA CLA                 /SKIP IF NO ROOM
        JMP     OPBUF2          /HAVE ROOM
        JMS     INIOPB          /RESET BUFFER
        JMP I   OPBUF           /TAKE RETURN + 1

OPBUF2, ISZ     OPBUF           /BUMP RETURN FOR BUFFER NOT FULL
        JMP I   OPBUF           /DONE

OP1,    0                       /TEMP LOCATION
OP2,    HOLDBF                  /POINTER FOR HOLD BUFFER

/       ROUTINE TO RE-SET THE HOLD BUFFER.

INIOPB, 0
        TAD     (HOLDBF         /RE-SET BUFFER POINTER
        DCA     OP2
        JMP I   INIOPB

/       ROUTINE TO CALCULATE A 1 BYTE CHECKSUM.

CKSUM,  0
        DCA     CKSUM1          /STORE TEMP
        TAD     CKSUM1          /GET BACK
        RTR;RTR;RTR             /GET TWO HIGHEST INTO TWO LOWEST        /032 CJL
        AND     (3              /KEEP ONLY BITS 0-1
        TAD     CKSUM1          /GET ORIGINAL
        AND     [77]            /KEEP ONLY BITS 0-5                     /016 CJL
        TAD     [40]            /MAKE A CHAR(CHECKSUM)
        JMP I   CKSUM           /DONE, RETURN IN AC

CKSUM1, 0                       /TEMP FOR "CKSUM"
\f       PAGE
\f/      ROUTINE TO INPUT CHARS FROM REMOTE UNTIL A "SOH" CHAR IS FOUND.

GETSOH, 0
        JMS     COMIN           /GET A CHARACTER FROM THE REMOTE LINE   /046 CJL
        JMP I   GETSOH          /TIME-OUT
        AND     [177]           /IGNORE PARITY BIT                      /034 CJL
        TAD     (-CNTRLA)       /COMPARE WITH "SOH"                     /034 CJL
        SZA CLA                 /SKIP IF SAME
        JMP     GETSOH+1        /LOOP TILL WE GET ONE
        ISZ     GETSOH          /BUMP FOR GOOD RETURN
        JMP I   GETSOH          /GOT ONE, DONE


/       ROUTINE TO GET A CHAR FROM THE REMOTE LINE AND UPDATE CHECKSUM.

GETIR,  0
        JMS     COMIN           /GET A CHARACTER FROM THE REMOTE LINE   /046 CJL
        JMP I   GETIR           /TIME-OUT RETURN
        DCA     GETIR1          /STORE TEMP
        TAD     GETIR1          /GET CHAR BACK
        TAD I   (ILINK9)        /ADD CHECKSUM
        DCA I   (ILINK9)        /RETURN UPDATED CHECKSUM
        TAD     GETIR1          /RE-GET CURRENT INPUT CHAR
        TAD     [-15]           /CHECK FOR A RETURN
        SNA CLA                 /SKIP IF NOT A RETURN
        JMP I   GETIR           /WAS A RETURN, TAKE EXIT + 1
        TAD     GETIR1          /RE-GET CHAR FOR RETURN
        ISZ     GETIR           /BUMP FOR GOOD RETURN
        JMP I   GETIR           /AND RETURN IN THE AC

GETIR1, 0                       /TEMP LOCAL TO "GETIR"
\f/      REMOTE COMMUNICATIONS ROUTINES FOR NON-CONNECT USAGE.           /046 CJL

/       REMOTE INPUT ROUTINE.                                           /046 CJL

COMIN,  .-.                     /REMOTE INPUT ROUTINE                   /046 CJL
        CLA                     /CLEAN UP                               /046 CJL
        TAD     [-15]           /SETUP THE                              /049 CJL
        DCA     TIMEOUT         /TIME-OUT FACTOR                        /046 CJL
INLUP,  TAD     INFLAG          /IS INPUT AVAILABLE?                    /046 CJL

/       THE ABOVE INSTRUCTION IS FOR DECMATE  II USE ONLY.  THE DEFAULT INSTRUCTION IS
/       FOR KL8 INTERFACES.

        *INLUP                  /OVERLAY DECMATE II CODE                /049 CJL

INLUP,  SKP                     /WE'RE NOT A DECMATE II                 /049 CJL
        SNA CLA                 /SKIP IF INPUT AVAILABLE (ON DECMATE II)/049 CJL
INSKIP, JMP     NOTYET          /JUMP IF NOT                            /049 CJL
INLUP1, DCA     INFLAG          /CLEAR INPUT AVAILABILITY FLAG          /049 CJL
INREAD, IRB                     /GET THE CHARACTER                      /049 CJL

/       THE ABOVE INSTRUCTIONS ARE FOR DECMATE II  USE ONLY.  THE DEFAULT INSTRUCTIONS
/       ARE FOR KL8 INTERFACES.

        *INSKIP                 /OVERLAY DECMATE II CODE                /049 CJL

INSKIP, RKSFIOT                 /INPUT FLAG UP?                         /049 CJL
INLUP1, JMP     NOTYET          /NO, CHECK FOR ABORT, ETC.              /049 CJL
INREAD, RKRBIOT                 /YES, READ IN THE CHARACTER             /049 CJL
        AND     [177]           /JUST SEVEN-BIT                         /046 CJL
        DCA     RCHAR           /SAVE THE CHARACTER                     /046 CJL
        TAD     RCHAR           /GET IT BACK                            /046 CJL
        ISZ     COMIN           /BUMP TO GOOD RETURN                    /046 CJL
        JMP I   COMIN           /RETURN                                 /046 CJL

/       COMES HERE IF INPUT NOT AVAILABLE.

NOTYET, JMS I   (CTLCTST)       /CHECK FOR <^C>, ETC.                   /044 CJL
        TAD     [-CNTRLZ]       /COMPARE POSSIBLE CHARACTER TO <^Z>     /044 CJL
        SZA                     /SKIP IF IT ALREADY MATCHES             /044 CJL
        TAD     [-CNTRLX+CNTRLZ]/ELSE COMPARE TO <^X>                   /044 CJL
        SNA CLA                 /SKIP IF NEITHER ABORT CHARACTER        /049 CJL
        ISZ     ABFLAG          /SET ABORT FLAG                         /049 CJL
        SKP                     /SKIP IF NOT TOO MANY TIMES             /049 CJL
        JMP     .-2             /ENSURE FLAG SETTING                    /049 CJL
\fINSTATU,JMS    UPSTATUS        /UPDATE THE PORT STATUS                 /049 CJL

/       THE ABOVE INSTRUCTION IS FOR DECMATE  II USE ONLY.  THE DEFAULT INSTRUCTION IS
/       FOR KL8 INTERFACES.

        *INSTATUS               /OVERLAY DECMATE II CODE                /049 CJL

INSTATU,NOP                     /WE'RE NOT A DECMATE II                 /049 CJL
        ISZ     WASTIME         /WASTE SOME TIME                        /046 CJL
        JMP     INLUP           /KEEP TRYING                            /046 CJL
        ISZ     TIMEOUT         /WAITING TOO LONG?                      /046 CJL
        JMP     INLUP           /NO, KEEP TRYING                        /046 CJL
        JMP I   COMIN           /YES, TAKE ERROR RETURN                 /046 CJL

/       FLOW-CONTROL STATUS ROUTINE.                                    /049 CJL

GETFLOW,.-.                     /GET FLOW-CONTROL STATUS
GETFL1, JMS     UPSTATUS        /UPDATE THE CURRENT STATUS

/       THE ABOVE INSTRUCTION IS FOR DECMATE II USE ONLY.   THE DEFAULT INSTRUCTION IS
/       FOR KL8 INTERFACES.

        *GETFL1                 /OVERLAY DECMATE II CODE

GETFL1, NOP                     /WE'RE NOT A DECMATE II
        JMS I   (RINGET)        /GET REMOTE CHARACTER (IF ANY)
        CLA                     /THROW IT AWAY
        TAD     REMWAIT         /GET REMOTE FLOW STATUS
        JMP I   GETFLOW         /RETURN

/       REMOTE OUTPUT ROUTINE.                                          /046 CJL

COMOUT, .-.                     /REMOTE OUTPUT ROUTINE                  /046 CJL
        DCA     OUTEMP          /SAVE PASSED VALUE                      /046 CJL
CMRESET,TAD     [-15]           /SETUP THE                              /049 CJL
        DCA     OTIME           /TIME-OUT COUNTER                       /049 CJL
COMWAIT,JMS     GETFLOW         /GET REMOTE WAIT STATUS                 /049 CJL

/       THE ABOVE INSTRUCTION IS FOR DECMATE USE ONLY.  THE DEFAULT INSTRUCTION IS FOR
/       KL8 INTERFACES.

        *COMWAIT                /OVERLAY DECMATE CODE                   /049 CJL

COMWAIT,NL7777                  /SETUP FOR FLOW CONTROL FLAG LOAD       /049 CJL
        AND     FLOWFLAG        /SHOULD WE WAIT FOR REMOTE FLOW CONTROL?/049 CJL
        SNA CLA                 /SKIP IF SO                             /049 CJL
        JMP     NOWAIT          /JUMP IF NOT                            /049 CJL
\fFLOWAIT,JMS    GETFLOW         /GET REMOTE WAIT STATUS                 /049 CJL
        SZA CLA                 /SKIP IF NOT WAITING                    /049 CJL
        JMP     FLOWAIT         /JUMP IF STILL WAITING                  /049 CJL
NOWAIT, TAD     OUTFLAG         /CHECK IF OUTPUT IS AVAILABLE           /049 CJL
CMOUT1, SNA CLA                 /SKIP IF SO                             /049 CJL
CMOUT2, JMP     OWAIT           /JUMP IF NOT                            /049 CJL
DM1AND, DCA     OUTFLAG         /CLEAR OUTPUT AVAILABILITY FLAG         /049 CJL
CMOUT3, TAD     OUTEMP          /GET THE PASSED VALUE                   /049 CJL
CMOUT4, OLS                     /OUTPUT IT                              /049 CJL

/       THE ABOVE INSTRUCTIONS ARE FOR DECMATE II  USE ONLY.  THE DEFAULT INSTRUCTIONS
/       ARE FOR KL8 INTERFACES.

        *NOWAIT                 /OVERLAY DECMATE II CODE                /049 CJL

NOWAIT, RTSFIOT                 /OUTPUT FLAG UP?                        /049 CJL
CMOUT1, JMP     OWAIT           /NO, WAIT FOR IT THERE                  /049 CJL

/       THE ABOVE INSTRUCTION IS FOR DECMATE I USE  ONLY.   THE DEFAULT INSTRUCTION IS
/       FOR KL8 INTERFACES.

        *CMOUT1                 /OVERLAY DECMATE I CODE                 /049 CJL

CMOUT1, JMP     COMWAIT         /NO, WAIT FOR IT                        /049 CJL
CMOUT2, TAD     OUTEMP          /YES, GET PASSED VALUE                  /049 CJL
DM1AND, AND     [377]           /ENSURE EIGHT BITS (FOR DECMATE I)      /049 CJL

/       THE ABOVE INSTRUCTION IS FOR DECMATE I USE ONLY.    THE DEFAULT INSTRUCTION IS
/       FOR KL8 INTERFACES.

        *DM1AND                 /OVERLAY DECMATE I CODE                 /049 CJL

DM1AND, SKP                     /WE'RE NOT A DECMATE I                  /049 CJL
CMOUT3, TAD     [400]           /FORCE OUTPUT WRITE FOR DECMATE I       /049 CJL
CMOUT4, RTLSIOT                 /OUTPUT THE CHARACTER                   /049 CJL
        CLA                     /CLEAN UP                               /049 CJL
        JMP I   COMOUT          /RETURN                                 /049 CJL

/       COMES HERE IF OUTPUT NOT READY.                                 /049 CJL

OWAIT,  ISZ     OWASTE          /WASTE SOME TIME                        /049 CJL
        JMP     COMWAIT         /KEEP TRYING                            /049 CJL
        ISZ     OTIME           /WAITING TOO LONG?                      /049 CJL
        JMP     COMWAIT         /NO, KEEP TRYING                        /049 CJL
        JMS I   (DMINIT)        /YES, RESET EVERYTHING                  /049 CJL
        JMP     CMRESET         /TRY, TRY AGAIN                         /049 CJL
\f/      DECMATE II, ETC. STATUS UPDATE ROUTINE.                         /046 CJL

UPSTATU,.-.                     /UPDATE THE STATUS ROUTINE              /046 CJL
        ISF                     /COMMUNICATIONS PORT FLAG UP?           /046 CJL
        JMP I   UPSTATUS        /NO, RETURN                             /046 CJL
        NL4000                  /SETUP READ OF REGISTER ZERO            /046 CJL
        MPSCC                   /TELL THE MPSCC CHIP                    /046 CJL
        CLA                     /CLEAN UP                               /046 CJL
        MPSCC                   /READ REGISTER ZERO NOW                 /046 CJL
        AND     (5)             /JUST INPUT AND OUTPUT BITS             /046 CJL
        CLL RAR                 /MOVE INPUT TO LINK                     /046 CJL
        SNA CLA                 /SKIP IF OUTPUT INTERRUPT               /046 CJL
        JMP     INCHK           /JUMP IF NOT                            /046 CJL
        TAD     (050)           /GET OUTPUT CLEAR VALUE                 /046 CJL
        MPSCC                   /CLEAR THE OUTPUT INTERRUPT             /046 CJL
        DCA     OUTFLAG         /INDICATE OUTPUT AVAILABLE NOW          /046 CJL
INCHK,  CLA RAL                 /GET RECEIVE STATUS                     /046 CJL
        SZA                     /SKIP IF INPUT NOT AVAILABLE RIGHT NOW  /046 CJL
        DCA     INFLAG          /INDICATE NEW INPUT STATUS              /046 CJL
        CLA                     /CLEAN UP EITHER WAY                    /046 CJL
        TAD     (070)           /GET END OF INTERRUPT VALUE             /046 CJL
        MPSCC                   /CLEAR THE INTERRUPT                    /046 CJL
        CLA                     /CLEAN UP                               /046 CJL
        JMP I   UPSTATUS        /RETURN                                 /046 CJL

        AND377= AND     [377]   /INSTRUCTION CONSTANT                   /049 CJL
        OUTEMP= COMIN           /OUTPUT ROUTINE TEMPORARY               /049 CJL
        TIMEOUT=GETFLOW         /TIME-OUT TEMPORARY                     /049 CJL
        WASTIME=COMOUT          /TIME-OUT TEMPORARY                     /049 CJL

OTIME,  .-.                     /TIME-OUT TEMPORARY                     /049 CJL
OWASTE, .-.                     /TIME-OUT TEMPORARY                     /049 CJL

        PAGE

/       HOLD BUFFER FOR CHAR OUTPUT

        DECIMAL

HOLDBF, ZBLOCK  92

        OCTAL
\f/      ROUTINE TO CHECK FOR CONTROL PREFIX.
/       ENTER WITH CHAR TO CHECK IN THE AC.
/       EXIT + 1 WITH CHAR IN THE AC IF NO PREFIX QUOTING.
/       EXIT + 2 WITH PROPER CHAR IN THE AC AND QUOTING IS REQUIRED.

OPRE,   0                       /CHECK FOR CONTROL PREFIX ROUTINE
        DCA     PRETEMP         /SAVE THE CHARACTER                     /032 CJL
        TAD     QFLAG           /CHECK FOR IN CTRL QUOTE MODE
        SZA CLA                 /SKIP IF YES
        JMP     OPRE1           /NO QUOTE PREFIX
        TAD     PRETEMP         /GET THE CHARACTER                      /032 CJL
        AND     [7740]          /QUICK CHECK FOR <40                    /014/016 CJL
        SNA CLA                 /SKIP IF NOT CONTROL
        JMP     OPRE2           /PREFIX QUOTE
        TAD     PRETEMP         /GET THE CHARACTER                      /032 CJL
        TAD     (-177           /CHECK FOR "DELETE"
        SNA CLA                 /SKIP IF NOT
        JMP     OPRE2           /PREFIX QUOTE
        TAD     PRETEMP         /GET THE CHARACTER                      /032 CJL
        CIA                     /NEGATE FOR COMPARE
        TAD     RQCTL           /SEE IF SAME AS QUOTE CHAR
        SZA CLA                 /SKIP IF PREFIX QUOTE
        JMP     OPRE1           /NO PREFIX QUOTE
        TAD     RQCTL           /PREFIX WITH PREFIX
        JMP     OPRE3           /PREFIX WITH THE PREFIX

OPRE1,  TAD     PRETEMP         /GET THE CHARACTER                      /032 CJL
        JMP I   OPRE            /DONE

OPRE2,  TAD     PRETEMP         /GET THE CHARACTER                      /032 CJL
        TAD     [100]           /MAKE IT PRINTABLE                      /016 CJL
        AND     [177]           /IN CASE IT WAS 177                     /014/016 CJL

OPRE3,  ISZ     OPRE            /BUMP FOR PREFIX RETURN
        JMP I   OPRE            /DONE

PRETEMP,.-.                     /PREFIX TEMPORARY                       /032 CJL

        PAGE                                                            /014 CJL
\f/      ROUTINE TO SCAN A TEXT LINE FOR KEYWORD DELIMITERS.

/       THIS  ROUTINE EXPECTS THE AC TO POINT TO A TEXT LINE TO  SCAN  AND  FINDS  THE
/       FIRST NON-SPACE, NON-END OF LINE CHAR IN THE LINE AND SETS "SCAN1" TO POINT TO
/       IT.  NEXT WE FIND THE LAST CHAR IN THE LINE THAT IS A  NON-SPACE,  NON-END  OF
/       LINE  AND  STORE  A  POINTER  TO  IT  IN "SCAN2".  KEYWORDS ARE DELIMITED BY A
/       BEGINNING OF  LINE  OR SPACE AT THE BEGINNING AND AN END OF LINE OR A SPACE AT
/       THE END.

/       ENTER:  AC = POINTER TO COMMAND LINE

/       EXIT: (SUCCESS) SCAN1 = POINTER TO FIRST CHAR OF KEYWORD.
/                       SCAN2 = POINTER TO LAST CHAR OF KEYWORD.
/                       RETURN = RETURN + 2 (NO WORDS LEFT IN LINE).

/       EXIT: (FAIL)    RETURN = RETURN + 1.

SCNEL,  0                       /SCAN ROUTINE
        JMS I   [NOSP]          /FIND FIRST NON-SPACE
        JMP I   SCNEL           /END OF LINE RETURN
        DCA     SCAN1           /RETURN SCAN LINE POINTER
        TAD     SCAN1           /RE-GET SCAN LINE POINTER
        JMS I   [SP]            /FIND FIRST SPACE OR EOL
        NOP                     /RETURN HERE ON EOL
        TAD     (-1             /BACK UP TO PREVIOUS CHAR
        DCA     SCAN2           /SET END ELEMENT POINTER
        ISZ     SCNEL           /TAKE SUCCESS RETURN
        JMP I   SCNEL           /DONE


/       ROUTINE TO SCAN THRU A TEXT LINE LOOKING FOR THE NEXT SPACE.
/       ENTER ROUTINE WITH THE LINE POINTER IN THE AC.

/       EXIT:   RETURN + 2 WITH AC = POINTER TO SPACE.
/               RETURN + 1 WITH AC = POINTER TO END OF LINE.

SP,     0                       /CHECK FOR A <SPACE> ROUTINE
        DCA     SCANTP          /USE A TEMP POINTER
        SKP                     /SKIP INTO LOOP BELOW
SP1,    ISZ     SCANTP          /BUMP LINE POINTER
        TAD I   SCANTP          /GET A CHAR
        SPA                     /SKIP IF NOT END OF LINE
        JMP     SP3             /GOT AN END OF LINE
        TAD     [-" !200]       /COMPARE WITH <SP>                      /034 CJL
        SZA CLA                 /SKIP IF IS A SPACE
        JMP     SP1             /LOOP TILL SPACE OR EOL
        ISZ     SP              /BUMP RETURN FOR SPACE FOUND

SP3,    CLA CLL                 /INSURE A CLEAR AC
        TAD     SCANTP          /GET POINTER VALUE
        JMP I   SP              /RETURN IN AC
\f/      ROUTINE TO SCAN THRU A TEXT LINE FOR THE FIRST NON-SPACE.
/       ENTER ROUTINE WITH POINTER TO THE LINE IN THE AC.

/       EXIT:   RETURN + 2 WITH AC = POINTER TO NON-SPACE.
/               RETURN + 1 WITH AC = POINTER TO END OF LINE.

NOSP,   0                       /FIND A NON-<SPACE> ROUTINE
        DCA     SCANTP          /USE A TEMP POINTER
        SKP                     /SKIP INTO LOOP BELOW
NOSP1,  ISZ     SCANTP          /BUMP THE LINE POINTER
        TAD I   SCANTP          /GET A CHAR FROM THE LINE
        SPA                     /SKIP IF NOT EOL
        JMP     NOSP3           /EXIT IF EOL
        TAD     [-" !200]       /COMPARE WITH <SP>                      /034 CJL
        SNA CLA                 /SKIP IF NOT SPACE
        JMP     NOSP1           /LOOP TILL SPACE OR EOL
        ISZ     NOSP            /BUMP RETURN FOR SPACE FOUND
NOSP3,  CLA CLL                 /INSURE CLEAR AC
        TAD     SCANTP          /GET POINTER
        JMP I   NOSP            /RETURN IN AC



/       ROUTINE TO FIND AN END CHAR IN A STRING.
/       ENTER ROUTINE WITH POINTER TO THE STRING IN THE AC.
/       EXIT WITH THE POINTER TO THE FIRST MINUS CHAR IN THE AC.

FNDEND, 0                       /FIND END CHAR ROUTINE
        DCA     SCANTP          /PUT POINTER IN SCANTP
FEND1,  TAD I   SCANTP          /GET A CHAR FROM THE STRING
        SPA CLA                 /SKIP IF NOT END
        JMP     FEND2           /EXIT IF END OF STRING
        ISZ     SCANTP          /BUMP THE POINTER
        JMP     FEND1           /LOOP TILL NON-END OF STRING

FEND2,  TAD     SCANTP          /GET POINTER TO NON-END OF STRING
        JMP I   FNDEND          /EXIT WITH POINTER IN AC

SCANTP, 0                       /USED IN THE SCAN ROUTINES "SP", "NOSP", "FNDNUL"
\f/      ROUTINE TO LOOKUP THE KEY WORD POINTED TO BY THE AC IN THE      /014 CJL
/       TABLE POINTED TO BY PTABLE.

/       RETURN + 1 IF NO MATCH IS FOUND WITH AC = ENTRY VALUE.
/       RETURN + 2 IF NO KEYWORD IS FOUND (EOL DETECTED).
/       RETURN + 3 IF MATCH IS FOUND WITH THE NEXT PARSE POSITION IN THE LINE IN
/       THE AC AND THE DISPATCH ADDRESS FROM THE TABLE IN "KEYDSP".

KEYPRS, .-.                     /KEYWORD PARSE ROUTINE
        DCA     LOOK3           /SAVE IN CASE OF FAIL
        TAD     LOOK3           /RE-GET
/       AND     (137)           /MAKE CHARACTER UPPER-CASE, NO PARITY   /MD013
        JMS     SCNEL           /TRY TO SCAN OFF A KEYWORD
        JMP     KP45            /END OF LINE ENCOUNTERED
        TAD     PTABLE          /GET ADDRESS OF TABLE
        DCA     LOOK2           /STORE IN LOCAL POINTER

KP10,   TAD     SCAN1           /GET ADDRESS OF SCAN ELEMENT
        DCA     LOOK1           /INTO LOCAL POINTER

KP20,   TAD I   LOOK1           /GET A CHARACTER FROM THE SCAN ELEMENT
        CIA                     /NEGATE FOR COMPARE
        TAD I   LOOK2           /GET A CHAR FROM THE TABLE ELEMENT
        SZA CLA                 /SKIP IF MATCH
        JMP     KP90            /NO MATCH, SET TO LOOK AT NEXT TABLE ENTRY
        TAD     LOOK1           /CHECK IF ALL ENTERED CHARS MATCH
        CIA                     /NEGATE TO COMPARE
        TAD     SCAN2           /HAVE WE MATCHED TO THE TERMINATOR?
        SNA CLA                 /SKIP IF NO
        JMP     KP40            /YES, GOT ENOUGH TO MATCH
        ISZ     LOOK1           /MORE TO MATCH, BUMP SCAN ELEMENT POINTER
        ISZ     LOOK2           /BUMP TABLE ELEMENT POINTER
        JMP     KP20            /CONTINUE MATCH LOOP

KP40,   TAD     LOOK2           /GET CURRENT TABLE POINTER
        JMS     FNDEND          /FIND A NULL MARK
        IAC                     /BUMP BY 1
        DCA     LOOK1           /STORE IN A POINTER
        TAD I   LOOK1           /GET DISPATCH ADDRESS
        DCA     KEYDSP          /PUT INTO DISPATCH ADDRESS
        ISZ     KEYPRS          /BUMP RETURN
        ISZ     KEYPRS          /BUMP AGAIN
        CLA CLL IAC             /AC = 1
        TAD     SCAN2           /GET POINTER TO END OF CURRENT KEY
        JMP I   KEYPRS          /RETURN

/       END OF LINE ENCOUNTERED ON PARSE.

KP45,   ISZ     KEYPRS          /BUMP RETURN ONCE FOR EOL

/       NO MATCHES IN THE TABLE HERE.

KP50,   TAD     LOOK3           /GET ORIGINAL AC
        JMP I   KEYPRS          /RETURN
\f/      FAILURE ON CURRENT TABLE ENTRY, SET FOR NEXT ENTRY (IF  THERE IS ONE)  AND TRY
/       AGAIN.

KP90,   TAD     LOOK2           /GET TABLE POINTER
        JMS     FNDEND          /FIND NEXT TABLE ENTRY
        IAC;IAC                 /NEXT ENTRY IS 2 PAST THE NULL
        DCA     LOOK2           /RE-SET LOCAL TABLE POINTER
        TAD I   LOOK2           /CHECK END OF TABLE
        SNA CLA                 /SKIP IF NOT END OF THE TABLE
        JMP     KP50            /TAKE NOT FOUND EXIT
        JMP     KP10            /TRY MATCH ON THIS ENTRY

LOOK1,  .-.                     /TEMPORARY FOR KEYPRS                   /014 CJL
LOOK2,  .-.                     /TEMPORARY FOR KEYPRS                   /014 CJL
LOOK3,  .-.                     /TEMPORARY FOR KEYPRS                   /014 CJL

/       ROUTINE TO MOVE WORDS OF MEMORY.                                /014 CJL

/       CALLING SEQUENCE:

/       TAD     (DESTINATION)   /GET DESTINATION ADDRESS
/       DCA     MQ              /INTO MQ                                /032 CJL
/       TAD     (-COUNT)        /GET -NUMBER OF WORDS TO MOVE
/       DCA     MOVE4           /SETUP MOVE COUNTER
/       TAD     (SOURCE)        /GET SOURCE ADDRESS
/       JMS I   (MOVE0)         /CALL MOVE ROUTINE
/       RETURN                  /RETURNS HERE

MOVE0,  .-.                     /MOVE ROUTINE                           /014 CJL
        DCA     MOVE5           /STORE SOURCE ADDRESS IN LOCAL POINTER
        TAD     MQ              /GET DESTINATION ADDRESS                /032 CJL
        DCA     MOVE6           /STORE IN LOCAL POINTER
MOVE1,  TAD I   MOVE5           /GET A WORD FROM THE SOURCE
        DCA I   MOVE6           /MOVE TO DESTINATION
        ISZ     MOVE5           /BUMP SOURCE POINTER
        ISZ     MOVE6           /BUMP DESTINATION COUNTER
        ISZ     MOVE4           /BUMP COUNTER
        JMP     MOVE1           /LOOP
        JMP I   MOVE0           /DONE

MOVE5,  .-.                     /SOURCE POINTER FOR "MOVE"
MOVE6,  .-.                     /DESTINATION POINTER FOR "MOVE"

        PAGE                                                            /014 CJL
\f/      ROUTINE TO PARSE OFF A DEVICE NAME FROM THE COMMAND LINE.       /O14 CJL

/       CALLING SEQUENCE:

/       TAD     (POINTER)       /AC CONTAINS POINTER TO COMMAND LINE
/       JMS I   [DPARS]         /CALL ROUTINE
/       ERROR RETURN            /AC UNCHANGED
/       GOOD RETURN             /AC NOW POINTS TO REST OF LINE

/       DEVNUM= DEVICE NUMBER TO USE.
/       ":" IS THE FIFTH CHARACTER IF NOT USING DEFAULT DEVICE.

DPARS,  .-.                     /DEVICE PARSE ROUTINE                   /014 CJL
        DCA     DPAR10          /SAVE INITIAL POINTER TO LINE
        TAD     DPAR10          /GET POINTER
        JMS I   [NOSP]          /GET PAST ANY LEADING SPACES
        JMP     DFDEV           /GOT END OF LINE, USE DEFAULT DEVICE
        DCA     DPAR11          /SAVE POINTER TO LINE
        DCA     DEVNAME         /INITIALIZE THE DEVICE NAME             /014 CJL
        DCA     DEVNAME+1       /FOR "INQUIRE" FUNCTION                 /014 CJL
        TAD     (DEVNAM)        /GET ADDRESS OF WHERE TO PUT DEVICE NAME/014 CJL
        DCA     PACK6P          /STORE IN PACK6 POINTER
        DCA     PACK6F          /INITIALIZE PACK6 FLAG FOR LOW BYTE     /014 CJL
        TAD     (-4)            /SET UP A COUNTER                       /014 CJL
        DCA     DPAR13          /FOR NO MORE THAN 4 CHARS
DPAR1,  TAD I   DPAR11          /GET A CHAR FROM THE LINE
        SNA                     /SKIP IF NOT <EOL>                      /014 CJL
        JMP     DFDEV           /GOT AN <EOL>, USE DEFAULT DEVICE       /014 CJL
        TAD     (-":!200)       /CHECK FOR ":"                          /034 CJL
        SNA CLA                 /SKIP IF NOT END OF DEVICE NAME
        JMP     DPAR2           /DEVICE NAME SET UP
        TAD I   DPAR11          /RE-GET CHAR
        ISZ     DPAR11          /BUMP LINE POINTER
        PACK6                   /PACK SIX-BIT                           /014 CJL
        ISZ     DPAR13          /BUMP CHARACTER COUNTER                 /014 CJL
        JMP     DPAR1           /CAN CONTINUE
        TAD I   DPAR11          /GET CHARACTER AFTER THE FOURTH         /014 CJL
        TAD     (-":!200)       /CHECK FOR ":"                          /034 CJL
        SZA CLA                 /SKIP IF YES, ALL IS OK
        JMP     DFDEV           /USE THE DEFAULT DEVICE
DPAR2,  ISZ     DPAR11          /BUMP POINTER PAST ":"
        TAD     (DEVNAM)        /GET PARSED DEVICE NAME ADDRESS         /014 CJL
        JMP     DPAR4           /DO AN OS/8 "INQUIRE"

DFDEV,  CLA CLL                 /CLEAN UP                               /019 CJL
        TAD     DPAR10          /GET ORIGINAL AC FOR
        DCA     DPAR11          /RETURN POINTER
DPAR4,  JMS     DVNUM           /GET DEVICE NUMBER
        JMP     DPAR8           /DEVICE NAME ERROR
        DCA     DEVNUM          /RETURN FOR CALLING PROGRAM
        TAD     DPAR11          /GET CURRENT POINTER
        ISZ     DPARS           /BUMP RETURN
        JMP I   DPARS           /RETURN                                 /014 CJL
\fDPAR8, CLA CLL                 /INSURE CLEAR AC
        TAD     DPAR10          /GET ORIGINAL AC
        JMP I   DPARS           /TAKE ERROR EXIT

DPAR10, .-.                     /TEMPORARY FOR DPARS                    /014 CJL
DPAR11, .-.                     /TEMPORARY FOR DPARS                    /014 CJL
DPAR13, .-.                     /TEMPORARY FOR DPARS                    /014 CJL
DEFDEV, DEVICE  DSK             /DEFAULT DEVICE
DEVNAM, FILENAM ZZZZZZ.ZZ       /DEFAULT FILENAME                       /014 CJL

/       ROUTINE TO RETURN A DEVICE NUMBER FOR A DEVICE NAME.            /014 CJL

/       CALLING SEQUENCE:

/       TAD     (ADDRESS)       /AC=ADDRESS OF DEVICE NAME
/                               /*OR* 0000 IF "DSK:" IS TO BE USED
/       ERROR RETURN            /INVALID DEVICE
/       GOOD RETURN             /AC=DEVICE NUMBER

DVNUM,  .-.                     /DEVICE NUMBER ROUTINE                  /014 CJL
        SNA                     /SKIP IF DEVICE NAME SPECIFIED
        TAD     (DEFDEV)        /ELSE USE DEFAULT                       /014 CJL
        DCA     DVNUM9          /SAVE IN LOCAL POINTER
        TAD I   DVNUM9          /GET FIRST TWO CHARACTERS OF NAME       /014 CJL
        DCA     DVNUM5          /PUT INTO CALL
        ISZ     DVNUM9          /BUMP POINTER
        TAD I   DVNUM9          /GET LAST TWO CHARACTERS OF NAME        /014 CJL
        DCA     DVNUM5+1        /PUT INTO CALL
        CIF     USRFLD          /GOTO USR FIELD                         /020 CJL
        JMS I   [USRENTRY]      /CALL USER SERVICE ROUTINE              /035 CJL
        INQUIRE                 /INQUIRE ABOUT HANDLER                  /020 CJL
DVNUM5, .-.                     /FIRST TWO BYTES OF DEVICE NAME         /014 CJL
        .-.                     /LAST TWO BYTES OF DEVICE NAME          /014 CJL
        0                       /ENTRY POINT OF HANDLER RETURNED HERE
        JMP I   DVNUM           /ERROR, TAKE ERROR EXIT
        TAD     DVNUM5+1        /DEVICE NUMBER
        ISZ     DVNUM           /BUMP RETURN FOR NO ERROR
        JMP I   DVNUM           /RETURN

DVNUM9, .-.                     /LOCAL FOR "DVNUM"                      /014 CJL
\f/      DEVICE HANDLER FETCH ROUTINE.                                   /020 CJL

/       CALLING SEQUENCE:

/       TAD     (HANDLERNUMBER) /AC CONTAINS DEVICE HANDLER NUMBER
/       JMS I   [HFETCH]        /CALL ROUTINE
/       ERROR RETURN            /COULDN'T LOAD HANDLER
/       GOOD RETURN             /HANDLER LOADED

/       IF THE HANDLER WAS LOADED, THEN HNDADR CONTAINS THE HANDLER ENTRY POINT.

HFETCH, .-.                     /HANDLER FETCH ROUTINE
        DCA     HANDNUMBER      /STORE HANDLER NUMBER
        TAD     (HNDLR+1)       /GET OUR BUFFER+(TWO PAGE ALLOWED)
        DCA     HADR            /STORE IN-LINE
        TAD     HANDNUMBER      /GET HANDLER NUMBER AGAIN
        CIF     USRFLD          /GOTO USR FIELD
        JMS I   [USRENTRY]      /CALL USER SERVICE ROUTINE              /035 CJL
        FETCH                   /FETCH HANDLER
HADR,   .-.                     /WILL BE OUR SUGGESTED ADDRESS+TWO PAGES ALLOWED
        SKP                     /COULDN'T DO IT
        ISZ     HFETCH          /BUMP TO GOOD RETURN
        CLA CLL                 /CLEAN UP
        TAD     HADR            /GET ACTUAL HANDLER ADDRESS
        DCA     HNDADR          /STASH THE POINTER
        JMP I   HFETCH          /RETURN EITHER WAY

HANDNUM,.-.                     /HANDLER NUMBER TEMPORARY

\f/      ROUTINE TO HANDLE THE "FINISH" COMMAND.                         /021 CJL

FINSRV, 0
        JMS I   [CREST2]        /SETUP CONSOLE OUTPUT ROUTINES          /025 CJL
        TAD     (MSEND)         /GET SEND MODE VALUE                    /045 CJL
        DCA     KMODE           /SETUP PROPER MODE                      /045 CJL
        FPACK                   /FORMAT A PACKET
        SRVFIN                  /PACKET DATA ADDRESS
        STGEN                   /PACKET TYPE

FIN2,   SPACK                   /SEND PACKET
        1                       /AWAIT RESPONSE
        FIN20-2                 /DISPATCH LIST FOR RESPONSE             /027 CJL

/       NAK OR UNDEFINED RESPONSE HERE

FIN5,   ISZ     RTRYC           /BUMP RE-TRY COUNTER
        JMP     FIN2            /GET RESPONSE AND TRY AGAIN
        TAD     (NOFINISH)      /FAILED, RETURN MESSAGE                 /025 CJL
        JMP I   FINSRV

/       ACK HERE

FIN10,  ISZ     FINSRV          /BUMP FOR NON-ERROR EXIT
        JMP I   FINSRV          /DONE

FIN20,  STACK;  FIN10           /ACK
        STNAK;  FIN5            /NAK
        0

SRVFIN, "F&137                  /SERVER KERMIT COMMAND TO SHUT DOWN
        -1                      /END OF DATA

        PAGE
\f/      ROUTINE TO PARSE OFF A FILE NAME.
/       FILE NAME TO BE PARSED MUST BE LETTERS OR DIGITS AND BE NO MORE THAN
/       SIX CHARS FOR THE NAME AND TWO CHARS FOR THE EXTENSION.

/       ENTER WITH:     AC =    POINTER TO FILE NAME TO PARSE.
/                       FNPTR = POINTER TO WHERE TO PUT THE PARSED FILE NAME.

/       NON-ERROR EXIT: AC =    POINTER TO REMAINDER OF COMMAND LINE.
/                               RETURN THE CALL + 2.

/       ERROR EXIT:     AC =    ORIGINAL POINTER.
/                               RETURN THE CALL + 1.

PFNAM,  0
        DCA     PFN10           /SAVE POINTER TO FILE NAME STRING
        TAD     FNPTR           /GET POINTER TO FILE NAME BLOCK
        DCA     MQ              /SET FOR "CLEAR" ROUTINE                /032 CJL
        TAD     (-4             /FOUR WORDS TO CLEAR OUT
        CLEAR                   /INIT THE FILE NAME BLOCK
        TAD     PFN10           /GET THE STRING POINTER
        JMS I   [NOSP]          /GET PAST ANY LEADING SPACES
        JMP     PFNAM9          /GOT EOL, NO FILE NAME
        DCA     PFN11           /SAVE POINTER
        TAD     FNPTR           /GET FILE NAME BLOCK POINTER
        DCA     PACK6P          /SET UP THE "PACK6" POINTER
        DCA     PACK6F          /INIT THE "PACK6" FLAG
        TAD     (-6             /MAX OF 6 CHARS FOR FILE NAME
        DCA     PFN15           /PUT INTO COUNTER
        DCA     WILDF           /INIT THE WILD CARD FLAG
        JMS     NAM             /MOVE AND PACK FILE NAME
        TAD I   PFN11           /GET THE TERM CHAR
        SPA                     /SKIP IF NOT EOL
        JMP     PFNAM7          /EOL MEANS END OF FILE NAME
        TAD     (-".!200)       /COMPARE TO "."                         /034 CJL
        SNA                     /SKIP IF NO
        JMP     PFNAM3          /GO HANDLE EXTENSION
        TAD     (-" +".)        /COMPARE TO <SP>                        /034 CJL
        SZA CLA                 /SKIP IF WAS A SPACE
        JMP     PFNAM9          /NOT A SPACE, GOT AN ERROR
        JMP     PFNAM7          /IS A SPACE, END OF FILE NAME
\fPFNAM3,        ISZ     PFN11           /BUMP PAST THE "."
        TAD     FNPTR           /GET FILE NAME BLOCK POINTER
        TAD     (3)             /POINT TO EXTENSION                     /032 CJL
        DCA     PACK6P          /SET "PACK6" POINTER
        DCA     PACK6F          /INIT "PACK6" FLAG
        NL7776                  /SET -2                                 /032 CJL
        DCA     PFN15           /COUNTER FOR 2 EXT CHARS
        JMS     NAM             /NOW DO THE EXTENSION
        TAD I   PFN11           /GET THE TERM CHAR
        SPA                     /SKIP IF NOT EOL
        JMP     PFNAM7          /GOT COMPLETE FILE NAME HERE
        TAD     [-" !200]       /COMPARE TO <SP>                        /034 CJL
        SZA CLA                 /SKIP IF IT WAS
        JMP     PFNAM9          /GOT A FILE NAME ERROR
PFNAM7, ISZ     PFNAM           /BUMP RETURN FOR GOOD FILE NAME
        CLA CLL                 /INSURE CLEAR AC
        TAD     PFN11           /GET CURRENT STRING POINTER
        JMP I   PFNAM           /AND RETURN

PFNAM9, CLA CLL                 /INSURE CLEAR AC
        TAD     PFN10           /GET ORIGINAL STRING POINTER
        JMP I   PFNAM           /TAKE ERROR RETURN

PFN10,  0                       /TEMP FOR PFNAM ROUTINE
PFN11,  0                       /TEMP FOR PFNAM ROUTINE
PFN15,  0                       /TEMP FOR PFNAM ROUTINE
\f/      LOCAL ROUTINE TO "PFNAM" TO MOVE IN THE FILE NAME OR FILE EXTENSION.
/       ENTER WITH "PFN11" POINTING TO WHERE TO GET THE NAME OR EXTENSION.
/       AND "PFN15" EQUAL TO THE MAX NUMBER OF CHARS (6 FOR NAME, 2 FOR EXT).
/       THIS ROUTINE CHECKS FOR WILD CARD CHARS "*" AND "?" AND PUTS THE
/       "?" CHAR IN FOR ANY CHARS IN THE NAME THAT ARE WILD.  ALSO IF ANY
/       WILD CARD CHARS ARE FOUND THE FLAG "WILDC" IS SET SO BEFORE PARSING
/       ANY FILE NAME THE "WILDC" FLAG SHOULD BE INITIALIZED.

NAM,    0
NAM0,   TAD I   PFN11           /GET A CHAR FROM THE STRING
        JMS I   (ALPNUM)        /MUST BE ALPHA OR NUMBER
        SKP                     /NOT A ALPHA NUMERIC
        JMP     NAM3            /IS ALPHA NUMERIC
        TAD     (-"?!200)       /COMPARE TO "?"                         /034 CJL
        SNA                     /SKIP IF NO
        JMP     NAM2            /YES, JUST PUT IT IN
        TAD     (-"*+"?)        /COMPARE TO "*"                         /034 CJL
        SZA CLA                 /SKIP IF YES
        JMP I   NAM             /TAKE THE FILE NAME ERROR EXIT
        ISZ     WILDF           /SET FLAG FOR WILD CARD FOUND
NAM1,   TAD     ["?&77]         /GET WILD CARD CHARACTER                /034 CJL
        PACK6                   /PUT IN NAME BLOCK
        ISZ     PFN15           /BUMP CHAR COUNTER
        JMP     NAM1            /LOOP TILL ALL FILLED
        ISZ     PFN11           /BUMP THE STRING POINTER
        JMP     NAM9            /EXIT WITH "PFN11" POINTING TO NEXT CHAR
NAM2,   ISZ     WILDF           /SET FLAG FOR WILD CARD FOUND
        TAD     ["?&77]         /GET WILD CARD CHARACTER                /034 CJL
NAM3,   PACK6                   /PUT THE CHAR INTO THE FILE NAME BLOCK
        ISZ     PFN11           /BUMP THE STRING POINTER
        ISZ     PFN15           /BUMP THE CHAR COUNTER
        JMP     NAM0            /LOOP

NAM4,   TAD I   PFN11           /NOW GET TO A TERMINATOR CHAR
        JMS I   (ALPNUM)        /BY FINDING FIRST NON-ALPHNUMERIC
        JMP     NAM9            /NOW WE CAN QUIT
        CLA CLL                 /IGNORE EXCESS CHARS
        ISZ     PFN11           /BUMP THE STRING POINTER
        JMP     NAM4            /LOOP

NAM9,   CLA CLL                 /LEAVE WITH A CLEAR AC
        JMP I   NAM             /RETURN
\f/      ROUTINE TO SEND A PACKET.
/       ENTER WITH ADDRESS OF PACKET DATA IN CALL + 1.
/       AND TYPE OF PACKET IN CALL + 2.
/       EXIT CALL + 4 IF ACK RETURNED.
/       EXIT CALL + 3 IF NAK OR OTHER PACKET TYPE RETURNED.

SNDP,   0
        TAD I   SNDP            /GET DATA ADDRESS
        DCA     SNDP1           /STORE IN CALL
        ISZ     SNDP            /BUMP POINTER
        TAD I   SNDP            /GET PACKET TYPE
        DCA     SNDP2           /STORE IN CALL
        ISZ     SNDP            /BUMP

        FPACK                   /FORMAT A PACKET
SNDP1,  0                       /DATA ADDRESS GOES HERE
SNDP2,  0                       /PACKET TYPE GOES HERE

SNDP3,  SPACK                   /SEND A DATA PACKET
        1                       /GET RESPONSE
        SNDP9-2                 /RESPONSE DISPATCH TABLE ADDRESS        /027 CJL

/       HERE ON NOT "NAK" OR "ACK" RESPONSE.

        SKP

/       HERE ON "ACK".

SNDP5,  ISZ     SNDP            /BUMP RETURN

        ISZ     SNDP            /BUMP RETURN
        JMP I   SNDP            /EXIT

/       HERE ON NAK.

SNDP4,  ISZ     RTRYC           /BUMP THE RE-TRY COUNTER
        JMP     SNDP3           /RE-TRY
        JMP I   SNDP            /TAKE RETURN + 3

SNDP9,  STACK;  SNDP5           /ACK
        STACK;  SNDP4           /NAK
        0

        PAGE                                                            /014 CJL
\f       IFZERO  1       <

/       ROUTINE TO PARSE OFF A DECIMAL NUMBER.
/       ENTER ROUTINE WITH A POINTER TO THE PARSE LINE IN THE AC.
/       EXIT:   RETURN + 1 FOR NO NUMBER.
/               RETURN + 2 FOR INVALID NUMBER.
/               RETURN + 3 FOR VALID NUMBER.

/       IN ALL CASES ON RETURN THE AC WILL CONTAIN A POINTER TO THE NEXT CHAR TO PARSE
/       IN THE LINE.  ANY NUMBER  PARSED  WILL BE CONVERTED TO BINARY AND PUT INTO THE
/       REGISTER "BININP".

DECPRS, 0
        JMS I   [NOSP]          /GET PAST ANY LEADING SPACES
        JMP I   DECPRS          /GOT AN END OF LINE, AC POINTS TO IT
        DCA     DP10            /SAVE POINTER TO LINE
        TAD     DP10            /RE-GET POINTER TO LINE
        DCA     DP11            /STORE IN OUR LINE POINTER
        DCA     BININP          /INIT BINARY REGISTER
        DCA     DP13            /INIT PARSED NUMBER FLAG
        SKP                     /SKIP INTO LOOP BELOW
DP1,    ISZ     DP11            /BUMP THE LINE POINTER
        TAD I   DP11            /GET A CHAR FROM THE LINE
        JMS     DECCK           /CHECK FOR PROPER ASCII DECIMAL
        JMP     DP5             /NOT PROPER ASCII DECIMAL
        ISZ     DP13            /FLAG NUMBER INPUT
        TAD     (-"0            /MAKE BINARY
        DCA     DP12            /AND STORE
        TAD     BININP          /GET PREVIOUS INPUT
        JMS     MUL10           /AND MULTIPLY TIMES 10
        SZL                     /SKIP IF NO OVERFLOW ENCOUNTERED
        JMP     DP6             /GOT AN OVERFLOW ERROR
        TAD     DP12            /COMBINE WITH CURRENT INPUT
        SZL                     /SKIP IF NO OVERFLOW ERROR
        JMP     DP6             /GOT AN OVERFLOW ERROR
        DCA     BININP          /RETURN ACCUMULATED SUM
        JMP     DP1             /LOOP

DP5,    CLA CLL                 /AC MAY NOT BE CLEAR
        TAD     DP13            /ANY NUMBERS INPUT YET?
        SNA CLA                 /SKIP IF YES
        JMP     DP6             /TAKE THE NO NUMBER INPUT RETURN
        ISZ     DECPRS          /BUMP THE RETURN
        ISZ     DECPRS          /TWICE FOR GOOD NUMBER INPUT RETURN
        TAD     DP11            /GET POINTER TO LINE
        JMP I   DECPRS          /AND RETURN

DP6,    CLA CLL                 /AC MAY NOT BE CLEAR
        TAD     DP10            /GET ORIGINAL LINE POINTER
        ISZ     DECPRS          /BUMP THE RETURN
        JMP I   DECPRS          /TAKE THE INVALID NUMBER RETURN

                        >
\f       IFZERO  1       <

DP10,   0                       /TEMP FOR DECPRS
DP11,   0                       /TEMP FOR DECPRS
DP12,   0                       /TEMP FOR DECPRS
DP13,   0                       /TEMP FOR DECPRS

/       ROUTINE TO MULTIPLY THE VALUE OF THE AC TIMES 10.
/       VALUE IN THE AC IS ASSUMED BINARY.

/       THE NUMBER IS RETURNED IN THE AC.  IF THE LINK IS SET THE MULTIPLY
/       OVERFLOWED 12 BITS.

MUL10,  0
        DCA     MULTMP          /SAVE THE NUMBER
        TAD     MULTMP          /GET THE NUMBER BACK
        CLL RTL                 /MULTIPLY TIMES 4
        TAD     MULTMP          /TIMES 5
        SNL                     /SKIP IF ALREADY OVERFLOWED             /025 CJL
        RAL                     /TIMES 10
        JMP I   MUL10           /RETURN NUMBER IN AC
                                /THE LINK HAS ANY OVERFLOW

MULTMP, 0                       /TEMP STORAGE FOR MUL10 ROUTINE



/       ROUTINE TO CHECK FOR A VALID ASCII DECIMAL VALUE.

/       ENTER WITH ASCII CHAR IN THE AC.
/       EXIT RETURN + 1 IF NON-VALID ASCII DECIMAL WITH CHAR IN AC.
/       EXIT RETURN + 2 IF VALID ASCII DECIMAL WITH CHAR IN AC.

DECCK,  0
        DCA     DECCK5          /STORE THE CHAR TO CHECK
        TAD     DECCK5          /GET THE CHAR
        TAD     (-"0            /CHECK FOR LESS THAN 0
        SPA                     /SKIP IF NOT LESS THAN 0
        JMP     DECCK1          /NON-ASCII DECIMAL
        TAD     ("0-"9-1        /CHECK GREATER THAN 9
        SMA CLA                 /SKIP IF LE 9
        JMP     DECCK1          /INVALID ASCII DECIMAL
        ISZ     DECCK           /BUMP RETURN FOR VALID ASCII DECIMAL
DECCK1, TAD     DECCK5          /RE-GET ORIGINAL CHAR IN AC
        JMP I   DECCK           /RETURN


DECCK5, 0                       /TEMP FOR "DECCK" ROUTINE

                        >
\f/      ROUTINE TO INPUT A COMMAND LINE FROM THE KEYBOARD.              /013/014 CJL

LININP, 0
        TAD     (LINBUF         /GET ADDRESS OF LINE BUFFER
        DCA     LIN50           /STORE IN A POINTER
LIN1,   JMS I   (INPUT)         /GET A CHARACTER FROM THE KEYBOARD      /044 CJL
        TAD     (-CNTRLM)       /COMPARE TO <CR>                        /034 CJL
        SNA                     /SKIP IF NOT A RETURN
        JMP     LIN2            /LINE IS INPUT
        TAD     (-DELETE+CNTRLM)/COMPARE TO <DEL>                       /034 CJL
        SNA CLA                 /SKIP IF NOT A DELETE
        JMP     LIN5            /OFF TO HANDLE A DELETE
        TAD     LIN50           /GET VALUE OF LINE POINTER
        TAD     (-LINBUF-LINSIZ /COMPARE WITH END OF LINE BUFFER
        SMA CLA                 /SKIP IF ROOM IN LINE BUFFER
        JMP     LIN10           /BEEP FOR FULL BUFFER
        TAD     INCHAR          /GET THE KEYBOARD CHARACTER AGAIN       /044 CJL
        TAD     (-140)          /COMPARE TO LOWER-CASE LIMIT            /034 CJL
        SMA                     /SKIP IF BELOW LIMIT                    /034 CJL
        TAD     [-40]           /ELSE MAKE IT UPPER-CASE                /034 CJL
        TAD     (140)           /RESTORE THE CHARACTER                  /034 CJL
        DCA I   LIN50           /STORE IN THE LINE BUFFER
        ISZ     LIN50           /BUMP THE LINE BUFFER POINTER
        NL7777                  /SET -1                                 /032 CJL
        DCA I   LIN50           /TERMINATE THE LINE
        TAD     INCHAR          /GET THE LATEST KEYBOARD CHARACTER BACK /044 CJL
        JMS I   [P7ECHO]        /PRINT IT                               /043 CJL
        JMP     LIN1            /LOOP TILL A RETURN TYPED

LIN2,   NL7777                  /SET -1                                 /032 CJL
        DCA I   LIN50           /INSURE STRING TERMINATED
        JMS I   [SCRIBE]        /DO A                                   /025 CJL
        CRLF                    /<CR>, <LF>                             /025 CJL
        JMP I   LININP          /DONE

/       HANDLE A DELETE TYPED IN

LIN5,   TAD     LIN50           /FIND OUT FIRST IF...
        TAD     (-LINBUF        /WE ARE AT THE BEGINNING OF THE LINE
        SNA CLA                 /SKIP IF NO
        JMP     LIN1            /JUST IGNORE THE DELETE
        NL7777                  /SET -1                                 /032 CJL
        TAD     LIN50           /GET THE LINE POINTER
        DCA     LIN50           /RETURN BACKED UP
        DCA I   LIN50           /ZERO THE CHAR
        TAD     (CNTRLH)        /GET A <BS>                             /025 CJL
        JMS I   [P7ECHO]        /PRINT IT                               /043 CJL
        TAD     [" &177]        /GET A <SPACE>                          /025 CJL
        JMS I   [P7ECHO]        /PRINT IT                               /043 CJL
        TAD     (CNTRLH)        /GET A <BS>                             /025 CJL
        JMS I   [P7ECHO]        /PRINT IT                               /043 CJL
        JMP     LIN1            /BACK TO INPUT
\f/      HANDLE FULL LINE BUFFER HERE

LIN10,  CLA CLL                 /ENSURE CLEAR AC
        TAD     [CNTRLG]        /GET A <BEL> CHARACTER                  /025 CJL
        JMS I   [P7ECHO]        /PRINT IT                               /043 CJL
        JMP     LIN1            /WAIT FOR EITHER RETURN OF DELETE KEY

LIN50,  0                       /TEMP POINTER FOR "LININP" ROUTINE
\f/      ROUTINE TO PACK TWO SIX-BIT CHARACTERS INTO A WORD.             /032 CJL

/       CALLING SEQUENCE:

/       [PACK6PTR => CHARACTER PACKING AREA].
/       [PACK6FLAG=0 IF PACKING INTO HIGH-ORDER BYTE.
/       PACK6FLAG=4000 IF PACKING INTO LOW-ORDER BYTE].

/       TAD     CHAR            /AC CONTAINS CHARACTER TO BE PACKED
/       PACK6                   /CALL VIA PAGE ZERO POINTER

/       RETURNS WITH AC CLEAR AND PACK6PTR AND PACK6FLAG UPDATED FOR NEXT PACKING.

PACK60, .-.                     /PACK SIX-BIT ROUTINE
        AND     [77]            /JUST SIX-BIT
        DCA     PACK6TEMP       /SAVE FOR NOW
        NL4000                  /SET INVERSION BIT
        TAD     PACK6FLAG       /REVERSE THE FLAG
        DCA     PACK6FLAG       /STORE BACK
        SZL                     /WAS IT CLEAR?
        JMP     PACKIT          /NO, GO DO LOW-ORDER
        TAD     PACK6TEMP       /GET THE CHARACTER
        RTL;RTL;RTL             /MOVE UP
        DCA I   PACK6PTR        /STORE IT
        JMP I   PACK60          /RETURN

PACKIT, TAD I   PACK6PTR        /GET PREVIOUS HIGH-ORDER HALFWORD
        TAD     PACK6TEMP       /ADD ON LATEST
        DCA I   PACK6PTR        /STORE BOTH
        ISZ     PACK6PTR        /BUMP FOR NEXT TIME
        JMP I   PACK60          /RETURN

PACK6TE,.-.                     /PACK6 TEMPORARY
\f/      ROUTINE TO COMPARE TWO FILE NAMES FOR EQUALITY.
/       THE ROUTINE WILL CHECK EACH OF THE 8 FILE NAME CHARS AND IF A
/       CHAR IN THE FIRST FILE NAME (THE ONE WE ARE LOOKING FOR) CONTAINS
/       A "?" IT WILL MATCH ON THE SECOND FILE NAME CHAR.
/       ENTER WITH "FCMP1" POINTING TO THE FILE NAME TO FIND, AND "FCMP2"
/       POINTING TO THE FILE NAME TO TRY AND MATCH.  EXIT + 1 IF NO MATCH
/       AND EXIT + 2 IF MATCH.  (IF NON-ZERO AC ON ENTRY, THE AC IS ASSUMED
/       TO HAVE THE VALUE FOR "FCMP2".)

FMATCH, 0
        SZA                     /SKIP IF NO ARGUMENT IN AC
        DCA     FCMP2           /THIS ARGUMENT CAME IN THE AC
        TAD     FCMP1           /GET ADDRESS OF FIRST FILE NAME BLOCK
        DCA     GET6P           /STORE IN A POINTER
        DCA     GET6F           /INIT FLAG FOR "GET6" ROUTINE
        TAD     FCMP2           /GET ADDRESS OF SECOND FILE NAME BLOCK
        DCA     FMATP           /STORE IN A LOCAL POINTER
        DCA     FMATF           /INIT LOCAL FLAG
        TAD     (-10            /8 CHARS TO DO
        DCA     FMATC           /STORE IN LOCAL COUNTER

FMAT1,  NL4000                  /SET 4000                               /032 CJL
        TAD     FMATF           /GET FLAG
        DCA     FMATF           /RETURN FLAG, LINK CONTAINS STATUS
        TAD I   FMATP           /GET A WORD FROM THE SECOND NAME
        SZL                     /SKIP IF HIGH-ORDER WANTED NOW          /032 CJL
        JMP     FSWIT           /JUMP IF LOW-ORDER WANTED NOW           /032 CJL
        RTR;RTR;RTR             /MOVE DOWN HIGH-ORDER                   /032 CJL
        SKP                     /DON'T BUMP YET                         /032 CJL
FSWIT,  ISZ     FMATP           /BUMP THE POINTER                       /032 CJL
        AND     [77]            /KEEP ONLY BOTTOM 6 BITS                /016 CJL
        DCA     FMATT           /STORE IN A TEMP
        GET6                    /NOW GET A CHAR FROM FIRST NAME
        TAD     (-77            /CHECK IF WILD
        SNA                     /SKIP IF NO
        JMP     FMAT2           /NO MATCH CHECK ON A WILD CARD
        TAD     [77]            /RESTORE THE CHARACTER                  /014/016 CJL
        CIA                     /NEGATE FOR COMPARE
        TAD     FMATT           /COMPARE WITH SECOND FILE NAME
        SZA CLA                 /SKIP IF IS A MATCH
        JMP I   FMATCH          /THIS IS NOT A MATCH

FMAT2,  ISZ     FMATC           /BUMP COUNTER
        JMP     FMAT1           /LOOP, MORE TO CHECK
        ISZ     FMATCH          /BUMP RETURN FOR MATCH
        JMP I   FMATCH          /GOT A MATCH

FMATP,  0                       /POINTER FOR "FMATCH"
FMATC,  0                       /COUNTER FOR "FMATCH"
FMATF,  0                       /FLAG FOR "FMATCH"
FMATT,  0                       /TEMP FOR "FMATCH"
FCMP1,  0                       /POINTER FOR FIRST FILE NAME BLOCK
FCMP2,  0                       /POINTER FOR SECOND FILE NAME BLOCK
\f       PAGE                                                            /014 CJL
\f/      REMOTE LINK INPUT ROUTINE.
/       CALL = RPACK.

ILINK,  0
        TAD     RETRY           /SET UP A RE-TRY COUNT
        DCA     ILINK6          /RE-TRY COUNT FOR INPUT ERRORS

ILINK0, JMS I   (GETSOH)        /FIRST GET THE "SOH" BYTE
        JMP     ILINK2          /RETURN HERE ON TIME-OUT
        DCA     ILINK9          /INIT CHECKSUM REGISTER
        TAD     [RRLEN]         /GET REMOTE RECEIVE BUFFER ADDRESS
        DCA     ILINK8          /STORE IN LOCAL POINTER
        JMS I   (GETIR)         /GET A CHAR
        JMP     ILINK2          /GOT A RETURN OR TIME-OUT
        DCA I   ILINK8          /STORE LENGTH IN BUFFER
        TAD I   ILINK8          /GET LENGTH CHAR BACK
        TAD     (-40-1          /CHAR FUNCTION - LENGTH BYTE
        CIA                     /NEGATE FOR COUNTER
        DCA     ILINK7          /STORE IN LOCAL COUNTER

ILINK1, ISZ     ILINK8          /BUMP POINTER
        JMS I   (GETIR)         /GET NEXT CHAR
        JMP     ILINK2          /GOT A RETURN
        DCA I   ILINK8          /STORE IN BUFFER
        ISZ     ILINK7          /BUMP COUNTER
        JMP     ILINK1          /LOOP

        ISZ     ILINK8
        NL7777                  /SET -1                                 /032 CJL
        DCA I   ILINK8
        TAD     ILINK9          /GET CALCULATED CHECKSUM
        JMS I   [CKSUM]         /CALCULATE 1 BYTE CHECKSUM
        CIA                     /NEGATE FOR COMPARE
        DCA     ILINK7          /STORE TEMP
        JMS I   (GETIR)         /NOW GET CHECKSUM
        JMP     ILINK2          /GOT A RETURN
        TAD     ILINK7          /COMPARE WITH CALCULATED CHECKSUM
        SNA CLA                 /SKIP IF NOT SAME
        JMP     ILINK4          /ARE SAME

ILINK2, CLA CLL                 /INSURE CLEAR AC
        ISZ     ILINK6          /BUMP RE-TRY COUNTER
        JMP     ILINK3          /CAN RE-TRY
        TAD     (RPERMSG)       /GET MESSAGE FOR FATAL PACKET ERROR     /025 CJL
        JMP I   [CLOOP7]        /AND ABORT THE MESS

ILINK3, TAD     ABFLAG          /GET ABORT FLAG                         /044 CJL
        SZA CLA                 /SKIP IF NO
        JMP I   (ABORT)         /ABORT THIS
        JMS I   (SNDNAK)        /SEND BACK A "NAK"
        JMP     ILINK0          /AND TRY AGAIN
\fILINK4,        TAD     ABFLAG          /GET ABORT FLAG                         /044 CJL
        SNA CLA                 /SKIP IF YES
        JMP I   ILINK           /NOPE, RETURN
        JMP I   (ABORT)

ILINK6, 0                       /LOCAL TO "ILINK"
ILINK7, 0                       /LOCAL TO "ILINK"
ILINK8, 0                       /LOCAL TO "ILINK"
ILINK9, 0                       /LOCAL TO "ILINK"

/       HELP COMMAND ROUTINE.                                           /024 CJL

HELPSRV,.-.                     /HELP ROUTINE
        JMS I   [CRESET]        /RESET CONSOLE ROUTINE STUFF
        JMS I   [SCRIBE]        /GIVE THEM THE
        HELPMSG                 /HELP MESSAGE
        TAD     ESCHAR          /GET THE ESCAPE CHARACTER
        JMS I   [ESCPRNT]       /PRINT IT
        JMS I   [SCRIBE]        /DO A
        CRLF                    /<CR>, <LF>
        ISZ     HELPSRV         /BUMP PAST ERROR RETURN
        JMP I   HELPSRV         /RETURN

/       ROUTINE TO PRINT THE DATA IN THE RECEIVED PACKET.

PRIPAK, 0
        PRI8B;  RRDTA           /PRINT THE DATA
        JMS I   [SCRIBE]        /DO A                                   /025 CJL
        CRLF                    /<CR>, <LF>                             /025 CJL
        JMP I   PRIPAK          /DONE

        PAGE                                                            /014 CJL
\f/      ROUTINE TO SERVICE A SEND REQUEST.

SNDSRV, 0
        JMS I   [CREST2]        /SETUP CONSOLE OUTPUT ROUTINES          /025 CJL
        TAD     (MSEND)         /FIRST SET MODE TO SEND
        DCA     KMODE           /PUT INTO MODE FLAG
        TAD     LPTR            /GET CURRENT LINE POINTER
        DCA     PRSERR          /SAVE LINE POSITION
        TAD     PRSERR          /GET LINE POSITION
        JMS I   [DPARS]         /TRY TO PARSE OFF A DEVICE NAME
        JMS     SNDERROR        /RETURN A DEVICE NAME ERROR             /026 CJL
SER1,   DCA     PRSERR          /SAVE LINE POINTER                      /026 CJL
        TAD     (FNBLK          /GET FILE NAME BLOCK ADDRESS
        DCA     FNPTR           /STORE IN POINTER
        TAD     PRSERR          /GET STRING POINTER
        JMS I   [PFNAM]         /PARSE OFF THE FILE NAME
        JMS     SNDERROR        /FILE NAME PARSE ERROR                  /026 CJL
SER2,   DCA     PRSERR          /SAVE THE STRING POINTER                /026 CJL
        TAD     PRSERR          /GET THE STRING POINTER
        JMS I   [NOSP]          /FIND THE END OF STRING
        SKP                     /GOT END OF STRING HERE
        JMS     SNDERROR        /SYNTAX ERROR                           /026 CJL
SER3,   DCA     PRSERR          /RETURN POINTER                         /026 CJL
        TAD     DEVNUM          /GET THE DEVICE NUMBER PARSED
        JMS I   [HFETCH]        /FETCH A HANDLER FOR THIS
        JMS     SNDERROR        /HANDLER FETCH ERROR                    /026 CJL
SER4,   DCA     FILFND          /INIT FILE FOUND FLAG
        DCA     INIFLG          /CLEAR THE INIT DONE FLAG
        NL0001                  /INITIALIZE DIRECTORY                   /028 CJL
        DCA     SLFLAG          /LOOKUP FLAG                            /028 CJL
SNDSV1, TAD     (FNBLK          /GET FILE NAME BLOCK ADDRESS
        DCA I   (FCMP1)         /SET FOR FILE TO FINE
        TAD     SLFLAG          /GET DIRECTORY FLAG                     /028 CJL
        JMS I   (LUKUP)         /FIND A MATCH FOR THIS FILE
        JMS     SNDERROR        /DIRECTORY I/O ERROR                    /026 CJL
SER5,   JMP     S00             /FILE NOT FOUND                         /026 CJL
        ISZ     FILFND          /BUMP FILE FOUND COUNT
        DCA     SLFLAG          /DON'T INITIALIZE LOOKUP AGAIN
        JMS I   (SNDPRO)        /PROCESS THIS FILE FOR SEND
        JMS     SNDERROR        /ERROR IN FILE SEND PROCESS             /026 CJL
SER6,   TAD     WILDF           /WAS WILD CARD FILE SPEC?               /026 CJL
        SZA CLA                 /SKIP IF NO
        JMP     SNDSV1          /GOT WILD CARD, TRY FOR NEXT
S00,    TAD     FILFND          /CHECK FOR ANY FILES FOUND
        SNA CLA                 /SKIP IF YES
        JMS     SNDERROR        /RETURN FILE NOT FOUND ERROR            /026 CJL
SER7,   JMS     BRKXMT          /BREAK THE SEND                         /026 CJL
        TAD     PRSERR          /GET CURRENT CURSOR POSITION
        DCA     LPTR            /UPDATE
        ISZ     SNDSRV          /BUMP RETURN
        JMP I   SNDSRV          /AND DONE
\f/      SEND ERRORS COME HERE.                                          /026 CJL

SNDERRO,.-.                     /SEND ERROR ROUTINE
        CLA                     /CLEAN UP
        TAD     SNDERROR        /GET CALLER
        JMS I   [SRCHTABLE]     /GO MATCH IT
        SNERTABLE-1-1           /IN ERROR TABLE
        JMP I   SNDSRV          /TAKE ERROR EXIT WITH MESSAGE ADDRESS IN AC

/       SEND ERROR MESSAGE DISPATCH TABLE.                              /026 CJL

SNERTAB,-SER1;  DNERMSG         /DEVICE NAME ERROR
        -SER2;  FNERMSG         /FILE NAME ERROR
        -SER3;  FSERMSG         /FILE NAME SYNTAX ERROR
        -SER4;  SHFEMSG         /HANDLER FETCH ERROR
        -SER5;  SDERMSG         /DIRECTORY I/O ERROR
        -SER6;  SNDEMSG         /SEND ERROR
        -SER7;  NOTFND          /LOOKUP
        0                       /THIS ENDS THE LIST

FILFND, 0                       /HOLDS COUNT OF # OF FILES FOUND
SLFLAG, .-.                     /LOOKUP INITIALIZE FLAG                 /028 CJL
FNBLK,  0
        0
        0
        0
\f/      ROUTINE TO RE-SET THE SEND.

BRKXMT, .-.
        CLA CLL                 /INSURE CLEAR AC
        DCA     INIFLG          /CLEAR THE INIT SEND FLAG
        FPACK                   /FORMAT A PACKET
        NODATA                  /NO DATA FOR THIS PACKET
        STEOT                   /"EOT" PACKET TYPE
        SPACK                   /SEND THE PACKET
        1                       /READ RESPONSE                          /042 CJL
        0                       /DO NOT DISPATCH                        /042 CJL
        JMP I   BRKXMT          /DONE

/       ROUTINE TO SEND OUT A NAK WITHOUT DISTURBING THE NORMAL PACKET BUFFER.

SNDNAK, 0
        NL7777                  /-1                                     /042 CJL
        TAD     CURSEQ          /ADD ON CURRENT SEQUENCE NUMBER         /042 CJL
        AND     [77]            /MODULO 64                              /042 CJL
        TAD     [40]            /TAKE CHAR(SEQUENCE NUMBER)             /042 CJL
        DCA     NAKPAK+2        /PUT IN NAK PACKET BUFFER
        TAD     NAKPAK+1        /GET LENGTH
        TAD     NAKPAK+2        /GET SEQ
        TAD     NAKPAK+3        /GET TYPE
        JMS I   [CKSUM]         /CALCULATE CHECKSUM
        DCA     NAKPAK+4        /PUT IN CHECKSUM
        TAD     REOL            /GET ANY EOL REQUIRED
        TAD     [-40]           /UN-CHAR IT                             /014/016 CJL
        SNA                     /SKIP IF USING
        NL7777                  /NO EOL, PUT IN -1 INSTEAD              /032 CJL
        DCA     NAKPAK+5        /PUT EOL IN
        REM8B;  NAKPAK          /SEND NAK TO REMOTE
        JMP I   SNDNAK          /DONE


NAKPAK, CNTRLA                  /MARK                                   /042 CJL
        " &77+3                 /LENGTH OF NAK PACKET                   /042 CJL
        .-.                     /SEQUENCE NUMBER GOES HERE              /042 CJL
        STNAK                   /DATA TYPE
        .-.                     /CHECKSUM                               /042 CJL
        .-.                     /<EOL> IF USED                          /042 CJL
        -1                      /TERMINATE

/       FILENAME BUFFER.                                                /014 CJL

NAMBUFF,ZBLOCK  12              /FILENAME.EXTENSION (WITH TERMINATOR) GOES HERE
\f       PAGE                                                            /014 CJL
\f/      ROUTINE TO SERVICE A "GET" COMMAND.

GETSRV, 0
        JMS I   [CREST2]        /SETUP CONSOLE OUTPUT ROUTINES          /025 CJL
        TAD     (MREC)          /GET OUR MODE VALUE                     /045 CJL
        DCA     KMODE           /SETUP NOW                              /045 CJL
        TAD     LPTR            /GET CURRENT LINE POINTER
        DCA     PRSERR          /SAVE
        TAD     PRSERR          /RE-GET IT
        JMS I   [DPARS]         /PARSE OFF THE DEVICE NAME              /006/014 CJL
        JMP     GSRV50          /ERROR IN DEVICE NAME                   /006
        JMS I   [NOSP]          /FIND BEGINNING OF A FILE NAME
        JMP     GSRV22          /GOT <EOL>, NO FILE NAME                /006/014 CJL
        DCA     GSRV90          /STORE BEGINNING ADDRESS
        TAD     GSRV90          /NOW WE LOOK FOR
        JMS I   [SP]            /THE END OF THE LINE
        SKP                     /GOT THE END OF THE LINE HERE
        JMP     .-2             /NOT END YET, CONTINUE
        DCA     PRSERR          /STORE POINTER TO EOL
        NL7777                  /SET -1                                 /032 CJL
        DCA I   PRSERR          /TERMINATE FILE NAME WITH -1
        DCA     CURSEQ          /RE-SET THE SEQUENCE
        TAD     GSRV90          /GET ADDRESS OF FILE NAME

GSRV10, FPACK                   /FORMAT THE PACKET
GSRV90, 0                       /DATA ADDRESS HERE
        STRIN                   /RECIEVE INIT PACKET

GSRV12, SPACK                   /SEND THE PACKET
        1                       /GET RESPONSE
        GSRV80-2                /DISPATCH TABLE                         /027 CJL

/       SERVICE A NAK OR UNDEFINED.

GSRV15, ISZ     RTRYC           /BUMP THE RE-TRY COUNTER
        JMP     GSRV12          /TRY AGAIN
        JMP I   GETSRV          /GIVE UP

/       SERVICE A SEND/INIT FROM THE REMOTE.

GSRV20, JMS I   (INPSRV)        /HANDLE JUST LIKE A RECEIVE
        JMP     GSRV21          /ERROR RETURN FROM "INPSRV"
        ISZ     GETSRV          /BUMP RETURN FOR NO ERROR
        TAD     PRSERR          /UPDATE THE CURRENT LINE POINTER
        DCA     LPTR
GSRV21, JMP I   GETSRV

GSRV22, CLA CLL                 /MAKE SURE WE ARE CLEAR                 /009/014 CJL
        TAD     [NOTFND]        /GET ERROR MESSAGE ADDRESS              /025 CJL
        JMP I   GETSRV          /TAKE ERROR RETURN                      /009/014 CJL

/       GOT AN ERROR PACKET, DISPLAY ERROR AND ABORT.

GSRV40, JMS I   [PRIPAK]        /PRINT OUT THE ERROR PACKET
        JMP I   GETSRV          /TAKE THE ERROR EXIT
\f/      GOT DEVICE ERROR.                                               /006/014 CJL

GSRV50, CLA CLL                 /ENSURE CLEAR AC                        /006/014 CJL
        TAD     (DNERMSG)       /GET ERROR MESSAGE ADDRESS              /025 CJL
        JMP I   GETSRV          /TAKE ERROR RETURN                      /006/014 CJL

/       DISPATCH TABLE.

GSRV80, STERR;  GSRV40          /ERROR PACKET RETURNED
        STSIN;  GSRV20          /SEND INIT PACKET RETURNED
        STNAK;  GSRV15          /NAK PACKET RETURNED
        0                       /TERMINATE TABLE
\f/      ROUTINE TO SERVICE A "RECEIVE" COMMAND.

RECSRV, 0
        JMS I   [CREST2]        /SETUP CONSOLE OUTPUT ROUTINES          /025 CJL
        TAD     (MREC)          /GET OUR MODE VALUE                     /045 CJL
        DCA     KMODE           /SETUP NOW                              /045 CJL
        TAD     LPTR            /GET CURRENT LINE POINTER
        DCA     PRSERR          /SAVE IT
        TAD     PRSERR          /GET IT BACK
        JMS I   [DPARS]         /PARSE OFF DEVICE NAME                  /018 CJL
        JMP     RECS30          /ERROR IN DEVICE NAME                   /018 CJL
        JMS I   [NOSP]          /CHECK IF BEGINNING OF FILE NAME        /014 CJL
        SKP                     /GOT <EOL> HERE                         /018 CJL
        JMP     RECS60          /SOMETHING ELSE ON LINE, ERROR          /014 CJL
        DCA     PRSERR          /SAVE CURRENT LINE POINTER              /018 CJL
        RPACK                   /GET SEND/INIT PACKET FROM REMOTE
        JMS I   (DISPATCH)      /DISPATCH BASED ON RRTYP                /031 CJL
        RECS80-2                /TABLE ADDRESS                          /027/031 CJL
        JMP     RECS60          /DON'T KNOW WHAT IT IS

/       GOT A SEND INIT PACKET.

RECS10, JMS I   (INPSRV)        /OFF TO HANDLE INPUT
        JMP     RECS60          /ERROR RETURN

/       TAKE THE NON-ERROR RETURN.

RECS20, ISZ     RECSRV          /BUMP FOR NON-ERROR RETURN
        TAD     PRSERR          /GET CURRENT CURSOR POSITION            /018 CJL
        DCA     LPTR            /UPDATE IT                              /018 CJL
        JMP I   RECSRV

/       GOT ERROR IN DEVICE NAME.                                       /018 CJL

RECS30, CLA CLL                 /CLEAN UP                               /018 CJL
        TAD     (DNERMSG)       /GET ERROR MESSAGE ADDRESS              /025 CJL
        JMP I   RECSRV          /TAKE ERROR RETURN                      /018 CJL

/       TAKE THE ERROR RETURN.

RECS60, CLA
        JMP I   RECSRV          /TAKE ERROR EXIT

/       DISPATCH TABLE.

RECS80, STSIN;  RECS10          /SEND INIT PACKET DISPATCH
        STEOT;  RECS60          /END OF CONNECTION
        STBRK;  RECS20          /BREAK TRANSMISSION
        0

RECS90, 0                       /TEMP FOR "RECSRV"
\f/      KEYBOARD LINE BUFFER.                                           /014 CJL

LINBUF, ZBLOCK  LINSIZE         /LINE BUFFER

        PAGE                                                            /014 CJL
\f/      ROUTINE TO SERVICE INPUT OF A FILE.

INPSRV, 0
        JMS I   (SETINI)        /SET UP INIT REGISTERS
        DCA     OFFLG           /INITIALIZE OUTPUT FILE FLAG            /036 CJL
        CIF     USRFLD          /GOTO USR FIELD                         /037 CJL
        JMS I   [USRENTRY]      /CALL USER SERVICE ROUTINE              /037 CJL
        RESET                   /RESET TABLES                           /037 CJL
        DCA     CURSEQ          /RE-SET THE SEQUENCE NUMBER

        FPACK                   /FORMAT A PACKET
        INIDAT                  /PACKET DATA ADDRESS
        STACK                   /"ACK" PACKET TYPE


INPS01, SPACK                   /SEND A PACKET
        1                       /AWAIT RESPONSE
        INPS91-2                /DISPATCH TABLE ADDRESS                 /027 CJL

/       NAK OR UNDEFINED RESPONSE HERE.

INPS02, ISZ     RTRYC           /GOT A NAK, CHECK RE-TRY COUNT
        JMP     INPS01          /RE-TRY THE INIT
        JMS     INPERROR        /GIVE UP                                /025 CJL

        IER02=  .               /ERROR TABLE ADDRESS                    /039 CJL

INPS03, FPACK                   /FORMAT A PACKET
        NODATA                  /NO DATA
        STACK                   /"ACK" PACKET TYPE

INPS05, SPACK                   /SEND A PACKET
        1                       /AWAIT RESPONSE
        INPS90-2                /DISPATCH TABLE ADDRESS                 /027 CJL
        JMS     INPERROR        /UNDEFINED RESPONSE                     /025 CJL

        IER05=  .               /ERROR TABLE ADDRESS                    /039 CJL

/       GOT A DATA PACKET, WRITE TO OUTPUT FILE.

INPS10, TAD     OFFLG           /CHECK THE OUTPUT FILE FLAG
        SNA CLA                 /SKIP IF OUTPUT FILE OPEN
        JMS     INPERROR        /ABORT AND EXIT                         /025 CJL
IER10,  JMS I   (WRIPAK)        /WRITE THE PACKET TO THE FILE           /039 CJL
        JMS     INPERROR        /ERROR WRITING PACKET                   /025 CJL
IER11,  JMP     INPS03          /LOOP                                   /039 CJL
\f/      GOT A FILE HEADER PACKET, OPEN FILE.

INPS20, TAD     OFFLG           /CHECK IF OUTPUT FILE OPEN
        SZA CLA                 /SKIP IF NO
        JMS     INPERROR        /ABORT IF FILE ALREADY OPEN             /025 CJL
IER20,  TAD I   [RRLEN]         /GET CURRENT PACKET LENGTH              /039 CJL
        TAD     (-40-3          /CALCULATE LENGTH OF DATA
        SPA                     /SKIP IF DATA IN THE PACKET
        JMS     INPERROR        /ELSE AN ERROR                          /025 CJL
IER21,  TAD     (RRDTA)         /CALCULATE LAST BYTE IN DATA            /039 CJL
        DCA     INPS81          /STORE IN POINTER
        NL7777                  /SET -1                                 /032 CJL
        DCA I   INPS81          /TERMINATE NAME WITH A MINUS WORD
        TAD     (FNBLK          /GET ADDRESS OF FILE NAME BLOCK
        DCA     FNPTR           /SAVE FOR NAME PARSE
        TAD     (RRDTA          /GET ADDRESS OF DATA IN PACKET
        JMS I   [PFNAM]         /PARSE OFF THE FILE NAME
        JMS     INPERROR        /ERROR IN FILE NAME                     /025 CJL

/       GET TARGET DEVICE.

IER23,  CLA CLL                 /CLEAR AC FROM FILE NAME PARSE          /039 CJL
        TAD     DEVNUM          /GET DEVICE NUMBER PARSED               /006
        DCA     ODNUMB          /SAVE OUTPUT DEVICE NUMBER
        TAD     ODNUMB          /GET NUMBER BACK
        JMS I   [HFETCH]        /FETCH HANDLER FOR THIS DEVICE
        JMS     INPERROR        /HANDLER FETCH ERROR                    /025 CJL
IER24,  TAD     (FNBLK)         /GET ADDRESS OF FILE NAME BLOCK         /039 CJL
        DCA     INPS22          /PUT IN CALL
        TAD     ODNUMB          /GET DEVICE NUMBER
        CIF     USRFLD          /GOTO USR FIELD                         /020 CJL
        JMS I   [USRENTRY]      /CALL USER SERVICE ROUTINE              /035 CJL
        ENTER                   /ENTER TENTATIVE FILE                   /020 CJL
INPS22, 0                       /
        0                       /
        JMS     INPERROR        /NO DIRECTORY ROOM                      /025 CJL
IER22,  TAD     INPS22          /GET NEW FILE START BLOCK               /039 CJL
        DCA     FSBLK           /SAVE
        TAD     INPS22+1        /GET INDICATED MAXIMUM FILE SIZE        /021 CJL
        IAC                     /GIVE ONE MORE THAN 2 LESS              /021 CJL
        DCA     FLEN            /SAVE AS DANGER COUNT                   /021 CJL
        ISZ     OFFLG           /SET FLAG FOR OUTPUT FILE OPEN
        NL7777                  /INDICATE INITIALIZATION                /020 CJL
        JMS I   [PUTBYTE]       /INITIALIZE OUTPUT FILE ROUTINE         /020 CJL
        HLT                     /THIS CAN'T HAPPEN!                     /020 CJL
        TAD     FNPTR           /GET POINTER TO 6 BIT FILE NAME
        JMS I   [FILN8]         /MAKE 8 BIT FORMATTED STRING
        JMS I   [SCRIBE]        /TELL THEM
        FRECMSG                 /WE ARE RECEIVING
        PRI8B;  NAMBUF          /WHICH FILE WE ARE RECEIVING
        JMS I   [SCRIBE]        /DO A
        CRLF                    /<CR>, <LF>
        JMP     INPS03          /LOOP
\f/      GOT AN END OF FILE PACKET.

INPS30, TAD     OFFLG           /ANY OUTPUT FILE OPEN?
        SNA CLA                 /SKIP IF YES
        JMS     INPERROR        /ERROR                                  /025 CJL
IER30,  JMS I   [FILCLOSE]      /CLOSE THE FILE                         /020/039 CJL
        JMS     INPERROR        /ERROR CLOSING THE FILE                 /025 CJL
IER31,/ DCA     OFFLG           /RE-SET FILE OPEN FLAG                  /D009/039 CJL
        JMP     INPS03          /CONTINUE

/       GOT AN END OF TRANSMISSION PACKET.

INPS40, TAD     OFFLG           /WAS A FILE OPEN?
        SZA CLA                 /SKIP IF NO
        JMS I   [FILCLOSE]      /CLOSE ANY OPEN FILE                    /020 CJL
        NOP                     /ERROR CLOSING THE FILE **** FIX THIS ****
        FPACK                   /FORMAT A PACKET
        NODATA                  /NO DATA IN PACKET
        STACK                   /"ACK" PACKET TYPE

        SPACK                   /SEND THE PACKET
        0                       /NO RESPONSE
        ISZ     INPSRV          /BUMP RETURN FOR NO ERROR
        JMP I   INPSRV          /TAKE NON-ERROR EXIT

/       GOT AN ERROR PACKET.

INPS50, JMS I   [PRIPAK]        /PRINT THE PACKET DATA
        JMP I   INPSRV          /AND TAKE THE ERROR EXIT                /009/014 CJL

/       INPUT ERRORS COME HERE.                                         /025 CJL

INPERRO,.-.                     /INPUT ERROR ROUTINE                    /025 CJL
        FPACK                   /FORMAT A PACKET                        /025 CJL
        NODATA                  /NO DATA                                /025 CJL
        STBRK                   /"BREAK LINK" PACKET TYPE               /025 CJL
        SPACK                   /SEND THE PACKET                        /025 CJL
        0                       /NO RESPONSE                            /025 CJL
        TAD     INPERROR        /GET CALLER                             /025 CJL
        JMS I   [SRCHTABLE]     /TRY TO FIND A MATCH                    /025 CJL
        INERTABLE-1-1           /IN ERROR TABLE                         /025 CJL
        SNA                     /SKIP IF FOUND PARTICULAR MESSAGE       /025 CJL
        TAD     (RERRMSG)       /ELSE USE GENERAL MESSAGE               /025 CJL
        JMP I   INPSRV          /TAKE ERROR RETURN                      /025 CJL

/       TEMPS FOR "INPSRV".

INPS80, 0
INPS81, 0
\f       PAGE                                                            /014 CJL
\f/      DISPATCH TABLES FOR "INPSRV".

INPS90, STDAT;  INPS10          /HANDLE DATA PACKETS
        STEOF;  INPS30          /HANDLE EOF PACKET
        STEOT;  INPS40          /HANDLE END OF TRANSMISSION PACKET
        STFIL;  INPS20          /HANDLE FILE NAME PACKET
        STERR;  INPS50          /HANDLE ERROR PACKET
        0                       /TERMINATE TABLE

INPS91, STNAK;  INPS02          /HANDLE A NAK PACKET
        STFIL;  INPS20          /HANDLE FILE NAME PACKET
        STERR;  INPS50          /HANDLE ERROR PACKET
        0                       /TERMINATE TABLE

/       INPUT ERROR MESSAGE DISPATCH TABLE.                             /025/039 CJL

INERTAB,-IER05; UPERMSG         /UNDEFINED PACKET ERROR                 /025 CJL
        -IER11; DSFLMSG         /DISK OVERFLOW ERROR                    /042 CJL
        -IER22; RIDEMSG         /DIRECTORY FULL ERROR                   /025 CJL
        -IER23; RFLNMSG         /RECEIVED FILE NAME ERROR               /025 CJL
        -IER24; RHFEMSG         /HANDLER FETCH ERROR                    /025 CJL
        -IER31; FCLEMSG         /FILE CLOSE ERROR                       /025 CJL
        0                       /THIS ENDS THE LIST                     /025 CJL
\f/      ROUTINE TO CHECK FOR AN ALPHABETIC OR NUMERIC CHAR.
/       ENTER WITH THE CHAR IN THE AC.
/       EXIT + 2 IF ALPHABETIC OR NUMERIC WITH CHAR IN THE AC.
/       EXIT + 1 IF NON-ALPHABETIC OR NUMERIC WITH CHAR IN THE AC.

ALPNUM, 0
        JMS     ALPHA           /CHECK FOR ALPHA FIRST
        SKP                     /NON-ALPHA RETURN, MUST CHECK NUMERIC
        JMP     ALPNM1          /IS ALPHA, TAKE RETURN + 2
        JMS     NUMRC           /CHECK IF NUMERIC
        SKP                     /NOT NUMERIC
ALPNM1, ISZ     ALPNUM          /BUMP RETURN FOR ALPHA-NUMERIC
        JMP I   ALPNUM          /DONE


/       ROUTINE TO CHECK FOR AN ALPHABETIC CHARACTER.
/       ROUTINE ASSUMES UPPER CASE.
/       ENTER ROUTINE WITH CHAR IN THE AC.
/       EXIT + 2 IF THE CHAR IS ALPHABETIC WITH THE CHAR IN THE AC.
/       EXIT + 1 IF THE CHAR IS NOT ALPHABETIC WITH THE CHAR IN THE AC.

ALPHA,  0
        DCA     ALPHA1          /STORE THE CHAR FOR RETURN
        TAD     ALPHA1          /GET THE CHAR
        TAD     (-"Z!200-1)     /ADD ON UPPER LIMIT                     /034 CJL
        CLL                     /INIT LINK FOR A FLAG
        TAD     ("Z-"A+1
        SZL                     /SKIP IF NOT A LETTER
        ISZ     ALPHA           /IS A LETTER, BUMP RETURN
        CLA CLL                 /CLEAR AC
        TAD     ALPHA1          /RESTORE CHAR IN THE AC
        JMP I   ALPHA           /TAKE PROPER RETURN

ALPHA1, 0                       /TEMP FOR ALPHA ROUTINE

/       ROUTINE TO CHECK FOR A NUMERIC CHARACTER.
/       ENTER WITH THE CHAR TO CHECK IN THE AC.
/       EXIT + 2 IF NUMERIC WITH THE CHAR IN THE AC.
/       EXIT + 1 IF NON-NUMERIC WITH THE CHAR IN THE AC.

NUMRC,  0
        DCA     NUMRC1          /SAVE THE CHAR FOR RETURN
        TAD     NUMRC1          /GET THE CHAR BACK
        TAD     (-"9!200-1)     /ADD ON UPPER LIMIT                     /034 CJL
        CLL                     /INIT LINK FOR A FLAG
        TAD     ["9-"0+1]                                               /016 CJL
        SZL                     /SKIP IF NOT A DIGIT
        ISZ     NUMRC           /BUMP RETURN FOR NUMERIC
        CLA CLL                 /CLEAR AC
        TAD     NUMRC1          /RESTORE CHAR IN THE AC
        JMP I   NUMRC           /DONE

NUMRC1, 0                       /TEMP FOR NUMRC CHECK ROUTINE
\f/      ROUTINE TO WRITE THE CURRENT INPUT PACKET TO THE OUTPUT FILE.
/       ENTER:  NOTHING.
/       EXIT:   + 2 = WRITE SUCCESSFUL.
/               + 1 = WRITE NOT SUCCESSFUL.

WRIPAK, 0
        TAD I   [RRLEN]         /GET LENGTH OF PACKET
        TAD     (RRDTA-40-3     /CALCULATE END OF BUFFER
        DCA     W90             /PUT INTO POINTER
        DCA I   W90             /ZERO AFTER END OF BUFFER
        TAD     (RRDTA          /GET ADDRESS OF DATA
        DCA     W90             /PUT INTO POINTER

W10,    TAD I   W90             /GET A CHAR FROM PACKET
        SNA                     /SKIP IF NOT END
        JMP     W60             /END, EXIT
        CIA                     /NEGATE FOR COMPARE
        TAD     RQCTL           /COMPARE WITH CURRENT QUOTE CHAR
        SNA CLA                 /SKIP IF NOT QUOTE CHAR
        JMP     W20             /IS QUOTE, HANDLE SPECIAL
        TAD     W92             /WAS LAST CHAR A QUOTE?
        SZA CLA                 /SKIP IF NO
        TAD     (-100           /IT WAS, FIX UP THIS CHAR
        JMP     W25             /HANDLE REST BELOW

W20,    TAD     W92             /CURRENT CHAR A QUOTE, CHECK PREVIOUS
        SNA CLA                 /SKIP IF YES
        JMP     W30             /JUST THIS CHAR IS QUOTE, SET FLAG

W25,    TAD I   W90             /GET CHAR FROM BUFFER
        JMS I   [PUTBYTE]       /OUTPUT TO FILE                         /020 CJL
        JMP I   WRIPAK          /ERROR IN OUTPUT                        /M020 CJL
        JMP     W35             /FINISH BELOW

W30,    NL0001 CLL              /GOTA SET FLAG FOR QUOTE CHARACTER      /032 CJL

W35,    DCA     W92             /SET UP QUOTE FLAG
        ISZ     W90             /BUMP POINTER
        JMP     W10             /LOOP

W60,    ISZ     WRIPAK          /BUMP RETURN FOR OK
        JMP I   WRIPAK          /DONE

W90,    0                       /POINTER FOR "WRIPAK"
W92,    0                       /TEMP FOR "WRIPAK"
\f/      TABLE SEARCH ROUTINE.                                           /025 CJL

/       CALLING SEQUENCE:

/       TAD     VALUE                   /AC CONTAINS VALUE TO MATCH
/       JMS I   [SRCHTABLE]             /CALL ROUTINE
/       TABLE-2                         /ADDRESS(TABLE)-2
/       RETURN                          /ALWAYS RETURNS HERE

/       IF AC=0 THEN NO MATCH OCCURRED.

/       IF AC IS NON-ZERO, THEN AC CONTAINS CORRESPONDING VALUE TO MATCH WHICH IS ALSO
/       STORED IN TABLEJUMP.

/       TABLE FORMAT.

/       -VALUE; CORRESPONDING VALUE     /TABLE PAIR
/       "";     ""                      /ADDITIONAL PAIRS AS NECESSARY
/       0                               /ZERO TERMINATES THE TABLE

SRCHTAB,.-.                             /TABLE SEARCH ROUTINE
        DCA     TABLEJUMP               /SAVE PASSED VALUE TO MATCH
        TAD I   SRCHTABLE               /GET PASSED POINTER ARGUMENT
        DCA     XR0                     /STASH THE POINTER
        ISZ     SRCHTABLE               /BUMP PAST ARGUMENT
SRCHLUP,ISZ     XR0                     /BUMP TO NEXT PAIR
        TAD I   XR0                     /GET A TABLE VALUE
        SNA                             /END OF TABLE?
        JMP I   SRCHTABLE               /YES, RETURN WITH CLEAR AC
        TAD     TABLEJUMP               /COMPARE TO DESIRED
        SZA CLA                         /SKIP IF IT MATCHES
        JMP     SRCHLUP                 /JUMP IF NOT
        TAD I   XR0                     /GET CORRESPONDING VALUE
        DCA     TABLEJUMP               /STASH IT
        TAD     TABLEJUMP               /GET IT BACK
        JMP I   SRCHTABLE               /RETURN WITH CORRESPONDING VAUE IN AC

        PAGE                                                            /014 CJL
\f       IFZERO  1       <

/       OS8 DIRECTORY FILE DATA SETUP.
/       ENTER WITH THE DIRECTORY DATE WORD IN THE AC.
/       EXIT WITH THE DATE IN THE BUFFER "DATBUF".

FILD8,  0
        DCA     FILD89          /SAVE THE DATE WORD
        TAD     FILD89          /GET DATA WORD
        AND     (7              /KEEP ONLY YEAR BITS
        TAD     (116            /ADD 78 YEARS
        MQL                     /PUT INTO MQ REGISTER
        TAD     (DATEYR         /GET POINTER TO YEAR
        JMS     DECCON          /CONVERT TO ASCII DATE
        TAD     FILD89          /GET DATE WORD BACK
        CLL RTR                 /SHIFT DAY DOWN
        RAR
        AND     (37             /KEEP ONLY DAY BITS
        MQL                     /PUT IN MQ REGISTER
        TAD     (DATEDA         /GET POINTER TO DAY
        JMS     DECCON          /CONVERT TO ASCII DAY
        TAD     FILD89          /GET DATE WORD BACK
        BSW                     /GET MONTH
        CLL RTR                 /DOWN
        AND     (17             /KEEP ONLY MONTH BITS
        MQL                     /INTO MQ REGISTER
        TAD     (DATEMO         /GET ADDRESS OF WHERE TO PUT MONTH
        JMS     DECCON          /CONVERT
        JMP I   FILD8           /ALL DONE

FILD89, 0                       /TEMP FOR "FILD8"


/       ROUTINE  TO CONVERT A BINARY VALUE INTO A  TWO  DIGIT  ASCII  DECIMAL  NUMBER.
/       ENTER WITH WHERE TO STORE THE CONVERTED NUMBER IN THE AC AND THE NUMBER IN THE
/       MQ REGISTER.

DECCON, 0
        DCA     DECC20          /STORE THE POINTER
        TAD     ("0&177-1       /GET AN ASCII ZERO
        DCA I   DECC20          /START OUT WITH A ZERO
        MQA                     /GET THE BINARY VALUE
DECC01, ISZ I   DECC20          /BUMP
        TAD     (-12            /SUB 10
        SMA                     /SKIP IF NO MORE DIVISION
        JMP     DECC01          /ELSE KEEP GOING
        TAD     (12+"0&177      /CONVERT REMAINDER TO ASCII
        ISZ     DECC20          /BUMP POINTER
        DCA I   DECC20          /STORE
/       JMS     FMTDAT          /FORMAT FOR PRINTING                    /D013
        JMP I   DECCON          /DONE

                        >
\f       IFZERO  1       <

DECC20, 0                       /LOCAL POINTER TO DECCON

/       ROUTINE TO SET UP THE DATE IN A MM-DD-YY FORMAT  TO  PUT IN FRONT OF A FILE TO
/       PASS THE FILES DATE (TEMPORY AND NOT PART OF THE KERMIT PROTOCOL).

FMTDAT, 0
        TAD     DATEMO          /GET FIRST CHAR OF DATE
        DCA     FDATE           /MOVE IT
        TAD     DATEMO+1
        DCA     FDATE+1
        TAD     DATEDA
        DCA     FDATE+3
        TAD     DATEDA+1
        DCA     FDATE+4
        TAD     DATEYR
        DCA     FDATE+6
        TAD     DATEYR+1
        DCA     FDATE+7
        JMP I   FMTDAT          /QUICK AND DIRTY

DATBUF, "#&177                  /FILE CREATION DATE ATTRIBUTE
        6+40                    /LENGTH OF DATE (CHAR(X))
DATEYR, 0                       /ASCII YEAR GOES HERE
        0
DATEMO, 0                       /ASCII MONTH GOES HERE
        0
DATEDA, 0                       /ASCII DAY GOES HERE
        0
        -1                      /TERMINATE

/       FORMATTED DATE GOES HERE.

SETDAT,"ANGLEBRACKET&177        /COMMENT SIGN

FDATE,  0
        0
        "-&177
        0
        0
        "-&177
        0
        0
        12
        15
        -1

                        >
\f/      DIRECTORY LOOKUP ROUTINE.                                       /028 CJL

/       CALLING SEQUENCE:

/       NL0001                          /IF INITIALIZING THE DIRECTORY

/       OR

/       CLA                             /CLEAR AC IF SUBSEQUENT CALL

/       JMS I   (LUKUP)                 /CALL ROUTINE
/       I/O ERROR                       /DIRECTORY I/O ERROR RETURN WITH AC DIRTY
/       NOT FOUND                       /FILE NOT FOUND RETURN
/       FOUND                           /LATEST FILE MATCHES REQUEST

/       SETS FLEN TO -(FILE LENGTH) IN RECORDS.

/       SETS FSBLK TO STARTING RECORD OF FILE.

/       MODIFIES DIRECTORY SEGMENT SLIGHTLY (NOT TO BE WRITTEN BACK).

/       DEPENDS ON DIRXR BEING UNTOUCHED BY OTHER ROUTINES.

LUKUP,  .-.                             /DIRECTORY LOOKUP ROUTINE
        SNA                             /INITIALIZING DIRECTORY?
        JMP     NXTFILE                 /NO, JUST GET ANOTHER FILE IF POSSIBLE
NEXTSEG,DCA     DIRRECORD               /STORE LATEST DIRECTORY SEGMENT RECORD
        JMS I   HNDADR                  /CALL I/O HANDLER
        PAGCNT^100+DIRFLD               /READ IN A DIRECTORY SEGMENT
        DIRBUFFER                       /DIRECTORY I/O BUFFER
DIRRECO,.-.                             /WILL BE LATEST SEGMENT NUMBER
        JMP I   LUKUP                   /I/O ERROR, TAKE DIRTY IMMEDIATE RETURN
        CDF     DIRFLD                  /GOTO DIRECTORY FIELD
        TAD I   (FRSTRECORD)            /GET FIRST RECORD OF FIRST ENTRY
        DCA     FSBLK                   /STASH IT
        TAD     (ENTSTRT-1)             /POINT TO
        DCA     DIRXR                   /ENTRIES
LOOKLUP,TAD I   DIRXR                   /GET FIRST WORD OF ENTRY
        SNA                             /SKIP IF NOT EMPTY
        JMP     EMPENTRY                /JUMP IF EMPTY ENTRY
        DCA     FNAME                   /STORE FIRST FILENAME WORD
        TAD I   DIRXR                   /GET NEXT
        DCA     FNAME+1                 /STORE SECOND FILENAME WORD
        TAD I   DIRXR                   /GET NEXT
        DCA     FNAME+2                 /STORE THIRD FILENAME WORD
        TAD I   DIRXR                   /GET NEXT
        DCA     FNAME+3                 /STORE EXTENSION WORD
        NL7777                          /BACKUP
        TAD I   (AIWNUMBER)             /GET ADDITIONAL INFORMATION WORD COUNT
        DCA     AIWCNT                  /STASH THE COUNTER
DCADATW,DCA     DATWORD                 /CLEAR THE DATE WORD
        TAD     DCADATW/(DCA    DATWORD)/GET STORING INSTRUCTION
        DCA     AIWSTORE                /STORE IN-LINE
        JMP     AIWTEST                 /START LOOP THERE
\fAIWLUP,        TAD I   DIRXR           /GET A WORD FROM ENTRY
AIWSTOR,DCA     DATWORD+.-.     /STORE IN PROPER WORD
        ISZ     AIWSTORE        /BUMP TO NEXT INSTRUCTION
AIWTEST,ISZ     AIWCNT          /DONE ALL ADDITIONAL INFORMATION WORDS?
        JMP     AIWLUP          /NO, KEEP GOING
        TAD I   DIRXR           /GET THE FILE LENGTH
        SNA                     /SKIP IF VALID
        JMP     TENTRY          /JUMP IF ONLY TENTATIVE FILE (NO LENGTH)
        DCA     FILENGTH        /STORE FILE LENGTH
        CDF     PRGFLD          /BACK TO OUR FIELD
/       JMS I   (FILTER)        /CHECK IF WE LIKE THIS ONE
        TAD     (FNAME)         /POINT TO LATEST FILENAME
        JMS I   (FMATCH)        /CHECK FOR A MATCH
        JMP     NXTFILE         /FORGET THIS ONE, IT DIDN'T MATCH
        TAD     FILENGTH        /GET FILE LENGTH
        DCA     FLEN            /GIVE TO CALLER TO DESTROY
        TAD     (FNAME)         /POINT TO FILENAME
        JMS I   [FILN8]         /PUT IN CHARACTER FORM IN BUFFER
        ISZ     LUKUP           /BUMP TO FILE MATCH RETURN
        JMP     FLEXIT          /EXIT THERE

/       COMES HERE FROM SUBSEQUENT CALL OR MATCH FAILURE.

NXTFILE,CDF     DIRFLD          /GOTO BUFFER FIELD
        TAD     FILENGTH        /GET LATEST FILE LENGTH
        SKP                     /DON'T DO EMPTY LENGTH

/       COMES HERE TO BYPASS AN EMPTY ENTRY.

EMPENTR,TAD I   DIRXR           /GET LENGTH OF EMPTY
        CIA                     /WANT POSITIVE FORM
        TAD     FSBLK           /UPDATE TO NEXT FILE RECORD
        DCA     FSBLK           /STORE UPDATED VALUE
TENTRY, ISZ I   (FILECNT)       /DONE WITH THIS SEGMENT?
        JMP     LOOKLUP         /NO, KEEP GOING
        TAD I   (DIRLINK)       /GET LINK TO NEXT SEGMENT
        CDF     PRGFLD          /BACK TO OUR FIELD
        SZA                     /END OF DIRECTORY?
        JMP     NEXTSEGMENT     /NO, GO DO NEXT SEGMENT
FLEXIT, ISZ     LUKUP           /BUMP PAST I/O ERROR EXIT
        JMP I   LUKUP           /RETURN FOR FILE NOT FOUND

AIWCNT, .-.                     /ADDITIONAL INFORMATION WORD COUNTER
DATWORD,.-.                     /DATE WORD STORED HERE (0000 IF NONE)
        ZBLOCK  7               /ROOM FOR MORE ADDITIONAL INFORMATION WORDS
FILENGT,.-.                     /LATEST FILE LENGTH
FNAME,  ZBLOCK  4               /FILENAME AND EXTENSION STORED HERE

        PAGE
\f/      OS/8 FILE UNPACK ROUTINE.                                       /019 CJL

/       THIS ROUTINE UNPACKS BYTES FROM THE INPUT FILE ACCORDING TO THE  CURRENT VALUE
/       OF FILMODE:

/       FILMODE CONTAINS 0177 (ASCII MODE).  ALL BYTES ARE TREATED AS SEVEN-BIT  ASCII
/       CHARACTERS BY STRIPPING THE HIGH-ORDER BIT.  END OF FILE IS THE <^Z> CHARACTER
/       WHICH  WILL  BE  SENT  OR  NOT  ACCORDING  TO  THE  CONTENTS OF OCTLZFLAG.  IF
/       OCTLZFLAG CONTAINS  NON-ZERO,  THEN <^Z> WILL BE SENT AT <EOF>;  THE NEXT CALL
/       WILL YIELD THE  <EOF>  RETURN.   IF OCTLZFLAG CONTAINS ZERO, THEN DETECTION OF
/       <^Z> YIELDS THE <EOF> RETURN IMMEDIATELY.

/       FILMODE CONTAINS 4377 (BINARY  MODE).    ALL  BYTES  ARE  TREATED AS EIGHT-BIT
/       CHARACTERS AND WILL BE SENT  WITHOUT <^Z> CHECK.  THE NEXT CALL AFTER THE LAST
/       BYTE OF THE LAST RECORD HAS BEEN SENT YIELDS THE <EOF> RETURN.

/       CALLING CONSIDERATIONS:

/       OCTLZFLAG MUST BE SETUP ACCORDINGLY IF IN ASCII MODE.

/       FILMODE MUST BE SETUP ACCORDINGLY.

/       FLEN MUST CONTAIN -(FILE LENGTH IN  RECORDS) WHEN INITIALIZING THE INPUT FILE.
/       IT WILL BE MODIFIED BY CALLING THIS ROUTINE.

/       FSBLK MUST CONTAIN THE THE STARTING RECORD WHEN INITIALIZING THE INPUT FILE.

/       HNDADR MUST ALREADY BE SETUP TO CALL THE INPUT HANDLER.

/       CALLING SEQUENCE:

/       CLA                             /OR NL7777 IF INITIALIZING THE INPUT FILE
/       JMS I   (GETBYTE)               /CALL ROUTINE
/       I/O ERROR RETURN                /FATAL INPUT ERROR OCCURRED; AC CONTAINS JUNK
/       END OF FILE                     /<EOF> OCCURRED
/       GOOD RETURN                     /AC CONTAINS LATEST SEVEN/EIGHT-BIT CHARACTER

GETBYTE,.-.                             /GET A BYTE ROUTINE
        SNA CLA                         /INITIALIZING?
        JMP I   PUTC                    /NO, GO GET NEXT BYTE
        TAD     FSBLK                   /GET STARTING RECORD OF INPUT FILE
        DCA     GETRECORD               /STORE IN-LINE
GETNEWR,JMS I   HNDADR                  /CALL I/O HANDLER
        PAGCNT^100+BUFFLD               /READ SOME PAGES INTO BUFFER FIELD
GETCORE,FILBUFFER                       /BUFFER ADDRESS
GETRECO,.-.                             /WILL BE LATEST RECORD NUMBER
        JMP I   GETBYTE                 /INPUT ERROR!
        TAD     GETCORE/(FILBUFFER)     /SETUP THE
        DCA     BUFPTR                  /BUFFER POINTER
\fGETLOOP,DCA    THIRD                   /CLEAR THIRD BYTE NOW
        JMS     PUTONE                  /OBTAIN AND SEND BACK FIRST BYTE
        JMS     PUTONE                  /OBTAIN AND SEND BACK SECOND BYTE
        TAD     THIRD                   /GET THIRD BYTE
        JMS     PUTC                    /SEND IT BACK
        TAD     BUFPTR                  /GET THE POINTER
        TAD     (-PAGCNT^200-FILBUFFER) /COMPARE TO LIMIT
        SZA CLA                         /SKIP IF AT END
        JMP     GETLOOP                 /KEEP GOING
        ISZ     GETRECORD               /BUMP TO NEXT RECORD
        ISZ     FLEN                    /DONE ALL RECORDS? (BINARY MODE ONLY)
        JMP     GETNEWRECORD            /NO, GO DO ANOTHER ONE

/       BINARY <EOF> REACHED HERE.

        JMP     GETEOF                  /TAKE SKIP RETURN TO MAIN CALLER

PUTONE, .-.                             /SEND BACK A BYTE ROUTINE
        CDF     BUFFLD                  /GOTO BUFFER FIELD
        TAD I   BUFPTR                  /GET LATEST WORD
        AND     [7400]                  /JUST THIRD-BYTE NYBBLE
        CLL RAL                         /MOVE UP
        TAD     THIRD                   /GET OLD NYBBLE (IF ANY)
        RTL;RTL                         /MOVE UP NYBBLE BITS
        DCA     THIRD                   /SAVE FOR NEXT TIME
        TAD I   BUFPTR                  /GET LATEST WORD AGAIN
        JMS     PUTC                    /SEND BACK CURRENT BYTE
        ISZ     BUFPTR                  /BUMP TO NEXT WORD
        JMP I   PUTONE                  /RETURN

PUTC,   .-.                             /SEND BACK LATEST BYTE ROUTINE
        CDF     PRGFLD                  /BACK TO OUR FIELD
        RAL                             /MOVE UP
        STL RAR                         /MOVE DOWN WITH BIT[0] SET
        AND     FILMODE                 /KEEP ONLY GOOD BITS
        TAD     [-CNTRLZ]               /COMPARE TO <^Z>
        SNA                             /SKIP IF NOT ASCII MODE <EOF>
        JMP     GETEND                  /JUMP IF ASCII MODE <EOF>
GETUPZ, TAD     [CNTRLZ]                /RESTORE THE CHARACTER
        AND     [377]                   /ENSURE EIGHT-BIT (MIGHT ALREADY BE SEVEN-BIT)
        ISZ     GETBYTE                 /BUMP PAST <EOF> RETURN
GETEOF, ISZ     GETBYTE                 /BUMP PAST I/O ERROR RETURN
        JMP I   GETBYTE                 /RETURN TO MAIN CALLER

/       GOT <Z> IN ASCII MODE.

GETEND, TAD     OCTLZFLAG               /GET <^Z> DISPOSITION FLAG
        SNA CLA                         /SKIP IF SET
        JMP     GETEOF                  /JUST RETURN <EOF> CONDITION
        TAD     (GETEOF)                /POINT TO <EOF>
        DCA     PUTC                    /FOR NEXT TIME
        JMP     GETUPZ                  /GIVE THEM BACK <^Z> THIS TIME
\f/      OS/8 FILE PACK ROUTINE.                                         /020 CJL

/       THIS ROUTINE PACKS BYTES INTO THE OUTPUT  FILE  ACCORDING TO THE CURRENT VALUE
/       OF FILMODE:

/       FILMODE CONTAINS 0177 (ASCII MODE).  ALL BYTES  ARE TREATED AS SEVEN-BIT ASCII
/       CHARACTERS BY STRIPPING THE HIGH-ORDER BIT.

/       FILMODE  CONTAINS  4377  (BINARY MODE).  ALL BYTES ARE  TREATED  AS  EIGHT-BIT
/       CHARACTERS AND WILL BE WRITTEN AS IS.

/       CALLING CONSIDERATIONS:

/       FILMODE MUST BE SETUP ACCORDINGLY.

/       FLEN  MUST  CONTAIN  -(MAXIMUM  FILE LENGTH IN RECORDS) WHEN INITIALIZING  THE
/       TENTATIVE OUTPUT FILE.  IT WILL BE MODIFIED BY CALLING THIS ROUTINE.

/       FSBLK  MUST CONTAIN THE STARTING RECORD WHEN INITIALIZING THE TENTATIVE OUTPUT
/       FILE.

/       HNDADR MUST ALREADY BE SETUP TO CALL THE OUTPUT HANDLER.

/       CALLING SEQUENCE:

/       NL7777                          /ANY NEGATIVE VALUE
/       JMS I   [PUTBYTE]               /CALL ROUTINE TO INITIALIZE
/       IMPOSSIBLE                      /CAN'T RETURN HERE
/       GOOD RETURN                     /ALWAYS RETURNS HERE

/       OR

/       TAD     (CHAR&377)              /ANY EIGHT-BIT (OR LESS) VALUE
/       JMS I   [PUTBYTE]               /CALL ROUTINE TO PACK A CHARACTER
/       ERROR RETURN                    /I/O ERROR WHILE WRITING A BUFFER
/       GOOD RETURN                     /CHARACTER PACKED WITH NO ERRORS

/       ALL RETURNS CLEAR THE AC.

PUTBYTE,.-.                             /OUTPUT A BYTE ROUTINE
        SPA                             /ARE WE INITIALIZING?
        JMP     PUTINITIALIZE           /YES
        AND     FILMODE                 /REDUCE TO SEVEN-BIT/EIGHT-BIT
        DCA     LATEST                  /SAVE LATEST CHARACTER
        CDF     BUFFLD                  /GOTO BUFFER FIELD
        TAD     LATEST                  /GET LATEST CHARACTER
        JMP I   PUTNEXT                 /GO WHERE YOU SHOULD GO

PUTNEXT,.-.                             /EXIT ROUTINE
        ISZ     PUTBYTE                 /BUMP TO GOOD RETURN
PUTERRO,CLA CLL                         /CLEAN UP
        CDF     PRGFLD                  /BACK TO OUR FIELD
        JMP I   PUTBYTE                 /RETURN TO MAIN CALLER
\fPUTINIT,CLA                            /CLEAN UP
        TAD     FSBLK                   /GET STARTING RECORD OF TENTATIVE FILE
        DCA     PUTRECORD               /STORE IN-LINE
        DCA I   (FLENGTH)               /CLEAR ACTUAL FILE LENGTH
PUTNEWR,TAD     PUTCORE/(FILEBUFFER)    /SETUP THE
        DCA     BUFPTR                  /BUFFER POINTER
PUTLOOP,JMS     PUTNEXT                 /GET A CHARACTER
        DCA I   BUFPTR                  /STORE IT
        TAD     BUFPTR                  /GET POINTER VALUE
        DCA     TEMPTR                  /SAVE FOR LATER
        ISZ     BUFPTR                  /BUMP TO NEXT
        JMS     PUTNEXT                 /GET A CHARACTER
        DCA I   BUFPTR                  /STORE IT
        JMS     PUTNEXT                 /GET A CHARACTER
        RTL;RTL                         /MOVE UP
        AND     [7400]                  /ISOLATE HIGH NYBBLE
        TAD I   TEMPTR                  /ADD ON FIRST BYTE
        DCA I   TEMPTR                  /STORE COMPOSITE
        TAD     LATEST                  /GET LATEST CHARACTER
        RTR;RTR;RAR                     /MOVE UP AND
        AND     [7400]                  /ISOLATE LOW NYBBLE
        TAD I   BUFPTR                  /ADD ON SECOND BYTE
        DCA I   BUFPTR                  /STORE COMPOSITE
        ISZ     BUFPTR                  /BUMP TO NEXT
        TAD     BUFPTR                  /GET LATEST POINTER VALUE
        TAD     (-PAGCNT^200-FILBUFFER) /COMPARE TO LIMIT
        SZA CLA                         /SKIP IF AT END
        JMP     PUTLOOP                 /KEEP GOING
        CDF     PRGFLD                  /BACK TO OUR FIELD
        ISZ     FLEN                    /TOO MANY RECORDS?
        SKP                             /SKIP IF NOT
        JMP I   PUTBYTE                 /TAKE ERROR RETURN
        JMS I   HNDADR                  /CALL I/O HANDLER
        PAGCNT^100+BUFFLD+WRITE         /WRITE SOME PAGES FROM BUFFER FIELD
PUTCORE,FILBUFFER                       /BUFFER ADDRESS
PUTRECO,.-.                             /WILL BE LATEST RECORD NUMBER
        JMP     PUTERROR                /OUTPUT ERROR!
        ISZ I   (FLENGTH)               /BUMP ACTUAL LENGTH
        ISZ     PUTRECORD               /BUMP TO NEXT RECORD
        JMP     PUTNEWRECORD            /KEEP GOING

BUFPTR, .-.                             /INPUT/OUTPUT BUFFER POINTER

/       ASCII FILE MODE <^Z> OUTPUT DISPOSITION FLAG.

OCTLZFL,OCLOSE                          /ZERO=DON'T SEND <^Z> AT <EOF>,
                                        /NON-ZERO=SEND <^Z> AT <EOF>

        THIRD=  PUTNEXT                 /THIRD BYTE TEMPORARY

        TEMPTR= PUTONE                  /TEMPORARY BUFFER POINTER
\f       PAGE
\f/      OUTPUT FILE CLOSE ROUTINE                                       /020 CJL

/       THIS  ROUTINE  CLOSES  THE OPEN OUTPUT FILE ACCORDING TO THE CURRENT VALUE  OF
/       FILMODE:

/       FILMODE  CONTAINS  0177  (ASCII  MODE).  ALL BYTES PRIOR TO CLOSE ARE STRIPPED
/       SEVEN-BIT CHARACTERS.    IF  THE  LAST  CHARACTER SENT TO PUTBYTE (CONTENTS OF
/       LATEST) IS A  <^Z>,  THEN  JUST  CLOSE THE FILE.  IF NOT, THEN IF ICTLZFLAG IS
/       NON-ZERO, INSERT A <^Z>  CHARACTER INTO THE FILE AS <EOF> INDICATOR, ELSE JUST
/       CLOSE THE FILE.

/       FILMODE CONTAINS 4377 (BINARY MODE).    ALL BYTES PRIOR TO CLOSE ARE EIGHT-BIT
/       CHARACTERS.  IF NECESSARY, <NUL> CHARACTERS WILL BE APPENDED TO THE END OF THE
/       LAST BLOCK OF THE FILE TO FILL IT.  THE FILE IS CLOSED OTHERWISE UNMODIFIED.

/       CALLING CONSIDERATIONS.

/       OFFLG MUST BE SET (OUTPUT FILE IS OPEN).

/       FLENGTH MUST CONTAIN THE ACTUAL FILE LENGTH.

/       LATEST MUST CONTAIN THE LAST BYTE SENT  TO  THE OUTPUT FILE VIA PUTBYTE (ASCII
/       MODE ONLY).

/       ICTLZFLAG MUST BE SETUP ACCORDINGLY.

/       FILMODE MUST BE SETUP ACCORDINGLY.

/       CALLING SEQUENCE:

/       CLA CLL                 /CLEAR AC
/       JMS I   (FILCLOSE)      /CALL ROUTINE
/       ERROR RETURN            /ERROR WHILE CLOSING FILE
/       GOOD RETURN             /FILE CLOSED PROPERLY

/       ON RETURN, OFFLG WILL BE CLEAR; THE AC WILL BE CLEAR ALSO.

FILCLOS,.-.                     /OUTPUT FILE CLOSE ROUTINE
        TAD     FILMODE         /GET CURRENT FILE MODE
        SPA CLA                 /SKIP IF ASCII
        JMP     CLOSIT          /JUMP IF BINARY
        TAD     LATEST          /GET LATEST CHARACTER
        TAD     [-CNTRLZ]       /COMPARE TO <^Z>
        SZA CLA                 /SKIP IF <^Z> ALREADY IN FILE
        TAD     ICTLZFLAG       /GET <^Z> DISPOSITION FLAG
        SNA CLA                 /SKIP IF SET
        JMP     CLOSIT          /JUMP IF NOT
        TAD     [CNTRLZ]        /GET A <^Z>
\fCLOSLUP,JMS I  [PUTBYTE]       /OUTPUT A BYTE
        JMP     CLOSERROR       /ERROR WHILE WRITING
CLOSIT, TAD I   (BUFPTR)        /GET THE BUFFER POINTER
        TAD     (-FILBUFFER)    /COMPARE TO RESET VALUE
        SZA CLA                 /SKIP IF IT MATCHES
        JMP     CLOSLUP         /ELSE KEEP GOING
        TAD     ODNUMBER        /GET OUTPUT DEVICE NUMBER
        CIF     USRFLD          /GOTO USR FIELD
        JMS I   [USRENTRY]      /CALL USER SERVICE ROUTINE              /035 CJL
        CLOSE                   /CLOSE FILE
        FNBLK                   /=> FILENAME
FLENGTH,.-.                     /ACTUAL FILE LENGTH
CLOSERR,SKP CLA                 /ERROR WHILE CLOSING THE FILE
        ISZ     FILCLOSE        /BUMP RETURN IF NO ERRORS
        DCA     OFFLG           /CLEAR OUTPUT FILE OPEN FLAG
        JMP I   FILCLOSE        /RETURN TO CALLER

/       ASCII FILE MODE <^Z> INPUT DISPOSITION FLAG.

ICTLZFL,ICLOSE                  /ZERO=DON'T ENSURE <^Z> IN FILE, NON-ZERO=PACK <^Z>
                                /IF LAST CHARACTER WASN'T <^Z>
\f/      SEND PROCESSING

SNDPRO, 0
        TAD     INIFLG          /CHECK IF SEND/INIT HAS BEEN DONE
        SZA CLA                 /SKIP IF NO
        JMP     SNDP10          /RIGHT INTO FILE TRANSFER
        TAD     (DEFCK          /SET UP DEFAULT CHECKSUM
        DCA     RCHKT
        TAD     (DEFEOL         /GET DEFAULT EOL
        DCA     REOL            /AND SET IT
        TAD     (DEFQCTL        /GET DEFAULT QUOTE CONTROL CHAR
        DCA     RQCTL           /AND SET IT UP
        TAD     (DEFMAXL+40     /GET DEFAULT MAX BUFFER SIZE
        DCA     RMAXL           /SET IT UP
        DCA     CURSEQ          /RE-SET SEQUENCE NUMBER
        JMS I   (SNDI00)        /HANDLE "SEND-INIT"
        JMP I   SNDPRO          /TAKE ERROR RETURN                      /014 CJL

/       SEND FILE HEADER DISPATCH ROUTINE

SNDP10, FPACK                   /FORMAT A PACKET
        NAMBUF                  /ADDRESS OF FILE HEADER FOR DATA
        STFIL                   /"FIL" PACKET TYPE

SNDP11, SPACK                   /SEND A PACKET
        1                       /AWAIT RESPONSE
        SNDP96-2                /DISPATCH TABLE ADDRESS                 /026 CJL

/       GOT A NAK OR UNDEFINED HERE

SNDP12, ISZ     RTRYC           /BUMP THE COUNTER
        JMP     SNDP11          /TRY AGAIN
        JMP I   SNDPRO          /TAKE ERROR RETURN                      /014 CJL

/       FILE CREATION DATE HANDLING

SNDP15, IFZERO  1       <

        TAD     RCAPAS          /CHECK IF REMOTE SUPPORTS FILE
        AND     (10             /  ATTRIBUTES
        SNA CLA                 /SKIP IF YES
        JMP     SNDP20          /SKIP IF NO
        FPACK                   /FORMAT PACKET
        DATBUF                  /DATE DATA
        STATT                   /"ATT" PACKET TYPE

SNDP16, SPACK                   /SEND THE PACKET
        1                       /AWAIT RESPONSE
        SNDP98-2                /DISPATCH TABLE ADDRESS                 /027 CJL
        JMP I   SNDPRO          /TAKE ERROR RETURN                      /014 CJL

                        >
\f/      GOT ACK HERE

SNDP20, JMS I   [SCRIBE]        /TELL THEM                              /025 CJL
        FSENMSG                 /WE ARE SENDING                         /025 CJL
        PRI8B;  NAMBUF          /TELL THEM THE NAME OF THE FILE
        JMS I   [SCRIBE]        /DO A                                   /025 CJL
        CRLF                    /<CR>, <LF>                             /025 CJL
        JMS     SLOOP
        SKP                     /ERROR RETURN
        ISZ     SNDPRO          /BUMP FOR NON-ERROR EXIT
        JMP I   SNDPRO
\f/      DATA SEND LOOP.
/       ROUTINE TO GET CHARS FROM THE INPUT BUFFER AND SEND THEM TO REMOTE
/       VIA PACKET TRANSFERS.  RETURN + 1 IF ERROR, + 2 IF DONE.

SLOOP,  0
        JMS I   (INIOPB)        /INIT OUTPUT PACKET HOLD BUFFER
        NL7777                  /INITIALIZE INPUT FILE ROUTINE          /019 CJL
SLOP01, JMS I   (GETBYTE)       /GET A FILE CHARACTER                   /019 CJL
        JMP I   SLOOP           /FATAL I/O ERROR                        /026 CJL
        JMP     SLOP15          /HERE ON EOF
        JMS I   (OPBUF)         /PUT INTO PACKET BUFFER
        SKP                     /RETURN HERE ON BUFFER FULL
        JMP     SLOP01          /RETURN HERE IF STILL ROOM

/       PACKET IS FULL HERE, WE MUST SEND IT.

        FPACK                   /FORMAT A PACKET
        HOLDBF                  /DATA ADDRESS
        STDAT                   /"DAT" PACKET TYPE

SLOP05, SPACK                   /SEND PACKET
        1                       /AWAIT RESPONSE
        SLOP90-2                /RESPONSE TABLE ADDRESS                 /027 CJL

/       HERE ON NAK OR FALL THRU ON UNDEFINED RESPONSE ABOVE.

SLOP10, ISZ     RTRYC           /BUMP THE RE-TRY COUNTER
        JMP     SLOP05          /TRY AGAIN
        JMP I   SLOOP           /TAKE ERROR RETURN                      /026 CJL

/       HERE ON END OF FILE  --  SEND THEM WHAT WE HAVE.

SLOP15, TAD I   (OP2)           /GET THE POINTER                        /052 CJL
        TAD     (-HOLDBF)       /COMPARE TO EMPTY VALUE                 /052 CJL
        SNA CLA                 /SKIP IF NOT EMPTY                      /052 CJL
        JMP     SLOP35          /JUMP IF EMPTY                          /052 CJL
        FPACK                   /FORMAT A PACKET
        HOLDBF                  /ADDRESS OF DATA
        STDAT                   /"DAT" PACKET TYPE

SLOP20, SPACK                   /SEND A PACKET
        1                       /AWAIT RESPONSE
        SLOP92-2                /DISPATCH TABLE ADDRESS                 /027 CJL

/       NAK FOR LAST PACKET.            

SLOP25, ISZ     RTRYC           /BUMP RE-TRY COUNTER
        JMP     SLOP20          /TRY AGAIN
        JMP I   SLOOP           /TAKE ERROR RETURN                      /026 CJL
\f/      ACK FOR FINAL PACKET, SEND AN EOF PACKET.

SLOP35, JMS I   [SNDP]          /SEND A PACKET
        NODATA                  /NO DATA
        STEOF                   /MAKE IT AN EOF PACKET
        JMP I   SLOOP           /NAK, TAKE ERROR RETURN
        JMP I   SLOOP           /OTHER THAN ACK, NAK; TAKE ERROR RETURN /026 CJL
        ISZ     SLOOP           /EOF ACCEPTED, BUMP FOR GOOD RETURN
        JMP I   SLOOP           /TAKE GOOD RETURN

        PAGE
\fSLOP90,        STACK;  SLOP01          /ACK, CONTINUE
        STNAK;  SLOP10          /NAK, HANDLE
        0

SLOP92, STACK;  SLOP35          /ACK, CONTINUE
        STNAK;  SLOP25          /NAK, HANDLE
        0

/       COMMAND DISPATCH TABLE FOR SEND SERVICE.

SNDP96, STACK;  SNDP15          /FILE HEADER ACKNOWLEDGED
        STNAK;  SNDP12          /NAK RETURNED, RE-TRY
        0                       /END OF TABLE

SNDP98, STACK;  SNDP20          /DATE ATTRIBUTE ACKNOWLEDGED
        0                       /END OF TABLE
\f/      ROUTINE TO HANDLE A "SEND-INIT" COMMAND.
/       RETURN + 1 IF ERROR.
/       RETURN + 2 IF SUCCESSFUL.

SNDI00, 0
        FPACK                   /FORMAT A PACKET
        INIDAT                  /ADDRESS OF DATA FOR PACKET
        STSIN                   /"SIN" PACKET TYPE

SNDI02, SPACK                   /SEND A PACKET
        1                       /AWAIT RESPONSE
        SNDI80-2                /RESPONSE TABLE TYPE                    /027 CJL

/       HERE ON NAK OR UNDEFINED.

SNDI05, ISZ     RTRYC           /BUMP RE-TRY COUNTER
        JMP     SNDI02          /TRY AGAIN
        JMP I   SNDI00          /TAKE ERROR EXIT

/       HERE ON ACK.

SNDI10, JMS     SETINI          /SET UP THE INIT REGISTERS
        NL0001 CLL              /NOW FLAG THE SEND/INIT DONE            /032 CJL
        DCA     INIFLG          /BY MAKING THIS NON-ZERO
        ISZ     SNDI00          /BUMP FOR NON-ERROR RETURN
        JMP I   SNDI00          /BACK TO MAIN SEND PROCESSING

SNDI80, STACK;  SNDI10          /GOT AN ACK
        STNAK;  SNDI05          /NAK
        0                       /END OF TABLE


/       ROUTINE TO MOVE THE SEND/INIT OR RECEIVE/INIT PACKET INTO THE INIT REGISTERS.

SETINI, 0
        TAD     (RMAXL          /GET ADDRESS OF RECEIVE INIT REGISTERS
        DCA     MQ              /SETUP FOR CLEAR ROUTINE                /032 CJL
        TAD     (RMAXL-INITEND) /GET -(NUMBER OF REGISTERS)             /022 CJL
        CLEAR                   /CLEAR OUT A CHUNK OF MEMORY            /M013
/       TAD     (RMAXL          /GET ADDRESS OF RECEIVE INIT REGISTERS
/       DCA     MQ              /SETUP FOR MOVE ROUTINE                 /032 CJL
        TAD I   [RRLEN]         /GET LENGTH OF PACKET JUST INPUT
        TAD     (-40-4          /COUNT OF DATA RECEIVED
        TAD     (RMAXL-INITEND) /COMPARE TO MAXIMUM ALLOWED             /022 CJL
        SMA SZA                 /SKIP IF NOT TOO MANY                   /022 CJL
        CLA                     /ELSE USE ALLOWED MAXIMUM               /022 CJL
        TAD     (INITEND-RMAXL) /RESTORE VALUE                          /022 CJL
        CIA                     /MAKE IT NEGATIVE
        DCA     MOVE4           /SAVE FOR "MOVE" ROUTINE
        TAD     (RRDTA          /ADDRESS OF DATA IN PACKET
        MOVE                    /MOVE THE INIT REGISTERS
        JMP I   SETINI          /DONE
\f       IFZERO  1       <                                               /D013

/       ROUTINE TO SEND THE DATE IN A DATA PACKET.
/       RETURN + 1 IF ERROR, + 2 IF SUCCESSFUL.

DATOUT, 0
        JMS     INIOPB          /INSURE PACKET HOLD BUFFER INITIALIZED
        TAD     (SETDAT         /GET ADDRESS OF DATE
        DCA     DATOU9          /PUT INTO POINTER

DATOU1, TAD I   DATOU9          /GET A CHAR
        ISZ     DATOU9          /BUMP POINTER
        SPA                     /SKIP IF NOT ENT
        JMP     DATOU2          /DONE
        JMS     OPBUF           /PUT INTO HOLD BUFFER
        SKP                     /HOLD FULL, SEND IT
        JMP     DATOU1          /LOOP

DATOU2, CLA CLL                 /INSURE CLEAR AC
        FPACK                   /FORMAT A PACKET
        HOLDBF                  /DATA ADDRESS
        STDAT                   /DATA PACKET

DATOU3, SPACK                   /SEND THE PACKET
        1                       /GET RESPONSE
        DATOU7-2                /DISPATCH TABLE ADDRESS                 /027 CJL

/       HERE ON NAK OR UNDEFINED RESPONSE.

DATOU4, ISZ     RTRYC           /BUMP RE-TRY COUNTER
        JMP     DATOU3          /TRY AGAIN
        JMP I   DATOUT          /ABORT

/       HERE ON ACK.

DATOU5, ISZ     DATOUT          /BUMP FOR GOOD RETURN
        JMP I   DATOUT          /EXIT

DATOU7, STACK;  DATOU5          /ACK
        STNAK;  DATOU4          /NAK
        0

DATOU9, 0                       /TEMP POINTER FOR DATOUT

                        >                                               /D013
\f/      HANDLE AN ABORT REQUEST.

ABORT,  CLA CLL                 /INSURE CLEAR AC
        DCA     ABFLAG          /CLEAR ABORT FLAG NOW                   /044 CJL
        TAD     KMODE           /GET CURRENT MODE
        TAD     (-MSEND         /IS IT A SEND?
        SZA                     /SKIP IF YES
        JMP     ABORT2          /NOT SEND

        JMS I   [SNDP]          /SEND OUT A PACKET
        ABORT9                  /WHICH HAS A "D" IN THE DATA
        STEOF                   /AND IS AN EOF PACKET
        NOP                     /WE GOT NAK BACK HERE
        NOP                     /WE GOT NEITHER NAK OR ACK HERE
        JMS I   (BRKXMT)        /BREAK THE SEND
        JMP     ABORT3          /FINISH THE ABORT

ABORT2, TAD     (MSEND-MREC     /CHECK IF IN RECEIVE MODE
        SZA CLA                 /SKIP IF YES
        JMP     ABORT3          /JUST BACK TO COMMAND LOOP
        JMS I   [SNDP]          /SEND A PACKET BACK FOR AN ABORT

        IFZERO  1       <                                               /D009

        ABORT8                  /WHICH HAS AN "X" IN THE DATA
        STACK                   /MAKE IT AN ACK PACKET
        NOP                     /NAK HERE
        NOP                     /NOT NAK OR ACK HERE

                        >                                               /D009

        NODATA                  /NO DATA                                /A009
        STBRK                   /BREAK TRANSMISSION                     /A009
        NOP                     /NAK HERE                               /A009
        CLA                     /NOT ACK OR NAK HERE                    /A009
        TAD     OFFLG           /GET FILE OPEN FLAG                     /A009
        SZA CLA                 /IS IT OPEN YET?                        /A009
        JMS I   [FILCLOSE]      /CLOSE THE OUTPUT FILE                  /020 CJL
        CLA                     /ERROR DURING CLOSE **** FIX THIS ****
ABORT3, TAD     (ABMSG)         /GET MESSAGE ADDRESS                    /044 CJL
        JMP I   [CLOOP7]        /DISPLAY THE ABORT

ABORT9, "D&137                  /DATA PACKET FOR SEND ABORT
        -1

        PAGE                                                            /014 CJL
\f/      ROUTINE TO PRINT 8 BIT CHARS ON THE  TTY.  ENTER ROUTINE WITH THE ADDRESS OF
/       THE TEXT IN THE AC OR IF AC IS  ZERO  THE  ADDRESS  IS  IN THE CALL + 1.  TEXT
/       TERMINATES ON A MINUS WORD.

PRI8B0, 0
        SZA                     /SKIP IF ADDRESS NOT IN AC
        JMP     PRI8B1          /ADDRESS IS IN THE AC
        TAD I   PRI8B0          /GET ADDRESS FROM CALL + 1
        ISZ     PRI8B0          /BUMP RETURN POINTER
PRI8B1, DCA     MQ              /SAVE ADDRESS OF STRING                 /032 CJL
        TAD     [P7ECHO]        /GET CONSOLE OUTPUT ROUTINE ADDRESS     /043 CJL
        JMS     EIGHTB          /AND SEND IT
        JMP I   PRI8B0          /ALL DONE

/       ROUTINE TO SEND 8 BIT CHARS DOWN THE REMOTE LINE.    ENTER  ROUTINE  WITH  THE
/       ADDRESS OF THE TEXT IN THE AC OR IF AC IS ZERO THE ADDRESS IS IN THE CALL + 1.
/       TEXT TERMINATES ON A MINUS WORD.

REM8B0, 0
        SZA                     /SKIP IF ADDRESS NOT IN AC
        JMP     REM8B1          /ADDRESS IN AC
        TAD I   REM8B0          /GET ADDRESS FROM CALL + 1
        ISZ     REM8B0          /BUMP RETURN

REM8B1, DCA     MQ              /SAVE ADDRESS OF STRING                 /032 CJL
        TAD     (COMOUT)        /GET ADDRESS OF REMOTE OUTPUT ROUTINE   /046 CJL
        JMS     EIGHTB          /AND SEND THE STRING
        JMP I   REM8B0          /DONE


/       ROUTINE TO SEND 8 BIT DATA.  ENTER WITH ADDRESS OF DATA  IN  THE  MQ  AND  THE
/       ADDRESS  OF  THE ROUTINE TO TAKE EACH BYTE IN THE AC.  TEXT  TERMINATES  ON  A
/       MINUS WORD.

EIGHTB, 0
        DCA     EIGHT5          /STORE POINTER TO ROUTINE
        TAD     MQ              /GET STRING POINTER                     /032 CJL
        DCA     EIGHT6          /STORE IN LOCAL POINTER

EIGHT1, TAD I   EIGHT6          /GET A CHAR
        ISZ     EIGHT6          /BUMP THE POINTER
        SPA                     /SKIP IF NOT EOL
        JMP     EIGHT2          /GOT EOL
        JMS I   EIGHT5          /CALL OUTPUT ROUTINE
        CLA CLL                 /INSURE CLEAR AC
        JMP     EIGHT1          /LOOP

EIGHT2, CLA CLL                 /CLEAR THE AC
        JMP I   EIGHTB          /DONE

EIGHT5, 0                       /POINTER TO ROUTINE TO DO OUTPUT
EIGHT6, 0                       /POINTER TO TEXT TO OUTPUT
\f/      ROUTINE TO UNPACK 6-BT  CHARS FROM MEMORY.  BEFORE  CALLING INIT "GET6P" AS  A
/       POINTER  TO THE STRING LOCATION AND "GET6F" SHOULD BE ZEROED TO START WITH THE
/       TOP BYTE OF THE FIRST MEMORY LOCATION.

GET60,  0
        NL4000                  /SET 4000                               /032 CJL
        TAD     GET6F           /GET THE FLAG
        DCA     GET6F           /RETURN THE FLAG
        TAD I   GET6P           /GET TWO BYTES
        SZL                     /HIGH-ORDER WANTED?                     /032 CJL
        JMP     GETSWT          /JUMP IF NOT                            /032 CJL
        RTR;RTR;RTR             /MOVE DOWN HIGH-ORDER HALF              /032 CJL
        SKP                     /DON'T BUMP POINTER YET                 /032 CJL
GETSWT, ISZ     GET6P           /BUMP TO NEXT WORD                      /032 CJL
        AND     [77]            /STRIP UNUSED BITS                      /016 CJL
        JMP I   GET60           /DONE


/       LOCAL ROUTINE  TO  "FILN8"  TO  MAKE  THE 6 BIT CHAR IN THE AC INTO 8 BITS AND
/       STORE IN A STRING.

MOV8,   .-.                     /6-BIT CHARACTER => 7-BIT CHARACTER     /028 CJL
        SNA                     /SKIP IF SOMETHING PASSED               /028 CJL
        TAD     [" &77]         /ELSE SUPPLY A <SPACE>                  /025 CJL
        TAD     [" &77]         /INVERT THE CHARACTER                   /028 CJL
        AND     [77]            /JUST SIX-BITS                          /014/016 CJL
        TAD     [" &77]         /MAKE IT SEVEN-BIT ASCII                /028 CJL
        DCA I   MOV8P           /STORE IN THE STRING                    /028 CJL
        ISZ     MOV8P           /BUMP POINTER FOR NEXT TIME             /028 CJL
        JMP I   MOV8            /RETURN                                 /028 CJL

MOV8P,  0                       /POINTER FOR "MOV8" ROUTINE
\f/      ROUTINE TO PULL A FILE  NAME  IN 6 BIT POINTED TO  BY THE AC  AND PLACE IN THE
/       FILE NAME BUFFER IN  8  BIT  ADDING  IN  THE  "."  TO  SEPARATE  FILE NAME AND
/       EXTENSION.  A MINUS WORD WILL FOLLOW THE NAME.

FILN8,  0
        DCA     GET6P           /SET POINTER FOR "GET6"
        DCA     GET6F           /SET FLAG FOR "GET6"
        TAD     (NAMBUF         /GET ADDRESS OF THE NAME BUFFER
        DCA     MOV8P           /SET IN A POINTER
        TAD     (-6             /6 NAME CHARS TO DO
        DCA     FILN8C          /SAVE IN COUNTER
        GET6                    /PULL A CHAR
        SZA                     /SKIP IF A SPACE
        JMS     MOV8            /PUT INTO THE BUFFER
        ISZ     FILN8C          /BUMP COUNTER
        JMP     .-4             /LOOP TILL ALL 6 DONE
        TAD     (".&177)        /GET A "."                              /034 CJL
        JMS     MOV8            /PUT WITH FILE NAME
        NL7776                  /SET -2                                 /032 CJL
        DCA     FILN8C          /2 EXTENSION CHARS
        GET6                    /GET NEXT CHAR
        SZA                     /SKIP IF A SPACE
        JMS     MOV8            /PUT WITH NAME
        ISZ     FILN8C          /BUMP COUNTER
        JMP     .-4             /LOOP
        NL7777                  /SET -1                                 /032 CJL
        DCA I   MOV8P           /TERMINATE THE STRING
        JMP I   FILN8           /AND RETURN

FILN8C, 0                       /COUNTER FOR "FILN8"

        PAGE
\f/      CONSOLE I/O ROUTINES, ETC.                                      /023 CJL

/       CONSOLE MESSAGE PRINT ROUTINE.

/       CALLING SEQUENCE:

/       JMS I   [SCRIBE]        /CALL MESSAGE PRINT ROUTINE
/       MESSAGEADDRESS          /MESSAGE ADDRESS PASSED IN-LINE

/       AC CAN BE DIRTY ON CALL.

/       RETURNS WITH CLEAR AC.

/       MESSAGE FORMAT:

/       ALL UPPER-CASE CHARACTERS ARE ALLOWED  TO  EXIST IN THE MESSAGE EXCEPT '%' AND
/       '^' WHICH ARE RESERVED.  A  ZERO  HALF-WORD TERMINATES THE MESSAGE STRING.  IF
/       '%' IS DETECTED, A <CR> AND <LF>  WILL  BE  OUTPUT.    IF '^' IS DETECTED, THE
/       PREVAILING CASE WILL BE REVERSED.  INITIAL CASE IS LOWER-CASE.  IF 'UPONLY' IS
/       SET  TO  7740,  ALL  CASE CHANGES ARE IGNORED AND  THE  OUTPUT  IS  FORCED  TO
/       UPPER-CASE  ONLY.    THE MESSAGE ADDRESS MUST BE IN FIELD  ONE  AND  MUST  NOT
/       OVERLAP  AREAS  RESERVED FOR OTHER PURPOSES (OS/8 RESIDENT AT 17600-17777, USR
/       LOCATIONS 10000-11777, ETC.).


SCRIBE, .-.                     /CONSOLE MESSAGE PRINT ROUTINE
        CLA                     /CLEAN UP                               /029 CJL
        TAD     [P7ECHO]        /POINT TO                               /043 CJL
RSCRENT,DCA     MSGOUT          /CONSOLE PRINT ROUTINE
        TAD I   SCRIBE          /GET IN-LINE POINTER ARGUMENT
        DCA     SCRPTR          /STASH THE POINTER
        ISZ     SCRIBE          /BUMP PAST ARGUMENT
        TAD     UPONLY          /GET UPPER-ONLY VALUE                   /030 CJL
        TAD     [140]           /ADD ON LOWER-CASE VALUE                /030 CJL
        DCA     SCRCASE         /STORE INITIAL CASE VALUE
SCRLUP, CDF     MSGFLD          /GOTO MESSAGE FIELD
        TAD I   SCRPTR          /GET LEFT HALF-WORD
        RTR;RTR;RTR             /MOVE OVER
        JMS     SCRPRNT         /PRINT IT
        CDF     MSGFLD          /GOTO MESSAGE FIELD
        TAD I   SCRPTR          /GET RIGHT HALF-WORD
        JMS     SCRPRNT         /PRINT IT
        ISZ     SCRPTR          /BUMP TO NEXT PAIR
        JMP     SCRLUP          /KEEP GOING
\fSCRPRNT,.-.                    /CHARACTER PRINT ROUTINE
        CDF     PRGFLD          /BACK TO OUR FIELD
        AND     [77]            /JUST SIX BITS
        SNA                     /END OF MESSAGE?
        JMP I   SCRIBE          /YES, RETURN TO ORIGINAL CALLER
        DCA     SCRCHAR         /NO, SAVE FOR NOW
        TAD     SCRCHAR         /GET IT BACK
        TAD     (-"%!200)       /IS IT "%"?
        SNA                     /SKIP IF NOT
        JMP     SCRCRLF         /JUMP IF IT MATCHES
        TAD     [-"^+100+"%]    /IS IT "^"
        SNA CLA                 /SKIP IF NOT
        JMP     SCRFLIP         /JUMP IF IT MATCHES
        TAD     SCRCHAR         /GET THE CHARACTER
        AND     [40]            /DOES CASE MATTER?
        SNA CLA                 /SKIP IF NOT
        TAD     SCRCASE         /ELSE GET PREVAILING CASE
        TAD     SCRCHAR         /GET THE CHARACTER
SCRPRLF,JMS I   MSGOUT          /PRINT THE CHARACTER
        JMP I   SCRPRNT         /RETURN

SCRCRLF,TAD     [CNTRLM]        /GET A <CR>
        JMS I   MSGOUT          /PRINT IT
        TAD     [CNTRLJ]        /GET A <LF>
        JMP     SCRPRLF         /CONTINUE THERE

SCRFLIP,TAD     UPONLY          /GET UPPER-ONLY FLAG
        SZA CLA                 /SKIP IF OFF
        JMP I   SCRPRNT         /RETURN IF ON
        TAD     SCRCASE         /GET CURRENT CASE
        CIA                     /INVERT IT
        TAD     (140+100)       /ADD SUM OF POSSIBLE VALUES
        DCA     SCRCASE         /STORE NEW INVERTED CASE
        JMP I   SCRPRNT         /RETURN

/       REMOTE LINE MESSAGE PRINT ROUTINE.

/       CALLING SEQUENCE:

/       JMS I   [RSCRIBE]       /CALL MESSAGE PRINT ROUTINE
/       MESSAGEADDRESS          /MESSAGE ADDRESS PASSED IN-LINE

/       AC CAN BE DIRTY ON CALL.

/       RETURNS WITH CLEAR AC.

/       MESSAGE FORMAT AND RESTRICTIONS ARE IDENTICAL TO SCRIBE ROUTINE.

RSCRIBE,.-.                     /REMOTE LINE MESSAGE PRINT ROUTINE
        CLA                     /CLEAN UP                               /029 CJL
        TAD     RSCRIBE         /GET OUR CALLER
        DCA     SCRIBE          /MAKE IT THEIRS
        TAD     (COMOUT)        /POINT TO REMOTE OUTPUT ROUTINE
        JMP     RSCRENTRY       /CONTINUE THERE
\f/      ESCAPE CHARACTER PRINT ROUTINE.

/       CALLING SEQUENCE:

/       TAD     ESCHAR          /OR OTHER CHARACTER TO PRINT
/       JMS I   [ESCPRNT]       /CALL ROUTINE
/       RETURNS WITH CLEAR AC HERE

/       CAUSES CHARACTER TO PRINT LITERALLY IF CHARACTER>37.
/       CAUSES MESSAGE "CONTROL-" FOLLOWED BY CHARACTER+100 IF CHARACTER<40.

ESCPRNT,.-.                     /ESCAPE CHARACTER PRINT ROUTINE
        DCA     ESCTEMP         /SAVE PASSED VALUE
        TAD     ESCTEMP         /GET IT BACK
        TAD     [-40]           /COMPARE TO CONTROL LIMIT
        SMA CLA                 /SKIP IF LESS THAN LIMIT
        JMP     ESPRINT         /JUMP IF NOT
        JMS I   [SCRIBE]        /GIVE THEM THE
        CONTMSG                 /CONTROL MESSAGE
        TAD     [100]           /MAKE IT UPPER-CASE, NOT CONTROL
ESPRINT,TAD     ESCTEMP         /GET ORIGINAL VALUE
        JMS I   [P7ECHO]        /PRINT IT                               /043 CJL
        JMP I   ESCPRNT         /RETURN

        MSGOUT= RSCRIBE         /OUTPUT ROUTINE POINTER

ESCTEMP,.-.                     /TEMPORARY FOR ESCPRNT ROUTINE
SCRCASE,.-.                     /CURRENT MESSAGE CASE
SCRCHAR,.-.                     /LATEST MESSAGE CHARACTER
SCRPTR, .-.                     /MESSAGE POINTER

        PAGE
\f/      ROUTINE TO HANDLE THE "CONNECT" COMMAND.                        /025 CJL

CONSRV, .-.                     /CONNECT SERVICE ROUTINE
        JMS I   [CREST2]        /SETUP CONSOLE OUTPUT ROUTINES          /025 CJL
        JMS I   [SCRIBE]        /GIVE THE
        CONNMSG                 /OPENING MESSAGE
        TAD     ESCHAR          /GET THE CURRENT <ESCAPE> CHARACTER
        JMS I   [ESCPRNT]       /PRINT IT
        JMS I   [SCRIBE]        /GIVE THEM THE
        CON2MSG                 /BRIDGING MESSAGE
        JMS I   [SCRIBE]        /PRINT OUT THE
        CPUMSG                  /ACTUAL CPU TYPE
        JMS I   [SCRIBE]        /GIVE THEM THE
        CON3MSG                 /CLOSING MESSAGE
CORESET,DCA     ESCFLAG         /CLEAR <ESCAPE> SEEN FLAG
        TAD     ESCHAR          /GET THE <ESCAPE> CHARACTER
        DCA     ESCH            /STORE IN SEARCH LIST
        JMS I   (CONRESET)      /RESET CONSOLE ROUTINES
        JMS I   (REMRESET)      /RESET REMOTE LINE ROUTINES
CONNLUP,TAD     KEYERROR        /GET KEYBOARD ERROR FLAG
        SNA                     /SKIP IF KEYBOARD ERROR
        TAD     RINERROR        /ELSE GET REMOTE ERROR FLAG
        SZA CLA                 /SKIP IF NEITHER KEYBOARD NOR REMOTE LINE ERRORS
        JMP     KERROR          /JUMP IF KEYBOARD ERROR
        JMS I   (CONTEST)       /TEST IF CONSOLE CAN TAKE OUTPUT
        JMP     TESTKEYBOARD    /JUMP IF NOT
        JMS I   (REMINPUT)      /TEST IF ANY REMOTE INPUT
        SKP                     /SKIP IF NONE
        JMS I   (CONOUT)        /OUTPUT TO CONSOLE
TESTKEY,TAD     ECHOFLAG        /GET LOCAL ECHO FLAG
        TAD     ESCFLAG         /ADD ON <ESCAPE> SEEN FLAG
        SNA CLA                 /SKIP IF LOCAL ECHO POSSIBLY NEEDED
        JMP     NOLOCALECHO     /JUMP IF NOT
        JMS I   (CONTEST)       /TEST IF CONSOLE CAN TAKE OUTPUT
        JMP     BUFCHECK        /JUMP IF NOT
NOLOCAL,JMS I   (REMTEST)       /TEST IF REMOTE CAN TAKE OUTPUT
        JMP     BUFCHECK        /JUMP IF NOT
        JMS I   (KEYINPUT)      /TEST IF ANY KEYBOARD INPUT
        JMP     BUFCHECK        /JUMP IF NOT
        DCA     KEYLATEST       /SAVE FOR LATER
        TAD     KEYLATEST       /GET IT BACK
        AND     [177]           /WANT SEVEN-BIT VERSION FOR TESTS
        CIA                     /INVERT IT
        DCA     TESTCHAR        /SAVE FOR LATER
        TAD     ESCFLAG         /<ESCAPE> SEEN LAST TIME?
        SNA CLA                 /SKIP IF SO
        JMP     NOESCAPE        /JUMP IF NOT
        TAD     TESTCHAR        /GET TEST VAUE
        JMS I   [SRCHTABLE]     /SEARCH FOR IT
        ESCLIST-1-1             /SEARCH TABLE POINTER
        SNA CLA                 /SKIP IF FOUND
        JMP     ESCOMPLAIN      /JUMP IF NOT
        JMP I   TABLEJUMP       /GO WHERE YOU'RE SUPPOSED TO
\f/      COMES HERE IF PREVIOUS WAS NOT THE <ESCAPE> CHARACTER.

NOESCAP,TAD     TESTCHAR        /GET THE LATEST CHARACTER
        TAD     ESCHAR          /COMPARE TO <ESCAPE> CHARACTER
        SZA CLA                 /SKIP IF IT MATCHES
        JMP     OUTCHAR         /JUMP IF NOT
        NL7777                  /SET THE
/       DCA     ESCFLAG         /<ESCAPE> SEEN FLAG
/       JMP     BUFCHECK        /CONTINUE THERE
        JMP     NOESENTRY       /CONTINUE THERE

/       COMES HERE IF BOTH PREVIOUS AND LATEST ARE THE <ESCAPE> CHARACTER.

ESCTYPE,DCA     ESCFLAG         /CLEAR THE <ESCAPE> SEEN FLAG AND OUTPUT

/       COMES HERE IF PREVIOUS AND LATEST CHARACTER ARE NOT THE <ESCAPE> CHARACTER.

OUTCHAR,TAD     ECHOFLAG        /GET LOCAL ECHO FLAG
        SNA CLA                 /SKIP IF SET
        JMP     NOECHO          /JUMP IF NOT
        TAD     KEYLATEST       /GET LATEST CHARACTER
        JMS I   (CONOUT)        /OUTPUT TO CONSOLE
NOECHO, TAD     KEYLATEST       /GET LATEST CHARACTER
        JMS I   (REMOUT)        /OUTPUT TO REMOTE
        JMP     BUFCHECK        /CONTINUE THERE

/       COMES HERE IF PREVIOUS WAS THE <ESCAPE> CHARACTER AND THE LATEST IS NOT
/       A VALID <ESCAPE> COMMAND CHARACTER.

ESCOMPL,TAD     [CNTRLG]        /GET A <BEL>
        JMS I   (CONOUT)        /OUTPUT TO CONSOLE
NOESENT,DCA     ESCFLAG         /CLEAR <ESCAPE> SEEN FLAG
BUFCHEC,JMS I   PUPSTATUS       /UPDATE THE PORT STATUS                 /047 CJL

/       THE ABOVE INSTRUCTION IS FOR DECMATE USE ONLY.  THE DEFAULT INSTRUCTION IS FOR
/       KL8 INTERFACES.

        *BUFCHECK               /OVERLAY DECMATE CODE                   /047 CJL

BUFCHEC,NOP                     /DON'T CHECK PORT STATUS                /047 CJL

        JMS I   (RINUPDATE)     /CHECK FOR MORE REMOTE INPUT
        JMS I   (KEYUPDATE)     /CHECK FOR MORE KEYBOARD INPUT
        JMS I   (REMUPDATE)     /CHECK FOR MORE REMOTE OUTPUT
        JMS I   (CONUPDATE)     /CHECK FOR MORE CONSOLE OUTPUT
        JMP     CONNLUP         /GO BACK FOR MORE

/       COMES HERE ON <ESCAPE> C(LOSE).

ESCLOSE,ISZ     CONSRV          /BUMP TO GOOD RETURN
        JMP I   CONSRV          /RETURN
\fKERRLUP,JMS I  PUPSTATUS       /UPDATE THE PORT STATUS                 /047 CJL

/       THE ABOVE INSTRUCTION IS FOR DECMATE USE ONLY.  THE DEFAULT INSTRUCTION IS FOR
/       KL8 INTERFACES.

        *KERRLUP                /OVERLAY DECMATE CODE                   /047 CJL

KERRLUP,NOP                     /DON'T CHECK PORT STATUS                /047 CJL

        JMS I   (RINUPDATE)     /CHECK FOR MORE REMOTE INPUT
        JMS I   (KEYUPDATE)     /CHECK FOR MORE KEYBOARD INPUT
        JMS I   (REMUPDATE)     /CHECK FOR MORE REMOTE OUTPUT
        JMS I   (CONUPDATE)     /CHECK FOR MORE CONSOLE OUTPUT

/       COMES HERE ON KEYBOARD INPUT ERROR.

KERROR, JMS I   (CONTEST)       /CONSOLE READY FOR OUTPUT?
        JMP     KERRLUP         /NO, GO WAIT AWHILE
        TAD I   (CONINSERT)     /GET CONSOLE INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD I   (CONREMOVE)     /COMPARE TO CONSOLE REMOVAL POINTER
        SZA CLA                 /SKIP IF CONSOLE OUTPUT BUFFER EMPTY
        JMP     KERRLUP         /GO WAIT FOR AWHILE
        TAD     KEYERROR        /KEYBOARD INPUT ERROR?
        SNA CLA                 /SKIP IF SO
        JMP     RIERTST         /JUMP IF NOT
        JMS I   [SCRIBE]        /TELL THEM
        KERRMSG                 /WE HAD A KEYBOARD ERROR
RIERTST,TAD     RINERROR        /REMOTE INPUT ERROR?
        SNA CLA                 /SKIP IF SO
        JMP     CORESET         /JUMP IF NOT
        JMS I   [SCRIBE]        /TELL THEM
        RIERMSG                 /WE HAD A REMOTE LINE ERROR
        JMP     CORESET         /RESTART

/       <ESCAPE> CHARACTER SEARCH LIST.

ESCLIST,UPPERC; ESCLOSE         /<ESCAPE> C(LOSE)
        LOWERC; ESCLOSE         /<ESCAPE> C(LOSE) (LOWER-CASE)
ESCH,   .-.;    ESCTYPE         /<ESCAPE> <ESCAPE>
        0                       /THIS ENDS THE LIST

/       LOCAL ECHO FLAG FOR CONNECT MODE.

ECHOFLA,INIECHO                 /0=DON'T ECHO, NON-ZERO=ECHO            /039 CJL
ESCFLAG,.-.                     /<ESCAPE> CHARACTER SEEN FLAG
KEYLATE,.-.                     /LATEST KEYBOARD CHARACTER
PUPSTAT,UPSTATUS                /POINTER TO DECMATE STATUS UPDATE       /047 CJL
TESTCHA,.-.                     /LATEST KEYBOARD TEST CHARACTER
\f       PAGE
\f/      CONNECT-MODE SUPPORT ROUTINES.                                  /047 CJL

/       CONSOLE KEYBOARD ROUTINES.                                      /047 CJL

/       KEYBOARD INPUT ROUTINE.                                         /026 CJL

/       CALLING SEQUENCE:

/       JMS I   (KEYINPUT)      /CALL ROUTINE
/       NO INPUT                /RETURN IF NO INPUT
/       INPUT                   /RETURN IF INPUT AVAILABLE

/       THE AC WILL BE CLEAR IF THE IMMEDIATE RETURN IS TAKEN FOR NO INPUT.

/       THE AC WILL CONTAIN THE LATEST CHARACTER IF THE SKIP RETURN IS TAKEN.

KEYINPU,.-.                     /KEYBOARD INPUT ROUTINE
        TAD     KEYINSERT       /GET INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     KEYREMOVE       /COMPARE TO REMOVAL POINTER
        SNA CLA                 /SKIP IF BUFFER NOT EMPTY
        JMP     KEYCHECK        /JUMP IF BUFFER EMPTY
        TAD     KEYREMOVE       /GET REMOVAL POINTER
        DCA     KEYTEMP         /SAVE FOR LATER
        NL0001                  /SET INCREMENT
        TAD     KEYREMOVE       /UPDATE REMOVAL POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        TAD     [KEYBUFFER]     /MAKE IT ABSOLUTE
        DCA     KEYREMOVE       /STORE UPDATED POINTER
        CDF     BUFFLD          /GOTO BUFFER FIELD
        TAD I   KEYTEMP         /GET THE LATEST CHARACTER
        CDF     PRGFLD          /BACK TO OUR FIELD
        SKP                     /DON'T GET ANOTHER CHARACTER            /047 CJL

/       COMES HERE IF BUFFER IS EMPTY.

KEYCHEC,JMS     KEYGET          /TRY TO GET A CHARACTER NOW             /047 CJL
        ISZ     KEYINPUT        /GOT ONE, SO TAKE SKIP RETURN           /047 CJL
        JMP I   KEYINPUT        /RETURN EITHER WAY
\f/      KEYBOARD BUFFER UPDATE ROUTINE.                                 /026 CJL

/       CALLING SEQUENCE:

/       JMS I   (KEYUPDATE)     /CALL ROUTINE

/       RETURNS  WITH  CLEAR  AC.    ANY  KEYBOARD  INPUT  WHICH JUST OCCURRED WILL BE
/       BUFFERED;  CALLS TO KEYINPUT WILL RETRIEVE THE CHARACTERS.

KEYUPDA,.-.                     /KEYBOARD BUFFER UPDATE ROUTINE
        JMS     KEYGET          /TRY TO GET A CHARACTER NOW             /047 CJL
        SKP                     /GOT ONE, DON'T LEAVE YET               /047 CJL
        JMP I   KEYUPDATE       /CHARACTER NOT AVAILABLE NOW, RETURN    /047 CJL
        CDF     BUFFLD          /GOTO BUFFER FIELD
        DCA I   KEYINSERT       /STORE IN THE BUFFER
        CDF     PRGFLD          /BACK TO OUR FIELD
        NL0001                  /SET INCREMENT
        TAD     KEYINSERT       /UPDATE POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        TAD     [KEYBUFFER]     /MAKE IT ABSOLUTE
        DCA     KEYINSERT       /STORE BACK UPDATED POINTER
        TAD     KEYINSERT       /GET INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     KEYREMOVE       /COMPARE TO REMOVAL POINTER
        SNA CLA                 /SKIP IF NOT EQUAL
KSERROR,ISZ     KEYERROR        /INDICATE KEYBOARD ERROR
        JMP I   KEYUPDATE       /RETURN
        JMP     KSERROR         /MAKE SURE ERROR IS INDICATED
\f/      KEYBOARD GET A CHARACTER ROUTINE.                               /047 CJL

/       CALLING SEQUENCE:

/       JMS     KEYGET          /CALL ROUTINE
/       CHARACTER AVAILABLE     /RETURNS HERE WITH LATEST CHARACTER
/       NO CHARACTER AVAILABLE  /RETURNS HERE IF NO CHARACTER OR HANDLED FLOW-CONTROL

/       NORMAL RETURN HAS LATEST CHARACTER IN AC.

/       SKIP RETURN HAS CLEAR AC.

/       IF FLOWFLAG=0, FLOW CHARACTERS ARE UNPROCESSED AND CAUSE NORMAL RETURN.

KEYGET, .-.                     /KEYBOARD GET A CHARACTER ROUTINE
KGTEST, KSFIOT                  /FLAG UP?
        JMP     KEYGNONE        /NO, TAKE SKIP RETURN
KGREAD, KRBIOT                  /YES, READ THE CHARACTER
        SPA                     /SKIP IF NO UART ERRORS
        ISZ     KEYERROR        /INDICATE KEYBOARD ERROR
        SKP                     /SKIP IF NOT TOO MANY ERRORS
        JMP     .-2             /ENSURE KEYBOARD ERROR IS INDICATED
        AND     [377]           /JUST EIGHT-BIT
        DCA     KEYTEMP         /SAVE FOR NOW
        TAD     FLOWFLAG        /GET FLOW CONTROL FLAG
        SNA CLA                 /SKIP IF SET
        JMP     KEYGEXIT        /JUMP IF NOT
        TAD     KEYTEMP         /GET THE CHARACTER
        AND     [177]           /JUST SEVEN-BIT
        TAD     [-CNTRLS]       /COMPARE TO <^S>
        SNA                     /SKIP IF OTHER
        JMP     KWATSET         /JUMP IF IT MATCHES
        TAD     [-CNTRLQ+CNTRLS]/COMPARE TO <^S>
        SNA CLA                 /SKIP IF OTHER
        JMP     KWATCLEAR       /JUMP IF IT MATCHES
KEYGEXI,TAD     KEYTEMP         /GET THE CHARACTER
        JMP I   KEYGET          /TAKE IMMEDIATE RETURN

/       COMES HERE ON <^S> TO SET OUTPUT WAIT.

KWATSET,NL4000                  /SET WAIT VALUE

/       COMES HERE ON <^Q> TO CLEAR OUTPUT WAIT.

KWATCLE,DCA     CONWAIT         /STORE NEW STATE
KEYGNON,ISZ     KEYGET          /BUMP RETURN ADDRESS
        JMP I   KEYGET          /TAKE SKIP RETURN
\f/      CONSOLE TERMINAL ROUTINES.

/       CONSOLE OUTPUT ROUTINE.

/       CALLING SEQUENCE:

/       TAD     CHAR            /CHARACTER TO OUTPUT IN AC
/       JMS I   (CONOUT)        /CALL ROUTINE
/       RETURN                  /RETURNS HERE WITH CLEAR AC

CONOUT, .-.                     /CONSOLE OUTPUT ROUTINE
        DCA     CONTEMP         /SAVE PASSED VALUE
        TAD     CONINSERT       /GET INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     CONREMOVE       /COMPARE TO REMOVAL POINTER
        TAD     CONWAIT         /ADD ON WAIT STATUS
        SZA CLA                 /SKIP IF BUFFER EMPTY AND NOT WAITING   /047 CJL
        JMP     CSTUFF          /JUMP IF CHARACTER MUST BE BUFFERED
        TAD     CONTEMP         /GET PASSED VALUE                       /047 CJL
        JMS I   (CONPUT)        /TRY TO OUTPUT THE CHARACTER NOW                        /047 CJL
        JMP     CSTUFF          /COULDN'T OUTPUT IT, SO BUFFER IT       /047 CJL
        JMP I   CONOUT          /RETURN

CSTUFF, TAD     CONTEMP         /GET THE CHARACTER
        CDF     BUFFLD          /GOTO BUFFER FIELD
        DCA I   CONINSERT       /STORE THE CHARACTER
        CDF     PRGFLD          /BACK TO OUR FIELD
        NL0001                  /SET INCREMENT
        TAD     CONINSERT       /UPDATE POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        TAD     [CONBUFFER]     /MAKE IT ABSOLUTE
        DCA     CONINSERT       /STORE BACK UPDATED POINTER
        JMP I   CONOUT          /RETURN

/       CONSOLE OUTPUT TEST ROUTINE.

/       CALLING SEQUENCE:

/       JMS I   (CONTEST)       /CALL ROUTINE
/       NOT READY               /RETURN IF OUTPUT NOT READY FOR NEXT CHARACTER
/       READY                   /OUTPUT CAN ACCEPT ANOTHER CHARACTER NOW

CONTEST,.-.                     /CONSOLE OUTPUT TEST ROUTINE
        NL0001                  /SET BUFFER INCREMENT
        TAD     CONINSERT       /GET UPDATED INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     CONREMOVE       /COMPARE TO REMOVAL POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        SZA CLA                 /SKIP IF BUFFER IS FULL
        ISZ     CONTEST         /BUMP RETURN IF NOT
        JMP I   CONTEST         /RETURN EITHER WAY
\f/      CONSOLE OUTPUT BUFFER UPDATE ROUTINE.

/       CALLING SEQUENCE:

/       JMS I   (CONUPDATE)     /CALL ROUTINE
/       RETURN                  /RETURN WITH CLEAR AC

/       THE CONSOLE OUTPUT BUFFERING ROUTINES WILL  UPDATE  POINTERS,  ETC.    IF  ANY
/       STATUS HAS CHANGED SINCE THE LAST CALL.

CONUPDA,.-.                     /CONSOLE OUTPUT UPDATE ROUTINE
        TAD     CONWAIT         /FLOW CONTROL WAIT SET?
        SZA CLA                 /SKIP IF NOT
        JMP I   CONUPDATE       /JUST RETURN IF SO
        TAD     CONINSERT       /GET INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     CONREMOVE       /COMPARE TO REMOVAL POINTER
        SNA CLA                 /SKIP IF BUFFER CONTAINS SOMETHING      /047 CJL
        JMP I   CONUPDATE       /RETURN IF BUFFER EMPTY                 /047 CJL
        CDF     BUFFLD          /GOTO BUFFER FIELD
        TAD I   CONREMOVE       /GET A CHARACTER FROM THE BUFFER
        CDF     PRGFLD          /BACK TO OUR FIELD
        JMS I   (CONPUT)        /TRY TO OUTPUT THE CHARACTER NOW        /047 CJL
        JMP I   CONUPDATE       /COULDN'T DO IT, SO JUST RETURN         /047 CJL
        NL0001                  /SET BUFFER INCREMENT
        TAD     CONREMOVE       /UPDATE REMOVAL POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        TAD     [CONBUFFER]     /MAKE IT ABSOLUTE
        DCA     CONREMOVE       /STORE UPDATED POINTER
        JMP I   CONUPDATE       /RETURN

CONINSE,.-.                     /CONSOLE OUTPUT INSERTION POINTER
CONREMO,.-.                     /CONSOLE OUTPUT REMOVAL POINTER

/       CONSOLE FLOW CONTROL WAIT FLAG.

CONWAIT,.-.                     /0=DON'T WAIT, 4000=WAIT FOR <^Q>
KEYINSE,.-.                     /KEYBOARD BUFFER INSERTION POINTER
KEYREMO,.-.                     /KEYBOARD BUFFER REMOVAL POINTER

        CONTEMP=CONUPDATE       /CONSOLE OUTPUT TEMPORARY

        KEYTEMP=CONUPDATE       /KEYBOARD INPUT TEMPORARY

        PAGE
\f/      REMOTE LINE ROUTINES.

/       REMOTE LINE INPUT ROUTINE.                                      /026 CJL

/       CALLING SEQUENCE:

/       JMS I   (REMINPUT)      /CALL ROUTINE
/       NO INPUT                /RETURN IF NO INPUT
/       INPUT                   /RETURN IF INPUT AVAILABLE

/       THE AC WILL BE CLEAR IF THE IMMEDIATE RETURN IS TAKEN FOR NO INPUT.

/       THE AC WILL CONTAIN THE LATEST CHARACTER IF THE SKIP RETURN IS TAKEN.

REMINPU,.-.                     /REMOTE LINE INPUT ROUTINE
        TAD     RININSERT       /GET INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     RINREMOVE       /COMPARE TO REMOVAL POINTER
        SNA CLA                 /SKIP IF BUFFER NOT EMPTY
        JMP     RINCHECK        /JUMP IF BUFFER EMPTY
        TAD     RINREMOVE       /GET REMOVAL POINTER
        DCA     RINTEMP         /SAVE FOR LATER
        NL0001                  /SET INCREMENT
        TAD     RINREMOVE       /UPDATE REMOVAL POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        TAD     (RINBUFFER)     /MAKE IT ABSOLUTE
        DCA     RINREMOVE       /STORE UPDATED POINTER
        CDF     BUFFLD          /GOTO BUFFER FIELD
        TAD I   RINTEMP         /GET THE LATEST CHARACTER
        CDF     PRGFLD          /BACK TO OUR FIELD
        DCA     RINTEMP         /SAVE FOR LATER
        TAD     FLOWFLAG        /GET FLOW CONTROL FLAG
        SNA CLA                 /SKIP IF SET
        JMP     REMINEXIT       /JUMP IF NOT
        NL4000                  /SET WAITING VALUE
        TAD     RINWAIT         /ARE WE WAITING TO EMPTY?
        SZA CLA                 /SKIP IF SO
        JMP     REMINEXIT       /JUMP IF NOT
        TAD     RININSERT       /GET INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     RINREMOVE       /COMPARE TO REMOVAL POINTER
        AND     [BUFSIZE^3%4]   /JUST 3/4 BITS
        SZA CLA                 /SKIP IF BUFFER NOW 1/4 FULL (OR LESS)
        JMP     REMINEXIT       /JUMP IF NOT
        NL7777                  /SET BUFFER EMPTYING VALUE
        DCA     RINWAIT         /STORE FOR OUTPUT ROUTINE
REMINEX,TAD     RINTEMP         /GET THE CHARACTER
        SKP                     /DON'T GET ANOTHER ONE                  /047 CJL

/       COMES HERE IF REMOTE LINE INPUT BUFFER IS EMPTY.

RINCHEC,JMS     RINGET          /TRY TO GET A CHARACTER NOW             /047 CJL
        ISZ     REMINPUT        /GOT ONE, SO TAKE SKIP RETURN           /047 CJL
        JMP I   REMINPUT        /RETURN EITHER WAY
\f/      REMOTE LINE INPUT BUFFER UPDATE ROUTINE.                        /026 CJL

/       CALLING SEQUENCE:

/       JMS I   (RINUPDATE)     /CALL ROUTINE

/       RETURNS WITH CLEAR AC.  ANY REMOTE LINE  INPUT  WHICH  JUST  OCCURRED  WILL BE
/       BUFFERED;  CALLS TO REMINPUT WILL RETRIEVE THE CHARACTERS.

RINUPDA,.-.                     /REMOTE LINE INPUT BUFFER UPDATE ROUTINE
        JMS     RINGET          /TRY TO GET A CHARACTER NOW             /047 CJL
        SKP                     /GOT ONE, DON'T LEAVE YET               /047 CJL
        JMP I   RINUPDATE       /CHARACTER NOT AVAILABLE NOW, RETURN    /047 CJL
        CDF     BUFFLD          /GOTO BUFFER FIELD
        DCA I   RININSERT       /STORE IN THE BUFFER
        CDF     PRGFLD          /BACK TO OUR FIELD
        NL0001                  /SET INCREMENT
        TAD     RININSERT       /UPDATE POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        TAD     (RINBUFFER)     /MAKE IT ABSOLUTE
        DCA     RININSERT       /STORE BACK UPDATED POINTER
        TAD     RININSERT       /GET INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     RINREMOVE       /COMPARE TO REMOVAL POINTER
        SNA                     /SKIP IF BUFFER NOT FULL
        ISZ     RINERROR        /INDICATE REMOTE LINE INPUT ERROR
        SKP                     /SKIP IF NO OVERFLOW
        JMP     .-2             /ENSURE ERROR IS SET
        TAD     [BUFSIZE^3%4]   /SUBTRACT 1/4 BUFFER'S WORTH
        AND     [BUFSIZE^3%4]   /JUST 3/4 BUFFER BITS
        SNA CLA                 /SKIP IF NOT 3/4 FULL
        TAD     FLOWFLAG        /ELSE CHECK IF FLOW CONTROL IS ENABLED
        SNA CLA                 /SKIP IF 3/4 FULL AND FLOW CONTROL IS ENABLED
        JMP I   RINUPDATE       /JUST RETURN
        TAD     RINWAIT         /GET INPUT WAIT FLAG
        SNA CLA                 /SKIP IF ALREADY SET
        ISZ     RINWAIT         /SET TO <^S> STATE
        JMP I   RINUPDATE       /RETURN
\f/      REMOTE LINE GET A CHARACTER ROUTINE.                            /047 CJL

/       CALLING SEQUENCE:

/       JMS I   (RINGET)        /CALL ROUTINE
/       CHARACTER AVAILABLE     /RETURNS HERE WITH LATEST CHARACTER
/       NO CHARACTER AVAILABLE  /RETURNS HERE IF NO CHARACTER OR HANDLED FLOW-CONTROL

/       NORMAL RETURN HAS LATEST CHARACTER IN AC.

/       SKIP RETURN HAS CLEAR AC.

/       IF FLOWFLAG=0, FLOW CHARACTERS ARE UNPROCESSED AND CAUSE NORMAL RETURN.

RINGET, .-.                     /REMOTE LINE GET A CHARACTER ROUTINE
RINTEST,TAD     INFLAG          /IS INPUT AVAILABLE?
RINGT0, SNA CLA                 /SKIP IF SO
RINREAD,JMP     RINGNONE        /JUMP IF NOT
RINGT1, DCA     INFLAG          /CLEAR AVAILABILITY FLAG
RINGT2, IRB                     /READ IN THE CHARACTER

/       THE ABOVE INSTRUCTIONS ARE FOR DECMATE II USE ONLY.  THE  DEFAULT INSTRUCTIONS
/       ARE FOR KL8 INTERFACES.

        *RINTEST                /OVERLAY DECMATE II CODE

RINTEST,RKSFIOT                 /FLAG UP?
RINGT0, JMP     RINGNONE        /NO, TAKE SKIP RETURN
RINREAD,RKRBIOT                 /YES, READ THE CHARACTER
RINGT1, SKP                     /NO ERRORS ON DECMATE I

/       THE ABOVE INSTRUCTION IS FOR DECMATE I USE ONLY.    THE DEFAULT INSTRUCTION IS
/       FOR KL8 INTERFACES.

        *RINGT1                 /OVERLAY DECMATE I CODE

RINGT1, SPA                     /SKIP IF NO UART ERRORS
RING2,  ISZ     RINERROR        /INDICATE REMOTE LINE INPUT ERROR
        SKP                     /SKIP IF NOT TOO MANY ERRORS
        JMP     .-2             /ENSURE REMOTE LINE INPUT ERROR IS INDICATED
        AND     [377]           /JUST EIGHT-BIT
        DCA     RINTEMP         /SAVE FOR NOW
        TAD     FLOWFLAG        /GET FLOW CONTROL FLAG
        SNA CLA                 /SKIP IF SET
        JMP     RINGEXIT        /JUMP IF NOT
        TAD     RINTEMP         /GET THE CHARACTER
        AND     [177]           /JUST SEVEN-BIT
        TAD     [-CNTRLS]       /COMPARE TO <^S>
        SNA                     /SKIP IF OTHER
        JMP     RWATSET         /JUMP IF IT MATCHES
        TAD     [-CNTRLQ+CNTRLS]/COMPARE TO <^S>
        SNA CLA                 /SKIP IF OTHER
        JMP     RWATCLEAR       /JUMP IF IT MATCHES
RINGEXI,TAD     RINTEMP         /GET THE CHARACTER
        JMP I   RINGET          /TAKE IMMEDIATE RETURN
\f/      COMES HERE ON <^S> TO SET OUTPUT WAIT.

RWATSET,NL4000                  /SET WAIT VALUE

/       COMES HERE ON <^Q> TO CLEAR OUTPUT WAIT.

RWATCLE,DCA     REMWAIT         /STORE NEW STATE
RINGNON,ISZ     RINGET          /BUMP RETURN ADDRESS
        JMP I   RINGET          /TAKE SKIP RETURN

/       REMOTE LINE RESET ROUTINE.                                      /026 CJL

/       CALLING SEQUENCE:

/       JMS I   (REMRESET)      /CALL ROUTINE
/       RETURN                  /RETURN WITH CLEAR AC

/       RETURNS WITH CLEAR AC AND ALL REMOTE LINE VARIABLES RESET.

REMRESE,.-.                     /REMOTE LINE RESET ROUTINE
        TAD     [REMBUFFER]     /SETUP THE REMOTE LINE
        DCA     REMINSERT       /OUTPUT INSERTION POINTER
        TAD     [REMBUFFER]     /SETUP THE REMOTE LINE
        DCA     REMREMOVE       /OUTPUT REMOVAL POINTER
        TAD     (RINBUFFER)     /SETUP THE REMOTE LINE
        DCA     RININSERT       /INPUT INSERTION POINTER
        TAD     (RINBUFFER)     /SETUP THE REMOTE LINE
        DCA     RINREMOVE       /INPUT REMOVAL POINTER
        DCA     REMWAIT         /CLEAR REMOTE OUTPUT WAIT
        DCA     RINWAIT         /CLEAR REMOTE INPUT WAIT
        DCA     RINERROR        /CLEAR REMOTE INPUT ERROR
        JMP I   REMRESET        /RETURN

RININSE,.-.                     /REMOTE INPUT INSERTION POINTER
RINREMO,.-.                     /REMOTE INPUT REMOVAL POINTER
RINTEMP,.-.                     /REMOTE INPUT TEMPORARY                 /047 CJL

        PAGE
\f/      REMOTE LINE OUTPUT ROUTINE.

/       CALLING SEQUENCE:

/       TAD     CHAR            /CHARACTER TO OUTPUT IN AC
/       JMS I   (REMOUT)        /CALL ROUTINE
/       RETURN                  /RETURNS HERE WITH CLEAR AC

REMOUT, .-.                     /REMOTE LINE OUTPUT ROUTINE
        DCA     REMTEMP         /SAVE PASSED VALUE
        TAD     REMINSERT       /GET INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     REMREMOVE       /COMPARE TO REMOVAL POINTER
        TAD     REMWAIT         /ADD ON WAIT STATUS
        SZA CLA                 /SKIP IF BUFFER EMPTY AND NOT WAITING   /047 CJL
        JMP     RSTUFF          /JUMP IF CHARACTER MUST BE BUFFERED
        TAD     REMTEMP         /GET PASSED VALUE                       /047 CJL
        JMS I   (REMPUT)        /TRY TO OUTPUT THE CHARACTER NOW        /047 CJL
        JMP     RSTUFF          /COULDN'T OUTPUT IT, SO BUFFER IT       /047 CJL
        JMP I   REMOUT          /RETURN

RSTUFF, TAD     REMTEMP         /GET THE CHARACTER
        CDF     BUFFLD          /GOTO BUFFER FIELD
        DCA I   REMINSERT       /STORE IN BUFFER
        CDF     PRGFLD          /BACK TO OUR FIELD
        NL0001                  /SET BUFFER INCREMENT
        TAD     REMINSERT       /BUMP INSERTION POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        TAD     [REMBUFFER]     /MAKE IT ABSOLUTE
        DCA     REMINSERT       /STORE UPDATED POINTER
        JMP I   REMOUT          /RETURN

/       REMOTE LINE OUTPUT TEST ROUTINE.

/       CALLING SEQUENCE:

/       JMS I   (REMTEST)       /CALL ROUTINE
/       NOT READY               /RETURN IF OUTPUT NOT READY FOR NEXT CHARACTER
/       READY                   /OUTPUT CAN ACCEPT ANOTHER CHARACTER NOW

/       AC WILL BE CLEARED AFTER THE CALL.

REMTEST,.-.                     /REMOTE LINE OUTPUT TEST ROUTINE
        NL0001                  /SET BUFFER INCREMENT
        TAD     REMINSERT       /GET INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     REMREMOVE       /COMPARE TO REMOVAL POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        SZA CLA                 /SKIP IF BUFFER IS FULL
        ISZ     REMTEST         /BUMP RETURN IF BUFFER IS NOT FULL
        JMP I   REMTEST         /RETURN EITHER WAY
\f/      REMOTE LINE OUTPUT BUFFER UPDATE ROUTINE.

/       CALLING SEQUENCE:

/       JMS I   (REMUPDATE)     /CALL ROUTINE
/       RETURN                  /RETURN WITH CLEAR AC

/       THE REMOTE LINE OUTPUT  BUFFERING  ROUTINES WILL UPDATE POINTERS, ETC.  IF ANY
/       STATUS HAS CHANGED SINCE THE LAST CALL.

REMUPDA,.-.                     /REMOTE LINE OUTPUT UPDATE ROUTINE
        TAD     RINWAIT         /GET INPUT WAIT FLAG
        CLL RAL                 /MAIN STATE BIT TO LINK
        SNA CLA                 /SKIP IF OUTPUT FLOW CHARACTER NEEDED   /047 CJL
        JMP     REMCHECK        /JUMP IF CHARACTER NOT NEEDED NOW       /047 CJL
        TAD     (CNTRLQ)        /ASSUME RELEASE CHARACTER NEEDED        /047 CJL
        SNL                     /SKIP IF SO                             /047 CJL
        TAD     [CNTRLS-CNTRLQ] /ELSE CHANGE IT TO HOLD CHARACTER       /047 CJL
        JMS I   (REMPUT)        /TRY TO OUTPUT IT NOW                   /047 CJL
        JMP     REMCHECK        /COULDN'T DO IT, FORGET IT FOR NOW      /047 CJL
        CML RAR                 /SET NEW STATE VALUE                    /047 CJL
        DCA     RINWAIT         /STORE IT
REMCHEC,TAD     REMWAIT         /GET OUTPUT WAIT FLAG
        SZA CLA                 /SKIP IF NOT WAITING
        JMP I   REMUPDATE       /JUST RETURN IF WAITING
        TAD     REMINSERT       /GET OUTPUT INSERTION POINTER
        CIA                     /INVERT FOR TEST
        TAD     REMREMOVE       /COMPARE TO OUTPUT REMOVAL POINTER
        SNA CLA                 /SKIP IF BUFFER CONTAINS SOMETHING      /047 CJL
        JMP I   REMUPDATE       /RETURN IF BUFFER EMPTY                 /047 CJL
        CDF     BUFFLD          /GOTO BUFFER FIELD
        TAD I   REMREMOVE       /GET A CHARACTER FROM THE BUFFER
        CDF     PRGFLD          /BACK TO OUR FIELD
        JMS I   (REMPUT)        /TRY TO OUTPUT THE CHARACTER NOW        /047 CJL
        JMP I   REMUPDATE       /COULDN'T DO IT, SO JUST RETURN         /047 CJL
        NL0001                  /SET BUFFER INCREMENT
        TAD     REMREMOVE       /BUMP REMOVAL POINTER
        AND     [BUFSIZE-1]     /JUST BUFFER BITS
        TAD     [REMBUFFER]     /MAKE IT ABSOLUTE
        DCA     REMREMOVE       /STORE UPDATED POINTER
        JMP I   REMUPDATE       /RETURN

        REMTEMP=REMUPDATE       /REMOTE OUTPUT TEMPORARY
\f/      LOW-LEVEL CONSOLE OUTPUT ROUTINE.                               /047 CJL

/       CALLING SEQUENCE:

/       [CHARACTER TO OUTPUT IN THE AC]

/       JMS I   (CONPUT)        /CALL ROUTINE
/       NO OUTPUT               /RETURNS HERE IF OUTPUT UNAVAILABLE
/       OUTPUT                  /RETURNS HERE IF CHARACTER WAS OUTPUT

CONPUT, .-.                     /CONSOLE OUTPUT ROUTINE
CONTSF, TSFIOT                  /FLAG UP?
        JMP     CONCLEAR        /NO, FORGET IT
CONTLS, TLSIOT                  /YES, OUTPUT THE CHARACTER NOW
        ISZ     CONPUT          /TAKE SKIP RETURN
CONCLEA,CLA                     /CLEAN UP
        JMP I   CONPUT          /RETURN EITHER WAY

/       CONSOLE RESET ROUTINE.                                          /026 CJL

/       CALLING SEQUENCE:

/       JMS I   (CONRESET)      /CALL ROUTINE
/       RETURN                  /RETURN WITH CLEAR AC

/       RETURNS WITH CLEAR AC AND ALL CONSOLE VARIABLES RESET.

CONRESE,.-.                     /CONSOLE RESET ROUTINE
        TAD     [CONBUFFER]     /SETUP THE
        DCA I   (CONINSERT)     /CONSOLE OUTPUT INSERTION POINTER
        TAD     [CONBUFFER]     /SETUP THE
        DCA I   (CONREMOVE)     /CONSOLE OUTPUT REMOVAL POINTER
        TAD     [KEYBUFFER]     /SETUP THE
        DCA I   (KEYINSERT)     /KEYBOARD INSERTION POINTER
        TAD     [KEYBUFFER]     /SETUP THE
        DCA I   (KEYREMOVE)     /KEYBOARD REMOVAL POINTER
        DCA I   (CONWAIT)       /CLEAR OUTPUT WAIT
        DCA     KEYERROR        /CLEAR KEYBOARD ERROR
        JMP I   CONRESET        /RETURN
\f/      LOW-LEVEL REMOTE LINE OUTPUT ROUTINE.                           /047 CJL

/       CALLING SEQUENCE:

/       [CHARACTER TO OUTPUT IN THE AC]

/       JMS I   (REMPUT)        /CALL ROUTINE
/       NO OUTPUT               /RETURNS HERE IF OUTPUT UNAVAILABLE
/       OUTPUT                  /RETURNS HERE IF CHARACTER WAS OUTPUT

REMPUT, .-.                     /REMOTE LINE OUTPUT ROUTINE
DM1AN2, AND     [377]           /ENSURE EIGHT BIT                       /049 CJL

/       THE  ABOVE INSTRUCTION IS FOR DECMATE I USE ONLY.  THE DEFAULT INSTRUCTION  IS
/       FOR KL8 INTERFACES.

        *DM1AN2                 /OVERLAY DECMATE II CODE                /049 CJL

DM1AN2, SKP                     /WE'RE NOT A DECMATE I                  /049 CJL
        TAD     [400]           /SET WRITE BIT                          /049 CJL
REMTSF, DCA     RMPTEMP         /SAVE PASSED VALUE
RMPUT0, TAD     OUTFLAG         /CHECK IF OUTPUT IS AVAILABLE
REMTLS, SNA CLA                 /SKIP IF SO
RMPUT1, JMP I   REMPUT          /RETURN IF NOT
REMCLEA,TAD     RMPTEMP         /GET THE PASSED VALUE
RMPUT2, OLS                     /OUTPUT THE CHARACTER NOW

/       THE ABOVE INSTRUCTIONS ARE FOR DECMATE II USE ONLY.  THE DEFAULT  INSTRUCTIONS
/       ARE FOR KL8 INTERFACES.

        *REMTSF                 /OVERLAY DECMATE II CODE

REMTSF, RTSFIOT                 /FLAG UP?
RMPUT0, JMP     REMCLEAR        /NO, FORGET IT
REMTLS, RTLSIOT                 /YES, OUTPUT THE CHARACTER NOW
RMPUT1, ISZ     REMPUT          /TAKE SKIP RETURN
REMCLEA,CLA                     /CLEAN UP
RMPUT2, JMP I   REMPUT          /RETURN EITHER WAY

        CLA                     /CLEAN UP
        DCA     OUTFLAG         /INDICATE OUTPUT IS UNAVAILABLE
        ISZ     REMPUT          /TAKE SKIP RETURN
        JMP I   REMPUT          /RETURN TO CALLER

        RMPTEMP=CONRESET        /REMOTE OUTPUT TEMPORARY

        PAGE
\f/      SEVEN-BIT COMMAND TABLES.                                       /034 CJL

        CMDTBL= .               /COMMAND TABLE HERE

        "C&177; "O&177; "N&177  /\
        "N&177; "E&177; "C&177  / >CONNECT COMMAND
        "T&177; -1              //
        CONSRV                  /CONNECT ROUTINE ADDRESS

        "F&177; "I&177; "N&177  /\
        "I&177; "S&177; "H&177  / >FINISH COMMAND
        -1                      //
        FINSRV                  /FINISH ROUTINE ADDRESS

        "E&177; "X&177; "I&177  /EXIT
        "T&177; -1              /COMMAND
        EXITKERMIT              /EXIT ROUTINE ADDRESS

        "S&177; "E&177; "N&177  /SEND
        "D&177; -1              /COMMAND
        SNDSRV                  /SEND ROUTINE ADDRESS

        "G&177; "E&177; "T&177  /GET
        -1                      /COMMAND
        GETSRV                  /GET ROUTINE ADDRESS

        "R&177; "E&177; "C&177  /\
        "E&177; "I&177; "V&177  / >RECEIVE COMMAND
        "E&177; -1              //
        RECSRV                  /RECEIVE ROUTINE ADDRESS
\f       "H&177; "E&177; "L&177  /HELP
        "P&177; -1              /COMMAND
        HELPSRV                 /HELP ROUTINE ADDRESS

        -1                      /THIS ENDS THE TABLE                    /034 CJL

/       REMOTE PACKET INPUT BUFFER.                                     /014 CJL

RRBUF,  0                       /MARK
RRLEN,  0                       /PACKET LENGTH
RRSEQ,  0                       /PACKET SEQ
RRTYP,  0                       /PACKET TYPE

        DECIMAL

RRDTA,  ZBLOCK  91              /DATA GOES HERE

        OCTAL

RTERMI, 0                       /ADD LOCATION WHERE TERMINATOR IS STORED/A004
                                /ON RECEIVE IF BUFFER IS MAXIMUM LENGTH /A004

/       REMOTE PACKET OUTPUT BUFFER

RSBUF,  CNTRLA                  /PACKET BUFFER (BEGINS WITH "SOH")      /034 CJL
RSLEN,  0                       /PACKET LENGTH GOES HERE
RSSEQ,  0                       /PACKET SEQUENCE GOES HERE
RSTYP,  0                       /PACKET TYPE GOES HERE

        DECIMAL

RSDTA,  ZBLOCK  91              /DATA GOES HERE

        0                       /CHECKSUM HERE ON MAX PACKET
        0                       /EOL (IF USED HERE ON MAX PACKET)
        0                       /INTERNAL TERMINATOR HERE ON MAX PACKET

        OCTAL
\f/      SEND-INIT PACKET DEFINITION

INIDAT, DECIMAL

        94+32                   /94 CHARS MAX

        OCTAL

        "/&177                  /15 SECOND TIME-OUT                     /M013/014 CJL
        " &177                  /NO PADDING
        0+100&177               /NO PADDING CHAR
        " &177+15               /CR FOR EOL
        "#&177                  /QUOTE CHAR
        "N&137                  /NO 8TH BIT QUOTING
        "1&177                  /CHECK TYPE 1
        " &177                  /NO REPEAT CHAR
        " &177+0                /NO EXTRA CAPABILITY
NODATA, -1                      /END OF DATA (USE THIS FOR SENDING NO-DATA)
\f       PAGE                    /GET TO NEXT PAGE                       /028 CJL

/       NO-INTERRUPT CONSOLE INPUT/OUTPUT SUPPORT ROUTINES.             /023 CJL

/       MODIFIED FOR FORCED-ECHO AND COLUMN-COUNTING.                   /043 CJL

/       CONSOLE INPUT ROUTINE.  RETURNS  LATEST  CHARACTER  WITHOUT  ECHOING.   MAY BE
/       CALLED WITH DIRTY AC.  RETURNS LATEST SEVEN-BIT CHARACTER TYPED WHILE FIELDING
/       POTENTIAL <^S>/<^Q> PROTOCOL.

INPUT,  .-.                     /CONSOLE INPUT ROUTINE
INPWAIT,JMS     CHKUP           /TRY TO GET A CHARACTER
        TAD     INCHAR          /GET THE CHARACTER
        SNA                     /SKIP IF ANYTHING CAME IN
        JMP     INPWAIT         /WAIT FOR ANYTHING
        JMP I   INPUT           /RETURN WITH LATEST CHARACTER

/       CONSOLE  OUTPUT  ROUTINE.    OUTPUTS  CHARACTER  IN  AC  (INCLUDING  <HT>  VIA
/       SIMULATION).  RETURNS WITH CLEAR AC.  SUBJECT TO CONSOLE ECHO STATUS (ECHOSW).

P7CH,   .-.                     /CONSOLE OUTPUT ROUTINE
        TAD     (-CNTRLI)       /COMPARE TO <HT>
        SNA                     /SKIP IF OTHER
        JMP     DOTAB           /JUMP IF <HT>
        TAD     L11/(CNTRLI)    /RESTORE THE CHARACTER
        JMS     P7CHAR          /PRINT IT (UPDATING COLUMN COUNT)
        JMP I   P7CH            /RETURN

DOTAB,  TAD     [" &177]        /GET A <SPACE>
        JMS     P7CHAR          /OUTPUT IT
        TAD     COLUMN          /GET CURRENT COLUMN COUNT
        AND     [7]             /JUST TAB BITS
        SZA CLA                 /SKIP IF NOW AT NEW TAB STOP
        JMP     DOTAB           /ELSE KEEP GOING
        JMP I   P7CH            /RETURN

/       FORCED-ECHO  CONSOLE  OUTPUT ROUTINE.  SAME AS P7CH BUT CLEARS  ECHOSW  BEFORE
/       OUTPUT OF THE CHARACTER.

P7ECHO, .-.                     /CONSOLE OUTPUT WITH FORCED-ECHO ROUTINE
        DCA     P7TEMP          /SAVE PASSED VALUE
        DCA     ECHOSW          /CLEAR ECHO STATUS
        TAD     P7TEMP          /RESTORE THE CHARACTER
        JMS     P7CH            /CALL MAIN ROUTINE
        JMP I   P7ECHO          /RETURN
\fCHKUP, .-.                             /CHECK FOR <^C>, ETC. ROUTINE
        JMS     CTLCTST                 /CALL LOW-LEVEL INPUT CHECK ROUTINE
        SNA                             /SKIP IF ANYTHING CAME BACK
        JMP     CHKCLR                  /ELSE FORGET IT
        TAD     (-CNTRLP)               /COMPARE TO <^P>
        SNA                             /SKIP IF OTHER
        JMP     DOUP                    /GO HANDLE <^P> THERE
        IAC     /TAD    (-CNTRLO+CNTRLP)/COMPARE TO <^O>
        SNA                             /SKIP IF OTHER
        JMP     DOUO                    /GO HANDLER <^O> THERE
        TAD     (-CNTRLS+CNTRLO)        /COMPARE TO <^S>
        SZA CLA                         /SKIP IF IT MATCHES
        JMP I   CHKUP                   /RETURN ON UNIMPORTANT CHARACTERS
UQWAIT, JMS     CTLCTST                 /CALL LOW-LEVEL INPUT CHECK ROUTINE
        TAD     (-CNTRLQ)               /COMPARE TO <^Q>
        SZA CLA                         /SKIP IF IT MATCHES
        JMP     UQWAIT                  /ELSE WAIT FOR <^Q> FOREVER
CHKCLR, DCA     INCHAR                  /OBLITERATE INPUT CHARACTER
        JMP I   CHKUP                   /RETURN

/       COMES HERE TO HANDLE <^P>.

DOUP,   TAD     ("P&177)                /GET A "P"
        JMS     UPRINT                  /PRINT "^P"
        JMP I   UPADDRESS               /GO WHERE YOU SHOULD

/       COMES HERE TO HANDLE <^O>.

DOUO,   TAD     ("O&177)                /GET AN "O"
        JMS     UPRINT                  /PRINT "^O"
        NL4000                          /SET REVERSING BIT
        TAD     ECHOSW                  /REVERSE THE ECHO STATE
        DCA     ECHOSW                  /STORE BACK
        JMP     CHKCLR                  /OBLITERATE <^O> AND RETURN

CTLCTST,.-.                             /LOW-LEVEL <^C> TEST ROUTINE
        CLA                             /CLEAN UP
KSFLOC, KSFIOT                          /FLAG UP?
        JMP I   CTLCTST                 /NO, JUST RETURN
KRSZAP, KRSIOT                          /**** 6120 **** KRBIOT
        AND     [177]                   /JUST SEVEN-BIT
        DCA     INCHAR                  /SAVE THE CHARACTER
        NL7775                          /SET -<^C> VALUE
        TAD     INCHAR                  /COMPARE TO CHARACTER
        SNA CLA                         /SKIP IF OTHER THAN <^C>
        JMP I   UCADDRESS               /JUMP IF <^C>
KCCZAP, KCCIOT                          /**** 6120 **** 0000
        TAD     INCHAR                  /GET THE CHARACTER
        JMP I   CTLCTST                 /RETURN
\fP7CHAR,        .-.                     /LOWER-LEVEL CONSOLE PRINT ROUTINE
        DCA     P7TEMP          /SAVE PASSED VALUE
P7AGN,  JMS     CHKUP           /CHECK FOR <^C>, ETC.
        TAD     ECHOSW          /GET CURRENT ECHO STATUS
        SPA CLA                 /SKIP IF ECHO ON
        JMP     P7OFF           /JUMP IF ECHO OFF
        TAD     P7TEMP          /GET THE PASSED VALUE BACK
        JMS     P7OUT           /TRY TO OUTPUT IT
        JMP     P7AGN           /COULDN'T OUTPUT, GO WAIT THERE
P7OFF,  JMS     CHKUP           /CHECK FOR <^C>, ETC.
        TAD     P7TEMP          /GET THE CHARACTER BACK
        AND     [140]           /JUST QUADRANT BITS
        SZA CLA                 /SKIP IF CONTROL CHARACTER
        ISZ     COLUMN          /BUMP COLUMN IF PRINTING CHARACTER
L11,    CNTRLI/NOP              /JUST IN CASE
        TAD     P7TEMP          /GET THE CHARACTER AGAIN
        TAD     (-CNTRLM)       /COMPARE TO <CR>
        SNA                     /SKIP IF NOT <CR>
        DCA     COLUMN          /CLEAR COLUMN COUNT ON <CR>
        TAD     (-CNTRLH+CNTRLM)/COMPARE TO <BS>
        SNA CLA                 /SKIP IF OTHER
        NL7777                  /SET BACKUP VALUE
        TAD     COLUMN          /UPDATE COLUMN COUNT
        DCA     COLUMN          /STORE BACK
        JMP I   P7CHAR          /RETURN

P7OUT,  .-.                     /LOW-LEVEL CONSOLE OUTPUT ROUTINE
P7TSF,  TSFIOT                  /FLAG UP?
        JMP I   P7OUT           /NO, TAKE IMMEDIATE RETURN WITH AC INTACT
P7TLS,  TLSIOT                  /YES, OUTPUT IT
        CLA                     /CLEAN UP
        ISZ     P7OUT           /BUMP RETURN ADDRESS
        JMP I   P7OUT           /TAKE SKIP RETURN TO CALLER

/       COMES HERE TO HANDLE <^C> IF SO ENABLED.

UPCPRT, TAD     ("C&177)        /GET A "C"
        JMS     UPRINT          /PRINT "^C"
KCCZP2, KCCIOT                  /**** 6120 **** 0000
        JMP I   [CLOOP]         /RESTART

UPRINT, .-.                     /"^"<CHARACTER> PRINTING ROUTINE
        DCA     P7TEMP          /SAVE PASSED VALUE
        TAD     ("^&177)        /GET AN "^"
        JMS     P7OUT           /OUTPUT IT
        JMP     .-1             /WAIT FOR IT
        TAD     P7TEMP          /GET PASSED VALUE
        JMS     P7OUT           /OUTPUT IT
        JMP     .-1             /WAIT FOR IT
        JMP I   UPRINT          /RETURN

P7TEMP, .-.                     /OUTPUT ROUTINE TEMPORARY
\f       PAGE

/       HANDLER I/O BUFFER DEFINITIONS.                                 /014 CJL

        HNDLR=  .               /BUFFER FOR DISK I/O HANDLER            /014 CJL

        *PAGCNT^200+HNDLR       /RESET ORIGIN PAST HANDLER BUFFER       /014 CJL

        IFNZRO  SBOOT-.&4000    <ERROR  .>                              /028 CJL

        *SBOOT-2                /JUST BEFORE EXIT ADDRESS               /025 CJL
EXITKER=.               /WHERE TO EXIT TO                       /025 CJL
        0
        CAF /PHPH
\f/      ONCE-ONLY INITIALIZATION CODE.                                  /024 CJL

        *HNDLR                  /OVER AVAILABLE SPACE

INITIAL,CLA CLL                 /CLEAN UP
COUTINI,TLSIOT                  /RAISE CONSOLE OUTPUT FLAG              /046 CJL
        TAD     INITIA/(CLA CLL)/GET REPLACEMENT INSTRUCTION
        DCA I   [CLOOP]         /DON'T COME BACK TO US
        JMS I   (MACHINE)       /IDENTIFY CPU TYPE
        DCA     CPUTEMP         /SAVE IT
        TAD     CPUTEMP         /GET CPU TYPE
        TAD     (-13)           /COMPARE TO DEADLY 6120 VALUE
        SNA CLA                 /SKIP IF OTHER
        JMP     INI6120         /JUMP IF IT MATCHES
ROUTINI,RTLSIOT                 /INITIALIZE REMOTE OUTPUT               /046 CJL
RININIT,RKRBIOT                 /INITIALIZE REMOTE INPUT                /046 CJL
        CLA                     /CLEAN UP
INITPRT,
/PHPHPH
/       JMS I   [SCRIBE]        /GIVE THEM THE
/       INITMSG                 /OPENING MESSAGE
/       JMS I   [SCRIBE]        /GIVE THEM THE
/       DAYMSG                  /DAY MESSAGE
/       JMS I   [SCRIBE]        /GIVE THEM THE
/       MONMSG                  /MONTH MESSAGE
/       JMS I   [SCRIBE]        /GIVE THEM THE
/       YEARMSG                 /YEAR MESSAGE
/       JMS I   [SCRIBE]        /GIVE THEM THE
/       CPUTMSG                 /CPU ID MESSAGE
        TAD     CPUTEMP         /*1
        CLL RTL                 /*4
        TAD     CPUTEMP         /*5
        TAD     (CPULIST)       /POINT TO PROPER MESSAGE
        DCA     TST6120         /STORE IN-LINE
/       JMS I   [SCRIBE]        /TELL THEM THEIR
        SKP     /PHPH
TST6120,0                       /ACTUAL CPU ID
/       JMS I   [SCRIBE]        /GIVE THEM THE
/       CLOSMSG                 /CLOSING MESSAGE
DMPRZAP,JMP     .+3             /**** DECMATE USAGE DETECTED **** 0000
        JMS I   [SCRIBE]        /GIVE THEM THE
SPZAP,  DMPOMSG                 /DECMATE PORT MESSAGE
        JMS I   [SCRIBE]        /GIVE THEM THE
        CRLF                    /END OF LINE
        JMS I   [SCRIBE]        /GIVE THEM THE
        LCLMSG                  /LOCAL PREFERENCE MESSAGE
/       JMS I   [SCRIBE]        /TELL THEM THEY CAN
/       THLPMSG                 /ASK FOR HELP
        TAD     CPUTEMP         /GET CPU TYPE
        CLL RTL                 /*4
        TAD     (CPUPRMPT-1)    /POINT TO PROPER ENTRY
        DCA     XR0             /STASH THE POINTER
        TAD     (-4)            /GET MOVE COUNT
        JMS     MESMOVE         /MOVE THE PROPER PROMPT TEXT
        PROMID-1                /TO THERE
\f       TAD     CPUTEMP         /*1
        CLL RTL                 /*4
        TAD     CPUTEMP         /*5
        TAD     (CPUIDLST-1)    /POINT TO PROPER ENTRY
        DCA     XR0             /STASH THE POINTER
        TAD     (-5)            /GET MOVE COUNT
        JMS     MESMOVE         /MOVE THE PROPER CPU ID TEXT
        CPUMSG-1                /TO THERE
        CIF     USRFLD          /GOTO USR FIELD                         /035 CJL
        JMS I   (USR)           /CALL USER SERVICE ROUTINE              /035 CJL
        USRIN                   /LOCK USR IN                            /035 CJL

/       DO FURTHER INITIALIZATION HERE.

        JMP I   [CLOOP]         /GO BACK TO KERMIT PROPER

/       COMES HERE TO INITIALIZE 6120-BASED MACHINES.                   /046 CJL

INI6120,DCA I   (KCCZAP)        /ELIMINATE KCCIOT
        DCA I   (KCCZP2)        /ELIMINATE KCCIOT
        ISZ I   (KRSZAP)        /TURN KRSIOT
        ISZ I   (KRSZAP)        /INTO KRBIOT
        TAD     ROUTINITIALIZE  /GET OUTPUT INITIALIZE INSTRUCTION      /046 CJL
        TAD     (-6336)         /COMPARE TO POSSIBLE VALUE              /046 CJL
        SZA CLA                 /SKIP IF IT MATCHES SERIAL PRINTER VALUE/046 CJL
        JMP     TRYDM1          /JUMP IF NOT CONFIGURED FOR SERIAL PORT /046 CJL
        TAD     RININITIALIZE   /GET INPUT INITIALIZE INSTRUCTION       /046 CJL
        TAD     (-6326)         /COMPARE TO POSSIBLE VALUE              /046 CJL
        SNA CLA                 /SKIP IF NOT CONFIGURED FOR SERIAL PORT /046 CJL
        JMP     DMSER           /JUMP IF SERIAL PORT CONFIGURATION      /046 CJL
TRYDM1, CLSK                    /SKIP ON, CLEAR CLOCK FLAG IF DECMATE II/046 CJL
        NOP                     /JUST IN CASE                           /046 CJL
        CLCL                    /CLEAR VT278 CLOCK FLAG                 /046 CJL
        NOP                     /JUST IN CASE                           /046 CJL
        ISZ     TST6120         /WASTE                                  /046 CJL
        JMP     .-1             /SOME TIME                              /046 CJL
        CLSK8A                  /VT278 CLOCK FLAG UP?                   /046 CJL
        JMP     TRYDM2          /NO, TRY DECMATE II, ETC.               /046 CJL
        DCA     DMPRZAP         /MAKE IT PRINT OUR MESSAGE              /050 CJL
        CIF CDF DMIFLD          /GOTO DECMATE ONCE-ONLY CODE FIELD      /046 CJL
        JMP I   (DM1INIT)       /CONTINUE THERE                         /046 CJL

TRYDM2, CLSK                    /CLOCK FLAG UP?                         /046 CJL
        JMP     ROUTINITIALIZE  /NO, MUST BE SOMEBODY ELSE!             /046 CJL
        DCA     DMPRZAP         /MAKE IT PRINT OUR MESSAGE              /048 CJL
        CIF CDF DMIFLD          /GOTO DECMATE ONCE-ONLY FIELD           /046 CJL
        JMP I   (DM2INIT)       /CONTINUE THERE                         /046 CJL

/       COMES HERE IF SERIAL PORT CONFIGURATION ON DECMATE.

DMSER,  DCA     DMPRZAP         /MAKE IT PRINT OUR MESSAGE              /048 CJL
        TAD     (DMPPMSG)       /GET OUR MESSAGE ADDRESS                /048 CJL
        DCA     SPZAP           /STORE IN-LINE                          /048 CJL
        JMP     ROUTINITIALIZE  /CONTINUE THERE
\fMESMOVE,.-.                    /MESSAGE MOVE ROUTINE
        DCA     MMOVCNT         /SAVE PASSED COUNT
        TAD I   MESMOVE         /GET THE PASSED ARGUMENT
        DCA     XR1             /SET IT UP
        ISZ     MESMOVE         /BUMP PAST ARGUMENT
        CDF     MSGFLD          /GOTO BUFFER FIELD
MESMVLP,TAD I   XR0             /GET A WORD
        DCA I   XR1             /PUT A WORD
        ISZ     MMOVCNT         /DONE YET?
        JMP     MESMVLP         /NO, GO BACK
        CDF     PRGFLD          /BACK TO OUR FIELD
        JMP I   MESMOVE         /YES, RETURN

CPUTEMP,.-.                     /TEMPORARY FOR MACHINE TYPE
MMOVCNT,.-.                     /TEMPORARY FOR MOVE COUNT

        PAGE
\f/      CPU IDENTIFYING ROUTINE.                                        /024 CJL

/       RETURNS VALUE IN AC ACCORDING TO THE FOLLOWING RULE:

/       AC      CPU TYPE

/       0       UNKNOWN (DCC112, MP-12?)
/       1       PDP-5 (THE INCOMPATIBLE ONE!)
/       2       PDP-8 (THE REAL ONE!)
/       3       PDP-8/S (THE SLOW ONE!)
/       4       LINC-8 (THE STRANGE ONE!)
/       5       PDP-8/I (THE ORANGE ONE!)
/       6       PDP-8/L (THE STRIPPED-DOWN ONE!)
/       7       PDP-12 (THE GREEN ONE! (BLUE?))
/       10      PDP-8/E (THE FAST ONE!)
/       11      PDP-8/A (THE WIDE ONE!)
/       12      6100 (THE MICRO ONE!)
/       13      6120 (THE HARRIS ONE!)

MACHINE,.-.                     /MACHINE IDENTIFYING ROUTINE
        CLA CLL                 /THIS WORKS ON EVERYBODY!
        TAD     0               /GET PDP-5 PC
        DCA     MACHTEMP        /SAVE IT
        TAD     (IMA5-1)        /GET PDP-5 NEW PC
        DCA     0               /STORE IT

/       IF WE GET HERE, WE'RE NOT A PDP-5.

        TAD     MACHTEMP        /GET OLD LOCATION ZERO
        DCA     0               /RESTORE IT
        NL3776                  /PDP-8/I, L WEIRDNESS
        TAD     (-3776)         /COMPARE TO POSSIBLE VALUE
        SNA CLA                 /SKIP IF NOT THOSE TWO
        JMP     IMA8IL          /JUMP IF ONE OF THEM

/       IF WE GET HERE, WE'RE NOT A PDP-8/I OR PDP-8/L.

        NL7776                  /SETUP -2
        TAD     (-7776)         /COMPARE TO EXPECTED VALUE
        SZA CLA                 /SKIP IF OK
        JMP     IMA8S           /JUMP IF RETARDED BROTHER

/       IF WE GET HERE, WE'RE NOT A PDP-8/S.

        NL0100                  /SETUP 0100
        TAD     (-100)          /COMPARE TO EXPECTED VALUE
        SNA CLA                 /SKIP IF STRAIGHT PDP-8
        JMP     IMAOMNIBUS      /JUMP IF NEWER CPU
\f/      IF WE GET HERE, WE ARE A PDP-8, BUT ARE WE A LINC-8?

        NL7777                          /SETUP LINC TEST VALUE
        IACA                            /LOAD LINC "A" REGISTER
        CLA                             /CLEAN UP
        IAAC                            /GET IT BACK
        IAC                             /ADD ONE
        SNA CLA                         /SKIP IF NO LINC HARDWARE
        JMP     IMAL8                   /JUMP IF LINC-8

/       SINCE WE DON'T CARE ABOUT PERIPHERALS, WE ARE A PDP-8.

        JMP     IMA8                    /GO TELL THEM WE ARE A PDP-8

/       COMES HERE IF PDP-8/I OR PDP-8/L.

IMA8IL, NL7777                          /SETUP TEST VALUE
        CLA!401                         /DO PDP-8/I GROUP THREE EAE CLA
        SZA CLA                         /SKIP IF PDP-8/I
        JMP     IMA8L                   /JUMP IF NOT

/       IF WE GET HERE, WE ARE A PDP-8/I, BUT ARE WE A PDP-12?

        LINC                            /GOTO LINC MODE
        COM                             /COMPLEMENT AC IF PDP-12, ELSE A HARMLESS AND
        PDP                             /GOTO PDP8 MODE IF PDP-12, ELSE HARMLESS AND
        IAC                             /ADD ONE FOR TEST
        SNA CLA                         /SKIP IF JUST PDP-8/I
        JMP     IMA12                   /JUMP IF ACTUALLY A LINC-8/I

/       SINCE WE DON'T CARE ABOUT PERIPHERALS, WE ARE JUST A PDP-8/I.

        JMP     IMA8I                   /TELL THEM WE ARE A PDP-8/I

IMAOMNI,RTL RTR                         /DO STRANGE OMNIBUS INSTRUCTION
PC8A,   SNA                             /SKIP IF NOT A MICRO CHIP
        JMP     IMA61                   /JUMP IF ONE OF THOSE THINGS
        TAD     (.&7600+16^7777)        /CHECK FOR PDP-8/E VALUE
        SNA                             /SKIP IF NOT HIM
        JMP     IMA8E                   /JUMP IF IT IS A PDP-8/E (/F OR /M OR 8A-6XX)
        TAD     (.&7600+16-PC8A)        /COMPARE TO PDP-8/A VALUE       /051 CJL
        SNA CLA                         /SKIP IF SOMEBODY ELSE
        JMP     IMA8A                   /JUMP IF IT MATCHES

/       IF WE GET HERE, SOME STRANGE PROCESSOR IS RUNNING US.

        JMP     IMAUNKNOWN              /YOU FIGURE IT OUT!
\f/      IF WE GET HERE, WE ARE A 6100 OR 6120.

IMA61,  NL0010                  /DO 6120 SPECIAL INSTRUCTION
        TAD     (-10)           /COMPARE TO EXPECTED VALUE
        SNA CLA                 /SKIP IF OTHER
        JMP     IMA6120         /JUMP IF IT MATCHES

/       WE APPARENTLY ARE ON A 6100, SO TELL THEM SO.

        JMP     IMA6100         /TELL THEM WE ARE A 6100 MACHINE (VT-78, ETC.)

/       RETURN GAUNTLET.

IMA6120,IAC                     /SET 6120 VALUE
IMA6100,IAC                     /SET 6100 VALUE
IMA8A,  IAC                     /SET PDP-8/A VALUE
IMA8E,  IAC                     /SET PDP-8/E VALUE
IMA12,  IAC                     /SET PDP-12 VALUE
IMA8L,  IAC                     /SET PDP-8/L VALUE
IMA8I,  IAC                     /SET PDP-8/I VALUE
IMAL8,  IAC                     /SET LINC-8 VALUE
IMA8S,  IAC                     /SET PDP-8/S VALUE
IMA8,   IAC                     /SET PDP-8 VALUE
IMA5,   IAC                     /SET PDP-5 VALUE
IMAUNKN,JMP I   MACHINE         /RETURN

MACHTEM,.-.                     /TEMPORARY FOR LOCATION ZERO

        PAGE
\f       FIELD   PRGFLD%10       /DUMP THE LITERALS NOW
\f/      LAYOUT OF FIELD ONE (PERMANENT CONTENTS).                       /046 CJL

        NOPUNCH                         /FOOL THE ASSEMBLER             /046 CJL

        FIELD   USRFLD%10               /USR FIELD                      /046 CJL

        *0                              /WHERE IT LOADS                 /046 CJL

USRLOAD,ZBLOCK  200-.                   /GET TO ENTRY POINT             /046 CJL

        USRENTR=.                       /LOCKED-IN USR ENTRY POINT      /046 CJL

USRENTR,ZBLOCK  2000-.                  /USR OWNS REST OF THIS AREA     /046 CJL

        FILBUFF=.                       /FILE I/O DONE HERE             /046 CJL

        FIELD   BUFFLD%10               /FILE I/O BUFFER FIELD          /046 CJL

        *FILBUFFER                      /RESET ORIGIN                   /046 CJL

FILBUFF,ZBLOCK  PAGCNT^200              /THIS IS THE FILE I/O BUFFER    /046 CJL

        DIRBUFF=.                       /DIRECTORY LOOKUP I/O DONE HERE /028 CJL

        FIELD   DIRFLD%10               /DIRECTORY LOOKUP BUFFER FIELD  /028 CJL

        *DIRBUFFER                      /RESET ORIGIN                   /028 CJL

FILECNT,.-.                             /-(NUMBER OF ENTRIES IN THIS SEGMENT)
FRSTREC,.-.                             /FIRST RECORD OF FIRST ENTRY IN THIS SEGMENT
DIRLINK,.-.                             /LINK TO NEXT SEGMENT; 0 IF LAST ACTIVE ONE
        .-.                             /TENTATIVE ENTRY POINTER STORED HERE
AIWNUMB,.-.                             /-(NUMBER OF ADDITIONAL INFORMATION WORDS)

        ENTSTRT=.                       /FILE ENTRIES START HERE        /046 CJL

        ZBLOCK  PAGCNT^200+DIRBUFFER-.  /DIRECTORY ENTRIES HERE         /046 CJL

/       CONNECT MODE I/O BUFFERS.                                       /026 CJL

KEYBUFF,ZBLOCK  BUFSIZE                 /KEYBOARD BUFFER                /026 CJL
CONBUFF,ZBLOCK  BUFSIZE                 /CONSOLE OUTPUT BUFFER          /026 CJL
RINBUFF,ZBLOCK  BUFSIZE                 /REMOTE INPUT BUFFER            /026 CJL
REMBUFF,ZBLOCK  BUFSIZE                 /REMOTE OUTPUT BUFFER           /026 CJL

        FLD1ADR=.                       /SPACE AVAILABLE FOR TEXT, ETC. /046 CJL

        ENPUNCH                         /UN-FOOL THE ASSEMBLER          /046 CJL
\f/      DECMATE ONCE-ONLY CODE.                                         /046 CJL

        FIELD   DMIFLD%10               /DECMATE ONCE-ONLY CODE FIELD   /046 CJL

        *USRLOAD                        /OVER USR ROUTINE               /046 CJL

/       PAGE ZERO FOR ONCE-ONLY CODE.                                   /046 CJL

        *10                             /GET TO AUTO-INDEX AREA         /048 CJL

XR0,    .-.                             /AUTO-INDEX ZERO                /048 CJL

        *USRENTRY                       /OVER USR ENTRY POINT           /046 CJL

/       DECMATE I ONCE-ONLY CODE.                                       /046 CJL

DM1INIT,JMS I   (DM1PORT)               /INITIALIZE THE REMOTE PORTS    /050 CJL
        TAD     (DM1LIST-1)             /POINT TO REPLACEMENT LIST      /050 CJL
        JMS     REPLACE                 /ZAP IN ALL OF OUR PATCHES      /050 CJL
        CDF     PRGFLD                  /GOTO MAIN FIELD                /050 CJL
        TAD I   (DIRXR)                 /GET PORT SELECTION             /050 CJL
        SNA CLA                         /SKIP IF PORT 1 REQUIRED        /050 CJL
        JMP     USEP0                   /JUMP IF PORT 0 REQUIRED        /050 CJL
        TAD     (DM1SEC-1)              /POINT TO REPLACEMENT LIST      /050 CJL
        JMS     REPLACE                 /ZAP IN SECONDARY PATCHES       /050 CJL
USEP0,  CIF CDF PRGFLD                  /BACK TO REST OF INITIALIZATION /046 CJL
        JMP I   (INITPRT)               /CONTINUE THERE                 /046 CJL

/       DECMATE II, ETC. ONCE-ONLY CODE.                                /046 CJL

DM2INIT,JMS I   (DMIPORT)               /INITIALIZE THE REMOTE PORT     /048 CJL
        TAD     (DM2LIST-1)             /POINT TO REPLACEMENT LIST      /048 CJL
        JMS     REPLACE                 /ZAP IN ALL OF OUR PATCHES      /048 CJL
        CIF CDF PRGFLD                  /BACK TO REST OF INITIALIZATION /046 CJL
        JMP I   (INITPRT)               /CONTINUE THERE                 /046 CJL

REPLACE,.-.                             /REPLACEMENT ROUTINE            /048 CJL
        DCA     XR0                     /SAVE PASSED LIST POINTER       /048 CJL
REPLUP, CDF     DMIFLD                  /BACK TO OUR FIELD              /048 CJL
        TAD I   XR0                     /GET AN ADDRESS                 /048 CJL
        SNA                             /SKIP IF NOT AT END OF LIST     /048 CJL
        JMP I   REPLACE                 /RETURN IF END OF LIST          /048 CJL
        DCA     REPADR                  /STASH THE ADDRESS              /048 CJL
        TAD I   XR0                     /GET THE REPLACEMENT VALUE      /048 CJL
        CDF     PRGFLD                  /GOTO ZAPPING FIELD             /048 CJL
        DCA I   REPADR                  /ZAP IT IN                      /048 CJL
        JMP     REPLUP                  /KEEP GOING                     /048 CJL

REPADR, .-.                             /REPLACEMENT ADDRESS TEMPORARY  /048 CJL
\f/      DECMATE I PORT INITIALIZE ROUTINE                               /050 CJL

DM1PORT,.-.                             /DECMATE I PORT INITIALIZE ROUTINE
        TAD     (234)                   /GET PORT 0 SCD ENABLE VALUE
        WCON0                           /WRITE PORT 0 CONTROL REGISTER
        NL0000                          /INDICATE PORT 0
        JMS     PRTINIT                 /INITIALIZE PORT 0

/       CHANGE ALL IOTS TO PORT 1 VALUES.

IOCLUP, ISZ     PSETF1                  /BUMP SET FLAG INSTRUCTION
        ISZ     PDUMRD                  /BUMP DUMMY READ INSTRUCTION
        ISZ     PSETF2                  /BUMP SET FLAG INSTRUCTION
        ISZ     PSKIP                   /BUMP SKIP ON FLAG INSTRUCTION
        ISZ     PLOAD                   /BUMP LOAD INSTRUCTION
        ISZ     IOTCNT                  /DONE YET?
        JMP     IOCLUP                  /NO, KEEP GOING

        TAD     (234)                   /GET PORT 1 SCD ENABLE VALUE
        WCON1                           /WRITE PORT 1 CONTROL REGISTER
        NL4000                          /INDICATE PORT 1
        JMS     PRTINIT                 /INITIALIZE PORT 1
        JMP I   DM1PORT                 /RETURN

PRTINIT,.-.                             /LOW-LEVEL PORT INTIALIZE ROUTINE
        RACD                            /RESET DESIRED PORT
        ISZ     PWASTE                  /WASTE
        JMP     .-1                     /SOME TIME
        CLA                             /CLEAN UP
PSETF1, RTFL0                           /SET THE FLAG NOW
        TAD     (2516)                  /SETUP FOR 8 BITS, NO PARITY, ETC.
        JMS     PSEND                   /SEND TO MODE REGISTER 1
        CDF     PRGFLD                  /GOTO MAIN FIELD
        TAD I   (RATE)                  /GET BAUD RATE NOW
        CDF     DMIFLD                  /BACK TO OUR FIELD
        TAD     (2460)                  /ADD ON CLOCK ENABLES, ETC.
        JMS     PSEND                   /SEND TO MODE REGISTER 2
        TAD     (3425)                  /GET ENABLE AND RESET VALUE
        JMS     PSEND                   /SEND TO COMMAND REGISTER
PDUMRD, RKRB0                           /DO A DUMMY READ NOW
PSETF2, RTFL0                           /SET THE FLAG NOW
        CLA                             /CLEAN UP
        JMP I   PRTINIT                 /RETURN

PSEND,  .-.                             /PORT WRITE ROUTINE
PSKIP,  RTSF0                           /FLAG UP?
        JMP     PSKIP                   /NO, WAIT FOR IT
PLOAD,  RTLS0                           /YES, LOAD THE VALUE
        CLA                             /CLEAN UP
        JMP I   PSEND                   /RETURN

IOTCNT, RKFL0-RKFL1                     /INTER-DEVICE IOT COUNT
PWASTE, 0                               /TIMER TEMPORARY
\f       PAGE
\f/      DECMATE II, ETC. PORT INITIALIZE ROUTINE.                       /048 CJL

/       THIS ROUTINE IS MOSTLY  "DARK  GREY MAGIC" WHICH IS PRIMARILY DERIVED FROM THE
/       "OFFICIAL" INFORMATION TAKEN FROM THE ONLY KNOWN DOCUMENTATION, THE DECMATE II
/       PROGRAMMER'S REFERENCE MANUAL:  EK-DECM2-RM-001.  VARIOUS EMPLOYEES OF DIGITAL
/       EQUIPMENT CORPORATION (A MULTI-NATIONAL COMPANY) HAVE ADDITIONALLY CONTRIBUTED
/       TO THIS EFFORT BY PROVIDING PORTIONS OF THE  "SACRED SLUSHWARE NOTES" ON A NOT
/       NECESSARILY  WILLING  BASIS  THROUGH  THEIR RELEASED WORKS, SUCH AS,  BUT  NOT
/       LIMITED TO, THE SOURCES OF THE PARTICULAR VERSION OF KERMIT-8  KNOWN  AS K278.
/       IT  IS  ASSUMED THAT THESE PEOPLE HAVE ACCESS TO BETTER DOCUMENTATION  OF  THE
/       HARDWARE, AND  ESPECIALLY  DOCUMENTATION  OF  THE  THREE  DIFFERENT  MODELS OF
/       DECMATE (II, III, III+) THAT THESE ISSUES APPLY TO.

/       SINCE IT IS NOT KNOWN WHETHER THE K278, ETC.  CODE IS SPECIFIC AND PRECISE, OR
/       MERELY SLOPPY, VARIOUS "QUIRKY" CODING TECHNIQUES HAVE BEEN LEFT "AS IS", WITH
/       COMMENTS   REGARDING  POTENTIAL  VARIANCE  WITH  DOCUMENTATION  NOTED    WHERE
/       NECESSARY.  THE ORDER OF ACCESS TO THE  REGISTERS HAS BEEN LEFT INTACT IN CASE
/       OF POTENTIAL INTERACTION.  SEVERAL CHANGES HAVE BEEN MADE  BEYOND THIS WORK AS
/       A  RESULT  OF  TRIAL-AND-ERROR, AND ALSO HAND DIS-ASSEMBLY OF SEVERAL  DECMATE
/       DISKETTES' CONTENTS.

/       IT IS HOPED THAT FUTURE "NEGOTIATIONS" WITH DEC ALLOW FOR PROPER DISCLOSURE OF
/       THESE ISSUES TO AVOID POTENTIAL SOFTWARE FAILURES  EVIDENT  IN  THESE ROUTINES
/       DUE TO LACK OF PROPER DOCUMENTATION.

DMIPORT,.-.                     /COMMUNICATIONS PORT INITIALIZE ROUTINE

/       ACCORDING TO THE DECMATE II MANUAL, THE FOLLOWING INSTRUCTION IS UNDEFINED.

        MPRESET                 /RESET MULTIPROTOCOL COMMUNICATIONS CONTROLLER CHIP

/       THE DECMATE III HAS  AN  INTERNAL  MODEM  OPTION WHICH IS NOT AVAILABLE IN THE
/       DECMATE II.  THE INTERFACE  TO THIS DEVICE IS APPARENTLY SHARED WITH THE MPSCC
/       MODEM INTERFACE WE NORMALLY USE, SO THE REGISTER ACCESS MUST BE MORE CAREFULLY
/       DEFINED.  THE APPARENT DIFFERENTIATION IS THE CURRENT VALUE OF THE DATA FIELD,
/       NAMELY EITHER FIELD 0 OR 1.  IT  IS  NOT  KNOWN WHETHER THE THREE-BIT VALUE OF
/       THE DATA FIELD IS SIGNIFICENT (PRESUMABLY FOR FUTURE EXPANSION), OR MERELY THE
/       DATA  FIELD'S  LOW-ORDER  BIT  IS  USED, AS ALL KNOWN EXAMPLES  OF  ALLEDGEDLY
/       FUNCTIONAL CODE USE APPROPRIATE CDF 00 AND CDF 10 ONLY.   APPARENTLY THE MODEM
/       INTERFACE IS REFERRED TO AS "A" AND THE MPSCC INTERFACE IS REFERRED TO AS "B".

        TAD     (030)           /GET RESET VALUE
        CDF     00              /TALKING TO REGISTER 0A
        MPSCC                   /RESET COMMUNICATIONS CHIP
        CDF     10              /TALKING TO REGISTER 0B
        MPSCC                   /RESET COMMUNICATIONS CHIP
\f/      ACCORDING  TO  THE  DECMATE II MANUAL, CONTROL  REGISTER  2 "HAS  NO  RELEVANT
/       BITS...  IF IT IS EVER WRITTEN, IT MUST BE WRITTEN WITH ALL ZEROS." APPARENTLY
/       THE  MODEM  INTERFACE  DEMANDS  A  NON-ZERO  VALUE  BE  WRITTEN  TO REGISTER 2
/       (PRESUMABLY TO  DISABLE  IT).  TO SATISFY THE ABOVE REQUIREMENT (WHATEVER THIS
/       IMPLIES!), REGISTER 2(B)  IS  WRITTEN  WITH ALL ZEROS *LAST* IN CASE THIS IS A
/       DECMATE II WHERE THE DATA FIELD CONSIDERATIONS ARE MEANINGLESS.

        CDF     00              /TALKING TO REGISTER 0A
        NL0002                  /WANT REGISTER 2A
        MPSCC                   /SELECT IT
        TAD     (020-2)         /GET RESET VALUE
        MPSCC                   /LOAD IT
        CDF     10              /TALKING TO REGISTER 0B
        NL0002                  /WANT REGISTER 2B
        MPSCC                   /SELECT IT
        NL0000                  /GET RESET VALUE (000)
        MPSCC                   /LOAD IT

/       THE K278 CODE DOES NOT HAVE SETUP CODE FOR REGISTER 4B, PRESUMABLY BECAUSE THE
/       CODE PERFORMS A PANEL  REQUEST  (PRQ3) WHICH SETS UP THE EQUIVALENT VALUES FOR
/       ASYNCHRONOUS OPERATION WITH ONE STOP  BIT  AND  NO PARITY.  IT IS NOT KNOWN IF
/       THE DECMATE III EVEN *HAS* A  REGISTER  4B, BUT PRESUMABLY IT IS AVAILABLE FOR
/       LOADING THE RIGHT VALUES COMPATIBLE WITH THE DECMATE II, OR ATTEMPTING TO LOAD
/       IT IS INNOCUOUS. 

        CDF     00              /TALKING TO REGISTER 0A
        NL0004                  /WANT REGISTER 4A
        MPSCC                   /SELECT IT
        TAD     (104-4)         /SETUP FOR ASYNCHRONOUS, ONE STOP BIT, NO PARITY
        MPSCC                   /LOAD IT
        CDF     10              /TALKING TO REGISTER 0B
        NL0004                  /WANT REGISTER 4B
        MPSCC                   /SELECT IT
        TAD     (104-4)         /SETUP FOR ASYNCHRONOUS, ONE STOP BIT, NO PARITY
        MPSCC                   /LOAD IT
\f/      THE  DOCUMENTED VALUES  (FOR DECMATE II) REGARDING CONTROL REGISTER 1 INDICATE
/       THE PROPER VALUE OF 022, WHERE BIT[9] IS DEFINED AS A ZERO.   THE VALUE OF 026
/       IS  TAKEN  FROM  K278  WHERE  PRESUMABLY  THE  EXTRA BIT IS NECESSARY FOR SOME
/       DECMATE III OBSCURITY.

/       THE FOLLOWING CODE IS  REDUNDANT  FOR  LOADING  REGISTER  0A  BEFORE AND AFTER
/       LOADING REGISTER 0B.  THIS  IS  EITHER A MISTAKE OR OBSCURELY NECESSARY (TAKEN
/       FROM K278).

        CDF     00              /TALKING TO REGISTER 0A
        NL0001                  /WANT REGISTER 1A
        MPSCC                   /SELECT IT
        TAD     (026-1)         /GET SETUP VALUE
        MPSCC                   /LOAD IT
        CDF     10              /TALKING TO REGISTER 0B
        NL0001                  /WANT REGISTER 1B
        MPSCC                   /SELECT IT
        TAD     (026-1)         /GET SETUP VALUE
        MPSCC                   /LOAD IT
        CDF     00              /TALKING TO REGISTER 0A
        NL0001                  /WANT REGISTER 1A
        MPSCC                   /SELECT IT
        TAD     (026-1)         /GET SETUP VALUE
        MPSCC                   /LOAD IT

/       THE DECMATE III INTERNAL MODEM IS PROBABLY ASYNCHRONOUS 8 BIT  ONLY.  ASSUMING
/       THE RECEIVE SIDE OF THE INTERNAL MODEM IS ALWAYS "ENABLED", REGISTER  3A WOULD
/       BE  UNNECESSARY.  THE K278 CODE DOES NOT ADDRESS REGISTER 3 AS  AN  A/B  PAIR,
/       PRESUMABLY  BECAUSE  REGISTER  3 IS NOT DECODED AND IS EFFECTIVELY REGISTER 3B
/       REGARDLESS OF  THE  DATA FIELD.  THIS IS EITHER TRUE, OR THE K278 CODING FAILS
/       TO PROPERLY INITIALIZE THE DECMATE III MPSCC PORT.

        NL0003                  /WANT REGISTER 3
        MPSCC                   /SELECT IT
        TAD     (301-3)         /SETUP FOR 8 BITS AND ENABLE RECIVER
        MPSCC                   /LOAD IT

/       A SIMILAR  SITUATION  EXISTS  FOR  THE  TRANSMITTER  SIDE  OF  THE DECMATE III
/       INTERNAL MODEM.  REGISTER 5 IS UTILIZED ACCORDINGLY.

        TAD     (5-301)         /WANT REGISTER 5
        MPSCC                   /SELECT IT
        TAD     (150-5)         /GET TRANSMITTER ENABLE, 8 BITS VALUE
        MPSCC                   /LOAD IT

/       THE DECMATE II REFERENCE  MANUAL  INDICATES  THE  PROPER SETTING FOR THE MODEM
/       CONTROL REGISTER AS EITHER 030  OR  130  DEPENDING ON WHETHER BIT[5] INDICATES
/       INTERNAL OR EXTERNAL TIMING (WHERE ONE  OF  THESE  IS ILLEGAL FOR ASYNCHRONOUS
/       OPERATION!).  THE SETTING OF BITS [10]  AND  [11]  WOULD  INDICATE ENABLING OF
/       BOTH  LOCAL  AND  REMOTE LOOPBACKS, YET WE SET  ONLY  THESE  BITS  (ALA  K278)
/       ALLEDGEDLY FOR THE PURPOSE OF SETTING RTS AND DTR  (WHICH  ARE  DOCUMENTED  AS
/       BEING BITS[7] AND [8] RESPECTIVELY).

        NL0003                  /SET VALUE
        MLC                     /LOAD IT
\f       CLA                     /CLEAN UP

/       THE BAUD RATE SHOULD BE SET HERE IF DESIRED.

/       TAD     BAUD            /GET BAUD RATE
/       MSB                     /LOAD IT
        CLA                     /CLEAN UP
        JMP I   DMIPORT         /RETURN
\f/      DECMATE II, ETC. REPLACEMENT LIST.                              /048 CJL

DM2LIST,CLDMZAP                         /        *CLDMZAP

                DMINIT&177+JMSC         /CLDMZAP,JMS     DMINIT

        SETBAUD                         /        *SETBAUD               /050 CJL

                MSB                     /SETBAUD,MSB                    /050 CJL

        INLUP                           /        *INLUP

                TAD     INFLAG          /INLUP,  TAD     INFLAG

        INSKIP                          /        *INSKIP

                NOTYET&177+JMPC         /INSKIP, JMP     NOTYET
        INLUP1; DCA     INFLAG          /INLUP1, DCA     INFLAG
        INREAD; IRB                     /INREAD, IRB

        INSTATUS                        /        *INSTATUS

                UPSTATUS&177+JMSC       /INSTATU,JMS     UPSTATUS

        GETFL1                          /        *GETFL1

                UPSTATUS&177+JMSC       /GETFL1, JMS     UPSTATUS

        COMWAIT                         /        *COMWAIT

                GETFLOW&177+JMSC        /COMWAIT,JMS     GETFLOW

        NOWAIT                          /        *NOWAIT

                TAD     OUTFLAG         /NOWAIT, TAD     OUTFLAG
        CMOUT1; SNA CLA                 /CMOUT1, SNA CLA
        CMOUT2; OWAIT&177+JMPC          /CMOUT2, JMP     OWAIT
        DM1AND; DCA     OUTFLAG         /DM1AND, DCA     OUTFLAG
        CMOUT3; OUTEMP&177+TADC         /CMOUT3, TAD     OUTEMP
        CMOUT4; OLS                     /CMOUT4, OLS

        BUFCHECK                        /        *BUFCHECK

                PUPSTATUS&177+JMSIC     /BUFCHEC,JMS I   PUPSTATUS

        KERRLUP                         /        *KERRLUP

                PUPSTATUS&177+JMSIC     /KERRLUP,JMS I   PUPSTATUS
\f       RINTEST                         /        *RINTEST

                TAD     INFLAG          /RINTEST,TAD     INFLAG
        RINGT0; SNA CLA                 /RINGT0, SNA CLA
        RINREAD;RINGNONE&177+JMPC       /RINREAD,JMP     RINGNONE
        RINGT1; DCA     INFLAG          /RINGT1, DCA     INFLAG
        RINGT2; IRB                     /RINGT2, IRB

        REMTSF                          /        *REMTSF

                RMPTEMP&177+DCAC        /REMTSF, DCA     RMPTEMP
        RMPUT0; TAD     OUTFLAG         /RMPUT0, TAD     OUTFLAG
        REMTLS; SNA CLA                 /REMTLS, SNA CLA
        RMPUT1; REMPUT&177+JMPIC        /RMPUT1, JMP I   REMPUT
        REMCLEA;RMPTEMP&177+TADC        /REMCLEA,TAD     RMPTEMP
        RMPUT2; OLS                     /RMPUT2, OLS

        0                               /THIS ENDS THE LIST

        PAGE
\f/      DECMATE I REPLACEMENT LIST.                                     /050 CJL

DM1LIST,CLDMZAP                         /        *CLDMZAP

                DMINIT&177+JMSC         /CLDMZAP,JMS     DMINIT

        SETBAUD                         /        *SETBAUD

                NOP                     /SETBAUD,NOP

        DMI01                           /        *DMI01

                DM234&177+TADC          /DMI01,  TAD     DM234/(234)
        DMI02;  WCON0                   /DMI02,  WCON0
        DMI03;  NL0000                  /DMI03,  NL0000
        DMI04;  RACD                    /DMI04,  RACD
        DMI05;  DMWASTE&177+ISZC        /DMI05,  ISZ     DMWASTE
        DMI06;  DMI05&177+JMPC          /DMI06,  JMP     DMI05
        DMI07;  DMWASTE&177+ISZC        /DMI07,  ISZ     DMWASTE
        DMI08;  DMI07&177+JMPC          /DMI08,  JMP     DMI07
        DMI09;  RTFL0                   /DMI09,  RTFL0
        DMI10;  DM2516&177+TADC         /DMI10,  TAD     DM2516/(2516)
        DMI11;  DMSEND&177+JMSC         /DMI11,  JMS     DMSEND
        DMI12;  TAD     RATE            /DMI12,  TAD     RATE
        DMI13;  DM2460&177+TADC         /DMI13,  TAD     DM2460/(2460)
        DMI14;  DMSEND&177+JMSC         /DMI14,  JMS     DMSEND
        DMI15;  DM3425&177+TADC         /DMI15,  TAD     DM3425/(3425)
        DMI16;  DMSEND&177+JMSC         /DMI16,  JMS     DMSEND
        DMI17;  RKRB0                   /DMI17,  RKRB0

        DMISET                          /        *DMISET

                RTFL0                   /DMISET, RTFL0

        DMISKP                          /        *DMISKP

                RTSF0                   /DMISKP, RTSF0
\f       DMIOUT                          /        *DMIOUT

                RTLS0                   /DMIOUT, RTLS0

        INSKIP                          /        *INSKIP

                RKSF0                   /INSKIP, RKSF0

        INREAD                          /        *INREAD

                RKRB0                   /INREAD, RKRB0

        COMWAIT                         /        *COMWAIT

                GETFLOW&177+JMSC        /COMWAIT,JMS     GETFLOW

        NOWAIT                          /        *NOWAIT

                RTSF0                   /NOWAIT, RTSF0
        CMOUT1; OWAIT&177+JMPC          /CMOUT1, JMP     OWAIT

        DM1AND                          /        *DM1AND

                AND377                  /DM1AND, AND     [377]

        CMOUT4                          /        *CMOUT4

                RTLS0                   /CMOUT4, RTLS0

        RINTEST                         /        *RINTEST

                RKSF0                   /RINTEST,RKSF0

        RINREAD                         /        *RINREAD

                RKRB0                   /RINREAD,RKRB0
        RINGT1; SKP                     /RINGT1, SKP

        DM1AN2                          /        *DM1AN2

                AND377                  /DM1AN2, AND     [377]

        REMTSF                          /        *REMTSF

                RTSF0                   /REMTSF, RTSF0

        REMTLS                          /        *REMTLS

                RTLS0                   /REMTLS, RTLS0

        0                               /THIS ENDS THE LIST
\f/      DECMATE I SECONDARY REPLACEMENT LIST                            /050 CJL

DM1SEC, DMI02                           /        *DMI02

                WCON1                   /DMI02,  WCON1
        DMI03;  NL4000                  /DMI03,  NL4000

        DMI09                           /        *DMI09

                RTFL1                   /DMI09,  RTFL1

        DMI17                           /        *DMI17

                RKRB1                   /DMI17,  RKRB1

        DMISET                          /        *DMISET

                RTFL1                   /DMISET, RTFL1

        DMISKP                          /        *DMISKP

                RTSF1                   /DMISKP, RTSF1

        DMIOUT                          /        *DMIOUT

                RTLS1                   /DMIOUT, RTLS1

        INSKIP                          /        *INSKIP

                RKSF1                   /INSKIP, RKSF1

        INREAD                          /        *INREAD

                RKRB1                   /INREAD, RKRB1

        NOWAIT                          /        *NOWAIT

                RTSF1                   /NOWAIT, RTSF1

        CMOUT4                          /        *CMOUT4

                RTLS1                   /CMOUT4, RTLS1

        RINTEST                         /        *RINTEST

                RKSF1                   /RINTEST,RKSF1

        RINREAD                         /       *RINREAD

                RKRB1                   /RINREAD,RKRB1

        REMTSF                          /        *REMTSF

                RTSF1                   /REMTSF, RTSF1
\f       REMTLS                          /        *REMTLS

                RTLS1                   /REMTLS, RTLS1

        0                               /THIS ENDS THE LIST
\f/      ONCE-ONLY TEXT MESSAGES.                                        /024 CJL

        FIELD   BUFFLD%10               /FILE I/O BUFFER FIELD

        *FILBUFFER                      /OVER FILE I/O BUFFER

/       LOCAL PREFERENCE MESSAGE.                                       /024 CJL

/       USE SOMETHING APPROPRIATE HERE TO CUSTOMIZE KERMIT-12 TO YOUR MACHINE.

/       THIS LOCATION SHOULD BE MAINTAINED SINCE IT IS DOCUMENTED TO BE HERE.

        XLIST   OFF
        IFZERO  GENMSG                  <
        XLIST   ON
LCLMSG, *LCLMSG+40                      /EMPTY HOLE FOR USER MESSAGE    /039 CJL

        XLIST   OFF                     >
        IFNZRO  GENMSG                  <
        IFNZRO  LEDERLE         <
        XLIST   ON
LCLMSG, TEXT    "%^T^HANKS TO: ^B^ILL ^S^MITH AND ^D^INGER ^M^ILLER%"

        XLIST   OFF             >
        IFNZRO  UMSG            <
        XLIST   ON
LCLMSG, TEXT    "%^I^NSERT LOCAL USER MESSAGE HERE!%^"

        XLIST   OFF             >
        IFZERO  LEDERLE!UMSG    <
        XLIST   ON
LCLMSG, TEXT    "^^^^^^^^^^^^^^^^^^^^^^"/DEFAULT IS NO MESSAGE

        XLIST   OFF             >
        IFNZRO  LCLMSG+40-.     <
        XLIST   ON
        ZBLOCK  LCLMSG+40-.             /LEAVE PATCHING SPACE

        XLIST   OFF             >
                                        >
        XLIST   ON
CLOSMSG,TEXT    "^]^"                   /CPU TYPE CLOSING MESSAGE
\f/      CPU IDENTIFICATION LIST; ALL MUST BE 5 WORDS LONG (EXCEPT LAST)./024 CJL

CPULIST,TEXT    "^U^NKNOWN"             /00=UNKNOWN
        TEXT    "^PDP^-5^^"             /01=PDP-5
        TEXT    "^PDP^-8^^"             /02=PDP-8
        TEXT    "^PDP^-8/S"             /03=PDP-8/S
        TEXT    "^LINC^-8^"             /04=LINC-8
        TEXT    "^PDP^-8/I"             /05=PDP-8/I
        TEXT    "^PDP^-8/L"             /06=PDP-8/L
        TEXT    "^PDP^-12^"             /07=PDP-12
        TEXT    "^PDP^-8/E"             /10=PDP-8/E
        TEXT    "^PDP^-8/A"             /11=PDP-8/A
\f       TEXT    "6100^^^^^"                     /12=6100
        TEXT    "6120^"                         /13=6120; LAST CAN BE SHORT!
CPUTMSG,TEXT    "%^[C^PU TYPE IS: "             /CPU TYPE MESSAGE
DAYMSG, DAY%12^66+DAY+6060                      /DAY MESSAGE
        TEXT    " "
DMPOMSG,TEXT    " ^[U^SING ^C^OMMUNICATIONS"    /DECMATE PORT MESSAGE
        TEXT    " ^P^ORT^]"
DMPPMSG,TEXT    " ^[U^SING ^P^RINTER ^P^ORT^]^" /DECMATE SERIAL PORT MESSAGE
\fINITMSG,TEXT   "%^PS/8 PS/12 OS/8 OS/12 "      /INITIAL MESSAGE
        TEXT    "OS/78 OS/278  K^ERMIT-12  ^V"
INMSG2, VERSION%12^66+VERSION+6060              /VERSION DIGITS
INMSG3, "^^100+REVISION                         /REVISION
        TEXT    "   "                           /END OF MESSAGE
        XLIST   OFF
        IFZERO  MONTH-1         <
        XLIST   ON
MONMSG, TEXT    "^J^ANUARY ^"                   /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-2         <
        XLIST   ON
MONMSG, TEXT    "^F^EBRUARY "                   /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-3         <
        XLIST   ON
MONMSG, TEXT    "^M^ARCH ^"                     /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-4         <
        XLIST   ON
MONMSG, TEXT    "^A^PRIL ^"                     /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-5         <
        XLIST   ON
MONMSG, TEXT    "^M^AY ^"                       /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-6         <
        XLIST   ON
MONMSG, TEXT    "^J^UNE "                       /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-7         <
        XLIST   ON
MONMSG, TEXT    "^J^ULY "                       /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-10        <
        XLIST   ON
MONMSG, TEXT    "^A^UGUST "                     /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-11        <
        XLIST   ON
MONMSG, TEXT    "^S^EPTEMBER ^"                 /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-12        <
        XLIST   ON
MONMSG, TEXT    "^O^CTOBER ^"                   /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-13        <
        XLIST   ON
MONMSG, TEXT    "^N^OVEMBER "                   /MONTH MESSAGE
        XLIST   OFF             >
        IFZERO  MONTH-14        <
        XLIST   ON
MONMSG, TEXT    "^D^ECEMBER "                   /MONTH MESSAGE
        XLIST   OFF             >
        IFNZRO  MONMSG+7-.      <
        XLIST   ON

        ZBLOCK  MONMSG+7-.                      /EMPTY SPACE FOR ALIGNMENT

        XLIST   OFF             >
        XLIST   ON
\fTHLPMSG,TEXT   "%^T^YPE ^HELP<CR>^ FOR HELP%^" /TYPE HELP MESSAGE
YEARMSG,TEXT    "19"                            /YEAR MESSAGE
        YEAR%12^66+YEAR+6060                    /YEAR DIGITS
        TEXT    "^"                             /END OF MESSAGE
\f/      CPU-SPECIFIC PROMPT LIST.                                       /024 CJL

CPUPRMP,TEXT    "??^>^^^"       /UNKNOWN
        TEXT    "5^>^^^^"       /PDP-5
        TEXT    "8^>^^^^"       /PDP-8
        TEXT    "8^/S>^^"       /PDP-8/S
        TEXT    "LINC-8>"       /LINC-8
        TEXT    "8^/I>^^"       /PDP-8/I
        TEXT    "8^/L>^^"       /PDP-8/L
        TEXT    "12^>^^^"       /PDP-12
        TEXT    "8^/E>^^"       /PDP-8/E
        TEXT    "8^/A>^^"       /PDP-8/A
        TEXT    "78^>^^^"       /6100
        TEXT    "278^>^^"       /6120
\f/      CPU-SPECIFIC IDENTIFICATION LIST.                               /025 CJL

CPUIDLS,TEXT    "^U^NKNOWN"     /UNKNOWN
        TEXT    "^PDP^-5^^"     /PDP-5
        TEXT    "^PDP^-8^^"     /PDP-8
        TEXT    "^PDP^-8/S"     /PDP-8/S
        TEXT    "^LINC^-8^"     /LINC-8
        TEXT    "^PDP^-8/I"     /PDP-8/I
        TEXT    "^PDP^-8/L"     /PDP-8/L
        TEXT    "^PDP^-12^"     /PDP-12
        TEXT    "^PDP^-8/E"     /PDP-8/E
        TEXT    "^PDP^-8/A"     /PDP-8/A
\f       TEXT    "^VT^-78^^"     /VT-78
        TEXT    "^DEC^MATE"     /6120
\f       FIELD   MSGFLD%10                       /MESSAGE FIELD

        *FLD1ADR                                /PERMANENT LOAD ADDRESS /046 CJL
                                                /TEXT MESSAGES LOAD HERE/046 CJL

ABMSG,  TEXT    "%^F^ILE ^A^BORT%^"             /FILE ABORT MESSAGE
CMERMSG,TEXT    "?^I^NVALID COMMAND^"           /COMMAND ERROR MESSAGE
CONNMSG,TEXT    "%(^C^ONNECTING TO HOST, TYPE " /FIRST CONNECT MESSAGE
CONTMSG,TEXT    "^C^ONTROL-^"                   /CONTROL CHARACTER MESSAGE
\fCON2MSG,TEXT   " ^C^ TO RETURN TO ^"           /BRIDGING CONNECT MESSAGE
CON3MSG,TEXT    ")%^"                           /FINAL CONNECT MESSAGE
CPUMSG, ZBLOCK  5                               /CPU ID MESSAGE GOES HERE
/CRLF,  TEXT    "%"                             /<CR>, <LF> MESSAGE
DNERMSG,TEXT    "?^E^RROR IN DEVICE NAME"       /DEVICE NAME ERROR MESSAGE
DSFLMSG,TEXT    "?^D^ISK FULL!"                 /DISK OUT OF ROOM ERROR MESSAGE
FCLEMSG,TEXT    "?^E^RROR CLOSING FILE"         /FILE CLOSE ERROR MESSAGE
\fFNERMSG,       TEXT    "?^E^RROR IN FILE NAME" /FILE NAME ERROR MESSAGE
FRECMSG,TEXT    "^R^EC: ^"                      /RECEIVING FILE MESSAGE
FSENMSG,TEXT    "^S^END: ^"             /SENDING FILE MESSAGE
FSERMSG,TEXT    "?^F^ILE NAME SYNTAX ERROR"     /FILE NAME ERROR MESSAGE
\fHELPMSG,TEXT   "%^S^UPPORTED COMMANDS ARE:%%"  /HELP MESSAGE
        TEXT    "^CONNECT^ (TO REMOTE SYSTEM) %"
        TEXT    "^SEND DEV:FILNAM.EX^ %"
\f       TEXT    "^RECEIVE DEV:^ (FILENAME AND EXTENSION ^NOT^ ALLOWED)%"
        TEXT    "^GET DEV:FILNAM.EX^%"
        TEXT    "^FINISH^ (SERVER)%"
\f       TEXT    "^EXIT^ (TO OPERATING SYSTEM) %"
        TEXT    "^HELP^ (THIS MESSAGE)%"
        TEXT    "%^E^SCAPE CHARACTER: "
KERRMSG,TEXT    "%^K^EYBOARD INPUT ERROR!%"     /KEYBOARD ERROR MESSAGE

        CRLF=   .-1                             /<CR>, <LF> MESSAGE
\fNOFINIS,TEXT   "?^U^NABLE TO TELL HOST THAT "  /FINISH ERROR MESSAGE
        TEXT    "SESSION IS FINISHED"
NOTFND, TEXT    "?^U^NABLE TO LOCATE FILE^"     /FILE NOT FOUND MESSAGE
PRMTMSG,TEXT    "^K^ERMIT-^"                    /STATIC PORTION OF PROMPT MESSAGE
PROMID, ZBLOCK  23                              /MODIFIED PORTION OF PROMPT MESSAGE
PRMT2,  TEXT    "^K12>"                         /PHPH
RERRMSG,TEXT    "?^R^ECEIVE FAILURE^"           /GENERAL RECEIVE FAILURE MESSAGE
\fRFLNMSG,TEXT   "?^E^RROR IN RECEIVED FILE NAME"/RECEIVED NAME ERROR MESSAGE
        TEXT    "^"
RHFEMSG,TEXT    "^U^NABLE TO RECEIVE - HANDLER" /HANDLER FETCH ERROR MESSAGE
        TEXT    " ERROR^"
\fRIDEMSG,TEXT   "?^U^NABLE TO RECEIVE -"        /DIRECTORY FULL ERROR MESSAGE
        TEXT    " INSUFFICIENT DIRECTORY SPACE"
RIERMSG,TEXT    "%^R^EMOTE LINE INPUT ERROR!%^" /REMOTE LINE ERROR MESSAGE
\fRPERMSG,TEXT   "?^U^NABLE TO RECEIVE LATEST "  /LATEST PACKET ERROR MESSAGE
        TEXT    "PACKET^"
SDERMSG,TEXT    "?^U^NABLE TO SEND - DIRECTORY "/DIRECTORY INPUT ERROR MESSAGE
        TEXT    "ERROR"
SHFEMSG,TEXT    "?^U^NABLE TO SEND - HANDLER "  /HANDLER FETCH ERROR MESSAGE
        TEXT    "ERROR"
\fSNDEMSG,TEXT   "?^U^NABLE TO SEND"             /GENERAL SEND ERROR MESSAGE
UPERMSG,TEXT    "?^U^NABLE TO RECEIVE - DATA "  /RECEIVED DATA ERROR MESSAGE
        TEXT    "ERROR"

        $                                       /THAT'S ALL FOLK!