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