FB0PK8;3"TI3	&F1!F!AGQ[LFGQ;!=ZT&XG3VIB.P,[!;1!NB&XGL-IBR .YM"%JBZ KAXII/
E
BKF
G"YX
1!F	B&XGH3"&XGH;1!FB: XJ.%T[,^4
[/$[-HI%K	CKDXNHKXO
DLN?HWDPO+PK5%K	]&A&E	\-O
%-6^$H,IHXAY+)PPH
?+,HX$\%D-CHXA^8!H&> +!HXA%+)D	YC;1!FBK>"P/63VH !WZD&HGLD	IB.2H$ZWI6ZZH
?*UJW8!I6Y6.I1!HPBOIPG"B*SH$Z*I6Z,H
?*(J*I6Y6.]1!HPAIPG3B*&WLZ3&HGNIB./SKSKSKSKSKSK;KK	MZ/[K./SUSTN8H^=[R	VGHTGIB/N,I^: H	X	L	/WHPI??????????????????	/CHK CB EMPTYCBMT,	SET 15	0	LDA		/BETA 4	4		/IS CB PTR	AZE	JMP 0	JMP CBFWD	/CB IS EMPTY	JMP CBRDC	SET I 4	HBIT+CB-1	F     "TC12-F"HH   LINCTA
E/DECTAPE CONVERSION PROGRAMFH   THIS PROGRAM WILL RUN SUCCESSFULLY ONLY ON A PDP-12 COMPUTER EQUIPPED WITH THE TC12-F HARDWARE OPTION.  IT WILL READ AND WRITE FROM TAPE UNITS 0-7 IN ANY TAPE FORMAT; YOU MUST SPECIFY THE CORRECT FORMAT.FFHTYPE LINEFEED TO
CONTINUE\ I 2	SHD I	CR1	XSK I 0	JMP 0			/EOL FIXESEOLFIX,	LDA I	1	ADD CURLN	STC CU:<H: XCNQ^PNR^OHC>(*NJL8F!9K]
?96F9KZ<^<96?^<>?;=AH;0V2RD80VD)0VI\D90VI\&V?>?>?>=AH2R&R??>?;=AH2R&U?>>>?>=AN2RJ0CIP?<!11S?P/?H7/?P?<C9K\<
D96?
E>?>=AH;1S2R&X?
F>?;=AH2R&[?
D>?>=AN2RI0IP2H"HIF9KZP
I96H
ICAD)2CHPN2EHP40H TXI0203D3Y354O4!5H5 5=!I".K
L0D72+,MI\D)0KI\I\D90KI\M0?8CCR.B".B^2VHP0AV,&TV-&ZVV&\SKH P6H P
HP=>H P8HP==H P!6PV,H W	&TVV&\HP?1H P6H P
HP=>H P8IOH P!6PV+&TV/&ZHP?<&760IPM&\HP?3H P6HP?;H P
HP=>H P8HP9>H P!6PV,&ZVVB!&\HPDH W	HP?8H P6HP?1H P
IOH P8HP==H P!6PVV&\S?H P6H P
IS;H W	IOH P8H P!6PV/&ZQF&760IPAL0?>4-$24/I$2PMB!IP&\S;H W	HP?9H P6HP?;H P
IOH P8HP9>H P!6PV.&TV,&ZVVJ0C&\P]H P6HP?3H P
HP9?H P8HP==H P!6PV.&TVVH F\CQJF\&\P]H P6IT8H P
HPDH W	IOH P!IUXH P86PV.&TV/&ZVV&\P]H P6H P
IS1H P!IUXH P8B&)&*1!FHPJNP0D86;B*Q<B<B0/0UBBABBFFA!I MVVB]IPD9650A0P			/WB FWD OR BWDBBWRC,	LDA	BBTBLK	STC .+7	LIF	3	DJR	LDA I	JMP	.+2	JMP	GOODY	WRC WAUNIT	0	JMP 0WBWRC,	SET 11	0	LDA I	1	SAE	PLAFLG	JMP BBWRC	SET 0	11	LDA IWT,	WRC WAUNITWBRDC,	STC .+13		/
OMETIMES COMES HERE			/WITH RDC IN AC	LDA I		/ADD 1 TO	1001		/MBLK AND THPBPH0[K AHA[?):HQ)5 FI5$I:!D<CNKT;$9(93L09!9\KKTIP?OO FK3BV9.KS9!K4HPB?*V3%I5!C<C:GKSHPM0*N^U:LKSHPNP*N^V+0TNPBD1AHP?
I0KS;%<L:)LP9=;-:W;-MP>YKU;%:W:W: >\D89O2MULB<TLR;^BF96LR;HLR<PLR9XLR96LR;HLR96+E;$;>;>HPK$96KD;%96O=KBL0
;>%DD;VKUKS;%NIK%D(;U;>BF<T;$9694; KTLP<0L0\BPBP0B!] B^Q^QPA APEOPDD(I*"ZVO"O20HP
?I D96KQLPF0L0HBPBP0KSHP : KTD8;>=
HPAI IO9OAAAA$??$)?V)!^R!!?^!%?!%$? $!^V%H??H?!!!" >H?TA?CAX??XX??F!??!$?X$">C>$?Y&)Q&)   ?A??AA><BF??AL33LG88G%1)!??!%<>^\
	=88;%;>;>96LY)6EV^!!^P((DDD
EFDDDDAFA X%^^)QAA?%SQ)!RV)TLD?):F)MF"U$0()VV))R^)R&ABJJJJN^Q PP-O00:$H/.PA/+PB/-/)DM0E0^H0IP= D)?O1O72?8HN)L1>7?(BR>4IP< D)?HL1?EHPC\?/HP
?*L1?(?*HN)?/^)M0??*L0?-?\HP/)HPBM?/HPBJ?/?(L0?*?"HP%?TL0?)?(HP	?*HP120E0&H/7E0!?40BB$B%B	CC^C
 MPCUB;X1*:./1!HU /14>2?<=>HPGF	$HPV[(CHPV\(HHPD)"U1E1!13(2?;=>HPGB	$HPVU(CHPVV(HHPN"UBQ[UQ[VQ[WQ[XQ[Y+\N/R//Q1!QUB%M0?
"*QUCAM0?<" QUCAM0?NPF &]QVH C	%*QWO!ZQYD80PO JBND77IHP(E1)HP R AHB*IPBFE1*HPAE1*IE1,CRD:1=N2\HP E1*1=IE1)HPA3	AZNHPBVIPE1*%BDL2/CND/236
D)2L AXD70AOQXD92HPCFIB*E1*HAXIP?<D)3YDL3LC6
IPCOQXD82D)32DL3YC6
D(39?4 HBX3"BY3"2&EI&!6]BVD735D/30D/3*32D/35C6
D/39C6
B
	S	81!BSD74HBW394+D/4HCM0L36
IV!6&H F!B&N F!CFD(40HPAI AXBZD70PB]2F"H VUIPJOH VV0PD/4+C6
4HIQZIPAJC	IHAXIP?<D932I&!&E6]HPWBVD75MD/5HD/5E5JE1*HP5R	HD/5RE1,BSD750BWD75+B;O*S*1!O%%V!N0&!U%O68ID/D75,5RHP59	HHF!CFN F!68D/59E1,D/D75=D/6D/D76BHPBVE1*HPAI AXBZD70P!B]2F"H V[IPJOH V\0P0&IPN0&!VOH FM0?IPXJ&6KFIPXJ&4IPB5P0H0M0?IPYJ	FKF9IPYJ	DB"OHAUCQM0?<
XB4I G$NPG	3HPPIPAHAXH G%	4	"F HPSHPI G"HPAI G%BZD773B]7 GGD(HPAI G4L G%73BJD70PF"H VUIPJOH VV0PD $DDDD D$  D   $$$D$ $$BF"&DBDFD"D& B F " &$B$F$"$&PT04DPDTD0D4 P T 0 4$P$T$0$4RV26DRDVD2D6 R V 2 6$R$V$2$6DPDPADAQDQHLHPLPHALAHQLQ D 0D0!D!1D1H L H0L0H!L!H1L
BDBRDRCDCSDSHBLBHRLRHCLCHSLS"D"2D2D3D3H"L"H2L2HLH3L3R2	JMP C1+2F CHECK PARITY<1	F	0 SPECIFIES NO	 F	1 SPECIFIES YES	 	TYPE LINE FEED TO CONTINUE\F  READ<4 BLOCKSF        TAPE FORMAT<1 FROM UNIT<1F          STARTING WITH BLOCK<4FHFORMAT A.....PDP-8  (201 W
RDS/BLOCK)HH       B.....PDP-12 (400 WORDS/BLOCK)HH       C.....OTHER  (PDP-9,10,15 WITHH                     600 12-BIT WORDS/BLK) \F  WRITE THE RESULTF         IN TAPE FORMAT<1 ON UNIT<1	           STARTING AT BLOCK<4FHFORMAT A.....PDP-8  (201 WORDS/BLO
K)HH       B.....PDP-12 (400 WORDS/BLOCK)HH       C.....OTHER  (PDP-9,10,15 WITHH                     600 WORDS/BLOCK) \<<<<\<<<\<\T2		/ON CUR LN ?	ROL 1	COM	STC TEMP2	LDA	3	ROL 1	ADD TEMP2	APO I	XSK I 0		/NO	JMP 0		/YESRORIT,

Note: Lines longer than 256 characters were wrapped