OldComp.cz

Komunitní diskuzní fórum pro fanoušky historických počítačů


Právě je 16.04.2024, 20:12

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


Obsah fóra » Československé počítače » Československé počítače - Ostatní

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



Odeslat nové téma Odpovědět na téma  Stránka 2 z 2
  [ Příspěvků: 27 ]  Přejít na stránku Předchozí  1, 2
  Verze pro tisk Předchozí téma | Následující téma 
Autor Zpráva
Doda
PříspěvekNapsal: 13.03.2020, 20:04 
Offline
Pan Štábní
Uživatelský avatar

Registrován: 12.05.2013, 21:39
Příspěvky: 1976
Bydliště: Praha
Has thanked: 85 times
Been thanked: 255 times
Ten image jsi delal, nebo proste nekde stahl?
Nahoru
 Profil  
 
dex
PříspěvekNapsal: 13.03.2020, 20:15 
Offline
Pan Štábní

Registrován: 12.05.2013, 22:24
Příspěvky: 1516
Bydliště: u Prahy
Has thanked: 44 times
Been thanked: 381 times
To jsou image disket, které archivoval Petr (EC číslonepamatuju).
Zálohoval na SAPI s připojenou osmipalcovkou a PMD-32-SD, prostě kopíroval z diskety rovnou do image na SD.
Pokud byly špatné sektory, většinou to napsal do doprovodného textu.
ZIP archiv všech image (TNS, SAPI, FK-1, C2717/C2715, SORD, TEXT01) má 28 MB.
Nahoru
 Profil  
 
chip128
PříspěvekNapsal: 13.03.2020, 20:44 
Offline
Radil

Registrován: 13.03.2016, 18:54
Příspěvky: 303
Has thanked: 130 times
Been thanked: 88 times
chip128 píše:
chip128 píše:

Obsah diskety by měl být:

038A TNS 2.27-W

RECS BYTES EXT ACC
0 0K 1 R/W E:
21 3K 1 R/W E:CROSS
34 5K 1 R/W E:DOSTIHY
105 14K 1 R/W E:DRAHA
63 8K 1 R/W E:F1.COM
65 9K 1 R/W E:HAMURABI
23 3K 1 R/W E:HAZARD
96 12K 1 R/W E:KAMENO.COM
0 0K 1 R/W E:KAMENO.DAT
10 2K 1 R/W E:KLIC
20 3K 1 R/W E:KONDICIO
35 5K 1 R/W E:KONIK
22 3K 1 R/W E:KROSS
17 3K 1 R/W E:L.DELO
31 4K 1 R/W E:LIFE.COM
15 2K 1 R/W E:LIFEB.COM
26 4K 1 R/W E:MUSKA
45 6K 1 R/W E:NUMERAL
48 6K 1 R/W E:ODYSEA
33 5K 1 R/W E:PANAK
38 5K 1 R/W E:PEXESO
42 6K 1 R/W E:PISKVOR
86 11K 1 R/W E:POKER
14 2K 1 R/W E:POKLAD
47 6K 1 R/W E:PRISTANI
4 1K 1 R/W E:PRT
119 15K 1 R/W E:RAIDERS.COM
152 19K 2 R/W E:RB1.COM
59 8K 1 R/W E:SEMIGR.MAN
21 3K 1 R/W E:SHODA
11 2K 1 R/W E:SIBA-INS
48 6K 1 R/W E:SIBENICE
58 8K 1 R/W E:SIRKY.COM
35 5K 1 R/W E:SLALOM
27 4K 1 R/W E:SPIRALA
12 2K 1 R/W E:TNS
120 15K 1 R/W E:ZED.COM
0 0K 1 R/W E:ZED.SCO
34 5K 1 R/W E:ZIVOT
BYTES REMAINING ON E: 21K

Díky Chip


U této diskety žádný problém se čtením Petr nenapsal, takže by měla být cajk.
Nahoru
 Profil  
 
rombor
PříspěvekNapsal: 13.03.2020, 21:56 
Offline
Radil
Uživatelský avatar

Registrován: 13.05.2013, 17:48
Příspěvky: 529
Bydliště: Košice
Has thanked: 429 times
Been thanked: 265 times
Opravil som ten image.


Přílohy:
038A-opr.zip [121.2 KiB]
497 krát

_________________
https://pmd85.borik.net - PMD 85 Emulátor, PMD 85, PMD 32-SD
https://pp01.borik.net - PP 01 Emulátor, PP 01, SD-ROM Modul
Nahoru
 Profil  
 
dex
PříspěvekNapsal: 13.03.2020, 22:30 
Offline
Pan Štábní

