PiDP-8/I Software

    crt         1  "CRT-style rubout processing"
    dcp         1  "the DCP disassembler"
    e8          1  "Emacs-like Editor"
    focal69     0  "FOCAL,1969"
    fortran-ii  1  "FORTRAN II"
    fortran-iv  1  "FORTRAN IV"
    init        1  "the OS/8 INIT message"
    kermit-12   1  "12-bit Kermit"
    macrel      1  "the MACREL assembler"
    music       0  "*.MU files"
    uwfocal     1  "U/W FOCAL (only)"
    vtedit      0  "the TECO VTEDIT setup"
}

set alloptions {}

OS/8. Some of the data on these tapes could potentially be used with
other PDP-8 operating systems, but at minimum, it would require
translating the data from OS/8 tape format.


| DECtape Image File Name | Content Description
| ----------------------------------------------------------------------------

| `music.tu56`            | [RFI-based][rfi] music playback programs


## Controlling the Build Process

Most of these files are merged into the OS/8 binary disk image by
default, but can be excluded by giving a `--disable-os8-NAME` flag to

# Script to build Kermit-12 from source to create
# kermit-12.tu56 install image.
# We build with the OS8_TOOLTIME packs: v3d-patched.rk05

mount rk0 $os8mo/v3d-patched.rk05 required scratch
mount rk1 $os8mo/kermit-12.rk05 new
boot rk0

os8 ZERO RKA1:
os8 ZERO RKB1:

# Copy source files onto the tape image.
cpto $src/src/kermit-12/k12mit.pal RKA1:K12MIT.PA
cpto $src/src/kermit-12/k12clr.pal RKA1:K12CLR.PA
cpto $src/src/kermit-12/k12deb.pal RKA1:DEBOO.PA
cpto $src/src/kermit-12/k12dec.pal RKA1:DECODE.PA
cpto $src/src/kermit-12/k12enb.pal RKA1:ENBOO.PA
cpto $src/src/kermit-12/k12enc.pal RKA1:ENCODE.PA
cpto $src/src/kermit-12/k12ipg.pal RKA1:IPLGEN.PA
cpto $src/src/kermit-12/k12ipl.pal RKA1:IPL.PA
cpto $src/src/kermit-12/k12prm.pal RKA1:PARAM.PA
cpto $src/src/kermit-12/k12pch.pal RKA1:K12PCH.PA

pal8 RKA1:K12MIT.BN<RKA1:PARAM.PA,RKA1:K12MIT.PA (EFMW)
pal8 RKA1:K12CLR.BN<RKA1:K12CLR.PA
pal8 RKA1:IPLGEN.BN<RKA1:IPLGEN.PA
os8 LOAD RKA1:K12CLR.BN,RKA1:K12MIT.BN
os8 SAVE RKA1:K12MIT.SV=1

pal8 RKA1:ENBOO.BN<RKA1:ENBOO.PA /E/F
os8 SAVE RKA1:ENBOO.SV=2001

pal8 RKA1:DEBOO.BN<RKA1:DEBOO.PA /E/F
os8 SAVE RKA1:DEBOO.SV=0

pal8 RKA1:ENCODE.BN<RKA1:ENCODE.PA /E/F
os8 SAVE RKA1:ENCODE.SV=2001

pal8 RKA1:DECODE.BN<RKA1:DECODE.PA
os8 SAVE RKA1:DECODE.SV=0

begin enabled music
print Music score files and source code
mount dt1 $os8mi/subsys/music.tu56 ro required
os8 COPY RKB0:<DTA1:*.*
umount dt1
end enabled music








# FORTRAN IV
begin default fortran-iv
# rk1 holds the FORTRAN IV object image
mount rk1 $os8mo/ock-fiv-obj.rk05
os8 COPY RKA0:<RKB1:*.*
umount rk1
end default fortran-iv

begin enabled music
umount dt1
mount dt1 $os8mi/subsys/music.tu56 ro required
# resume
os8 COPY RKB0:<DTA1:*.*
end enabled music









# FORTRAN IV
begin default fortran-iv
umount dt1
mount dt1 $os8mi/subsys/al-4549d-ba-fr4-v3d-1.1978.tu56 ro required
# resume
os8 COPY RKA0:<DTA1:*.*
end default fortran-iv

# Kermit-12 Package File

format:
rk05
inputs:
src/kermit-12/README.md
src/kermit-12/k12clr.pal
src/kermit-12/k12crf.boo
src/kermit-12/k12crf.enc
src/kermit-12/k12deb.pal
src/kermit-12/k12dec.pal
src/kermit-12/k12enb.pal
src/kermit-12/k12enc.doc
src/kermit-12/k12enc.pal
src/kermit-12/k12fl0.ipl
src/kermit-12/k12fl1.ipl
src/kermit-12/k12glb.boo
src/kermit-12/k12glb.enc
src/kermit-12/k12ip0.odt
src/kermit-12/k12ip1.odt
src/kermit-12/k12ipg.pal
src/kermit-12/k12ipl.doc
src/kermit-12/k12ipl.pal
src/kermit-12/k12mit.ann
src/kermit-12/k12mit.boo
src/kermit-12/k12mit.bwr
src/kermit-12/k12mit.doc
src/kermit-12/k12mit.dsk
src/kermit-12/k12mit.enc
src/kermit-12/k12mit.lst
src/kermit-12/k12mit.not
src/kermit-12/k12mit.pal
src/kermit-12/k12mit.upd
src/kermit-12/k12pch.pal
src/kermit-12/k12pl8.boo
src/kermit-12/k12pl8.enc
src/kermit-12/k12prm.pal
outputs:
SYS:<RKA1:K12MIT.SV
SYS:<RKA1:ENBOO.SV
SYS:<RKA1:DEBOO.SV
SYS:<RKA1:ENCODE.SV
SYS:<RKA1:ENCODE.SV
DSK:<RKA1:K12CLR.BN
DSK:<RKA1:IPLGEN.BN
DSK:<RKA1:PARAM.PA
DSK:<RKA1:IPL.PA
DSK:<RKA1:K12PCH.PA
DSK:<RKA1:K12MIT.PA

# KERMIT-12: Kermit Software for the Digital Equipment Corporation PDP-8 and PDP-12

Written by Jerry Sands, Randy Hippe, Martyn Hemmings, Sepp Stadelmann, Richard Schlerf, and Charles Lasner.

The codeline here uses [Columbia Kermit-12 Archive Distribution k12.tar.gz][k12-dist] as upstream.
Another source is [ibiblio.org k12][ibiblio].  The Columbia Archive has two differences: text files k12mit.not,
and k12mit.dsk are more up-to-date.

[kermitproject.org][org-project] says:

Kermit is a robust transport-independent file-transfer protocol and a large collection of software programs
that implement it on a [wide variety of platforms][platforms]. In addition to file transfer, many of these programs also
make network, dialed, and/or serial-port connections and also offer features such as terminal emulation,
character-set conversion, and scripting for automation of any communication or file-management task.
The Kermit Project originated at Columbia University in New York City in 1981 and remained there for 30 years.
Since 2011 it is independent. [CLICK HERE][project] for more about the Kermit Project.

The [Kermit-12 Site at Columbia][columbia-k12] was frozen in 2011, but still has useful information
(even though many links there no longer work.) Excerpts from that page:

Kermit-12 was written for DEC 12-bit processors including PDP-8, the PDP-12 laboratory computer,
and the DECmate I, II, and III, WT-78, VT-78, and VT-278 word processors.

It runs under OS/8, OS/78, OS/278, and OS/12.

File types found in the Kermit-12 distribution are:

| File type | Description
| --------- | -------------------------------------------------
| .ann	    | Announcements (plain ASCII text).
| .boo	    | ASCII-encoded binary encoding to be decoded by k12deb.sv
| .bwr	    | "Beware" file (hints and tips).
| .doc	    | Plain-text ASCII documentation.
| .dsk	    | Description of files (plain text).
| .enc	    | ASCII-encoded 12-bit binary encoding to be decoded by k12dec.sv
| .ipl	    | Initial program ("bootstrap") loader.
| .lst	    | Load map.
| .not	    | Notes.
| .odt	    | Octal Debugging Technique (bootstrapping).
| .pal	    | PAL-8 assembly language source code.
| .upd	    | Update notes.

## Operating Instructions

(Extracted from k12mit.pal)

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.

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


[platforms]: http://www.kermitproject.org/archive.html
[project]: http://www.kermitproject.org/kermit.html
[columbia-k12]: http://www.columbia.edu/kermit/pdp8.html
[org-project]: http://www.kermitproject.org/
[k12-dist]: http://www.columbia.edu/kermit/ftp/archives/k12.tar.gz
[ibiblio]: http://www.ibiblio.org/pub/academic/computer-science/history/pdp-8/kermit/k12/

/	MEMORY CLEAR

/	THIS FILE  IS  USED TO PRE-CLEAR MEMORY WHEN LOADING KERMIT-12.  THE RESULTING
/	"CLEANER"  CORE-IMAGE  FILE  WILL  BE  SMALLER  WHEN  ENCODED  DUE  TO  REPEAT
/	COMPRESSION OF THE CLEARED  AREAS  OF MEMORY, AS OPPOSED TO RANDOM RELICS LEFT
/	THERE BY OS/8.

/	LAST EDIT:	30-AUG-1990	09:00		CJL

	FIELD	0		/GOING TO FIELD ONE

	*0			/START AT THE BEGINNING

	ZBLOCK	7600		/CLEAR FIELD ZERO

	FIELD	1		/GOING TO FIELD ONE

	*0			/START AT THE BEGINNING

	ZBLOCK	7600		/CLEAR FIELD ONE

	$			/THAT'S ALL FOLK!

CREF.SV
oX?lP44408030422>2Lg;cXj80PR>24H4QPE2cH85APE<PT<5@\e?RPZ=@`E?@0;=1`E418[1c81
;cX000hg6`HB=c893`H3<a\6>R0?<P\66`H?1S81;SL000\a21DH5A`E41DZ:W4a00<07`0?800[
7P042`0:00PQ1Sl6<chT1b4800lW02F0P820P820P9X0~~~~~~~3]YX<0@2P~6OonO~3RNKb3dML
XYL0~<M_[o7P00~6B0000803o`3`~3P94;0P00~=O`T8180G20lfO[T0a6o46?bLm_ooSO\0O@Ml
AW\PDPokn_md5_F:S@20O`1\B5SoPC2>74`200Ro7A2Pd0oo?g00oRo0P2838@:`203l1?20LaoP
oCmeH400ic>0C;D?P0n5R?J9nTlI2a69Q`ooo[\0~;P87\RC0fNa\VUgXV<7Ti6i9:N?>efnVS
jNUdO?bITH2RAX7R1X;R1X3R^X22A03PROg3PBS?o8T\oH5lZ@2`nbPo\oZgR@c3POW7R@c3?`aS
POS;0<4>9oMSmRP?`TZn22OVm@2`RGO3M_@2e]ISPLg;0:0>RYJj0h<6PdH^18?R1X?RjNUbnj0_
X8?VW8:P321RNJ0_jWbijmR^87QRkf[i>?l?dLm4c^Y84h@oQH28MGBIonZHo`RC4g=Y`B8?ScnT
PgFYPa>RZbP_L_jb:83joJP_P3nT27Gi5:1:LBPVL:JJ5:`XKfhY4fdRZ8?jK06o02P25BQRX6_b
iNIVinQVJQ8V5D0^:10_`1FVJNDVP?cR;O]R5aER@1OS4<cj;LIJ8AOS8AOT;A94aVZR4_aR;BeS
jNTVjJP_nRdSJ7XY;A94enVV[02`~74@8826<C4f8Xn?Yj4i8JX2o]jZ]djY_`@O1UgamcWPKX
:2l@22H84cIc`I0V2?oNLjV`A`l8foZFLjWK8Pl8g_[Q4h;oX2nM2:;X7V:Xa?XCoR:X0OkYIfTS
]@X^IR8ERF`E5CJ1oLTE7[86f>noL:TUIkTQ_@[l_iZnIJUToIWYX2okj[XC6R:Pb_[Xnf\CoR8X
b?[j:2l8Hd8X:o]Z:2oin;:Pj_[g7[:XQ?XCHRV40:1k6bKf72HMhF\0~24olRZ?_kQ02PKcTR
>Nm[7m<47S06cCKf3@<1`^LfDDGo0:066l0_P:2bHOl2H?kboAdTTAbS71adWDB^f=QRAQGV5DH^
5MPR7:1n7A]T083[~3XMLffMMSf=MTemLff24^edP^:=Wdf2lVla:4@8W\2h4lH20>2R0nX<;j
4[A:XLi:fJ0_bRnR4:Wjf:YZ;aP_0BoV;b0_dbnTcTJ^;Z5TX@2`~3O1C_O7coO7coO7coT@R`
10@010@010@002P?lOnRH5obHEhRjP2`;dH^A0\VG@XVJQ8Vlan`l>7o0?l98R0^8nP_Z2:T8TH^
5aMRJQDV5B0^;Q8VRAG35b1n5ADV81OR5a9TTh6\P6[R4PYSR@_7PA;4XH2[OPJF^_j2Z:[j4b4^
_kYX_jP_G1>bKJP_G;6j00P34a=R^P2`02h2IQDVRAG3b<oj::P_ce^R5ADg84CR4V1R5ADE06KR
b=cj4]5:PL3;PGk9:P1PIS0V;j1^8R4^4V]R<30V;oe9lhU\<2Pon4BR5@9_5AEdFQDWPA;4imn[
7<`SH7?b9_m;oP6N8V1R>3P6JcTV=RV6FEPW<OeR:ALV5c<f:B0^4U1^11;TV2fV:O`R=2UREoHV
mSAc>OLV>DX^EQ86<B4^<aDVRCW35VIR>CTV5\P_c3VSH342<HU\>F0`PD3>maP_gV2^5I0_gXV\
5CTW<C54PA;2mRab;JP?eV^RmoLV4R0^8RP_nc:f>JI:P2WT:D0^9i0_m3:RA?[PECPVnOJC0B;V
=XV<X3WWPOS;nHjJ~3m^la`?EcHUXRKP1TIb6@G<:hG<bh]a=R]20_\jP_0K;VRAG35KMRT`9_
5LPoXBRRZ:7j]KN2W@9_5E\b5H5l5;DX\ZP_G:2n5ADV]j`V0QCb8AGWPEc;0>l?E03`5`9_5F0`
8AGR5QMR5QEePKG;02h2IQDVRBk3PL3?`\9;02T6EbTR5QIS8BoRj=Sj:Li:f\b;02T2APC^\=X[
0=X6GWXYf^9:h02`ib4n4d0^inLdinLd48SoZ>OdicFdoojI52QVoH2`P704gh0UX2KV28Sj@414
MH:F8R4^<fIR<99ZE3nD27GiKa\V:4=Rm31TRC33PDS?jGVY6iQ:JVhY<4X^ERl6oj^FRC33=P9_
=\PoA6<R6cISH1\28A_VX3KR=SISlj1^=SHVZl0V0SKclj0_ao>VIUhR<CISX<ojLBPV^cJSPOk9
<GXYX6kY6mi:<hi:=JP_L_fkm;]:@o@VE3nD27Gi@fhY^h2^IS0R<3=TUmZZo?^InP2`mP3`9\P_
mOE;1<`E^P1E;<`C0?l28KSVk;HV]iDVP02`o[@6L8VK7U?0oJ0_U7N[U@9?\JjZ]4H^1_cP]KDg
]4X^2PS^o;H3][MbUKIT^;=:^N0XP8V;][DV][A2]XUk~4U@X0P0P0n`;>eV;5RFagPCb::\T1
0PlmnZV9Ml>1R\`Z0i18053GnJO>kBJ0^X\1RHagn32XmOYgMS1gagX0j`KgnI?inG=@cn:@lo[5
09200>0mmjW]kBKPO[THOVTBP6K`=OFcB0D0oOooP032X2n:k:SoNBWnNRW\c8S2Z2omNRUjNYWl
nb6PSo[knS8XV_[in2V::\T8m`>93<N1m\>93<Lo32Ne32MgPCc2\DZ:D\T6~3RPaB19180534
`jC1PJj1R\aB191Z0620N>\0~2OQjFORBF~7L0W<l[:Pj?Xo:2mZ4RK\4XC_Nj8BmF9j4YCKJZ8B
k6PBkdY002hoc6^P4^HPhNX0D@9jD99jk9\0n0Wg[D3?kDCP04R0^0AoVP2`WP<0X0je]fCo]RJ0
P;T0U`BeUdZgZ2nERJbfPCbXR?^jc8R9UjZYYJZ;UbJ7oS1:2^kK2Rh:QnBZQj?nf`J7Qd?m:0n9
DZ;l:2n8nk:84dJ80;2?0?00~3R@bfnS0PM_9J2^jh]VBfgCJf]dJ1^\\20@40^090b^8@^?HH
]oAj2^h:bn;KPFbi0920093^gJ;:gBKKMb14fn9g80jeRf:Gg6:7c6^g`4oOOZTT060V8LceP:kc
3k;`V_1VOo00SomAD1;mm1;mQP4g8S:<i208SA:]W0<8B2=EZ03PC@?doB26eQ2;B2>]W0<A11::
R@;Bo@26eQ28]A98i303m3:d3EHBf00N033o7bKC78@L_D[C78@9HST9oS1R69:Pd?[m2BH12N4O
7bH9HST9HSW^o21?7RKkdY_kG9^e01214N892F?^kV;jZ2o@dj_YZ2oTjJCTnJ]@ABTA22Kh0;3B
AP4C3CD0m`W_<V8Xm__^9kT;cC^nWVIPhO4_X02fH0D0Q`=61^h6M^20jk@0W0JMSVZMW4JLob90
S?[noBVLWF;mNYVLNRT`R4\0~34@88o6W\a::XZ_[4XDYSnbLC6R8XXOY_Z2nk2:;j`2ng4j95
4i9>X2nQDJ95nI\NDl3hX2nNN;\0~2mhnOb07ni_MYP<SoF^HRiT1^iPP^P5S_D_HRmF=bi^0_
aOBblo=clVIblO1bklEk~37QmV8>M[AW:;8<]UPLXEQmaEP=J4PCMloEkf0fWfR6YB:]H?nX0n
?Z]0P80dE_nBoRUbh:7jEWZB32P?WofY3OdY3_dY3b4^5jP_XH>R:0nB8AORo5^B:82K6_]22_YR
2oUR8giR2P]g8j]:3:A[WFTY:;;kJ80V4f4^P>Lf6=?j6QMRJh03JX2Cn:@VGf<iGjAc755Y5jA4
0>L4b@RSGh1bmj@V0;8;MG:I720^9^9ZB2VBh?Kg9]i:boHWO`2`ik8VOV4^J>Lf6;;kJ6XiJ?Db
aA>T720`Dn1?0N53b8lX<6^KPH[<:PF@4hTlojPoP7NSX9OjPH[<DPZ@400e0=d:THT\Mh5loXVL
384ljVYR4XU\jH4loNUdoA94WobYnoZ@nOUcX?SgmbNB8BOVROo3PH[<:P6@0@9o^?HWmOBB:_=S
PF82l`Qc4]EX6JP_l_4R20QS8`QS90QS4PQS2MEXl02`28Tl2H5l4]I:eGji301PAPC^4=ok2Y3_
8>oWgh6o0>h28YeZ7D<5bj>jL>H?`;[e^DmI6G8En<d@aDQU08nO0?l9PHW\oQPFoH4lo8VL`?kS
nbP?Uh6\JJP?ULZRn\ibF81nROk3POW0::CjDZP?baVT6?Q7P8W\oX4l`?Ok@<SRm\UbmHUlm0Pn
4<7jA?CWPH[<l`R@cUPWb_XWGo8WP5Bnm85lX?7Wl>nK\K6QUV>RkZAjR@2`kH6L9`H^1=kPjMPV
PN_30=SVf^\W>>\30>3bk:0_jMRRjbMddH6\cf2i0<8`a>]XfT:e\l0OYE;fYidHT<0@U0Ragj>?
Y:W`e@3P~4>0RX~3I`S60300O`Sl~3PPSl~3Q`PZ~3Q`Sl~3RPPZ~3RPSh0100R`PZ~3R`Sh0100
Z`PZ~3<PW>0100>PWl~3G0U80300N`Un~3R@Wl~3R@U<0200R@U80300S@U40400\@VP0200\@TN
0300d@Un~3d@Wl~3e`WB~3h0UD~3h0TN0300h@Wl~3n@TN0300<`XZ~3<`[h0100F`ZP0200QP[d
0200R@[d0200X`[B~3X`[l~3[0XN0300\0Yn~3\`[l~3m@[h0100m@[d0200n0[l~3nPYn~3o@YD
~3o@[l~30@_l~310_B~31P]D~31`_l~320_l~320_h010020_d02009@]80300:@^40200:@^P
0200:`\Z~3;0\Z~3;0_h0100;P\Z~3<0_:0200<P\Z~3<P_h0100=@^P0200>0\Z~3>0_h0100
B@^X~3B`_l~3CP_h0100E0\N0300F0]n~3F`_l~3F`_>0100o`ooooo6gc>H5ol0~5;3L38[lQ
?2H10;l1H7T2c[lAO`@20;l1SBl2Q;lQSS40d[l1[HL08[lQ_Bl26[m1dj020;l1h:P0094;h5X3
6[m12`PCm;lQNP0@0;l1P00@0;l1R7h@0;l1nJ0B0;l1NDTSn;lAQZdPo00<XB\Q0;l1XHDSd[l1
nHPR9[lAnEXSC;lQ:J@bo00<C@@d0:X2oooooooo17gPoB<Va]lcV1Oo~6[HL08klQ[JD3Pkl1
_8P29[lAg=D0B0<ah;D2CklQj[D2Dj\[1Mh@Z;l11OdACKlQ1OdCo@0\1@@D;28<NP0@0;l1P:d@
o;l1P50Bf;l1P6HB0klaP4TD0klaFkDRCklQNDTSn;lAXB\Q0;l1XHDSd[l100LbO[l1C@@d0:X2
o8daB;laA0100;l1APM2RKl1oooooooo08L2AHQYRDDVP8ZkWXe[0909RP2`28ekROm2:dIXo_dW
RAW2Z:7jo?\Wo?XWooTWYobRn?abmoabnH5lcOJ;01;VX2;RAS3VRC33mJP_aa:RAR3^5OAR<0XV
m0\V2P\g5Ki:4P4^8X5\o?>b<18T[o:Yl@2`ERORV<gk8TH^l>lW;:YRk\ek084>R^g90^D;0>`;
gn\Wf]:`AP0@eP1002l5AX1@96<b1744^_a?0mh:0clO<d?oMf?o_hhD703321<fol6@9XWj4ohY
P?nY\4L?28KjoAjBZ83jROc3PL3?WO^SVaiR1P;_n_Vi8OP9moZKX2;R8A;V5OIR5ADVRAG3mJP_
]AFS@?Cb5A9dah6\nP2`]lHf]hU<a_<`aZ1^l\Hba\ISPKO;0?425ADV5AEdZP2P~d0`0O3`00
gXX4`0:08B:o\a6ThO40ib<0~~~~~S

(REMARK Image File Created by PDP-8: 30-Aug-1990)
(REMARK File Date: 23-Jan-1984)
(FILE CREF.SV)
(REMARK File decodes to CREF.SV Version B0. Taken from)
(REMARK DECUS DM-101 OS/278 for DECmate II.)
(REMARK Should work on any OS/8 family system.)
(REMARK A recent assembler is required for assembly of)
(REMARK the KERMIT-12 source programs; Version B0 is the)
(REMARK latest version. This is the companion CREF for PAL8.)
<VVM8620484007040090371P76BT3K8G2109OG88H4KC01E1M25AHG0PC14OLA2P3T8K16>
<L8C0FDG04Q53GGGM4G0E4P05S1Q603GS4DI0O1NICG0UC306DGR0ENI00P61C0RU1G0C4>
<P05O1N600GM4482K8LA71118AJ58BH000060FV00H0M001SG001EG0400GG0367SHJ8FG>
<0F0GI01OFG002B200G240100802D00000X004S1DM9L80G0000X0003IVVVU00003S95P>
<IGVH3GK84NX0008UTNVK0F00000X00030I000003G3VVX0003105P20100000X0008IVS>
<0G0202VO8MDKNSO0FOJU4O67PPVRFVUSD003NQTUB8O10UKNVNVTFEH8M12G8Q200FTBC>
<GI1VU20KHR0S00K006VG3K50VK3VU0VI03VU5G18001I445G027VO021G3RJ7O7VQHQGC>
<0O07PTO0L601VS0V1B8GI4VV88P22O8JU3RVUVUX0008T0682E4M60JRC6P9EPT362BP8>
<6T95DS5UEMR7QBUIJKPFIFSL4981P32G7G650N0CA08N8K0SH001I4JVN41UA1FPI4NVN>
<41NA800FTV52TJFUM8IC6CG5VPP29GOOVJ1J41NU001R0M4SVN1TNIHF1E9BG8C9TVA00>
<CH4RN0THF8RB3QR41NJ801QGBHAKM00R86A1U8RG450V0CA1NT4N95UVQ1QG6GEKS10J0>
<O8G2F7T0NQKNPBLUR1H04U7UV5L073VV9KACUJ78T8OJV148B209EMBKJVSEL7VJ11GJI>
<SOC3SHAHT1VL0SNBA1I2CLBUA5N4BVF52K05VFQHA047VO8ITA19AG2E5H8IS5AC8A8LG>
<JFIRH169MVL2K3MR7G200251GL4A7Q09LMSLN6DPREG9L628GLSG12HS8AO1GL4QBEBQ0>
<2VHHD5UR1E8AU80ONU45COKMQORH165V22GBK5L0ILHH6KO92VHHD6B9EIRKIT7T85UHI>
<Q9K9F91D84LDERKRLG00X000544B0GC462CGJUA5FH5T22CGQV85ERFL9EIVAVS0425IV>
<RS3JD7HEHSK221G8623175PGO7P6U25DT5PGM3Q7U25DNAB9EC6RU8NGHBF8S4GJ5VVQ1>
<AEI11N847NQHB222CNUVA702RKPCS13LD92S9J62N4965B1BI0PVMOL47N0DVCANUBGM9>
<CME0GQNMFSLFTBT5IPCIFT5QFQ1FTQT8GJ46NQ1B56T2VR44PFTSKAP0NQUA20G9HV52P>
<B4QNIHFSIV3T0LQLVE8FFL2K444SM5A2000JRC6PFCOE63MV10000089IVVT8NUT88002>
<DSHPCEDUU0FKQC0UCC7SQOR01K837GJEFT8V8K00D811NV0BG0L00O9FVTG2VONT87D92>
<CE73H0SL7F48RC2R3I6C591BP322KMOE77A0OEK3FG0N0000003K5MNDM9TERC4QSUNDL>
<PDHOGIQVI8UA2DIBC65U7J84N41I4J1F410O720C5E43T0LGI15AQ4K6ME5MFQ1B525VO>
<GLABDHAL25VOOS0B2U8NV42MJ8BTCTP365P51N880000003JSU57NPTUFFJRSUV7NPE8G>
<1004X0105007IHBOIVVR04NP629FBT8004BV4C9261CITC2H6KO9BUC0VVS7U2009VSH2>
<S8127VKAL11248N4COBI2SJAC591BOG25PGIP29HASBU40GLC5F208BM2T0IL4U83Q02D>
<9GI62M8IS5SG50IL8DO15V60Q5Q5VNQHAL22FH1DFSBKAVVL2QS44P6RUKBBILH001GGO>
<9I2ETQ000008N2CPGLP29HBV4APSH8VA5CU9DJ2LOLS8148O92C08LA5F009JFP2MS84L>
<D3I0RO341IVJ2K002CPHGCBVA08HE45GI4QP30OO45UFTDSU8ICOF52NO4H31BS172L0L>
<4MJHBI0K2AN7NNP1OF6FC0JJ89LVV7VE05H24O03GOS2DDHPGDJ2I9CNB1HH5V92IOBJ2>
<THJ4AF20O9EA3G484L9GOMI54NSCD12I9BMUPVM6D13IRRI77IA0LJ148OU44HJC5E8IC>
<SM2OJ64EB3I8BFP2MC6E8608OM67496E861I0U80NNU65DTPG22NSGLNM8I8AN751H8CE>
<82897UOHC0BFQHBB2DCNNDTP15OG24BP8NUR34GSQKRK08A92JP024VSGLT135P20V8IL>
<CE4VIFRE05H2GDM8JQG77741NU4VJA7000007TGUUV03UKJ24MJ6SG09CS11MN4C5DE8P>
<HLN44PB9SG2MFT8S0BB5I4J2LGL5DR97S132NU8L892HUKAK65L5DR9RS132KIRE5E828>
<A8MKLIVA5LPQG22LGL5DRAPS122JH1E5E83DE003VFUL000OBV08OL0O7228AM2OGNE5I>
<HBI0RMK004BH6COASH4PEP0FS0J1BO800CA95E8KM2OOMS892VVKAR119LJKDLF6000H9>
<SHN08AOBR800DMH5T5T4RAN2NO000FJU44GJSG1UEJJJST77U47OHUK4SUV78DCVV7V62>
<HH8NV880204E0MVB07A0OJF12K88G2415QMG8H2S8B369J662KIIL23VS49EKJFC6R2G9>
<1MUH1GP29J1I0V92N9IUA1NAC2DABE4C74K1B65UFVDAU8ICO66RO26DNSG922CDGR6DG>
<608DU45GRT813COR36PNJT813COR2LDM0U0HJCBPVK2M7DSP6C9F664PMV85CU9OM52LR>
<6DM837V266BQT84MSGDQRP1JL3H3BUKBEAVT9T5BM91MUIAK8FVGH5QI8EBELEV809J26>
<1HG8CT9FBD9VIFRNUG01VR000H6VI2FBFQH0HECBEIG04M3PG005VV22QS2THLM5DR9BE>
<00007UDD4N1E4S3O2J5VFQ1AABET4LU0LB3AN2MJI6S1GFOEQNMKLKSIN0LO40VGTMFDH>
<BEQAKMP5OLCPBJ3G8G2S95DJBAIR2MHTMN280000002KL00480002VDME5LJCBI4JEV41>
<P2KIK00V0AHTJUM8IDRSG74AIAG06L4002MNFU9CSRMOG2TQG0E8IDRGV3T8LT9NE1R7E>
<UM7003EN7RJV5VP7UF50B7VI2NJJH801Q0002HTJTPEQRMRS2BUC64NSO96G3VGAD8B6L>
<4F03VT1VO80B1FK2KAHR1FV5SIVQBQHR4COB1FL0NTXIUG35V0VNUGAHSVR5UNIHAD2V6>
<FOP2KIK043UV49E3682FRCH5OC4FRGOAQN1GRNP0AC5AOSHAAI01G0000CHAAI012KG00>
<AOH63LGF83I0SHAAI0136K00EG2RO000015V63QBUC90000000000004N1F62UBT0LQ13>
<VSK2D9GIHR215BNIFDGI5TCNKG9ARCJAC4KEOG9ATSI0S033VF6EK1GIS85E2002A6BQ4>
<K4NLFM002FO9TOAQJ7KTL70G0080IS0FS4Q1C1PS00EK1LL9DPFUQRBG2C00029EIQQIS>
<LNVA59BI4JMR41VA5OH2T8PIK9L5TAJAIIHDKN71OFTP5E18MRS2N0KI3QL8S71VJDMI3>
<JGS7TUA58I992VJP8N21FMI462ES8007OU00000000068IER0VBP04TN5LO56N15M7DJD>
<QIR6MV41NEG0440G00LOSG1CLS86N3OO9DV7LO5E18MBDMU836SG02C0005ESBEIP9MT5>
<MO7FP22RC3NS83BAA5MISMSD1TSOIRVO2MVIVJ2800C4R11LTF81FPI1VVG16NMC1VV03>
<SF2K9507UIUG7T31HJE8H2HG742218Q2MJJGG86I05A2K0S0QD5T0FQ630QOKB6I0AQEE>
<124G412H8I390VKC61LGOGAQJ907460PF8MQ61K0I1M1HS002VTGVHKQ1OGEANM6J871G>
<J5H3147UIOH1HUGAQ0NTC2F0244I3TGV62CM4C4PC8NE1V14UOF9VEUIJUTLO6QG03K14>
<4B0IC4MTONE5UNQHB8BQCN9VA5E8JKQSIVP4K4KA88M12VO000D45332D8D004VERNI6B>
<P8NTLUT4JJ1EUDDFJ9TTG1S41F180BCLG000S7SHN0DO30EQS09QO00QE6JMKE97B9OAE>
<2VVQ0L31FT7UMJGKTJVCNKAE9F91GN200000000GHC24VPBM2OJT8LAIC9AGICDVR44P1>
<LSKAK4JFVA5BM842VBU0LDP1752I2CIEV85A298P8MVPO7G56BSFK2SUMU000009UVSFV>
<I702RJ9UVS0VI15KBJ6SRI05PN0HQ0FB0II5TJVA9HISRV0NH9F8VPJUDVI4PJV2BO7TU>
<U500000OF63TH0NPS4DDP641EB30ASKM3LRI409LJO3GRVVLIUU0R6IM42D81AVLHVLQ0>
<47O5B702815B2VTVU4AFU1AGPAOJQ037IHAFPVKGDJV90T7UI1VH145VQHAGIGE9843V2>
<28BPVGIRIA5O0GD2VDGA5UJ0MBSM4CJUE2JGMGHQLDGCN919R5KV52TI4Q38089UC4S0D>
<PVHHB9M38GN0QPO15L3G0NOD91LV5HNBST4C74L2GBKKG009PTCIC47BSK05TRA800BMA>
<BLISH1POG64QN2II12JVG7UP16LNHCMVRBFS005PRB49VEC4R8DPVHHEP3D2BA6Q1FBB2>
<K2COS08257VG404V15I48V4OBDF41P2KIK02J2F497VVQHA03EVT0L5U83I59A80A642G>
<000ARKKHP2BNFI0PVR4963682RL2D9GIP29UJI0NVL799VA15AFPVIFR1UJVIFSVK1VOJ>
<TP2FOGM4V497VU83I595801E0FG4AS7UQFL5T32KFPGG4J2FSPGGO98QKGPVA1F4BOM10>
<O8C8PGGOI311GI6230J3ARU0006268IS4SG50ILLLTB5V61G00SHN09S8BRVGAV4720VN>
<RRVS1001ESOHAJK0TAGTSNAHGE3V6VG2RKMSP9S8PASGVG36MOLA8I07OU009VVK1P28V>
<SOC3VN41JV68JR03VO7RUA59FI0GD7T8L59CKVT2PPQOT068IFVCG47PUA5A819FL2MB8>
<6A1GVSEG3497VM83V0BUVI05I3VCB4NUN497T70HS8AO7I4FT683I59UC085JJLGB57V8>
<IVFSLO1PA7UJ41T83V37OBTULH3CD9C9HNTQL4N28017MSG4H7S1N083F2T5MOP09UNO0>
<6R0MQFQO3GFLV00N05R7Q1BKIR1VB89TD3I0RPUB0600C4R28TEUQAGGR7V0FKLII39S9>
<Q680O2SK224DVUHVKG59TL8000000000GE0AG00002377HG00008FS7S00001210VG000>
<048E0L00000H1OFO000024A0AG00008H8FO0000125G58000048M7S00000HAO2K00002>
<9I3JG00009787S000015E39000004NM1V00000J28FO00002C94J000009H4Q80000166>
<K8G00004R2AG00000JC9HS00002EH0VG00009Q47S000017BGQ800004U01A00000JO1H>
<S00002F11V000009V4OU000018PG5800005367S00000KMPA000002K65T00000AH4NK0>
<0001AHGQ800005A63U00000LB1HS00002LG0VG0000AMC7S00001BQHV000005FABQ000>
<00LU0FO00002NQ0VG0000AVK2K00001BUGVG00005G23U00000M10D400002O60L00000>
<B0S7S00001C40VG00005GG7S00000M21F800002P56I00000B54K400001CKIK000005I>
<M0L00000MB02K00002PC3U00000B5O1A00001CO2P800005J40L00000MCGVG00002PL5>
<800000B701A00001CS1V000005KI2K00000MIOFO00002QE3U00000BAGOU00001DC0FO>
<00005LM3U00000MMOSS00003VVVVVVUF33RVSOU5O0000000000B1JE8H1NS1S29G006V>
<GC0JP3JGRU1VI0G003FO8Q8NIGGDV13G32391NS5D11P246VGNKHF86GRU39IK0003FOE>
<02K002SH1O1LKGD1NS8B621F86VHF800000RU60000003FOOG1V000DV3U9A0001NSJP6>
<I8VG6VIGO5D1V600AGH5C003FPA2E2GQ8DV5U98G4J1NSNP6MH4O6VJ54L41V600D6K0G>
<005ANVVVVVVVVVS107QBUM4CU67NVPHSBG0000000002MGGSH33FOAQEIGGCDV1F18G4J>
<1NS6S1L9KG41GS0LL4JORU3L2MKIJNAOGA3F0L0DV218VQ96HNS857V9FRG010L040B62>
<45T000003FOO02MGVGDV301503C1NSC04PHG66VHG12960ORU9DIMKIF3FP7ID4HV0DV5>
<88IM001NSL1718D46VJ00G70VGRUD6K0G005AHVO66J90DV8H000001NT2641O8I6VVVV>
<VVVVVVU002GTI5J218IP2RG2SAD7LOQ009I2SA003GHE6KH4NVCAS4CBV7VN4946FQHAG>
<IVHVR5V3VKBVNV6L75V3VGBU7USNSFUE8336RURG0C4NA08HE8PHGP29J0BQVL2M744N4>
<DOG62KNK4C30KBQ61COAE2Q1BAV22BG1C8M83FU2UCHG84LAV7PBU400SLH2FUCBPKH2S>
<HHF0VNM5GLAFRLSQ00EG74AJR805FIG02VC5NRUNFD0Q8A6002DC000019FAHG80CI2CC>
<048SABLVU00EMU20VJVSPV8FRNUOORUI7C3GO0623177VGO7P6L29177VAG2FV1C7KFS4>
<AGQFT47NQHA0CH4VSP0FS1AEJVDKR47N0DS1BVAFP08CVH7RRVBL048N22O962KNM45B1>
<BI4J2KNLVA5BACAV80NKE5A15B3SG6VQ001RER34MV497HGF6R3EK0VI5HJCCF3CG6TN0>
<01F28AM2LOL85DAK0000000X001100O1U07O02MU011C0A0244DV3CVQ87GI00V7X0040>
<ZAC5M3VVVVVVV>
(END CREF.SV)
(REMARK End of File)

/	OS/8 BOO DECODING PROGRAM

/	LAST EDIT:	22-OCT-1991	12:00:00	CJL

/	MAY BE ASSEMBLED WITH '/F' SWITCH SET.

/	PROGRAM TO  DECODE  OS/8  FILES  FROM  "PRINTABLE"  ASCII  (".BOO")  FORMAT TO
/	BINARY-IMAGE FORMAT.   INTERMEDIATE  "ASCII"  CONVERSION SHOULD BE HARMLESS AS
/	LONG AS ALL PRINTING DATA CHARACTERS ARE NOT MODIFIED.

/	DISTRIBUTED BY CUCCA AS "K12DEB.PAL" AS PART OF THE CUCCA KERMIT-12 PACKAGE.

/	WRITTEN BY:

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

/	USAGE:

/	THIS PROGRAM OPERATES ON "PRINTABLE" ASCII FILES WHICH  HAVE  BEEN  CREATED BY
/	ENCODING THE CONTENTS OF ARBITRARY (BINARY) FILES.  THE ENCODING FORMAT ALLOWS
/	FOR  CERTAIN  "WHITE  SPACE" MODIFICATIONS SUCH AS LINE WIDTH REFORMATTING  AS
/	LONG  AS  ALL  PRINTING CHARACTERS ARE UNMODIFIED.  EXTRANEOUS <CR>/<LF> PAIRS
/	AND ALL OTHER CONTROL CHARACTERS (<FF>, <VT>, ETC.) ARE IGNORED.

/	WHEN CREATING THE DESCENDANT DECODED FILE,  THE  USER  MAY  SPECIFY EITHER THE
/	IMBEDDED FILENAME OR AN ALTERNATE FILENAME ON EITHER THE DEFAULT (DSK:) DEVICE
/	OR A SPECIFIED DEVICE: 

/	.RUN DEV DEBOO		INVOKE PROGRAM.
/	*INPUT			INPUT IS DECODED INTO IMBEDDED NAME ON DSK: (DEFAULT).
/	*DEV:OUTPUT.EX<INPUT	INPUT IS DECODED INTO OUTPUT.EX ON DEVICE DEV:.
/	*DEV:<INPUT		INPUT IS DECODED INTO IMBEDDED NAME ON DEVICE DEV:.
/	*OUTPUT.EX<INPUT$	INPUT IS  DECODED  INTO  OUTPUT.EX ON DSK:  (DEFAULT).
/				THE <ESC> CHARACTER  WAS  USED  TO  TERMINATE THE LINE
/				(THIS IS SIGNIFIED BY $).  THIS CAUSES PROGRAM EXIT.
/	.			PROGRAM EXITS NORMALLY.

/	INPUT FILE ASSUMES .BO EXTENSION; THERE IS NO ASSUMED OUTPUT EXTENSION.

/	PROGRAM EXIT IS THE NORMAL  OS/8 METHOD OF EITHER PRESSING <^C> ON THE CONSOLE
/	KEYBOARD DURING THE COMMAND, OR ENDING  THE  COMMAND  INPUT LINE WITH AN <ESC>
/	CHARACTER.
/	.BOO FORMAT IMPLEMENTATION DESCRIPTION.

/	THIS  PROGRAM  SUPPORTS  STANDARD .BOO FORMAT ENCODED FILES AND OPTIONALLY THE
/	USE OF LENGTH CORRECTION BYTES AT THE FILE'S END TO ENSURE PROPER  LENGTH.  IF
/	NO  LENGTH CORRECTION FIELDS ARE FOUND, IT IS ASSUMED THEY AREN'T NEEDED;   IT
/	IS THE RESPONIBILITY OF THE ENCODER TO INSERT THESE FIELDS IF NECESSARY.  OS/8
/	FILES PROPERLY  ENCODED  BY THE COMPANION ENBOO-ING PROGRAM (ENBOO AKA K12ENB)
/	WILL CONTAIN SUCH  BYTES AS NECESSARY, AND WILL BE PROPERLY DECODED INTO THEIR
/	ORIGINAL FORM WITHOUT LOSS.  ALL OTHER FILES WILL BE <NUL>-PADDED AS NECESSARY
/	TO ROUND-UP THE FILE SIZE  TO  A  NUMBER  OF  COMPLETE  OS/8  RECORDS;   THEIR
/	ORIGINAL LENGTH WILL BE LOST.

/	**** WARNING **** USE OF  ENBOO-ING  PROGRAMS NOT COMPATIBLE WITH THE OPTIONAL
/	LENGTH  CORRECTION SCHEME CAN PRODUCE FILES  DRASTICALLY  DIFFERENT  FROM  THE
/	ORIGINAL;  AN ENTIRE OS/8 RECORD CONTAINING <NUL> CHARACTERS COULD BE APPENDED
/	TO THE END OF THE  FILES.    BEYOND  THE  WASTE OF DISK SPACE, THESE DEFECTIVE
/	FILES COULD ACTUALLY BE DANGEROUS TO USE UNDER OS/8.

/	ORDINARILY THESE FILES SHOULDN'T EXIST, BUT COULD BE CREATED  BY  METHODS SUCH
/	AS DECODING ON OTHER SYSTEMS FOLLOWED BY USE OF ENCODERS INCOMPATIBLE WITH THE
/	LENGTH CORRECTION SCHEME.  THIS TENDS TO MAKE THE FILE SIZE  WRONG  BY  ONE OR
/	TWO  BYTES,  WHICH  WHEN  DECODED  HERE  WILL CAUSE THE CREATION OF AN  ENTIRE
/	ERRONEOUS  RECORD.    IT IS RECOMMENDED THAT FILES STORED ON OTHER SYSTEMS FOR
/	EVENTUALLY DELIVERY  TO  OS/8  SYSTEMS BE MAINTAINED IN .BOO FORMAT TO PREVENT
/	THIS FORM OF FILE CORRUPTION.

/	ERROR MESSAGES.

/	ANY MESSAGE  PRINTED  IS A FATAL ERROR MESSAGE.  ALL MESSAGES ARE THE STANDARD
/	OS/8 "USER" ERROR  MESSAGES OF THE FORM:  USER ERROR X AT AAAAA WHERE X IS THE
/	ERROR NUMBER AND AAAAA  IS  THE  PROGRAM ADDRESS WHERE THE ERROR WAS DETECTED.
/	THE FOLLOWING USER ERRORS ARE DEFINED:

/	ERROR NUMBER		PROBABLE CAUSE

/	0			TOO MANY OUTPUT FILES.

/	1			NO INPUT FILE OR TOO MANY INPUT FILES.

/	2			IMBEDDED OUTPUT FILENAME FORMAT ERROR.

/	3			I/O ERROR WHILE LOCATING IMBEDDED OUTPUT FILENAME.

/	4			ERROR WHILE FETCHING FILE HANDLER.

/	5			ERROR WHILE ATTEMPTING TO ENTER OUTPUT FILE.

/	6			OUTPUT FILE LARGER THAN AVAILABLE FILE SPACE.

/	7			ERROR WHILE CLOSING THE OUTPUT FILE.

/	8			I/O ERROR WHILE DECODING FILE DATA OR BAD DATA.

/	9			OUTPUT ERROR WHILE DECODING FILE DATA.
/	ASSEMBLY INSTRUCTIONS.

/	IT IS  ASSUMED  THE  SOURCE  FILE  K12DEB.PAL  HAS  BEEN  MOVED AND RENAMED TO
/	DSK:DEBOO.PA.

/	.PAL DEBOO<DEBOO/E/F	ASSEMBLE SOURCE PROGRAM
/	.LOAD DEBOO		LOAD THE BINARY FILE
/	.SAVE DEV DEBOO=0	SAVE THE CORE-IMAGE FILE
/	DEFINITIONS.

	CLOSE=	4		/CLOSE OUTPUT FILE
	DECODE=	5		/CALL COMMAND DECODER
	ENTER=	3		/ENTER TENTATIVE FILE
	FETCH=	1		/FETCH HANDLER
	IHNDBUF=7200		/INPUT HANDLER BUFFER
	INBUFFE=6200		/INPUT BUFFER
	INFILE=	7617		/INPUT FILE INFORMATION HERE
	INQUIRE=12		/INQUIRE ABOUT HANDLER
	NL0001=	CLA IAC		/LOAD AC WITH 0001
	NL0002=	CLA CLL CML RTL	/LOAD AC WITH 0002
	NL7776=	CLA CLL CMA RAL	/LOAD AC WITH 7776
	NL7777=	CLA CMA		/LOAD AC WITH 7777
	OHNDBUF=6600		/OUTPUT HANDLER BUFFER
	OUTBUFF=5600		/OUTPUT BUFFER
	OUTFILE=7600		/OUTPUT FILE INFORMATION HERE
	PRGFLD=	00		/PROGRAM FIELD
	RESET=	13		/RESET SYSTEM TABLES
	SBOOT=	7600		/MONITOR EXIT
	TBLFLD=	10		/COMMAND DECODER TABLE FIELD
	TERMWRD=7642		/TERMINATOR WORD
	USERROR=7		/USER SIGNALLED ERROR
	USR=	7700		/USR ENTRY POINT
	USRFLD=	10		/USR FIELD
	WRITE=	4000		/I/O WRITE BIT
	*0			/START AT THE BEGINNING

	*10			/DEFINE AUTO-INDEX AREA

XR1,	.-.			/AUTO-INDEX NUMBER 1
XR2,	.-.			/AUTO-INDEX NUMBER 2

	*20			/GET PAST AUTO-INDEX AREA

BUFPTR,	.-.			/INPUT BUFFER POINTER
BYTES,	ZBLOCK	3		/DATA BYTES
CHRCNT,	.-.			/CHARACTER COUNTER
CMPCNT,	.-.			/COMPRESSION COUNTER
DANGCNT,.-.			/DANGER COUNT
DATCNT,	.-.			/DATA COUNTER
IDNUMBE,.-.			/INPUT DEVICE NUMBER
INPUT,	.-.			/INPUT HANDLER POINTER
INRECOR,.-.			/INPUT RECORD
FNAME,	ZBLOCK	4		/OUTPUT FILENAME
GETBERR,.-.			/ERROR ROUTINE POINTER FOR GETBYTE ROUTINE
LATEST,	.-.			/LATEST OUTPUT BYTE
ODNUMBE,.-.			/OUTPUT DEVICE NUMBER
ONAME,	ZBLOCK	10		/OUTPUT NAME FIELD
OUTPUT,	.-.			/OUTPUT HANDLER POINTER
OUTRECO,.-.			/OUTPUT RECORD
PUTEMP,	.-.			/INPUT TEMPORARY
PUTPTR,	.-.			/OUTPUT POINTER
TEMPTR,	.-.			/TERMPORARY OUTPUT POINTER
THIRD,	.-.			/THIRD BYTE TEMPORARY

	PAGE			/START AT THE USUAL PLACE

BEGIN,	NOP			/HERE IN CASE WE'RE CHAINED TO
	CLA			/CLEAN UP
START,	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	DECODE			/WANT COMMAND DECODER
	"B^100+"O-300		/.BO IS DEFAULT EXTENSION
	CDF	TBLFLD		/GOTO TABLE FIELD
	TAD I	(TERMWRD)	/GET TERMINATOR WORD
	SPA CLA			/SKIP IF <CR> TERMINATED THE LINE
	DCA	EXITZAP		/ELSE CAUSE EXIT LATER
	TAD I	(OUTFILE)	/GET FIRST OUTPUT FILE DEVICE WORD
	SNA			/SKIP IF FIRST OUTPUT FILE PRESENT
	JMP	TSTMORE		/JUMP IF NOT THERE
	AND	[17]		/JUST DEVICE BITS
ODNULL,	DCA	ODNUMBER	/SAVE OUTPUT DEVICE NUMBER
	TAD I	(OUTFILE+5)	/GET SECOND OUTPUT FILE DEVICE WORD
	SNA			/SKIP IF THERE
	TAD I	(OUTFILE+12)	/ELSE GET THIRD OUTPUT FILE DEVICE WORD
	SZA CLA			/SKIP IF BOTH NOT PRESENT
	JMP	OUTERR		/ELSE COMPLAIN
	TAD I	(INFILE)	/GET FIRST INPUT FILE DEVICE WORD
	SNA			/SKIP IF PRESENT
	JMP	INERR		/JUMP IF NOT
	AND	[17]		/JUST DEVICE BITS
	DCA	IDNUMBER	/SAVE INPUT DEVICE NUMBER
	TAD I	(INFILE+2)	/GET SECOND INPUT FILE DEVICE WORD
	SZA CLA			/SKIP IF ONLY ONE INPUT FILE
	JMP	INERR		/ELSE COMPLAIN
	TAD I	(INFILE+1)	/GET FIRST INPUT FILE STARTING RECORD
	DCA	INRECORD	/SET IT UP
	CDF	PRGFLD		/BACK TO OUR FIELD
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	RESET			/RESET SYSTEM TABLES
	TAD	(IHNDBUFFER+1)	/GET INPUT BUFFER POINTER+TWO-PAGE BIT
	DCA	IHPTR		/STORE IN-LINE
	TAD	IDNUMBER	/GET INPUT DEVICE NUMBER
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	FETCH			/FETCH HANDLER
IHPTR,	.-.			/WILL BE BUFFER POINTER+TWO-PAGE BIT
	JMP	FERROR		/FETCH ERROR
	TAD	IHPTR		/GET RETURNED ADDRESS
	DCA	INPUT		/STORE AS INPUT HANDLER ADDRESS
	JMS I	(GEOFILE)	/GET OUTPUT FILE INFORMATION
	TAD	(OHNDBUFFER+1)	/GET BUFFER POINTER+TWO-PAGE BIT
	DCA	OHPTR		/STORE IN-LINE
	TAD	ODNUMBER	/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	FETCH			/FETCH HANDLER
OHPTR,	.-.			/WILL BE BUFFER POINTER+TWO-PAGE BIT
	JMP	FERROR		/FETCH ERROR
	TAD	OHPTR		/GET RETURNED ADDRESS
	DCA	OUTPUT		/STORE AS OUTPUT HANDLER ADDRESS
	TAD	(FNAME)		/POINT TO
	DCA	ENTAR1		/STORED FILENAME
	DCA	ENTAR2		/CLEAR SECOND ARGUMENT
	TAD	ODNUMBER	/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	ENTER			/ENTER TENTATIVE FILENAME
ENTAR1,	.-.			/WILL POINT TO FILENAME
ENTAR2,	.-.			/WILL BE ZERO
	JMP	ENTERR		/ENTER ERROR
	TAD	ENTAR1		/GET RETURNED FIRST RECORD
	DCA	OUTRECORD	/STORE IT
	TAD	ENTAR2		/GET RETURNED EMPTY LENGTH
	IAC			/ADD 2-1 FOR OS/278 CRAZINESS
	DCA	DANGCNT		/STORE AS DANGER COUNT
	JMS I	(DECODIT)	/GO DO THE ACTUAL DECODING
	JMP	PROCERR		/ERROR WHILE DECODING
	TAD	ODNUMBER	/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	CLOSE			/CLOSE OUTPUT FILE
	FNAME			/POINTER TO FILENAME
OUTCNT,	.-.			/WILL BE ACTUAL COUNT
	JMP	CLSERR		/CLOSE ERROR
EXITZAP,JMP	START		/**** <ESC> TERMINATION **** 0000
	JMP I	(SBOOT)		/EXIT TO MONITOR
/	OUTPUT FILE ERROR WHILE PROCESSING.

OERROR,	TAD	[3]		/SET INCREMENT
	SKP			/DON'T USE NEXT

/	ERROR WHILE PROCESSING INPUT FILE.

PROCERR,NL0002			/SET INCREMENT
	SKP			/DON'T USE NEXT

/	ERROR WHILE CLOSING THE OUTPUT FILE.

CLSERR,	NL0001			/SET INCREMENT
	SKP			/DON'T CLEAR IT

/	OUTPUT FILE TOO LARGE ERROR.

SIZERR,	CLA			/CLEAN UP
	TAD	[3]		/SET INCREMENT
	SKP			/DON'T USE NEXT

/	ENTER ERROR.

ENTERR,	NL0002			/SET INCREMENT
	SKP			/DON'T USE NEXT

/	HANDLER FETCH ERROR.

FERROR,	NL0001			/SET INCREMENT

/	I/O ERROR WHILE PROCESSING IMBEDDED FILENAME.

NIOERR,	IAC			/SET INCREMENT

/	FORMAT ERROR WHILE PROCESSING IMBEDDED FILENAME.

CHARERR,IAC			/SET INCREMENT

/	INPUT FILESPEC ERROR.

INERR,	IAC			/SET INCREMENT

/	OUTPUT FILESPEC ERROR.

OUTERR,	DCA	ERRNUMBER	/STORE ERROR NUMBER
	CDF	PRGFLD		/ENSURE OUR FIELD
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	USERROR			/USER ERROR
ERRNUMB,.-.			/WILL BE PASSED ERROR NUMBER
/	COMES HERE TO TEST FOR NULL LINE.

TSTMORE,TAD I	(OUTFILE+5)	/GET SECOND OUTPUT FILE DEVICE WORD
	SNA			/SKIP IF PRESENT
	TAD I	(OUTFILE+12)	/ELSE GET THIRD OUTPUT FILE DEVICE WORD
	SZA CLA			/SKIP IF NO OUTPUT FILES
	JMP	OUTERR		/ELSE COMPLAIN OF SECOND/THIRD (WITHOUT FIRST) OUTPUT 
	TAD I	(INFILE)	/GET FIRST OUTPUT FILE DEVICE WORD
	SZA CLA			/SKIP IF NO INPUT FILES
	JMP	ODNULL		/JUMP IF INPUT WITHOUT OUTPUT
	CDF	PRGFLD		/BACK TO OUR FIELD
	JMP	EXITZAP		/MIGHT BE LAST TIME, SO GO THERE FIRST

	PAGE
DECODIT,.-.			/DECODING ROUTINE
	TAD	(DECERR)	/SETUP THE
	DCA	GETBERROR	/GETBYTE ERROR ROUTINE
	DCA	DATCNT		/CLEAR DATA COUNT
	NL7777			/SETUP FOR INITIALIZING
	JMS I	(PUTBYTE)	/INITIALIZE OUTPUT FILE
LOOP,	JMS	GETCHR		/GET A CHARACTER
	JMP	ENDIT		/WEREN'T ANY MORE
	TAD	(-176)		/COMPARE TO TILDE
	SZA CLA			/SKIP IF IT MATCHES
	JMP	DATPROCESS	/JUMP IF NOT
	JMS	GETCHR		/GET A CHARACTER
DECERR,	JMP I	DECODIT		/WASN'T ANY
	TAD	(-"0!200)	/REMOVE PRINTING OFFSET
	SNA			/SKIP IF SIGNIFICENT COMPRESSION
	JMP	DATCORRECT	/JUMP IF NOT
	CIA			/INVERT FOR COUNTING
	DCA	CMPCNT		/SAVE COMPRESSION COUNT
	JMS	DATOUT		/OUTPUT DATA FIELD (IF ANY) AND CLEAR DATA COUNT
COMPLP,	JMS I	(PUTBYTE)	/OUTPUT A <NUL> BYTE
	ISZ	CMPCNT		/DONE YET?
	JMP	COMPLP		/NO, KEEP GOING
	JMP	LOOP		/YES, GO BACK FOR MORE FILE ITEMS

/	ZERO-LENGTH COMPRESSION (CORRECTION) FIELD FOUND.

DATCORR,NL7777			/BACKUP
	TAD	DATCNT		/NOW HAVE CORRECTED DATA COUNT
	SPA			/SKIP IF COUNT WASN'T ZERO
	JMP	LOOP		/IGNORE BECAUSE THERE IS NO DATA
	SNA			/SKIP IF ENOUGH TO CORRECT
	JMP I	DECODIT		/TAKE ERROR RETURN IF NOT
	DCA	DATCNT		/STORE CORRECTED COUNT
	JMP	LOOP		/GO BACK FOR MORE FILE ITEMS
/	UN-COMPRESSED DATA FOUND.

DATPROC,JMS	DATOUT		/OUTPUT PREVIOUS DATA FIELD (IF ANY), CLEAR DATA COUNT
	TAD	PUTEMP		/GET LATEST BACK
	TAD	(-"0!200)	/REMOVE DIGIT OFFSET
	CLL RTL			/MOVE UP
	DCA	BYTES		/STORE IT
	JMS	GETCHR		/GET NEXT CHARACTER
	JMP I	DECODIT		/WASN'T ANY
	AND	(17)		/JUST LOW-ORDER BITS
	CLL RTL;RTL		/MOVE UP
	DCA	BYTES+1		/STORE IT
	TAD	PUTEMP		/GET IT AGAIN
	RTR;RTR			/MOVE DOWN
	IAC			/REMOVE DIGIT BIAS
	AND	(3)		/JUST GOOD BITS
	TAD	BYTES		/GET OLD BITS
	DCA	BYTES		/STORE COMPOSITE
	JMS	GETCHR		/GET NEXT CHARACTER
	JMP I	DECODIT		/WASN'T ANY
	TAD	(-"0!200)	/REMOVE DIGIT OFFSET
	RTR			/MOVE DOWN
	AND	(17)		/ISOLATE GOOD BITS
	TAD	BYTES+1		/GET OLD BITS
	DCA	BYTES+1		/STORE COMPOSITE
	TAD	PUTEMP		/GET IT AGAIN
	AND	(3)		/ISOLATE GOOD BITS
	CLL RTL;RTL;RTL		/MOVE UP
	DCA	BYTES+2		/STORE IT
	JMS	GETCHR		/GET NEXT CHARACTER
	JMP I	DECODIT		/WASN'T ANY
	TAD	(-"0!200)	/REMOVE DIGIT OFFSET
	TAD	BYTES+2		/GET OLD BITS
	DCA	BYTES+2		/STORE COMPOSITE
	TAD	(3)		/SETUP THE
	DCA	DATCNT		/DATA COUNT
	JMP	LOOP		/GO GET NEXT FILE ITEM

/	COMES HERE AT END-OF-FILE.

ENDIT,	JMS	DATOUT		/OUTPUT ANY LEFTOVER DATA
	SKP			/DON'T OUTPUT YET
CLOSLUP,JMS I	(PUTBYTE)	/OUTPUT A <NUL> BYTE
	TAD	PUTPTR		/GET THE OUTPUT BUFFER POINTER
	TAD	(-OUTBUFFER)	/COMPARE TO RESET VALUE
	SZA CLA			/SKIP IF IT MATCHES
	JMP	CLOSLUP		/ELSE KEEP GOING
	ISZ	DECODIT		/BUMP TO GOOD RETURN
	JMP I	DECODIT		/RETURN TO CALLER
DATOUT,	.-.			/DATA OUTPUT ROUTINE
	TAD	DATCNT		/GET CURRENT DATA COUNT
	CMA			/SETUP FOR COUNTING
	DCA	DATCNT		/STORE IT
	TAD	(BYTES-1)	/POINT TO
	DCA	XR1		/DATA AREA
	JMP	DATEST		/CHECK BEFORE OUTPUTTING

DATLUP,	TAD I	XR1		/GET A BYTE
	JMS I	(PUTBYTE)	/OUTPUT IT
DATEST,	ISZ	DATCNT		/DONE YET?
	JMP	DATLUP		/NO, KEEP GOING
	JMP I	DATOUT		/YES, RETURN TO CALLER

GETCHR,	.-.			/GET A CHARACTER ROUTINE
GETCAGN,CLA			/GET A CHARACTER
	JMS I	[GETBYTE]	/GET A CHARACTER FROM FILE
	JMP I	GETCHR		/WASN'T ANY, TAKE IMMEDIATE RETURN
	TAD	[-" !200]	/COMPARE TO <SPACE>
	SPA SNA CLA		/SKIP IF NOT CONTROL CHARACTER OR <SPACE>
	JMP	GETCAGN		/GO GET ANOTHER ONE
	TAD	PUTEMP		/GET GOOD CHARACTER
	ISZ	GETCHR		/BUMP RETURN ADDRESS
	JMP I	GETCHR		/RETURN TO CALLER

	PAGE
PUTBYTE,.-.				/OUTPUT A BYTE ROUTINE
	SPA				/ARE WE INITIALIZING?
	JMP	PUTINITIALIZE		/YES
	AND	(377)			/JUST IN CASE
	DCA	LATEST			/SAVE LATEST CHARACTER
	TAD	LATEST			/GET LATEST CHARACTER
	JMP I	PUTNEXT			/GO WHERE YOU SHOULD GO

PUTNEXT,.-.				/EXIT ROUTINE
	JMP I	PUTBYTE			/RETURN TO MAIN CALLER

PUTINIT,CLA				/CLEAN UP
	TAD	OUTRECORD		/GET STARTING RECORD OF TENTATIVE FILE
	DCA	PUTRECORD		/STORE IN-LINE
	DCA I	(OUTCNT)		/CLEAR ACTUAL FILE LENGTH
PUTNEWR,TAD	POUTBUFFER/(OUTBUFFER)	/SETUP THE
	DCA	PUTPTR			/BUFFER POINTER
PUTLOOP,JMS	PUTNEXT			/GET A CHARACTER
	DCA I	PUTPTR			/STORE IT
	TAD	PUTPTR			/GET POINTER VALUE
	DCA	TEMPTR			/SAVE FOR LATER
	ISZ	PUTPTR			/BUMP TO NEXT
	JMS	PUTNEXT			/GET A CHARACTER
	DCA I	PUTPTR			/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	PUTPTR			/ADD ON SECOND BYTE
	DCA I	PUTPTR			/STORE COMPOSITE
	ISZ	PUTPTR			/BUMP TO NEXT
	TAD	PUTPTR			/GET LATEST POINTER VALUE
	TAD	(-2^200-OUTBUFFER)	/COMPARE TO LIMIT
	SZA CLA				/SKIP IF AT END
	JMP	PUTLOOP			/KEEP GOING
	ISZ	DANGCNT			/TOO MANY RECORDS?
	SKP				/SKIP IF NOT
	JMP I	(SIZERR)		/JUMP IF SO
	JMS I	OUTPUT			/CALL I/O HANDLER
	2^100+WRITE			/WRITE SOME PAGES FROM OUTPUT BUFFER
POUTBUF,OUTBUFFER			/BUFFER ADDRESS
PUTRECO,.-.				/WILL BE LATEST RECORD NUMBER
	JMP I	(OERROR)		/OUTPUT ERROR!
	ISZ I	(OUTCNT)		/BUMP ACTUAL LENGTH
	ISZ	PUTRECORD		/BUMP TO NEXT RECORD
	JMP	PUTNEWRECORD		/KEEP GOING
/	OS/8 FILE UNPACK ROUTINE.

GETBYTE,.-.				/GET A BYTE ROUTINE
	SNA CLA				/INITIALIZING?
	JMP I	PUTC			/NO, GO GET NEXT BYTE
	TAD	INRECORD		/GET STARTING RECORD OF INPUT FILE
	DCA	GETRECORD		/STORE IN-LINE
GETNEWR,JMS I	INPUT			/CALL I/O HANDLER
	2^100				/READ TWO PAGES INTO BUFFER
PINBUFF,INBUFFER			/BUFFER ADDRESS
GETRECO,.-.				/WILL BE LATEST RECORD NUMBER
	JMP I	GETBERROR		/INPUT ERROR!
	TAD	PINBUFFER/(INBUFFER)	/SETUP THE
	DCA	BUFPTR			/BUFFER POINTER
GETLOOP,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	(-2^200-INBUFFER)	/COMPARE TO LIMIT
	SZA CLA				/SKIP IF AT END
	JMP	GETLOOP			/KEEP GOING
	ISZ	GETRECORD		/BUMP TO NEXT RECORD
	JMP	GETNEWRECORD		/GO DO ANOTHER ONE

PUTONE,	.-.				/SEND BACK A BYTE ROUTINE
	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
	AND	(177)			/KEEP ONLY GOOD BITS
	DCA	PUTEMP			/SAVE IT
	TAD	PUTEMP			/GET IT BACK
	TAD	(-"Z!300)		/COMPARE TO <^Z>
	SNA CLA				/SKIP IF NOT ASCII <EOF>
	JMP I	GETBYTE			/RETURN IF ASCII MODE <EOF>
	TAD	PUTEMP			/RESTORE THE CHARACTER
	ISZ	GETBYTE			/BUMP PAST <EOF> RETURN
	JMP I	GETBYTE			/RETURN TO MAIN CALLER
	PAGE
GEOFILE,.-.			/GET OUTPUT FILE ROUTINE
	TAD	ODNUMBER	/GET OUTPUT DEVICE NUMBER
	SZA CLA			/SKIP IF NOT ESTABLISHED YET
	JMP	GOTOD		/JUMP IF DETERMINED ALREADY
	TAD	("D^100+"S-300)	/GET BEGINNING OF "DSK"
	DCA	DEVNAME		/STORE IN-LINE
	TAD	("K^100)	/GET REST OF "DSK"
	DCA	DEVNAME+1	/STORE IN-LINE
	DCA	RETVAL		/CLEAR HANDLER ENTRY WORD
	CDF	PRGFLD		/INDICATE OUR FIELD
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	INQUIRE			/INQUIRE ABOUT HANDLER
DEVNAME,ZBLOCK	2		/WILL BE DEVICE DSK
RETVAL,	.-.			/BECOMES HANDLER ENTRY POINT WORD
	HLT			/DSK: NOT IN SYSTEM IS IMPOSSIBLE!
	TAD	DEVNAME+1	/GET DEVICE NUMBER FOR DSK:
	AND	[17]		/JUST DEVICE BITS
	DCA	ODNUMBER	/STORE OUTPUT DEVICE
GOTOD,	JMS	SCANAME		/SCAN OFF FILE NAME
	CDF	TBLFLD		/BACK TO TABLE FIELD
	TAD I	(OUTFILE+1)	/GET OUTPUT FILE FIRST NAME WORD
	SNA			/SKIP IF PRESENT
	JMP	GFLNAME		/JUMP IF NOT
	DCA	FNAME		/MOVE TO OUR AREA
	TAD I	(OUTFILE+2)	/GET SECOND NAME WORD
	DCA	FNAME+1		/MOVE IT
	TAD I	(OUTFILE+3)	/GET THIRD NAME WORD
	DCA	FNAME+2		/MOVE IT
	TAD I	(OUTFILE+4)	/GET EXTENSION WORD
	DCA	FNAME+3		/MOVE IT
	CDF	PRGFLD		/BACK TO OUR FIELD
	JMP I	GEOFILE		/RETURN

/	WE MUST TAKE THE FILENAME FROM THE IMBEDDED FILENAME SUPPLIED.

GFLNAME,CDF	PRGFLD		/BACK TO OUR FIELD
	TAD	ONAME		/GET THE FIRST CHARACTER
	SNA CLA			/SKIP IF SOMETHING THERE
	JMP I	(CHARERROR)	/COMPLAIN IF NONE THERE
	TAD	(ONAME-1)	/SETUP POINTER
	DCA	XR1		/TO NAME CHARACTERS
	TAD	(FNAME-1)	/SETUP POINTER
	DCA	XR2		/TO PACKED NAME AREA
	TAD	(-4)		/SETUP THE
	DCA	CHRCNT		/MOVE COUNT
CHRLOOP,TAD I	XR1		/GET FIRST CHARACTER
	CLL RTL;RTL;RTL		/MOVE UP
	TAD I	XR1		/ADD ON SECOND CHARACTER
	DCA I	XR2		/STORE THE PAIR
	ISZ	CHRCNT		/DONE YET?
	JMP	CHRLOOP		/NO, KEEP GOING
	JMP I	GEOFILE		/YES, RETURN
SCANAME,.-.			/SCAN OFF FILENAME ROUTINE
	TAD	(NIOERROR)	/SETUP THE
	DCA	GETBERROR	/I/O ERROR HANDLER

/	ZERO OUT THE FILENAME AREA.

	TAD	(-10)		/SETUP THE
	DCA	CHRCNT		/CLEAR COUNTER
	TAD	(ONAME-1)	/SETUP THE
	DCA	XR1		/POINTER
	JMS	CLRNAME		/CLEAR THE NAME BUFFER

/	SETUP FOR SCANNING THE NAME PORTION.

	TAD	(-6)		/SETUP THE
	DCA	CHRCNT		/SCAN COUNT
	TAD	(ONAME-1)	/SETUP THE
	DCA	XR1		/POINTER
	NL7777			/MAKE IT INITIALIZE
FNCAGN,	JMS I	(GETAN)		/GET A CHARACTER
	JMP	GOTSEPARATOR	/GOT "."; GOTO NEXT FIELD
	DCA I	XR1		/STASH THE CHARACTER
	ISZ	CHRCNT		/DONE ALL YET?
	JMP	FNCAGN		/NO, KEEP GOING

/	THROW AWAY EXTRA NAME CHARACTERS.

TOSSNAM,JMS I	(GETAN)		/GET A CHARACTER
	JMP	GOTSEPARATOR	/GOT "."; GOTO NEXT FIELD
	CLA			/THROW AWAY THE CHARACTER
	JMP	TOSSNAME	/KEEP GOING

/	COMES HERE AFTER "." FOUND.

GOTSEPA,JMS	CLRNAME		/CLEAR OUT THE REMAINING NAME FIELD
	NL7776			/SETUP THE
	DCA	CHRCNT		/SCAN COUNT
EXCAGN,	JMS I	(GETAN)		/GET A CHARACTER
	JMP I	(CHARERROR)	/GOT "."; COMPLAIN
	DCA I	XR1		/STASH THE CHARACTER
	ISZ	CHRCNT		/DONE ENOUGH YET?
	JMP	EXCAGN		/NO, KEEP GOING

/	TOSS ANY EXTRA EXTENSION CHARACTERS.

TOSSEXT,JMS I	(GETAN)		/GET A CHARACTER
	JMP I	(CHARERROR)	/GOT "."; COMPLAIN
	CLA			/THROW AWAY THE CHARACTER
	JMP	TOSSEXTENSION	/KEEP GOING

/	COMES HERE WHEN TRAILING <CR> IS FOUND.

GOTCR,	JMS	CLRNAME		/CLEAR ANY REMAINING EXTENSION CHARACTERS
	JMP I	SCANAME		/RETURN
CLRNAME,.-.			/NAME FIELD CLEARING ROUTINE
	TAD	CHRCNT		/GET CHARACTER COUNTER
	SNA CLA			/SKIP IF ANY TO CLEAR
	JMP I	CLRNAME		/ELSE JUST RETURN
	DCA I	XR1		/CLEAR A NAME WORD
	ISZ	CHRCNT		/COUNT IT
	JMP	.-2		/KEEP GOING
	JMP I	CLRNAME		/RETURN

	PAGE
GETCHAR,.-.			/GET A CHARACTER ROUTINE
	JMS I	[GETBYTE]	/GET A CHARACTER
	JMP I	(CHARERROR)	/COMPLAIN IF <EOF> REACHED
	TAD	(-"M!300)	/COMPARE TO <CR>
	SNA			/SKIP IF OTHER
	JMP I	(GOTCR)		/JUMP IF IT MATCHES
	TAD	(-140+"M-300)	/COMPARE TO LOWER-CASE LIMIT
	SPA			/SKIP IF LOWER-CASE
	TAD	(40)		/RESTORE ORIGINAL IF UPPER-CASE
	AND	(77)		/JUST SIX-BIT
	DCA	PUTEMP		/SAVE IN CASE WE NEED IT
	TAD	PUTEMP		/GET IT BACK
	JMP I	GETCHAR		/RETURN

GETAN,	.-.			/GET ALPHANUMERIC ROUTINE
GETNAGN,JMS	GETCHAR		/GET A CHARACTER
	TAD	[-" !200]	/COMPARE TO <SPACE>
	SNA CLA			/SKIP IF OTHER
	JMP	GETNAGN		/JUMP IF IT MATCHES
	TAD	PUTEMP		/GET THE CHARACTER BACK
	TAD	(-".!200)	/COMPARE TO "."
	SNA			/SKIP IF OTHER
	JMP I	GETAN		/TAKE FIRST RETURN IF IT MATCHES
	TAD	(-":+".)	/SUBTRACT UPPER LIMIT
	CLL			/CLEAR LINK FOR TEST
	TAD	(":-"0)		/ADD ON RANGE
	SZL CLA			/SKIP IF NOT NUMERIC
	JMP	GETANOK		/JUMP IF NUMERIC
	TAD	PUTEMP		/GET THE CHARACTER BACK
	TAD	(-"[!300)	/SUBTRACT UPPER LIMIT
	CLL			/CLEAR LINK FOR TEST
	TAD	("[-"A)		/ADD ON RANGE
	SNL CLA			/SKIP IF ALPHABETIC
	JMP I	(CHARERROR)	/ELSE COMPLAIN
GETANOK,TAD	PUTEMP		/GET GOOD ALPHANUMERIC CHARACTER
	ISZ	GETAN		/BUMP TO SKIP RETURN
	JMP I	GETAN		/RETURN

	PAGE
	$			/THAT'S ALL FOLK!

/	OS/8 DECODING PROGRAM

/	LAST EDIT:	08-JUL-1992	22:00:00	CJL

/	PROGRAM TO  DECODE  OS/8  FILES  FROM "PRINTABLE" ASCII FORMAT TO BINARY-IMAGE
/	FORMAT.  INTERMEDIATE  "ASCII"  CONVERSION  SHOULD  BE HARMLESS AS LONG AS ALL
/	PRINTING DATA CHARACTERS ARE NOT MODIFIED.

/	DISTRIBUTED BY CUCCA AS "K12DEC.PAL" AS PART OF THE CUCCA KERMIT-12 PACKAGE.

/	WRITTEN BY:

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

/	USAGE:

/	THIS PROGRAM OPERATES ON "PRINTABLE"  ASCII  FILES  WHICH HAVE BEEN CREATED BY
/	ENCODING THE CONTENTS OF ARBITRARY (BINARY) FILES.  THE ENCODING FORMAT ALLOWS
/	FOR SOME INNOCUOUS CONTENT MODIFICATION SUCH AS  EXTRANEOUS  WHITE  SPACE  AND
/	EXTRA <CR>/<LF> PAIRS, BUT RIGOROUSLY VALIDATES CERTAIN ASPECTS OF THE FORMAT,
/	SUCH AS A TRAILING CHECKSUM.

/	CERTAIN IMBEDDED COMMANDS ARE USED SUCH AS (REMARK .........) WHICH ALLOWS FOR
/	COMMENTARY LINES WITHIN THE FILE FOR IDENTIFICATION PURPOSES.  THE (FILE ) AND
/	(END )  COMMANDS  CONTAIN  THE  SUGGESTED  FILENAME FOR THE DESCENDANT DECODED
/	FILE.
/	WHEN CREATING THE DESCENDANT DECODED FILE,  THE  USER  MAY  SPECIFY EITHER THE
/	IMBEDDED FILENAME OR AN ALTERNATE FILENAME ON EITHER THE DEFAULT (DSK:) DEVICE
/	OR A SPECIFIED DEVICE: 

/	.RUN DEV DECODE		INVOKE PROGRAM.
/	*INPUT			INPUT IS DECODED INTO IMBEDDED NAME ON DSK: (DEFAULT).
/	*DEV:OUTPUT.EX<INPUT	INPUT IS DECODED INTO OUTPUT.EX ON DEVICE DEV:.
/	*DEV:<INPUT		INPUT IS DECODED INTO IMBEDDED NAME ON DEVICE DEV:.
/	*DEV:<INPUT=NNNN/I	**** SPECIAL IMAGE TRANSFER MODE **** INPUT IS DECODED
/				INTO  RECORD 0000-[NNNN-1] ON DEVICE DEV:.  THE  =NNNN
/				VALUE SHOULD BE CAREFULLY CHOSEN LARGE ENOUGH TO WRITE
/				ALL  DATA  RECORDS,  BUT  NEED NOT BE STATED  EXACTLY.
/				(THE ENCODE PROGRAM  REQUIRES PRECISE STATEMENT OF THE
/				LENGTH  IN IMAGE TRANSFER ENCODING MODE.    ****  NOTE
/				****  THIS  METHOD  VIOLATES ALL OS/8 DEVICE STRUCTURE
/				AND  IS  MEANT  FOR TRANSFER OF COMPLETE DEVICE IMAGES
/				ONLY;  USE WITH CARE!
/	*DEV:<INPUT=NNNN/I/1	**** SPECIAL IMAGE TRANSFER  MODE **** SAME AS REGULAR
/				IMAGE MODE EXCEPT ONLY THE FIRST  HALF  OF THE DATA IS
/				USED.  NOTE THAT THE =NNNN VALUE MUST BE GIVEN EXACTLY
/				BECAUSE IT IS USED TO CALCULATE THE APPROX.  1/2 VALUE
/				ACTUALLY  USED  IN  THIS HALF OF THE OVERALL TRANSFER.
/				THIS  MODE  SHOULD  BE USED WITH FILES CREATED FOR THE
/				EXPRESS PURPOSE  OF  TRANSMISSION BY HALVES ONLY;  USE
/				WITH CARE!
/	*DEV:<INPUT=NNNN/I/2	**** SPECIAL IMAGE  TRANSFER MODE **** SAME AS REGULAR
/				IMAGE MODE EXCEPT ONLY THE SECOND  HALF OF THE DATA IS
/				USED.  NOTE THAT THE =NNNN VALUE MUST BE GIVEN EXACTLY
/				BECAUSE IT IS USED TO CALCULATE THE STARTING RECORD OF
/				THE APPROX.  1/2 VALUE ACTUALLY USED IN  THIS  HALF OF
/				THE OVERALL TRANSFER.    THIS MODE SHOULD BE USED WITH
/				FILES CREATED FOR THE EXPRESS PURPOSE OF  TRANSMISSION
/				BY HALVES ONLY;  USE WITH CARE!  NOTE THAT  THERE MUST
/				BE TWO  FILES  CREATED,  ONE  USING /I/1 AND THE OTHER
/				USING  /I/2 TO  COMPLETELY  TRANSFER  A  DEVICE  IMAGE
/				UNLESS /I IS USED ALONE!
/	*OUTPUT.EX<INPUT$	INPUT IS  DECODED  INTO  OUTPUT.EX ON DSK:  (DEFAULT).
/				THE <ESC> CHARACTER  WAS  USED  TO  TERMINATE THE LINE
/				(THIS IS SIGNIFIED BY $).  THIS CAUSES PROGRAM EXIT.
/	.			PROGRAM EXITS NORMALLY.
/	INPUT  FILE  ASSUMES  .EN  EXTENSION;  THERE IS NO ASSUMED  OUTPUT  EXTENSION.
/	IMAGE TRANSFER MODE DOESN'T USE OUTPUT FILENAMES, AS THE TRANSFER DESTROYS THE
/	OS/8 FILE STRUCTURE (POSSIBLY PRESENT) ON THE DEVICE.

/	PROGRAM EXIT IS THE NORMAL  OS/8 METHOD OF EITHER PRESSING <^C> ON THE CONSOLE
/	KEYBOARD DURING THE COMMAND, OR ENDING  THE  COMMAND  INPUT LINE WITH AN <ESC>
/	CHARACTER.

/	THIS PROGRAM  SUPPORTS  A PROPER SUBSET OF THE ASCII ENCODING SCHEME DISCUSSED
/	BY CHARLES LASNER  AND  FRANK  DA  CRUZ.  THE SCHEME USED IS FIVE-BIT ENCODING
/	WITH COMPRESSION, (AS OPPOSED  TO SIX-BIT WITHOUT COMPRESSION AS USED IN PRIOR
/	VERSIONS).

/	RESTRICTIONS:

/	A)	SUPPORTS ONLY ONE DECODABLE FILE PER ENCODED FILE.

/	B)	IGNORES ALL (END ) COMMANDS.

/	C)	<CR> <LF> < ALWAYS INDICATES ENCODED DATA LINES;  NO CHECK IS MADE FOR
/		WHETHER THE > IS ON THE SAME LINE AS THE <.

/	D) 	PDP-8 GENERATED CHECKSUM DATA MUST  BE  THE  FINAL DATA IN THE FILE IN
/		THE  PROPER  FORMAT:    ZCCCCCCCCCCCC  WHERE  CCCCCCCCCCCC    IS   THE
/		TWELVE-CHARACTER PDP-8 CHECKSUM DATA.

/	IF THE ENCODED FILE IS PASSED THROUGH ANY  INTERMEDIARY  PROCESS THAT MODIFIES
/	THE CONTENTS IN A WAY THAT INTERFERES WITH ANY  OF  THE  ABOVE,  THIS DECODING
/	PROGRAM  WILL  FAIL.   IT IS THE USER'S RESPONSIBILITY TO  EDIT  OUT  UNWANTED
/	CHANGES TO THE ENCODED FILE.  ALL OTHER ASPECTS OF THE  PROTOCOL  ARE  OBEYED,
/	SUCH AS IMBEDDED <FF>, EXTRA <CR> <LF>, OR TRAILING SPACES HAVE NO  EFFECT  ON
/	THE RELIABILITY OF THE DECODING PROCESS, ETC.
/	ERROR MESSAGES.

/	ANY MESSAGE  PRINTED  IS A FATAL ERROR MESSAGE.  ALL MESSAGES ARE THE STANDARD
/	OS/8 "USER" ERROR  MESSAGES OF THE FORM:  USER ERROR X AT AAAAA WHERE X IS THE
/	ERROR NUMBER AND AAAAA  IS  THE  PROGRAM ADDRESS WHERE THE ERROR WAS DETECTED.
/	THE FOLLOWING USER ERRORS ARE DEFINED:

/	ERROR NUMBER		PROBABLE CAUSE

/	0			TOO MANY OUTPUT FILES.

/	1			NO INPUT FILE OR TOO MANY INPUT FILES.

/	2			IMBEDDED OUTPUT FILENAME FORMAT ERROR.

/	3			I/O ERROR WHILE LOCATING IMBEDDED OUTPUT FILENAME.

/	4			ERROR WHILE FETCHING FILE HANDLER.

/	5			ERROR WHILE ATTEMPTING TO ENTER OUTPUT FILE.

/	6			OUTPUT FILE LARGER THAN AVAILABLE FILE SPACE.

/	7			ERROR WHILE CLOSING THE OUTPUT FILE.

/	8			I/O ERROR WHILE DECODING FILE DATA OR BAD DATA.

/	ASSEMBLY INSTRUCTIONS.

/	IT IS  ASSUMED  THE  SOURCE  FILE  K12DEC.PAL  HAS  BEEN  MOVED AND RENAMED TO
/	DSK:DECODE.PA.

/	.PAL DECODE<DECODE	ASSEMBLE SOURCE PROGRAM
/	.LOAD DECODE		LOAD THE BINARY FILE
/	.SAVE DEV DECODE=0	SAVE THE CORE-IMAGE FILE
/	DEFINITIONS.

	CLOSE=	4			/CLOSE OUTPUT FILE
	DECODE=	5			/CALL COMMAND DECODER
	ENTER=	3			/ENTER TENTATIVE FILE
	EQUWRD=	7646			/EQUALS PARAMETER HERE IN TABLE FIELD
	FETCH=	1			/FETCH HANDLER
	IHNDBUF=7200			/INPUT HANDLER BUFFER
	INBUFFE=6200			/INPUT BUFFER
	INFILE=	7617			/INPUT FILE INFORMATION HERE
	INQUIRE=12			/INQUIRE ABOUT HANDLER
	NL0001=	CLA IAC			/LOAD AC WITH 0001
	NL0002=	CLA CLL CML RTL		/LOAD AC WITH 0002
	NL4000=	CLA CLL CML RAR		/LOAD AC WITH 4000
	NL7776=	CLA CLL CMA RAL		/LOAD AC WITH 7776
	NL7777=	CLA CMA			/LOAD AC WITH 7777
	OHNDBUF=6600			/OUTPUT HANDLER BUFFER
	OUTBUFF=5600			/OUTPUT BUFFER
	OUTFILE=7600			/OUTPUT FILE INFORMATION HERE
	PRGFLD=	00			/PROGRAM FIELD
	RESET=	13			/RESET SYSTEM TABLES
	SBOOT=	7600			/MONITOR EXIT
	SWAL=	7643			/A-/L SWITCHES HERE IN TABLE FIELD
	SWY9=	7645			/Y-/9 SWITCHES HERE IN TABLE FIELD
	TBLFLD=	10			/COMMAND DECODER TABLE FIELD
	TERMWRD=7642			/TERMINATOR WORD
	USERROR=7			/USER SIGNALLED ERROR
	USR=	7700			/USR ENTRY POINT
	USRFLD=	10			/USR FIELD
	WIDTH=	107-2			/69 DATA CHARACTERS PER LINE (TOTAL 71)
	WRITE=	4000			/I/O WRITE BIT
	*0				/START AT THE BEGINNING

	*10				/DEFINE AUTO-INDEX AREA

XR1,	.-.				/AUTO-INDEX NUMBER 1
XR2,	.-.				/AUTO-INDEX NUMBER 2

	*20				/GET PAST AUTO-INDEX AREA

BUFPTR,	.-.				/OUTPUT BUFFER POINTER
CCNT,	.-.				/CHECKSUM COUNTER
CHKSUM,	ZBLOCK	5			/CHECKSUM TEMPORARY
CHRCNT,	.-.				/CHARACTER COUNTER
CSUMTMP,.-.				/CHECKSUM TEMPORARY
DANGCNT,.-.				/DANGER COUNT
DATCNT,	.-.				/DATA COUNTER
DSTATE,	.-.				/DATA STATE VARIABLE
IDNUMBE,.-.				/INPUT DEVICE NUMBER
IMSW,	.-.				/IMAGE-MODE SWITCH
INITFLA,.-.				/INITIALIZE INPUT FLAG
INPUT,	.-.				/INPUT HANDLER POINTER
INRECOR,.-.				/INPUT RECORD
FCHKSUM,ZBLOCK	5			/FILE CHECKSUM
FNAME,	ZBLOCK	4			/OUTPUT FILENAME
GWTMP1,	.-.				/GETWORD TEMPORARY
GWTMP2,	.-.				/GETWORD TEMPORARY
GWVALUE,.-.				/LATEST WORD VALUE
ODNUMBE,.-.				/OUTPUT DEVICE NUMBER
OUTPUT,	.-.				/OUTPUT HANDLER POINTER
OUTRECO,.-.				/OUTPUT RECORD
PUTEMP,	.-.				/OUTPUT TEMPORARY
PUTPTR,	.-.				/OUTPUT POINTER
THIRD,	.-.				/THIRD BYTE TEMPORARY

/	STATE TABLE.

P,	SCANIT				/0000 LOOKING FOR "(" OR "<"
	FNDCOMMAND			/0001 FOUND "(" AND NOW LOOKING FOR ")"
	FNDCEND				/0002 FOUND ")" AND NOW LOOKING FOR <CR>
	FNDCR				/0003 FOUND <CR> AND NOW LOOKING FOR <LF> TO RESET
	STORDATA			/4000 FOUND "<" AND PROCESSING 69 DATA BYTES
	ENDATA				/4001 FOUND 69 DATA BYTES AND NOW LOOKING FOR ">"
	ENDCR				/4002 FOUND ">" AND NOW LOOKING FOR <CR>
	FNDCR/ENDLF			/4003 FOUND <CR> AND NOW LOOKING FOR <LF> TO RESET
	PAGE				/START AT THE USUAL PLACE

BEGIN,	NOP				/HERE IN CASE WE'RE CHAINED TO
	CLA				/CLEAN UP
START,	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	DECODE				/WANT COMMAND DECODER
	"E^100+"N-300			/.EN IS DEFAULT EXTENSION
	CDF	TBLFLD			/GOTO TABLE FIELD
	TAD I	(TERMWRD)		/GET TERMINATOR WORD
	SPA CLA				/SKIP IF <CR> TERMINATED THE LINE
	DCA	EXITZAP			/ELSE CAUSE EXIT LATER
	DCA	IMSW			/CLEAR IMAGE-MODE; MIGHT GET SET LATER THOUGH
	TAD I	(OUTFILE)		/GET FIRST OUTPUT FILE DEVICE WORD
	SNA				/SKIP IF FIRST OUTPUT FILE PRESENT
	JMP	TSTMORE			/JUMP IF NOT THERE
	AND	[17]			/JUST DEVICE BITS
ODNULL,	DCA	ODNUMBER		/SAVE OUTPUT DEVICE NUMBER
	TAD I	(OUTFILE+5)		/GET SECOND OUTPUT FILE DEVICE WORD
	SNA				/SKIP IF THERE
	TAD I	(OUTFILE+12)		/ELSE GET THIRD OUTPUT FILE DEVICE WORD
	SZA CLA				/SKIP IF BOTH NOT PRESENT
	JMP I	(OUTERR)		/ELSE COMPLAIN
	TAD I	(INFILE)		/GET FIRST INPUT FILE DEVICE WORD
	SNA				/SKIP IF PRESENT
	JMP I	(INERR)			/JUMP IF NOT
	AND	[17]			/JUST DEVICE BITS
	DCA	IDNUMBER		/SAVE INPUT DEVICE NUMBER
	TAD I	(INFILE+2)		/GET SECOND INPUT FILE DEVICE WORD
	SZA CLA				/SKIP IF ONLY ONE INPUT FILE
	JMP I	(INERR)			/ELSE COMPLAIN
	TAD I	(INFILE+1)		/GET FIRST INPUT FILE STARTING RECORD
	DCA	INRECORD		/SET IT UP
	CDF	PRGFLD			/BACK TO OUR FIELD
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	RESET				/RESET SYSTEM TABLES
	TAD	(IHNDBUFFER+1)		/GET INPUT BUFFER POINTER+TWO-PAGE BIT
	DCA	IHPTR			/STORE IN-LINE
	TAD	IDNUMBER		/GET INPUT DEVICE NUMBER
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	FETCH				/FETCH HANDLER
IHPTR,	.-.				/WILL BE BUFFER POINTER+TWO-PAGE BIT
	JMP I	(FERROR)		/FETCH ERROR
	TAD	IHPTR			/GET RETURNED ADDRESS
	DCA	INPUT			/STORE AS INPUT HANDLER ADDRESS
	JMS I	(GEOFILE)		/GET OUTPUT FILE INFORMATION
	TAD	(OHNDBUFFER+1)		/GET BUFFER POINTER+TWO-PAGE BIT
	DCA	OHPTR			/STORE IN-LINE
	TAD	ODNUMBER		/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	FETCH				/FETCH HANDLER
OHPTR,	.-.				/WILL BE BUFFER POINTER+TWO-PAGE BIT
	JMP I	(FERROR)		/FETCH ERROR
	TAD	OHPTR			/GET RETURNED ADDRESS
	DCA	OUTPUT			/STORE AS OUTPUT HANDLER ADDRESS
	TAD	IMSW			/GET IMAGE-MODE SWITCH
	SNA CLA				/SKIP IF SET
	JMP	NOIMAGE			/JUMP IF NOT

/	IF /2 IS SET,  THE  DATA  STARTS  HALF-WAY  INTO THE IMAGE.  OTHER IMAGE MODES
/	START AT RECORD 0000.

	CDF	TBLFLD			/GOTO TABLE FIELD
	TAD I	[SWY9]			/GET /Y-/9 SWITCHES
	AND	(200)			/JUST /2 SWITCH
	SNA CLA				/SKIP IF SET
	JMP	IMAGE1			/JUMP IF /1 OR NEITHER /1, /2 SET
	TAD I	[EQUWRD]		/GET EQUALS PARAMETER
	CLL RAR				/%2
IMAGE1,	DCA	OUTRECORD		/STORE STARTING OUTPUT RECORD
	CDF	PRGFLD			/BACK TO OUR FIELD
	SKP				/DON'T ENTER FILE NAME
NOIMAGE,JMS I	(FENTER)		/ENTER THE TENTATIVE FILE NAME
	DCA	DSTATE			/SET INITIAL DATA STATE
	JMS I	(CLRCHKSUM)		/CLEAR OUT CHECKSUM
	JMS I	(DECODIT)		/GO DO THE ACTUAL DECODING
	JMP I	(PROCERR)		/ERROR WHILE DECODING
	TAD	IMSW			/GET IMAGE-MODE SWITCH
	SZA CLA				/SKIP IF CLEAR
	JMP	EXITZAP			/JUMP IF SET
	TAD	ODNUMBER		/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	CLOSE				/CLOSE OUTPUT FILE
	FNAME				/POINTER TO FILENAME
OUTCNT,	.-.				/WILL BE ACTUAL COUNT
	JMP I	(CLSERR)		/CLOSE ERROR
EXITZAP,JMP	START			/**** <ESC> TERMINATION **** 0000
	JMP I	(SBOOT)			/EXIT TO MONITOR
/	COMES HERE TO TEST FOR NULL LINE.

TSTMORE,TAD I	(OUTFILE+5)		/GET SECOND OUTPUT FILE DEVICE WORD
	SNA				/SKIP IF PRESENT
	TAD I	(OUTFILE+12)		/ELSE GET THIRD OUTPUT FILE DEVICE WORD
	SZA CLA				/SKIP IF NO OUTPUT FILES
	JMP I	(OUTERR)		/ELSE COMPLAIN OF SECOND/THIRD (WITHOUT FIRST) OUTPUT 
	TAD I	(INFILE)		/GET FIRST OUTPUT FILE DEVICE WORD
	SZA CLA				/SKIP IF NO INPUT FILES
	JMP	ODNULL			/JUMP IF INPUT WITHOUT OUTPUT
	CDF	PRGFLD			/BACK TO OUR FIELD
	JMP	EXITZAP			/MIGHT BE LAST TIME, SO GO THERE FIRST

	PAGE
/	ERROR WHILE PROCESSING INPUT FILE.

PROCERR,NL0002				/SET INCREMENT
	SKP				/DON'T USE NEXT

/	ERROR WHILE CLOSING THE OUTPUT FILE.

CLSERR,	NL0001				/SET INCREMENT
	SKP				/DON'T CLEAR IT

/	OUTPUT FILE TOO LARGE ERROR.

SIZERR,	CLA				/CLEAN UP
	TAD	[3]			/SET INCREMENT
	SKP				/DON'T USE NEXT

/	ENTER ERROR.

ENTERR,	NL0002				/SET INCREMENT
	SKP				/DON'T USE NEXT

/	HANDLER FETCH ERROR.

FERROR,	NL0001				/SET INCREMENT

/	I/O ERROR WHILE PROCESSING (FILE ) COMMAND.

NIOERR,	IAC				/SET INCREMENT

/	FORMAT ERROR WHILE PROCESSING (FILE ) COMMAND.

CHARERR,IAC				/SET INCREMENT

/	INPUT FILESPEC ERROR.

INERR,	IAC				/SET INCREMENT

/	OUTPUT FILESPEC ERROR.

OUTERR,	DCA	ERRNUMBER		/STORE ERROR NUMBER
	CDF	PRGFLD			/ENSURE OUR FIELD
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	USERROR				/USER ERROR
ERRNUMB,.-.				/WILL BE PASSED ERROR NUMBER
DECODIT,.-.				/DECODING ROUTINE
	TAD	OUTRECORD		/GET STARTING RECORD OF TENTATIVE FILE
	DCA	PUTRECORD		/STORE IN-LINE
	DCA I	(OUTCNT)		/CLEAR ACTUAL FILE LENGTH
	NL7777				/SETUP THE
	DCA	INITFLAG		/INITIALIZE FLAG
	TAD	(GWLOOP)		/INITIALIZE THE
	DCA I	(GWNEXT)		/DECODE PACK ROUTINE
PUTNEWR,TAD	POUTBUFFER/(OUTBUFFER)	/SETUP THE
	DCA	PUTPTR			/OUTPUT BUFFER POINTER
PUTLOOP,JMS I	(GETWORD)		/GET A WORD
	DCA I	PUTPTR			/STORE IT
	ISZ	PUTPTR			/BUMP TO NEXT
	TAD	PUTPTR			/GET THE POINTER
	TAD	(-2^200-OUTBUFFER)	/COMPARE TO LIMIT
	SZA CLA				/SKIP IF AT END
	JMP	PUTLOOP			/KEEP GOING
	ISZ	DANGCNT			/TOO MANY RECORDS?
	SKP				/SKIP IF NOT
	JMP I	(SIZERROR)		/NOT ENOUGH SPACE AVAILABLE
	JMS I	OUTPUT			/CALL OUTPUT HANDLER
	2^100+WRITE			/WRITE LATEST RECORD
POUTBUF,OUTBUFFER			/OUTPUT BUFFER ADDRESS
PUTRECO,.-.				/WILL BE LATEST RECORD NUMBER
DECERR,	JMP I	DECODIT			/I/O ERROR
	ISZ	PUTRECORD		/BUMP TO NEXT RECORD
	NOP				/JUST IN CASE
	ISZ I	(OUTCNT)		/BUMP ACTUAL LENGTH
	JMP	PUTNEWRECORD		/GO DO ANOTHER ONE

/	GOOD RETURN HERE.

DECBMP,	ISZ	DECODIT			/BUMP TO GOOD RETURN
	JMP I	DECODIT			/RETURN
/	OS/8 FILE UNPACK ROUTINE.

GETBYTE,.-.				/GET A BYTE ROUTINE
	SNA CLA				/INITIALIZING?
	JMP I	PUTC			/NO, GO GET NEXT BYTE
	TAD	INRECORD		/GET STARTING RECORD OF INPUT FILE
	DCA	GETRECORD		/STORE IN-LINE
GETNEWR,JMS I	INPUT			/CALL I/O HANDLER
	2^100				/READ TWO PAGES INTO BUFFER
	INBUFFER			/BUFFER ADDRESS
GETRECO,.-.				/WILL BE LATEST RECORD NUMBER
	JMP I	GETBYTE			/INPUT ERROR!
	TAD	(INBUFFER)		/SETUP THE
	DCA	BUFPTR			/BUFFER POINTER
GETLOOP,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	(-2^200-INBUFFER)	/COMPARE TO LIMIT
	SZA CLA				/SKIP IF AT END
	JMP	GETLOOP			/KEEP GOING
	ISZ	GETRECORD		/BUMP TO NEXT RECORD
	JMP	GETNEWRECORD		/GO DO ANOTHER ONE

PUTONE,	.-.				/SEND BACK A BYTE ROUTINE
	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
	AND	(177)			/KEEP ONLY GOOD BITS
	TAD	(-"Z!300)		/COMPARE TO <^Z>
	SNA				/SKIP IF NOT ASCII <EOF>
	JMP	GETEOF			/JUMP IF ASCII MODE <EOF>
	TAD	("Z&37)			/RESTORE THE CHARACTER
	ISZ	GETBYTE			/BUMP PAST <EOF> RETURN
GETEOF,	ISZ	GETBYTE			/BUMP PAST I/O ERROR RETURN
	JMP I	GETBYTE			/RETURN TO MAIN CALLER
	PAGE
/	GET A DECODED WORD ROUTINE.

GETWORD,.-.				/GET A WORD ROUTINE
	JMP I	GWNEXT			/GO WHERE YOU SHOULD GO

GWNEXT,	.-.				/EXIT ROUTINE
	SNL				/SKIP IF CHECKSUM PREVENTED
	JMS I	(DOCHECK)		/ELSE DO CHECKSUM
	JMP I	GETWORD			/RETURN TO MAIN CALLER

/	COMES HERE TO PROCESSED COMPRESSED DATA.

GWX,	JMS I	(GETCHR)		/GET NEXT CHARACTER
	JMS I	(GWORD0)		/GET 12-BIT WORD
	JMS I	(DOCHECK)		/INCLUDE IN CHECKSUM
	DCA	GWVALUE			/SAVE AS COMPRESSED VALUE
	TAD	GWTMP2			/GET LATEST CHARACTER
	AND	[7]			/ISOLATE BITS[9-11]
	CLL RTR;RTR			/BITS[9-11] => AC[0-2]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS	GBIHEXBINARY		/GET A CHARACTER
	CLL RTL;RTL			/BITS[7-11] => AC[3-7]
	TAD	GWTMP1			/ADD ON BITS[0-2]
	JMS I	(DOCHECK)		/INCLUDE IN CHECKSUM
	CLL RTR;RTR			/BITS[0-7] => AC[4-11]
	SNA				/SKIP IF NOT 256
	TAD	[400]			/000 => 256
	CIA				/INVERT FOR COUNTING
	DCA	GWTMP1			/SAVE AS REPEAT COUNTER
GWXLUP,	TAD	GWVALUE			/GET THE VALUE
	STL				/PREVENT CHECKSUMMING IT
	JMS	GWNEXT			/RETURN IT TO THEM
	ISZ	GWTMP1			/DONE ENOUGH?
	JMP	GWXLUP			/NO, KEEP GOING
/	COMES HERE TO INITIATE ANOTHER DATA GROUP.

GWLOOP,	JMS I	(GETCHR)		/GET LATEST FILE CHARACTER
	TAD	(-"Z!200)		/COMPARE TO EOF INDICATOR
	SNA				/SKIP IF OTHER
	JMP	GWZ			/JUMP IF IT MATCHES
	TAD	(-"X+"Z)		/COMPARE TO COMPRESSION INDICATOR
	SNA CLA				/SKIP IF OTHER
	JMP	GWX			/JUMP IF IT MATCHES
	TAD	PUTEMP			/GET THE CHARACTER BACK
	JMS I	(GWORD0)		/GET A 12-BIT WORD
	JMS	GWNEXT			/RETURN IT
	JMS I	(GWORD1)		/GET NEXT 12-BIT WORD
	JMS	GWNEXT			/RETURN IT
	JMS I	(GWORD2)		/GET NEXT 12-BIT WORD
	JMS	GWNEXT			/RETURN IT
	JMS I	(GWORD3)		/GET NEXT 12-BIT WORD
	JMS	GWNEXT			/RETURN IT
	JMS I	(GWORD4)		/GET NEXT 12-BIT WORD
	JMS	GWNEXT			/RETURN IT
	JMP	GWLOOP			/KEEP GOING

/	COMES HERE WHEN EOF INDICATOR FOUND.

GWZ,	TAD	(FCHKSUM-1)		/SETUP THE
	DCA	XR1			/CHECKSUM POINTER
	JMS I	(GETCHR)		/GET NEXT CHARACTER
	JMS I	(GWORD0)		/GET A 12-BIT WORD
	DCA I	XR1			/STORE IT
	JMS I	(GWORD1)		/GET NEXT WORD
	DCA I	XR1			/STORE IT
	JMS I	(GWORD2)		/GET NEXT WORD
	DCA I	XR1			/STORE IT
	JMS I	(GWORD3)		/GET NEXT WORD
	DCA I	XR1			/STORE IT
	JMS I	(GWORD4)		/GET NEXT WORD
	DCA I	XR1			/STORE IT
	TAD	(CHKSUM-1)		/POINT TO
	DCA	XR1			/CALCULATED CHECKSUM
	TAD	(FCHKSUM-1)		/POINT TO
	DCA	XR2			/FILE CHECKSUM
	TAD	[-5]			/SETUP THE
	DCA	CCNT			/COMPARE COUNT
	CLL				/CLEAR LINK FOR TEST
GWCMPLP,RAL				/GET CARRY
	TAD I	XR1			/GET A CALCULATED WORD
	TAD I	XR2			/COMPARE TO FILE WORD
	SZA CLA				/SKIP IF OK
	JMP I	(DECERR)		/ELSE COMPLAIN
	ISZ	CCNT			/DONE ALL?
	JMP	GWCMPLP			/NO, KEEP GOING
/	THE CHECKSUM IS OK, CHECK IF FILE ENDED IN A PLAUSIBLE PLACE.

	TAD	PUTPTR			/GET OUTPUT POINTER
	TAD	(-OUTBUFFER-4)		/COMPARE TO LIMIT
	SMA SZA CLA			/SKIP IF GOOD VALUE
	JMP I	(DECERROR)		/JUMP IF NOT

/	THE FILE ENDED OK, THERE WERE POSSIBLY A  FEW  CHARACTERS  LEFTOVER BECAUSE OF
/	ALIGNMENT  CONSIDERATIONS.    THEY  SHOULD  BE  IGNORED SINCE OS/8  FILES  ARE
/	MULTIPLES OF WHOLE RECORDS.

	JMP I	(DECBMP)		/RETURN WITH ALL OK

GBIHEXB,.-.				/GET BINARY VALUE OF BIHEXADECIMAL CHARACTER
	CLA				/CLEAN UP
	TAD	GBIHEXBINARY		/GET OUR CALLER
	DCA	BIHEXBINARY		/MAKE IT THEIRS
	JMS I	(GETCHR)		/GET A CHARACTER
	SKP				/DON'T EXECUTE HEADER!

BIHEXBI,.-.				/CONVERT BIHEXADECIMAL TO BINARY
	TAD	(-"A!200)		/COMPARE TO ALPHABETIC LIMIT
	SMA				/SKIP IF LESS
	TAD	("9+1-"A)		/ELSE ADD ON ALPHABETIC OFFSET
	TAD	(-"0+"A)		/MAKE IT BINARY, NOT ASCII
	DCA	GWTMP2			/SAVE IT
	TAD	GWTMP2			/GET IT BACK
	JMP I	BIHEXBINARY		/RETURN

	PAGE
/	GET  WORD[0]  ROUTINE.	  AC  MUST  ALREADY  CONTAIN THE FIRST  BI-HEXADECIMAL
/	CHARACTER.

GWORD0,	.-.				/GET 12-BIT WORD[0]
	JMS I	(BIHEXBINARY)		/CONVERT PASSED VALUE TO BINARY
	CLL RTR;RTR;RTR			/BITS[7-11] => AC[0-4]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	CLL RTL				/BITS[7-11] => AC[5-9]
	TAD	GWTMP1			/ADD ON BITS[0-4]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	RTR;RAR				/BITS[7-8] => AC[10-11]
	AND	[3]			/ISOLATE BITS[10-11]
	TAD	GWTMP1			/ADD ON BITS[0-9]
	CLL				/CLEAR LINK
	JMP I	GWORD0			/RETURN

/	GET  WORD[1] ROUTINE.  GWORD0 MUST HAVE BEEN CALLED LAST, SO  GWTMP2  CONTAINS
/	THE PREVIOUS CHARACTER.

GWORD1,	.-.				/GET 12-BIT WORD[1]
	TAD	GWTMP2			/GET PREVIOUS CHARACTER
	AND	[7]			/ISOLATE BITS[9-11]
	CLL RTR;RTR			/BITS[9-11] => AC[0-2]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	CLL RTL;RTL			/BITS[7-11] => AC[3-7]
	TAD	GWTMP1			/ADD ON BITS[0-2]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	CLL RAR				/BITS[7-10] => AC[8-11]
	TAD	GWTMP1			/ADD ON BITS[0-7]
	CLL				/CLEAR LINK
	JMP I	GWORD1			/RETURN
/	GET  WORD[2]  ROUTINE.	GWORD1 MUST HAVE BEEN CALLED LAST, SO GWTMP2  CONTAINS
/	THE PREVIOUS CHARACTER.

GWORD2,	.-.				/GET 12-BIT WORD[2]
	TAD	GWTMP2			/GET PREVIOUS CHARACTER
	RAR;CLA RAR			/BIT[11] => AC[0]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	CLL RTL;RTL;RTL			/BITS[7-11] => AC[1-5]
	TAD	GWTMP1			/ADD ON BIT[0]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	CLL RAL				/BITS[7-11] => AC[6-10]
	TAD	GWTMP1			/ADD ON BITS[0-5]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	AND	(20)			/ISOLATE BIT[7]
	CLL RTR;RTR			/BIT[7] => AC[11]
	TAD	GWTMP1			/ADD ON BITS[0-10]
	CLL				/CLEAR LINK
	JMP I	GWORD2			/RETURN

/	GET  WORD[3]  ROUTINE.   GWORD2 MUST HAVE BEEN CALLED LAST, SO GWTMP2 CONTAINS
/	THE PREVIOUS CHARACTER.

GWORD3,	.-.				/GET 12-BIT WORD[3]
	TAD	GWTMP2			/GET PREVIOUS CHARACTER
	CLL RTR;RTR;RAR			/BITS[8-11] => AC[0-3]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	CLL RTL;RAL			/BITS[7-11] => AC[4-8]
	TAD	GWTMP1			/ADD ON BITS[0-3]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	RTR				/BITS[7-9] => AC[9-11]
	AND	[7]			/ISOLATE BITS[9-11]
	TAD	GWTMP1			/ADD ON BITS[0-8]
	CLL				/CLEAR LINK
	JMP I	GWORD3			/RETURN
/	GET WORD[4]  ROUTINE.	 GWORD3 MUST HAVE BEEN CALLED LAST, SO GWTMP2 CONTAINS
/	THE PREVIOUS CHARACTER.

GWORD4,	.-.				/GET 12-BIT WORD[4]
	TAD	GWTMP2			/GET PREVIOUS CHARACTER
	AND	[3]			/ISOLATE BITS[10-11]
	CLL RTR;RAR			/BITS[10-11] => AC[0-1]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	CLL RTL;RTL;RAL			/BITS[7-11] => AC[2-6]
	TAD	GWTMP1			/ADD ON BITS[0-1]
	DCA	GWTMP1			/SAVE FOR NOW
	JMS I	(GBIHEXBINARY)		/GET NEXT CHARACTER IN BINARY
	TAD	GWTMP1			/ADD ON BITS[0-6] TO BITS[7-11]
	CLL				/CLEAR LINK
	JMP I	GWORD4			/RETURN

DOCHECK,.-.				/CHECKSUM ROUTINE
	DCA	CSUMTMP			/SAVE PASSED VALUE
	TAD	(CHKSUM-1)		/SETUP THE
	DCA	XR1			/INPUT POINTER
	TAD	(CHKSUM-1)		/SETUP THE
	DCA	XR2			/OUTPUT POINTER
	TAD	[-5]			/SETUP THE
	DCA	CCNT			/SUM COUNT
	TAD	CSUMTMP			/GET THE VALUE
	CLL RAR				/ADJUST FOR OPENING ITERATION
CSUMLUP,RAL				/GET CARRY
	TAD I	XR1			/ADD ON A WORD
	DCA I	XR2			/STORE BACK
	ISZ	CCNT			/DONE ALL YET?
	JMP	CSUMLUP			/NO, KEEP GOING
	TAD	CSUMTMP			/GET LATEST VALUE
	JMP I	DOCHECK			/RETURN

	PAGE
GETCHR,	.-.				/GET A VALID CHARACTER ROUTINE
GETMORE,TAD	INITFLAG		/GET INITIALIZE FLAG
	JMS I	[GETBYTE]		/GET A CHARACTER
	JMP I	(DECERR)		/I/O ERROR
	JMP I	(DECERR)		/<EOF>
	DCA	PUTEMP			/SAVE THE CHARACTER
	DCA	INITFLAG		/CLEAR INITIALIZE FLAG
	TAD	DSTATE			/GET DATA STATE
	SPA				/SKIP IF NOT ONE OF THE DATA-ORIENTED STATES
	TAD	(4004)			/ADD ON DATA-ORIENTED STATES OFFSET
	TAD	(JMP I	P)		/SETUP JUMP INSTRUCTION
	DCA	.+1			/STORE IN-LINE
	.-.				/AND EXECUTE IT

/	LOOKING FOR OPENING CHARACTER.

SCANIT,	TAD	PUTEMP			/GET THE CHARACTER
	TAD	(-"<!200)		/COMPARE TO OPENING DATA CHARACTER
	SNA				/SKIP IF NO MATCH
	JMP	FNDATA			/JUMP IF IT MATCHES
	TAD	(-"(+"<)		/COMPARE TO OPENING COMMAND CHARACTER
	SNA CLA				/SKIP IF NO MATCH
	ISZ	DSTATE			/INDICATE LOOKING FOR END OF COMMAND
	JMP	GETMORE			/KEEP GOING

/	FOUND OPENING COMMAND CHARACTER.

FNDCOMM,TAD	PUTEMP			/GET THE CHARACTER
	TAD	(-")!200)		/COMPARE TO CLOSING COMMAND CHARACTER
	SNA CLA				/SKIP IF NO MATCH
	ISZ	DSTATE			/INDICATE LOOKING FOR <CR>
	JMP	GETMORE			/KEEP GOING

/	FOUND CLOSING COMMAND CHARACTER.

FNDCEND,TAD	PUTEMP			/GET THE CHARACTER
	TAD	(-"M!300)		/COMPARE TO <CR>
	SNA CLA				/SKIP IF NO MATCH
	ISZ	DSTATE			/INDICATE LOOKING FOR <LF>
	JMP	GETMORE			/KEEP GOING

/	FOUND <CR> AFTER COMMAND.

FNDCR,	TAD	PUTEMP			/GET THE CHARACTER
	TAD	(-"J!300)		/COMPARE TO <LF>
	SNA CLA				/SKIP IF NO MATCH
	DCA	DSTATE			/RESET TO SCANNING STATE
	JMP	GETMORE			/KEEP GOING
/	FOUND OPENING DATA CHARACTER.

FNDATA,	TAD	(-WIDTH)		/SETUP THE
	DCA	DATCNT			/DATA COUNTER
	NL4000				/SETUP THE
	DCA	DSTATE			/NEW STATE
	JMP	GETMORE			/KEEP GOING

/	PROCESSING ONE OF 69 DATA CHARACTERS.

STORDAT,TAD	PUTEMP			/GET THE CHARACTER
	TAD	[-140]			/SUBTRACT UPPER-CASE LIMIT
	SPA				/SKIP IF LOWER-CASE
	TAD	[40]			/RESTORE UPPER-CASE
	TAD	(100)			/RESTORE THE CHARACTER
	DCA	PUTEMP			/SAVE IT BACK
	TAD	PUTEMP			/GET IT AGAIN
	TAD	(-"Z!200-1)		/SUBTRACT UPPER LIMIT
	CLL				/CLEAR LINK FOR TEST
	TAD	("Z-"A+1)		/ADD ON RANGE
	SZL CLA				/SKIP IF NOT ALPHABETIC
	JMP	ALPHAOK			/JUMP IF ALPHABETIC
	TAD	PUTEMP			/GET THE CHARACTER
	TAD	(-"9!200-1)		/ADD ON UPPER LIMIT
	CLL				/CLEAR LINK FOR TEST
	TAD	("9-"0+1)		/ADD ON RANGE
	SNL CLA				/SKIP IF OK
	JMP	GETMORE			/IGNORE IF NOT
ALPHAOK,TAD	PUTEMP			/GET THE CHARACTER
	ISZ	DATCNT			/DONE 69 CHARACTERS?
	SKP				/SKIP IF NOT
	ISZ	DSTATE			/ADVANCE TO NEXT STATE
	JMP I	GETCHR			/RETURN

/	PROCESSED 69 DATA CHARACTERS; NOW LOOKING FOR ENDING DATA CHARACTER.

ENDATA,	TAD	PUTEMP			/GET THE CHARACTER
	TAD	(-">!200)		/COMPARE TO ENDING DATA VALUE
	SNA CLA				/SKIP IF NO MATCH
	ISZ	DSTATE			/ELSE ADVANCE TO NEXT STATE
	JMP	GETMORE			/KEEP GOING

/	FOUND ENDING DATA CHARACTER; NOW LOOKING FOR <CR>.

ENDCR,	TAD	PUTEMP			/GET THE CHARACTER
	TAD	(-"M!300)		/COMPARE TO <CR>
	SNA CLA				/SKIP IF NO MATCH
	ISZ	DSTATE			/ELSE ADVANCE TO NEXT STATE
	JMP	GETMORE			/KEEP GOING
/	FOUND ENDING DATA CHARACTER AND <CR>; NOW LOOKING FOR <LF>.

/ENDLF,	TAD	PUTEMP			/GET THE CHARACTER
/	TAD	(-"J!300)		/COMPARE TO <LF>
/	SNA CLA				/SKIP IF NO MATCH
/	DCA	DSTATE			/RESET TO SCANNING STATE
/	JMP	GETMORE			/KEEP GOING

CLRCHKS,.-.				/CLEAR CALCULATED CHECKSUM ROUTINE
	DCA	CHKSUM+0		/CLEAR LOW-ORDER
	DCA	CHKSUM+1		/CLEAR NEXT
	DCA	CHKSUM+2		/CLEAR NEXT
	DCA	CHKSUM+3		/CLEAR NEXT
	DCA	CHKSUM+4		/CLEAR HIGH-ORDER
	JMP I	CLRCHKSUM		/RETURN

	PAGE
GEOFILE,.-.				/GET OUTPUT FILE ROUTINE
	TAD	ODNUMBER		/GET OUTPUT DEVICE NUMBER
	SZA CLA				/SKIP IF NOT ESTABLISHED YET
	JMP	GOTOD			/JUMP IF DETERMINED ALREADY
	TAD	("D^100+"S-300)		/GET BEGINNING OF "DSK"
	DCA	DEVNAME			/STORE IN-LINE
	TAD	("K^100)		/GET REST OF "DSK"
	DCA	DEVNAME+1		/STORE IN-LINE
	DCA	RETVAL			/CLEAR HANDLER ENTRY WORD
	CDF	PRGFLD			/INDICATE OUR FIELD
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	INQUIRE				/INQUIRE ABOUT HANDLER
DEVNAME,ZBLOCK	2			/WILL BE DEVICE DSK
RETVAL,	.-.				/BECOMES HANDLER ENTRY POINT WORD
	HLT				/DSK: NOT IN SYSTEM IS IMPOSSIBLE!
	TAD	DEVNAME+1		/GET DEVICE NUMBER FOR DSK:
	AND	[17]			/JUST DEVICE BITS
	DCA	ODNUMBER		/STORE OUTPUT DEVICE
GOTOD,	CDF	TBLFLD			/BACK TO TABLE FIELD
	TAD I	(OUTFILE+1)		/GET OUTPUT FILE FIRST NAME WORD
	SNA				/SKIP IF PRESENT
	JMP	GFLNAME			/JUMP IF NOT
	DCA	FNAME			/MOVE TO OUR AREA
	TAD I	(OUTFILE+2)		/GET SECOND NAME WORD
	DCA	FNAME+1			/MOVE IT
	TAD I	(OUTFILE+3)		/GET THIRD NAME WORD
	DCA	FNAME+2			/MOVE IT
	TAD I	(OUTFILE+4)		/GET EXTENSION WORD
	DCA	FNAME+3			/MOVE IT
GEOFXIT,CDF	PRGFLD			/BACK TO OUR FIELD
	JMP I	GEOFILE			/RETURN

/	WE  MUST  TAKE  THE  FILENAME  FROM  THE IMBEDDED (FILE ) COMMAND.   THE  ONLY
/	EXCEPTION IS IF WE ARE DOING AN IMAGE TRANSFER.

GFLNAME,TAD I	(SWAL)			/GET /A-/L SWITCHES
	AND	(10)			/JUST /I BIT
	SZA CLA				/SKIP IF NOT SET
	TAD I	[EQUWRD]		/GET EQUALS PARAMETER
	SNA				/SKIP IF SET TO SOMETHING
	JMP	DOFLNAME		/JUMP IF PARAMETERS NOT SET
	CMA				/INVERT IT
	DCA	DANGCNT			/STORE AS DANGER COUNT
	ISZ	IMSW			/SET IMAGE-MODE SWITCH
	TAD I	[SWY9]			/GET /Y-/9 SWITCHES
	AND	(600)			/JUST /1, /2 SWITCHES
	SNA				/SKIP IF EITHER SET
	JMP	GEOFXIT			/JUMP IF NEITHER SET
	AND	[400]			/JUST /1 SWITCH
	SNA CLA				/SKIP IF /1 SET
	JMP	IM2			/JUMP IF /2 SET
	TAD I	[EQUWRD]		/GET EQUALS PARAMETER
	CLL RAR				/%2
	JMP	IMCOMMON		/CONTINUE THERE
IM2,	TAD I	[EQUWRD]		/GET EQUALS PARAMETER
	CLL RAR				/%2
	CIA				/SUBTRACT PART 1 VALUE
	TAD I	[EQUWRD]		/FROM EQUALS PARAMETER
IMCOMMO,CMA				/INVERT IT
	DCA	DANGCNT			/STORE AS DANGER COUNT
	JMP	GEOFXIT			/EXIT THERE

DOFLNAM,CDF	PRGFLD			/BACK TO OUR FIELD
	NL7777				/SETUP THE
	DCA	INITFLAG		/INPUT FILE INITIALIZATION
	JMS I	(SCNFILE)		/SCAN OFF "(FILE"

/	HAVING FOUND THE (FILE ) COMMAND, WE MUST FIND THE FILENAME.

/	ZERO OUT THE FILENAME AREA.

	TAD	(-10)			/SETUP THE
	DCA	CHRCNT			/CLEAR COUNTER
	TAD	(ONAME-1)		/SETUP THE
	DCA	XR1			/POINTER
	JMS I	(CLRNAME)		/CLEAR THE NAME BUFFER

/	SETUP FOR SCANNING THE NAME PORTION.

	TAD	(-6)			/SETUP THE
	DCA	CHRCNT			/SCAN COUNT
	TAD	(ONAME-1)		/SETUP THE
	DCA	XR1			/POINTER
FNCAGN,	JMS I	(GETAN)			/GET A CHARACTER
	JMP	GOTSEPARATOR		/GOT "."; GOTO NEXT FIELD
	DCA I	XR1			/STASH THE CHARACTER
	ISZ	CHRCNT			/DONE ALL YET?
	JMP	FNCAGN			/NO, KEEP GOING

/	THROW AWAY EXTRA NAME CHARACTERS.

TOSSNAM,JMS I	(GETAN)			/GET A CHARACTER
	JMP	GOTSEPARATOR		/GOT "."; GOTO NEXT FIELD
	JMP	TOSSNAME		/KEEP GOING

/	COMES HERE AFTER "." FOUND.

GOTSEPA,JMS I	(CLRNAME)		/CLEAR OUT THE REMAINING NAME FIELD
	NL7776				/SETUP THE
	DCA	CHRCNT			/SCAN COUNT
EXCAGN,	JMS I	(GETAN)			/GET A CHARACTER
	JMP I	[CHARERROR]		/GOT "."; COMPLAIN
	DCA I	XR1			/STASH THE CHARACTER
	ISZ	CHRCNT			/DONE ENOUGH YET?
	JMP	EXCAGN			/NO, KEEP GOING
/	TOSS ANY EXTRA EXTENSION CHARACTERS.

TOSSEXT,JMS I	(GETAN)			/GET A CHARACTER
	JMP I	[CHARERROR]		/GOT "."; COMPLAIN
	JMP	TOSSEXTENSION		/KEEP GOING

/	COMES HERE WHEN TRAILING ")" IS FOUND.

GOTRPAR,JMS I	(CLRNAME)		/CLEAR ANY REMAINING EXTENSION CHARACTERS
	TAD I	(ONAME)			/GET THE FIRST CHARACTER
	SNA CLA				/SKIP IF SOMETHING THERE
	JMP I	[CHARERROR]		/COMPLAIN IF NONE THERE
	TAD	(ONAME-1)		/SETUP POINTER
	DCA	XR1			/TO NAME CHARACTERS
	TAD	(FNAME-1)		/SETUP POINTER
	DCA	XR2			/TO PACKED NAME AREA
	TAD	(-4)			/SETUP THE
	DCA	CHRCNT			/MOVE COUNT
CHRLOOP,TAD I	XR1			/GET FIRST CHARACTER
	CLL RTL;RTL;RTL			/MOVE UP
	TAD I	XR1			/ADD ON SECOND CHARACTER
	DCA I	XR2			/STORE THE PAIR
	ISZ	CHRCNT			/DONE YET?
	JMP	CHRLOOP			/NO, KEEP GOING
	JMP I	GEOFILE			/YES, RETURN

	PAGE
SCNFILE,.-.				/SCAN "(FILE" ROUTINE
MATAGN,	JMS	GETNSPC			/GET A CHARACTER
	TAD	(-"(!200)		/COMPARE TO "("
	SZA CLA				/SKIP IF IT MATCHES
	JMP	MATAGN			/JUMP IF NOT
	JMS	GETNSPC			/GET NEXT CHARACTER
	TAD	(-"F!300)		/COMPARE TO "F"
	SZA CLA				/SKIP IF IT MATCHES
	JMP	MATAGN			/JUMP IF NOT
	JMS	GETNSPC			/GET NEXT CHARACTER
	TAD	(-"I!300)		/COMPARE TO "I"
	SZA CLA				/SKIP IF IT MATCHES
	JMP	MATAGN			/JUMP IF NOT
	JMS	GETNSPC			/GET NEXT CHARACTER
	TAD	(-"L!300)		/COMPARE TO "L"
	SZA CLA				/SKIP IF IT MATCHES
	JMP	MATAGN			/JUMP IF NOT
	JMS	GETNSPC			/GET NEXT CHARACTER
	TAD	(-"E!300)		/COMPARE TO "E"
	SZA CLA				/SKIP IF IT MATCHES
	JMP	MATAGN			/JUMP IF NOT
	JMP I	SCNFILE			/RETURN

CLRNAME,.-.				/NAME FIELD CLEARING ROUTINE
	TAD	CHRCNT			/GET CHARACTER COUNTER
	SNA CLA				/SKIP IF ANY TO CLEAR
	JMP I	CLRNAME			/ELSE JUST RETURN
	DCA I	XR1			/CLEAR A NAME WORD
	ISZ	CHRCNT			/COUNT IT
	JMP	.-2			/KEEP GOING
	JMP I	CLRNAME			/RETURN

GETNSPC,.-.				/GET NON-<SPACE> CHARACTER
GETNAGN,JMS	GETCHAR			/GET A CHARACTER
	TAD	(-" !200)		/COMPARE TO <SPACE>
	SNA CLA				/SKIP IF OTHER
	JMP	GETNAGN			/JUMP IF IT MATCHES
	TAD	PUTEMP			/GET THE CHARACTER BACK
	JMP I	GETNSPC			/RETURN

GETCHAR,.-.				/GET A CHARACTER ROUTINE
	CLA				/CLEAN UP
	TAD	INITFLAG		/GET INITIALIZE FLAG
	JMS I	[GETBYTE]		/GET A CHARACTER
	JMP I	(NIOERROR)		/COMPLAIN IF AN ERROR
	JMP I	[CHARERROR]		/COMPLAIN IF <EOF> REACHED
	TAD	[-140]			/COMPARE TO LOWER-CASE LIMIT
	SPA				/SKIP IF LOWER-CASE
	TAD	[40]			/RESTORE ORIGINAL IF UPPER-CASE
	AND	(77)			/JUST SIX-BIT
	DCA	PUTEMP			/SAVE IN CASE WE NEED IT
	DCA	INITFLAG		/CLEAR INITIALIZE FLAG
	TAD	PUTEMP			/GET IT BACK
	JMP I	GETCHAR			/RETURN
GETAN,	.-.				/GET ALPHANUMERIC ROUTINE
	JMS	GETNSPC			/GET A NON-<SPACE> CHARACTER
	TAD	(-".!200)		/COMPARE TO "."
	SNA				/SKIP IF OTHER
	JMP I	GETAN			/TAKE FIRST RETURN IF IT MATCHES
	TAD	(-")+".)		/COMPARE TO ")"
	SNA				/SKIP IF OTHER
	JMP I	(GOTRPAREN)		/TAKE DEDICATED RETURN IF IT MATCHES
	TAD	(-":+"))		/SUBTRACT UPPER LIMIT
	CLL				/CLEAR LINK FOR TEST
	TAD	(":-"0)			/ADD ON RANGE
	SZL CLA				/SKIP IF NOT NUMERIC
	JMP	GETANOK			/JUMP IF NUMERIC
	TAD	PUTEMP			/GET THE CHARACTER BACK
	TAD	(-"[!300)		/SUBTRACT UPPER LIMIT
	CLL				/CLEAR LINK FOR TEST
	TAD	("[-"A)			/ADD ON RANGE
	SNL CLA				/SKIP IF ALPHABETIC
	JMP I	[CHARERROR]		/ELSE COMPLAIN
GETANOK,TAD	PUTEMP			/GET GOOD ALPHANUMERIC CHARACTER
	ISZ	GETAN			/BUMP TO SKIP RETURN
	JMP I	GETAN			/RETURN

ONAME,	ZBLOCK	10			/OUTPUT NAME FIELD

FENTER, .-.                     	/FILE ENTER ROUTINE
	TAD	(FNAME)			/POINT TO
	DCA	ENTAR1			/STORED FILENAME
	DCA	ENTAR2			/CLEAR SECOND ARGUMENT
	TAD	ODNUMBER		/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	ENTER				/ENTER TENTATIVE FILENAME
ENTAR1,	.-.				/WILL POINT TO FILENAME
ENTAR2,	.-.				/WILL BE ZERO
	JMP I	(ENTERR)		/ENTER ERROR
	TAD	ENTAR2			/GET RETURNED EMPTY LENGTH
	IAC				/ADD 2-1 FOR OS/278 CRAZINESS
	DCA	DANGCNT			/STORE AS DANGER COUNT
	TAD	ENTAR1			/GET RETURNED FIRST RECORD
	DCA	OUTRECORD		/SETUP OUTPUT RECORD
        JMP I   FENTER          	/RETURN
	PAGE

	$				/THAT'S ALL FOLK!

/	OS/8 BOO ENCODING PROGRAM

/	LAST EDIT:	01-OCT-1991	15:00:00	CJL

/	MAY BE ASSEMBLED WITH '/F' SWITCH SET.

/	PROGRAM TO ENCODE ANY  TYPE  OF  OS/8  FILE  INTO  "PRINTABLE"  ASCII (".BOO")
/	FORMAT.  THIS IS A  COMMON  DISTRIBUTION FORMAT FOR MANY COLUMBIA KERMIT FILES
/	AND IS AN ALTERNATIVE TO ENCODE FORMAT FOR PDP-8 AND DECMATE USERS.

/	DISTRIBUTED BY CUCCA AS "K12ENB.PAL" AS PART OF THE CUCCA KERMIT-12 PACKAGE.

/	WRITTEN BY:

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

/	USAGE:

/	.RUN DEV ENBOO		INVOKE PROGRAM
/	*OUTPUT<INPUT		PASS ONE INPUT AND ONE OUTPUT FILE ONLY (WITH <CR>)
/	*OUTPUT<INPUT$		PASS ONE INPUT AND ONE OUTPUT FILE ONLY (WITH <ESC>)
/	.			PROGRAM EXITS NORMALLY

/	INPUT FILE ASSUMES .SV EXTENSION; THERE IS NO ASSUMED OUTPUT EXTENSION.

/	PROGRAM EXIT  IS THE NORMAL OS/8 METHOD OF EITHER PRESSING <^C> ON THE CONSOLE
/	KEYBOARD DURING THE  COMMAND,  OR  ENDING THE COMMAND INPUT LINE WITH AN <ESC>
/	CHARACTER.

/	THIS PROGRAM SUPPORTS THE .BOO FORMAT  FOR  FILE  ENCODING WHICH IS POPULAR IN
/	OTHER  SYSTEMS.  THIS VERSION IMPLEMENTS THE  FILE  LENGTH  PROTECTION  SCHEME
/	DEVELOPED BY CHARLES LASNER TO ENSURE PRECISE FILE LENGTH.

/	MANY .BOO PROGRAMS HAVE PROBLEMS MAINTAINING PRECISE FILE  LENGTH.  THE ACTUAL
/	LENGTH  MAY  BE IMPRECISELY STATED BY ONE OR TWO  BYTES  DUE  TO  AN  INHERENT
/	WEAKNESS  IN  THE  ORIGINAL .BOO ENCODING FORMAT DESIGN.  THIS  IMPLEMENTATION
/	APPENDS CORRECTION BYTES AS NECESSARY TO THE BASIC .BOO FILE TO  ENSURE PROPER
/	DECODING BY PROGRAMS COMPATIBLE WITH THIS EXTENSION.  

/	FILES CREATED BY THIS PROGRAM MAY BE  USED  WITH  EARLIER  .BOO DECODERS;  THE
/	RESULTANT FILES MAY INACCURATELY RECREATE THE ORIGINAL FILES BY AS MUCH AS TWO
/	EXTRANEOUS  TRAILING  BYTES.   THERE WILL BE NO PROBLEMS  (BEYOND  THE  LENGTH
/	ANOMALY)  AS LONG AS THE DECODERS IMPLEMENT ZERO-LENGTH COMPRESSION FIELDS  AS
/	NO  OPERATION.  IT IS POSSIBLE THAT CERTAIN DECODERS COULD ERRONEOUSLY  APPEND
/	MASSIVE  QUANTITIES  OF  ZEROES  ONTO  THE END OF THE DECODED FILES, BUT  THIS
/	ACTION WOULD CERTAINLY BE CAUSED BY DEFECTIVE PROGRAM CODE WITHIN THE DECODER.
/	(ALTHOUGH NOT  LIKELY  SEEN  BEFORE  ENCOUNTERING FILES WITH LENGTH CORRECTION
/	BYTES, THIS WOULD  BE  A  LATENT  BUG  IN  THESE  DECODING  PROGRAMS.  UPDATED
/	VERSIONS SHOULD BE SOUGHT IF THIS PROBLEM SURFACES.)
/	ERROR MESSAGES.

/	ERROR MESSAGES ARE ONE OF TWO VARIETIES:   COMMAND  DECODER  MESSAGES AND USER
/	(PROGRAM-SIGNALLED) MESSAGES.

/	COMMAND  DECODER  MESSAGES  ARE  NON-FATAL  AND  MERELY  REQUIRE RETYPING  THE
/	COMMAND.  ATTEMPTING TO USE MORE THAN ONE OUTPUT FILE  WILL  YIELD THE COMMAND
/	DECODER  MESSAGE  "TOO MANY FILES" AND CAUSE A REPEAT OF THE  COMMAND  DECODER
/	PROMPT REQUIRING  USER  INPUT.  THE USER IS DIRECTED TO OTHER DOCUMENTATION OF
/	THE "SPECIAL" MODE  OF  THE  COMMAND DECODER, AS THAT IS THE ONLY MODE USED BY
/	THIS UTILITY PROGRAM.

/	ANY USER MESSAGE PRINTED IS A  FATAL  ERROR MESSAGE CAUSED BY A PROBLEM BEYOND
/	THE SCOPE OF THE COMMAND DECODER.   ALL  USER  MESSAGES  ARE THE STANDARD OS/8
/	"USER" ERROR MESSAGES OF THE FORM:  "USER  ERROR  X  AT AAAAA", WHERE X IS THE
/	ERROR NUMBER AND AAAAA IS THE PROGRAM ADDRESS WHERE  THE  ERROR  WAS DETECTED.
/	THE FOLLOWING USER ERRORS ARE DEFINED:

/	ERROR NUMBER		PROBABLE CAUSE

/	0			NO OUTPUT FILE.

/	1			INPUT FILE ERROR  (CAN'T  FIND INPUT FILE) OR NO INPUT
/				FILE SPECIFIED OR TOO MANY INPUT FILES SPECIFIED.
/	2			ILLEGAL OUTPUT FILE NAME (WILD CARDS NOT ALLOWED).

/	3			NO OUTPUT FILE NAME (DEVICE ONLY IS NOT ALLOWED).

/	4			ERROR WHILE FETCHING FILE HANDLER.

/	5			ERROR WHILE ATTEMPTING TO ENTER OUTPUT FILE.

/	6			OUTPUT FILE LARGER THAN AVAILABLE FILE SPACE.

/	7			ERROR WHILE CLOSING THE OUTPUT FILE.

/	8			I/O ERROR WHILE ENCODING FILE DATA.

/	9			OUTPUT ERROR WHILE ENCODING FILE DATA.

/	ASSEMBLY INSTRUCTIONS.

/	IT IS  ASSUMED  THE  SOURCE  FILE  K12ENB.PAL  HAS  BEEN  MOVED AND RENAMED TO
/	DSK:ENBOO.PA.

/	.PAL ENBOO<ENBOO/E/F	ASSEMBLE SOURCE PROGRAM
/	.LOAD ENBOO		LOAD THE BINARY FILE
/	.SAVE DEV ENBOO=2001	SAVE THE CORE-IMAGE FILE
/	DEFINITIONS.

	CLOSE=	4		/CLOSE OUTPUT FILE
	DECODE=	5		/CALL COMMAND DECODER
	ENTER=	3		/ENTER TENTATIVE FILE
	FETCH=	1		/FETCH HANDLER
	IHNDBUF=7200		/INPUT HANDLER BUFFER
	INBUFFE=6200		/INPUT BUFFER
	INFILE=	7605		/INPUT FILE INFORMATION HERE
	LOOKUP=	2		/LOOKUP INPUT FILE
	NL0001=	CLA IAC		/LOAD AC WITH 0001
	NL0002=	CLA CLL CML RTL	/LOAD AC WITH 0002
	NL7776=	CLA CLL CMA RAL	/LOAD AC WITH 7776
	NL7777=	CLA CMA		/LOAD AC WITH 7777
	OHNDBUF=6600		/OUTPUT HANDLER BUFFER
	OUTBUFF=5600		/OUTPUT BUFFER
	OUTFILE=7600		/OUTPUT FILE INFORMATION HERE
	PRGFLD=	00		/PROGRAM FIELD
	RESET=	13		/RESET SYSTEM TABLES
	SBOOT=	7600		/MONITOR EXIT
	TBLFLD=	10		/COMMAND DECODER TABLE FIELD
	TERMWRD=7642		/TERMINATOR WORD
	USERROR=7		/USER SIGNALLED ERROR
	USR=	0200		/USR ENTRY POINT
	USRENT=	7700		/USR ENTRY POINT WHEN NON-RESIDENT
	USRFLD=	10		/USR FIELD
	USRIN=	10		/LOCK USR IN CORE
	WIDTH=	114		/LINES MUST BE 76 WIDE OR LESS
	WRITE=	4000		/I/O WRITE BIT
	*0			/START AT THE BEGINNING

	*20			/GET PAST AUTO-INDEX AREA

BUFPTR,	.-.			/OUTPUT BUFFER POINTER
CHAR,	.-.			/LATEST INPUT BYTE
CHARPTR,.-.			/OUTPUT BYTE POINTER
CHARS,	ZBLOCK	3		/OUTPUT BYTES HERE
CMPCNT,	.-.			/MATCH COUNT FOR COMPRESSION
COLUMN,	.-.			/LATEST COLUMN
DANGCNT,.-.			/DANGER COUNT
IDNUMBE,.-.			/INPUT DEVICE NUMBER
IFNAME,	ZBLOCK	4		/INPUT FILENAME
INLEN,	.-.			/INPUT FILE LENGTH
INPTR,	.-.			/INPUT BUFFER POINTER
INPUT,	.-.			/INPUT HANDLER POINTER
INRECOR,.-.			/INPUT RECORD
FNAME,	ZBLOCK	4		/OUTPUT FILENAME
LATEST,	.-.			/LATEST OUTPUT CHARACTER
ODNUMBE,.-.			/OUTPUT DEVICE NUMBER
OUTPUT,	.-.			/OUTPUT HANDLER POINTER
OUTRECO,.-.			/OUTPUT RECORD
PIFTEMP,.-.			/PRINT INPUT FILENAME TEMPORARY
TEMPTR,	.-.			/TEMPORARY POINTER
THIRD,	.-.			/THIRD INPUT BYTE UNPACKING TEMPORARY
	PAGE			/START AT THE USUAL PLACE

BEGIN,	NOP			/IN CASE WE'RE CHAINED TO
	CLA			/CLEAN UP
START,	CIF	USRFLD		/GOTO USR FIELD
	JMS I	(USRENT)	/CALL USR ROUTINE
	USRIN			/GET IT LOCKED IN
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	DECODE			/WANT COMMAND DECODER
	"*^100			/USING SPECIAL MODE
	CDF	TBLFLD		/GOTO TABLE FIELD
	TAD I	(TERMWRD)	/GET TERMINATOR WORD
	SPA CLA			/SKIP IF <CR> TERMINATED THE LINE
	DCA	EXITZAP		/ELSE CAUSE EXIT LATER
	TAD I	(OUTFILE)	/GET OUTPUT FILE DEVICE WORD
	SNA			/SKIP IF FIRST OUTPUT FILE PRESENT
	JMP	TSTMORE		/JUMP IF NOT THERE
	AND	[17]		/JUST DEVICE BITS
	DCA	ODNUMBER	/SAVE OUTPUT DEVICE NUMBER
	TAD I	(INFILE)	/GET FIRST INPUT FILE DEVICE WORD
	SNA			/SKIP IF PRESENT
	JMP	INERR		/JUMP IF NOT
	AND	[17]		/JUST DEVICE BITS
	DCA	IDNUMBER	/SAVE INPUT DEVICE NUMBER
	TAD I	(INFILE+5)	/GET SECOND INPUT FILE DEVICE WORD
	SZA CLA			/SKIP IF ONLY ONE INPUT FILE
	JMP	INERR		/ELSE COMPLAIN
	JMS I	(MIFNAME)	/MOVE INPUT FILENAME WITH ADJUSTED EXTENSION
	TAD I	[OUTFILE+1]	/GET FIRST OUTPUT FILENAME WORD
	SNA CLA			/SKIP IF NAME PRESENT
	JMP	NONAME		/JUMP IF DEVICE ONLY
	JMS I	(MOFNAME)	/MOVE OUTPUT FILENAME
	CDF	PRGFLD		/BACK TO OUR FIELD
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	RESET			/RESET SYSTEM TABLES
	TAD	(OHNDBUFFER+1)	/GET BUFFER POINTER+TWO-PAGE BIT
	DCA	OHPTR		/STORE IN-LINE
	TAD	ODNUMBER	/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	FETCH			/FETCH HANDLER
OHPTR,	.-.			/WILL BE BUFFER POINTER+TWO-PAGE BIT
	JMP	FERROR		/FETCH ERROR
	TAD	OHPTR		/GET RETURNED ADDRESS
	DCA	OUTPUT		/STORE AS OUTPUT HANDLER ADDRESS
	TAD	(IHNDBUFFER+1)	/GET INPUT BUFFER POINTER+TWO-PAGE BIT
	DCA	IHPTR		/STORE IN-LINE
	TAD	IDNUMBER	/GET INPUT DEVICE NUMBER
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	FETCH			/FETCH HANDLER
IHPTR,	.-.			/WILL BE BUFFER POINTER+TWO-PAGE BIT
	JMP	FERROR		/FETCH ERROR
	TAD	IHPTR		/GET RETURNED ADDRESS
	DCA	INPUT		/STORE AS INPUT HANDLER ADDRESS
	JMS I	(GEIFILE)	/GO LOOKUP INPUT FILE
	TAD	(FNAME)		/POINT TO
	DCA	ENTAR1		/STORED FILENAME
	DCA	ENTAR2		/CLEAR SECOND ARGUMENT
	TAD	ODNUMBER	/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	ENTER			/ENTER TENTATIVE FILENAME
ENTAR1,	.-.			/WILL POINT TO FILENAME
ENTAR2,	.-.			/WILL BE ZERO
	JMP	ENTERR		/ENTER ERROR
	TAD	ENTAR1		/GET RETURNED FIRST RECORD
	DCA	OUTRECORD	/STORE IT
	TAD	ENTAR2		/GET RETURNED EMPTY LENGTH
	IAC			/ADD 2-1 FOR OS/278 CRAZINESS
	DCA	DANGCNT		/STORE AS DANGER COUNT
	JMS I	(ENCODIT)	/GO DO THE ACTUAL ENCODING
	JMP	PROCERR		/ERROR WHILE ENCODING
	TAD	ODNUMBER	/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	CLOSE			/CLOSE OUTPUT FILE
	FNAME			/POINTER TO FILENAME
OUTCNT,	.-.			/WILL BE ACTUAL COUNT
	JMP	CLSERR		/CLOSE ERROR
EXITZAP,JMP	START		/**** <ESC> TERMINATION **** 0000
	JMP I	(SBOOT)		/EXIT TO MONITOR
/	OUTPUT FILE ERROR WHILE PROCESSING.

ENCERRO,TAD	[3]		/SET INCREMENT
	SKP			/DON'T USE NEXT

/	ERROR WHILE PROCESSING INPUT FILE.

PROCERR,NL0002			/SET INCREMENT
	SKP			/DON'T USE NEXT

/	ERROR WHILE CLOSING THE OUTPUT FILE.

CLSERR,	NL0001			/SET INCREMENT
	SKP			/DON'T CLEAR IT

/	OUTPUT FILE TOO LARGE ERROR.

SIZERR,	CLA			/CLEAN UP
	TAD	[3]		/SET INCREMENT
	SKP			/DON'T USE NEXT

/	ENTER ERROR.

ENTERR,	NL0002			/SET INCREMENT
	SKP			/DON'T USE NEXT

/	HANDLER FETCH ERROR.

FERROR,	NL0001			/SET INCREMENT

/	NO OUTPUT FILENAME ERROR.

NONAME,	IAC			/SET INCREMENT

/	ILLEGAL OUTPUT FILE NAME ERROR.

BADNAME,IAC			/SET INCREMENT

/	INPUT FILESPEC ERROR.

INERR,	IAC			/SET INCREMENT

/	OUTPUT FILESPEC ERROR.

OUTERR,	DCA	ERRNUMBER	/STORE ERROR NUMBER
	CDF	PRGFLD		/ENSURE OUR FIELD
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	USERROR			/USER ERROR
ERRNUMB,.-.			/WILL BE PASSED ERROR NUMBER
/	COMES HERE TO TEST FOR NULL LINE.

TSTMORE,TAD I	(INFILE)	/GET FIRST INPUT FILE DEVICE WORD
	SZA CLA			/SKIP NO INPUT OR OUTPUT GIVEN
	JMP	OUTERR		/ELSE COMPLAIN
	CDF	PRGFLD		/BACK TO OUR FIELD
	JMP	EXITZAP		/MIGHT BE LAST TIME, SO GO THERE FIRST

	PAGE
ENCODIT,.-.			/ENCODING ROUTINE
	NL7777			/SETUP INITIALIZE VALUE
	JMS I	[DOBYTE]	/INITIALIZE OUTPUT ROUTINE
	JMS I	(PIFNAME)	/OUTPUT THE INPUT FILENAME
	JMS I	(PCRLF)		/OUTPUT <CR>/<LF> AND CLEAR COLUMN COUNTER
	DCA	CMPCNT		/CLEAR COMPRESSION
	TAD	[CHARS]		/SETUP THE
	DCA	CHARPTR		/OUTPUT POINTER
	NL7777			/MAKE IT INITIALIZE
LOOP,	JMS I	(GETBYTE)	/GET LATEST BYTE
	JMP	ENDCHECK	/AREN'T ANY MORE, FINISH THE FILE

/	TEST IF ALREADY WITHIN A DEVELOPING COMPRESSION FIELD.

	TAD	CMPCNT		/GET COMPRESSION COUNT
	SNA CLA			/SKIP IF COMPRESSION IN PROGRESS
	JMP	NOCOMP		/JUMP IF NOT

/	CHECK IF LATEST INPUT BYTE IS ZERO.

	TAD	CHAR		/GET LATEST
	SZA CLA			/SKIP IF SO
	JMP	ENDCOMPRESS	/JUMP IF NOT
SETCOMP,ISZ	CMPCNT		/BUMP COMPRESSION COUNT
	TAD	CMPCNT		/GET LATEST COUNT
	TAD	(-116)		/COMPARE TO MAXIMUM ALLOWED
	SNA CLA			/SKIP IF NOT
	JMS I	(COMPRESSOUT) 	/OUTPUT MAXIMUM COMPRESSION AND CANCEL COMPRESSION
	JMP	LOOP		/GO GET ANOTHER ONE

/	IF LATEST IS NON-ZERO, THEN COMPLETE EXISTING COMPRESSION FIELD.

ENDCOMP,NL7777			/-1
	TAD	CMPCNT		/COMPARE TO COMPRESSION COUNT
	SZA CLA			/SKIP IF TRIVIAL CASE
	JMP	OUTCOMPRESS	/JUMP IF NOT

/	CANCEL TRIVIAL CASE OF ONE BYTE COMPRESSION.

	DCA	CMPCNT		/CLEAR COMPRESSION MODE
	DCA	CHARS		/FIRST BYTE WAS ZERO
	TAD	(CHARS+1)	/SETUP OUTPUT POINTER TO
	DCA	CHARPTR		/STORE INTO SECOND BYTE
	JMP	BYTEINSERT	/CONTINUE THERE
/	OUTPUT LATEST COMPRESSION AND PROCESS NEW NON-ZERO BYTE.

OUTCOMP,JMS I	(COMPRESSOUT)	/OUTPUT COMPRESSION FIELD AND CANCEL COMPRESSION

/	COMES HERE IF NOT WITHIN A COMPRESSION REGION.

NOCOMP,	TAD	CHARPTR		/GET POINTER
	TAD	(-CHARS)	/CHECK IF AT BEGINNING
	SZA CLA			/SKIP IF BUFFER EMPTY
	JMP	BYTEINSERT	/JUMP IF NOT

/	IF AT BEGINNING OF THREE BYTES, TEST IF LATEST STARTS A COMPRESSION FIELD.

	TAD	CHAR		/GET LATEST BYTE
	SNA CLA			/SKIP IF NOT ZERO
	JMP	SETCOMPRESSION	/JUMP IF SO
BYTEINS,TAD	CHAR		/GET LATEST BYTE
	DCA I	CHARPTR		/STORE IT
	ISZ	CHARPTR		/BUMP TO NEXT
	TAD	CHARPTR		/GET THE UPDATED POINTER
	TAD	(-CHARS-2-1)	/COMPARE TO UPPER LIMIT
	SNA CLA			/SKIP IF LESS THAN THREE PRESENT
	JMS I	(OUT3)		/ELSE OUTPUT THE THREE BYTES AND RESET THE BUFFER
	JMP	LOOP		/GO GET ANOTHER ONE

/	COMES HERE AT END OF INPUT.

ENDCHEC,NL7776			/-2
	TAD	CMPCNT		/COMPARE TO COMPRESSION COUNT
	SMA			/SKIP IF AT TRIVIAL CASE OR NO COMPRESSION CURRENTLY
	JMP	ENDFCOMPRESS	/FINISH WITH A COMPRESSION FIELD
	IAC			/CHECK FURTHER
	SZA CLA			/SKIP IF TRIVIAL COMPRESSION AT END
	JMP	NORMEND		/JUMP IF NOT WITHIN COMPRESSION

/	THE TRIVIAL CASE  CONVERTS  TO  AN INCOMPLETE OUTPUT, COMPLETE WITH CORRECTION
/	BYTES TO INDICATE THE SHORT FIELD.

	DCA	CHARS		/MOVE ZERO BYTE TO FIRST POSITION
NORM1,	DCA	CHARS+1		/CLEAR SECOND POSITION
	DCA	CHARS+2		/CLEAR THIRD POSITION
	JMS I	(OUT3)		/OUTPUT THE THREE BYTES
	DCA	CMPCNT		/CLEAR COMPRESSION COUNT
	JMS I	(COMPRESSOUT)	/OUTPUT NULL COMPRESSION FIELD TO CANCEL THIRD BYTE
				/NEXT WILL CANCEL SECOND BYTE

/	COMES HERE IF FILE ENDS ON A COMPRESSION FIELD.

ENDFCOM,JMS I	(COMPRESSOUT)	/OUTPUT COMPRESSION FIELD AND CANCEL COMPRESSION
	JMP	CLOSFILE	/FINISH IT THERE
/	COMES HERE IF FILE ENDS IN SOME FORM OF DATA FIELD.

NORMEND,TAD	CHARPTR		/GET CHARACTER POINTER
	TAD	(-CHARS-2)	/COMPARE TO TWO PRESENT VALUE
	SNA			/SKIP IF NOT THE CASE
	JMP	NORM2		/JUMP IF SO
	IAC			/BUMP TO ONE PRESENT VALUE
	SNA CLA			/SKIP IF NOT THE CASE
	JMP	NORM1		/JUMP IF SO
CLOSFIL,TAD	COLUMN		/GET CURRENT COLUMN COUNTER
	SZA CLA			/SKIP IF AT BEGINNING ALREADY
	JMS I	(PCRLF)		/ELSE OUTPUT <CR>/<LF> NOW
	TAD	("Z&37)		/GET <^Z>
CLOSLUP,JMS I	[DOBYTE]	/OUTPUT A BYTE (^Z OR NULL)
	TAD	BUFPTR		/GET THE OUTPUT BUFFER POINTER
	TAD	(-OUTBUFFER)	/COMPARE TO RESET VALUE
	SZA CLA			/SKIP IF IT MATCHES
	JMP	CLOSLUP		/ELSE KEEP GOING
	ISZ	ENCODIT		/NO ERRORS
	JMP I	ENCODIT		/RETURN

/	COMES HERE IF FILE ENDS WITH ONLY TWO DATA CHARACTERS.

NORM2,	DCA	CHARS+2		/CLEAR THIRD CHARACTER
	JMS I	(OUT3)		/OUTPUT THE THREE BYTES
	JMP	ENDFCOMPRESS	/FINISH IT THERE

	PAGE
/	GET AN INPUT BYTE ROUTINE.

GETBYTE,.-.				/GET A BYTE ROUTINE
	SNA CLA				/INITIALIZING?
	JMP I	PUTC			/NO, GO GET NEXT BYTE
	TAD	INRECORD		/GET INPUT FILE STARTING RECORD
	DCA	GETRECORD		/STORE IN-LINE
GETNEWR,JMS I	INPUT			/CALL INPUT HANDLER
	2^100				/READ TWO PAGES
PINBUFF,INBUFFER			/INTO INPUT BUFFER
GETRECO,.-.				/WILL BE LATEST INPUT FILE RECORD
	JMP I	(PROCERR)		/INPUT READ ERROR, GO COMPLAIN
	TAD	PINBUFFER/(INBUFFER)	/SETUP THE
	DCA	INPTR			/BUFFER POINTER
GETLOOP,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	INPTR			/GET THE POINTER
	TAD	(-2^200-INBUFFER)	/COMPARE TO LIMIT
	SZA CLA				/SKIP IF AT END
	JMP	GETLOOP			/KEEP GOING
	ISZ	GETRECORD		/BUMP TO NEXT RECORD
	NOP				/JUST IN CASE
	ISZ	INLEN			/DONE ALL INPUT RECORDS?
	JMP	GETNEWRECORD		/NO, KEEP GOING

/	AT END-OF-FILE, SO JUST TAKE IMMEDIATE RETURN.

	JMP I	GETBYTE			/RETURN TO CALLER

PUTONE,	.-.				/SEND BACK A BYTE ROUTINE
	TAD I	INPTR			/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	INPTR			/GET LATEST WORD AGAIN
	JMS	PUTC			/SEND BACK CURRENT BYTE
	ISZ	INPTR			/BUMP TO NEXT WORD
	JMP I	PUTONE			/RETURN

PUTC,	.-.				/SEND BACK LATEST BYTE ROUTINE
	AND	(377)			/KEEP ONLY GOOD BITS
	DCA	CHAR			/SAVE AS LATEST BYTE
	ISZ	GETBYTE			/BUMP PAST <EOF> RETURN
	JMP I	GETBYTE			/RETURN TO MAIN CALLER
/	COMPRESSION FIELD OUTPUT ROUTINE.

COMPRES,.-.			/COMPRESSION OUTPUT ROUTINE
	CLA			/CLEAN UP
	TAD	COLUMN		/GET CURRENT COLUMN COUNTER
	TAD	(-WIDTH+2)	/COMPARE TO UPPER LIMIT
	SMA SZA CLA		/SKIP IF NOT ABOVE LIMIT
	JMS	PCRLF		/ELSE DO <CR>/<LF> FIRST
	TAD	(176)		/GET TILDE VALUE
	JMS I	[DOBYTE]	/OUTPUT IT
	TAD	CMPCNT		/GET COMPRESSION COUNT
	JMS	PDIGIT		/OUTPUT IT
	DCA	CMPCNT		/CLEAR COMPRESSION
	JMP I	COMPRESSOUT	/RETURN

/	DATA FIELD OUTPUT ROUTINE.

OUT3,	.-.			/OUTPUT THREE BYTES ROUTINE
	TAD	COLUMN		/GET CURRENT COLUMN COUNTER
	TAD	(-WIDTH+4)	/COMPARE TO UPPER LIMIT
	SMA SZA CLA		/SKIP IF NOT ABOVE LIMIT
	JMS	PCRLF		/ELSE DO <CR>/<LF> FIRST
	TAD	CHARS		/GET FIRST BYTE
	RTR			/WANT HIGH SIX BITS FIRST
	JMS	PDIGIT		/OUTPUT THEM
	TAD	CHARS		/GET IT AGAIN
	AND	[3]		/JUST TWO LOWEST BITS
	CLL RTR;RTR;RAR		/MOVE UP
	TAD	CHARS+1		/GET SECOND BYTE
	RTR;RTR			/MOVE DOWN
	JMS	PDIGIT		/OUTPUT THEM
	TAD	CHARS+2		/GET THIRD BYTE
	AND	(300)		/JUST TWO HIGHEST BITS NEEDED
	CLL RTL;RTL;RAL		/MOVE INTO POSITION
	TAD	CHARS+1		/GET SECOND BYTE
	RTL			/MOVE UP
	AND	[77]		/JUST DESIRED BITS
	JMS	PDIGIT		/OUTPUT THEM
	TAD	CHARS+2		/GET THIRD BYTE
	AND	[77]		/JUST SIX BITS
	JMS	PDIGIT		/OUTPUT THEM
	TAD	[CHARS]		/RESET THE
	DCA	CHARPTR		/OUTPUT POINTER
	JMP I	OUT3		/RETURN

PDIGIT,	.-.			/PRINT AS A DIGIT INTO FILE ROUTINE
	AND	[177]		/REMOVE JUNK BITS
	TAD	("0&177)	/TURN PASSED VALUE INTO A DIGIT
	JMS I	[DOBYTE]	/OUTPUT IT
	JMP I	PDIGIT		/RETURN
PCRLF,	.-.			/PRINT <CR>/<LF> INTO FILE ROUTINE
	TAD	("M&37)		/GET A <CR>
	JMS I	[DOBYTE]	/OUTPUT IT
	TAD	("J&37)		/GET A <LF>
	JMS I	[DOBYTE]	/OUTPUT IT
	DCA	COLUMN		/CLEAR COLUMN COUNTER
	JMP I	PCRLF		/RETURN

	PAGE
PUTBYTE,.-.			/OUTPUT A BYTE ROUTINE
	SPA			/ARE WE INITIALIZING?
	JMP	PUTINITIALIZE	/YES
	AND	[177]		/JUST IN CASE
	DCA	LATEST		/SAVE LATEST CHARACTER
	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
	JMP I	PUTBYTE		/RETURN TO MAIN CALLER

PUTINIT,CLA			/CLEAN UP
	TAD	OUTRECORD	/GET STARTING RECORD OF TENTATIVE FILE
	DCA	PUTRECORD	/STORE IN-LINE
	DCA I	(OUTCNT)	/CLEAR ACTUAL FILE LENGTH
PUTNEWR,TAD	(OUTBUFFER)	/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	(-2^200-OUTBUFF)/COMPARE TO LIMIT
	SZA CLA			/SKIP IF AT END
	JMP	PUTLOOP		/KEEP GOING
	ISZ	DANGCNT		/TOO MANY RECORDS?
	SKP			/SKIP IF NOT
	JMP I	(SIZERR)	/JUMP IF SO
	JMS I	OUTPUT		/CALL I/O HANDLER
	2^100+WRITE		/WRITE SOME PAGES FROM OUTPUT BUFFER
	OUTBUFFER		/BUFFER ADDRESS
PUTRECO,.-.			/WILL BE LATEST RECORD NUMBER
	JMP	PUTERROR	/OUTPUT ERROR!
	ISZ I	(OUTCNT)	/BUMP ACTUAL LENGTH
	ISZ	PUTRECORD	/BUMP TO NEXT RECORD
	JMP	PUTNEWRECORD	/KEEP GOING
/	INPUT FILENAME MOVE ROUTINE; USES DEFAULT EXTENSION IF NONE PROVIDED BY USER.

MIFNAME,.-.			/MOVE INPUT FILENAME ROUTINE
	TAD I	(INFILE+1)	/GET FIRST INPUT FILENAME WORD
	DCA	IFNAME		/STASH IT
	TAD I	(INFILE+2)	/GET SECOND INPUT FILENAME WORD
	DCA	IFNAME+1	/STASH IT
	TAD I	(INFILE+3)	/GET THIRD INPUT FILENAME WORD
	DCA	IFNAME+2	/STASH IT
	TAD I	[INFILE+4]	/GET FOURTH INPUT FILENAME WORD
	SNA			/SKIP IF SOMETHING THERE
	TAD	("S^100+"V-300)	/ELSE USE DEFAULT EXTENSION VALUE
	DCA	IFNAME+3	/STASH IT EITHER WAY
	JMP I	MIFNAME		/RETURN

DOBYTE,	.-.			/OUTPUT A BYTE ROUTINE
	JMS	PUTBYTE		/OUTPUT PASSED VALUE
	JMP I	(ENCERROR)	/COULDN'T DO IT
	ISZ	COLUMN		/BUMP COLUMN COUNTER
	JMP I	DOBYTE		/RETURN

	PAGE
/	INPUT FILE ROUTINE.

GEIFILE,.-.			/GET INPUT FILE ROUTINE
	JMS	LUKUP		/TRY TO LOOKUP THE FILE
	SKP			/SKIP IF IT WORKED
	JMP	TRYNULL		/TRY NULL EXTENSION VERSION
NULLOK,	TAD	LARG1		/GET FIRST INPUT RECORD
	DCA	INRECORD	/STASH IT
	TAD	LARG2		/GET NEGATED LENGTH
	DCA	INLEN		/STASH IT
	JMP I	GEIFILE		/RETURN

/	COMES HERE IF LOOKUP FAILED.

TRYNULL,CDF	TBLFLD		/GOTO TABLE FIELD
	TAD I	[INFILE+4]	/GET ORIGINAL FILENAME'S EXTENSION
	CDF	PRGFLD		/BACK TO OUR FIELD
	SZA CLA			/SKIP IF IT WAS NULL ORIGINALLY
	JMP I	(INERR)		/ELSE COMPLAIN OF EXPLICIT LOOKUP FAILURE
	DCA	IFNAME+3	/NOW TRY NULL VERSION INSTEAD OF DEFAULT VERSION
	JMS	LUKUP		/TRY TO LOOK IT UP AGAIN
	JMP	NULLOK		/THAT WORKED!
	JMP I	(INERR)		/COMPLAIN OF LOOKUP FAILURE

LUKUP,	.-.			/LOW-LEVEL LOOKUP ROUTINE
	TAD	(IFNAME)	/GET OUR FILENAME POINTER
	DCA	LARG1		/STORE IN-LINE
	DCA	LARG2		/CLEAR SECOND ARGUMENT
	TAD	IDNUMBER	/GET INPUT DEVICE NUMBER
	CIF	USRFLD		/GOTO USR FIELD
	JMS I	[USR]		/CALL USR ROUTINE
	LOOKUP			/WANT LOOKUP FUNCTION
LARG1,	.-.			/WILL BE POINTER TO OUR FILENAME
LARG2,	.-.			/WILL RETURN FILE LENGTH (HOPEFULLY)
	ISZ	LUKUP		/LOOKUP FAILED, SO BUMP RETURN ADDRESS
	JMP I	LUKUP		/RETURN EITHER WAY
/	INPUT FILENAME PRINT ROUTINE.

PIFNAME,.-.			/PRINT INPUT FILENAME ROUTINE
	TAD	IFNAME		/GET FIRST PAIR
	JMS	PIF2		/PRINT IT
	TAD	IFNAME+1	/GET SECOND PAIR
	JMS	PIF2		/PRINT IT
	TAD	IFNAME+2	/GET THIRD PAIR
	JMS	PIF2		/PRINT IT
	TAD	(".&177)	/GET SEPARATOR
	JMS	PIFOUT		/PRINT IT
	TAD	IFNAME+3	/GET FOURTH PAIR
	JMS	PIF2		/PRINT IT
	JMP I	PIFNAME		/RETURN

PIF2,	.-.			/PRINT A PAIR ROUTINE
	DCA	PIFTEMP		/SAVE PASSED PAIR
	TAD	PIFTEMP		/GET IT BACK
	RTR;RTR;RTR		/MOVE DOWN
	JMS	PIFOUT		/PRINT HIGH-ORDER FIRST
	TAD	PIFTEMP		/GET IT AGAIN
	JMS	PIFOUT		/PRINT LOW-ORDER
	JMP I	PIF2		/RETURN

PIFOUT,	.-.			/FILENAME CHARACTER OUTPUT ROUTINE
	AND	[77]		/JUST SIXBIT
	SNA			/SKIP IF SOMETHING THERE
	JMP I	PIFOUT		/ELSE IGNORE IT
	TAD	[40]		/INVERT IT
	AND	[77]		/REMOVE EXCESS
	TAD	[40]		/INVERT IT AGAIN
	JMS I	[DOBYTE]	/OUTPUT IT
	JMP I	PIFOUT		/RETURN

MOFNAME,.-.			/MOVE OUTPUT FILENAME ROUTINE
	TAD I	[OUTFILE+1]	/GET FIRST OUTPUT FILENAME WORD
	JMS	CHKNAME		/CHECK IF LEGAL
	DCA	FNAME		/STASH IT
	TAD I	(OUTFILE+2)	/GET SECOND OUTPUT FILENAME WORD
	JMS	CHKNAME		/CHECK IF LEGAL
	DCA	FNAME+1		/STASH IT
	TAD I	(OUTFILE+3)	/GET THIRD OUTPUT FILENAME WORD
	JMS	CHKNAME		/CHECK IF LEGAL
	DCA	FNAME+2		/STASH IT
	TAD I	(OUTFILE+4)	/GET FOURTH OUTPUT FILENAME WORD
	JMS	CHKNAME		/CHECK IF LEGAL
	DCA	FNAME+3		/STASH IT
	JMP I	MOFNAME		/RETURN
/	OUTPUT NAME CHECK ROUTINE.

CHKNAME,.-.			/OUTPUT NAME CHECK ROUTINE
	DCA	LUKUP		/SAVE PASSED VALUE
	TAD	LUKUP		/GET IT BACK
	RTR;RTR;RTR		/MOVE DOWN
	JMS	CHKIT		/CHECK HIGH-ORDER AND GET IT BACK
	JMS	CHKIT		/CHECK LOW-ORDER AND GET IT BACK
	JMP I	CHKNAME		/RETURN

CHKIT,	.-.			/ONE CHARACTER CHECK ROUTINE
	AND	[77]		/JUST SIX BITS
	TAD	(-"?!200)	/COMPARE TO "?"
	SZA			/SKIP IF ALREADY BAD
	TAD	(-"*+"?)	/ELSE COMPARE TO "*"
	SNA CLA			/SKIP IF NEITHER BAD CASE
	JMP I	(BADNAME)	/COMPLAIN OF WILD CHARACTER
	TAD	LUKUP		/GET THE PAIR BACK FOR NEXT TIME
	JMP I	CHKIT		/RETURN

	PAGE
	$			/THAT'S ALL FOLK!

From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: ENCODE/DECODE format description

    The  latest KERMIT-12 binary files are encoded in  a  specialized  format.
This document will describe the internal encoding and related subjects.

OS/8 file considerations.

    All OS/8 files are contiguous multiples of PDP-8 double-page sized logical
records.  These are sometimes known as blocks, but are  more  accurately known
as records.  (The term block is associated with various hardware descriptions,
and means different things to different people, such as DECtape blocks or RK05
blocks,  where  the first means a physical block which just happens to be  1/2
the  size  of  the OS/8 logical record, and the second means a physical sector
which  is  the same size as the OS/8 logical record, but only if the drive  is
attached to an RK8E.  We will therefore avoid this term!)

    Since  PDP-8  pages are 128 12-bit words each, the OS/8 record consists of
256  12-bit  words,  which  can  also  be viewed as 384 8-bit bytes.  For  the
benefit of various existing utilities, there is a standard method of unpacking
the 8-bit bytes yielding  a  stream  of  coherent  8-bit  bytes.    The  PDP-8
convention is to number bits from left to right starting with bit[0].  This is
INCOMPATIBLE with the notation commonly used  in other architectures, which is
usually given as what power of 2  the  bit  represents.  The PDP-8 notation is
used to denote bit position in a manner  consistent  with  significence of the
bit,  and  arbitrarily uses origin 0, which is the  usually  assembly-language
orientation.  Using this notation, the first byte (byte #0)  to be unpacked is
taken from word[0] bits[4-11].  The second byte (byte #1) to  be  unpacked  is
taken  from  word[1] bits[4-11].  The third byte (byte #2) to be  unpacked  is
taken from word[0]  bits[0-3]  concatenated  with word[1] bits[0-3].  All bits
are taken left to  right  as stated.  This method is usually referred to as "3
for 2," and repeated accordingly  will  yield  the correct stream of bytes for
ASCII OS/8 files.  OS/8 absolute  binary  files are images of 8-bit paper-tape
frames packed in the same format.   Although  the  high-order bit "matters" in
absolute binary files, the high-bit is untrustworthy in  ASCII  files.    Both
types of files end with a ^Z character which  will have the high-order bit set
in  the case of the absolute binary files.  The  reason  it  succeeds  in  the
binary  case  is  that  the  paper-tape format treats the high-bit present  as
leader or trailer, not loadable data, etc., so the loader ignores all  leading
high-bit set bytes, and finishes on the first trailing high-bit set byte.  The
binary file  contains  several leader bytes of 0200 octal, and several trailer
bytes of 0200  followed by 232, the code for ^Z.  There is no "fool-proof" way
to derive these formats,  rather these are usually given by the extensions .BN
for binary, and various extensions  (.LS,  .PA, .MA, .DI, .BI, .TX, .DC, etc.)
for ASCII files.  If the  file  is  "known"  to  be  either  ASCII or absolute
binary,  then  these conventions can be used  to  ignore  extraneous  trailing
bytes.  If the file type is unknown,  then  it  must  be treated as an "image"
file, where all data must be preserved.  The  most typical image file is a .SV
file,  which is an image of files organized as pages  and  double-pages,  with
some  trivial absolute loading instructions in a "header" block.  Each  record
of  the  file  is  always  "paired"  off,  i.e.,  the  record  has an  implied
double-page boundary of main memory it is meant to load into.  If  the loading
instructions indicate  a single-page load, then the first page must be loaded;
the second half  of the record is IGNORED.  Notice it is impossible to specify
singular loading of the "odd" page.  OS/8 also supports various other formats,
so it is difficult to  obtain  useful  knowledge  of the "inner" format of the
file.

Encoding considerations.

      If the 8-bit bytes of  an  OS/8 file are unpacked and packed faithfully,
the resultant file will be an accurate copy of the original data.  This is the
basis for an alternate encoding format, perhaps  more  universal in scope, but
it is NOT the method used currently.   The  method chosen here is to treat the
entire file as a contiguous stream of 5-bit bytes spanning words as necessary.
This means that bits are taken from left to right,  five  at  a time, and each
encoded  into  a  "printable"  character  for inclusion into the encoded file.
This  means  that  data  will  form  60-bit  groups  of  12  5-bit  characters
representing five  12-bit words.  The 5-bit encoding is accomplished using the
ASCII  coding  for    an   extension  to  hexadecimal,  which  can  be  called
bi-hexadecimal, or base 32  notation.    In this base, the values are 0-9, and
A-V (just the "natural" extension  of hexadecimal's 0-9, A-F).  The alphabetic
characters  can  be  upper  or lower  case  as  necessary.    This  method  is
theoretically 25% more efficient than hexadecimal ASCII  since  each character
holds 5-bit data rather than 4-bit data.

    Since the 5-bit data has no "good" boundary for  most  computers,  we will
use the "best" case for PDP-8 image data, the 60-bit group as described above.
Once  started,  a  60-bit  group must be completed, thus there are  boundaries
throughout the file every 12 characters.

    At any boundary, the file may have compressed data.  Compressed fields are
indicated  by X (or x) followed by a four character  field.    The  format  is
basically a truncation of the "normal" 60-bit group, but only contains 20 bits
of data.  The first 12 bits are the value of the  data  to  be  repeated.  The
last eight bits are the repeat count.  Values of the repeat count  range  from
1-256, where 256 is implied if the value is zero.  Practical values range from
3-255, since  one  or two values would take less file space uncompressed.  Due
to the boundary  requirements,  compression fields are independent of the data
preceeding them.  The  repeat count limitation to a maximum of 256 was felt to
be a reasonable compromise between compressed field length and adequate repeat
count.  Making the repeat count  even  only  double  the current maximum would
require six character compression fields instead of  five  (including  the X).
As  an implementation restriction, the encoding program only  reads  one  OS/8
record at a time, thus the case of 256  maximum  repetitions  occurs only at a
double-page boundary.  The added complexity required to achieve infrequent and
minimal  improvement  was  considered  to  be  unimportant, but could be added
later.  Thus adjacent repeated values split across boundaries, or split across
logical records will not contribute to a (single) compression field.

    Note that  compression is achieved by locating repeating strings of 12-bit
values;  if  the  file  were  viewed as repeating strings of 8-bit bytes, then
compression would be less  likely, except for cases like 0000 octal, which due
to "symmetry" are compressible via  either  method.    Many  PDP-8 image files
contain "filler" words, i.e., otherwise unloaded  areas which are "pre-filled"
with constant data such as 0000 octal,  or  7402 octal, which is the PDP-8 HLT
instruction.  Image files filled with "large" regions  of repeating strings of
7402 will not compress using 8-bit byte orientation.

Reliability considerations.

    Even with the safeguards of a "robust" character  set,  file validity must
be tested to maintain data integrity.  Towards this  end,  the encoding format
has several additional features.  Unlike other "popular" formats, there  is an
explicit  "command" structure to the encoded file format.  All lines  of  data
start  with  <  and  end  with  >.   This prevents the characters  from  being
"massaged" into unwanted  alternates.   Various systems are known to "destroy"
files which have lines  starting  with  "from",  etc.    By enclosing the data
lines, we prevent these problems.   Additionally, a class of explicit commands
exist which start with ( and  end  with  ).    Instead of implied positioning,
there is a command called (FILE filename.ext),  where  the filename.ext is the
"suggested" name for the decoded file.  The encoding program uses the original
un-encoded file's file name in this field.  After  the  data, there is another
command (END filename.ext) which can be used to validate the  data,  since the
same  file  name  should be in both commands (as implemented in  the  encoding
program).   Several (REMARK {anything}) commands are inserted into the file at
various  points   to  assist  in  reconstructing  the  original  file,  or  in
documenting the fact  that  the  file is an encoded "version" of another file.
Several "frill" REMARK commands  are implemented to indicate the original file
date, and the date of  encoded file creation.  Today's date is always used for
the encoded file creation date.  The original file date may be omitted, if the
system  doesn't  support  Additional  Information  Words  (AIWs),  since  this
optional  feature must be present in order for  the  files  to  have  creation
dates.  The overall encoding format theoretically can be a concatenated series
of  encoded files, each with its own (FILE ) and  (END  )  commands,  but  the
decoding program  only  supports  single-file  decoding  as  an implementation
restriction.

    The file must always end with a good boundary  condition.    If  the  last
field is an X (compression) field, then this is already  satisfied.    If  the
last field is ordinary data, then 1-4 12-bit words of 0000 octal will be added
at the end of the last field if necessary to ensure a  good boundary.  The end
of  file  is  signified  by a single Z (or z) character.  At  this  point,  an
extraneous  record may be in progress.  If it consists of four or less  12-bit
words of 0000 octal, it is discarded.  Any other situation regarding a partial
record indicates defective data in the received encoded file.

    After the single Z (z) character, there are 12 more characters:  an entire
60-bit  group.    This  is  the  file  checksum.    It  is  accomplished  with
pentuple-precision arithmetic.   It  is the sum of all 12-bit data values with
carry into a total of five 12-bit words.  Repeat compression data values are
also added, but only once for each compression field.  The compression field's
repeat count is also added, but  it  is  first  multiplied by 16.  (The repeat
count was expressed originally as *16 so  it  would have its eight significant
bits left-justified).  The entire 60-bit quantity is  expressed  in  two's
complement notation by negating it and encoding the group as  any other 60-bit
group.    Since  most  files  are  relatively  short, the high-order bits  are
generally zero, so most two's complement checksums start with 7777,7777 octal.
The five 12-bit  quantities  holding the checksum are encoded low-order first,
so the right-most characters  in  the  checksum  field tend to be V (v).  This
order  is used merely to  accomodate  multi-precision  arithmetic,  as  anyone
attempting to observe "backwards bytes" on other machines is familiar with.

Future considerations.

    This format is by no means  "perfect,"  but  it  is more robust than most,
with a minimum of efficiency loss, given  the  tradeoffs  involved.   The data
bracketing characters can be changed if required.   The characters W (w) and Y
(y)  are  available  for  this purpose.  Files could  incorporate  a  word  or
character  count,  or  other  validation  technique,  etc.    Each line  could
incorporate  a  local  count.   These and other considerations could create  a
"compromise"  format  that  could  be  more  generic and "pallatable" to other
systems.   The checksum could be limited to 48 bits, which is more amenable to
8 and 16  bit  architectures.    Perhaps  opening  parameters could govern the
contents of the rest  of  the  file, such as whether the checksum was present,
etc.
[end of file]

/	OS/8 ENCODING PROGRAM

/	LAST EDIT:	08-JUL-1992	22:00:00	CJL

/	MUST BE ASSEMBLED WITH '/F' SWITCH SET.

/	PROGRAM TO ENCODE OS/8 FILES INTO "PRINTABLE" ASCII FORMAT ("ENCODE").

/	DISTRIBUTED BY CUCCA AS "K12ENC.PAL" AS PART OF THE CUCCA KERMIT-12 PACKAGE.

/	WRITTEN BY:

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

/	USAGE:

/	.RUN DEV ENCODE		INVOKE PROGRAM
/	*OUTPUT<INPUT		PASS ONE INPUT AND ONE OUTPUT FILE ONLY (WITH <CR>)
/	*OUTPUT<DEV:=NNNN/I 	****  SPECIAL IMAGE TRANSFER MODE **** INPUT IS RECORD
/				0000-[NNNN-1] ON DEVICE DEV:.  THE =NNNN VALUE MUST BE
/				STATED PRECISELY TO  TRANSFER  THE REQUISITE AMOUNT OF
/				THE DEVICE AS REQUIRED.    THE  VALUE IS GENERALLY THE
/				TOTAL  LENGTH OF THE DEVICE,  BUT  COULD  BE  LESS  AS
/				NECESSARY;  LARGER VALUES WILL GENERALLY  FAIL.   THIS
/				MODE  SHOULD  ONLY  BE  USED  TO  EFFECT  TRANSFER  OF
/				COMPLETE  DEVICE  IMAGES  WHERE  THE  NORMAL OS/8 FILE
/				STRUCTURE IS UNSUITABLE.  IN THIS MODE, THE OS/8  FILE
/				(POSSIBLY PRESENT)  ON  THE  DEVICE  IS IGNORED.  ****
/				NOTE  ****  THIS   METHOD  VIOLATES  ALL  OS/8  DEVICE
/				STRUCTURE AND IS MEANT FOR TRANSFER OF COMPLETE DEVICE
/				IMAGES ONLY;  USE WITH CARE!
/	*OUTPUT<DEV:=NNNN/I/1	**** SPECIAL IMAGE TRANSFER  MODE **** SAME AS REGULAR
/				IMAGE MODE EXCEPT ONLY THE FIRST  HALF  OF THE DATA IS
/				USED.    THE  DECODER  MUST  BE  GIVEN THE  EQUIVALENT
/				PARAMETERS TO TRANSFER THE FIRST HALF.
/	*OUTPUT<DEV:=NNNN/I/2	**** SPECIAL IMAGE  TRANSFER MODE **** SAME AS REGULAR
/				IMAGE MODE EXCEPT ONLY THE SECOND  HALF OF THE DATA IS
/				USED.  NOTE THAT THERE MUST BE TWO  FILES CREATED, ONE
/				USING  /I/1  AND  THE  OTHER  USING /I/2 TO COMPLETELY
/				TRANSFER A DEVICE IMAGE UNLESS /I IS USED ALONE!
/	*OUTPUT<INPUT$		PASS ONE INPUT AND ONE OUTPUT FILE ONLY (WITH <ESC>)
/	.			PROGRAM EXITS NORMALLY

/	INPUT FILE ASSUMES .SV EXTENSION;  THERE IS NO ASSUMED OUTPUT  EXTENSION.   IF
/	IMAGE MODE IS USED, THERE IS NO INPUT FILE SPECIFICATION;  ONLY  A  DEVICE  IS
/	GIVEN ALONG WITH A LENGTH AND THE MANDATORY /I SWITCH.

/	PROGRAM EXIT  IS THE NORMAL OS/8 METHOD OF EITHER PRESSING <^C> ON THE CONSOLE
/	KEYBOARD DURING THE  COMMAND,  OR  ENDING THE COMMAND INPUT LINE WITH AN <ESC>
/	CHARACTER.
/	THIS PROGRAM SUPPORTS A SUBSET OF THE  ASCII FILE ENCODING SCHEME DEVELOPED BY
/	CHARLES LASNER AND FRANK DA CRUZ.  THE  SCHEME  USED IS FIVE-BIT ENCODING WITH
/	COMPRESSION,  (AS  OPPOSED  TO  SIX-BIT WITHOUT COMPRESSION AS USED  IN  PRIOR
/	VERSIONS).

/	RESTRICTIONS:

/	A)	NO SUPPORT FOR MULTIPLE DECODABLE FILES PER ENCODED FILE.

/	B)	CREATES ENCODED PDP-8 60-BIT CHECKSUM AT END OF FILE.

/	C)	CUSTOMIZED (REMARK) COMMANDS MUST BE SEPARATELY ADDED BY THE USER.

/	D)	THE FILENAME IN THE (FILE ) AND (END ) COMMANDS WILL BE  IDENTICAL  TO
/		THE ACTUAL INVOKED INPUT FILE.  THE USER MUST SEPARATELY MODIFY  THESE
/		COMMANDS  WHEN  EXPORTING  THE ENCODED FILE TO A SYSTEM WITH DIFFERENT
/		NAMING CONVENTIONS.

/	ERROR MESSAGES.

/	ERROR MESSAGES ARE ONE OF TWO VARIETIES:   COMMAND  DECODER  MESSAGES AND USER
/	(PROGRAM-SIGNALLED) MESSAGES.

/	COMMAND  DECODER  MESSAGES  ARE  NON-FATAL  AND  MERELY  REQUIRE RETYPING  THE
/	COMMAND.  ATTEMPTING TO USE MORE THAN ONE OUTPUT FILE  WILL  YIELD THE COMMAND
/	DECODER  MESSAGE  "TOO MANY FILES" AND CAUSE A REPEAT OF THE  COMMAND  DECODER
/	PROMPT REQUIRING  USER  INPUT.  THE USER IS DIRECTED TO OTHER DOCUMENTATION OF
/	THE "SPECIAL" MODE  OF  THE  COMMAND DECODER, AS THAT IS THE ONLY MODE USED BY
/	THIS UTILITY PROGRAM.

/	ANY USER MESSAGE PRINTED IS A  FATAL  ERROR MESSAGE CAUSED BY A PROBLEM BEYOND
/	THE SCOPE OF THE COMMAND DECODER.   ALL  USER  MESSAGES  ARE THE STANDARD OS/8
/	"USER" ERROR MESSAGES OF THE FORM:  "USER  ERROR  X  AT AAAAA", WHERE X IS THE
/	ERROR NUMBER AND AAAAA IS THE PROGRAM ADDRESS WHERE  THE  ERROR  WAS DETECTED.
/	THE FOLLOWING USER ERRORS ARE DEFINED:

/	ERROR NUMBER		PROBABLE CAUSE

/	0			NO OUTPUT FILE.

/	1			INPUT FILE ERROR  (CAN'T  FIND INPUT FILE) OR NO INPUT
/				FILE SPECIFIED OR TOO MANY INPUT FILES SPECIFIED.
/	2			ILLEGAL OUTPUT FILE NAME (WILD CARDS NOT ALLOWED).

/	3			NO OUTPUT FILE NAME (DEVICE ONLY IS NOT ALLOWED).

/	4			ERROR WHILE FETCHING FILE HANDLER.

/	5			ERROR WHILE ATTEMPTING TO ENTER OUTPUT FILE.

/	6			OUTPUT FILE LARGER THAN AVAILABLE FILE SPACE.

/	7			ERROR WHILE CLOSING THE OUTPUT FILE.

/	8			I/O ERROR WHILE ENCODING FILE DATA.
/	ASSEMBLY INSTRUCTIONS.

/	IT IS  ASSUMED  THE  SOURCE  FILE  K12ENC.PAL  HAS  BEEN  MOVED AND RENAMED TO
/	DSK:ENCODE.PA.

/	.PAL ENCODE<ENCODE/E/F	ASSEMBLE SOURCE PROGRAM
/	.LOAD ENCODE		LOAD THE BINARY FILE
/	.SAVE DEV ENCODE=2001	SAVE THE CORE-IMAGE FILE
/	DEFINITIONS.

	AIWCNT=	1404			/ADDITIONAL INFORMATION WORDS COUNT HERE
	AIWXR=	0017			/POINTER TO ADDITIONAL INFORMATION WORDS
	CLOSE=	4			/CLOSE OUTPUT FILE
	DATEXT=	7777			/DATE EXTENSION HERE
	DATWRD=	7666			/OS/8 DATE WORD
	DECODE=	5			/CALL COMMAND DECODER
	ENTER=	3			/ENTER TENTATIVE FILE
	EQUWRD=	7646			/EQUALS PARAMETER HERE IN TABLE FIELD
	FETCH=	1			/FETCH HANDLER
	IHNDBUF=7200			/INPUT HANDLER BUFFER
	INBUFFE=6200			/INPUT BUFFER
	INFILE=	7605			/INPUT FILE INFORMATION HERE
	LOOKUP=	2			/LOOKUP INPUT FILE
	NL0001=	CLA IAC			/LOAD AC WITH 0001
	NL0002=	CLA CLL CML RTL		/LOAD AC WITH 0002
	NL7776=	CLA CLL CMA RAL		/LOAD AC WITH 7776
	NL7777=	CLA CMA			/LOAD AC WITH 7777
	OHNDBUF=6600			/OUTPUT HANDLER BUFFER
	OUTBUFF=5600			/OUTPUT BUFFER
	OUTFILE=7600			/OUTPUT FILE INFORMATION HERE
	PRGFLD=	00			/PROGRAM FIELD
	RESET=	13			/RESET SYSTEM TABLES
	REVISIO=1			/PROGRAM REVISION
	SBOOT=	7600			/MONITOR EXIT
	SWAL=	7643			/A-/L SWITCHES HERE IN TABLE FIELD
	SWY9=	7645			/Y-/9 SWITCHES HERE IN TABLE FIELD
	TBLFLD=	10			/COMMAND DECODER TABLE FIELD
	TERMWRD=7642			/TERMINATOR WORD
	USERROR=7			/USER SIGNALLED ERROR
	USR=	0200			/USR ENTRY POINT
	USRENT=	7700			/USR ENTRY POINT WHEN NON-RESIDENT
	USRFLD=	10			/USR FIELD
	USRIN=	10			/LOCK USR IN CORE
	VERSION=2			/PROGRAM VERSION
	WIDTH=	107-2			/69 DATA CHARACTERS PER LINE (TOTAL 71)
	WRITE=	4000			/I/O WRITE BIT
	*0				/START AT THE BEGINNING

	*10				/DEFINE AUTO-INDEX AREA

XR1,	.-.				/AUTO-INDEX NUMBER 1
XR2,	.-.				/AUTO-INDEX NUMBER 2

	*20				/GET PAST AUTO-INDEX AREA

BUFPTR,	.-.				/OUTPUT BUFFER POINTER
CCNT,	.-.				/CHECKSUM COUNTER
CHKFLG,	.-.				/CHECKSUMMING ALLOWED FLAG
CHKSUM,	ZBLOCK	5			/CHECKSUM
CMPCNT,	.-.				/MATCH COUNT FOR COMPRESSION
DANGCNT,.-.				/DANGER COUNT
FDATE,	.-.				/FILE DATE
FILLVAL,.-.				/FILL VALUE FOR SPECIAL OUTPUT CHARACTERS
IDNUMBE,.-.				/INPUT DEVICE NUMBER
IFNAME,	ZBLOCK	4			/INPUT FILENAME
IMSW,	.-.				/IMAGE-MODE SWITCH
INLEN,	.-.				/INPUT FILE LENGTH
INPTR,	.-.				/INPUT BUFFER POINTER
INPUT,	.-.				/INPUT HANDLER POINTER
INRECOR,.-.				/INPUT RECORD
FNAME,	ZBLOCK	4			/OUTPUT FILENAME
LATEST,	.-.				/LATEST OUTPUT CHARACTER
OBOUND,	.-.				/OUTPUT BOUNDARY COUNTER
OCTCNT,	.-.				/OCTAL OUTPUT ROUTINE COUNTER
OCTEMP,	.-.				/OCTAL OUTPUT ROUTINE TEMPORARY
ODNUMBE,.-.				/OUTPUT DEVICE NUMBER
OUTPUT,	.-.				/OUTPUT HANDLER POINTER
OUTRECO,.-.				/OUTPUT RECORD
PRTEMP,	.-.				/DATE OUTPUT TEMPORARY
PUTEMP,	.-.				/OUTPUT TEMPORARY
PUTLATE,.-.				/LATEST 5-BIT CHARACTER
PUTPREV,.-.				/PREVIOUS OUTPUT TEMPORARY
QUO,	.-.				/DIVIDE QUOTIENT
REM,	.-.				/DIVIDE REMAINDER
SCRCASE,.-.				/CURRENT MESSAGE CASE
SCRCHAR,.-.				/LATEST MESSAGE CHARACTER
SCRPTR,	.-.				/MESSAGE POINTER
TDATE,	.-.				/TODAY'S DATE
TEMP,	.-.				/TEMPORARY
TEMPTR,	.-.				/TEMPORARY OUTPUT POINTER
WIDCNT,	.-.				/LINE WIDTH COUNTER
	PAGE				/START AT THE USUAL PLACE

BEGIN,	NOP				/IN CASE WE'RE CHAINED TO
	CLA				/CLEAN UP
START,	CIF	USRFLD			/GOTO USR FIELD
	JMS I	(USRENTRY)		/CALL USR ROUTINE
	USRIN				/GET IT LOCKED IN
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	DECODE				/WANT COMMAND DECODER
	"*^100				/USING SPECIAL MODE
	CDF	TBLFLD			/GOTO TABLE FIELD
	TAD I	(TERMWRD)		/GET TERMINATOR WORD
	SPA CLA				/SKIP IF <CR> TERMINATED THE LINE
	DCA	EXITZAP			/ELSE CAUSE EXIT LATER
	DCA	IMSW			/CLEAR IMAGE-MODE; MIGHT GET SET LATER THOUGH
	TAD I	(OUTFILE)		/GET OUTPUT FILE DEVICE WORD
	SNA				/SKIP IF OUTPUT FILE PRESENT
	JMP	TSTMORE			/JUMP IF NOT THERE
	AND	[17]			/JUST DEVICE BITS
	DCA	ODNUMBER		/SAVE OUTPUT DEVICE NUMBER
	TAD I	(INFILE)		/GET FIRST INPUT FILE DEVICE WORD
	SNA				/SKIP IF PRESENT
	JMP	INERR			/JUMP IF NOT
	AND	[17]			/JUST DEVICE BITS
	DCA	IDNUMBER		/SAVE INPUT DEVICE NUMBER
	TAD I	(INFILE+5)		/GET SECOND INPUT FILE DEVICE WORD
	SZA CLA				/SKIP IF ONLY ONE INPUT FILE
	JMP	INERR			/ELSE COMPLAIN
	JMS I	(MIFNAME)		/MOVE INPUT FILENAME WITH ADJUSTED EXTENSION
	TAD I	[OUTFILE+1]		/GET FIRST OUTPUT FILENAME WORD
	SNA CLA				/SKIP IF NAME PRESENT
	JMP	NONAMERROR		/JUMP IF DEVICE ONLY
	JMS I	(MOFNAME)		/MOVE OUTPUT FILENAME
	CDF	PRGFLD			/BACK TO OUR FIELD
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	RESET				/RESET SYSTEM TABLES
	TAD	(OHNDBUFFER+1)		/GET BUFFER POINTER+TWO-PAGE BIT
	DCA	OHPTR			/STORE IN-LINE
	TAD	ODNUMBER		/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	FETCH				/FETCH HANDLER
OHPTR,	.-.				/WILL BE BUFFER POINTER+TWO-PAGE BIT
	JMP	FERROR			/FETCH ERROR
	TAD	OHPTR			/GET RETURNED ADDRESS
	DCA	OUTPUT			/STORE AS OUTPUT HANDLER ADDRESS
	TAD	(IHNDBUFFER+1)		/GET INPUT BUFFER POINTER+TWO-PAGE BIT
	DCA	IHPTR			/STORE IN-LINE
	TAD	IDNUMBER		/GET INPUT DEVICE NUMBER
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	FETCH				/FETCH HANDLER
IHPTR,	.-.				/WILL BE BUFFER POINTER+TWO-PAGE BIT
	JMP	FERROR			/FETCH ERROR
	TAD	IHPTR			/GET RETURNED ADDRESS
	DCA	INPUT			/STORE AS INPUT HANDLER ADDRESS
	TAD	IMSW			/GET IMAGE-MODE SWITCH
	SNA CLA				/SKIP IF IMAGE MODE SET
	JMS I	(GEIFILE)		/GO LOOKUP INPUT FILE
	TAD	(FNAME)			/POINT TO
	DCA	ENTAR1			/STORED FILENAME
	DCA	ENTAR2			/CLEAR SECOND ARGUMENT
	JMS I	(INDATE)		/GET INPUT FILE'S DATE
	TAD	ODNUMBER		/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	ENTER				/ENTER TENTATIVE FILENAME
ENTAR1,	.-.				/WILL POINT TO FILENAME
ENTAR2,	.-.				/WILL BE ZERO
	JMP	ENTERR			/ENTER ERROR
	TAD	ENTAR1			/GET RETURNED FIRST RECORD
	DCA	OUTRECORD		/STORE IT
	TAD	ENTAR2			/GET RETURNED EMPTY LENGTH
	IAC				/ADD 2-1 FOR OS/278 CRAZINESS
	DCA	DANGCNT			/STORE AS DANGER COUNT
	JMS I	(CLRCHKSUM)		/CLEAR THE CHECKSUM
	JMS I	(ENCODIT)		/GO DO THE ACTUAL ENCODING
	JMP	PROCERR			/ERROR WHILE ENCODING
	TAD	ODNUMBER		/GET OUTPUT DEVICE NUMBER
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	CLOSE				/CLOSE OUTPUT FILE
	FNAME				/POINTER TO FILENAME
OUTCNT,	.-.				/WILL BE ACTUAL COUNT
	JMP	CLSERR			/CLOSE ERROR
EXITZAP,JMP	START			/**** <ESC> TERMINATION **** 0000
	JMP I	(SBOOT)			/EXIT TO MONITOR
/	ERROR WHILE PROCESSING INPUT FILE.

PROCERR,NL0002				/SET INCREMENT
	SKP				/DON'T USE NEXT

/	ERROR WHILE CLOSING THE OUTPUT FILE.

CLSERR,	NL0001				/SET INCREMENT
	SKP				/DON'T CLEAR IT

/	OUTPUT FILE TOO LARGE ERROR.

SIZERR,	CLA				/CLEAN UP
	TAD	[3]			/SET INCREMENT
	SKP				/DON'T USE NEXT

/	ENTER ERROR.

ENTERR,	NL0002				/SET INCREMENT
	SKP				/DON'T USE NEXT

/	HANDLER FETCH ERROR.

FERROR,	NL0001				/SET INCREMENT

/	NO OUTPUT FILENAME ERROR.

NONAMER,IAC				/SET INCREMENT

/	ILLEGAL OUTPUT FILE NAME ERROR.

BADNAME,IAC				/SET INCREMENT

/	INPUT FILESPEC ERROR.

INERR,	IAC				/SET INCREMENT

/	OUTPUT FILESPEC ERROR.

OUTERR,	DCA	ERRNUMBER		/STORE ERROR NUMBER
	CDF	PRGFLD			/ENSURE OUR FIELD
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	USERROR				/USER ERROR
ERRNUMB,.-.				/WILL BE PASSED ERROR NUMBER

/	COMES HERE TO TEST FOR NULL LINE.

TSTMORE,TAD I	(INFILE)		/GET FIRST INPUT FILE DEVICE WORD
	SZA CLA				/SKIP NO INPUT OR OUTPUT GIVEN
	JMP	OUTERR			/ELSE COMPLAIN
	CDF	PRGFLD			/BACK TO OUR FIELD
	JMP	EXITZAP			/MIGHT BE LAST TIME, SO GO THERE FIRST
	PAGE
ENCODIT,.-.				/ENCODING ROUTINE
	TAD	INRECORD		/GET INPUT FILE STARTING RECORD
	DCA	INREC			/STORE IN-LINE
	NL7777				/SETUP INITIALIZE VALUE
	JMS I	[DOBYTE]		/INITIALIZE OUTPUT ROUTINE
	JMS I	(TDMESSAGE)		/OUTPUT TODAY'S DATE MESSAGE
	JMS I	(FDMESSAGE)		/OUTPUT FILE DATE MESSAGE
	JMS I	[SCRIBE]		/OUTPUT THE
	FILMSG				/(FILE MESSAGE
	JMS I	(PIFNAME)		/OUTPUT THE INPUT FILENAME
	JMS I	[SCRIBE]		/OUTPUT THE
	EMSG				/LINE ENDING
	TAD	[-WIDTH]		/SETUP THE
	DCA	WIDCNT			/LINE WIDTH COUNTER
	JMS I	(OUTSETUP)		/SETUP PACKING ROUTINE AND CLEAR FILL
	TAD	[-5]			/INITIALIZE
	DCA	OBOUND			/BOUNDARY COUNTER
ENCLOOP,JMS I	INPUT			/CALL INPUT HANDLER
	2^100				/READ TWO PAGES
PINBUFF,INBUFFER			/INTO INPUT BUFFER
INREC,	.-.				/WILL BE LATEST INPUT FILE RECORD
ENCERRO,JMP I	ENCODIT			/INPUT ERROR, TAKE IMMEDIATE RETURN
	ISZ	INREC			/BUMP TO NEXT RECORD
	NOP				/JUST IN CASE
	TAD	PINBUFFER/(INBUFFER)	/SETUP THE
	DCA	INPTR			/BUFFER POINTER
LOOP,	JMS I	(CHKBND)		/CHECK IF ON A GOOD BOUNDARY
	JMP	NOCOMPRESSION		/COMPRESS IS NOT ALLOWED AT THIS TIME
	TAD	INPTR			/GET CURRENT POINTER
	DCA	XR1			/STASH FOR SEARCH
	DCA	CMPCNT			/CLEAR MATCH COUNT
CMPLUP,	TAD	XR1			/GET INDEX VALUE
	TAD	(-2^200-INBUFFER+1)	/COMPARE TO LIMIT
	SNA CLA				/SKIP IF NOT AT END OF BUFFER
	JMP	CMPEND			/JUMP IF AT END OF BUFFER
	TAD I	XR1			/GET A CANDIDATE WORD
	CIA				/INVERT FOR TEST
	TAD I	INPTR			/COMPARE TO CURRENT TEST VALUE
	SZA CLA				/SKIP IF IT MATCHES
 	JMP	CMPEND			/JUMP IF THIS IS NOT A REPEAT
	ISZ	CMPCNT			/BUMP MATCH COUNT
	JMP	CMPLUP			/TRY TO FIND MORE
/	COMES HERE POSSIBLY WITH SOME COMPRESSED VALUES COUNTED.

CMPEND,	NL7776				/-2
	TAD	CMPCNT			/DID WE FIND ENOUGH MATCHES?
	SPA CLA				/SKIP IF SO
	JMP	NOCOMPRESSION		/FORGET IT
	TAD	("X-"0)			/SETUP COMPRESSION INDICATOR
	JMS I	(OUTSETUP)		/SETUP SPECIAL MODE
	JMS I	(PUT5)			/OUTPUT "X"
	JMS I	(OUTSETUP)		/SETUP NORMAL NUMERICAL MODE
	TAD I	INPTR			/GET THE VALUE
	JMS I	[PUTIT]			/OUTPUT IT
	ISZ	CMPCNT			/ACCOUNT FOR ORIGINAL
	TAD	CMPCNT			/GET COMPRESSION COUNT
	CLL RTL;RTL			/*16
	JMS I	[PUTIT]			/OUTPUT BITS[0-7] ONLY
	JMS I	(OUTSETUP)		/SETUP NORMAL NUMERICAL MODE AGAIN
	TAD	INPTR			/GET INPUT POINTER
	TAD	CMPCNT			/UPDATE PAST ALL COMPRESSED VALUES
	DCA	INPTR			/STORE BACK
	JMP	TEST			/CONTINUE THERE

/	COMES HERE IF NO COMPRESSION FOUND (OR NOT ALLOWED).

NOCOMPR,TAD I	INPTR			/GET LATEST VALUE
	JMS I	[PUTIT]			/OUTPUT IT
	ISZ	INPTR			/BUMP TO NEXT
	ISZ	OBOUND			/BUMP TO NEXT WORD
	JMP	TEST			/KEEP GOING
	TAD	[-5]			/RESET THE
	DCA	OBOUND			/BOUNDARY COUNTER
TEST,	TAD	INPTR			/GET INPUT POINTER
	TAD	(-2^200-INBUFFER)	/COMPARE TO UPPER LIMIT
	SZA CLA				/SKIP IF AT END OF BUFFER
	JMP	LOOP			/ELSE JUST KEEP GOING
	ISZ	INLEN			/DONE ALL INPUT RECORDS?
	JMP	ENCLOOP			/NO, KEEP GOING

/	WE MUST FINISH THE LAST [5 WORDS => 12 BYTES] SEQUENCE.

ENDLUP,	JMS I	(CHKBND)		/AT A GOOD BOUNDARY?
	SKP				/SKIP IF NOT
	JMP	ENDONE			/JUMP IF SO
	JMS I	[PUTIT]			/OUTPUT SOME WASTE BYTES
	ISZ	OBOUND			/AT A GOOD BOUNDARY NOW?
	JMP	ENDLUP			/NO, TRY AGAIN
ENDONE,	TAD	("Z-"0)		/GET END INDICATOR
	JMS I	(OUTSETUP)		/SETUP SPECIAL MODE
	JMS I	(PUT5)			/OUTPUT A "Z"
	JMS I	(INVCHKSUM)		/INVERT THE CHECKSUM
	JMS I	(OUTSETUP)		/SETUP NORMAL NUMERICAL MODE
	JMS I	(CHKOUT)		/OUTPUT THE CHECKSUM
	JMS I	[SCRIBE]		/OUTPUT THE
	ENDMSG				/END MESSAGE
	JMS I	(PIFNAME)		/OUTPUT THE INPUT FILENAME
	JMS I	[SCRIBE]		/OUTPUT THE
	EMSG				/LINE ENDING
	JMS I	[SCRIBE]		/OUTPUT THE
	EOFMSG				/FINAL MESSAGE
	TAD	("Z&37)			/GET <^Z>
CLOSLUP,JMS I	[DOBYTE]		/OUTPUT A BYTE (^Z OR NULL)
	TAD	BUFPTR			/GET THE OUTPUT BUFFER POINTER
	TAD	(-OUTBUFFER)		/COMPARE TO RESET VALUE
	SZA CLA				/SKIP IF IT MATCHES
	JMP	CLOSLUP			/ELSE KEEP GOING
	ISZ	ENCODIT			/NO ERRORS
	JMP I	ENCODIT			/RETURN

	PAGE
PUTIT,	.-.				/WORD OUTPUT ROUTINE
	DCA	PUTEMP			/SAVE PASSED VALUE
	JMS I	(CALCHKSUM)		/UPDATE CHECKSUM
	JMP I	PUTNXT			/GO WHERE YOU SHOULD GO

PUTNXT,	PUT0				/OUTPUT EXIT ROUTINE
	TAD	PUTEMP			/GET LATEST VALUE
	DCA	PUTPREV			/SAVE FOR NEXT TIME
	JMP I	PUTIT			/RETURN TO MAIL CALLER

PUTLUP,	JMS	PUTNXT			/GET ANOTHER WORD
PUT0,	TAD	PUTEMP			/GET WORD[0]
	RTL;RTL;RTL			/BITS[0-4] => AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	TAD	PUTEMP			/GET WORD[0] AGAIN
	RTR				/BITS[5-9] => AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	JMS	PUTNXT			/GET ANOTHER WORD
PUT1,	TAD	PUTPREV			/GET WORD[0]
	AND	[3]			/ISOLATE BITS[10-11]
	CLL RTL;RAL			/BITS[10-11] => AC[7-8]
	DCA	PUTPREV			/SAVE FOR NOW
	TAD	PUTEMP			/GET WORD[1]
	RTL;RTL				/BITS[0-2] => AC[9-11]
	AND	[7]			/ISOLATE DESIRED BITS
	TAD	PUTPREV			/ADD ON WORD[0] BITS IN AC[7-8]
	JMS	PUT5			/OUTPUT A CHARACTER
	TAD	PUTEMP			/GET WORD[1]
	RTR;RTR				/BITS[3-7] => AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	JMS	PUTNXT			/GET ANOTHER WORD
PUT2,	TAD	PUTEMP			/GET WORD[2]
	RAL				/BIT[0] => L
	CLA				/CLEAN UP
	TAD	PUTPREV			/GET WORD[1]
	RAL				/BITS[8-11],L => AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	TAD	PUTEMP			/GET WORD[2]
	RTR;RTR;RTR			/BITS[1-5] => AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	TAD	PUTEMP			/GET WORD[2]
	RAR				/BITS[6-10] => AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	JMS	PUTNXT			/GET ANOTHER WORD
PUT3,	TAD	PUTPREV			/GET WORD[2]
	RAR				/BIT[11] => L
	CLA				/CLEAN UP
	TAD	PUTEMP			/GET WORD[3]
	RTL;RTL;RAL			/L, BITS[0-3] => AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	TAD	PUTEMP			/GET WORD[3]
	RTR;RAR				/BITS[4-8] => AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	JMS	PUTNXT			/GET ANOTHER WORD
PUT4,	TAD	PUTPREV			/GET WORD[3]
	AND	[7]			/ISOLATE BITS[9-11]
	CLL RTL				/BITS[9-11] => AC[7-9]
	DCA	PUTPREV			/SAVE FOR NOW
	TAD	PUTEMP			/GET WORD[4]
	RTL;RAL				/BITS[0-1] => AC[10-11]
	AND	[3]			/ISOLATE BITS[10-11]
	TAD	PUTPREV			/ADD ON WORD[3] BITS IN AC[7-9]
	JMS	PUT5			/OUTPUT A CHARACTER
	TAD	PUTEMP			/GET WORD[4]
	RTR;RTR;RAR			/BITS[2-6] => AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	TAD	PUTEMP			/GET WORD[4] BITS[7-11] IN AC[7-11]
	JMS	PUT5			/OUTPUT A CHARACTER
	JMP	PUTLUP			/GO DO ANOTHER GROUP OF FIVE WORDS

CHKNL,	.-.				/CHECK IF AT NEW LINE ROUTINE
	TAD	WIDCNT			/GET LINE WIDTH COUNTER
	TAD	(WIDTH)			/COMPARE TO MAXIMIM VALUE
	SZA CLA				/SKIP IF AT MAXIMUM
	ISZ	CHKNL			/TAKE SKIP RETURN IF NOT AT MAXIMUM
	JMP I	CHKNL			/RETURN EITHER WAY

OUTSETU,.-.				/OUTPUT SETUP ROUTINE
	DCA	FILLVALUE		/STORE PASSED FILL VALUE
	TAD	(PUT0)			/SETUP THE
	DCA	PUTNXT			/OUTPUT CO-ROUTINE
	JMP I	OUTSETUP		/RETURN
PUT5,	.-.				/FIVE-BIT OUTPUT ROUTINE
	AND	[37]			/JUST 5 BITS
	DCA	PUTLATEST		/SAVE IT
	JMS	CHKNL			/CHECK IF AT BEGINNING OF LINE
	SKP				/SKIP IF NOT
	JMP	PUTNORMAL		/JUMP IF SO
	TAD	("<&177)		/GET BEGINNING BRACKET
	JMS I	[DOBYTE]		/OUTPUT IT
PUTNORM,TAD	PUTLATEST		/GET LATEST VALUE
	TAD	("0-"9-1)		/COMPARE TO FIRST LIMIT
	SMA CLA				/SKIP IF LESS
	TAD	["A-"9-1]		/CONVERT LARGER VALUES TO A-V
	TAD	PUTLATEST		/ADD ON LATEST VALUE
	TAD	["0&177]		/MAKE IT ASCII
	TAD	FILLVALUE		/ADD ON FILL VALUE FOR SPECIAL MODE
	JMS I	[DOBYTE]		/OUTPUT IT
	ISZ	WIDCNT			/BUMP LINE COUNTER
	TAD	WIDCNT			/GET LINE COUNTER
	SZA CLA				/SKIP IF AT END OF LINE
	JMP I	PUT5			/ELSE JUST RETURN
	TAD	(">&177)		/GET DATA CLOSING CHARACTER
	JMS I	[DOBYTE]		/OUTPUT IT
	TAD	["M&37]			/GET A <CR>
	JMS I	[DOBYTE]		/OUTPUT IT
	TAD	["J&37]			/GET A <LF>
	JMS I	[DOBYTE]		/OUTPUT IT
	TAD	[-WIDTH]		/RESET THE
	DCA	WIDCNT			/LINE WIDTH COUNTER
	JMP I	PUT5			/RETURN

	PAGE
/	MESSAGE PRINT ROUTINE.

SCRIBE,	.-.				/MESSAGE PRINT ROUTINE
	TAD I	SCRIBE			/GET IN-LINE POINTER ARGUMENT
	DCA	SCRPTR			/STASH THE POINTER
	ISZ	SCRIBE			/BUMP PAST ARGUMENT
	TAD	(140)			/INITIALIZE TO
	DCA	SCRCASE			/LOWER-CASE
SCRLUP,	TAD I	SCRPTR			/GET LEFT HALF-WORD
	RTR;RTR;RTR			/MOVE OVER
	JMS	SCRPRNT			/PRINT IT
	TAD I	SCRPTR			/GET RIGHT HALF-WORD
	JMS	SCRPRNT			/PRINT IT
	ISZ	SCRPTR			/BUMP TO NEXT PAIR
	JMP	SCRLUP			/KEEP GOING

SCRPRNT,.-.				/CHARACTER PRINT ROUTINE
	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	[DOBYTE]		/OUTPUT THE CHARACTER
	JMP I	SCRPRNT			/RETURN

SCRCRLF,TAD	["M&37]			/GET A <CR>
	JMS I	[DOBYTE]		/OUTPUT IT
	TAD	["J&37]			/GET A <LF>
	JMP	SCRPRLF			/CONTINUE THERE

SCRFLIP,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
PUTBYTE,.-.				/OUTPUT A BYTE ROUTINE
	SPA				/ARE WE INITIALIZING?
	JMP	PUTINITIALIZE		/YES
	AND	(177)			/JUST IN CASE
	DCA	LATEST			/SAVE LATEST CHARACTER
	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
	JMP I	PUTBYTE			/RETURN TO MAIN CALLER

PUTINIT,CLA				/CLEAN UP
	TAD	OUTRECORD		/GET STARTING RECORD OF TENTATIVE FILE
	DCA	PUTRECORD		/STORE IN-LINE
	DCA I	(OUTCNT)		/CLEAR ACTUAL FILE LENGTH
PUTNEWR,TAD	(OUTBUFFER)		/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	(-2^200-OUTBUFFERR)	/COMPARE TO LIMIT
	SZA CLA				/SKIP IF AT END
	JMP	PUTLOOP			/KEEP GOING
	ISZ	DANGCNT			/TOO MANY RECORDS?
	SKP				/SKIP IF NOT
	JMP I	(SIZERR)		/JUMP IF SO
	JMS I	OUTPUT			/CALL I/O HANDLER
	2^100+WRITE			/WRITE SOME PAGES FROM OUTPUT BUFFER
	OUTBUFFER			/BUFFER ADDRESS
PUTRECO,.-.				/WILL BE LATEST RECORD NUMBER
	JMP	PUTERROR		/OUTPUT ERROR!
	ISZ I	(OUTCNT)		/BUMP ACTUAL LENGTH
	ISZ	PUTRECORD		/BUMP TO NEXT RECORD
	JMP	PUTNEWRECORD		/KEEP GOING
DOBYTE,	.-.				/OUTPUT A BYTE ROUTINE
	JMS	PUTBYTE			/OUTPUT PASSED VALUE
	JMP I	(ENCERROR)		/COULDN'T DO IT
	JMP I	DOBYTE			/RETURN

	PAGE
/	INPUT FILE ROUTINE.

GEIFILE,.-.				/GET INPUT FILE ROUTINE
	JMS	LUKUP			/TRY TO LOOKUP THE FILE
	SKP				/SKIP IF IT WORKED
	JMP	TRYNULL			/TRY NULL EXTENSION VERSION
NULLOK,	TAD	LARG2			/GET NEGATED LENGTH
	DCA	INLEN			/STASH IT
	TAD	LARG1			/GET FIRST INPUT RECORD
	DCA	INRECORD		/STASH IT
	JMP I	GEIFILE			/RETURN

/	COMES HERE IF LOOKUP FAILED.

TRYNULL,CDF	TBLFLD			/GOTO TABLE FIELD
	TAD I	[INFILE+4]		/GET ORIGINAL FILENAME'S EXTENSION
	CDF	PRGFLD			/BACK TO OUR FIELD
	SZA CLA				/SKIP IF IT WAS NULL ORIGINALLY
	JMP I	(INERR)			/ELSE COMPLAIN OF EXPLICIT LOOKUP FAILURE
	DCA	IFNAME+3		/NOW TRY NULL VERSION INSTEAD OF DEFAULT VERSION
	JMS	LUKUP			/TRY TO LOOK IT UP AGAIN
	JMP	NULLOK			/THAT WORKED!
	JMP I	(INERR)			/COMPLAIN OF LOOKUP FAILURE

LUKUP,	.-.				/LOW-LEVEL LOOKUP ROUTINE
	TAD	(IFNAME)		/GET OUR FILENAME POINTER
	DCA	LARG1			/STORE IN-LINE
	DCA	LARG2			/CLEAR SECOND ARGUMENT
	TAD	IDNUMBER		/GET INPUT DEVICE NUMBER
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	[USR]			/CALL USR ROUTINE
	LOOKUP				/WANT LOOKUP FUNCTION
LARG1,	.-.				/WILL BE POINTER TO OUR FILENAME
LARG2,	.-.				/WILL RETURN FILE LENGTH (HOPEFULLY)
	ISZ	LUKUP			/LOOKUP FAILED, SO BUMP RETURN ADDRESS
	JMP I	LUKUP			/RETURN EITHER WAY
/	INPUT FILENAME PRINT ROUTINE.

PIFNAME,.-.				/PRINT INPUT FILENAME ROUTINE
	TAD	IMSW			/GET IMAGE-MODE SWITCH
	SNA CLA				/SKIP IF SET
	JMP	DOIFNAME		/JUMP IF NOT
	JMS I	[SCRIBE]		/OUTPUT THE
	IFMSG				/IMAGE MESSAGE
	CDF	TBLFLD			/GOTO TABLE FIELD
	TAD I	[EQUWRD]		/GET EQUALS PARAMETER
	CDF	PRGFLD			/BACK TO OUR FIELD
	JMS I	(OCTOUT)		/OUTPUT IT
	CDF	TBLFLD			/GOTO TABLE FIELD
	TAD I	[SWY9]			/GET /Y-/9 SWITCHES
	CDF	PRGFLD			/BACK TO OUR FIELD
	AND	[600]			/JUST /1, /2 BITS
	SNA				/SKIP IF SOMETHING SET
	JMP I	PIFNAME			/JUST RETURN IF NOT
	AND	[400]			/JUST /1 BIT
	SNA CLA				/SKIP IF /1 SET
	JMP	PIFPT2			/JUMP IF /2 SET
	JMS I	[SCRIBE]		/OUTPUT THE
	PT1MSG				/PART ONE MESSAGE
	JMP I	PIFNAME			/RETURN

PIFPT2,	JMS I	[SCRIBE]		/OUTPUT THE
	PT2MSG				/PART TWO MESSAGE
	JMP I	PIFNAME			/RETURN

DOIFNAM,TAD	IFNAME			/GET FIRST PAIR
	JMS	PIF2			/PRINT IT
	TAD	IFNAME+1		/GET SECOND PAIR
	JMS	PIF2			/PRINT IT
	TAD	IFNAME+2		/GET THIRD PAIR
	JMS	PIF2			/PRINT IT
	TAD	(".&177)		/GET SEPARATOR
	JMS	PIFOUT			/PRINT IT
	TAD	IFNAME+3		/GET FOURTH PAIR
	JMS	PIF2			/PRINT IT
	JMP I	PIFNAME			/RETURN

PIF2,	.-.				/PRINT A PAIR ROUTINE
	DCA	SCRCHAR			/SAVE PASSED PAIR
	TAD	SCRCHAR			/GET IT BACK
	RTR;RTR;RTR			/MOVE DOWN
	JMS	PIFOUT			/PRINT HIGH-ORDER FIRST
	TAD	SCRCHAR			/GET IT AGAIN
	JMS	PIFOUT			/PRINT LOW-ORDER
	JMP I	PIF2			/RETURN
PIFOUT,	.-.				/FILENAME CHARACTER OUTPUT ROUTINE
	AND	[77]			/JUST SIXBIT
	SNA				/SKIP IF SOMETHING THERE
	JMP I	PIFOUT			/ELSE IGNORE IT
	TAD	[40]			/INVERT IT
	AND	[77]			/REMOVE EXCESS
	TAD	[40]			/INVERT IT AGAIN
	JMS I	[DOBYTE]		/OUTPUT IT
	JMP I	PIFOUT			/RETURN

MOFNAME,.-.				/MOVE OUTPUT FILENAME ROUTINE
	TAD I	[OUTFILE+1]		/GET FIRST OUTPUT FILENAME WORD
	JMS	CHKNAME			/CHECK IF LEGAL
	DCA	FNAME			/STASH IT
	TAD I	(OUTFILE+2)		/GET SECOND OUTPUT FILENAME WORD
	JMS	CHKNAME			/CHECK IF LEGAL
	DCA	FNAME+1			/STASH IT
	TAD I	(OUTFILE+3)		/GET THIRD OUTPUT FILENAME WORD
	JMS	CHKNAME			/CHECK IF LEGAL
	DCA	FNAME+2			/STASH IT
	TAD I	(OUTFILE+4)		/GET FOURTH OUTPUT FILENAME WORD
	JMS	CHKNAME			/CHECK IF LEGAL
	DCA	FNAME+3			/STASH IT
	JMP I	MOFNAME			/RETURN

/	OUTPUT NAME CHECK ROUTINE.

CHKNAME,.-.				/OUTPUT NAME CHECK ROUTINE
	DCA	LUKUP			/SAVE PASSED VALUE
	TAD	LUKUP			/GET IT BACK
	RTR;RTR;RTR			/MOVE DOWN
	JMS	CHKIT			/CHECK HIGH-ORDER AND GET IT BACK
	JMS	CHKIT			/CHECK LOW-ORDER AND GET IT BACK
	JMP I	CHKNAME			/RETURN

CHKIT,	.-.				/ONE CHARACTER CHECK ROUTINE
	AND	[77]			/JUST SIX BITS
	TAD	(-"?!200)		/COMPARE TO "?"
	SZA				/SKIP IF ALREADY BAD
	TAD	(-"*+"?)		/ELSE COMPARE TO "*"
	SNA CLA				/SKIP IF NEITHER BAD CASE
	JMP I	(BADNAME)		/COMPLAIN OF WILD CHARACTER
	TAD	LUKUP			/GET THE PAIR BACK FOR NEXT TIME
	JMP I	CHKIT			/RETURN
	PAGE
CALCHKS,.-.				/CALCULATE CHECKSUM ROUTINE
	TAD	CHKFLG			/SHOULD WE CHECKSUM?
	SZA CLA				/SKIP IF SO
	JMP I	CALCHKSUM		/JUMP IF NOT
	JMS	CHKSETUP		/SETUP
	TAD	PUTEMP			/GET PASSED VALUE
	CLL RAR				/CLEAR LINK AND MOVE OVER
ADDLUP,	RAL				/MOVE OVER CARRY
	TAD I	XR1			/ADD A WORD
	DCA I	XR2			/STORE BACK
	ISZ	CCNT			/DONE ENOUGH?
	JMP	ADDLUP			/NO, KEEP GOING
	JMP I	CALCHKSUM		/YES, RETURN

CHKOUT,	.-.				/OUTPUT THE CHECKSUM ROUTINE
	JMS	CHKSETUP		/SETUP
	ISZ	CHKFLG			/DISABLE CHECKSUMMING
	TAD I	XR1			/GET A WORD
	JMS I	[PUTIT]			/OUTPUT IT
	ISZ	CCNT			/DONE YET?
	JMP	.-3			/NO, KEEP GOING
	JMP I	CHKOUT			/YES, WE'RE DONE

CLRCHKS,.-.				/CLEAR CHECKSUM ROUTINE
	JMS	CHKSETUP		/SETUP
	DCA I	XR1			/CLEAR A WORD
	ISZ	CCNT			/DONE YET?
	JMP	.-2			/NO, DO ANOTHER
	DCA	CHKFLG			/ENABLE CHECKSUMMING
	JMP I	CLRCHKSUM		/RETURN

INVCHKS,.-.				/CHECKSUM INVERSION ROUTINE
	JMS	CHKSETUP		/SETUP
	STL				/FORCE INITIAL CARRY
COMLUP,	TAD I	XR1			/GET A WORD
	CMA				/INVERT IT
	SZL				/SKIP IF NO CARRY
	CLL IAC				/ELSE ADD ONE AND CLEAR CARRY FOR NEXT TIME
	DCA I	XR2			/STORE BACK
	ISZ	CCNT			/DONE ALL YET?
	JMP	COMLUP			/NO, KEEP GOING
	JMP I	INVCHKSUM		/YES, RETURN

CHKSETU,.-.				/CHECKSUM SETUP ROUTINE
	TAD	(CHKSUM-1)		/POINT TO
	DCA	XR1			/CHECKSUM AREA
	TAD	(CHKSUM-1)		/POINT TO
	DCA	XR2			/CHECKSUM AREA
	TAD	[-5]			/SETUP THE
	DCA	CCNT			/CHECKSUM COUNT
	JMP I	CHKSETUP		/RETURN
/	FILE DATE ROUTINE.

FDMESSA,.-.				/PUT FILE DATE IN MESSAGE ROUTINE
	TAD	FDATE			/GET INPUT FILE'S DATE
	SNA CLA				/SKIP IF ANY
	JMP I	FDMESSAGE		/RETURN IF NONE
	JMS I	[SCRIBE]		/PRINT OUT THE
	DATMSG				/DATE BLURB
	TAD	FDATE			/GET IT BACK
	JMS	PRDATE			/PRINT THE DATE
	JMS I	[SCRIBE]		/PRINT THE
	EMSG				/END MESSAGE
	JMP I	FDMESSAGE		/RETURN

TDMESSA,.-.				/PUT TODAY'S DATE IN MESSAGE ROUTINE
	JMS I	[SCRIBE]		/OUTPUT THE
	REMMSG				/OPENING REMARKS
	CDF	TBLFLD			/GOTO TABLE FIELD
	TAD I	(DATWRD)		/GET DATE WORD
	CDF	PRGFLD			/BACK TO OUR FIELD
	SNA				/SKIP IF THERE
	JMP	NOTDATE			/JUMP IF NOT
	DCA	TDATE			/SAVE TODAY'S DATE
	JMS I	[SCRIBE]		/OUTPUT THE
	ONMSG				/BRIDGING MESSAGE
	TAD	TDATE			/GET TODAY'S DATE
	JMS	PRDATE			/PRINT TODAY'S DATE
NOTDATE,JMS I	[SCRIBE]		/OUTPUT THE
	EMSG				/END MESSAGE
	JMP I	TDMESSAGE		/RETURN
PRDATE,	.-.				/DATE PRINT ROUTINE
	DCA	PRTEMP			/SAVE PASSED VALUE
	TAD	PRTEMP			/GET IT BACK
	RTR;RAR				/MOVE DOWN
	AND	[37]			/JUST DAY BITS
	JMS I	(DEC2)			/PRINT AS TWO DIGITS
	TAD	PRTEMP			/GET DATE AGAIN
	AND	[7400]			/JUST MONTH BITS
	CLL RTL;RTL;RTL			/MOVE DOWN
	TAD	(MONLST-2-1)		/POINT TO PROPER ELEMENT
	DCA	XR1			/STASH THE POINTER
	TAD I	XR1			/GET FIRST PAIR
	DCA I	(MMSG+1)		/STORE IN MESSAGE
	TAD I	XR1			/GET SECOND PAIR
	DCA I	(MMSG+2)		/STORE IN MESSAGE
	JMS I	[SCRIBE]		/OUTPUT THE
	MMSG				/MONTH MESSAGE
	TAD	PRTEMP			/GET DATE AGAIN
	AND	[7]			/JUST YEAR BITS
	DCA	TEMP			/SAVE IT
	CDF	TBLFLD			/GOTO TABLE FIELD
	TAD I	(DATWRD)		/GET CURRENT DATE WORD
	CDF	PRGFLD			/BACK TO OUR FIELD
	AND	[7]			/JUST YEAR BITS
	CIA				/INVERT FOR TEST
	TAD	TEMP			/COMPARE TO DESIRED YEAR
	SMA SZA CLA			/SKIP IF THEY MATCH OR ARE EARLIER
	TAD	(-10)			/ELSE BACKUP A GROUP
	TAD	TEMP			/ADD TO YEAR
	DCA	TEMP			/STORE BACK
	TAD I	(DATEXT)		/GET EXTENSION WORD
	AND	[600]			/JUST EXTENSION BITS
	CLL RTR;RTR			/MAKE IT GROUP COUNT
	TAD	TEMP			/ADD ON RELATIVE YEAR
	TAD	(106)			/MAKE IT ABSOLUTE YEAR (70-99)
	JMS I	(DEC2)			/PRINT AS TWO DIGITS
	JMP I	PRDATE			/RETURN

	PAGE
DEC2,	.-.				/PRINT TWO DIGITS ROUTINE
	JMS	DIVIDE			/DIVIDE
	12				/BY 10
	TAD	["0&177]		/MAKE IT ASCII
	JMS I	[DOBYTE]		/OUTPUT IT
	TAD	REM			/GET SECOND DIGIT
	TAD	["0&177]		/MAKE IT ASCII
	JMS I	[DOBYTE]		/OUTPUT IT
	JMP I	DEC2			/RETURN

/	DIVIDE ROUTINE.

DIVIDE,	.-.				/DIVIDE ROUTINE
	DCA	REM			/SAVE IN REMAINDER
	DCA	QUO			/CLEAR QUOTIENT
	TAD	REM			/GET IT BACK
	STL CIA				/INVERT
	SKP				/DON'T FIRST TIME
DVLOOP,	ISZ	QUO			/BUMP UP QUOTIENT
	TAD I	DIVIDE			/ADD ON ARGUMENT
	SNA SZL				/UNDERFLOW?
	JMP	DVLOOP			/NO, KEEP GOING
	CIA				/YES, INVERT IT BACK
	TAD I	DIVIDE			/RESTORE LOST VALUE
	DCA	REM			/SAVE AS REMAINDER
	TAD	QUO			/GET THE QUOTIENT
	ISZ	DIVIDE			/BUMP PAST ARGUMENT
	JMP I	DIVIDE			/RETURN

INDATE,	.-.				/GET INPUT FILE'S DATE WORD
	CDF	TBLFLD			/GOTO TABLE FIELD
	TAD	IMSW			/GET IMAGE-MODE SWITCH
	SNA CLA				/SKIP IF SET
	JMP	NOIMG			/JUMP IF NOT
	TAD I	(DATWRD)		/USE TODAY'S DATE
	JMP	NOAIW			/CONTINUE THERE

NOIMG,	TAD I	(AIWCNT)		/GET AIW COUNT
	SNA				/SKIP IF ANY
	JMP	NOAIW			/JUMP IF NOT
	TAD I	[AIWXR]			/GET ENTRY POINTER
	DCA	TEMP			/STASH FIRST AIW POINTER
	TAD I	TEMP			/GET FIRST AIW
NOAIW,	DCA	FDATE			/SAVE AS FILE'S DATE
	CDF	PRGFLD			/BACK TO OUR FIELD
	JMP I	INDATE			/RETURN
/	INPUT FILENAME MOVE ROUTINE; USES DEFAULT EXTENSION IF NONE PROVIDED BY USER.

MIFNAME,.-.				/MOVE INPUT FILENAME ROUTINE
	TAD I	(INFILE+1)		/GET FIRST INPUT FILENAME WORD
	SNA				/SKIP IF SOMETHING THERE
	JMP	IMTEST			/JUMP IF NOT
IFNAMOK,DCA	IFNAME			/STASH IT
	TAD I	(INFILE+2)		/GET SECOND INPUT FILENAME WORD
	DCA	IFNAME+1		/STASH IT
	TAD I	(INFILE+3)		/GET THIRD INPUT FILENAME WORD
	DCA	IFNAME+2		/STASH IT
	TAD I	[INFILE+4]		/GET FOURTH INPUT FILENAME WORD
	SNA				/SKIP IF SOMETHING THERE
	TAD	("S^100+"V-300)		/ELSE USE DEFAULT EXTENSION VALUE
	DCA	IFNAME+3		/STASH IT EITHER WAY
	JMP I	MIFNAME			/RETURN

/	TEST IF IMAGE-MODE IS SET.  ASSUME /1 AND /2 ARE NOT SET.

IMTEST,	TAD I	(SWAL)			/GET /A-/L SWITCHES
	AND	(10)			/JUST /I BIT
	SZA CLA				/SKIP IF NOT SET
	TAD I	[EQUWRD]		/GET EQUALS PARAMETER
	SNA				/SKIP IF SOMETHING THERE
	JMP I	(INERR)			/ELSE COMPLAIN
	CIA				/INVERT IT
	DCA	INLEN			/USE AS INPUT RECORD COUNT
	DCA	INRECORD		/START AT THE BEGINNING OF THE DEVICE
	ISZ	IMSW			/INDICATE IMAGE-MODE SET

/	TEST IF /1 OR /2 IS SET.

	TAD I	[SWY9]			/GET /Y-/9 SWITCHES
	AND	[600]			/JUST /1, /2 SWITCHES
	SNA				/SKIP IF EITHER SET
	JMP	IFNAMOK			/JUMP IF NEITHER SET

/	TEST IF /1 IS SET.  IF NOT, /2 MUST BE SET.

	AND	[400]			/JUST /1 SWITCH
	SNA CLA				/SKIP IF /1 SET
	JMP	IM2			/JUMP IF /2 SET

/	FOR A  FIRST HALF, USE THE ROUNDED-DOWN FIRST HALF LENGTH.  THE DATA STARTS AT
/	RECORD ZERO (ALREADY SET).

	TAD I	[EQUWRD]		/GET EQUALS PARAMETER
	CLL RAR				/%2
IM2ENTR,CIA				/INVERT IT
	DCA	INLEN			/SET COUNT FOR HALF OF THE DEVICE
	JMP	IFNAMOK			/KEEP GOING
/	FOR A SECOND HALF, THE DATA STARTS AT THE HALFWAY POINT (ROUNDED DOWN).

IM2,	TAD I	[EQUWRD]		/GET EQUALS PARAMETER
	CLL RAR				/%2
	DCA	INRECORD		/SETUP STARTING RECORD

/	FOR A SECOND HALF,  THE  COUNT  IS THE ORIGINAL AMOUNT MINUS THE COUNT FOR THE
/	FIRST HALF.

	TAD I	[EQUWRD]		/GET EQUALS PARAMETER
	CLL RAR				/%2
	CIA				/INVERT IT
	TAD I	[EQUWRD]		/SUBTRACT FROM EQUALS PARAMETER
	JMP	IM2ENTRY		/CONTINUE THERE

CHKBND,	.-.				/CHECK IF ON GOOD OUTPUT BOUNDARY ROUTINE
	TAD	OBOUND			/GET BOUNDARY COUNTER
	TAD	(5)			/COMPARE TO BEGINNING VALUE
	SNA CLA				/SKIP IF NOT AT BEGINNING
	ISZ	CHKBND			/SET SKIP RETURN IF AT BEGINNING
	JMP I	CHKBND			/RETURN EITHER WAY

OCTOUT,	.-.				/OCTAL OUTPUT ROUTINE
	DCA	OCTEMP			/SAVE IT
	TAD	(-4)			/SETUP THE
	DCA	OCTCNT			/DIGIT COUNTER
OCTLUP,	TAD	OCTEMP			/GET THE VALUE
	RTL;RAL				/MOVE UP A DIGIT
	DCA	OCTEMP			/STORE BACK
	TAD	OCTEMP			/GET IT AGAIN
	RAL				/PUT INTO CORRECT BITS
	AND	[7]			/JUST ONE DIGIT
	TAD	["0&177]		/MAKE IT ASCII
	JMS I	[DOBYTE]		/OUTPUT IT
	ISZ	OCTCNT			/DONE ENOUGH?
	JMP	OCTLUP			/NO, GO BACK FOR MORE
	JMP I	OCTOUT			/YES, RETURN TO CALLER

	PAGE
/	FILE TEXT MESSAGES.

DATMSG,	TEXT	"(^REMARK F^ILE ^D^ATE: "
EMSG,	TEXT	")%^"
ENDMSG,	TEXT	">%(^END ^"
EOFMSG,	TEXT	"(^REMARK E^ND OF ^F^ILE)%"
FILMSG,	TEXT	"(^FILE "
IFMSG,	TEXT	"^B^LOCK-^I^MAGE-^F^ILE =^"
MMSG,	TEXT	"-^D^EC-19"
ONMSG,	TEXT	": ^"
PT1MSG,	TEXT	" ^F^IRST ^H^ALF"
PT2MSG,	TEXT	" ^S^ECOND ^H^ALF^"
REMMSG,	TEXT	"(^REMARK PDP-8/DEC^MATE ^E^NCODING ^P^ROGRAM ^V^ERSION ^"
	"0+VERSION^100+".-200;	"0+REVISION^100+" -200
	TEXT	"     C^HARLES ^L^ASNER)%"
	TEXT	"(^REMARK I^MAGE ^F^ILE ^C^REATED BY ^PDP^-8"

/	MONTH TEXT TABLE.

MONLST,	TEXT	"J^AN"			/JANUARY
	TEXT	"F^EB"			/FEBRUARY
	TEXT	"M^AR"			/MARCH
	TEXT	"A^PR"			/APRIL
	TEXT	"M^AY"			/MAY
	TEXT	"J^UN"			/JUNE
	TEXT	"J^UL"			/JULY
	TEXT	"A^UG"			/AUGUST
	TEXT	"S^EP"			/SEPTEMBER
	TEXT	"O^CT"			/OCTOBER
	TEXT	"N^OV"			/NOVEMBER
	TEXT	"D^EC"			/DECEMBER
	$				/THAT'S ALL FOLK!

leader for direct load file which must be in lower case

file contains kermit data in ipl encoded format

this file contains data for field zero

!!M!!!!!!!!!!!!(!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!`\!!!!!!!!
!!"_!!!!!!!N!D!!!R!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"`!!_!
UL!>``!!!!!!!!!!!!%!#A3!E!E*1TEB,B%@!!!!!!!!!!?!;!`N9!!."A04!;]!
!+A!EZ?Z3^EC.)/!-!G\#8QT!(U5%9+,+:"!%!$`!#`G`T"`<A#!`A&3!A!`G!%1
P`F`9#:&Y!)(U,F_E*F_EPH_,^99,]H\K>K!9:E7K8):K0]IK!;<F_!!K!F_A*K!
!!\!/A<23A/A@[3A,Z<3,Y@X<4)@"^*]@W02^)K],4<402@38X4243KR\!,40X0W
0[F\@343)F*[]IL+@343[A@3)<9=1@Y!OA!!!!!!!!4PL64PL8T"!IT'[!,;TW,V
TW,VTW9291P5T)[!P5!!T*LKT/[!PJ!!#=5Q6/=6!!!)S5S4!DS7S6+R88Q!1!W!
!!F.S3/!3!_IO!F,/!3!]IO!;/CK!!O!!!\!9-,`9`*Z:!O1!!C1,_9`,^:!O9!!
;I)U;J?J3J3IKDO@!!!!!![!/K3K;S0]YBFY!!_IOKM$!!H\K_<-)G@.4.,-@.4.
[A@.)B,[YB,.`)L+D/OW3WOW!!)!!!,Z<.P/!!<>,>Y+Y+Y+$Y,>"^*]P3!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!$)!(=*=QVULV"VE
!!C9O!"X,`_AK"3!O!!!C9O*;8+80_@_+8*W_IO*+83*O*!!!![!*W;U])_IU"KG
U'"X94)439O9H^*V]A*U_I1#])KLY!3[K=3UK=O9!!Y!H][!*&OU!!;9*W<J[A"#
_IL&CU_AL#U*K_+9])*SU/[!O[4KK_4JK_H\K]!!T"P4\9TW[!TW$[Z)_ILB,ZTW
92[%]A91[!,YTW[!P4!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Y!I!&$5N#UW3S``
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<X)A_A
LQ,X"[_ILS,X,`_ILS,XYB)G_ALQ)GLV,XP=,X*R"X4=P=!!!!!!!!!!!!!!!!_"
!!FQO!95)5FPY!,`963!O!!!;Q])3Q/Q^)K7*[_AK/3,\!+QO,!!;Q])3Q/Q^)KE
*[_IK=3:\!+QO:!!;Q/Q`)KO3QKJ+QOH!!!!<A,AC!L3)9<@)5<?0?YB0@_AL6,?
YB)6_IL(4?4@K[,@CHY"<?0?973R3R\")6OR3R,AOR,@CHY"Y"<@0@_IL4KY!!!!
!!!!<M)U<N0M@N4M4N1SLFPB!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!``
!!;L+LFQK@;M;Q;R,`9O9P,_;N/M]IK@,^_IK=/M3MF/3NK./M,^_AK@3M,`KC\!
+L;MCUKI9Z+M3!O!\!+LO!!!!!!!%4,!;;;;;;;;!!]I,]<(0(<!4(0(<"S+FZ!+
!!!!!!OU,"3UOU!!!!<8,\<1,8S+FZ!"!!])4)\!,19LP)!!!!FO,[9/F+.N"(F*
!".G1=L@,ZP949P9":.G"/.C!!"'``!!!!!!!!!!!!!!!!!!!!E+!#W"-O`'`]-Q
!!;Q)V9U,`F2+QFQKN;R)V9O9P,_;S9WCT/R^)KJ,^]IK<,]_AKNKJ3R)V,\9O9P
\E;SCT/R^)KJ*[_AKN3!\!+RO!\!+QO!!!!!!!!!/RH[])L(,Z]IL&,Y_AOT1W*^
F/3SK`3RL21W*^F/3R3SKU/RH[L2\!3RL,\!OT!!04<<4404<=44F+!!!!F*!"0F
])4444P41=L>P4":0B":0E!!!!!!!!!!!!!!!!!!!!!!!!!!!6`";@!$!/`3`[`]
!!,`;SH_,^]IK;,]_IK@+S,\`!KO).,[^!*[,Z?S3S[A?S).FNK$[A?SF_E*O!+S
,Y_IK$[A+S;S?S,XFN*]FN,XFNK$\!*MFNK$!!!!"^<'\9)P9P]9L",'Y'Y'Y'=O
OT-O,'=O1OOT!!!!]A<R,Q9Q9R,R<M<O,W<N\9,O<O0M]9L=Y+Y+Y+])4M"^<PF0
,V]ILI*^YB,P_AP(4NL34(P(!!!!!!!!!!!!!!!!!!`"`Y!)IJ"A_AI*_/`TU!88
!!)<;PH`KB;S*L;RH_KB?R/R,^YB;Q3RH_KB?R3QK03R[A?R+SF\YB;QH_KB+Q_I
KL\!3PKG,]NK)#_AP\H[K$)#_IO!P\!!!!!!!!!!F`F_C#*"FJF_E*3TOT!!F-QW
F_E*O^!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!67CWG>`@'*'!
!!FO,`9/):9N)NFICR9N,_9V)NFHCR9N)NFQ])CR9N)ZFGCR<'9T["<(,_@^,(H]
CRKJ4'<(H\CR)W_AK=,'_ICRD-)N9:3!O!!![!+RFY5VO!LXAZLRB8LMBVLIH"L@
GPL;H3L5EC!!!!!!!!!!!!!!!!\!9TF+T_"#F*!"!!P-!![A)@"^*]<L,K,L,MF\
<N)F*[]I[A<OF.6JP7!"!D!!"/!!!!``!!!!!!!!!!!!!!!!!!!!!!A==!2Q6)!#
!!FO,`9/):9N)NFIKJFQKE;7+7FP])K.9N[A=N9@+7F+!!"3F*!"7K1=K9O!H_KD
3!)N9:O!\!*FO!FEO!\!,^O!"&7H"47?"/7<!!!!FO,`9/):9N)NFIL+FQ])L.9N
F,H]8.L.H_L.3T)N9:OT\!,^OT[!OT"48%"#8."#8'!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%KAZ9!!$
!!H`9[S+FZ!,9@F+TU":F*!";*1=K+DBF+T_":F*!":_DB)[_IDBH_DBK1)[_ADB
.L,^^)DB,]<O[A@O,\9V,]FHDB\!)Z9])]FGDB,\;Z)]S+FZ!$!!!!DB+Z9X+[Y"
9Y1[[AFD]#)VFCF_BCF-6QF_E*K1)[_IDBFBDBK1)[_AFBY!F+T_":F*!!3!O!FE
O!!!F+T_"#F*!!,BFY;1]I,[O!!!!!!!!!!!!!!!!!!!!!!!!!!!F(6)QW`>;`CG
"%98";:/"#:5"'9>"&:@!!"/9."'9>"&:@!!HJH<HEB&H%FUH4F2H.FBGNB-!!!!
CH])KFCT])3@O@!!;S+S,`Z!,_]93H\!+SOH!!!!;_+_,^Z!*A]93T\!+_OT!!!!
.L,]<?@?,\<?0?]IL=YB)G_IL2,@_A,[L5,@_IL90?FDO`L:\"<@4?L'3`O`!!!!
!!9$0A9)4A1)-)]IPA)$_ALF-)9$)$PA!!!!!!!!!!!!!!!!!!!!`!QWQ4`'!;_F
!!]IKS;(EL#)5!!!O!S*0`9X,_9+-+]IKV<,-+<--+<.-+</[A0_<"<#+<;AKC-+
<#3A4"K@-+]IKZ<+S",^H]KS,+9Y,^FC3!K`S*,+])-+YB)X9X8\K/0[S"]AK$3!
O!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!5#5!2(>,5%5"
!!_IOG)X;)EL#)1!!!O!+(<R<"C:C:,"CG,R,`_AK-3)1YK&KR!!S*0R"@Z%,"Y'
Y'<"0RCG4RO:!!S"Y%Z9!^*V]IKT*?"T3!3!O!,S_IKR,_;GKO!!^)L'!^90S*)0
P"!!3Z\!S"OZ[!)X<M@^,L<RD"@R,R;:4RD"@RD"Y'Y'"@/:?:)0Y+Y+Y)"@0R@R
4R,R,`_AL-S"1Y])OZELC)1!!!L$8^4ML+!!!!!!!!!!!!!!!!!!!!!!!!A7?RM!
!!)^`)K.)0*V_A+<_IK.*?FDK80`,__AK,)]S+FZ!%6)!!_)3!9[O!!"!!)T_AKL
,^9I,]9F,\9G,[9B9@HZO=F+6Q"'F*!"C)1=KOO=F_BMF-6QF_E*C_])3=O=!!HY
[AHXO_L1HW])L"F+)!"%F*!"B_1=L+O_0V,U_IL>F+)!"%F*!"C$1=L8O_F>T_";
O_O_3_O_!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Y!&.%W?!&/C3"_!D!N!RQ!@R
":B""/B.!!":B>"/B;!!":AU"/AR!!":AU!!!!F+TU"4F*!"C@1=K7O3CG\"9T33
O3":C="/C:!!!!,`9U,_F2.L,^,_^A[!,]YB9S,\F1OG\!9#)/,[]AL$F>D2";Y!
Y!HZL0,Y_AL0F>T_"#Y![!)[_AFB[!,XNK"%``!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!A!``6-`_QW!+`=`W!B
!!]AK&/!3!9U*NC3O!!!]AK//*3*9U,`C3O*!!;@)U;A/A3A^)K>G@\!K7\!O3!!
!!!!\9)R9R-Q]9KMY+Y+Y+])1Q"^OB!!]I*]*]"^*]?Y3YOP!!!!9Q9R,_;Y,^<2
F0]ACP42L!,]CP\E<2F0]ACP42L*[A?YOZ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!O`[6Q'[
!![!*N;V/!<+3!)_*=<)S*0+Y+Y+Y+C6S*0+C64+K+!!S""^]IO!<*,*,`]IKJ*M
_IKN,*"]_I,),*GVO6*<GV*AKH)__AO6,)YB,_<)O6!![!+V;!,^K$!!<(,(*[`!
L%F_AC*R,(FNO\!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'[#A`<
!!FOF_A4*"FJF_AIF_AUF_AS<M*"<IH`H_*$]I*%_AL3H^K<H]])H\,L,M_IKBH^
L&H[L&HZL&<N,N"XYB<P,M_IKT,PFYJC_IL#M$,P*"_AK[[AL%<M,L_IK`,NH\,N
HYL&*MH\<MY!HXHWHVHUK23!O!Y!HXHWHVHUH^L.0TYB0S_AL.*$_IL?F_D^*%_I
K-F_G/K-"$J,"DJ,!!IZ!!!!!!!!(4!!!!!!LWLVLBO@K5MFO!K!O7L#M!L9N>P&
!!,YYB,Z_IK2,Z<B[",Z"X*;<ZS*0BS"])CH3!O!!!CH])O5S*@YS"[",Y"X*;<Y
,YYB,Z_I2$O5KE!!Q:L!Q?^)2$])KM"T<B*#_IK],B"X*:]IK_*U_IK`,BOH\9<X
3HOH!!<B,VYB,W,X_AL/,BH`L/P#,BS*@VS"[",V"X*9<VP#!![",VYB,W"X_A49
P9!!,X_APB,VYB,W_IPBS*0WS"H`PB[",W"X*9<WPB!!!!!!!!!!!!!!!!!!!!O_
!!,KYB,L_IKC,L<M[",L"X,`<LS*0MS"<M*#_IKA\9*'_AKA,KYB,L"=_AKA[A:'
,M])D#3!O!!!D#])OFS*@KS"[",K"X,`<K,KYB,L]I2%])KV*="=_I*#_IOF*'_I
2'OF!!U"L<U'^)2%])L("T<M*#_IL8,M"X*:]IL:*U_IL;,MP#\9:&4#P#!!*8:(
*8:),`<K,`<L:&:':%P>!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!=!
!!;@*(YB*)*&_AK-+@H`K-O!+@S*>(S"["*("X*8:(O!!!["*(YB*)"X_A37O7!!
*'Z%_IKL,_]1*UH`KLY9:'*&_AO@*(YB*)_IO@S*.)S"H`O@["*)"X*8:)O@!!QB
L$QG3_[!O_!!*9@^*9@]*;@\*;@[@Z:$P&!!])*SU*L9U/42[!P2[!9242P2!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!LXLZLYLWLV!2P2
"$"0"/"/"&"$"5``I!"'"*"/"*"4")``.9"&"9"*"5``^`"4"&"/"%``5!"("&"5
``7!"3"&"$"&"*"7"&``7T")"&"-"1``3T``!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"_!P!A"!!N!D"/!R!A!A``!!
!!C;).]IK"O!!!,`]IK.,3D%O'*]D%),"M_AK.O'!!<R9-,RC'O5!!CW]IKL,_]I
KNY"]IKQ,^_AO;CW,]_AKH9.O;,\DIN!,[DI\9)-9-KL!![!Q:OWQ="X9.\G)._I
M`Q;).OW!!<RC;)-`)L.,RD>L'C;,R"=_A1,!*,R,Z]I9,,Y_I[A),9,P%!!QBP>
QG[!4>P>,XDIQ;NZ!!<R,WD>LL,RD>LOPI!!!!!!!!!!"?"$!&`T"0"1`P`]`Q`X
\!QG+!>ZH`<I,I,__IK]U/U'[!F_3)F_2FF_3GF_3]F_2=,IZ',I,^;>F_!!F_1A
KDF_2HF_E*F_1!F_3N,IZ',]9),\D=ET,IZ',I,[9),ZD=ATS+HY!)NZ@X@W8V8V
++,U_AL)+,,T_IL9R:Y!R?Y!3>L-R@L4;AS,PSR:K+;AS,PR;A,Q;CK+!!<J0=9*
4=S*-)=*4JLCS"P=!!!!!!!!!!!!!!!!2Z#,#!-K-CU[VGV"`!`\4O`]3_1C`VY!
!!\!)!<#,`9!,#9!\M,__IK=\E,^_AK_[$,]_IKH[ARX[!RZY"_IK^K`[A_"_AK\
RB!0!#Y"_IK[K]Y/]IKR,\]IKZ,[_IKYL"[.,Z_IKWKXY"Y"Y"Y"Y"Y"Y"Y"Y"Y"
Y"O!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!`Y`G(S`!!#A#Y`
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
end of data

After the program exits back to the monitor, you should save the data with:

.SAVE SYS FIELD0.SV 00000-07577=0

leader for direct load file which must be in lower case

file contains kermit data in ipl encoded format

this file contains data for field one

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
H`,_C1S"0^_IK*,]C1S$P\H[,ZC1S$P\!!9)S*-)]IO1;<-)S"?<K3!!!!,`TS[!
CN3S3]3^4"4$4'KB,`TW\9CNO=!!TX4(KP[!T),YD!S"0XS*,WD!,VD!T'T)[!ON
!!T*L"T/[!P!`A!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!=65Q!(6/%W%!W.('!+&`#=
!!TX,`S"TWS*TWS"\7TW,_TWS*\7TW[!TWS"\(TW,^TWS*\(TW,^TWS"["TW,]TW
S*["TW,]TWS"["TW,]TW\6TW,\TW,[TW,ZTW\6TS[![!O!#%D5#'TT'=)1'?KG'@
91'AT''OD4'VD4'_CU(&)2('_I((L.()92(*+9(+T/J&HOJ.HON$)1N%_IN&L<N'
91N(T'P5<&P6)2P7_IP8P2P9,&P:T/!!!!!!!!!!!!!!!!!!!!"D^%#_!6"!!/!9
#%D5#'Y!$6,Q$7TS$8[!$9TX$:4P$;L:$<4P$=L<$>T)$?,S$@DJ$A)($B,R$CDJ
$D,T$EDJ$FT'$GT)$KT*$MT/'?T"'AT''_CU(&T*('L.()"T(+T/N$T"N&T'N'])
P3"TP5T*P7T/!!$7TW$8\9$>TI$FTG$GTI$KTJ$MTO'?TB'ATG(&TJ(+TON$TBN&
TGP5TJP7TO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
??????????????????????!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
?>?!?6?/,/08/!?1%1?NV??!?1%1?NY??!?1%1?NYP4!?-*/$?NY?!?1%1?NYP*!
?1%1?NYP-!?1%1?NRS?!?1%1?NYP&!?1%1?NYP"!WRQQ?????!WRSQ?!F?<$?16A
5:1&A*4[A!QWA!A?<6?4*/(A?$?0..6/*$"5*0/4A?1?035?>!A?<6?4*/(A?1?3
*/5&3A?1?035?>?!F?14PYA14PRSA04PYA04PRSA04PXYA04PSXYAA,?&3.*5NRS
AA?7RQ?(AAA!?4?&15&.#&3A?!F?5?:1&A?)&-1]$3_?A'03A)&-1F?!RZZQ?!``
?_???!V?_????!Y?_????!Y?P4_??!-*/$NY_!Y?P*_??!Y?P-_??!RS?_???!Y?
P&_??!Y?P"_??!XY?_???!SXY?_??!?6?/,/08/!?1%1?NV??!?1%1?NY??!?1%1
?NYP4!?-*/$?NY?!?1%1?NYP*!?1%1?NYP-!?1%1?NRS?!?1%1?NYP&!?1%1?NYP
"!?75?NXY??!?%&$?."5&!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
F?'?*-&A?"?#035F?!`?*?/7"-*%A$0.."/%?!FI?$?0//&$5*/(A50A)045MA5:
1&A!?$?0/530-N?!A?$?A50A3&563/A50A?!JF?!!!!!!!!!!!`?&?3303A*/A%&
7*$&A/".&!`?%?*4,A'6--B!`?&?3303A$-04*/(A'*-&!`?&?3303A*/A'*-&A/
".&!?3?&$&*7*/(A'*-&[A?!?4?&/%*/(A'*-&[A?!`?'?*-&A/".&A4:/5"9A&3
303!F?4?611035&%A$0.."/%4A"3&[FF?$0//&$5?AI50A3&.05&A4:45&.JAF?4
&/%A%&7['*-/".O&9?AF?3&$&*7&A%&7[?AI'*-&/".&A"/%A&95&/4*0/A?/05?
A"--08&%JF?(&5A%&7['*-/".O&9?F?'*/*4)?AI4&37&3JF?&9*5?AI50A01&3"
5*/(A4:45&.JAF?)&-1?AI5)*4A.&44"(&JFF?&?4$"1&A$)"3"$5&3[A!F?,?&:
#0"3%A*/165A&3303BF!`?6?/"#-&A50A5&--A)045A5)"5A4&44*0/A*4A'*/*4
)&%!`?6?/"#-&A50A-0$"5&A'*-&?!?,?&3.*5N?!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!`?3?&$&*7&A'"*-63&?!`?&?3303A*/A3&$&*7&%A'*-&A/".&
?!?6?/"#-&A50A3&$&*7&ANA)"/%-&3!A&3303?!`?6?/"#-&A50A3&$&*7&ANA*
/46''*$*&/5A%*3&$503:A41"$&!F?3?&.05&A-*/&A*/165A&3303BF?!`?6?/"
#-&A50A3&$&*7&A-"5&45A1"$,&5?!`?6?/"#-&A50A4&/%ANA%*3&$503:A&330
3!`?6?/"#-&A50A4&/%ANA)"/%-&3A&3303!`?6?/"#-&A50A4&/%!`?6?/"#-&A
50A3&$&*7&ANA%"5"A&3303!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
end of data

After the program exits back to the monitor, you should save the data with:

.SAVE SYS FIELD1.SV 10000-17577=0

K12GLB.TE
8@U;<C9@@dP^D44PCD59CUA1BDi5CT=584e1@e9?2C4a;DY1CRda>CPh2C0i>S0`2D=:C0d:3@X_
2EEC@DM5>Pd:3@X_2Bi@@D`P;4\a<Te9E3a4AEHjBc4bCDUD;dD_ARm>;eL92D=BAD5DAB0RDeU=
@Tm<Db8PC4UCE4U>Ab16BDa584m>84ACBcX=2Rl9;TeECTLPBc4bAda2;UA5;4\a<U13B0T92EE@
A45DAB14Dd\jBc4bD4=8;U113@X=2Rl9@e95@EA5Db14Dd\jBc4bD4=8;U1184IBCddPA5=;>T\a
<U13B2i@@B0ZEdUDB21>Cb12@D=;EE0Z;R1DB4DPEE=5DR1=EE=D3@X_2D=BAD5DAB11CUTP@T53
BeE@84I9C4DPATUBDe@P:51BAE=ECD52C5TPATmB84=?CE11DTUCCdhPD5EBD4mCAE<PE4lPDdE5
3@X_2EM8@E@PDTE3ADiDC5TP@dQ1CTM5A2T^3@X=2Rl9@e95@EA5Db14Dd\jAE5E@EA5;UA=85M9
E4PPEE14@EA5A211ATI5@eA5A215DEE1E4EC84m>C5TP@E<P@DhP@E9DBDI1@e@^3@X=2Rl9@DiI
84EAED5DAD@PDeU=@Tm<Db12AEAGADE>85A8AB1CD4E3BD5<84A5C4U=BEA5DU<P@E9585E@A45D
AD@^3@X=2Rl9E4Q585=@AD=9@D`PA4E<BDe9E4EBDb11DTDP8Sa3DShlC4Hn;blR85M8BD=884eE
De@PD595@dE4AB11CT@PADi485A8AB17C4m2@D`=2Rl9DeU=@Tm<Db1DCb12AB15DEE1E4E4;R1?
CTaI84EAED5DAB1CE45DADe5CUAC845>A212C45>Bb1<BDi5Db11CT@P?4I6?Pd:;`U3B45B@D=D
AE9C845BAB11C4a?EdE48495E5M5ADhPE4Q585=@AD=9@D`PA4E<BDe9E4EBDbh=2Pd:;`U1CUTP
DeU=@Tm<84i?E218@EI9CTLP@B1=@E=DAE8PET5<EDDPBDhPBc4bCDUD;TaC85M9C4`P@TDP@dQ1
CTM5A21DCb1185I1C5E53@X_2Dm683Ti>CTPE4lPATmB@dDP@DhP@E=CADe2C5TPAE9BCe8^3@X=
2R4=2T0E<14EFA\Q@B5J8TE5ATdb9dQH@DXjD`hC6b95B51GADI=<RMB;UDiBCYO4a]C?A]B3@X^
;BQA>B\c:Bdf8TMA>B\c:cI:9d199A<KECPUDCT\;UPi3@Y5DT\a<Te9E2i<Da]ICCU=<C0\;U0`
;2i;Cd4K4@d:@1Da4E4h8ThQ@R4`@BdN8295@dm26bL?G5Di9dQ;Ad5:DcdKDCPRA@5>Cb1F@DaE
AB16Ce8P0@d:BU<>4a]B;UDiDcdKDU4i;2iD0@d:0BE59e<>4a]B3@X^EC5L6e4a;2i;DCPRADTi
>CTi6bMA>29>DCTV=c0`<2la<30`G54i9SL`<2la<31LDCTV=c0_<C1LDCTV=e`W14`A3@Y05C8A
DEPRAA0WBTMHBQ9B6eLKB5QGCEM=F5U>3@X_;a]<<2`^D4EBAE5E@EA5;UA=6eTjCPhH6a]=F39O
3@X_;a\`C30\;T]AAB9>?3hWAEPA3@Y05D4AFEl=2Rl_6d``;2i;8EPQ>U<K8TEJBS4bBA]1CePK
9`d:<4`^;5Y;CC0A3@Y5EdEAED5DABiDCA]J8Ti:>U<^6b95FTY9;U116bM:BDEB6eY:<SM96`d:
<5QHCEPUF1]=@BL1Ce15CR19CU1EE216BDa5845>A21DFE1582M=@BLPE4lPDeA1DU@13@XJ~~~~
~?

(REMARK Image File Created by PDP-8: 05-Sep-1990)
(REMARK File Date: 11-Jan-1988)
(FILE K12GLB.TE)
(REMARK File decodes to K12GLB.TEC aka GLOBAL.TEC, a TECO macro for)
(REMARK file maintenance of KERMIT-12 source files.)
<88DGIKOG68I3SI15010K9MA18JGL8H4L9P2EAGQ2056K8FQI628J2GMH98QE2B9JJ0S31>
<69G6EG30G4Q8C2CK390RS5514QL8GAKE0TA1KGDU2IGI0N2842C6B0KMGP99L2K8F1KB9>
<B39CHHAJA4I8NV8L26SBO2V5BL14I3AHA4292I412JQMA45H7IAC12AJ1KIHAE9527C82>
<4IL6443IFA81K815T780AIBQISL6I9O276IP32H3I9H1EAL1IO55K68QG0I4GIK4GALA4>
<8GA4AGG3AEIB6IP32H888D1E2K00RK501A9F8GQL4H0LAH2J881L795J9CHH8K446GN1A>
<1904HH4U16K8IQJ6EGKMGP3A1A80BH438G5AT298I720H7I4121MGP5B9855P104I04AH>
<ALAD2IQ82LAH9I1NOAA2946L2K85252814S1CK88Q1AIO5AGG98OIC0HAKC94IAC2KAA1>
<50L2LAD2D4G94O1CL8OIF887K6H6HA1AI6I94U175A0ILAK1KU92GACIK0JQ56L2I1NOA>
<82C5E90GAH2I6HAKAH729G2P8GOKGH758SI4SA80RK501A9F8GQL4H0LAH2J881L795L8>
<LAH8GAL8GNDAH10ILP58144AL2G8GAL8H214126AHI46LA48H908K8LALA38L10SJP4O1>
<CI842J4G84SL0KA9292HH47PA01N8A02KIUL0P9P902HALAH0I8K248KULIH1C9T2J482>
<KATA48NI588458L2J412G6HA4JH0K41A48J6KIH4LAGII0KQ42L95402LAH24292U8G0D>
<Q2G0L4NKAHA8A8056H2P8CI10J249H2K96ADAL14AH9H40II0HA24CU3AB1U6J74C8NI5>
<T10GLQ4J11L41AD4KO58H85A9238HA4A4G29O248HA4SGG8AH25E824O97G87AC02KIUH>
<9TB522OJQL6GG49SH08HAI0H8HAL2K8HA2TSG59QACA80KALAK85A5682L8H0K8LADAJH>
<L8GGE85244824PP0K9F108IAKSH9H40IE0H23OP307QGD8BPGIL4285A18GQKAD9540I1>
<8H8I0H6F9H2N8HA20L14AHAN4H84SHA591900KQ4B51I842C8H64AH4P9LAK4H857KN01>
<AGD8BOGI970B52JQMA45H7K43QE8L420H0PAOIE0HQ43KG5852J4H854HBC84IL0H94I1>
<739CHHAJA4IKN39H10ILP4O16288258GOKGH758TA48824U4G440AM8J2LA86V1909CJP>
<I14SI741P4L04UL329SI30H94217584QJ8H94Q960B5A54KH4VP901N8A02MI2455809G>
<A495I4DL86H188IKAD329L97GI1K3951ACOE86QI4L47A125QHIJ48JJ5QALAIFJKK9J3>
<D9T46P0RO555K986E9IMCKM5L922HPJICLK5EHM89SK04IR2CILAE153GSJ5QAO83AGKD>
<919D1IIJA59GN5AE8R8JEJI8OS60PE0K22PCN19UQ104D0QD012KOHGK92457388112GF>
<2QGG549234JO1NSJJBIAL89TKGH3Q84AJMF9528S48NG1AJR20L0L9H25C814U19006GD>
<0IN56K9I3CPEIL8L7CUJAAAHAB22S00Q1L01A982FP9L2CGR43F0KLAS64OR2KA2PCN2A>
<4HO6HCKICSP758R29Q3HOH2A5HP6DO30CO15SPG0C1LP58J4O1N6C0IUKOC60IHCE93FS>
<O5671G4KB3I8RNBG842J20Q0512K9I4K95G92N21AAGHQKK8913EQNAI3LGH6TAT2OSM9>
<0RS545V0R4C72OL828LA5AKA42LA45RAK66T5I5781P0RQ6QLHSP21NOA6BO1M96C619E>
<2IQ4BOH27HPU2H8LGG6G188L2G85JLFI1BPF66O4OGMB5OH12M0JLD9L4AI56IH32H4H3>
<CAFMM02F86I63IC8B5LK56H610DA2ILE52LAL21AHA2SL6Q3D12KJH3LP9K3D928MKKKG>
<N1A10RK9QKI92K3EIQ8CKJE0DQ1L9GGM14QLC4B38R0G8IEH7LA12EI82KSL84AHH08IA>
<KOGGE85A48825IL8443974G82E9A09T2J2L0545A11MGAX003IZAEFEFVVVVVVV>
(END K12GLB.TE)
(REMARK End of File)

This is an example of an ODT session to manually enter the IPL0.SV program
followed by an explicit SAVE command.  This is identical to loading the
binary produced by IPL0.PA, a customized version of K12IPL.PAL.  Locations
marked with * are modified according to the REC parameter; locations marked
with ** are modified according to the SEN parameter; locations marked with
*** are modified according to the BRATE parameter.  All values in this
example are obtained using default parameters. All commands are normally
terminated with CR except within ODT.  In ODT all commands are terminated
with LF to automatically advance to the next location, except the final
numeric command which terminates with CR to end the loading. The xxxx
indicates the former contents which are to be ignored.  Exit from ODT is
via ^C.

.ODT

10200/xxxx 6032
10201 /xxxx 1236
10202 /xxxx 6413         **
10203 /xxxx 6031
10204 /xxxx 5203
10205 /xxxx 6036
10206 /xxxx 6416         **
10207 /xxxx 6046
10210 /xxxx 6406         *
10211 /xxxx 6201
10212 /xxxx 4236
10213 /xxxx 5212
10214 /xxxx 5217
10215 /xxxx 4236
10216 /xxxx 5232
10217 /xxxx 7106
10220 /xxxx 7006
10221 /xxxx 7006
10222 /xxxx 3635
10223 /xxxx 4236
10224 /xxxx 5232
10225 /xxxx 1635
10226 /xxxx 3635
10227 /xxxx 2235
10230 /xxxx 0177
10231 /xxxx 5215
10232 /xxxx 7600
10233 /xxxx 6203
10234 /xxxx 5632
10235 /xxxx 0000
10236 /xxxx 0007         ***
10237 /xxxx 6401         *
10240 /xxxx 5237
10241 /xxxx 6406         *
10242 /xxxx 0230
10243 /xxxx 1256
10244 /xxxx 7510
10245 /xxxx 5237
10246 /xxxx 1255
10247 /xxxx 7500
10250 /xxxx 5636
10251 /xxxx 0254
10252 /xxxx 2236
10253 /xxxx 5636
10254 /xxxx 0077
10255 /xxxx 7700
10256 /xxxx 7737
^C

.SAVE SYS IPL0 ;10200

IPL0.SV is now ready to run as documented in K12IPL.PAL.

This is an example of an ODT session to manually enter the IPL1.SV program
followed by an explicit SAVE command.  This is identical to loading the
binary produced by IPL1.PA, a customized version of K12IPL.PAL.  Locations
marked with * are modified according to the REC parameter; locations marked
with ** are modified according to the SEN parameter; locations marked with
*** are modified according to the BRATE parameter.  All values in this
example are obtained using default parameters. All commands are normally
terminated with CR except within ODT.  In ODT all commands are terminated
with LF to automatically advance to the next location, except the final
numeric command which terminates with CR to end the loading. The xxxx
indicates the former contents which are to be ignored.  Exit from ODT is
via ^C.

.ODT

00200/xxxx 6032
00201 /xxxx 1236
00202 /xxxx 6413         **
00203 /xxxx 6031
00204 /xxxx 5203
00205 /xxxx 6036
00206 /xxxx 6416         **
00207 /xxxx 6046
00210 /xxxx 6406         *
00211 /xxxx 6211
00212 /xxxx 4236
00213 /xxxx 5212
00214 /xxxx 5217
00215 /xxxx 4236
00216 /xxxx 5232
00217 /xxxx 7106
00220 /xxxx 7006
00221 /xxxx 7006
00222 /xxxx 3635
00223 /xxxx 4236
00224 /xxxx 5232
00225 /xxxx 1635
00226 /xxxx 3635
00227 /xxxx 2235
00230 /xxxx 0177
00231 /xxxx 5215
00232 /xxxx 7600
00233 /xxxx 6203
00234 /xxxx 5632
00235 /xxxx 0000
00236 /xxxx 0007         ***
00237 /xxxx 6401         *
00240 /xxxx 5237
00241 /xxxx 6406         *
00242 /xxxx 0230
00243 /xxxx 1256
00244 /xxxx 7510
00245 /xxxx 5237
00246 /xxxx 1255
00247 /xxxx 7500
00250 /xxxx 5636
00251 /xxxx 0254
00252 /xxxx 2236
00253 /xxxx 5636
00254 /xxxx 0077
00255 /xxxx 7700
00256 /xxxx 7737
^C

.SAVE SYS IPL1

IPL1.SV is now ready to run as documented in K12IPL.PAL.

/	IPL GENERATING PROGRAM

/	LAST EDIT:	08-OCT-1991	12:00:00	CJL

/	MUST BE ASSEMBLED WITH '/F' SWITCH SET.

/	THIS  IS  A  UTILITY  NAMED  IPLGEN  (AKA  K12IPG) TO CREATE  FIELD0.IPL  (AKA
/	K12FL0.IPL)  AND  FIELD1.IPL (AKA K12FL1.IPL).  THESE FILES ARE IN TURN  MEANT
/	FOR USE WITH THE DIRECT LOADING PROGRAM IPLOAD (AKA K12IPL).  FUTURE  VERSIONS
/	OF K12MIT.SV MAY "GROW" TO USE FIELD TWO, IN WHICH CASE THIS PROGRAM WILL HAVE
/	TO BE CHANGED.

/	THIS PROGRAM ALWAYS RESIDES IN THE NEXT FIELD  BEYOND  K12MIT.SV,  AND CREATES
/	FILES FOR ALL FIELDS LOWER THAN ITS LOADING FIELD.   THIS CURRENTLY REQUIRES A
/	12K MACHINE TO ENCODE ALL LOCATIONS 00000-07577 AND 10000-17577.

/	USAGE:

/	SINCE K12MIT.SV IS A COMPLETE IMAGE FILE, IT MUST BE  LOADED  FIRST  IN  IMAGE
/	MODE, AND THEN OVERLAYED WITH THE BINARY OF THIS ASSEMBLY:

/	.PAL IPLGEN<IPLGEN/E/F			ASSEMBLE IPLGEN PROGRAM.

/	.LOAD K12MIT.SV/I$*IPLGEN/G=20200	LOAD K12MIT.SV IN IMAGE MODE;  THE $
/						INDICATES USING <ESC> TO TERMINATE
/						THE LINE; THEN LOAD IPLGEN AND START.

/	THE  FILES  SYS:FIELD0.IP AND SYS:FIELD1.IP WILL BE CREATED  AND  THE  PROGRAM
/	EXITS TO THE KEYBOARD MONITOR.  THE RESULTANT FILES  MAY  BE EDITED AS LONG AS
/	THE  RULES  OF  .IPL FORMAT ENCODING ARE OBEYED (ADDITIONAL LOWER-CASE  LEADER
/	COMMENTS  SHOULD  BE ADDED AT THE BEGINNING, AND UNRESTRICTED COMMENTS AT  THE
/	END).

/	ERROR MESSAGES:

/	ERROR NUMBER		PROBABLE CAUSE

/	5			ERROR WHILE ATTEMPTING TO ENTER OUTPUT FILE.

/	6			OUTPUT FILE LARGER THAN AVAILABLE FILE SPACE.

/	7			ERROR WHILE CLOSING THE OUTPUT FILE.

/	8			I/O ERROR WHILE ENCODING FILE DATA.
/	EQUATED SYMBOLS.

	CLOSE=	4			/CLOSE OUTPUT FILE
	DFIELD=	2			/PROGRAM LOADS INTO FIELD TWO (ALSO OUTPUT COUNT)
	DFLD=	DFIELD^10		/PROGRAM FIELD FOR CDF INSTRUCTIONS
	ENTER=	3			/ENTER TENTATIVE FILE
	NL0001=	CLA IAC			/LOAD AC WITH 0001
	NL0002=	CLA CLL CML RTL		/LOAD AC WITH 0002
	NL7777=	CLA CMA			/LOAD AC WITH 7777
	SBOOT=	7600			/MONITOR EXIT
	SYSENTR=7607			/CALL SYS: HANDLER HERE
	USERROR=7			/USER SIGNALLED ERROR
	USRENT=	7700			/USR ENTRY POINT WHEN NON-RESIDENT
	USRFLD=	10			/USR FIELD
	WRITE=	4000			/I/O WRITE BIT
	FIELD	DFIELD			/WHERE WE LOAD

	*20				/GET PAST AUTO-INDEX AREA

BUFPTR,	.-.				/OUTPUT BUFFER POINTER
DANGCNT,.-.				/DANGER COUNT FOR OUTPUT FILE
FCNT,	-DFIELD				/FIELD, FILE COUNTER
FNAME,	FILENAM	FIELD0.IP		/OUTPUT FILE NAME FIELD
LATEST,	.-.				/LATEST OUTPUT CHARACTER
OUTRECO,.-.				/OUTPUT RECORD
SCRCASE,.-.				/CURRENT MESSAGE CASE
SCRCHAR,.-.				/LATEST MESSAGE CHARACTER
SCRPTR,	.-.				/MESSAGE POINTER
TEMPTR,	.-.				/TEMPORARY OUTPUT POINTER
WRDADR,	.-.				/WORD ADDRESS
WRDCNT,	.-.				/WORD COUNTER

DSETUP,	.-.				/DATA FIELD SETUP
DATFLD,	CDF	00+.-.			/WILL BE LATEST DATA FIELD
	JMP I	DSETUP			/RETURN TO CALLER
	PAGE				/START AT THE BEGINNING

BEGIN,	NOP				/IN CASE WE'RE CHAINED TO
LOOP,	TAD	(FNAME)			/POINT TO
	DCA	ENTAR1			/STORED FILENAME
	DCA	ENTAR2			/CLEAR SECOND ARGUMENT
	NL0001				/SYS: IS ALWAYS DEVICE ONE
	CDF	DFLD			/INDICATE OUR CALLING FIELD
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	(USRENTRY)		/CALL USR ROUTINE
	ENTER				/ENTER TENTATIVE FILENAME
ENTAR1,	.-.				/WILL POINT TO FILENAME
ENTAR2,	.-.				/WILL BE ZERO
	JMP	ENTERR			/ENTER ERROR
	TAD	ENTAR1			/GET RETURNED FIRST RECORD
	DCA	OUTRECORD		/STORE IT
	TAD	ENTAR2			/GET RETURNED EMPTY LENGTH
	IAC				/ADD 2-1 FOR OS/278 CRAZINESS
	DCA	DANGCNT			/STORE AS DANGER COUNT
	NL7777				/INDICATE INITIALIZATION
	JMS I	[PUTBYTE]		/INITIALIZE OUTPUT FILE
	JMS	LEADER			/OUTPUT LEADER
	JMS I	(DOFLD)			/OUTPUT LATEST FIELD'S DATA
	JMS	TRAILER			/OUTPUT TRAILER
	TAD	("Z&37)			/GET <^Z>
CLOSLUP,JMS I	[PUTBYTE]		/OUTPUT A BYTE (^Z OR NULL)
	TAD	BUFPTR			/GET THE OUTPUT BUFFER POINTER
	TAD	(-OUTBUFFER)		/COMPARE TO RESET VALUE
	SZA CLA				/SKIP IF IT MATCHES
	JMP	CLOSLUP			/ELSE KEEP GOING
	NL0001				/GET SYS:'S DEVICE NUMBER
	CDF	DFLD			/INDICATE OUR CALLING FIELD
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	(USRENTRY)		/CALL USR ROUTINE
	CLOSE				/CLOSE OUTPUT FILE
	FNAME				/POINTER TO FILENAME
OUTCNT,	.-.				/WILL BE ACTUAL COUNT
	JMP	CLSERR			/CLOSE ERROR
	ISZ	FNAME+2			/BUMP THE FILENAME
	TAD	DATFLD			/GET CURRENT DATA FIELD
	TAD	(10)			/BUMP TO NEXT FIELD
	DCA	DATFLD			/STORE BACK
	ISZ	FCNT			/DONE ALL FIELDS YET?
	JMP	LOOP			/NO, GO DO IT AGAIN
	CIF CDF	00			/YES, GOTO MONITOR FIELD
	JMP I	[SBOOT]			/EXIT TO MONITOR
/	ERROR WHILE OUTPUTTING THE FILE.

PROCERR,NL0002				/SET INCREMENT
	SKP				/DON'T USE NEXT

/	ERROR WHILE CLOSING THE OUTPUT FILE.

CLSERR,	NL0001				/SET INCREMENT
	SKP				/DON'T CLEAR IT

/	OUTPUT FILE TOO LARGE ERROR.

SIZERR,	CLA				/CLEAN UP
	TAD	(3)			/SET INCREMENT
	SKP				/DON'T USE NEXT

/	ENTER ERROR.

ENTERR,	NL0002				/SET INCREMENT
	TAD	(3)			/ADD ON OFFSET
	DCA	ERRNUMBER		/STORE ERROR NUMBER
	CDF	DFLD			/ENSURE OUR FIELD
	CIF	USRFLD			/GOTO USR FIELD
	JMS I	(USRENTRY)		/CALL USR ROUTINE
	USERROR				/USER ERROR
ERRNUMB,.-.				/WILL BE PASSED ERROR NUMBER
/	LEADER ROUTINE.

LEADER,	.-.				/LEADER ROUTINE
	JMS I	(SCRIBE)		/CALL SCRIBE ROUTINE
	LEADMSG				/FOR LEADER MESSAGE
	TAD	DATFLD			/GET CURRENT FIELD
	RTR;RAR				/MOVE DOWN
	AND	(7)			/JUST FIELD NUMBER
	TAD	(NTABLE)		/POINT TO TABLE ELEMENT
	DCA	MSGPTR			/STASH THE POINTER
	TAD I	MSGPTR			/GET THE MESSAGE ADDRESS
	DCA	MSGPTR			/STORE IN-LINE
	JMS I	(SCRIBE)		/CALL SCRIBE ROUTINE
MSGPTR,	.-.				/WILL POINT TO CORRECT MESSAGE
	JMP I	LEADER			/RETURN

/	TRAILER ROUTINE.

TRAILER,.-.				/TRAILER ROUTINE
	JMS I	(SCRIBE)		/CALL SCRIBE ROUTINE
	SAVEMSG				/END OF FILE MESSAGE
	JMS	OUTFLD			/OUTPUT FIELD DIGIT
	JMS I	(SCRIBE)		/CALL SCRIBE ROUTINE
	SVMSG				/.SV BRIDIGING MESSAGE
	JMS	OUTFLD			/OUTPUT FIELD DIGIT
	JMS I	(SCRIBE)		/CALL SCRIBE ROUTINE
	SV0MSG				/0000 BRIDGING MESSAGE
	JMS	OUTFLD			/OUTPUT FIELD DIGIT
	JMS I	(SCRIBE)		/CALL SCRIBE ROUTINE
	SVEMSG				/FINISHING MESSAGE
	JMP I	TRAILER			/RETURN

OUTFLD,	.-.				/OUTPUT FIELD DIGIT ROUTINE
	TAD	DATFLD			/GET OUTPUT FIELD
	RTR;RAR				/MOVE OVER
	AND	(7)			/JUST FIELD DIGIT
	TAD	("0&177)		/MAKE IT ASCII
	JMS I	[PUTBYTE]		/OUTPUT IT
	JMP I	OUTFLD			/RETURN

	PAGE
DOFLD,	.-.				/DO LATEST FIELD ROUTINE
	DCA	WRDADR			/CLEAR WORD ADDRESS
	TAD	(-7600)			/SETUP THE
	DCA	WRDCNT			/WORD COUNT
WRDLUP,	JMS	DSETUP			/GOTO DATA FIELD
	TAD I	WRDADR			/GET A WORD
	DCA	DSETUP			/SAVE IT
	CDF	DFLD			/BACK TO OUR FIELD
	TAD	DSETUP			/GET THE WORD AGAIN
	RTR;RTR;RTR			/WANT HIGH-ORDER HALF FIRST
	JMS	DOBYTE			/OUTPUT HIGH-ORDER BYTE
	TAD	DSETUP			/GET THE WORD AGAIN
	JMS	DOBYTE			/OUTPUT LOW-ORDER BYTE
	ISZ	WRDADR			/BUMP TO NEXT ADDRESS
	TAD	WRDADR			/GET LATEST ADDRESS
	AND	(37)			/JUST LOW-ORDER BITS
	SNA CLA				/SKIP IF NOT AT GOOD BOUNDARY
	JMS	PUTCRLF			/ELSE OUTPUT LINE BREAK
	ISZ	WRDCNT			/DONE ALL WORD YET?
	JMP	WRDLUP			/NO, KEEP GOING
	JMP I	DOFLD			/YES, RETURN TO CALLER

DOBYTE,	.-.				/OUTPUT A SIX-BIT BYTE ROUTINE
	AND	(77)			/JUST SIX BITS
	TAD	(41)			/ADD ON OFFSET TO MAKE IT PRINTABLE
	JMS I	[PUTBYTE]		/OUTPUT IT
	JMP I	DOBYTE			/RETURN
/	<CR>/<LF> ROUTINE.

PUTCRLF,.-.				/OUTPUT <CR>/<LF> ROUTINE
	TAD	("M&37)			/GET A <CR>
	JMS I	[PUTBYTE]		/OUTPUT IT
	TAD	("J&37)			/GET A <LF>
	JMS I	[PUTBYTE]		/OUTPUT IT
	JMP I	PUTCRLF			/RETURN

/	MESSAGE PRINT ROUTINE.

SCRIBE,	.-.				/MESSAGE PRINT ROUTINE
	TAD I	SCRIBE			/GET IN-LINE POINTER ARGUMENT
	DCA	SCRPTR			/STASH THE POINTER
	ISZ	SCRIBE			/BUMP PAST ARGUMENT
	TAD	(140)			/INITIALIZE TO
	DCA	SCRCASE			/LOWER-CASE
SCRLUP,	TAD I	SCRPTR			/GET LEFT HALF-WORD
	RTR;RTR;RTR			/MOVE OVER
	JMS	SCRPRNT			/PRINT IT
	TAD I	SCRPTR			/GET RIGHT HALF-WORD
	JMS	SCRPRNT			/PRINT IT
	ISZ	SCRPTR			/BUMP TO NEXT PAIR
	JMP	SCRLUP			/KEEP GOING

SCRPRNT,.-.				/CHARACTER PRINT ROUTINE
	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
        JMS I	[PUTBYTE]		/OUTPUT THE CHARACTER
	JMP I	SCRPRNT			/RETURN

SCRCRLF,JMS	PUTCRLF			/OUTPUT <CR>/<LF>
	JMP I	SCRPRNT			/RETURN

SCRFLIP,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
	PAGE
PUTBYTE,.-.				/OUTPUT A BYTE ROUTINE
	SPA				/ARE WE INITIALIZING?
	JMP	PUTINITIALIZE		/YES
	AND	(177)			/JUST IN CASE
	DCA	LATEST			/SAVE LATEST CHARACTER
	TAD	LATEST			/GET LATEST CHARACTER
	JMP I	PUTNEXT			/GO WHERE YOU SHOULD GO

PUTNEXT,.-.				/EXIT ROUTINE
	JMP I	PUTBYTE			/RETURN TO MAIN CALLER

PUTINIT,CLA				/CLEAN UP
	TAD	OUTRECORD		/GET STARTING RECORD OF TENTATIVE FILE
	DCA	PUTRECORD		/STORE IN-LINE
	DCA I	(OUTCNT)		/CLEAR ACTUAL FILE LENGTH
PUTNEWR,TAD	(OUTBUFFER)		/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	(-2^200-OUTBUFFER)	/COMPARE TO LIMIT
	SZA CLA				/SKIP IF AT END
	JMP	PUTLOOP			/KEEP GOING
	ISZ	DANGCNT			/TOO MANY RECORDS?
	SKP				/SKIP IF NOT
	JMP I	(SIZERR)		/JUMP IF SO
	CDF	DFLD			/SET OUR FIELD
	CIF	00			/GOING TO SYSTEM FIELD
	JMS I	(SYSENTRY)		/CALL I/O HANDLER
	2^100+DFLD+WRITE		/WRITE SOME PAGES FROM OUTPUT BUFFER
	OUTBUFFER			/BUFFER ADDRESS
PUTRECO,.-.				/WILL BE LATEST RECORD NUMBER
	JMP I	(PROCERR)		/OUTPUT ERROR!
	ISZ I	(OUTCNT)		/BUMP ACTUAL LENGTH
	ISZ	PUTRECORD		/BUMP TO NEXT RECORD
	JMP	PUTNEWRECORD		/KEEP GOING
	PAGE
/	TEXT MESSAGES.

LEADMSG,TEXT	"LEADER FOR DIRECT LOAD FILE WHICH MUST BE IN LOWER CASE%"
	TEXT	"%FILE CONTAINS KERMIT DATA IN IPL ENCODED FORMAT%%"
	TEXT	"THIS FILE CONTAINS DATA FOR FIELD"
ONEMSG,	TEXT	" ONE%%^"
SAVEMSG,TEXT	"END OF DATA%%^A^FTER THE PROGRAM EXITS BACK TO THE MONITOR, "
	TEXT	"YOU SHOULD SAVE THE DATA WITH:%%.^SAVE SYS FIELD^"
SVMSG,	TEXT	".^SV "
SV0MSG,	TEXT	"0000-"
SVEMSG,	TEXT	"7577=0%"
ZEROMSG,TEXT	" ZERO%%"
/	DIGIT MESSAGE POINTER TABLE.

NTABLE,	ZEROMSG				/POINTER TO ZERO MESSAGE
	ONEMSG				/POINTER TO ONE MESSAGE

	PAGE				/GET TO A GOOD BOUNDARY

	OUTBUFF=.			/OUTPUT BUFFER HERE

	$				/THAT'S ALL FOLK!

From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: Initial Program Load (.IPL) format description

    Some of the latest KERMIT-12 binary files are encoded in a
specialized format designed to allow direct memory loading without an
elaborate protocol such as KERMIT.  This document will describe the
internal encoding of this format known as IPL, and related subjects.

    The Initial Program Load (.IPL) format is designed expressly for
use with the IPL loading program.  An error-free connection to a
serving host is required as no checking or recovery is performed by
the program. (The program itself is meant to be keyed in on the
target PDP-8 where there is no other means of acquiring KERMIT-12.)
The format is also meant to be "printable" in the same sense as
ENCODE, .BOO, or uuencode files.  This makes the file format more
"friendly" to the host system, and allows simple editing of the file
to insert comments, etc.

    An .IPL file starts with at least one lower-case character (not
counting `) meaning any character in the range 141-177 octal.  Any number
of similar characters may follow immediately to create an arbitrary length
leader, but the lower-case requirement must be strictly enforced.  Once a
non-lower-case character is encountered, it is accepted as the first data
character.  Data characters continue throughout the rest of the file until
the next occurrence of a lower-case character which ends the loading.  Any
characters past this point are ignored and can be freely added as a
trailing comment.

    Throughout the entire .IPL file, control characters and <SPACE>
(000-040 octal) are ignored and may be used within the leader to make
the file comment(s) more readable.  In some loading situations, <NUL>
or <SPACE> characters may be pre-pended to the file to give the
operator sufficient time to run down the hall between machines in
different rooms to start the PDP-8 loading program after first
starting the server.  Data lines are broken every 64 characters with
<CR>/<LF> to make the file more "readable" to the host system.

    Each data character in the body of the file represents six bits of
PDP-8 data encoded in the form (value+041 octal).  This causes 00 octal to
be represented as ! through 77 octal to be represented as `.  Data
characters are taken in pairs where the first character is the upper six
bits and the second is the lower six bits of a twelve bit word.  Loading is
implied to start at 0000 of the loading field and continues through at most
7577.  The operating system generally prohibits loading into 7600-7777.
This is not a problem since KERMIT-12 conforms to these limitations as a
matter of design.  If the loading field is 3 or greater (or possibly 2 in
certain configurations) then the entire field can possibly be loaded.  This
is never recommended because such a file would violate loading restrictions
of certain configurations.  (The general rule is to never load into
x7600-x7777 for any field x in the range 0-7.)

    The loading field itself is not contained in the file data, so it is
the user's responsibility to setup the loading program parameters
accordingly.  File comments (in lower-case if in the leader) often contain
this information to aid the user.  After loading is complete, the loading
program exits to the operating system.  The user must save the recently
loaded data as an image (.SV) file by providing explicit arguments to a
SAVE command.  It is recommended that the appropriate command be contained
in the trailer of the .IPL file as a comment.  Placement at the end of the
file allows the commentary to be in upper-case, thus allowing it to be
given in the exact form required by OS/8.  Certain characters such as "."
are required in the complete documentation of these commands which are not
allowed in the leader area.  The leader can contain a comment referring the
user to the end of the file for the information itself.

[end of file]

/	INITIAL PROGRAM LOADER

/	LAST EDIT:	06-OCT-1991	05:00:00	CJL

/	MAY BE ASSEMBLED WITH '/F' SWITCH SET.

/	THIS PROGRAM IS USED TO  LOAD  BINARY  PROGRAMS  IN  .IPL FORMAT DIRECTLY.  AN
/	ERROR-FREE PATH IS ASSUMED BETWEEN THE PDP-8 (OR DECMATE) AND THE DATA SERVER.
/	SUCH A CONNECTION COULD BE ESTABLISHED BETWEEN THE PDP-8 AND A NEARBY PC USING
/	A SHORT RS-232 CABLE WITH NULL MODEM.  THIS UTILITY IS WRITTEN FOR THE EXPRESS
/	PURPOSE OF LOADING KERMIT-12 ON PDP-8 SYSTEMS WITHOUT IT.   ONCE KERMIT-12 HAS
/	BEEN LOADED, ITS USE SUPERSEDES THIS PROGRAM ENTIRELY.

/	THERE IS NO FLOW-CONTROL PROTOCOL PER SE BETWEEN  SYSTEMS,  SINCE  THE UTILITY
/	STORES  DATA  DIRECTLY  INTO  PDP-8  MEMORY  AND  THEREFORE  DOESN'T   REQUIRE
/	SYNCHRONIZATION DELAYS.    INITIAL  SYNCHRONIZATION  CAN  BE  ACCOMPLISHED  BY
/	SENDING A SINGLE  CHARACTER FROM THE PDP-8 TO THE SERVER SIDE WHICH STARTS THE
/	TRANSMISSION.  ALTERNATIVELY THE  PDP-8 PROGRAM CAN BE STARTED FIRST, THEN THE
/	SERVER CAN SEND DATA DIRECTLY TO THE PDP-8;  THIS ASSUMES THE ABILITY TO START
/	THE SERVER TRANSMISSION FROM THE SERVER'S END.

/	THIS  PROGRAM  IS  FOR  ANY MODEL PDP-8 WITH A  KL-STYLE  REMOTE  LINE  SERIAL
/	INTERFACE  OR  EQUIVALENT.   DEFAULT PARAMETER VALUES ARE CONSISTENT WITH  THE
/	DISTRIBUTION SETTINGS FOR KERMIT-12 ITSELF AND ARE EASILY CHANGED.  IT  CAN BE
/	MODIFIED FOR USE ON VARIOUS DECMATE MODELS, BUT WILL BECOME SOMEWHAT LARGER IN
/	THE  PROCESS  DUE  TO  THE  MUCH  GREATER  COMPLEXITY  OF  THE VARIOUS DECMATE
/	COMMUNICATIONS INTERFACES UNLESS THE COMPATIBLE PRINTER PORT IS CHOSEN (DEVICE
/	32/33).

/	THIS PROGRAM SHOULD ONLY BE USED  IF  NO  OTHER  METHOD  IS  AVAILABLE  AS THE
/	ASSUMPTION OF AN ERROR-FREE CONNECTION IS UNRELIABLE.  DISTRIBUTION PATHS SUCH
/	AS INTERNET FTP OR CONTACTING THE AUTHOR CAN  YIELD  COMPLETE  COPIES  OF  THE
/	PROGRAM DISTRIBUTION ON APPROPRIATE MEDIA WHERE APPLICABLE.
/	USAGE:

/	THIS PROGRAM IS  RESTRICTED  TO  A  SINGLE-FIELD  LOAD  ONLY.  SEVERAL VARIANT
/	VERSIONS MUST BE CREATED  TO  COMPLETELY LOAD KERMIT-12.  (AS OF THIS WRITING,
/	ONLY A FIELD ZERO AND  FIELD  ONE VERSION NEED BE CREATED.  HOWEVER, KERMIT-12
/	MAY BECOME LARGER!).  THE EXAMPLE GIVEN BELOW ILLUSTRATES USAGE FOR FIELD ONE.
/	REPEATING THE PROCESS WITH THE INTENDED CONTENTS  OF  ALL  OTHER  FIELDS  WILL
/	(EVENTUALLY) YIELD AN ENTIRE COPY OF KERMIT-12:

/	.R IPL1 (OR RUN DEV IPL1)

/	[PRESS AN APPROPRIATE KEY (SUCH AS CR) TO START WAITING FOR THE TRANSFER]

/	[THE DATA IS TRANSFERRED FROM THE OTHER SYSTEM AT THIS TIME AND THE PROGRAM
/	EXITS AUTOMATICALLY TO THE KEYBOARD MONITOR.]

/	.SAVE DEV FIELD1.SV 10000-17577=0

/	CHANGING  ALL  OF THE ONES IN  THE  ABOVE  EXAMPLE  TO  ZERO  WILL  YIELD  THE
/	FIELD-ZERO LOAD FILE FIELD0.SV AS WELL.   DEV  IS  ANY  CONVENIENT OS/8 DEVICE
/	SUCH AS SYS OR DSK.  (IT ISN'T  CRITICAL SINCE THESE FILES CAN BE DELETED ONCE
/	KERMIT-12 IS CREATED.) ONCE ALL PORTIONS OF KERMIT-12 HAVE  BEEN OBTAINED, THE
/	FOLLOWING COMMANDS WILL COMBINE THEM INTO THE STANDARD RELEASE FILE K12MIT.SV:

/	.LOAD DEV:FIELD1.SV/I,FIELD0.SV/I$	LOAD IMAGE  FILES FIELD1.SV, FIELD0.SV
/						WITH  /I SWITCH SET.  (FUTURE VERSIONS
/						MAY REQUIRE LENGTHENING THE COMMAND TO
/						ADD  MORE  FILES  SUCH  AS  FIELD2.SV,
/						FIELD3.SV,  ETC.)  $  INDICATES  USING
/						<ESC> TO TERMINATE LINE.

/	.SAVE DEV K12MIT=1			SAVE  COMPLETED  FILE ON ANY AVAILABLE
/						DEVICE DEV (PREFERABLY SYS).

/	CREATING THE VARIANT VERSIONS.

/	ONLY  ONE PARAMETER NEED BE CHANGED TO PRODUCE THE VARIOUS VERSIONS  REQUIRED.
/	SETTING  DFIELD=0  CREATES  A  VERSION  USED  TO  OBTAIN  THE FIELD-ZERO DATA.
/	SETTING DFIELD=1  CREATES  THE  FIELD-ONE  VERSION.    LEGAL VALUES FOR DFIELD
/	EXTEND UP TO  SEVEN.    THE  DEFAULT  VALUE IS ZERO.  NOTE THAT THE FIELD-ZERO
/	VERSION LOADS INTO FIELD  ONE  WHILE  ALL OTHER VERSIONS LOAD INTO FIELD ZERO.
/	THIS IS NECESSARY TO ALLOW  UNRESTRICTED  FILE  LOADING  WITHIN  THE  SELECTED
/	FIELD.   (OS/8 ITSELF GENERALLY BARS LOADING INTO 7600-7777 OF ANY FIELD, THUS
/	LOADING IS ACTUALLY RESTRICTED TO 0000-7577 OF THE SELECTED FIELD.)
/	OTHER ASSEMBLY PARAMETERS.

/	SETTING REC= 	XX			SETS THE REMOTE RECEIVE DEVICE CODE TO
/						XX (DEFAULT VALUE IS 40).

/	SETTING SEN=	XY			SETS THE REMOTE  TRANSMIT  DEVICE CODE
/						TO XY (DEFAULT VALUE IS 41).

/	SETTING BRATE=	NN			SETS THE  BAUD  RATE (FOR SYSTEMS THAT
/						SUPPORT  THIS  FEATURE  SUCH  AS   THE
/						VT-78) FROM A TABLE OF VALUES  (00-17)
/						AS FOLLOWS:

/						NN (OCTAL)	BAUD RATE

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

/						(THE  DEFAULT  VALUE  IS  07  FOR 1200
/						BAUD COMMUNICATIONS.)
/	ASSEMBLY INSTRUCTIONS FOR ANY VARIANT VERSION.

/	ASSUMING A  CUSTOMIZED  FILE  SETUP  FOR  LOADING  FIELD  ZERO  DATA IS CALLED
/	IPL0.PA, THE FOLLOWING COMMANDS WILL CREATE IPL0.SV:

/	.PAL IPL0<IPL0/E/F			ASSEMBLE VARIANT FOR FIELD ZERO
/	.LOAD IPL0				LOAD THE BINARY
/	.SAVE DEV IPL0 ;10200=0			SAVE THE IMAGE ON ANY DEV (SUCH AS
/						SYS).

/	NOTE THE NON-STANDARD STARTING ADDRESS FOR THE FIELD ZERO VERSION (10200).

/	ASSUMING A CUSTOMIZED FILE SETUP FOR LOADING FIELD ONE DATA IS CALLED IPL1.PA,
/	THE FOLLOWING COMMANDS WILL CREATE IPL1.SV:

/	.PAL IPL1<IPL1/E/F			ASSEMBLE VARIANT FOR FIELD ONE
/	.LOAD IPL1				LOAD THE BINARY
/	.SAVE DEV IPL1=0			SAVE  THE  IMAGE  ON  ANY DEV (SUCH AS
/						SYS).

/	IF NECESSARY FOR  FIELD TWO AND FOLLOWING, ADDITIONAL VERSIONS CAN BE CREATED.
/	THE SAVE COMMAND WILL BE THE SAME AS FOR IPL1.
/	EQUATED SYSMBOLS.

/	LOADING FIELD DEFINED HERE.  REMOVE THE / FROM THE APPROPRIATE LINE.

/	DFIELD=	0			/LOAD FIELD ZERO DATA
/	DFIELD=	1			/LOAD FIELD ONE DATA

	IFNDEF	DFIELD	<DFIELD=0>	/DEFINE LOADING FIELD ZERO BY DEFAULT

/	REMOTE LINE RECEIVE DEVICE  CODE  DEFINED  HERE.  REMOVE THE / AND FILL IN THE
/	APPROPRIATE VALUE.

/	REC=	40			/REMOTE RECEIVE DEVICE CODE

	IFNDEF	REC	<REC=	40>	/DEFAULT RECEIVE DEVICE CODE IS 40

/	REMOTE LINE TRANSMIT DEVICE CODE  DEFINED  HERE.  REMOVE THE / AND FILL IN THE
/	APPROPRIATE VALUE.

/	SEN=	41			/REMOTE TRANSMIT DEVICE CODE

	IFNDEF	SEN	<SEN=	41>	/DEFAULT TRANSMIT DEVICE CODE IS 41

/	BAUD RATE CONTROL VALUE DEFINED HERE FOR VT-78, ETC.  REMOVE THE / AND FILL IN
/	THE APPROPRIATE VALUE.

/	BRATE=	7			/BAUD RATE CONTROL VALUE

	IFNDEF	BRATE	<BRATE=	7>	/DEFAULT IS VALUE FOR 1200 BAUD

/	REMOTE LINE IOT DEFINITIONS.

/	RECEIVE DEFINITIONS.

/	RKCCIOT=REC^10+6002		/CLEAR REMOTE INPUT FLAG, AC
	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

/	OTHER DEFINITIONS.

	DATFLD=	DFIELD^10		/LOADING FIELD FOR CDF INSTRUCTIONS
/	THE PROGRAM CODE STARTS HERE.

	IFZERO	DFIELD	<FIELD	1>	/FIELD ZERO VERSION LOADS HERE

	IFNZRO	DFIELD	<FIELD	0>	/ALL OTHER VERSIONS LOAD HERE

	*200				/START AT THE BEGINNING

START,	KCC				/CLEAR KEYBOARD FLAG AND AC
	TAD	INPUT			/GET BAUD RATE CONTROL VALUE
	RSBIOT				/SETUP THE BAUD RATE
/	RKSFIOT				/**** FOR DECMATE PRINTER PORT ONLY ****
	KSF				/WAIT FOR
	JMP	.-1			/KEYBOARD INPUT
	KRB				/GET THE CHARACTER
	RTLSIOT				/OUTPUT TO REMOTE
	TLS				/LET USER SEE IT ALSO
	RKRBIOT				/CLEAR REMOTE INPUT FLAG NOW
	CDF	DATFLD			/SETUP LOADING FIELD
	JMS	INPUT			/TRY TO GET A VALID DATA CHARACTER
	JMP	.-1			/LEADER FOUND, IGNORE IT
	JMP	GOTDATA			/LOAD FIRST DATA CHARACTER THERE

DATLUP,	JMS	INPUT			/TRY TO GET A VALID DATA CHARACTER
	JMP	LOADEND			/TRAILER FOUND, GO FINISH THERE
GOTDATA,CLL RTL;RTL;RTL			/MOVE HALF-WORD UP
	DCA I	LOADPTR			/STORE HIGH-ORDER HALF
	JMS	INPUT			/TRY TO GET A VALID DATA CHARACTER
	JMP	LOADEND			/TRAILER FOUND, GO FINISH THERE
	TAD I	LOADPTR			/COMBINE LATEST WITH PREVIOUS
	DCA I	LOADPTR			/STORE BACK COMPOSITE
	ISZ	LOADPTR			/BUMP TO NEXT
L177,	177				/CONSTANT 0177; HERE JUST IN CASE IT SKIPS
	JMP	DATLUP			/GO BACK FOR MORE

/	COMES HERE WHEN LOADING IS DONE.

LOADEND,CLA!400				/CLEAN UP; ALSO CONSTANT 7600
	CIF CDF 00			/GOING TO MONITOR FIELD
	JMP I	LOADEND/(7600)		/EXIT TO MONITOR

LOADPTR,0000				/LOADING POINTER
INPUT,	BRATE				/INPUT ROUTINE; ALSO HOLDS BAUD RATE VALUE
INPAGN,	RKSFIOT				/ANY REMOTE INPUT?
	JMP	INPAGN			/NO, WAIT FOR IT
	RKRBIOT				/YES, READ IT IN
	AND	L177/(177)		/REMOVE PARITY BIT
	TAD	L7737/(-41)		/COMPARE TO LOWER LIMIT
	SPA				/SKIP IF GREATER THAN THAT
	JMP	INPAGN			/ELSE IGNORE IT
	TAD	L7700/(-100)		/COMPARE TO UPPER LIMIT
	SMA				/SKIP IF IN RANGE
	JMP I	INPUT			/ELSE TAKE IMMEDIATE RETURN ON LEADER/TRAILER
	AND	L77/(77)		/REMOVE JUNK BITS
	ISZ	INPUT			/BUMP RETURN
	JMP I	INPUT			/TAKE SKIP RETURN TO CALLER

L77,	77				/CONSTANT 0077
L7700,	7700				/CONSTANT 7700
L7737,	7737				/CONSTANT 7737

	$				/THAT'S ALL FOLK!

Date: Sat, 11 Jul 92 15:00:00 EDT
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: A few more release files for Kermit-12

    Now available are two new versions of K12DEC and K12ENC, which
have a new feature for image transfer of an entire device optionally
split into two parts.  This comes at the request of a user, and was
quite easy to add.  As before, the sources document how to use the
programs, etc.

    The new files have been installed in the regular places:

BITNET/EARN       Internet
KERMSRV@CUVMA     watsun.cc.columbia.edu     Description

 K12MIT   ANN      kermit/d/k12mit.ann        Announcement of KERMIT-12
 K12MIT   UPD      kermit/d/k12mit.upd        Release update (this) file
 K12ENB   PAL      kermit/d/k12enb.pal        .BOO-format encoding program
 K12DEB   PAL      kermit/d/k12deb.pal        .BOO-format decoding program
 K12MIT   NOT      kermit/d/k12mit.not        Release notes file
 K12MIT   DSK      kermit/d/k12mit.dsk        Description of RX02 diskettes

------------------------------
Date: Wed, 11 Mar 92 15:52:25 EST
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: A few more release files for Kermit-12

    Now available are two new versions of K12DEC and K12ENC, which
have a new feature for image transfer of an entire device.  This
comes at the request of several users, and was quite easy to add.  As
before, the sources document how to use the programs, etc.

    I am working on an upgrade (specifically a handler) for OS/278 to
allow complete transfer of RX50 diskettes as an encoded ASCII-fied
file.  This utility merely handles records available to the normal
file structure, but in the OS/278 RX50 case (from DEC) this is not
the entire disk structure.  In part this is a safety feature, so you
can't access the "slushware" tracks; you can't transfer an entire
image of an RX50 currently.  When the system is upgraded with a
suitable handler, the encoder and decoder gain access to the entire
device; all other system utilities can utilize the entire RX50 as an
effectively larger device.

    If the handler project takes too long (it is actually quite
involved surprisingly enough) I will possibly resort (by popular
demand) to releasing an interim program that does its own RX50 I/O as
a special case of encode and decode.  That would be withdrawn later
when the handler is available.  (DECmates are becoming available to
various people around the world, but they don't have the support
software to get it running; this method would allow them to get their
machines up after they had merely an OS/278 bootable disk (available
from DECUS) and the Kermit-12 files :-).)

    The two new utilities are currently useful for other devices.
For example, an entire OS/8 RX01 or RX02 can be encoded as a file.
With the WPS-oriented handlers installed (commonly available), images
of an RX01 WPS document disk can be encoded/decoded directly.  (This
even includes bootable WPS RX01 systems diskettes, or even RT-11 RX01
disks!)  The existant WPS/COS-style handlers allow transfer of any
RX01 as long as track zero can be ignored.  This is generally the
case on RX01/02, but NOT RX50, thus the above problem.

    The new files have been installed in the regular places:

BITNET/EARN       Internet
KERMSRV@CUVMA     watsun.cc.columbia.edu     Description

 K12MIT   ANN      kermit/d/k12mit.ann        Announcement of KERMIT-12
 K12MIT   UPD      kermit/d/k12mit.upd        Release update (this) file
 K12ENB   PAL      kermit/d/k12enb.pal        .BOO-format encoding program
 K12DEB   PAL      kermit/d/k12deb.pal        .BOO-format decoding program

------------------------------
Date: Mon Oct 21 1991 12:00:00 EDT
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: Release of Additional Kermit-12 Utilities
Keywords: .BOO, PDP-8, PDP-12, VT-78, DECmate, OS/8
Xref: DEC PDP, See PDP

    This is a release of companion utilities to KERMIT-12 for the
purpose of enhancing file distribution.  Two areas are addressed:  1)
Initial program acquisition,  2) Binary file encoding.

1)  Utilities are provided to create and load copies of KERMIT-12 "on
the fly" from a server such as a remote time-sharing system or a
local PC on the other end of a "clean" connection to the PDP-8.

    Unfortunately, most PDP-8 family systems lack a communications
predecessor to KERMIT-12.  Most communications applications were
limited to terminal emulation only, so it is rare that any PDP-8
system has an existing utility sufficient to acquire KERMIT-12.  (Of
course some sites have prior versions of KERMIT-12 already.)

    Assuming an error-free serial connection to the other system, it
is possible to down-load KERMIT-12 directly into the PDP-8 memory
without a protocol.  This is similar to the process used for years by
DEC field service to load paper-tape copies of diagnostics.  Loading
is limited to a single PDP-8 field at a time.  Performing several
load operations yields intermediary image files which can be combined
into K12MIT.SV identical to the release version (except for
irrelevant loading artifacts which is a consequence of the operating
system itself).

    The format chosen for Initial Program Load (.IPL) is an encoding
that yields ASCII files that should pass through any system with
ease.  The scenario of loading is assumed to be either direct
system-to-system, or between a remote system and one of its
terminals.  All control characters (such as CR and LF) are ignored,
thus the encoded files contain frequent line breaks to make the
encoded file pallatable to the serving system.  Strictly lower-case
letter messages are added at the beginning and end of the file to
serve as leader trailer fields as well as file documentation.  Please
note that while spaces are insignificent, the rest of the ASCII
character set is used for loading information, so editing of .IPL
files must scrupulously avoid changes to the "body" of the file.

    A simple program (K12IPL.PAL) is provided for .IPL loading of a
single field.  The user must customize it for local requirements, and
then enter two variant forms of the loader. (Future releases could
require additional variants to be created.  The current release
occupies two fields.)  This process is similar to customizing the
communications requirements of KERMIT-12 itself.  The program is
sufficiently small to allow manual entry into the system debugger
(ODT) directly.  Examples of such an entry session are provided as
K12IP0.ODT and K12IP1.ODT.  The source program may also be retyped by
any available means (TECO, EDIT, etc.) if desired.  Only standard
PDP-8 peripherals are supported such as KL8E, KL8-JA, etc., as
opposed to KERMIT-12 itself which supports various DECmate
communications hardware as well.  It was felt that the greatly
increased complexity of supporting the DECmate communications ports
would make this process too unwieldy.  However, it is possible to
load the data through the DECmate's printer port.  The VT-78 and all
prior PDP-8 models are fully supported.

    Distribution files include K12FL0.IPL and K12FL1.IPL which are
the encoded copies of field zero and field one respectively.
K12IPL.DOC is a discussion of the .IPL encoding format itself.
K12IPG.PAL is the utility used to create K12FL0.IPL and K12FL1.IPL
from the standard release file K12MIT.SV. (K12MIT.SV is itself
distributed in encoded form as K12MIT.ENC and now also K12MIT.BOO
(see below).  K12IPG can be used with other programs for similar
purposes if required.)

2)  Utilities are provided for encoding and decoding arbitrary OS/8
files using the popular .BOO format encoding scheme.  .BOO format
should be compatible across dis-similar systems thus avoiding
intermediary "hazards."

    While quite popular in the MS-DOS world for file distribution
purposes, .BOO format as originally designed has an inherent weakness
that makes reliable use on OS/8 family systems impossible.  I have
designed an extension to the format to make .BOO format sufficiently
reliable to allow implementation of an encoder and decoder for OS/8
systems.  Note that ENCODE format is still the format of choice for
file distribution because of its more robust nature, but the shorter
files created by a .BOO encoder may be desirable in certain
circumstances.  .BOO format files cannot pass through WPFLOP "paths"
to distribute files on DECmates or VT-78, so ENCODE format is
mandatory on systems used this way.

    The relevant problem with .BOO format has to do with file length
anomalies that are a consequence of the format itself.  .BOO files
either end on a repeat compression field or a complete three-byte
data field expressed as four characters, each only six bits
significant.  Should a file end with only one or two eight-bit data
bytes, two or one additional null bytes will be appended to pad out
the last data field.  This leads to files that are one or two bytes
longer than intended.  At least this is the behavior on systems like
MS-DOS which maintain a file byte count.  Since OS/8 files are
multiples of whole records, each of which can be viewed as a
collection of 384 bytes, any change in a file's length of even a
single extra null byte will cause the creation of an extraneous whole
record.  Besides wasting space, it is conceivable that an OS/8 file
corrupted in this manner could actually be dangerous to use!  Note
also that this problem can be cumulative in that repeated
transmission between systems where the file is stored locally in some
decoded form, and then encoded locally before transmission to another
site, can cause the problem to worsen indefinitely.  Clearly, .BOO
format must be firmed up to prevent this form of file corruption
before it can be used safely on PDP-8 systems.  (It has also been
noted that widely distributed .BOO encoding programs exist on certain
systems which exhibit defects such as erroneous appendage of
additional null bytes onto the end of the file not indicated by the
file's contents.  This is clearly a program bug and not an inherent
problem with .BOO format design.)

    The method chosen to correct the existing .BOO anomaly is to
append a correction field to the end of every file requiring it.  The
basic correction unit is ~0 which means literally a repeat
compression field with a count of zero.  This construct is ignored by
most .BOO decoders because it contributes nothing to the file. (At
the bare minimum, .BOO decoders should implement the robustness of
ignoring this type of data.  It is conceivable that due to design
error, a decoding program could "blow up" when encountering this
data.  Imagine a file lengthened by 2^32 null bytes!  The exact
amount of extraneously generated null bytes would likely be 2^{how
many bits wide are integers on the machine} or one less than that.)

    .BOO-encoded files may now contain either ~0 or ~0~0 at the end
to indicate whether one or two bytes are to be "taken back"
respectively.  Tests on MSBPCT.BAS and MSBPCT.C as currently
distributed by CUCCA indicate that these corrections are perfectly
ignored, thus decoded files are erroneously inflated by one or two
bytes.  This is the expected behavior of these older decoders.  When
used with PDP-8 DEBOO.SV (distributed in source form as K12DEB.PAL),
the correct file length is maintained.  PDP-8 ENBOO.SV (distributed
in source form as K12ENB.PAL) is the first encoding program that
creates the correction field as necessary.  It is hoped that this
"pioneering" effort will cause other systems' encoders and decoders
to be similarly updated.

    Overall program operation for the encoder and decoder is
identical to the equivalent programs for ENCODE format.
Documentation is contained in the source files.  As in the ENCODE
format decoding program, the target file name can be taken from the
original file name imbedded within the file, or optionally the user
can specify a target file name as well as a target device.  When
encoding, the imbedded file name will always be the original name of
the file supplied as input to the encoder.  The user can specify any
valid combination of output file name and device for the resultant
encoded file.

    OS/8 files passed through ENBOO/DEBOO are packed/unpacked
according to the standard OS/8 "3 for 2" scheme to ensure byte
accuracy where relevant.  This allows files which are ASCII, but too
"delicate" for ordinary transfer to be sent between unlike systems
with total accuracy.  This includes any file where the precise
placement of CR and LF may be critical, or contains unusual
characters in the file such as BEL or ESC.  A perfect example of this
is the interchange of TECO macros between PDP-8s (used with OS/8
TECO.SV) and IBM-PCs (used with MS-DOS TECO.EXE) with a unix system
as an intermediary storage site.  Both end systems use like line
termination schemes incompatible with the intermediary system.  Since
both systems support .BOO format, the files can still be sent without
loss.

    Most of the existing K12MIT-related files are unchanged.
K12MIT.DSK is updated to reflect all new files pertaining to .IPL or
.BOO utilities.  K12MIT.ANN and K12MIT.UPD are updated per this
announcement.  All files distributed in ENCODE format are replicated
in .BOO format.

    The new files have been installed in the regular places:

BITNET/EARN       Internet
KERMSRV@CUVMA     watsun.cc.columbia.edu     Description

 K12MIT   ANN      kermit/d/k12mit.ann        Announcement of KERMIT-12
 K12MIT   UPD      kermit/d/k12mit.upd        Release update (this) file
 K12MIT   DSK      kermit/d/k12mit.dsk        Description of RX02 diskettes
 K12MIT   NOT      kermit/d/k12mit.not        Release notes file
 K12IPL   PAL      kermit/d/k12ipl.pal        .IPL loading program
 K12IP0   ODT      kermit/d/k12ip0.odt        ODT session creating IPL0.SV
 K12IP1   ODT      kermit/d/k12ip1.odt        ODT session creating IPL1.SV
 K12FL0   IPL      kermit/d/k12fl0.ipl        .IPL encoding of K12mit (FL0)
 K12FL1   IPL      kermit/d/k12fl1.ipl        .IPL encoding of K12mit (FL1)
 K12IPG   PAL      kermit/d/k12ipg.pal        .IPL-format encoding program
 K12IPL   DOC      kermit/d/k12ipl.doc        Description of .IPL format
 K12ENB   PAL      kermit/d/k12enb.pal        .BOO-format encoding program
 K12DEB   PAL      kermit/d/k12deb.pal        .BOO-format decoding program
 K12MIT   BOO      kermit/d/k12mit.boo        .BOO encoding of KERMIT-12
 K12PL8   BOO      kermit/d/k12pl8.boo        .BOO encoding of PAL8 Ver B0
 K12CRF   BOO      kermit/d/k12crf.boo        .BOO encoding of CREF Ver B0
 K12GLB   BOO      kermit/d/k12glb.boo        .BOO encoded TECO file macro

[Ed. - Thanks, Charles!  Additional information can be found in the new
file, k12mit.not (K12MIT NOT), a message from Charles to the "PDP-8 lovers"
mailing list.]

------------------------------
Date: Thu Sep 6 1990 11:00:00 EDT
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: Announcing  KERMIT-12 Version 10g
Keywords: PDP-8, PDP-12, VT-78, DECmate, OS/8
Xref: DEC PDP, See PDP

    This is a maintenance release of KERMIT-12.  A minor problem
relating to incorrect CPU identification messages has been fixed.
The problem only appeared when the CPU was a KK-8A single-board CPU;
this configuration was previously untested.  Thanks to Johnny
Billquist of Sweden for his assistance in pinning down the problem.

    KERMIT-12 operation was not affected in any other way, as only
the DECmate-specific identification is crucial; earlier PDP-8 family
members are treated in a generic fashion except for the "frill" of
model identification (all PDP-8, PDP-12, VT-78 models use
software-compatible port hardware;  all DECmates are incompatible and
must be handled individually).  We are still looking for volunteers
to test the various DECmate III and DECmate III+ configurations.

    The rest of the release concerns the encoding of files into the
"ASCII-fied" format.  The format has been modified to be more robust,
since the original method has proven itself to be problematic in
certain practical circumstances (as reported in K12MIT.BWR).

    The new ENCODing format is based on five-bit encoding with repeat
compression.  As much as 256 repeated 12-bit words will be expressed
in a five character field.  Any repeated 12-bit value can be
compressed, as opposed to simple zero compression, as in other common
encoding schemes.  (PDP-8 files often have repeated strings of the
value 7402 octal, which is the HLT instruction.)

    The only printing characters required to pass through any
distribution "path" are 0-9, A-V, X, and Z. The alphabetic characters
can also be lower-case.  All command lines are framed by ( and );
all data lines are framed by < and >.  These characters can be
changed if required, as they are not part of the data; they could be
replaced by W (w) and Y (y) if necessary.  (Changing the framing
characters requires slight modification of the ENCODing and DECODing
programs.)

    The new format supports a 60-bit file checksum to ensure proper
decoding at the other end.  The former 12-bit checksum could be
compromised on long files.

    The new ENCODing programs creates internal (REMARK commands
stating the ENCODed file's creation date, and the original file's
creation date.  This will aid in distribution of PDP-8 files where
the user wishes to maintain proper file dates.  The date algoritm
used is the one proscribed by the OS/8 DIRECT program. (OS/8 systems
only OPTIONALLY support file dates, and there is an eight-year
"anomaly" associated with identifying the year; the user must
determine the credibility of the year portion of the date.  The value
provided by the ENCODE program for the original file creation date is
always today's year or the previous seven years as necessary; this
field will not be provided if the system doesn't support the required
AIW feature.)

    Overall file size is theoretically as much as 6/5 of the original
encoding format (as the earlier format was based on six-bit
encoding), but actual size varies downward due to slightly less file
overhead (wider lines mean less CR LF; there is now less
automatically generated verbiage), and the random improvement
afforded by simple repeat compression.

    Virtually all K12MIT-related files are re-released at this time.
There are several new files.  Due to the "fragile" nature of TECO
macro files, the file K12GLB.TEC is no longer being distributed
directly; the file K12GLB.ENC is the same file in the new ENCODE
format.

    The new files have been installed in the regular places:

BITNET/EARN       Internet
KERMSRV@CUVMA     watsun.cc.columbia.edu     Description

 K12MIT   ENC      kermit/d/k12mit.enc        Encoded binary of KERMIT-12
 K12MIT   DOC      kermit/d/k12mit.doc        Documentation file
 K12MIT   BWR      kermit/d/k12mit.bwr        Updated "beware" file
 K12MIT   DSK      kermit/d/k12mit.dsk        Description of RX02 diskettes
 K12MIT   ANN      kermit/d/k12mit.ann        Announcement of KERMIT-12
 K12MIT   UPD      kermit/d/k12mit.upd        Release update file
 K12DEC   PAL      kermit/d/k12dec.pal        Decoding program
 K12ENC   PAL      kermit/d/k12enc.pal        Encoding program
 K12PL8   ENC      kermit/d/k12pl8.enc        Encoded binary of PAL8 Ver B0
 K12CRF   ENC      kermit/d/k12crf.enc        Encoded binary of CREF Ver B0
 K12MIT   PAL      kermit/d/k12mit.pal        Main source file of KERMIT-12
 K12PCH   PAL      kermit/d/k12pch.pal        KERMIT-12 source patch file
 K12CLR   PAL      kermit/d/k12clr.pal        Memory clearing file
 K12MIT   LST      kermit/d/k12mit.lst        Symbols-only listing file
 K12PRM   PAL      kermit/d/k12prm.pal        Sample VT-78 config file
 K12GLB   ENC      kermit/d/k12glb.enc        Encoded TECO file macro
 K12ENC   DOC      kermit/d/k12enc.doc        Encoding format description

[Ed. - Many thanks, Charles.  Believe it or not, there are still quite a
few PDP-8 based systems out there, and even some PDP-12s.  You won't find
very many other new software packages that support them!]

------------------------------
Date: 05-October-1989
From: lasner@cunixc.cc.columbia.edu (Charles Lasner)
Subject: Announcing  KERMIT-12 Version 10f
Keywords: PDP-8, PDP-12, VT-78, VT-278, DECmate, OS/8
Xref: DEC PDP, See PDP

    This is to announce the release and availability of a highly
revamped KERMIT program for the complete family of Digital Equipment
Corporation 12-bit computers, known as KERMIT-12 (or K12MIT), Ver.
10f.  Unlike its predecessors (K08MIT and K278, upon which it is
partially based, as well as prior versions of KERMIT-12), KERMIT-12,
as now distributed, will run on any PDP-8 model (8, LINC-8, 8/i, 8/l,
8/e, 8/f, 8/m, 8/a), PDP-12, VT-78, or DECmate (VT-278, aka DECmate
I, DECmate II, DECmate III, DECmate III-plus) under any OS/8 family
member  operating  system.  Proper operation is accomplished
automatically.  Companion utilities are provided to deal with
"ASCII-fied" binary files in ENCODE format (a mechanism designed by
Charles Lasner and Frank da Cruz as a proposed successor to BOO
format); ENCODE format has been employed to distribute the binary
portion of this release of KERMIT-12.

    Due to the myriad port requirements of the various models,
conditional parameters have been provided in the source (as well as a
separate patching file) for models prior to DECmate I.  The program
auto-configures for all models of DECmate;  parameters are available
to select the DECmate ports (DP278, communications, printer, etc.)
where applicable.

    Many improvements have been provided to get this KERMIT "up to
speed" relative to other KERMITs.  KERMIT-12 has been tested
successfully with many KERMIT implementations and will run at the
maximum baud rate (and sometimes beyond the DEC-stated limit!) of the
relevant interface.  Any console terminal configuration acceptable to
OS/8, etc. can be used at any baud rate as long as local flow-control
protocol is obeyed; remote flow control can be disabled at console
speeds higher than the remote line rate.  Connect mode I/O is fully
ring-buffered in all directions with local flow control always
enabled for all console terminal operations.  (This should satisfy
all console terminal requirements ranging from 110-baud teletypes to
built-in 350-Kbaud VT-220 emulators, since any of the gamut of these
ASCII terminals could be the system console terminal for any of the
KERMIT-12 supported computer configurations!).

    KERMIT-12 will run anywhere OS/8 does, so it runs on any perfect
look-alike suitably configured.  Some known compatibles are:

  - TPA made in Hungary, this machine is an 8/l except for the silkscreened
    letters which are Magyar, not English.
  - Fabritek MP-12
  - Intersil Intercept
  - Pacific CyberMetrix PCM-12
  - Digital Computer Controls DCC-112 and DCC-112H
  - Computer Extensions CPU-8 (a drop-in replacement for the 8/e or 8/a cpu
    for a PDP-8/A-400 or -600 hex-wide box)
  - Computer Extensions SBC-8 (a single-board computer -8 compatible based
    on the 6120 like a DECmate, but compatible with -8 peripherals, not
    DECmate peripherals; it also supports up to 16 comm ports)

    Various emulators are available for PDP-10, 15 and the IBM-PC
which will also support KERMIT-12 if suitably configured.

    Distribution files are available from CUCCA.  Testing is under
way for some of the more obscure configurations (e.g., DECmate III
with comm port); volunteers are welcome for this task.  The author
can provide copies to interested parties on virtually all of the
popular PDP-8 media on a time-available basis.

[Ed. - Many thanks, Charles!  The files are in Kermit Distribution area D
with prefix K12, and the previous PDP-8 versions having prefixes K08 and
K278 have been retired.  Internet users may ftp the files as kermit/d/k12*,
and BITNET users can get them from KERMSRV at CUVMA as K12* *.]

------------------------------

K12MIT.SV
oX?lP0400<P70<074QTP1A8B3a80?ahE7Ph10P`581@?81<53P@P;B080@h430DB80DB4PlB03lN
5Ah>0@8<1B0D3b0C1@h403lN5Ah>0@8<1B0D3b0B1@<52AH582dP104D0B054Q8?4P0a4X20P820
P820VP00~xb\b=RXf:[hWDb<WCX<K9c<FPbM>Pd=;?e\W4aLBPe<nPeM?5d]>PclJPblGBcLWD
[K6bX=C?X<7<c<oGX<?EdmC?cLWJaLBPe\GBdlW?c]>Pe<nP`\F=RZn9c<o3`Lc<fJ33d\G1e<G4
X=O9e<S?eMBPcLo4bLKIbLk7X=C8aJ3=`LW>X=??eM;3aJ2Xbk6bcLWD[]31c:V^SHZ=RZn9`m;5
`MC9c\NPblGBcLWD[K6bX<KBclfPe<S5X=?D`Lk4~~~~~ToojBT86<oJPoRObRT8><noZinI0X
Po_;00P6R@S3:93kV`QSPI_7TP2P0?l2lX3>[K:4_;e4`L=4aZ5:ooH\f:gXW02`mlO4[h2^b?S2
`86<mhTlm\0XmL0Xa\S<P:g[0<T<`Lj\P<3[h03`~s5@L`1e1>=U40SAg62Q1oW100m`coPBcf
RLcfPLcFm^cnmRb9e\kfP<kfPLc7m^cmmRb9alkfoL;fPLb1m^clmRb9PLkfo<;fPLb1m^clmRcE
m^ckmRcjmRcimRcEl^b0P>j0Q;3DQX3cW<4@WR6VWj4@X676[\7C]H7C_X6daH4AaR6Xao7=b:4A
bF6HbR7>AL[^CI[^@i\@A2^XAO_KAZ\@Af_6e<_5eF\AeR^Xeo_Af;_5fB_>0<00~<H`14__0E
@00>6024e0R600kEl0;FlPcGP0kHm`cIk`CJf@[Kk`CLf`[Mb0cNlP;Oj@SP1`;Ql@;Rj@SSl`;T
j@SUaPcVb0cZb@c\cPbN`AbPaQbn]1S5bAc6cA[8La3:cQa3`Ka5a[a62;oBLk3DbKcFc[`0eP3f
el3HgN3XiL3Vi\3Xj\3Yk<3^W\7QX<7VaL7Yb\7^@l_QAL_Ve<_Ye\_^0<00~~~~~~~~~~~~~~~~
~~~~~JWYigWYigWYigWYigWYigWP1`~NWH1gUHigc]LSP90g4:dGGX3GT11a[AinP91g4:dG;l3T
S4ibgWP;P91g4:dG;d3RT11a[Bmn090g4:dGLX37T11a[Bmn@90G4:dG;d3P\C3LWYigP;5m\837
G\>FT61e6@ED2OZ403J<01j8eI=WC^0QPhmgCDhe@e@PCi<S7Qj4dQhe@1iheI=WC^0QT99gCPDU
X917SiAdWH1gGQ>Dn12hkg9<3nn48=?SlJ2ldoLk8=?Sl_Rm8=j2DTTC;G9L89J7L8O78028ThEg
54e1QJ04P5ii7U1FH8PGC3`DdYh?1]:324b19H17NG3>P?mo_YigP5imWYkgP1inWYkgP1indijo
P0UcPgPkP1knbIjoP1inc9joP79l_YigP1inaIjoP1in`IjoP?Qm_YigP;Ml7Yk_P9EgS\ibeh0c
T11a[EimP91g4:dG7X3WT11a[Bmn`8a7C]hPN82gT11a[Bmn@90W4:dG;`3ST11a[G9lP91g4:dG
;d3QT11a[Bmn@9H77WMK7X3WQ4=aSEA`@00@~~~~~~~~~~~~~~~~~~~~~~~~~~~xGYjAC60QPH9g
dRDeP=ioGYHSC4@20lf3@H@cP6QiPhmgST<a2HMC5>233m@T81Ve1@18PhmgU8ld;H0g7]j05>23
QAE5SQA8h80gIH2W~7gPmNTQCB2CRP1C69aE0>CH10gQlNDa;PUB4<@3SNG_6BdT<33h?9Qd<6
C890gQmNTQCB2CRPRC453SQ=@06BQGO5EP9>h2691A>PP>NCQGN4CS;PRA45X3j0gWnNC19PPA=5
4cQ>0FDPDV6?P4ANgYA@3eBDA443cH=1Q3?PDT1jIAV3cW>5e32P57[PQCA?1CDCDhH5JE<UThM>
8145^QF93Q==Q@\N9FRB@g59QAD4EX6N:>R91A>1AC<1Q8<558I>bAC>7SR?7SD138?GA35UQjMD
11QFQQi<PB=^F36UQWM>Db8N:2S5UTABIAZ52GHN:5P?3eP5PD@9Qe<CDhH5JE<UR8M<7Q@X28EC
3BQC`AC5IAYNGY73D41Pb11B@`05^U@0GXWNFB6?DP0PCQ8E84EBSaBQ@4WNG_F1S31P3aDDC84P
3c;D54P182G5ddA?X2=C1RQ>Db85027NG_F1S31P3aD<`h=DH0691A>0RgN5SGADGR\0~KgPnN
@d59QAD6BH0EQCB0gWmNTQCB2CRPQCC5EP941QQ<H261AC>0UGN>@W0553SPQCC5EP9PH1\1Q2<5
P3@5TXCBP3ONG_F1S31P3aDB@h59QAD]2HRCASF9bA1>81D9QACDdP=Pd6A3@05NWYA=e1=P2A>5
2CR@E3D5TXCBICR0gWmNPE><H04?4UQ3BA6535QDD`4P0EC;E060gWmNPE><H04?4eQ>815P2K65
e43BH3IBSaB0gTmNPE><H04?4eQ>815P0K:41C>PDT6?P4CNG_F1S31P3aDCCX40gQmNPE><H04?
4UQ3BA65;EP4E81PDP6?P4@0~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~Sdl?1d<FP`lS1d\73e<GBX=C?X<k>c\j^SHZ=RZn9dlGDe<W>aj36c<oG_HVaRLG>`L;<aM>P
a\c?ejg3clkDd\o<X<;IX<C5a\7Ec=B^SHZ_RM?5e=C9c\NPa\c?ekf9\8W4bM?1`\c5dj36c<oG
[L??c]CBclbP`]VPa<G6`MG<e:j=RXf:[hWCaMCDbLk7X<K=clC5_HV`\KNgRM?5e=>Pe<S5X<C5
a\7Ec=BPa\W<aJ3=clC5X=C?X<7C`lW9~22`00~51`00~Kn`l0~6OP00~3;@0S~2<@00~LO`00
P0l[7M3o0?00~70J201009VC<QBN4O8@00~5P0N0kFl03F1Pd`<J00l:00Pi^INm8TU8P3<0^cVG
<``750dHRa:I@200oa02iPocOo3PP63PD_4P?`20497oOkT2AFH01n8;O]T9OYT_oYWm62KlnbVM
P:XI5VVG6J:?::n0VjIn0920OZT9P8X0`0jPdCJPX4?jX7CidRKhmbOC7f9mO0;fdG=8_?[CdbKA
dSOgdECB\D[0dn;gmS?jNcWBdW@UNR8Xb_[BdWBPd^LK72HO04jP0;00~3k`CEkjCG`J`XaPb0
f^;fmL;fmL;f4LH@e6_8P<kD0;39j\[>P<kY0;2L<0E>5EL0202DTl`SUPbE\L;G05`0P4d0C@VB
P<>0Z4n0BkV0P3@XP?^>ZVP0P0\0`0h<of8oNF90T6\0T0Sn?bKm@2JH0;2X=6:YZFNYZ4BSWj\0
~3P0jZZSBbo6<QN>T0Z0nZ0k\0n`Vnc:HVcBO=c4;=cGBPcNLQnR8QcN;8b_[>]X^f]T\00080
n@;=cV\0g@KM2Rh:2^khg@9mO0;B0;00~V0`02g5`B=B_=@FCM09P8P7N`oj0_PH2TP02`V8V;
UiMRo_hgUgHRZ8WkUhTTR@2`080>M[@V2:So0JKJ1WO@4a=RV9Q;oGFB87CbZ0;d2:_j0;[TW;BT
W9R[~23_b0WTFd:`2H1WKY9Z12h:S5n[BPSl89[KjHXPQblPj0g[[Z];kYY;kkZK`0X<7CbmSf
k83fk?Y83ZSQn_Wf;164KR0@mX3hh_J0c]<0\000~C>2P01M@0@SJm\_m?~~~mm`HPX2o`mj9j
Z0obmj;oZ2obmj8Q9^:Pl?XVmB[gg2_gLB9gg0CL0;00~9P@l0L0V05;HDKbT0on8EP6B00;2`
26n`\4=8U_YjX2n>RjC0\>:;0;2`26n`\4=8Y?YjZ2nLVJC0\>:I0;2`\6?8[_Z`ZDZ`Yb\0~2
h>1RP=::6=lV5=hVgR4ngj0oeMjR8AGRZ<Ojg]m4^]nRY`6>g]iS5[5T\L5>5K4[\N12\MnbY`6>
0MoVgjPodkRZ~6k3ARkNaSkNadkC94iN6[~Lo`l0Z`J[L2VO[:J`\FKo;RH_oV:][6<XWo[mZ2nL
[:>\CTV]SDZ\oC:PWoZ\od:R`:j[[2JdZ8Xi[6:0P4_0Zn:00;00~24l0BVYYVVYYV02P?o<LV
al0falM3`HY\N@Z@~4]0_1]2Bd0;00e`Kkd2KGRRai0I0020o8`4k@:bK80;00KPWj3RI:KI=7
B@T1IP<Lgd[if2_Hf4]IIP=>HP<0AP3o0?00~<2PT2P@d^aSol<?<0\0He=2KoDBV`L2V]\JHe
;RH_oV:b=VJc\H=8ZO[m:2nKo::P[OZY\J@enb8^;fKT\^Jc\H=8ZOYjX2n]P:C0\N:0`;j`P2\0
~5\OXi2<OjnBP_aORRX;?k=We2C[:D_k6TdCJTODhY\K94];6Sn]6J`;7Tbl2^\`2`dm\fdm=3
g==TBP2@04T90ND32=?ddm=;7=e:deV`hET`i00`~B5L4?W`=P3]8?n_co0?l2\_iYoBP_V_bR
Z9oj\_\R`:kj3OXR@7[bnK8W\Z1>\PebKH>JX;;WOPVIP;:bn:P_Pj2^\[8V\_MbKGbBKONBKH>J
`6cRKH>J~3OLH6f2oR;aQ_`LJR1PK^1RkW\bjcaRhW;[=;~38?7fl30V<O5Rk>iVm^dVf>kRk^aS
6=cj2P[^2PS_k7e0kdmYmBP_j7fR8NoRX<OkkM9:alM;~=`@oh2?0YH:2P2OZ>lol0emD06`:_
ofVQ\ZI[\BKnXIZa\G?m8Bj`\FCnXIZa\7B?\JBP\NNbNbTQ\>KnXIZ`Z2n[`:j_YT[lJR\2X2ok
n[V30Z:XP?_k0;00~5OgjIPT62JGjI2K>D\`2`C3JLOPVI_@2`~~~3E[IHWMnORH0A06h9o`hV
6BdV;FPY\Bf6oSDV;FLY\Bf6;G0Y2;7h;CURI[6HaS=VPLOVo_dWao`Y\JV:a\M6nk6H=Z0_W<JR
Z;7hc2f26H1TP02`P;7RN3FEP?Nj>O6:Enb:MNR:`MnJ[mZJd]BJ8P2@~:`0hcBVWn@\190I00
c0\0X0hOOB1ljbKZjb;\NbW]9F9j:2nPk^I=JIGF0K0S~2CP000?l?~@70P0L7A80U00KPWo3RHI
;BH]J2VYL:VTUZJFKbT8SOX]X6h]7gJFBRT0DP190I2Z75BHP:_nXiZ0;D8IP6_0IN:0I;V0`;km
P2]5Y`ECWPE>V`D0~2K_nB3QUR;BeRJ<ZJL0ROcBfVBobIcLeJo\fJ\be26K=[`?gR\h2n\e>`
a49@cD9@aP1@~i:STH00=P0?l9>XY\N@^@7dYYm5W0B@6@RAaTR^6XB_jLFDT90Gh6hCZ2Z>7h
o^6HT3ZRX>7hJodbB>7ho>hVX>kWncDVo6LYhL2>>C`V?6HYhO^2^CaRRWW90`000>48^CLV^P4^
>3YTX6?Y0SGbHWjIHTb9L7iI2I2J>ZP_hF69hI2:>Z0_H@2NB_jLFDT90804P6BiP02`B_jL@TT9
0>42N92F:?[bP02`~BAdRE=]g?_jIXA1L6FTh6@U@6AQd6AEl604h03DIP7DEPG`1PjM^Ii4FH
a7BIde6IcF6I[DbH~3Y`R?YK>X29odW`2`\[9Rod0^oQP_Yl1>\ZL[~3_[iRoD0^H1P_\l1>_[<[
~3Jo`bg]iWnmhVgRPog26^9ZP_dMnRX?[be=nRZ=SjgV<i_mVj`MoVg\I:_km;~40`KP23KP24@8
:3oP0k:PiOX80cH3h2\0~>`3Kl4lK?6ZD?02P?\XNV:hR@~2D829_?lg=_h:9PXX?kG;YP[<=P[=
=P[>=Z3nhl72IY^P9Z8:Xl:PI<6OBPXX?kW:YX7m`_bbV\Xh9_eR:H2oBXW:`PP:lb4ghSOkIHkj
Xh4Pch>0Y800\000~~~40P1EAd]7105E0:P?YSNbR2]YR004080;Qo4V`IUXVL62Y_62oj0_S8RT
>8E:\@2PRO73Gd@>`@H^1\7VlJHhlIU;084<15S^?GD2:;?jGW<PP814P?:bZ;7joZHV[P2PB<Kj
?@l6R@o2`@2`^L1>PKW;P3ORk?eWjo4V`O67lITVlL58lL5h1PK^GiT3V@mb2P[^25oPlO4glO52
oj0_c86\>0Q?^B^iR0240<<:oNaDbP2P~@5PRa07\0?@;8SOX?MB:PVo:XSOYNHbVGoj?nX2n;
?:::NLT4B0D0R0n0>TJ00K00<`:PZo[m:2Kl9BKk9RKj8BHOnFVLB[U`AU190I2878B^W:]nK9Q<
L9En2IVn28nLW4\0n0VPmnVnd;[f29o1BZT0A2190I1n78C:_Z_em3:XgOY:0994B@T1P`PLedZn
GKWnF\2n_[^n_T\0~HCN4fP1M>TQQn8`0]<@00lLMI@@Q>C@P0F@1MCX1J081I=0Q><@P0F@0d
0800BPWdDl190I2O78BFTZ^V`HhcTVBBFK2LCX2I0800o`8doV9AJi?moR9PP?kl8Bhbnf9@YY_0
0^H>nR8P`oYMdIQJ00h0nNW?n::PcoYMoYa200j0>^:PHOV0mn9ZA;3o0?00~d2?m<mOhfo0[L
3oHQl00P3hF0Xh0dAVfB:800\22>nXV9=3CoHY:9R`2O1SBP9Z2P=4RMnYo0WYK0[Y80\0000=Pa
hS4`HaR\nPX:kPX8kc1m@:40\2QllWam87bh9kR_B`00030aI_jh9_gA9TlPWjoAQ<3lXZoTS]5?
JB2_n=79BZ2hikT0\000~m;_X?L;YA080>KKDVP<XfP3i2G<PVRL[32P[^2YGXRL[3ULZ4RP2P
PGg0:83kbLURobP_ZFbRZ:gjbG`PZ<SbbKDYUE^b]F2BYcjRX9Gkb24^o\PVU@2`P;GRP?eRP`2P
alMRN\0_a7jY8W62afdY^`2`~~0;X1X=\?06h9OQ>H@FTYORRHOSBHOS:Hk45Rj?mYoT>B:4Cb
X=;joI^Jo0ROnn^Bk:P_XOfYaOZYaOVYaNfVkGLP8NoVk:P_\nnRN6:JZ<;j0nnb@J0_^Z2^a>bV
jjP__nfRnnfBn<FJK?\Yk01^moJImOBITH2TP02nmoJImOBIoLfJlb4nlZ0ocD>RZ=kjO_fHA:P_
S7jYSXbJ@d\:Hd\:03T:~6d`0@~3m_FZhIn[U2F[P82jU\:j0=RjGLFk0?P28OWRZ97jnN4VPOWR
MeX2nHU\hH4l2:OhP81;0:L829CkROS7PH7>n7LPF_PVn24^nJP_@iA;Y02P6L3:7TS?@`Q?[7>P
hD9RZ;cjhGLPFBP__WBRZ;ojhJL[f?OVYjM;0>46mB4^m_LRX<kjhOlYc\:[hHT\mH5lPOGRMeP2
mL9[084>mB4^mWLPX=Sdf02`mj0_hOFb8OKRZ>7kROK3POo9hH6nmWLPF?HVh@2`~=_P\0jP8Q
jn:XX_[[k2J1jn9go`;[RFc\PCc\@V:XX?[HA^:PX?[Z8Bk[G22PX?ZPA^K\22o2P8B00;3228nU
RKcZPGb1j^9go`;ZjV8Qjn8XA?@8]OYLG22X@_:XYO]6Z2m6YD\00@gK1Ze8A?@8aoYck0I2Z2oG
k:9gF@8XfOYdZ2oJk:;2f;i5`VC20;1GAbIGB2KojRKojbI5AVI4gF\0~O1`2O1TLQ;TQ58Z2<
nYoo:Hb0Zin9;4N1O857hWMG0TN0J`213TLQ;TQg8:2Fm9H0\4I4;ZR[n_h@;gCo:J\H[TI5HZ2O
ndLQ;TRX;in9_4R1??nOVh58hWMG0TROJ`0Q3<<V[;j0C[h0\5Sm9eSl9e[k9e[j9oU3M\D0\0Qb
lPWHfPkAe83Ajh0Ai]7AB`00~Vm`[in:[fmJXAd@]3C`1>CP15@`1Do`l0AZ19CP19D`18o`mH
AC1HB@1Do`moDo15CP14o`l0Ae15E03oP?EBA@13A@19EP15o`ncB515C01@o`ncodl0~~~q0@00
~~~rORl08400;B<0CS408200o`3`09X83BP_PH2[0?l2:8gjd\@XQWbba0^2K:0?SHJ[0?463?5R
QYB;0;H8::_joRP_[@6^:;3joJ0_V[Jho:0_Y`fVV_^bj42;n^PXf0cR3:]Z080>6KK;77O03NI^
3JP_?aZl3KH[0?46VPb2b<gjlMdXaYZXlE`PX0_d2O42nBP_2oQRZ:3n2`\Va02`8Mg;9X3>gMe;
mnPX6WW;0?46m]dXjo6RgNj:j02`~6GT<01O<?Ce00kocol?Oo`2K\P7TWonRFj?hRZ;cj3PKM
P7kYR7i9IGi9YWi9_7i9G>Q2A^SRoIdVOP2@OR2DXgjYIgi92GjI07i9[NQ2A_cR2?]Rg3>9j4H^
j?XR2?URg3>8R_S927T;moIgmOEER_@RX<SjRo<RZ=SjF@3>GP3>WLa:Gm?:X8]\lUVlRZ2VRo7;
X?1RXXYZ0>T6g0Tfg8U<20TgjN9:PMc;~<NH]0P2X38SXmIT7M`?_ok_a?_R94m@3n0<0>0<8V
o`0V`P0Vk?kRZ9cji?gRX;kjPocRZ:OjX7O\P7W\0JS__KnZX87_X;_jH@o00P4>Z;[j_0j^:;7j
nbP_^OZRZ;Sj`Hf^nJP_][NZ0@7^0@7^0@7^0@7^0@7^0H3[~~~4n0oVl_700_02?hh0~~~~~~~~
~wRM;5cLoDaJ_Cd=;9c]B[eM?5dXV9[m?5e:3BaLg?e<FPc<W>aJ39cmBP`lo4aHf:SHZ9bLKJ
aM;?RM;5cLoDaHVla<GF];2mRK6nRHV_a<G6`MG<e:3Dcj34aMK9`lFP];2_];6Pe\GBdlW?cXf:
SHZ_RLC5e[>`X=31d\7=aMC5d]>^SHZ=RXW9a\kJd\n9a<GF\k29RHVlSHZ=RXW9a\k4aLJ9d\G3
RKcBaL>mRK>`_XV9[lC5e\W3aJ2c\:39

Date: Fri, 1 May 1992 17:00:00 EDT
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: DECmate I problems and more patching problems

DECmate I problems.

    Attempts to use the distributed Kermit-12 Version 10g on a
DECmate (I) system will certainly fail.  The coding specific to the
DECmate I was never tested until recently.  Two key routines wait for
status flags that never raise because the affected registers do not
generate flag changes/interrupts.  This is unrelated to general
serial data handling which works as originally coded.

    There is a simple patch to the program to alleviate the problem:

.LOAD SYS:KERMIT.SV/I$*$        [load the file in image mode and then
                                 ask for more input.  The $ which is
                                 printed signifies the use of <ESC>
                                 as the command terminator.  The * is
                                 printed by the system command
                                 decoder requesting further input.
                                 The second $ signifies the use of
                                 <ESC> to end input to the command
                                 decoder.  The loader program
                                 terminates and control returns to
                                 the keyboard monitor.]

.ODT                            [call in ODT to patch the program]

7/ 0007 0012                    [change default baud rate to 2400;
                                 this is optional]

353/ 5352 7000                  [make a JMP .-1 into a NOP]
10302/ 5301 7000                [make a JMP .-1 into a NOP]
12243/ 3607 3610                [bump the version number]

^C                              [^C to exit to monitor]

.SAVE SYS KERMIT                [save patched file]

This also updates the release revision from 10g to 10h.  Future
versions will eliminate the overhead of the now defunct routines.

    The only DECmate versions remaining to be tested are:

    DECmate I with DP278B (the system used for testing has DP278A)
    DECmate III without internal modem
    DECmate III with internal modem
    DECmate III+

Patching problems.

    The restrictions placed on patching apparently stem from a bug
going back at least as far as OS/8 V3D (likely further).  Apparently,
when a JSW value of 1 is used (as Kermit-12 does), the GET command
doesn't work.  Apparently, the system confuses the need to save the
contents of 10000-11777 with the need to load it in the first place.
Kermit-12 operates by first placing once-only code in the affected
area, then discarding it in favor of a locked-in copy of the USR
routine.  To avoid overhead, the JSW value of 0001 is set to indicate
there is no need to save this dead code when the USR is swapped in
over it.  Apparently, the GET command sets the =1 too early in the
load process, so the code that uses the USR to carry out the actions
of the GET operation doesn't properly load the Kermit-12 code.

Consequently, the warnings documented in previous chapters of the
.BWR file (below) apply in all cases.  The interaction with CCL sited
below may not apply in all versions, but the GET command problem is
apparently universal.

cjl

------------------------------

Date: Mon, 28 October 1991 20:00:00 EST
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: Kermit-12 patching restrictions revisited yet again

    Even more operating system ills (will it ever end?):

    Still further investigation into operating system bugs in OS/278
V2 on DECmates reveals that the problem in even worse that realized
two weeks ago (see previous .BWR article):

    When a SAVE command is executed from OS/278 involving a loaded
handler, the SAVE operation fails!  The contents of the files will be
corrupted in general and will likely become (at least partially) all
zeroes!  The exact scope of the problem has not been ascertained, but
certain loading tests reveal that the command fails even when
accessing additional memory beyond field zero and one.

    All operations to SYS: or any device co-resident with SYS: (or
when DSK:=SYS: which is typically the case in many systems but not a
rule) are unaffected beyond the restrictions reported previously.

    Until recently, SAVE commands were of little interest to the
casual user of OS/278, since program execution and ordinary file
creation are unaffected.  Since there are now several programs to be
loaded and saved by users, the problem is more significent.  Users of
the direct loading method of acquiring  KERMIT-12 are also in the
affected category.

    Clearly all developers and anyone assembling any part of the
KERMIT-12 package should be aware of this problem.  As a precaution,
all persons using the SAVE command for any reason are advised to use
the form involving SYS: only to avoid this problem.  (Advanced users
can determine which handlers are possibly co-resident and are thus
acceptable as well.) The resultant file can always be copied to any
device as required after the fact.

cjl

------------------------------

Date: Thu, 10 October 1991 05:00:00 EDT
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: Kermit-12 patching restrictions revisited and .BOO problems

    More operating system ills regarding file loading:

    Further investigation into operating system bugs in OS/278 V2 on
DECmates reveals that the problem is worse than first realized:

    When using GET or LOAD (ABSLDR) commands, especially when loading
image files such as FIELD0.SV, FIELD1.SV (the partial load files from
direct memory loading of K12MIT), or K12MIT.SV with /I, the JSW and
starting field/address can become "mangled" into unusable values.
One particular case achieved the impossible value of 6303 for a
starting field change instruction (legal values are 6203 through 6273
by 10s).

    Consequently, the general recommendation for SAVE commands as
used in various utilities throughout KERMIT-12 configuration etc., is
to use explicit starting address and loading locations and JSW
values.  In short, always give a complete description of the SAVE
operation under OS/278.  For example, when direct-loading K12MIT
through the printer port into the DECmate, the following commands
should be used:

}LOAD FIELD0.SV/I,FIELD1.SV/I$*$

}SAVE SYS K12MIT.SV 00000-07577,10000-17577;00200=0001

    As discussed earlier, the CCL form of the ABSLDR LOAD command
works even though other seemingly equivalent forms don't.  The
complete SAVE command forces all parameters to be taken explicitly
from the command; no reliance on system "assumptions" or loading
artifacts.  Always use the complete values for loading taken from the
relevant program documentation.

    Most users of KERMIT-12 are running OS/8 V3D, etc., where this
sort of system bug isn't seen.  In the future, all KERMIT-12
documentation will give the "verbose" form of the command to contain
this OS/278 V2-specific problem.

Regarding .BOO format encoding:

    The newest release of KERMIT-12 includes .BOO format encoding of
all binary files and TECO macros as an alternative to ENCODE format.
ENCODE format is still the preferred method of distribution, but .BOO
format allows for use with other systems, such as MS-DOS.  For
example, TECO macros used with OS/8 TECO can be interchanged in .BOO
format with similar files used with MS-DOS TECO.  Intermediary sites,
such as unix systems will not destroy the "delicate" nature of such
files, etc.

    The KERMIT-12 .BOO utilities are NOT totally compatible with
existing .BOO utilities on other systems! Just like OS/8 ENCODE and
DECODE, ENBOO and DEBOO do a perfect encoding/decoding of OS/8 files
into their original form.  When used with "foreign" .BOO decoders,
some unpredictable things might occur.

    Certain other .BOO encoders are known to throw in extraneous null
bytes at the end of the file.  Further, there is a design weakness in
the original .BOO format that causes more null bytes to possibly
appear.  The KERMIT-12 programs utilize a superset of the original
format to ensure correct encoding/decoding.  When passing these files
which now contain "correction bytes" to older decoders, the files are
decoded with inflated lengths because the older decoders don't
recognize the length correction.  When passing files created by older
encoders to the PDP-8, the resultant decoded files will also have
inflated lengths because the older encoders failed to place
correction bytes into the file.

    The general rule for dealing with .BOO files originating from
other systems is that they may have incorrect lengths.  The resultant
files may be (falsely) padded out with extraneous null bytes.  In any
case, since the files generally have no blocking structure, the files
will be padded by OS/8 up to the nearest whole record or multiple of
384 bytes anyway.  Unless the file is ASCII and has a ^Z at the end,
there is no way to determine the original intended file length.
Files may  be padded by null bytes introduced by other systems' bugs,
the inherent weakness of the original .BOO format, or ultimately by
OS/8 padding requirements.

    ASCII files from other systems may be adjusted by using an editor
such as TECO which stops at the ^Z.  A second generation of the
transferred file may be somewhat shorter when processed this way.

    Should a file originating in OS/8 be intended for OS/8 use only
(such as an encoding of a .SV file), it should not be decoded on an
intermediate system, because a re-encoded version may differ from the
encoded original because of ignored correction bytes, bugs, or the
inability to insert correction bytes.  Violating any of these rules
could lead to OS/8 files corrupted into being too long.  It is
conceivable that these altered files are even dangerous to use under
OS/8 because of their inflated lengths. (Certain files are validated
by their restricted size, such as .HN files which must be exactly two
or three blocks long depending on whether they are for one or two
page handlers.  If a one-page handler became three pages in file
length, it could conceivably be confused with a two-page handler,
etc.)

cjl

------------------------------

Date: Sun, 7 October 1990 12:00:00 EDT
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: Kermit-12 patching restrictions

    All Kermit-12 configuration done according to the documentation
works "as advertised." Users are tempted to patch the distributed
image file K12MIT.SV as a "quick and dirty" method to make small
modifications such as changing the default baud rate, etc.  There is
"conventional wisdom" that this can be accomplished using GET, SAVE
commands to allow the use of ODT; this method is ordinarily used with
other OS/8 family programs.  It has been reported that this does NOT
work on OS/278, the usual operating system for the DECmates.  The
following method should be avoided (a work-around is offered later):

.GET SYS KERMIT                 [setup current image for patching]

.ODT                            [call in ODT to patch the program]

7/ 0007 0012                    [change default baud rate to 2400]

^C                              [^C to exit to monitor]

.SAVE SYS KERMIT                [save patched file]

This method follows the exact procedure described in virtually every
OS/8 document regarding patching of image files.  The cited example
changes the default baud rate from 1200 Baud to 2400 Baud by
replacing the value chosen from the DEC standard table for 1200 Baud
with the applicable value for 2400 Baud.  This value is stored within
Kermit-12 as the corresponding twelve-bit word with all high-order
bits zeroed.  (The location used is 000007; this is valid for Version
10g, but could change in later versions.)

    This attempt to make changes the "conventional" way produces a
corrupted image file of K12MIT.SV (renamed to KERMIT.SV in the above
example) when using OS/278 Version 2, the usual operating system on
the DECmate II, etc.  This method probably works in earlier (OS/8
V3D, etc.) systems, however no attempt has been made to trace this
bug in prior systems.  A "fool-proof" method is required that works
in spite of bugs in the operating system.

    A work-around was attempted using OS/278 V2 on a DECmate II hard
disk system:

.LOAD SYS:KERMIT.SV/I           [load the file in image mode]

.ODT                            [call in ODT to patch the program]

7/ 0007 0012                    [change default baud rate to 2400]

^C                              [^C to exit to monitor]

.SAVE SYS KERMIT                [save patched file]

This also fails!

    For reasons not understood yet, the following seemingly
equivalent command DOES work:

.LOAD SYS:KERMIT.SV/I$*$        [load the file in image mode and then
                                 ask for more input.  The $ which is
                                 printed signifies the use of <ESC>
                                 as the command terminator.  The * is
                                 printed by the system command
                                 decoder requesting further input.
                                 The second $ signifies the use of
                                 <ESC> to end input to the command
                                 decoder.  The loader program
                                 terminates and control returns to
                                 the keyboard monitor.]

.ODT                            [call in ODT to patch the program]

7/ 0007 0012                    [change default baud rate to 2400]

^C                              [^C to exit to monitor]

.SAVE SYS KERMIT                [save patched file]

This allows ODT commands to patch the file as intended, and also
causes the subsequent SAVE command to work properly.  All OS/8 family
systems support this command (as long as CCL is enabled), so it will
"always" work.

    For those users who run with CCL turned off, the following
sequence will also work:

.R ABSLDR                       [run the loading program directly]
*KERMIT.SV/I                    [load Kermit in image mode]
*$                              [<ESC> is typed to terminate the
                                 loading process.]

.ODT                            [call in ODT to patch the program]

7/ 0007 0012                    [change default baud rate to 2400]

^C                              [^C to exit to monitor]

.SAVE SYS KERMIT                [save patched file]

    The newer OS/8 family systems generally can't turn off the CCL
mechanism.  Since the R and RU commands are typically disabled on
newer releases, only the CCL command work-around applies.  Users
opting to disable CCL are likely running "older" systems, such as
OS/8 V3D on DECtapes.  On these systems, ANY of the above methods
should work, because the problematic bug didn't exist on those
systems.  Had DEC not gone "backwards" we could have avoided this
entire discussion!

    It is assumed the user will make "correct" patches to KERMIT-12;
at least there is a "safe and proper" mechanism available to
accomplish it!

cjl

------------------------------

Date: Thu, 6 September 1990 12:00:00 EDT
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: Kermit-12 potential problems

    A newly implemented ENCODE/DECODE method should eliminate the
reported problems with regard to passing encoded binary files through
problematic "paths." The method chosen is a variant on the 5-bit
encoding algorithm suggested.  Encoded files now pass right through
all of the WPS-related utilities.  It is necessary to acquire
virtually all files of this re-release of KERMIT-12 since all ENCODed
files are different, as well as the source programs for the
ENCODing/DECODing utilities themselves.  Due to the file being
"bare", the TECO macro K12GLB.TEC is possibly defective when it
arrives at a user site; it will now be ENCODed as K12GLB.ENC to avoid
this problem.

    The KERMIT-12 source files are different due to maintenance work,
requiring the user to obtain the re-released files.  The sources now
include a file to "pre-clear" memory.  This aids in reducing the size
of the ENCODed binary file K12MIT.ENC since undefined areas are no
longer "relics" of random values, rather they are all set to 0000
octal.  The long strings of identical words will be eliminated since
the new encoding format does repeat compression.

    KERMIT-12 has still not been tested on any DECmates other than
the DECmate II, as no volunteers have come forward with the proper
hardware:

    DECmate I with DP278A
    DECmate I with DP278B
    DECmate III without internal modem
    DECmate III with internal modem
    DECmate III+

    A tentative volunteer for the DECmate I with DP278A configuration
has been contacted, but testing has not yet started.

cjl

------------------------------

26-Jul-90  1:15:43-GMT,15259;000000000001
Return-Path: <lasner@cunixf.cc.columbia.edu>
Received: from cunixf.cc.columbia.edu by watsun.cc.columbia.edu (5.59/FCB)
	id AA26223; Wed, 25 Jul 90 21:15:41 EDT
Received: by cunixf.cc.columbia.edu (5.59/FCB)
	id AA11871; Wed, 25 Jul 90 21:16:19 EDT
Date: Wed, 25 Jul 90 21:16:18 EDT
From: Charles Lasner <lasner@cunixf.cc.columbia.edu>
To: fdc@cunixf.cc.columbia.edu
Subject: This was sent out to PDP8-LOVERS
Message-Id: <CMM.0.88.648954978.lasner@cunixf.cc.columbia.edu>

    I thought you might want to see this; it refers to the encoding
problem I reported for a user with the problem (he has no net
capability) in the programs using that encoding scheme we
discussed...

From:	Charles Lasner (cjl)
To:	PDP8-LOVERS
Subj:	Feedback on encoding issues regarding archived files.

    I have written a pair of OS/8 programs to ENCODE and DECODE
binary files into an "ASCII-fied printable" format.  Those of you
familiar with either uuencode/uudecode or .BOO format will understand
my intentions.  They were originally written for the purpose of
distribution of binary (.SV) files of KERMIT-12 by Columbia
University in NY as part of the standard KERMIT collection (K12*.*).
Columbia imposes a restriction on all files: they must be distributed
in ASCII only.  This is to ensure proper distribution regardless of
the "path" taken between Columbia and the end user.  Be advised that
various problematic E-mailers, ASCII-EBCDIC EBCDIC-ASCII
translations, filters for reserved codes, known problematic character
substitutions, etc. are lurking out there! Consider yourself lucky if
you get your sender's copy intact without some form of "cosmetic"
reformatting.  By encoding the binary files into an appropriate
subset of ASCII, these problems hopefully are avoided.  While we
can't prevent ALL problems, we can usually tackle the most likely
ones.

    My original design was based on a discussion I had with Frank da
Cruz of Columbia University (of KERMIT fame) regarding what to
restrict ourselves to in a robust format.  He was "unhappy" with some
of the vulnerabilities of the uuencode and .BOO formats, which while
popular, are not impervious to some "real" problems that have come
up.  We essentially designed an archiving format that was PDP-8
oriented, but not limited to -8s only.  Some of the highlights of the
format are:

a)  File format restricted to "printable" six-bit subset of ASCII
only.  All else ignored; this was to minimize the "garble" factor,
yet maintain a fairly high rate of efficiency: two ASCII characters
equal one PDP-8 12-bit word. (This has proved to be problematic and
is why we are here!)

b)  The archive file contains imbedded commands, not implied ones.
By validating the commands, you can "trust" the contents.  Commands
are available for whatever purpose arises.  Already implemented are
commands to start ("(FILE filename.ext)") and end ("(END
filename.ext)") the imbedded file, and an official comment command
("(REMARK anything)") to help document the contents of the rest of
the file.  This is of course expandable.  My OS/8 programs create all
three types of commands.  The start and end commands also
theoretically allow multiple files in an archive, but I ignore the
end command in the decoder and only allow one file per archive.  I do
support the start command completely, which includes a suggested name
for the file.  This name can be used at the user's option, or can be
locally overridden.  The encoding program inserts the original file
name in this field, as this is of course the most likely name for the
file at the other end.

c)  The archive contains a checksum for its contents to ensure the
validity of the file.

d)  All "white space" character considerations are ignored; imbedded
extraneous space characters, formfeeds, extra CR/LF, etc. are
harmless.  The CR/LF must be present at appropriate intervals, but
this is only a problem with files passed through unix systems that
delete the CR.  Since OS/8 requires the CR and LF to be considered
"printable", this is not a problem;  the use of programs such as
c-KERMIT will insert the CR if configured properly (SET FILE TYPE
TEXT).  Programs such as Rahul Dhesi's FLIP program are available to
correct the problem easily if necessary: FLIP -m *.* or equivalent
will remedy this.

e)  There is an internal record length of 64 characters with framing
characters, to ensure the validity of each record.  This prevents the
file from getting "out of sync" with its original.  This causes each
line to be 68 characters including CR and LF, which is usually
reasonable to most systems.

    Unfortunately, this scheme has proved to be flawed in an
important way that "matters."  This format must deliver files to
OS/278 systems by the prevailing paths of existent systems connected
to DECmates containing only the normally present DEC release
software.  This could include sending the files via DEC-DX through
WPS8, or acquiring the files on either DECmate CP/M-80 or DECmate
MS-DOS, possibly using KERMIT-80, or KERMIT-MS as appropriate.  If a
file is received in the CP/M-80 environment, it can be converted to
WPS8 format using a DEC-supplied program called WPSCONV.  If a file
is received in the MS-DOS environment, it can be converted to WPS8
format using a DEC-supplied program called CONVERT.  Incidentally,
CONVERT can also convert CP/M-80 files as well, using MS-DOS format
as an intermediary;  WPSCONV is known to have bugs, which were
corrected in CONVERT (which requires the MS-DOS hardware, not just
the CP/M-80 hardware).  These CP/M-80 and  MS-DOS files can also come
to the DECmate directly from a Rainbow as well, since the
corresponding Rainbow systems are format compatible with the DECmate.
DECmate MS-DOS additionally supports IBM-PC diskettes (160K or 180K
single-sided only and read-only) as yet another source.  Thus there
are many paths to WPS8 versions of our files.

    The problem with these methods is that apparently there is a bug
in OS/278 WPFLOP, the only distributed conversion program a user
would already have on his OS/278 system. (We haven't actually
isolated the problem to WPFLOP, as the complaining user was taking
the files from MS-DOS via CONVERT then to OS/278 via WPFLOP;
conceivably the problem is in CONVERT, but in any case the problem
exists somewhere in this supported path.)

    The internal encoding used is to break the 12-bit word into two
six-bit halves.  Each half is in the range 00-77 octal.  Adding 041
to the value yields characters in the range of ! through ` or 041
through 140 octal.  The codes for 101-132 are A through Z and can be
replaced by 141-172 for a through z if desired.  This prevents
case-sensitivity which is another possible network anomaly.  We
identified the DECmate problem as an anomaly regarding @ and `.  The
character codes for 100 and 140 are not treated uniquely, so the
resulting OS/278 file is an inaccurate representation of the file.
The decoding program correctly failed the conversion on a checksum
error, so at least the user was aware of the problem!

    As the PDP8-LOVERS, we will hopefully acquire an archive site for
our files, so all of these considerations will apply.  We need a file
format that is "bullet-proof" to avoid problems like this one.  I am
soliciting suggestions for improvements on this encoding scheme (and
any other overall file format suggestions as well) to provide an
effective solution.  The resultant programs will be added to the
KERMIT-12 collection freely distributed by Columbia as well as other
sources (DECUS, etc.).

    Some suggestions have already been made:

1.  Just "quick-fix" the problem by providing an alternate character
to the ` to make it non-anomalous with @.  The available choices are
{ | } and ~ only.  The DEL character (octal 177) is unsuitable for
other reasons; all other characters are either already used, or
unprintable, or lower-case.  This has the advantage of being most
compatible with the existing programs, since the original character
code can be supported as well; the "preferred" character would be
generated by all future versions of the ENCODE program, and existing
files could be trivially edited for compatibility as needed.  This
would have to be tested  -- it is possible that the bug would
persist.  The choice is further narrowed to { and | only, since 175
and 176 are sometimes treated as alternates to ESC.  It is likely
that systems which "mangle" the case of a character which is
alphabetic could also do the same to { | } and ~ making them [ \ ]
and _ respectively.  This makes the entire suggestion unworkable.

2.  Change the format to "Hexafied-ASCII" where each PDP-8 12-bit
word becomes represented by three characters from a 16-character set
such as 0-9,A-F or A-P.  The alphabetic codes would be immune to case
conversion, and virtually every system supports this subset of ASCII.
Instead of 64 characters on a line representing 32 12-bit words, each
line would be 72 characters on a line representing 24 12-bit words
(not counting framing characters and CR/LF).  This also allows for
many additional codes if needed.  This scheme has the drawback of
making the encoded file more inefficient, as the file will generally
be 50% longer than those created by the original six-bit scheme.
This robust scheme is workable.

3.  Modify 2. to include some form of compression.  The easiest is to
incorporate repeat compression.  One simple scheme is to use an
indicator character (R was suggested) as a prefix for an encoded
count.  It could be followed by three characters encoding the value
of the 12-bit word and two characters encoding the value of the
repeat count.  Since this occupies six characters, as does two
adjacent 12-bit encoded words, this scheme saves space when used for
repeat compression lengths greater than two.  The compressed field is
the same length as two compressed "triplets", so overall file
validation techniques wouldn't require special-case checks, as long
as trailing "fill" characters were allowed for the last record before
the short checksum record (which is signalled by its length).  (T was
suggested for this trailer character to be used to pad the last line
with 0-69 characters.) This allows for compressing 3-258 repeated
12-bit words into six characters.  This would benefit files
containing large areas of zeroes or HLT instructions, etc., as this
can be the actual contents of binary files.  If a .BN file created by
PAL8, etc. is loaded and saved, then "junk" areas are created in the
.SV file.  Unfortunately, this is the norm, and the junk increases
the size of the encoded version of the file.  If the .BN file is
loaded AFTER loading an all-zeroes file such as the binary output of:

        *0

        ZBLOCK  7600

        $

or equivalent as necessary (extended memory zeroed if required,
etc.), then the file has all-zeroes gaps in it.  These would repeat
compress out using this scheme.  Incidentally, an additional
advantage of this method is that the resulting "cleaner" core-image
file is slightly easier to disassemble, in case the source is lost.
(Anyone who ever disassembled a .SV file or equivalent understands
what I mean!).  This also makes a binary papertape file (such as a
diagnostic) loaded into a .SV file a little easier to follow when
consulting the write-up, as memory is zeroed in between the locations
referenced in the listing.  The .SV file is smaller when encoded than
the .BN file due to elimination of the paper-tape encoding overhead.
OS/8 files of diagnostics could therefore be more efficiently
archived as .SV files (encoded) than .BN files.

4.  Change to a 5-bit encoding with compression.  This would use 32
codes chosen from A-Z, 0-9 to encode the file five bits at a time per
character.  Five PDP-8 12-bit words would be encoded in 12
characters.  Since PDP-8 binary files are always multiples of 128
12-bit word pages, there would need to be 4.8 "junk words" at the end
of each block to encode the implied length of 130 words/block.  Each
line would be 78 characters (plus framing characters and CR/LF) so
that four lines encodes a PDP-8 page, just as in the original six-bit
scheme (the original scheme used 64 characters per line!).  The last
line of the file would contain 0-77 padding characters as necessary
to maintain the line width as before.  Repeat compression schemes can
be expressed in any way that is a multiple of 12 characters; perhaps
one or two adjacent expressions of repeat compression similar to
above.  Expected efficiency of this scheme is similar to the original
six-bit method, or possibly slightly better; if compression is NEVER
useful, then the file is 1.2 times as large.

    There is an implementation restriction placed on the DECODE
program: it should be relatively short, since it must be distributed
in source form.  It must also be written in a subset of PAL8
compatible with the original PAL8 of the PS/8 days (ugh!) to ensure
viability on any OS/8 family system.  PAL8 Version B0 from OS/278 is
distributed in ENCODed form, so this restriction need not apply to
any other programs such as the ENCODE program or KERMIT-12, etc.  It
has been determined that PAL8 Version B0 and the companion CREF
Version B0 will correctly function on any OS/8 family system on any
PDP-8 member suitably configured to run the operating system the user
already has running. (There is a minor anomaly when using input files
from the TTY: handler; see K12MIT.DOC for a detailed explanation.)
CPU extensions such as BSW and IAC RAL are not present in these
programs, as was the original intention of OS/8 (which eventually was
lost as newer members of DEC's programming staff were ignorant of
this problem!).  It is acceptable to have a "bare-bones" subset of
the DECODE program distributed in "old" PAL8-compatible source form,
along with a "fancier" version written in a more modern PAL8
language, as the binary could then be DECODed with the subset DECODE
program, or the source could be assembled with PAL8 Version B0 to
"bootstrap" the "full" version of the DECODE program as necessary.

    For those of you who can't wait, and want these utilities as they
stand (using the fallible six-bit method), they are available via
anonymous FTP from Columbia University (watsun) as
/w/kermit/d/k12dec.pal and /w/kermit/d/k12enc.pal for the DECODer and
ENCODer respectively.  More information is available in
/w/kermit/d/k12mit.doc or /w/kermit/d/k12mit.pal regarding use of
PAL8 Version B0, other assemblers (such as PAL10 or P?S PAL) or other
KERMIT-12 issues, etc.

Charles Lasner (lasner@cunixf)
cjl

------------------------------

Date: Fri, 4 May 90 13:55:02 EDT
From: Charles Lasner <lasner@watsun.cc.columbia.edu>
Subject: Kermit-12 problems

    If the release files of KERMIT-12 are brought to DECmate MS-DOS
via any of the various paths that can be used (such as from a Rainbow
in either CP/M RX50 or MS-DOS RX50 format, etc.; in this particular
case the reporting user obtained them using IBM-PC SSDD 180k 5-1/4"
PC-DOS format.) then the files are available as DECmate II MS-DOS or
CP/M-80 files on one of its standard devices (a:,b:,c:,d: floppies or
e:,f:,g:,h: hard disk volumes).

    The ultimate goal is to get these files (un-scathed!) to DECmate
II OS/278 for KERMIT-12 installation.  The standard DEC CONVERT
program alledgedly can convert any combination of MS-DOS or CP/M-80
or WPS/8 from/to each other.  By converting the files to WPS/8
documents, the files can be translated to OS/278 later (using the
OS/278 WPFLOP utility).

    There is a problem with DEC's CONVERT.EXE: it only CORRECTLY
supports Rainbow/DECmate RX50 MS-DOS and CP/M diskettes, so the other
formats (8" CP/M-80 diskettes and one-sided PC diskettes) have to be
pre-converted with the appropriate copy commands to a supported
diskette or hard disk volume first before using CONVERT.  This is not
a big problem, as we are merely using standard procedures, but the
point is that much of this is undocumented or obscure.  (I had to
help the reporting user to copy his files to a "friendlier" device
for CONVERT's benefit which only delayed our discovery of the REAL
problem!)

    The CONVERT program alledgedly supports ASCII/WPS format
conversion from/to any of MS-DOS, CP/M-80, or WPS/8 (but only on
a:,b:,c:,d:,e:,f:,g:,h: logical drives, not on the other hardware or
media possibly hooked up to the DECmate!).  Our purpose is to move
the K12MIT files to WPS/8 format.  This can be attempted with
standard commands of CONVERT, but there apparently is a bug:

    When you boot to OS/278 and retrieve the WPS/8 documents (via
WPFLOP) which are the ENCODed files of KERMIT-12 as OS/278 files,
there is a character anomaly between two encoding characters
(specifically @ and `) that destroys the integrity of the affected
file.  This is possibly due to a bug in OS/278 WPFLOP, but more
likely is a problem with MS-DOS CONVERT.  Regardless of the
perpetrator, this path is not viable to obtain the ENCODed files of
the KERMIT-12 release.

    Fortunately, the source files are not affected, as the anomalous
characters are not part of the PDP-8 assembly language, and only
comments could be affected. (As far as I can tell, there aren't any
affected characters even in the comments!) It is therefore necessary
to assemble KERMIT-12 directly from the sources when installing it on
the DECmate II if obtaining it via any path which includes
CONVERT/WPFLOP.  The other ENCODed files are for PAL8 Version B0 and
CREF Version B0 which are already present on the DECmate II as part
of the standard release of OS/278 for the DECmate II and are thus
superfluous.  All ENCODed files can be recreated from OS/278 itself
using the sources, etc., so the intended release files can be
recreated for distribution to other OS/278 sites (bypassing the
CONVERT/WPFLOP path).  Future versions of the DECODE program will
obviate this problem when an appropriate alternative format is
supported properly which is immune to DEC's glitch.

    A related problem surrounds the GLOBAL TECO macro K12GLB.TEC (aka
GLOBAL.TEC).  Due to the "delicate" nature of TECO macros, they could
get "mangled" by the time they get to a user site.  Future releases
of KERMIT-12 will "protect" the macro by ENCODing it into K12GLB.ENC.
It has also been reported that there are problems running the macro
on certain releases of OS/8 family TECO and on other TECOs for other
machines, and also problems running certain versions of OS/8 TECO on
the DECmates.  The author will investigate this problem eventually,
but the main usage of the macro is for KERMIT-12 source maintainence
on an OS/8 V3D system using the corresponding version of TECO; it is
beyond the scope of KERMIT-12 development to investigate the myriad
releases of TECO and their hardware and operating system
dependencies; perhaps some TECO hackers can assist us!

    An obscure problem indeed!  Users give good feedback...

   Can you suggest a fix for the CONVERT/WPFLOP-induced corruption?
One is to allow the current format as a subset, but use a
substitution character for the garbled character.  Our character set
is the 64 characters from ! through `, so the anomalous occurrences
of @ are problematic.  If we change the preferred character for ` to
a lower-case letter (only octal 141 up is available, so let's assume
the use of a) we avoid the CONVERT/WPFLOP problem.  Newer released
ENCODed files would then be immune to the treachery, but would
require the newer DECODing program (or use TECO to change all
occurrences of a to ` and then use the old DECODE program).

    Should we abandon this inner format altogether?  We could use an
even more robust format like ASCII hex: 0-9 and A-F (allowing a-f as
well!) at the expense of longer files (currently 2 characters=12
bits, but would become 3 characters=12 bits).  This would also hold
up better through EBCDIC network conversion...

cjl

/	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.
/	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.
/	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.) 
/	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.
/	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.
/	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.
/	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 EXIT ROUTINE 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.
/	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.
/	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.
/	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.
/	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.
/	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
/	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.
/	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.
/	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!)
/	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.)
/	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.
/	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.
/	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>.
/	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.
/	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.
/	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).
/	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.
/	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.
/	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.
/	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.
/	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

					>
/	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
/	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=	0177>	/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
/	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
/	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
/	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
/	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]
/	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
/	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)