Pentek Model 6526 Operating Manual Page A−15
Rev. A
A.1 Boot EPROM Source Code Listing (continued)
; Forward moving inversions memory test
ldi *ar4++,r7 ; Load memory test area with current pattern
ldi *ar4,r6 ; Load next test pattern
rpts ar2 ;
sti r7,*ar6++ ; Repeat fill memory
mt1
ldi @staddr,ar6 ; Load start address
ldi ar2,rc ; Load length
rptb mt1l ;
ldi *ar6++,r1 ; Get test pattern
cmpi r7,r1 ; Compare memory to pattern
bnz mt1er1 ;
mt1l
nop ;
mt2
ldi @staddr,ar6 ; Load start address
ldi ar2,rc ; Load length
rptb mt2l ;
ldi *ar6,r1 ; Get previous test pattern
cmpi r7,r1 ; Check previous pattern
bnz mt2er1 ;
sti r6,*ar6 ; Store next pattern
ldi *ar6++,r1 ;
cmpi r6,r1 ; Verify that it wrote correctly
bnz mt2er2 ;
mt2l
nop
cmpi ar4,ar5 ; See if all patterns tested
bz mt3 ;
ldi *ar4++,r7 ; Load memory test area with current pattern
ldi *ar4,r6 ; Load next test pattern
b mt1 ; Continue testing
mt3
ldi @pptrs,ar4 ; Load current pattern address
ldi @pptre,ar5 ; Load last pattern address
ldi @staddr,r0 ; Load start address
ldi @tlen,r1 ; Load test length
ldi @tlen,ar2 ; Load test length
nop *ar2-- ; -1 to length
addi r0,r1 ;
subi 1,r1 ;
sti r1,@staddr ;
ldi @staddr,ar6 ; Load start address
; Backward moving inversions memory test
ldi *ar4++,r7 ; Load memory test area with current pattern
ldi *ar4,r6 ; Load next test pattern
rpts ar2 ;
sti r7,*ar6-- ; Repeat fill memory
mt4
ldi @staddr,ar6 ; Load start address
ldi ar2,rc ; Load length
rptb mt4l ;
Comentarios a estos manuales