★ 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: 452
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 » Division 16 bits
» Coding Src's » La Technique des Masques (CPC Revue n°25)
» Coding Src's » WYZplayer (demo+soucepack)
» Coding Src's » Animacja (Bajtek)
» Coding Src's » Graphic Designer: April Fool (Computer Gamer)
» Coding Src's » Raster qui Rebondit
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.732-desktop/c
Page créée en 341 millisecondes et consultée 2349 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.