CODINGSOURCES ★ CODING Source &030 - HOLLYWOOD SCROLL ★

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; http://cpcrulez.fr
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            org &2000
nolist
            ld      a, &2
            call      &0BC0E
            ld      a, &0
            ld      bc, &0
            call    &0BC32
            ld      a, &1
            ld      bc, &1A1A
            call    &0BC32
            ld      bc, &0
            call    &0BC38
            di
            ld      hl, (&38)
            ld      (word_11EF), hl
            ld      hl, &0C9FB
            ld      (&38), hl
            ld      (word_11EC), sp
            ld      sp, &4FE
            ld      bc, &7FC4
            out     (c), c
            ld      hl, &8000
            ld      de, &4000
            ld      bc, &4000
            ldir
            ld      bc, &7FC0
            out     (c), c
            ei
            ld      bc, &7F00
            ld      a, &54
            out     (c), c
            out     (c), a
            ld      c, &10
            out     (c), c
            out     (c), a
            ld      c, &1
            ld      a, &4B
            out     (c), c
            out     (c), a
            ld      bc, &0BC02
            out     (c), c
            ld      bc, &0BD28
            out      (c), c
            ld      bc, &0BC01
            out      (c), c
            ld      bc, &0BD1C
            out      (c), c
            ld      bc, &0BC06
            out      (c), c
            ld      bc, &0BD24
            out      (c), c
loc_107A:   ld      b, &0F5      ;
loc_107C:   in      a, (c)
            rra
            jr      nc, loc_107C
            ld      bc, &0BC07
            out     (c), c
            ld      bc, &0BDFF
            out     (c), c
            ld      bc, &0BC04
            out     (c), c
            ld      bc, &0BD03
            out     (c), c
            ld      a, (byte_10D1)
            dec     a
            and     &7
            ld      (byte_10D1), a
            cp      &7
            jp      nz, loc_10AD
            ld      hl, (word_10B5)
            ld      de, &1C
            add     hl, de
            ld      (word_10B5), hl
loc_10AD:   ld      c, a
            ld      a, &7
            sub     c
            ld      (byte_1166), a
            db      &21         ; ld hl, &3000
word_10B5:  dw      &3000
            ld      a, h
            and     &3
            or      &30
            ld      bc, &0BC0C
            out     (c), c
            inc     b
            out     (c), a
            dec     b
            inc     c
            out     (c), c
            inc     b
            out     (c), l
            ld      bc, &0BC05
            out     (c), c
            db      &1
byte_10D1:  db      &0
            cp      l
            out     (c), c
            halt
            ld      bc, &0BC04
            out     (c), c
            ld      bc, &0BD24
            out     (c), c
            call    sub_1274
loc_10E3:   ld      a, &10
            dec      a
            ld      (loc_10E3+&1), a
            cp      &1
            jr      z, unk_1153
            or      a
            jr      nz, unk_1112
            ld      a, &10
            ld      (loc_10E3+&1), a
loc_10F5:   ld      hl, unk_12B5
loc_10F8:   ld      de, unk_12ED
            ld      (word_1154), de
            ld      (word_1116), hl
            ld      (loc_10F5+&1), de
            ld      (loc_10F8+&1), hl
            ld      hl, (word_1113)
            ld      a, (hl)
            or      a
            jr      nz, unk_1153
            jr      loc_117C
unk_1112:   db      &21
word_1113:  dw      scrollTEXT
            db      &11
word_1116:  dw      unk_12ED
            push    hl
            push    de
            ld      a, (hl)
            and     &3F
            ld      l, a
            ld      h, &0
            add     hl, hl
            add     hl, hl
            add     hl, hl
            add     hl, hl
            add     hl, hl
            ld      de, fonteDATA
            add     hl, de
            pop     de
            ld      a, l
            ld      (de), a
            inc     de
            ld      a, h
            ld      (de), a
            inc     de
            pop     hl
            inc     hl
            push    hl
            push    de
            ld      a, (hl)
            and     &3F ; '?'
            ld      l, a
            ld      h, &0
            add     hl, hl
            add     hl, hl
            add     hl, hl
            add     hl, hl
            add     hl, hl
            ld      de, fonteDATA
            add     hl, de
            pop     de
            ld      a, l
            ld      (de), a
            inc      de
            ld      a, h
            ld      (de), a
            inc     de
            pop     hl
            inc     hl
            ld      (word_1116), de
            ld      (word_1113), hl
unk_1153:   db      &21
word_1154:  dw      unk_12B5
loc_1156:   ld      de, &0C7E0
            call    loc_11FA
            ld      (loc_1156+&1), de
            ld      bc, &0BC05
            out     (c), c
            db      &1
byte_1166:  db      &0
            cp      l
            out     (c), c
            ld      bc, &0BC07
            out     (c), c
            ld      bc, &0BD00
            out     (c), c
            ld      a, (byte_12B0)
            cp      &7F
            jp      nz, loc_107A
