+1,1
* 08/02/76 -- 15:00
+42                                 *** 08/02/76 ***
         REF      TEMPW             TEMPORARY WIDTH WORD
+58,58                              *** 08/02/76 ***
         DATA     X'080276'         DATE
+571                                *** 08/02/76 ***
         GET,D1   LN:MXPSTN         GET MAX CARRIER POSITION
         STW,D1   KTMXPSTN          SAVE
         GET,D1   #WIDTH            GET WIDTH
         STW,D1   KTWIDTH           SAVE
         LW,D1    TEMPW             GET OLD WIDTH
         STW,D1   KTTEMPW           SAVE
+603                                *** 08/02/76 ***
         LW,D1    KTMXPSTN          GET MAX CARRIER POSITION
         PUT,D1   LN:MXPSTN         RESTORE
         LW,D1    KTWIDTH           GET WIDTH
         PUT,D1   #WIDTH            RESTORE
         LW,D1    KTTEMPW           GET OLD WIDTH
         STW,D1   TEMPW             RESTORE
+780                                *** 08/02/76 ***
KTMXPSTN RES      1                 K-T MAX CARRIER POSITION
KTWIDTH  RES      1                 K-T WIDTH
KTTEMPW  RES      1                 K-T OLD WIDTH
+END
