SHOW:
|
|
- or go back to the newest paste.
| 1 | 100gosub140:gosub330 | |
| 2 | 110v=13*4096:pokev+21,1:pokev+39,1:pokev+0,100:pokev+1,100:pokev+16,0 | |
| 3 | 120poke2040,56:sys12*4096+256 | |
| 4 | 130end | |
| 5 | 140forx=0to129:reada$:gosub430:poke49408+x,y:nextx:return | |
| 6 | 150dataad,15,03,c9,c1,f0,19,08 | |
| 7 | 160data78,ad,14,03,8d,00,c0,ad | |
| 8 | 170data15,03,8d,01,c0,a9,21,8d | |
| 9 | 180data14,03,a9,c1,8d,15,03,28 | |
| 10 | 190data60,d8,ad,19,d4,ac,02,c0 | |
| 11 | 200data20,58,c1,8c,02,c0,18,6d | |
| 12 | 210data00,d0,8d,00,d0,8a,69,00 | |
| 13 | 220data29,01,4d,10,d0,8d,10,d0 | |
| 14 | 230dataad,1a,d4,ac,03,c0,20,58 | |
| 15 | 240datac1,8c,03,c0,38,49,ff,6d | |
| 16 | 250data01,d0,8d,01,d0,6c,00,c0 | |
| 17 | 260data8c,05,c0,8d,04,c0,a2,00 | |
| 18 | 270data38,ed,05,c0,29,7f,c9,40 | |
| 19 | 280datab0,07,4a,f0,12,ac,04,c0 | |
| 20 | 290data60,09,c0,c9,ff,f0,08,38 | |
| 21 | 300data6a,a2,ff,ac,04,c0,60,a9 | |
| 22 | 310data00,60 | |
| 23 | 320rem................ | |
| 24 | 330forx=0to63:reada$:gosub430:poke3584+x,y:nextx:return | |
| 25 | 340dataf8,00,00,90,00,00,b8,00 | |
| 26 | 350data00,dc,00,00,8e,00,00,07 | |
| 27 | 360data00,00,02,00,00,00,00,00 | |
| 28 | 370data00,00,00,00,00,00,00,00 | |
| 29 | 380data00,00,00,00,00,00,00,00 | |
| 30 | 390data00,00,00,00,00,00,00,00 | |
| 31 | 400data00,00,00,00,00,00,00,00 | |
| 32 | 410data00,00,00,00,00,00,00,00 | |
| 33 | 420rem................ | |
| 34 | 430y=1:y1=0 | |
| 35 | 440ifleft$(a$,1)<>mid$("0123456789abcdef",y,1)theny=y+1:goto440
| |
| 36 | 450y1=(y-1)*16:y=1 | |
| 37 | 460ifright$(a$,1)<>mid$("0123456789abcdef",y,1)theny=y+1:goto460
| |
| 38 | 470y=y1+y-1:return | |
| 39 | ||
| 40 | ||
| 41 | .C:c100 AD 15 03 LDA $0315 | |
| 42 | .C:c103 C9 C1 CMP #$C1 | |
| 43 | .C:c105 F0 19 BEQ $C120 | |
| 44 | .C:c107 08 PHP | |
| 45 | .C:c108 78 SEI | |
| 46 | .C:c109 AD 14 03 LDA $0314 | |
| 47 | .C:c10c 8D 00 C0 STA $C000 | |
| 48 | .C:c10f AD 15 03 LDA $0315 | |
| 49 | .C:c112 8D 01 C0 STA $C001 | |
| 50 | .C:c115 A9 21 LDA #$21 | |
| 51 | .C:c117 8D 14 03 STA $0314 | |
| 52 | .C:c11a A9 C1 LDA #$C1 | |
| 53 | .C:c11c 8D 15 03 STA $0315 | |
| 54 | .C:c11f 28 PLP | |
| 55 | .C:c120 60 RTS | |
| 56 | .C:c121 D8 CLD | |
| 57 | .C:c122 AD 19 D4 LDA $D419 | |
| 58 | .C:c125 AC 02 C0 LDY $C002 | |
| 59 | .C:c128 20 58 C1 JSR $C158 | |
| 60 | .C:c12b 8C 02 C0 STY $C002 | |
| 61 | .C:c12e 18 CLC | |
| 62 | .C:c12f 6D 00 D0 ADC $D000 | |
| 63 | .C:c132 8D 00 D0 STA $D000 | |
| 64 | .C:c135 8A TXA | |
| 65 | .C:c136 69 00 ADC #$00 | |
| 66 | .C:c138 29 01 AND #$01 | |
| 67 | .C:c13a 4D 10 D0 EOR $D010 | |
| 68 | .C:c13d 8D 10 D0 STA $D010 | |
| 69 | .C:c140 AD 1A D4 LDA $D41A | |
| 70 | .C:c143 AC 03 C0 LDY $C003 | |
| 71 | .C:c146 20 58 C1 JSR $C158 | |
| 72 | .C:c149 8C 03 C0 STY $C003 | |
| 73 | .C:c14c 38 SEC | |
| 74 | .C:c14d 49 FF EOR #$FF | |
| 75 | .C:c14f 6D 01 D0 ADC $D001 | |
| 76 | .C:c152 8D 01 D0 STA $D001 | |
| 77 | .C:c155 6C 00 C0 JMP ($C000) | |
| 78 | .C:c158 8C 05 C0 STY $C005 | |
| 79 | .C:c15b 8D 04 C0 STA $C004 | |
| 80 | .C:c15e A2 00 LDX #$00 | |
| 81 | .C:c160 38 SEC | |
| 82 | .C:c161 ED 05 C0 SBC $C005 | |
| 83 | .C:c164 29 7F AND #$7F | |
| 84 | .C:c166 C9 40 CMP #$40 | |
| 85 | .C:c168 B0 07 BCS $C171 | |
| 86 | .C:c16a 4A LSR A | |
| 87 | .C:c16b F0 12 BEQ $C17F | |
| 88 | .C:c16d AC 04 C0 LDY $C004 | |
| 89 | .C:c170 60 RTS | |
| 90 | .C:c171 09 C0 ORA #$C0 | |
| 91 | .C:c173 C9 FF CMP #$FF | |
| 92 | .C:c175 F0 08 BEQ $C17F | |
| 93 | .C:c177 38 SEC | |
| 94 | .C:c178 6A ROR A | |
| 95 | .C:c179 A2 FF LDX #$FF | |
| 96 | .C:c17b AC 04 C0 LDY $C004 | |
| 97 | .C:c17e 60 RTS | |
| 98 | .C:c17f A9 00 LDA #$00 | |
| 99 | .C:c181 60 RTS | |
| 100 | .C:c182 00 BRK |
