T5PAPTZ

Table Of Contents
  • [00005] PAPTZ
t5paptz.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t5paptz.asm 
                             1 | *             JULY 6,1967                           T5F00010
PAPTZ
 
                             3 |       LIBR                                          T5F00030
                             4 |       ISS  03 PAPTZ     4                           T5F00040
                             5 | *************************************************** T5F00050
                             6 | *STATUS-VERSION 2,MODIFICATION 10                 * T5F00060
                             7 | *                                                 * T5F00070
                             8 | *FUNCTION/OPERATION-                              * T5F00080
                             9 | *   THIS ROUTINE IS USED BY FORTRAN PROGRAMS TO   * T5F00090
                            10 | *   READ OR WRITE ON PAPER TAPE.                  * T5F00100
                            11 | *                                                 * T5F00110
                            12 | *ENTRY POINTS-                                    * T5F00120
                            13 | *   * PAPTZ-CALL PORTION FROM FORTRAN SFIO PROGRAM* T5F00130
                            14 | *   * BZ100-INTERRUPT ENTRY                       * T5F00140
                            15 | *   THE SUBROUTINE IS ENTERED BY A LIBF    PAPTZ  * T5F00150
                            16 | *                                                 * T5F00160
                            17 | *INPUT-                                           * T5F00170
                            18 | *   * XR1 CONTAINS THE I/O BUFFER ADDR            * T5F00180
                            19 | *   * XR2 CONTAINS THE WORD COUNT                 * T5F00190
                            20 | *   * ACC CONTAINS 0 FOR READ, 2 FOR WRITE        * T5F00200
                            21 | *                                                 * T5F00210
                            22 | *OUTPUT-                                          * T5F00220
                            23 | *   * PUNCHED PAPER TAPE IF WRITE                 * T5F00230
                            24 | *   * A BUFFER FULL OF EBC INFORMATION IF READ    * T5F00240
                            25 | *                                                 * T5F00250
                            26 | *EXTERNAL REFERENCES-                             * T5F00260
                            27 | *   * $EXIT                                       * T5F00270
                            28 | *   * $PRET                                       * T5F00280
                            29 | *                                                 * T5F00290
                            30 | *EXITS-                                           * T5F00300
                            31 | *   NORMAL-                                       * T5F00310
                            32 | *      * CALL PORTION-PAPTZ+1, BACK TO SFIO       * T5F00320
                            33 | *      * INTERRUPT PORTION-BZ100, BACK TO ILSO4   * T5F00330
                            34 | *      * $EXIT-MONITOR EXIT WHEN //(BLANK) CONTROL* T5F00340
                            35 | *        RECORD FOUND.                            * T5F00350
                            36 | *   ERROR-                                        * T5F00360
                            37 | *      * $PRET-MONITOR PRE-OPERATIVE ERROR TRAP   * T5F00370
                            38 | *        WHEN NOT IN READY STATUS                 * T5F00380
                            39 | *                                                 * T5F00390
                            40 | *TABLES/WORK AREAS-                               * T5F00400
                            41 | *   CONTAINS CONVERSION TABLE OF ALL CHARACTERS   * T5F00410
                            42 | *   ALLOWABLE FOR CONVERTING FROM EBC TO PAPER    * T5F00420
                            43 | *   TAPE CODE AND VICE-VERSA.                     * T5F00430
                            44 | *                                                 * T5F00440
                            45 | *ATTRIBUTES-RELOCATABLE                           * T5F00450
                            46 | *                                                 * T5F00460
                            47 | *NOTES-REGISTERS NOT SAVED                        * T5F00470
                            48 | *                                                 * T5F00480
                            49 | *************************************************** T5F00490
                            50 | *                                                 * T5F00500
PAPTZ
 
                            52 | *                                                   T5F00520
                            53 | *             SYSTEM COMMUNICATION WORDS            T5F00530
                            54 | *                                                   T5F00540
0038                        55 | $EXIT EQU     /38        MONITOR EXIT               T5F00550
0028                        56 | $PRET EQU     /28        MONITOR PRE-OP ERR TRAP    T5F00560
                            57 | *                                                   T5F00570
                            58 | *             PROGRAM ENTRY POINT                   T5F00580
                            59 | *                                                   T5F00590
