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

Text 5157 · w8

19 posts in thread

Lars Davidsson <7020> · Text 5157 · w8 · inlagg

1986-10-06 23:12

Ärende : Attribute på ABC806 Lite frågor om attribute minnet på ABC806 : Vad finns det för olika attribute ? Antag att man i assembler vill styra attributet på ett visst tecken på skärmen, hur gör man då ?
- Jörgen Hansen <5844> · Text 5161 · w8 · kommentar
  
  1986-10-06 23:46
  
  Ärende : Attribute på ABC806 Jag tror det stod någonstans tidigare i detta möte..
  - Hans-Georg Wallentinus <4046> · Text 5164 · w8 · kommentar
    
    1986-10-07 11:16
    
    Ärende : Attribute på ABC806 I servicemanualen för ABC806 står det hå här: För att läsa av ett attribut på en position i attributminnet får man först läsa motsvarande minnesposition i videominnet. Ex. TEcken=PEEK(Vmemadr) : Attribut=INP(53) Då man läser ett tecken i videominnet lägga automatiskt attributet i en registerkrets som kan läsas med INP(53). På motsvarande sätt kan man skriva data till registerkretsen med: OUT 53,attribut : POKE Vmemadr,Tecken Egen fråga: Jag sparar undan skärmen på en variabel, för att snabbt kunna läsas tillbaka den till skärmen. Problemet är att vid återläsning tappar man färgen. Måste man läsa av varje tecken i videominnet ett efter ett och lägga tecken och attribut i var sin variabel, eller finns det någon snabbare metod att behålla färgen (det är samma färg för hela den sparade texten)? Mvh Hans-Georg
    - Bo Kullmar SYSOP <1789> · Text 5165 · w8 · kommentar
      
      1986-10-07 17:48
      
      Ärende : Attribute på ABC806 Du måste läsa av bidminnet tecken för tecken och samtidigt läsa av attributen tecken för tecken. Det tar så lång tid att jag tror att man måste göra det i Assembler. Fråga mig bara inte hur för det vet jag inte.
      - Lars Gjörling <6825> · Text 5171 · w8 · kommentar
        
        1986-10-08 13:32
        
        Ärende : Attribute på ABC806 Den efterfrågade assemblersnutten kan göras så här: 20 DIM Scr¤=4000, Pushscr¤=17, Popscr¤=21 : POKE VAROOT(Scr¤)+4,4000 30 Pushscr¤=CHR¤(33,0,120,1,208,7,237,160,219,53,18,19,120,177,32,246,201) 40 Popscr¤=CHR¤(33,0,120,1,208,7,19,26,211,53,27,235,237,160,235,19,120, 177,32,242,201) 50 DEF FNPushscreen=CALL(VARPTR(Pushscr¤),VARPTR(Scr¤)) 60 DEF FNPopscreen=CALL(VARPTR(Popscr¤),VARPTR(Scr¤)) Anropet Z=FNPushscreen lagrar skärmen (blixtsnabbt) inklusive attribut- värden, som kan vara vilka som helst. Anropet Z=FNPopscreen återskapar skärmbilden (blixtsnabbt) med färgerna bibehållna. Det är kanske väl mycket att avsätta 4000 bytes för detta ibland. Skall fundera på om man inte kan lagra skärmen på ramfloppyn istället. Mvh Lars Gjörling <6825>
        
        Lars Gjörling <6825> · Text 5172 · w8 · kommentar
        
        1986-10-08 14:13
        
        Ärende : Attribute på ABC806 Sorry! Ser att i mitt inlägg 5171 föll avslutningen av rad 20 bort: 20 .........................................4000,SWAP%(4000) Mvh Lars Gjörling <6825>
        
        Bo Kullmar SYSOP <1789> · Text 5179 · w8 · kommentar
        
        1986-10-08 21:35
        
        Ärende : Attribute på ABC806 Det är inte så bra att skriva program/subrutiner här eftersom MSG inläggen försvinner ganska fort. Därför är det bra om du kan skicka in rutinen till programbanken så kan vi lägga ut det i subrutin- biblioteket.
        
        Lars Gjörling <6825> · Text 5181 · w8 · kommentar
        
        1986-10-09 14:32
        
        Ärende : Attribute på ABC806 Jag har lagt rutinen för att spara undan en skärmbild MED FÄRGATTRIBUT på en variabel, och återskapa bilden, i inlådan under namnet SAVESCR.806. Annars är det väl inte så dumt att lägga sådana här korta snuttar (givetvis inte långa program) i mötesinläggen? Jag har själv hittat massor av tips, som jag annars säkert hade missat, just vid läsning av inlägg, både direkt per modem och i ABC-bladets referat. Och alla modemlösa med- lemmar - ABC-bladets referat är ju nästan deras enda chans! Mvh Lars Gjörling <6825>
        
        Bo Kullmar SYSOP <1789> · Text 5183 · w8 · kommentar
        
        1986-10-09 19:00
        
        Ärende : Attribute på ABC806 Jovisst kan man lägga små snuttar här också, men det förutsätter att den också kommer in i programbanken så att den inte försvinner. Det där med att program distribueras via MSG-uttrdagen är ju ännu ett bevis på att vi behöver ha ut programmen.
    - Kristoffer Eriksson <5357> · Text 5168 · w8 · kommentar
      
      1986-10-08 02:50
      
      Ärende : Attribute på ABC806 Om det är samma attibut på hela skärmen behöver du bara läsa av det en gng, och skriva ut det en gång innan du återställer bilden. Då antar jag att du använder manipulerade strängar för att avläsa och skriva tillbaks skärmen. Använder du PRINT är det lite knepigare.
      - Hans-Georg Wallentinus <4046> · Text 5177 · w8 · kommentar
        
        1986-10-08 21:11
        
        Ärende : Attribute på ABC806 Jag har för variabeln Skärm0¤ POKE:at in startpositionen för bildminnet och därefter helt enkelt gjort Skärm1¤=Skärm0¤. Jag skall kolla om det funkar med att lägga in attributet under första tecknet.
        
        Hans-Georg Wallentinus <4046> · Text 5178 · w8 · kommentar
        
        1986-10-08 21:29
        
        Ärende : Attribute på ABC806 Det programsnutt som presenteras i inlägg 5171 är precis vad jag var ute efter!
    - Lars Gjörling <6825> · Text 5515 · w8 · kommentar
      
      1986-11-15 10:38
      
      Ärende : Attribute på ABC806 - Spara undan skärmen Ursäkta mig att jag skriver en kommentar till ett inlägg som skickades in för mer än en månad sedan. Orsaken är att jag först nu vet det enkla svaret på en av frågorna. Resumé: I inlägg 5164 skriver Hans-Georg Wallentinus bl.a. : 'Jag sparar undan skärmen på en variabel, för att snabbt kunna läsas tillbaka till skärmen. Problemet är att vid återläsning tappar man färgen. Måste man läsa av varje tecken i videominnet ett efter ett och lägga tecken och attribut i var sin variabel, eller finns det någon snabbare metod att behålla färgen (det är samma färg för hela den sparade texten)?' I inlägg 5171 gav jag en metod att klara detta även om det finns indivi- duella färger för olika rader och ord (även EL och DBLE), som dock ford- rade en backupvariabel på 4000 bytes. Om det bara skall vara en färg, är dock lösningen enkel: 1) Gå tillfälligt över till ATTRIBUTE 5 (om du inte kör med detta ATTRIBUTE genomgående förståss). 2) Skriv ;YEL; (eller annan färg) omedelbart före återläsning av skärmen! Exempel: 10 INTEGER : EXTEND : ATTRIBUTE 1 20 DIM Bild¤=0, Backup¤=2000 30 POKE VAROOT(Bild¤),208,7,0,120,208,7 ! Flytta Bild¤ till skärmen! ------------------------------------------------------ 100 Backup¤=Bild¤ ! Spara undan skärmen. ------------------------------------------------------ 200 ATTRIBUTE 5 : ; YEL ; : Bild¤=Backup¤ : ATTRIBUTE 1 ! Tillbakaläsning. ------------------------------------------------------ Tillbakaläsningen sker nu med gul färg genomgående. Mvh Lars Gjörling <6825>
      - Patric Ljung <5455> · Text 5516 · w8 · kommentar
        
        1986-11-15 11:23
        
        Ärende : Attribute på ABC806 - Spara undan skärmen Bra. Men det vore nog smartare att göra på följande vis DIM Screen¤=0,Backup¤=2000,Oldattr POKE VAROOT(Screen¤),0,8,0,120,0,8 ...... ! Spara undan skärmen Oldattr=INP(53) ! Läser av aktuell färg Backup¤=Screen¤ .... ! Ladda tillbaka skärmen OUT 53,Oldattr Screen¤=Backup¤ Detta medför att rutinen i sig inte behöver veta vilken färg det skall vara. Samma färg som tidigare laddas tillbaka och du behöver inte göra ATTRIBUTE och ;.
        
        Lars Gjörling <6825> · Text 5519 · w8 · kommentar
        
        1986-11-15 22:07
        
        Ärende : Attribute på ABC806 - Spara undan skärmen Jag är inte helt säker på att ditt förslag är smartare. Om man inte kör med ATTRIBUTE 5 (eller 4), så blir attributvärdet automatiskt 7 (motsvarande WHT) vid varje radbyte. Om man alltså inte händelsevis har avslutat sista printraden på skärmen med semikolon, så blir Oldattr=7, och hela återladdningen sker med vit färg, även om man har ursprungligen använt annan färg. Det var ju i det ursprungliga problemet fråga om ett program, som bara använde en färg, och då kan man väl skriva den med print. Om man har olika färger, kan man använda assemblersnutten i inlägg 5171 där jag använder mig av port 53. F.ö. bör väl Screen¤ och Backup¤ dimensioneras till samma längd. Mvh Lars Gjörling <6825>
        
        Patric Ljung <5455> · Text 5525 · w8 · kommentar
        
        1986-11-16 13:58
        
        Ärende : Attribute på ABC806 - Spara undan skärmen Ja, längden är inte rätt angedd vid VAROOT. Det var väl litet kort tänkt kanske. Du bör nog göra PEEK(30720) och sedan INP(53). Men jag vet inte, för mycket peek är ju inte bra heller. Men ATTRIBUTE är ju inte så bra heller. Du kan ju bara köra programmet på ABC806. Om man gör PEEK(30720) så får du attributet för första tecknet på skärmen (om ABC806), om ej abc806 så händer inget om du kör på nån annan burk. ABc802 eller abc800. Kör du på ABC800C så ligger ju attributen redan i Backup¤ och peek(30720) saknar betydelse, likaså INP(53) och OUT 53,x
        
        Lars Gjörling <6825> · Text 5532 · w8 · kommentar
        
        1986-11-16 23:33
        
        Ärende : Attribute på ABC806 - Spara undan skärmen Jag följer inte riktigt med i tankegången här. Naturligtvis var det bara meningen att använda det här på ABC806, det var den datorn det inlägg gällde, som jag svarade på. Själv använder jag numera alltid funktio- nerna i PUSHSCRN.806, då sparas skärmen inklusive alla individuella färger i HR-minnet istället. F.Ö: Hur blir det vid PEEK(30720), om den skärmbild man skall spara inte har skrivit något på rad 0? Mvh Lars Gjörling <6825>
        
        Patric Ljung <5455> · Text 5543 · w8 · kommentar
        
        1986-11-17 19:27
        
        Ärende : Attribute på ABC806 - Spara undan skärmen Om man inte skrivit nåt på rad 0 blir det nog vitt, tyvärr. Ok, vi skippar det där med INP(53). Man kan ju inte alltid veta om det står nåt på första raden. Skicka med argument till funktionen. DEF FNLoadscrn(Attr) OUT 53,Attr .... .... Detta medför att rutinen blir körbar även på andra burkar än just 806an. ATTRIBUTE finns ju bara på 806. För Gul färg blir ATTR=3 (har jag för mig). Annars kan man göra: Attr=ASCII(YEL) AND 127.
