Возможно ли взаимодействие с Assembler

XIncludeFile "pbdriverio_Framework.pbi"
 
 
Procedure GetLPT1(hDriver)  ; Процедура чтения данных из LPT1
  Byte.a = PortInp(hDriver, $379)  ; Чтение из порта
  SetGadgetText(0, RSet(Bin(Byte), 8, "0")) ; Отображение в окне.
EndProcedure
 
 
hDriver = OpenDriver_PB_IO(@ErrCode)
If hDriver = 0
  MessageRequester("Ошибка доступа к драйверу", "Код ошибки:  "+Str(ErrCode))
EndIf
 
 
; Открываем окно
OpenWindow(0,0,0,130,70,"lpt status", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_Invisible)  
StringGadget(0, 2, 4, 124, 20, "")
ButtonGadget(9,2,30,128,24,"Прочитать Status LPT 1") ; Экранная кнопка
HideWindow(0,0)   ; Отображение окна на экране
 
Repeat         ; Главный (оконный) цикл программы "Repeat - Until"
  Event=WaitWindowEvent()  ; Идентификатор события
  If Event=#PB_Event_Gadget ; Произошло событие в гаджете
    Gadget=EventGadget()    ; ID гаджета, в котором произошло событие
    If Gadget=9             ; Обнаруден клик по экранной кнопке
      GetLPT1(hDriver)            ; Процедура передачи информации по порт LPT1
    EndIf
  EndIf
Until Event=#PB_Event_CloseWindow ; Когда закрывают окно, цикл будет прерван и прога завершит работу.
 
CloseDriver(hDriver)

Byte.a = PortInp(hDriver, $379)

Procedure PortInp(hDriverID, PortAddress.u) ; Чтение байта из порта, адрес которого указан в 'PortAddress'.
  Protected Result, Buffer.i, BytesReturned.i, OutBuff.i
  Result=0 : Buffer=0 : OutBuff=0
  
  If hDriverID
    Buffer=PortAddress
    DeviceIoControl_(hDriverID, #IOCTL_READ_PORT_UCHAR, @Buffer, 2, @OutBuff, 1, @BytesReturned, 0)
    Result=OutBuff
  EndIf
  
  ProcedureReturn Result
EndProcedure

Procedure.b InPort(Port.u)
  Protected Result.b=0
  EnableASM
  MOV DX, Port
  IN  al,DX
  MOV Result, al
  DisableASM
  ProcedureReturn Result
EndProcedure