                                
            
            *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

                                                                