( SWAP BYTES BETWEEN DE AND HL )                                SUBR SWPO D LDAX, A C MOV, M A MOV, D STAX, C M MOV, RET,       TABLE HID-T HOSV1 , XC? IFTRUE HOSV2 , HOSV3 , TRSV , IFEND     KEY , 0 , ( CHANGE THIS BUGGER WITH CARE !!!!! )                F= Dmr                                                          SUBR SV-V <ASSEMBLE 0 HID-T H LXI, H PUSH,                      LABEL Dmr XCHG, XTHL, M E MOV, H INX, M D MOV, H INX,           D A MOV, E ORA, 0=, IF, PSW POP, RET, THEN, XTHL, XCHG,         NOWR B LXI, B DAD, SWPO CALL, H INX, D INX, SWPO CALL,          H INX, D INX, SWPO CALL, D INX,                                 OBJSV NOWD - B LXI, B DAD, SWPO CALL, D INX,                    DISTANCE OBJSV - B LXI, B DAD, SWPO CALL, D INX, H INX,         SWPO CALL, D INX, Dmr JMPR, ASSEMBLE>                           CODE swv D POP, B PUSH, SV-V CALL, B POP, NEXT                  : SWV 0 XVSA swv ;                                              -->                                                             ( SWAP NODE MATRIX WITH SAVE AREA )                             XC? IFTRUE                                                      SUBR S-NM 0 NODEMAT H LXI, 0 NMZ D LXI, NNODES DO,              B PUSH, SWPO CALL, H INX, D INX, SWPO CALL, H INX, D INX,       SWPO CALL, H INX, D INX, SWPO CALL, H INX, D INX,               H INX, H INX, H INX, H INX,                                     RVMD MPL0 - DO, 0 M MVI, H INX, LOOP, ( ZAP DIST AND DELTS )    4 DO, SWPO CALL, H INX, D INX, LOOP, ( SWAP RVMDS )             SWPO CALL, H INX, D INX, ( DRAWFLG )                            0 M MVI, H INX, 0 M MVI, H INX, ( NAIL >TREASURE )              B POP, LOOP, RET,                                               CODE SWAPO B PUSH, S-NM CALL, B POP, NEXT                       IFEND                                                           -->                                                                                                                                                                                             