0000 7009                   60 | PAPTZ MDX     BZ200      ENTRY                      T5F00600
0001 4C80 0000              61 |       BSC  I  *-*        EXIT FROM ROUTINE          T5F00610
0003 0000                   62 | BZ010 DC      0          ROUTINE BUSY INDICATOR     T5F00620
                            63 | *                                                   T5F00630
                            64 | *             INTERRUPT ENTRY FROM INTERRUPT LEVEL  T5F00640
                            65 | *             SUBROUTINE.  THIS PORTION PROCESSES   T5F00650
                            66 | *             INTERRUPTS AND RETURNS TO THE MAIN-   T5F00660
                            67 | *             LINE CODING OF THIS SUBROUTINE        T5F00670
                            68 | *             THROUGH $ILS4                         T5F00680
                            69 | *                                                   T5F00690
0004 0000                   70 | BZ100 DC      *-*        INTERRUPT ENTRY VIA BSI    T5F00700
0005 0856                   71 |       XIO     BZ900      RESET INTERRUPT LEVEL      T5F00710
0006 D06C                   72 |       STO     BZ926      SAVE INTERRUPT STATUS WD   T5F00720
0007 68FB                   73 |       STX     BZ010      SET ROUTINE BUSY FLAG      T5F00730
0008 4C80 0004R             74 |       BSC  I  BZ100      RETURN TO $ILS4            T5F00740
                            75 | *                                                   T5F00750
                            76 | *             MAINLINE PORTION OF PROGRAM.          T5F00760
                            77 | *             INITIALIZATION PHASE  A BRANCH OCCURS T5F00770
                            78 | *             ON ENTRY TO THE PAPTZ SUBROUTINE      T5F00780
                            79 | *                                                   T5F00790
000AR                       80 | BZ200 EQU     *          ENTRY POINT                T5F00800
000A D066                   81 |       STO     BZ924      SAVE READ/WRITE INDICATOR  T5F00810
000B 4818                   82 |       BSC     +-         SKIP IF WRITE              T5F00820
000C 6278                   83 |       LDX   2 120        SET MAX. BUFR SIZE FOR RD  T5F00830
000D 7201                   84 |       MDX   2 1          INCR WD CNT BY 1 FOR NEW   T5F00840
                            85 | *                        *LINE CHARACTER            T5F00850
000E 6A67                   86 |       STX   2 BZ929      SAVE WD COUNT              T5F00860
000F 693C                   87 |       STX   1 BZ300+1    SAVE BUFFER ADDRESS        T5F00870
0010 685F                   88 |       STX     BZ922      SET NEW LINE SW TO NO EXIT T5F00880
0011 685A                   89 |       STX     BZ918      SET CASE CHAR TEST SW      T5F00890
0012 0849                   90 | BZ210 XIO     BZ900      SENSE AND TEST IF READY    T5F00900
0013 1001                   91 |       SLA     1                                     T5F00910
0014 7400 0071R             92 |       MDX  L  BZ924,0    CHECK FOR READ OR WRITE    T5F00920
0016 7060                   93 |       MDX     BZ400      BRANCH IF WRITE            T5F00930
0017 1004                   94 |       SLA     4          SHIFT READY INDR TO SIGN   T5F00940
0018 4C28 0058R             95 |       BSC  L  BZ350,+Z   BRANCH IF NOT READY        T5F00950
001A 0843                   96 |       XIO     BZ902      START READER               T5F00960
                            97 | *                                                   T5F00970
                            98 | *             WAIT FOR NEXT INTERRUPT TO OCCUR      T5F00980
                            99 | *             ROUTINE BUSY INDICATOR (BZ010) = 0    T5F00990
                           100 | *             INDICATES NO INTERRUPT WAITING TO BE  T5F01000
                           101 | *             PROCESSED                             T5F01010
                           102 | *                                                   T5F01020
001B C0E7                  103 | BZ220 LD      BZ010      LOAD SUBROUTINE BUSY INDR  T5F01030
001C 4C18 001BR            104 |       BSC  L  BZ220,+-   WAIT IF NO INTERRUPT       T5F01040
001E 1010                  105 |       SLA     16         CLEAR SUBROUTINE BUSY INDR T5F01050
001F D0E3                  106 |       STO     BZ010      *SO WAIT WILL OCCUR NEXT   T5F01060
                           107 | *                                                   T5F01070
                           108 | *             PROCESS INTERRUPT                     T5F01080
                           109 | *                                                   T5F01090
0020 C052                  110 |       LD      BZ926      LOAD READ/WRITE INDICATOR  T5F01100
0021 1001                  111 |       SLA     1          SHIFT WRITE BIT TO SIGN    T5F01110
0022 4C10 0077R            112 |       BSC  L  BZ400,-    BRANCH IF WRITE            T5F01120
                           113 | *                                                   T5F01130
0024 083B                  114 |       XIO     BZ904      READ CHARACTER             T5F01140
0025 C04C                  115 |       LD      BZ925      LOAD CHARACTER READ        T5F01150
0026 9041                  116 |       S       BZ914      TEST FOR UPPER CASE CHAR   T5F01160
0027 4C20 002BR            117 |       BSC  L  BZ230,Z    BR IF NOT UPPER-CASE       T5F01170
0029 C040                  118 |       LD      BZ916      LOAD UPPER CASE CONSTANT   T5F01180
002A 7004                  119 |       MDX     BZ240      BR TO SAVE CONSTANT        T5F01190
                           120 | *                                                   T5F01200
002B 903A                  121 | BZ230 S       BZ912      TEST FOR LOWER CASE        T5F01210
002C 4C20 0031R            122 |       BSC  L  BZ245,Z    BR IF NOT LOWER CASE       T5F01220
002E 1010                  123 |       SLA     16         CLEAR ACC (LOWER CASE CON) T5F01230
002F D045                  124 | BZ240 STO     BZ928      SAVE CASE CONSTANT         T5F01240
0030 70E1                  125 |       MDX     BZ210      BR TO READ ANOTHER CHAR    T5F01250
                           126 | *                                                   T5F01260
0031 902A                  127 | BZ245 S       BZ923      TEST FOR DELETION          T5F01270
0032 4C18 0012R            128 |       BSC  L  BZ210,+-   DELETE FOUND,GO RD NXTCHAR T5F01280
0034 902F                  129 |       S       BZ910      TEST FOR NEWLINE CHAR      T5F01290
0035 4C18 004BR            130 |       BSC  L  BZ300,+-   BR TO EXIT IF NEWLINE CHAR T5F01300
0037 C03A                  131 |       LD      BZ925      GET CHARACTER FROM INPUT   T5F01310
0038 E83C                  132 |       OR      BZ928      SET CHAR TO CURRENT CASE   T5F01320
0039 D038                  133 |       STO     BZ925      SAVE NEW CHAR              T5F01330
003A 62CB                  134 |       LDX   2 -53        SET TO SCAN CONVERT TABLE  T5F01340
003B 1090                  135 | BZ250 SLT     16         CLEAR EXTENSION            T5F01350
003C C600 00E2R            136 |       LD   L2 BZ990+1    GET CHAR FROM TABLE        T5F01360
003E 18D8                  137 |       RTE     24         RIGHT 1/2 TBL WD TO ACC    T5F01370
003F F032                  138 |       EOR     BZ925      COMPARE WITH IO WD READ    T5F01380
0040 4C18 0045R            139 |       BSC  L  BZ260,+-   BRANCH IF EQUAL            T5F01390
0042 7201                  140 |       MDX   2 1          INCR TABLE POINTER         T5F01400
0043 70F7                  141 |       MDX     BZ250      BR IF TABLE NOT EXHAUSTED  T5F01410
0044 C820                  142 |       LDD     BZ911      CHAR NOT IN TBL, LD BLANKS T5F01420
0045 18D0                  143 | BZ260 RTE     16         SHIFT EBC CHAR FR EXTNSION T5F01430
0046 D100                  144 |       STO   1 0          STORE IN OUTPUT BUFFER     T5F01440
0047 7101                  145 |       MDX   1 1          INCR. BUFFER ADDR          T5F01450
0048 74FF 0076R            146 |       MDX  L  BZ929,-1   DECREMENT CHAR COUNT       T5F01460
004A 70C7                  147 |       MDX     BZ210      BR FOR NXT CHAR IF CNT GTO T5F01470
                           148 | *                                                   T5F01480
                           149 | *             ALL CHARACTERS HAVE BEEN READ EXIT    T5F01490
                           150 | *             ROUTINE FOLLOWS                       T5F01500
                           151 | *                                                   T5F01510
                           152 | *                                                   T5F01520
                           153 | *             CHECK FOR //BLANK CONTROL RECORD ON   T5F01530
                           154 | *             READ. IF FOUND BRANCH TO MONITOR      T5F01540
                           155 | *             EXIT ROUTINE                          T5F01550
                           156 | *                                                   T5F01560
                           157 | *                                                   T5F01570
004B 6500 0000             158 | BZ300 LDX  L1 *-*        GET LOC OF FIRST BUFR WD   T5F01580
004D C900                  159 |       LDD   1 0          LOAD 2 WDS FROM BUFFER     T5F01590
004E 981A                  160 |       SD      BZ915      TEST FOR // (SLASH MUST BE T5F01600
                           161 | *                        * AT ODD ADDRESS)          T5F01610
                           162 | *                                                   T5F01620
004F 4818                  163 |       BSC     +-         SKIP IF ACC NON ZERO       T5F01630
0050 18D0                  164 |       RTE     16         PUT EXTENSION IN ACC       T5F01640
0051 4C20 0001R            165 |       BSC  L  PAPTZ+1,Z  RETURN IF NOT //           T5F01650
0053 C102                  166 |       LD    1 2          TEST THIRD CHARACTER       T5F01660
0054 F010                  167 |       EOR     BZ911      TEST FOR BLANK             T5F01670
0055 4C20 0001R            168 |       BSC  L  PAPTZ+1,Z RETURN IF NOT BLANK    2-10 T5F01680
0057 6038                  169 |       LDX     $EXIT      BR TO MONITOR EXIT         T5F01690
                           170 | *                                                   T5F01700
                           171 | *             PAPER TAPE NOT IN READY STATUS,       T5F01710
                           172 | *             LOAD ERROR INDICATOR (13000)          T5F01720
                           173 | *             BR TO SYSTEM PRE OPERATIVE ERROR TRAP T5F01730
                           174 | *                                                   T5F01740
0058 C01B                  175 | BZ350 LD      BZ927      LOAD ERROR INDICATOR       T5F01750
0059 4400 0028             176 |       BSI  L  $PRET      BRANCH TO TRAP             T5F01760
005B 70B6                  177 |       MDX     BZ210      BRANCH TO PROCESS NXT CHAR T5F01770
                           178 | *                                                   T5F01780
                           179 | *             CONSTANTS                             T5F01790
                           180 | *                                                   T5F01800
005C                       181 |       BSS  E  0                                     T5F01810
005C 1100                  182 | BZ900 DC      /1100      DELETE CONSTANT AND        T5F01820
005D 1F05                  183 |       DC      /1F05      *SENSE IOCC WITH RESET     T5F01830
                           184 | *             THE FIRST IOCC WD  AT BZ900 AND BZ902 T5F01840
                           185 | *             IS USED FOR CONSTANT  STORAGE         T5F01850
005E DD00                  186 | BZ902 DC      /DD00      NEW LINE OP CODE AND       T5F01860
005F 1C10                  187 |       DC      /1C10      *START READER IOCC WORD    T5F01870
0060 0072R                 188 | BZ904 DC      BZ925      READ IOCC WORD             T5F01880
0061 1A00                  189 |       DC      /1A00                                 T5F01890
0062 0072R                 190 | BZ906 DC      BZ925      WRITE IOCC WORD            T5F01900
0063 1900                  191 |       DC      /1900                                 T5F01910
0064 5E00                  192 | BZ910 DC      /5E00      NEW LINE CONSTANT TEST     T5F01920
0065 0040                  193 | BZ911 DC      /0040      EBC BLANK--MUST BE ODD LOC T5F01930
0066 6000                  194 | BZ912 DC      /6000      LOWER CASE CONSTANT TEST   T5F01940
0067 1000                  195 | BZ913 DC      /1000      PT BLANK--MUST BE ODD LOC  T5F01950
0068 0E00                  196 | BZ914 DC      /0E00      UPPER CASE CONSTANT TEST   T5F01960
0069 0061                  197 | BZ915 DC      /0061     EBC SLASH MUST BE ODD  2-10 T5F01970
006A 8000                  198 | BZ916 DC      /8000      UPPER CASE MASK            T5F01980
006B 6E00                  199 | BZ917 DC      /6E00      CASE CHANGE MASK           T5F01990
006C 0000                  200 | BZ918 DC      0          CASE CHARACTER FLAG        T5F02000
006D 0000                  201 | BZ919 DC      0          CASE TO BE O/P             T5F02010
006E 0000                  202 | BZ920 DC      0          O/P CHAR-FOR CASE CHG TEST T5F02020
006F 0000                  203 | BZ921 DC      0          PREVIOUS O/P CASE          T5F02030
0070 0000                  204 | BZ922 DC      0          NEW LINE CHAR SWITCH       T5F02040
005CR                      205 | BZ923 EQU     BZ900      DELETE CONSTANT TEST CODE  T5F02050
0071 0000                  206 | BZ924 DC      0          READ/WRITE INDICATOR       T5F02060
0072 0000                  207 | BZ925 DC      0          CHAR TO READ OR WRITE OUT  T5F02070
0073 0000                  208 | BZ926 DC      0          DSW WD FROM SENSE          T5F02080
0074 3000                  209 | BZ927 DC      /3000      ERROR INDICATOR            T5F02090
0075 0000                  210 | BZ928 DC      0          CASE CHAR ON READ          T5F02100
0076 0000                  211 | BZ929 DC      0          WORD COUNT                 T5F02110
005ER                      212 | BZ930 EQU     BZ902      NEW LINE O/P CODE          T5F02120
                           213 | *                                                   T5F02130
                           214 | *             CONVERT AND PUNCH PAPERTAPE OUTPUT    T5F02140
                           215 | *                                                   T5F02150
0077 1006                  216 | BZ400 SLA     6          TEST IF PUNCH READY        T5F02160
0078 4C28 0058R            217 |       BSC  L  BZ350,+Z   BRANCH IF NOT READY        T5F02170
                           218 | *                                                   T5F02180
007A C0F5                  219 |       LD      BZ922      LAST CHAR O/P = NEW LINE   T5F02190
007B 4C18 0001R            220 |       BSC  L  PAPTZ+1,+- RETURN IF YES              T5F02200
007D C0EF                  221 |       LD      BZ919      LAST CHAR O/P = CASE       T5F02210
007E 4C20 009AR            222 |       BSC  L  BZ430,Z    YES, O/P CHAR              T5F02220
0080 74FF 0076R            223 |       MDX  L  BZ929,-1   DECREMENT CHARACTER COUNT  T5F02230
0082 7004                  224 |       MDX     BZ410-1    BR UNLESS LOOP FINISHED    T5F02240
                           225 | *                                                   T5F02250
                           226 | *             LOOP FINISHED ALL CHARACTERS 0/P      T5F02260
                           227 | *                                                   T5F02270
0083 1010                  228 |       SLA     16         CLEAR ACC                  T5F02280
0084 D0EB                  229 |       STO     BZ922      SET NEW LINE CHAR SWITCH   T5F02290
0085 C0D8                  230 |       LD      BZ930      GET NEW LINE CHARACTER     T5F02300
0086 701B                  231 |       MDX     BZ440      BR TO OUTPUT NEW LINE CHAR T5F02310
                           232 | *                                                   T5F02320
                           233 | *             SCAN TABLE FOR CHARACTER FOR OUTPUT   T5F02330
                           234 | *             AND CONVERT TO PAPER TAPE CODE        T5F02340
                           235 | *                                                   T5F02350
