*DECK PICTURE                                                           004557
          IDENT  PICTURE                                                004558
 PICTURE  TITLE  PICTURE - MURAL PICTURE PROCESSOR                      004559
*                                                                       004560
*  ENTRY POINTS                                                         004561
*                                                                       004562
          ENTRY  PICTUR                                                 004563
*                                                                       004564
*  EXTERNAL REFERENCES                                                  004565
*                                                                       004566
          EXT    MURAL                                                  004567
          EXT    PICTEMP                                                004568
*                                                                       004569
*  PICTURE PROCESSOR                                                    004570
*         EXPECTS PICTURE CHARACTERS IN PICTEMP                         004571
*         EXITS MURAL IN MURAL                                          004572
*         EXITS PICTURE INFO IN SQUASHBU                                004573
*                                                                       004574
 PICTUR   EQ   *+1S17        ENTRY/EXIT                                 004575
                                                                        004576
          SB7    1           B7 = 1 THRU OUT ENTIRE ROUTINE             004577
          SA1    X1                                                     004578
          SB5    X1          SET  POINTER                               004579
          SA1    B5+11       ***** PICK UP EDIT COUNT FROM SQBUF        004580
          SX6    B0          ZERO TO                                    004581
          SX7    X1                                                     004582
          SA7    PICECNT     STORE EDIT COUNT                           004583
          SA6    PICTURH     HISTORY                                    004584
          SA6    PICTUDC     DECIMAL COUNT                              004585
          SA6    PICTLDC     LEAD DEC CNT                               004586
          SA6    PICTUEC     EXTERNAL COUNT                             004587
          SA6    PICTUIC     INTERNAL COUNT                             004588
          SA6    PICTUEF     EXCESS FLAG                                004589
          SA6    NONMURL                                                004590
          SA6    CHTEMP                                                 004591
          SA6    PIFFLAG                                                004592
          SA6    CSFLAG      CURRENCY SIGN FLAG                         004593
          SA6    PMFLAG      + OR - FLAG                                004594
          SA6    RFFLAG      REPEAT FLOAT FLAG                          004595
          SA6    TRFLAG      TRAILING + OR - FLAG                       004596
          SA6    REPGATE     TURN OF REPEAT FLAG                        004597
          SA6    REPCNT      ZERO REPEAT COUNT                          004598
          SA6    CHARNUM     SET FOR FIRST CHARACTER                    004599
