*5200 /TAPE CHARACTER EDITOR AND COMMENTATOR. / /THIS PROGRAM FITS BELOW MACRO-8 /AND ABOVE DDT-8. / 5200 6046 TLS 5201 4273 TOP, JMS RED /CLEAR THE FLAG TO GET NEXT. 5202 3311 DCA TEM /SAVE THE CHARACTER. 5203 7604 LAS /CHECK THE CONTROLS FOR PRINT-SKIP 5204 0316 AND SKIP /MASK OUT SKIP SWITCH. 5205 7640 SZA CLA /TEST THE SWITCH. 5206 5211 JMP .+3 /SKIP PRINTING. 5207 1311 TAD TEM /PRINT 5210 4265 JMS PNT / PRINT A CHARACTER. 5211 7604 LAS /CHECK FOR SPEED COMMAND. 5212 0320 AND SPEED 5213 7650 SNA CLA 5214 5227 JMP WAITER /GO CHECK THE STOP COMMAND. 5215 4300 JMS CYCLE /WAIT. 5216 7604 LAS /READ THE SW'S. 5217 0321 AND MED /MASK BIT ONE. 5220 7650 SNA CLA /MEDIUM SPEED? 5221 5227 JMP WAITER /WAITING DONE. 5222 4300 JMS CYCLE /YES 5223 7604 LAS 5224 0322 AND LOW 5225 7640 SZA CLA /LOW SPEED? 5226 4300 JMS CYCLE 5227 7604 WAITER, LAS /NO. 5230 0315 AND WAIT /CHECK STOP COMMAND. 5231 7640 SZA CLA /IS SW-3 DOWN? 5232 5227 JMP .-3 /NO,WAIT. 5233 6032 KCC /FETCH NEXT CHARACTER. 5234 7604 LAS 5235 0317 AND STOP /CHECK FOR CR? 5236 7650 SNA CLA 5237 5201 JMP TOP /NO 5240 4273 JMS RED /READ NEXT NOW. 5241 1313 TAD MCR 5242 7640 SZA CLA /CR FOUND? 5243 5201 JMP TOP /NOT FOUND 5244 1314 TAD SLASH /PRINT COMMENT FIELD INSTEAD. 5245 4265 JMS PNT 5246 4273 JMS RED /WAIT FOR A NON-CR TO COME INTO 5247 1313 TAD MCR /THE KEYBOARD BUFFER. 5250 7650 SNA CLA 5251 5246 JMP .-3 /CONTINUE WAITING. 5252 6032 KCC /FETCH NEXT CHARACTER. 5253 4273 COMENT, JMS RED /READ COMMENT FIELD. 5254 3311 DCA TEM /SAVE ONE. 5255 1311 TAD TEM 5256 4265 JMS PNT /PRINT AND PUNCH. 5257 6032 KCC /FETCH NEXT. 5260 1311 TAD TEM /TEST LAST. 5261 1313 TAD MCR /TEST FOR CR. 5262 7650 SNA CLA 5263 5201 JMP TOP /RESUME NEXT LINE. 5264 5253 JMP COMENT /CONTINUE COMMENT FIELD. /////// 5265 0000 PNT, 0 /PRINT A LETTER. 5266 6041 TSF /PRINT A LETTER. 5267 5266 JMP .-1 /WAIT FOR THE LAST ONE TO 5270 6046 TLS /TO FINISH;THEN TYPE. 5271 7200 CLA /CLEAR AC. 5272 5665 JMP I PNT /RETURN. ///// 5273 0000 RED, 0 5274 6031 KSF /READ A LETTER. 5275 5274 JMP .-1 5276 6034 KRS 5277 5673 JMP I RED /RETURN. /////// 5300 0000 CYCLE, 0 /ENTRY POINT. 5301 1312 TAD MUMPH /SETUP # OF TIMES TO DO 5302 3311 DCA TEM /20000(8) X35MMS. 5303 2310 ISZ CNTR /COUNT 2EXP(12). 5304 5303 JMP .-1 /WAIT 5305 2311 ISZ TEM /COUNT CYCLES. 5306 5303 JMP .-3 /(NOP)-FOR 8/S. 5307 5700 JMP I CYCLE /EXIT. /////// 5310 0000 CNTR, 0 5311 0000 TEM, 0 5312 7760 MUMPH, -20 5313 7563 MCR, -215 5314 0257 SLASH, 257 5315 0400 WAIT, 400 5316 0040 SKIP, 40 5317 0004 STOP, 4 5320 7000 SPEED, 7000 5321 3000 MED, 3000 5322 1000 LOW, 1000 /////  CNTR 5310 COMENT 5253 CYCLE 5300 LOW 5322 MCR 5313 MED 5321 MUMPH 5312 PNT 5265 RED 5273 SKIP 5316 SLASH 5314 SPEED 5320 STOP 5317 TEM 5311 TOP 5201 WAIT 5315 WAITER 5227   / /ADDITIONAL BINARY PATCH FOR PDP-8/S. / *CNTR-2 5306 7000 NOP  CNTR 5310 COMENT 5253 CYCLE 5300 LOW 5322 MCR 5313 MED 5321 MUMPH 5312 PNT 5265 RED 5273 SKIP 5316 SLASH 5314 SPEED 5320 STOP 5317 TEM 5311 TOP 5201 WAIT 5315 WAITER 5227