loc_117C:   ld      bc, &7F01
            ld      a, &54
            out     (c), c
            out     (c), a
            ld      bc, &0BC02
            out     (c), c
            ld      bc, &0BD2E
            out     (c), c
            ld      bc, &0BC01
            out     (c), c
            ld      bc, &0BD28
            out     (c), c
            ld      bc, &0BC04
            out     (c), c
            ld      bc, &0BD26
            out     (c), c
            ld      bc, &0BC07
            out     (c), c
            ld      bc, &0BD1E
            out     (c), c
            ld      bc, &0BC06
            out     (c), c
            ld      bc, &0BD19
            out     (c), c
            ld      bc, &0BC05
            out     (c), c
            ld      bc, &0BD00
            out     (c), c
            ld      bc, &0BC0C
            out     (c), c
            ld      bc, &0BD30
            out     (c), c
            ld      bc, &0BC0D
            out     (c), c
            ld      bc, &0BD00
            out     (c), c
            di
            ld      bc, &7FC4
            out     (c), c
            ld      hl, &4000
            ld      de, &8000
            ld      bc, &4000
            ldir
            ld      bc, &7FC0
            out     (c), c
            db      &31         ; ld sp,x
word_11EC:  dw      &0000
            db      &21         ; ld hl,x
word_11EF:  dw      &0000
            ld      (&38), hl
            ei
            jp 0                ; FINISH


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
loc_11FA:   ld      a, &0C7
            cp      &D
            jr      nz, loc_1217
            ld      a, &0C8      ; '+'
            sub     e
            jr      nc, loc_1217
            neg
            sra      a
            ld      (byte_1248), a
            ld      c, a
            ld      a, &1C
            sub      c
            ld      (byte_1235), a
            ld      a, &0FF
            ld      (byte_121F), a
loc_1217:   push    de
            di
            ld      (word_1257), sp
            ld      sp, hl
            db      &3E
byte_121F:  db      &0
            or      a
            jr      nz, unk_1234
            ld      b, &1C
loc_1225:   pop     hl
            ld      a, (hl)
            ld      (de), a
            inc     hl
            inc     de
            ld      a, (hl)
            ld      (de), a
            inc     hl
            inc     de
            push    hl
            pop     hl
            djnz    loc_1225
            jr      unk_1256
unk_1234:   db      &6
byte_1235:  db      &0
loc_1236:   pop     hl
            ld      a, (hl)
            ld      (de), a
            inc     hl
            inc     de
            ld      a, (hl)
            ld      (de), a
            inc     hl
            inc     de
            push    hl
            pop     hl
            djnz    loc_1236
            ld      a, d
            sub     &8
            ld      d, a
            db      &6
byte_1248:  db      &0
loc_1249:   pop     hl
            ld      a, (hl)
            ld      (de), a
            inc     hl
            inc     de
            ld      a, (hl)
            ld      (de), a
            inc     hl
            inc     de
            push    hl
            pop     hl
            djnz    loc_1249
unk_1256:   db      &31
word_1257:  dw      &0
            ei
            pop     de
            ld      a, d
            add     a, &8
            ld      d, a
            ret     nc
            sub     &40
            ld      d, a
            ld      a, e
            add     a, &38
            ld      e, a
            ret     nc
            inc     d
            ld      a, &0C8
            cp      &D
            ret     nz
            ld      d, &0C0
            xor     a
            ld      (byte_121F), a
            ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub_1274:   ld      hl, unk_12AB
            ld      bc, &0F40E
            out     (c), c
            ld      b, &0F6
            in      a, (c)
            and     &30
            ld      c, a
            or      &0C0
            out     (c), a
            out     (c), c
            ld      bc, &0F792
            out     (c), c
            ld      c, &40
loc_1290:   ld      b, &0F6
            out     (c), c
            ld      b, &0F4
            in      a, (c)
            ld      (hl), a
            inc     hl
            inc     c
            ld      a, c
            cp      &4A
            jr      nz, loc_1290
            ld      bc, &0F782
            out     (c), c
            ld      bc, &0F600
            out     (c), c
            ret
            read "datas.inc"

http://cpcrulez.fr

★ AMSTRAD CPC ★ DOWNLOAD ★

Other platform tool:
» coding  src30DATE: 2005-03-03
DL: 81 fois
TYPE: ZIP
SIZE: 3Ko

Je participe au site:
» Newfile(s) upload/Envoye de fichier(s)
★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser...

Lien(s):
» Coding Src's » Graphic - 3D Graphics On Amstrad (Popular Computing Weekly)
» Coding Src's » Big Dump
» Coding Src's » Raster qui Rebondit
» Coding Src's » LIB Catalogue v1.0 (ANTOINE / POW)
» Coding Src's » Graphic - Scr2bmp
» Coding Src's » Graphic - Flower (Amstrad Computer User)

CPCrulez[Content Management System] v8.75-desktop/c
Page créée en 928 millisecondes et consultée 905 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.