DEBUG TOOL FOR KL5C8012
(C)Copyright CHUNICHIDENKO 2000,2001,2004,2005 Rev.1.4
03
t/0303
)Z
>/LOAD MCPUTST4.TXT
    10 'MYCPU MEMORY TEST
    20 OUT $83,$80
    30 DATA $26,$00,$2E,$07,$3E,$76,$77,$AA
    40 FOR A%=0 TO 7
    50 READ D%
    60 GOSUB *WRMEM
    70 NEXT A%
    80 FOR A%=0 TO 7
    90 GOSUB *RDMEM
   100 PRINT HEX$(A%,2),HEX$(D%,2)
   110 NEXT A%
   120 'EXCLOCK ON
   130 PRINT "EXCLK ON"
   140 OUT $83,$92:'A=IN,B=IN,C=OUT
   150 OUT $82,$CC:'BUSRQ=1,RESET=1,STEPOFF,EXCLKON
   160 S%=0
   170 OUT $83,1:OUT $83,0:PRINT S%:S%=S%+1:'CLOCK 1PULSE OUT
   180 A$=INKEY$:IF A$="Z"GOTO 170
   190 IF A$<>"M"GOTO 180
   200 'MEMORY CHECK
   210 PRINT "CPU RESET & MEMORY CHECK"
   220 OUT $83,$80:'RESET
   230 FOR A=0 TO 50:NEXT A:'WAIT
   240 FOR A%=0 TO 7
   250 GOSUB *RDMEM
   260 PRINT HEX$(A%,2),HEX$(D%,2)
   270 NEXT A%
   280 STOP 
   290 '
   300 'SUBROUTINE
   310 *RDMEM
   320 'READ MEMORY
   330 'A%---ADDRESS,D%---DATA
   340 OUT $83,$82:'PB=IN
   350 OUT $83,$09:'MEMRD
   360 OUT $80,A%
   370 D%=IN($81)
   380 OUT $83,$08
   390 RETURN 
   400 '
   410 *WRMEM
   420 'WRITE MEMORY
   430 'A%---ADDRESS,D%---DATA
   440 OUT $83,$80:'PB=OUT
   450 OUT $83,$08:'MEMRD OFF
   460 OUT $80,A%
   470 OUT $81,D%
   480 OUT $83,$0B:'MEMWR
   490 OUT $83,$0A:'MEMWR OFF
   500 OUT $83,$82:'PB=IN
   510 RETURN 
>RUN
00           26
01           00
02           2E
03           07
04           3E
05           76
06           77
07           AA
EXCLK ON
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
CPU RESET & MEMORY CHECK
00           26
01           00
02           2E
03           07
04           3E
05           76
06           77
07           76
break in 280
>/EXIT