POODOO INHINT
  CA Q
  TS ALMCADR

  TS BANKCALL
  CADR VAC5STOR

  INDEX ALMCADR
  CAF 0
ABORT2 TC BORTENT

OCT77770 OCT 77770
  CA V37FLBIT
  MASK FLAGWRD7
  CCS A
  TC WHIMPER -1

  TC DOWNFLAG
  ADRES STATEFLG

  TC DOWNFLAG
  ADRES REINTFLG

  TC DOWNFLAG
  ADRES NODOFLAG

  TC BANKCALL
  CADR MR.KLEAN
​​​​​​​  TC WHIMPER


MORE
Eeek! I don't speak Ferret.
I think “POODOO” is Huttese.
As in "Bantha Poodoo"?
Exactly. But this code predates Star Wars...
Not with an HCF, but with a WHIMPER.