Registrován: 12.05.2013, 22:24
Příspěvky: 1516
Bydliště: u Prahy
Has thanked: 44 times
Been thanked: 381 times
LADELO místo L.DELO je potřeba mít ještě na offsetu 11BA7.
Jinak to bude hlásit chybu, že soubor nenalezen.
Nahoru
 Profil  
 
rombor
PříspěvekNapsal: 13.03.2020, 22:39 
Offline
Radil
Uživatelský avatar

Registrován: 13.05.2013, 17:48
Příspěvky: 529
Bydliště: Košice
Has thanked: 429 times
Been thanked: 265 times
Zrejme áno.
Ale je to čudné. V štandardnom CP/M sa bodka v mene súboru nemôže vyskytovať.

_________________
https://pmd85.borik.net - PMD 85 Emulátor, PMD 85, PMD 32-SD
https://pp01.borik.net - PP 01 Emulátor, PP 01, SD-ROM Modul
Nahoru
 Profil  
 
rombor
PříspěvekNapsal: 14.03.2020, 11:11 
Offline
Radil
Uživatelský avatar

Registrován: 13.05.2013, 17:48
Příspěvky: 529
Bydliště: Košice
Has thanked: 429 times
Been thanked: 265 times
Takže musím konštatovať, že moje počudovanie bolo "mylné".
CCP v rámci CP/M síce neumožňuje plnohodnotne pracovať s menom súboru, ktoré obsahuje bodku, ale BDOS nebude protestovať, ak pri vytváraní/otváraní/mazaní súboru obsahuje FCB aj "neplatné" meno súboru.
Takže samotný (zrejme) BASIC na TNS súbor s takýmto menom vytvoril a aj ho vie otvoriť, ale v CCP, ktoré robí "preparsing" mena súboru zadaného za príkazom, také meno "poškodí" a spúšťaný program daný súbor nenájde.
Skúste si napríklad DIR L.DELO alebo ERA L.DELO a odpoveďou bude NO FILE. Ak by ste sa pozreli do predpripraveného FCB, našli by ste L_______DEL (namiesto podtržítka sú samozrejme medzery).

Programy, ktoré som robil pre CP/M striktne kontrolovali meno súboru na "nedovolené" znaky a tak som túto filozofiu zaradil aj do CIMu.
Mohol by som samozrejme do CIMu pridať prepínač, aby sa ignorovali (niektoré) chyby v adresári disku, ale neviem, kedy by som sa k tomu dostal...

_________________
https://pmd85.borik.net - PMD 85 Emulátor, PMD 85, PMD 32-SD
https://pp01.borik.net - PP 01 Emulátor, PP 01, SD-ROM Modul
Nahoru
 Profil  
 
chip128
PříspěvekNapsal: 14.03.2020, 11:22 
Offline
Radil

Registrován: 13.03.2016, 18:54
Příspěvky: 303
Has thanked: 130 times
Been thanked: 88 times
Velke diky Rombor. Extrakce uz probehla v poradku i import do virtualnich disket CPM emulace.
Nahoru
 Profil  
 
dex
PříspěvekNapsal: 14.03.2020, 11:39 
Offline
Pan Štábní

Registrován: 12.05.2013, 22:24
Příspěvky: 1516
Bydliště: u Prahy
Has thanked: 44 times
Been thanked: 381 times
rombor píše:
Mohol by som samozrejme do CIMu pridať prepínač, aby sa ignorovali (niektoré) chyby v adresári disku, ale neviem, kedy by som sa k tomu dostal...

Kvůli jedné hře?
Bude jednodušší přepsat název souboru v Basicu.
Zkusil jsem to udělat, ale netestoval jsem...
Příloha:
038A-opr.8SD.zip [121.02 KiB]
501 krát


Nahoru
 Profil  
 
omikron
PříspěvekNapsal: 23.10.2021, 22:43 
Offline
Radil

Registrován: 24.12.2014, 16:11
Příspěvky: 427
Has thanked: 32 times
Been thanked: 101 times
K TNS se dodávaly dva systémy. CP/M 2.x a TNS DOS
Ten TNS dos měl jednak důsledněji implementovanou češtinu a jednak měl určitá rozšíření souborového systému. Například příznak GLOB. Když je nastaven, tak je soubor viditelný bez ohledu na číslo zvoleného uživatele.
Myslím, že to měli udělané jako D7=1 některého znaku jména. Protože taková disketa je stále čitelná pod CP/M v. 2.2 alias Mikros. Samozřejmě, že bez těch příznaků.

rombor: kdybys chtěl, tak mám od Zdeňka systémové diskety TNS dosu
Nahoru
 Profil  
 
omikron
PříspěvekNapsal: 23.10.2021, 22:55 
Offline
Radil

