1 REM Ins{nd av: David Andersson <5201> 1985-10-13 22.02.47 10 REM . SAVE SOFTSIO.16K 20 REM -------------------------------- 30 REM 1985-10-02 40 REM DAVID ANDERSSON 50 REM MEDL. 5201 60 REM 70 REM V24 KOMMUNIKATION. 80 REM FULL DUPLEX, TECKEN ORIENTERAT 90 REM -------------------------------- 100 REM 110 REM Anrop, parameter i <> {r valbar. 120 REM CALL(A+0) st{ng interupt 130 REM CALL(A+3,) init interupt 140 REM CALL(A+6,SPEED+) s{nd hastighet o paritet 150 REM CALL(A+9,SPEED+) mottag.hastighet o paritet 160 REM CALL(A+12,FLAG) s{tt xon/xoff 170 REM X=CALL(A+15) test inbuffer H=l{ngd L=char 180 REM X=CALL(A+18,) get V24 data 190 REM X=CALL(A+21) test utbuffer H=status L=l{ngd 200 REM CALL(A+24,CHAR) s{nd V24 data 210 REM X=CALL(A+27,) get tangentkod 220 REM CALL(A+30,) s{tt cursor 230 REM 240 REM FLYTTA BOFA OM N\DV[NDIGT 250 A%=49152% : REM B\RJAN 260 B%=PEEK(65052%)+SWAP%(PEEK(65053%)) 270 C%=50695% : REM EV NY BOFA 280 IF B%