?: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[&NYRYZ7)HPTS"AFIAGOIN27;HPBJ6B6B6BH(HCHPBPH0Z AHAZ4(/HQ(* FH*$H/!D:8NKT:Y8]8(L08V8QKKTIP?OO FK3BV8KS8VK4HPC?)K3%H*!C:88H?TA?CAX??XX??F!??!$?X$">C>$?Y&)Q&) ?A??AA>^\ =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