                      
/  PACK-PUNCH PROCESSOR
HLT
*7000
6032
6031
5201
6036
7106
7006
7510
JMP LT
7006
6031
5211
6034
7430
SWCH, JMP ADDR
DCA I Z 57 / LOC
DCA SUM1
TAD I Z 57 / LOC
AND   Z 60 / P77
DCA SUM1
TAD I Z 57 / LOC
AND   Z 62 / MHUN
CLL RTR
RTR
RTR
TAD SUM1
DCA SUM1
TAD SUM1
TAD   Z 61 / SUM
DCA   Z 61 / SUM
ISZ   Z 57 / LOC
ISZ   Z 63 / TOTL
ISZ   Z 65 / LOC2
SKP
HLT
ISZ   Z 76 / PAGE
JMP 0
SKP
ADDR, DCA Z 65 / LOC2
TAD Z 63 / TOTL
SNA CLA
JMP OUT
TAD   Z 100 / M6
DCA   Z 76 / PAGE
TAD   Z 101 / P125
JMS   Z 51 / PDIG
ISZ   Z 76 / PAGE
JMP .-3
TAD   Z 64 / LOC1
JMS   Z 35 / PNCH
TAD   Z 63 / TOTL
JMS   Z 35 / PNCH
TAD   Z 61 / SUM
JMS   Z 35 / PNCH
TAD   Z 63 / TOTL
CIA
DCA   Z 66 / CHEK
TAD   Z 72 /	 P200
DCA   Z 57 / LOC
UP, TAD I Z 57 / LOC
AND   Z 67 / M20
RTR
RTR
JMS   Z 51 / PDIG
TAD I Z 57 / LOC
AND   Z 73 / P17
DCA   Z 75 / A1
ISZ   Z 57 / LOC
TAD I Z 57 / LOC
AND   Z 74 / M100
RTR
RTR
TAD   Z 75 / A1
JMS   Z 51 / PDIG
ISZ   Z 66 / CHEK
SKP
JMP   Z 20 / OUT
TAD I Z 57 / LOC
AND   Z 70 / P377
JMS   Z 51 / PDIG
ISZ   Z 57 / LOC
ISZ   Z 66 / CHEK
JMP UP
JMP   Z 20 / OUT
STRT, CLA CLL
TAD LT1
DCA 7
TAD SW1
DCA SWCH
JMP 0
SW1, JMP INIT
INIT, DCA Z 64 / LOC1
TAD   Z 64 / LOC1
DCA   Z 65 / LOC2
TAD SW3
DCA 7
TAD SW2
DCA SWCH
JMP Z 22
SW2, JMP ADDR
SW3, JMP END
END, CLA
TAD LT1
DCA 7
TAD SUM1
CIA
TAD   Z 61 / SUM
DCA   Z 61 / SUM
CLA CMA
TAD   Z 63 / TOTL
DCA   Z 63 / TOTL
JMP ADDR
SUM1, 0
LT1, JMP LT
LT, CLA
TAD   Z 72 / P200
JMS   Z 51 / PDIG
JMP 0
*20
OUT, TAD LOC2
DCA LOC1
TIDY, DCA TOTL
DCA SUM
TAD P200
DCA LOC
TAD M200
DCA PAGE
JMP I RIM
*35
PNCH, 0
DCA NUM
TAD NUM
AND MHUN
CLL RTR
RTR
RTR
JMS PDIG
TAD NUM
AND P77
JMS PDIG
JMP I PNCH
PDIG, 0
TLS
TSF
JMP .-1
CLA
JMP I PDIG
LOC, 0
P77, 77
SUM, 0
MHUN, 7700
TOTL, 0
LOC1, 0
LOC2, 0
CHEK, 0
M20, 7760
P377, 377
NUM, 0
P200, 200
P17, 17
M400, 7400
A1, 0
PAGE, 0
M200, 7600
M6, 7766
P125, 200
RIM, 7000
$
                   