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

Tangentbordsavkänning?

21 posts in thread

Magnus Bodin <4304> · Text 1844 · w8 · inlagg

1985-10-26 19:41

Ärende: Tangentbordsavkänning?

Hur att känna av om tangent är ned- tryckt på ABC800/2/6? Interruptrutinen lägger en flagga och en buffert a' ett tecken, det vet jag, men hur känner man av om tangenten FORTFARANDE HÅLLS NED? SYS(8)=128 i BASIC Men *HUR* gör man i assembler???? Tacksam för svar innan Måndag den 28 Oktober. (Är jag alltför kräsen nu??) / Tacksam, okunnig.
- Benny Löfgren SYSOP <2615> · Text 1845 · w8 · kommentar
  
  1985-10-26 19:56
  
  Ärende: Tangentbordsavkänning?
  
  Enkelt: SYS8 LD A,10H OUT 23H IN A,(23H) AND 8 RET Rutinen returnerar Z om ingen tangent är nertryckt, NZ om någon tangent hålls nere. Observera att det inte finns något sätt att få en 800M/C att göra så här, det går bara med 802/806.
  - Magnus Bodin <4304> · Text 1846 · w8 · kommentar
    
    1985-10-26 22:23
    
    Ärende: Tangentbordsavkänning även på ABC800M/C???
    
    . Men hur lyckas då t.ex. repeteringen av tangenter att fungera, om man inte kan känna av när tangenten släpps. Eller, hur gör man för att känna av när en tangent fortfarande är ned- tryckt på ABC800 M/C ??? Tacksam för snabbt svar. (Gärna innan måndag 28/10)
    - Benny Löfgren SYSOP <2615> · Text 1853 · w8 · kommentar
      
      1985-10-27 12:55
      
      Ärende: Tangentbordsavkänning även på ABC800M/C???
      
      Som jag sa, det GÅR INTE att från datorn känna av om en tangent är ned- tryckt i 800C/M. Repetering sköts lokalt av tangentbordets CPU, det är alltså intelligent ur den synvinkeln.
      - Magnus Bodin <4304> · Text 1935 · w8 · kommentar
        
        1985-11-02 23:30
        
        Ärende: Gammalt tjafs.
        
        Så tangentbordet sköter allt då? Ja' menar hur vet t.ex. INLINE när han skall sluta eka tecken? Var hämtar INCHAR (el. CONSI) sitt tecken? Jag förstår fortfarande inte riktigt hur 800:an sköter tangentbordet. Magiska hälsningar Magnus
  - Patric Ljung <5455> · Text 1860 · w8 · kommentar
    
    1985-10-28 06:53
    
    Ärende: Tangentbordsavkänning?
    
    OUT 35,16 : IF INP(35) AND 8 ; 'Down' ELSE ; 'Released' SYS(8) i Basic är inte 128 utan -1 när tangent är nertryckt och 0 när det inte är det. OBS att man måste vänte ett tag innan man kan läsa av tangenten därför att hela tecknet inte kommit på serie-porten. mvh / Patric Gäsp...
    - Benny Löfgren SYSOP <2615> · Text 1862 · w8 · kommentar
      
      1985-10-28 07:08
      
      Ärende: Tangentbordsavkänning?
      
      Enligt definitionen är SYS(8) <>0 om den är sann, och =0 om den är falsk, man bör alltså inte förutsätta ett visst värde, t ex -1. Observera också att SYS(8) inte nödvändigtvis behöver följas av ett tecken från tangentbordet, vill man ha ett tecken får man vackert vänta på att SYS(5) skall sättas.
      - Patric Ljung <5455> · Text 1870 · w8 · kommentar
        
        1985-10-28 21:10
        
        Ärende: Tangentbordsavkänning?
        
        Den är ju -1, så varför inte säga det. Om det inte är -1 kan man ju inte göra NOT på den. mvh / Patric
        
        Benny Löfgren SYSOP <2615> · Text 1890 · w8 · kommentar
        
        1985-10-30 06:20
        
        Ärende: Tangentbordsavkänning?
        
        Jo, därför att den inte GARANTERAT är -1. Jag har för mig att det står 128 i min BASIC II-konvertering för ABC80.
        
        Benny Löfgren SYSOP <2615> · Text 1891 · w8 · kommentar
        
        1985-10-30 06:21
        
        Ärende: Tangentbordsavkänning?
        
        (SYS(8) är definierad som en boolsk funktion, för att tala i Pascal-termer. I ABC:ns fall innebär falsk en nolla, och sann vilket värde som helst, som är <>0.)
        
        Patric Ljung <5455> · Text 1905 · w8 · kommentar
        
        1985-10-31 23:39
        
        Ärende: Tangentbordsavkänning?
        
        OK, OK, jag har väl inget att sätta emot. Moss / Patric
