*DECK S$STRIP 
          IDENT S$STRIP 
          TITLE  S$STRIP - TABLE TO STRIP OVERPUNCHES 
          COMMENT  TABLE TO STRIP OVERPUNCHES 
          ENTRY S$STRIP 
          SPACE 4 
***   S$STRIP - TABLE TO STRIP OVERPUNCHES
* 
*         CALLING SEQUENCE -
* 
*         THIS IS A DATA SEGMENT AND IS NOT CALLED. 
*         THE PROGRAMS WHICH USE IT AS A TABLE INDEX INTO IT -
*         THE INDEX BEING THE DISPLAY VALUE OF THE OVERPUNCHED
*         CHARACTER.  AT THAT OFFSET, THEY WILL FIND 60 BITS OF 
*         USEFUL INFORMATION -- THE RIGHTMOST BYTE CAN BE 
*         EXCLUSIVE OR'D WITH THE OVERPUNCHED CHARACTER TO
*         PRODUCE THE ORIGINAL DIGIT, AND THE LEFTMOST BIT
*         CARRIES THE SIGN INDICATED BY THIS OVERPUNCH. 
* 
*         DOES -
*         RETURNS A DATA VALUE WHICH CAN BE EXCLUSIVE OR'D WITH 
*         THE OVERPUNCH CHARACTER TO GIVE THE ORIGINAL DIGIT. 
* 
*         (SEE CALLS IN S$GNIN AND S$GNRN)
  
  
  
          MACRO  PNCHLST,LOC,DIGIT,SIGN 
          ERRNZ  S$STRIP+LOC_B-*,OUT OF SEQUENCE
S         SET    0
          IFC    EQ, SIGN - ,1
S         SET    1
C         SET    0
          IFC    NE, DIGIT  ,1
C         SET    1R_DIGIT_&_LOC_B 
          VFD    1/S,41/0,18/C
          ENDM
          NOREF  C,S
          SPACE  4
S$STRIP   BSS    0
00        PNCHLST 
01        PNCHLST      1,+
02        PNCHLST      2,+
03        PNCHLST      3,+
04        PNCHLST      4,+
05        PNCHLST      5,+
06        PNCHLST      6,+
07        PNCHLST      7,+
10        PNCHLST      8,+
11        PNCHLST      9,+
12        PNCHLST      1,-
13        PNCHLST      2,-
14        PNCHLST      3,-
15        PNCHLST      4,-
16        PNCHLST      5,-
17        PNCHLST      6,-
20        PNCHLST      7,-
21        PNCHLST      8,-
22        PNCHLST      9,-
23        PNCHLST 
24        PNCHLST 
25        PNCHLST 
26        PNCHLST 
27        PNCHLST 
30        PNCHLST 
31        PNCHLST 
32        PNCHLST 
33        PNCHLST 
34        PNCHLST 
35        PNCHLST 
36        PNCHLST 
37        PNCHLST 
40        PNCHLST 
41        PNCHLST 
42        PNCHLST 
43        PNCHLST 
44        PNCHLST 
45        PNCHLST 
46        PNCHLST 
47        PNCHLST 
50        PNCHLST 
51        PNCHLST 
52        PNCHLST 
53        PNCHLST 
54        PNCHLST 
55        PNCHLST 
56        PNCHLST 
57        PNCHLST 
60        PNCHLST 
61        PNCHLST 
62        PNCHLST 
63        PNCHLST 
64        PNCHLST 
65        PNCHLST 
66        PNCHLST      0,-
67        PNCHLST 
70        PNCHLST 
71        PNCHLST 
72        PNCHLST      0,+
73        PNCHLST 
74        PNCHLST 
75        PNCHLST 
76        PNCHLST 
77        PNCHLST 
  
          END 
