V1ECHRX

Table Of Contents
v1echrx.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:10 2020
 
Source File: \v1echrx.asm 
                             1 | *************************************************** V1B00010
                             2 | *                                                 * V1B00020
                             3 | * STATUS - VERSION 2, MODIFICATION 8                V1B00030
                             4 | *   SUBROUTINE NAME-                              * V1B00040
                             5 | *      FULL NAME- EXTENDED PRECISION ANNOTATION   * V1B00050
                             6 | *         SUBROUTINE.                             * V1B00060
                             7 | *      CODE NAME- ECHRX                           * V1B00070
                             8 | *   PURPOSE- FORMS THE CHARACTERS SPECIFIED BY    * V1B00080
                             9 | *      COMPUTER OUTPUT DATA USING PARAMETERS FROM * V1B00090
                            10 | *      THE CHARACTER SUBROUTINE (ECHAR).          * V1B00100
                            11 | *   METHOD- N/A                                   * V1B00110
                            12 | *   CAPABILITIES AND LIMITATIONS- SEE IBM         * V1B00120
                            13 | *      1130/1800 PLOTTER SUBROUTINES MANUAL       * V1B00130
                            14 | *      (FORM C26-3755).                           * V1B00140
                            15 | *   SPECIAL FEATURES- N/A                         * V1B00150
                            16 | *   ADDITIONAL INFORMATION- N/A                   * V1B00160
                            17 | *                                                 * V1B00170
                            18 | *************************************************** V1B00180
                            19 | *                                                   V1B00190
                            20 | *             THE CALL TO THE ECHRX ROUTINE         V1B00200
                            21 | *             IS AS FOLLOWS                         V1B00210
                            22 | *                                                   V1B00220
                            23 | *             LIBF ECHRI                            V1B00230
                            24 | *             DC   0                                V1B00240
                            25 | *             DC   BUFFER OF CHARACTERS TO PLOT     V1B00250
                            26 | *             DC   0                                V1B00260
                            27 | *                                                   V1B00270
                            28 | *             LIBF VCHRI                            V1B00280
                            29 | *                  XR1 = BUFFER ADDRESS         2-8 V1B00290
                            30 | *                  XR2 = CHAR COUNT             2-8 V1B00300
                            31 | *                                                   V1B00310
                            32 | *             LIBF ECHRX                            V1B00320
                            33 | *                  XR1 = XS+12                      V1B00330
                            34 | *                  .                                V1B00340
                            35 | *                  .                                V1B00350
                            36 | *                  .                                V1B00360
                            37 | *                  .                                V1B00370
                            38 | *      XS     XFLC X-SCALE (REAL)                   V1B00380
                            39 | *             XFLC Y-SCALE (REAL)                   V1B00390
                            40 | *             XFLC COS(THETA)                       V1B00400
                            41 | *             XFLC SIN(THETA)                       V1B00410
                            42 | *                                                   V1B00420
                            43 |       EPR                                           V1B00430
                            44 |       LIBR                                          V1B00440
                            45 |       ENT     ECHRX     ENTRY FROM ECHAR CALL       V1B00450
                            46 |       ENT     ECHRI     ENTRY FROM FIO WRITE STMNT  V1B00460
                            47 |       ENT     VCHRI     ENTRY FROM FIO WRITE STMNT  V1B00470
0000 6A0C                   48 | VCHRI STX   2 CNT       SET CHARACTER COUNT         V1B00480
0001 6680 0000              49 |       LDX  I2 *-*       SET EXIT                    V1B00490
0003 6A18                   50 |       STX   2 EXIT                                  V1B00500
0004 6913                   51 |       STX   1 SV1       SAVE XR1                    V1B00510
0005 6A14                   52 |       STX   2 SV2       SAVE XR2                    V1B00520
0006 6600 014CR             53 |       LDX  L2 V         SET XR2 WITH V              V1B00530
0008 C035                   54 |       LD      AN0       SET 1 CHARACTER/WORD SWITCH V1B00540
0009 D03D                   55 |       STO     AN1                                   V1B00550
000A 6D00 00CCR             56 |       STX  L1 ADD       SET BUFFER ADDRESS          V1B00560
000C 702A                   57 |       MDX     AN                                    V1B00570
000D 0000                   58 | CNT   DC      *-*       CHARACTER COUNT             V1B00580
000E 740A 00F9R             59 | XOX   MDX  L  NLET,10    MAKE TEN MORE          2-8 V1B00590
0010 C2AD                   60 |       LD    2 NLET-V     GET NUMBER OF LETTERS  2-8 V1B00600
0011 7401 00CFR             61 |       MDX  L  SW3,1      TURN ON CNTRL SW       2-8 V1B00610
0013 706C                   62 |       MDX     MB1        CALCULATE COORDINATES  2-8 V1B00620
0014 74FF 000DR             63 | XOX1  MDX  L  CNT,-1     SKIP IF BUFFER OUTPUTED    V1B00630
0016 7027                   64 |       MDX     AN0                                   V1B00640
0017 6500 0000              65 | RTN   LDX  L1 *-*       RESTORE XR1 AND XR2         V1B00650
0018R                       66 | SV1   EQU     *-1                                   V1B00660
0019 6600 0000              67 |       LDX  L2 *-*                                   V1B00670
001AR                       68 | SV2   EQU     *-1                                   V1B00680
001B 4C00 0000              69 |       BSC  L  *-*       EXIT                        V1B00690
001CR                       70 | EXIT  EQU     *-1       RETURN                      V1B00700
001D 69FA                   71 | ECHRI STX   1 SV1       SAVE XR1                    V1B00710
001E 6580 0000              72 |       LDX  I1 *-*                                   V1B00720
0020 6AF9                   73 |       STX   2 SV2       SAVE XR2                    V1B00730
0021 6600 014CR             74 |       LDX  L2 V         SET XR2 WITH V              V1B00740
0023 C101                   75 |       LD    1 1         GET ADDRESS OF BUFFER       V1B00750
0024 82AC                   76 |       A     2 H0002-V                               V1B00760
0025 D280                   77 |       STO   2 ADD-V                                 V1B00770
0026 92AC                   78 |       S     2 H0002-V   GET COUNT                   V1B00780
0027 D001                   79 |       STO     *+1                                   V1B00790
0028 C400 0000              80 |       LD   L  *-*       LOAD COUNT                  V1B00800
002A 92AB                   81 |       S     2 H0001-V                               V1B00810
002B 1001                   82 |       SLA     1                                     V1B00820
002C D0E0                   83 |       STO     CNT       CHARACTER COUNT             V1B00830
002D 7102                   84 |       MDX   1 2                                     V1B00840
002E 69ED                   85 |       STX   1 EXIT      SET EXIT IF TEST FUNCTION   V1B00850
002F C1FE                   86 |       LD    1 -2                                    V1B00860
0030 4C18 0017R             87 |       BSC  L  RTN,+-    BRANCH IF FIO TEST FUNCTION V1B00870
0032 7101                   88 |       MDX   1 1                                     V1B00880
0033 69E8                   89 |       STX   1 EXIT      SET FOR NORMAL RETURN       V1B00890
0034 C03A                   90 |       LD      CN1       SET FOR MULTIPLE FIO        V1B00900
0035 D011                   91 |       STO     AN1       MODIFY INST TO SLA 16       V1B00910
0036 1010                   92 |       SLA     16        NORMALIZE SW1               V1B00920
0037 D281                   93 | AN    STO   2 SW1-V                                 V1B00930
0038 10A0                   94 |       SLT     32                                2-8 V1B00940
0039 D2AD                   95 |       STO   2 NLET-V     CLEAR                  2-8 V1B00950
003A DAB0                   96 |       STD   2 XLAST-V    CLEAR XLAST,YLAST      2-8 V1B00960
003B C0D1                   97 |       LD      CNT       CHECK FOR ZERO COUNT        V1B00970
003C 4C18 0017R             98 |       BSC  L  RTN,+-    BRANCH IF NO BUFFER         V1B00980
003E C281                   99 | AN0   LD    2 SW1-V     SW1 NORMAL                  V1B00990
003F 4C20 0047R            100 |       BSC  L  AN1,Z     BRANCH IF N0                V1B01000
0041 6C00 00CDR            101 |       STX  L0 SW1       TAG SW1                     V1B01010
0043 C480 00CCR            102 |       LD   I  ADD       GET LEFT CHARACTER          V1B01020
0045 1808                  103 |       SRA     8                                     V1B01030
0046 7007                  104 |       MDX     AN2                                   V1B01040
0047 1010                  105 | AN1   SLA     16  -*-   NORMALIZE SW1               V1B01050
0048 D281                  106 |       STO   2 SW1-V                                 V1B01060
0049 C480 00CCR            107 |       LD   I  ADD       GET RIGHT CHARACTER         V1B01070
004B E2AA                  108 |       AND   2 H00FF-V                               V1B01080
004C 7401 00CCR            109 |       MDX  L  ADD,1     INCREMENT ADD               V1B01090
                           110 | *     STATEMENT REMOVED                         2-8 V1B01100
