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 · ABC800 · Thread

Read Next Sector

6 posts in thread

Patric Ljung <5455> · Text 5010 · w8 · inlagg

1986-09-21 23:07

Ärende: Read Next Sector

Jag vet inte om det tydligt skrivits hur man begär att få läsa nästa sektor när man anropar IO-drivern. Det förhåller sig på följande vis att en ascii-trea (CHR¤(3)) på träffas i filen. När man läser filen med GET får man med sig denna trea, vilket man inte får med INPUT (tacksamt va?). Nästa gång man gör GET läser driver- rutinen in nästa sektor, varför? Därför att det är meningen. I själva verket görs följande (i maskinkod) ; IX pekar på LU.blocket ; A = Läst tecken cp 3 jr nz,_continue ld (ix+19),0 _continue ... Det vill säga: När ett ascii 3 påträffas "nollställs" RAB (Random Access Buffertoffset) Vilket är adressen till DOS-buffertens början. Och eftersom varje buffert ligger på jämna 256-steg innebär en nollställning av det lägre byten att den ställs att peka på början. När man sedan anropar GET ytterligare en gång och (ix+19)=0 läses nästa sektor in, plus informationen som ligger i början av varje sektor. Slutligen: Om man vill få ett program (BASIC) att börja läsa i nästa sektor nollställer man helt enkelt (ix+19). DEF FNRns(Filno) LOCAL LUBL ! Read Next Sector Lubl=PEEK2(65344) WHILE Lubl<>0 IF PEEK2(Lubl+2)=Filno Lublock=Lubl Lubl=PEEK2(Lubl) WEND POKE Lublock+19,0 RETURN -1 FNEND Voila!!! Reserverat för "tryck"-fel.
- Benny Löfgren SYSOP <2615> · Text 5016 · w8 · kommentar
  
  1986-09-22 11:11
  
  Ärende: Read Next Sector
  
  Du har fel! Gör man GET tolkar man ALDRIG det binära data man får in. Att man råkar byta sektor när det kommer en trea beror säkert på att treor oftast står just sist i sektorn. Varför strula med den funktion du beskrev, det enklaste är ju att skriva: POSIT #Lu,POSIT(Lu)+253-MOD(POSIT(Lu),253) ! Align on sector boundary.
  - Patric Ljung <5455> · Text 5079 · w8 · kommentar
    
    1986-09-26 23:58
    
    Ärende: Read Next Sector
    
    Du har rätt! Det visste jag ju, men det tänkte jag inte på, så dum man kan vara. Nja det där med POSIT går inte (i mitt fall). Jag pular i maskinkod. I maskinkod läser jag med GET och när jag får en trea skall jag hoppa till nästa sektor. Nu sker detta lätt genom att nollställa (IX+19) om en trea lästs. Moss / Patric
    - Benny Löfgren SYSOP <2615> · Text 5082 · w8 · kommentar
      
      1986-09-27 15:24
      
      Ärende: Read Next Sector
      
      Läser du via DOS:et? Annars kan du använda Basic:ens IO-rutinen. Då kan du göra input från filen istället.
      - Patric Ljung <5455> · Text 5214 · w8 · kommentar
        
        1986-10-16 11:52
        
        Ärende: Read Next Sector
        
        Jo, jag har glurat på det men jag har inte fått det att fungera med INPUT. Jag skall bara läsa ett tecken i taget. Jag har försökt men ej lyckats. Du kanske vet varför. BC- skall ju innehålla längden. Eller så har jag gjort nåt annat fel. ??? muh / Patric
  - Kristoffer Eriksson <5357> · Text 5146 · w8 · kommentar
    
    1986-10-05 02:07
    
    Ärende: Read Next Sector
    
    POSIT #Lu,POSIT(Lu)+253-MOD(POSIT(Lu),253) blir inte så bra om filposi- tionen går utanför talområdet för heltal, eftersom MOD är en heltals- funktion medan POSIT är en flyttalsdito. POSIT #Lu,INT(POSIT(Lu)/253+1)*253 bör det vara.