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

Rad 25 på 806 och 802

14 posts in thread

Bo Michaelsson <913> · Text 2612 · w8 · inlagg

1986-02-05 09:55

Ärende: Rad 25 på 806 och 802

Följande lilla program ger en ny rad, rad 25, på ABC 800 M. Raden påverkas inte av CHR¤(12). DEF FNRad25 OUT 56,6,57,25 POKE 65362,0,24 ; SPACE¤(80); ; "På denna rad skrivs en text"; RETURN 0 FNEND Rutinen fungerar utmärkt på 800 M men inte på 806. Har någon en idé som fungerar på båda?
- Gunnar Faith-Ell SYSOP <2733> · Text 2614 · w8 · kommentar
  
  1986-02-05 16:06
  
  Ärende: Rad 25 på 806 och 802
  
  På ABC800M kan man om man vill lägga in TVÅ nya rader men då får man flytta upp BASICen lite.
  - Bo Kullmar SYSOP <1789> · Text 2615 · w8 · kommentar
    
    1986-02-05 18:02
    
    Ärende: Rad 25 på 806 och 802
    
    På ABC806 gör man "; CUR(24,0) ..."
    - Bo Michaelsson <913> · Text 2616 · w8 · kommentar
      
      1986-02-06 06:18
      
      Ärende: Rad 25 på 806 och 802
      
      Menar Du att det var så enkelt... Inom parentes kan jag nämna att den blinkande klockan som kan skapas med ett program i klubben inte heller kunde fås att fungera på 806. Jag gissar att det beror på att man har möjlighet att använda stora tecken i denna dator. Vissa av mina experiment tyder på det.
  - Göran Sundqvist <1255> · Text 2617 · w8 · kommentar
    
    1986-02-06 18:08
    
    Ärende: Rad 25 på 806 och 802
    
    genom att programmera om CRTC-kretsen, kan man få 30 rader om 64 tecken.
    - Gunnar Faith-Ell SYSOP <2733> · Text 2621 · w8 · kommentar
      
      1986-02-06 22:31
      
      Ärende: Rad 25 på 806 och 802
      
      Hur gör man det enklast ?
  - Kristoffer Eriksson <5357> · Text 2631 · w8 · kommentar
    
    1986-02-07 19:47
    
    Ärende: Rad 25 på 806 och 802
    
    Har du provat det någon gång? Bildminnet rymmer bara 25.5 rader (2048) tecken. Om man får CRTC:n att visa 26 rader så blir andra halvan av den 26:e raden en kopia av första delen av skärmens första rad! Detta pga att bildminnet är avskilt från resten av RAM:et. Dessutom rymms det bara 25 rader på färgskärmen (ABC812) vars bild är mer utdragen på höjden än den monokromas. PS. Givetvis klarar man fler rader om man gör dem kortare.
- Kristoffer Eriksson <5357> · Text 2630 · w8 · kommentar
  
  1986-02-07 19:41
  
  Ärende: Rad 25 på 806 och 802
  
  Om man betänker att man på 806:an kan nå den 25:e raden med vanlig PRINT och att den enda skillnaden mot övriga rader på skärmen är att den inte scrollar, ser man lätt vad som är felet med din lilla snutt. När SPACE¤(80) har skrivits ut så görs ett radbyte till den 24:e raden som är skärmen sista rad enligt scroll-rutinen, och skärmen scrolla. Därför hamnar den efterföjande texten inte på rätt rad. Använd T¤="På denna rad krivs en text" ; T¤ SPACE¤(80-LEN(T¤)); istället. Då fungerar det på alla maskiner. F.ö. är det en ganska smart metod att POKE:a radräknaren, jag kom själv inte på den för mer än några månader sedan. Tilläggas bör att på 806:an tömmer CHR¤(12) ALLA rader, även den 25:e.
  - Bo Michaelsson <913> · Text 2650 · w8 · kommentar
    
    1986-02-11 05:16
    
    Ärende: Rad 25 på 806 och 802
    
    På 800 M fungerar SPACE¤(80) så att raden töms. Av någon anledning skrivs sedan min textrad på samma (obs! samma) rad och detta har jag utnyttjat för att tömma raden helt. Jag har löst problemet genom att använda ; CUR(24,0) på 806 i stället. Antagligen kan man göra en rutin som går på alla 80x-or; jag ska fundera på det.
    - Kristoffer Eriksson <5357> · Text 2657 · w8 · kommentar
      
      1986-02-11 21:15
      
      Ärende: Rad 25 på 806 och 802
      
      Gör som jag beskrev i mitt inlägg, så fungerar rutinen på alla maskiner! Jag skrev förstås inte ut hela rutinen igen, utan bara den princip som ska användas i stället för ; SPACE¤(80);T¤; ...
      - Bo Michaelsson <913> · Text 2663 · w8 · kommentar
        
        1986-02-12 11:11
        
        Ärende: Rad 25 på 806 och 802
        
        Jag ska prova bums. Tack för tips!
- Patric Ljung <5455> · Text 2652 · w8 · kommentar
  
  1986-02-11 18:56
  
  Ärende: Rad 25 på 806 och 802
  
  Är inte problemet att Texten skrivs ut på rad 24 (23), Det man gör är ju CUR(R,K) fast med POKE. På ABC806 när man skriver CUR(24,0) (spm faktiskt går) och sedan gör så att ett LF måste genereras scrollas skärmen och texten skrivs ut på rad 23 På ABC806 : ; CUR(24,0) SPACE¤(80)+STRING¤(80,8) Text¤; Kom ihåg att ett PRINT tecken (Semikolon) måste skrivas sist annars scrolla skärmen. Generellt: POKE 65362,0,24 ; SPACE¤(80); POKE 65362,0,24 ; Text¤; Förutsatt att CTRC-kretsen är initierad för 25 rader vilket gjordes i rutinen som fanns i kommenterat inlägg. Mvh / PAtric
  - Bo Michaelsson <913> · Text 2662 · w8 · kommentar
    
    1986-02-12 11:00
    
    Ärende: Rad 25 på 806 och 802
    
    Det är givande att få problemet så omfattande belyst som jag har fått hittills. Vad jag önskade innan jag skrev mitt första inlägg var att få en möjlighet att på 806 använda samma rutin som gick i 800 M. Det kunde dock lätt ordnas med ; CUR(24,0) Text¤; i 806. Antagligen får jag leva med olika programversioner men det finns ju värre öden.
    - Patric Ljung <5455> · Text 2711 · w8 · kommentar
      
      1986-02-19 12:04
      
      Ärende: Rad 25 på 806 och 802
      
      Nej, nej! ; FNR25¤(10) 'Detta är rad 25'; Här används rutinen precis som ett vanligt CUR. Observera att ettsemi- kolon måste stå sist för att skärmen inte skall scrolla. DEF FNR25¤(Kolumn) LOCAL Kolumn POKE 65362,Kolumn,24 RETURN '' FNEND Om man först vill rensa rad 25 får man skriva: ; FNR25¤(0) SPACE¤(80) FNR25¤(0) Text¤ (Jämför med CUR) ; CUR(24,0) SPACE¤(80) CUR(24,0) Text¤ Vill man så kan man.... DEF FNC¤(Rad,Kolumn) LOCAL Rad,Kolumn POKE 65362,Kolumn,Rad RETURN '' FNEND Så är funktionen helt utbytbar mot CUR. _OBS_ att den 25 raden måste initieras först. OUT 56,6,57,25 ! Sätt 25 rader Moss / Patric PS. Hoppas alla problem är utredda