BAC - filer

5 posts in thread

• Peter Goldmann <5080> · Text 8047 · w8 · inlagg

  1988-02-06 20:36

  Ärende: BAC - filer

  Hur gör man för att avlägsna error 202? Jag har gjort ett litet program där jag kan skriva in godtyckliga tal från 0 - 254 på filen i önskad position med posit och ; #1,CHR¤(K). Men det lönar ju föga om man inte vet vad som gör filen list-skyddad. Det gäller systemprogram som i äldre upplagor var o-skyddade, som väl knappast kommer att underhållas, men kan förbättras - exvis anpassas till TANGbord 99, etc.
  • Lars Michael Jogbäck <5862> · Text 8048 · w8 · kommentar

    1988-02-06 20:54

    Ärende: BAC - filer

    Är programmet i fråga Squeezat som måste du köra någon form av Unsqueez eller Desqueez på det. Om det bara är listskyddat så hänvisar jag till program som sätter/tar bort sådana i programbanken (FIND LISTSKYDD) Mvh /LMJ PS FIND LISTSKYD ska det vara inte FIND LISTSKYDD!! Ds
    • Peter Goldmann <5080> · Text 8049 · w8 · kommentar

      1988-02-07 01:01

      Ärende: BAC - filer

      Jag har tagit hem den rekommenderade filen - men det verkar vara ett ofullständigt program. Jag tog hem både LISTSKYD och LSTSKYDD (som bara går till abc80) Eftersom jag kör på en 806:a så blev det inget. Fler tips välkomna.
      • Hans Holmberg <2838> · Text 8052 · w8 · kommentar

        1988-02-07 02:03

        Ärende: BAC - filer

        Bara ett påpekande: när du använder PUT #f,x ska du också använda GET #f,x¤ vid läsning och PUT #f,x¤ vid skrivning. För att ta bort listskydd på osquezzade program för ABC80x: OPEN Filname¤ AS FILE 1 POSIT #1,2 GET #1,Byte¤ Byte¤=CHR¤(ASC(Byte¤) AND 253) ! Maska bort statusbit för listskydd. POSIT #1,2 PUT #1,Byte¤ CLOSE 1 Och för att listskydda program: OPEN Filename¤ AS FILE 1 POSIT #1,2 GET #1,Byte¤ Byte¤=CHR¤(ASC(Byte¤) OR 2) ! Sätt statusbit för listskydd. POSIT #1,2 PUT #1,Byte¤ CLOSE 1 Det man gör är att ändra i programstatusbyten som ligger som byte 2 (räknat från 0) i filen. Varje bit betyder följande: Bit nr. Bitvikt Kommentar ==================================== 7 128 Ny error hantering används 6 64 HR-grafik används 5 32 Program ligger högt i minne 4 16 Flyttal finns i COMMON 3 8 Flyttal är allokerade 2 4 Dubbel precision används 1 2 Programmet listskyddat 0 1 Programmet är fixat (syntaxkontroll har genomförts) Hoppas att du fått reda på något användbart. Mvh Hasse
      • Kristoffer Eriksson <5357> · Text 8057 · w8 · kommentar

        1988-02-07 22:21

        Ärende: BAC - filer

        Som <5862> redan berättat, så finns det minst två orsaker till error 202: 1) Vanligt listskydd, som kan åstadkommas på några olika sätt 2) Squezning av program De systemprogram som ger error 202 (UFD.BAC, SYS.BAC osv) är squezade, inte bara listskyddade. Då hjälper naturligtvis inga program som avsedda för fall 1. Squezning innebär att radnummer, ":" och mycket annan onödig "kosmetika" i ett program avlägsnas, i avsikt att krympa programmet storlek, med biverkningen att det också blir omöjligt att lista. Vad man kan göra åt det är att desqueza programmet, varvid dummy-- radnummer och dummy-variabelnamn genereras så det blir listbart igen, men det kommer inte att se ut exakt som originalet. Inget av de bra desqueze-program som finns, finns i programbanken. Något "amatörförsök" finns dock.