NOTICE TEXTE n° 1 (1.72 Ko) ![](images/icones/download.gif)
org #6200
;write direct--for APE assembler
;run start
start:
di
loop:
ld b,#f5
wait:
in a,(c)
rra
jr nc,wait
ld hl,rasterbuf
ld a,#54
clb:
ld (hl),a
inc l
jr nz,clb
LD HL,l_v1
LD B,6
DF58: LD A,(HL)
INC HL
EXX
LD E,A
LD D,0
LD HL,#1000
ADD HL,DE
LD DE,colors;
LD BC,#10
EX DE,HL
LDIR
EX DE,HL
EXX
DJNZ DF58
rasterbuf equ #1000
ld d,h
ld e,l
ld bc,#63*3
ldir
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
ex (sp),hl
nop
ld b,200;*0
ld hl,rasterbuf
;defs 32+16
outline:
push bc
ld bc,#7f10
ld a,(hl)
out (c),c
out (c),a
ld bc,#7f00
out (c),c
out (c),a
ld b,#06
l7026:
djnz l7026
nop
nop
inc hl
pop bc
djnz outline
;jp loop
LD A,(l_v1)
CALL go_down;CALL go_down
CALL go_down_2
LD (l_v1),A
LD A,(v6)
CALL go_up;CALL go_up
CALL go_up_2
LD (v6),A
LD A,(v2)
CALL go_down;CALL go_down
LD (v2),A
LD A,(v5)
CALL go_up;CALL go_up
LD (v5),A
LD A,(v3)
CALL go_down_2
LD (v3),A
LD A,(v4)
CALL go_up_2
LD (v4),A
roll:
ld de,colors
ld hl,colors+1
ld bc,15
ld a,(de)
ldir
ld (de),a
jp loop
go_up: call go_up_2
go_up_2:
DEC A
RET NZ
LD A,#B0
RET
go_down:
call go_down_2
go_down_2 INC A
CP #B0
RET C
XOR A
RET
l_v1 DB #08
v2 DB #28
v3 DB #48
v4 DB #68
v5 DB #88
v6 DB #A8
colors:
;db #4D,#45,#4C,#4E,#4E,#47,#4F,#5E,#5B,#59,#5A,#53,#46,#53,#5A,#59
;db #5C,#4C,#4C,#4E,#4E,#4A,#4A,#56,#56,#4F,#4F,#55,#55,#5D,#5D,#5C
;green
; DB #54,#54,#54,#56,#56,#52,#52,#42,#42,#4B,#42,#42,#52,#52,#56,#56
;fire
DB #54,#5C,#5C,#4C,#4C,#4E,#4E,#4A
DB #4A,#4B,#4A,#4A,#4E,#4E,#4C,#4C
DB #5C,#5C,#54,#58;,#58
;demo 2 - 5F30