004E D284                  111 | AN2   STO   2 SVCH-V    SAVE CHARACTER              V1B01110
004F 6500 012BR            112 |       LDX  L1 TABLE     POINT XR1 TO CHAR TABLE     V1B01120
0051 C100                  113 | AN3   LD    1 0         FETCH A CHARACTER           V1B01130
0052 4C18 005FR            114 |       BSC  L  AN4,+-    BR IF END OF TABLE          V1B01140
0054 1888                  115 |       SRT     8                                     V1B01150
0055 E2AA                  116 |       AND   2 H00FF-V   COMPARE RIGHT 8 BITS WITH   V1B01160
0056 F284                  117 |       EOR   2 SVCH-V    *SAVED CHARACTER            V1B01170
0057 4C18 0061R            118 |       BSC  L  AN5,+-    BRANCH IF MATCH             V1B01180
0059 1808                  119 |       SRA     8                                     V1B01190
005A 1088                  120 |       SLT     8                                     V1B01200
005B D001                  121 |       STO     *+1                                   V1B01210
005C 7500 0000             122 |       MDX  L1 *-*                                   V1B01220
                           123 | *     STATEMENT REMOVED                         2-8 V1B01230
005E 70F2                  124 |       MDX     AN3       TRY NEXT CHARACTER          V1B01240
005F 6500 0233R            125 | AN4   LDX  L1 LBLK-1    NOT IN TABLE, SUPPLY BLANK  V1B01250
0061 7101                  126 | AN5   MDX   1 1                                     V1B01260
0062 696E                  127 |       STX   1 STRNG                                 V1B01270
0063 1010                  128 |       SLA     16        NORMALIZE SW2               V1B01280
0064 D069                  129 |       STO     SW2                                   V1B01290
0065 D06E                  130 |       STO     XN        XN = 0                      V1B01300
0066 D06F                  131 |       STO     YN        YN = 0                      V1B01310
0067 C066                  132 | CNO   LD      SW2       SW2 NORMAL                  V1B01320
0068 4C20 006FR            133 |       BSC  L  CN1,Z     BRANCH IF NO                V1B01330
006A 6863                  134 |       STX   0 SW2       TAG SW2                     V1B01340
006B C480 00D1R            135 |       LD   I  STRNG     GET LEFT COORDINATE         V1B01350
006D 1808                  136 |       SRA     8                                     V1B01360
006E 7007                  137 |       MDX     CN2                                   V1B01370
006F 1010                  138 | CN1   SLA     16        NORMALIZE SW2               V1B01380
0070 D05D                  139 |       STO     SW2                                   V1B01390
0071 C480 00D1R            140 |       LD   I  STRNG     GET RIGHT COORDINATE        V1B01400
0073 E2AA                  141 |       AND   2 H00FF-V                           2-8 V1B01410
0074 7401 00D1R            142 |       MDX  L  STRNG,1   INCREMENT STRNG             V1B01420
                           143 | *     STATEMENT REMOVD                          2-8 V1B01430
0076 1884                  144 | CN2   SRT     4         SET UP XN+1,YN+1            V1B01440
0077 4C18 00C1R            145 |       BSC  L  CNTL,+-   IS CORDINATE A CONTROL      V1B01450
0079 907D                  146 |       S       H0001                                 V1B01460
007A D05A                  147 |       STO     XN+1                                  V1B01470
007B 1804                  148 |       SRA     4                                     V1B01480
007C 1084                  149 |       SLT     4                                     V1B01490
007D 9079                  150 |       S       H0001                                 V1B01500
007E D058                  151 |       STO     YN+1                                  V1B01510
007F C055                  152 |       LD      XN+1      CALCULATE DELTA X =         V1B01520
0080 064D*6063             153 | MB1   LIBF    FLOAT      (XN+1)*SIZEX           2-8 V1B01530
0081 0551*7A00             154 |       LIBF    EMPY                                  V1B01540
0082 00E2R                 155 |       DC      XC                                    V1B01550
0083 0551*7A00             156 |       LIBF    EMPY      MULTIPLY C/FAC BY CONSTANT  V1B01560
0084 00DCR                 157 |       DC      C10       *IN C10                     V1B01570
0085 0504*4100             158 |       LIBF    EADD      ADD TO C/ADDR IN CP5        V1B01580
0086 00EER                 159 |       DC      CP5                                   V1B01590
0087 0918*99C0             160 |       LIBF    IFIX      CONVERT TO FIXED POINT NO.  V1B01600
0088 D04F                  161 |       STO     DELTX                                 V1B01610
0089 C045                  162 |       LD      SW3        GET CNTRL SW           2-8 V1B01620
008A 4C20 00CAR            163 |       BSC  L  MOD2,Z     CONTINUE IF NOT ON     2-8 V1B01630
008C C04A                  164 |       LD      YN+1      CALCULATE DELTA Y =         V1B01640
008D 064D*6063             165 |       LIBF    FLOAT     (YN+1)*SIZEY                V1B01650
008E 0551*7A00             166 |       LIBF    EMPY      EXTENDED MULTIPLY           V1B01660
008F 00E5R                 167 |       DC      YC                                    V1B01670
0090 0551*7A00             168 |       LIBF    EMPY      MULTIPLY C/FAC BY           V1B01680
0091 00DCR                 169 |       DC      C10       *CONSTANT 10                V1B01690
0092 0504*4100             170 |       LIBF    EADD                                  V1B01700
0093 00EER                 171 |       DC      CP5                                   V1B01710
0094 0918*99C0             172 |       LIBF    IFIX      CONVERT C/FAC TO INTEGER    V1B01720
0095 D043                  173 | MB2   STO     DELTY      *AND PACK UP IN ACC    2-8 V1B01730
                           174 | *     STATEMENTS REMOVED                        2-8 V1B01740
