ZXNet эхоконференция «code.zx»

Hello, All! Вот может понадобиться для библиотеки :) === Цитиpyю файл random.txt === ; ******************************** ; * Random Number Generation * ; ******************************** ; ;> Anyone have RGBDS (or other z80) random number code they'd like to ;> share? ; ; I think Luc on the GB dev web ring has some code on his page. ; ; You can either calculate it as you go or use a lookup table. ; ; Here are some examples for 8-bit random numbers. You should ; call one of these routines everytime a button is pressed to ; maximize randomness. Also, using the divider register ($fff4) ; helps increase randomness as well: ;* Random # - Calculate as you go * ; (Allocate 3 bytes of ram labeled 'Seed') ; Exit: A = 0-255, random number RandomNumber: ld hl,Seed ld a,[hl+] sra a sra a sra a xor [hl] inc hl rra rl [hl] dec hl rl [hl] dec hl rl [hl] ld a,[$fff4] ; get divider register to increase randomness add [hl] ret ;* Random # - Use lookup table * ; (Allocate 1 byte of ram labeled 'RandomPtr') ; Exit: A = 0-255, random number RandomNumber: push hl ld a,[RandomPtr] inc a ld [RandomPtr],a ld hl,RandTable add a,l ld l,a jr nc,.skip inc h .skip: ld a,[hl] pop hl ret RandTable: db $3B,$02,$B7,$6B,$08,$74,$1A,$5D,$21,$99,$95,$66,$D5,$59,$05,$42 db $F8,$03,$0F,$53,$7D,$8F,$57,$FB,$48,$26,$F2,$4A,$3D,$E4,$1D,$D9 db $9D,$DC,$2F,$F5,$92,$5C,$CC,$00,$73,$15,$BF,$B1,$BB,$EB,$9E,$2E db $32,$FC,$4B,$CD,$A7,$E6,$C2,$10,$11,$80,$52,$B2,$DA,$77,$4F,$EC db $13,$54,$64,$ED,$94,$8C,$C6,$9A,$19,$9F,$75,$FA,$AA,$8D,$FE,$91 db $01,$23,$07,$C1,$40,$18,$51,$76,$3C,$BD,$2A,$88,$2D,$F1,$8A,$72 db $F6,$98,$35,$97,$68,$93,$B3,$0C,$82,$4E,$CB,$39,$D8,$5F,$C7,$D4 db $CE,$AE,$6D,$A3,$7C,$6A,$B8,$A6,$6F,$5E,$E5,$1B,$F4,$B5,$3A,$14 db $78,$FD,$D0,$7A,$47,$2C,$A8,$1E,$EA,$2B,$9C,$86,$83,$E1,$7B,$71 db $F0,$FF,$D1,$C3,$DB,$0E,$46,$1C,$C9,$16,$61,$55,$AD,$36,$81,$F3 db $DF,$43,$C5,$B4,$AF,$79,$7F,$AC,$F9,$37,$E7,$0A,$22,$D3,$A0,$5A db $06,$17,$EF,$67,$60,$87,$20,$56,$45,$D7,$6E,$58,$A9,$B0,$62,$BA db $E3,$0D,$25,$09,$DE,$44,$49,$69,$9B,$65,$B9,$E0,$41,$A4,$6C,$CF db $A1,$31,$D6,$29,$A2,$3F,$E2,$96,$34,$EE,$DD,$C0,$CA,$63,$33,$5B db $70,$27,$F7,$1F,$BE,$12,$B6,$50,$BC,$4D,$28,$C8,$84,$30,$A5,$4C db $AB,$E9,$8E,$E8,$7E,$C4,$89,$8B,$0B,$24,$85,$3E,$38,$04,$D2,$90 === Конец цитаты === Я пpавда юзаю более дpyгyю: === Цитиpyю файл rndme.asm === InitRnd: ldh a,[$04] ld hl,rnd xor [hl] ld [hl],a ret Rnd255: ld hl,rnd ld a,[hl+] ld l,[hl] ld h,a ld de,$0077 add hl,de ld e,l ld d,h add hl,hl rlc l add hl,hl ld c,l ld b,h add hl,hl swap b add hl,bc rrc h add hl,de ld d,h ; ldh a,[$04] ; xor l ld a,l ld e,a ld hl,rnd ld [hl+],a ld a,d ld [hl],a ld a,e ld d,0 ret Multi: ld b,16 ld a,h ld c,l ld hl,0 m0: add hl,hl jr c,m1 rl c rla jr nc,m2 add hl,de jr c,m1 m2: dec b jr nz,m0 m1: ret === Конец цитаты === Multi yмножает hl на de. Ассемблеp геймбоевский, но я дyмаю все понятно :) С вами был 2:5015/133.29@FidoNet Ars^FTL mailto:arseniy@nival.com