RP2 sortron commands

: SORTCMD SORTADDR @ RBP! DUP 768 C! DUP 768 C@ = (?branch) TICK (branch) DROP 768 C@ 255 = (?branch) ." Sorter Error" CR ABORT ;
: SORTSLOTS 1 SORTCMD 770 @ ;
: SORTSLOT@ SORTADDR @ RBP! 770 ! 2 SORTCMD 774 @ 772 @ 769 C@ ;
: SORTPULL SORTADDR @ RBP! 770 ! 769 C! 3 SORTCMD 769 C@ ;
: SORTCOLOR@ SORTADDR @ RBP! 780 C@ ;
: SORTCOLOR! SORTADDR @ RBP! 780 C! ;
: SORTPAT@ SORTADDR @ RBP! 774 @ 772 @ ;
: SORTPAT! SORTADDR @ RBP! 772 ! 774 ! ;
: SORTINCOL@ SORTADDR @ RBP! 781 C@ ;
: SORTINCOL! SORTADDR @ RBP! 781 C! ;
: SORTDMG@ SORTADDR @ RBP! 776 @ ;
: SORTDMGMAX@ SORTADDR @ RBP! 778 @ ;
: SORTMATCH SORTADDR @ RBP! 769 C! 4 SORTCMD ;