Deja Vu #06 30 сентября 1998

Программирование

CODING - Lessons from the encoder: Generilka balls.

            Generilka balls

            ----------------

B ;-----+ These are the pretty beads
t; | (a total of 16 phases on # 200 B) n *; | neriruet The 
following protser; | fool. 

  ; | Written it might not be
 ; | Very best, but it works
J; | good.
T;

  ;
";-----+


   That's listing:


        ORG # 6000

        ENT
; Written by Max / CBX / BD (1997).


PHASES EQU # 8000; phases lie here.
SIN EQU # 6C00

        LD HL, PHASES

        LD DE, PHASES +1

        LD BC, 8 * 8 * 8 * 16-1

        LD (HL), L

        LDIR

        LD HL, S_DATA

        LD DE, SIN

        LD C, 65

        LDIR

        LD H, D

        LD L, E

        DEC L

        DEC L
MK_SIN LD A, (HL)

        LD (DE), A

        INC E

        DEC L

        JR NZ, MK_SIN

        LD C, # 1980

        LDIR

        CALL CH_GEN

        LD A, 16

        LD HL, PHASES +8
GEN_LP PUSH HL, AF

        SLA A

        CALL BALL

        POP AF, HL

        LD DE, 8 * 8 * 8

        ADD HL, DE

        DEC A

        JR NZ, GEN_LP

        LD HL, 10072

        EXX

        RET


BALL LD (CHESS +1), A

        EXX

        LD B, # 80

        LD HL, SIN

        LD DE, SIN +64
BALL1 LD A, (DE)

        DEC E

        SLA A

        EXX

        LD E, A

        LD D, 64

        LD A, D

        PUSH HL, DE

        SUB E

        SRL A

        LD E, A

        SRL E

        SRL E

        SRL E

        LD D, 0

        ADD HL, DE

        POP DE

        AND 7

        INC A

        LD B, A

        LD A, 1
ROLL RRCA

        DJNZ ROLL

        LD B, A
CHESS LD C, 0

        LD A, (HL)

        OR B

        LD (HL), A

        CALL CHAIN

        LD A, (HL)

        OR B

        LD (HL), A

        POP HL

        EXX

        LD A, (HL)

        INC L

        SUB (HL)

        EXX

        JR Z, C1

        LD A, L

        ADD A, 8

        LD L, A

        JR NC, C1

        INC H
C1 EXX

        LD A, B

        AND 16
OLD CP 0

        JR Z, ENDL

        LD (OLD +1), A

        LD A, (CHESS +1)

        XOR 16
; You can stick the command ADD A, 5.

        LD (CHESS +1), A
ENDL DJNZ BALL1

        RET


CH_GEN LD DE, CHAIN

        LD B, # 80

        EXX

        LD HL, SIN

        EXX
CH_LP PUSH BC

        LD HL, CH_EXMP

        LD BC, NODOT-CH_EXMP

        LDIR

        LD C, CHAIN-NODOT

        EXX

        LD A, (HL)

        INC L

        SUB (HL)

        EXX

        JR Z, JR_OK

        DEC C

        DEC C

        INC HL

        INC HL
JR_OK LDIR

        POP BC

        DJNZ CH_LP

        LD A, 201

        LD (DE), A

        RET


S_DATA DB # 1F, # 1F, # 1F, # 1F, # 1F, # 1F, # 1F

        DB # 1F, # 1E, # 1E, # 1E, # 1E, # 1E, # 1D

        DB # 1D, # 1D, # 1D, # 1C, # 1C, # 1C, # 1B

        DB # 1B, # 1B, # 1A, # 1A, # 19, # 19, # 18

        DB # 18, # 17, # 17, # 16, # 16, # 15, # 15

        DB # 14, # 14, # 13, # 12, # 12, # 11, # 11

        DB # 10, # 0F, # 0F, # 0E, # 0D, # 0D, # 0C

        DB # 0B, # 0A, # 0A, # 09, # 08, # 08, # 07

        DB # 06, # 05, # 05, # 04, # 03, # 02, # 02

        DB # 01, # 00


CH_EXMP BIT 4, C

        JR Z, NODOT

        LD A, (HL)

        OR B

        LD (HL), A
NODOT JR NOSTEP

        LD A, D

        SUB E

        JR NC, NOADD

        ADD A, 64

        RRC B

        JR NC, NOADD

        INC HL
NOADD LD D, A
NOSTEP INC C
CHAIN ​​EQU $