- Lars Gjörling <6825> · Text 5173 · w8 · kommentar
  
  1986-10-08 16:17
  
  Ärende : Attribute på ABC806 Det attributvärde, som lagras i attributminnet är sammansatt av fyra värden, som hämtas från varsin kolumn i tabellen och summeras: Färg Backgr Underln Flash ---------------------------------------------------- 0 = BLK 0 = BLK 0 = NULN 0 = STDY 1 = RED 8 = RED 64 = ULN 128 = FLSH 3 = GRN 16 = GRN 4 = YEL 24 = YEL 5 = MAG 32 = MAG 6 = CYA 40 = CYA 7 = WHT 48 = WHT Exempel: Om X=6+24+64+0 (=94) så motsvarar attributvärdet X att tecknet har färgen CYA med background YEL och understruket (men STDY). Man lägger in det i attributminnet med OUT 53,X (från Basic) och med LD A,94 OUT (53),A från assembler. Eller rättare sagt, värdet förs till utport 53. Attributminnet ligger ju INTE i RAM-minnet och kan inte adresseras direkt, men är sammankopp- lat med bildminnet, så att varje gång man lägger något på en adress i bildminnet, så lagras det aktuella attributvärdet till motsvarande ad- ress i attributminnet. Det aktuella värdet är aktuellt tills det byts, eller - ibland - när man skiftar rad på skärmen. Om man har valt ATTRI- BUTE 1 i ett program (ettan läggs då i adress 65266) så sker ett slags 'reset' av aktuellt attributvärde till 7 (=WHT+svart backgr), när man skiftar rad på skärmen. Om man har valt ATTRIBUTE 5, så sker INTE någon sådan 'reset', ett aktu- ellt attributvärde förblir aktuellt, tills det byts. (Förväxla inte ATTRIBUTE 1, 2, ... som är ett val av attribut-mode, med de attributvärden, som står i tabellen)! När man LÄSER i bildminnet (exempelvis med Tkn=PEEK(Adr) i Basic eller LD A,(Adr) eller dylikt i assembler, så blir det attributvärde, som motsvarar Adr, nytt aktuellt attributvärde! Man kan då avläsa det med Attr=INP(53) i Basic eller IN A,(53) i assembler. Det är inte alls så svårt, om man känner till detta, att styra attributet för visst tecken, vare sig i Basic eller assembler. Mvh Lars Gjörling <6825>