OldComp.cz • Zobrazit téma

Vyhledat témata bez odpovědí | Zobrazit aktivní témata

Obsah fóra » Ostatní platformy » Kalkulátory a 4bit

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]

Sharp PC-1500A

Stránka 1 z 1

[ Příspěvků: 13 ]

Verze pro tisk

Předchozí téma | Následující téma

Autor

Zpráva

Josef01

Předmět příspěvku: Sharp PC-1500A

Napsal: 20.10.2024, 17:59

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Kdyby si chtěl někdo zavzpomínat na staré dobré časy se Sharpem PC-1500A, prodávají nově vyrobené na eBay včetně 16kB RAM modulu.

https://www.ebay.com/itm/286116229579?m ... media=COPY

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 24.10.2024, 19:52

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Paralelní a sériový port pro PC-1500 a komunikace s počítačem.

phpBB [video]

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 27.10.2024, 20:45

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Zajímavostí je malý modul s uSD kartou, kam se dají ukládat pogramy nebo nové RAM moduly 8x16kB nebo 8+8x16kB RAM/FLASH zálohované baterií. Banky se dají příkazy přepínat mezi sebou a tak mít k dispozici 8 bank s různými programy se zálohou několika měsíců. FLASH vydrží baterie pouze měsíc.

https://www.soigeneris.com/universal-backpack-drive]
Obrázek

https://www.soigeneris.com/sharp-pc-1500-memory-modules
Obrázek

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 18.11.2024, 09:25

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Konečně dorazil serio-paralelní port, tak jsem to mohl otestovat. Chvíli jsem se trápil s nastavením terminálu CoolTerm a správnými daty v souboru. V souboru s programem nestačí mít nastaveno Plain Text, je nutné zvolit čistou znakovou sadu ASCII set při ukládání. Běžně je za každým řádkem #0A (LF) ale je nutné, aby tam bylo #0D (CR), jinak příjem dat Sharp ukončí. Při posílání dat na Sharp je potřeba nastavit prodlevy v terminálu při posílání souboru ASCII, jinak nestíhá. To jsem vyřešil nastavením remote echo. Lze dát i 50ms, to ještě stíhá. Při načítání již kompilovaného Basicu to je bez problému.

Pokud by někoho zajímala recenze s testem výpočtů přístroje: https://posec.astro.cz/index.php/clanky ... tronomii-2

Přílohy:

Sharp_pc-1500-1.jpg [ 136.74 KiB | Zobrazeno 354 krát ]

Snímek obrazovky 2024-11-18 v 7.51.34.png [ 263.77 KiB | Zobrazeno 354 krát ]

Nahoru

dex

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 18.11.2024, 11:03

Pan Štábní

Registrován: 12.05.2013, 22:24
Příspěvky: 1603
Bydliště: u Prahy
Has thanked: 49 times
Been thanked: 407 times

Mimochodem ten program je ohromující, moc se mi líbí.
(Kdo neví, verze pro Commodore Basic v.7 je TADY.)

Škoda, že Sharpy jako PC-1350 se napájí jen čočkovými bateriemi místo AA a nemají takovou výdrž jako PC.1500A nebo PC-1600 (ten pak měl i externí 2.5” disketovku).

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 18.11.2024, 12:03

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Sharp PC-1500 má i externí napájení 9V, takže další výhoda. Program pro Basic Sharp se upraví jednoduše, upraví se řádek 120 takto : 120 DG=1 a řádky 170 a 340 se nahradí příkaz PLAY příkazem BEEP 1. Na řádcích 120, 640 + 690 se smaže výraz 180/PI.
Program jsem testoval na mnoho objektech a počítá polohy celkem slušně, obsahuje i základní opravy drah (viz recenze POSEC)

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 18.11.2024, 20:22

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Ještě jsem přepsal z časopisu Říše hvězd originální algoritmus pro počítače Sharp PC-1XXX a otestoval. Zajímavostí jsou ty instrukce FOR I=X to Y ...@(I).... To je unikátní funkce proměnných pro Sharp PC-1500, kde @(1)=A, @(2)=B atd.. Pro Sharp 1211 je to malinko jinak, tedy A(1)=A, A(2)=B..... Takto lze některé programové kroky výrazně zkrátit.

Tohle je výpis programu z rozhraní LPT/serial/USB:

Kód:

