.TITLE HCUSE .ENABL LC ; ; CALL HCUSE(KSET) -- This subroutine controls the use of the ; Hershey character sets. ; ; KSET 1,2,...,n Character set KSET ; 0 Deactivate character sets ; ; Note: If called with no arguments or an invalid argument, character ; set 3 is used. ; .PSECT HCUSE ; HCUSE:: MOV #3,KSetNo ;SET DEFAULT CHARACTER SET TST (R5) ;ANY ARGUMENTS? BEQ 1$ ;BRANCH IF NONE MOV @2(R5),KSetNo ;GET ARGUMENT RTS PC ;RETURN