[PSUDRAND
[AJH  14 FEB  69
[ENTRY -  JMP 1C
[ON EXIT, PSEUDORANDOM 5-BIT NUMBER IN ACCUMULATOR
#1C LDA
0000
STC 1D
LBAi
#1A 0001
BCLi
7753
AZEi
JMP 1B
BCOi
0024
AZEi
JMP 1B
CLR
COM
ROLi1
JMP p+2
#1B CLR
LDA
1A
ROLi1
BCLi
7740
STA
1A
#1D JMP 00
[END PSUDRAND SUBROUTINE
$400
JMP 1C
STC 1F
#1E LDAi
215
OPRi2
LDAi
212
OPRi2
LDAi
#1F 0000
BCLi
7707
SCR 3
ADAi
260
OPRi2
LDA
1F
BCLi
7770
ADAi
260
OPRi2
JMP 400