X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Frescue%2Flab8e_goettingen%2Fdisk1_im6100%2Frka%2Fparoff%2Fpls.pa;fp=sw%2Frescue%2Flab8e_goettingen%2Fdisk1_im6100%2Frka%2Fparoff%2Fpls.pa;h=4502b42323bdf6e4555c9bfedffd24be3c316a5a;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/rescue/lab8e_goettingen/disk1_im6100/rka/paroff/pls.pa b/sw/rescue/lab8e_goettingen/disk1_im6100/rka/paroff/pls.pa
new file mode 100644
index 0000000..4502b42
--- /dev/null
+++ b/sw/rescue/lab8e_goettingen/disk1_im6100/rka/paroff/pls.pa
@@ -0,0 +1,328 @@
+/	PLS.PA
+/
+/
+/	26-NOV-86 REV 1.0 KJ.S.
+/
+/
+/	TWO PAGES
+/
+	COUNT=1
+/	LOGIC=1
+/
+	*200
+
+
+START,	CLA CLL
+	JMS DRAWA3
+
+	IFDEF COUNT	<
+
+	TAD (PLSC0
+	JMS DRAW
+	20
+	TAD (PLSC1
+	JMS DRAW
+	20
+	TAD (PLSC2
+	JMS DRAW
+	20
+	TAD (PLSC3
+	JMS DRAW
+	20
+	TAD (PLSC4
+	JMS DRAW
+	20
+/	TAD (PLSC5
+/	JMS DRAW
+/	20
+/	TAD (PLSC6
+/	JMS DRAW
+/	20
+
+	>
+
+
+	IFDEF LOGIC	<
+	TAD (PLSL0
+	JMS DRAW
+	20
+	TAD (PLSL1
+	JMS DRAW
+	20
+	TAD (PLSL2
+	JMS DRAW
+	20
+	TAD (PLSL3
+	JMS DRAW
+	20
+	TAD (PLSL4
+	JMS DRAW
+	20
+	TAD (PLSL5
+	JMS DRAW
+	20
+	>
+
+	JMP DRAWEX
+
+	PAGE
+	FIELD 2
+	*0
+
+	IFDEF COUNT	<
+
+PLSC0,	TEXT /"COMMON[[[[[[[1[1];/
+	TEXT /SP'7;/
+/	TEXT /VS5;/
+	0
+
+PLSC1,	TEXT /PA0,200;/
+	TEXT /PR50,35;"LSYMB2[L[5];PR0,-5;"LSYMB2[H[5];/
+	TEXT /PR0,-5;"LSYMB2[H[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-10;"LSYMB2[H[5];"CNT16X[44];/
+	TEXT /PD10,0;PU10,0;/
+	TEXT /PU;PR0,25;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[H[5];PR0,-5;"LSYMB2[H[5];/
+	TEXT /"CNT16X[43];PR20,0;/
+	TEXT /PU;PR0,25;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[H[5];PR0,-5;"CNT16X[42];/
+	TEXT /PR20,0;/
+	TEXT /PU;PR0,25;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[H[5];PR0,-5;"CNT16X[41];/
+	TEXT /PR20,0;/
+	TEXT /PU;PR0,25;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[H[5];PR0,-5;"CNT16X[53];/
+	TEXT /PR20,0;/
+	TEXT /PU;PR0,25;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[H[5];PR0,-5;"CNT16X[52];/
+	TEXT /PR20,0;/
+	TEXT /PU;PR0,25;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[H[5];PR0,-5;"CNT16X[51];/
+	TEXT /PR20,0;/
+	TEXT /PU;PR0,25;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[H[5];PR0,-5;"CNT16X[63];/
+	TEXT /PR20,0;/
+	TEXT /PU;PR0,25;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[L[5];PR0,-5;"LSYMB2[L[5];/
+	TEXT /PR0,-5;"LSYMB2[H[5];PR0,-5;"CNT16X[40];/
+
+	TEXT /PR10,0,0,-25,-257.5,0,0,-62.5,22.5,0;PU;/
+	TEXT /PR0,5;PD;PR-20,0,0,55,220,0,0,27.5;PU;/
+	TEXT /PR-35,0;PD;PR0,-30,-182.5,0,0,-47.5,17.5,0;PU;/
+	TEXT /PR0,5;PD;PR-15,0,0,40,145,0,0,32.5;PU;/
+	TEXT /PR-35,0;PD;PR0,-35;PU;PR45,-32.5;PD;/
+	TEXT /PR-12.5,0,0,32.5,-140,0,0,-32.5,12.5,0;/
+	TEXT /PU0,5;PD;PR-7.5,0,0,25,137.5,0,0,-25,10,0;PU;/
+	TEXT /PR0,5;PD;PR-7.5,0,0,17.5,-137.5,0,0,-17.5,5,0;PU;/
+	TEXT /PR0,5;PD;PR-10,0,0,10,145,0,0,-10,5,0;PU;
+	TEXT /PR0,-20;PD;PR-15,0,0,40;PU;PU-2.5,2.5;PD0,-47.5,17.5,0;
+	TEXT /PU0,-5;PD-20,0,0,55;PU-2.5,2.5;PD0,-62.5,22.5,0;/
+	TEXT /PU-80,50;PD0,37.5,10,0;PU-35,0;PD-10,0,0,-40;
+	TEXT /PU-35,-2.5;PD0,42.5;PU-35,0;PD0,-20,275,0,0,15,-5,0;/
+	TEXT /PU0,10;PD10,0,0,30,-320,0;"ARWIS2[K];/
+	TEXT /PU10,-50;PD280,0,0,10,5,0;/
+	TEXT /PU-10,40;PD0,-30,-10,0;PU0,-10;PD5,0,0,-15;PU-25,5;PD0,10,5,0;/
+	TEXT /PU-10,40;PD0,-30,-10,0;PU0,-10;PD5,0,0,-15;PU-25,5;PD0,10,5,0;/
+	TEXT /PU-10,40;PD0,-30,-10,0;PU0,-10;PD5,0,0,-15;PU-25,5;PD0,10,5,0;/
+	TEXT /PU-10,40;PD0,-30,-10,0;PU0,-10;PD5,0,0,-15;PU-25,5;PD0,10,5,0;/
+	TEXT /PU-10,40;PD0,-30,-10,0;PU0,-10;PD5,0,0,-15;PU-25,5;PD0,10,5,0;/
+	TEXT /PU-10,40;PD0,-30,-10,0;PU0,-10;PD5,0,0,-15;PU-25,5;PD0,10,5,0;/
+	TEXT /PU-10,40;PD0,-30,-10,0;PU0,-10;PD5,0,0,-15;PU-25,5;PD0,10,5,0;/
+	TEXT /PU;/
+	0
+
+/ CLOCK GENERATION
+
+PLSC2,	TEXT /PU;PA37.5,30;PR5,20;PD0,-5;"RN3[R1];PD0,-5;PU-5,0;"ARWIS2[M];/
+	TEXT /PD12.5,0;"INV0[54[ 5[6];PD7.5,0,0,27.5,-7.5,0;/
+	TEXT /"INV2[84[9[ 8];PD-7.5;0,0,27.5,20,0;/
+	TEXT /"NAND20[64[ 9[ 8[10];PD7.5,0,0,35,12.5,0,0,37.5,-30,0;/
+	TEXT /"AND22[73[5[6[ 4];PD-7.5,0,0,42.5,10,0;/
+	/CLOCK
+	TEXT /PU-12.5,-15;"ARWIS2[J];PD32.5,0,0,-7.5,-7.5,0;/
+	TEXT /PU32.5,-2.5;PD-10,0;PU10,-5;PD-10,0;/
+	TEXT /"NAND22[64[5[6[ 4];PD-12.5,0;"AND22[73[1[2[ 3];/
+	TEXT /PD-12.5,0,0,35,10,0;/
+	/LOAD
+	TEXT /PU12.5,-50;"LSYMB[H[5];PU30,-17.5;PD-7.5,0;/
+	TEXT /"INV2[54[13[12];PD-15,0;"INV2[54[1[ 2];/
+	TEXT /PD-7.5,0;PU25,0;PD0,-30,-7.5,0;/
+	TEXT /"INV2[54[11[10];PD-7.5,0,0,30;PU25,-15;/
+	TEXT /PD-7.5,0;"INV2[54[3[ 4];PD-12.5,0;/
+	TEXT /"ARWOS2[L];/
+	0
+/ DURATION MUX AND COUNTER
+
+PLSC2,	TEXT /PA120,157.5;/
+	TEXT /PR15,0;"LSYMB0[L[5];PU0,-5;"LSYMB0[L[5];/
+	TEXT /PU-15,5;"MUX512[62];PD7.5,0,0,-10,-55,0,0,-7.5,7.5,0;/
+	TEXT /PU0,85;PD0,-65,-10,0,0,-25,10,0;"AND20[64[ 1[ 2[3];/
+	TEXT /PD15,0;"CNT102[72];PD-10,0,0,-55,-7.5,0;PU-7.5,15;/
+	TEXT /"ARWIS2[I];PD25,0;PU-20,0;PD0,60,20,0;/
+	TEXT /PU-10,15;PD0,-10,-5,0,0,-50,15,0;/
+	TEXT /PU15,0;"LSYMB0[L[5];PU0,-5;"LSYMB0[L[5];/
+	TEXT /PU0,-5;"LSYMB0[L[5];PU0,-5;"LSYMB0[L[5];PU-15,15;/
+	TEXT /"CNT102[70];PD-17.5,0;"OR22[50[9[8[10];
+	TEXT /PD-7.5,0;"ARWOS2[D];PU35,12.5;"LSYMB2[H[5];/
+	TEXT /PU0,10;"LSYMB2[H[5];PU0,5;PD-10,0;PU10,45;"LSYMB2[H[5];/
+	TEXT /PU0,10;"LSYMB2[H[5];PU0,5;"LSYMB2[L[5];/
+/	MUX SWITCH
+	TEXT /PU15,45;PD37.5,0,0,5;"RN1[N57];PD0,5;/
+	TEXT /PU5,0;PD0,-5;"RN3[N56];PD0,-10,-42.5,0;/
+	TEXT /PU0,-5;PD47.5,0,0,15;"RN1[N55];PD0,5;/
+	TEXT /PU-10,0;PD12.5,0;"PLUS0];/
+	TEXT /PU-20,0;/
+	/"GRND0];
+	TEXT /PU1.5,-1;PD2,0;PU-1,2;PD0,-2;PU-2.5,1;/
+	TEXT /PD-15,0,0,-7.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,20;PD0,-7.5;PU-2,0;PD2,-5,0,-12.5;/
+	TEXT /PU5,25;PD0,-7.5;PU-2,0;PD2,-5,0,-17.5;/
+	TEXT /PU4,15;SP'8;LT2,.75;PD0,10,-18,0,0,-10,18,0;LT;SP'7;/
+/	LSD SWITCH
+	TEXT /PU-16.5,-25;PD0,-5;"RN3[N34];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N35];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N36];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N37];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N65];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N64];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N63];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N62];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU2.5,0;/
+	/"GRND0];
+	TEXT /PU1.5,-1;PD2,0;PU-1,2;PD0,-2;PU-2.5,1;/
+	TEXT /PD-37.5,0;PU-4,5;LT2,.75;SP'8;PD0,10,43,0,0,-10,-43,0;/
+	TEXT /PU-8.5,15;LT;SP'7;/
+	TEXT /PD47.5,0;"CROSS];PD7.5,0;PU0,5;/
+	TEXT /PD-12.5,0;"CROSS];PD-42.5,0;PU0,5;/
+	TEXT /PD37.5,0;"CROSS];PD17.5,0;PU0,5;/
+	TEXT /PD-22.5,0;"CROSS];PD-32.5,0;PU0,5;/
+	TEXT /PD27.5,0;"CROSS];PD27.5,0;PU0,5;/
+	TEXT /PD-32.5,0;"CROSS];PD-22.5,0;PU0,5;/
+	TEXT /PD17.5,0;"CROSS];PD37.5,0;PU0,5;/
+	TEXT /PD-42.5,0;"CROSS];PD-12.5,0;/
+	TEXT /PU12.5,20;PD37.5,0;"PLUS0];/
+/	MSB SWITCH
+	TEXT /PU7.5,-80;"PLUS0];PD-17.5,0;PU15,0;/
+	TEXT /PD0,-5;"RN3[N12];PD0,-20;PU-5,5;/
+	TEXT /PD0,15;"RN1[N13];PD0,5;PU-5,0;/
+	TEXT /PD0,-5;"RN3[N14];PD0,-10;PU-5,5;/
+	TEXT /PD0,5;"RN1[N15];PD0,5;/
+	TEXT /PU-7.5,0;/
+	/"GRND0];
+	TEXT /PU1.5,-1;PD2,0;PU-1,2;PD0,-2;PU-2.5,1;/
+	TEXT /PD-17.5,0;PU15,0;/
+	TEXT /PD0,-7.5;PU-2,0;PD2,-5;PD0,-22.5;PU-5,35;/
+	TEXT /PD0,-7.5;PU-2,0;PD2,-5;PD0,-17.5;PU-5,30;/
+	TEXT /PD0,-7.5;PU-2,0;PD2,-5;PD0,-12.5;PU-5,25;/
+	TEXT /PD0,-7.5;PU-2,0;PD2,-5;PD0,-7.5;PU-4,5;SP'8;LT2,.75;/
+	TEXT /PD0,10,23,0,0,-10,-23,0;PU-11,-5;SP'7;LT;/
+	TEXT /PD62.5,0;PU0,-5;PD-62.5,0;PU0,-5;PD62.5,0;PU0,-5;PD-62.5,0;/
+/	DUR ZERO
+	TEXT /PU62.5,0;"NOR40[80[ 9[10[11[12[13];/
+	TEXT /PD7.5,0,0,20,-22.5,0,0,7.5,7.5,0;"OR20[50[ 2[ 1[3];/
+	TEXT /PD7.5,0;"ARWOS0[F];/
+	TEXT /PU-32.5,22.5;"NOR80[82];/
+	TEXT /PD7.5,0,0,-30,-15,0,0,-7.5,7.5,0;/
+	0
+
+/ PULSE WIDTH MUX AND COUNTER
+
+PLSC4,	TEXT /PA260,157.5;/
+	TEXT /PR15,0;"LSYMB0[L[5];PU0,-5;"LSYMB0[L[5];/
+	TEXT /PU-15,5;"MUX512[61];PD7.5,0,0,-10,-55,0,0,-7.5,7.5,0;/
+	TEXT /PU0,85;PD0,-65,-10,0,0,-25,10,0;"AND20[64[12[13[11];/
+	TEXT /PD15,0;"CNT102[71];PD-10,0,0,-55,-7.5,0;PU-7.5,15;/
+	TEXT /"ARWIS2[H];PD25,0;PU-20,0;PD0,60,20,0;/
+	TEXT /PU-10,15;PD0,-10,-5,0,0,-50,15,0;/
+	TEXT /PU15,0;"LSYMB0[L[5];PU0,-5;"LSYMB0[L[5];/
+	TEXT /PU0,-5;"LSYMB0[L[5];PU0,-5;"LSYMB0[L[5];PU-15,15;/
+	TEXT /"CNT102[60];PD-17.5,0;"OR22[50[13[12[11];
+	TEXT /PD-7.5,0;"ARWOS2[E];PU35,12.5;"LSYMB2[H[5];/
+	TEXT /PU0,10;"LSYMB2[H[5];PU0,5;PD-10,0;PU10,45;"LSYMB2[H[5];/
+	TEXT /PU0,10;"LSYMB2[H[5];PU0,5;"LSYMB2[L[5];/
+/	MUX SWITCH
+	TEXT /PU15,45;PD37.5,0,0,5;"RN1[N27];PD0,5;/
+	TEXT /PU5,0;PD0,-5;"RN3[N32];PD0,-10,-42.5,0;/
+	TEXT /PU0,-5;PD47.5,0,0,15;"RN1[N31];PD0,5;/
+	TEXT /PU-10,0;PD12.5,0;"PLUS0];/
+	TEXT /PU-20,0;/
+	/"GRND0];
+	TEXT /PU1.5,-1;PD2,0;PU-1,2;PD0,-2;PU-2.5,1;/
+	TEXT /PD-15,0,0,-7.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,20;PD0,-7.5;PU-2,0;PD2,-5,0,-12.5;/
+	TEXT /PU5,25;PD0,-7.5;PU-2,0;PD2,-5,0,-17.5;/
+	TEXT /PU4,15;SP'8;LT2,.75;PD0,10,-18,0,0,-10,18,0;LT;SP'7;/
+/	LSD SWITCH
+	TEXT /PU-16.5,-25;PD0,-5;"RN3[N23];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N24];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N25];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N16];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N54];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N53];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N52];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU5,75;PD0,-5;"RN3[N51];PD0,-47.5;PU-2,0;PD2,-5,0,-7.5;/
+	TEXT /PU2.5,0;/
+	/"GRND0];
+	TEXT /PU1.5,-1;PD2,0;PU-1,2;PD0,-2;PU-2.5,1;/
+	TEXT /PD-37.5,0;PU-4,5;LT2,.75;SP'8;PD0,10,43,0,0,-10,-43,0;/
+	TEXT /PU-8.5,15;LT;SP'7;/
+	TEXT /PD47.5,0;"CROSS];PD7.5,0;PU0,5;/
+	TEXT /PD-12.5,0;"CROSS];PD-42.5,0;PU0,5;/
+	TEXT /PD37.5,0;"CROSS];PD17.5,0;PU0,5;/
+	TEXT /PD-22.5,0;"CROSS];PD-32.5,0;PU0,5;/
+	TEXT /PD27.5,0;"CROSS];PD27.5,0;PU0,5;/
+	TEXT /PD-32.5,0;"CROSS];PD-22.5,0;PU0,5;/
+	TEXT /PD17.5,0;"CROSS];PD37.5,0;PU0,5;/
+	TEXT /PD-42.5,0;"CROSS];PD-12.5,0;/
+	TEXT /PU12.5,20;PD37.5,0;"PLUS0];/
+/	MSB SWITCH
+	TEXT /PU7.5,-80;"PLUS0];PD-17.5,0;PU15,0;/
+	TEXT /PD0,-5;"RN3[N41];PD0,-20;PU-5,5;/
+	TEXT /PD0,15;"RN1[N42];PD0,5;PU-5,0;/
+	TEXT /PD0,-5;"RN3[N43];PD0,-10;PU-5,5;/
+	TEXT /PD0,5;"RN1[N44];PD0,5;/
+	TEXT /PU-7.5,0;/
+	/"GRND0];
+	TEXT /PU1.5,-1;PD2,0;PU-1,2;PD0,-2;PU-2.5,1;/
+	TEXT /PD-17.5,0;PU15,0;/
+	TEXT /PD0,-7.5;PU-2,0;PD2,-5;PD0,-22.5;PU-5,35;/
+	TEXT /PD0,-7.5;PU-2,0;PD2,-5;PD0,-17.5;PU-5,30;/
+	TEXT /PD0,-7.5;PU-2,0;PD2,-5;PD0,-12.5;PU-5,25;/
+	TEXT /PD0,-7.5;PU-2,0;PD2,-5;PD0,-7.5;PU-4,5;SP'8;LT2,.75;/
+	TEXT /PD0,10,23,0,0,-10,-23,0;PU-11,-5;SP'7;LT;/
+	TEXT /PD62.5,0;PU0,-5;PD-62.5,0;PU0,-5;PD62.5,0;PU0,-5;PD-62.5,0;/
+/	DUR ZERO
+	TEXT /PU62.5,0;"NOR40[80[ 5[ 4[ 3[ 2[1];/
+	TEXT /PD7.5,0,0,20,-22.5,0,0,7.5,7.5,0;"OR20[50[ 6[ 5[4];/
+	TEXT /PD7.5,0;"ARWOS0[G];/
+	TEXT /PU-32.5,22.5;"NOR80[81];/
+	TEXT /PD7.5,0,0,-30,-15,0,0,-7.5,7.5,0;/
+	0
+
+	>
+	IFDEF LOGIC	<
+PLSC0,	TEXT /"COMMON[[[[[[[1[1];/
+	TEXT /SP'7;/
+/	TEXT /VS5;/
+	0
+
+	>
+
+	FIELD 0
+	IFDEF LOGIC	<
+PLSC0,	TEXT /"COMMON[[[[[[[1[1];/
+	TEXT /SP'7;/
+/	TEXT /VS5;/
+	0
+
+	>
+
+	FIELD 0
+
\ No newline at end of file