( SPECIAL VECTOR GETTERS AND PUTTERS )                          CODE PUSH:CCR 0 H MVI, H D MOV, Y PUSHX, vaddr LIYD,            NOWC Y L LDX, NOWR Y E LDX, Y POPX, H PUSH, D PUSH, NEXT                                                                        CODE PUSH:CCRD 0 H MVI, H D MOV, Y PUSHX, vaddr LIYD,           NOWC Y L LDX, NOWR Y E LDX, NOWD Y A LDX,                       Y POPX, H PUSH, D PUSH, A E MOV, D PUSH, NEXT                                                                                   CODE COGO  ( exchage BC with VCOR )                              vaddr LHLD, VCOR D LXI, D DAD,                                  M A MOV, C M MOV, A C MOV, H INX,                               M A MOV, B M MOV, A B MOV, NEXT                                : SETCO 1+ VCOR V! ;                                                                                                            DECIMAL -->                                                                                                                     ( MORE STUFF )                                                  : Rip INTR VB@ NOWR VB! INTC VB@ NOWC VB! ;                     : Snm NOWR VB! NOWC VB! ;                                       : Sim DUP ROLL INTR OVB! INTC OVB! ;                            : ON:TARGET? PUSH:CCR INTR VB@ = SWAP INTC VB@ = AND ;          : POA MYFLAG V^ FLAG!-ON ; : Src START-COL START-ROW ;          CODE GRCD XTIX, Y PUSHX,                                        vaddr LIYD, NOWD X A LDX, A NOWD Y STX,                         NOWR X A LDX, A NOWR Y STX,                                     NOWC X A LDX, A NOWC Y STX, Y POPX, X POPX, NEXT                : EMOV DIVG ZERODXDYAXAY ;                                      SUBR FREEZE F-F H LXI, M INR, RET,                              SUBR FREEZE? F-F LDA, A ANA, RET,                               CODE FREEZETH FREEZE CALL, NEXT                                 CODE UNFREEZE .ABS F-F H LXI, M DCR, 0<, IF, 0 M MVI, THEN,     .REL NEXT -->                                                   