SYS(8) i maskinkod.

6 posts in thread

• Patric Ljung <5455> · Text 1041 · w6 · inlagg

  1985-07-25 10:47

  Ärende: SYS(8) i maskinkod.

  Om jag inte minns fel har det tidigare i ABC800 frågats om hur man läser att en tangent är nertryckt eller inte. Svar kommer här i både BASIC och maskinkod --- BASIC --- 10 OUT 35,16 : Q=INP(35) 20 IF Q AND 8 ; CUR(10,10) '*** DOWN ***' ELSE ; CUR(10,10) '*** UP ***' 30 GOTO 10 --- Maskinkod --- OUT (C),16 INP A,(C) BIT 3,A JR NZ,DOWN ; Tangent inte nertryckt ... DOWN ; Tangent nertryckt Man kanske måste bifoga en fördröjning mellan det att man skriver och det att man läser. Fast troligtvis inte. Mors ---------------------------------------- Patric Ps. Är det någon som vet om man kan programmera så att det avges ett interupt när VÄXLING sker på *KEYDOWN?
  • Benny Löfgren SYSOP <2615> · Text 1046 · w6 · kommentar

    1985-07-26 07:15

    Ärende: SYS(8) i maskinkod.

    Det enklaste sättet är att sätta tangentbordet i UP/DOWN-mod. Då får man interrupt när en tangent trycks ner, och ett när den släpps upp. Man vinner flera fördelar: Det går att hålla reda på exakt vilka tangenter som i ett givet ögonblick är nere och uppe, man kan känna av även SHIFT CTRL och CAPS LOCK. Man kan även skilja på vilken av de tangenter som finns dubblerade som man tryckt ner (ex. siffrorna, SHIFT, RETURN). Nackdelen är att det blir knöligare att få ut ett vettigt resultat, man får ju bara tangentbordskoordinater som måste omvandlas till vettigt resultat.
    • Patric Ljung <5455> · Text 1047 · w6 · kommentar

      1985-07-26 10:13

      Ärende: SYS(8) i maskinkod.

      Dessutom kan det användas till att känna av om flera tangenter är ner- tryckta på samma gång, exempelvis utnyttjbart i spel då man vill skjuta och styra samtidigt. Jag skrev ett inlägg om detta tidigare. En rutin som DÅ simulerar ett vanligt tangent bord är inte så kul att göra. Kommer, som du kanske förstår, att åka på att göra en. jag bävar. Tjena / Patric
      • Benny Löfgren SYSOP <2615> · Text 1051 · w6 · kommentar

        1985-07-27 10:55

        Ärende: SYS(8) i maskinkod.

        De' sa ja' ju! Det är inte SÅ knöligt att göra en rutin för att simulera ett vanligt tangentbord, jag gjorde en på kul en gång. Den fungerade så att man hade sexton (!) konverteringstabeller över vilka koder som skulle skickas om man tryckte ner en viss tangent i kombination med 1) CAPS LOCK, 2) CTRL samt 3) och 4) vänster respektive höger SHIFT- tangent. Visserligen skulle en sådan array ta upp 128 * 16 = 2K, men man skulle kunna lägga den i extraminne om sådant finns. (Givetvis kan man göra den enklare och mindre generell om man skippade konverterings- tabellen och i stället specialbehandlade de olika fallen (T ex är det ganska naturligt att sätta vänster skift = höger skift, på så sätt vinner man vips 1K!). Det finns ett aber och det är att man måste sköta repetitionen för hand då tangentbordet inte tar hand om det i UP/DOWN-mod. (Även klicket måste man göra för hand, men det är inte så svårt...).
        • Patric Ljung <5455> · Text 1052 · w6 · kommentar

          1985-07-27 16:15

          Ärende: SYS(8) i maskinkod.

          OK, det är nog inte så bökigt om man har råd att hållas med tabeller hur som helst. Och skiter i repetering, fast det är ju iofs inte så bökigt. Det som inte är kul är att vissa skall ge uppnedkod andra inte. ABC99an klarar inte att generera klick på kommando (tror jag). om nu det inte är som så att när det är i uppnedmod så genererar den klick om skickar click-enable. (jämför CAPS-LOCK på 77an). Men jag är litet trött efter 30sidor assembler. Mors / Patric
          • Benny Löfgren SYSOP <2615> · Text 1072 · w6 · kommentar

            1985-07-29 07:03

            Ärende: SYS(8) i maskinkod.

            ABC99 ska visst kunna generera klick, det fungerar (har jag för mig) på samma sätt som på 77:an. Däremot är inte koderna för tangenterna samma, tråkigt nog (fast i och för sig, hur skulle de kunna vara det, 99:an har ju många fler tangenter!). Vad menar du med att vissa ger up/down-kod och andra inte?