★ CODING ★ SOURCES ★ CODING Source &030 - HOLLYWOOD SCROLL ★

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; https://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"

https://CPCrulez.fr

★ AMSTRAD CPC ★ DOWNLOAD ★

Other platform tool:
» coding  src30DATE: 2005-03-03
DL: 295
TYPE: ZIP
SiZE: 4Ko
NOTE:
.HFE: Χ

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

Lien(s):
» Coding Src's » Triangles (Amstrad Computer User)
» Coding Src's » 3D Shape Rotator (Amstrad Action)
» Coding Src's » XOR-Sprite (Schneider Aktiv)
» Coding Src's » Bruce Abbott GAC Fast Fill Patch : Faster picture drawing for GAC adventure games
» Coding Src's » 3D Demo (Gamemag)
» Coding Src's » Ripple (Amstrad Computer User)
Je participe au site:
» Vous avez des infos personnel, des fichiers que nous ne possédons pas concernent ce programme ?
» Vous avez remarqué une erreur dans ce texte ?
» Aidez-nous à améliorer cette page : en nous contactant via le forum ou par email.

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