Ce source ce compile sans problème sous l'assembleur de WinAPE.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; https://cpcrulez.fr
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
org &1000
off_3A8F equ byte_37DD+690
off_3D46 equ byte_37DD+1385
ld a,&1
call &0BC0E
ld bc,&0
call &0BC38
ld bc,&0
ld a,&0
call &0BC32
di
ld hl,&0C9FB
ld (&38),hl
ei
call AffColonn ; affiche les colonnes
ld a,&1
ld (byte_364C),a
ld bc,&7F00
out (c),c
ld a,&54
out (c),a
ld bc,&7F10
out (c),c
ld a,&54
out (c),a
loc_3552: ld b,&0F5
loc_3554: in a,(c) ; &bb19
rra
jp nc,loc_3554
loc_355A: ld hl,byte_37DD
ld (word_364E),hl
loc_3560:
ld hl,off_3A8F
ld (word_3650),hl
loc_3566:
ld hl,byte_37DD
ld (word_3652),hl
halt
loc_3570: ld de,DATAraster
ld a,&0A0
loc_3575: ex af,af'
ld hl,(word_364E)
ld bc,&7F01
out (c),c
outi
ld (word_364E),hl
ld hl,(word_3650)
ld bc,&7F02
out (c),c
outi
ld (word_3650),hl
ld hl,(word_3652)
ld bc,&7F03
out (c),c
outi
ld (word_3652),hl
ld bc,&0BC02
out (c),c
inc b
ld a,(de)
inc de
out (c),a
ex af,af'
dec a
jp nz,loc_3575
ld bc,&7F01
out (c),c
ld a,&54
out (c),a
ld bc,&7F02
out (c),c
ld a,&54
out (c),a
ld bc,&7F03
out (c),c
ld a,&54
out (c),a
ld bc,&0BC02
out (c),c
ld bc,&0BD2E
out (c),c
ld hl,(loc_355A+1)
inc hl
loc_35D5: ld a,1
dec a
jp nz,loc_35E0
ld a,&0E6
ld hl,byte_37DD
loc_35E0: ld (loc_35D5+1),a
ld (loc_355A+1),hl
ld hl,(loc_3560+1)
inc hl
loc_35EA: ld a,1
dec a
jp nz,loc_35F5
ld a,&0E6
ld hl,off_3A8F
loc_35F5: ld (loc_35EA+1),a
ld (loc_3560+1),hl
ld hl,(loc_3566+1)
inc hl
loc_35FF: ld a,1
dec a
jp nz,loc_360A
ld a,&0E6
ld hl,off_3D46
loc_360A: ld (loc_35FF+1),a
ld (loc_3566+1),hl
ld a,(byte_364C)
cp 1
jp z,loc_362A
ld a,(byte_364D)
dec a
ld (byte_364D),a
jp nz,loc_3649
ld a,&1
ld (byte_364C),a
jp loc_3649
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
loc_362A: ld hl,(loc_3570+1)
inc hl
loc_362E: ld a,1
dec a
jp nz,loc_3643
ld a,&83
ld (byte_364D),a
ld a,&0
ld ( byte_364C),a
ld a,&83
ld hl,DATAraster
loc_3643: ld (loc_362E+&1),a
ld (loc_3570+&1),hl
loc_3649:
jp loc_3552
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Les datas
byte_364C: db 0
byte_364D: db 0
word_364E: dw 0
word_3650: dw 0
word_3652: dw 0
DATAraster: db '.....................................'
db '//000111111111111111111111111111111111111000//'
db '.--,,,++++++++++++++++++++++++++++++++++++,,,---'
db '.....................................'
db '//000111111111111111111111111111111111111000//.--,,,++++'
db '++++++++++++++++++++++++++++++++,,,---..................'
db '...................//00011111111111111111111111111111111'
db '1111000//.--,,,++++++++++++++++++++++++++++++++++++,,,---'
byte_37DD: db 'KKKKKKKKKKKKKKKTTTTTKKKKKKKKKKKKKKKTTTTTTTTTTTTTTTTTTTTTT'
db 'TTTKKKKKKKKKKKKKKKTTTTTKKKKKKKKKKKKKKKTTTTTKKKKKKKKKKKKK'
db 'KKKKTTTTTKKKKKKKKKKKKKKKTTTTTKKKKKKTTTTTTKKKTTTTTKKKKKKT'
db 'TTTTTKKKTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT'
db 'TTTTTTTKKKKKKKKKKKKKKKTTTTTKKKKKKKKKKKKKKKTTTTTTTTTTTTTT'
db 'TTTTTTTTTTTKKKKKKKKKKKKKKKTTTTTKKKKKKKKKKKKKKKTTTTTKKKKK'
db 'KKKKKKKKKKTTTTTKKKKKKKKKKKKKKKTTTTTKKKKKKTTTTTTKKKTTTTTK'
db 'KKKKKTTTTTTKKKTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT'
db 'TTTTTTTTTTTTTKKKKKKKKKKKKKKKTTTTTKKKKKKKKKKKKKKKTTTTTTTT'
db 'TTTTTTTTTTTTTTTTTKKKKKKKKKKKKKKKTTTTTKKKKKKKKKKKKKKKTTTT'
db 'TKKKKKKKKKKKKKKKTTTTTKKKKKKKKKKKKKKKTTTTTKKKKKKTTTTTTKKK'
db 'TTTTTKKKKKKTTTTTTKKKTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT'
db 'TTTTTTTTTTTTTTTTTTTKKKTTTTTTTTTTTTTTTTTKKKTTTTTTTTTKKKTT'
db 'TTTTTTTTTTTTTTTTTTTTTTTKKKTTTKKKTTTTTTTTTTTKKKTTTKKKTTTK'
db 'KKTTTTTKKKTTTTTTTTTKKKTTTTTKKKTTTKKKTTTKKKTTTTTKKKTTTKKK'
db 'TTTKKKTTTTTKKKTTTKKKTTTKKKTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT'
db 'TTTTTTTTTTTTTTTTTTTTTTTTTKKKTTTTTTTTTTTTTTTTTKKKTTTTTTTT'
db 'TKKKTTTTTTTTTTTTTTTTTTTTTTTTTKKKTTTKKKTTTTTTTTTTTKKKTTTK'
db 'KKTTTKKKTTTTTKKKTTTTTTTTTKKKTTTTTKKKTTTKKKTTTKKKTTTTTKKK'
db 'TTTKKKTTTKKKTTTTTKKKTTTKKKTTTKKKTTTTTTTTTTTTTTTTTTTTTTTT'
db 'TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTKKKTTTTTTTTTTTTTTTTT'
db 'KKKTTTTTTTTTKKKTTTTTTTTTTTTTTTTTTTTTTTTTKKKTTTKKKTTTTTTT'
db 'TTTTKKKTTTKKKTTTKKKTTTTTKKKTTTTTTTTTKKKTTTTTKKKTTTKKKTTT'
db 'KKKTTTTTKKKTTTKKKTTTKKKTTTTTKKKTTTKKKTTTKKKTTTTTTTTTTTTT'
db 'TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTKKKKKKKKKKKKKK'
db 'KTTTTTKKKKKKKKKKKKKKKTTTTTTTTTTTTTTTTTTTTTTTTTTTTKKKTTTK'
db 'KKKKKTTTTTKKKTTTKKKTTTKKKTTTTTKKKTTTTTTTTTKKKTTTTTKKKTTT'
db 'KKKTTTKKKTTTTTKKKTTTTTTKKKKKKTTTTTKKKTTTTTTKKKKKKTTTTTTT'
db 'TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTKKKKKKKK'
db 'KKKKKKKTTTTTKKKKKKKKKKKKKKKTTTTTTTTTTTTTTTTTTTTTTTTTTTTK'
db 'KKTTTKKKKKKTTTTTKKKTTTKKKTTTKKKTTTTTKKKTTTTTTTTTKKKTTTTT'
db 'KKKTTTKKKTTTKKKTTTTTKKKTTTTTTKKKKKKTTTTTKKKTTTTTTKKKKKKT'
db 'TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTKK'
db 'KKKKKKKKKKKKKTTTTTKKKKKKKKKKKKKKKTTTTTTTTTTTTTTTTTTTTTTT'
db 'TTTTTKKKTTTKKKKKKTTTTTKKKTTTKKKTTTKKKTTTTTKKKTTTTTTTTTKK'
db 'KTTTTTKKKTTTKKKTTTKKKTTTTTKKKTTTTTTKKKKKKTTTTTKKKTTTTTTK'
db 'KKKKKTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT'
db 'TTTT'
db 0
AffColonn: ld de,&0C000
ld hl,ecran_grille
ld a,(hl)
inc hl
ld (loc_4C1F+1),a
loc_4C17: ld a,d
cp 0
jp z,locret_4C37
ld a,(hl)
ld b,a
loc_4C1F: cp 1
jp z,loc_4C2B
ld a,b
ld (de),a
inc de
inc hl
jp loc_4C17
loc_4C2B: inc hl
ld a,(hl)
inc hl
ld b,(hl)
inc hl
loc_4C30: ld (de),a
inc de
djnz loc_4C30
jp loc_4C17
locret_4C37: ret
ecran_grille:
read "data.inc"| ★ AMSTRAD CPC ★ DOWNLOAD ★ |
|
CPCrulez[Content Management System] v8.7-desktop/c
Page créée en 301 millisecondes et consultée 2126 foisL'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. |
|
|