*                                                                       004600
*  PICTURE SCAN ROUTINE                                                 004601
*                                                                       004602
          RJ   GETBYT        GET FIRST BYTE OF PICTURE                  004603
                                                                        004604
          JP   PICIPKM       NORMAL FIRST BYTE                          004605
          JP   PICEXL        EXCESS LENGTH                              004606
          JP   SETMAT        END OF PICTURE                             004607
                                                                        004608
 PICEXL   SX6    1                                                      004609
          SA6    PICTUEF     SET EXCESS FLAG                            004610
 PICTGB   RJ   GETBYT        GET NEXT BYTE OF PICTURE                   004611
                                                                        004612
          JP   PICNORL       NORMAL                                     004613
          JP   PICEXL        EXCESS LENGTH                              004614
          JP   SETMAT                                                   004615
                                                                        004616
 PICIPKM  RJ     IPAKMRL     INIT PACK MURAL                            004620
                                                                        004630
 PICNORL  SA1    PICTCCH     CURRENT CHAR (X1)                          004640
          SA2    PICTCCB     CURRENT CHAR BIT (X2)                      004650
          SA3    PICTUPM                                                004660
          BX3    X2*X3       IS CHAR A (+OR-)                           004670
          ZR   X3,PICTUCP    NO- GOTO IS CHAR A (P)                     004680
          SA3    PICTURH     PICK UP PICTURE HISTORY                    004690
          BX2    X2*X3       HAS CHAR APPEARED BEFORE                   004700
          ZR   X2,PICTUCP    NO - GOTO IS CHAR A (P)                    004710
          MX6    1                                                      004720
          SA6    RFFLAG      SET REPEAT FLOAT FLAG FOR + OR -           004730
          SX2    100B                                                   004740
          SX3    7           CHANGE CURRENT BYTE TO REPEAT              004750
          BX3    X1*X3                                                  004760
          BX6    X3+X2                                                  004770
          SA6    A1                                                     004780
          SA1    PICTILS                                                004790
          BX6    X1                                                     004800
          SA6    PIFFLAG                                                004810
 PICTUCP  SA3    PICTUPL                                                004820
          SA2    PICTCCB                                                004830
          BX3    X3*X2       IS CURRENT CHAR A (P)                      004840
          ZR   X3,PICTDB     NO - GOTO B AFTER D                        004850
          SA3    PICTUIC     IF 9 A X Z * ETC                           004860
          ZR   X3,PICTDB     NO - GOTO B AFTER D                        004870
          SX6    100B        CHANGE BYTE TO TRAILING                    004880
          SA6    PICTCCH                                                004890
          SA1    PICTPTB                                                004900
          BX6    X1                                                     004910
          SA6    A2          CHANGE CHAR TO BIT TRAILING                004920
 PICTDB   SA2    PICTURB                                                004930
          IX2    X1-X2       IS CURRENT CHAR A (B)                      004940
          NZ   X2,PICTETC    NO - GO TO EDIT COUNT                      004950
          SA2    PICTURH     YES                                        004960
          SA3    PICTUDB                                                004970
          BX3    X2*X3       DOES THIS B FOLLOW A D                     004980
          ZR   X3,PICTETC    NO                                         004990
          SA2    PICTUBT     YES                                        005000
          SA3    PICTBTB                                                005010
          BX6    X2                                                     005020
          SA6    PICTCCH     CHANGE CHAR CODE TO TRAIL                  005030
          BX6    X3                                                     005040
          SA6    PICTCCB     CHANGE CURRENT CHAR BIT TO TRAIL           005050
 PICTETC  SA2    PICECNT     EDIT COUNT                                 005060
          ZR   X2,PICTINC    IS EDIT COUNT GREATER THAN ZERO            005070
          NG   X2,PICTINC    NO - GO TO INCREMENT                       005080
          SA2    PICTUR9     YES                                        005090
          IX2    X1-X2       IS CURRENT CHAR A (9)                      005100
          NZ   X2,PICTINC    NO - GOTO INCREMENT                        005110
          SA2    B5+9        ***** YES                                  005120
          PL   X2,PICTINC    IF NO EDIT FLAGS                           005130
          LX2    59                                                     005140
          PL   X2,PICTCPF                                               005150
          SX6    1RZ                                                    005160
          SA6    PICTCCH     CHANGE CURRENT CHAR TO Z                   005170
          SA2    PICTUZB                                                005180
          BX6    X2                                                     005190
          SA6    PICTCCB     CHANGE CURRENT CHAR BIT TO Z               005200
          EQ   PICTINC       INCREMENT                                  005210
                                                                        005220
 PICTCPF  LX2    59          IS CHECK PROTECT FLAG ON                   005230
          PL   X2,PICTFDF    IF PROTECT FLAG NOT ON                     005240
          SX6    1R*                                                    005250
          SA6    PICTCCH     CHANGE CURRENT CHAR TO *                   005260
          SA2    PICTASB                                                005270
          BX6    X2                                                     005280
          SA6    PICTCCB     CHANGE CURRENT CHAR BIT TO *               005290
          EQ   PICTINC       INCREMENT                                  005300
                                                                        005310
 PICTFDF  LX2    59          IS FLOAT DOLLAR FLAG ON                    005320
          PL   X2,PICTINC    NO GO TO INCREMENT                         005330
          SA1    PICTDSL     YES                                        005340
          SA2    PICTDSB                                                005350
          BX6    X1                                                     005360
          SA6    PICTCCH     CHANGE CURRENT CHAR TO $                   005370
          BX6    X2                                                     005380
          SA6    PICTCCB     CHANGE CURRENT CHAR BIT TO $               005390
 PICTINC  SA1    PICTCCB                                                005400
          SA2    PICTDSB                                                005410
          BX2    X1*X2       IS CURRENT CHAR $                          005420
          ZR   X2,PICTDEC    NO                                         005430
          MX6    1                                                      005440
          SA6    CSFLAG      SET CURRENCY SIGN FLAG                     005450
          SA2    PICTURH     YES                                        005460
          BX2    X1*X2       HAS $ APPEARED BEFORE                      005470
          ZR   X2,PICTDEC    NO                                         005480
          SA6    RFFLAG      SET REPEAT FLOAT FLAG FOR $                005490
          SA1    PICTDSR     YES                                        005500
          BX6    X1                                                     005510
          SA6    PICTCCH     CHANGE CURRENT CHAR TO $ (REPEAT           005520
          SA2    PICDSRB                                                005530
          BX6    X2                                                     005540
          SA6    PICTCCB     CHANGE CURRENT CHAR BIT TO $ (RE           005550
 PICTDEC  SA2    PICTZAB                                                005560
          BX2    X1*X2                                                  005570
          ZR   X2,PICTDE1                                               005580
          SA1    PIFFLAG                                                005590
          SA2    PICTURH                                                005600
          BX6    X1+X2                                                  005610
          SA6    A2                                                     005620
 PICTDE1  SA1    PICTCCH                                                005630
          SB1    X1                                                     005640
          SA1    PRECTAB+B1  PICK UP INFORMATION ON CURRENT CHARACTER   005650
          SA3    PICTUDC     DECIMAL COUNT                              005660
          LX1    45          IS DECIMAL BIT SET                         005670
          PL   X1,PICTEXC    IF DECIMAL BIT NOT SET                     005680
          SX6    X3+B7       INCREMENT DEC COUNT BY 1                   005690
          SA6    A3                                                     005700
          SA3    PICECNT                                                005710
          IX6    X3-X2       DECREMENT EDIT CNT BY 1                    005720
          SA6    A3                                                     005730
 PICTEXC  LX1    1           IS EXTERIOR BIT SET                        005740
          PL   X1,PICTITC    IF EXTERIOR BIT SET                        005750
          SA3    PICTUEC                                                005760
          SX6    X3+B7       INCREMENT EXTERNAL COUNT BY 1              005770
          SA6    A3                                                     005780
 PICTITC  LX1    1           IS INTERIOR BIT SET                        005790
          PL   X1,PICTVPD    NO - GOTO VOR.                             005800
          SA3    PICTUIC                                                005810
          SX6    X3+B7       INCREMENT INTERNAL COUNT                   005820
          SA6    A3                                                     005830
 PICTVPD  SA1    PICTCCB                                                005840
          SA2    PICTVRP                                                005850
          BX2    X1*X2       IS CURRENT CHAR A (VOR.)                   005860
          ZR   X2,PICLEGL    NO - GOTO LEGAL                            005870
          SA2    PICTUDC     YES                                        005880
          SX6    X2                                                     005890
          SA6    PICTLDC     DECIMAL CNT TO LEAD DEC CNT                005900
          SX7    B0                                                     005910
          SA7    A2          ZERO DECIMAL COUNT                         005920
 PICLEGL  SA1    PICTURH                                                005930
          SA2    PRECTAB+B1                                             005940
          MX3    23                                                     005950
          LX3    38                                                     005960
          BX2    X2*X3                                                  005970
          LX2    54                                                     005980
          BX2    X1*X2       IS CURRENT CHAR LEGAL TO RIGHT             005990
          ZR   X2,PICPLUS    YES - GOTO PLUS                            006000
          SA2    PICTILS     NO PICK UP ILLEGAL SYNTAX BIT              006010
          SA3    A1                                                     006020
          BX6    X2+X3       OR BAD SYNTAX TO HISTORY                   006030
          SA6    PICTURH                                                006040
 PICPLUS  SA1    PICTCCB     CURRENT CHAR BIT IN (X1)                   006050
          SA2    PICTUPM     PLUS OR MINUS                              006060
          BX2    X1*X2       IS CURRENT CHAR + OR -                     006070
          ZR   X2,PICTORH    NO - GOTO OR BIT TO HISTORY                006080
          SA2    PICTTSI     YES PICK UP TRAIL SIGN MASK                006090
          SA1    PICTURH                                                006100
          BX2    X2*X1       IS CURRENT + OR - TRAILING                 006110
          MX6    1                                                      006120
          NZ   X2,PICPLUS1   JUMP IF YES                                006130
          SA6    PMFLAG      SET PLUS MINUS FLAG                        006140
          EQ   PICTORH                                                  006150
                                                                        006160
 PICPLUS1 SA6    TRFLAG      SET TRAIL SIGN FLAG FOR + OR -             006170
          SA1    PICTCCB                                                006180
          LX1    55                                                     006190
          BX6    X1                                                     006200
          SA6    A1          CHANGE CURRENT BIT TO TRAILING             006210
 PICTORH  SA1    PICTCCB                                                006220
          SA2    PICTURH                                                006230
          BX6    X1+X2       OR CURRENT CHAR BIT TO HISTORY             006240
          SA6    A2                                                     006250
          SA2    PICTMRL                                                006260
          BX2    X1*X2       DOES CURRENT CHAR GO IN A MURAL            006270
          NZ   X2,PICTGB     NO - GOTO GET NEXT BYTE                    006280
          SA1    PICTVRP                                                006290
          SA2    PICTURH                                                006300
          BX1    X1*X2       HAS . OR V APPEARED                        006310
          ZR   X1,PICTPKM    NO GOTO PAKMRL                             006320
          SA1    PICFSYM                                                006330
          SA2    PICTCCB     IS CURRENT CHAR A -                        006340
          BX1    X1*X2       FLOAT OR SUPPRESS CHAR                     006350
          ZR   X1,PICTPKM    NO                                         006360
          SX6    1R9         CHANGE CURRENT                             006370
          SA6    PICTCCH     CHAR TO A 9                                006380
 PICTPKM  SA1    PICTCCH     YES - PICK UP CURRENT CHAR                 006390
          RJ   PAKMRL        PLACE CHAR IN MURAL                        006400
                                                                        006410
          JP   PICTGB        GOTO GET NEXT BYTE                         006420
          TITLE  VARIABLES AND CONSTANTS                                006430
*                                                                       006440
*  PICTURE VARIBLES                                                     006450
*                                                                       006460
 PICTLDC  BSSZ   1                     LEAD DECIMAL COUNT               006470
 PICECNT  BSSZ   1                     EDIT CNT                         006480
 PICTUDC  BSSZ   1                     DECIMAL COUNT                    006490
 PICTUEC  BSSZ   1                     EXTERNAL COUNT                   006500
 PICTUIC  BSSZ   1                     INTERNAL COUNT                   006510
 PICTUEF  BSSZ   1                     EXCESS FLAG                      006520
 PICTURH  BSSZ   1                     PICTURE HISTORY                  006530
 PIFFLAG  BSSZ   1                                                      006540
 CSFLAG   BSSZ   1                     BIT 59=1 IF CURRENCY SIGN ENCNTRD006550
 PMFLAG   BSSZ   1                     BIT 59=1 IF + OR - ENCOUNTERED   006560
 RFFLAG   BSSZ   1                     NON-ZERO IF REPEAT FLOAT ENCNTRD 006570
 TRFLAG   BSSZ   1                     NON-ZERO IF TRAILING + OR - MET  006580
*                                                                       006590
*  PICTURE CONSTANTS                                                    006600
*                                                                       006610
 PICTUR1  DATA   1                     DECIMAL 1                        006620
 PICTU33  DATA   33B                   OCTAL 33 = CHAR 0                006630
 PICTURB  DATA   02B                   B CHAR CODE                      006640
 PICTUR9  DATA   44B                   9                                006650
 PICTUBT  DATA   101B                  B(T)                             006660
 PICTDSR  DATA   103B                  $ (REPEAT)                       006670
 PICTILS  DATA   20B                   ILLEGAL SYNTAC BIT               006680
 PICTMCD  DATA   40B                   MINUS DECIMAL FLAG               006690
 PICTADF  DATA   100B                  ACTUAL DECIMAL FLAG              006700
 PICDSRB  DATA   1000B                 $(REPEAT)-BIT                    006710
 PICTBTB  DATA   2000B                 B(TRAIL)-BIT                     006720
 PICTPTB  DATA   4000B                 P(TRAILING) - BIT                006730
 PICTUDB  DATA   100000B               D-BIT                            006740
 PICTCDB  DATA   300000B               C (OF -CR-) AND D (OF -DB-) BITS 006750
 PICTUPM  DATA   1400000B              PLUS AND MINUS BIT               006760
 PICTUPR  DATA   10000000B             . BIT POSITION                   006770
 PICTDSB  DATA   40000000B             $-BIT                            006780
 PICTPMD  DATA   41400000B             BIT FOR (+,-,$)                  006790
 PICTASB  DATA   100000000B            *-BIT                            006800
 PICTUZB  DATA   200000000B            Z-BIT                            006810
 PICTZAB  DATA   300000000B            Z*-BIT                           006820
 PICTUPL  DATA   400000000B            P (LEADING) BIT CODE             006830
 PICEDIT  DATA   77777777770000000747B  NUMERIC EDITING MASK            006840
 PICEMUR  DATA   0377772000B           BITS WHICH FORCE MURAL           006850
 PICTVRP  DATA   1010000000B           V.-BITS                          006860
 PICTAED  DATA   6000000B              ALPHANUMERIC EDITING MASK        006870
 PICTURV  DATA   1000000000B           BIT FOR (V)                      006880
 PICTPVP  DATA   1410004000B           V P(L). P(T)-BITS                006890
 PICTURS  DATA   2000000000B           S BIT POSITION                   006900
 PICTU9B  DATA   4000000000B           9 BIT POSITION                   006910
 PICTPLT  DATA   400004000B            P(L) AND P(T)-BITS               006920
 PICTSVP  DATA   3400000000B           SVP BITS                         006930
 PICTMRL  DATA   3400004000B           SVP(L) AND P(T)-BITS             006940
 PICTURX  DATA   10000000000B          X BIT POSITION                   006950
 PICTURA  DATA   20000000000B          A BIT POSITION                   006960
 PICFSYM  DATA   341400000B            FLOATING BITS (*$Z-+ LEAD)       006970
 PICSVPM  DATA   34377777747B          SVP BIT MASK                     006980
 PIC9SVP  DATA   77777777770377773747B   9SVP MASK                      006990
 PICTTSI  DATA   77777777774300376747B  + AND - TRAILING MASK           007000
 SETMAT   TITLE  MORE CODE                                              007010
*                                                                       007020
*  SETMAT                                                               007030
*    COMPUTES SIZE                                                      007040
*    COMPUTES DECPT LOCATION                                            007050
*    COMPUTES MURAL LENGTH                                              007060
*    COMPUTES NUMOF INSERTION CHAR                                      007070
*    COMPUTES CLASS                                                     007080
*    GIVES DIAGNOSTICS                                                  007090
*                                                                       007100
 SETMAT   SA1    PICTUEC                                                007110
          SX6    X1                                                     007120
          SA6    B5+2        ***** EXTERNAL COUNT TO PICTURE SIZE       007130
          SA1    PICTUIC     INTERNAL LENGTH IN CHARACTERS              007140
          SA2    =XMXPICSZ   MAXIMUM PICTURE SIZE                       007150
          IX2    X1-X2                                                  007160
          MI   X2,SETMAT1    IF ITEM IS LESS THAN MAX                   007170
          SX6    B7                                                     007180
          SA6    PICTUEF     SET ERROR FLAG                             007190
 SETMAT1  BSS    0                                                      007200
          SA1    PICTURH     CHECK PICTURE HISTORY FOR                  007210
          SA3    PICTONCE    A/Z/X/9/*   BITS                           007220
          ZR   X1,PICTILL                                               007230
          BX2    X1*X3                                                  007240
          NZ   X2,PICTNORM   BITS ON, NORMAL PROCEDURE                  007250
          SA3    RFFLAG      IF REPEAT FLOAT SIGN ON,                   007260
          NG   X3,PICTNORM   GO TO NORMAL PROCEDURE                     007270
          SA3    PICTURS                                                007280
          BX3    -X3*X1      BY PASS NON-ANSI PIC S. CASE               007290
PICTILL   BSS    0           FOR ILLEGAL OPEN/CLOSE PARENTHESES         007300
          ZR   X3,PICTUR     EXIT                                       007310
*                       FOLLOWING CODE WILL CHANGE THE                  007320
*                       PICTURE CLASS TO ALPHANUMERIC                   007330
          MX6    1                                                      007340
          LX6    49                                                     007350
          SX7    3           CLASS = 3 (ALPHANUMERIC)                   007360
          SA7    B5+14       ***** INTO SQBUF                           007370
          SA6    MURAL       CHANGE MURAL WORD TO X                     007380
 D160     EQU    160D                                                   007381
          SX6    D160                                                   007382
          RJ   DIAG          PICTURE ERROR                              007390
                                                                        007420
          EQ   PICTERR       SET PICTURE ERROR FLAG 
                                                                        007440
PICTONCE  DATA   34300000000B         A,Z,X,9,* BITS IN HISTORY         007450
 PICTNORM BSS    0                                                      007460
          SA1    B5+5        ***** IS POINT LOCATION IN SQASHBU ZER     007470
          NZ   X1,PICTEDT    NO - GOTO EDIT TEST                        007480
          SA2    PICTURH                                                007490
          SA1    PICTPVP                                                007500
          BX3    X1*X2                                                  007510
          NZ   X3,PICTPRA                                               007520
          SX6    B0                                                     007530
          SA6    PICTUDC                                                007540
          EQ   PICTSDC                                                  007550
                                                                        007560
 PICTPRA  SA1    PICTUPR                                                007570
          BX3    X1*X2       HAS . APPEARED                             007580
          NZ   X3,PICTAD                                                007590
          SA1    PICTURV                                                007600
          BX1    X1*X2       HAS V APPEARED                             007610
          NZ   X1,PICTULP                                               007620
          SA1    PICTPLT                                                007630
          BX1    X1*X2       HAS LEADING P OCCURED                      007640
          ZR   X1,PICTSDC                                               007650
 PICTULP  SA1    PICTUPL                                                007660
          BX1    X1*X2                                                  007670
          NZ   X1,PICTSDC                                               007680
          SA1    PICTPTB     NO                                         007690
          BX1    X1*X2                                                  007700
          ZR   X1,PICTSDC                                               007710
          SA1    PICTURV                                                007720
          BX1    X1*X2                                                  007730
          SA2    PICTUDC                                                007740
          ZR   X1,PICTIMD                                               007750
          SA2    PICTLDC                                                007760
 PICTIMD  SA1    PICTUIC                                                007770
          IX6    X1-X2       DEC CNT = INTERIOR CNT - DEC CNT           007780
          SA6    PICTUDC                                                007790
          PL   X6,PICTSDC                                               007800
          SA2    PICTMCD     YES                                        007810
          BX6    -X6+X2                                                 007820
          SA6    A6                                                     007830
 PICTSDC  SA1    PICTUDC                                                007840
          BX6    X1                                                     007850
          SA6    B5+5        ***** STORE DECIMAL COUNT IN SQBUF         007860
          EQ   PICTEDT                                                  007870
                                                                        007880
 PICTAD   SA1    PICTADF                                                007890
          SA2    PICTUDC                                                007900
          BX6    X1+X2                                                  007910
          SA6    A2                                                     007920
          EQ   PICTSDC                                                  007930
                                                                        007940
 PICTEDT  SA1    PICEMUR                                                007950
          SA2    PICTURH                                                007960
          BX1    X1*X2       EDITING                                    007970
          SX6    B0                                                     007980
          SX3    0                                                      007990
          ZR   X1,PICTMOT1  NO GO TO MURAL OUT                          008000
*                                                                       008010
*                                                                       008020
*                THE NEXT FEW INSTRUCTIONS DETERMINE AND ADD THE        008030
*                FOUR LEADING INDICATOR BITS TO THE MURAL               008040
*                                                                       008050
          SA1    PICTZAB                                                008060
          BX1    X1*X2                                                  008070
          NZ   X1,PICTEDT1   IF * OR Z HAVE APPEARED                    008080
          SA1    RFFLAG                                                 008090
          ZR   X1,PICTEDT4   IF NO REPEATED FLOATING                    008100
 PICTEDT1 SX6    11B         HARD CASE, FLOAT/SUPPRESS BITS             008110
          SA1    B5+9        *****                                      008120
          PL   X1,PICTEDT2   IF NO CLAUSE EDITING                       008130
          SA1    B5+8        *****                                      008140
          NZ   X1,PICTEDT3   IF BWZ                                     008150
          SA1    B5+9        *****                                      008160
          LX1    57                                                     008170
          NG   X1,PICTEDT4   IF -FLOAT SIGN- CLAUSE                     008180
 PICTEDT2 SA1    PICTU9B                                                008190
          BX1    X1*X2                                                  008200
          NZ   X1,PICTEDT4   IF 9*S                                     008210
 PICTEDT3 SX1    4                                                      008220
          BX6    X1+X6       ADD -ALL FLOAT/SUPPRESS- BIT               008230
 PICTEDT4 SA1    PICTCDB                                                008240
          BX1    X1*X2                                                  008250
          NZ   X1,PICTEDT5   IF -CR- OR -DB-                            008260
          SA1    TRFLAG                                                 008270
          ZR   X1,PICTEDT6   IF NO TRAILING + OR -                      008280
 PICTEDT5 SX1    10B                                                    008290
          BX6    X1+X6       ENSURE -HARD CASE- BIT SET                 008300
 PICTEDT6 SA1    PMFLAG                                                 008310
          SA2    CSFLAG                                                 008320
          BX2    X1*X2                                                  008330
          NZ   X6,PICTEDT7   IF NOT -EASY CASE- SO FAR                  008340
          NZ   X1,PICTEDT8   IF LEADING + OR -                          008350
          EQ   PICTEDT9                                                 008360
                                                                        008370
 PICTEDT7 NZ   X2,PICTEDT8   IF LEADING INSERTION                       008380
          SA2    CSFLAG                                                 008390
          BX2    X1+X2                                                  008400
          ZR   X2,PICTEDT9   IF NO LEADING INSERTION                    008410
          SA1    PICTZAB                                                008420
          SA2    PICTURH                                                008430
          BX1    X1*X2                                                  008440
          NZ   X1,PICTEDT8   IF Z OR * HAS APPEARED                     008450
          SX2    10B                                                    008460
          IX2    X2-X6                                                  008470
          NZ   X2,PICTEDT9   IF NOT CASE OF TRAILER ONLY                008480
 PICTEDT8 SX2    12B                                                    008490
          BX6    X2+X6       SET -HARD CASE- AND INSERTS BITS           008500
 PICTEDT9 SA2    MURAL       FIRST WORD OF MURAL                        008510
          SA1    B5+8        *****                                      008520
          ZR   X1,PICTEDTA   NOT BWZ                                    008530
          SX1    4                                                      008540
          BX6    X6+X1       SET BWZ                                    008550
PICTEDTA  BSS    0                                                      008560
          LX6    51D                                                    008570
          BX6    X6+X2       ADD INDICATOR BITS                         008580
          SA6    A2                                                     008590
*                                                                       008600
*                                                                       008610
          SA1    B5+9        ***** CLAUSE EDITING                       008620
          PL   X1,PICTA9S    NO - GOTO NO 9 S                           008630
          SA1    B5+8        ***** BLANK WHEN ZERO                      008640
          NG   X1,PICTMOT    YES - GO TO MURAL OUT                      008650
 PICTA9S  SA1    PICTURH                                                008660
          SA2    PICTU9B                                                008670
          BX1    X1*X2       ANY NINE (S)                               008680
          NZ   X1,PICTMOT    YES - GOTO MURAL OUT                       008690
          SX6    B7                                                     008700
          SA6    B5+8        ***** SET BLANK WHEN ZERO                  008710
          SA1    PICTURH                                                008720
          SA2    PICTASB                                                008730
          BX2    X2*X1       HAVE ANY * APPEARED                        008740
          ZR   X2,PICTMOT    NO                                         008750
          SX6    2                                                      008760
          SA6    B5+9        ***** SET CHECK PROTECT FLAG               008770
 PICTMOT  SA1    PAKMRPL     PICK UP MURAL WORD LENGTH                  008780
          SX6    X1+1                                                   008790
          SA3    NONMURL                                                008800
 PICTMOT1 SA6    B5+10       ***** STORE MURAL LENGTH IN SQASHBU        008810
          SA1    MURAL                                                  008820
          BX7    X3                                                     008830
          LX1    5                                                      008840
          SA7    NONMURL     SAVE MURAL VALUE                           008850
          BX6    X1+X6                                                  008860
          SA6    A1          PLACE MURAL LENGTH IN MURAL                008870
          SA1    PICTUEC                                                008880
          SA2    PICTUIC                                                008890
          IX6    X1-X2       EXTERIOR CNT - INTERIOR CNT                008900
          SX1    64          CHECK NUM OF INSERTIONS                    008910
          IX1    X6-X1                                                  008920
          PL   X1,MANYINS                                               008930
          SA6    B5+11       ***** NUM OF INSERTIONS                    008940
 PICBADC  SA1    PICTURH                                                008950
          LX1    56          WAS BAD CHARACTER DETECTED                 008960
          PL   X1,PICTEXF    NO                                         008970
 D158     EQU    158D                                                   008971
          SX6    D158                                                   008972
          RJ   DIAG          YES - OUTPUT DIAG                          008980
                                                                        009010
          EQ   PICTERR       SET PICTURE ERROR FLAG 
  
 PICTEXF  SA1    PICTUEF     EXCESS FLAG ON                             009020
          ZR   X1,PICSYNT    NO                                         009030
 D159     EQU    159D                                                   009031
          SX6    D159                                                   009032
          RJ   DIAG          YES - OUTPUT DIAG                          009040
                                                                        009070
          EQ   PICTERR       SET PICTURE ERROR FLAG 
  
 PICSYNT  SA1    PICTURH                                                009080
          LX1    55          WAS ILLEGAL SYNTAX DETECTED                009090
          PL   X1,PICLASS    NO                                         009100
 D160     EQU    160D                                                   009101
          SX6    D160                                                   009102
          RJ   DIAG          YES - OUTPUT DIAG                          009110
                                                                        009140
          SX7    0                                                      009150
          SA7    B5+10       *****                                      009160
          EQ   PICTERR       SET PICTURE ERROR FLAG 
  
                                                                        009190
 PICLASS  SA1    NONMURL                                                009200
          ZR   X1,PICLASS1                                              009210
 D161     EQU    161D                                                   009211
          SX6    D161                                                   009212
          RJ   DIAG                                                     009220
                                                                        009250
          SX7    0                                                      009260
          SA7    B5+10       ***** ZERO MURAL LENGTH                    009270
          EQ   PICTERR       SET PICTURE ERROR FLAG 
  
 PICLASS1 BSS    0                                                      009280
          SA2    PICTURH                                                009290
          SA1    PICTURA                                                009300
          BX1    -X1*X2      ONLY A                                     009310
          NZ   X1,PICLASN    NO-GOTO NUMERIC                            009320
          SX6    3           SET CLASS TO ALPHABETIC                    009330
          EQ   PICTUSC       STORE CLASS                                009340
                                                                        009350
 PICLASN  SA1    PIC9SVP                                                009360
          BX1    X1*X2       ONLY 9SVP                                  009370
          NZ   X1,PICLANE    NO-GOTO NUMERIC EDIT                       009380
          SA1    B5+2        ***** GET BINARY SIZE                      009390
          SX7    X1-19                                                  009400
          NG   X7,SZNUMOK    IF SIZE IS LESS THAN 18                    009410
 D164     EQU    164D        NUMERIC ITEM GT 18                         009411
          SX6    D164                                                   009412
          RJ   DIAG                                                     009420
                                                                        009450
          EQ   PICTERR       SET PICTURE ERROR FLAG 
  
 SZNUMOK  SX6    2           SET CLASS TO NUMERIC                       009460
          EQ   PICTUSC       STORE CLASS                                009470
                                                                        009480
 PICLANE  SA1    PICEDIT                                                009490
          BX1    X1*X2       ONLY 9SVP AND EDITING CHARACTERS           009500
          NZ   X1,PICLAAN    NO - GO TO ALPHANUMERIC                    009510
          SX6    6           CLASS IN NUMERIC EDITED    S               009520
          EQ   PICTUSC       STORE CLASS                                009530
                                                                        009540
 PICLAAN  SA1    PICTAED                                                009550
          BX1    X1*X2       0 AND/OR B PRESENT                         009560
          ZR   X1,PICLAA     IF NO EDITING                              009570
          SX6    5           CLASS IS ALPHANUMERIC EDITED               009580
          EQ   PICTUSC                                                  009590
                                                                        009600
 PICLAA   SX6    1           CLASS IS ALPHANUMERIC                      009610
 PICTUSC  SA6    B5+14       ***** STORE CLASS IN SQUASHBU              009620
          SA1    PICTURS                                                009630
          BX3    X1*X2
          ZR   X3,PICTUR     EXIT IF NO S PRESENT 
          BX1    -X1*X2                                                 009670
          ZR   X1,PICTUR     EXIT                                       009680
          MX6    2
          LX6    1
          SA6    B5+13       ***** SET SIGN FLAG IN SQASHBU             009720
          EQ   PICTUR                                                   009730
                                                                        009740
MANYINS   SX6    63                                                     009750
          SA6    B5+11       *****                                      009760
 D162     EQU    162D        TOO MANY INSERTIONS                        009761
          SX6    D162                                                   009762
          RJ   DIAG                                                     009770
                                                                        009800
          EQ   PICTERR       SET PICTURE ERROR FLAG 
  
                                                                        009820
 GETBYT   TITLE  GET NEXT BYTE OF PICTURE                               009830
*                                                                       009840
* GETBYT                                                                009850
* RETURN +1 NORMAL EXIT  CHAR IN PICTCCH, BIT IN PICTCCB                009860
*        +2 EXCESS LENGTH EXIT                                          009870
*        +3 END OF PICTURE EXIT                                         009880
* THE LABEL *VOIDIT* IS USED FOR THE EXIT OF *GETBYT* WHEN
* THE RETURN ADDRESS IN *GETBYT* HAS BEEN MODIFIED. A RETURN
* JUMP TO *VOIDIT* ENSURES THAT THE STACK IS VOIDED. EXECUTION
* THEN CONTINUES WITH THE MODIFIED INSTRUCTION IN *GETBYT*. 
* 
 VOIDIT   EQ   *+1S17        RJ HERE VOIDS INSTR STACK
 GETBYT   EQ   *+1S17        ENTRY/EXIT 
*                            ** MODIFIED AT RUNTIME **
          SB7    1                                                      009910
          SA1    REPGATE    REPEAT GATE ON                              009920
          NZ   X1,REPON     YES-GOTO REPON                              009930
          SA1    CHARNUM    NO                                          009940
          SB1    X1         SET INDEX (B1) TO CHAR NUM                  009950
          SA2    PICTUR1                                                009960
          IX6    X1+X2                                                  009970
          SA6    CHARNUM    INCREMENT CHARNUM BY 1                      009980
          SA1    PICTEMP+B1 GET NEXT CHAR (X1)                          009990
          SA2    GETBYBL                                                010000
          IX2    X1-X2      IS CHAR BLANK                               010010
          ZR   X2,EOPICT    YES-GOTO END OF PICTURE                     010020
          SA2    GETBYOB    NO                                          010030
          IX2    X1-X2      IS CHAR OPEN BRACKET                        010040
          ZR   X2,CONVRT    YES-GOTO PROCESS BRACKET                    010050
          SA2    GETBYCB    TEST FOR ILL OPEN BRACKET                   010060
          IX2    X1-X2                                                  010070
          ZR   X2,GETSKIP                                               010080
          BX6    X1         NO                                          010090
          SA6    PICTCCH    SAVE CURRENT CHAR                           010100
          SA6    CHTEMP                                                 010110
 GETBCBW  SB1    X1                                                     010120
          SA1    PRECTAB+B1 PICK UP TABLE ENTRY (X1)                    010130
          SX2    77B                                                    010140
          SX3    60D                                                    010150
          BX2    X1*X2       CURRENT CHAR BIT POSITION (X2)             010160
          IX2    X3-X2                                                  010170
          SB1    X2         LEFT SHIFT AMOUNT (B1)                      010180
          SA3    GETBYL1                                                010190
          LX6    B1,X3      CURRENT CHAR BIT IN POSITION                010200
          SA6    PICTCCB    SAVE                                        010210
          EQ   GETBYT        EXIT                                       010220
                                                                        010230
 REPON    SA1    REPCNT                                                 010240
          SX6    X1-1                                                   010250
          SA6    A1          DECREMENT REPCOUNT                         010260
          SA1    CHTEMP      LOAD PREVIOUS CHARACTER CODE               010270
          PL   X6,GETBCBW    YES-NON NEG                                010280
          SX6    B0          REPCNT NEGATIVE                            010290
          SA6    REPGATE     TURN REPEAT GATE OFF                       010300
          EQ   GETBYT+1      BACK TO NORMAL                             010310
                                                                        010320
 EXIT1    SA1    GETBYT                                                 010330
          SA2    GETBYJ1                                                010340
          IX6    X1+X2                                                  010350
          SA6    A1                                                     010360
          RJ   VOIDIT        EXIT EXCESS LENGTH 
                                                                        010380
 EOPICT   SA1    GETBYT                                                 010390
          SA2    GETBYJ2                                                010400
          IX6    X1+X2                                                  010410
          SA6    A1                                                     010420
          RJ   VOIDIT        EXIT END OF PICTURE
                                                                        010440
GETSKIP   BSS    0           ERASE  PICTURH  FOR ILLEGAL PARENTHESES    010450
          SX6    0                                                      010460
          SA6    PICTURH                                                010470
          EQ   EOPICT                                                   010480
*                                                                       010490
* PROCESS BRACKETED QUANTITY                                            010500
*                                                                       010510
 CONVRT   SX6    0                                                      010520
          SA6    REPCNT      ZERO REPEAT COUNTER                        010530
 CONVRT1  SA1    CHARNUM                                                010540
          SB1    X1                                                     010550
          SX6    X1+B7                                                  010560
          SA6    A1          ADD 1 TO CHAR NUM                          010570
          SA1    PICTEMP+B1  GET NEXT CHAR (X1)                         010580
          SA2    GETBYBL                                                010590
          IX2    X1-X2                                                  010600
          ZR   X2,GETSKIP    BLANK IN PICTURE STRING                    010610
          SA2    GETBYCB                                                010620
          IX2    X1-X2       IS CHAR CLOSED BRACKET                     010630
          ZR   X2,GETTOG     YES-GOTO TURN ON GATE                      010640
          SA2    GETBYOB     TEST FOR ILL CLOSE BRACKET                 010650
          IX2    X1-X2                                                  010660
          ZR   X2,GETSKIP                                               010670
          SA2    PICTU33                                                010680
          IX1    X1-X2                                                  010690
          NG   X1,NONNUM     IF CHARACTER IS ALPHABETIC                 010700
          SA2    GETBYHN     IS CHAR GREATER THAN 9                     010710
          IX2    X2-X1                                                  010720
          NG   X2,NONNUM     IF CHARACTER LESS THAN 0                   010730
          SX4    X1          NO                                         010740
          SA1    REPCNT      COUNT * 10 + NUMBER + COUNT                010750
          SX6    X1                                                     010760
          IX6    X6+X1       2 TIMES COUNT (X6)                         010770
          SX1    X6                                                     010780
          IX6    X6+X1       4 TIMES COUNT (X6)                         010790
          SX3    X6                                                     010800
          IX6    X6+X3       8 TIMES COUNT (X6)                         010810
          IX6    X6+X1       10 TIMES COUNT (X6)                        010820
          IX6    X6+X4       NEW COUNT + NUMBER                         010830
          SA6    A1                                                     010840
          EQ   CONVRT1       LOOP                                       010850
                                                                        010860
 GETTOG   SX6    1                                                      010870
          SA6    REPGATE     TURN ON REPEAT GATE                        010880
          SA1    REPCNT                                                 010890
          IX6    X1-X6      DECREMENT REPEAT CNT BY 1                   010900
          SA6    A1                                                     010910
          NZ   X1,GATERP                                                010920
 D164     EQU    164D                                                   010921
          SX6    D164                                                   010922
          RJ   DIAG                                                     010930
                                                                        010960
          EQ   PICTERR       SET PICTURE ERROR FLAG 
  
 GATERP   SA2    =XMXPICSZ   MAXIMUM PICTURE SIZE                       010980
          IX1    X2-X1                                                  010990
          PL   X1,REPON                                                 011000
          SX6    B0          USE 0 REPEAT COUNT                         011010
          SA6    REPCNT      SET REPEAT COUNT TO MAX                    011020
          EQ   EXIT1                                                    011030
                                                                        011040
 NONNUM   BSS    0                                                      011050
 D163     EQU    163D                                                   011060
          SX6    D163                                                   011070
          RJ   DIAG                                                     011071
                                                                        011080
          EQ   PICTERR       SET PICTURE ERROR FLAG 
  
          SPACE 10,10                                                   011120
*                                                                       011130
* GETBYT CONSTANTS                                                      011140
*                                                                       011150
 GETBYJ1  DATA   10000000000B          JUMP RETURN INCREMENT            011160
 GETBYJ2  DATA   20000000000B          JUMP RETURN INCREMENT            011170
 GETBYL1  DATA   40000000000000000000B                                  011180
 GETBYBL  DATA   55B                   BLANK CHARACTER                  011190
 GETBYOB  DATA   51B                   OPEN BRACKET CHARACTER           011200
 GETBYCB  DATA   52B                   CLOSED BRACKET                   011210
 GETBYHN  DATA   9                     HIGH NUMBER                      011220
*                                                                       011230
*  GETBYT VARIBLES                                                      011240
*                                                                       011250
 REPGATE  BSSZ   1                     REPEAT GATE                      011260
 CHARNUM  BSSZ   1                     CURRENT CHAR NUMBER              011270
 REPCNT   BSSZ   1                     REPEAT COUNTER                   011280
 PICTCCH  BSSZ   1                     CURRENT CHAR TEMP                011290
 PICTCCB  BSSZ   1                     CURRENT CHAR BIT                 011300
 CHTEMP   BSSZ   1                     PREVIOUS CHAR TEMP               011310
 NONMURL  BSSZ   1                                                      011320
          TITLE  PRECEDENCE TABLE                                       011330
*                                                                       011340
*  PRECEDENCE TABLE                                                     011350
*                                                                       011360
 PICTDSL  DATA   53B                                                    011370
 PRECTAB  DATA   70470B                   :     CODE- 00                011380
          DATA   0375177770134B           A           01                011390
          DATA   0200037621447B           B           02                011400
          DATA   3200177620253B           C           03                011410
          DATA   3200177620354B           D           04                011420
          DATA   70470B                   E           05                011430
          DATA   70470B                   F           06                011440
          DATA   70470B                   G           07                011450
          DATA   70470B                   H           10                011460
          DATA   70470B                   I           11                011470
          DATA   70470B                   J           12                011480
          DATA   70470B                   K           13                011490
          DATA   70470B                   L           14                011500
          DATA   70470B                   M           15                011510
          DATA   70470B                   N           16                011520
          DATA   37621550B                0           17                011530
          DATA   3431037740041B           P           20                011540
          DATA   70470B                   Q           21                011550
          DATA   3200157620255B           R           22                011560
          DATA   3777777700037B           S           23                011570
          DATA   70470B                   T           24                011580
          DATA   70470B                   U           25                011590
          DATA   3141037000040B           V           26                011600
          DATA   70470B                   W           27                011610
          DATA   0375177770135B           X           30                011620
          DATA   70470B                   Y           31                011630
          DATA   3410037770642B           Z           32                011640
          DATA   37621550B                0           33                011650
          DATA   70470B                   1           34                011660
          DATA   70470B                   2           35                011670
          DATA   70470B                   3           36                011680
          DATA   70470B                   4           37                011690
          DATA   70470B                   5           40                011700
          DATA   70470B                   6           41                011710
          DATA   70470B                   7           42                011720
          DATA   70470B                   8           43                011730
          DATA   37670136B                9           44                011740
          DATA   3000177621152B           +           45                011750
          DATA   3000177621051B           -           46                011760
          DATA   3420037770743B           *           47                011770
          DATA   0000037621745B           /           50                011780
          DATA   70470B                   (           51                011790
          DATA   70470B                   )           52                011800
          DATA   3577037721244B           $           53                011810
          DATA   70470B                   =           54                011820
          DATA   70470B                   BLANK       55                011830
          DATA   37621645B                ,           56                011840
          DATA   3141037621346B           .           57                011850
          DATA   70470B                   #           60                011860
          DATA   70470B                   [           61                011870
          DATA   70470B                   ]           62                011880
          DATA   70470B                   %           63                011890
          DATA   70470B                   "           64                011900
          DATA   70470B                   _           65                011910
          DATA   70470B                   !           66                011920
          DATA   70470B                   &           67                011930
          DATA   70470B                   '           70                011940
          DATA   70470B                   ?           71                011950
          DATA   70470B                   <           72                011960
          DATA   70470B                   >           73                011970
          DATA   70470B                   @           74                011980
          DATA   70470B                   \           75                011990
          DATA   70470B                   ^           76                012000
          DATA   70470B                   ;           77                012010
          DATA   3141000040060B           P(TRAILING) 100               012020
          DATA   3000167620361B           B(TRAILING) 101               012030
          DATA   70470B                   DUMMY       102               012040
          DATA   3430037670544B           $(REPEATED) 103               012050
          DATA   70470B                   DUMMY       104               012060
          DATA   3430737770552B           +(REPEATED) 105               012070
          DATA   3430677770551B           -(REPEATED) 106               012080
          TITLE  PACK MURAL                                             012090
*                                                                       012100
* INITIALIZE PACKMURAL                                                  012110
*                                                                       012120
*                                                                       012130
 IPAKMRL  EQ   *+1S17        ENTRY/EXIT                                 012140
          SX6    0                                                      012150
          SA6    MURAL       ZERO OUT FIRST WORD OF MURAL               012160
          SA6    PAKMRPL     INIT CHAR-MURAL BUFFER POINTER             012170
          SA6    PAKMBYT     INIT PREVIOUS BYTE                         012180
          SX6    51          5 BITS FOR LENGTH, 5 BITS FOR INDICATORS   012190
          SA6    PAKMSAM     INIT SHIFT AMOUNT                          012200
          EQ   IPAKMRL       EXIT                                       012210
                                                                        012220
*                                                                       012230
* PACK MURAL                                                            012240
*         EXPECTS CHAR CODE IN X1                                       012250
*         PACKS BYTE IN PICTEMP BUFFER                                  012260
*                                                                       012270
 PAKMRL   EQ   *+1S17        ENTRY/EXIT                                 012280
                                                                        012290
          SA2    NONMURL                                                012300
          NZ   X2,PAKMRL                                                012310
          SB1    X1          CHAR CODE TO (B1)                          012320
          SA1    PAKMRPL                                                012330
          SB2    X1                                                     012340
          SA1    PRECTAB+B1  PICK UP PRECEDENCE TABLE ENTRY             012350
          LX1    54                                                     012360
          MX2    -4                                                     012370
          BX6    -X2*X1      MASK OUT ALL BUT MURAL CODE                012380
          SA1    PAKMBYT                                                012390
          IX1    X1-X6       IS MURAL BYTE EQUAL TO PREVIOUS            012400
          ZR   X1,PAKMRP     YES-GOTO REPEAT                            012410
          SA6    A1          SAVE CURRENT BYTE                          012420
          SA1    PAKMSAM                                                012430
          SA2    PAKMRL5                                                012440
          IX6    X1-X2                                                  012450
          SA6    A1          SUBTRACT 5 FROM SHIFT AMOUNT               012460
          SB7    1                                                      012470
          SB1    X6          SET(B1) TO SHIFT AMOUNT                    012480
          SA2    PAKMRL5                                                012490
          IX2    X6-X2       AT LEAST 5 BITS LEFT                       012500
          NG   X2,PAKMINC    IF LESS THAN 5 BITS LEFT                   012510
 PAKMRLS  SA2    PAKMBYT     PICK UP CURRENT BYTE                       012520
 PAKMRLP  SA1    MURAL+B2    PICK UP CURRENT MURAL WORD                 012530
          LX2    B1,X2       SHIFT TO POSITION                          012540
          BX6    X1+X2       OR CURRENT BYTE TO MURAL WORD              012550
          SA6    A1          REPLACE CURRENT MURAL WORD                 012560
          EQ   PAKMRL        EXIT                                       012570
                                                                        012580
 PAKMINC  SA1    PAKMEOW     PICK UP END OF WORD CODE                   012590
          LX1    B1,X1       SHIFT TO POSITION                          012600
          SA2    MURAL+B2    PICK UP CURRENT MURAL WORD                 012610
          BX6    X1+X2       OR EOW TO CURRENT WORD                     012620
          SA6    A2                                                     012630
          SA1    PAKMRPL                                                012640
          SX6    X1+B7       INCREMENT CURRENT WORD POINTER             012650
          SA6    A1                                                     012660
          SX1    X6-31                                                  012670
          PL   X1,PAKMRL1    IF MURAL EXCEEDS 31 WORDS                  012680
          SB2    X6          SET(B2) TO NEW PICK UP LOC                 012690
          SA1    PAKMR54                                                012700
          SX6    X1                                                     012710
          SA6    PAKMSAM     INIT SHIFT AMOUNT                          012720
          SB1    X1          SET(B1) TO NEW SHIFT AMOUNT                012730
          SX6    B0                                                     012740
          SA6    MURAL+B2    ZERO OUT NEW WORD                          012750
          EQ   PAKMRLS       SHIFT AND OR                               012760
                                                                        012770
 PAKMRP   SA1    PAKMSAM                                                012780
          SX3    X1-6                                                   012790
          PL   X3,PAKMRPT    LESS THAN 6 BITS LEFT-NO                   012800
          SA2    PAKMRL5     YES                                        012810
          IX2    X1-X2                                                  012820
          SB1    X2                                                     012830
          EQ   PAKMINC       STORE EOW AND INC                          012840
                                                                        012850
 PAKMRPT  SA1    PAKMSAM                                                012860
          SA2    PICTUR1                                                012870
          IX6    X1-X2                                                  012880
          SA6    A1                                                     012890
          SB1    X6                                                     012900
          EQ   PAKMRLP                                                  012910
                                                                        012920
 PAKMRL1  SX6    1                                                      012930
          SA6    NONMURL     SET MURAL TOO LARGE FLAG                   012940
          EQ   PAKMRLP                                                  012950
                                                                        012960
*                                                                       012970
*  PACK MURAL VARIBLES                                                  012980
*                                                                       012990
 PAKMSAM  BSSZ   1           SHIFT AMOUNT                               013000
 PAKMBYT  BSSZ   1           PREVIOUS BYTE                              013010
 PAKMRPL  BSSZ   1           CURRENT LOCATION IN CHAR-MURAL B           013020
*                                                                       013030
* PACK MURAL CONSTANTS                                                  013040
*                                                                       013050
 PAKMEOW  DATA   4           END OF WORD CODE                           013060
 PAKMRL5  DATA   5           DECIMAL 5                                  013070
 PAKMR54  DATA   55          DECIMAL 55                                 013080
  
  
 PICTERR  BSS    0           ERROR ENCOUNTERED IN PICTURE 
          SX6    0
          SA6    B5+2        ***** ZERO SIZE OF ITEM
          EQ   PICTUR        EXIT 
  
 DIAG     TITLE  ISSUE DIAGNOSTICS                                      013081
*                                                                       013082
*         ENTRY                                                         013083
*         - X6 = DIAGNOSTIC NUMBER                                      013084
*                                                                       013085
*         USES                                                          013086
*                                                                       013087
*         - X1,X6,A1,A6                                                 013088
*                                                                       013089
*         CALLS                                                         013090
*         - DIAGDL                                                      013091
*                                                                       013092
                                                                        013093
 DIAG     EQ   *+1S17        ENTRY/EXIT                                 013094
                                                                        013095
          SA6    P22                                                    013096
          SX7    B5          SAVE ADDRESS OF SQUASHBUF
          SA7    SQTEMP 
          SA1    PLIST                                                  013097
          SX1    A6                                                     013098
          RJ   =XDIAGDL                                                 013099
                                                                        013100
          SA1    SQTEMP      RESTORE ADDRESS OF SQUASHBUF 
          SB5    X1 
          EQ   DIAG                                                     013101
                                                                        013102
 SQTEMP   BSSZ   1
 PLIST    BSSZ   1                                                      013103
 P22      BSSZ   1                                                      013104
          END                                                           013998
