BASIC-slav som simulerar BASIC II

22 posts in thread

• Anders Franzén <5258> · Text 3530 · w8 · inlagg

  1987-05-16 12:32

  Ärende: BASIC-slav som simulerar BASIC II

  Har totat ihop en liten slav till ABC80 som möjliggör nya instruktioner, t ex WHILE-WEND och DEFFNA-LOCAL-RETURN x-FNEND. Några nya funktioner finns också, t ex PEEK2. Slaven klarar långa variabelnamn också. Hela slaven placeras i RAM på en vanlig ABC80 och upptar just nu lite mer än 5K. Målsättningen är att den skall likna BASIC II så mycket som möjligt men det är mycket kvar. Det är riktigt kul att kunna läsa in ABC800-program och kunna lista dem. Tyvärr blir det lite ERROR ibland när ord som YEL dyker upp. Om man kan använda slaven till något vettigt vet jag inte. Nacdelen är att man måste exekvera slav-programmet innan man kan köra BASIC II-program. Å andra sidan så behövs det inte ett enda ingrepp i datorn, det hela sköts mjukvarumässigt. Kul, va?
  • Sven Wickberg <1384> · Text 3531 · w8 · kommentar

    1987-05-16 12:56

    Ärende: BASIC-slav som simulerar BASIC II

    Man ska aldrig säga aldrig - tydligen finns det fortfarande nya kuliga saker att göra med gamla 80. När skickar du in slaven?
    • Anders Franzén <5258> · Text 3546 · w8 · kommentar

      1987-05-17 12:48

      Ärende: BASIC-slav som simulerar BASIC II

      Har nu fått in en del finesser till, t ex TIME¤ som ger tiden. Man kan ställa klockan med LET TIME¤="12:00:00" men jag vet inte om det är så man gör i ABC800. Har dammsugit gamla blad för att hitta skillnader mellan ABC80 och ABC80x men det är svårt. Har fått SYS(5) och SYS(6) att fungera. Vad finns det mer för SYS-ar? Hur får man grafik på ABC80X? I ABC80 skriver man ju ett start-grafik-tecken först på raden. Har lyckats köra några spel men grafiken funkar inte! Hur är det med TAB(0), finns det? NUM¤(2)? ovs osv... hejochhå
      • Ulf Sjöstrand <1208> · Text 3671 · w8 · kommentar

        1987-07-06 21:33

        Ärende: BASIC-slav som simulerar BASIC II

        På samma sätt som David A blev intresserad tror jag att många andra skulle tycka att få veta hur man gör. Hoppas att Du kan samla ihop Dina erfarenheter och arbetssätt och berätta i ABC-bladet nån gång. Det jag vill veta är egentligen inte funktioner och beskrivning av dessa utan hur du *gör* när du funderar ut de olika funktionerna. Eller hur, ni andra? Mvh Ulf S
        • Arne Hartelius <2731> · Text 3672 · w8 · kommentar

          1987-07-07 01:21

          Ärende: BASIC-slav som simulerar BASIC II

          Medhåll ! En disasemblering av Franzéns mörka inre vore på sin plats.
        • Peter Thärning <3707> · Text 3674 · w8 · kommentar

          1987-07-07 19:29

          Ärende: BASIC-slav som simulerar BASIC II

          Håller med. Exakt, arbetssättet, mycket intressant!
      • Jörgen Hansen <5844> · Text 3673 · w8 · kommentar

        1987-07-07 10:51

        Ärende: BASIC-slav som simulerar BASIC II

        TAB(0) finns inte på 80X, bara TAB(1) till TAB(80). I ABC80X skriver man t.ex. WHT för att få vit text, GBLU för att få blå grafik. Man behöver där inte använda CHR¤(151). Följande systemvariabler finns som du inte angav: SYS(2) Enhetens minnesstorlek (bytes) SYS(3) Aktuellt programs storlek (bytes) SYS(4) Ej utnyttjat minnesutrymme (bytes) SYS(8) Nedtryckt tangent medför värdet -1 SYS(11) Programmets startadress SYS(12) Variabelrot till den första variabelns namn
  • Lars Larsson <6622> · Text 3540 · w8 · kommentar

    1987-05-16 23:39

    Ärende: BASIC-slav som simulerar BASIC II

    låter kul, men måsste säga att det är enklare att koppla in en BASICII direkt i ABC'n istället (av den typ jag beskrivit tidigare). Fördelen med en riktig BASICII är ju att den klarar all programvara som är skriven i BASICII. /LL
    • Anders Franzén <5258> · Text 3548 · w8 · kommentar

      1987-05-17 12:54

      Ärende: BASIC-slav som simulerar BASIC II

      Visst kan det vara bra med ett chips man stoppar i någonstans men nackdelen med ett sådant är att det kostar pengar. Skall man skriva eller köra avancerade program gör man det nog inte på en ABC80 idag. En ABC80 är nog mest en kul leksak att rota i tycker jag. Med en enkel BASIC II-simulator kan man känna på hur en ABC800 funkar. Naturligtvis stämmer inte POKE- och PEEK-ar men sådant är ju inte riktig BASIC! När man håller på med sådant har man gjort sig maskin- beroende.
  • David Andersson <5201> · Text 3543 · w8 · kommentar

    1987-05-17 04:06

    Ärende: BASIC-slav som simulerar BASIC II

    Om det inte hade varit så att första april redan hade varit så hade jag inte trott på det där. (Två negationer --> jag tror på det där) Fantastiskt vad man kan göra ändå. Hur bär du dig åt?
    • Anders Franzén <5258> · Text 3549 · w8 · kommentar

      1987-05-17 13:09

      Ärende: BASIC-slav som simulerar BASIC II

      Jaha, jo jag kan berätta lite om hur man kan göra. Det svåra är att den (dumma?) ABC80 är så förbaskat envis. Den vill absolut anropa rutiner i ROM och felrutinen skall absolut hoppa till ROM den med. Det krävs fyra olika rutiner för att få BASIC att funka. Dessa är . Kompileringsrutiner som översätter rader till internkod . Listrutiner som översätter internkod till läsbara rader . Fixrutiner som förbereder programmet för exekvering . Exekveringsrutiner som tolkar internkoden och utför det egentliga arbetet Kompileringsrutinerna envisas med att anropa rutiner i ROM för att kompilera uttryck. Och uttrycks- kompileringen är själva grunden för att få nya funktioner och långa variabelnamn. Man tvingas alltså att skriva om kompileringsrutinerna för många BASIC-satser. Nåja, det går! Listrutinen (listruinen) i ABC80 är också väldigt envis, den skall absolut hoppa tillbaka till absoluta adresser i ROM så man måste skriva om HELA listrutinen. Nåja, det går också att göra! Fixrutinen i ABC80 är snällare. Dessa rutiner är snyggare skrivna då subrutiner används. Det räcker alltså att skriva om en liten bit och lägga till nya fixrutiner för nya BASIC-satser, t ex WHILE. Exekveringsrutinerna i ABC80 är envisa de med! Men det går att lura dem!!!!!! Exekveringen av uttryck är den stora nöten att knäcka. Men om alla fantaster som läser detta tar fram Den Blå och försöker hänga med nu så skall jag förklara hur man kan göra det. På adress 40:65 finns rutinen EVAL. Se hur den tar ett värde (en kod) ur programmet och med dess hjälp slår i en tabell för att veta vart den skall hoppa. Anat att koden 205 hittas, hopp sker då till adress 40:83, eller hur? Titta på rutinen på adress 40:83. Den tar en kod ur programmet och slår med denna upp en ny hoppadress i en annan tabell. Antag att den kod som hittas nu är 132 (!!). Tyvärr hamnar ABC80 UTANFÖR tabellen i ROM men det fattar maskinen inte. Den tar adressen som finns i adress 41:163 som pekar ut adress 255:251. Notera att adress 255:251 ligger i POKE-arean högst upp i minnet och där kan vi lägga en egen rutin. Vi har alltså fått en EXIT ut ur tolken. Så här är problemet med funktioner och variabelnamn löst. Det går säkert att göra på något annat sätt också. Lite jobb alltså att skriva om rutiner som redan finns i tolken med det går med lite vilja. Hejhopp!
      • Stefan Nilsen <6089> · Text 3550 · w8 · kommentar

        1987-05-17 13:33

        Ärende: BASIC-slav som simulerar BASIC II

        Går det inte att lösa problemen genom att härma NEWBAS. Där kan man ju göra en hel del konstiga saker. Mvh Stefan
        • Anders Franzén <5258> · Text 3553 · w8 · kommentar

          1987-05-17 16:55

          Ärende: BASIC-slav som simulerar BASIC II

          Ingen aning. Har fått grafiken att funka genom att låta funktionerna GRED osv ge en sträng med värdet CHR¤(151). ABC800-programmet HANOI.BAS på kassett 20 har jag kört på ABC80 med slaven i minnet. HANOI är ett superbra program som innehåller rekursiva funktioner så att man blir snurrig när man listar det. Men det funkar! Tyvärr fungerar inte INPUT 'text';A¤ men jag skall försöka fixa det. Nu fattas följande instruktioner i slaven: RESUME, SINGLE, DOUBLE, COMMON, TXPOINT, PUT, DIGITS, OPTION BASE och POSIT Tyvärr vet jag inte vad dessa instruktioner gör... Kan någon vänlig själ berätta vad t ex RESUME gör? Dessa funktioner saknas: FGPOINT, FGLINE, FGFILL, FGCTL och FGPAINT Vad gör dessa funktioner för någonting? USING och COUNT finns inte heller. Jag har aldrig skrivit ett ABC800-program så därför vet jag inte vad instruktionerna gör!
          • Gunnar Forssell <1631> · Text 3557 · w8 · kommentar

            1987-05-17 21:30

            Ärende: BASIC-slav som simulerar BASIC II

            RESUME gör det ordet betyder, nämligen återupptar pgmkörningen där det senast blev torsk. En sorts RETURN efter On ERROR GOTO... FG-rutinerna är ju för hr-grafiken, och alltså inget för oss hårda grabbar!
            • Peter Thärning <3707> · Text 3559 · w8 · kommentar

              1987-05-18 22:45

              Ärende: BASIC-slav som simulerar BASIC II

              Fast, jag skulle inte bli ett endaste dugg förvånad om Anders lyckades "programmera in" högupplösningsgrafik också. Eller fyrkanalig ljudåtergivning i ABC80's enda högtalare. Eller om burken började röra på sig när man skrev RUN... Inte ett dugg.
              • Gunnar Forssell <1631> · Text 3561 · w8 · kommentar

                1987-05-19 07:47

                Ärende: BASIC-slav som simulerar BASIC II

                Det skulle nog inte förvåna mig heller... Jag skulle inte heller bli förvånad om han programmerade om NMI't så att man kunde köra PC AT-pgm på burken... Men vem vill ha en AT? AT är för mjukisar som inte vill ha det kul att försöka mjölka burken till det yttersta... Jag menar, finns det någon Anders Franzen i AT-världen?
                • Ulf Dahlen <2422> · Text 3563 · w8 · kommentar

                  1987-05-21 00:58

                  Ärende: BASIC-slav som simulerar BASIC II

                  Vad har Anders Franzen gjort för något bra?
                  • Gunnar Forssell <1631> · Text 3564 · w8 · kommentar

                    1987-05-21 07:47

                    Ärende: BASIC-slav som simulerar BASIC II

                    Tja, det nog enklare att räkna upp det han INTE har gjort. För det är nog det enda dåliga han gjort... Han har gjort TED, TEDTERM och nu BASIC II-slaven.
                    • Bert Holgersson <560> · Text 3565 · w8 · kommentar

                      1987-05-21 12:31

                      Ärende: Vad Anders har gjort

                      Glöm inte ASS. Kombinationen TED - ASS är suverän ! Mvh BER
          • Sven Wickberg <1384> · Text 3558 · w8 · kommentar

            1987-05-18 00:00

            Ärende: BASIC-slav som simulerar BASIC II

            Ur min manual BasicII (Luxor): DIGITS anger antal siffror som skrivs ut med PRINT SINGLE/DOUBLE anger anger enkel/dubbel beräkningsprecision (6/12 siffr) GET COUNT läser angivet antal tecken POSIT positionerar filpekare PUT #filnummer, strängvarialbel skriver en strängvariabel i binär form COMMON överför variablers värde från ett program till annat vid CHAIN OPTION BASE sätter lägsta värde för vektorindex (man behöver alltså inte ha noll) TAB(0) torde inte existera eftersom första kolumnen heter 1. NUM¤(2) fungerar som i ABC80, med den skillnaden att blanksteget före siffran också tas bort om det inte står ett minustecken där.
          • Kristoffer Eriksson <5357> · Text 3562 · w8 · kommentar

            1987-05-20 20:46

            Ärende: BASIC-slav som simulerar BASIC II

            Småplock om BASIC-II: GET kan liksom PUT användas på filer, och inte bara tangentbordet. Syntaxen tillsammans med COUNT är för GET: GET (#fil)(,)Variabel¤ (COUNT antaltecken) RESUME återupptar exekveringen på den plats ett fel inträffade (förutsatt att något har inträffat). Denna plats kan ibland vara mitt inne i en Basic-instruktion, så hellst ska felutgången ur instruktionen bevara en returadress som RESUME kan använda sig av. Om man gör ON ERROR GOTO (utan radnr) i ett program som innehåller RESUME, efter att ett fel inträffat, men innan RESUME påträffats, utlöser det det fel som inträffade från början och stoppar pro- grammet. Att göra RETURN före RESUME till en högre stacknivå än där felet inträffade, så går inte det heller bra. TIME¤ ger både datum och tid, och dem får man ställa med POKE. TXPOINT a,b,0 motsvarar CLRDOT och ...,1 motsvarar SETDOT. Vet inte om det är rad eller kolumn som anges först. Hur klarar du lokala variabler i funktioner? Och t ex RETURN av strängvariabler? Har du löst det själv, eller kikat på ABC800- tolken? COMMON har samma syntax som DIM, men måste ligga före all annan användning av variabler i ett program. Alla COMMON-variabler buntas ihop, checksummas, och bevaras vid CHAIN, så nästa program med samma COMMON (enligt checksumman) kan komma åt dem. ON xx RESUME aa,bb,cc... finns. WIDTH (#filnr),radlängd finns. HEX¤(tal) och OCT¤(tal) finns. VAROOT(variabel) och VARPTR(variabel) för pekare till variabel- posten resp variabelns innehåll finns. PEEK2(adress) finns. SYS(2)=Totalt tillgängligt arbetsminne för Basic. SYS(3)=Programstorlek. SYS(4)=Ledigt minne för variabler o dyl. SYS(8)=Tangent nedtryckt. SYS(10)=IY. SYS(11)=Adress till programmets början (BOFA). SYS(12)=Variabelroten. ATTRIBUTE x finns på ABC806.
            • Anders Franzén <5258> · Text 3566 · w8 · kommentar

              1987-05-21 20:29

              Ärende: BASIC-slav som simulerar BASIC II

              Lokala-variabelrutinen har jag hittat på själv. Jag glodde i ABC80-tolken och kom på hur variablerna in till enradiga funktioner lagras (de är lokala även i ABC80!) och ökade denna "tabell" med de efter LOCAL. För att gasa på det hela placeras en tabell med direktadresser till de olika varaiblerna. Annars får man tacka för förklaringarna av alla kommandon. Nu har man lite att göra!