SET i 12
12
SET i 11
1D-1
LDA i
1007
STC 4C[DATA STR-1
SET i14
777
SET i 10
-5
STA i 14
XSK i 10
JMP p-2
JMP 1E
#1F KBD i
SAE 12
JMP p+2
JMP 1H-1
STC 1T
ADD 9A
ROL 6
ADD 1T
STC 9A
JMP 1F
JMP 1E
#1H KBD i
SAE 12
JMP p+2
JMP 1M-1
STC 1T
ADD 9B
ROL 6
ADD 1T
STC 9B
JMP 1H
JMP 1E
#1M KBD i
SAE 12
JMP p+2
JMP 1P-1
STC 1T
ADD 9C
ROL 6
ADD 1T
STC 9C
JMP 1M
JMP 1E
#1P KBD i
SAE 12
JMP p+2
JMP 1S-1
STC 1T
ADD 9D
R0L 6
ADD 1T
STC 9D
JMP 1P
JMP 1E
#1S KBD i
SAE 12
JMP p+2
JMP 2A
STC 1T
ADD 9E
ROL 3
ADD 1T
STC 9E
JMP 1S
#1E SET 17
0
SET i 13
-6
LDA i 11
TYP
XSK i 13
JMP p-3
JMP 17
#1D 215 
212
304[DAY
301
331
272
212
315[MONTH
316
324
310
272
212
331[YEAR
305
301
322
272
212
305 [EXPNO.
330
320
316
272
212
302 [BLKNO.
314
313
316
272
#1T 0
#1C 0001
#2A CLR
SNS 0
JMP p-1
SET i 10
-773
STA i 14 [CLEAR
XSK i 10 [LOWER
JMP p-2 [DATA BANK
SET i 14
3777
SET i 10
1777
STA i 14 [CLEAR
XSK i 10 [UPPER
JMP p-2 [DATA BANK
#3A CLR
STC 3T [SUM1
SET i 16 [CTR1
-10
#3B STC 3S [SUM0
SET i 15 [CTR0
-10
#4A SET i 13
-500 [DELAY FOR
XSK i 13
JMP p-1 [SAMPLING
SNS 0
JMP 6A [OUT
SAM 11
APO
JMP p-2
#4B SAM 10[SAMPLE
ADD 3S
STC 3S[PART SUM
XSK i 15[8SAMS 
JMP 4A [NO
ADD 3S [YES
SCR 3[DIV BY 8
STC 3S