/READABLE PUNCH AND COPY PROGRAM
/
/BASED ON DECUDS 8-382 BUT HEAVILY MODIFIED.
/
*200
START,	CLA CLL 	/INITIALIZE
	TLS
	PLS
	RFC
	KCC
	JMS LDR
NEXT,	KSF		/GET A CHARACTER
	JMP .-1
	KRB
	TLS
	DCA CHAR	/STORE IT
	TAD CHAR
	TAD M215	/IS IT CR
	SNA CLA 
	JMP NEXT	/YES GET NEXT CHAR
	TAD CHAR	/NO, IS IT LINEFEED
	TAD M212
	SNA CLA 
	JMP NEXT	/YES GET NEXT CHAR
	TAD CHAR
	TAD MODE	/NO IS IT ALTMODE
	SNA CLA 
	JMP GO		/YES PRODUCE LEADER
	TAD C3
	DCA VCNT	/INITIALIZE COUNTER
	TAD CHAR
	AND MASK77	/STRIP CHARACTER
	DCA MKAD
	TAD MKAD
	CLL RAL 
	TAD MKAD
	TAD SOC
	DCA PUND
PUCH,	CLA CLL
	TAD I PUND	/GET FIRST TWO CHARS
	DCA CHAR
	TAD CHAR
	RTR 
	RTR 
	RTR 
	AND MASK77	/REMOVE 2ND VECTOR
	CLL RAL 	/COLS 2-7 ONLY
	JMS PUNCH	/PUNCH 1ST VECTOR
	TAD CHAR
	AND MASK77
	CLL RAL 
	JMS PUNCH	/PUNCH 2ND VECTOR
	ISZ PUND
	ISZ VCNT
	JMP PUCH
	JMP NEXT
/
PUNCH,	0		/PUNCH ROUTINE
	PSF
	JMP .-1
	PLS
	CLA 
	JMP I PUNCH
/
LDR,	0		/PRODUCE LEADER
	CLA CLL 
	TAD LDRCNT
	DCA VCNT
	JMS PUNCH
	ISZ VCNT
	JMP .-2
	JMP I LDR
/
GO,	JMS LDR
	JMS READ
	JMS PUNCH
	JMP .-2
/
READ,	0
	DCA VCNT	/FOR TIMEOUT LOOP
	RSF 
	SKP 
	JMP .+4
	ISZ VCNT
	JMP .-4
	JMP NEXT-1
	RRB RFC 
	JMP I READ
/
MODE,	-375
CHAR,	0
M215,	-215
M212,	-212
C3,	-3
VCNT,	0
MASK77,	0077
LDRCNT,	-200
PUND,	0
MKAD,	0
SOC,	TABLE
TABLE,	0000		/CIRCLE A
	0000
	0000
	3744		/A
	4444
	3700
	7751		/B
	5151
	2600
	3641		/C
	4141
	2200
	7741		/D
	4141
	3600
	7751		/E
	5141
	4100
	7750		/F
	5040
	4000
	3641		/G
	4545
	2600
	7710		/H
	1010
	7700
	0041		/I
	7741
	0000
	0201		/J
	0101
	7600
	7704		/K
	1022
	4100
	7701		/L
	0101
	0100
	7720		/M
	1420
	7700
	7720		/N
	1004
	7700
	3641		/O
	4141
	3600
	7744		/P
	4444
	3000

	3641		/Q
	4142
	3500
	7744		/R
	4446
	3100
	2251		/S
	5151
	4600
	4040		/T
	7740
	4000
	7601		/U
	0101
	7600
	7402		/V
	0102
	7400
	7702		/W
	0402
	7700
	6310		/X
	0410
	6300
	6010		/Y
	0710
	6000
	4341		/Z
	4551
	6100
	0077		/LEFT BRACKET
	4141
	0000
	6010		/BACK SLASH
	0400
	0300
	0041		/RIGHT BRACKET
	4177
	0000
	0000		/UP ARROW
	0000
	0000
	0000		/BACK ARROW
	0000
	0000
	0000		/SPACE
	0000
	0000

	0000		/!
	0075
	0000
	0070		/QUOTES
	0070
	0000
	1477		/POUND SIGN
	0077
	1400
	7777		/$
	7777
	7700
	0000		/PERCENT
	0000
	0000
	0000		/AMPERSAND
	0000
	0000
	0000		/APOSTROPHE
	0000
	0000
	0000		/LEFT PARENTHESIS
	0000
	0000
	0000		/RIGHT PARENTHESIS
	0000
	0000
	0000		/ASTERISK
	0000
	0000
	0000		/PLUS
	0000
	0000
	0000		/COMMA
	0000
	0000
	1010		/MINUS
	1010
	1000
	0000		/PERIOD
	0303
	0000
	0300		/SLASH
	0410
	6000

	3641		/0
	4136
	0000
	0021		/1
	7701
	0000
	2345		/2
	4545
	3100
	2241		/3
	5151
	2600
	0414		/4
	2477
	0400
	7251		/5
	5151
	4600
	3651		/6
	5151
	4600
	6043		/7
	4450
	6000
	2651		/8
	5151
	2600
	2251		/9
	5151
	3600
	0000		/COLON
	6363
	0000
	0000		/SEMICOLON
	0000
	0000
	0000		/LEFT POINTY THING
	0000
	0000
	0000		/EQUALS
	0000
	0000
	0000		/RIGHT POINTY THING
	0000
	0000
	0000		/QUERY
	0000
	0000
$