SR addition

ONLY CHOICE subroutine outline added

Note: Trap x1E is the get cardinality subroutine.