URL
https://opencores.org/ocsvn/diogenes/diogenes/trunk
Subversion Repositories diogenes
[/] [diogenes/] [tags/] [initial/] [diogenes/] [examples/] [snake4.asm] - Rev 236
Compare with Previous | Blame | View Log
@ l7: stack@ l6: push_function@ l0: return address of leavfuction (push pop im speziell)stio l0, [l0]LDL l0, :startLDL l6, :pushldi l7, 0x03jump <l0>lsi l7, 0xfEpush:st h7, [l7]adi l7, -1st h1, [l7]adi l7, -1st h2, [l7]adi l7, -1st h3, [l7]adi l7, -1st h4, [l7]adi l7, -1st h5, [l7]adi l7, -1st h6, [l7]adi l7, -1st h0, [l7]jump <l0>adi l7, -1pop:adi l7, 1ld h0, [l7]adi l7, 1ld h6, [l7]adi l7, 1ld h5, [l7]adi l7, 1ld h4, [l7]adi l7, 1ld h3, [l7]adi l7, 1ld h2, [l7]adi l7, 1ld h1, [l7]adi l7, 1ld h7, [l7]nopnopjump <h0>nopstart:@ initialize vmemLDL h4, :set_tileldi l3, 59 @ max yhloop:ldi l2, 79 @ max xpixloop:call h0, <h4>ldi l1, 0x5bbrnz l2, :pixloopadi l2, -1brnz l3, :hloopadi l3, -1@ draw "3D" bordersldi h6, 55ldi h7, 0xc1lsi h7, 0x02LDL h3, :bordercall h0, <h3>ldi h4, 55ldi h6, 6ldi h7, 0xc1lsi h7, 0x3Ccall h0, <h3>ldi h4, 17ldi h7, 0xc5call h0, <h3>lsi h7, 0x3Cldi h7, 0xc9call h0, <h3>lsi h7, 0x3Cldi h7, 0xcdcall h0, <h3>lsi h7, 0x3Cldi h6, 17ldi h7, 0xd4call h0, <h3>lsi h7, 0x3C@ draw static textldi l0, 0xcAlsi l0, 0x44ldi l1, 0x57 @ Xstio l1, [l0]ldi l0, 0xcElsi l0, 0x44ldi l1, 0x58 @ Ystio l1, [l0]@ LEVELldi l0, 0xc2lsi l0, 0x42ldi l1, 0x47stio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0x55stio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0x47stio l1, [l0]@ LEVELldi l0, 0xc6lsi l0, 0x42ldi l1, 0x38stio l1, [l0]adi l0, 1ldi l1, 0x4bstio l1, [l0]adi l0, 1stio l1, [l0]adi l0, 1ldi l1, 0x47stio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0xecstio l1, [l0]@ Andreasldi l0, 0xD5lsi l0, 0x3eldi l1, 0x38 @ Astio l1, [l0]adi l0, 1ldi l1, 0x49stio l1, [l0]adi l0, 1ldi l1, 0x3bstio l1, [l0]adi l0, 1ldi l1, 0x4dstio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0x38stio l1, [l0]adi l0, 1ldi l1, 0x4estio l1, [l0]@ Davidldi l0, 0xD8lsi l0, 0x3eldi l1, 0x3B @ Dstio l1, [l0]adi l0, 1ldi l1, 0x38stio l1, [l0]adi l0, 1ldi l1, 0x55stio l1, [l0]adi l0, 1ldi l1, 0x44stio l1, [l0]adi l0, 1ldi l1, 0x3bstio l1, [l0]@ Fellnhoferldi l0, 0xD5lsi l0, 0xc1ldi l1, 0x3Dstio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0x47stio l1, [l0]adi l0, 1stio l1, [l0]adi l0, 1ldi l1, 0x49stio l1, [l0]adi l0, 1ldi l1, 0x3fstio l1, [l0]adi l0, 1ldi l1, 0x4astio l1, [l0]adi l0, 1ldi l1, 0x3dstio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0x4dstio l1, [l0]@ Riglerldi l0, 0xD8lsi l0, 0xc1ldi l1, 0x4dstio l1, [l0]adi l0, 1ldi l1, 0x44stio l1, [l0]adi l0, 1ldi l1, 0x3estio l1, [l0]adi l0, 1ldi l1, 0x47stio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0x4dstio l1, [l0]@ &ldi l0, 0xD7lsi l0, 0x44ldi l1, 0x5cstio l1, [l0]@ Diogenesldi l0, 0xDBlsi l0, 0x3eldi l1, 0x3bstio l1, [l0]adi l0, 1ldi l1, 0x44stio l1, [l0]adi l0, 1ldi l1, 0x4astio l1, [l0]adi l0, 1ldi l1, 0x3estio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0x49stio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0x4estio l1, [l0]adi l0, 2ldi l1, 0x66stio l1, [l0]adi l0, 1ldi l1, 0x64stio l1, [l0]adi l0, 1ldi l1, 0x64stio l1, [l0]adi l0, 1ldi l1, 0x6cstio l1, [l0]adi l0, 1@ initialize snakeldi h3, 0x10lsi h3, 0x10ldi h1, 8@ first appleldi h6, 16lsi h6, 40@ intitially nothing to growldi h7, 0l0:st h3, [h1]brnz h1, :l0adi h1, -1ldi h1, 8 @ head != tail to avoid early gameoveradi h3, 1st h3, [h1]ldi h1, 7ldi h2, 0LDL h3, :delayLDL h5, :updateldi l0, 0x00 @ loop expects key input in r0loop:@ldi l0, 0x00 @simulator: 0x81@ldio l0, [l0]ldi l1, 0x01and l2, l0, l1 @ select bit for rightsub h2, h2, l2 @ add bit to directionshi l0, -1 @ shift inputand l2, l0, l1add h2, h2, l2 @ add bit to directionstio h2, [l0]@shi l0, -6 @ shift input@and h4, l0, l1@ check for game overadi l1, h1, 1ld l1, [l1]ldi l0, 0xfflsi l0, 0xffand l1, l1, l0mov l2, h1adi l2, -2collcheck:ld l4, [l2]nopand l4, l4, l0xor l4, l4, l1brnz l4, :nocollnop@ GAME OVERldi l0, 0xcelsi l0, 0x19ldi l1, 0x3estio l1, [l0]adi l0, 1ldi l1, 0x38stio l1, [l0]adi l0, 1ldi l1, 0x48stio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 2ldi l1, 0x4astio l1, [l0]adi l0, 1ldi l1, 0x55stio l1, [l0]adi l0, 1ldi l1, 0x3cstio l1, [l0]adi l0, 1ldi l1, 0x4dstio l1, [l0]no_key_pressed:call h0, <h3> @ call delayldi l1, 30brz l0, :no_key_pressednopLDL l0, :startjump <l0>nopnocoll:brnz l2, :collcheckadi l2, -1@ check for appleadi l1, h1, 1ld l1, [l1]ldi l0, 0xfflsi l0, 0xffxor l1, l1, h6and l1, l1, l0brnz l1, :no_applenopadi h7, 8 @ grow by 8 for each apple@ FIXME: use random valuesldi l4, 53add l0, h6, l4shi h0, l0, -2add l0, l0, h1rand1:sub l0, l0, l4cmpl l1, l0, l4brz l1, :rand1noprand2:sub h0, h0, l4cmpl l1, h0, l4brz l1, :rand2nopadi h0, 3adi l0, 3mov h6, l0shi h6, 8or h6, h6, h0no_apple:ldi l0, 0cmpl h4, l0, h7sub h7, h7, h4@ draw appleldi l0, 0xffand l2, h6, l0mov l3, h6shi l3, -8LDL l0, :set_tilecall h0, <l0>ldi l1, 0x06 @ apple@@ display level, applesLDL l0, :print_valldi l4, 0xc7mov l5, h1shi l5, -3call h0, <l0>lsi l4, 0x43LDL l0, :print_valldi l4, 0xc3mov l5, h1shi l5, -6call h0, <l0>lsi l4, 0x43call h0, <h5> @ call updatemov l1, h2add h1, h1, h4ldi l1, 10 @ 2^20 stepsmov l2, h1shi l2, -6shi l2, 2call h0, <h3> @ call delaysub l1, l1, l2brnz h5, :loopnopupdate:call l0, <l6>nopbrz h4, :no_grow @ if snake does not growmov l0, h1adi l0, 2adi h1, 1ld l1, [h1] @ if snake growsnopbrnz h4, :cloopemov l2, h1no_grow:ldi l0, 0ld l1, [l0]@ extract tile,y,x (l1=tile, l2=x, l3=y)ldi l4, 0xffand l2, l1, l4shi l1, -8and l3, l1, l4ldi l1, 0x1bLDL l0, :set_tilecall h0, <l0>nopldi l0, 0ldi l2, 1cloop:ld l1, [l2] @ srcadi l2, 1 @ src + 1st l1, [l0] @ dstcmpl l3, l0, h1 @ until dst=highest address)brnz l3, :cloopadi l0, 1 @ dst + 1cloope:ldi l5, 3and h2, h2, l5 @ trunc direction@ extract tile,y,x (l1=tile, l2=x, l3=y)ldi l4, 0xffand l2, l1, l4shi l1, -8and l3, l1, l4shi l1, -8 @ old directionshi l1, 4 @ old direction << 2or l1, l1, h2 @ 00OO 00NN (old new combination)adi l1, 4mov h5, l0mov h6, l2mov h7, l3LDL l4, :set_tilecall h0, <l4>nopmov l0, h5mov l2, h6mov l3, h7down:xor l4, h2, l5brnz l4, :upnopadi l3, 1ldi l1, 8up:ldi l5, 1xor l4, h2, l5brnz l4, :rightnopadi l3, -1ldi l1, 9right:brnz h2, :leftldi l5, 2adi l2, 1ldi l1, 10left:xor l4, h2, l5brnz l4, :end_keynopadi l2, -1ldi l1, 11end_key:@ check for borders and wrap aroundldi h0, 3cmpl l5, l2, h0brz l5, :b2nopldi l2, 56b2:cmpl l5, l3, h0brz l5, :b3nopldi l3, 56b3:ldi h0, 56cmpl l5, h0, l2brz l5, :b4nopldi l2, 3b4:cmpl l5, h0, l3brz l5, :bendnopldi l3, 3bend:mov l4, h2shi l4, 8or l4, l4, l3shi l4, 8or l4, l4, l2st l4, [l0] @ write new head@@ keep x,y valuesmov h2, l2mov h3, l3LDL l0, :set_tilecall h0, <l0>nop@@ display x,y valuesLDL h4, :print_valldi l4, 0xcbmov l5, h2adi l5, -3call h0, <h4>lsi l4, 0x43ldi l4, 0xcfmov l5, h3adi l5, -3call h0, <h4>lsi l4, 0x43ldi l0, 0ld l1, [l0]@ extract tail tile,y,x (l1=tile, l2=x, l3=y)ldi l4, 0xffand l2, l1, l4shi l1, -8and l3, l1, l4ldi l0, 1ld l1, [l0]nopshi l1, -16 @ old directionadi l1, 0x0cLDL l0, :set_tilecall h0, <l0>nopadi h6, l6, 17jump <h6>nopset_stile:call l0, <l6>nopldi l0, 0xffand l2, l1, l0shi l1, -8and l3, l1, l0LDL h4, :set_tilecall h0, <h4>shi l1, -8adi h6, l6, 17jump <h6>nopset_tile:call l0, <l6>nopldi l4, 0xc0 @ vmem starts at 0xc000shi l4, 8shi h3, l3, 7add l0, l2, h3add l0, l0, l4stio l1, [l0]adi h6, l6, 17jump <h6>nopdelay:call l0, <l6>nopmov l2, l1shi l2, 16ldi l4, 0xffshi l4, 10ldi l1, 0ldi l0, 0delay_loop:ldio l3, [l1]ldi l5, 0x0B @ filter left, right, switchand l3, l3, l5brz l3, :goonnopbrnz l4, :goon2adi l4, -1mov l0, l3goon:ldi l4, 0xffshi l4, 10goon2:brnz l2, :delay_loopadi l2, -1adi h6, l6, 17jump <h6>nopprint_val:call l0, <l6>nopldi h1, 100pre_loop:ldi h0, 0x63add l5,l5,h1count_loop:sub l5,l5,h1cmpl l0, l5, h1brz l0, :count_loopadi h0, 1stio h0, [l4]adi l4, 1ldi l0, 10xor l0,l0,h1brnz l0, :pre_loopldi h1, 10ldi h0, 0x64add h0, h0, l5stio h0, [l4]adi h6, l6, 17jump <h6>nopborder:call l0, <l6>nopshi h6, 7ldi h5, 0x17fory:mov l4, h4adi l5, h5, 2forx:add l3, h7, l4add l3,l3, h6stio l5, [l3]adi l5, h5, 1brnz l4, :forxadi l4, -1stio h5, [l3]ldi l0,0x1dxor l0, l0, h5brz l0, :end_borderldi h5, 0x1aldi l0, 0x80sub h6,h6,l0brnz h6, :forynopbrnz l0, :foryldi h5, 0x1dend_border:adi h6, l6, 17jump <h6>nopstop