ZX-Ревю 1996 №7-8 - Этюды - генератор RND.

ZX-Ревю 1996 №7-8

1995 г.

Этюды - генератор RND.


      Следующая процедура является генератором RND. На выходе из процедуры в
регистровой паре HL будет число от 0 до 65535.

 10         ORG     40000
 20 BEGIN   LD      HL,(TEMP)
 30         LD      C,16
 40 S1      LD      A,H
 50         ADD     HL,HL
 60         AND     255
 70         JP      PE,S2
 80         INC     HL
 90 S2      DEC     C
100         JR      NZ,S1
110         LD      (TEMP),HL
120 TEMP    DEFB    1,0


9C40: 2A 53 9C 0E 10 7C 29 E6 :9E
9C48: FF EA 4D 9C 23 0D 20 F5 :FB
9C50: 22 53 9C 01 00 00 00 00 :FE

СОДЕРЖАНИЕ:

Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование