Top 10k strings from cosmocubes.zx in <root> / bin / pc / assemblers / SjASMPlus.zip / SjASMPlus / examples / ZX-Spectrum / tbk-07-cosmocubes /
Back to the directory listing
2 ld (hl),a:add hl,bc 2 ld (hl),#08:inc hl 2 ///////////////////////////////////////////////// 1 xor a:out (#fe),a 1 timer_order ld hl,sound 1 timer1 ld a,(hl):inc hl:ld (timer_order+1),hl 1 timer ld a,156:dec a:jr nz,notimer 1 spr_adr_modif ld hl,sprite 1 sla a:ld (de),a:inc hl 1 setbank0 ld a,(bankscr+1):and #f8:jr bankscr+2 1 scrswap ld a,(bankscr+1):xor #0a:ld (bankscr+1),a 1 rout_volume_ac 1 rnd_modif ld hl,1000,a,(hl):inc hl:res 3,h 1 rl c:jr nc,$+2+2:or #5 1 rl c:jr nc,$+2+2:or #28 1 output_e ld sp,0:ret 1 or b:ld b,a 1 notimer ld (timer+1),a 1 mus2_2 ld (mus2+1),hl 1 mus2 ld hl,pattern2 1 ld sp,hl:exx 1 ld iy,output_bp 1 ld hl,soundloop-1 1 ld hl,screen+#1800:exx 1 ld hl,pattern2,(mus2+1),hl 1 ld hl,pattern1 1 ld hl,gfxout,b,l,lx,3 1 ld hl,canvas+2772+60*12 1 ld hl,canvas+2772 1 ld hl,ay_data+13,d,l,c,#fd 1 ld hl,ay_data+11,(hl),#78:inc hl,hl:ld (hl),#0c 1 ld hl,atrbuf_v,a,(hl):add a,12:ld (hl),a 1 ld hl,atr_buf_new,bc,#4200:call fill_l 1 ld h,high (screen+#1800),lx,12 1 ld e,8,(de),a:inc e,e:ld (de),a 1 ld de,hl:inc de 1 ld de,ay_data+2 1 ld de,alone_data 1 ld c,0,e,c 1 ld c,(hl):xor a 1 ld bc,-#0800 1 ld bc,#20,l,b,de,atr_buf_new 1 ld bc,#1700:add hl,bc 1 ld b,#ff:out (c),d 1 ld b,#bf:outd 1 ld a,h:or l:jr nz,alon1 1 ld a,h:cp #ff:jr nz,action2_1 1 ld a,e:sub 12:ld e,a 1 ld a,e:cp #f0:jr nz,$+2+2:ld a,#f0-#80 1 ld a,b,(ay_data+7),a 1 ld a,12:add a,e:ld e,a 1 ld a,0:rla:inc de:ld (de),a 1 ld a,(rollatr+1):inc a:bit 0,a:jr nz,roller1 1 ld a,(hl):cp #ff:jr nz,$+2+3:ld hl,sprite 1 ld a,(hl):and a:jr nz,timer1 1 ld a,(hl):and a:jr nz,mus2_1 1 ld a,(hl):and a:jr nz,$+2+3:ld hl,pattern1 1 ld a,(hl):and #10:ld B,a 1 ld a,(hl):and #0f:ld (ay_data+9),a 1 ld a,(hl):and #0f:inc a:call rout_volume_ac 1 ld a,(de):inc e 1 ld a,(de),l,a:inc de 1 ld a,(de),h,a:inc de 1 ld a,#c9,(mus2),a 1 ld a,#21,(mus2),a 1 ld (spr_adr_modif+1),hl 1 ld (rollatr+1),a:ret 1 ld (output_e+1),sp 1 ld (mus1+1),hl 1 ld (hl),#fd:inc hl:ld (hl),#e9 1 ld (hl),#f9:inc hl 1 ld (hl),#f5,c,16:ldir 1 ld (hl),#d5,c,16:ldir 1 ld (hl),#09:inc hl 1 ld (de),a,e,4,(de),a 1 ld (action2+1),hl 1 jr datagen5 1 jp rollatr1 1 interrupts_init ; 1 inter EQU #BDBD 1 incbin "cubes_gfx.bin" 1 inc l:ld a,l:cp #20:ret z 1 inc hl:ld a,h:cp #ff:ret z 1 inc e:ld (de),a,e,1,(de),a 1 imtab EQU #BC00 1 generate_gfxout2 1 generate_gfxout1 1 generate_gfxout ; 1 exx:ld de,4:add hl,de 1 exa:inc a:and 1:jr nz,rollatr1 1 equ atr_buf_new+#100 1 djnz datagen1_1 1 dec lx:jr nz,output1 1 dec lx:jr nz,generate_gfxout1 1 dec d:jp p,musout 1 dec c:jr nz,datagen1 1 dec a:jr nz,generate_gfxout2 1 datagen1_2 1 datagen1_1 1 datagen1 // 1 data_gen // 1 call setbank0:call data_gen 1 call setbank0 1 call scrswap 1 call roller 1 call rollatr 1 call rnd:cp e:jr nc,datagen1_2 1 call output 1 call interrupts_init 1 call generate_gfxout 1 call datagen1 1 bankscr ld a,#17,bc,#7ffd:out (c),a:ret 1 atrbuf_v equ $-2 1 atr_buf_new 1 and #7:jr z,yep 1 alone_data 1 add a,a:rl c 1 add a,12*16:inc hl:ld d,(hl),e,a 1 add a,#40:ld e,a 1 add a,#40:ld (hl),a 1 action2_1 ld a,(hl),(de),a:inc hl,e:djnz action2_1 1 action2 ld hl,canvas 1 SAVESNA "cosm1ocubes.sna",MAIN 1 PUSH AF,BC,HL,DE 1 POP DE,HL,BC,AF 1 LD HL,inter,(HL),#C3;jp 1 LD DE,HL:INC DE:LDIR:RET 1 LD A,H,L,0,(HL),A:DEC H 1 LD A,H,I,A:IM 2 1 LD (HL),A:DEC L:JR NZ,$-2 1 INC L:LD (HL),low obrab 1 INC L:LD (HL),high obrab 1 DEVICE ZXSPECTRUM128 1 //special for Forever8 1 //push de x16 1 //push af x16 1 //play sample 1 //ld sp,hl 1 //add hl,bc 1 //[#3F00] 1 //COSMOCUBES 1K-tro by psndcj//tbk 1 //15-17.03.07 1 ////////////////////////////////////////////////easy routine 1 /////////////////////////////////////////////////save snapshot 1 //////////////////////////////////////////////////// 1 /////////////////////////////////////////////////// 1 ////////////////////////////////////////////////// 1 /////////////////////////////////////////////// 1 //+1(1) %aaaabbbb, aaaa0000 - 1 // [#0100] 1 // +1(1) %ab00cccc, 1 , 0000bbbb - 1 dw canvas+6,canvas+936+2,canvas+1728+8,canvas+2016+5,canvas+2304+3,canvas+2448+9,canvas+2592+5,canvas+2664+8,canvas+2736+1 1 db 132,48,48,24,24,12,12,6,6,3,3,6 1 db 12,12,12,12,12,12,12,6,3,3 1 db #42,#F,#85,#D,#85,#1B,#85,#17,#85,#17,#85,#17,#77,#B,#EF,#9,#EF,#17,#EF,#15,#EF,#15,#EF,#15 1 db #42,#B,#85,#9,#85,#17,#85,#15,#85,#15,#85,#15,#77,#F,#EF,#D,#EF,#1B,#EF,#17,#EF,#17,#EF,#17 1 db #27,#F,#4F,#D,#4F,#1B,#4F,#17,#4F,#17,#4F,#17,#3B,#F,#77,#D,#77,#1B,#77,#17,#77,#17,#77,#17 1 db #27,#B,#4F,#9,#4F,#17,#4F,#15,#4F,#15,#4F,#15,#3B,#B,#77,#9,#77,#17,#77,#15,#77,#15,#77,#15 1 db #25,#8E,#31,#8E,#3F,#8E,#1D,#CF,#1D,#CF,#1D,#CF,#1D,#4E,#1D,#4D,#1D,#4A,#1D,#CF,#1D,#CF,#1D,#CF 1 a(or #28) b(or #5), 0000cccc+1 - 1 ld (rnd_modif+1),hl:exx:ret 1 org MAIN