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