0096 A03B                  175 |       M       SINT                                  V1B01750
0097 D85A                  176 |       STD     TEMP      DOUBLE STORE                V1B01760
0098 C03F                  177 |       LD      DELTX                                 V1B01770
0099 A039                  178 |       M       COST                                  V1B01780
009A 9857                  179 |       SD      TEMP                                  V1B01790
009B 8858                  180 |       AD      ROUND                                 V1B01800
009C 1081                  181 |       SLT     1                                     V1B01810
009D D03C                  182 |       STO     X1         COMPUTED X1            2-8 V1B01820
                           183 | *     STATEMENTS REMOVED                        2-8 V1B01830
009E C03A                  184 |       LD      DELTY     COMPUTE Y1 AND PYN          V1B01840
009F A033                  185 |       M       COST                                  V1B01850
00A0 D851                  186 |       STD     TEMP                                  V1B01860
00A1 C036                  187 |       LD      DELTX                                 V1B01870
00A2 A02F                  188 |       M       SINT      MULTIPLY BY INTEGER         V1B01880
00A3 884E                  189 |       AD      TEMP                                  V1B01890
00A4 884F                  190 |       AD      ROUND                                 V1B01900
00A5 1081                  191 |       SLT     1                                     V1B01910
00A6 D034                  192 |       STO     Y1         COMPUTED Y1            2-8 V1B01920
00A7 C027                  193 |       LD      SW3        TEST IF CNTRL SW ON    2-8 V1B01930
00A8 4C20 00FER            194 |       BSC  L  MOD3,Z     BRANCH IF ON           2-8 V1B01940
00AA C02F                  195 |       LD      X1                                2-8 V1B01950
00AB 9028                  196 |       S       XN                                2-8 V1B01960
00AC D02D                  197 |       STO     X1                                2-8 V1B01970
00AD 8026                  198 |       A       XN                                2-8 V1B01980
00AE D025                  199 |       STO     XN                                2-8 V1B01990
00AF C02B                  200 |       LD      Y1                                2-8 V1B02000
00B0 9025                  201 |       S       YN                                    V1B02010
00B1 D029                  202 |       STO     Y1        COMPUTED Y1                 V1B02020
00B2 8023                  203 |       A       YN                                    V1B02030
00B3 D022                  204 |       STO     YN                                    V1B02040
00B4 0525*50C0             205 |       LIBF    EINC      UPDATE SYSTEM X,Y           V1B02050
00B5 00DAR                 206 |       DC      X1                                    V1B02060
00B6 00DBR                 207 |       DC      Y1                                    V1B02070
00B7 27A1*74E3             208 |       LIBF    XYPLT     MOVE THE PEN                V1B02080
00B8 00DAR                 209 |       DC      X1                                    V1B02090
00B9 00DBR                 210 |       DC      Y1                                    V1B02100
00BA C03F                  211 |       LD      XINC                              2-8 V1B02110
00BB 801E                  212 |       A       X1                                2-8 V1B02120
00BC D03D                  213 |       STO     XINC       ACCUMULATE X INCR      2-8 V1B02130
00BD C03D                  214 |       LD      YINC                              2-8 V1B02140
00BE 801C                  215 |       A       Y1                                2-8 V1B02150
00BF D03B                  216 |       STO     YINC       ACCUMULATE Y INCR      2-8 V1B02160
00C0 70A6                  217 |       MDX     CNO       BRANCH TO TEST SW2          V1B02170
00C1 1804                  218 | CNTL  SRA     4         STOP CONTROL                V1B02180
00C2 1084                  219 |       SLT     4                                     V1B02190
00C3 D004                  220 |       STO     CNTLX     SET CONTROL PARAMETER       V1B02200
00C4 9032                  221 |       S       H0001      IS IT END OF STRING        V1B02210
00C5 4C18 000ER            222 |       BSC  L  XOX,+-    BRANCH IF YES               V1B02220
00C7 174D*68C9             223 |       LIBF    PLOTI     PLOT CONTROL                V1B02230
00C8 0000                  224 | CNTLX DC      *-*       CONTROL PARAMETER           V1B02240
00C9 709D                  225 |       MDX     CNO       BRANCH TO TEST SW2          V1B02250
                           226 | *                                               2-8 V1B02260
00CA 1010                  227 | MOD2  SLA     16                                2-8 V1B02270
00CB 70C9                  228 |       MDX     MB2        CONTINUE               2-8 V1B02280
                           229 | *                                                   V1B02290
                           230 | *                       PROGRAM CONSTANTS           V1B02300
                           231 | *                                                   V1B02310
014CR                      232 | V     EQU     *+128                                 V1B02320
00CC 0000                  233 | ADD   DC      *-*       ARRAY (ONE WORD INTEGER)    V1B02330
00CD 0000                  234 | SW1   DC      *-*        LEFT/RIGHT EBCDIC CHAR     V1B02340
00CE 0000                  235 | SW2   DC      *-*        LEFT/RIGHT VALUE IN TABLE  V1B02350
00CF 0000                  236 | SW3   DC      *-*        CONTROL SWITCH         2-8 V1B02360
00D0 0000                  237 | SVCH  DC      *-*       SAVED CHARACTER             V1B02370
00D1 0000                  238 | STRNG DC      *-*       COORDINATES, LEFT & RIGHT   V1B02380
00D2 0000                  239 | SINT  DC      *-*       SAVED INTEGER               V1B02390
00D3 7FFF                  240 | COST  DC      /7FFF                                 V1B02400
00D4 0000                  241 | XN    DC      *-*                                   V1B02410
00D5 0000                  242 |       DC      *-*                                   V1B02420
00D6 0000                  243 | YN    DC      *-*                                   V1B02430
00D7 0000                  244 |       DC      *-*                                   V1B02440
00D8 0000                  245 | DELTX DC      *-*                                   V1B02450
00D9 0000                  246 | DELTY DC      *-*                                   V1B02460
00DA                       247 |       BSS  E  0                                 2-8 V1B02470
00DA 0000                  248 | X1    DC      *-*                                   V1B02480
00DB 0000                  249 | Y1    DC      *-*                                   V1B02490
00DC 0084 5000 0000        250 | C10   XFLC    10.                                   V1B02500
00DF 008F 7FFF 0000        251 | C32K  XFLC    32767.    CONSTANT                    V1B02510
00E2 007D 6666 6666        252 | XC    XFLC    .1         CHAR SIZE X                V1B02520
00E5 007D 6666 6666        253 | YC    XFLC    .1         CHAR SIZE Y                V1B02530
00E8 0000 0000 0000        254 | CCOS  XFLC    0.                                    V1B02540
00EB 0081 4000 0000        255 | CSIN  XFLC    1.                                    V1B02550
00EE 0080 4000 0000        256 | CP5   XFLC    .5                                    V1B02560
00F2                       257 |       BSS  E  0                                     V1B02570
00F2 0000                  258 | TEMP  DC      0                                     V1B02580
00F3 0000                  259 |       DC      0                                     V1B02590
00F4 0000                  260 | ROUND DC      /0000     EVEN ADDRESS                V1B02600
00F5 4000                  261 |       DC      /4000     CONSTANT                    V1B02610
00F6 00FF                  262 | H00FF DC      /00FF      MASK TO REMOVE LAST BITS   V1B02620
00F7 0001                  263 | H0001 DC      /1        CONSTANT                    V1B02630
00F8 0002                  264 | H0002 DC      /2        CONSTANT                    V1B02640
00F9 0000                  265 | NLET  DC      *-*        NUMBER OF LETTERS      2-8 V1B02650
00FA                       266 |       BSS  E  0                                 2-8 V1B02660
00FA 0000                  267 | XINC  DC      *-*        INCREMENT STORAGE      2-8 V1B02670
00FB 0000                  268 | YINC  DC      *-*        INCREMENT STORAGE      2-8 V1B02680
00FC 0000                  269 | XLAST DC      *-*        LAST X COORDINATE      2-8 V1B02690
00FD 0000                  270 | YLAST DC      *-*        LAST Y COORDINATE      2-8 V1B02700
                           271 | *                                               2-8 V1B02710
