★ CODING ★ SOURCES ★ 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


DOWNLOAD

Fichier(s):

» coding_src30  (Fichier ZIP , télécharger 42 fois de 3 Ko)
[next=coding_src]

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

» Coding Listing - Live Wire   (Amstrad Computer User)
» Coding Listing - Cpc Als Telefonwaehler   (CPC Amstrad International)
» Coding Listing - Rsx - Bankswap   (CPC Amstrad International)
» Coding Listing - Stained Glass   (The Amstrad User)
» Coding Listing - Rsx - Usr - Fonktion   (CPC Amstrad International)
» Coding Listing - Strings Vertauschen   (CPC Amstrad International)
» Coding Listing - Screen Dump For Epson   (Computing With The Amstrad)
» Coding Listing - Crtc - On - Screen Effects On The Cpc464   (Popular Computing Weekly)
» Coding Listing - Xpandocp - Decompress Pictures   (The Amstrad User)
CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ CPC RULEZ
CPCrulez[Content Management System] v8.00 par hERMOL
Page créée en 501 millisecondes et consultée 154 fois