( MOVE CHECKER AND ADD PATH GOODIES )                           HEX                                                             SUBR movecheck                                                  D A MOV, NROWS CPI, RNC, E A MOV, NCOLS CPI, RET,               SUBR S-DF B PUSH,                                               NODMSK C MVI, node^ CALL, NMEXS M SET,                          B POP, 2 B BIT, 0<>, IF, NMDRW M SET, THEN, RET,                SUBR S-RD 2 B BIT, 0=, IF, 1 M MVI, ELSE, 7F M MVI, THEN, RET,  DECIMAL -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ( ADD PATH ROUTINE ) ( THIS IS A MESS! )                        SUBR addpath ( B= DISTANCE TO CRAM IN )                         noder^ CALL, M A MOV, A ANA, RNZ, GMNRP SHLD,                   D PUSH, move:node CALL, GMNRC SDED,                             D POP,                                                          GMNRP LHLD, S-RD CALL,                                          S-DF CALL,                                                      C A MOV, CMA, 3 ANI, A C MOV,                                   GMNRC LDED, noder^ CALL, S-RD CALL,                             S-DF CALL,                                                      RET,                                                            -->                                                                                                                                                                                                                                                                                                                             