^C12'************************* BAS_LIB.BI ************************************

'INTERN:

TYPE RegType
     ax    AS INTEGER
     bx    AS INTEGER
     cx    AS INTEGER
     dx    AS INTEGER
     bp    AS INTEGER
     si    AS INTEGER
     di    AS INTEGER
     flags AS INTEGER
END TYPE
DIM SHARED Eing AS RegType
DIM SHARED Ausg AS RegType
DECLARE SUB INTERRUPT(intnum AS INTEGER, Eing AS RegType, Ausg AS RegType)