ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u3speed.asm EBCDIC TO IBM CARD CODE OR VICE VERSA 2 | *************************************************** U3H00020 3 | * * U3H00030 4 | * SUBROUTINE NAME- * U3H00040 5 | * FULL NAME- EBCDIC TO IBM CARD CODE OR IBM * U3H00050 6 | * CARD CODE TO EBCDIC CONVERSION ROUTINE * U3H00060 7 | * CODE NAME- SPEED * U3H00070 8 | * PURPOSE- THIS SUBROUTINE CONVERTS ALL 256 * U3H00080 9 | * CHARS IN EBCDIC TO HOLLERITH, AND CONVERTS * U3H00090 10 | * ALL 256 CHARS IN HOLLERITH TO EBCDIC. * U3H00100 11 | * METHOD- * U3H00110 12 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U3H00120 13 | * CAPABILITIES AND LIMITATIONS- * U3H00130 14 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U3H00140 15 | * SPECIAL FEATURES- N/A * U3H00150 16 | * ADDITIONAL INFORMATION- * U3H00160 17 | * ESTIMATED EXECUTION TIME- * U3H00170 18 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U3H00180 19 | * * U3H00190 20 | *************************************************** U3H00200 EBCDIC TO IBM CARD CODE OR VICE VERSA 22 | LIBR U3H00220 23 | ENT SPEED U3H00230 0000 6943 24 | SPEED STX 1 SAV1+1 CALL ENTRY POINT U3H00240 0001 6580 0000 25 | LINK LDX I1 0 LOADER STORED TV ADDR U3H00250 0003 6A42 26 | STX 2 SAV2+1 SAVE XR2 U3H00260 0004 283D 27 | STS SAVST SAVE STATUS U3H00270 0005 D86A 28 | STD SAVAQ SAVE ACC AND EXT U3H00280 0006 C100 29 | LD 1 0 GET CONTROL PARAM U3H00290 0007 1884 30 | SRT 4 U3H00300 0008 D058 31 | STO CTRL SAVE NO-PACKING INDR U3H00310 0009 C101 32 | LD 1 1 U3H00320 000A D007 33 | STO INPUT+1 SAVE INPUT ADDRESS U3H00330 000B C102 34 | LD 1 2 U3H00340 000C D007 35 | STO OUTPT+1 SAVE OUTPUT ADDRESS U3H00350 000D C103 36 | LD 1 3 U3H00360 000E D053 37 | STO COUNT SAVE CHAR COUNT U3H00370 000F 7104 38 | MDX 1 +4 U3H00380 0010 6938 39 | STX 1 EXIT+1 SET EXIT TO SKIP 4 PARAMS U3H00390 0011 6500 0000 40 | INPUT LDX L1 0 XR1=INPUT ADDR U3H00400 0013 6600 0000 41 | OUTPT LDX L2 0 XR2=OUTPUT ADDR U3H00410 0015 1810 42 | SRA 16 WHAT IS INPUT CODE U3H00420 0016 1084 43 | SLT 4 U3H00430 0017 4C20 004AR 44 | BSC L BACK,Z BR IF INPUT IS EBCDIC U3H00440 0019 C047 45 | LD CTRL IS PACKING REQUESTED U3H00450 001A 4C20 0037R 46 | BSC L ONCE,Z NO, DO NOT PACK EBCDIC U3H00460 47 | * U3H00470 48 | *THIS SECTION SETS UP THE CONVERSION FROM HOLLERITH U3H00480 49 | *TO EBCDIC U3H00490 50 | * U3H00500 001C C100 51 | LEFT LD 1 0 IS LEFT CHAR READ IN YET U3H00510 001D 4C04 001CR 52 | BSC L LEFT,E NO, WAIT U3H00520 001F 4053 53 | BSI TLU YES, CONVERT TO EBCDIC U3H00530 0020 D051 54 | STO TEMP U3H00540 0021 74FF 0062R 55 | MDX L COUNT,-1 ANY MORE CHARS U3H00550 0023 7005 56 | MDX RIGHT YES, GO CONVERT RT CHAR U3H00560 0024 C200 57 | LD 2 0 NO, STORE CHAR IN U3H00570 0025 E046 58 | AND MASKL OUTPUT BUT DO NOT U3H00580 0026 804B 59 | A TEMP CHANGE RIGHT 8 BITS U3H00590 0027 D200 60 | STO 2 0 OF OUTPUT. U3H00600 0028 7019 61 | MDX SAVST U3H00610 0029 C101 62 | RIGHT LD 1 1 IS RIGHT CHAR READ IN YET U3H00620 002A 4C04 0029R 63 | BSC L RIGHT,E NO, WAIT U3H00630 002C 4046 64 | BSI TLU YES, CONVERT TO EBCDIC U3H00640 002D 1808 65 | SRA 8 U3H00650 002E 8043 66 | A TEMP ADD LEFT CHARACTER U3H00660 002F D200 67 | STO 2 0 STORE BOTH IN OUTPUT U3H00670 0030 7201 68 | MDX 2 +1 SET XR2 FOR NEXT OUTPUT U3H00680 0031 7102 69 | MDX 1 +2 SET XR1 FOR NEXT INPUT U3H00690 0032 1000 70 | NOP IN CASE OF SKIP 2-6 U3H00692 0033 74FF 0062R 71 | MDX L COUNT,-1 ANY MORE CHARS U3H00700 0035 70E6 72 | MDX LEFT YES, REPEAT LOOP U3H00710 0036 700B 73 | MDX SAVST NO, EXIT U3H00720 0037 C100 74 | ONCE LD 1 0 IS CHAR READ IN YET U3H00730 0038 4C04 0037R 75 | BSC L ONCE,E NO, WAIT U3H00740 003A 4038 76 | BSI TLU YES, CONVERT TO EBCDIC U3H00750 003B D200 77 | STO 2 0 STORE CHAR IN OUTPUT U3H00760 003C 7201 78 | MDX 2 +1 SET XR2 FOR NEXT OUTPUT U3H00770 003D 7101 79 | MDX 1 +1 SET XR1 FOR NEXT INPUT U3H00780 003E 1000 80 | NOP IN CASE OF SKIP 2-6 U3H00782 003F 74FF 0062R 81 | MDX L COUNT,-1 ANY MORE CHARS U3H00790 0041 70F5 82 | MDX ONCE YES, GO CHK FOR READ IN U3H00800 0042 2000 83 | SAVST LDS 0 U3H00810 0043 6500 0000 84 | SAV1 LDX L1 0 RESTORE STATUS U3H00820 0045 6600 0000 85 | SAV2 LDX L2 0 U3H00830 0047 C828 86 | LDD SAVAQ U3H00840 0048 4C00 0000 87 | EXIT BSC L 0 RETURN TO USER U3H00850 88 | * U3H00860 89 | *THIS SECTION SETS UP THE CONVERSION FROM EBCDIC U3H00870 90 | *TO HOLLERITH. U3H00880 91 | * U3H00890 004A C100 92 | BACK LD 1 0 U3H00900 004B 404A 93 | BSI TLU20 CONVERT LEFT CHAR U3H00910 004C D200 94 | STO 2 0 U3H00920 004D 7201 95 | MDX 2 +1 SET FOR NEXT OUTPUT WORD U3H00930 004E C012 96 | LD CTRL IS EBCDIC PACKED U3H00940 004F 4C20 005AR 97 | BSC L BACK6,Z NO, GET NEXT INPUT WORD U3H00950 0051 74FF 0062R 98 | MDX L COUNT,-1 ANY MORE CHARS TO CONVERT U3H00960 0053 7001 99 | MDX BACK4 U3H00970 0054 70ED 100 | MDX SAVST NO, EXIT U3H00980 0055 C100 101 | BACK4 LD 1 0 CONVERT RIGHT CHAR U3H00990 0056 1008 102 | SLA 8 U3H01000 0057 403E 103 | BSI TLU20 U3H01010 0058 D200 104 | STO 2 0 U3H01020 0059 7201 105 | MDX 2 +1 SET FOR NEXT OUTPUT WORD U3H01030 005A 7101 106 | BACK6 MDX 1 +1 SET FOR NEXT INPUT WORD U3H01040 005B 1000 107 | NOP IN CASE OF SKIP 2-6 U3H01042 005C 74FF 0062R 108 | MDX L COUNT,-1 ANY MORE CHARS TO CONVERT U3H01050 005E 70EB 109 | MDX BACK YES, REPEAT LOOP U3H01060 005F 70E2 110 | MDX SAVST NO, EXIT U3H01070 111 | * U3H01080 112 | *CONSTANTS AND BUFFER AREA U3H01090 113 | * U3H01100 0060 4000 114 | BLANK DC /4000 EBCDIC BLANK CHARACTER U3H01110 0061 0000 115 | CTRL DC 0 SAVE PACKING INDR U3H01120 0062 0000 116 | COUNT DC 0 SAVE NO, CHARS TO CONVERT U3H01130 0063 0001 117 | D0001 DC +1 DECIMAL CONSTANT U3H01140 0064 0006 118 | D0006 DC +6 DECIMAL CONSTANT U3H01150 0065 0007 119 | D0007 DC +7 DECIMAL CONSTANT U3H01160 0066 0000 120 | FLAG DC 0 ERROR INDICATOR U3H01170 0067 0010 121 | H0010 DC /0010 HOLLERITH U3H01180 0068 006A 122 | H006A DC /006A CONSTANTS U3H01190 0069 0200 123 | H0200 DC /0200 AND MASKS. U3H01200 006A 1FC0 124 | H1FC0 DC /1FC0 MASK FOR 1-7 ROWS U3H01210 006B 2001 125 | H2001 DC /2001 SET OVERFLOW INDR U3H01220 006C 00FF 126 | MASKL DC /00FF CLEAR BITS 0-7 U3H01230 006D FF00 127 | MASKR DC /FF00 CLEAR BITS 8-15 U3H01240 006E 0000 128 | SAVA DC 0 SAVE ACCUMULATOR U3H01250 0070 129 | SAVAQ BSS E 2 SAVE ACC AND EXTENSION U3H01260 0072 0000 130 | TEMP DC 0 TEMP FOR PACKING U3H01270 131 | * U3H01280 0073 0000 132 | TLU DC 0 SAVE RETURN ADDRESS U3H01290 133 | * U3H01300 134 | *THIS SECTION DOES A TABLE LOOKUP CONVERSION U3H01310 135 | * U3H01320 0074 D0F9 136 | STO SAVA SAVE INPUT CHAR U3H01330 0075 1886 137 | SRT 6 PACK 12,11,0 ROWS NEXT TO U3H01340 0076 1807 138 | SRA 7 8,9 ROWS AND STORE U3H01350 0077 1883 139 | SRT 3 IN EXTENSION. U3H01360 0078 C0F5 140 | LD SAVA DETERMINE WHICH ONE OF U3H01370 0079 6919 141 | STX 1 OUT+1 ROW 1-7 PUNCHED. U3H01380 007A 610A 142 | LDX 1 10 U3H01390 007B E0EE 143 | AND H1FC0 U3H01400 007C 1140 144 | SLCA 1 0 U3H01410 007D 1001 145 | SLA 1 IS MULTIPLE PUNCH IN 1-7 U3H01420 007E 4C18 0084R 146 | BSC L OK,+- NO U3H01430 0080 C0EA 147 | LD H2001 U3H01440 0081 D0C0 148 | STO SAVST U3H01450 0082 C0DD 149 | LD BLANK YES, SET ERROR FLAG PLUS U3H01460 0083 700E 150 | MDX OUT U3H01470 0084 69E9 151 | OK STX 1 SAVA XR1= 0 IF NO 1-7 PUNCH, U3H01480 0085 C0E8 152 | LD SAVA =1 IF 7 PUNCH, ... U3H01490 0086 90DC 153 | S D0001 =7 IF 1 PUNCH. U3H01500 0087 E0DD 154 | AND D0007 U3H01510 0088 1084 155 | SLT 4 U3H01520 0089 D002 156 | STO ROW+1 ADD 12, 11, 0, AND 8 ROWS U3H01530 008A 1091 157 | SLT 17 STORE 9 ROW IN CARRY U3H01540 008B 6500 0000 158 | ROW LDX L1 0 XR1= TABLE LOOK-UP VALUE U3H01550 008D C500 00CDR 159 | LD L1 TABLE OBTAIN EBCDIC CHARS U3H01560 008F 4802 160 | BSC C IS CARRY SET (9 ROW) U3H01570 0090 1008 161 | SLA 8 YES, USE RIGHT CHAR U3H01580 0091 E0DB 162 | AND MASKR NO, USE LEFT CHAR U3H01590 0092 6500 0000 163 | OUT LDX L1 0 RESTORE XR1 U3H01600 0094 4C80 0073R 164 | BSC I TLU EXIT U3H01610 0096 1000 165 | TLU20 NOP SAVE RETURN ADDRESS U3H01620 0097 1808 166 | SRA 8 U3H01630 0098 D025 167 | STO TLU30+1 RIGHT 3 BITS TELL WHICH U3H01640 0099 90CE 168 | S H006A IS CHAR = 6A U3H01650 009A 4820 169 | BSC Z YES, CORRECT FOR BLOCK 7 U3H01660 009B 80CC 170 | A H006A NO, DETERMINE BLOCK U3H01670 009C E0C8 171 | AND D0007 16-BIT BLOCK OF TABLE U3H01680 009D F0C7 172 | EOR D0007 (0 OR 1 = BLOCK 7, 2 = U3H01690 009E 90C5 173 | S D0006 BLOCK 6, ..., 7 = U3H01700 009F 4818 174 | BSC +- BLOCK 0) U3H01710 00A0 80C2 175 | A D0001 U3H01720 00A1 80C3 176 | A D0007 U3H01730 00A2 1004 177 | SLA 4 U3H01740 00A3 D002 178 | STO TLU22+1 U3H01750 00A4 6925 179 | STX 1 TLU32+1 U3H01760 00A5 6500 0000 180 | TLU22 LDX L1 0 XR1=END OF PERTINENT BLOCK U3H01770 00A7 C016 181 | TLU24 LD TLU30+1 U3H01780 00A8 1008 182 | SLA 8 DOES INPUT MATCH TABLE U3H01790 00A9 8014 183 | A TLU30+1 U3H01800 00AA F500 00CCR 184 | EOR L1 TABLE-1 U3H01810 00AC 1888 185 | SRT 8 U3H01820 00AD 4C18 00B6R 186 | BSC L TLU28,+- YES, WITH LEFT CHAR U3H01830 00AF 1810 187 | SRA 16 U3H01840 00B0 1088 188 | SLT 8 U3H01850 00B1 4C18 00B5R 189 | BSC L TLU26,+- YES, WITH RIGHT CHAR U3H01860 00B3 71FF 190 | MDX 1 -1 NO, TRY NEXT TABLE WORD U3H01870 00B4 70F2 191 | MDX TLU24 U3H01880 00B5 C0B1 192 | TLU26 LD H0010 ADD 9-ROW BIT IF RIGHT U3H01890 00B6 D0EF 193 | TLU28 STO TLU22+1 CHAR MATCHED. U3H01900 00B7 71FF 194 | MDX 1 -1 U3H01910 00B8 1000 195 | NOP U3H01920 00B9 6904 196 | STX 1 TLU30+1 XR1= PACKED HOLLERITH VALUE U3H01930 00BA C003 197 | LD TLU30+1 U3H01940 00BB 1884 198 | SRT 4 SAVE 12,11,0,8 IN EXTENSION U3H01950 00BC D001 199 | STO TLU30+1 U3H01960 00BD 6500 0000 200 | TLU30 LDX L1 0 XR1=COMPLEMENT OF 1-7 U3H01970 00BF C0A9 201 | LD H0200 (0 IF 7 ROW, 6 IF 1 ROW, U3H01980 00C0 1100 202 | SLA 1 0 7 IF NO ROW) U3H01990 00C1 1803 203 | SRA 3 U3H02000 00C2 80E3 204 | A TLU22+1 SAVE UNPACKED 1-7 AND 9 U3H02010 00C3 D0E2 205 | STO TLU22+1 ROWS. U3H02020 00C4 1083 206 | SLT 3 SEPARATE 12,11,0 FROM U3H02030 00C5 1007 207 | SLA 7 8 ROW AS BRING ROWS U3H02040 00C6 1081 208 | SLT 1 IN FROM EXTENSION. U3H02050 00C7 1005 209 | SLA 5 U3H02060 00C8 80DD 210 | A TLU22+1 = UNPACKED HOLLERITH CHAR U3H02070 00C9 6500 0000 211 | TLU32 LDX L1 0 U3H02080 00CB 4C80 0096R 212 | BSC I TLU20 EXIT U3H02090 213 | * U3H02100 214 | * EBCDIC CHARACTER TABLE - BASED ON U3H02110 215 | * PACKED HOLLERITH(1-7 ROW CMPL-1,12, U3H02120 216 | * 11,0,8 ROWS...RT CHAR IF 9 ROW). U3H02130 217 | * U3H02140 218 | * EBCDIC,HOLLERITH ROW PUNCHES,LEFT,RT. U3H02150 219 | * U3H02160 220 | * NOTE: BLANK COMMENTS FIELDS INDICATE U3H02170 221 | * AN UNUSED CONFIGURATION IN THE U3H02180 222 | * TABLE. SINCE THE TABLE VALUES U3H02190 223 | * ARE FOUND BY A COMPUTED ADDR, U3H02200 224 | * ALL BIT COMBINATIONS,INCLUDING U3H02210 225 | * THOSE WHICH DO NOT REPRESENT A U3H02220 226 | * VALID CHAR,MUST BE INCLUDED. U3H02230 227 | * U3H02240 00CD F737 228 | TABLE DC /F737 7,(9) 7 EOT U3H02250 00CE 7F3F 229 | DC /7F3F 7,8,(9) U3H02260 00CF E727 230 | DC /E727 7,0,(9) X PRE U3H02270 00D0 6F2F 231 | DC /6F2F 7,0,8,(9) U3H02280 00D1 D717 232 | DC /D717 7,11,(9) P IDL U3H02290 00D2 5F1F 233 | DC /5F1F 7,11,8,(9) U3H02300 00D3 A767 234 | DC /A767 7,11,0,(9) U3H02310 00D4 AFEF 235 | DC /AFEF 7,11,0,8,(9) U3H02320 00D5 C707 236 | DC /C707 7,12,(9) G DEL U3H02330 00D6 4F0F 237 | DC /4F0F 7,12,8,(9) U3H02340 00D7 8747 238 | DC /8747 7,12,0,(9) U3H02350 00D8 8FCF 239 | DC /8FCF 7,12,0,8,(9) U3H02360 00D9 9757 240 | DC /9757 7,12,11,(9) U3H02370 00DA 9FDF 241 | DC /9FDF 7,12,11,8,(9) U3H02380 00DB B777 242 | DC /B777 7,12,11,0,(9) U3H02390 00DC BFFF 243 | DC /BFFF 7,12,11,0,8,(9) U3H02400 244 | * U3H02410 00DD F636 245 | DC /F636 6,(9) 6 UC U3H02420 00DE 7E3E 246 | DC /7E3E 6,8,(9) EQUAL U3H02430 00DF E626 247 | DC /E626 6,0,(9) W EOB U3H02440 00E0 6E2E 248 | DC /6E2E 6,0,8,(9) U3H02450 00E1 D616 249 | DC /D616 6,11,(9) O BS U3H02460 00E2 5E1E 250 | DC /5E1E 6,11,8,(9) U3H02470 00E3 A666 251 | DC /A666 6,11,0,(9) U3H02480 00E4 AEEE 252 | DC /AEEE 6,11,0,8,(9) U3H02490 00E5 C606 253 | DC /C606 6,12,(9) F LC U3H02500 00E6 4E0E 254 | DC /4E0E 6,12,8,(9) PLUS U3H02510 00E7 8646 255 | DC /8646 6,12,0,(9) U3H02520 00E8 8ECE 256 | DC /8ECE 6,12,0,8,(9) U3H02530 00E9 9656 257 | DC /9656 6,12,11,(9) U3H02540 00EA 9EDE 258 | DC /9EDE 6,12,11,8,(9) U3H02550 00EB B676 259 | DC /B676 6,12,11,0,(9) U3H02560 00EC BEFE 260 | DC /BEFE 6,12,11,0,8,(9) U3H02570 261 | * U3H02580 00ED F535 262 | DC /F535 5,(9) 5 RS U3H02590 00EE 7D3D 263 | DC /7D3D 5,8,(9) U3H02600 00EF E525 264 | DC /E525 5,0,(9) V LF U3H02610 00F0 6D2D 265 | DC /6D2D 5,0,8,(9) U3H02620 00F1 D515 266 | DC /D515 5,11,(9) N NL U3H02630 00F2 5D1D 267 | DC /5D1D 5,11,8,(9) ) U3H02640 00F3 A565 268 | DC /A565 5,11,0,(9) U3H02650 00F4 ADED 269 | DC /ADED 5,11,0,8,(9) U3H02660 00F5 C505 270 | DC /C505 5,12,(9) E HT U3H02670 00F6 4D0D 271 | DC /4D0D 5,12,8,(9) ( U3H02680 00F7 8545 272 | DC /8545 5,12,0,(9) U3H02690 00F8 8DCD 273 | DC /8DCD 5,12,0,8,(9) U3H02700 00F9 9555 274 | DC /9555 5,12,11,(9) U3H02710 00FA 9DDD 275 | DC /9DDD 5,12,11,8,(9) U3H02720 00FB B575 276 | DC /B575 5,12,11,0,(9) U3H02730 00FC BDFD 277 | DC /BDFD 5,12,11,0,8,(9) U3H02740 278 | * U3H02750 00FD F434 279 | DC /F434 4,(9) 4 PN U3H02760 00FE 7C3C 280 | DC /7C3C 4,8,(9) U3H02770 00FF E424 281 | DC /E424 4,0,(9) U BYP U3H02780 0100 6C2C 282 | DC /6C2C 4,0,8,(9) U3H02790 0101 D414 283 | DC /D414 4,11,(9) M RES U3H02800 0102 5C1C 284 | DC /5C1C 4,11,8,(9) * U3H02810 0103 A464 285 | DC /A464 4,11,0,(9) U3H02820 0104 ACEC 286 | DC /ACEC 4,11,0,8,(9) U3H02830 0105 C404 287 | DC /C404 4,12,(9) D PF U3H02840 0106 4C0C 288 | DC /4C0C 4,12,8,(9) U3H02850 0107 8444 289 | DC /8444 4,12,0,(9) U3H02860 0108 8CCC 290 | DC /8CCC 4,12,0,8,(9) U3H02870 0109 9454 291 | DC /9454 4,12,11,(9) U3H02880 010A 9CDC 292 | DC /9CDC 4,12,11,8,(9) U3H02890 010B B474 293 | DC /B474 4,12,11,0,(9) U3H02900 010C BCFC 294 | DC /BCFC 4,12,11,0,8,(9) U3H02910 295 | * U3H02920 010D F333 296 | DC /F333 3,(9) 3 U3H02930 010E 7B3B 297 | DC /7B3B 3,8,(9) U3H02940 010F E323 298 | DC /E323 3,0,(9) T U3H02950 0110 6B2B 299 | DC /6B2B 3,0,8,(9) COMMA U3H02960 0111 D313 300 | DC /D313 3,11,(9) L U3H02970 0112 5B1B 301 | DC /5B1B 3,11,8,(9) $ U3H02980 0113 A363 302 | DC /A363 3,11,0,(9) U3H02990 0114 ABEB 303 | DC /ABEB 3,11,0,8,(9) U3H03000 0115 C303 304 | DC /C303 3,12,(9) C U3H03010 0116 4B0B 305 | DC /4B0B 3,12,8,(9) . U3H03020 0117 8343 306 | DC /8343 3,12,0,(9) U3H03030 0118 8BCB 307 | DC /8BCB 3,12,0,8,(9) U3H03040 0119 9353 308 | DC /9353 3,12,11,(9) U3H03050 011A 9BDB 309 | DC /9BDB 3,12,11,8,(9) U3H03060 011B B373 310 | DC /B373 3,12,11,0,(9) U3H03070 011C BBFB 311 | DC /BBFB 3,12,11,0,8,(9) U3H03080 312 | * U3H03090 011D F232 313 | DC /F232 2,(9) 2 U3H03100 011E 7A3A 314 | DC /7A3A 2,8,(9) U3H03110 011F E222 315 | DC /E222 2,0,(9) S U3H03120 0120 E02A 316 | DC /E02A 2,0,8,(9) U3H03130 0121 D212 317 | DC /D212 2,11,(9) K U3H03140 0122 5A1A 318 | DC /5A1A 2,11,8,(9) U3H03150 0123 A262 319 | DC /A262 2,11,0,(9) U3H03160 0124 AAEA 320 | DC /AAEA 2,11,0,8,(9) U3H03170 0125 C202 321 | DC /C202 2,12,(9) B U3H03180 0126 4A0A 322 | DC /4A0A 2,12,8,(9) U3H03190 0127 8242 323 | DC /8242 2,12,0,(9) U3H03200 0128 8ACA 324 | DC /8ACA 2,12,0,8,(9) U3H03210 0129 9252 325 | DC /9252 2,12,11,(9) U3H03220 012A 9ADA 326 | DC /9ADA 2,12,11,8,(9) U3H03230 012B B272 327 | DC /B272 2,12,11,0,(9) U3H03240 012C BAFA 328 | DC /BAFA 2,12,11,0,8,(9) U3H03250 329 | * U3H03260 012D F131 330 | DC /F131 1,(9) 1 U3H03270 012E 7939 331 | DC /7939 1,8,(9) U3H03280 012F 6121 332 | DC /6121 1,0,(9) SLASH U3H03290 0130 6929 333 | DC /6929 1,0,8,(9) U3H03300 0131 D111 334 | DC /D111 1,11,(9) J U3H03310 0132 5919 335 | DC /5919 1,11,8,(9) U3H03320 0133 A1E1 336 | DC /A1E1 1,11,0,(9) U3H03330 0134 A020 337 | DC /A020 1,11,0,8,(9) U3H03340 0135 C101 338 | DC /C101 1,12,(9) A U3H03350 0136 4909 339 | DC /4909 1,12,8,(9) U3H03360 0137 8141 340 | DC /8141 1,12,0,(9) U3H03370 0138 8000 341 | DC /8000 1,12,0,8,(9) NUL U3H03380 0139 9151 342 | DC /9151 1,12,11,(9) U3H03390 013A 9010 343 | DC /9010 1,12,11,8,(9) U3H03400 013B B171 344 | DC /B171 1,12,11,0,(9) U3H03410 013C B030 345 | DC /B030 1,12,11,0,8,(9) U3H03420 346 | * U3H03430 013D 40F9 347 | DC /40F9 BLANK,(9) BLNK 9 U3H03440 013E F838 348 | DC /F838 8,(9) 8 U3H03450 013F F0E9 349 | DC /F0E9 0,(9) ZERO Z U3H03460 0140 E828 350 | DC /E828 0,8,(9) Y U3H03470 0141 60D9 351 | DC /60D9 11,(9) DASH R U3H03480 0142 D818 352 | DC /D818 11,8,(9) Q U3H03490 0143 D0A9 353 | DC /D0A9 11,0,(9) U3H03500 0144 A868 354 | DC /A868 11,0,8,(9) U3H03510 0145 50C9 355 | DC /50C9 12,(9) I U3H03520 0146 C808 356 | DC /C808 12,8,(9) H U3H03530 0147 C089 357 | DC /C089 12,0,(9) U3H03540 0148 8848 358 | DC /8848 12,0,8,(9) U3H03550 0149 6A99 359 | DC /6A99 12,11,(9) U3H03560 014A 9858 360 | DC /9858 12,11,8,(9) U3H03570 014B 70B9 361 | DC /70B9 12,11,0,(9) U3H03580 014C B878 362 | DC /B878 12,11,0,8,(9) U3H03590 014D 363 | END U3H03600 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced BACK 004AR 92 44 109 BACK4 0055R 101 99 BACK6 005AR 106 97 BLANK 0060R 114 149 COUNT 0062R 116 37 55 71 81 98 108 CTRL 0061R 115 31 45 96 D0001 0063R 117 153 175 D0006 0064R 118 173 D0007 0065R 119 154 171 172 176 EXIT 0048R 87 39 FLAG 0066R 120 H0010 0067R 121 192 H006A 0068R 122 168 170 H0200 0069R 123 201 H1FC0 006AR 124 143 H2001 006BR 125 147 INPUT 0011R 40 33 LEFT 001CR 51 52 72 LINK 0001R 25 MASKL 006CR 126 58 MASKR 006DR 127 162 OK 0084R 151 146 ONCE 0037R 74 46 75 82 OUT 0092R 163 141 150 OUTPT 0013R 41 35 RIGHT 0029R 62 56 63 ROW 008BR 158 156 SAV1 0043R 84 24 SAV2 0045R 85 26 SAVA 006ER 128 136 140 151 152 SAVAQ 0070R 129 28 86 SAVST 0042R 83 27 61 73 100 110 148 SPEED 0000R 24 TABLE 00CDR 228 159 184 TEMP 0072R 130 54 59 66 TLU 0073R 132 53 64 76 164 TLU20 0096R 165 93 103 212 TLU22 00A5R 180 178 193 204 205 210 TLU24 00A7R 181 191 TLU26 00B5R 192 189 TLU28 00B6R 193 186 TLU30 00BDR 200 167 181 183 196 197 199 TLU32 00C9R 211 179