[uPAGETST
$1 
ZTA
ROL 4
BCL i
7737
ZZZ
ADD 17
ADM
2G
JMP 400
$17
10
JMP 400
$400
SET i 17
-500
SET i 4
LMB 1
SET i 5
[NUMBER OF PAGES
-17
LDA i
UMB 1
STC 2E
SET i 6
UMB 0
UMB 0
#2E UMB 1
LDA i
1
ADM
2E
ZTA
SAE
6
HLT
XSK i 6
NOP
[CLEAR AND COPY
#2A CLR
SET i 1
3777
#2B STA i 1
XSK 1
JMP 2B
SET i 1
1A-1
SET i 2
3A
SET i 3
1A-1E-1
#2C LDA i 1
STA i 2
XSK i 3
JMP 2C
XSK i 4
LDA
4
STA
3A+1D-1A+1
XSK i 5
JMP 2E
LDA i
LMB 0
STA
3A+1D-1A+1
SET i 1
JMP 2D
LMB 2
JMP 4A+3
#1A JMP 0
ZTA
STC 4D
#1F LMB 1
JMP 4B
JMP 4B+1
#1B JMP 0
ZTA
STC 4E
#1G LMB
JMP 4C
JMP 4C+1
#1C JMP 0
#1D LMB P+1
JMP 4A
#1E JMP 4A+1
#2D XSK i 17
JMP 2F
KST
JMP 400
KBD
UMB 1
SET i 15
#2G RCG
SET i 16
7300
JMP 15
#2F LMB 2
JMP 4A+3
3A=2000
3B=0
4A=3B+1
4B=3B+1+1B-1A
4C=3B+1+1C-1A
4D=3B+1+1F-1A
4E=3B+1+1G-1A
[PAGE TEST
[SAT JUNE ?8?
[END uPAGETST