Directory of image this file is from
This file as a plain text file
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