( NEW ASSIMILATED HOSTAGE CRUDOLA )                             SUBR Hass ( IX= OTHER IY= ME )                                  DELTADIST Y A LDX, DELTADIST 1+ Y ORAX, RZ, ( DELTADIST )       DISTANCE X L LDX, DISTANCE 1+ X H LDX, DISPF X D LDX, 0 E MVI,  A ANA, D DSBC, .ABS 0<, IF, ( SET AT MAXDIST + DIFFER )         MAXDIST Y D LDX, D DAD, ( COMPUTE NEW BIG DISTANCE )            ELSE, H PUSH, ( IMPORT STUFF, THEN SET NEW CALC DISTANCE )      Y PUSHX, H POP, NOWR B LXI, B DAD, XCHG, X PUSHX, H POP, B DAD, POSLEN B LXI, LDIR, H POP, THEN, .REL                           L DISTANCE Y STX, H DISTANCE 1+ Y STX, RET,                                                                                     -->                                                                                                                                                                                                                                                                                                                             ( ASS HOS SPECIAL VECTORING ROUTINE )                           SUBR HASSIM PSW PUSH, B PUSH, X PUSHX,                          AHEAD Y L LDX, AHEAD 1+ Y H LDX, H PUSH, X POPX,                DRPO X A LDX, A ANA, 0<>, IF, B A MOV, DISTVECT CALL,           ELSE, Hass CALL, THEN,                                          CALCXY CALL, OBJSV Y A LDX, HSATP CPI, LOOKASS CZ,              X POPX, B POP, PSW POP,                                         RET,                                                            ( SPECIAL MASTER VECTORING ROUTINE FOR HOSTAGES )               SUBR H!V PSW PUSH,                                              ASSMSV Y A LDX, A ANA,                                          0<>, IF, PSW POP, HASSIM JMP,                                   THEN, B PUSH, CALCXY CALL, B POP, PSW POP, RET,                 : HVECT-ON H!V CV-ON ;                                          -->                                                                                                                             ( FORCE HOSTAGE TO HAVE SAME POSITION AS INTERCEPTOR )          SUBR FUZH ( DE= HOSTAGE, HL= OTHER )                            NOWR B LXI, B DAD, XCHG, B DAD, XCHG, SNATLEN B LXI, LDIR, RET, ( SPECIAL ROUTINE FOR EXITING MAZE )                            SUBR PL-VR PSW PUSH, B PUSH, B A MOV,                           DISTPA CALL,                                                    LOOKASS CALL,                                                   B POP, PSW POP, vect JMP,                                                                                                       : EV:R ZERODXDYAXAY Src Snm ESTPOS                              256 DELTADIST V! PROPDELTAS 63 MAXDIST VB! 0 NOWD VB!           RX-T TIMER!-ON 256 DY!                                          0 DELTAX V! -64 DELTAY V!                                       1 DRPO VB! PL-VR CV-ON ;                                        -->                                                                                                                             