device zxspectrum128 org #8000 coorda=#9000 ld hl,mdata ld d,#0e ld e,0 call p2 xor a out (#fe),a ld h,#30 l1 push hl ei ld b,#10 1 halt djnz 1b call portout ld hl,#c000 1 ld (hl),b inc hl ld a,h cp #d8 jr c,1b ld b,5+#40 cp #db jr nz,1b pop hl push hl ld de,#d7e1 ld hy,#1f call mp ld de,#d0ad ld hy,#f call mp ld de,#d075 ld hy,#7 call mp ld de,#d000 ld b,#1f ld c,#aa call m11 pop hl dec l jr l1 portout exx ld d,2 ld e,d p2 ld bc,#7ffd pg ld a,29 xor (#17 xor 29) ld (pg+1),a out (c),a 2 ld a,(hl) cp #ff jr nz,1f ld hl,notes jr 2b 1 ld b,#ff out (c),e ld b,#bf out (c),a inc hl inc e dec d jr nz,2b exx ret mdata db #c5,#07,#98,#02,#e2,#03,#01,#38,#10,#0a,#10,#7c,#00,#08 notes db #72,#02 db #f1,#01 db #98,#02 db #ff inim ld a,(hl) and hy inc a ld b,a ret mp ld b,#0d ld c,1 mpp 2 push de,bc r2 push bc call inim 7 add a,(hl) inc l jr nc,6f rrc c jr nc,6f inc e 6 call up_de call setter djnz 7b ld a,c pop bc ld c,a dec b jr z,3f r1 4 push bc call inim call m11 ld a,c pop bc ld c,a dec b jr z,3f exx ld de,r1 push de exx jr 2b 3 ld b,#0c 1 pop de djnz 1b pop bc pop de ret m11 6 add a,(hl) inc l call c,up_de rrc c jr nc,7f inc e 7 call setter djnz 6b setter exa ld a,(de) or c ld (de),a ld a,e add a,b ld e,a ld a,c ld (de),a ld a,e sub b ld e,a exa ret up_de exa dec d ld a,d and 7 cp 7 jr nz,3f ld a,e sub #20 ld e,a jr c,3f ld a,d add a,8 ld d,a 3 exa ret display $-#8000 savesna "e:\program files\unreal speccy\qsave1.sna",#8000 labelslist "e:\program files\unreal speccy\user.l"