"S"DEGREE 
DIM A$(29),A(29)
INPUT "TYP:";A$(29)
IF A$(29)="P"INPUT "Q =";A:GOTO 20
INPUT "A=";A,"E=";B
INPUT "I=";C,"DU=";D,"AP =";O
PAUSE "TO":GOSUB 500:N=Q
E=23.4457889
F=COS D,G=SIN D*COS E,H=G*TAN E:I=-SIN D*COS C
J=COS D*COS E*COS C-SIN C*SIN E,K=COS D*COS C*SIN E+SIN C*COS E
FOR C=6TO 8:Y=@(C),X=@(C+3):GOSUB 400:@(C)=U,@(C+3)=V:NEXT C
BEEP 1:GOSUB 500:GOSUB 800
M=(Q-N)/A/SQR A
GOSUB A$(29)
FOR C=6TO 8:@(C+18)=SIN (@(C)+O+P)*@(C+3)*L+@(C+12):NEXT C
GOSUB 400:D=SQR (V*V+Z*Z)
IF U<0LET U=U+360
E=DMS (U/15),D=DMS ASN (Z/D)
BEEP 1:PRINT USING "###.#####";"A=";E;" D=";D:GOTO 60
U=ATN (Y/X)+90*(1-X/ABS X)*Y/ABS Y:V=SQR (X*X+Y*Y):RETURN 
INPUT "D=";T,"M=";S,"R =";R
IF S<=2LET R=R-1,S=S+12
Q=INT (365.25*R)+INT (30.6001*(S+1))+T-679003.5-INT (R/100)+INT (INT (R/100)/4)
RETURN 
"E"M=.985609*M
E=M
L=(M+180*B/PI *SIN E-E)/(1-B*COS E)
IF ABS L>1E-7LET E=E+L:GOTO 610
P=2*ATN (SQR ((1+B)/(1-B))*TAN (E/2)),L=A*(1-B*COS E):RETURN 
"P"M=.0364911624*M:E=0
D=(2*E*E*E+M)/(E*E+1)/3
IF ABS (D-E)>1E-6LET E=D:GOTO 710
P=2*ATN E,L=A*(1+E*E):RETURN 
P=15020,L=36524.2199
R=(Q-P-.313)/L,S=(33282.423-Q)/L,L=3600
D=(((.018*S+.302)*S+2304.25+1.396*R)*S)/L
M=(((.42*S-.426)*S+2004.682-.853*R)*S)/L
E=((1E-3*S+.791)*S*S)/L+D
R=COS D*COS E*COS M-SIN E*SIN D,S=SIN D*COS E+COS D*SIN E*COS M,T=COS D*SIN M
U=-S,V=COS D*COS E-SIN D*SIN E*COS M,W=-SIN D*SIN M
X=-T,Y=-SIN E*SIN M,Z=COS M
D=(Q-P)/36525,M=(((-33E-7*D-15E-5)*D+35999.04975)*D+358.47583)/360
M=(M-INT M)*360
A(28)=Q
Q=B,B=(126E-9*D-418E-7)*D+.01675104
A(27)=A,A=1+2E-7
GOSUB 605
M=(3025E-7*D+36000.76892)*D+279.69668+P-M,B=Q,A=A(27)
C=153.23-122518.7541*D,E=216.571+45037.5082*D,Q=312.69+32964.3577*D
P=(-144E-5*D+445267.1142)*D+350.74
L=L+(543*SIN C+1575*SIN E+1627*SIN Q+3076*COS P+927*SIN (65928.7155*D+353.4))*1E-8
M=M+(134*COS C+154*COS E+200*COS Q+179*SIN P+178*SIN (231.19+20.2*D))*1E-5
Q=((503E-9*D-164E-8)*D-.0130125)*D+23.452294
C=L*COS M,D=L*SIN M*COS Q,E=L*SIN M*SIN Q
FOR Q=18TO 20:@(Q)=@(Q)*C+@(Q+3)*D+@(Q+6)*E:NEXT Q:Q=A(28)
RETURN 
 

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 19.11.2024, 08:33

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Dělal jsem pokusy s ukládáním souboru a nebyl jsem schopen donutit MacOS k uložení souboru se znakem CR místo LF. Nakonec jsem zvolil řešení, které vezme txt soubor, převede všechny LF na CR v souboru a uloží nový záložní soubor. V terminálu stačí zadat :
perl -i.bak -pe 's/\0A/\0D/g' Název_souboru případně příkaz perl -i -pe 's/\0A/\0D/g' Název_souboru, který jen opraví soubor.

Nahoru

