Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · Z80 · Thread

Öppna fil i assembler

18 posts in thread

Arne Hartelius <2731> · Text 964 · w8 · inlagg

1987-10-10 03:15

Ärende: Öppna fil i assembler

Jag vill öppna en fil, egentligen bara för att få reda på vilken fysisk sektor den ligger på, för att senare kunna fibbla med direktaccess av sagda fil. Filens namn FOO.BAR ska ligga hårdkodat i programet. Drivnumret har jag själv bestämt innan. Hur göra detta ? Observera att jag egentligen inte behöver öppna filen eftersom den ändå ska stängas pronto när jag fått reda på sektornumret för headern, men jag antar att koden måste bli mycket enklare och kortare om jag använder basicen och dosets rutiner än om jag ska ut i biblioteket för att leta själv.
- Arne Hartelius <2731> · Text 965 · w8 · kommentar
  
  1987-10-10 12:50
  
  Ärende: Öppna fil i assembler
  
  Glömde bort felhanteringen. Om Öppningen lyckas vill jag bara fortsätta i assemblerprogramet, om den misslyckas är det bra om basicen kan ta hand om felutskrift, eftersom jag ändå vill tillbaka till kommandomod då.
  - Staffan Lantz <6650> · Text 966 · w8 · kommentar
    
    1987-10-10 15:25
    
    Ärende: Öppna fil i assembler
    
    Använd HJÄLP1.MAC ! Mycket användbart. Finns i ABC80/ASMKOD. Hälsningar Staffan.
    - Arne Hartelius <2731> · Text 967 · w8 · kommentar
      
      1987-10-10 20:05
      
      Ärende: Öppna fil i assembler
      
      Den är lite för svårläsbar för mig, dessutom är det tänkt att man ska ge filnamn med input där medan jag vill ha det hårdkodat i programet. Dessutom vill jag ha reda på sektornumret. Men det är just den där användningen av basicens rutiner jag efterlyser.
      - Anders Franzén <5258> · Text 969 · w8 · kommentar
        
        1987-10-11 12:03
        
        Ärende: Öppna fil i assembler
        
        Varför vill du ha reda på var på skivan filen ligger? Om du använder direktfils- tekniken kan man ange relativt sektornr i filen och DOS läser in önskad sektor. Då behöver man inte bry sig om var på skivan datat ligger. Jag utgår ifrån att du kör på ABC80 och jag antar att du känner till direktfils- tekniken. Man gör ett CALL(??,n) och då hamnar önskad sektor i Q0¤. Variabeln Q0¤ har "pokats om" så dess egentliga värde är lika med en DOS-buffer. Slutligen, varför döper man en fil till FOO.BAR???
        
        Arne Hartelius <2731> · Text 970 · w8 · kommentar
        
        1987-10-11 17:46
        
        Ärende: Öppna fil i assembler
        
        OK, vare sig jag öppnar filen bara för att ta reda på var den ligger, eller öppnar den för att använda den så behöver jag veta hur man gör detta i assembler.
        
        Anders Franzén <5258> · Text 977 · w8 · kommentar
        
        1987-10-12 21:48
        
        Ärende: Öppna fil i assembler
        
        Att öppna en fil i assembler är lätt om man använder tolkens rutiner: LD IX,AREA LD HL,FILNAMN LD A,TYP_AV_OPEN CALL 0:62 AREA är en 15 bytes lång area, FILNAMN är en adress till ditt filnamn avslutat med CR (kan innehålla enhet, t ex DR1:) och TYP_AV_OPEN är en siffra 0-4 där 0 = OPEN 1 = PREPARE 2 = OPEN default BAC eller BAS 3 = PREPARE default BAS 4 = PREPARE default BAC Vill man kunna hantera fel själv kan man göra som i TED tex.
        
        Björn Linderson <5829> · Text 971 · w8 · kommentar
        
        1987-10-11 21:59
        
        Ärende: Öppna fil i assembler
        
        FOO.BAR... Det är den allmänna beteckningen på en kvalificerad slaskfil som kan raderas vid behov, eftersom den inte fyller någon annan funktion än just slask. Likaså döper man filer som är ENORMT STORA, och innehåller kanske viktiga data, till VRAAAAAL.DAT, eftersom dattan saknar ÅÄÖ (om man har annan än ABC)
        
        Nils Hammar <4341> · Text 980 · w8 · kommentar
        
        1987-10-14 20:53
        
        Ärende: FOO.BAR M.M
        
        Det finns även andra alternativ t.ex. GLÖKEN.LK/GLOKEN.ULK FAR_SLANGAS_BORT.SKIT (Vax vms) och mång fler varianter fantasin sätter begränsningar! använd dock bara ett uttryck samtidigt annars får man ett helsicke när man skall städa!
      - Staffan Lantz <6650> · Text 973 · w8 · kommentar
        
        1987-10-12 20:04
        
        Ärende: Öppna fil i assembler
        
        Så här kan du använda HJÄLP1.MAC: INCLUDE HJÄLP1.MAC FILNAMN DM "FOO.DAT",13 FILB DS 15 ERROR RET START OPEN FILNAMN,FILB,ERROR CLOSE FILB,ERROR END START Därefter finns filens header-block i DOS-buff 0. Kan det hjälpa dig? Hälsningar Staffan.
  - Kristoffer Eriksson <5357> · Text 972 · w8 · kommentar
    
    1987-10-11 22:55
    
    Ärende: Öppna fil i assembler
    
    Den här frågan tycker jag hör bättre hemma i antingen ABC80- eller 800-mötet (eller MSDOS?) där du kan få hjälp av experter på de maskin det gäller. Frågan rör ju operativsystemet mer än själva processorn. I varje fall glömde du tala om vilken maskin det gäller. Jag kan berätta hur man kan göra i ABC800. Eftersom du redan när programet skrivs vet både filnamn och drive, och att det är en fil på disk, och du inte ska använda Basicens I/O-funktioner, är det lika bra att gå direkt på DOS:ets rutiner. Sålunda placerar man drive-numret i register C, dosbuffertens nummer multiplicerat med 16 i B, adresse till filens namn (11 tecken utan punkt) i DE och anropar OPEN i DOS:et (24600). Sen avläser man filens första sektor (RIB, den som håller reda på filens övriga sektorerna) på adress 64776 (två bytes). Till sist stänger man filen genom att anropa CLOSE (24609). B har kvar värdet från förra anropet så den behöver man inte ladda om. Visar det sig att filen inte finns kommer man att få sann carry vid retur från OPEN. Uppstår något annat fel, görs hopp till den DOS-felhaneringsvektor som gäller för det felet. Denna bör du i förväg ha ställt till att peka på din egen felhanteringsrutin som återställer SP och t ex anropar basicens felhantering. Sen tillåter jag mig att betvivla att du klarar av att hitta de andra sektorena i filen, även om det med stor möda är möjligt.
    - Bert Holgersson <560> · Text 976 · w8 · kommentar
      
      1987-10-12 21:48
      
      Ärende: Öppna fil i assembler
      
      Fungerar på samma sätt i ABC80 med UFD-dos. Vad menar du med dina två sista rader i inlägget ? Om "man inte skulle klara det själv", så finns det ju anrop i DOS för att läsa de andra sektorena i filen också. ( Eller kommer jag ihåg så ILLA fel ) Hälsningar Bert
      - Nils Hammar <4341> · Text 981 · w8 · kommentar
        
        1987-10-14 20:56
        
        Ärende: UFD-dos i ABC80
        
        Var finns UFD-DOS till ABC80 och hur mycket kostar det? Har själv dos till ABC832 i min abc80 (monterat i tangentbordet,men jag har en 806:a också!) eller menar du UFD-DOS till abc800 så är¤jag med på vad du har skrivit!
        
        Bert Holgersson <560> · Text 982 · w8 · kommentar
        
        1987-10-15 07:50
        
        Ärende: UFD-dos i ABC80
        
        Finns i programbanken. Kostnad: teleräkningen. Hälsningar Bert
      - Kristoffer Eriksson <5357> · Text 985 · w8 · kommentar
        
        1987-10-16 03:05
        
        Ärende: Öppna fil i assembler
        
        Jo visst finns det såna anrop. Det vara bara det att Arne försöker uppenbarligen göra på något annat vis, eftersom han frågar efter numret på första sektorn bara.
        
        Kjell Svensson <5318> · Text 986 · w8 · kommentar
        
        1987-10-16 14:57
        
        Ärende: Öppna fil i assembler
        
        Man behöver väl inte öppna filen för att hitta första sektorn. Det räcker väl att gå via skivans bibliotek,där finns pekare till var filen finns. Man kan ju studera libprogram som talar om hur stora filerna är. Där används väl den metoden. H/Kjell
        
        Bert Holgersson <560> · Text 987 · w8 · kommentar
        
        1987-10-16 18:35
        
        Ärende: Öppna fil i assembler
        
        Nej, men om man öppnar filen så kan man ju överlåta letandet åt inbyggda rutiner. Så slipper man skriva kod för sådant som det redan finns kod för. Mvh BER
    - Kristoffer Eriksson <5357> · Text 984 · w8 · kommentar
      
      1987-10-16 03:03
      
      Ärende: Öppna fil i assembler
      
      Fortsättning angående felhanteringen: DOS:et arbetar lite speciellt med felsituationer. När det inträffar fel med koderna 35-43, hoppar DOS direkt till någon felhanterings- rutin för detta fel, och man får alltså ingen retur från anropet med indikering i A på eventuellt fel. Den felrutin som Basic använder (åtminstone på 800), återställer SP till det läge den hade vid inhopp i drivrutinen för det enhetsnamn man använt. Eftersom den metod jag beskrivit inte anropar DOS:et genom denna drivrutin, vore det katastrof att hamna i denna felrutin vid fel. Rutinen mixtrar också med bit 5 i drivenummerbyten i den aktuella filens LFT, som den hittar genom att titta i IX-blockets uppgifter som inte heller finns tillgängliga vid direktanrop till DOS. Du kan disassemblera den rutin som felhanteringspekaren är inställd på normalt och se vad den gör (och sen kan du kanske strunta i den...). Att frånen egen felrutin sen hoppa in i basicens felhantering är inte svårt; det finns ju anropspunkter för det: SOFTNOCO, SOFTCONT och RST.ERR, och något liknande lär väl finnas i ABC80.