SUB find
' Find the PC-488 board
'
    shared pc488seg%
    pc488seg% = &H4000
initlp:
    if pc488seg%=&HF000 then print "No PC-488 board found" : STOP
    def seg=pc488seg%
    s$=""
    for i=50 to 58 : s$=s$+chr$(peek(i)) : next
    if s$<>"CEC 01000" then pc488seg%=pc488seg%+&H400 : goto initlp
    print ""
END SUB
SUB transmit (s$,status%)
    shared pc488seg%
    call transmit488 (s$,status%,pc488seg%)
END SUB
SUB transmit488 INLINE
    $INLINE "TBXMIT.com"
END SUB
SUB receive (r$,length%,status%)
    shared pc488seg%
    call receive488 (r$,length%,status%,pc488seg%)
END SUB
SUB receive488 INLINE
    $INLINE "TBRECV.com"
END SUB
SUB send (addr%,s$,status%)
    shared pc488seg%
    call send488 (addr%,s$,status%,pc488seg%)
END SUB
SUB send488 INLINE
    $INLINE "TBSEND.com"
END SUB
SUB enter (r$,length%,addr%,status%)
    shared pc488seg%
    call enter488 (r$,length%,addr%,status%,pc488seg%)
END SUB
SUB enter488 INLINE
    $INLINE "TBENTER.com"
END SUB