Je to moja blbinka, ktorá mi hodne pomáha, stále treba prerátavať adresy v 64kbyte adresnom priestore počítača SBC 6502 (a samozrejme nielen u neho) - prvý stĺpik má rozsah 1÷64, druhý dekadicky počítača v rozsahu 0÷63d, nasleduje prepočet do hexa tvaru 0÷3Fh. Následne je tam  adresný rozsah daného kilobytu dekadicky a nakoniec nasleduje aj jeho verzia v hexa tvare. Dosť mi to pomáha, hlavne ak potrebujem dekódovať adresu, pretože sa pri prepočtoch človek ľahko stratí. Takže - ak toto využijete, fajn, poteší to, nemusíte si prácne prepočítavať. Prvý stĺpik je určený pre tých, ktorí majú problém pre prepočítavaní nultého kbyte.

Program ktorý vygeneruje popísanú tabuľku:

1000 CLEAR:DIM D$(16):D$="0123456789ABCDEF"
1001 ? CHR$(12):POKE 15,80
1005 ?"Range Range     Range     Adress      Adress"
1006 ?" k:     dec:        hex:       dec:          hex:"
1007 ?
1010 Q=1
1020 FOR G=0 TO 63
1022 IF G=0 THEN S=0:GOTO 1030
1025 S=G*1024: IF S=-1 THEN S=1
1030 ?Q"   "G"     ";:DEC=G:GOSUB 8000
1035 ? " "S;"-";:? (G*1024+1023);" ";
1040 DEC=S:GOSUB 8000:?"-";:DEC=G*1024+1023:GOSUB 8000:?" "
1065 Q=Q+1
1066 FOR K=1 TO 500:NEXT K
1070 NEXT G
1100 END
8000 NUM=DEC:GOSUB 8500:?N$;:RETURN
8500 REM Conversion Dec to Hex
8510 DIV=4096
8520 FOR I=1 TO 4
8530 N=INT(NUM/DIV)
8535 IF I=1 THEN I$=MID$(D$,N+1,1)
8536 IF I=2 THEN G$=MID$(D$,N+1,1)
8537 IF I=3 THEN O$=MID$(D$,N+1,1)
8538 IF I=4 THEN R$=MID$(D$,N+1,1)
8540 NUM=NUM-DIV*N:DIV=DIV/16
8550 NEXT I
8555 N$=I$+G$+O$+R$
8560 RETURN

Poznámka: riadok 1066 má funkciu oneskorovacej slučky, ak ho zmažete výpis prebehne bez oneskorenia v jednotlivých riadkov. Program by sa určite dal optimalizovať, ale funguje aj v tomto stave a svoju úlohu plní.

__________________________________________________________

Návrat do všetkých pokračovaní o SBC6502:

/igi/post/SBC6502-0-UvodIntroduction.aspx

____________________________________________________

Vaše hodnotenie, Rate post: