V1FCHRX

Table Of Contents
v1fchrx.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:10 2020
 
Source File: \v1fchrx.asm 
                             1 | *************************************************** V1G00010
                             2 | *                                                 * V1G00020
                             3 | * STATUS - VERSION 2, MODIFICATION 8                V1G00030
                             4 | *   SUBROUTINE NAME-                              * V1G00040
                             5 | *      FULL NAME- STANDARD PRECISION ANNOTATION   * V1G00050
                             6 | *         SUBROUTINE.                             * V1G00060
                             7 | *      CODE NAME- FCHRX                           * V1G00070
                             8 | *   PURPOSE- FORMS THE CHARACTERS SPECIFIED BY    * V1G00080
                             9 | *      COMPUTER OUTPUT DATA USING PARAMETERS FROM * V1G00090
                            10 | *      THE CHARACTER SUBROUTINE (FCHAR).          * V1G00100
                            11 | *   METHOD- N/A                                   * V1G00110
                            12 | *   CAPABILITIES AND LIMITATIONS- SEE IBM         * V1G00120
                            13 | *      1130/1800 PLOTTER SUBROUTINES MANUAL       * V1G00130
                            14 | *      (FORM C26-3755).                           * V1G00140
                            15 | *   SPECIAL FEATURES- N/A                         * V1G00150
                            16 | *   ADDITIONAL INFORMATION- N/A                   * V1G00160
                            17 | *                                                 * V1G00170
                            18 | *************************************************** V1G00180
                            19 | *                                                   V1G00190
                            20 | *             THE CALL TO THE FCHRX ROUTINE         V1G00200
                            21 | *             IS AS FOLLOWS                         V1G00210
                            22 | *                                                   V1G00220
                            23 | *             LIBF FCHRI                            V1G00230
                            24 | *             DC   0                                V1G00240
                            25 | *             DC   BUFFER OF CHARACTERS TO PLOT     V1G00250
                            26 | *             DC   0                                V1G00260
                            27 | *                                                   V1G00270
                            28 | *             LIBF WCHRI                            V1G00280
                            29 | *                  XR1 = BUFFER ADDRESS         2-8 V1G00290
                            30 | *                  XR2 = CHAR COUNT             2-8 V1G00300
                            31 | *                                                   V1G00310
                            32 | *             LIBF FCHRX                            V1G00320
                            33 | *                  XR1 = XS+8                       V1G00330
                            34 | *                  .                                V1G00340
                            35 | *                  .                                V1G00350
                            36 | *                  .                                V1G00360
                            37 | *                  .                                V1G00370
                            38 | *      XS     DEC  X-SCALE (REAL)                   V1G00380
                            39 | *             DEC  Y-SCALE (REAL)                   V1G00390
                            40 | *             DEC  COS(THETA)                       V1G00400
                            41 | *             DEC  SIN(THETA)                       V1G00410
                            42 | *                                                   V1G00420
                            43 |       SPR                                           V1G00430
                            44 |       LIBR                                          V1G00440
                            45 |       ENT     FCHRX     ENTRY FROM FCHAR CALL       V1G00450
                            46 |       ENT     FCHRI     ENTRY FROM FIO WRITE STMNT  V1G00460
                            47 |       ENT     WCHRI     ENTRY FROM FIO WRITE STMNT  V1G00470
0000 6A0C                   48 | WCHRI STX   2 CNT       SET CHARACTER COUNT         V1G00480
0001 6680 0000              49 |       LDX  I2 *-*       SET EXIT                    V1G00490
0003 6A18                   50 |       STX   2 EXIT                                  V1G00500
0004 6913                   51 |       STX   1 SV1       SAVE XR1                    V1G00510
0005 6A14                   52 |       STX   2 SV2       SAVE XR2                    V1G00520
0006 6600 014CR             53 |       LDX  L2 V         SET XR2 WITH V              V1G00530
0008 C035                   54 |       LD      AN0       SET 1 CHARACTER/WORD SWITCH V1G00540
0009 D03D                   55 |       STO     AN1                                   V1G00550
000A 6D00 00CCR             56 |       STX  L1 ADD       SET BUFFER ADDRESS          V1G00560
000C 702A                   57 |       MDX     AN                                    V1G00570
000D 0000                   58 | CNT   DC      *-*       CHARACTER COUNT             V1G00580
000E 740A 00F1R             59 | XOX   MDX  L  NLET,10    MAKE TEN MORE          2-8 V1G00590
0010 C2A5                   60 |       LD    2 NLET-V     GET NUMBER OF LETTERS  2-8 V1G00600
0011 7401 00CFR             61 |       MDX  L  SW3,1      TURN ON CNTRL SW       2-8 V1G00610
0013 706C                   62 |       MDX     MB1        CALCULATE COORDINATES  2-8 V1G00620
0014 74FF 000DR             63 | XOX1  MDX  L  CNT,-1     SKIP IF BUFFER OUTPUTED    V1G00630
0016 7027                   64 |       MDX     AN0                                   V1G00640
0017 6500 0000              65 | RTN   LDX  L1 *-*       RESTORE XR1 AND XR2         V1G00650
0018R                       66 | SV1   EQU     *-1                                   V1G00660
0019 6600 0000              67 |       LDX  L2 *-*                                   V1G00670
001AR                       68 | SV2   EQU     *-1                                   V1G00680
001B 4C00 0000              69 |       BSC  L  *-*       EXIT                        V1G00690
001CR                       70 | EXIT  EQU     *-1       RETURN                      V1G00700
001D 69FA                   71 | FCHRI STX   1 SV1       SAVE XR1                    V1G00710
001E 6580 0000              72 |       LDX  I1 *-*                                   V1G00720
0020 6AF9                   73 |       STX   2 SV2       SAVE XR2                    V1G00730
0021 6600 014CR             74 |       LDX  L2 V         SET XR2 WITH V              V1G00740
0023 C101                   75 |       LD    1 1         GET ADDRESS OF BUFFER       V1G00750
0024 82A4                   76 |       A     2 H0002-V                               V1G00760
0025 D280                   77 |       STO   2 ADD-V                                 V1G00770
0026 92A4                   78 |       S     2 H0002-V   GET COUNT                   V1G00780
0027 D001                   79 |       STO     *+1                                   V1G00790
0028 C400 0000              80 |       LD   L  *-*       LOAD COUNT                  V1G00800
002A 92A3                   81 |       S     2 H0001-V                               V1G00810
002B 1001                   82 |       SLA     1                                     V1G00820
002C D0E0                   83 |       STO     CNT       CHARACTER COUNT             V1G00830
002D 7102                   84 |       MDX   1 2                                     V1G00840
002E 69ED                   85 |       STX   1 EXIT      SET EXIT IF TEST FUNCTION   V1G00850
002F C1FE                   86 |       LD    1 -2                                    V1G00860
0030 4C18 0017R             87 |       BSC  L  RTN,+-    BRANCH IF FIO TEST FUNCTION V1G00870
0032 7101                   88 |       MDX   1 1                                     V1G00880
0033 69E8                   89 |       STX   1 EXIT      SET FOR NORMAL RETURN       V1G00890
0034 C03A                   90 |       LD      CN1       SET FOR MULTIPLE FIO        V1G00900
0035 D011                   91 |       STO     AN1       MODIFY INST TO SLA 16       V1G00910
0036 1010                   92 |       SLA     16        NORMALIZE SW1               V1G00920
0037 D281                   93 | AN    STO   2 SW1-V                                 V1G00930
0038 10A0                   94 |       SLT     32                                2-8 V1G00940
0039 D2A5                   95 |       STO   2 NLET-V     CLEAR                  2-8 V1G00950
003A DAA8                   96 |       STD   2 XLAST-V    CLEAR XLAST,YLAST      2-8 V1G00960
003B C0D1                   97 |       LD      CNT       CHECK FOR ZERO COUNT        V1G00970
003C 4C18 0017R             98 |       BSC  L  RTN,+-    BRANCH IF NO BUFFER         V1G00980
003E C281                   99 | AN0   LD    2 SW1-V     SW1 NORMAL                  V1G00990
003F 4C20 0047R            100 |       BSC  L  AN1,Z     BRANCH IF N0                V1G01000
0041 6C00 00CDR            101 |       STX  L0 SW1       TAG SW1                     V1G01010
0043 C480 00CCR            102 |       LD   I  ADD       GET LEFT CHARACTER          V1G01020
0045 1808                  103 |       SRA     8                                     V1G01030
0046 7007                  104 |       MDX     AN2                                   V1G01040
0047 1010                  105 | AN1   SLA     16  -*-   NORMALIZE SW1               V1G01050
0048 D281                  106 |       STO   2 SW1-V                                 V1G01060
0049 C480 00CCR            107 |       LD   I  ADD       GET RIGHT CHARACTER         V1G01070
004B E2A2                  108 |       AND   2 H00FF-V                               V1G01080
004C 7401 00CCR            109 |       MDX  L  ADD,1     INCREMENT ADD               V1G01090
                           110 | *     STATEMENT REMOVED                         2-8 V1G01100
004E D284                  111 | AN2   STO   2 SVCH-V    SAVE CHARACTER              V1G01110
004F 6500 0123R            112 |       LDX  L1 TABLE     POINT XR1 TO CHAR TABLE     V1G01120
0051 C100                  113 | AN3   LD    1 0         FETCH A CHARACTER           V1G01130
0052 4C18 005FR            114 |       BSC  L  AN4,+-    BR IF END OF TABLE          V1G01140
0054 1888                  115 |       SRT     8                                     V1G01150
0055 E2A2                  116 |       AND   2 H00FF-V   COMPARE RIGHT 8 BITS WITH   V1G01160
0056 F284                  117 |       EOR   2 SVCH-V    *SAVED CHARACTER            V1G01170
0057 4C18 0061R            118 |       BSC  L  AN5,+-    BRANCH IF MATCH             V1G01180
0059 1808                  119 |       SRA     8                                     V1G01190
005A 1088                  120 |       SLT     8                                     V1G01200
005B D001                  121 |       STO     *+1                                   V1G01210
005C 7500 0000             122 |       MDX  L1 *-*                                   V1G01220
                           123 | *     STATEMENT REMOVED                         2-8 V1G01230
005E 70F2                  124 |       MDX     AN3       TRY NEXT CHARACTER          V1G01240
005F 6500 022BR            125 | AN4   LDX  L1 LBLK-1    NOT IN TABLE, SUPPLY BLANK  V1G01250
0061 7101                  126 | AN5   MDX   1 1                                     V1G01260
0062 696E                  127 |       STX   1 STRNG                                 V1G01270
0063 1010                  128 |       SLA     16        NORMALIZE SW2               V1G01280
0064 D069                  129 |       STO     SW2                                   V1G01290
0065 D06E                  130 |       STO     XN        XN = 0                      V1G01300
0066 D06F                  131 |       STO     YN        YN = 0                      V1G01310
0067 C066                  132 | CNO   LD      SW2       SW2 NORMAL                  V1G01320
0068 4C20 006FR            133 |       BSC  L  CN1,Z     BRANCH IF NO                V1G01330
006A 6863                  134 |       STX   0 SW2       TAG SW2                     V1G01340
006B C480 00D1R            135 |       LD   I  STRNG     GET LEFT COORDINATE         V1G01350
006D 1808                  136 |       SRA     8                                     V1G01360
006E 7007                  137 |       MDX     CN2                                   V1G01370
006F 1010                  138 | CN1   SLA     16        NORMALIZE SW2               V1G01380
0070 D05D                  139 |       STO     SW2                                   V1G01390
0071 C480 00D1R            140 |       LD   I  STRNG     GET RIGHT COORDINATE        V1G01400
0073 E2A2                  141 |       AND   2 H00FF-V                           2-8 V1G01410
0074 7401 00D1R            142 |       MDX  L  STRNG,1   INCREMENT STRNG             V1G01420
                           143 | *     STATEMENT REMOVD                          2-8 V1G01430
0076 1884                  144 | CN2   SRT     4         SET UP XN+1,YN+1            V1G01440
0077 4C18 00C1R            145 |       BSC  L  CNTL,+-   IS CORDINATE A CONTROL      V1G01450
0079 9075                  146 |       S       H0001                                 V1G01460
007A D05A                  147 |       STO     XN+1                                  V1G01470
007B 1804                  148 |       SRA     4                                     V1G01480
007C 1084                  149 |       SLT     4                                     V1G01490
007D 9071                  150 |       S       H0001                                 V1G01500
007E D058                  151 |       STO     YN+1                                  V1G01510
007F C055                  152 |       LD      XN+1      CALCULATE DELTA X =         V1G01520
0080 064D*6063             153 | MB1   LIBF    FLOAT      (XN+1)*SIZEX           2-8 V1G01530
0081 0651*7A00             154 |       LIBF    FMPY                                  V1G01540
0082 00E0R                 155 |       DC      XC                                    V1G01550
0083 0651*7A00             156 |       LIBF    FMPY      MULTIPLY C/FAC BY CONSTANT  V1G01560
0084 00DCR                 157 |       DC      C10       *IN C10                     V1G01570
0085 0604*4100             158 |       LIBF    FADD      ADD TO C/ADDR IN CP5        V1G01580
0086 00E8R                 159 |       DC      CP5                                   V1G01590
0087 0918*99C0             160 |       LIBF    IFIX      CONVERT TO FIXED POINT NO.  V1G01600
0088 D04F                  161 |       STO     DELTX                                 V1G01610
0089 C045                  162 |       LD      SW3        GET CNTRL SW           2-8 V1G01620
008A 4C20 00CAR            163 |       BSC  L  MOD2,Z     CONTINUE IF NOT ON     2-8 V1G01630
008C C04A                  164 |       LD      YN+1      CALCULATE DELTA Y =         V1G01640
008D 064D*6063             165 |       LIBF    FLOAT     (YN+1)*SIZEY                V1G01650
008E 0651*7A00             166 |       LIBF    FMPY      MULTIPLY C/FAC BY C/YC      V1G01660
008F 00E2R                 167 |       DC      YC                                    V1G01670
0090 0651*7A00             168 |       LIBF    FMPY      MULTIPLY C/FAC BY           V1G01680
0091 00DCR                 169 |       DC      C10       *CONSTANT 10                V1G01690
0092 0604*4100             170 |       LIBF    FADD                                  V1G01700
0093 00E8R                 171 |       DC      CP5                                   V1G01710
0094 0918*99C0             172 |       LIBF    IFIX      CONVERT C/FAC TO INTEGER    V1G01720
0095 D043                  173 | MB2   STO     DELTY      *AND PACK UP IN ACC    2-8 V1G01730
                           174 | *     STATEMENTS REMOVED                        2-8 V1G01740
0096 A03B                  175 |       M       SINT                                  V1G01750
0097 D852                  176 |       STD     TEMP      DOUBLE STORE                V1G01760
0098 C03F                  177 |       LD      DELTX                                 V1G01770
0099 A039                  178 |       M       COST                                  V1G01780
009A 984F                  179 |       SD      TEMP                                  V1G01790
009B 8850                  180 |       AD      ROUND                                 V1G01800
009C 1081                  181 |       SLT     1                                     V1G01810
009D D03C                  182 |       STO     X1         COMPUTED X1            2-8 V1G01820
                           183 | *     STATEMENTS REMOVED                        2-8 V1G01830
009E C03A                  184 |       LD      DELTY     COMPUTE Y1 AND PYN          V1G01840
009F A033                  185 |       M       COST                                  V1G01850
00A0 D849                  186 |       STD     TEMP                                  V1G01860
00A1 C036                  187 |       LD      DELTX                                 V1G01870
00A2 A02F                  188 |       M       SINT      MULTIPLY BY INTEGER         V1G01880
00A3 8846                  189 |       AD      TEMP                                  V1G01890
00A4 8847                  190 |       AD      ROUND                                 V1G01900
00A5 1081                  191 |       SLT     1                                     V1G01910
00A6 D034                  192 |       STO     Y1         COMPUTED Y1            2-8 V1G01920
00A7 C027                  193 |       LD      SW3        TEST IF CNTRL SW ON    2-8 V1G01930
00A8 4C20 00F6R            194 |       BSC  L  MOD3,Z     BRANCH IF ON           2-8 V1G01940
00AA C02F                  195 |       LD      X1                                2-8 V1G01950
00AB 9028                  196 |       S       XN                                2-8 V1G01960
00AC D02D                  197 |       STO     X1                                2-8 V1G01970
00AD 8026                  198 |       A       XN                                2-8 V1G01980
00AE D025                  199 |       STO     XN                                2-8 V1G01990
00AF C02B                  200 |       LD      Y1                                2-8 V1G02000
00B0 9025                  201 |       S       YN                                    V1G02010
00B1 D029                  202 |       STO     Y1        COMPUTED Y1                 V1G02020
00B2 8023                  203 |       A       YN                                    V1G02030
00B3 D022                  204 |       STO     YN                                    V1G02040
00B4 0625*50C0             205 |       LIBF    FINC      UPDATE SYSTEM X,Y           V1G02050
00B5 00DAR                 206 |       DC      X1                                    V1G02060
00B6 00DBR                 207 |       DC      Y1                                    V1G02070
00B7 27A1*74E3             208 |       LIBF    XYPLT     MOVE THE PEN                V1G02080
00B8 00DAR                 209 |       DC      X1                                    V1G02090
00B9 00DBR                 210 |       DC      Y1                                    V1G02100
00BA C037                  211 |       LD      XINC                              2-8 V1G02110
00BB 801E                  212 |       A       X1                                2-8 V1G02120
00BC D035                  213 |       STO     XINC       ACCUMULATE X INCR      2-8 V1G02130
00BD C035                  214 |       LD      YINC                              2-8 V1G02140
00BE 801C                  215 |       A       Y1                                2-8 V1G02150
00BF D033                  216 |       STO     YINC       ACCUMULATE Y INCR      2-8 V1G02160
00C0 70A6                  217 |       MDX     CNO       BRANCH TO TEST SW2          V1G02170
00C1 1804                  218 | CNTL  SRA     4         STOP CONTROL                V1G02180
00C2 1084                  219 |       SLT     4                                     V1G02190
00C3 D004                  220 |       STO     CNTLX     SET CONTROL PARAMETER       V1G02200
00C4 902A                  221 |       S       H0001      IS IT END OF STRING        V1G02210
00C5 4C18 000ER            222 |       BSC  L  XOX,+-    BRANCH IF YES               V1G02220
00C7 174D*68C9             223 |       LIBF    PLOTI     PLOT CONTROL                V1G02230
00C8 0000                  224 | CNTLX DC      *-*       CONTROL PARAMETER           V1G02240
00C9 709D                  225 |       MDX     CNO       BRANCH TO TEST SW2          V1G02250
                           226 | *                                               2-8 V1G02260
00CA 1010                  227 | MOD2  SLA     16                                2-8 V1G02270
00CB 70C9                  228 |       MDX     MB2        CONTINUE               2-8 V1G02280
                           229 | *                                                   V1G02290
                           230 | *                       PROGRAM CONSTANTS           V1G02300
                           231 | *                                                   V1G02310
014CR                      232 | V     EQU     *+128                                 V1G02320
00CC 0000                  233 | ADD   DC      *-*       ARRAY (ONE WORD INTEGER)    V1G02330
00CD 0000                  234 | SW1   DC      *-*        LEFT/RIGHT EBCDIC CHAR     V1G02340
00CE 0000                  235 | SW2   DC      *-*        LEFT/RIGHT VALUE IN TABLE  V1G02350
00CF 0000                  236 | SW3   DC      *-*        CONTROL SWITCH         2-8 V1G02360
00D0 0000                  237 | SVCH  DC      *-*       SAVED CHARACTER             V1G02370
00D1 0000                  238 | STRNG DC      *-*       COORDINATES, LEFT & RIGHT   V1G02380
00D2 0000                  239 | SINT  DC      *-*       SAVED INTEGER               V1G02390
00D3 7FFF                  240 | COST  DC      /7FFF                                 V1G02400
00D4 0000                  241 | XN    DC      *-*                                   V1G02410
00D5 0000                  242 |       DC      *-*                                   V1G02420
00D6 0000                  243 | YN    DC      *-*                                   V1G02430
00D7 0000                  244 |       DC      *-*                                   V1G02440
00D8 0000                  245 | DELTX DC      *-*                                   V1G02450
00D9 0000                  246 | DELTY DC      *-*                                   V1G02460
00DA                       247 |       BSS  E  0                                 2-8 V1G02470
00DA 0000                  248 | X1    DC      *-*                                   V1G02480
00DB 0000                  249 | Y1    DC      *-*                                   V1G02490
00DC 5000 0084             250 | C10   DEC     10.                                   V1G02500
00DE 7FFF 008F             251 | C32K  DEC     32767.    CONSTANT                    V1G02510
00E0 6666 667D             252 | XC    DEC     .1         CHAR SIZE X                V1G02520
00E2 6666 667D             253 | YC    DEC     .1         CHAR SIZE Y                V1G02530
00E4 0000 0000             254 | CCOS  DEC     0.                                    V1G02540
00E6 4000 0081             255 | CSIN  DEC     1.                                    V1G02550
00E8 4000 0080             256 | CP5   DEC     .5                                    V1G02560
00EA 0000                  257 | TEMP  DC      0                                     V1G02570
00EB 0000                  258 |       DC      0                                     V1G02580
00EC 0000                  259 | ROUND DC      /0000     EVEN ADDRESS                V1G02590
00ED 4000                  260 |       DC      /4000     CONSTANT                    V1G02600
00EE 00FF                  261 | H00FF DC      /00FF      MASK TO REMOVE LAST BITS   V1G02610
00EF 0001                  262 | H0001 DC      /1        CONSTANT                    V1G02620
00F0 0002                  263 | H0002 DC      /2        CONSTANT                    V1G02630
00F1 0000                  264 | NLET  DC      *-*        NUMBER OF LETTERS      2-8 V1G02640
00F2                       265 |       BSS  E  0                                 2-8 V1G02650
00F2 0000                  266 | XINC  DC      *-*        INCREMENT STORAGE      2-8 V1G02660
00F3 0000                  267 | YINC  DC      *-*        INCREMENT STORAGE      2-8 V1G02670
00F4 0000                  268 | XLAST DC      *-*        LAST X COORDINATE      2-8 V1G02680
00F5 0000                  269 | YLAST DC      *-*        LAST Y COORDINATE      2-8 V1G02690
                           270 | *                                               2-8 V1G02700
00F6 C0E3                  271 | MOD3  LD      X1         GET COORDINATE         2-8 V1G02710
00F7 90FC                  272 |       S       XLAST      SUBTRACT LAST COORD    2-8 V1G02720
00F8 90F9                  273 |       S       XINC       SUBTRACT COMPUTED COOR 2-8 V1G02730
00F9 D0F8                  274 |       STO     XINC       DIFFERENCE IN XINC     2-8 V1G02740
00FA C0E0                  275 |       LD      Y1         DO SAME FOR Y          2-8 V1G02750
00FB 90F9                  276 |       S       YLAST                             2-8 V1G02760
00FC 90F6                  277 |       S       YINC                              2-8 V1G02770
00FD D0F5                  278 |       STO     YINC                              2-8 V1G02780
00FE 0625*50C0             279 |       LIBF    FINC       UPDATE SYSTEM (X,Y)    2-8 V1G02790
00FF 00F2R                 280 |       DC      XINC                              2-8 V1G02800
0100 00F3R                 281 |       DC      YINC                              2-8 V1G02810
0101 27A1*74E3             282 |       LIBF    XYPLT      MOVE PEN               2-8 V1G02820
0102 00F2R                 283 |       DC      XINC                              2-8 V1G02830
0103 00F3R                 284 |       DC      YINC                              2-8 V1G02840
0104 C8D5                  285 |       LDD     X1                                2-8 V1G02850
0105 D8EE                  286 |       STD     XLAST      UPDATE XLAST,YLAST     2-8 V1G02860
0106 10A0                  287 |       SLT     32                                2-8 V1G02870
0107 D0C7                  288 |       STO     SW3        TURN OFF CNTRL SW      2-8 V1G02880
0108 D8E9                  289 |       STD     XINC       CLEAR XINC,YINC        2-8 V1G02890
0109 4C00 0014R            290 |       BSC  L  XOX1       RETURN                 2-8 V1G02900
                           291 | *                                                   V1G02910
010B 7002                  292 | FCHRX MDX     *+2                                   V1G02920
010C 4C80 0000             293 |       BSC  I  *-*       RETURN                      V1G02930
010E 6902                  294 |       STX   1 YLP+1                                 V1G02940
010F 61F8                  295 |       LDX   1 -8        GET XC,YC,CCOS,CSIN         V1G02950
0110 064C*49C0             296 | YLP   LIBF    FLDX                                  V1G02960
0111 0000                  297 |       DC      *-*                                   V1G02970
0112 068A*35A7             298 |       LIBF    FSTOX                                 V1G02980
0113 00E8R                 299 |       DC      XC+8                                  V1G02990
0114 7102                  300 |       MDX   1 2                                     V1G03000
0115 70FA                  301 |       MDX     YLP                                   V1G03010
0116 064C*4000             302 |       LIBF    FLD       SINT=SIN(ANGLE)*32768.      V1G03020
0117 00E6R                 303 |       DC      CSIN                                  V1G03030
0118 0651*7A00             304 |       LIBF    FMPY      MULTIPLY C/FAC              V1G03040
0119 00DER                 305 |       DC      C32K      *BY 32,767.                 V1G03050
011A 0918*99C0             306 |       LIBF    IFIX      CONVERT TO INTEGER          V1G03060
011B D0B6                  307 |       STO     SINT      SAVE INTEGER                V1G03070
011C 064C*4000             308 |       LIBF    FLD       COST=COS(ANGLE)*32768.      V1G03080
011D 00E4R                 309 |       DC      CCOS                                  V1G03090
011E 0651*7A00             310 |       LIBF    FMPY      MULTIPLY BY 32,767          V1G03100
011F 00DER                 311 |       DC      C32K                                  V1G03110
0120 0918*99C0             312 |       LIBF    IFIX      CONVERT TO INTEGER          V1G03120
0121 D0B1                  313 |       STO     COST      *AND STORE                  V1G03130
0122 70E9                  314 |       MDX     FCHRX+1                               V1G03140
                           315 | *                                                   V1G03150
                           316 | *                       CHARACTER TABLE             V1G03160
                           317 | *                                                   V1G03170
0123 C107                  318 | TABLE DC      256*.A+LB-*                           V1G03180
0124 2100                  319 | LA    DC      /2100      2,1      P.D.              V1G03190
0125 466B                  320 |       DC      /466B      4,6      6,11              V1G03200
0126 8646                  321 |       DC      /8646      8,6      4,6               V1G03210
0127 86A1                  322 |       DC      /86A1      8,6     10,1               V1G03220
0128 09B1                  323 |       DC      /09B1      P.U.    11,1               V1G03230
0129 0100                  324 |       DC      /0100      STOP                       V1G03240
012A C20A                  325 |       DC      256*.B+LC-*                           V1G03250
012B 2100                  326 | LB    DC      /2100      2,1      P.D.              V1G03260
012C 262B                  327 |       DC      /262B      2,6      2,11              V1G03270
012D 9BAA                  328 |       DC      /9BAA      9,11    10,10              V1G03280
012E A796                  329 |       DC      /A796     10,7      9,6               V1G03290
012F 2696                  330 |       DC      /2696      2,6      9,6               V1G03300
0130 A5A2                  331 |       DC      /A5A2     10,5     10,2               V1G03310
0131 9121                  332 |       DC      /9121      9,1      2,1               V1G03320
0132 09B1                  333 |       DC      /09B1      P.U.     11,1              V1G03330
0133 0100                  334 |       DC      /0100      STOP                       V1G03340
0134 C307                  335 |       DC      256*.C+LD-*                           V1G03350
0135 AA00                  336 | LC    DC      /AA00     10,10     P.D.              V1G03360
0136 9B3B                  337 |       DC      /9B3B      9,11     3,11              V1G03370
0137 2A22                  338 |       DC      /2A22      2,10     2,2               V1G03380
0138 3191                  339 |       DC      /3191      3,1      9,1               V1G03390
0139 A209                  340 |       DC      /A209     10,2      P.U.              V1G03400
013A B101                  341 |       DC      /B101     11,1      STOP              V1G03410
013B C407                  342 |       DC      256*.D+LE-*                           V1G03420
013C 2100                  343 | LD    DC      /2100      2,1      P.D.              V1G03430
013D 2B9B                  344 |       DC      /2B9B      2,11                       V1G03440
013E AAA2                  345 |       DC      /AAA2     10,10    10,2               V1G03450
013F 9121                  346 |       DC      /9121      9,1      2,1               V1G03460
0140 09B1                  347 |       DC      /09B1      P.U.    11,1               V1G03470
0141 0100                  348 |       DC      /0100      STOP                       V1G03480
0142 C507                  349 |       DC      256*.E+LF-*                           V1G03490
0143 AB00                  350 | LE    DC      /AB00     10,11     P.D.              V1G03500
0144 2B26                  351 |       DC      /2B26      2,11     2,6               V1G03510
0145 7626                  352 |       DC      /7626      7,6    2,6                 V1G03520
0146 21A1                  353 |       DC      /21A1      2,1     10,1               V1G03530
0147 09B1                  354 |       DC      /09B1      P.U.    11,1               V1G03540
0148 0100                  355 |       DC      /0100      STOP                       V1G03550
0149 C606                  356 |       DC      256*.F+LG-*                           V1G03560
014A 2100                  357 | LF    DC      /2100      2,1      P.D.              V1G03570
014B 2676                  358 |       DC      /2676      2,6      7,6               V1G03580
014C 262B                  359 |       DC      /262B      2,6      2,11              V1G03590
014D AB09                  360 |       DC      /AB09     10,11     P.U.              V1G03600
014E B101                  361 |       DC      /B101     11,1                        V1G03610
014F C708                  362 |       DC      256*.G+LH-*                           V1G03620
0150 AA00                  363 | LG    DC      /AA00     10,10     P.D.              V1G03630
0151 9B3B                  364 |       DC      /9B3B      9,11     3,11              V1G03640
0152 2A22                  365 |       DC      /2A22      2,10     2,2               V1G03650
0153 3191                  366 |       DC      /3191      3,1      9,1               V1G03660
0154 A2A6                  367 |       DC      /A2A6     10,2      10,6              V1G03670
0155 7609                  368 |       DC      /7609      7,6      P.U.              V1G03680
0156 B101                  369 |       DC      /B101     11,1      STOP              V1G03690
0157 C807                  370 |       DC      256*.H+LI-*                           V1G03700
0158 2100                  371 | LH    DC      /2100      2,1      P.D.              V1G03710
0159 262B                  372 |       DC      /262B      2,6      2,11              V1G03720
015A 26A6                  373 |       DC      /26A6      2,6     10,6               V1G03730
015B ABA6                  374 |       DC      /ABA6     10,11    10,6               V1G03740
015C A109                  375 |       DC      /A109     10,1      P.U.              V1G03750
015D B101                  376 |       DC      /B101     11,1      STOP              V1G03760
015E C907                  377 |       DC      256*.I+LJ-*                           V1G03770
015F 3100                  378 | LI    DC      /3100      3,1      P.D.              V1G03780
0160 6191                  379 |       DC      /6191      6,1      9,1               V1G03790
0161 616B                  380 |       DC      /616B     6,1       6,11              V1G03800
0162 3B6B                  381 |       DC      /3B6B      3,11                       V1G03810
0163 9B09                  382 |       DC      /9B09      9,11     P.U.              V1G03820
0164 B101                  383 |       DC      /B101     11,1      STOP              V1G03830
0165 D106                  384 |       DC      256*.J+LK-*                           V1G03840
0166 2300                  385 | LJ    DC      /2300      2,3      P.D.              V1G03850
0167 2231                  386 |       DC      /2231      2,2      3,1               V1G03860
0168 91A2                  387 |       DC      /91A2      9,1     10,2               V1G03870
0169 AB09                  388 |       DC      /AB09     10,11     P.U.              V1G03880
016A B101                  389 |       DC      /B101     11,1      STOP              V1G03890
016B D207                  390 |       DC      256*.K+LL-*                           V1G03900
016C 2100                  391 | LK    DC      /2100      2,1      P.D.              V1G03910
016D 252B                  392 |       DC      /252B      2,5      2,11              V1G03920
016E 2558                  393 |       DC      /2558      2,5      5,8               V1G03930
016F 8B58                  394 |       DC      /8B58      8,11     5,8               V1G03940
0170 A109                  395 |       DC      /A109     10,1      P.U.              V1G03950
0171 B101                  396 |       DC      /B101     11,1      STOP              V1G03960
0172 D305                  397 |       DC      256*.L+LM-*                           V1G03970
0173 2B00                  398 | LL    DC      /2B00      2,11     P.D.              V1G03980
0174 21A1                  399 |       DC      /21A1      2,1     10,1               V1G03990
0175 09B1                  400 |       DC      /09B1      P.U.    11,1               V1G04000
0176 0100                  401 |       DC      /0100      STOP                       V1G04010
0177 D406                  402 |       DC      256*.M+LN-*                           V1G04020
0178 2100                  403 | LM    DC      /2100      2,1      P.D.              V1G04030
0179 2B61                  404 |       DC      /2B61      2,11     6,1               V1G04040
017A ABA1                  405 |       DC      /ABA1     10,11    10,1               V1G04050
017B 09B1                  406 |       DC      /09B1      P.U.    11,1               V1G04060
017C 0100                  407 |       DC      /0100      STOP                       V1G04070
017D D505                  408 |       DC      256*.N+LO-*                           V1G04080
017E 2100                  409 | LN    DC      /2100      2,1      P.D.              V1G04090
017F 2BA1                  410 |       DC      /2BA1      2,11    10,1               V1G04100
0180 AB09                  411 |       DC      /AB09     10,11     P.U.              V1G04110
0181 B101                  412 |       DC      /B101     11,1      STOP              V1G04120
0182 D608                  413 |       DC      256*.O+LP-*                           V1G04130
0183 2200                  414 | LO    DC      /2200      2,2      P.D.              V1G04140
0184 2A3B                  415 |       DC      /2A3B      2,10     3,11              V1G04150
0185 9BAA                  416 |       DC      /9BAA      9,11    10,10              V1G04160
0186 A291                  417 |       DC      /A291     10,2      9,1               V1G04170
0187 3122                  418 |       DC      /3122      3,1      2,2               V1G04180
0188 09B1                  419 |       DC      /09B1      P.U.    11,1               V1G04190
0189 0100                  420 |       DC      /0100      STOP                       V1G04200
018A D707                  421 |       DC      256*.P+LQ-*                           V1G04210
018B 2100                  422 | LP    DC      /2100      2,1      P.D.              V1G04220
018C 262B                  423 |       DC      /262B      2,6      2,11              V1G04230
018D 9BAA                  424 |       DC      /9BAA      9,11    10,10              V1G04240
018E A796                  425 |       DC      /A796     10,7      9,6               V1G04250
018F 2609                  426 |       DC      /2609      2,6      P.U.              V1G04260
0190 B101                  427 |       DC      /B101     11,1      STOP              V1G04270
0191 D80B                  428 |       DC      256*.Q+LR-*                           V1G04280
0192 8300                  429 | LQ    DC      /8300      8,3      P.D.              V1G04290
0193 92A4                  430 |       DC      /92A4      9,2     10,4               V1G04300
0194 A89A                  431 |       DC      /A89A     10,8      9,10              V1G04310
0195 7B5B                  432 |       DC      /7B5B      7,11     5,11              V1G04320
0196 3A28                  433 |       DC      /3A28      3,10     2,8               V1G04330
0197 2432                  434 |       DC      /2432      2,4      3,2               V1G04340
0198 5171                  435 |       DC      /5171      5,1      7,1               V1G04350
0199 92A1                  436 |       DC      /92A1      9,2     10,1               V1G04360
019A 09B1                  437 |       DC      /09B1      P.U.    11,1               V1G04370
019B 0100                  438 |       DC      /0100      STOP                       V1G04380
019C D909                  439 |       DC      256*.R+LS-*                           V1G04390
019D 2100                  440 | LR    DC      /2100      2,1      P.D.              V1G04400
019E 262B                  441 |       DC      /262B      2,6      2,11              V1G04410
019F 9BAA                  442 |       DC      /9BAA      9,11    10,10              V1G04420
01A0 A796                  443 |       DC      /A796     10,7      9,6               V1G04430
01A1 5626                  444 |       DC      /5626      5,6      2,6               V1G04440
01A2 56A1                  445 |       DC      /56A1      5,6     10,1               V1G04450
01A3 09B1                  446 |       DC      /09B1      P.U.    11,1               V1G04460
01A4 0100                  447 |       DC      /0100      STOP                       V1G04470
01A5 E209                  448 |       DC      256*.S+LT-*                           V1G04480
01A6 2200                  449 | LS    DC      /2200      2,2      P.D.              V1G04490
01A7 3191                  450 |       DC      /3191      3,1      9,1               V1G04500
01A8 A2A5                  451 |       DC      /A2A5     10,2     10,5               V1G04510
01A9 9636                  452 |       DC      /9636      9,6      3,6               V1G04520
01AA 272A                  453 |       DC      /272A      2,7      2,10              V1G04530
01AB 3B9B                  454 |       DC      /3B9B      3,11     9,11              V1G04540
01AC AA09                  455 |       DC      /AA09     10,10     P.U.              V1G04550
01AD B101                  456 |       DC      /B101     11,1      STOP              V1G04560
01AE E306                  457 |       DC      256*.T+LU-*                           V1G04570
01AF 6100                  458 | LT    DC      /6100      6,1      P.D.              V1G04580
01B0 6B2B                  459 |       DC      /6B2B      6,11     2,11              V1G04590
01B1 6BAB                  460 |       DC      /6BAB      6,11    10,11              V1G04600
01B2 09B1                  461 |       DC      /09B1      P.U.    11,1               V1G04610
01B3 0100                  462 |       DC      /0100      STOP                       V1G04620
01B4 E406                  463 |       DC      256*.U+LV-*                           V1G04630
01B5 2B00                  464 | LU    DC      /2B00      2,11     P.D.              V1G04640
01B6 2231                  465 |       DC      /2231      2,2      3,1               V1G04650
01B7 91A2                  466 |       DC      /91A2      9,1     10,2               V1G04660
01B8 AB09                  467 |       DC      /AB09     10,11     P.U.              V1G04670
01B9 B101                  468 |       DC      /B101     11,1      STOP              V1G04680
01BA E505                  469 |       DC      256*.V+LW-*                           V1G04690
01BB 2B00                  470 | LV    DC      /2B00      2,11     P.D.              V1G04700
01BC 61AB                  471 |       DC      /61AB      6,1     10,11              V1G04710
01BD 09B1                  472 |       DC      /09B1      P.U.    11,1               V1G04720
01BE 0100                  473 |       DC      /0100      STOP                       V1G04730
01BF E606                  474 |       DC      256*.W+LX-*                           V1G04740
01C0 2B00                  475 | LW    DC      /2B00      2,11     P.D.              V1G04750
01C1 416B                  476 |       DC      /416B      4,1      6,11              V1G04760
01C2 81AB                  477 |       DC      /81AB      8,1     10,11              V1G04770
01C3 09B1                  478 |       DC      /09B1      P.U.    11,1               V1G04780
01C4 0100                  479 |       DC      /0100      STOP                       V1G04790
01C5 E707                  480 |       DC      256*.X+LY-*                           V1G04800
01C6 2100                  481 | LX    DC      /2100      2,1      P.D.              V1G04810
01C7 66AB                  482 |       DC      /66AB      6,6     10,11              V1G04820
01C8 662B                  483 |       DC      /662B      6,6      2,11              V1G04830
01C9 66A1                  484 |       DC      /66A1      6,6     10,1               V1G04840
01CA 09B1                  485 |       DC      /09B1      P.U.    11,1               V1G04850
01CB 0100                  486 |       DC      /0100      STOP                       V1G04860
01CC E806                  487 |       DC      256*.Y+LZ-*                           V1G04870
01CD 2B00                  488 | LY    DC      /2B00      2,11     P.D.              V1G04880
01CE 66AB                  489 |       DC      /66AB      6,6     10,11              V1G04890
01CF 6661                  490 |       DC      /6661      6,6      6,1               V1G04900
01D0 09B1                  491 |       DC      /09B1      P.U.    11,1               V1G04910
01D1 0100                  492 |       DC      /0100      STOP                       V1G04920
01D2 E905                  493 |       DC      256*.Z+L0-*                           V1G04930
01D3 2B00                  494 | LZ    DC      /2B00      2,11     P.D.              V1G04940
01D4 AB21                  495 |       DC      /AB21     10,11     2,1               V1G04950
01D5 A109                  496 |       DC      /A109     10,1      P.U.              V1G04960
01D6 B101                  497 |       DC      /B101     11,1      STOP              V1G04970
01D7 F00A                  498 |       DC      256*.0+L1-*                           V1G04980
01D8 3200                  499 | L0    DC      /3200      3,2      P.D.              V1G04990
01D9 2428                  500 |       DC      /2428      2,4      2,8               V1G05000
01DA 3A5B                  501 |       DC      /3A5B      3,10     5,11              V1G05010
01DB 7B9A                  502 |       DC      /7B9A      7,11     9,10              V1G05020
01DC A8A4                  503 |       DC      /A8A4     10,8     10,4               V1G05030
01DD 9271                  504 |       DC      /9271      9,2      7,1               V1G05040
01DE 5132                  505 |       DC      /5132      5,1      3,2               V1G05050
01DF 09B1                  506 |       DC      /09B1      P.U.    11,1               V1G05060
01E0 0100                  507 |       DC      /0100      STOP                       V1G05070
01E1 F106                  508 |       DC      256*.1+L2-*                           V1G05080
01E2 3800                  509 | L1    DC      /3800      3,8      P.D.              V1G05090
01E3 6B61                  510 |       DC      /6B61      6,11     6,1               V1G05100
01E4 2161                  511 |       DC      /2161      2,1      6,1               V1G05110
01E5 A109                  512 |       DC      /A109     10,1      P.U.              V1G05120
01E6 B101                  513 |       DC      /B101     11,1      STOP              V1G05130
01E7 F208                  514 |       DC      256*.2+L3-*                           V1G05140
01E8 2A00                  515 | L2    DC      /2A00      2,10     P.D.              V1G05150
01E9 3B9B                  516 |       DC      /3B9B      3,11     9,11              V1G05160
01EA AAA7                  517 |       DC      /AAA7     10,10    10,7               V1G05170
01EB 9636                  518 |       DC      /9636      9,6      3,6               V1G05180
01EC 2521                  519 |       DC      /2521      2,5      2,1               V1G05190
01ED A109                  520 |       DC      /A109     10,1      P.U.              V1G05200
01EE B101                  521 |       DC      /B101     11,1      STOP              V1G05210
01EF F30A                  522 |       DC      256*.3+L4-*                           V1G05220
01F0 2A00                  523 | L3    DC      /2A00      2,10     P.D.              V1G05230
01F1 3B9B                  524 |       DC      /3B9B      3,11     9,11              V1G05240
01F2 AAA7                  525 |       DC      /AAA7     10,10    10,7               V1G05250
01F3 9646                  526 |       DC      /9646      9,6      4,6               V1G05260
01F4 96A5                  527 |       DC      /96A5      9,6     10,5               V1G05270
01F5 A291                  528 |       DC      /A291     10,2      9,1               V1G05280
01F6 3122                  529 |       DC      /3122      3,1      2,2               V1G05290
01F7 09B1                  530 |       DC      /09B1      P.U.    11,1               V1G05300
01F8 0100                  531 |       DC      /0100      STOP                       V1G05310
01F9 F405                  532 |       DC      256*.4+L5-*                           V1G05320
01FA A400                  533 | L4    DC      /A400     10,4      P.D.              V1G05330
01FB 249B                  534 |       DC      /249B      2,4      9,11              V1G05340
01FC 9109                  535 |       DC      /9109      9,1      P.U.              V1G05350
01FD B101                  536 |       DC      /B101     11,1      STOP              V1G05360
01FE F508                  537 |       DC      256*.5+L6-*                           V1G05370
01FF 2200                  538 | L5    DC      /2200      2,2      P.D.              V1G05380
0200 3191                  539 |       DC      /3191      3,1      9,1               V1G05390
0201 A2A6                  540 |       DC      /A2A6     10,2     10,6               V1G05400
0202 9727                  541 |       DC      /9727      9,7      2,7               V1G05410
0203 2BAB                  542 |       DC      /2BAB      2,11    10,11              V1G05420
0204 09B1                  543 |       DC      /09B1      P.U.    11,1               V1G05430
0205 0100                  544 |       DC      /0100      STOP                       V1G05440
0206 F60A                  545 |       DC      256*.6+L7-*                           V1G05450
0207 2500                  546 | L6    DC      /2500      2,5      P.D.              V1G05460
0208 3696                  547 |       DC      /3696      3,6      9,6               V1G05470
0209 A5A2                  548 |       DC      /A5A2     10,5     10,2               V1G05480
020A 9131                  549 |       DC      /9131      9,1      3,1               V1G05490
020B 2225                  550 |       DC      /2225      2,2      2,5               V1G05500
020C 2A3B                  551 |       DC      /2A3B      2,10     3,11              V1G05510
020D 9BAA                  552 |       DC      /9BAA      9,11    10,10              V1G05520
020E 09B1                  553 |       DC      /09B1      P.U.    11,1               V1G05530
020F 0100                  554 |       DC      /0100      STOP                       V1G05540
0210 F705                  555 |       DC      256*.7+L8-*                           V1G05550
0211 2B00                  556 | L7    DC      /2B00      2,11     P.D.              V1G05560
0212 AB21                  557 |       DC      /AB21     10,11     2,1               V1G05570
0213 09B1                  558 |       DC      /09B1      P.U.    11,1               V1G05580
0214 0100                  559 |       DC      /0100      STOP                       V1G05590
0215 F80C                  560 |       DC      256*.8+L9-*                           V1G05600
0216 3100                  561 | L8    DC      /3100      3,1      P.D.              V1G05610
0217 2225                  562 |       DC      /2225      2,2      2,5               V1G05620
0218 3696                  563 |       DC      /3696      3,6      9,6               V1G05630
0219 3627                  564 |       DC      /3627      3,6      2,7               V1G05640
021A 2A3B                  565 |       DC      /2A3B      2,10     3,11              V1G05650
021B 9BAA                  566 |       DC      /9BAA      9,11    10,10              V1G05660
021C A796                  567 |       DC      /A796     10,7      9,6               V1G05670
021D A5A2                  568 |       DC      /A5A2     10,5     10,2               V1G05680
021E 9131                  569 |       DC      /9131      9,1      3,1               V1G05690
021F 09B1                  570 |       DC      /09B1      P.U.    11,1               V1G05700
0220 0100                  571 |       DC      /0100      STOP                       V1G05710
0221 F90A                  572 |       DC      256*.9+LBLK-*                         V1G05720
0222 2200                  573 | L9    DC      /2200      2,2      P.D.              V1G05730
0223 3191                  574 |       DC      /3191      3,1      9,1               V1G05740
0224 A2A7                  575 |       DC      /A2A7     10,2     10,7               V1G05750
0225 AA9B                  576 |       DC      /AA9B     10,10     9,11              V1G05760
0226 3B2A                  577 |       DC      /3B2A      3,11     2,10              V1G05770
0227 2736                  578 |       DC      /2736      2,7      3,6               V1G05780
0228 96A7                  579 |       DC      /96A7      9,6     10,7               V1G05790
0229 09B1                  580 |       DC      /09B1      P.U.    11,1               V1G05800
022A 0100                  581 |       DC      /0100      STOP                       V1G05810
022B 4002                  582 |       DC      256*. +LMIN-*                         V1G05820
022C B101                  583 | LBLK  DC      /B101     11,1      STOP              V1G05830
022D 6004                  584 |       DC      256*.-+LPLS-*                         V1G05840
022E 3600                  585 | LMIN  DC      /3600      3,6      P.D.              V1G05850
022F 9609                  586 |       DC      /9609      9,6                        V1G05860
0230 B101                  587 |       DC      /B101     11,1      STOP              V1G05870
0231 4E06                  588 |       DC      256*/4E+LDEC-*                        V1G05880
0232 3600                  589 | LPLS  DC      /3600      3,6      P.D.              V1G05890
0233 9666                  590 |       DC      /9666      9,6      6,6               V1G05900
0234 6966                  591 |       DC      /6966      6,9      6,6               V1G05910
0235 6309                  592 |       DC      /6309      6,3      P.U.              V1G05920
0236 B101                  593 |       DC      /B101     11,1      STOP              V1G05930
0237 4B06                  594 |       DC      256*..+LCOM-*                         V1G05940
0238 5400                  595 | LDEC  DC      /5400      5,4      P.D.              V1G05950
0239 5676                  596 |       DC      /5676      5,6      7,6               V1G05960
023A 7454                  597 |       DC      /7454      7,4      5,4               V1G05970
023B 09B1                  598 |       DC      /09B1      P.U.    11,1               V1G05980
023C 0100                  599 |       DC      /0100      STOP                       V1G05990
023D 6B07                  600 |       DC      256*.,+LASK-*                         V1G06000
023E 5100                  601 | LCOM  DC      /5100      5,1      P.D.              V1G06010
023F 7374                  602 |       DC      /7374      7,3      7,4               V1G06020
0240 7656                  603 |       DC      /7656      7,6      5,6               V1G06030
0241 5474                  604 |       DC      /5474      5,4      7,4               V1G06040
0242 09B1                  605 |       DC      /09B1      P.U.    11,1               V1G06050
0243 0100                  606 |       DC      /0100      STOP                       V1G06060
0244 5C09                  607 |       DC      256*.*+LSLA-*                         V1G06070
0245 4400                  608 | LASK  DC      /4400      4,4      P.D.              V1G06080
0246 6688                  609 |       DC      /6688      6,6      8,8               V1G06090
0247 6648                  610 |       DC      /6648      6,6      4,8               V1G06100
0248 6684                  611 |       DC      /6684      6,6      8,4               V1G06110
0249 6636                  612 |       DC      /6636      6,6      3,6               V1G06120
024A 6696                  613 |       DC      /6696      6,6      9,6               V1G06130
024B 09B1                  614 |       DC      /09B1      P.U.    11,1               V1G06140
024C 0100                  615 |       DC      /0100      STOP                       V1G06150
024D 6104                  616 |       DC      256*./+LEQU-*                         V1G06160
024E 2200                  617 | LSLA  DC      /2200      2,2      P.D.              V1G06170
024F AA09                  618 |       DC      /AA09     10,10     P.U.              V1G06180
0250 B101                  619 |       DC      /B101     11,1      STOP              V1G06190
0251 7E06                  620 |       DC      256*/7E+LRPN-*                        V1G06200
0252 3400                  621 | LEQU  DC      /3400      3,4      P.D.              V1G06210
0253 9409                  622 |       DC      /9409      9,4      P.U.              V1G06220
0254 3800                  623 |       DC      /3800      3,8      P.D.              V1G06230
0255 9809                  624 |       DC      /9809      9,8      P.U.              V1G06240
0256 B101                  625 |       DC      /B101     11,1      STOP              V1G06250
0257 5D05                  626 |       DC      256*.<+LLPN-*                         V1G06260
0258 4100                  627 | LRPN  DC      /4100      4,1      P.D.              V1G06270
0259 6369                  628 |       DC      /6369      6,3      6,9               V1G06280
025A 4B09                  629 |       DC      /4B09      4,11     P.U.              V1G06290
025B B101                  630 |       DC      /B101     11,1      STOP              V1G06300
025C 4D05                  631 |       DC      256*.%+LDOL-*                         V1G06310
025D 8B00                  632 | LLPN  DC      /8B00      8,11     P.D.              V1G06320
025E 6963                  633 |       DC      /6963      6,9      6,3               V1G06330
025F 8109                  634 |       DC      /8109      8,1      P.U.              V1G06340
0260 B101                  635 |       DC      /B101     11,1      STOP              V1G06350
0261 5B0C                  636 |       DC      256*.$+LQUO-*                         V1G06360
0262 3300                  637 | LDOL  DC      /3300      3,3      P.D.              V1G06370
0263 4282                  638 |       DC      /4282      4,2      8,2               V1G06380
0264 9395                  639 |       DC      /9395      9,3      9,5               V1G06390
0265 8646                  640 |       DC      /8646      8,6      4,6               V1G06400
0266 3739                  641 |       DC      /3739      3,7      3,9               V1G06410
0267 4A6A                  642 |       DC      /4A6A      4,10     6,10              V1G06420
0268 8A99                  643 |       DC      /8A99      8,10     9,9               V1G06430
0269 8A6A                  644 |       DC      /8A6A      8,10     6,10              V1G06440
026A 6B61                  645 |       DC      /6B61      6,11     6,1               V1G06450
026B 09B1                  646 |       DC      /09B1      P.U.    11,1               V1G06460
026C 0100                  647 |       DC      /0100      STOP                       V1G06470
026D 7D06                  648 |       DC      256*/7D+TABEN-*+1                     V1G06480
026E 6700                  649 | LQUO  DC      /6700     6,7       P.D.              V1G06490
026F 695A                  650 |       DC      /695A     6,9       5,10              V1G06500
0270 6B7A                  651 |       DC      /6B7A     6,11      7,10              V1G06510
0271 6909                  652 |       DC      /6909     6,9       P.U.              V1G06520
0272 B101                  653 |       DC      /B101     11,1      STOP              V1G06530
0273 0000                  654 | TABEN DC      0                                     V1G06540
0274                       655 |       END                                           V1G06550
 
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  00DER  251  305  311
CCOS  00E4R  254  309
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  313
CP5   00E8R  256  159  171
CSIN  00E6R  255  303
DELTX 00D8R  245  161  177  187
DELTY 00D9R  246  173  184
EXIT  001CR   70   50   85   89
FCHRI 001DR   71
FCHRX 010BR  292  314
H0001 00EFR  262   81  146  150  221
H0002 00F0R  263   76   78
H00FF 00EER  261  108  116  141
L0    01D8R  499  493
L1    01E2R  509  498
L2    01E8R  515  508
L3    01F0R  523  514
L4    01FAR  533  522
L5    01FFR  538  532
L6    0207R  546  537
L7    0211R  556  545
L8    0216R  561  555
L9    0222R  573  560
LA    0124R  319
LASK  0245R  608  600
LB    012BR  326  318
LBLK  022CR  583  125  572
LC    0135R  336  325
LCOM  023ER  601  594
LD    013CR  343  335
LDEC  0238R  595  588
LDOL  0262R  637  631
LE    0143R  350  342
LEQU  0252R  621  616
LF    014AR  357  349
LG    0150R  363  356
LH    0158R  371  362
LI    015FR  378  370
LJ    0166R  385  377
LK    016CR  391  384
LL    0173R  398  390
LLPN  025DR  632  626
LM    0178R  403  397
LMIN  022ER  585  582
LN    017ER  409  402
LO    0183R  414  408
LP    018BR  422  413
LPLS  0232R  589  584
LQ    0192R  429  421
LQUO  026ER  649  636
LR    019DR  440  428
LRPN  0258R  627  620
LS    01A6R  449  439
LSLA  024ER  617  607
LT    01AFR  458  448
LU    01B5R  464  457
LV    01BBR  470  463
LW    01C0R  475  469
LX    01C6R  481  474
LY    01CDR  488  480
LZ    01D3R  494  487
MB1   0080R  153   62
MB2   0095R  173  228
MOD2  00CAR  227  163
MOD3  00F6R  271  194
NLET  00F1R  264   59   60   95
ROUND 00ECR  259  180  190
RTN   0017R   65   87   98
SINT  00D2R  239  175  188  307
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  288
TABEN 0273R  654  648
TABLE 0123R  318  112
TEMP  00EAR  257  176  179  186  189
V     014CR  232   53   60   74   76   77   78   81   93   95   96   99  106
                  108  111  116  117  141
WCHRI 0000R   48
X1    00DAR  248  182  195  197  206  209  212  271  285
XC    00E0R  252  155  299
XINC  00F2R  266  211  213  273  274  280  283  289
XLAST 00F4R  268   96  272  286
XN    00D4R  241  130  147  152  196  198  199
XOX   000ER   59  222
XOX1  0014R   63  290
Y1    00DBR  249  192  200  202  207  210  215  275
YC    00E2R  253  167
YINC  00F3R  267  214  216  277  278  281  284
YLAST 00F5R  269  276
YLP   0110R  296  294  301
YN    00D6R  243  131  151  164  201  203  204