( POSITION COMPUTERS ) <STKD                                                                                                    : C-c COLSIZE * COLSIZE 2 / + 159 - ;                           : R-c ROWSIZE * ROWSIZE 2 / + 103 - ;                                                                                           : COMP:XY R-c ROWDEV 2 / ROWDEV RND - + SWAP                    C-c COLDEV 2 / COLDEV RND - + SWAP ;                                                                                            STK> -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ( NODE ZAMMERS )                                                ( SUBR node^ D= ROW E= COL C= DISP, OUT HL= ^ )                 SUBR node^ D PUSH,                                              D A MOV, RLC, A L MOV, RLC, RLC, L ADD, D ADD, E ADD, A E MOV,  0 D MVI, E L MOV, D H MOV, D DAD, D DAD, ( HL= A*3 )            XCHG, H DAD, H DAD, H DAD, ( A*8 ) XCHG, D DAD, D DAD, D DAD,   C E MOV, 0 D MVI, D DAD, ( ADD DISPLACEMENT )                   0 NODEMAT D LXI, D DAD,                                         D POP, RET,                                                     CODE NODE^ EXX, B POP, H POP, D POP, L D MOV, node^ CALL,       H PUSH, EXX, NEXT                                               SUBR noded^ node^ CALL, D PUSH, MPL0 D LXI, D DAD, D POP, RET,  SUBR noder^ node^ CALL, D PUSH, RVMD D LXI, D DAD, D POP, RET,  -->                                                                                                                                                                                             ( TEST GROTTO DRAWN AND SET GROTTO DRAWN )                      CODE S-GD H POP, D POP, L D MOV, B PUSH,                        NODMSK C MVI, node^ CALL, NMDRW M SET, B POP, NEXT                                                                              CODE G-D? H POP, D POP, L D MOV, B PUSH,                        NODMSK C MVI, node^ CALL, M A MOV, NMDRM ANI, A L MOV,          0 H MVI, B POP, H PUSH, NEXT                                                                                                    -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ( TEST:REL AND MOVE:NODE )                                      ( D=ROW,E=COL,C=REL   COL ROW REL TEST:REL --- DIST )           SUBR test:rel C A MOV, MPL0 ADI, A C MOV, node^ CALL,           M A MOV, RET,                                                   ( CODE TEST:REL EXX, B POP, H POP, D POP, L D MOV, test:rel CALLA L MOV, 0 H MVI, H PUSH, EXX, NEXT )                           ( MOVE:NODE INSTRUCTIONS TO INCREMENT )                         SUBR INSTR D INR, RET, E DCR, RET, E INR, RET, D DCR, RET,      SUBR move:node B PUSH, ( C=DIR, D=ROW,E=COL )                   0 B MVI, INSTR H LXI, B DAD, B DAD, B POP, PCHL,                CODE MOVE:NODE EXX, B POP, H POP, D POP, L D MOV,               move:node CALL, D L MOV, 0 D MVI, D H MOV,                      D PUSH, H PUSH, EXX, NEXT -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   