+$/
[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 .+131 [RETURN
LDA I
120 [PROGOFOP PATCH
PDP
CLR
SNS I 1
ADD 8K+2
SNS I 2
ADD 8K+1
STC .+56 [BANK
ADD 8K+4
JMP 8A [DISPLAY BANK
.+130 [FWA PATTERN
400
340
JMP 8B
.+47 [BANK
440
340
SAM 0
ADA I
400
SCR 3
ROL 4
STA I
<FWA>
SNS 4
JMP .+4
LDA I
JMP 8D
JMP .+3
LDA I
JMP 8B
STC .+43 [DISPLAY
SAM 1 [POINTER
ADD .-16 [400
SCR 5
STA I
<POINT>
ADD .-16 [FWA
STC .+50 [EDIT LCN
ADD .-3
COM
ADA I
27
ROL 5
STC .+4 [EDIT-Y
JMP 8B
.+40 [EDIT LCN
0
<EDIT-Y>
LDA I
1400
STC .+22 [Y
LDA I
<BANK>
ROR 2
ADD .-40 [FWA
STA I
<PDP ADDRESS>
[LOOP
NOP
HLT [TO PDP FOR MEMORY
STA I
<MEMORY>
LDA I
-40
ADM
.+4 [Y
<DISPLAY>
.-6 [MEMORY
200
<Y>
SNS 5
JMP .+11 [NO EDIT
LDA
.-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 .-25 [Y
APO
JMP 8L+6 [START OVER
LDA I
1
ADM
.-47 [PDP ADDR
JMP .-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
[
[