( PATTERNS TO FORM MASTER ARROW PATTERN WITH )                  { : BIN } 2 BASE ! { ; }                                        DATA SYNTBL                                                     ( UP ) DECIMAL 5 B, BIN                                         00000010 B, 00000000 B,                                         00000111 B, 00000000 B,                                         00001111 B, 10000000 B,                                         00000010 B, 00000000 B,                                         00000010 B, 00000000 B,                                         ( LEFT ) DECIMAL 69 B, BIN                                      00100000 B, 00000000 B,                                         01100000 B, 00000000 B,                                         11111000 B, 00000000 B,                                         01100000 B, 00000000 B,                                         00100000 B, 00000000 B,                                         DECIMAL -->                                                     ( PATTERNS TO FORM MASTER ARROW PATTERN WITH )                  ( RIGHT ) DECIMAL 67 B, BIN                                     00010000 B, 00000000 B,                                         00011000 B, 00000000 B,                                         01111100 B, 00000000 B,                                         00011000 B, 00000000 B,                                         00010000 B, 00000000 B,                                         ( DN ) DECIMAL 130 B, BIN                                       00000001 B, 00000000 B,                                         00000001 B, 00000000 B,                                         00000111 B, 11000000 B,                                         00000011 B, 10000000 B,                                         00000001 B, 00000000 B,                                         DECIMAL -->                                                                                                                                                                                     ( SYNAP )                                                       HEX SUBR SYNAP B PUSH,                                          0 ARWP H LXI, ARWL DO, 0 M MVI, H INX, LOOP,                    D A MOV, A ANA, 0<>, IF,                                        0F0F H LXI, 0 ARWP SHLD, 1E05 H LXI, 2 ARWP SHLD,               ELSE, 0F0F H LXI, 0 ARWP SHLD, 1405 H LXI, 2 ARWP SHLD, THEN,   0 B MVI, BEGIN, B C MOV, noded^ CALL, M A MOV, A ANA, 0<>, IF,  noder^ CALL, M A MOV, 0C CPI, CY, IF,                           ARS LDA, A ANA, 0<>, IF, C A MOV, CMA, 3 ANI, A L MOV,          PLYRV NOWD + LDA, L CMP, ELSE, 1 A MVI, A ANA, THEN,            0<>, IF,                                                        -->                                                                                                                                                                                                                                                                                                                             ( CALCULATE PATTERN ADDRESS )                                   B PUSH, D PUSH, B INR, 0F5 A MVI, BEGIN, 0B ADI, LOOP,          A C MOV, SYNTBL H LXI, B DAD, M C MOV, H INX,                   XCHG, 0 ARWP H LXI, B DAD,                                      5 DO, D LDAX, D INX, A M MOV, H INX, D LDAX, D INX, A M MOV,    H INX, H INX, H INX, H INX, LOOP,                               D POP, B POP, THEN, THEN, THEN,                                 B INR, B A MOV, 4 CPI, CY~, END,                                B POP, RET,                                                     DECIMAL -->                                                                                                                                                                                                                                                                                                                                                                                                                                                     ( ARROW DISPLAY TASK )                                          HEX                                                             CODE ARW B PUSH, Y PUSHX, vaddr LIYD, NOWC Y E LDX,             NOWR Y D LDX, SYNAP CALL, Y POPX, B POP, NEXT                   SUBR Acl ( ARROW CLASSIFY )                                     DISTANCE 1+ PLYRV + LDA, A E MOV,                               MAXDIST PLYRV + LDA, RRC, 7F ANI, E CMP,                        CY~, IF, A XRA, ELSE, 1 A MVI, THEN, RET,                       SUBR Pac                                                        Acl CALL, A E MOV, ARS LDA, E CMP, RZ, E A MOV,                 ARS STA, 1 A MVI, MYFLAG ARV + STA, RET,                        CODE Gb? Y PUSHX, B PUSH, vaddr LIYD, NOWD Y C LDX,             NOWR Y D LDX, NOWC Y E LDX, move:node CALL,                     movecheck CALL, CY, IF, D NOWR Y STX, E NOWC Y STX, THEN,       B POP, Y POPX, NEXT                                             DECIMAL -->                                                     ( ARROW TASK FELLA )                                            : ERW DIVG ERASEWRITE DIVG ;                                    : A-T ;TASK: DIVG                                               NULPAT ANIM! 1STWRITE XOR-ON 8 XPAND!-ON                        BEGIN                                                           ( NEED TO CHANGE? )                                             PLYRV GRCD ARS B@ IF Gb? THEN                                   NULPAT ANIM! ERW                                                ESTPOS ARW 0 ARWP ANIM! ERW                                     POA WAIT DIVG 0 END ;                                                                                                           -->                                                                                                                                                                                                                                                                                                                             