2009-01-03:

Światłowór - kod z CPC, wnioski

cpc464:basic:easy
Noc się skończyła, i dane przesyłane z CPC na PCta również skończyły się przesyłać (zrzut pamięci, jeśli kogoś interesuje, można ściągnąć tutaj). Kod z CPC również przepisałem - listing jest na końcu postu.

A teraz wnioski:
- Chyba powinienem dodać 16 bitów adresu danych w RAM w każdej ramce danych - okazało się że gdzieś mi "zjadło" 66 bajtów. Na szczęście zjedzone bajty po porównaniu zrzutu z The Amstrad CPC Firmware Guide (by Bob Taylor and Thomas Defoe, 1992) okazało się ze brakujące bajty to zera w dużej przestrzeni zer. Więc dość łatwo było skorygować dane.
- Jakieś 90% RAMu zajmują zera.
- Te adresy w ramce na prawdę by się przydały... na końcu też mi brakuje jakiś zer - sądzę że jest to spowodowane tym iż wiekowy monitor czasem zaczyna dziwnie śnieżyć ("paskować" to lepsze określenie)
- Fajnie się czyta Firmware Guide mając zrzut pamięci, można od razu sprawdzić co tam faktycznie siedzi ;>

OK, i na koniec ultra nieładny kod na CPC.

5 rem Show the data! by Gynvael Coldwind
6 rem The code is ugly,stupid,etc. Use at ur own risk
10 mode 0
15 symbol 255,255,255,255,255,255,255,255,255
20 cls
25 c=1
30 for i=0 to 65535
40 v=peek(i)
50 m=v
55 cls
56 locate 1,20
58 print "now: &" hex$(i,4) "=" hex$(v,2) " [" c "]"
60 n=1:m=c:gosub 200:print " ";
100 for j=1 to 8
102 m=v
105 read t:n=t:gosub 200
110 next j
115 restore
120 print " ";
121 n=1:m=c:gosub 200
122 print chr$(10) chr$(13) chr$(10) chr$(13) "C 76543210 C"
131 after 25 gosub 300
132 o=c
133 IF o=c then goto 133
140 next i
200 t=m AND n
205 if t=n then print chr$(255);:return
210 print " ";
220 return
300 if c=1 then c=0:return
310 c=1:return
800 data 128,64,32,16,8,4,2,1

Comments:

2010-07-11 18:32:51 = KissXSis Fan
{
Ciekawy pomysł, acz ciekawszym byłoby wysyłanie informacji falą dźwiękową :)
}
2010-07-14 20:26:24 = Gynvael Coldwind
{
@KissXSis Fan
Z tego co pamiętam CPC464 nie ma żadnego sensownego wyprowadzenia audio na zew, więc sprowadziło by to się do analogicznej metody aka mikrofon kolo głośników cpc. Wolałem jednak żeby coś mi migało a nie bzyczało ;)))
}
2011-02-02 18:07:12 = andy
{
Nie wiem, jak Twój 464, ale 6128 mają wyjście audio w postaci gniazda małego jacka. Właśnie od kilku tygodni próbuję (na razie ze średnim powodzeniem) ożywić mojego Amstrada. Najpierw padła stacja dysków, potem monitor, a teraz klawiatura. Ale nie poddam się. Naprawiam po kolei;)
}
2011-02-03 07:11:40 = Gynvael Coldwind
{
@andy
Hmm jakiś mały jack podpisany "I/O" jest (być może audio, nie sprawdzałem). Natomiast niestety nawet kabelka audio wtedy nie miałem ;D

Anyway, powodzenia z ożywianiem! :)
}

Add a comment:

Nick:
URL (optional):
Math captcha: 5 ∗ 6 + 6 =