00FE C0DB                  272 | MOD3  LD      X1         GET COORDINATE         2-8 V1B02720
00FF 90FC                  273 |       S       XLAST      SUBTRACT LAST COORD    2-8 V1B02730
0100 90F9                  274 |       S       XINC       SUBTRACT COMPUTED COOR 2-8 V1B02740
0101 D0F8                  275 |       STO     XINC       DIFFERENCE IN XINC     2-8 V1B02750
0102 C0D8                  276 |       LD      Y1         DO SAME FOR Y          2-8 V1B02760
0103 90F9                  277 |       S       YLAST                             2-8 V1B02770
0104 90F6                  278 |       S       YINC                              2-8 V1B02780
0105 D0F5                  279 |       STO     YINC                              2-8 V1B02790
0106 0525*50C0             280 |       LIBF    EINC       UPDATE SYSTEM  X,Y     2-8 V1B02800
0107 00FAR                 281 |       DC      XINC                              2-8 V1B02810
0108 00FBR                 282 |       DC      YINC                              2-8 V1B02820
0109 27A1*74E3             283 |       LIBF    XYPLT      MOVE PEN               2-8 V1B02830
010A 00FAR                 284 |       DC      XINC                              2-8 V1B02840
010B 00FBR                 285 |       DC      YINC                              2-8 V1B02850
010C C8CD                  286 |       LDD     X1                                2-8 V1B02860
010D D8EE                  287 |       STD     XLAST      UPDATE XLAST,YLAST     2-8 V1B02870
010E 10A0                  288 |       SLT     32                                2-8 V1B02880
010F D0BF                  289 |       STO     SW3        TURN OFF CNTRL SW      2-8 V1B02890
0110 D8E9                  290 |       STD     XINC       CLEAR XINC,YINC        2-8 V1B02900
0111 4C00 0014R            291 |       BSC  L  XOX1       RETURN                 2-8 V1B02910
                           292 | *                                                   V1B02920
0113 7002                  293 | ECHRX MDX     *+2                                   V1B02930
0114 4C80 0000             294 |       BSC  I  *-*       RETURN                      V1B02940
0116 6902                  295 |       STX   1 YLP+1                                 V1B02950
0117 61F4                  296 |       LDX   1 -12       GET XC,YC,CCOS,CSIN         V1B02960
0118 054C*49C0             297 | YLP   LIBF    ELDX                                  V1B02970
0119 0000                  298 |       DC      *-*                                   V1B02980
011A 058A*35A7             299 |       LIBF    ESTOX                                 V1B02990
011B 00EER                 300 |       DC      XC+12                                 V1B03000
011C 7103                  301 |       MDX   1 3                                     V1B03010
011D 70FA                  302 |       MDX     YLP                                   V1B03020
011E 054C*4000             303 |       LIBF    ELD       SINT=SIN(ANGLE)*32768.      V1B03030
011F 00EBR                 304 |       DC      CSIN                                  V1B03040
0120 0551*7A00             305 |       LIBF    EMPY      EXTENDED MULTIPLY           V1B03050
0121 00DFR                 306 |       DC      C32K      *BY 32,767.                 V1B03060
0122 0918*99C0             307 |       LIBF    IFIX      CONVERT TO INTEGER          V1B03070
0123 D0AE                  308 |       STO     SINT      SAVE INTEGER                V1B03080
0124 054C*4000             309 |       LIBF    ELD       COST=COS(ANGLE)*32768.      V1B03090
0125 00E8R                 310 |       DC      CCOS                                  V1B03100
0126 0551*7A00             311 |       LIBF    EMPY      EXTENDED MULTIPLY           V1B03110
0127 00DFR                 312 |       DC      C32K      *BY 32,767.                 V1B03120
0128 0918*99C0             313 |       LIBF    IFIX      CONVERT TO INTEGER          V1B03130
0129 D0A9                  314 |       STO     COST      *AND STORE                  V1B03140
012A 70E9                  315 |       MDX     ECHRX+1                               V1B03150
                           316 | *                                                   V1B03160
                           317 | *                       CHARACTER TABLE             V1B03170
                           318 | *                                                   V1B03180
012B C107                  319 | TABLE DC      256*.A+LB-*                           V1B03190
012C 2100                  320 | LA    DC      /2100      2,1      P.D.              V1B03200
012D 466B                  321 |       DC      /466B      4,6      6,11              V1B03210
012E 8646                  322 |       DC      /8646      8,6      4,6               V1B03220
012F 86A1                  323 |       DC      /86A1      8,6     10,1               V1B03230
0130 09B1                  324 |       DC      /09B1      P.U.    11,1               V1B03240
0131 0100                  325 |       DC      /0100      STOP                       V1B03250
0132 C20A                  326 |       DC      256*.B+LC-*                           V1B03260
0133 2100                  327 | LB    DC      /2100      2,1      P.D.              V1B03270
0134 262B                  328 |       DC      /262B      2,6      2,11              V1B03280
0135 9BAA                  329 |       DC      /9BAA      9,11    10,10              V1B03290
0136 A796                  330 |       DC      /A796     10,7      9,6               V1B03300
0137 2696                  331 |       DC      /2696      2,6      9,6               V1B03310
0138 A5A2                  332 |       DC      /A5A2     10,5     10,2               V1B03320
0139 9121                  333 |       DC      /9121      9,1      2,1               V1B03330
013A 09B1                  334 |       DC      /09B1      P.U.     11,1              V1B03340
013B 0100                  335 |       DC      /0100      STOP                       V1B03350
013C C307                  336 |       DC      256*.C+LD-*                           V1B03360
013D AA00                  337 | LC    DC      /AA00     10,10     P.D.              V1B03370
013E 9B3B                  338 |       DC      /9B3B      9,11     3,11              V1B03380
013F 2A22                  339 |       DC      /2A22      2,10     2,2               V1B03390
0140 3191                  340 |       DC      /3191      3,1      9,1               V1B03400
0141 A209                  341 |       DC      /A209     10,2      P.U.              V1B03410
0142 B101                  342 |       DC      /B101     11,1      STOP              V1B03420
0143 C407                  343 |       DC      256*.D+LE-*                           V1B03430
0144 2100                  344 | LD    DC      /2100      2,1      P.D.              V1B03440
0145 2B9B                  345 |       DC      /2B9B      2,11                       V1B03450
0146 AAA2                  346 |       DC      /AAA2     10,10    10,2               V1B03460
0147 9121                  347 |       DC      /9121      9,1      2,1               V1B03470
0148 09B1                  348 |       DC      /09B1      P.U.    11,1               V1B03480
0149 0100                  349 |       DC      /0100      STOP                       V1B03490
014A C507                  350 |       DC      256*.E+LF-*                           V1B03500
014B AB00                  351 | LE    DC      /AB00     10,11     P.D.              V1B03510
014C 2B26                  352 |       DC      /2B26      2,11     2,6               V1B03520
014D 7626                  353 |       DC      /7626      7,6    2,6                 V1B03530
014E 21A1                  354 |       DC      /21A1      2,1     10,1               V1B03540
014F 09B1                  355 |       DC      /09B1      P.U.    11,1               V1B03550
0150 0100                  356 |       DC      /0100      STOP                       V1B03560
0151 C606                  357 |       DC      256*.F+LG-*                           V1B03570
0152 2100                  358 | LF    DC      /2100      2,1      P.D.              V1B03580
0153 2676                  359 |       DC      /2676      2,6      7,6               V1B03590
0154 262B                  360 |       DC      /262B      2,6      2,11              V1B03600
0155 AB09                  361 |       DC      /AB09     10,11     P.U.              V1B03610
0156 B101                  362 |       DC      /B101     11,1                        V1B03620
0157 C708                  363 |       DC      256*.G+LH-*                           V1B03630
0158 AA00                  364 | LG    DC      /AA00     10,10     P.D.              V1B03640
0159 9B3B                  365 |       DC      /9B3B      9,11     3,11              V1B03650
015A 2A22                  366 |       DC      /2A22      2,10     2,2               V1B03660
015B 3191                  367 |       DC      /3191      3,1      9,1               V1B03670
015C A2A6                  368 |       DC      /A2A6     10,2      10,6              V1B03680
015D 7609                  369 |       DC      /7609      7,6      P.U.              V1B03690
015E B101                  370 |       DC      /B101     11,1      STOP              V1B03700
015F C807                  371 |       DC      256*.H+LI-*                           V1B03710
0160 2100                  372 | LH    DC      /2100      2,1      P.D.              V1B03720
0161 262B                  373 |       DC      /262B      2,6      2,11              V1B03730
0162 26A6                  374 |       DC      /26A6      2,6     10,6               V1B03740
0163 ABA6                  375 |       DC      /ABA6     10,11    10,6               V1B03750
0164 A109                  376 |       DC      /A109     10,1      P.U.              V1B03760
0165 B101                  377 |       DC      /B101     11,1      STOP              V1B03770
0166 C907                  378 |       DC      256*.I+LJ-*                           V1B03780
0167 3100                  379 | LI    DC      /3100      3,1      P.D.              V1B03790
0168 6191                  380 |       DC      /6191      6,1      9,1               V1B03800
0169 616B                  381 |       DC      /616B     6,1       6,11              V1B03810
016A 3B6B                  382 |       DC      /3B6B      3,11                       V1B03820
016B 9B09                  383 |       DC      /9B09      9,11     P.U.              V1B03830
016C B101                  384 |       DC      /B101     11,1      STOP              V1B03840
016D D106                  385 |       DC      256*.J+LK-*                           V1B03850
016E 2300                  386 | LJ    DC      /2300      2,3      P.D.              V1B03860
016F 2231                  387 |       DC      /2231      2,2      3,1               V1B03870
0170 91A2                  388 |       DC      /91A2      9,1     10,2               V1B03880
0171 AB09                  389 |       DC      /AB09     10,11     P.U.              V1B03890
0172 B101                  390 |       DC      /B101     11,1      STOP              V1B03900
0173 D207                  391 |       DC      256*.K+LL-*                           V1B03910
0174 2100                  392 | LK    DC      /2100      2,1      P.D.              V1B03920
0175 252B                  393 |       DC      /252B      2,5      2,11              V1B03930
0176 2558                  394 |       DC      /2558      2,5      5,8               V1B03940
0177 8B58                  395 |       DC      /8B58      8,11     5,8               V1B03950
0178 A109                  396 |       DC      /A109     10,1      P.U.              V1B03960
0179 B101                  397 |       DC      /B101     11,1      STOP              V1B03970
017A D305                  398 |       DC      256*.L+LM-*                           V1B03980
017B 2B00                  399 | LL    DC      /2B00      2,11     P.D.              V1B03990
017C 21A1                  400 |       DC      /21A1      2,1     10,1               V1B04000
017D 09B1                  401 |       DC      /09B1      P.U.    11,1               V1B04010
017E 0100                  402 |       DC      /0100      STOP                       V1B04020
017F D406                  403 |       DC      256*.M+LN-*                           V1B04030
0180 2100                  404 | LM    DC      /2100      2,1      P.D.              V1B04040
0181 2B61                  405 |       DC      /2B61      2,11     6,1               V1B04050
0182 ABA1                  406 |       DC      /ABA1     10,11    10,1               V1B04060
0183 09B1                  407 |       DC      /09B1      P.U.    11,1               V1B04070
0184 0100                  408 |       DC      /0100      STOP                       V1B04080
0185 D505                  409 |       DC      256*.N+LO-*                           V1B04090
0186 2100                  410 | LN    DC      /2100      2,1      P.D.              V1B04100
0187 2BA1                  411 |       DC      /2BA1      2,11    10,1               V1B04110
0188 AB09                  412 |       DC      /AB09     10,11     P.U.              V1B04120
0189 B101                  413 |       DC      /B101     11,1      STOP              V1B04130
018A D608                  414 |       DC      256*.O+LP-*                           V1B04140
018B 2200                  415 | LO    DC      /2200      2,2      P.D.              V1B04150
018C 2A3B                  416 |       DC      /2A3B      2,10     3,11              V1B04160
018D 9BAA                  417 |       DC      /9BAA      9,11    10,10              V1B04170
018E A291                  418 |       DC      /A291     10,2      9,1               V1B04180
018F 3122                  419 |       DC      /3122      3,1      2,2               V1B04190
0190 09B1                  420 |       DC      /09B1      P.U.    11,1               V1B04200
0191 0100                  421 |       DC      /0100      STOP                       V1B04210
0192 D707                  422 |       DC      256*.P+LQ-*                           V1B04220
0193 2100                  423 | LP    DC      /2100      2,1      P.D.              V1B04230
0194 262B                  424 |       DC      /262B      2,6      2,11              V1B04240
0195 9BAA                  425 |       DC      /9BAA      9,11    10,10              V1B04250
0196 A796                  426 |       DC      /A796     10,7      9,6               V1B04260
0197 2609                  427 |       DC      /2609      2,6      P.U.              V1B04270
0198 B101                  428 |       DC      /B101     11,1      STOP              V1B04280
0199 D80B                  429 |       DC      256*.Q+LR-*                           V1B04290
019A 8300                  430 | LQ    DC      /8300      8,3      P.D.              V1B04300
019B 92A4                  431 |       DC      /92A4      9,2     10,4               V1B04310
019C A89A                  432 |       DC      /A89A     10,8      9,10              V1B04320
019D 7B5B                  433 |       DC      /7B5B      7,11     5,11              V1B04330
019E 3A28                  434 |       DC      /3A28      3,10     2,8               V1B04340
019F 2432                  435 |       DC      /2432      2,4      3,2               V1B04350
01A0 5171                  436 |       DC      /5171      5,1      7,1               V1B04360
01A1 92A1                  437 |       DC      /92A1      9,2     10,1               V1B04370
01A2 09B1                  438 |       DC      /09B1      P.U.    11,1               V1B04380
01A3 0100                  439 |       DC      /0100      STOP                       V1B04390
01A4 D909                  440 |       DC      256*.R+LS-*                           V1B04400
01A5 2100                  441 | LR    DC      /2100      2,1      P.D.              V1B04410
01A6 262B                  442 |       DC      /262B      2,6      2,11              V1B04420
01A7 9BAA                  443 |       DC      /9BAA      9,11    10,10              V1B04430
01A8 A796                  444 |       DC      /A796     10,7      9,6               V1B04440
01A9 5626                  445 |       DC      /5626      5,6      2,6               V1B04450
01AA 56A1                  446 |       DC      /56A1      5,6     10,1               V1B04460
01AB 09B1                  447 |       DC      /09B1      P.U.    11,1               V1B04470
01AC 0100                  448 |       DC      /0100      STOP                       V1B04480
01AD E209                  449 |       DC      256*.S+LT-*                           V1B04490
01AE 2200                  450 | LS    DC      /2200      2,2      P.D.              V1B04500
01AF 3191                  451 |       DC      /3191      3,1      9,1               V1B04510
01B0 A2A5                  452 |       DC      /A2A5     10,2     10,5               V1B04520
01B1 9636                  453 |       DC      /9636      9,6      3,6               V1B04530
01B2 272A                  454 |       DC      /272A      2,7      2,10              V1B04540
01B3 3B9B                  455 |       DC      /3B9B      3,11     9,11              V1B04550
01B4 AA09                  456 |       DC      /AA09     10,10     P.U.              V1B04560
01B5 B101                  457 |       DC      /B101     11,1      STOP              V1B04570
01B6 E306                  458 |       DC      256*.T+LU-*                           V1B04580
01B7 6100                  459 | LT    DC      /6100      6,1      P.D.              V1B04590
01B8 6B2B                  460 |       DC      /6B2B      6,11     2,11              V1B04600
01B9 6BAB                  461 |       DC      /6BAB      6,11    10,11              V1B04610
01BA 09B1                  462 |       DC      /09B1      P.U.    11,1               V1B04620
01BB 0100                  463 |       DC      /0100      STOP                       V1B04630
01BC E406                  464 |       DC      256*.U+LV-*                           V1B04640
01BD 2B00                  465 | LU    DC      /2B00      2,11     P.D.              V1B04650
01BE 2231                  466 |       DC      /2231      2,2      3,1               V1B04660
01BF 91A2                  467 |       DC      /91A2      9,1     10,2               V1B04670
01C0 AB09                  468 |       DC      /AB09     10,11     P.U.              V1B04680
01C1 B101                  469 |       DC      /B101     11,1      STOP              V1B04690
01C2 E505                  470 |       DC      256*.V+LW-*                           V1B04700
01C3 2B00                  471 | LV    DC      /2B00      2,11     P.D.              V1B04710
01C4 61AB                  472 |       DC      /61AB      6,1     10,11              V1B04720
01C5 09B1                  473 |       DC      /09B1      P.U.    11,1               V1B04730
01C6 0100                  474 |       DC      /0100      STOP                       V1B04740
01C7 E606                  475 |       DC      256*.W+LX-*                           V1B04750
01C8 2B00                  476 | LW    DC      /2B00      2,11     P.D.              V1B04760
01C9 416B                  477 |       DC      /416B      4,1      6,11              V1B04770
01CA 81AB                  478 |       DC      /81AB      8,1     10,11              V1B04780
01CB 09B1                  479 |       DC      /09B1      P.U.    11,1               V1B04790
01CC 0100                  480 |       DC      /0100      STOP                       V1B04800
01CD E707                  481 |       DC      256*.X+LY-*                           V1B04810
01CE 2100                  482 | LX    DC      /2100      2,1      P.D.              V1B04820
01CF 66AB                  483 |       DC      /66AB      6,6     10,11              V1B04830
01D0 662B                  484 |       DC      /662B      6,6      2,11              V1B04840
01D1 66A1                  485 |       DC      /66A1      6,6     10,1               V1B04850
01D2 09B1                  486 |       DC      /09B1      P.U.    11,1               V1B04860
01D3 0100                  487 |       DC      /0100      STOP                       V1B04870
01D4 E806                  488 |       DC      256*.Y+LZ-*                           V1B04880
01D5 2B00                  489 | LY    DC      /2B00      2,11     P.D.              V1B04890
01D6 66AB                  490 |       DC      /66AB      6,6     10,11              V1B04900
01D7 6661                  491 |       DC      /6661      6,6      6,1               V1B04910
01D8 09B1                  492 |       DC      /09B1      P.U.    11,1               V1B04920
01D9 0100                  493 |       DC      /0100      STOP                       V1B04930
01DA E905                  494 |       DC      256*.Z+L0-*                           V1B04940
01DB 2B00                  495 | LZ    DC      /2B00      2,11     P.D.              V1B04950
01DC AB21                  496 |       DC      /AB21     10,11     2,1               V1B04960
01DD A109                  497 |       DC      /A109     10,1      P.U.              V1B04970
01DE B101                  498 |       DC      /B101     11,1      STOP              V1B04980
01DF F00A                  499 |       DC      256*.0+L1-*                           V1B04990
01E0 3200                  500 | L0    DC      /3200      3,2      P.D.              V1B05000
01E1 2428                  501 |       DC      /2428      2,4      2,8               V1B05010
01E2 3A5B                  502 |       DC      /3A5B      3,10     5,11              V1B05020
01E3 7B9A                  503 |       DC      /7B9A      7,11     9,10              V1B05030
01E4 A8A4                  504 |       DC      /A8A4     10,8     10,4               V1B05040
01E5 9271                  505 |       DC      /9271      9,2      7,1               V1B05050
01E6 5132                  506 |       DC      /5132      5,1      3,2               V1B05060
01E7 09B1                  507 |       DC      /09B1      P.U.    11,1               V1B05070
01E8 0100                  508 |       DC      /0100      STOP                       V1B05080
01E9 F106                  509 |       DC      256*.1+L2-*                           V1B05090
01EA 3800                  510 | L1    DC      /3800      3,8      P.D.              V1B05100
01EB 6B61                  511 |       DC      /6B61      6,11     6,1               V1B05110
01EC 2161                  512 |       DC      /2161      2,1      6,1               V1B05120
01ED A109                  513 |       DC      /A109     10,1      P.U.              V1B05130
01EE B101                  514 |       DC      /B101     11,1      STOP              V1B05140
01EF F208                  515 |       DC      256*.2+L3-*                           V1B05150
01F0 2A00                  516 | L2    DC      /2A00      2,10     P.D.              V1B05160
01F1 3B9B                  517 |       DC      /3B9B      3,11     9,11              V1B05170
01F2 AAA7                  518 |       DC      /AAA7     10,10    10,7               V1B05180
01F3 9636                  519 |       DC      /9636      9,6      3,6               V1B05190
01F4 2521                  520 |       DC      /2521      2,5      2,1               V1B05200
01F5 A109                  521 |       DC      /A109     10,1      P.U.              V1B05210
01F6 B101                  522 |       DC      /B101     11,1      STOP              V1B05220
01F7 F30A                  523 |       DC      256*.3+L4-*                           V1B05230
01F8 2A00                  524 | L3    DC      /2A00      2,10     P.D.              V1B05240
01F9 3B9B                  525 |       DC      /3B9B      3,11     9,11              V1B05250
01FA AAA7                  526 |       DC      /AAA7     10,10    10,7               V1B05260
01FB 9646                  527 |       DC      /9646      9,6      4,6               V1B05270
01FC 96A5                  528 |       DC      /96A5      9,6     10,5               V1B05280
01FD A291                  529 |       DC      /A291     10,2      9,1               V1B05290
01FE 3122                  530 |       DC      /3122      3,1      2,2               V1B05300
01FF 09B1                  531 |       DC      /09B1      P.U.    11,1               V1B05310
0200 0100                  532 |       DC      /0100      STOP                       V1B05320
0201 F405                  533 |       DC      256*.4+L5-*                           V1B05330
0202 A400                  534 | L4    DC      /A400     10,4      P.D.              V1B05340
0203 249B                  535 |       DC      /249B      2,4      9,11              V1B05350
0204 9109                  536 |       DC      /9109      9,1      P.U.              V1B05360
0205 B101                  537 |       DC      /B101     11,1      STOP              V1B05370
0206 F508                  538 |       DC      256*.5+L6-*                           V1B05380
0207 2200                  539 | L5    DC      /2200      2,2      P.D.              V1B05390
0208 3191                  540 |       DC      /3191      3,1      9,1               V1B05400
0209 A2A6                  541 |       DC      /A2A6     10,2     10,6               V1B05410
020A 9727                  542 |       DC      /9727      9,7      2,7               V1B05420
020B 2BAB                  543 |       DC      /2BAB      2,11    10,11              V1B05430
020C 09B1                  544 |       DC      /09B1      P.U.    11,1               V1B05440
020D 0100                  545 |       DC      /0100      STOP                       V1B05450
020E F60A                  546 |       DC      256*.6+L7-*                           V1B05460
020F 2500                  547 | L6    DC      /2500      2,5      P.D.              V1B05470
0210 3696                  548 |       DC      /3696      3,6      9,6               V1B05480
0211 A5A2                  549 |       DC      /A5A2     10,5     10,2               V1B05490
0212 9131                  550 |       DC      /9131      9,1      3,1               V1B05500
0213 2225                  551 |       DC      /2225      2,2      2,5               V1B05510
0214 2A3B                  552 |       DC      /2A3B      2,10     3,11              V1B05520
0215 9BAA                  553 |       DC      /9BAA      9,11    10,10              V1B05530
0216 09B1                  554 |       DC      /09B1      P.U.    11,1               V1B05540
0217 0100                  555 |       DC      /0100      STOP                       V1B05550
0218 F705                  556 |       DC      256*.7+L8-*                           V1B05560
0219 2B00                  557 | L7    DC      /2B00      2,11     P.D.              V1B05570
021A AB21                  558 |       DC      /AB21     10,11     2,1               V1B05580
021B 09B1                  559 |       DC      /09B1      P.U.    11,1               V1B05590
021C 0100                  560 |       DC      /0100      STOP                       V1B05600
021D F80C                  561 |       DC      256*.8+L9-*                           V1B05610
021E 3100                  562 | L8    DC      /3100      3,1      P.D.              V1B05620
021F 2225                  563 |       DC      /2225      2,2      2,5               V1B05630
0220 3696                  564 |       DC      /3696      3,6      9,6               V1B05640
0221 3627                  565 |       DC      /3627      3,6      2,7               V1B05650
0222 2A3B                  566 |       DC      /2A3B      2,10     3,11              V1B05660
0223 9BAA                  567 |       DC      /9BAA      9,11    10,10              V1B05670
0224 A796                  568 |       DC      /A796     10,7      9,6               V1B05680
0225 A5A2                  569 |       DC      /A5A2     10,5     10,2               V1B05690
0226 9131                  570 |       DC      /9131      9,1      3,1               V1B05700
0227 09B1                  571 |       DC      /09B1      P.U.    11,1               V1B05710
0228 0100                  572 |       DC      /0100      STOP                       V1B05720
0229 F90A                  573 |       DC      256*.9+LBLK-*                         V1B05730
022A 2200                  574 | L9    DC      /2200      2,2      P.D.              V1B05740
022B 3191                  575 |       DC      /3191      3,1      9,1               V1B05750
022C A2A7                  576 |       DC      /A2A7     10,2     10,7               V1B05760
022D AA9B                  577 |       DC      /AA9B     10,10     9,11              V1B05770
022E 3B2A                  578 |       DC      /3B2A      3,11     2,10              V1B05780
022F 2736                  579 |       DC      /2736      2,7      3,6               V1B05790
0230 96A7                  580 |       DC      /96A7      9,6     10,7               V1B05800
0231 09B1                  581 |       DC      /09B1      P.U.    11,1               V1B05810
0232 0100                  582 |       DC      /0100      STOP                       V1B05820
0233 4002                  583 |       DC      256*. +LMIN-*                         V1B05830
0234 B101                  584 | LBLK  DC      /B101     11,1      STOP              V1B05840
0235 6004                  585 |       DC      256*.-+LPLS-*                         V1B05850
0236 3600                  586 | LMIN  DC      /3600      3,6      P.D.              V1B05860
0237 9609                  587 |       DC      /9609      9,6                        V1B05870
0238 B101                  588 |       DC      /B101     11,1      STOP              V1B05880
0239 4E06                  589 |       DC      256*/4E+LDEC-*                        V1B05890
023A 3600                  590 | LPLS  DC      /3600      3,6      P.D.              V1B05900
023B 9666                  591 |       DC      /9666      9,6      6,6               V1B05910
023C 6966                  592 |       DC      /6966      6,9      6,6               V1B05920
023D 6309                  593 |       DC      /6309      6,3      P.U.              V1B05930
023E B101                  594 |       DC      /B101     11,1      STOP              V1B05940
023F 4B06                  595 |       DC      256*..+LCOM-*                         V1B05950
0240 5400                  596 | LDEC  DC      /5400      5,4      P.D.              V1B05960
0241 5676                  597 |       DC      /5676      5,6      7,6               V1B05970
0242 7454                  598 |       DC      /7454      7,4      5,4               V1B05980
0243 09B1                  599 |       DC      /09B1      P.U.    11,1               V1B05990
0244 0100                  600 |       DC      /0100      STOP                       V1B06000
0245 6B07                  601 |       DC      256*.,+LASK-*                         V1B06010
0246 5100                  602 | LCOM  DC      /5100      5,1      P.D.              V1B06020
0247 7374                  603 |       DC      /7374      7,3      7,4               V1B06030
0248 7656                  604 |       DC      /7656      7,6      5,6               V1B06040
0249 5474                  605 |       DC      /5474      5,4      7,4               V1B06050
024A 09B1                  606 |       DC      /09B1      P.U.    11,1               V1B06060
024B 0100                  607 |       DC      /0100      STOP                       V1B06070
024C 5C09                  608 |       DC      256*.*+LSLA-*                         V1B06080
024D 4400                  609 | LASK  DC      /4400      4,4      P.D.              V1B06090
024E 6688                  610 |       DC      /6688      6,6      8,8               V1B06100
024F 6648                  611 |       DC      /6648      6,6      4,8               V1B06110
0250 6684                  612 |       DC      /6684      6,6      8,4               V1B06120
0251 6636                  613 |       DC      /6636      6,6      3,6               V1B06130
0252 6696                  614 |       DC      /6696      6,6      9,6               V1B06140
0253 09B1                  615 |       DC      /09B1      P.U.    11,1               V1B06150
0254 0100                  616 |       DC      /0100      STOP                       V1B06160
0255 6104                  617 |       DC      256*./+LEQU-*                         V1B06170
0256 2200                  618 | LSLA  DC      /2200      2,2      P.D.              V1B06180
0257 AA09                  619 |       DC      /AA09     10,10     P.U.              V1B06190
0258 B101                  620 |       DC      /B101     11,1      STOP              V1B06200
0259 7E06                  621 |       DC      256*/7E+LRPN-*                        V1B06210
025A 3400                  622 | LEQU  DC      /3400      3,4      P.D.              V1B06220
025B 9409                  623 |       DC      /9409      9,4      P.U.              V1B06230
025C 3800                  624 |       DC      /3800      3,8      P.D.              V1B06240
025D 9809                  625 |       DC      /9809      9,8      P.U.              V1B06250
025E B101                  626 |       DC      /B101     11,1      STOP              V1B06260
025F 5D05                  627 |       DC      256*.<+LLPN-*                         V1B06270
0260 4100                  628 | LRPN  DC      /4100      4,1      P.D.              V1B06280
0261 6369                  629 |       DC      /6369      6,3      6,9               V1B06290
0262 4B09                  630 |       DC      /4B09      4,11     P.U.              V1B06300
0263 B101                  631 |       DC      /B101     11,1      STOP              V1B06310
0264 4D05                  632 |       DC      256*.%+LDOL-*                         V1B06320
0265 8B00                  633 | LLPN  DC      /8B00      8,11     P.D.              V1B06330
0266 6963                  634 |       DC      /6963      6,9      6,3               V1B06340
0267 8109                  635 |       DC      /8109      8,1      P.U.              V1B06350
0268 B101                  636 |       DC      /B101     11,1      STOP              V1B06360
0269 5B0C                  637 |       DC      256*.$+LQUO-*                         V1B06370
026A 3300                  638 | LDOL  DC      /3300      3,3      P.D.              V1B06380
026B 4282                  639 |       DC      /4282      4,2      8,2               V1B06390
026C 9395                  640 |       DC      /9395      9,3      9,5               V1B06400
026D 8646                  641 |       DC      /8646      8,6      4,6               V1B06410
026E 3739                  642 |       DC      /3739      3,7      3,9               V1B06420
026F 4A6A                  643 |       DC      /4A6A      4,10     6,10              V1B06430
0270 8A99                  644 |       DC      /8A99      8,10     9,9               V1B06440
0271 8A6A                  645 |       DC      /8A6A      8,10     6,10              V1B06450
0272 6B61                  646 |       DC      /6B61      6,11     6,1               V1B06460
0273 09B1                  647 |       DC      /09B1      P.U.    11,1               V1B06470
0274 0100                  648 |       DC      /0100      STOP                       V1B06480
0275 7D06                  649 |       DC      256*/7D+TABEN-*+1                     V1B06490
0276 6700                  650 | LQUO  DC      /6700     6,7       P.D.              V1B06500
0277 695A                  651 |       DC      /695A     6,9       5,10              V1B06510
0278 6B7A                  652 |       DC      /6B7A     6,11      7,10              V1B06520
0279 6909                  653 |       DC      /6909     6,9       P.U.              V1B06530
027A B101                  654 |       DC      /B101     11,1      STOP              V1B06540
027B 0000                  655 | TABEN DC      0                                     V1B06550
027C                       656 |       END                                           V1B06560
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
ADD   00CCR  233   56   77  102  107  109
AN    0037R   93   57
AN0   003ER   99   54   64
AN1   0047R  105   55   91  100
AN2   004ER  111  104
AN3   0051R  113  124
AN4   005FR  125  114
AN5   0061R  126  118
C10   00DCR  250  157  169
C32K  00DFR  251  306  312
CCOS  00E8R  254  310
CN1   006FR  138   90  133
CN2   0076R  144  137
CNO   0067R  132  217  225
CNT   000DR   58   48   63   83   97
CNTL  00C1R  218  145
CNTLX 00C8R  224  220
COST  00D3R  240  178  185  314
CP5   00EER  256  159  171
CSIN  00EBR  255  304
DELTX 00D8R  245  161  177  187
DELTY 00D9R  246  173  184
ECHRI 001DR   71
ECHRX 0113R  293  315
EXIT  001CR   70   50   85   89
H0001 00F7R  263   81  146  150  221
H0002 00F8R  264   76   78
H00FF 00F6R  262  108  116  141
L0    01E0R  500  494
L1    01EAR  510  499
L2    01F0R  516  509
L3    01F8R  524  515
L4    0202R  534  523
L5    0207R  539  533
L6    020FR  547  538
L7    0219R  557  546
L8    021ER  562  556
L9    022AR  574  561
LA    012CR  320
LASK  024DR  609  601
LB    0133R  327  319
LBLK  0234R  584  125  573
LC    013DR  337  326
LCOM  0246R  602  595
LD    0144R  344  336
LDEC  0240R  596  589
LDOL  026AR  638  632
LE    014BR  351  343
LEQU  025AR  622  617
LF    0152R  358  350
LG    0158R  364  357
LH    0160R  372  363
LI    0167R  379  371
LJ    016ER  386  378
LK    0174R  392  385
LL    017BR  399  391
LLPN  0265R  633  627
LM    0180R  404  398
LMIN  0236R  586  583
LN    0186R  410  403
LO    018BR  415  409
LP    0193R  423  414
LPLS  023AR  590  585
LQ    019AR  430  422
LQUO  0276R  650  637
LR    01A5R  441  429
LRPN  0260R  628  621
LS    01AER  450  440
LSLA  0256R  618  608
LT    01B7R  459  449
LU    01BDR  465  458
LV    01C3R  471  464
LW    01C8R  476  470
LX    01CER  482  475
LY    01D5R  489  481
LZ    01DBR  495  488
MB1   0080R  153   62
MB2   0095R  173  228
MOD2  00CAR  227  163
MOD3  00FER  272  194
NLET  00F9R  265   59   60   95
ROUND 00F4R  260  180  190
RTN   0017R   65   87   98
SINT  00D2R  239  175  188  308
STRNG 00D1R  238  127  135  140  142
SV1   0018R   66   51   71
SV2   001AR   68   52   73
SVCH  00D0R  237  111  117
SW1   00CDR  234   93   99  101  106
SW2   00CER  235  129  132  134  139
SW3   00CFR  236   61  162  193  289
TABEN 027BR  655  649
TABLE 012BR  319  112
TEMP  00F2R  258  176  179  186  189
V     014CR  232   53   60   74   76   77   78   81   93   95   96   99  106
                  108  111  116  117  141
VCHRI 0000R   48
X1    00DAR  248  182  195  197  206  209  212  272  286
XC    00E2R  252  155  300
XINC  00FAR  267  211  213  274  275  281  284  290
XLAST 00FCR  269   96  273  287
XN    00D4R  241  130  147  152  196  198  199
XOX   000ER   59  222
XOX1  0014R   63  291
Y1    00DBR  249  192  200  202  207  210  215  276
YC    00E5R  253  167
YINC  00FBR  268  214  216  278  279  282  285
YLAST 00FDR  270  277
YLP   0118R  297  295  302
YN    00D6R  243  131  151  164  201  203  204