Znaleziono 117 wyników

autor: zbyti
20 sty 2021, 15:12
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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)...
autor: zbyti
17 sty 2021, 19:21
Forum: Strefa C16 116 Plus/4
Temat: Generator liczb pseudolosowych
Odpowiedzi: 1
Odsłony: 1125

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 ...
autor: zbyti
17 sty 2021, 18:41
Forum: Strefa C16 116 Plus/4
Temat: Generator liczb pseudolosowych
Odpowiedzi: 1
Odsłony: 1125

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...
autor: zbyti
17 sty 2021, 16:54
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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 ...
autor: zbyti
14 sty 2021, 11:16
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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
autor: zbyti
13 sty 2021, 13:52
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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...
autor: zbyti
13 sty 2021, 12:37
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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).
autor: zbyti
13 sty 2021, 12:35
Forum: Strefa C16 116 Plus/4
Temat: Dobry emulator potrzebny od zaraz ;)
Odpowiedzi: 5
Odsłony: 1432

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...
autor: zbyti
13 sty 2021, 12:15
Forum: Strefa C16 116 Plus/4
Temat: Dobry emulator potrzebny od zaraz ;)
Odpowiedzi: 5
Odsłony: 1432

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 :D

Screenshot_2021-01-13_12-17-14.png
Screenshot_2021-01-13_12-17-14.png (15.71 KiB) Przejrzano 1381 razy
autor: zbyti
13 sty 2021, 10:01
Forum: Strefa C16 116 Plus/4
Temat: Dobry emulator potrzebny od zaraz ;)
Odpowiedzi: 5
Odsłony: 1432

Re: Dobry emulator potrzebny od zaraz ;)

carrion pisze:
13 sty 2021, 08:54
podeślij mi plik zo zerknę na moim plus/4
Dzięki za opis poszczególnych emu, plik masz w pierwszym poście jako zip bo forum prg nie przyjmuje.
autor: zbyti
13 sty 2021, 03:03
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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...
autor: zbyti
13 sty 2021, 02:04
Forum: Strefa C16 116 Plus/4
Temat: Dobry emulator potrzebny od zaraz ;)
Odpowiedzi: 5
Odsłony: 1432

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...
autor: zbyti
12 sty 2021, 23:18
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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.
autor: zbyti
12 sty 2021, 23:08
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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 ]...
autor: zbyti
12 sty 2021, 18:50
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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...
autor: zbyti
12 sty 2021, 14:36
Forum: Strefa C16 116 Plus/4
Temat: Mad Pascal
Odpowiedzi: 73
Odsłony: 8508

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...