*                  CATALOG NO704032    SENSE SWITCH SIMULATION
       SYSTEM   SIG7FDP
         DEF      L:TSS,L:SSS,L:RSS
SR4      EQU     11
L:SSS    RES      0                 SET-SENSE-SWITCH
         LI,9     X'40'
L:SSSC   BAL,10   TSSCOM
         STS,8    12,7
         B        *SR4
L:RSS    RES      0                 RESET-SENSE-SWITCH
         LI,9     0                 RESET BIT
         B        L:SSSC            CLEAR
L:TSS    RES      0                 TEST SENSE SWITCH
         BAL,10   TSSCOM            SETUP
         CW,9     12,7              SENSE-SWITCH
         BCS,4    TSS1              SET
         LCI      0                 RESET
         B        *SR4
TSS1     LCI     15
         B        *SR4
TSSCOM   LW,7     0
         LI,8    X'40'
         LCW,6    6                 RIGHT SHIFT COUNT
         SLD,8    0,6
         XW,8     9                 MASK TO 9
         B        *10
         END

