Date : Sat, 13 Sep 2003 16:42:04 +0200
From : "Peter Van Ek" <vanekp@...>
Subject: Re: ram test programme?
Here is a listing of a simple memory tester for the BBC, it tests all 32K
(16K at a time H/L) of the BBC's memory by displaying vertical bars which is
toggled every time a key is pressed, and you will see very quickely if there
is a memory problem as the vertical bars will become corrupted.
This listing came from one of the popular BBC mag's but don't ask me which
one !
60:
70MODE7
80PRINT"HI OR LO MEMORY BLOCK (H OR L)"
90*FX15,1
100REPEAT A$=GET$:UNTIL A$="H" OR A$="L"
110MODE2
120VDU19,15,7,0;0
130FORZ=1TO14
140VDU19,Z,0;0;
150NEXT
160IFA$="H":M%=&2E00:MEM%=&3000:GOTO180
170IFA$="L":M%=&7E00:MEM%=0:VDU23;12;0;0;0;
180VDU23,1,0;0;0;0;
190 FORX=0TO1
200P%=M%
210[OPT0
220SEI
230LDA #&00
240.clearmem0
250LDX #&50
260.clearmem1
270LDY #&00
280.clearmem2
290STA MEM%,Y
300DEY
310BNE clearmem2
320INC clearmem2+2
330DEX
340BNE clearmem1
350.crosshatch
360LDA #&55
370LDX #&50
380.crsh0
390LDY #&00
400.crsh1
410STA MEM%,Y
420DEY
430BNE crsh1
440INC crsh1+2
450DEX
460BNE crsh0
470.keyscan
480LDX #15
490STX &FE41
500LDX #1
510STX &FE4D
520LDX #9
530STX &FE41
540LDA #1
550BIT &FE4D
560BEQ keyscan
570.swaplines
580LDA #&AA
590LDX #&50
600.swap1
610LDY #&00
620.swap2
630STA MEM%,Y
640DEY
650BNE swap2
660INC swap2+2
670DEX
680BNE swap1
690.keyscan2
700LDX #15
710STX &FE41
720LDA #1
730STX &FE4D
740LDX #15
750STX &FE41
760LDA #1
770BIT &FE4D
780BEQ keyscan2
790LDA #MEM% DIV 256
800STA crsh1+2
810STA swap2+2
820JMP crosshatch
830]
840 NEXT
850 CALL M%
Reg. Peter.
----- Original Message -----
From: "Bob Devries" <bdevries@...>
To: <bbc-micro@...>
Sent: Tuesday, September 09, 2003 23:34
Subject: [BBC-Micro] ram test programme?
> Is there a RAM test programme for the BBC-B in BASIC that I could type in?
> Something simple in BASIC/Assembler?
>
> I gotta say, I *love* the ability of the BBC BASIC to mix BASIC and
> Assembler. It's the first computer I've had that's had this capability.
Now
> I'll have to learn 6502 assembler. SIGH. Yet another language to learn.
>
> Regards, Bob Devries; Ipswich,Qld,Australia
>
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.518 / Virus Database: 316 - Release Date: 2003/09/11