[LOOKIE
[
[SCANS ENTIRE PDP MEMORY
[INCLUDES EDIT FEATURE
[REQUIRES PROGOFOP PATCH
[STOPS PROGOFOP WHILE RUNNING
[ENTER AT 8L
[CALL: JMP 8L
[POT 0: LOCATION OF SCAN
[POT 1: EDIT POINTER
[SNS 1 AND 2 FORM 2-BIT BANK SELECTOR
[SNS 4: DECIMAL, OCTAL IF OFF
[SNS 5: REPLACE AT POINTER WITH LSW
[SNS 0: JMP RETURN
[
#8L LDA
0
STC p+131 [RETURN
LDA i
120 [PROGOFOP PATCH
PDP
CLR
SNS i 1
ADD 8K+2
SNS i 2
ADD 8K+1
STC p+56 [BANK
ADD 8K+4
JMP 8A [DISPLAY BANK
p+130 [FWA PATTERN
400
340
JMP 8B
p+47 [BANK
440
340
SAM 0
ADA i
400
SCR 3
ROL 4
STA i
<FWA>
SNS 4
JMP p+4
LDA i
JMP 8D
JMP p+3
LDA i
JMP 8B
STC p+43 [DISPLAY
SAM 1 [POINTER
ADD p-16 [400
SCR 5
STA i
<POINT>
ADD p-16 [FWA
STC p+50 [EDIT LCN
ADD p-3
COM
ADA i
27
ROL 5
STC p+4 [EDIT-Y
JMP 8B
p+40 [EDIT LCN
0
<EDIT-Y>
LDA i
1400
STC p+22 [Y
LDA i
<BANK>
ROR 2
ADD p-40 [FWA
STA i
<PDP ADDRESS>
[LOOP
NOP
HLT [TO PDP FOR MEMORY
STA i
<MEMORY>
LDA i
-40
ADM
p+4 [Y
<DISPLAY>
p-6 [MEMORY
200
<Y>
SNS 5
JMP p+11 [NO EDIT
LDA
p-20 [PDP ADDR
BCL i
6000
COM
ADA i
<EDIT>
AZE
CLR
HLT
CLR
SNS i 0
COM
HLT [QUIT IF 0
SNS i 0
<JMP RETURN>
LDA i
-400
ADD p-25 [Y
APO
JMP 8L+6 [START OVER
LDA i
1
ADM
p-47 [PDP ADDR
JMP p-47 [LOOP
[
[PATTERN WORDS FOR BANK
5177 [B
2651
4477 [A
7744
3077 [N
7706
1077 [K
4324
[
[PDP PATCH TO PROGOFOP
[STARTS AT 120, BN 2
[120, 0
[     CLA
[     TAD <12
[     ICON
[     CLA
[     IAAC
[     DCA ADDRESS
[     TAD I ADDRESS
[     IACA
[     CLA
[     TAD <12
[     ICON
[     CLA
[     IAAC
[     SMA, CLA
[     JMP .+3
[     ILES
[     DCA I ADDRESS
[     TAD <12
[     ICON
[     CLA
[     IAAC
[     SZA
[     JMP I 120
[     JMP 121
[ADDRESS, 0
[     12
[
[