100 ! Ur Service-manualen f|r ABC806. Testar HRU-prommet (styr FGCTL nr) 110 ! 120 INTEGER : EXTEND 130 ; CHR$(12) 140 ; '**************** Program f|r att testa HRUII-Prom ******************' 150 ! 160 Cli=55 ! ---Portadress f|r HRU-PROM, laddas i C-reg, B-reg laddas med A0-A7 170 Sto=54 ! ---Write special 180 A8l=2 ! ----Adressbit A8 till HRUII-prom s{ttes l}g 190 A8h=128+2 ! Adressbit A8 till HRUII-prom s{ttes h|g 200 ! 210 A8=0 220 OUT Sto,A8l 230 WHILE A8<2 240 Adr=0 250 WHILE Adr<256 260 Chsum=Chsum+(FNInc(Cli,Adr) AND 15) 270 Adr=Adr+1 280 WEND 290 A8=A8+1 300 OUT Sto,A8h 310 WEND 320 IF Chsum=4385 THEN ; 'HRUII Prom OK.' ELSE ; 'Fel i HRUII Prom' 330 END 340 ! 350 ! 360 DEF FNInc(C,B) LOCAL Inc$=7,Kadr,Rebc,Regb,Regde,Inc,Dat 370 Inc$=CHR$(197,66,75,237,104,193,201) 380 Kadr=VARPTR(Inc$) 390 Regc=C AND 255 : Regb=B AND 255 400 Regde=(Regb*256)+Regc 410 Inc=CALL(Kadr,Regde) 420 Dat=Inc AND 255 430 RETURN Dat 440 FNEND 450 ! 460 !