0087 62CB                  236 |       LDX   2 -53        SET COUNT ON TABLE SIZE    T5F02360
0088 1090                  237 | BZ410 SLT     16         CLEAR EXTENSION            T5F02370
0089 C600 00E2R            238 |       LD   L2 BZ990+1    LOAD CHAR FROM TABLE       T5F02380
008B 18C8                  239 |       RTE     8          SHIFT CHARACTER            T5F02390
008C F100                  240 |       EOR   1 0          COMPARE WITH BUFFER CHAR   T5F02400
008D 4C18 0092R            241 |       BSC  L  BZ420,+-   BRANCH IF EQUAL            T5F02410
008F 7201                  242 |       MDX   2 1          DECREMENT COUNT ON TABLE   T5F02420
0090 70F7                  243 |       MDX     BZ410      BR UNLESS TABLE FINISHED   T5F02430
0091 C8D5                  244 |       LDD     BZ913      NO MATCH FOUND. O/P BLANK  T5F02440
0092 18D0                  245 | BZ420 RTE     16         SHIFT CHARACTER TO O/P     T5F02450
0093 D0DA                  246 |       STO     BZ920      SAVE CHAR                  T5F02460
0094 F0DA                  247 |       EOR     BZ921      TEST IF CASE CHANGE REQ    T5F02470
0095 4C28 00A6R            248 |       BSC  L  BZ450,+Z   BR IF YES                  T5F02480
0097 C0D4                  249 |       LD      BZ918      CASE CHAR NO O/P FLAG      T5F02490
0098 4C20 00A6R            250 |       BSC  L  BZ450,Z    O/P CASE CHAR INITIALLY    T5F02500
009A 1010                  251 | BZ430 SLA     16                                    T5F02510
009B D0D1                  252 |       STO     BZ919      CLEAR CASE INDICATOR       T5F02520
009C D0CF                  253 |       STO     BZ918      CLEAR CASE SWITCH          T5F02530
009D C0D0                  254 |       LD      BZ920      LOAD NEW CASE CHAR         T5F02540
009E D0D0                  255 |       STO     BZ921      SAVE FOR NEXT TIME CHECK   T5F02550
009F 1001                  256 |       SLA     1          REMOVE SIGN                T5F02560
00A0 1801                  257 |       SRA     1                                     T5F02570
00A1 7101                  258 |       MDX   1 1          INCR BUFFER ADDRESS        T5F02580
00A2 D0CF                  259 | BZ440 STO     BZ925      SAVE CHAR IN O/P CHARACTER T5F02590
00A3 08BE                  260 |       XIO     BZ906      INITIATE WRITE             T5F02600
00A4 4C00 001BR            261 |       BSC  L  BZ220      BR TO WAIT FOR INTERRUPT   T5F02610
                           262 | *                                                   T5F02620
                           263 | *             SETUP TO OUTPUT CASE CHANGE           T5F02630
                           264 | *                                                   T5F02640
00A6 C0C7                  265 | BZ450 LD      BZ920      LOAD CHARACTER             T5F02650
00A7 E0C2                  266 |       AND     BZ916      MASK OUT ALL BUT CASE BIT  T5F02660
00A8 1882                  267 |       SRT     2          SHIFT CHAR INCLUDING SIGN  T5F02670
00A9 E0C1                  268 |       AND     BZ917      MASK OUT BIT 0 AND CONVERT T5F02680
00AA F0C0                  269 |       EOR     BZ917      *TO /6E00 OR /0E00         T5F02690
00AB D0C1                  270 |       STO     BZ919      STORE CASE CHARACTER       T5F02700
00AC 70F5                  271 |       MDX     BZ440      BR TO O/P CASE CHAR        T5F02710
                           272 | *                                                   T5F02720
                           273 | *             THE FOLLOWING IS A CONVERT TABLE. THE T5F02730
                           274 | *             LEFT 2 CHARACTERS OF EACH WORD ARE    T5F02740
                           275 | *             THE EBC CODE. THE RIGHT 2 CHARACTERS  T5F02750
                           276 | *             ARE THE PAPER TAPE CODE.              T5F02760
                           277 | *                                                   T5F02770
