File F1116.PA (PAL assembler source file)

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

INTSAV=6227
LCSAV=352
PRC=353
PRGNM=354
UFIL0=357
STSX=364
INTX1=347

*0 COMP, JMP I AINE TAPE, 0 INITLD, 1 ENDINT, 0 LRST, 0 SYSERR, SYE SYSIOE, SYI SYSPRG, SYP *11 X1, 0 X2, 0 X3, 0 X4, 0 X5, 0 *20 FINAME, 0 0 0 FISIZE, 0 FITYPE, 0 SEGMNT, -400 SRSIZE, 0 DEVSTS, -1 BF1PTR, 0 BF2PTR, 0 BFSIZE, 0 FINFBL, 0;0;0;0;0;0;0 HIGH, 0 ICHCH, 0 LAST, 0 LOW, 0 P0VEC, 0;0;0;0;0 SEGSPB, 0 TEMP1, 0 TEMP2, 0 TEMP3, 0 TEMP4, 0 TEMP5, 0 TEMP6, 0 TXBLIM, 0 PROTX, 0 TXBPTR=X5 WDCNT, 0 SIXBIT, 0 /! ! ! NOTE ! ! ! /ANY CHANGES MADE FROM HERE ON IN PAGE ZERO /MUST ALSO BE MADE TO THE TABLE WHICH BEGINS /AT LOCATION 3777 (FBUF1) PG0DAT=. ACPF, CPF AEDT, EDT AEDT20, EDT20A AEDT60, EDT60 AFINF, FINFBL AIBN, IBN AICH, ICH AIFN, IFN ALDC, LDC AMOV, MOV APFL, PFL ARFL, RFL ARLT, RLT ARWD, RWD AWEF, WEF AWFL, WFL AWIF0, WIF0 AWIF, WIF AWOF, WOF SEND=JMS I .; TEXTO PSTSX, STSX OPEN2=JMS I .; OP2 CRLF=JMS I .; OCR PPRGNM, PRGNM BIT2, 1000 BIT4, 200 BIT5, 100 BIT8, 10 BIT10, 2 K7400, 7400 COPY01, COPY+3 RLTATB, TXBUF-1 K2=BIT10 K3, 3 KM3, -3 KM4, -4 KM5, -5 K7, 7 KM53, -53 K10=BIT8 K12, 12 K17, 17 K32, 32 K37, 37 KM37, -37 KM20, -20 K77, 77 K177, 177 K1100, 1100 K1300, 1300 KM12, -12 K5, 5 K6, 6 KM24, -24 K40, 40 KM143, -143 K617, 617 K55, 55 K53, 53 K137, 137 K100=BIT5 K101, 101 K200=BIT4 K201, 201 K240, 240 KM240, -240 KM272, -272 K260, 260 K3737, 3737 K3776, 3776 KA0=K260 KBLANK=K240 KHIBYT, 7700 KLOBYT=K77 KM3777, -3777 K4002, 4002 AINE, INE KM2, -2
/SYSTEM EQUATES CHKFOP=JMS I SYSIOE COPYFL=JMS I ACPF EDITOR=JMP I AEDT20 EDSTRT=JMP I AEDT ERR12=JMP I AEDT60 GETNXI=JMS I AWIF GETWD=JMS I AWIF0 INPBIN=JMS I AIBN INPCH=JMS I AICH INPFNM=JMS I AIFN IO02=CLA IAC IO11=TAD K100 IO12=TAD K101 IO22=TAD K201 LOADCB=JMS I ALDC MOVE=JMS I AMOV POSFIL=JMS I APFL PUTWD=JMS I AWOF RDFILE=JMS I ARFL RDTEXT=JMS I ARLT REWIND=JMS I ARWD WRFILE=JMS I AWFL WRTEOF=JMS I AWEF
*200 SYE, 0 CLA TAD I SYE DCA 10 CLA IAC JMP SYP SYI, 0 SNA JMP I SYI TAD SK400 SNA CLA JMP SYI6 TAD XSW SNA CLA JMS SYE 0 SABORT, JMS STSX DMES-DMEN DMES-1 CLA CMA CLOS HLT JMP .-1 SYI6, TAD XSW DCA ABSW JMS SYE 40 XSW, -1 ABSW, 0 DMES, 212;"A;"B;"O;"R;"T DCRLF, 215;212;"^;"C DMEN=DCRLF+2
/SYSTEM PROGRAM CALL CRC, TAD SKSAS DCA SASOP JMS STSX -4 DCRLF-1 TAD C617 KSB TAD LRST SMA SZA CLA WRTEOF SYP, CMA CLL DCA TEMP1 DCA LRST DCA TAPE DUP TAD SYPTBA DCA X1 DCA SYPIOB+1 TAD SK400 JMP SYP2 SYP1, SNA ISZ X1 CLL TAD SYPIOB+5 SZL ISZ SYPIOB+1 SYP2, DCA SYPIOB+5 TAD I X1 ISZ TEMP1 JMP SYP1 SNA TAD I X1 CIA DCA SYPIOB+3 TAD SYPKF DCA SYPIOB+4 CLA CMA DCA XSW TAD SYPIOB RFILE TAD SYPIOB+6 CHKFOP DCA XSW JMP I SK400 SK400, 400 SKSAS, SAS C617, 617 SYPIOB, .+1 0 3 0 0 0 0 SYPKF, 377 SYPTBA, . 0 EDTX1, END-400 TOPOFCORE-400 5004 544 243 0 1000 INTX1, INTSAV-400 760 *352 LCSAV, 0 PRC, 0 PRGNM, 0 0 0 UFIL0, 0 0 0 0 0 /OUTPUT ROUTINE STSX, 0 TAD I STSX DCA SYPIOB+3 ISZ STSX TAD I STSX DCA SYPIOB+4 ISZ STSX TAD SYSPT SASOP, SAS JMP .-2 JMP I STSX SYSPT, SYPIOB+3
*400 /EDITOR CONTROL PROGRAM JMP I .+1 INE50S EDT, TAD COMP SPA CLA JMP EDT5 REWIND TAD COPY01 COPYFL EDT5, REWIND IO11 RDFILE LOADCB IAC DCA I P0VEC+4 EDT20A, TAD DEVSTS AND K10 SZA CLA JMP EDT20C TAD BIT2 CLOS EDT20C, CLA IAC AND DEVSTS SZA CLA JMP EDT20D TAD K4002 REL EDT20D, STA DCA DEVSTS SEND; READY JMP EDT20B EDT20, SEND;RETURN EDT20B, RDTEXT EDT25X, DCA PROTX EDT25, INPCH JMP EDT20 JMP EDT25 JMP EDT60 JMP EDT60 JMP EDT26 CLA TAD TAPE SNA CLA CRLF TAD COMP SPA CLA JMP EDXER INPBIN DCA LOW POSFIL GETWD CIA TAD LOW SNA CLA EDT45, GETNXI SZA JMP EDT45 TAD ICHCH SZA CLA JMS I EDTLTO ISZ PROTX JMP EDT20B JMP EDT20A EDT26, DCA TEMP1 TAD TXBPTR DCA X1 TAD I X1 DCA TEMP2 TAD I X1 DCA TEMP3 TAD EDTP1 DCA X1 EDT27, TAD KM3 DCA TEMP4 TAD PTEMP1 DCA X2 DCA TEMP5 EDT27A, TAD I X1 SNA JMP EDT60 TAD I X2 AND K177 SZA CLA ISZ TEMP5 ISZ TEMP4 JMP EDT27A TAD I X1 DCA TEMP4 TAD TEMP5 SZA CLA JMP EDT27 TAD COMP SMA CLA JMP EDT28 TAD EXCHK TAD X1 SPA CLA JMP EDT28 EDXER, SEND;EFM JMP EDT20A EDT28, INPCH JMP EDGO JMP EDGO JMP EDT60 JMP EDT60 JMP EDT28 EDT60, SEND; EDWHAT JMP EDT20B EDTLTO, LTO EDGO, CLA JMP I TEMP4 EDTP1, EDTTB1-1 PTEMP1, TEMP1-1 EXCHK, -EXFOK /COMES HERE ON A TAPE COMMAND TAPIT, CLA IAC DCA TAPE UND JMS I PSTSX -3 CRLFM-1 JMP EDT20A
PAGE /CONVERT BINARY TO ASCII CBA, 0 DCA TEMP1 TAD CBAATB DCA TEMP2 STA DCA TEMP3 TAD KM4 DCA TEMP4 TAD CBATXP DCA TEMP5 TAD KBLANK DCA TEMP6 CBA5, TAD TEMP6 DCA I TEMP5 CBA7, CLA TAD TEMP1 TAD I TEMP2 SPA JMP CBA15 DCA TEMP1 ISZ TEMP3 JMP CBA10 TAD KA0 DCA TEMP6 TAD KA0 DCA I TEMP5 CBA10, ISZ I TEMP5 JMP CBA7 CBA15, CLA ISZ TEMP2 TAD TAPE SNA CLA JMP CBA15A TAD TEMP3 SMA CLA CBA15A, ISZ TEMP5 ISZ TEMP4 JMP CBA5 CLA CMA TAD TEMP5 DCA TXBPTR JMP I CBA -1750 -144 -12 -1 CBAATB, .-4 CBATXP, TXBUF
/CHARACTER EDIT FUNCTION EDIT, INPCH JMP EDERR1 JMP EDIT JMP EDERR1 JMP EDERR1 JMP EDERR1 INPBIN DCA LOW TAD ICHCH SZA CLA JMP EDERR1 POSFIL GETWD CIA TAD LOW SNA CLA JMP EDIT1 SEND;EDEM2 EDITOR EDERR1, SEND;LNEM EDITOR EDIT1, CLA CLL CML RAR KSB GETNXI PUTWD CLA IAC DCA TAPE TAD LOW JMS CBA DCA TAPE DUP CLA CMA DCA TEMP5 TAD (TXBUF-3 JMP I .+1 EDIT2
/COPY INPUT TO OUTPUT CIO, 0 DCA CIOLIM CIO5, GETWD CIA TAD CIOLIM SPA SNA CLA JMP CIO15 GETNXI DCA LAST TAD LAST PUTWD CIO10, GETNXI DCA CIOWD TAD CIOWD PUTWD TAD CIOWD SZA JMP CIO10 JMP CIO5 CIO15, JMP I CIO CIOLIM, 0 CIOWD, 0
/DELETE DIRECTIVE DEL, 0 JMS I DELSLD POSFIL DEL5, GETWD CIA TAD HIGH SPA EDITOR DEL15, GETNXI SZA JMP DEL15 JMP DEL5 DELSLD, SLD READY, TEXT /__READY__/ RETURN=READY+4
PAGE /INPUT A CHARACTER ICH, 0 CLA DCA ICHCH TAD I TXBPTR AND K177 TAD K200 DCA TEMP1 TAD TXBLIM CIA TAD TXBPTR SMA SZA CLA JMP ICH50 STA DCA ICHCH ISZ ICH TAD KM240 TAD TEMP1 SNA CLA JMP ICH50 STA CLL RAL DCA ICHCH ISZ ICH TAD KMCOM TAD TEMP1 SNA CLA JMP ICH50 TAD TEMP1 DCA ICHCH ISZ ICH TAD ICHCH TAD KM272 CLL TAD K12 SNL JMP ICH10 ISZ ICH ISZ ICH ICH10, TAD KM53 CLL TAD K32 SZL CLA ISZ ICH ICH50, TAD ICHCH JMP I ICH KMCOM, -254
/INPUT FILE NAME IFN, 0 DCA X1 STA CLL RTL DCA IFNCNT STA TAD TXBPTR DCA TXBPTR IFN10, JMS IFNGCH CLL RTL RTL RTL DCA IFNWD JMS IFNGCH TAD IFNWD DCA I X1 ISZ IFNCNT JMP IFN10 IFN20, INPCH SKP JMP IFN20 ISZ IFN NOP NOP IFN30, CLA JMP I IFN /SUBROUTINE TO GET TSS8 SIXBIT CHARACTERS FOR IFN IFNGCH, 0 INPCH JMP IFNEX JMP IFNEX JMP IFNEX JMP IFNEX NOP TAD KM240 JMP I IFNGCH IFNEX, STA TAD TXBPTR DCA TXBPTR JMP I IFNGCH IFNCNT, 0 IFNWD, 0
/OUTPUT MESSAGE IN TEXT FORMAT /"_" MEANS CRLF TEXTO, 0 CLA TAD I TEXTO DCA TEMP1 ISZ TEXTO TAD TAPE SZA CLA JMP I TEXTO TAD TEXTP DCA TXBPTR DCA TEXTC JMP TEXTS TEXTT, JMS I TEXTL ISZ TEMP1 TEXTS, TAD I TEMP1 RTR CLL RTR RTR TAD SIXBIT AND KLOBYT SZA JMS I TEXTL TAD I TEMP1 TAD SIXBIT AND KLOBYT SZA JMP TEXTT TAD TEXTC CIA DCA TEXTC JMS I PSTSX TEXTC, 0 TEXTP, TXBUF-1 JMP I TEXTO TEXTL, LSTC
PAGE /LLIST DIRECTIVE LLST, STA DCA TAPE /LIST DIRECTIVE LSTX, DCA I PTEXTC JMS I LSTSLD TAD LOW SMA CLA JMP LST5 DCA LOW TAD K3776 DCA HIGH LST5, POSFIL GETWD TAD KM3777 SNA CLA JMP LST30 TAD TAPE SMA SZA CLA JMS LINULL TAD TAPE SMA CLA JMP LST10 DCA TAPE TAD K4002 ASD SZA CLA ERR12 STA CLL RAL DCA DEVSTS TAD KLST DCA I KSASOP JMS I PSTSX -2 FFCRM-1 LST10, GETWD DCA LSTWD TAD LSTWD CIA TAD HIGH SPA CLA JMP LST30 GETNXI JMS I LSTCBA TAD LSTWD DCA LAST TAD LSTWD PUTWD LST20, GETNXI DCA LSTWD TAD LSTWD PUTWD TAD LSTWD SNA JMP LST25 RTR RTR RTR JMS LSTC TAD LSTWD JMS LSTC JMP LST20 LST25, CLA TAD TXBPTR CIA TAD LSTCB+2 DCA LSTCB+1 LSTCB, JMS I PSTSX 0 TXBUF-3 JMP LST10 /LIST SERVICE SUBROUTINE LSTC, 0 AND KLOBYT TAD KM37 SNA JMP LSTCRF SPA TAD K100 TAD K237 LSTC1, DCA I TXBPTR ISZ I PTEXTC K237, 237 JMP I LSTC /TYPE CR-LF LSTCRF, TAD K215 DCA I TXBPTR ISZ I PTEXTC TAD K212 JMP LSTC1 LSTSLD, SLD LSTCBA, CBA LSTWD, 0 FFCRM=. 214 CRLFM=. K215, 215 K212, 212 221 LST30, TAD TAPE SNA SPA CLA JMP LLSTEN CRLF JMS LINULL EDITOR LINULL, 0 TAD KHIBYT DCA TXBPTR TLS ISZ TXBPTR JMP .-2 JMP I LINULL LLSTEN, KSAS DCA I KSASOP KEYIT, DCA TAPE DUP EDITOR KSASOP, SASOP KSAS, SAS KLST, LST PTEXTC, TEXTC
/RUN DIRECTIVE RUN, TAD COMP SZA CLA JMP RUNC WRTEOF STA CLL RAL RUNC, TAD K4 JMP I SYSPRG K4, 4
PAGE /LINE OF TEXT TO OUTPUT LTO, 0 TAD LOW DCA LAST TAD LOW PUTWD STA TAD TXBPTR DCA TXBPTR LTO10, JMS LTOGCH JMP LTO30 CLL RTL RTL RTL DCA LTOWD JMS LTOGCH JMP LTO20 TAD LTOWD PUTWD JMP LTO10 LTO20, TAD LTOWD TAD K40 PUTWD LTO30, PUTWD JMP I LTO LTOGCH, 0 TAD TXBPTR CIA TAD TXBLIM SNA CLA JMP I LTOGCH ISZ LTOGCH TAD I TXBPTR AND KLOBYT JMP I LTOGCH LTOWD, 0
/POSITION FILE PFL, 0 CLA TAD LOW CIA TAD LAST SPA CLA JMP PFL10 WRTEOF TAD COPY01 COPYFL REWIND IO11 RDFILE LOADCB IAC DCA I P0VEC+4 PFL10, TAD LOW JMS I PFLCIO PFL25, JMP I PFL PFLCIO, CIO
/COPY FILE CPF, 0 DCA CPFT1 TAD I CPFT1 TAD CPFB DCA CPF15 TAD I CPFT1 LOADCB ISZ CPFT1 TAD I CPFT1 DCA FINFBL TAD I P0VEC+4 DCA CPFT1 TAD FINFBL LOADCB TAD I P0VEC+3 CIA TAD CPFT1 SPA SNA JMP CPF10 DCA FINFBL+1 TAD AFINF EXT SPA SNA JMP .+3 CLA TAD K7400 CHKFOP TAD FINFBL+1 TAD I P0VEC+3 DCA I P0VEC+3 CPF10, CLA TAD I P0VEC+3 DCA I P0VEC+4 STA TAD FINFBL SZA CLA JMP CPF12 TAD I P0VEC+3 DCA SRSIZE CPF12, TAD FINFBL TAD CPFB DCA CPF20 REWIND CPF15, 0 RDFILE SZL JMP I CPF CPF20, 0 WRFILE JMP CPF15 CPFB, TAD .+1 0001 0101 0201 CPFT1=TEMP3
/ROUTINE TO OPEN FILE 2 OP2, 0 STA DCA DEVSTS TAD OP2PTR OPEN SZA JMP I OP2 TAD KM11 DCA DEVSTS ISZ OP2 JMP I OP2 OP2PTR, FL2CB KM11, -11 EDWHAT, TEXT /_WHAT?__/
PAGE /READ LINE INTO TEXT BUFFER RLT, 0 RLT5, CLA TAD KM125 DCA TEMP1 TAD RLTATB DCA TEMP2 RLT10, TAD RLTCB KSR TAD TEMP1 SZA CLA JMP RLT10A SEND;RLTL CLA STL RTR SBC JMP RLT28 RLT30, CLA CMA RLT10A, TAD I TEMP2 JMS RLCHAR JMP RLT15 JMP RLT15 JMP RLT35 JMP RLT30 JMP RLT30 JMP RLT28 JMP RLT27 JMP RLT15 JMP RLT10X RLT15, ISZ TEMP1 ISZ TEMP2 RLT27, TAD TEMP1 TAD KM2 DCA TEMP1 TAD TEMP2 TAD KM2 DCA TEMP2 TAD TEMP1 TAD K125 RLT10X, SMA CLA JMP RLT10 RLT28, CRLF JMP RLT5 RLT35, STA TAD TEMP2 DCA TXBLIM TAD RLTATB DCA TXBPTR JMP I RLT K125, 125
KM125, -125 RLTCB, TEMP1
/ROUTINE TO CHECK CHARCTER IN AC /AGAINST VARIOS POSSIBLITIES RLCHAR, 0 AND K177 JMS RLEXIT TAD KM12 JMS RLEXIT TAD KM3 JMS RLEXIT IAC JMS RLEXIT TAD K5 JMS RLEXIT TAD KM24 SZA TAD KM143 SZA IAC SNA JMP RLALT ISZ RLCHAR TAD KM2 SNA JMP RLRB TAD K40 JMS RLEXIT CLL TAD K77 SNL JMP RLILL TAD K240 RLXRB, ISZ RLCHAR JMP I RLCHAR /TYPE "$ DELETED" FOR ALTMODE RLALT, JMS I PSTSX -13 DALTM-1 JMP I RLCHAR RLRB, TAD TAPE SZA CLA JMP RLXRB TAD K137 JMP RLIL1 RLILL, CLA TAD K7 TLS RLIL1, TLS SKP CLA RLEXIT, 0 SNA JMP I RLCHAR ISZ RLCHAR JMP I RLEXIT
/REWIND RWD, 0 CLA TAD RWDCBA DCA X1 STA CLL RTL DCA TEMP1 RWD5, DCA I X1 DCA I X1 DCA I X1 ISZ X1 ISZ X1 ISZ TEMP1 JMP RWD5 STA TAD SEGMNT DCA WDCNT TAD RWDP1 DCA BF1PTR TAD RWDP2 DCA BF2PTR STA DCA LAST JMP I RWD RWDCBA, FL0DCB-1 RWDP1, FBUF1-1 RWDP2, FBUF2-1
PAGE /COMPILE DIRECTIVE COM, DCA RSSWT CLA CMA JMP SAV1 /SAVE DIRECTIVE AND REPLACE DIRECTIVE REP, CLA CMA SAV, DCA RSSWT SAV1, DCA KCMP WRTEOF TAD K2 LOADCB CLA CMA DCA PROTX TAD KM3 MOVE FINAME-1 SAVAN2, FL2NM-1 DCA FITYPE SAV5, INPCH JMP SAV30 JMP SAV5 JMP ERR11 JMP SAV5A NOP SAV15, CLA TAD SAVAN2 INPFNM JMP SAV5A-1 SAV30, TAD ICHCH SZA CLA JMP ERR11 OPEN2 JMP SAV20 ISZ RSSWT JMP SAV25 TAD K2 DCA FINFBL JMS SCRED TAD PROTX SMA CLA JMP SAV30A TAD FINFBL+5 AND K37 DCA PROTX SAV30A, ISZ KCMP JMP SAV30B TAD PROTX TAD K1300 DCA COMP CLA STL RTL JMP I SYSPRG SAV30B, CLA IAC DCA I P0VEC+3 TAD SAVCPY COPYFL TAD PROTX TAD K1100 PROT EDSTRT TAD ICHCH SAV5A, TAD (-"< SZA CLA JMP ERR11 SAV5B, TAD I TXBPTR AND K177 TAD (-76 SNA JMP SAV5C TAD K6 CLL TAD BIT8 SNL JMP ERR11 DCA TEMP1 TAD PROTX SPA CLA RTL CLL RAL TAD TEMP1 TAD KM37 SMA SZA JMP ERR11 TAD K37 DCA PROTX JMP SAV5B SAV5C, INPCH JMP SAV30 JMP SAV5C JMP ERR11 JMP ERR11 JMP ERR11 JMP ERR11 SAV25, SEND;DFNM EDSTRT SAV20, CLA CMA DCA RSSWT TAD (FL2NM CRF SNA CLA JMP SAV30 ERR11, SEND;BFNM EDITOR SAVCPY, COPY RSSWT, 0 KCMP, 0 /REDUCE FILES TO JUST ONE SEGMENT SCRED, 0 TAD AFINF FINF CLA CMA TAD FINFBL+6 SPA SNA JMP SCRED1 DCA FINFBL+1 TAD AFINF RED SCRED1, CLA TAD FINFBL LOADCB CLA IAC DCA I P0VEC+3 JMP I SCRED
PAGE /SECOND PAGE OF EDIT VERB EDIT2, DCA EDST JMS EDTYP TAD TXBPTR DCA TXBLIM EDALT, TAD TXBLIM DCA TXBPTR EDSCN, TAD K53 JMS TYTYP KRB AND K177 DCA PROTX TAD K55 JMS TYTYP EDSCN0, TAD TXBPTR DCA EDST TAD TEMP4 ISZ TEMP5 JMP EDSCN1 CLA CLL CMA RAL DCA TEMP5 GETWD PUTWD GETNXI SNA JMP EDEND DCA TEMP4 TAD TEMP4 RTR;RTR;RTR EDSCN1, AND K77 TAD KM37 SPA SNA TAD K100 TAD K37 CIA TAD PROTX SNA JMP EDFND CIA TAD PROTX JMS EDPUT JMP EDSCN0+2 EDFND, TAD PROTX JMS EDPUT JMS EDTYP EDFND1, KRB JMS I (RLCHAR JMP EDFND1 JMP EDLF JMP EDCR JMP EDSCN0 JMP EDSCN JMP EDALT JMP EDFR JMP EDFND1 JMS EDPUT JMP EDFND1 EDFR, TAD TXBPTR CIA TAD TXBLIM SPA CLA CLA CMA TAD TXBPTR DCA TXBPTR JMP EDFND1 EDCR, JMS EDSOFF JMP EDEND+1 EDLF, DCA PROTX TAD (TXBUF+124 JMP EDSCN0+1 EDEND, JMS EDTYP TAD TXBPTR DCA TXBLIM TAD RLTATB DCA TXBPTR TAD K617 KSB TAD LOW DCA LAST CLA CMA JMP I (EDT25X EDTYP, 0 TAD TXBPTR CIA TAD EDST SMA JMP EDTX DCA EDST-1 JMS I PSTSX 0 EDST, 0 EDTX, CLA JMP I EDTYP EDPUT, 0 DCA I TXBPTR TAD TXBPTR TAD (-TXBUF-124 SPA CLA JMP I EDPUT JMS EDSOFF SEND;RLTL TAD K617 KSB EDITOR EDSOFF, 0 GETWD PUTWD GETNXI SZA CLA JMP EDSOFF+1 JMP I EDSOFF TYTYP, 0 TAD K260 TLS CLA JMP I TYTYP
PAGE /CATALOG DIRECTIVE CAT, WRTEOF SEND;CATHDR TAD CATAFN WHO IAC DCA I CATV1 OPEN2 CHKFOP DCA I CATV1 TAD KM3400 DCA CATWC TAD CATBF DCA CATCA TAD CATCB RFILE TAD CATERR CLL RTR SZA CLA TAD CATERR CHKFOP TAD I CATBAS DCA CATTMP TAD KM200 DCA CATCNT CAT10, CRLF ISZ CATCNT JMP CAT20 EDSTRT CAT20, TAD CATTMP SNA EDSTRT TAD CATBUF DCA CATPTR TAD CATPTR TAD K3 DCA CATPT2 TAD I CATPT2 DCA CATTMP TAD K4040 DCA I CATPT2 TAD K40 DCA SIXBIT SEND CATPTR, 0 DCA SIXBIT TAD CATTMP DCA I CATPT2 ISZ CATPT2 TAD I CATPT2 DCA PRTS TAD PRTS AND K7600 CLL RTR RTR RTR DCA TEMP1 TAD TEMP1 TAD KM24 SMA CLA DCA TEMP1 TAD TEMP1 TAD KEXTS DCA CATEXT TAD TEMP1 SZA CLA TAD KDOT TAD KBLK JMS I (TYTYP SEND CATEXT, 0 ISZ CATPT2 TAD I CATPT2 JMS I (CBA JMS I PSTSX -4 TXBUF-1 TAD K240 TLS TLS TAD PRTS RTR;RAR AND K3 SNA TAD KM20 JMS I (TYTYP TAD PRTS AND K7 JMS I (TYTYP JMP CAT10 PRTS=X4 KEXTS, EXTENS K4040, 4040 KM200, -200 K7600=KM200 KM3400, -3400 CATBUF, FBUF1 CATBF, FBUF1-1 CATBAS, FBUF1+3 CATPT2, 0 CATCNT, 0 KBLK=KM20 KDOT, ".-" CATCB, .+1 0 2 CATWC, -3400 CATCA, FBUF1-1 0 CATERR, 0 CATTMP=CATERR CATAFN, FL2NM CATV1, FL2CB+1
/EXIT ROUTINE BYE, DCA LRST DCA FINFBL CRLF JMS I PBYES JMS I PBYES TAD K7400 CLOS HLT JMP .-1 PBYES, BYES
PAGE /INPUT BINARY NUMBER IBN, 0 CLA TAD ICHCH AND K17 IBN5, DCA IBNBI INPCH JMP IBN10 JMP IBN10 JMP IBN10 JMP IBN10 JMP IBN10 AND K17 DCA TEMP1 TAD IBNBI TAD KM315 SMA CLA JMP IBN30 TAD IBNBI RTL CLL TAD IBNBI RAL TAD TEMP1 JMP IBN5 IBN10, CLA IAC TAD IBNBI SPA CLA JMP IBN30 TAD IBNBI SZA JMP I IBN IBN30, SEND;LNEM EDITOR IBNBI, 0 KM315, -315
/SCAN LIST AND DELETE SLD, 0 STA DCA LOW STA DCA HIGH TAD ICHCH SNA JMP I SLD SLD5, INPCH JMP I SLD JMP SLD5 JMP SLD10 ERR12 ERR12 INPBIN DCA LOW TAD LOW DCA HIGH TAD ICHCH SNA JMP I SLD SMA ERR12 SLD10, INPCH JMP I SLD JMP SLD10 ERR12 ERR12 ERR12 INPBIN DCA TEMP1 TAD LOW CIA TAD TEMP1 SPA CLA JMP SLD20 TAD TEMP1 DCA HIGH JMP I SLD SLD20, TAD TEMP1 DCA LOW JMP I SLD
/UNSAVE UNS=. UNS5, INPCH JMP I (ERR11 JMP UNS5 JMP I (ERR11 JMP I (ERR11 NOP STA TAD UNSAFN INPFNM JMP I (ERR11 OPEN2 JMP UNS7 CLL CLA CML RTL DCA FINFBL JMS BYES UNS7, SZA CLA JMP UNS31 STA DCA DEVSTS TAD ICHCH SNA CLA EDITOR JMP UNS5 UNS31, SEND;UNSM JMS TYNAM EDITOR TYNAM, 0 TAD K40 DCA SIXBIT SEND UNSAFN, FL2NM DCA SIXBIT JMP I TYNAM
/NEW NEW, CLA IAC /OLD OLD, TAD K2 DCA INITLD CRLF JMP I SYSPRG BYES, 0 CLA CMA CLL RAR DCA FINFBL+1 TAD AFINF RED ISZ FINFBL JMP I BYES
PAGE /SCRATCH SCR, REWIND STA CLL RAR DCA I WOFBFA DCA I (FBUF2+1 DCA FINFBL JMS I PSCRED ISZ FINFBL JMS I PSCRED CLA IAC DCA FISIZE CLA IAC DCA SRSIZE IO12 WRFILE JMP I .+1 EDT5 PSCRED, SCRED
/WORD FROM INPUT FILE WIF0, 0 CLA TAD WIF0 DCA WIF STA JMP WIF5 WIF, 0 CLA WIF5, DCA WIFSW ISZ BF1PTR TAD WIFBFA TAD BFSIZE CIA TAD BF1PTR SPA CLA JMP WIF10 IO11 RDFILE TAD WIFBFA DCA BF1PTR WIF10, TAD I BF1PTR DCA TEMP1 TAD BF1PTR TAD WIFSW DCA BF1PTR TAD TEMP1 JMP I WIF WIFBFA, FBUF1 WIFSW=TEMP3
/WORD TO OUTPUT FILE WOF, 0 ISZ BF2PTR ISZ WDCNT JMP WOF20 DCA WOFT1 TAD SEGMNT DCA WDCNT LOADCB TAD I P0VEC+3 CIA TAD I P0VEC+4 SPA CLA JMP WOF5 TAD WOFCB EXT SPA CMA JMP .+3 CLA TAD K7400 CHKFOP TAD K2 TAD I P0VEC+3 DCA I P0VEC+3 TAD I P0VEC+3 DCA FISIZE WOF5, ISZ I P0VEC+4 TAD WOFBFA TAD BFSIZE CIA TAD BF2PTR SPA CLA JMP WOF15 IO02 WRFILE TAD WOFBFA DCA BF2PTR WOF15, TAD WOFT1 WOF20, DCA I BF2PTR JMP I WOF WOFBFA, FBUF2 WOFCB, COPY WOFT1, 0
/WRITE TO END OF FILE WEF, 0 CLA TAD COMP SPA CLA JMP I WEF STA CLL RAR JMS I WEFCIO STA CLL RAR PUTWD PUTWD IO02 WRFILE DCA LRST JMP I WEF WEFCIO, CIO
/MOVE MOV, 0 DCA TEMP1 TAD I MOV DCA X1 ISZ MOV TAD I MOV DCA X2 ISZ MOV MOV5, TAD I X1 DCA I X2 ISZ TEMP1 JMP MOV5 JMP I MOV
/OUTPUT CRLF OCR, 0 JMS I PSTSX -2 CRLFM-1 JMP I OCR
PAGE /LOAD FILE DCB LDC, 0 DCA LDCT1 TAD LDCVA DCA X1 TAD KM5 DCA LDCT2 TAD LDCT1 CLL RTL TAD LDCT1 TAD LDCDA DCA LDCT1 LDC5, TAD LDCT1 DCA I X1 ISZ LDCT1 ISZ LDCT2 JMP LDC5 JMP I LDC LDCDA, FL0DCB LDCT1=TEMP1 LDCT2=TEMP2 LDCVA, P0VEC-1
/READ-WRITE FILE RFL, 0 DCA TEMP1 CLA IAC DCA LRST STA CLL RAL JMP RWF5 WFL, 0 DCA TEMP1 TAD WFL DCA RFL RWF5, TAD RWFWI DCA RWF25 TAD TEMP1 AND K7 TAD RWFLI DCA .+1 TAD RWFBFA DCA RWFCB+4 TAD TEMP1 RTR RTR RTR AND K7 DCA RWFCB+2 TAD RWFCB+2 LOADCB TAD I P0VEC+1 DCA RWFCB+1 TAD I P0VEC DCA RWFCB+5 TAD I P0VEC+2 CIA TAD I P0VEC+4 SZA JMP RWF10 STL DCA LRST JMP I RFL RWF10, CIA DCA RWFT1 TAD RWFT1 TAD SEGSPB SMA CLA JMP RWF15 TAD SEGSPB CIA DCA RWFT1 RWF15, TAD RWFT1 CIA TAD I P0VEC+2 DCA I P0VEC+2 TAD SEGMNT DCA RWFT2 RWF20, TAD RWFT2 ISZ RWFT1 JMP RWF20 DCA RWFCB+3 TAD RWFCB+3 CIA CLL TAD I P0VEC DCA I P0VEC SZL ISZ I P0VEC+1 TAD RWFCB RWF25, RFILE STA CLL RTL AND RWFCB+6 CHKFOP CLL JMP I RFL RWFBFA, FBUF1-1 FBUF2-1 RWFCB, .+1 0 0 0 0 0 0 RWFLI, TAD RWFBFA RWFT1=TEMP1 RWFT2=TEMP2 RWFWI, WFILE
/HIGH CORE DATA BLOCKS FL2CB, 2 0 FL2NM, 0 0 0 4040 2 COPY, 0 2 1 0 1 FL0DCB, 0 0 0 0 0 FL1DCB, 0 0 0 0 0 FL2DCB, 0 0 0 0 0
/EDITOR DIRECTIVE TABLES EDTTB1=. -"B;-"Y;-"E;BYE -"C;-"A;-"T;CAT -"N;-"E;-"W;NEW -"O;-"L;-"D;OLD -"R;-"U;-"N;RUN -"U;-"N;-"S;UNS EXFOK, -"D;-"E;-"L;DEL -"L;-"I;-"S;LSTX -"L;-"L;-"I;LLST -"S;-"A;-"V;SAV -"T;-"A;-"P;TAPIT -"K;-"E;-"Y;KEYIT -"R;-"E;-"P;REP -"S;-"C;-"R;SCR -"C;-"O;-"M;COM -"E;-"D;-"I;EDIT 0 DALTM, "$;" ;"D;"E;"L;"E;"T;"E;"D 215 212 TXBUF=. *.+124 0 FBUF1=3777 FBUF2=5777 /VARIOUS ERROR MESSAGES BFNM, TEXT /_BAD FILE NAME/ UNSM, TEXT /_CAN'T DELETE: / DFNM, TEXT /_DUPLICATE FILE NAME/ LNEM, TEXT /_ILLEGAL LINE NUMBER/ RLTL, TEXT /_LINE TOO LONG/ EFM, TEXT /_EXECUTE ONLY/ CATHDR, TEXT /__NAME SIZE PROT/ EDEM2, TEXT /_CAN'T FIND LINE/ EXTENS, TEXT / / TEXT /ASC/ TEXT /SAV/ TEXT /BIN/ TEXT /BAS/ TEXT /BAC/ TEXT /FCL/ TEXT /TMP/ TEXT / / TEXT /DAT/
/INITIALIZATION CODE *3777 DATSTR=. CPF EDT EDT20A EDT60 FINFBL IBN ICH IFN LDC MOV PFL RFL RLT RWD WEF WFL WIF0 WIF WOF TEXTO STSX OP2 OCR PRGNM 1000 200 100 10 2 7400 COPY+3 TXBUF-1 3 -3 -4 -5 7 -53 12 17 32 37 -37 -20 77 177 1100 1300 -12 5 6 -24 40 -143 617 55 53 137 101 201 240 -240 -272 260 3737 3776 7700 -3777 4002 INE -2 DATEND=. FL0CB, 0 0 FL0NM, 4241 6320 0 FL1CB, 1 0 FL1NM, 4241 6321 0 INEW, TEXT /_NEW / IPNM, TEXT /PROGRAM NAME--/ CFUM, TEXT / FOR USER / CFNM, TEXT /_CAN'T FIND "/ CLBRM, TEXT / IN SYSTEM LIBRARY/ XURM, TEXT /_IMPROPER ACCOUNT #_/
*4200 /INITIAL ENTRY AND INITIALIZATION INE, DUP TAD AINE SRA CLA CLL CMA RAL TAD INITLD SMA CLA JMP INE1 ACT RAR CLL SZA RAR SZA CLA JMP INE0 SEND;XURM JMP I .+1 SABORT INE0, SEND;INEMB1 STA DCA DEVSTS TAD BIT2 INE1, TAD K6000 CLOS JMS I INEV8 JMS I (INES2 DCA TAPE JMS I INEV1 IAC DCA FISIZE IAC JMS I INEV1 IAC DCA SRSIZE TAD INEKBM KSB CLA CLL CMA RAL TAD INITLD SMA JMP INE7 JMP .+4 INE5, CLA SEND;INEMB1 RDTEXT TAD I TXBPTR AND K177 TAD KMAO CIA INE7, DCA FITYPE TAD FITYPE DCA INITLD TAD FITYPE SNA JMP INE10 TAD KM1 SNA CLA JMP INE10N SEND;EDWHAT JMP INE5 KM1, -1 K6000, 6000
/NEW OR OLD STUFF INE10N, SEND;INEW JMP .+3 INE10, SEND;IOLD SEND;IPNM RDTEXT INE20, INPCH JMP INE25 JMP INE20 JMP INE25 JMP INE25 NOP CLA TAD INEFNM INPFNM CLA STL RAR CLL RAL TAD FITYPE SNA CLA JMP I (INE40 SNL JMP INE75 INE25, SEND;BFNM JMP INE5 INE50S, TAD X1 TAD KEDT SZA CLA JMP I PERROR INE50, CLA CMA DCA I INEV7 DCA SIXBIT CLA CLL CMA RAL TAD INITLD SMA CLA JMP INE JMS I INEV6 TAD COMP SPA CLA JMP INE75A TAD COPY01 COPYFL INE75, DCA COMP INE75A, DCA I INEV7 TAD K3737 DCA I PPRGNM TAD (CRC SRA CLA STL RTR SBC JMP I .+1 EDT5 INEFNM=K17 INEKBM, 0617 KEDT, -EDTX1 INEV1, INES1 INEV6, INES4 INEV7, XSW INEV8, INES5 KMAO, -117 PERROR, ERROR
PAGE /TEMP FILE INITIALIZATION INES1, 0 DCA FINFBL TAD FINFBL SZA CLA TAD K5 TAD INES1N DCA TEMP1 TAD TEMP1 CRF CHKFOP CLA CLL CMA RAL TAD TEMP1 OPEN CHKFOP TAD FINFBL RTL CLL RTL RAL TAD PROTMP PROT CLA IAC DCA FINFBL+6 JMS INES3 TAD FINFBL SNA CLA JMP I INES1 REWIND STA CLL RAR DCA I INES1W DCA I INES1X IO12 WRFILE JMP I INES1 INES1N, FL0NM INES1W, FBUF2 INES1X, FBUF2+1 PROTMP, 1617
/COMPUTE BUFFER CONSTANTS INES2, 0 CLA TAD INESX4 DCA SEGSPB TAD INESXZ DCA BFSIZE JMP I INES2 INESX4, 4 INESXZ, FBUF2-FBUF1
/LOAD DCB PARAMETERS INES3, 0 TAD FINFBL LOADCB TAD FINFBL+6 DCA I P0VEC+3 TAD FINFBL+6 DCA I P0VEC+4 JMP I INES3
/TYPE P,PN TYPPN, RTL RTL DCA TEMP1 TAD TEMP1 AND K7 SZA JMS I PTYTYP TAD TEMP1 RTL RAL DCA TEMP1 TAD TEMP1 AND K7 JMS I PTYTYP TAD KM4 JMS I PTYTYP TAD TEMP1 RTL CML RAL DCA TEMP1 TAD TEMP1 AND K7 SZA JMS I PTYTYP TAD TEMP1 RTL RAL AND K7 JMS I PTYTYP JMP I (INE5 PTYTYP, TYTYP
/CONSTRUCT TEMP FILE NAMES INES5, 0 USE CON DCA TEMP1 TAD TEMP1 RTL RAL AND KHIBYT TAD TEMP1 AND K707 TAD K2020 DCA I INES5V TAD I INES5V DCA I INES5W JMP I INES5 K707, 707 K2020, 2020 INES5V, FL0NM+2 INES5W, FL1NM+2 IOLD, TEXT /_OLD / INEMB1, TEXT /_NEW OR OLD--/ BFFM, TEXT /_BAD FILE FORMAT/
PAGE /FILE TYPE IS OLD, OPEN AS FILE 2 AND COPY TO FILE 1 INE40, DCA I FL2CBX DCA TEMP5 CLA CMA TAD TXBPTR DCA TXBPTR INE40A, INPCH JMP INE41 JMP INE40A JMP I PINE25 JMP INE40B JMP I PINE25 JMS INECOV DCA I FL2CBX CLA CLL CMA RTL DCA TEMP6 INE40C, INPCH JMP INE41 JMP INE40D JMP INE40F JMP I PINE25 JMP I PINE25 JMS INECOV DCA TEMP1 TAD I FL2CBX RTL CLL RAL TAD TEMP1 DCA I FL2CBX ISZ TEMP6 JMP INE40C INE40D, INPCH JMP INE41 JMP INE40D JMP I PINE25 JMP I PINE25 JMP I PINE25 JMP I PINE25 INE40B, TAD (-252 SZA CLA JMP I PINE25 CLA STL RTL DCA I FL2CBX JMP INE40D INECOV, 0 TAD (-270 CLL TAD K10 SNL JMP I PINE25 JMP I INECOV INE41, CLA TAD TEMP5 TAD I FL2CBX DCA I FL2CBX STA CLL RTL MOVE FINAME-1 FL2CBX, FL2NM-1 OPEN2 JMP INE45 DCA I FL2CBX CLA STL RTL DCA FINFBL TAD AFINF FINF JMS I (INES3 REWIND IO22 RDFILE DCA COMP TAD I KFBUF2 SMA SZA CLA JMP INE45Y TAD K3 TAD I KFBUF2 SNA CLA JMP INE45Z SEND;BFFM JMP I PINE5 INE45Z, STA DCA COMP STA CLL RAL INE45Y, TAD (COPY+1 COPYFL JMP I (INE75A KFBUF2, FBUF2 INE45, SEND;CFNM JMS I (TYNAM TAD INQU TLS CLA TAD I FL2CBX SNA JMP I PINE5 TAD KM2 SNA CLA JMP INE41X SEND;CFUM TAD I FL2CBX JMP I (TYPPN INE41X, SEND;CLBRM JMP I PINE5 INE40F, CLA TAD I FL2CBX RTL CLL RTL RTL AND KHIBYT DCA TEMP5 DCA I FL2CBX JMP INE40C PINE5, INE5 PINE25, INE25 INQU, ""
PAGE /REINITIALIZE EDITOR INES4, 0 TAD INES4V JMS I INES4M DATSTR-1 PG0DAT-1 TAD I PUFIL0 SZA CLA JMP INES40 TAD I PPRGNM TAD KM3737 SNA CLA JMP INES41 INES40, JMS I PINES5 TAD PFL0CB OPEN CHKFOP DCA I PUFIL0 INES41, JMS I INES4A DCA FINFBL TAD FISIZE DCA FINFBL+6 JMS I INES4B IAC DCA FINFBL TAD SRSIZE DCA FINFBL+6 JMS I INES4B JMP I INES4 PUFIL0, UFIL0+2 KM3737, -3737 PFL0CB, FL0CB PINES5, INES5 INES4A, INES2 INES4B, INES3 INES4V, DATSTR-DATEND INES4M, MOV END=.
/BASIC ERROR PROGRAM FOLLOWS LINE=34 ERROR, TAD ERKSAS DCA I PSASOP TAD COMP SPA SNA CLA JMP ERROR2 DCA COMP TAD ERED RED ERROR2, DCA SIXBIT TAD LINE DCA XLINE TAD 10 DCA ERCODE JMS I KINES4 CRLF TAD ERCODE TAD KMLIM SPA CLA JMP ERR2X TAD K3 DCA ERCODE ERR2X, TAD ERCODE TAD KMSGT DCA ERCODE TAD I ERCODE SMA TAD K4000 DCA .+2 SEND 0 TAD I ERCODE SMA CLA JMP ERR3 SEND;MSG1 CLA IAC DCA TAPE TAD XLINE JMS I KCBA TAD TXBPTR CIA TAD ERPTR DCA .+2 JMS I PSTSX 0 ERPTR, TXBUF-1 DCA TAPE ERR3, CRLF TAD I PPRGNM TAD KM3737 SNA CLA JMP ERR4X SEND;PRGMSG SEND;PRGNM CRLF ERR4X, TAD I KABSW SZA CLA JMP I KABORT JMP I .+1 INE50 PSASOP, SASOP ERKSAS, SAS KCBA, CBA KMSGT, MSGTBL KMLIM, -LIM XLINE, 0 ERCODE, 0 K4000, 4000 KINES4, INES4 KABSW, ABSW KABORT, SABORT ERED, .+1 2 3777
MSGTBL, ERR0-4000 ERR1-4000 ERR2-4000 ERR15-4000 ERR4 ERR5 ERR6 ERR7 ERR8 ERR9 ERR10 ERR11L ERR12L ERR13 ERR14 ERR14A ERR16 ERR17 ERR18 ERR19 ERR20 ERR21 ERR22 ERR23 ERR24 ERR25 ERR26 ERR27 ERR28 ERR29-4000 ERR30 ERR31-4000 ERR32-4000 ERR33 ERR34 ERR35 ERR36 ERR37 ERR38 ERR39 ERR40 ERR41 LIM=.-MSGTBL
PRGMSG, TEXT 'PROGRAM IS ' MSG1, TEXT ' LINE ' ERR0, TEXT 'SYSTEM I-O ERROR_' ERR1, TEXT 'PROGRAM TOO LARGE_' ERR2, TEXT 'NO END STATEMENT_' ERR4, TEXT 'ILLEGAL INSTRUCTION IN' ERR5, TEXT 'ILLEGAL FORMAT IN' ERR6, TEXT 'ILLEGAL CONSTANT IN' ERR7, TEXT 'PROGRAM NOT FOUND AT' ERR8, TEXT 'ILLEGAL CHARACTER IN' ERR9, TEXT 'BAD SLEEP ARGUMENT IN' ERR10, TEXT 'ILLEGAL VARIABLE IN' ERR11L, TEXT 'ILLEGAL LINE NUMBER IN' ERR12L, TEXT 'ARRAY OR RECORD USED BEFORE DEFINITION IN' ERR13, TEXT 'ILLEGAL SYNTAX IN' ERR14, TEXT 'DIMENSION TOO LARGE IN' ERR14A, TEXT 'IMPROPER DIM OR RECORD STATEMENT IN' ERR18, TEXT /CAN'T CREATE FILE IN/ ERR19, TEXT /CAN'T DELETE FILE IN/ ERR20, TEXT 'STACK OVERFLOW IN' ERR21, TEXT 'OUT OF DATA IN' ERR22, TEXT 'BAD FILE NAME IN' ERR23, TEXT 'UNDEFINED LINE NUMBER, ' ERR24, TEXT 'ILLEGAL OPERATION IN' ERR15=ERR24 ERR25, TEXT 'SUBSCRIPT ERROR IN' ERR27, TEXT 'GOSUB--RETURN ERROR IN' ERR28, TEXT 'ILLEGAL FOR NESTING IN' ERR29, TEXT 'DEF STATEMENT MISSING_' ERR30, TEXT 'NEXT WITHOUT FOR IN' ERR31, TEXT 'FOR WITHOUT NEXT_' ERR32, TEXT 'DISK FULL_' ERR33, TEXT 'MISUSED TAB IN' ERR26, TEXT 'MISUSE OF CHR$ IN' ERR16, TEXT 'BAD VALUE IN CHANGE STATEMENT AT' ERR17, TEXT 'TIME LIMIT EXCEEDED AT' ERR34, TEXT 'UNOPEN DISK UNIT IN' ERR35, TEXT 'DEVICE BUSY IN' ERR36, TEXT 'INVALID RECORD NO. IN' ERR37, TEXT 'ON INDEX OUT OF RANGE IN' ERR38, TEXT 'INVALID DEVICE NO. IN' ERR39, TEXT 'GET BEYOND END OF FILE IN' ERR40, TEXT 'GET/PUT ERROR IN' ERR41, TEXT 'CHAIN TO BAD FILE AT' TOPOFCORE=. $



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

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