zz_indigo

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 23.11.2024, 23:23

Pan Štábní

Registrován: 13.05.2013, 10:52
Příspěvky: 1693
Bydliště: Mliecna draha
Has thanked: 19 times
Been thanked: 125 times

Josef01 píše:

sed -i.bak $'s/\0A/0D/' file

Bude sviznejsie.

_________________
Amiga 600 + a602, Amiga 600 PCB only, Commodore 64+ZZ-RAM V1.0 512k+C1541(18k RAM)+sd2iec +9.600 Rs232, Commodore 116 + 64k upgrade, ZX 81 ISSUE1 + ZX81XRAM

http://zz-indigo.mavipet.sk/

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 27.11.2024, 22:27

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Díky, tohle mi nějak zlobilo, tak jsem přešel na perl...

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 27.11.2024, 22:40

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Objevil jsem zajímavý kompiler, který umožňuje psaní jednoduchého kódu a ten následně přeloží do assembleru pro Sharp PC-1500. Struktura je poměrně jednoduchá, např.

_A=I
*A=A+I
_IFA<PGO*
_STOP
_END

Zatím lze používat pouze +,-,*,/,SQR, IF...GO, GO a INT. Pro IF lze použít všechny klasické podmínky jako <>,#, atd.

V programu z roku 2010 nefungovala funkce IF...GO. Seděl jsem na tom docela dlouho, než jsem našel chyby, ta druhá mi dala zabrat

řádek 3500:POKE P,&B5,&79,&AE,&38,&D2,&B5,X,&AE,&38,&D3,&B5,&79,&AE,&38,&D0,&B5,Y

V řádku 6510 nemá být &B5 ale musí být instrukce &BE (SJP i,j) na adresu D0D2H, kde probíhá porovnání dvou proměnných.

řádek 6510:POKE P+18,&BE,&3A,&C4,&B5,ZZ,&BE,&D0,&D2,&89,2,&8E,3,&BA,Y,Z

Ten program vlastně nemohl nikomu fungovat po celou dobu.

Uživatelům bych zdůraznil, že funkce _STOP v psaném kódu je naprosto nutná, jinak program „zabloudí“ v RAM. Hodlám program doplnit o další funkce jako SIN, COS, TAN, LOG apod.

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 30.11.2024, 19:31

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Verze 1.4 je hotová, jsou přidány funkce SIN, COS, TAN, LOG a ABS. Návod a program je v příloze. Takto vypadá například řešení Keplerovy rovnice. Assembler bývá výrazně rychlejší, zvláště v běžných matematických operacích. Soubor bin je v podstatě textový soubor, který lze například převést na WAV, nebo nahrát pomocí rozhraní CE-158 z počítače pomocí RS232. Program po překladu kompilerem zabírá v RAM 391 Bytů.

*L=(M+180*I/pi* SIN(E) - E)/(1-I*COS (E))
IF ABS(L) > 1E-3 THEN E = E + L: GOTO *

0 M=E
1*F=ESX
2 F=F*I
3 F=F*D
4 F=F-E
5 F=F+M
6 C=ECX
7 C=C*I
8 C=K-C
9 L=F/C
10 L=LAX
11 E=E+L
12 IFL>RGO*
13 PRE
14 WE
15 STOP
16 END

M= Střední anomálie, I= Excentricita, D= 180/3.14, K=1, R=0.01

Přílohy:

ABCcompilerv1.4.bin [5.25 KiB]
1 krát

ABC-Mini Compiler-manual.pdf [246.08 KiB]
1 krát

Nahoru

Josef01

Předmět příspěvku: Re: Sharp PC-1500A

Napsal: 01.12.2024, 14:23

Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 200
Has thanked: 0 time
Been thanked: 61 times

Autorovi programu se vloudila do programu další chyba a nefungoval příkaz GO. Nenapadlo mě kontrolovat všechny instrukce. Přikládám opravenou verzi.

Přílohy:

ABCcompilerv1.4.bin [5.27 KiB]
1 krát

Nahoru

Stránka 1 z 1

[ Příspěvků: 13 ]

Obsah fóra » Ostatní platformy » Kalkulátory a 4bit

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]

Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 1 návštěvník

Nemůžete zakládat nová témata v tomto fóru
Nemůžete odpovídat v tomto fóru
Nemůžete upravovat své příspěvky v tomto fóru
Nemůžete mazat své příspěvky v tomto fóru
Nemůžete přikládat soubory v tomto fóru

Přejít na: