LAP 
\IFLD, BLOCK 1
\IPAG, BLOCK 1
\YES, BLOCK 3
\IADR, BLOCK 1
\IPAT, BLOCK 1
\IERR, BLOCK 1
DUMMY [0
]3, 3105
2340
4040
CPAGE 6
EAP 
ENTRY MAIN
MAIN, NOP 
CALL 0,OPEN
/      MEMORY TEST PROGRAM
/ 
     OPDEF   TADI    1400
     OPDEF   DCAI    3400
/100   READ(1,110) IFLD
\100, CALL 2,READ
ARG (1
ARG \110
CALL 1,IOH
ARG \IFLD
CALL 1,IOH
ARG 0
/110   FORMAT('TEST FIELD : ',I4)
JMP ^A
CPAGE 13
\110,	TEXT	$('TEST FIELD : ',I4)$
^A, 
     TAD     \IFLD
     AND     (7
     CLL RAL;RTL
     TAD     (6201
     DCA     FLD1    / CDF FOR WRITE
     TAD     FLD1
     DCA     FLD2    / CDF FOR READ
     DCA     \IPAT   / THE DATA PATTERN
     DCA     \IADR   / THE CURRENT ADDR
/
/    THE TEST LOOP
/
LP1, TAD     \IPAT
FLD1,        HLT
     DCAI    \IADR   / LOAD MEMORY
     ISZ     \IADR
     JMP     LP1
/
/    THE VERIFY LOOP
/
LP2, TAD     \IPAT
     CIA
FLD2,        HLT
     TADI    \IADR
     SZA
     JMP     \200    / HAA AN ERROR REPORT IT
\300,        CLA
     ISZ     \IADR
     JMP     LP2
     TAD     \IPAT
     AND     (177
     SZA CLA
     JMP     \400
     TAD     \IPAT
     AND     (7600
     7002
     CLL RAR
     DCA     \IPAG
/      WRITE(1,120) IPAG
CALL 2,WRITE
ARG (1
ARG \120
CALL 1,IOH
ARG \IPAG
CALL 1,IOH
ARG 0
/120   FORMAT('PAGE ',I3,' COMPLETE')
JMP ^B
CPAGE 15
\120,	TEXT $('PASS ',I3,' COMPLETE')$
^B, 
\400,        ISZ     \IPAT   / GET THE NEXT PATTERN
     JMP     LP1     / ENTER THE LOOP AGAIN
/      WRITE(1,130)
CALL 2,WRITE
ARG (1
ARG \130
CALL 1,IOH
ARG 0
/130   FORMAT('ALL PAGES COMPLETE')
JMP ^C
CPAGE 14
\130, 5047
114
1440
2001
705
2340
317
1520
1405
2405
4751
0
^C, 
/      READ(1,140) YES
CALL 2,READ
ARG (1
ARG \140
CALL 1,IOH
ARG \YES
CALL 1,IOH
ARG 0
/140   FORMAT('RESTART ? ',A6)
JMP ^D
CPAGE 11
\140, 5047
2205
2324
122
2440
7740
4754
166
5100
^D, 
/      IF(YES-'YES   ') 500,100,500
CALL 1,FAD
ARG \YES
CALL 1,FSB
ARG ]3
TAD ACH 
CALL 0,CLEAR
SNA CLA 
JMP \100
JMP \500
\500,        HLT
     JMP     \500
\200,        DCA     \IERR   / THE ERROR RESULT
/      WRITE(1,210) IFLD,IADR,IPAT,IERR
CALL 2,WRITE
ARG (1
ARG \210
CALL 1,IOH
ARG \IFLD
CALL 1,IOH
ARG \IADR
CALL 1,IOH
ARG \IPAT
CALL 1,IOH
ARG \IERR
CALL 1,IOH
ARG 0
/210   FORMAT('ERROR',I1,I5,2I8)
JMP ^E
CPAGE 12
\210, 5047
522
2217
2247
5411
6154
1165
5462
1170
5100
^E, 
/      GOTO 300
JMP \300
/      END
CALL 0,EXIT
[0, BLOCK 2
END