File MARK12.SV (save files (Executable program)

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

?:2C PH B$B(B,B0B4B7TN 3T	R3PWP3DF 3S	C3IN 7HKAS6..JRI.4^7.;^7*4B4"/7A.JVI.1^7.;Z2*5B1"/7B.JRI.1Z3.;J2*4B1"/7C.JRI.1^7.;Z3*4B1"/7D.JRI.5^7.;F4*4B5"/7E.JRI.4^7.;B4*4B4"/7F.JRI.1Z3.;Z2*4B5"/7G.JFI.0^7.;^7*1B0"/7H.J^I.7F4.;B0*4B1"/7I.JRI.1J4.;B4*7B6"/7J.JFI.
^7.;N4*2B4"/7K.JBI	TAD I WRTAP	ISZ WRTAPB2C.O>E1!F8PAG20
HG2LP10+LPP0;0PHG2LP8+LP18+LPP8+0PBL	KP??D?8?8HTEH 1!HPH6]BL	KP??B?0?3X EO?P1!HPX6]"Y1!8Q/G2NHPA$E1*8RXG2N4>?BT1\HP(E1)IE1,L0/?1)1.HPTE1*1NHPBAIQB5D:1)B:1)/LH0IPBS BH8R>G22MHG2LP10PLP20L2HG2LP18+LP28+LP8+2:NYRY[%NYRY[&NYRYZ<NYRY[NYRYZ=NYRY8 [$K(
	K)1*1!6GK%	+K&	+OK	*NY	+OS8R=8S$*:RY		O: NYRY	+ONYRY	+1!IA4?WHPTE1*BU3XBT3XB:.Y&"3B$&PA R Y  F E B R U A R Y    M A R C H    8 	INN9 KF<X<B<(<BZ5RNZ8Z9	IBKGZ6KHZ7KK	IIJ88DZ8<XN7J9Z9R7R6*VKK	IIR5*KK	IK;U	JA	IBJ9	IGR.DHP P ABABDHN?4$:&&P**L I M E N T S   O
F   C H A R L I E   B R O W N TYPE YEAR:H0H%7HE*M0?
B!OIPCU*H&AHPBM6BHPBJ1,;N1!D
DO6GHPBB1*R:.8!Z\NPZV"R\*U:RP.P&6F 1
?HPIH1V"BA6I&0HPPAHPSG^HPAI F0L06,G[G[IPAH0G[L F?7	D(6<HPPAI	PHPSGZL0??7	HPAI GPL F67L1
?HPIL17	W^BA7
HPR>7)HPTS"AFIAGOIN27;HPBJ6B6B6BH(HCHPBPH0Z AHAZ4(/HQ(* FH*$H/!D:8NKT:Y8]8(L08V8QKKTIP?OO FK3BV8KS8VK4HPC?)K3%H*!C:88<KSHPM0)C]J9AKSHPNP)C]K*%TNPBD1AHP?
I0KS:Z;A9^LP82:"9L:"MP=NKU:Z9L9L9U=QD88D2LJLB;ILR:SBF8+LR9=LR;ELR8MLR8+LR9=LR8+)::Y:3:3HPK$8+KD:Z8+O=KBL0
:3%DD:KKUKS:ZNIK%D(:J:3BF;I:Y8+8):UKTLP<0L0\BPBP0B!\X B]F]FPA APEOPDD(I)WYKO"O20HP
?I D8+KQLPF0L0HBPBP0KSHP 9UKTD8:3<THPAI HD8DAAAA$??$)?V)!^R!!?^!%?!%$? $!^V%H??H?!!!" >H?TA?CAX??XX??F!??!$?X$">C>$?Y&)Q&)   ?A??AA><BF??AL33LG88G%1)!??!%<>^\
	=88:Z:3:38+KN)6EV^!!^P((DDD
EFDDDDAFA X%^^)QAA?%SQ)!RV)TLD?):F)MF"U$0()VV))R^)R&ABJJJJN]F PP-O009YH.*PA.	PB.).%DM0E0^H0IP= D)>D1N32?8HM^L1=,>$BR=)IP< D)==L1=:HPC\>+HP
>&L1>$>&HM^>+]^M0?>&L0?->QHP.%HPBM>+HPBJ>+>$L0?*>WHP%>IL0?>^B2C.]>EL0?)>$HP	>&HP120E0&H.3E0!>00BB$B%B	CC^C
 ^RDS)/M/	BN  (BKWD)/  BLOCK,	0000	CMA		/USED IN COMP. FORM	JMS I KWAIT	/WRITE FWD BM	0016		/BLOCK NO CODE WORD	TAD I BLOCK	/GF    MARK 12HH    THIS PROGRAM WILL FORMAT AND CHECKH    LINC TAPES FOR THE PDP-12HH    SELECT OPTION AND PRESS LINE FEEDH    ON 
HE CONSOLE TELETYPE FSELECT  <1 F  1  STD LINC FORMATFF  P  128 WORD FORMAT\F MOUNT TAPE TO BEF MARKED ON THE RIGHTF REEL OF UNIT 1.FF PLACE UNIT 1 IN\     F REMOTE WITH F WRITE ENABLED, THENF F PRESS THE MARK SWITCH\FF   GOOD TAPEFH   ALLOW MARKED TAPE T
 REWINDH   THEN SELECT OPTION AND TYPEH   LINE FEED ON THE TELETYPEFFSELECT  <1FF 1 MARK ANOTHER TAPEFF 2 RESTART PS/8\FF   TAPE CHECK FAILEDFFFFSELECT <1FF 1 MARK ANOTHER TAPEFF 2  RESTART PS/8F\MOVE POINTER	ISZ COUNTB	/DONE 12 YET	JMP BLKLP1	/NOBLKLP2,	
AD K5252	/WRITE REST OF DATA WORDS	JMS I KWAIT	/WRITE DATA WORD	0011		/DATA MARK CODE	ISZ COUNTA	/DONE YET	JMP BLKLP2	/NO	TAD K5252		JMS I KWAIT	/WRITE FINAL MARK	0013		/FINAL MARK CODE	CLA IAC STL RAL	/WRITE 3 CHECK WORDS	JMS I KWMKWD	0001		/CHECKMARK CO
E	JMS I KWAIT	/WRITE GUARD MARK	0002		/GUARD MARK CODE

Note: Lines longer than 256 characters were wrapped



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