* Check TUBE presence:
  LDA #&81
  STA &FEE0
  LDA &FEE0
  ROR A (bit 0 (enable host IRQ from 4th data register) to C)
  BCC skiptube
    Issue Service Call &FF
    If returns with 0 then &027A = &FF
  skiptube
  Service call &01 (Y=&0E PAGE=&0E00) naar BASIC en DFS
  Service call &02 (Y=value from &01) naar BASIC en DFS
  OSHWM = Y
  Issue service call &FE (Y=&027A) naar BASIC en DFS

  (other stuff)

  Issue service call &03 (Y=startup options) naar BASIC en DFS

  (other stuff)

  JMP &0400: Copy language to second processor (A=0: no language rom found, A=1: language rom found)


&0400: Copy language to second processor
&0403: Copy ESCAPE flag to second processor
&0406: Transfer data between host and second processor