1 2 / PACK-PUNCH PROCESSOR 3 000200 7402 HLT 4 *7000 5 007000 6032 6032 6 007001 6031 6031 7 007002 5201 5201 8 007003 6036 6036 9 007004 7106 7106 10 007005 7006 7006 11 007006 7510 7510 12 007007 5361 JMP LT 13 007010 7006 7006 14 007011 6031 6031 15 007012 5211 5211 16 007013 6034 6034 17 007014 7430 7430 18 007015 5245 SWCH, JMP ADDR 19 007016 3457 DCA I Z 57 / LOC 20 007017 3357 DCA SUM1 21 007020 1457 TAD I Z 57 / LOC 22 007021 0060 AND Z 60 / P77 23 007022 3357 DCA SUM1 24 007023 1457 TAD I Z 57 / LOC 25 007024 0062 AND Z 62 / MHUN 26 007025 7112 CLL RTR 27 007026 7012 RTR 28 007027 7012 RTR 29 007030 1357 TAD SUM1 30 007031 3357 DCA SUM1 31 007032 1357 TAD SUM1 32 007033 1061 TAD Z 61 / SUM 33 007034 3061 DCA Z 61 / SUM 34 007035 2057 ISZ Z 57 / LOC 35 007036 2063 ISZ Z 63 / TOTL 36 007037 2065 ISZ Z 65 / LOC2 37 007040 7410 SKP 38 007041 7402 HLT 39 007042 2076 ISZ Z 76 / PAGE 40 007043 5000 JMP 0 41 007044 7410 SKP 42 007045 3065 ADDR, DCA Z 65 / LOC2 43 007046 1063 TAD Z 63 / TOTL 44 007047 7650 SNA CLA 45 007050 5020 JMP OUT 46 007051 1100 TAD Z 100 / M6 47 007052 3076 DCA Z 76 / PAGE 48 007053 1101 TAD Z 101 / P125 49 007054 4051 JMS Z 51 / PDIG 50 007055 2076 ISZ Z 76 / PAGE 51 007056 5253 JMP .-3 52 007057 1064 TAD Z 64 / LOC1 53 007060 4035 JMS Z 35 / PNCH 54 007061 1063 TAD Z 63 / TOTL 55 007062 4035 JMS Z 35 / PNCH 56 007063 1061 TAD Z 61 / SUM 57 007064 4035 JMS Z 35 / PNCH 58 007065 1063 TAD Z 63 / TOTL 59 007066 7041 CIA 60 007067 3066 DCA Z 66 / CHEK 61 007070 1072 TAD Z 72 / P200 62 007071 3057 DCA Z 57 / LOC 63 007072 1457 UP, TAD I Z 57 / LOC 64 007073 0067 AND Z 67 / M20 65 007074 7012 RTR 66 007075 7012 RTR 67 007076 4051 JMS Z 51 / PDIG 68 007077 1457 TAD I Z 57 / LOC 69 007100 0073 AND Z 73 / P17 70 007101 3075 DCA Z 75 / A1 71 007102 2057 ISZ Z 57 / LOC 72 007103 1457 TAD I Z 57 / LOC 73 007104 0074 AND Z 74 / M100 74 007105 7012 RTR 75 007106 7012 RTR 76 007107 1075 TAD Z 75 / A1 77 007110 4051 JMS Z 51 / PDIG 78 007111 2066 ISZ Z 66 / CHEK 79 007112 7410 SKP 80 007113 5020 JMP Z 20 / OUT 81 007114 1457 TAD I Z 57 / LOC 82 007115 0070 AND Z 70 / P377 83 007116 4051 JMS Z 51 / PDIG 84 007117 2057 ISZ Z 57 / LOC 85 007120 2066 ISZ Z 66 / CHEK 86 007121 5272 JMP UP 87 007122 5020 JMP Z 20 / OUT 88 007123 7300 STRT, CLA CLL 89 007124 1360 TAD LT1 90 007125 3007 DCA 7 91 007126 1331 TAD SW1 92 007127 3215 DCA SWCH 93 007130 5000 JMP 0 94 007131 5332 SW1, JMP INIT 95 007132 3064 INIT, DCA Z 64 / LOC1 96 007133 1064 TAD Z 64 / LOC1 97 007134 3065 DCA Z 65 / LOC2 98 007135 1343 TAD SW3 99 007136 3007 DCA 7 100 007137 1342 TAD SW2 101 007140 3215 DCA SWCH 102 007141 5022 JMP Z 22 103 007142 5245 SW2, JMP ADDR 104 007143 5344 SW3, JMP END 105 007144 7200 END, CLA 106 007145 1360 TAD LT1 107 007146 3007 DCA 7 108 007147 1357 TAD SUM1 109 007150 7041 CIA 110 007151 1061 TAD Z 61 / SUM 111 007152 3061 DCA Z 61 / SUM 112 007153 7240 CLA CMA 113 007154 1063 TAD Z 63 / TOTL 114 007155 3063 DCA Z 63 / TOTL 115 007156 5245 JMP ADDR 116 007157 0000 SUM1, 0 117 007160 5361 LT1, JMP LT 118 007161 7200 LT, CLA 119 007162 1072 TAD Z 72 / P200 120 007163 4051 JMS Z 51 / PDIG 121 007164 5000 JMP 0 122 *20 123 000020 1065 OUT, TAD LOC2 124 000021 3064 DCA LOC1 125 000022 3063 TIDY, DCA TOTL 126 000023 3061 DCA SUM 127 000024 1072 TAD P200 128 000025 3057 DCA LOC 129 000026 1077 TAD M200 130 000027 3076 DCA PAGE 131 000030 5502 JMP I RIM 132 *35 133 000035 0000 PNCH, 0 134 000036 3071 DCA NUM 135 000037 1071 TAD NUM 136 000040 0062 AND MHUN 137 000041 7112 CLL RTR 138 000042 7012 RTR 139 000043 7012 RTR 140 000044 4051 JMS PDIG 141 000045 1071 TAD NUM 142 000046 0060 AND P77 143 000047 4051 JMS PDIG 144 000050 5435 JMP I PNCH 145 000051 0000 PDIG, 0 146 000052 6046 TLS 147 000053 6041 TSF 148 000054 5053 JMP .-1 149 000055 7200 CLA 150 000056 5451 JMP I PDIG 151 000057 0000 LOC, 0 152 000060 0077 P77, 77 153 000061 0000 SUM, 0 154 000062 7700 MHUN, 7700 155 000063 0000 TOTL, 0 156 000064 0000 LOC1, 0 157 000065 0000 LOC2, 0 158 000066 0000 CHEK, 0 159 000067 7760 M20, 7760 160 000070 0377 P377, 377 161 000071 0000 NUM, 0 162 000072 0200 P200, 200 163 000073 0017 P17, 17 164 000074 7400 M400, 7400 165 000075 0000 A1, 0 166 000076 0000 PAGE, 0 167 000077 7600 M200, 7600 168 000100 7766 M6, 7766 169 000101 0200 P125, 200 170 000102 7000 RIM, 7000 171 $