;:open2,8,2,"laser-schach,p,w" ;:sys36864 ;.opt o2 *=$801 get =$ffe4 strout =$ab1e buf =820 joy =181 cx =140 cy =141 dx =142 dy =143 cky =182 reset =64738 snr =2 f1 =247 f2 =248 cl1 =178 cl2 =179 trend =3 dran =4 p1 =166 p2 =167 p3 =168 p4 =169 on1 =249 on2 =250 fmark =255 mkx =170 mky =171 dix =148 diy =149 fm1 =34 fm2 =36 fnr =176 fno =177 um =6 m1 =$71 m2 =$72 feuer =139 vic =$d000 sid =$d400 stick =$dc00 bank =$dd00 uhr =$a2 key =$c6 tmp =$fb tp =$fd azjoy =5 ; .word $80b .word 1991 .byt $9e .byte "2061" brk brk brk ldx #0 stx azjoy stx vic+$21 stx vic+$20 stx f1 inx stx f2 jsr sidinit lda #hi jsr strout jsr menu ldx f1 lda fc,x sta cl1 ldx f2 lda fc,x sta cl2 lda #-1 sta on1 jsr spinit lda #9 sta $c804 lda #7 sta vic+33 lda #0 sta dran lab083f lda #0 sta tp lda #192 sta tp+1 lda #ia sta tmp+1 ldy #0 lab0851 lda (tmp),y beq lab0859 cmp #25 bcc lab0865 lab0859 sta (tp),y jsr lab08fd jsr lab08ec bne lab0851 beq lab087c lab0865 tax lab0866 lda #-1 sta (tp),y dex beq lab0874 jsr lab08ec bne lab0866 beq lab087c lab0874 jsr lab08fd jsr lab08ec bne lab0851 lab087c jsr lab0904 lda #59 sta vic+17 lda #93 sta vic+24 lda #216 sta vic+22 lda #150 sta bank lab0882 jsr lab0eaa lda dran eor #1 sta dran jsr lab0b06 beq lab0882 lab0892 lda #7 jsr sound lda #3 sta cy lda #9 sta cx lda #10 sta $c931 sta $c932 ldx #1 play lda #5 jsr pause jsr setsprite jsr joyst jsr curmove lda feuer beq lab08c6 dec $c931,x beq lab08d3 jmp lab08cb ; lab08c6 lda #10 sta $c931,x lab08cb dex bpl play ldx #1 bne play ; lab08d3 lda cx cmp #9 bne lab0892 lda cy cmp #3 beq lab08e6 cmp #2 bne lab0892 jmp reset lab08e6 jsr lab0904 jmp lab0882 ; lab08ec inc tp bne lab08f2 inc tp+1 lab08f2 lda tp cmp #$e0 bne lab08fc lda tp+1 cmp #$c4 lab08fc rts ; lab08fd inc tmp bne lab0903 inc tmp+1 lab0903 rts ; lab0904 lda cl1 ldx #0 lab0909 sta $c8e0,x inx cpx #$12 bne lab0909 lda #-1 ldx #$12 lab0915 sta $c8e0,x inx cpx #$3f bne lab0915 lda cl2 ldx #$3f lab0922 sta $c8e0,x inx cpx #$51 bne lab0922 ldx #0 stx $c825 ldy #8 lab0931 lda adr17c8,x sta $c83e,x sta $c886,y lda adr17d1,x sta $c847,x sta $c87d,y lda adr17f0,x sta $c88f,x lda adr180b,x sta $c8d7,x lda adr17f9,x sta $c898,x lda adr1802,x sta $c8ce,x inx dey bpl lab0931 lda #3 sta $cae5 lda #$4d sta $cae6 lab0969 lda #-1 sta on1 jsr gclr lda #8 sta cx sta cy lab0979 jsr figur lda $c80e cmp #-1 beq lab0989 jsr five jmp lab098c ; lab0989 jsr lab0bfc lab098c dec cx bpl lab0979 lda #8 sta cx dec cy bpl lab0979 lda #4 sta cx sta cy jsr figur lda #0 sta on1 jsr fae1 lda #1 sta $c866 lda #3 sta $c820 sta cy lda #$16 sta $c931 lab09c0 lda #1 sta cx sta $c81f jsr lab09de inc $c931 inc cy lda cy cmp #6 bne lab09c0 inc cy inc cy lab09de lda $c931 sta $c802 sta $c800 lda cy sta $c820 jsr lab0d58 jsr five lda #0 sta on1 jsr fae1 lda #$e1 sta on2 jmp fae2 ; lab0a04 txa pha lda #8 sta cx sta cy lab0a0e jsr figur lda $c80e cmp $c81a bne lab0a2d jsr karo lda on1 sta on2 jsr fae2 lda #-1 ldy fnr sta $c8e0,y lab0a2d dec cx bpl lab0a0e lda #8 sta cx dec cy bpl lab0a0e pla tax rts ; nsure lda #78 sta $57f9 lda #$dc sta vic+3 lda #$a8 sta vic+2 lda #0 sta vic+16 lda #6 sta vic+40 lda #2 sta vic+29 lda #3 sta vic+21 jsr get bne nsure lab0a69 lda #7 jsr sound lab0a74 inc vic+40 jsr get beq lab0a74 cmp #"n" beq no cmp #"j" bne lab0a69 .byt $24 no clc lda #1 sta vic+21 rts zsound lda uhr sta sn3 lda #0 sound sta snr txa pha tya pha ldx snr ldy sn1,x lda sn2,x sta sid+5,y lda #0 sta sid+6,y lda sn3,x sta sid+1,y lda sn4,x sta sid+4,y eor #1 sta sid+4,y pla tay pla tax rts ; sidinit ldx #24 lda #0 lab0ac4 sta sid,x dex bpl lab0ac4 lda #15 sta sid+$18 lda #-1 sta sid+$f lda #128 sta sid+$12 rts ; lab0b06 lda $c825 beq lab0b45 cmp #2 beq lab0b31 cmp #3 beq lab0b46 ldy #$51 lab0b15 lda $c83e,y bne lab0b2e lda $c8e0,y cmp cl1 beq lab0b3a lda cl1 bne setcl ; lab0b2e dey bpl lab0b15 lab0b31 lda cl1 sta $c81a jsr lab0a04 lab0b3a lda cl2 setcl sta $c81a jsr lab0a04 lda #1 lab0b45 rts ; lab0b46 jsr lab0904 lda #0 rts ; spinit lda #0 ldx #$3f lab0b7f sta $53c0,x dex bpl lab0b7f lda #-1 ldx #0 lab0b89 sta $53c0,x sta $53f6,x inx cpx #6 bne lab0b89 ldx #6 lab0b96 lda #$80 sta $53c0,x lda #1 sta $53c2,x inx inx inx cpx #$36 bcc lab0b96 ldx #63 lab0ba9 lda ssure,x sta $5380,x dex bpl lab0ba9 rts ; gclr lda #0 sta ik+1 lda #96 sta ik+2 lda on1 ldy #0 ik sta $c941,y iny bne ik inc ik+2 ldx ik+2 cpx #128 bne ik ldy #0 tya lab0bd6 sta $d800,y sta $d900,y sta $da00,y sta $dae8,y iny bne lab0bd6 rts ; karo lda #$b sta on1 lda cx clc adc cy and #1 bne lab0bfb lda #$f sta on1 lab0bfb rts ; lab0bfc jsr cfeldnr lda #-1 sta on2 ldy fnr sta $c83e,y sta $c88f,y sta $c8e0,y lda #0 sta $c802 jsr lab0d46 jsr lab0c25 jsr lab0cb3 jsr lab0c2f jmp fae0 ; lab0c25 lda $c82a sta tp lda $c82b sta tp+1 lab0c2f ldy #0 lda on2 lab0c34 sta (tp),y iny cpy #24 bne lab0c34 rts ; lab0c3c lda $c82a sta tp lda $c82b sta tp+1 lda $c82c sta tmp lda $c82d sta tmp+1 lab0c50 ldy #0 lab0c52 lda (tmp),y sta (tp),y iny cpy #24 bne lab0c52 rts ; fae0 jsr karo fae1 lda fm1 sta tp ldy fm1+1 lda on1 ici sty tp+1 ldy #0 sta (tp),y iny sta (tp),y iny sta (tp),y ldy #40 sta (tp),y iny sta (tp),y iny sta (tp),y rts fae2 lda fm2 sta tp ldy fm2+1 lda on2 jmp ici ; five jsr lab0c3c jsr lab0cb3 jsr lab0c50 jsr fae2 jmp fae0 ; lab0cb3 lda tp clc adc #<320 sta tp lda tp+1 adc #>320 sta tp+1 lda tmp clc adc #24 sta tmp bcc rt inc tmp+1 rt rts ; getre lda sid+$1b eor vic+18 rts rnd jsr getre and #15 cmp #9 bcs rnd beq rnd rts ; joyrnd jsr getre adc joy and #$7f cmp #81 bcs joyrnd tay rts ; neg eor #-1 clc adc #1 rts ; lab0cf1 sty cx lda #0 sta cy lab0cf9 lda cx sec sbc #9 bmi lab0d0a sta cx inc cy jmp lab0cf9 ; lab0d0a rts ; cfeldnr lda cy sta p1 asl asl asl clc adc p1 adc cx sta p1 sta fnr tay rts ; lab0d23 lda $c83e,y sta $c800 lda $c88f,y sta $c810 clc adc $c800 sta $c802 lda $c8e0,y sta $c80e sta on2 rts ; figur jsr cfeldnr jsr lab0d23 lab0d46 lda cy clc adc #1 sta $c820 lda cx clc adc #2 sta $c81f lab0d58 lda $c820 asl sta $c82b lda #0 sta $c82a lda $c820 lsr ror $c82a clc adc $c82b sta $c82b lda $c81f asl asl asl sta p1 asl clc adc p1 clc adc $c82a sta $c82a lda $c82b adc #0 sta $c82b lda $c82a clc adc #$48 sta $c82a lda $c82b adc #$61 sta $c82b lda #0 sta p2 lda $c802 asl rol p2 asl rol p2 asl rol p2 asl rol p2 sta p1 sta p3 lda p2 sta p4 asl p1 rol p2 lda p1 clc adc p3 sta p1 lda p2 adc p4 sta p2 lda p1 adc #0 sta $c82c lda p2 adc #$c0 sta $c82d lda #0 sta p1 sta p2 lda $c820 asl rol p2 asl rol p2 asl rol p2 asl rol p2 sta p1 sta p3 lda p2 sta p4 asl p3 rol p4 asl p3 rol p4 lda p3 clc adc p1 sta fm1 lda p4 adc p2 sta fm1+1 lda $c81f sta p1 asl clc adc p1 sta p1 clc adc fm1 sta p1 lda fm1+1 adc #0 sta p2 lda p1 clc adc #$29 sta fm1 lda p2 adc #$d8 sta fm1+1 lda p1 clc adc #$29 sta fm2 lda p2 adc #$54 sta fm2+1 lda $c802 asl asl sta $c832 lda #ib adc #0 sta $c833 lda $c81f asl asl sta $c838 asl clc adc $c838 adc #4 sta $c838 lda $c820 asl asl asl asl clc adc #$c sta $c839 rts ; lab0eaa lda #0 sta $c803 sta fmark sta $c814 sta $c826 sta $cae3 sta $cae4 lda #2 sta $c80c lda #4 sta cx sta cy ldx dran lda cl1,x sta $c80f jsr lab12b8 lab0ed7 lda $c825 bne lab0ee7 jsr lab0ee8 jsr setsprite lda $c80c bne lab0ed7 lab0ee7 rts ; lab0ee8 lda #$5 jsr pause jsr lab10e2 ldx dran jsr joyst lda fmark beq lab0efe jmp lab0f01 ; lab0efe jmp lab0f2a ; lab0f01 jsr lab0fd0 lda #$14 sta $c804 jsr cfeldnr cpy fno beq lab0f14 lsr $c804 lab0f14 lda feuer beq lab0f24 lda trend beq lab0f21 jmp lab0fe2 ; lab0f24 sta $c803 jmp curmove ; lab0f2a lda feuer beq lab0f24 lab0f21 jmp lab1039 ; joyst lda #0 sta feuer sta trend sta dx sta dy lda uhr and #32 lsr lsr ora #6 sta vic+39 no0 lda azjoy bne zwo lda stick and stick+1 bne einer zwo lda stick,x einer sta joy lsr joy bcs lab0f59 lda #-1 sta dy sta trend lab0f59 lsr joy bcs lab0f66 lda #1 sta dy sta trend lab0f66 lsr joy bcs lab0f73 lda #-1 sta dx sta trend lab0f73 lsr joy bcs lab0f80 lda #1 sta dx sta trend lab0f80 lsr joy bcs lab0f8a lda #1 sta feuer lab0f8a rts ; curmove lda cx clc adc dx sta cx lda cy clc adc dy sta cy lda cy bmi lab0fb2 cmp #9 beq lab0faa bcc lab0fb7 lab0faa lda #0 .byt $2c lab0fb2 lda #8 sta cy lab0fb7 lda cx bmi lab0fca cmp #10 beq lab0fc2 bcc lab0fcf lab0fc2 lda #0 .byt $2c lab0fca lda #9 sta cx lab0fcf rts ; lab0fd0 lda $c836 sta tp lda $c837 sta tp+1 lda #4 sta on1 jmp fae1 ; lab0fe2 jsr cfeldnr jsr lab0d23 lda fnr cmp fno bne lab1025 lda $c810 clc adc trend and #3 sta $c934 lda $c800 tax lda adr17da,x and $c934 sta $c934 ldy fnr lda $c934 sta $c88f,y jsr lab0d23 jsr lab0d46 jsr five lda #$1e jsr pause lda #2 .byt $2c lab1025 lda #1 jmp sound ; pause clc adc uhr sta um lab1030 lda uhr cmp um bne lab1030 rts ; lab1039 ldx $c803 cpx $c804 beq lab1046 inx stx $c803 rts ; lab1046 lda #0 sta $c803 lda cx cmp #9 bne lab1055 jmp links ; lab1055 lda fmark eor #1 sta fmark beq lab10ad jsr figur lda $c80e cmp $c80f bne lab10a3 lda fnr sta fno lda #2 jsr sound lda fm1 sta $c836 lda fm1+1 sta $c837 lda $c80c sta $c80d lda $c810 sta $c811 sta $c934 lda cx sta mkx lda cy sta mky lda $c800 sta $c801 rts ; lab10a3 lda #0 sso1 sta fmark jmp lab1025 ; lab10ad lda #$a sta $c804 lda cx cmp mkx bne lab10d0 lda cy cmp mky bne lab10d0 lda #0 sta $c815 jsr lab1289 jsr lab1786 jmp lab12b8 ; lab10d0 jsr lab1125 beq lab1117 jsr lab1289 beq lab1117 jsr lab11cf beq lab1117 lab10df jmp lab12b8 ; lab10e2 ldx dran lda $cae5,x bpl lab10ef lda #1 sta $c826 lab10ef ldy #2 lab10f1 lda $c80f sta $55bc,y ldx $c80c cpx #2 beq lab1100 lda #0 lab1100 sta $55e4,y lda $c80f ldx $c826 beq lab110d lda #0 lab110d sta $56ac,y sta $56d4,y dey bpl lab10f1 rts ; lab1117 lda $c80d sta $c80c lda #1 jmp sso1 ; lab1125 lda cx sec sbc mkx sta dix bpl lab1134 jsr neg lab1134 sta p1 lda cy sec sbc mky sta diy bpl lab1146 jsr neg lab1146 clc adc p1 sta $c815 beq lab1157 cmp #1 beq lab1157 cmp #2 beq lab115a lab1157 lda #1 rts ; lab115a jsr cfeldnr lda dix cmp #$fe bne lab116a lda $c83f,y jmp lab11c6 ; lab116a lda dix cmp #2 bne lab1177 lda $c83d,y jmp lab11c6 ; lab1177 lda diy cmp #2 bne lab1184 lda $c835,y jmp lab11c6 ; lab1184 lda diy cmp #$fe bne lab1191 lda $c847,y jmp lab11c6 ; lab1191 lda dix cmp #1 bne lab11a2 lda $c83d,y cmp #-1 beq lab11cc jmp lab11a9 ; lab11a2 lda $c83f,y cmp #-1 beq lab11cc lab11a9 lda diy cmp #1 bne lab11bc ldy #0 lda $c835,y cmp #-1 beq lab11cc jmp lab11c3 ; lab11bc lda $c847,y cmp #-1 beq lab11cc lab11c3 lda #0 rts ; lab11c6 cmp #-1 beq lab11cc bne lab11c3 lab11cc lda #1 rts ; lab11cf jsr cfeldnr cpy #$28 bne lab1203 lda $cae4 bne lab1219 lda #5 jsr sound lda #0 sta joy inc $cae4 lab11e8 jsr joyrnd cpy #$28 beq lab11fc lda $c83e,y cmp #-1 bne lab11fc jsr lab0cf1 jmp lab122f ; lab11fc inc joy bne lab11e8 beq lab1219 lab1203 lda $c83e,y cmp #-1 beq lab122f lda $c801 beq lab121c cmp #1 beq lab1235 cmp #6 beq lab121c lab1219 lda #0 rts ; lab121c lda $c814 bne lab1219 inc $c814 lda $c83e,y jsr lab15ee lda #6 jsr sound lab122f jsr lab1795 lda #1 rts ; lab1235 lda $cae3 beq lab123d jmp lab1219 ; lab123d jsr joyrnd lda $c83e,y cmp #-1 bne lab124e cpy #$28 beq lab124e jmp lab1256 ; lab124e inc joy bne lab123d jmp lab1219 ; lab1256 sty cky ldx fnr jsr lab1773 inc $cae3 lda cx pha lda cy pha ldy cky jsr lab0cf1 jsr figur lda #5 jsr sound jsr five pla sta cy pla sta cx jsr lab1795 lda #1 rts ; lab1289 lda $c80c sta p1 lda $c934 cmp $c811 beq lab129c dec p1 bmi lab12ac lab129c lda $c815 beq lab12af dec $c815 dec p1 bmi lab12ac jmp lab129c ; lab12ac lda #0 rts ; lab12af lda p1 sta $c80c lda #1 rts ; lab12b8 lda #1 sta vic+21 jmp sound ; links lda cy cmp #2 bne lab12cd jsr nsure bcc lab12b8 jmp reset lab12cd cmp #3 bne lab12e1 jsr nsure bcc lab12b8 lda #0 sta $c80c lda #3 sta $c825 rts ; lab12e1 lda fmark bne lab12b8 lda cy cmp #4 bne lab12f3 lda #0 sta $c80c unfire rts ; lab12f3 cmp #7 bne unfire lda $c826 bne lab12b8 lda #2 sta $c828 sta $c829 ldx #2 lab130a lda #4 sta $c951,x lda #-1 sta $c945,x sta $c955,x sta $c957,x inx cpx #6 bne lab130a lda #0 tax lab1322 sta $c963,x inx cpx #$60 bne lab1322 inc $c826 dec $c80c ldx #$51 lab1332 lda $c83e,x cmp #$12 beq lab133f lab1339 dex bpl lab1332 jmp lab12b8 ; lab133f lda $c8e0,x cmp $c80f bne lab1339 txa ldx dran sta $cae5,x tay jsr lab0cf1 lda cx sta $c947 lda cy sta $c94d jsr cfeldnr lda $c88f,y sta $c953 lab136a lda #0 sta $c827 ldy #2 sty $c828 lab1374 lda $c951,y cmp #4 beq lab1398 lda $c945,y sta cx lda $c94b,y sta cy jsr figur jsr lab1569 ldy $c828 jsr lab1674 beq lab1398 jsr lab150e lab1398 inc $c828 ldy $c828 cpy $c829 beq lab1374 bcc lab1374 lda $c827 bne lab136a lda #15 sta $c933 lda #10 sta $c81e lab13b4 lda $c81e jsr pause dec $c81e bpl lab13c2 inc $c81e lab13c2 ldx #0 stx $c827 lab13c7 jsr lab1438 lda $c963,x beq lab13d7 jsr plot lda #1 sta $c827 lab13d7 lda $c933 bne lab1411 lda $c963,x pha lda $c9c3,x pha lda buf,x sta $c963,x lda buf+96,x sta $c9c3,x jsr lab1438 lda $c9c3,x sta buf+96,x lda $c963,x sta buf,x beq lab1409 lda #1 sta $c827 jsr plot lab1409 pla sta $c9c3,x pla sta $c963,x lab1411 inx cpx #$60 bcc lab13c7 lda $c933 beq lab142d dec $c933 bne lab142d lda #$77 sta $c81a jsr lab0a04 lda #8 sta $c81e lab142d lda $c827 beq lab1435 jmp lab13b4 ; lab1435 jmp lab0969 ; lab1438 lda $c963,x beq lab1463 clc adc $ca23,x cmp #159 bcc lab144d lda #0 sta $c963,x jmp lab1463 ; lab144d sta $c963,x lda $c9c3,x clc adc $ca83,x sta $c9c3,x cmp #$c7 bcc lab1463 lda #0 sta $c963,x lab1463 rts ; plot txa pha tya pha lda $c963,x lsr lsr sta m2 lda $c9c3,x lsr lsr lsr sta m1 lda #0 sta p2 lda m1 asl rol p2 asl rol p2 asl rol p2 asl rol p2 asl rol p2 asl rol p2 sta p1 lda p2 clc adc m1 sta p2 lda #0 sta p4 lda m2 asl rol p4 asl rol p4 asl rol p4 sta p3 clc adc p1 sta p1 lda p2 adc p4 sta p4 sta p2 lda $c9c3,x and #7 clc adc p1 sta p1 lda p2 adc #$60 sta p2 stx joy lda $c963,x and #3 tax lda p1 sta tp lda p2 sta tp+1 ldy #0 lda (tp),y eor grbit,x sta (tp),y ldx joy pla tay pla tax rts ; lab150e jsr figur ldy $c828 lda fnr cmp #40 bne lab1521 lda #4 sta $c951,y rts ; lab1521 lda $c80e cmp #-1 bne lab152c inc $c827 rts ; lab152c lda $c832 sta tp lda $c833 sta tp+1 ldy $c828 lda $c951,y sta $c932 tay lda (tp),y sta $c931 bpl lab1553 inc $c827 lda $c932 sta $c931 jmp lab15d0 ; lab1553 cmp #4 bne lab1560 ldy $c828 sta $c951,y jmp lab160d ; lab1560 inc $c827 ldy $c828 jmp lab16bd ; lab1569 ldx $c828 lda $c963,x pha lda $c9c3,x pha lda $ca23,x pha lda $ca83,x pha lda $c951,x tay lda adr1814,y sta $ca23,x adc $c839 adc #3 sta $c9c3,x lda adr1818,y sta $ca83,x adc $c838 adc #5 sta $c963,x lda adr181c,y sta $c819 lab15a2 jsr lab1438 lda $c963,x beq lab15ba jsr plot jsr zsound lda sid+$1b bmi lab15ba lda #1 jsr pause lab15ba dec $c819 bne lab15a2 pla sta $ca83,x pla sta $ca23,x pla sta $c9c3,x pla sta $c963,x rts ; lab15d0 ldy $c828 inc $c931 jsr lab16bd ldy $c829 iny cpy #6 bcc lab15e2 rts ; lab15e2 sty $c829 dec $c931 dec $c931 jmp lab16bd ; lab15ee bne lab15f4 inc $c825 rts ; lab15f4 cmp #18 bne lab160c txa pha ldx #0 lda cl1 cmp $c8e0,y beq lab1605 inx lab1605 lda #-1 sta $cae5,x pla tax lab160c rts ; lab160d jsr figur lda $c800 jsr lab15ee lda #$77 sta on2 jsr fae2 lda #$77 ldy fnr sta $c8e0,y ldx #0 lab1628 lda $c963,x beq lab1633 inx cpx #$60 bne lab1628 rts ; lab1633 stx joy lda #4 jsr sound ldy #0 ldx joy lab1640 jsr rnd adc $c838 sta $c963,x sta buf,x jsr rnd adc $c839 sta $c9c3,x sta buf+96,x lab1658 jsr rndpm9 sta $ca23,x jsr rndpm9 sta $ca83,x ora $ca23,x beq lab1658 inx iny cpx #64 beq lab1673 cpy #32 bne lab1640 lab1673 rts ; lab1674 lda $c951,y tax lda adr1814,x clc adc $c945,y bmi lab16a5 cmp #9 beq lab16a5 bcs lab16a5 sta $c945,y sta cx lda adr1818,x clc adc $c94b,y bmi lab16a5 cmp #9 beq lab16a5 bcs lab16a5 sta $c94b,y sta cy lda #1 rts ; lab16a5 lda #4 sta $c951,y lda #0 rts ; rndpm9 jsr rnd pha jsr getre bmi pos pla jmp neg pos pla rts ; lab16bd lda $c931 and #3 sta $c931 lda $c800 cmp #$e bne lab1702 ldx #0 lab16ce lda $c957,x cmp fnr bne lab16e4 lda $c95d,x cmp $c931 bne lab16e4 lda #4 sta $c951,y rts ; lab16e4 inx cpx #6 bne lab16ce ldx #0 lab16eb lda $c957,x bmi lab16f6 inx cpx #6 bne lab16eb rts ; lab16f6 lda fnr sta $c957,x lda $c931 sta $c95d,x lab1702 lda $c931 sta $c951,y lda cx sta $c945,y lda cy sta $c94b,y rts ; setsprite lda cy asl asl asl asl adc #72 sta cky lda cx cmp #9 beq lab1762 asl asl asl sta joy asl adc joy adc #80 sta joy rol and #1 sta vic+16 lda joy sv0 sta vic lda cky sta vic+1 lda #1 sta vic+21 lda #79 sta $57f8 rts ; lab1762 lda #0 sta vic+16 lda #56 bne sv0 ; lab1773 lda $c83e,x sta $c83e,y lda $c88f,x sta $c88f,y lda $c8e0,x sta $c8e0,y rts ; lab1786 lda $c836 sta fm1 lda $c837 sta fm1+1 jmp fae0 ; lab1795 jsr lab1786 jsr cfeldnr ldx fno jsr lab1773 lda cx pha lda cy pha lda mkx sta cx lda mky sta cy jsr lab0bfc pla sta cy pla sta cx jsr figur jmp five ; fc .byt $d5,$a2,$e6,$97,$11,$c ft .byte "grueNrot \xa0blau\xa0gelb\xa0weisSgrau\xa0" adr17c8 .byt $a,$a,4,$12,0,1,4,$a,$a adr17d1 .byt $a,6,6,$e,2,2,6,6,$a adr17da .byt 0,0,1,1,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 adr17f0 .byt 3,3,0,2,0,0,1,2,2 adr17f9 .byt 2,2,2,0,1,0,2,2,3 adr1802 .byt 0,0,0,0,1,2,0,0,1 adr180b .byt 1,1,1,0,0,0,0,0,0 adr1814 .byt 0,1,0,-1 adr1818 .byt -1,0,1,0 adr181c .byt $10,$c,$10,$c ib .byt 4,4,4,4 .byt 0,1,2,3,0,3,2,1 .byt 2,1,0,3,3,2,1,0 .byt 1,0,3,2,4,4,0,4 .byt 4,4,4,1,2,4,4,4 .byt 4,3,4,4,4,0,3,4 .byt 4,4,1,0,3,2,4,4 .byt 1,4,4,2,4,0,-1,0 .byt 1,4,1,-1,-1,2,4,2 .byt 3,-1,3,4,4,4,4,4 .byt 4,4,4,4,4,4,4,4 .byt 4,4,4,4 hi .byte "\x93\x8e\x08\x11\x98laser\x05-\x98schach 2.0 - \x9bmarkt \x96&" .byte "\x9b technik\x98 01.91" .byt 13 .byte "\x11\x98nach einer idee von \x9bm. duppong" .byt 13 .byte "\x11\x98realisation: \x9bnh/bl" .byt 13 .byte "\x11\x11\x9b\x12 f1 \x92 \x98 anzahl joysticks:" .byt 13 .byte "\x98\x11\x9b\x12 f3 \x92 \x98 spieler 1:" .byt 13 .byte "\x98\x11\x9b\x12 f5 \x92 \x98 spieler 2:" .byt 13 .byte "\x98\x11\x9b\x12 f7 \x92 \x98 start" brk grbit .byt $c0,$30,$c,3 sn1 .byt 0,7,0,0,7,0,0,0 sn2 .byt 1,$19,4,$19,$8a,$92,$84,$19 sn3 .byt $17,$10,$50,$a,1,$64,3,$1e sn4 .byt 16,16,128,32,128,128,128,32 ia .byt 3,$fe,$fe,$fe,$fe ; $18ce .byt $fe,$3,$fb,$fb,$fb,$ea,$a6,3 .byt $ef,$ef,$ef,$ef,$af,$fe,$fe,$fe .byt 1,$fe,3,$95,$a6,$aa,1,$aa .byt 3,$af,$af,$af,1,$af,5,$fa .byt $fb,$fb,$fb,$fb,$fb,2,$aa,2 .byt $55,$7d,$7d,2,$af,$ef,$ef,$ef .byt $ef,$ef,$fb,$fb,$fb,$fb,$fb,$fa .byt 2,$7d,$7d,$55,2,$aa,2,$ef .byt $ef,$ef,$ef,$ef,$af,$c,$e7,$e7 .byt $e7,$e7,$e7,$e7,$10,$e7,$e7,$e7 .byt $e7,$e7,$e7,$11,$fa,$7,$aa,$7 .byt $af,$f5,$7,$55,$7,$5f,$a,$fa .byt $fd,7,$7f,$af,$d7,$fa,$10,$fd .byt 7,$7f,$af,$df,$13,$fd,$fa,4 .byt $df,$af,$7f,3,$fd,$fa,4,$d7 .byt $af,$7f,$10,$f5,1,$fa,$fa,$fa .byt 3,$55,$eb,$aa,$aa,$aa,3,$5f .byt 1,$af,$af,$af,$fa,$fa,$fa,$fa .byt $fa,3,$aa,$aa,$aa,$aa,$aa,3 .byt $af,$af,$af,$af,$af,6,$fa,$fa .byt $fa,$fa,$fa,3,$aa,$aa,$aa,$aa .byt $aa,3,$df,$df,$df,$9f,$9f,$fa .byt $fa,$fa,$fa,$fa,3,$aa,$aa,$aa .byt $aa,$aa,3,$9f,$9f,$df,$df,$df .byt 6,$fa,$fa,$fa,$fa,$fa,3,$aa .byt $aa,$aa,$aa,$aa,3,$af,$af,$af .byt $af,$af,$fa,$fa,$fa,1,$f5,3 .byt $aa,$aa,$aa,$eb,$55,3,$af,$af .byt $af,1,$5f,6,$f7,$f7,$f7,$f6 .byt $f6,3,$aa,$aa,$aa,$aa,$aa,3 .byt $af,$af,$af,$af,$af,$f6,$f6,$f7 .byt $f7,$f7,3,$aa,$aa,$aa,$aa,$aa .byt 3,$af,$af,$af,$af,$af,$10,$fd .byt $f6,$da,3,$df,$6f,$af,$af,$af .byt 1,$fd,$f6,$da,4,$6a,$aa,$aa .byt $aa,4,$af,$af,$af,$af,7,$f7 .byt $f9,$fa,$fa,$fa,5,$7f,$9f,$a7 .byt 8,$fa,$fa,$fa,$fa,$4,$a9,$aa .byt $aa,$aa,5,$7f,$9f,$a7,7,$da .byt $f6,$fd,5,$aa,$aa,$aa,$6a,$da .byt $3,$af,$af,$af,$af,$af,8,$f6 .byt $fd,$6,$af,$af,$6f,$df,7,$fa .byt $fa,$fa,$fa,$fa,3,$aa,$aa,$aa .byt $a9,$a7,3,$a7,$9f,$7f,2,$fa .byt $fa,$f9,$f7,4,$9f,$7f,$14,$fd .byt $f5,3,$f7,$d5,$55,$55,$55,5 .byt $7f,$5f,$57,$fa,$fa,6,$aa,$aa .byt 6,$ab,$ab,$a,$fe,$fe,$fe,$fe .byt 4,$7f,$5f,$57,$55,8,$fe,$fe .byt $fe,$fe,$fe,3,$55,$55,$57,$5f .byt $7f,3,$7f,$d,$fa,$fa,6,$aa .byt $aa,$6,$ab,$ab,$f5,$fd,$6,$55 .byt $55,$55,$d5,$f7,3,$57,$5f,$7f .byt $11,$fd,$f5,$d5,$55,4,$bf,$bf .byt $bf,$bf,$fd,7,$55,$55,$d5,$f5 .byt $fd,3,$bf,$bf,$bf,$bf,$bf,$e .byt $fb,$f7,$fb,$f7,$fb,$10,$ea,$e6 .byt $a6,$66,$6a,$aa,4,$bf,$7f,$7f .byt $bf,7,$f9,$fa,$fa,5,$bf,$bf .byt $ab,8,$f9,$fa,$fa,$f9,4,$66 .byt $ab,$bf,$bf,4,$6f,$12,$aa,$6a .byt $66,$a6,$e6,3,$bf,$7f,$7f,$bf .byt 9,$ea,$fb,$f7,$fb,$f7,$fb,$17 .byt $fe,$fe,$ea,5,$6f,$af,$af,$f9 .byt 7,$99,$ea,$fe,$fe,4,$6f,$af .byt $af,$6f,5,$d5,$df,$df,$df,$de .byt $de,$de,1,$55,1,$eb,$be,4 .byt $57,$f7,$f7,$f7,$b7,$b7,$b7,$de .byt $de,$df,$df,$df,$df,$d5,3,$be .byt $eb,2,$55,1,$b7,$b7,$f7,$b7 .byt $e7,$f7,$57,$2,$d5,$df,$de,$de .byt $de,$de,$de,1,$55,1,$aa,2 .byt $fe,$ab,1,$57,$f7,$f7,$b7,$b7 .byt $f7,$f7,$de,$de,$de,$de,$de,$df .byt $d5,1,$fb,$fe,$fe,3,$55,1 .byt $f7,$f7,$f7,$b7,$b7,$f7,$57,3 .byt $fe,$fe,$fe,$fe,$fe,3,$aa,$aa .byt $aa,$aa,$aa,3,$bf,$bf,$bf,$bf .byt $bf,2,$fe,$fe,$fe,$fe,$fe,3 .byt $aa,$aa,$aa,$aa,$aa,3,$bf,$bf .byt $bf,$bf,$bf,5,$fe,$fa,$ea,$ea .byt $ea,2,$aa,$aa,0,$2a,$2a,0 .byt 3,$bf,$af,$ab,$ab,$ab,$ea,$ea .byt $fa,$fe,4,$2a,$2a,$2a,$aa,$aa .byt 3,$ab,$ab,$af,$bf,4 menu lda #0 sta 198 lda #15 sta 646 mn lda #9 sta 214 lda #25 sta 211 jsr 58732 lda azjoy clc adc #49 jsr $ffd2 lda #11 sta 214 lda #25 sta 211 jsr 58732 lda f1 asl asl adc f1 jsr fout lda #13 sta 214 lda #25 sta 211 jsr 58732 lda f2 asl asl adc f2 jsr fout f jsr get beq f cmp #"\x88" bne no7 rts no7 cmp #"\x85" bne no1 lda azjoy eor #1 sta azjoy bpl mn no1 cmp #"\x86" bne no3 ja3 inc f1 lda f1 cmp f2 beq ja3 cmp #6 bcs ja3 x bcc mn no3 cmp #"\x87" bne f ja5 inc f2 lda f2 cmp f1 beq ja5 cmp #6 bcs ja5 bcc x fout tax dex fl inx lda ft,x pha and #127 jsr $ffd2 pla bpl fl rts ssure =*