14 /COPYRIGHT (C) 1973, 1975, 1977
15 /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
19 /THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
20 /SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-
21 /SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANT OTHER
22 /COPIES THEREOF, MAY NOT BR PROVIDED OR OTHERWISE MADE AVAILABLE
23 /TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
24 /AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
25 /SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
28 /THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
29 /NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
30 /EQUIPMRNT COROPATION.
32 /DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
33 /SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
42 /DIGITAL EQUIPMENT CORP.
125 CIF 10 /START OF PROG
158 JMS I TYPTXT /IF /V,TYPE VERSION NUMBER
186 CLA CLL CMA RAR /=3777
187 AND I (7642 /HI EQUALS N
206 TAD (MODTBL-1 /GET NEW MODE
314 TAD [200 /FORCE BIT 8 ON
346 JMS I RDPBLK /GET 1ST PBLK
363 SZA CLA /RDING A PATCH?
365 TAD (ENTER /ENTER=NO PATCH
380 JMS I (ICHKB /SEE IF WE GOT
382 LOP3, TAD SBLK /ABS STR BLK
400 TAD ERCODE /EOT IS ONLY
408 JMP I GETCD /PATCH MODE
462 JMP I (PTIN /PTAP INPUT
474 SNA CLA /PUNCH PATCH ?
477 TAD EQBLK /CHK FOR =N
478 TAD FLEN /OUT OF RANGE
488 DCA BLKR /1ST BLK TO PCH
489 TAD TMP0 /PUT REL BLK
496 DCA I TMP3 /0 TO LST HDR
498 TAD PATFLG /ONLY 1 BLK
513 LOP1, JMS I HANADR /READ 1 BLK
529 JMS EOT /PHYSICAL END
563 PREAD, 0 /READ A PTP BLK
570 RAR CLL /201 PCH MUST
571 SNA CLA /SEPARATE L/T
574 TAD (-377 /ONLY OTHER
575 TAD INCHR /POSSIBILTY IS
581 JMP I PREAD /P+1=ERR RTN
645 /HERE TO PACK 3 8 BIT FRAMES INTO
654 TAD I FRMPTR /PUT HI HALF OF
655 RTR CLL /2ND FRM INTO
659 TAD HOLDW2 /PUT 1ST FRM IN
660 AND (7 /B0-B7,AND PUT
661 TAD I BUFPTR /HI HALF OF 2ND
663 DCA I BUFPTR /YOU AINT SEEN
664 TAD I BUFPTR /NOTHING YET.
666 TAD HOLDW2 /LO HAF OF 2ND
668 ISZ FRMPTR /B0-B3. PUT
669 TAD I FRMPTR /WITH 3RD FRM
685 PWRITE, 0 /HERE TO WRITE
689 TAD (201 /START OF DATA
727 TAD I BUFPTR /PUT 2 WORDS IN
728 RTR CLL /3 8 BIT FRMS
736 AND (7400 /TO B0-B3 OF
745 TAD I BUFPTR /PUT B0-B3
755 TAD OUTCHR /=CHR JST PCHED
758 AND (377 /LO 8 OF 2ND
777 /HERE TO COMPUTE PARITY (EVEN ODD)
778 /12 BIT WORD IS IN AC.
779 /AFTER EACH (SPA,CML,RAR) SEQUENCE
781 /NUMBER OF ALREADY PROCESSED 1
782 /STATE BITS IS EVEN. OTHERWISE AC B0=1.
786 TAD (-13 /-13 BECAUSE 2
803 CMA RAL /SET LNK=1=EVEN
805 TAD PARCHR /UPDATE PARITY
917 /HERE TO SEE IF WE READ THE CORRECT
918 /BLK OF THE CORRECT FILE.
921 TAD PATFLG /DONT CHK IF
922 SZA CLA /IN PATCH MODE
929 TAD DATBUF /COMPARE NAMES
945 JMP I ICHKB /GOOD BLK
973 /COURTESY OF MARIO S. ROOT
974 /COUSIN TO MARIO LEONARD
1032 /CHK FOR MASTER INPUT DEVICE ONLY
1043 TAD I NDX0 /MUST HAVE NO
1044 SZA CLA /OTHER IN DEVS
1048 CLA CMA /MI ONLY SET
1049 BY1, DCA MIFLG /MI FLAG
1054 DOUSR, 0 /HERE TO DO A
1056 TAD NAME /EITHER LOOKUP
1074 USRERR, JMS I TYPTXT
1104 TAD I CHKP37 /P37 ADDR
1111 DCA TMP3 /ENTRY LEN-1
1114 DCA TMP2 /-NUM TO DO
1121 TAD NDX0 /ADV PTR TO NXT
1128 JMP BY0 /YES USE SET OF
1137 TAD I NDX0 /NEW UNIT
1139 DCA I NDX1 /0 TO SBLK
1147 /ROUT TO INTERPRET PS/8 SWITCHES
1150 TAD I SWITCH /PTR TO TBL
1158 JMP I SWITCH /NONE TO READ
1162 DCA TMP1 /PTR TO FLAG
1166 TAD I TMP0 /AC=P37 SW ADDR
1167 ISZ TMP0 /=PTR TO MASK
1170 JMP XLOP0 /NO DO NXT
1173 AND I TMP0 /CLR NON SWITCH
1200 TAD I DVPTR /PUT NUM BLKS
1217 ISZ READ /NON ERR RTN
1238 JMS I (LSPPCH /BACK ARROW
1254 TAD I TMP0 /IS HANDLER IN
1262 TAD (6001 /ENABLE 2 PG HANDLERS
1274 FETERR, JMS I TYPTXT
1293 COMPAR, JMS I RDSWIT
1399 /FILE EDITOR FOR OS/8.
1439 GOTCMD, JMS I CMDTBL-1
1465 C, 0 /STATUS COMMAND
1491 GETC, 0 /GET AN INPUT
1507 G6BIT, 0 /8 TO 6 BIT
1531 GOCTAL, 0 /GET OCTAL DIGIT
1566 DCA TMP0 /=REL BLK TO DO
1607 EX, 0 /EXIT TO DECODE
1618 GINP, 0 /GET KBRD INPUT
1646 TRYRUB, TAD (225-377
1753 LOP18, JMS I (GETWRD
1800 DLTBL, -6260 /DEVICE LENGTHS
1801 -6260 /FOR UNITS 1-17
1912 EOTMSG, TEXT "END OF TAPE "
1914 NTMSG, TEXT "ENTER NEXT "
1916 BIGMSG, TEXT "IS TOO BIG FOR "
1918 PARMSG, TEXT "PARITY ERROR "
1920 LTMSG, TEXT "L/T ERROR "
1924 IOMSG, TEXT "I/O ERROR "
1928 FMSG, TEXT "FOUND: "
1930 BEQMSG, TEXT "BAD =BLK"
1941 HDATA, 0 /TYPE (HOLDS
1953 MTHREE=7346 /CLA CLL CMA RTL
1954 MTWO=7344 /CLA CLL CMA RAL
1955 TWOK=7332 /CLA CLL CML RTR
1956 FOURK=7330 /CLL CML CLA RAR