; simple memory test - runs test patterns through off-chip RAM ; ; written by Quinn Jensen ; include "ioequ.inc" 000000 start equ $0000 00FF00 length equ $ff00 P:0000 org p:$0000 P:0000 0AF080 jmp begin P:0001 000040 P:0040 org p:$40 P:0040 begin P:0040 08F4BE movep #$0f0f,x:m_bcr ;wait states P:0041 000F0F P:0042 08F4A0 movep #0,x:m_pbc ;port B: parallel I/O P:0043 000000 P:0044 08F4A2 movep #-1,x:m_pbddr ;port B: all output P:0045 FFFFFF P:0046 08F4A4 movep #($1)<<7,x:m_pbd P:0047 000080 P:0048 08F4A4 movep #($1|3<<4)<<7,x:m_pbd ;clear strobes P:0049 001880 P:004A loop P:004A 44F400 move #>$000000,x0 ;pattern P:004B 000000 P:004C 0D007C jsr $AAAAAA,x0 ;pattern P:004E AAAAAA P:004F 0D007C jsr $555555,x0 ;pattern P:0052 555555 P:0053 0D007C jsr $FFFFFF,x0 ;pattern P:0056 FFFFFF P:0057 0D007C jsr $DEADEE,x0 ;pattern P:0059 DEADEE P:005A 0D007C jsr $123456,x0 ;pattern P:005D 123456 P:005E 0D007C jsr $876543,x0 ;pattern P:0060 876543 P:0061 0D007C jsr