10 ' Program checks for functionality of the Kanji ROM in GR8NET
20 ' designed by Eugeny Brychkov 20210812 (revision of 20210819)
25 screen0:print"GR8NET Kanji ROM":print"implementation check program":print
30 DIMD(4):V=INP(&H5E):CALLNETGETDA(A,B):N=0:C=B:FORI=0TO3:IF(CAND1)=1THENN=N+1:D(I)=1ELSED(I)=0
40 C=C\2:NEXTI:IFN=1THEN110
50 PRINT"You have several GR8NET":PRINT"adapters in the system":PRINT:PRINT"ID";CHR$(9);"Slot":FORI=0TO3:IFD(I)=0THEN80
60 OUT&H5E,I*&H50+1:S=INP(&H5F):PRINTI;CHR$(9);HEX$(SAND3);:IF(SAND128)<>0THENPRINT".";HEX$((S\4)AND3);
70 IFI=ATHENPRINT" (default)"ELSEPRINT
80 NEXTI:OUT&H5E,V:PRINT
85 INPUT"Select ID: ";X:IFX<0ORX>3THEN85
90 IFD(X)=0THEN85
100 CALLNETSETDA(X)
110 callnetgetmem(0,&h5fd1,a):ifa<4thenprint"Functionality is deactivated due":print"to serial flash chip page set to";a:stop
115 ifa255thenprint"Kanji ROM functionality":print"is not implemented in":print"this image":stop
120 ifa>252thenprint"Invalid starting sector number":stop
130 callnetgetmem(0,&h5fd2,b):c=0:if(band4)<>0thenprint"L1 is enabled":c=1
140 if(band8)<>0thenprint"L2 is enabled":c=c+2
150 print:print"Performing burn-in test":print"CTRL-STOP to exit"
160 restore1000:gosub1100:defusr=&h9000:defusr1=&h9046
170 if(cand1)<>0thena=usr(0):a=peek(&h9100):print"1";chr$(13);:ifa<>0thenprint"L1 failure":stop
180 if(cand2)<>0thena=usr1(0):a=peek(&h9100):print"2";chr$(13);:ifa<>0thenprint"L2 failure":stop
190 goto 170
1000 data "f33e08d3d83e03d3d90ed9ed78ed40ed50ed58ed60ed68ed48"
1010 data "fe00202478fe81201f7afe43201a7bfe2120157cfe102010"
1020 data "7dfe08200b79fe0420063e0018023e01320091fbc9"
1025 '
1030 data "f33e3fd3da3e5fd3db0edbed78ed40ed50ed58ed60ed68ed48"
1040 data "fe10202478fe20201f7afe40201a7bfe8b20157cfe522010"
1050 data "7dfe22200b79fe4b20063e0018023e01320091fbc9XX"
1100 p=&h9000
1110 reada$:a=len(a$):ifa=0or(aand1)=1thenprint"Error in hex":stop
1120 a=a/2-1:fori=0toa:b$=mid$(a$,i*2+1,2):ifb$="XX"thenreturn
1130 pokep,val("&H"+b$):p=p+1:nexti:goto1110