DeMon48_128k

    ;DeMon48_128k RAM Test V1.0.0
    ;
    ;Tests its entire 128kB RAM and displays the number of verify errors on P1
    ;
    ;T0 : Stop on verify error (1) / Don't stop on verify error (0)
    ;T1 : Enable (1) / Disable (0) I/O address range
    ;*INT : Continue after stop (H->L)
    ;
    ;2024 M. Schmoll * www.controller-designs.de
    ;
    CPU 8039
    ORG 000H
    CLR A
    OUTL P1,A                 ;Reset verify errors
RAMTEST128K:
    CLR A
    JT1 RAMTEST_EXP_WRITE     ;Enable I/O, if T1 = 1
    MOV A,#00001000B          ;Disable I/O, if T1 = 0
RAMTEST_EXP_WRITE:
    MOVD P7,A                 ;EXP = A, DA16 = H
U64K_TEST:
    ;Test 0x1FFFF...0x10000
    MOV R6,#10H
U64K_LOOP2:
    MOV A,R6
    DEC A
    MOVD P5,A                 ;DBH = A, DA16 = H
    MOV R7,#10H
U64K_LOOP1:
    MOV A,R7
    DEC A
    MOVD P4,A                 ;DBL = A, DA16 = H
    CALL TEST256BYT
    DJNZ R7,U64K_LOOP1
    DJNZ R6,U64K_LOOP2
L64K_TEST:
    ;Test 0x0FFFF...0x00100
    MOV R6,#10H
L64K_LOOP2:
    MOV A,R6
    DEC A
    ORLD P5,A                 ;DBH = A, DA16 = L
    MOV R7,#10H
L64K_LOOP1:
    MOV A,R7
    DEC A
    ORLD P4,A                 ;DBL = A, DA16 = L
    CALL TEST256BYT
    MOV A,#02H
    XRL A,R7                  ;DBL = 0x1 ?
    JNZ L64K_CONT
    MOV A,#01H
    XRL A,R6                  ;DBH = 0x0 ?
    JZ L64K_EXIT              ;Yes, exit before writing to page 0
L64K_CONT:
    DJNZ R7,L64K_LOOP1
    DJNZ R6,L64K_LOOP2
L64K_EXIT:
    ;Prepare for 256Byte copy from page 0 to page 1
    MOV R7,#01                ;Destination page
    MOV R6,#00                ;Source page
    CALL COPY256BYT
    CPL F0                    ;Execute code on page 1
    JMP TEST_P0 + 0100H       ;Jump to page 1
TEST_P0:
    ;Test 0x000FF...0x00000
    CLR A
    ORLD P5,A                 ;DBH = A, DA16 = L
    ORLD P4,A                 ;DBL = A, DA16 = L
    CALL TEST256BYT + 0100    ;Call to page 1
    ;Prepare for 256Byte copy from page 1 to page 0
    MOV R7,#00                ;Destination page
    MOV R6,#01                ;Source page
    CALL COPY256BYT + 0100    ;Call to page 1
    CLR F0                    ;Execute code on page 0
    JMP RAMTEST128K           ;Jump to page 0
    ;-----------------------------------------------------------------
TEST256BYT:
    ;Test a 256Byte page selected by DBH and DBL
    ;Destroys : A,R0,R5,P1
    MOV R0,#00
TEST256BYT_L0:
    MOV A,R0
    CPL A
    MOVX @R0,A                ;Write
    MOVX A,@R0                ;Read
    CPL A
    XRL A,R0                  ;Verify
    JZ TEST256BYT_L6          ;Verify ok
    IN A,P1                   ;Display number of verify errors on P1
    INC A
    OUTL P1,A
    JNT0 TEST256BYT_L5        ;Don't stop on error, if T0 = 0
TEST256BYT_L1:
    ;Wait for *INT=H
    JNI TEST256BYT_L1
    MOV R5,#00H               ;Debounce
    NOP
    NOP
    NOP
    DJNZ R5,$-3
TEST256BYT_L2:
    ;Wait for *INT=L
    JNI TEST256BYT_L5
TEST256BYT_L3:
    JF0 TEST256BYT_L4         ;F0 is set, if code is on page 1
    JMP TEST256BYT_L2         ;Jump to page 0
TEST256BYT_L4:
    JMP TEST256BYT_L2 + 0100H ;Jump to page 1
TEST256BYT_L5:
    MOV R5,#00H               ;Delay after verify error
    NOP
    NOP
    NOP
    DJNZ R5,$-3
TEST256BYT_L6:
    DJNZ R0,TEST256BYT_L0
    RET
    ;-----------------------------------------------------------------
COPY256BYT:
    ;Copy a 256Byte page in 4kB-Bank 0
    ;R7 = Destination page
    ;R6 = Source page
    ;Destroys : A,R0,R5,DBL,DBH,DA16
    CLR A
    ORLD P5,A                 ;DBH = A, DA16 = L
    MOV R0,A                  ;Init loop counter
COPY256BYT_L:
    MOV A,R6                  ;Source page
    ORLD P4,A                 ;DBL = A, DA16 = L
    MOV A,R0
    MOVX A,@R0
    MOV R5,A
    MOV A,R7                  ;Destination page
    ORLD P4,A                 ;DBL = A, DA16 = L
    MOV A,R5
    MOVX @R0,A
    DJNZ R0,COPY256BYT_L
    RET