00AD 4010                  278 |       DC      /4010      BLANK                      T5F02780
00AE F01A                  279 |       DC      /F01A      0                          T5F02790
00AF F101                  280 |       DC      /F101      1                          T5F02800
00B0 F202                  281 |       DC      /F202      2                          T5F02810
00B1 F313                  282 |       DC      /F313      3                          T5F02820
00B2 F404                  283 |       DC      /F404      4                          T5F02830
00B3 F515                  284 |       DC      /F515      5                          T5F02840
00B4 F616                  285 |       DC      /F616      6                          T5F02850
00B5 F707                  286 |       DC      /F707      7                          T5F02860
00B6 F808                  287 |       DC      /F808      8                          T5F02870
00B7 F919                  288 |       DC      /F919      9                          T5F02880
00B8 6040                  289 |       DC      /6040      -                          T5F02890
00B9 4B6B                  290 |       DC      /4B6B      .                          T5F02900
00BA C5F5                  291 |       DC      /C5F5      E                          T5F02910
00BB 4EF0                  292 |       DC      /4EF0      PLUS                       T5F02920
00BC 5070                  293 |       DC      /5070      AMPERSAND                  T5F02930
00BD 7E81                  294 |       DC      /7E81      EQUAL                      T5F02940
00BE 5D9A                  295 |       DC      /5D9A      RIGHT PAREN                T5F02950
00BF 4D99                  296 |       DC      /4D99      LEFT PAREN                 T5F02960
00C0 6B3B                  297 |       DC      /6B3B      ,                          T5F02970
00C1 7D96                  298 |       DC      /7D96      APOSTROPHE                 T5F02980
00C2 6131                  299 |       DC      /6131      /                          T5F02990
00C3 5C88                  300 |       DC      /5C88      *                          T5F03000
00C4 5B5B                  301 |       DC      /5B5B      $                          T5F03010
00C5 4C82                  302 |       DC      /4C82      LESS THAN                  T5F03020
00C6 6C95                  303 |       DC      /6C95      PERCENT                    T5F03030
00C7 7B0B                  304 |       DC      /7B0B      POUND SIGN                 T5F03040
00C8 7C20                  305 |       DC      /7C20      AT SIGN                    T5F03050
00C9 C1E1                  306 |       DC      /C1E1      A                          T5F03060
00CA C2E2                  307 |       DC      /C2E2      B                          T5F03070
00CB C3F3                  308 |       DC      /C3F3      C                          T5F03080
00CC C4E4                  309 |       DC      /C4E4      D                          T5F03090
00CD C6F6                  310 |       DC      /C6F6      F                          T5F03100
00CE C7E7                  311 |       DC      /C7E7      G                          T5F03110
00CF C8E8                  312 |       DC      /C8E8      H                          T5F03120
00D0 C9F9                  313 |       DC      /C9F9      I                          T5F03130
00D1 D1D1                  314 |       DC      /D1D1      J                          T5F03140
00D2 D2D2                  315 |       DC      /D2D2      K                          T5F03150
00D3 D3C3                  316 |       DC      /D3C3      L                          T5F03160
00D4 D4D4                  317 |       DC      /D4D4      M                          T5F03170
00D5 D5C5                  318 |       DC      /D5C5      N                          T5F03180
00D6 D6C6                  319 |       DC      /D6C6      O                          T5F03190
00D7 D7D7                  320 |       DC      /D7D7      P                          T5F03200
00D8 D8D8                  321 |       DC      /D8D8      Q                          T5F03210
00D9 D9C9                  322 |       DC      /D9C9      R                          T5F03220
00DA E2B2                  323 |       DC      /E2B2      S                          T5F03230
00DB E3A3                  324 |       DC      /E3A3      T                          T5F03240
00DC E4B4                  325 |       DC      /E4B4      U                          T5F03250
00DD E5A5                  326 |       DC      /E5A5      V                          T5F03260
00DE E6A6                  327 |       DC      /E6A6      W                          T5F03270
00DF E7B7                  328 |       DC      /E7B7      X                          T5F03280
00E0 E8B8                  329 |       DC      /E8B8      Y                          T5F03290
00E1 E9A9                  330 | BZ990 DC      /E9A9      Z                          T5F03300
00E2                       331 |       END                                           T5F03310
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$EXIT 0038    55  169
$PRET 0028    56  176
BZ010 0003R   62   73  103  106
BZ100 0004R   70   74
BZ200 000AR   80   60
BZ210 0012R   90  125  128  147  177
BZ220 001BR  103  104  261
BZ230 002BR  121  117
BZ240 002FR  124  119
BZ245 0031R  127  122
BZ250 003BR  135  141
BZ260 0045R  143  139
BZ300 004BR  158   87  130
BZ350 0058R  175   95  217
BZ400 0077R  216   93  112
BZ410 0088R  237  224  243
BZ420 0092R  245  241
BZ430 009AR  251  222
BZ440 00A2R  259  231  271
BZ450 00A6R  265  248  250
BZ900 005CR  182   71   90  205
BZ902 005ER  186   96  212
BZ904 0060R  188  114
BZ906 0062R  190  260
BZ910 0064R  192  129
BZ911 0065R  193  142  167
BZ912 0066R  194  121
BZ913 0067R  195  244
BZ914 0068R  196  116
BZ915 0069R  197  160
BZ916 006AR  198  118  266
BZ917 006BR  199  268  269
BZ918 006CR  200   89  249  253
BZ919 006DR  201  221  252  270
BZ920 006ER  202  246  254  265
BZ921 006FR  203  247  255
BZ922 0070R  204   88  219  229
BZ923 005CR  205  127
BZ924 0071R  206   81   92
BZ925 0072R  207  115  131  133  138  188  190  259
BZ926 0073R  208   72  110
BZ927 0074R  209  175
BZ928 0075R  210  124  132
BZ929 0076R  211   86  146  223
BZ930 005ER  212  230
BZ990 00E1R  330  136  238
PAPTZ 0000R   60  165  168  220