- Kent Berggren SYSOP <6019> · Text 1847 · w8 · kommentar
  
  1985-10-27 09:11
  
  Ärende: Tangentbordsavkänning?
  
  Varför jobba ,mot porten du kan kolla mot en bit i minnet om tanget är ner tryckt och sedan hämta den på en annan adress. Kommer inte ihåg adressen just nu , men Benny vet vilka det är. Jag har använt mig av det i maskinspråk och det funkar. Jag åter kommer med adressen.
  - Magnus Bodin <4304> · Text 1848 · w8 · kommentar
    
    1985-10-27 10:41
    
    Ärende: Tangentbordsavkänning?
    
    Kolla mot en bit i minnet? Det måste ju vara interrupten som lägger ned den. Jag vill göra detta snabbast möjligt, och har *INTE* tid att vänta på interrupt. Detta skall nämligen göras *ETT ANTAL* gånger. Någon annan kanske vet, hur man alltså mha portar, (eller något snabbare) sätt känner av om en tangent FORTFARANDE är nedtryckt. T.ex. för repetering .... Detta gäller alltså ABC800 M/C, inte 802 eller 806. Tacksam för svar innan Måndag 28/10...
    - Gunnar Faith-Ell SYSOP <2733> · Text 1849 · w8 · kommentar
      
      1985-10-27 10:50
      
      Ärende: Tangentbordsavkänning?
      
      Du kan kort sagt inte få fram om en tangent fortfarande är nedtryckt, vad Kent menade var nog att du mot tangetbords- flaggan kan kolla om en tangent varit (eller ev är) nedtryckt.
      - Magnus Bodin <4304> · Text 1850 · w8 · kommentar
        
        1985-10-27 11:03
        
        Ärende: Tangentbordsavkänning???????
        
        Just! Att läsa av om tangent varit nedtryckt var lätt, det skrev jag i mitt första inlägg. Alltså: Hur känner man av OM EN TANGENT FORTFARANDE ÄR NEDTRYCKT på en ABC800 M/C??? Magiska hälsningar Magnus
        
        Gunnar Faith-Ell SYSOP <2733> · Text 1856 · w8 · kommentar
        
        1985-10-27 16:34
        
        Ärende: Tangentbordsavkänning???????
        
        Just! Det går fortfarande inte!
        
        Magnus Bodin <4304> · Text 1857 · w8 · kommentar
        
        1985-10-27 16:48
        
        Tjat: Tangentbordsavkänning?????? Ok. Jag ger mig, får väl lösas på nå't annat sätt...
    - Kent Berggren SYSOP <6019> · Text 1851 · w8 · kommentar
      
      1985-10-27 11:39
      
      Ärende: Tangentbordsavkänning?
      
      Vad är snabbare en interrupt!! Antingen skriver du en egen intrut rutin eller så kollar du den bit jag talar om. LD A,(65506) ADD A,A JR NC,XXXX ;Om inte C så är det inget tecken att hemta XOR A LD (65506),A ;Töm key flagan LD A,(65507) ;Hämta tecknet Med dena rutin behöver du inte hålla på med porten och inte bry dig om interut. Jag har använt mig av den och den fungerar Alldeles utmörkt.
      - Magnus Bodin <4304> · Text 1852 · w8 · kommentar
        
        1985-10-27 12:13
        
        Ärende: Tangentbordsavkänning?
        
        Hmm... Ursäkta om jag verkar tjatig, men jag vill *INTE* vara beroende av interrupt. Använder jag ovanstående rutin måste jag vänta på att inter- rupt-rutinen sätter tangentbordsflaggan hela tiden. Dessutom kan jag alltså INTE känna av om tangenten FORTFARANDE ÄR NEDTRYCKT och när den släpps. Än en gång: HUR gör man, i assembler, helst via portar, om man vill känna av NÄR EN TANGENT SLÄPPS ?? ABC800 M/C är maskinen frågan gäller. Magiska hälsingar Magnus
        
        Benny Löfgren SYSOP <2615> · Text 1855 · w8 · kommentar
        
        1985-10-27 13:01
        
        Ärende: Tangentbordsavkänning?
        
        Med risk för att verka tjatig, det *GÅR INTE* att lösa på en 800, man *MÅSTE* ha en 802 eller 806, dvs egentligen ska det vara ett ABC55/77/99- tangentbord.
  - Benny Löfgren SYSOP <2615> · Text 1854 · w8 · kommentar
    
    1985-10-27 12:57
    
    Ärende: Tangentbordsavkänning?
    
    Nej, käre Kent, om du hade läst frågan ordentligt så hade du funnit att det inte går att läsa av någon 'bit i minnet', eftersom det inte är funktionen SYS(5) som efterfrågas, utan SYS(8).