( CLEAR BLOCK COMMAND - USES THE PATTERN BOARD )                HEX ( THIS VERSION CLEARS A 1K BLOCK )                          DATA p& 0 B,                                                    SUBR c1k 20 A MVI, 07A OUT, p& H LXI,                           L A MOV, 078 OUT, H A MOV, 079 OUT,                             E A MOV, 7B OUT, D A MOV, 7C OUT,                               1 A MVI, 7B OUT,                                                7F A MVI, 7D OUT, 7 A MVI, 7E OUT, RET,                         F= cll                                                          CODE CL 4000 D LXI, <ASSEMBLE                                   LABEL cll c1k CALL, D A MOV, 4 ADI, A D MOV, cll JP,            NEXT ASSEMBLE>                                                  DECIMAL -->                                                                                                                                                                                                                                                     ( GROWL OUT ALREADY DUG FEATURES )                              HEX F= Nrp F= rpE F= Rpm                                        CODE f& <ASSEMBLE H POP, L A MOV, RPDIR STA, ( A= DIR )         H POP, D POP, L D MOV, B PUSH, X PUSHX, Y PUSHX,                ( GET MAX DIST IF IT EXISTS )                                   A C MOV, noder^ CALL, M A MOV, 2 CPI, Nrp JC,                   RPMD STA,                                                       ( YES - IS IT EQUAL TO MAX DISTANCE )                           MPL0 RVMD - B LXI, B DAD, M CMP, CY~, IF, M A MOV, RPMD STA,    A ANA, B DSBC, A M MOV, B DAD, ( FIX RVMD TO MAX ! )            ( IF SO ONLY REPAINT IF MY DIRECTION IS 2 THRU 3 )              RPDIR LDA, 2 CPI, Nrp JC, THEN,                                 -->                                                                                                                                                                                                                                                             ( THEN SET DELTAS )                                             LABEL rpE 10 IN,                                                NDX0 MPL0 - B LXI, B DAD, M A MOV, RPDX STA,                    SGNA CALL, RPDX 1+ STA, NDY0 NDX0 - B LXI,                      B DAD, M A MOV, RPDY STA, SGNA CALL, RPDY 1+ STA,               ( AND THEN COORDINATE VALUES )                                  NBX C MVI, node^ CALL, M E MOV, H INX, M D MOV, H INX,          RPX SDED, M E MOV, H INX, M D MOV, RPY SDED,                    ( LASTLY DISTANCE COUNTER )                                     A XRA, RPD STA,                                                 -->                                                                                                                                                                                                                                                                                                                                                                                             ( FUDGE DELTA VALUES TO SAVE TIME )                             RPDX LHLD, H DAD, H DAD, RPDX SHLD,                             RPDY LHLD, H DAD, H DAD, RPDY SHLD,                             ( LOOP TO DO THE MAD PAINTING )                                 LABEL Rpm                                                       RPX LHLD, RPDX LDED, D DAD, RPX SHLD, XCHG,                     RPY LHLD, RPDY LBCD, B DAD, RPY SHLD, RPCOL LBCD,               rv-p X LXIX,                                                    SLEZR2A CALL, X INXX, X INXX, 0 X E LDX, X INXX,                0 X D LDX, X INXX, write CALL,                                  RPMD LDA, A C MOV,                                              RPD LDA, 8 ADI, RPD STA, C SUB, Rpm JM,                         8 CPI, Nrp JRNC, C A MOV, RPD STA, Rpm JMPR,                    LABEL Nrp Y POPX, X POPX, B POP, NEXT ASSEMBLE>                                                                                 -->                                                             ( GROWL ALL EXISTING PATHS )                                    HEX                                                             CODE RP& H POP, L A MOV, ( A= DIR )                             H POP, D POP, L D MOV, B PUSH, X PUSHX, Y PUSHX,                ( REJECT GRUNGY VALUES )                                        2 CPI, Nrp JC,                                                  ( GET MAX DIST IF IT EXISTS )                                   A C MOV, noded^ CALL, M A MOV, A ANA, Nrp JZ,                   RPMD STA, rpE JMP, NEXT                                         -->                                                                                                                                                                                                                                                                                                                                                                                                                                                             