DECLARE SUB outw (port%, wdat%)

'Maschinencode laden
DIM SHARED C$
s$ = "5589E55053528B5E068B078B5E088B17EF5A5B585DCA0400"
C$ = ""
FOR i = 1 TO LEN(s$) STEP 2
  C$ = C$ + CHR$(VAL("&H" + MID$(s$, i, 2)))
NEXT

'Beispiel: Word &h5678 an Port &h1234 ausgeben
CALL outw(&h1234, &H5678)

'Subroutine
SUB outw (port%, wdat%)
  CALL absolute(port%, wdat%, SADD(C$))
END SUB