'
'
'Adlib detection
'
'
IF Adlib% = -1 THEN
    PRINT "Adlib support found"
ELSE
    PRINT "No Adlib Board present"
END IF

FUNCTION Adlib%
        OUT &H388, &H4: FOR A7 = 1 TO 6: A11 = INP(&H388): NEXT
        OUT &H389, &H60: FOR A7 = 1 TO 35: A11 = INP(&H388): NEXT
        OUT &H388, &H4: FOR A7 = 1 TO 6: A11 = INP(&H388): NEXT
        OUT &H389, &H80: FOR A7 = 1 TO 35: A11 = INP(&H388): NEXT
        Astat1 = INP(&H388)
        OUT &H388, &H2: FOR A7 = 1 TO 6: A11 = INP(&H388): NEXT
        OUT &H389, &HFF: FOR A7 = 1 TO 35: A11 = INP(&H388): NEXT
        OUT &H388, &H4: FOR A7 = 1 TO 6: A11 = INP(&H388): NEXT
        OUT &H389, &H21: FOR A7 = 1 TO 35: A11 = INP(&H388): NEXT
        Astat2 = INP(&H388)
        OUT &H388, &H4: FOR A7 = 1 TO 6: A11 = INP(&H388): NEXT
        OUT &H389, &H60: FOR A7 = 1 TO 35: A11 = INP(&H388): NEXT
        OUT &H388, &H4: FOR A7 = 1 TO 6: A11 = INP(&H388): NEXT
        OUT &H389, &H80: FOR A7 = 1 TO 35: A11 = INP(&H388): NEXT
        Ares1 = Astat1 AND &HE0: Ares2 = Astat2 AND &HE0
        Adlib% = 0: IF Ares1 = 0 AND Ares2 = 192 THEN Adlib% = -1
END FUNCTION