7 / INDEPENDENT SOURCE FILE TO ALLOW CUSTOMIZATION OF KERMIT-12.
9 / LAST EDIT: 06-SEP-1990 11:00:00 CJL
11 / THIS FILE IS PROVIDED TO USERS OF KERMIT-12 TO ALLOW CUSTOMIZED VERSIONS TO BE
12 / LOCALLY CREATED WITHOUT MODIFYING THE MAIN SOURCE (K12MIT.PAL).
14 / CREATING KERMIT-12 FROM THE STANDARD DISTRIBUTION (AND THIS FILE).
16 / KERMIT-12 IS DISTRIBUTED IN SEVERAL FILES WHICH CAN BE USED TO CREATE A
17 / RUNNING KERMIT-12 VIA SEVERAL METHODS. THE MOST DIRECT METHOD IS TO JUST
18 / ASSEMBLE THE MAIN SOURCE (K12MIT.PAL) POSSIBLY AUGMENTED BY A HEADER FILE
19 / CONTAINING CUSTOMIZING PARAMETERS (PARAM.PAL), OR TO MODIFY AND ASSEMBLE THE
20 / MAIN SOURCE FILE TO PRODUCE A CUSTOMIZED RESULT. THIS ALSO ALLOWS FOR LOCAL
21 / CHANGES TO THE SOURCE ITSELF IF NECESSARY. THE MAIN SOURCE FILE IS RATHER
22 / LARGE AND MIGHT BE DIFFICULT TO ASSEMBLE, ETC. ON SMALL SYSTEMS. MOST USERS
23 / OF KERMIT-12 WILL FIND THE STANDARD ASSEMBLY PARAMETERS SUITING THEIR LOCAL
24 / REQUIREMENTS, AS MOST USER-PREFERENCE ITEMS ARE CUSTOMIZABLE VIA THIS METHOD.
25 / THE USER OF A SMALLER SYSTEM IS ENCOURAGED TO ACQUIRE KERMIT-12 FROM A LARGER
26 / SYSTEM VIA DIRECT MEDIA COPY; AN ACCURATE LISTING OF KERMIT-12 WITH LOCAL
27 / CUSTOMIZATION COULD THEN BE AVAILABLE.
29 / SINCE IT IS NOT ALWAYS POSSIBLE FOR SMALLER INDEPENDENT USERS TO ACQUIRE
30 / KERMIT-12 FROM OTHER INSTALLATIONS, THIS FILE (K12PCH.PAL) WAS CREATED TO
31 / HANDLE MOST PARAMETER SETTINGS. VIRTUALLY ALL OF THE USER-PREFERENCE
32 / PARAMETERS, ETC. HAVE BEEN DUPLICATED HERE TO ALLOW INDEPENDENT ASSEMBLY OF
33 / THIS FILE WHICH IS SMALL ENOUGH TO ALLOW ASSEMBLY ON MODEST SYSTEMS.
35 / NOTE: USING THE METHOD DESCRIBED BELOW ASSUMES THAT ALL CHANGES REQUIRED BY
36 / THE USER HAVE BEEN UPDATED WITHIN K12PCH.PAL (THIS FILE), OR PLACED IN A
37 / SEPARATE FILE (PARAM.PAL). SEE THE ASSEMBLY PARAMETERS SECTION FOR ANY
38 / CUSTOMIZING INFORMATION.
40 / THE STANDARD DISTRIBUTION OF KERMIT-12 INCLUDES A CORE-IMAGE COPY OF K12MIT.SV
41 / WITH ALL STANDARD DEFAULT VALUES SET. IT IS AVAILABLE AS K12MIT.ENC WHICH IS
42 / A "PRINTABLE" ENCODED VERSION OF THE SAVE IMAGE. ASSEMBLING AND RUNNING THE
43 / DECODING PROGRAM K12DEC.PAL CAN PRODUCE K12MIT.SV FROM K12MIT.ENC.
45 / ASSUMING THE AVAILABILITY OF K12MIT.SV AND K12PCH.PAL ON THE DEFAULT DEVICE
46 / DSK:, THE FOLLLOWING CAN BE USED TO CREATE THE RUNNING KERMIT-12:
48 / .PAL K12PCH<PARAM,K12PCH/E/F/W ASSEMBLE CUSTOMIZED PATCH FILE.
50 / .LOAD K12MIT.SV/I$K12PCH$ LOAD IMAGE FILE K12MIT.SV WITH /I SWITCH SET.
51 / $ INDICATES USING <ESC> TO TERMINATE LINE.
52 / K12PCH.BN IS LOADED OVER K12MIT TO PATCH THE
53 / BINARY TO THE DESIRED LOCAL VERSION.
55 / .SAVE DEV KERMIT=1 SAVE RUNNING VERSION ON ANY AVAILABLE DEVICE
56 / DEV (PREFERABLY SYS).
58 / .R KERMIT OR RUN DEV KERMIT RUNNING VERSION NOW CAN BE INVOKED.
59 \f/ ASSEMBLY PARAMETERS.
61 / NOTE: EDIT NUMBERS PLACED ON VARIOUS SECTIONS OF THIS FILE REFER TO THE
62 / CORRESPONDING EDIT NUMBERS WITHIN K12MIT.PAL. SEE THE K12MIT.PAL EDIT HISTORY
63 / FOR FURTHER INFORMATION.
65 / SEVERAL PARAMETERS MUST BE CHANGED WITHIN THIS FILE (K12PCH.PAL) (OR PASSED TO
66 / THE ASSEMBLER VIA A SHORT FILE INSERTED INTO THE ASSEMBLY STREAM BEFORE THE
69 / SETTING KEY= [RECEIVE IOT CODE FOR CONSOLE KEYBOARD] DEFINES THE CONSOLE
70 / KEYBOARD IOT CODE (DEFAULT IS 03).
72 / SETTING TTY= [TRANSMIT IOT CODE FOR CONSOLE OUTPUT] CHANGES THE CONSOLE
73 / PRINTER IOT CODE (DEFAULT IS 04).
75 / THE FOLLOWING DEFINITIONS ARE ESSENTIALLY FOR KL8-TYPE DEVICES ONLY, AS THE
76 / CODE DEMANDS KL8 HARDWARE COMPATIBILITY. MODELS OTHER THAN PDP-8 (SUCH AS
77 / DECMATE) GENERALLY EITHER PLACE RESTRICTIONS ON AVAILABLE INTERFACES (OTHER
78 / SOFTWARE DESIGNATES A SERIAL INTERFACE AS A LOGICAL PRINTER PORT; DECMATES
79 / SUPPORT A FIRMWARE "PRINT SCREEN" KEY WHICH ENFORCES THIS.), OR DON'T ALLOW
80 / USABLE PLUG-IN OPTIONS.
82 / IGNORING BUILT-IN DECMATE SUPPORT, THE FOLLOWING PARAMETERS ARE ACTIVE:
84 / SETTING DEV30= 1 CREATES DEVICE 30/31 REMOTE LINE IOTS.
86 / SETTING DEV40= 1 CREATES DEVICE 40/41 REMOTE LINE IOTS.
88 / SETTING LEDERLE=1 CREATES DEVICE 43/44 REMOTE LINE IOTS (AND A CUSTOM
91 / SETTING ORIGNAL=1 CREATES DEVICE 33/34 REMOTE LINE IOTS (ORIGINAL
94 / SETTING SPRINT= 1 CREATES DEVICE 32/33 REMOTE LINE IOTS (SERIAL PRINTER
97 / SETTING USER= 1 CREATES DEVICE XX/XY REMOTE LINE IOTS.
99 / IF NONE OF THESE ARE SET, THEN DEV40=1 APPLIES BY DEFAULT.
103 / SETTING USER= 1 REQUIRES THE USER TO DEFINE TWO ADDITIONAL VALUES:
105 / XX= [RECEIVE IOT DEVICE CODE] (DEFAULT IS 40).
107 / XY= [TRANSMIT IOT DEVICE CODE] (DEFAULT IS 41).
108 \f/ SETTING SPRINT= 1 INHIBITS THE BUILT-IN CHECK FOR DECMATE OPERATION AND
109 / USES THE SERIAL PRINTER PORT FOUND ON ALL
110 / WPS-8-CONFIGURED PDP-8/E, PDP-8/A CONFIGURATIONS,
111 / VT-78, AND ALL DECMATES (VT-278, DECMATE II, III,
112 / III+) FOR REMOTE COMMUNICATIONS.
114 / THE USE OF THE SERIAL PRINTER PORT FOR REMOTE COMMUNICATIONS PURPOSES MAY BE
115 / PROBLEMATIC DUE TO CONSIDERATIONS SUCH AS THE RS-232 CONNECTION TO THE PRINTER
116 / IS A MODEM (DCE), RATHER THAN A TERMINAL (DTE) (DECMATE II, ETC. REQUIRES A
117 / GENDER CHANGER.), OR THE SOFTWARE DESIGNATION OF THE PORT AS BEING ALLEDGEDLY
118 / *ONLY* FOR A PRINTER, SUCH AS WHEN CERTAIN SYSTEMS SUPPORT THE "PRINT SCREEN"
119 / KEY AS A SCREEN DUMP TO THE SERIAL PRINTER PORT, ETC. THESE ISSUES ARE NOT
120 / RELEVANT TO KERMIT-12 OPERATION, AS THE "PRINT SCREEN" KEY IS NOT SUPPORTED BY
121 / KERMIT-12 IN THIS CONFIGURATION AS SUCH (FUTURE VERSIONS COULD REDEFINE THE
122 / "PRINT SCREEN" KEY TO SUCH FUNCTIONS AS DUMP SCREEN TO A FILE, ETC.).
124 / SETTING BRATE= NN SETS THE DEFAULT BAUD RATE (FOR SYSTEMS THAT SUPPORT
125 / THIS FEATURE) FROM A TABLE OF VALUES (0-15) AS
147 / SETTING ESCAPE= NNNN SETS THE DEFAULT ESCAPE CHARACTER TO NNNN.
149 / SETTING FLOW= 1 ENABLES FLOW-CONTROL BY DEFAULT.
150 / SETTING FLOW= 0 DISABLES FLOW-CONTROL BY DEFAULT.
152 / SETTING FMODE= 0177 SETS THE DEFAULT FILE MODE TO ASCII.
153 / SETTING FMODE= 4377 SETS THE DEFAULT FILE MODE TO BINARY.
154 \f/ SETTING GENMSG= 0 CAUSES NO BINARY TO BE GENERATED WHERE 'LCLMSG' IS
155 / DEFINED. THIS ALLOWS THE PARAMETER FILE (PARAM.PA) OR
156 / SUBSEQUENT OVERLAY BY K12PCH.BN TO DEFINE THE LOCAL
157 / HEADER MESSAGE. THIS PARAMETER SHOULD NOT BE SET
158 / UNLESS ONE OF THESE METHODS IS USED, ELSE THE HEADER
159 / MESSAGE WILL BE UNDEFINED. (NOTE: IF K12PCH.BN
160 / GENERATES A HEADER MESSAGE, THEN THIS PARAMETER IS
161 / UNIMPORTANT, AS K12PCH.BN OVERLAYS THE BINARY OF
163 / SETTING GENMSG= 1 CAUSES A HEADER MESSAGE TO BE GENERATED. THE CONTENTS
164 / OF THE MESSAGE ARE CREATED BY SETTING LEDERLE=1 OR
165 / UMSG=1. IF EITHER IS ZERO, A DEFAULT (NULL) MESSAGE
168 / SETTING ICLOSE= 1 ENSURES A <^Z> AT <EOF> OF ASCII INPUT FILES BY
170 / SETTING ICLOSE= 0 CLOSES ASCII INPUT FILES AS RECEIVED BY DEFAULT.
172 / SETTING INIECHO=0 CAUSES A FULL-DUPLEX CONNECT MODE STATE WITH NO LOCAL
173 / CHARACTER ECHOING BY DEFAULT.
174 / SETTING INIECHO=1 CAUSES A HALF-DUPLEX CONNECT MODE STATE WITH LOCAL
175 / ECHO OF ALL CONSOLE CHARACTERS BY DEFAULT.
177 / SETTING LOWER= 0 ALLOWS LOWER-CASE CONSOLE OUTPUT BY DEFAULT.
178 / SETTING LOWER= -40 FOLDS LOWER-CASE CONSOLE OUTPUT TO UPPER-CASE BY
181 / SETTING OCLOSE= 0 PREVENTS DEFAULT SENDING OF <^Z> AT <EOF> OF ASCII
183 / SETTING OCLOSE= 1 CAUSES <^Z> TO BE SENT AT <EOF> OF ASCII FILES BY
186 / SETTING PORT= 0 CAUSES THE DP-278 PORT 0 TO BE USED IF KERMIT-12 IS
187 / RUN ON A DECMATE 1 (ASSUMING SPRINT=0).
188 / SETTING PORT= 1 CAUSES THE DP-278 PORT 1 TO BE USED IF KERMIT-12 IS
189 / RUN ON A DECMATE 1 (ASSUMING SPRINT=0).
191 / SETTING RETCNT= NNNN SETS THE PACKET RETRY COUNT TO NNNN BY DEFAULT.
193 / SETTING UMSG= 0 PREVENTS THE LOCAL USER HEADER MESSAGE FROM BEING
195 / SETTING UMSG= 1 CAUSES THE LOCAL USER HEADER MESSAGE TO BE GENERATED.
196 / THE PARAMETER GENMSG=1 IS REQUIRED TO BE SET. THE
197 / SOURCE MUST BE MODIFIED LOCALLY TO CHANGE THE MESSAGE
198 / TEXT FROM "INSERT LOCAL USER MESSAGE HERE!," AS THIS
199 / IS THE DEFAULT CONTENTS.
200 \f/ PASSING SHORT PARAMETER FILES.
202 / WHEN INSERTING A SHORT USER MODIFICATION FILE IN THE INPUT STREAM (PARAM.PAL)
203 / THE FOLLOWING SHOULD BE NOTED:
205 / ALWAYS PUT THE SHORT PARAMETER FILE (CONTAINING EQUATED SYMBOLS SUCH AS
206 / USER=1, ETC.) IN FRONT OF K12PCH.PAL.
208 / IF TTY: IS USED FOR DIRECT TYPE-IN OF THESE PARAMETERS, THE INFORMATION NEED
209 / ONLY BE TYPED ENDING WITH <^Z> DURING PASS 1. SUBSEQUENT PASSES REQUIRE THE
210 / ENDING <^Z> ONLY. IF THIS METHOD IS USED, A LISTING WITHOUT THE USER INPUT
211 / WHICH DID THE CUSTOMIZING OF KERMIT-12 CAN BE CREATED. NOTE: IF BINARY IS
212 / GENERATED BY THE CONTENTS OF THE PARAMETER FILE (SUCH AS USE OF THE LOCAL TEXT
213 / MESSAGE, ETC.), THE INFORMATION MUST BE TYPED IN DURING PASS 2. THE PASS 3
214 / LISTING MAY CONTAIN THE INFORMATION IF SO DESIRED, REQUIRING A REPETITION OF
215 / THE INPUT. PASS 1 INPUT OF THE INFORMATION IS EFFECTIVELY IGNORED, AS NO
216 / DEFINITIONS ARE CREATED ('LCLMSG' IS DEFINED ELSEWHERE, ETC.).
218 / EXPERIENCED PDP-8 USERS NEW TO PAL8 VERSION B0 TAKE SPECIAL NOTICE:
220 / DUE TO HARDWARE LIMITATIONS OF THE DECMATES, THE KEYBOARD FLAG WILL BE CLEARED
221 / DURING PDP-8 PAL8 B0 OPERATION. THE KL8E TTY: HANDLER WILL NO LONGER BE ABLE
222 / TO BUFFER <^Z> DURING THE ASSEMBLY; YOU MUST WAIT UNTIL THE HANDLER ACCESSES
223 / THE KEYBOARD ON EACH PASS *THEN* PRESS <^Z> TO CONTINUE THE ASSEMBLY.
226 / CREATING A CUSTOM MESSAGE FROM THE PARAMETER FILE.
228 / IF SO DESIRED, A CUSTOM LOCAL HEADER MESSAGE MAY BE ADDED BY INSERTING THE
229 / FOLLOWING INTO THE PARAMETER FILE:
231 / BUFFLD= 10 /THESE PROBABLY
232 / FILBUFF=2000 /WON'T CHANGE!
234 / GENMSG= 0 /DON'T GENERATE STANDARD (NULL) MESSAGE
235 / UMSG= 0 /DON'T GENERATE STANDARD (DUMMY) USER MESSAGE
237 / FIELD BUFFLD%10 /FIELD FOR TEXT MESSAGE
239 / *FILBUFFER /LOCAL MESSAGE LOADS THERE
241 /LCLMSG,TEXT "%^I^NSERT ^L^OCAL ^M^ESSAGE ^H^ERE!%"
243 / ZBLOCK LCLMSG+40-. /ZERO REST OF MESSAGE AREA
245 / TEXT IS IN UPPER/LOWER-CASE SIXBIT WITH '^' MEANING SHIFT CASE (INITIALLY
246 / LOWER-CASE) AND '%' MEANING <CR>, <LF>.
247 \f/ MAINTAINING THIS PATCH FILE.
249 / IF ANY CHANGES ARE MADE TO K12MIT.PAL ITSELF WHICH MIGHT AFFECT THIS FILE, THE
250 / GLOBAL TECO MACRO (K12GLB.TEC AKA GLOBAL.TEC) SHOULD BE USED TO RESOLVE ALL
251 / EXTERNAL REFERENCES TO ROUTINES, ETC. IN K12MIT.PAL. TO UPDATE THIS FILE
252 / (K12PCH.PAL), THE FOLLOWING METHOD IS REQUIRED:
254 / .PAL ,K12MIT<DEV:K12MIT/E/F/N/W CREATE "SYMBOLS" LISTING FILE ON DSK:
255 / .MUNG K12GLB.TEC,K12PCH UPDATE THIS FILE ON DSK:
257 / N.B., DSK:K12PCH.PAL WILL BE UPDATED *WITH NO BACKUP*. DSK:EQUATE.TMP WILL BE
258 / CREATED AS AN ARTIFACT. IT CONTAINS THE ACTUAL EQUATE STATEMENTS WHICH WERE
259 / UPDATED IN K12PCH.PAL.
261 / THIS WILL MODIFY THE EQUATED SYMBOLS BELOW IN THE SPECIALLY DELIMITED AREA.
262 / ONLY EQUATED SYMBOLS (AND ANY WHITESPACE) SHOULD BE PLACED BETWEEN THE SPECIAL
263 / DELIMITERS: "<CR><LF>//" WHICH ARE USED BY THE MACRO TO LOCATE THE GLOBAL
266 / AS NEW FEATURES ARE ADDED/(DELETED) IN K12MIT.PAL, THE APPROPRIATE DEFINITIONS
267 / AND CONDITIONAL ASSEMBLY PARAMETERS SHOULD BE ADDED TO BOTH K12MIT.PAL AND
268 / K12PCH.PAL FOR CONSISTENCY AND USER FLEXIBILITY.
269 \f/ DEFINITIONS. /017 CJL
271 / REMOTE LINE PARAMETERS; SET ONLY ONE AS NECESSARY. /046 CJL
273 IFNDEF DEV30 <DEV30= 0> /USE DEVICE 30/31 VALUES
274 IFNDEF DEV40 <DEV40= 0> /USE DEVICE 40/41 VALUES
275 IFNDEF LEDERLE <LEDERLE=0> /USE LEDERLE LABS VALUES
276 IFNDEF ORIGNAL <ORIGNAL=0> /USE ORIGINAL VALUES
277 IFNDEF SPRINT <SPRINT=0> /USE DEVICE 32/33 VALUES
278 IFNDEF USER <USER= 0> /USE USER-DEFINED VALUES
280 REMOTE= DEV30+DEV40+LEDERLE+ORIGNAL /SET REMOTE LINE IOT CODE
281 REMOTE= REMOTE+SPRINT+USER /SET REMOTE LINE IOT CODE
283 IFZERO REMOTE <DEV40= 1> /DEFAULT TO DEVICE 40/41 VERSION
289 IFNDEF REC <REC= 30> /DEVICE 30 INPUT
290 IFNDEF SEN <SEN= 31> /DEVICE 31 OUTPUT
294 / DEV40 PARAMETERS (DEFAULT).
298 IFNDEF REC <REC= 40> /DEVICE 40 INPUT
299 IFNDEF SEN <SEN= 41> /DEVICE 41 OUTPUT
303 / LEDERLE PARAMETERS. /038 CJL
307 IFNDEF REC <REC= 43> /DEVICE 43 INPUT
308 IFNDEF SEN <SEN= 44> /DEVICE 44 OUTPUT
309 IFNDEF GENMSG <GENMSG=1> /GENERATE LOCAL HEADER MESSAGE
310 IFNDEF UMSG <UMSG= 0> /DON'T GENERATE USER MESSAGE
314 / ORIGNAL PARAMETERS.
318 IFNDEF REC <REC= 33> /DEVICE 33 INPUT
319 IFNDEF SEN <SEN= 34> /DEVICE 34 OUTPUT
322 \f/ SPRINT PARAMETERS. /046 CJL
326 IFNDEF REC <REC= 32> /DEVICE 32 INPUT
327 IFNDEF SEN <SEN= 33> /DEVICE 33 OUTPUT
335 IFNDEF XX <XX= 40> /DEFAULT TO DEVICE 40
336 IFNDEF XY <XY= 41> /DEFAULT TO DEVICE 41
337 IFNDEF REC <REC= XX> /DEVICE XX INPUT
338 IFNDEF SEN <SEN= XY> /DEVICE XY OUTPUT
339 IFNDEF GENMSG <GENMSG=1> /GENERATE LOCAL HEADER MESSAGE
340 IFNDEF UMSG <UMSG= 1> /GENERATE USER MESSAGE
344 / REMOTE LINE IOT DEFINITIONS.
346 / RECEIVE DEFINITIONS.
348 RKRBIOT=REC^10+6006 /READ REMOTE, CLEAR FLAG
349 RKSFIOT=REC^10+6001 /SKIP ON REMOTE INPUT FLAG
351 / TRANSMIT DEFINITIONS.
353 RSBIOT= SEN^10+6003 /SET BAUD RATE FROM AC[8-11]
354 RTLSIOT=SEN^10+6006 /TRANSMIT CHARACTER, CLEAR FLAG
355 RTSFIOT=SEN^10+6001 /SKIP ON TRANSMIT FLAG
357 / CONSOLE TTY: DEFINITIONS. /017 CJL
359 / KEYBOARD DEFINITIONS. /017 CJL
361 IFNDEF KEY <KEY= 03> /KEYBOARD DEVICE CODE
363 KCCIOT= KEY^10+6002 /CLEAR CONSOLE KEYBOARD FLAG, AC
364 KRBIOT= KEY^10+6006 /READ CONSOLE KEYBOARD BUFFER, CLEAR FLAG
365 KRSIOT= KEY^10+6004 /READ CONSOLE KEYBOARD BUFFER STATIC
366 KSFIOT= KEY^10+6001 /SKIP ON CONSOLE KEYBOARD FLAG
368 / TELEPRINTER DEFINITIONS. /017 CJL
370 IFNDEF TTY <TTY= 04> /TELEPRINTER DEVICE CODE
372 TLSIOT= TTY^10+6006 /PRINT CHARACTER, CLEAR FLAG
373 TSFIOT= TTY^10+6001 /SKIP ON TELEPRINTER FLAG
374 \f/ DEFAULT ESCAPE CHARACTER DEFINITION. /025 CJL
376 IFNDEF ESCAPE <ESCAPE="]&37> /DEFAULT IS CONTROL-]
378 / DEFAULT LOWER-CASE ENABLE DEFINITION. /030 CJL
380 IFNDEF LOWER <LOWER= 0/-40> /LOWER-CASE IS ALLOWED AS IS
381 /CHANGE TO -40 IF LOWER-CASE
382 /SHOULD BE FOLDED TO UPPER-CASE
384 / DEFAULT RETRY COUNT DEFINITION. /031 CJL
386 IFNDEF RETCNT <RETCNT=5> /DEFAULT IS FIVE RETRIES
388 / DEFAULT FILE MODE DEFINITION. /031 CJL
390 IFNDEF FMODE <FMODE= 0177> /DEFAULT IS ASCII FILE MODE
391 /4377 IS BINARY FILE MODE
393 / DEFAULT FLOW-CONTROL MODE DEFINITION. /031 CJL
395 IFNDEF FLOW <FLOW= 1> /DEFAULT IS FLOW-CONTROL ENABLED
397 / DEFAULT ASCII INPUT FILE <^Z> DISPOSITION. /031 CJL
399 IFNDEF ICLOSE <ICLOSE=1> /ENSURE <^Z> AT ASCII <EOF>
401 / DEFAULT ASCII OUTPUT FILE <^Z> DISPOSITION. /031 CJL
403 IFNDEF OCLOSE <OCLOSE=0> /<^Z> NOT SENT AT ASCII <EOF>
405 / DEFAULT LOCAL MESSAGE GENERATION DEFINITIONS. /038 CJL
407 IFNDEF GENMSG <GENMSG=1> /DEFAULT IS TO GENERATE A MESSAGE
408 IFNDEF UMSG <UMSG= 0> /DEFAULT IS NO DUMMY USER MESSAGE
409 IFNDEF LEDERLE <LEDERLE=0> /DEFAULT IS NO LEDERLE MESSAGE
411 / THE NULL MESSAGE WILL BE GENERATED BY DEFAULT.
413 / ECHO DEFINITION. /039 CJL
415 IFNDEF INIECHO <INIECHO=0> /DEFUALT IS NO LOCAL ECHO
417 / DEFAULT DECMATE I PORT DEFINITION. /050 CJL
419 IFNDEF PORT <PORT= 0> /DEFAULT IS PORT ZERO
421 / DEFAULT BAUD RATE DEFINITION. /050 CJL
423 IFNDEF BRATE <BRATE= 7> /DEFAULT IS 1200 BAUD
425 // GLOBAL EQUATED SYMBOLS FROM K12MIT.PAL.
427 BUFFLD= 0010 /I/O BUFFER FIELD
428 CMOUT4= 0712 /REMOTE OUTPUT WRITE
429 CONTLS= 5701 /CONSOLE OUTPUT WRITE
430 CONTSF= 5677 /CONSOLE OUTPUT TEST
431 COUTINI=6601 /CONSOLE OUTPUT WRITE
432 DAYMSG= 2145 /DAY MESSAGE
433 DIRXR= 0012 /DIRECTORY AUTO-INDEX
434 ECHOFLA=5153 /ECHO FLAG
435 ESCHAR= 0101 /ESCAPE CHARACTER
436 FILBUFF=2000 /FILE BUFFER
437 FILMODE=0075 /INTERNAL FILE MODE FLAG
438 FLOWFLA=0102 /FLOW CONTROL FLAG
439 ICTLZFL=4033 /INPUT <^Z> FLAG
440 INMSG2= 2242 /INITIAL MESSAGE
441 INMSG3= 2243 /INITIAL MESSAGE
442 INREAD= 0640 /REMOTE INPUT READ
443 INSKIP= 0636 /REMOTE INPUT SKIP
444 KCCZAP= 6501 /CONSOLE INPUT CLEAR
445 KCCZP2= 6546 /CONSOLE INPUT CLEAR
446 KGTEST= 5250 /CONSOLE INPUT TEST
447 KGREAD= 5252 /CONSOLE INPUT READ
448 KRSZAP= 6472 /CONSOLE KEYBOARD READ
449 KSFLOC= 6470 /CONSOLE KEYBOARD SKIP
450 LCLMSG= 2000 /LOCAL USER MESSAGE
451 MONMSG= 2246 /MONTH MESSAGE
452 MSGFLD= 0010 /TEXT MESSAGE FIELD
453 NOWAIT= 0705 /REMOTE OUTPUT SKIP
454 OCTLZFL=3762 /OUTPUT <^Z> FLAG
455 PRGFLD= 0000 /PROGRAM FIELD
456 P7TLS= 6540 /CONSOLE OUTPUT WRITE
457 P7TSF= 6536 /CONSOLE OUTPUT TEST
458 RATE= 0007 /BAUD RATE
459 REMTLS= 5726 /REMOTE OUTPUT WRITE
460 REMTSF= 5724 /REMOTE OUTPUT TEST
461 RETRY= 0033 /RETRY COUNT
462 RININIT=6613 /REMOTE INPUT READ
463 RINREAD=5505 /REMOTE INPUT READ
464 RINTEST=5503 /REMOTE INPUT TEST
465 ROUTINI=6612 /REMOTE OUTPUT WRITE
466 UPONLY= 0076 /UPPER-CASE ONLY FLAG
467 YEARMSG=2274 /YEAR MESSAGE
469 // END OF GLOBAL SYMBOLS FROM K12MIT.PAL
472 NL7777= CLA CMA /LOAD AC WITH 7777
473 \f/ STATIC DATE CALCULATIONS. /024 CJL
475 / THESE EQUATIONS CAUSE PRINTABLE TEXT OF THE DATE PARTICULARS, WHICH ARE GIVEN
476 / IN OS/8 INTERNAL FORMAT. PROGRAM MAINTAINENCE REQUIRES THE UPDATE OF VERSION,
477 / REVISION, REVDATE, AND REVDGRP. REVDATE AND REVDGRP SHOULD BE OBTAINED FROM
478 / THE SYSTEM WHEN RELEASING A NEW VERSION AFTER FIRST CORRECTLY INVOKING THE
479 / SYSTEM DATE COMMAND.
481 / VERSION=[ANY NUMBER IN THE RANGE 00-143 (DECIMAL 00-99)]
483 / REVISIO=[ANY SIX-BIT ALPHA (A-Z); DO NOT FORGET &77]
485 / REVDATE=[THE CONTENTS OF 17666 (DATE WORD)]
487 / REVDGRP=[THE CONTENTS OF 07777 (ONLY BITS[3-4] ARE USED)]
491 IFNDEF REVDATE <REVDATE=4464> /REVISION DATE (LOCATION 17666)
493 IFNDEF REVDGRP <REVDGRP=0400> /REVISION 8 YEAR DATE GROUP (LOCATION 07777)
495 IFNDEF REVISIO <REVISIO="G&77> /REVISION OF KERMIT-12
497 IFNDEF VERSION <VERSION=12> /VERSION OF KERMIT-12
500 DAY= REVDATE&370%10 /REVISION DAY
502 DGROUP= REVDGRP&600%20 /REVISION DATE GROUP (WHICH 8 YEARS)
504 MONTH= REVDATE&7400%400 /REVISION MONTH
506 YEAR= REVDATE&7+DGROUP+106 /REVISION YEAR (SINCE 1900)
507 \f/ PATCHED LOCATIONS.
509 FIELD PRGFLD%10 /OVER MAIN PROGRAM CODE
511 *RATE /OVER BAUD RATE VALUE
513 RATE, BRATE /BAUD RATE VALUE /050 CJL
515 *RETRY /OVER PACKET ERROR RETRY COUNTER
517 RETRY, -RETCNT /PACKET ERROR RETRY COUNTER /031 CJL
519 *FILMODE /OVER INTERNAL FILE MODE FLAG
521 FILMODE,FMODE /ASCII=0177, BINARY=4377 /019 CJL
523 *UPONLY /OVER UPPER-CASE ONLY FLAG
525 / UPPER-CASE ONLY FLAG. /023 CJL
527 UPONLY, LOWER /0=UPPER/LOWER CASE, -40=UPPER-CASE ONLY/030 CJL
529 *ESCHAR /OVER ESCAPE CHARACTER FOR CONNECT MODE
531 / ESCAPE CHARACTER FOR CONNECT MODE. /025 CJL
533 ESCHAR, ESCAPE /ESCAPE CHARACTER FOR CONNECT MODE /025 CJL
535 *FLOWFLAG /OVER FLOW CONTROL FLAG
537 / FLOW CONTROL FLAG. /026 CJL
539 FLOWFLA,FLOW /0=NO FLOW CONTROL, NON-ZERO=FLOW /026 CJL
540 /CONTROL VIA <^S>/<^Q>
543 / REMOTE LINE (NON-CONNECT) PATCHES.
545 / INPUT ROUTINE PATCHES.
547 *INSKIP /OVER REMOTE INPUT SKIP
549 INSKIP, RKSFIOT /FLAG UP YET? /049 CJL
551 *INREAD /OVER REMOTE INPUT READ
553 INREAD, RKRBIOT /GET THE CHARACTER /049 CJL
555 / OUTPUT ROUTINE PATCHES.
557 *NOWAIT /OVER REMOTE OUTPUT SKIP
559 NOWAIT, RTSFIOT /OUTPUT FLAG UP? /049 CJL
561 *CMOUT4 /OVER REMOTE OUTPUT WRITE
563 CMOUT4, RTLSIOT /YES, OUTPUT THE CHARACTER NOW /049 CJL
565 / INITIALIZATION PATCHES.
567 *DIRXR /OVER DECMATE I PORT SELECT
569 DIRXR, PORT /DECMATE I PORT SELECT VALUE /050 CJL
571 *ROUTINITIALIZE /OVER REMOTE OUTPUT WRITE
573 ROUTINI,RTLSIOT /INITIALIZE REMOTE OUTPUT /046 CJL
575 *RININITIALIZE /OVER REMOTE INPUT READ
577 RININIT,RKRBIOT /INITIALIZE REMOTE INPUT /046 CJL
578 \f/ CONSOLE (NON-CONNECT) PATCHES.
580 / INPUT ROUTINE PATCHES.
582 *KSFLOC /OVER CONSOLE INPUT ROUTINE
584 KSFLOC, KSFIOT /SKIP ON KEYBOARD FLAG /023 CJL
586 *KRSZAP /OVER CONSOLE INPUT ROUTINE
588 KRSZAP, KRSIOT /READ KEYBOARD BUFFER /023 CJL
590 *KCCZAP /OVER CONSOLE INPUT ROUTINE
592 KCCZAP, KCCIOT /CLEAR KEYBOARD FLAG /023 CJL
594 *KCCZP2 /OVER CONSOLE INPUT ROUTINE
596 KCCZP2, KCCIOT /CLEAR KEYBOARD FLAG, AC /023 CJL
598 / OUTPUT ROUTINE PATCHES.
600 *P7TSF /OVER CONSOLE OUTPUT ROUTINE
602 P7TSF, TSFIOT /TEST IF OUTPUT READY /023 CJL
604 *P7TLS /OVER CONSOLE OUTPUT ROUTINE
606 P7TLS, TLSIOT /OUTPUT THE CHARACTER /023 CJL
608 / INITIALIZATION PATCH.
610 *COUTINIALIZE /OVER CONSOLE INITIALIZE
612 COUTINI,TLSIOT /INITIALIZE CONSOLE OUTPUT FLAG /046 CJL
613 \f/ CONNECT ROUTINE PATCHES.
615 *KGTEST /OVER KEYBOARD TEST
617 KGTEST, KSFIOT /SKIP ON KEYBOARD FLAG /047 CJL
619 *KGREAD /OVER KEYBOARD READ
621 KGREAD, KRBIOT /READ KEYBOARD BUFFER, CLEAR FLAG /047 CJL
623 *CONTSF /OVER CONSOLE OUTPUT TEST
625 CONTSF, TSFIOT /SKIP ON CONSOLE OUTPUT FLAG /047 CJL
627 *CONTLS /OVER CONSOLE OUTPUT WRITE
629 CONTLS, TLSIOT /OUTPUT TO CONSOLE /047 CJL
631 *RINTEST /OVER REMOTE TEST
633 RINTEST,RKSFIOT /SKIP ON REMOTE INPUT FLAG /047 CJL
635 *RINREAD /OVER REMOTE READ
637 RINREAD,RKRBIOT /READ REMOTE CHARACTER /047 CJL
639 *REMTSF /OVER REMOTE OUTPUT TEST
641 REMTSF, RTSFIOT /SKIP ON REMOTE OUTPUT FLAG /047 CJL
643 *REMTLS /OVER REMOTE OUTPUT WRITE
645 REMTLS, RTLSIOT /OUTPUT TO REMOTE /047 CJL
647 / ADDITIONAL PATCHES.
649 *OCTLZFLAG /OVER ASCII OUTPUT FILE <^Z> FLAG
651 / ASCII FILE MODE <^Z> OUTPUT DISPOSITION FLAG.
653 OCTLZFL,OCLOSE /ZERO=DON'T SEND <^Z> AT <EOF>,
654 /NON-ZERO=SEND <^Z> AT <EOF>
656 *ICTLZFLAG /OVER ASCII INPUT FILE <^Z> FLAG
658 / ASCII FILE MODE <^Z> INPUT DISPOSITION FLAG.
660 ICTLZFL,ICLOSE /ZERO=DON'T ENSURE <^Z> IN FILE, NON-ZERO=PACK <^Z>
661 /IF LAST CHARACTER WASN'T <^Z>
663 *ECHOFLAG /OVER ECHO FLAG
665 ECHOFLA,INIECHO /0=DON'T ECHO, NON-ZERO=ECHO
666 \f/ ONCE-ONLY TEXT MESSAGES. /024 CJL
668 FIELD BUFFLD%10 /FILE I/O BUFFER FIELD
670 *FILBUFFER /OVER FILE I/O BUFFER
672 / LOCAL PREFERENCE MESSAGE. /024 CJL
674 / USE SOMETHING APPROPRIATE HERE TO CUSTOMIZE KERMIT-12 TO YOUR MACHINE.
676 / THIS LOCATION SHOULD BE MAINTAINED SINCE IT IS DOCUMENTED TO BE HERE.
681 LCLMSG, *LCLMSG+40 /EMPTY HOLE FOR USER MESSAGE /039 CJL
687 LCLMSG, TEXT "%^T^HANKS TO: ^B^ILL ^S^MITH AND ^D^INGER ^M^ILLER%"
692 LCLMSG, TEXT "%^I^NSERT LOCAL USER MESSAGE HERE!%^"
695 IFZERO LEDERLE!UMSG <
697 LCLMSG, TEXT "^^^^^^^^^^^^^^^^^^^^^^"/DEFAULT IS NO MESSAGE
702 ZBLOCK LCLMSG+40-. /LEAVE PATCHING SPACE
707 \f *DAYMSG /OVER DAY OF THE MONTH MESSAGE
709 DAYMSG, DAY%12^66+DAY+6060 /DAY MESSAGE
711 *INMSG2 /OVER INITIAL MESSAGE
713 INMSG2, VERSION%12^66+VERSION+6060 /VERSION DIGITS
715 *INMSG3 /OVER INITIAL MESSAGE
717 INMSG3, "^^100+REVISION /REVISION
719 *MONMSG /OVER MONTH MESSAGE
724 MONMSG, TEXT "^J^ANUARY ^" /MONTH MESSAGE
728 MONMSG, TEXT "^F^EBRUARY " /MONTH MESSAGE
732 MONMSG, TEXT "^M^ARCH ^" /MONTH MESSAGE
736 MONMSG, TEXT "^A^PRIL ^" /MONTH MESSAGE
740 MONMSG, TEXT "^M^AY ^" /MONTH MESSAGE
744 MONMSG, TEXT "^J^UNE " /MONTH MESSAGE
748 MONMSG, TEXT "^J^ULY " /MONTH MESSAGE
752 MONMSG, TEXT "^A^UGUST " /MONTH MESSAGE
756 MONMSG, TEXT "^S^EPTEMBER ^" /MONTH MESSAGE
760 MONMSG, TEXT "^O^CTOBER ^" /MONTH MESSAGE
764 MONMSG, TEXT "^N^OVEMBER " /MONTH MESSAGE
768 MONMSG, TEXT "^D^ECEMBER " /MONTH MESSAGE
773 ZBLOCK MONMSG+7-. /EMPTY SPACE FOR ALIGNMENT
778 *YEARMSG /OVER YEAR MESSAGE
780 YEARMSG,TEXT "19" /YEAR MESSAGE
781 YEAR%12^66+YEAR+6060 /YEAR DIGITS