( CHECK FOR ONTOP )                                             F= ONTL                                                         SUBR ONTOP? <ASSEMBLE                                           0 HOSTAB H LXI, 0 C MVI,                                        LABEL ONTL M E MOV, H INX, M D MOV, H INX,                      D A MOV, E ORA, RZ,                                             D PUSH, X POPX, OBJSV X A LDX, HSATP CPI, ONTL JRNZ,            B PUSH, LRDIST CALL, B POP,                                     A B MOV, 127 CPI, 0<>, IF,                                      DIST-1 X SUBX,                                                  0=, IF, 1 C MVI, ELSE, .ABS 0<, IF, 1 C MVI, THEN, .REL THEN,   ELSE, 0 B MVI, THEN,                                            B DIST-1 X STX, ONTL JMPR,                                      ASSEMBLE>                                                       -->                                                                                                                             ( PLAYERS INTERRUPT LEVEL ONTOP CHECKER )                       SUBR PILOTR                                                     ASSMSV Y A LDX, A ANA, 0<>, IF,                                 ONTOP? CALL, C A MOV, A ANA, RNZ,                               ASCOOL ASSMSV Y MVIX, ( CLEAR ONTOP STATE )                     THEN, LOOKASS CALL, ( CHECK MY ASS )                            RET,                                                            SUBR PILOTC X PUSHX, PILOTR CALL, X POPX, RET,                  SUBR COPYDELTS                                                  BEHIND Y E LDX, BEHIND 1+ Y D LDX,                              BEGIN, D A MOV, E ORA, 0<>, WHILE,                              D PUSH, X POPX,                                                 L DELTADIST X STX, H DELTADIST 1+ X STX,                        BEHIND X E LDX, BEHIND 1+ X D LDX,                              REPEAT, RET,                                                    -->                                                             ( INTERFACES TO THE TERSE WORLD )                                                                                               CODE PROPDELTAS X PUSHX, Y PUSHX, B PUSH,                       vaddr LIYD,                                                     DELTADIST Y L LDX, DELTADIST 1+ Y H LDX,                        COPYDELTS CALL,                                                 B POP, Y POPX, X POPX, NEXT                                                                                                     -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             