CODINGSOURCES ★ CODING Source &016 - Rasters by Dr FELIX ★

Rasters|Dr Felix pour AMS'DEM)Coding Sources

Ce source ce compile sans problème sous l'assembleur de WinAPE.
 

; Raster by DR FELIX OF AMS'DEM
;
          ORG  #4000
          DI
START     CALL VIDEO
          LD   A,#54
          LD   BC,#7F10
          OUT  (C),C
          OUT  (C),A
          LD   HL,TAB+1
          LD   DE,TAB
          LD   BC,TABF-TAB-1
          LD   A,(DE)
          LDIR
          LD   (DE),A
          LD   BC,#F40E                 ;  EFFACEMENT  DE CETTE LIGNE
          OUT  (C),C                    ; A LA LIGNE FORCEONE
          LD   BC,#F6C0               ; =FONCTIONNEMENT PAR GOTO ....
          OUT  (C),C                    ; NE FONCTIONNE QUE SOUS BASIC...
          LD   BC,#F792
          OUT  (C),C
          LD   BC,#F645
          OUT  (C),C
          LD   A,#F4
          IN   A,(#00)
          LD   BC,#F782
          OUT  (C),C
          AND  #80
          JR   NZ,START                 ; LIGNE FORCEONE
          RET
VIDEO     LD   A,#F5
          IN   A,(#00)
          RRA
          JR   NC,VIDEO
          LD   B,06
WAIT      DJNZ WAIT
          NOP
          LD   HL,TAB
          LD   BC,#7F10                 ; #7F00 RASTER DANS PAPER
BOUC      LD   A,(HL)                   ; #7F01 ''''''''''' ENCRE 1
          OR   A                        ; #7F0F ''''''''''' ENCRE 15.....
          RET  Z
          OUT  (C),C
          OUT  (C),A
          INC  HL
          LD   A,11                     ; LD A,43=BIG RASTER
CNT       DEC  A
          JR   NZ,CNT
          NOP
          JR   BOUC
TAB       DEFB #4E,#4E                  ;  TABLE DE COULEUR
          DEFB #5C,#5C,#4C,#4C,#47,#47
          DEFB #4B,#4B,#47,#47,#4C,#4C
          DEFB #5C,#5C,#5C,#5C,#4E,#4E
          DEFB #4A,#43,#4B,#43,#4A,#4E
          DEFB #4E,#5C,#56,#56,#52,#52
          DEFB #59,#59,#4B,#4B,#59,#59
          DEFB #52,#52,#56,#56,#55,#55
          DEFB #5F,#5F,#53,#53,#4B,#4B
          DEFB #53,#53,#5F,#5F,#55,#55
          DEFB #58,#58,#4D,#4D,#4F,#4F
          DEFB #4B,#4B,#4F,#4F,#4D,#4D
          DEFB #58,#58
          DEFB #44,#55,#5D,#5F,#53,#5B
          DEFB #5C,#4C,#4E,#4A,#43,#4B
          DEFB #44,#55,#5D,#5F,#53,#4B
          DEFB #4B,#4B,#47,#47,#4C,#4C
          DEFB #5C,#5C
TABF      DEFB 0

http://cpcrulez.fr

 

★ ANNÉE: ???
★ AUTEUR: DR FELIX

CPCrulez[Content Management System] v8.75-desktop/c
Page créée en 089 millisecondes et consultée 870 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.