Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
OPEN "com2:9600,n,8,1,cd0,cs0,ds0,op0,rs,tb256,rb256" FOR RANDOM AS #2 LEN = 256
DATA 80, 82,186,251, 2,176,131,238,186,248, 2,184, 3, 0,239,186
DATA 251, 2,176, 3,238, 90, 88,203,
'The previous 2 data lines contain the following assembler code:
' push ax
' push dx
' mov dx, 0x2fb
' mov al, 0x83
' out dx, al
' mov dx, 0x2f8
' mov ax, 0x3 115200 / 3 = 38400
' out dx, ax
' mov dx, 0x2fb
' mov al, 0x3
' out dx, al
' pop dx
' pop ax
' retf
'This code sets the baudrate to 38400
DIM a%(51)
DEF SEG = VARSEG(a%(0))
FOR i% = 0 TO 24
READ d%
POKE VARPTR(a%(0)) + i%, d%
NEXT i%
CALL ABSOLUTE(VARPTR(a%(0)))
DEF SEG
'Just a silly RX terminal program below to test it
PRINT #2, "Hello!"
WHILE INKEY$ = ""
IF NOT EOF(2) THEN
a$ = INPUT$(1, #2)
PRINT a$;
END IF
WEND
PRINT #2, "Bye! "
CLOSE