+311,311          S28882 C.W. 1-4-77 F01                                VPROC
         LI,R5    1                                                     VPROC
+313,313          S28882 C.W. 1-4-77 F01                                VPROC
         LW,R12   FCBUF             LOAD FIRST H.W.                     VPROC
         AND,R12  =X'FFFF'          MASK OFF FIRST PART OF DISP         VPROC
         LW,R13   FCBUF+1           2ND PART OF DISP                    VPROC
         SLD,R12  16                MERGE TWO PARTS                     VPROC
         AW,R12   R5                ADD SIZE TO DISP                    VPROC
         LI,R7    HA(FCBUF)+1       2ND H.W.                            VPROC
         STH,R12  FCBUF+1           STORE 2ND PART                      VPROC
         SLS,R12  -16               POSITION 1ST PART                   VPROC
         STH,R12  0,R7              SAVE FIRST PART                     VPROC
+314              S28882 C.W. F01 1-4-77                                VPROC
VP235    RES      0                                                     VPROC
+351,352          S28882 C.W. 1-4-77 F01                                VPROC
         LW,R12   FCBUF2            LOAD FIRST H.W.                     VPROC
         AND,R12  =X'FFFF'          MASK OFF FIRST PART OF DISP         VPROC
         LW,R13   FCBUF2+1          2ND PART OF DISP                    VPROC
         SLD,R12  16                MERGE TWO PARTS                     VPROC
         AW,R12   R5                ADD SIZE TO DISP                    VPROC
         LI,R7    HA(FCBUF2)+1      2ND H.W.                            VPROC
         STH,R12  FCBUF2+1          STORE 2ND PART                      VPROC
         SLS,R12  -16               POSITION 1ST PART                   VPROC
+357,357          S28882 C.W. F01 1-4-77                                VPROC
         B        VP235                                                 VPROC
+445,445          S28983 C.W. F01 1-18-77                               VPROC
VP330    RES      0                                                     VPROC
         LW,R5    R9                LOAD SIZE                           VPROC
         CI,R5    255                                                   VPROC
+447,449          S28983 C.W. F01 1-18-77                               VPROC
         LI,R5    255                                                   VPROC
VP335    RES      0                                                     VPROC
         STB,R5   0,R7              STORE DATA ENTRY SIZE IN POFBUF     VPROC
+454,454          S28983 C.W. F01 1-18-77                               VPROC
         AWM,R5   BASE4DSP                                              VPROC
+498,498          S28983 C.W. F01 1-18-77                               VPROC
         AI,R5    9                                                     VPROC
+END
