( WALL PATTERNS )                                               DECIMAL DATA WAL0 12 B, 12 B, 4 B, 3 B,                         -1 , -1 B, 0 B, -1 , -1 B, 0 B, -1 , -1 B, 0 B,                 DECIMAL DATA WAL1 12 B, 12 B, 1 B, 24 B, HEX                    0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 ,                 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 ,                 DECIMAL DATA WAL2 -9 B, 12 B, 1 B, 24 B, HEX                    0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 ,                 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 , 0E0E0 ,                 DECIMAL DATA WAL3 12 B, -9 B, 4 B, 3 B,                         -1 , -1 B, 0 B, -1 , -1 B, 0 B, -1 , -1 B, 0 B,                 -->                                                                                                                                                                                                                                                                                                                             ( WRITE ALL THE WALLS )                                         CODE WALDO DI, H POP, D POP, L D MOV,                           B PUSH, X PUSHX,                                                NBX C MVI, node^ CALL, M C MOV, H INX, M B MOV, H INX,          RCX SBCD, M C MOV, H INX, M B MOV, RCY SBCD,                    D A MOV, NROWS 1- CPI, 0<>, IF,                                 WAL0 X LXIX, 0 C MVI, WALRUS CALL, THEN,                        E A MOV, A ANA, 0<>, IF,                                        WAL1 X LXIX, 1 C MVI, WALRUS CALL, THEN,                        E A MOV, NCOLS 1- CPI, 0<>, IF,                                 WAL2 X LXIX, 2 C MVI, WALRUS CALL, THEN,                        D A MOV, A ANA, 0<>, IF,                                        WAL3 X LXIX, 3 C MVI, WALRUS CALL, THEN,                        X POPX, B POP, NEXT                                             ;S                                                                                                                              