★ CODING ★ SOURCES ★ Coding source &007 ★

;
;          CONVERSION IMAGE ST DEGAS ==> AMSTRAD MODE 0
;
;          ATTENTION LECTURE PHYSIQUE FICHIER SUR DISK
;          DONC IMPERATIF DE SAUVER SUR DISK FORMATE VIERGE
;
         ORG #A000
;
;
;
         LD   A,(#BF01)
         LD   D,A
         LD   A,(#BF02)
         LD   C,A
         LD   B,64
         LD   E,0
         LD   HL,#1000
SUITE1
         PUSH BC
;
         PUSH DE
         PUSH HL
         RST #18
         DEFW LOAD
         POP HL
         INC H
         INC H
         POP DE
         POP BC
         INC C
         LD   A,C
         CP   #CA
         JR   NZ,BLONK
         LD   C,#C1
         INC D
BLONK
         DJNZ SUITE1
;
         XOR A
         CALL #BC0E
         LD   HL,#1000                  ; BASE
         LD   DE,34                     ; DECALAGE COULEUR DEGAS
         ADD HL,DE
         LD   IY,#C000
         LD   BC,4000
BLGEN1
         PUSH BC
         LD   B,4
BLGEN
         PUSH BC
         PUSH HL
         LD   A,(#BF00)                 ; MODIF CAUSE QUE LAURENT !
         OR   A
         JR   Z,BLRECAD
         CALL CALCOCT
         JR   BLRECAD1
BLRECAD
         CALL CALCPRIM
BLRECAD1
         CALL STOCKOCT
         POP HL
         POP BC
         DJNZ BLGEN
         POP BC
         LD   DE,8
         ADD HL,DE
         PUSH HL
         LD   HL,COORDX
         LD   A,(HL)
         POP HL
         CP   80
         JR   NZ,SUITE
         PUSH HL
         CALL LIGNES
         POP HL
         XOR A
         LD   (COORDX),A
SUITE
         DEC BC
         LD   A,B
         OR   C
         JR   NZ,BLGEN1
         RET
;
CALCOCT
         LD   B,4
CALCOCT1
         CALL DECALHL
         RLA
         CALL DECALHL
         CALL DECALHL
         RLA
         CALL DECALHL
         INC HL
         INC HL
         DJNZ CALCOCT1
         RET
;
CALCPRIM
         LD   B,4
CALCPR1
         CALL DECALHL
         CALL DECALHL
         RLA
         CALL DECALHL
         CALL DECALHL
         RLA
         INC HL
         INC HL
         DJNZ CALCPR1
         RET
;
STOCKOCT
         PUSH AF
         PUSH IY
         POP HL
         LD   A,(COORDX)
         LD   E,A
         LD   D,0
         ADD HL,DE
         INC A
         LD   (COORDX),A
         POP AF
         LD   (HL),A
         RET
;
LIGNES
         PUSH IY
         POP HL
         LD   A,8
         ADD A,H
         LD   H,A
         JR   NC,FIN
         SUB 64
         LD   H,A
         LD   A,L
         ADD A,80
         LD   L,A
         JR   NC,FIN
         INC H
FIN
         PUSH HL
         POP IY
         RET
;
;
DECALHL
         INC HL
         SLA (HL)
         DEC HL
         RL   (HL)
         RET
;
COORDX   DEFB 0
NAME     DEFM IMAGE   .NO1
;
LOAD     DEFW #C666
         DEFB 7

» Download ce fichier

source par ???

[next=coding_src]

A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser...