File TELPCK.PA (PAL assembler source file)

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

PAGE
/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
/SIMULATION EINES N,K BLOCKCODES
/MIT BLBL8
	/22.11.74


/ANZ. DER BINAEREN STELLEN EINES CODEWORTES
N=144

/ANZ. DER INFORMATIVEN STELLEN
K=144

/ANZ. DER REDUNDANTEN STELLEN
NMK=0

/ANZ. DER BITS IM CODIER-REGISTER
B=37

/KLEINSTE GANZE VON N/14, K/14, NMK/14, B/14
KGN=11
KGK=11
KGB=3
KGNMK=0

/SONSTIGES
NTAPS=20




FIELD 0
*5000

AUTOST,	CLA
	CIF 10
	JMS I AUTONT

AUTOAD,	0
	CLA
	CIF 10
	JMS I AUTOAD
	JMP .-3

AUTONT,	INTNT










/INTERFACE-PROGRAMM ZWISCHEN SCOPE ODER SIGPIP UND EINER /SIMULIERTEN CODER-BSC DECODER STRECKE FIELD 1 *4200 INTNT, 0 /INTNT IN CODADR STELLEN!!!!!!!!! CDF 10 JMS SPEZNT /INIT VON SPEZIALPROGRAMMEN JMS PARNT /LADEN DER PARAMETER FEUR SIMUL CLA CLL IAC DCA MYFLAG /MY OWN INIT.FLAG CDF CIF 0 JMS I INTNT INTERF, 0 CDF 10 DCA INPUT /14 BIT VON SCOPE ODER SIGPIP TAD MYFLAG /OWN INIT.FLAG SET? SNA CLA /YES JMP LOCA /NO JMS SIMNT /INITIALIZE SIMUL CLA DCA MYFLAG /CLEAR MYFLAG SWAB CAM DAD SCPWDS DCM DST CNT2 /ANZ. DER SCOPEWORDS JE BITERRORRATE LOCA, SWAB CAM DAD WDSNUV DCM DST CNT1 /ANZ. DER UEBERTRAGENEN BLOECKE JE SCPWDS JMS SIMUL /SIMULATIONSPROGRAMM MOSTSR /KEYBOARD EINGRIFF RESTRT, ISZ CNT1 SKP ISZ CNT1+1 JMP .-5 ISZ CNT2 SKP ISZ CNT2+1 JMP LOCB JMS SPEZSR /HYSTOGRAMM ETC. ISZ SIMCNT SKP MOSTGO /ALLE BITERRORRATES FERTIG CLA CLL IAC DCA MYFLAG JMS NEWPAR /ISZ ALLE PARAMETER LOCB, TAD OUTPUT CDF CIF 0 JMP I INTERF INPUT, 0 OUTPUT, 0 SIMNT, 0 NOP NTBLIP INBLIP TELPCK /JEWEILIGER NAME NZERO OUTPUT BLNTOF BLOUT JMP I SIMNT SIMUL, 0 INBLIP TELPCK /JEWEILIGER NAME INPUT OUTPUT BLOUT JMP I SIMUL TYPDEV, TPONTY /ODER TPONDW=TPONTY-22 SPEZNT, 0 /EINMALIGE INIT. VON SPEZIALPROGRAMMEN NOP JMS I TYPDEV JMP I SPEZNT NOP NOP PARNT, 0 /EINMALIGE INIT. DER PARAMETER CLA TAD SIMNUM CIA DCA SIMCNT SWAB CAM DAD ERRORN DST ERRORV CAM DAD WDSNUM DST WDSNUV JMP I PARNT NOP;NOP SPEZSR, 0 /Z.B. HYSTOGRAMM AM ENDE JEDER TEILSIMULATION JMP I SPEZSR NOP NOP NEWPAR, 0 /ISZ DER PARAMETER SWAB CAM DAD ERRORV LSR 1 DST ERRORV /BITFEHLERRATE VERKLEINERN CAM DAD WDSNUV SHL 1 DST WDSNUV /ANZ. DER BLOECKE VERVIELFACHEN JMP I NEWPAR NOP;NOP
PAGE /WICHTIGE PARAMETER!!!!!!!!!!!!!!!!!!!!!!!!!!! /BIFEHLERRATE IM KANAL ERRORN, 0;2000 /STATT AUF TTY: AUSZUDRUCKEN KANN AUCH AUF BAND GE- /SCHRIEBEN WERDEN. WDSNUM IST AUCH DIE ANZ. DER BLOECKE JE SCOPE-WORT. /ZWECKMAESSIG EINE POTENZ VON 2 WDSNUM, 1;0 /SCPWDS IST DIE ANZAHL DER SCOPEWORTE , DIE FUER EINE TEILSIMULATION /ZUR VERFUEGUNG STEHEN. /ZWECKMAESSIG =2^(SHFTNR) SCPWDS, 0;2000 /SIMNUM ENTHAELT DIE ANZAHL DER TEILSIMULATIONEN. SIMNUM, 1 /ANZ. DER SHIFT'S ZUR VERVIELFACHUNG DER TABELLENZEILEN JE /TEILSIMULATION SHFTNR, 0 /FUNCTION-CONTROL-WORD FUER DEN DEVICE-HANDLER CONTRL, 4220 /ANFANGSADRESSE DES SPEICHERBEREICHES CORADD, 1000 /FILENAME AUF BAND ODER PLATTE STONAM, FILENAME COYERG.MA /NAME OF DEVICE USED. MOST SIGNIF. HAELFTE VON DEVNAM LOESCHEN, /WENN KEIN DEVICE VERWENDET WERDEN SOLL. DEVNAM, DEVICE SYS DATEIL, 0 /ANZ. DER ZU SPEICERNDEN BLOECKE SCHWELL, 0 /P DER EINSEN IM EINGANGSWORT NOP NOP /FESTE GROESSEN FELD10, 10 FELD20, 20 MAXTP1, NTAPS 0 MAXAD1, N 0 MAXAD2, K 0 MAXAD3, NMK 0 MAXAD4, B 0 PREC1, KGN PREC2, KGK PREC3, KGNMK PREC4, KGB STNMA, STONAM DVNMA, DEVNAM /VARIABLE MYFLAG, 0 ERRORV, 0;0 ERRORF, 0 ERORFS, 0 SIMCNT, 0 WDSNUV, 0;0 CNT1, 0;0 CNT2, 0;0 BLOCKL, 0;0 FLSBIT, 0 ERSUMB, FLSBLK, 0;0 FLSDCS, 0;0 ERSUMA, ERSUM, 0;0 TYPCNT, 0;0 EINGDT, ZBLOCK 144 FLSFGS, 0;0 CORFGS, 0;0 NZERO, ZBLOCK N+14
PAGE TAPENT, 0 CLA SWAB CIF 20 JMS WTRDNT CONTRL CORADD DATEIL STONAM DEVNAM JMP I TAPENT LISTA, 222;224;227;231;6146;6150 LISTTY, 6031;6036;6041;6046 LISTDW, 6401;6406;6411;6416 TPONDW, 0 6402 6416 TAD LISTDW DCA I LISTA TAD LISTDW+1 DCA I LISTA+1 TAD LISTDW+2 DCA I LISTA+2 TAD LISTDW+3 DCA I LISTA+3 CDF 20 TAD LISTDW+2 DCA I LISTA+4 TAD LISTDW+3 DCA I LISTA+5 CDF 10 JMP I TPONDW TPONTY, 0 6032 6046 TAD LISTTY DCA I LISTA TAD LISTTY+1 DCA I LISTA+1 TAD LISTTY+2 DCA I LISTA+2 TAD LISTTY+3 DCA I LISTA+3 CDF 20 TAD LISTTY+2 DCA I LISTA+4 TAD LISTTY+3 DCA I LISTA+5 CDF 10 JMP I TPONTY
ENTF=JMS I 7 FIELD 2 *70 N3, 0;0;0 K3, 0;0;0 B3, 0;0;0 X3, 0;0;0 XQ3, 0;0;0 ZERO3, 0;0;0 ZWOH31, 30;3777;7777 BLCKL3, 0;0;0 ERSMA3, 0;0;0 ERSMB3, 0;0;0 FRACA3, 0;0;0 FRACB3, 0;0;0 FRACC3, 0;0;0 ERORN3, 0;0;0 FLSDS3, 0;0;0 *4200 /S.R. UM AUF BAND ODER PLATTE ABZUSPEICHERN /S.R. STEHT IN FIELD 2, BENOETIGT PLATZ FUER DEV.HAN. /IN FIELD 0 VON 7200-7577,SOFERN NICHT DER SYSTEM- /DEV.HAN. VERWENDET WIRD. /ANRUF VON FIELD 0,1 ODER 2 AUS. S.R. BESTEHT AUS EINER /INITIALISIERUNGSROUTINE UND EINER ARBEITSROUTINE /CDF N /ARG. IN FELD N /CIF 20 /JMS WTRDNT /INITIALISIERUNGSROUTINE /ADR. DES FUNC.CONTR.WORDS FUER DEN DEV.HAN. /ADR. DER CORADRESSE /ADR. DER ANZ. DER SPEICHERUNGEN /ADR. DES FILENAMENS /ADR. DES DEVICENAMENS /CDF N /CIF 20 /JMS WRTRED /ARBEITSROUTINE CORAD, 0 DHFUN, 0 STORNR, 0 FLNAMA, FLNAME CDFIN, CDF 0 WTRDNT, 0 CLA TAD I WTRDNT DCA TEMW TAD I TEMW DCA DHFUN ISZ WTRDNT /D.H.FUNC.CONTR.WORD TAD I WTRDNT DCA TEMW TAD I TEMW DCA CORAD /COREADRESSE ISZ WTRDNT TAD I WTRDNT DCA TEMW TAD I TEMW DCA STORNR /NUMBER OF STORAGES ISZ WTRDNT RDF TAD CDFIN DCA WDATF /CALCUL. DATAFIELD CLA CLL IAC RAL TAD WDATF DCA WRETF /CALCUL. RETURNFIELD TAD I WTRDNT DCA TEMU SWAB TAD FLNAMA DCA TEMV CLA CLL CMA RTL DCA TEMW CAM DAD TEMU, 0 CDF 20 DST TEMV, 0 WDATF, CDF 10 ISZ TEMU ISZ TEMU ISZ TEMV ISZ TEMV ISZ TEMW JMP TEMU-1 /UEBERTRAGEN DES FILENAMENS IN DIESES FELD ISZ WTRDNT CLA TAD I WTRDNT DCA TEMW CAM DAD TEMW, 0 CDF 20 DST FETCH1 /UEBERTRAGEN DES DEVICENAMENS IN DIESES FELD ISZ WTRDNT /DEVICE VERWENDEN? SNA CLA /JA JMP WRETF /NEIN JMS SETRST /USR ARGUMENT INIT. CIF 10 JMS I (7700 /USRIN 10 CLA CIF 10 JMS I (200 1 /FETCH DEV.HAN. FETCH1, 0424 FETCH2, 0161 /DEV.NAME /DEV.NUMBER FETCH3, 7201 /PAGE LOCATION /ENTRY POINT OF DEV.HAN. JMS I TYDI TAD FETCH2 DCA DEVNUM TAD FETCH3 DCA I DHENTI TAD DHFUN SPA CLA /KERNSPEICHER LADEN ODER AUSLESEN? JMP AUSLES /AUSLESEN /LADEN LADEN, TAD DEVNUM CIF 10 JMS I (200 /LOOKUP 2 LOKUP1, FLNAME /FILE STARTING BLOCK LOKUP2, 0 /-FILELENGTH JMS I TYDI TAD LOKUP1 DCA I STRTBI TAD LOKUP2 DCA FILCNT JMP GETOF AUSLES, TAD DEVNUM CIF 10 JMS I (200 /ENTER 3 ENTER1, FLNAME /FILE STARTING BLOCK ENTER2, 0 /-FILELENGTH JMS I TYDI
TAD ENTER1 DCA I STRTBI TAD ENTER2 TAD FILENG /PRUEFEN, OB GENUG PLATZ SMA SZA CLA JMS I TYDI /NEIN TAD FILENG /JA CIA DCA FILCNT TAD DEVNUM CIF 10 JMS I (200 /CLOSE 4 CLOSE1, FLNAME CLOSE2, 0 JMS I TYDI GETOF, CIF 10 JMS I (200 11 /USROUT WRETF, CIF CDF 10 JMP I WTRDNT FILCNT, 0 DEVNUM, 0 TYDI, TYD STRTBI, STRTBK DHENTI, DHENT FILENG, 0 PAGE FLNAME, 0;0;0;0 SETRST, 0 CLA TAD WRETF DCA RF TAD (7201 DCA FETCH3 TAD DHFUN DCA DHFUNC TAD CORAD DCA CORADR TAD FLNAMA DCA LOKUP1 TAD FLNAMA DCA ENTER1 TAD FLNAMA DCA CLOSE1 TAD DHFUNC AND (3700 BSW CLL RAR /ANZ. DER OS8 BLOECKE MQL MUY STORNR SZA JMP TYDR /ZU GROSSE FILELAENGE ACL DCA FILENG TAD FILENG DCA CLOSE2 JMP I SETRST DEVNMI, DEVNAM+1 WRTRED, 0 CLA TAD I DEVNMI CDF 20 /DEV. VERWENDET? SNA CLA /JA JMP RF /NEIN TAD FILCNT IAC SMA SZA JMS TYDR DCA FILCNT CIF 0 JMS I DHENT DHFUNC, 0 CORADR, 0 STRTBK, 0 JMS TYDR TAD DHFUNC AND (3700 BSW CLL RAR TAD STRTBK DCA STRTBK RF, CDF CIF 10 JMP I WRTRED DHENT, 0 TYD, 0 CIF 10 JMS I (200 11 /USROUT CLA TAD TYD JMP .+3 TYDR, 0 TAD TYDR MQL CDF CIF 0 JMS I .+1 544 /JMP TO TYDER
FIELD 2 *4511 /CIF 20 /JMS FFOUT /F-FORMATAUSGABE /ERG.ADR. /ERG. IN FELD 20 /ANZ. ALLER STELLEN /ANZ. DER STELLEN NACH DEM KOMMA EFZ1, FFOUT, 0 CLA IAC DCA 56 DCA 55 TAD I FFOUT DCA FFZ1 ISZ FFOUT TAD I FFOUT DCA 57 ISZ FFOUT TAD I FFOUT DCA 60 ISZ FFOUT CDF 20 ENTF FGET I FFZ1 FOUT FEXT CIF CDF 10 JMP I FFOUT /CIF 20 /JMS EFOUT /ARG. /ERGEBNISAUSGABE IN EFORMAT FFZ1, EFOUT, 0 CLA TAD I EFOUT DCA EFZ1 ISZ EFOUT CDF 20 DCA 55 DCA 56 ENTF FGET I EFZ1 FOUT FEXT CDF CIF 10 JMP I EFOUT
PAGE /CIF 20 /JMS SRMUY /MULTIPLIKATION,ALLE ARG. IN FELD 20 /FAKTOR1 /FAKTOR2 /PRODUKT SUZ1, SRMUY, 0 CLA TAD I SRMUY DCA DIVZ1 ISZ SRMUY TAD I SRMUY DCA DIVZ2 ISZ SRMUY TAD I SRMUY DCA DIVZ3 ISZ SRMUY CDF 20 ENTF FGET I DIVZ1 FMPY I DIVZ2 FPUT I DIVZ3 FEXT CIF CDF 10 JMP I SRMUY /CIF 20 /JMS DIVIDR /DIVISION, ALLE ARGUMENTE IN FELD 20 /DIVIDENT /DIVISOR /ERGEBNIS SUZ2, DIVIDR, 0 CLA TAD I DIVIDR DCA DIVZ1 ISZ DIVIDR TAD I DIVIDR DCA DIVZ2 ISZ DIVIDR TAD I DIVIDR DCA DIVZ3 ISZ DIVIDR CDF 20 ENTF FGET I DIVZ1 FDIV I DIVZ2 FPUT I DIVZ3 FEXT CIF CDF 10 JMP I DIVIDR /CIF 20 /JMS SUMM ALLE ARG. IN FELD 20 /SUMMAND1 /SUMMAND2 /SUMME DIVZ2, SUMM, 0 CLA TAD I SUMM DCA SUZ1 ISZ SUMM TAD I SUMM DCA SUZ2 ISZ SUMM TAD I SUMM DCA SUZ3 ISZ SUMM CDF 20 ENTF FGET I SUZ1 FADD I SUZ2 FPUT I SUZ3 FEXT CIF CDF 10 JMP I SUMM /CIF 20 /JMS DIFF /DIFFERENZ /SUMMAND1 /SUMMAND2 /DIFFERENZ DIVZ3, NRMDZ2, DIFF, 0 CLA TAD I DIFF DCA SUZ1 ISZ DIFF TAD I DIFF DCA SUZ2 ISZ DIFF TAD I DIFF DCA SUZ3 ISZ DIFF CDF 20 ENTF FGET I SUZ1 FSUB I SUZ2 FPUT I SUZ3 FEXT CDF CIF 10 JMP I DIFF /CIF 20 /JMS NORMD /UMWANDLUNG: DOUBLE PREC. IN FLOAT. POINT /ARG1 /DOPPELTGENAU IN FELD 10 /ARG2 /FP.DARST. IN FELD 20 NRP23, 27 DIVZ1, SUZ3, NORMD, 0 SWAB CLA TAD I NORMD DCA NRMDZ1 ISZ NORMD TAD I NORMD DCA NRMDZ2 ISZ NORMD CAM DAD NRMDZ1, 0 CDF 20 SWP DST 45 CLA TAD NRP23 DCA 44 ENTF FNOR FPUT I NRMDZ2 FEXT CIF CDF 10 JMP I NORMD /CIF 20 /JMS FUNCSR /X,Y IN FELD 20 /FUNCTION /X ADR. /Y ADR. FUNCSR, 0 CLA TAD I FUNCSR DCA FUNC ISZ FUNCSR TAD I FUNCSR DCA NRMDZ1 ISZ FUNCSR TAD I FUNCSR DCA NRMDZ2 ISZ FUNCSR CDF 20 ENTF FGET I NRMDZ1 FUNC, 0 FPUT I NRMDZ2 FEXT CIF CDF 10 JMP I FUNCSR
/*************************************************************** /14-FEB-75 FIELD 1 *5400 TELPCK, 2 /TELEGRAMM-PACK-PROGRAMM BLOTNT MESSNT /INITIALISIERUNG INBLIP RIGHTE /LETZTES TELEGR.BIT IN LEAST SIGNIF. BIT BLOUT ACUM 1 LOCAB, SNA INEND JMS NOPS CDF 20 /1 WORT HOLEN DCA I INTABP /UND ABSPEICHERN CDF 10 ISZ INTABP TAD INTABP CIA TAD MIDBUF SMA CLA INEND LOC2, INBLIP KOPFER BLOUT /KOPFERKENNUNG CLA CLL TAD SYNFLG SNA CLA /KOPF ERKANNT ? JMP LOC4 /NO /JA INBLIP LEFTA /SYNC.-KOPF HINAUSSCHIEBEN P66 /BITS AN DEN LINKEN ANSCHLAG SCHIEBEN U. ABTAST /TELEGRAMM ABTASTEN P113 /113 ABTASTWERTE MIT P6 /JEWEILS 6 BIT ABSTAND MWPRSL /TEL.BITS ZU 7 WORTEN ZUS.FUEGEN BITAF TAPEPO, TAPETF TPREC FELD20 BLOUT TAD TELBTS CIA DCA TELBTC DCA SYNFLG TAD TAPEPO TAD P7 DCA TAPEPO CDF 20 DCA I TAPEPO CDF 10 /TEL. ALS ERKANNT MARKIEREN! ISZ TAPEPO /TELEGRAMM-ZAEHLER ERHOEHEN LOC3, ISZ CNT40 /SCHON 40 TEL. INEND /NO /JA TAD TAPEAD DCA TAPEPO TAD M40 DCA CNT40 CIF 20 JMS WRTRED ISZ BLCKC /SCHON ALLE BLOECKE? INEND /NO /JA TYDER LOC4, INBLIP LEFTS /SPEICHER UM 1 BIT NACH LINKS BLOUT ISZ TELBTC /TEL.BIT.ZAEHLER ERHOEHEN JMP LOC2 TAD TELBTS /UEBERGELAUFEN ! CIA /TEL.BIT.ZAEHLER INITIALISIEREN DCA TELBTC TAD P7 CIA DCA P7CNT CDF 20 DCA I TAPEPO ISZ TAPEPO ISZ P7CNT JMP .-3 CLA IAC CLL RTR /TEL. ALS NICHT ERKANNT MARKIEREN DCA I TAPEPO CDF 10 ISZ TAPEPO JMP LOC3 P7CNT, 0 INTABP, 0
PAGE MESSNT, TAD REGADR DCA INTABP TAD TAPEAD DCA TAPEPO TAD M40 DCA CNT40 CLA CLL IAC DCA POSITION TAD TELBTS CIA DCA TELBTC DCA BLCKC TAD ISNA DCA LOCAB TAD IINEND DCA LOCAB+1 TAD I4777 DCA LOCAB+2 CIF 20 JMS WTRDNT CONTRL CORADD DATEIL STONAM DEVNAM INEND ISNA, SNA IINEND, INEND I4777, 4777 LEFTS, 0 /SCHIEBT UM 1 BIT NACH LINKS /KORRIGIERT INTAB UND POSITION ROTATL LINKG REGIST REGLL FELD20 BLOUT CLA CLL TAD POSITION CLL RAL SNL /HERAUSGEFALLEN ? JMP LSLOC /NO /JA CLA CMA TAD INTABP DCA INTABP CLA CLL IAC LSLOC, DCA POSITION DCA LINKG INEND RIGHTS, 0 /SCHIEBT UM 1 BIT NACH RECHTS /KORRIGIERT INTABP UND POSITION BLOUT DCA LINKG INBLIP ROTATR LINKG REGIST REGLL FELD20 BLOUT CLA CLL TAD POSITION CLL RAR SNL /HERAUSGEFALLEN ? JMP RSLOC /NO /JA ISZ INTABP CLA CLL CML RAR RSLOC, DCA POSITION INEND
RIGHTE, 0 /NACH RECHTS SCHIEBEN BIS /POSITION IN LEAST SIGNIF. BIT BLOUT DCA TEMR TAD POSITION CLL RAR SZL CLA /HERAUSGEFALLEN ? JMP RELOC /JA /NO INBLIP RIGHTS BLOUT ISZ TEMR JMP RIGHTE+3 RELOC, TAD TELBTS /TEL.BIT.ZAEHLER INITIALISIERT TAD TEMR CIA DCA TELBTC INEND TEMR, 0 LEFTA, 1 /SCHIEBT UM (ARG.) NACH LINKS BLOUT ACUM 1 CIA DCA LCNT LALOP, INBLIP LEFTS BLOUT ISZ LCNT JMP LALOP INEND LCNT, 0 PAGE KOPFER, 0 /SYNCHRONKOPFERKENNUNG MWAND /MASKIERUNG OHNE FLANKEN REGIST MASKE1 TEMPO LENGTH FELD20 MWUND /VERGLEICH MIT ZUL. KOPF TEMPO MASKE2 SYNFLG LENGTH FELD20 BLEND
ABTAST, 2 /HERUNTERSCHALTEN AUF 1200 BIT/SEC /1.ARG; ANZ DER ABTASTWERTE /2.ARG; JEWEILIGER ABSTAND IN BITS BLOUT ACUM 1 CIA DCA ABCNT1 TAD BITAFA DCA BITAFP ABTLOP, INBLIP LEFTA 2 BLOUT CDF 20 TAD I ANFBUF RAL CLA RAL DCA I BITAFP CDF 10 ISZ BITAFP ISZ ABCNT1 JMP ABTLOP INEND BITAFA, BITAF BITAFP, 0 ABCNT1, 0 P113, 113 MIDBUF, REGIST+52+52 TPREC, 10 P66, 66 P6, 6 P7, 7 TELBTS, 765 TELBTC, 0 SYNFLG, 0 CNT40, 0 BLCKC, 0 M40, -40 REGADR, REGIST TAPEAD, TAPETF POSITION,0 LINKG, 0 REGLL, 200 LENGTH, 3 ANFBUF, REGIST NOPS, 0 MQL TAD NOPI DCA LOCAB TAD NOPI DCA LOCAB+1 TAD NOPI DCA LOCAB+2 ACL JMP I NOPS NOPI, NOP FIELD 2 *400 REGIST, ZBLOCK 200 *600 MASKE1, 7676;7767;6760 MASKE2, 7600;7760;0760 MASKE3, 2024;0421;6240;0200;1175;3717;2000 MASKE4, ZBLOCK 7 TEMPO, ZBLOCK 41 *1000 TAPETF, ZBLOCK 400 *1400 BITAF, ZBLOCK 200



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