2 COMMON Testarea$=17550
10 ! SYS806T.BAS
12 OPEN 'v24:' AS FILE 1
22 DATA 1
32 DATA 32467,-28269,-24641,20128,3211,1990
42 DATA 1
52 DATA -1085
62 DATA 1
72 DATA -3393
82 DEF FNBild LOCAL Bredd,Ind,Sum
92   Bredd=PEEK(65364)
102   ; CUR(0,0);' ABC 806  MINNES- OCH I/O-TEST  V2.0 '+STRING$(Bredd-40,32)+''
112   ; STRING$(Bredd,ASCII('='))
122   ; STRING$(21*Bredd,32);
132   ; CUR(2,0);'ANTAL TESTVARV:';
142   Ind=0
152   WHILE Ind<4
162     Sum=Sum*256+PEEK(49155-Ind)
172     Ind=Ind+1
182   WEND 
192   ; Sum
202   IF Sum=0 THEN 352
212   ; CUR(4,0);'CHECKSUMMOR:'
222   ; 
232   ; '  - BASIC ROM 1:';PEEK2(49156)
242   ; '      -//-    2:';PEEK2(49158)
252   ; '      -//-    3:';PEEK2(49160)
262   ; '      -//-    4:';PEEK2(49162)
272   ; '      -//-    5:';PEEK2(49164)
282   ; '      -//-    6:';PEEK2(49166)
292   ; RED ' - Tot checksum:-->> ' PEEK2(49156)+PEEK2(49158)+PEEK2(49160)+PEEK2(49162)+PEEK2(49164)+PEEK2(49166)
302   ; '  - DOS ROM    :';PEEK2(49168)
312   ; '  - OPTION     :';PEEK2(49170)
322   ; STRING$(Bredd,ASCII('-'))
332   ; 'FELMEDDELANDEN:';
342   ; 
352   RETURN 0
362 FNEND 
372 DEF FNKoll LOCAL Antal,Romch,Romfel,Romnr
382   RESTORE 22
392   READ Antal
402   Romfel=True
412   WHILE (Antal>0) AND Romfel
422     Antal=Antal-1
432     Romfel=False
442     Rom=0
452     WHILE Rom<6
462       READ Romch
472       IF Romch<>PEEK2(49156+Rom*2) THEN Romfel=True : Romnr=Rom+1
482       Rom=Rom+1
492     WEND 
502   WEND 
512   IF Romfel THEN Dummy=FNFel(1,'FEL CHECKSUMMA I BASIC ROM:'+NUM$(Romnr))
522   RESTORE 42
532   READ Antal
542   Romfel=True
552   WHILE (Antal>0) AND Romfel
562     Antal=Antal-1
572     READ Romch
582     IF Romch<>PEEK2(49168) THEN Romfel=True ELSE Romfel=False
592   WEND 
602   IF Romfel THEN Dummy=FNFel(2,'FEL CHECKSUMMA I DOS ROM')
612   RESTORE 62
622   READ Antal
632   Romfel=True
642   WHILE (Antal>0) AND Romfel
652     Antal=Antal-1
662     READ Romch
672     IF Romch<>PEEK2(49170) THEN Romfel=True ELSE Romfel=False
682   WEND 
692   IF Romfel THEN Dummy=FNFel(2,'FEL CHECKSUMMA I OPTION PROM')
702   IF PEEK(49172) THEN Dummy=FNFel(3,'FEL I BILDMINNE:')
712   IF PEEK(49175) THEN Dummy=FNFel(4,'FEL I RAM:vid exikvering')
722   IF PEEK(49176) THEN Dummy=FNFel(5,'FEL I RAM:')
732   IF PEEK(49179) THEN Dummy=FNFel(6,'FEL I RAM:vid exikvering')
742   IF PEEK(49180) THEN Dummy=FNFel(7,'FEL I RAM:')
752   IF PEEK(49184) AND 128 THEN Dummy=FNFel(1,'FEL vid s{ndning (SIO)---->>(DART)')
762   IF PEEK(49184)=0 THEN Dummy=FNFel(1,'G}r ej att s{nda (SIO)---->>(DART)')
772   IF PEEK(49183) AND 64 THEN 802
782   IF PEEK(49183) AND 32 THEN Dummy=FNFel(1,'FEL (SIO  RTS)---->>(DART CTS)')
792   IF PEEK(49183) AND 8 THEN Dummy=FNFel(1,'FEL (SIO  DTR)---->>(DART DCD)')
802   IF PEEK(49183) AND 128 THEN Dummy=FNFel(1,'FEL vid s{ndning (DART)---->>(SIO)')
812   IF PEEK(49183)=0 THEN Dummy=FNFel(1,'G}r ej att s{nda (DART)---->>(SIO)')
822   IF PEEK(49184) AND 64 THEN 852
832   IF PEEK(49184) AND 32 THEN Dummy=FNFel(1,'FEL (DART RTS)---->>(SIO  CTS)')
842   IF PEEK(49184) AND 8 THEN Dummy=FNFel(1,'FEL (DART DTR)---->>(SIO  DCD)')
852   RETURN 0
862 FNEND 
872 DEF FNFel(Feltyp,Feltext$)
882   ; : ; '  - ';Feltext$;
892   ON ERROR GOTO 
902   ON Feltyp GOTO 1112,1112,912,1112,1032,1112,1042
912   IF PEEK(65364)=80 THEN 952
922   IF PEEK(49172) AND 15 THEN ; '3B ';
932   IF PEEK(49172) AND 240 THEN ; '3C';
942   GOTO 1012
952   IF (PEEK2(49173)/2)=INT(PEEK2(49173)/2) THEN 992
962   IF PEEK(49172) AND 240 THEN ; '4B ';
972   IF PEEK(49172) AND 15 THEN ; '4A';
982   GOTO 1012
992   IF PEEK(49172) AND 240 THEN ; '3D ';
1002   IF PEEK(49172) AND 15 THEN ; '3E';
1012   ; TAB(8);'ADRESS:';PEEK2(49173);
1022   GOTO 1112
1032   Ram$='1' : Bitfel=PEEK(49176) : Adress=PEEK2(49177) : GOTO 1052
1042   Ram$='2' : Bitfel=PEEK(49180) : Adress=PEEK2(49181)
1052   Bit=0
1062   WHILE Bit<=7
1072     IF Bitfel AND (2^Bit) THEN ; Ram$+CHR$(65+Bit)+' ';
1082     Bit=Bit+1
1092   WEND 
1102   ; TAB(8);'ADRESS:';Adress;
1112   Fel=True
1122   RETURN 0
1132 FNEND 
1142 OUT 67,24,33,24,65,24
1152 True=-1 : False=0
1162 Ok=True
1172 Start=FNInit
1182 Dummy=FNClearcount
1192 Dummy=FNBild
1202 WHILE Ok
1212   OUT 35,3,35,0,53,0 : Dummy=CALL(Start) : OPEN 'v24:vsa70d01.55' AS FILE 1 : CLOSE 1 : OUT 35,3,35,193
1222   Dummy=FNBild
1232   Fel=False
1242   Dummy=FNKoll
1247   IF Fel THEN GET Forts{tt$ : IF Forts{tt$=CHR$(13) THEN ; CALL(0)
1252   Dummy=FNClear
1262 WEND 
1272 DEF FNInit LOCAL Ind,Start
1282   POKE 49195,255,170,85,0,243,237,115,33,192,49
1292   POKE 49205,88,195,17,35,192,33,0,128,1,8
1302   POKE 49215,0,237,176,205,17,194,205,133,192,205
1312   POKE 49225,145,192,205,246,192,205,186,192,205,2
1322   POKE 49235,193,205,14,193,237,75,23,192,120,177
1332   POKE 49245,32,21,205,157,192,205,118,195,205,100
1342   POKE 49255,193,195,107,128,49,88,131,205,112,129
1352   POKE 49265,205,35,130,237,123,33,192,17,0,128
1362   POKE 49275,33,35,192,1,8,0,237,176,251,201
1372   POKE 49285,62,6,33,0,0,17,4,192,205,47
1382   POKE 49295,194,201,62,1,33,0,96,17,16,192
1392   POKE 49305,205,47,194,201,33,0,112,17,0,128
1402   POKE 49315,1,0,8,237,176,1,0,8,205,253
1412   POKE 49325,127,62,1,33,0,128,17,18,192,205
1422   POKE 49335,47,194,201,33,43,192,62,4,71,62
1432   POKE 49345,2,211,53,197,229,58,84,255,254,80
1442   POKE 49355,40,8,1,0,4,17,0,124,24,6
1452   POKE 49365,1,0,8,17,0,120,197,213,205,209
1462   POKE 49375,193,209,193,225,229,205,217,193,48,6
1472   POKE 49385,50,20,192,34,21,192,225,193,216,35
1482   POKE 49395,16,207,201,33,0,120,17,0,128,1
1492   POKE 49405,0,8,237,176,201,33,0,128,17,0
1502   POKE 49415,120,1,0,8,237,176,201,33,43,192
1512   POKE 49425,62,4,71,197,229,1,0,64,17,0
1522   POKE 49435,128,205,209,193,225,229,1,0,64,17
1532   POKE 49445,0,128,205,217,193,48,6,50,24,192
1542   POKE 49455,34,25,192,225,193,216,35,16,220,33
1552   POKE 49465,0,128,1,0,64,205,231,193,208,50
1562   POKE 49475,24,192,34,25,192,33,0,128,1,0
1572   POKE 49485,64,205,198,193,6,1,197,1,255,63
1582   POKE 49495,205,0,128,120,177,50,23,192,193,192
1592   POKE 49505,16,240,201,33,0,192,17,0,128,1
1602   POKE 49515,0,64,237,176,201,33,43,128,62,4
1612   POKE 49525,71,197,229,1,0,64,17,0,192,205
1622   POKE 49535,209,129,225,229,1,0,64,17,0,192
1632   POKE 49545,205,217,129,48,6,50,28,128,34,29
1642   POKE 49555,128,225,193,216,35,16,220,33,0,192
1652   POKE 49565,1,0,64,205,231,129,208,50,28,128
1662   POKE 49575,34,29,128,33,0,192,1,0,64,205
1672   POKE 49585,198,129,6,1,197,1,255,63,205,0
1682   POKE 49595,192,120,177,50,27,128,193,192,16,240
1692   POKE 49605,201,54,11,84,93,19,11,237,176,54
1702   POKE 49615,201,201,237,160,98,107,43,237,176,201
1712   POKE 49625,175,126,235,237,161,32,3,224,24,249
1722   POKE 49635,43,174,55,201,175,62,0,8,62,255
1732   POKE 49645,53,237,161,32,27,224,8,190,32,23
1742   POKE 49655,53,8,237,161,32,16,43,43,190,32
1752   POKE 49665,12,52,8,237,161,32,6,8,3,3
1762   POKE 49675,24,225,43,174,55,201,42,0,192,35
1772   POKE 49685,124,181,34,0,192,192,42,2,192,35
1782   POKE 49695,34,2,192,201,33,0,128,17,0,192
1792   POKE 49705,1,0,64,237,176,201,229,8,217,225
1802   POKE 49715,84,93,1,0,16,9,229,33,0,0
1812   POKE 49725,26,19,133,48,1,36,111,11,120,177
1822   POKE 49735,32,244,229,8,217,193,235,113,35,112
1832   POKE 49745,35,235,225,61,32,216,201
1842   POKE 50010,108,196
1852   POKE 50013,71,5,24,53,128,53,2,49,28,3
1862   POKE 50023,193,4,68,5,130,49,0,3,224,4
1872   POKE 50033,68,5,234,50,192,251,33,90,195,17
1882   POKE 50043,188,255,1,2,0,237,176,33,90,195
1892   POKE 50053,17,204,255,1,2,0,237,176,6,2
1902   POKE 50063,14,97,33,93,195,237,179,6,2,14
1912   POKE 50073,98,33,93,195,237,179,33,116,195,6
1922   POKE 50083,2,14,67,237,179,62,33,50,88,195
1932   POKE 50093,62,65,50,89,195,205,196,195,62,65
1942   POKE 50103,50,88,195,62,33,50,89,195,205,196
1952   POKE 50113,195,243,201,58,89,195,79,6,1,33
1962   POKE 50123,95,195,197,237,179,58,88,195,79,62
1972   POKE 50133,16,6,5,16,254,237,121,237,120,230
1982   POKE 50143,40,245,121,254,33,33,31,192,40,3
1992   POKE 50153,33,32,192,241,119,193,254,0,192,33
2002   POKE 50163,96,195,6,2,205,16,196,238,8,119
2012   POKE 50173,254,0,192,33,98,195,6,2,205,16
2022   POKE 50183,196,238,32,119,254,0,192,24,38,58
2032   POKE 50193,89,195,79,237,179,58,88,195,79,62
2042   POKE 50203,16,6,5,16,254,237,121,237,120,230
2052   POKE 50213,40,245,58,88,195,254,33,33,31,192
2062   POKE 50223,40,3,33,32,192,241,201,33,100,195
2072   POKE 50233,6,8,58,89,195,79,237,179,33,108
2082   POKE 50243,195,6,8,58,88,195,79,237,179,6
2092   POKE 50253,255,120,50,92,195,58,88,195,79,237
2102   POKE 50263,120,203,87,40,246,13,237,65,197,1
2112   POKE 50273,255,0,11,120,177,32,251,193,16,231
2122   POKE 50283,201,245,229,197,58,89,195,79,13,237
2132   POKE 50293,120,33,92,195,174,245,53,58,88,195
2142   POKE 50303,33,31,192,254,33,40,3,33,32,192
2152   POKE 50313,241,40,2,203,254,203,246,193,225,241
2162   POKE 50323,251,237,77
2172   Start=49199
2182   RETURN Start
2192 FNEND 
2202 DEF FNClear LOCAL Ind
2212   Ind=49156
2222   WHILE Ind<49180
2232     POKE Ind,0,0,0,0,0
2242     Ind=Ind+5
2252   WEND 
2262   RETURN 0
2272 FNEND 
2282 DEF FNClearcount
2292   POKE 49152,0,0,0,0
2302   RETURN 0
2312 FNEND 
2322 END