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

Om att utföra ett kommando från registerprogram

12 posts in thread

Johan Olofsson <5809> · Text 7730 · w8 · inlagg

1987-11-12 19:34

Ärende: Om att utföra ett kommando från registerprogram

Jag tänkte lägga in rutinen (från pgm-banken) som gör att man kan utföra ett kommando (t ex "LIST 10-25", eller "RUN Hejsan.bac"). i ett program som utnyttjar ISAMopt.rel. Men si, det gick inte, utan maskinen dök !!! Är det någon som vet varför, och om / hur man löser problemet? vänliga hälsningar /johan ps programmet i monitorn heter KOMMANDO.BAS
- Johan Olofsson <5809> · Text 7731 · w8 · kommentar
  
  1987-11-12 19:38
  
  Ärende: Om att anropa ett pgm med COMMON-deklarationer
  
  Jag borde kanske förklara varför jag behövde kommando-rutinen: Jag tänkte lägga in ett program i vårt meny-system. Det är bara det att programmet av storleksskäl är delat i flera delar, med gemensamma common- variabler. Men om man anropar från meny-programmet , då får man Common-fel. Därför tänkte jag att man från menyn anropar ett program som "gör" RUN - så kommer man runt Common-problemet. Men, som sagt, det funkade inte i ett ISAM-system
  - Stefan Gartz <2600> · Text 7732 · w8 · kommentar
    
    1987-11-13 08:43
    
    Ärende: Om att anropa ett pgm med COMMON-deklarationer
    
    Man kan med div poke ta bort gällande common eller man kan med ett program i listformat som mellanprogram ta bort common. Mellanprogrammet kan ju ha FNCmdline¤ i sig så anropet görs med 'CHAIN 'CHAIN TOM,NÄSTAPGM' och då bryts common beroendet. COMTOP ligger på 65328/9 och COMCS på 65330/1 det är här man ska peeka och poka men jag vet inte vad som står där, plats för experiment. FNComandline eller dyligt finns i flera program i programbanken, det är en funktion som läser komandoraden som man skriver in vid 'RUN PGM' etc eller vid 'CHAIN'. Hoppas du får några ideer av detta svar. Mvh Sgz
    - Johan Olofsson <5809> · Text 7736 · w8 · kommentar
      
      1987-11-13 22:02
      
      Ärende: Om att anropa ett pgm med COMMON-deklarationer
      
      Mitt problem är INTE att anropa program utan Common-variabler. Det går alldeles utmärkt även om det anropade pgm har BAC-format. Problemet är att anropa ett pgm MED common-area FRÅN ett pgm UTAN! Ska försöka med en kort BAS-snutt som bara innehåller Commondeklarationer och en vidare chain. Hoppas att det hjälper.
      - Johan Olofsson <5809> · Text 7737 · w8 · kommentar
        
        1987-11-13 22:11
        
        Ärende: Om att anropa ett pgm med COMMON-deklarationer
        
        Upptäckte däremot att XsMenu0 inte hade något som helst problem att anropa program alldeles oavsett vad de har för common-areor. Då är frågan: Kan man påverka Meny-sidornas innehåll. Som jag har prövat, så har man inte kunna skriva något på meny-sida 2 förrän det redan fanns 6 alternativ på sidan 1. Men så vill jag INTE ha det. På sidan 1 vill jag ha 4 (fyra!) alternativ, och av dessa ska två peka vidare till andra menysidor. Jag funderar alltså på att byta ut firmans meny-system (för just den här tillämpningen) mot Meny0. Men förutsättningen är att man ska kunna få meny-sidorna så som det är mest ändamålsenligt! Tror ni att det går?
      - Kristoffer Eriksson <5357> · Text 7744 · w8 · kommentar
        
        1987-11-15 03:17
        
        Ärende: Om att anropa ett pgm med COMMON-deklarationer
        
        Att anropa program med common-area från ett utan, går alldeles utmärkt. Däremot får du problem om du har sekvensen COMMON 1 -> Utan COMMON -> COMMON 2 för det går lika dåligt som COMMON 1 -> COMMON 2 eftersom COMMON-variablerna från det första programmet ligger kvar när du går till programmet utan. Det här löser man också genom att med POKE ta bort COMMON-arean, eller med en .BAS-snutt utan COMMON.
        
        Johan Olofsson <5809> · Text 7746 · w8 · kommentar
        
        1987-11-15 21:06
        
        Ärende: Om att anropa ett pgm med COMMON-deklarationer
        
        Poke - exakt hur?
        
        Kristoffer Eriksson <5357> · Text 7748 · w8 · kommentar
        
        1987-11-15 22:34
        
        Ärende: Om att anropa ett pgm med COMMON-deklarationer
        
        POKE 65328,PEEK(65292),PEEK(65293) troligen.
    - Johan Olofsson <5809> · Text 7806 · w8 · kommentar
      
      1987-11-24 15:30
      
      Ang. FNCmdline¤ eller vad den nu heter Tack Stefan för ditt svar. Men jag har faktiskt inte lyckats hitta funktionen som hämtar innehållet efter pgm-namnet vid Chain/Run. Kan någon ge exempel på vilka program som man kan anropa med parameter? (Typ: Run TED,T.) Men det måste ju vara pgm som kan listas och läsas.
      - Stefan Lennerbrant <4364> · Text 7811 · w8 · kommentar
        
        1987-11-24 19:26
        
        Ang. FNCmdline¤ eller vad den nu heter Jag skickade in ett litet program som heter CP.BAC och som faktiskt lades in under ABC800/DISKHANT istället för SUBRUTIN eller vad biblioteket nu heter. Visserligen används programmet till att kopiera filer, men det är bara ett exempel. Man skriver alltså RUN CP,MF0:KALLE MF1:PELLE, så kopieras KALLE till PELLE. I programmet anropar man först FNArgv() och får tillbaka antal argument (läggs t.ex. i variabeln Argc). Sedan hämtas alla argumenten (på kommandoraden åtskiljda med mellanslag) ut vektorn Argv¤() - alltså ganska C-inspirerat. Om någo med behörighet vill, så kan han ju flytta programmet till SUBRUTIN-bibl. mvh
      - Lars Gjörling <6825> · Text 7812 · w8 · kommentar
        
        1987-11-24 22:48
        
        Ang. FNCmdline¤ eller vad den nu heter Du kan hitta funktionen FNCmdline¤ i ABC-bladet 1.1986 sid 46. Mvh Lars
  - Nils Wendel <1372> · Text 7733 · w8 · kommentar
    
    1987-11-13 11:20
    
    Ärende: Om att anropa ett pgm med COMMON-deklarationer
    
    Man kan eliminera COMMON-arean med, POKE 65328,PEEK(65292),PEEK(65293) ! - COMTOP = BOTM