Registrován: 24.12.2014, 16:11
Příspěvky: 427
Has thanked: 32 times
Been thanked: 101 times
Tak jsem koukal do dokumentace CPM v. 2.2 a u prvního znaku přípony D7=1 znamená Read Only, u druhého Hidden, a u třetího je to rezerva.
Nahoru
 Profil  
 
omikron
PříspěvekNapsal: 29.10.2021, 14:16 
Offline
Radil

Registrován: 24.12.2014, 16:11
Příspěvky: 427
Has thanked: 32 times
Been thanked: 101 times
tady je má utilita, která vypíše tabulku diskových parametrů

Kód:
   .z80
   org 0100h

start:
   ld hl,t1
   call print
loop:   call get
   cp 3
   jp z,0
   call test
   jr nc,loop
   or 20h
   sub 'a'
   call seldsk
   ld (dph),hl
   ld a,h
   or l
   jr z,loop

   ld bc,000ah
   add hl,bc
   ld e,(hl)
   inc hl
   ld d,(hl)   
   ld (dpb),de
   push de

   ld hl,spt
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,(hl)
   inc hl
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print

   ld hl,bsh
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,0
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print

   ld hl,blm
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,0
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print
   
   ld hl,exm
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,0
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print

   ld hl,dsm
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,(hl)
   inc hl
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print

   ld hl,drm
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,(hl)
   inc hl
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print

   ld hl,al0
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,0
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print

   ld hl,al1
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,0
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print

   ld hl,cks
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,(hl)
   inc hl
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print

   ld hl,off
   call print
   pop hl
   ld e,(hl)
   inc hl
   ld d,(hl)
   inc hl
   ex de,hl
   push de
   call num
   ld hl,crlf
   call print

   pop de
   
   ld hl,(dpb)
   ld c,(hl)
   inc hl
   ld b,(hl)

   ld hl,(dph)
   ld e,(hl)
   inc hl
   ld d,(hl)
   ld a,d
   or e
   jp z,0
   
   push bc
   push de
   ld hl,map
   call print
   pop hl
   pop bc
list:
   ld a,(hl)
   push bc
   push hl
   ld l,a
   ld h,0
   call num
   ld a,' '
   call put
   pop hl
   pop bc
   inc hl
   dec bc
   ld a,b
   or c
   jr nz,list

   ld hl,crlf
   call print
   jp 0

num:
   ld   bc,-10000
   call   num1
   ld   bc,-1000
   call   num1
   ld   bc,-100
   call   num1
   ld   bc,-10
   call   num1
   ld   c,b
num1:   ld   a,'0'-1
num2:   inc   a
   add   hl,bc
   jr   c,num2
   sbc   hl,bc
   push   bc
   call   put
   pop   bc   
   ret

test:
   cp 'A'
   ccf
   ret nc
   cp 'Q' ; (P+1)
   ret c
   cp 'a'
   ccf
   ret nc
   cp 'q' ; (p+1)
   ret
   
seldsk:
   ld hl,(1)
   ld bc,24
   add hl,bc
   ld c,a
   ld e,0
   jp (hl)
   
get:
   ld hl,(1)
   ld bc,6
   add hl,bc
   jp (hl)
   
put:
   push hl
   ld hl,(1)
   ld bc,9
   add hl,bc
   ld bc,put1
   push bc
   ld c,a
   jp (hl)
put1:   pop hl
   ret

print:
   ld a,(hl)
   or a
   ret z
   push hl
   ld hl,(1)
   ld bc,9
   add hl,bc
   ld bc,print1
   push bc
   ld c,a
   jp (hl)
print1:   pop hl
   inc hl
   jr print

dph:   defw 0
dpb:   defw 0

t1:   defb "Select drive A-P",0dh,0ah,0
spt:   defb "SPT: ",0
bsh:   defb "BSH: ",0
blm:   defb "BLM: ",0
exm:   defb "EXM: ",0
dsm:   defb "DSM: ",0
drm:   defb "DRM: ",0
al0:   defb "AL0: ",0
al1:   defb "AL1: ",0
cks:   defb "CKS: ",0
off:   defb "OFF: ",0
map:   defb "Map: ",0
crlf:   defb  0dh,0ah,0

   end start
Nahoru
 Profil  
 
Zobrazit příspěvky za předchozí:  Seřadit podle  
Odeslat nové téma Odpovědět na téma  Stránka 2 z 2
  [ Příspěvků: 27 ]  Přejít na stránku Předchozí  1, 2

Obsah fóra » Československé počítače » Československé počítače - Ostatní

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

Hledat:
Přejít na:  
Založeno na phpBB® Forum Software © phpBB Group
Český překlad – phpBB.cz