Hjälp!

2 posts in thread

• Fredrik Sörensson <4930> · Text 8191 · w8 · inlagg

  1988-04-01 18:32

  Ärende: Hjälp!

  Om man vill hämta ett tecken från Tgbrd på 80:an skriver man: A¤=Chr¤(inp(56)-128) Då stannar inte programexekveringen. Om man vill göra samma sak på 800 skriver man: If sys(5) z=sys(6) : get a¤ Om man vill hämta tecken från V24: på 800 utan att stanna programmet skriver man: If peek2(peek2(65500)+6)<>0 Get #N,a¤ Hur ser samma rad ut för PR:porten på ABC802? Sysop ABCVästMon 031 - 555 837
  • Kristoffer Eriksson <5357> · Text 8196 · w8 · kommentar

    1988-04-02 23:21

    Ärende: Hjälp!

    Det finns ingen anledning att göra SYS(6) i ditt 800-exempel. PR: har inte som V24: någon inbuffert som du skulle kunna kolla antal tecken i. Vad du möjligen kan göra är att att kolla om (INP(33) AND 1)<>0. I så fall finns ett tecken färdigt i DART att läsa. Detta förutsätter att sändande enhet inte är stoppad av XOFF, för i så fall kommer aldrig XON att sändas, för det görs först i mottagningsrutinen för PR: som du ju inte anropar så länge inget finns att läsa... Varför ska du ta emot data på PR:? Möjligen kan man öppna V24: och ställa om port-adressen så att den kör på PR-porten i stället, för den drivrutinen har buffert. Då kan förstås inte riktiga V24-porten användas samtidigt.