Znaleziono 117 wyników
- 20 sty 2021, 15:12
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
Mad Pascal - Joystick
const JOY_SELECT_1 = %00000010; JOY_SELECT_2 = %00000100; var joy : byte absolute $ff08; keyPio : byte absolute $fd30; var tmp : byte; begin repeat joy := JOY_SELECT_1; keyPio := $ff; tmp := joy xor $ff; case tmp of 1 : writeln('UP = ', tmp); 2 : writeln('DOWN = ', tmp); 4 : writeln('LEFT = ', tmp)...
- 17 sty 2021, 19:21
- Forum: Strefa C16 116 Plus/4
- Temat: Generator liczb pseudolosowych
- Odpowiedzi: 1
- Odsłony: 1267
Re: Generator liczb pseudolosowych
Register 17 has 4 bits of volume control ranging from 0 = OFF to ’8’ being loud. Also 3 voice selects are available. Voice 1 select, Voice 2 square wave select and Voice 2 white noise select. The MSB of this register is a bit used for testing. The sound reload bit will clear the sound toggle flops ...
- 17 sty 2021, 18:41
- Forum: Strefa C16 116 Plus/4
- Temat: Generator liczb pseudolosowych
- Odpowiedzi: 1
- Odsłony: 1267
Generator liczb pseudolosowych
Na C64 można zrobić coś takiego: lda #$ff ; maximum frequency value sta $D40E ; voice 3 frequency low byte sta $D40F ; voice 3 frequency high byte lda #$80 ; noise waveform, gate bit off sta $D412 ; voice 3 control register i wtedy czytanie rejestru $d41b zwróci losową liczbę. Na A8 jest jeszcze pro...
- 17 sty 2021, 16:54
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
sieve 1899 C64 Vs. C+4 Vs. A8
// Eratosthenes Sieve benchmark 1899 const size = 8192; iter_max = 10; var flags: array [0..size] of boolean; iter: byte; ticks: word = 0; {$ifdef c4p} i: word absolute $70; k: word absolute $72; prime: word absolute $74; count: word absolute $76; clock1 : byte absolute $a4; clock2 : byte absolute ...
- 17 sty 2021, 15:06
- Forum: Programowanie & Produkcje
- Temat: Niestandardowe palety kolorów
- Odpowiedzi: 5
- Odsłony: 4740
- 14 sty 2021, 11:16
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
Re: Mad Pascal
OK, zrobiłem PR i jak wejdzie, nie będzie potrzeba dla C64 i C+4 podawać adresu dla stosu jeżeli kogoś zadowolą domyślne ustawienie czyli $10.
https://github.com/tebe6502/Mad-Pascal/pull/12
https://github.com/tebe6502/Mad-Pascal/pull/12
- 13 sty 2021, 13:52
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
Re: Mad Pascal
Z tym 10 to pewnie chodzi o $a? Tak nie bardzo kumam o co chodzi z tym stosem programowym. Jeśli będziemy tam zapisywać "swój" odrębny stos (bo tak to rozumiem) nadpiszemy sobie komórki strony zerowej i będzie zonk. Pewnie coś kręcę, więc mnie popraw. MP od razu zakłada, że podajesz liczbę szesnast...
- 13 sty 2021, 12:37
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
Re: Mad Pascal
@rime tak, dla C64 i C+4 musisz posłużyć się flagą "z" i określić początek stosu programowego dla MP na stronie zerowej, proponuję 10 (czyli $10).
- 13 sty 2021, 12:35
- Forum: Strefa C16 116 Plus/4
- Temat: Dobry emulator potrzebny od zaraz ;)
- Odpowiedzi: 5
- Odsłony: 1606
Re: Dobry emulator potrzebny od zaraz ;)
porównałem na szybko i kod wynikowy z KickC ma 190 bajtów a MP 290. To zapewne użyty przeze mnie FillByte zamiast FOR dołączył swoją procedurę, nie patrzyłem też dokładnie ale tam może jeszcze jest jakiś housekeeping na początku którego KickC nie robi. Te parę bajtów inicjalizacji niknie w tłumie j...
- 13 sty 2021, 12:15
- Forum: Strefa C16 116 Plus/4
- Temat: Dobry emulator potrzebny od zaraz ;)
- Odpowiedzi: 5
- Odsłony: 1606
Re: Dobry emulator potrzebny od zaraz ;)
OK, mój błąd, nie dałem na końcu wiecznej pętli i program wychodził do systemu, więc to wcięcie to pewnie READY
- 13 sty 2021, 10:01
- Forum: Strefa C16 116 Plus/4
- Temat: Dobry emulator potrzebny od zaraz ;)
- Odpowiedzi: 5
- Odsłony: 1606
- 13 sty 2021, 03:03
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
Re: Mad Pascal
Dzięki, pobrałem programy bezpośrednio z repozytorium, teraz wygląda to dobrze. Poniższe zostawiam dla tych którzy też szukają niższego progu wejścia ;-D mp pas6502_test.pas -target:c64 mads pas6502_test.a65 -x -i:base -o:pas6502_test.prg mimo wszystko dałbym: mp pas6502_test.pas -t c64 -z 10 -o bo...
- 13 sty 2021, 02:04
- Forum: Strefa C16 116 Plus/4
- Temat: Dobry emulator potrzebny od zaraz ;)
- Odpowiedzi: 5
- Odsłony: 1606
Dobry emulator potrzebny od zaraz ;)
Czy ktoś może mi powiedzieć, który z tych emulatorów wyświetla poniższy program prawidłowo? Niestety nie dysponuję realnym sprzętem. Użytkuję Ubuntu 18.04. Oprócz Yape pod wine (pierwszy screen) reszta to wersje *nix emulatorów. Program to paleta Carriona. Screenshot_2021-01-13_01-53-36.png Screensh...
- 12 sty 2021, 23:18
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
Re: Mad Pascal
W kontekście Mad Pascala polecam używać z repo ostatnią "zacommitowaną" wersję a nie "stary" oficjalny release 1.6.4.
Ja wszystko piszę na 1.6.5 a dokładnie zawsze pobieram ostatnią wersję z repozytorium.
Ja wszystko piszę na 1.6.5 a dokładnie zawsze pobieram ostatnią wersję z repozytorium.
- 12 sty 2021, 23:08
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
Re: Mad Pascal
pytanie co dalej, jak uzyskać PRG ? #!/bin/bash mp="$HOME/Programs/MadPascal/mp" mads="$HOME/Programs/mads/mads" base="$HOME/Programs/MadPascal/base if [ -z "$1" ]; then echo -e "\nPlease call '$0 <argument>' to run this command!\n" exit 1 fi $mp $1 -t c64 -z 10 -o name=${1::-4} if [ -f $name.a65 ]...
- 12 sty 2021, 18:50
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
Re: Mad Pascal
btw: a da się w tym pisać dla C64? Tak, w takim samym zakresie jak dla Plus/4 (a nawet ciut większym, bo aktualnie dla Plus/4 trzeba napisać parę procedur w modułe SYSTEM, które dla C64 już są) ale tak naprawdę masz mniej więcej to samo jak sobie zrobiłeś w KickC target dla Plus/4 czyli szybki komp...
- 12 sty 2021, 14:36
- Forum: Strefa C16 116 Plus/4
- Temat: Mad Pascal
- Odpowiedzi: 73
- Odsłony: 9255
Mad Pascal
Cześć, zostawiłem tę informację (z grubsza) jako komentarz pod dwoma art. na portalu, ale, że postanowiłem spróbować swoich sił w programowaniu dla Plus/4 to zakładam ten wątek. Od paru miesięcy Mad Pascal ma podstawowe wsparcie dla C64 a od 2 dni także dla Plus/4. źródła: https://github.com/tebe650...