[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