ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \w1prnt2.asm
PRNT2- FAST SCAN VERSION FOR SCA USE
2 | *************************************************** W1E00030
3 | * TITLE - PRNT2 * W1E00040
4 | * STATUS - VERSION 2 MODIFICATION 4 * W1E00050
5 | * FUNCTION/OPERATION - PRNT2 CAN PERFORM THE * W1E00060
6 | * FOLLOWING FUNCTIONS * W1E00070
7 | * 1. TEST * W1E00080
8 | * 2. PRINT * W1E00090
9 | * 3. CONTROL CARRIAGE * W1E00100
10 | * 4. PRINT NUMERICAL * W1E00110
11 | * ENTRY POINTS - .PRNT2. CALL ENTRANCE LIBF PRNT2 * W1E00120
12 | * .INT1. INTERRUPT ENTRANCE FROM ILS01 * W1E00130
13 | * INPUT - THE I/O AREA CONTAINS EBCDIC CHARACTERS * W1E00140
14 | * PACKED TWO PER WORD * W1E00150
15 | * OUTPUT - NONE * W1E00160
16 | *EXTERNAL SUBROUTINES- NONE * W1E00170
17 | * EXITS-NORMAL - .EXIT. RETURN TO MAINLINE AT * W1E00180
18 | * LIBF+2, LIBF+3, OR LIBF+4 DEPENDING ON THE * W1E00190
19 | * FUNCTION. .XR1+2. RETURN TO USER VIA ILS RTN. * W1E00200
20 | * -ERROR - WORD 41 -PRE-OPERATIVE ERROR HALT * W1E00210
21 | * .STR(3+1. BSI TO USERS ERROR RTN. * W1E00220
22 | * TABLES/WORK AREAS - NONE * W1E00230
23 | * ATTRIBUTES - REUSABLE * W1E00240
24 | * NOTES - NONE * W1E00250
25 | *************************************************** W1E00260
26 | LIBR W1E00270
0000 27 | 1130 ISS 06 PRNT2 1 W1E00280
28 | *************************************************** W1E00290
0028 29 | $PRET EQU 40 ADDR PREOPERATIVE TRAP W1E00300
0032 30 | $IOCT EQU 50 ADDR IOCS COUNTER W1E00310
007F 31 | $1132 EQU /7F ADDR 1132 CH12 IND 2-4 W1E00315
32 | * W1E00320
33 | *************************************************** W1E00330
0000 6963 34 | PRNT2 STX 1 FC58+1 CALL ENTRANCE (+0) W1E00340
0001 6580 0000 35 | LDX I1 *-* ADDR OF 1ST PARAMETER (+2) W1E00350
0003 704B 36 | MDX FC10 TO CALL PROCESSING W1E00360
0004 0000 37 | INT1 DC *-* ENTRANCE FROM ISS (+4) W1E00370
0005 4C00 00ECR 38 | BSC L FC50 TO INTERR PROCESSING W1E00380
0007 0000 39 | WHEEL DC *-* STORAGE FOR WHEEL CHAR * W1E00390
0008 40 | BSS E W1E00400
0008 0000 41 | AQ DC 0 ACC * W1E00410
0009 0000 42 | DC 0 *AND EXT * W1E00420
000A 6001 43 | H6001 DC /6001 BAD CALL DISPLAY * W1E00430
44 | *************************************************** W1E00440
45 | * ILLEGAL PARAMETER TRAP. SUBR SETS ERROR * W1E00450
46 | * INDICATOR IN ACCUM AND GOES TO WAIT AT LOCN * W1E00460
47 | * 40 THENCE BACK TO INITIAL CALL * W1E00470
48 | *************************************************** W1E00480
000B C038 49 | ILGL2 LD STRTP END OF FORMS W1E00490
000C 7001 50 | MDX ILLGL+1 RETURN TO USER W1E00500
51 | * W1E00510
52 | * W1E00520
000D C0FC 53 | ILLGL LD H6001 W1E00530
000E 6500 0000 54 | LDX L1 *-* SET XR1 TO CALL ADDR+1 W1E00540
0010 71FF 55 | MDX 1 -1 SET XR1 TO CALL ADDR W1E00550
0011 6D00 0028 56 | STX L1 $PRET SAVE CALL ADDR W1E00560
0013 6129 57 | LDX 1 $PRET+1 W1E00570
0014 704D 58 | MDX STXIT RETURN TO $PRET+1 W1E00580
59 | * W1E00590
0015 F100 60 | KNUM DC /F100 1ST NUM CHAR ON PRT WHEEL* W1E00600
0016 61 | BSS E W1E00610
0016 0007R 62 | READE DC WHEEL * W1E00620
0017 3200 63 | DC /3200 * W1E00630
0018 0016 64 | K13 DC 22 * W1E00640
0019 0001 65 | BIN1 DC 1 MUST BE ODD * W1E00650
001A 0000 66 | NUM DC *-* + = NUM, NEG = ALPHA * W1E00660
67 | *************************************************** W1E00670
68 | * SCAN ROUTINE FOR PRNT2. THE CHAR IS READ * W1E00680
69 | * FROM THE EMITTER AND CONVERTED TO A TABLE * W1E00690
70 | * ADDRESS. THE MASK AREA OF 32-39 IS SET TO * W1E00700
71 | * ZEROES AND THE TABLE ADDRESS IS USED TO * W1E00710
72 | * SELECT A WORD FROM THE TABLE .TABLE. WHICH * W1E00720
73 | * CONTAINS THE RELATIVE LOCATION IN THE PRNT2 * W1E00730
74 | * BUFFER WHERE THE MASK WORDS FOR THIS CHAR * W1E00740
75 | * ARE CONTAINED AND THE RELATIVE LOCATIONS IN * W1E00750
76 | * 32-39 WHICH ARE TO HAVE MASK WORDS * W1E00760
77 | *************************************************** W1E00770
001B 08FA 78 | EMIT XIO READE WHEEL CHAR TO EMITTER W1E00780
001C C0FD 79 | LD NUM W1E00790
001D 4C08 0026R 80 | BSC L FC75,+ IS NUM INDR ON W1E00800
001F C0F8 81 | LD K13 YES, SET CTR48 TO 22 W1E00810
0020 D02B 82 | STO CTR48 W1E00820
0021 C0E5 83 | LD WHEEL STORE PRESENT WHEEL W1E00830
0022 F0F2 84 | EOR KNUM COMP W/1ST NUMERIC CHAR W1E00840
0023 4C20 0124R 85 | FC74 BSC L OUT,Z MATCH TO USER IF NOT W1E00850
0025 D0F4 86 | STO NUM YES, SET NUM IND OFF W1E00860
0026 C0E0 87 | FC75 LD WHEEL GET CHAR JUST READ AND W1E00870
0027 1002 88 | SLA 2 *CONVERT TO ADDRESS IN THE W1E00880
0028 180A 89 | SRA 10 *CHARACTER TBL TO INSERT W1E00890
0029 8024 90 | A KTBL *APPROPRIATE MASK WORDS W1E00900
002A D004 91 | STO FC77+2 *FROM .BUFR. TO 32-39 W1E00910
002B 4400 0174R 92 | BSI L CLEAR GO CLEAR LOC!NS 32-39 W1E00920
002D 61F8 93 | FC77 LDX 1 -8 W1E00930
002E C400 0000 94 | LD L *-* GET TABLE ENTRY AND W1E00940
0030 1888 95 | SRT 8 *STORE BUFFER ADDRESS TO W1E00950
0031 D001 96 | STO *+1 *XR2 FOR MASK WORDS W1E00960
0032 6600 0000 97 | LDX L2 *-* *FOR THIS CHARACTER W1E00970
0034 7600 01BER 98 | MDX L2 BUFR W1E00980
0036 1888 99 | SRT 8 W1E00990
0037 18C1 100 | LOOP RTE 1 STORE MASK WORD W1E01000
0038 4C10 003DR 101 | BSC L UPIT,- *INTO APPROPRIATE W1E01010
003A C200 102 | LD 2 0 *LOCATIONS IN 32-39 W1E01020
003B D128 103 | STO 1 $SCAN+8 W1E01030
003C 7201 104 | MDX 2 1 W1E01040
003D 7101 105 | UPIT MDX 1 1 W1E01050
003E 70F8 106 | MDX LOOP W1E01060
003F C00C 107 | LD CTR48 REDUCE NO. OF SCANS CTR W1E01070
0040 90D8 108 | S BIN1 *BY ONE W1E01080
0041 D00A 109 | STO CTR48 W1E01090
0042 4C00 0122R 110 | BSC L OUT-2 INSERT SCAN COMPLETE BIT W1E01100
0044 111 | BSS E 0 W1E01110
0044 6000 112 | STRTP DC /6000 1132 ERROR INDR * W1E01120
0045 3480 113 | DC /3480 O* W1E01130
0046 0030 114 | K48 DC 48 MUST BE EVEN ADDR E* W1E01140
0047 000C 115 | K12 DC 12 MUST FOLLOW K48 O* W1E01150
0048 0000 116 | SENSE DC *-* STOR FOR CALL+1 PAR EVEN W1E01152
0049 3700 117 | DC /3700 SENSE IOCC ODD W1E01154
004A FFC4 118 | NEG60 DC -60 CON FOR USER WDCNT ERROR * W1E01160
004B 0002 119 | BIN2 DC 2 RIGHT 8 BITS ARE Z * W1E01180
004C 0000 120 | CTR48 DC *-* * W1E01190
004D 0000 121 | PAR1 DC *-* W1E01200
004E 017ER 122 | KTBL DC TABL W1E01210
123 | *************************************************** W1E01220
124 | * CALL PROCESSING- CHECK FOR TEST FUNCTION AND* W1E01230
125 | * IF YES- SET THE APPROPRIATE RETURN ADDR * W1E01240
126 | * AND EXIT BACK TO USER * W1E01250
127 | *************************************************** W1E01260
004F 69BF 128 | FC10 STX 1 ILLGL+2 ADDR OF CALL+1 STORED W1E01270
0050 6A15 129 | STX 2 FC58+3 STORE USERS XR2 W1E01280
0051 2815 130 | STS FC58+4 SAVE STATUS W1E01290
0052 D8B5 131 | STD AQ SAVE ACC AND EXT W1E01300
0053 08F4 132 | EOF XIO SENSE W1E01310
0054 1005 133 | SLA 5 END OF FORMS TEST W1E01320
0055 4C28 000BR 134 | BSC L ILGL2,+Z BR IF YES W1E01330
0057 C480 000FR 135 | LD I ILLGL+2 FETCH 1ST PARAM W1E01340
0059 188C 136 | SRT 12 W1E01350
005A 4820 137 | BSC Z ALL Z W1E01360
005B 700E 138 | MDX FC13 NO, TEST FOR PRT OR CTRL W1E01370
005C 08EB 139 | XIO SENSE CHECK FOR PRINTER OR W1E01380
005D 1808 140 | SRA 8 * CARRIAGE BUSY W1E01390
005E 4818 141 | BSC +- IS IT Z W1E01400
005F 7101 142 | MDX 1 1 YES, BUMP EXIT W1E01410
0060 7101 143 | MDX 1 1 NO, LEAVE AT CALL+2 EXIT W1E01420
0061 C8A6 144 | LDD AQ W1E01430
0062 6906 145 | STXIT STX 1 EXIT+1 SET RESTORE SUBR EXIT W1E01440
0063 6500 0000 146 | FC58 LDX L1 *-* RESTORE XR1 W1E01450
0065 6600 0000 147 | LDX L2 *-* RESTORE XR2 W1E01460
0067 2000 148 | LDS 0 RESTORE STATUS W1E01470
0068 4C00 0000 149 | EXIT BSC L *-* EXIT TO USER W1E01480
150 | * W1E01490
151 | *************************************************** W1E01500
152 | * CHECK FOR PRINT OR PRINT NUMERIC FUNCTION * W1E01510
153 | * IF YES- BRING IN ASSOCIATED PARAMETERS AND * W1E01520
154 | * CHECK VALID FUNCTION,WORD COUNT AND BRANCH * W1E01530
155 | * TO PRESCAN LINE TO SET UP MASK WORDS * W1E01540
156 | *************************************************** W1E01550
006A 18D4 157 | FC13 RTE 20 GET CONTROL PARAMATER AND W1E01560
006B D0E1 158 | STO PAR1 *SAVE W1E01570
006C 188C 159 | SRT 12 ISOLATE LEFT 4 BITS W1E01580
006D 90AB 160 | S BIN1 CHECK FOR INVALID FUNCTION W1E01590
006E 4C08 000DR 161 | BSC L ILLGL,+ *OF 1 W1E01600
0070 90DA 162 | S BIN2 TEST IF CTRL W1E01610
0071 4818 163 | BSC +- SKIP IF NOT CONTROL FUNCT. W1E01620
0072 703F 164 | MDX FC20 TO CTRL PROCESSING W1E01630
0073 D076 165 | STO STRTC HOLD TO SET NUM INDR LATER W1E01640
0074 10A0 166 | SLT 32 CLEAR ACC AND EXT W1E01650
0075 C0D6 167 | FC14X LD CTR48 CHK IF WE CAN PRESCAN W1E01660
0076 4C20 0075R 168 | BSC L FC14X,Z W1E01670
0078 C071 169 | LD STRTC IF PREVIOUS LINE WAS NUM, W1E01680
0079 D0A0 170 | STO NUM *THE INDR WAS TURNED OFF W1E01690
007A 7101 171 | MDX 1 1 BUMP XR1 TO CALL+2 ADDR W1E01700
007B 690A 172 | STX 1 FC16+1 STORE CALL+2 ADDR W1E01710
007C 7101 173 | MDX 1 1 W1E01720
007D 6D00 0167R 174 | STX L1 STRE3+2 STORE CALL+3 ADDR FOR 9/12 W1E01730
007F C0CD 175 | LD PAR1 CHECK FOR FUNCTION CODE W1E01740
0080 188C 176 | SRT 12 GREATER THAN 4 W1E01750
0081 9055 177 | S K1 W1E01760
0082 1802 178 | SRA 2 IF ANY BIT REMAINS, PARAM W1E01770
0083 4C20 000DR 179 | FC14C BSC L ILLGL,Z * WAS OVER 4 W1E01780
0085 9480 0000 180 | FC16 S I *-* SUB WD CNT FROM Z W1E01790
0087 4C10 000DR 181 | BSC L ILLGL,- RESULT SHOULD BE NEG W1E01800
0089 D400 028ER 182 | STO L NEGWD STORE WD COUNT IN NEGATIVE W1E01810
008B D025 183 | STO NEG2 *FORM FOR LATER USE W1E01820
008C 90BD 184 | S NEG60 CHECK RANGE--DISPLAY W1E01830
008D 4C28 000DR 185 | BSC L ILLGL,+Z */6001 IF ERROR W1E01840
008F C480 0086R 186 | FC16B LD I FC16+1 LOAD ADDR IN CALL+2 W1E01850
0091 8045 187 | A K1 POINT TO FIRST DATA CHAR W1E01860
0092 4C00 0236R 188 | BSC L PRSCN GO PRESCAN LINE W1E01870
189 | *************************************************** W1E01880
190 | * RETURN FROM PRESCAN- SET UP CTRS, CLEAR 32- * W1E01890
191 | * 39 , START PRINTER. TURN ON IOCS CTR & EXIT * W1E01900
192 | * BACK TO USER * W1E01910
193 | *************************************************** W1E01920
0094 08B3 194 | FC16C XIO SENSE CK IF WE CAN START PRINT W1E01930
0095 1006 195 | SLA 6 W1E01940
0096 4C02 0053R 196 | BSC L EOF,C TO E.O.FORMS IF C ON W1E01950
0098 4C28 0094R 197 | BSC L FC16C,+Z NO PRNTER STILL BUSY W1E01960
009A C06D 198 | FC16D LD SPSK CHK IF SKIP OP INCOMPLETE W1E01970
009B 4C10 00A0R 199 | BSC L FC16E,- NOT BUSY OK TO PROCESS W1E01980
009D C04B 200 | LD AFTIN W1E01990
009E 4C20 009AR 201 | BSC L FC16D,Z WAIT FOR SKIP COMPLETE W1E02000
00A0 C0AC 202 | FC16E LD PAR1 SAVE CTRL PARAM FOR LATER W1E02010
00A1 D0A6 203 | STO SENSE CHK IF SPACE W1E02020
00A2 C8A3 204 | FC17 LDD K48 SET COUNTERS W1E02030
00A3 D0A8 205 | STO CTR48 * FOR A TOTAL OF 66 W1E02040
00A4 D833 206 | FC18 STD CTR16 * PRINT CYCLES W1E02050
00A5 4400 0174R 207 | BSI L CLEAR CLEAR 32-39 W1E02060
00A7 7401 0027 208 | MDX L $SCAN+7,1 INSERT SCAN COMPLETE BIT W1E02070
00A9 089A 209 | XIO STRTP START PRINTER W1E02080
00AA 6580 000FR 210 | LDX I1 ILLGL+2 RESTORE XR1 TO RETURN W1E02090
00AC 7102 211 | MDX 1 2 *TO USER W1E02100
00AD 7401 0032 212 | CNTUP MDX L $IOCT,1 INCR IOCS COUNTER W1E02110
00AF 70B0 213 | MDX STXIT-2 TO USER W1E02120
00B0 70AF 214 | MDX STXIT-2 TO USER W1E02130
00B1 0000 215 | NEG2 DC HOLDS WD CT IN NEG. FORM W1E02140
216 | *************************************************** W1E02150
217 | * PROCESS CONTROL FUNCTIONS OF SPACE AND SKIP * W1E02160
218 | * WAIT FOR ANY PREVIOUS PRINTING,SPACING OR * W1E02170
219 | * SKIPPING TO END. DETERMINE IF IMMEDIATE OR * W1E02180
220 | * AFTER PRNT SPACE OR SKIP, AND CK FOR VALID * W1E02190
221 | * CONTROL FUNCTION. .SPSK. INDICATES OP AND * W1E02200
222 | * .AFTIN. INDICATES IMMED. OR AFTER OP. IF A * W1E02210
223 | * SPACE OR SKIP IMMEDIATE, EXECUTE I/O ELSE * W1E02220
224 | * WAIT FOR PRINT TO FINISH * W1E02230
225 | *************************************************** W1E02240
00B2 C025 226 | FC20 LD CTR16 CHK IF RESTORE CYCLES W1E02250
00B3 4830 227 | BSC Z- *ARE COMPLETE W1E02260
00B4 70FD 228 | MDX FC20 16-CTR NOT Z, WAIT W1E02270
00B5 0892 229 | FC20A XIO SENSE CHECK IF EXECUTING W1E02280
00B6 180C 230 | SRA 12 * ANY CARRIAGE OP W1E02290
00B7 4C20 00B5R 231 | BSC L FC20A,Z LOOP IF YES W1E02300
00B9 C08D 232 | FC22 LD K12 SET LIMITING COUNTER W1E02310
00BA D075 233 | STO STOPC W1E02320
00BB 1810 234 | SRA 16 CLEAR ACC W1E02330
00BC 1084 235 | SLT 4 BRING 2ND HEX DIG FROM EXT W1E02340
00BD D02B 236 | STO AFTIN SET TO Z FOR ON W1E02350
00BE 4C20 00C3R 237 | BSC L FC25,Z IS IT Z W1E02360
00C0 1084 238 | SLT 4 TRY 3RD HEX DIGIT W1E02370
00C1 4C18 000DR 239 | BSC L ILLGL,+- IS IT Z ALSO W1E02380
00C3 9083 240 | FC25 S K12 NO W1E02390
00C4 4C30 00DDR 241 | BSC L FC44,-Z IS THIS A SKIP W1E02400
00C6 6200 242 | LDX 2 0 YES W1E02410
00C7 4C10 00DAR 243 | BSC L FC39,- IS IT A SKIP TO CH 12 W1E02420
00C9 801E 244 | A K3 NO W1E02430
00CA 6201 245 | LDX 2 1 SET XR1 FOR SHIFT & COUNT W1E02440
00CB 4C18 00DAR 246 | BSC L FC39,+- TRY FOR CH 9 W1E02450
00CD 801A 247 | A K3 NO W1E02460
00CE 7201 248 | MDX 2 1 W1E02470
00CF 4C18 00DAR 249 | FC38 BSC L FC39,+- TEST FOR CH 6 W1E02480
00D1 8005 250 | A K1 NO, LOOP & TRY FOR 5,4,3, W1E02490
00D2 7201 251 | MDX 2 1 2,1 W1E02500
00D3 74FF 0130R 252 | MDX L STOPC,-1 CTR TO LIMIT LOOPS W1E02510
00D5 70F9 253 | MDX FC38 W1E02520
00D6 70AC 254 | MDX FC14C TO ILLGL VIA STEP W1E02530
00D7 0001 255 | K1 DC 1 * W1E02540
00D8 256 | BSS E 0 W1E02550
00D8 0000 257 | CTR16 DC *-* CENTRAL LOCN REQUIRED * W1E02560
00D9 0000 258 | CTR2 DC *-* MUST FOLLOW CTR16 & ODD * W1E02570
00DA C0FC 259 | FC39 LD K1 SET UP BIT FOR SKIP MASK W1E02580
00DB 1240 260 | SLCA 2 W1E02590
00DC E850 261 | OR SIGNB SET SIGN BIT ON W1E02600
00DD D02A 262 | FC44 STO SPSK LOAD INFO INTO MASK W1E02610
00DE C00A 263 | LD AFTIN SHOULD EXECUTION WAIT W1E02620
00DF 4C18 0060R 264 | BSC L STXIT-2,+- BRANCH IF YES, ELSE W1E02630
00E1 C026 265 | LD SPSK *DETERMINE IF SKIP OR SPAC W1E02640
00E2 4C10 00E6R 266 | BSC L SPACE,- IS IT A SKIP W1E02650
00E4 0805 267 | XIO STRTC YES W1E02660
00E5 70C7 268 | MDX CNTUP BUMP LOC 50, RTRN TO USER W1E02670
269 | * W1E02680
270 | * W1E02700
271 | * SPACE PROCESSING W1E02710
00E6 0847 272 | SPACE XIO CARSP START SPACES W1E02720
00E7 70C5 273 | MDX CNTUP RETURN TO USER W1E02730
274 | * W1E02740
275 | * END CALL PROCESSING W1E02750
276 | * W1E02760
00E8 0003 277 | K3 DC 3 CONSTANT 3 W1E02765
00E9 0000 278 | AFTIN DC *-* Z=ON, PLUS=OFF * W1E02770
00EA 279 | BSS E 0 W1E02780
00EA 0000 280 | STRTC DC *-* WORK AREA FOR FC14A * W1E02810
00EB 3404 281 | DC /3404 MUST BE ODD * W1E02820
282 | *************************************************** W1E02840
283 | * 1132 INTERRUPT PROCESSING ROUTINE. SAVE XR1 * W1E02850
284 | * AND 2 GET DSW CHECK FOR SKIP COMPLETE OP AND* W1E02860
285 | * IF YES DETERMINE IF WE HAVE REACHED DESIRED * W1E02870
286 | * CHANNEL. IF YES STOP CARRIAGE. IN EITHER * W1E02880
287 | * CASEGO CHECK FOR PRINTER EMMITTER INTERRUPT * W1E02890
288 | *************************************************** W1E02900
00EC 6A38 289 | FC50 STX 2 OUT+1 SAVE XR2 W1E02910
00ED 6939 290 | STX 1 XR1+1 W1E02920
00EE 0843 291 | XIO SENSR-1 SENSE AND RESET W1E02930
00EF D07F 292 | STO DSW HOLD DSW W1E02940
00F0 E0E6 293 | AND K1 MASK OUT CH 12 BIT 2-4 W1E02942
00F1 EC00 007F 294 | OR L $1132 OR WITH CH 12 IND 2-4 W1E02944
00F3 D400 007F 295 | STO L $1132 SET 1132 CH 12 IND 2-4 W1E02946
00F5 C079 296 | LD DSW LOAD THE DSW AGAIN 2-4 W1E02948
00F6 1001 297 | SLA 1 TEST BIT 1 W1E02950
00F7 4C10 0109R 298 | BSC L FC56,- IS A SKIP DONE W1E02960
00F9 1007 299 | SLA 7 CHOP OFF LEFT 8 W1E02970
00FA 1808 300 | SRA 8 RIGHT JUSTIFY W1E02980
00FB E831 301 | OR SIGNB SET UP DSW FOR COMPARE W1E02990
00FC F00B 302 | EOR SPSK W1E03000
00FD 4820 303 | BSC Z MATCH W1E03010
00FE 7013 304 | MDX FC60 NO W1E03020
00FF D070 305 | STO PASS CLEAR PASS W1E03030
0100 D007 306 | STO SPSK CLEAR MASK W1E03040
0101 D400 007F 307 | STO L $1132 RESET 1132 CH 12 IND 2-4 W1E03045
0103 082C 308 | XIO STOPC YES W1E03050
0104 74FF 0032 309 | FC54 MDX L $IOCT,-1 DECR LOC 50 W1E03060
0106 1000 310 | NOP MAY SKIP W1E03070
0107 700A 311 | MDX FC60 W1E03080
312 | * W1E03090
0108 0000 313 | SPSK DC *-* W1E03095
314 | *************************************************** W1E03100
315 | * SPACE COMPLETE INTERRUPT. CHECK IF ANY * W1E03110
316 | * MORE SPACES REQ!D. IF YES EXECUTE I/O SPACE * W1E03120
317 | * THEN GO CHECK PRINTER EMITTER INTERRUPT. * W1E03130
318 | *************************************************** W1E03140
0109 1001 319 | FC56 SLA 1 CHK DSW BIT 2 W1E03150
010A 4810 320 | BSC - IS CARRIAGE SPACE DONE W1E03160
010B 7006 321 | MDX FC60 NO W1E03170
010C C0FB 322 | LD SPSK W1E03180
010D 90C9 323 | S K1 DECR SPACE CNT W1E03190
010E D0F9 324 | STO SPSK STORE BACK W1E03200
010F 4C08 0104R 325 | BSC L FC54,+ FINISHED IF Z, W1E03210
0111 081C 326 | XIO CARSP * ELSE KEEP SPACING W1E03220
327 | *************************************************** W1E03230
328 | * CHECK IF PRINTER EMITTER INT. IF NO RETURN * W1E03240
329 | * TO USER VIA ILS EXIT. IF YES CHECK IF WE ARE* W1E03250
330 | * IN A RE-SCAN WAIT LOOP. IF NO - CHECK IF * W1E03260
331 | * LAST PRINT SCAN WAS COMPLETED- RESTART IF NO* W1E03270
332 | * IF PRNT INTERPT, CK IF ALL 48 SCANS COMPLETE* W1E03280
333 | * IF NO- GO SCAN FOR NXT CHAR. IF YES CK IF * W1E03290
334 | * RESTORE CYCLES COMPLETE. IF YES GO TO FC81 * W1E03300
335 | * CK IF LAST 2 CYCLES DONE, IF YES STOP PRNTR * W1E03310
336 | * AND RETURN TO USER * W1E03320
337 | *************************************************** W1E03330
0112 C05C 338 | FC60 LD DSW SAVE CHANNEL INDICATOR W1E03340
0113 E85C 339 | OR PASS FOR LATER CHECK OF SKIP W1E03350
0114 D05B 340 | STO PASS TO CHANNEL ONE W1E03360
0115 C059 341 | LD DSW W1E03370
0116 4C10 0124R 342 | BSC L OUT,- IS 1132 BIT ON W1E03380
0118 C064 343 | LD CTR46 CHECK IF RESCAN W1E03390
0119 4C20 012AR 344 | BSC L FC63,Z LOOP- BRANCH IF YES W1E03400
011B C053 345 | LD DSW CHECK IF LAST W1E03410
011C 1004 346 | SLA 4 SCAN NOT COMPLETED W1E03420
011D 4C10 0134R 347 | BSC L FC70,- BRANCH IF COMPLETE W1E03430
011F C012 348 | LD K46 NO- SET WAIT LOOP W1E03440
0120 D05C 349 | STO CTR46 AND THEN RESUME W1E03450
0121 4052 350 | BSI CLEAR SCAN FROM LAST GOOD SCAN W1E03460
0122 7401 0027 351 | MDX L $SCAN+7,1 W1E03470
0124 6600 0000 352 | OUT LDX L2 *-* RESTORE XR2 W1E03480
0126 6500 0000 353 | XR1 LDX L1 *-* RESTORE XR1 W1E03490
0128 4C80 0004R 354 | BSC I INT1 TO USER VIA ILS01 W1E03500
355 | * W1E03510
012A 90AC 356 | FC63 S K1 REDUCE RESCAN COUNTER W1E03520
012B D051 357 | STO CTR46 *BY ONE W1E03530
012C 70F7 358 | MDX OUT W1E03540
012D 8000 359 | SIGNB DC /8000 W1E03545
012E 360 | BSS E 0 W1E03550
012E 8080 361 | CARSP DC /8080 STORAGE FOR CH 1 MASK * W1E03560
012F 3401 362 | DC /3401 * W1E03570
0130 0000 363 | STOPC DC *-* LEGALITY CK ON CTRL PARAM* W1E03580
0131 3402 364 | DC /3402 MUST BE ODD * W1E03590
0132 002E 365 | K46 DC 46 CONSTANT 46 W1E03592
0133 3701 366 | SENSR DC /3701 SENSE AND RESET W1E03594
367 | * W1E03610
0134 C400 004CR 368 | FC70 LD L CTR48 W1E03620
0136 4C20 001BR 369 | BSC L EMIT,Z IS FORMAL PART FINISHED W1E03630
0138 403B 370 | BSI CLEAR DONE- CLEAR 32-39 W1E03640
0139 7401 0027 371 | MDX L $SCAN+7,1 INSERT SCAN COMPLETE BIT W1E03650
013B C09C 372 | LD CTR16 CHK RESTORE COUNTER W1E03660
013C 4C20 0147R 373 | BSC L FC81,Z IS 16-CTR Z W1E03670
013E D031 374 | STO PASS CLEAR PASS W1E03680
013F 74FA 00D9R 375 | MDX L CTR2,-6 YES, DECR 2-CTR W1E03690
0141 70E2 376 | MDX OUT TO USER IF NOT Z YET W1E03700
0142 082F 377 | XIO STOPP W1E03710
0143 74FF 0032 378 | MDX L $IOCT,-1 DECR LOC 50 W1E03720
0145 70DE 379 | MDX OUT TO USER W1E03730
0146 70DD 380 | MDX OUT W1E03740
381 | * W1E03750
382 | *************************************************** W1E03760
383 | * RESTORE CYCLES ARE COMPLETED CK IF ANY SKIP * W1E03770
384 | * OR SPACE AFTER OP REQ!D. IF YES START THE * W1E03780
385 | * APPROPRIATE OPERATION. IF NO CK ORIGINAL * W1E03790
386 | * FUNCTION PARAM TO SEE IF SPACE OR SUPPRESS * W1E03800
387 | * SPACE TO BE INITIATED. CK IF CHANNEL 9 OR * W1E03810
388 | * 12 WAS PASSED AND IF YES GO TO USERS ERROR * W1E03820
389 | * ROUTINE WITH INDICATION. UPON RETURN SKIP TO* W1E03830
390 | * CHANNEL 1 IF REQUESTED * W1E03840
391 | *************************************************** W1E03850
0147 74FD 00D8R 392 | FC81 MDX L CTR16,-3 W1E03860
0149 70DA 393 | MDX OUT W1E03870
014A C0BD 394 | LD SPSK YES W1E03880
014B 4C20 0153R 395 | BSC L FC91,Z IS IT A SPACE OR SKIP W1E03890
014D C400 0048R 396 | FC82 LD L SENSE NO, FETCH PUT/WRITE PARAM W1E03900
014F 100B 397 | SLA 11 TRIM EACH END W1E03910
0150 180F 398 | SRA 15 W1E03920
0151 F085 399 | EOR K1 REVERSE 01 TO 00 OR 00 -01 W1E03930
0152 D0B5 400 | STO SPSK SET SPACE OR INHIBIT SPACE W1E03940
401 | * W1E03950
0153 6895 402 | FC91 STX 0 AFTIN SET INDR OFF(+ OR -) W1E03960
0154 C01B 403 | LD PASS YES W1E03970
0155 4C04 0163R 404 | BSC L STRE4,E IF ODD, CH 12 WAS PASSED W1E03980
0157 1801 405 | SRA 1 W1E03990
0158 4C04 0165R 406 | BSC L STRE3,E IF ODD, CH 9 WAS PASSED W1E04000
015A C0AD 407 | FC84 LD SPSK NO 9/12 PASSED START AFTER W1E04010
015B 4818 408 | BSC +- *SPACE/SKIP IF PRESENT W1E04020
015C 70C7 409 | MDX OUT TO USER W1E04030
015D 4C28 016CR 410 | BSC L FC86,+Z SPACE CALLED FOR W1E04040
015F 08CE 411 | XIO CARSP YES W1E04050
0160 7401 0032 412 | UP7 MDX L $IOCT,1 INCR IOCS COUNTER W1E04060
413 | * NOP REMOVED, SINCE SKIP IS NOT EXPECTED 2-4 W1E04070
0162 70C1 414 | MDX OUT TO USER W1E04080
415 | * W1E04090
0163 C00E 416 | STRE4 LD STOPP LD ACC W/ A FOUR W1E04100
0164 7001 417 | MDX STRE3+1 W1E04110
0165 C082 418 | STRE3 LD K3 W1E04120
0166 4480 0000 419 | BSI I *-* TO USERS ERROR SUBR W1E04130
0168 4C18 015AR 420 | FC91A BSC L FC84,+- TAKE NO ACTION IF CLEARED, W1E04140
016A C0C3 421 | LD CARSP * ELSE SET UP SKIP TO CH 1 W1E04150
016B D09C 422 | STO SPSK W1E04160
016C 0C00 00EAR 423 | FC86 XIO L STRTC SKIP WAS CALLED FOR W1E04170
016E 70F1 424 | MDX UP7 INCR $IOCT, GO TO USER W1E04180
425 | * END OF INTERRUPT PROCESSING W1E04190
016F 0000 426 | DSW DC *-* * W1E04200
0170 0000 427 | PASS DC 0 W1E04205
0172 428 | BSS E 0 W1E04210
0172 0004 429 | STOPP DC 4 CON FOR USERS ERROR W1E04220
0173 3440 430 | DC /3440 *EXIT * W1E04230
431 | *************************************************** W1E04280
432 | * ROUTINE TO CLEAR LOCATIONS 32-39 TO ZEROES * W1E04290
433 | *************************************************** W1E04300
0174 0000 434 | CLEAR DC *-* W1E04310
0175 6200 435 | LDX 2 0 CLE AR LOCATIONS W1E04320
0176 10A0 436 | SLT 32 32 THROUGH W1E04330
0177 DA20 437 | STD 2 $SCAN 39 TO W1E04340
0178 DA22 438 | STD 2 $SCAN+2 ZEROES W1E04350
0179 DA24 439 | STD 2 $SCAN+4 W1E04360
017A DA26 440 | STD 2 $SCAN+6 W1E04370
017B 4C80 0174R 441 | BSC I CLEAR RETURN TO CALLER W1E04380
017D 0000 442 | CTR46 DC *-* W1E04385
017E 443 | TABL BSS E 64 W1E04390
01BE 444 | BUFR BSS 120 INTERNAL PRINT BUFFER W1E04400
445 | *************************************************** W1E04410
446 | * START OF PRESCAN- CLEAR INTERNAL PRINT BUFFR* W1E04420
447 | * AND CHARACTER TABLE TO ZEROES * W1E04430
448 | *************************************************** W1E04440
0236 D05A 449 | PRSCN STO FROM+1 SET TO SCAN PRINT LINE W1E04450
0237 D04C 450 | STO SECND *OF USER W1E04460
451 | * CLEAR BUFFER,TABLE & COUNTERS W1E04470
0238 6600 00B8 452 | LDX L2 184 W1E04480
023A 10A0 453 | SLT 32 ZERO OUT TABLE AND W1E04490
023B DE00 017CR 454 | LOOP1 STD L2 TABL-2 *BUFFER, SAVE XR3 W1E04500
023D 72FE 455 | MDX 2 -2 *AND CLEAR 'CTRSF' W1E04510
023E 70FC 456 | MDX LOOP1 W1E04520
023F D045 457 | STO CTRSF W1E04540
458 | *************************************************** W1E04550
459 | * LOOK AT EACH CHAR IN USERS PRNT BUFFR AND * W1E04560
460 | * BUILD UP THE CHARACTER TABLE TO INDICATE FOR* W1E04570
461 | * EACH OF THE 48 PRINTABLE CHARACTERS THE NMBR* W1E04580
462 | * OF MASK WORDS REQUIRED AND THEIR RELATIVE * W1E04590
463 | * LOCATIONS IN 32-39 IN THE RIGHT HALF OF EACH* W1E04600
464 | * TABLE ENTRY * W1E04610
465 | * XR2 IS SHIFT COUNT * W1E04620
466 | *************************************************** W1E04630
0240 6110 467 | LOOP2 LDX 1 16 W1E04640
0241 404D 468 | LOOP3 BSI GET GET CHARACTER TABLE ADDR W1E04650
0242 C480 028BR 469 | LD I TAENT GET CHAR TABLE ENTRY 2-2 W1E04660
0244 1A80 470 | SRT 2 0 CHECK RELATIVE WORD W1E04670
0245 4C04 024CR 471 | BSC L CK,E ANY OTHER CHARS IN THIS W1E04680
0247 E83F 472 | OR KN1 *GROUP OF 16, NO, SET W1E04690
0248 1280 473 | SLT 2 0 *INDICATOR +, ADD 1 TO W1E04700
0249 803C 474 | A K0100 *CNT OF MASK WDS REQUIRED W1E04710
024A D480 028BR 475 | STO I TAENT *FOR CHAR-STORE BACK 2-2 W1E04720
024C C041 476 | CK LD NEGWD CHECK IF SCAN DONE W1E04730
024D 4C18 0253R 477 | BSC L LOOP4-1,+- EXIT IF DONE W1E04740
024F 71FF 478 | MDX 1 -1 ADJUST COUNTERS W1E04750
0250 70F0 479 | MDX LOOP3 *TO GO THRU W1E04760
0251 7201 480 | MDX 2 1 *LOOP AGAIN W1E04770
0252 70ED 481 | MDX LOOP2 W1E04780
482 | *************************************************** W1E04790
483 | * AFTER SCAN OF USERS PRINT BUFFER, SCAN THE * W1E04800
484 | * CONSTRUCTED TABLE AND DETERMINE THE STARTING* W1E04810
485 | * RELATIVE LOCATION FOR THE MASK WORDS TO BE * W1E04820
486 | * STORED IN THE INTERNAL PRINT BUFFER * W1E04830
487 | *************************************************** W1E04840
0253 6240 488 | LDX 2 64 W1E04850
0254 C600 017DR 489 | LOOP4 LD L2 TABL-1 GET TABLE ENTRY W1E04860
0256 1888 490 | SRT 8 W1E04870
0257 D031 491 | STO TEMP W1E04880
0258 802C 492 | A CTRSF UPDATE RELATIVE ADDR W1E04890
0259 D02B 493 | STO CTRSF *IN BFR FOR THIS W1E04900
025A 902E 494 | S TEMP *CHARACTER W1E04910
025B 1088 495 | SLT 8 W1E04920
025C D600 017DR 496 | STO L2 TABL-1 STORE BACK W1E04930
025E 72FF 497 | MDX 2 -1 W1E04940
025F 70F4 498 | MDX LOOP4 REPEAT LOOP W1E04950
499 | *************************************************** W1E04960
500 | * SCAN THE USERS BUFFER AGAIN TO NOW CONSTRUCT* W1E04970
501 | * THE ACTUAL MASK WORDS THAT ARE REQUIRED FOR * W1E04980
502 | * INSERTING INTO LOCATIONS 32- 39 AT * W1E04990
503 | * EACH CHARACTER INTERRUPT CYCLE * W1E05000
504 | *************************************************** W1E05010
0260 C400 00B1R 505 | LD L NEG2 SET TO SCAN PRINT LINE W1E05020
0262 D02B 506 | STO NEGWD TO CONSTRUCT MASK WORDS W1E05030
0263 C020 507 | LD SECND *IN BUFFER W1E05040
0264 D02C 508 | STO FROM+1 W1E05050
0265 6110 509 | LOOP6 LDX 1 16 W1E05060
0266 4028 510 | LOOP5 BSI GET GET CHARACTER TBL ADDRESS W1E05070
0267 C480 028BR 511 | LD I TAENT GET CHAR TABLE ENTRY 2-2 W1E05080
0269 1888 512 | SRT 8 RELATIVE BUFFER ADDR W1E05090
026A 8021 513 | A BADDR GET ACTUAL BUFFER ADDR 2-2 W1E05100
026B D021 514 | STO BUENT *AND STORE IT 2-2 W1E05110
026C 901F 515 | S BADDR 2-2 W1E05120
026D 1888 516 | SRT 8 ISOLATE PART OF ENTRY THAT W1E05130
026E 1AC0 517 | RTE 2 0 *HAS RLTV MASK WDS REQD W1E05140
026F 4C10 0273R 518 | LOOP7 BSC L *+2,- LOOP TO FIND RLTV MASK 2-2 W1E05150
0271 7401 028DR 519 | MDX L BUENT,1 *WD IN BUFFER WHICH 2-2 W1E05160
0273 1001 520 | SLA 1 *CORRESPONDS TO THIS CHAR W1E05170
0274 4C20 026FR 521 | BSC L LOOP7,Z *IN THIS PRINT POSITION W1E05180
0276 C810 522 | LDD KN1 *OR IN A BIT INTO THE W1E05190
0277 1881 523 | SRT 1 *APPROPRIATE MASK WORD W1E05200
0278 1180 524 | SLT 1 0 *AND STORE BACK IN THE W1E05210
0279 EC80 028DR 525 | OR I BUENT *TO PROPER SLOT IN THE 2-2 W1E05220
027B D480 028DR 526 | STO I BUENT *BUFFER 2-2 W1E05230
027D C010 527 | LD NEGWD ARE WE DONE W1E05240
027E 4C18 0094R 528 | BSC L FC16C,+- YES GO CHK START PRINT W1E05260
0280 71FF 529 | MDX 1 -1 NO UP COUNTERS W1E05270
0281 70E4 530 | MDX LOOP5 *FOR NEXT W1E05280
0282 7201 531 | MDX 2 1 *CHARACTER SCAN W1E05290
0283 70E1 532 | MDX LOOP6 W1E05300
0284 533 | BSS E 0 W1E05310
0284 0000 534 | SECND DC *-* W1E05320
0285 0000 535 | CTRSF DC *-* W1E05330
0286 0100 536 | K0100 DC /0100 W1E05340
0287 0001 537 | KN1 DC 1 M MOST HAVE ODD ADDR W1E05350
0288 0000 538 | LFTRT DC *-* W1E05360
0289 0000 539 | TEMP DC *-* W1E05370
028A 017ER 540 | TADDR DC TABL 2-2 W1E05374
028B 0000 541 | TAENT DC *-* 2-2 W1E05375
028C 01BER 542 | BADDR DC BUFR 2-2 W1E05376
028D 0000 543 | BUENT DC *-* 2-2 W1E05377
028E 0000 544 | NEGWD DC *-* SOURCE NEG WD CNT W1E05378
545 | *************************************************** W1E05380
546 | * SUBROUTINE TO CONVERT A PACKED EBC CHARACTER* W1E05390
547 | * INTO A TABLE ADDRESS OF 0-63 PLUS THE ADDR * W1E05400
548 | * OF THE BEGINNING OF THE TABLE * W1E05410
549 | *************************************************** W1E05420
028F 0000 550 | GET DC *-* W1E05430
0290 C400 0000 551 | FROM LD L *-* GET WORD WITH 2 EBC CHARS W1E05440
0292 7400 0288R 552 | MDX L LFTRT,0 CHK LEFT OR RIGHT W1E05450
0294 1008 553 | SLA 8 *CHARACTER DESIRED W1E05460
0295 1002 554 | SLA 2 FOLD INTO 6 BITS W1E05470
0296 180A 555 | SRA 10 *AND CREATE TABLE ENTRY W1E05480
0297 80F2 556 | A TADDR *ADDRESS 2-2 W1E05490
0298 D0F2 557 | STO TAENT 2-2 W1E05500
0299 C0EE 558 | LD LFTRT ADJUST USER BUFFER ADDR W1E05520
029A 80F6 559 | A FROM+1 *BY ZERO OR ONE FOR NEXT W1E05530
029B D0F5 560 | STO FROM+1 *CHARACTER FETCH W1E05540
029C C0F1 561 | LD NEGWD REDUCE WORD COUNT W1E05550
029D 80EA 562 | A LFTRT *BY ZERO OR ONE W1E05560
029E D0EF 563 | STO NEGWD *AND STORE BACK W1E05570
029F C0E8 564 | LD LFTRT REVERSE INTERNAL LEFT- W1E05580
02A0 F0E6 565 | EOR KN1 *RIGHT INDICATOR W1E05590
02A1 D0E6 566 | STO LFTRT *FOR NEXT CHARACTER W1E05600
02A2 4C80 028FR 567 | BSC I GET RETURN TO CALLING PROGRAM W1E05610
0020 568 | $SCAN EQU 32 PRINT SCAN W1E05620
02A4 569 | END W1E05630
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$1132 007F 31 294 295 307
$IOCT 0032 30 212 309 378 412
$PRET 0028 29 56 57
$SCAN 0020 568 103 208 351 371 437 438 439 440
AFTIN 00E9R 278 200 236 263 402
AQ 0008R 41 131 144
BADDR 028CR 542 513 515
BIN1 0019R 65 108 160
BIN2 004BR 119 162
BUENT 028DR 543 514 519 525 526
BUFR 01BER 444 98 542
CARSP 012ER 361 272 326 411 421
CK 024CR 476 471
CLEAR 0174R 434 92 207 350 370 441
CNTUP 00ADR 212 268 273
CTR16 00D8R 257 206 226 372 392
CTR2 00D9R 258 375
CTR46 017DR 442 343 349 357
CTR48 004CR 120 82 107 109 167 205 368
CTRSF 0285R 535 457 492 493
DSW 016FR 426 292 296 338 341 345
EMIT 001BR 78 369
EOF 0053R 132 196
EXIT 0068R 149 145
FC10 004FR 128 36
FC13 006AR 157 138
FC14C 0083R 179 254
FC14X 0075R 167 168
FC16 0085R 180 172 186
FC16B 008FR 186
FC16C 0094R 194 197 528
FC16D 009AR 198 201
FC16E 00A0R 202 199
FC17 00A2R 204
FC18 00A4R 206
FC20 00B2R 226 164 228
FC20A 00B5R 229 231
FC22 00B9R 232
FC25 00C3R 240 237
FC38 00CFR 249 253
FC39 00DAR 259 243 246 249
FC44 00DDR 262 241
FC50 00ECR 289 38
FC54 0104R 309 325
FC56 0109R 319 298
FC58 0063R 146 34 129 130
FC60 0112R 338 304 311 321
FC63 012AR 356 344
FC70 0134R 368 347
FC74 0023R 85
FC75 0026R 87 80
FC77 002DR 93 91
FC81 0147R 392 373
FC82 014DR 396
FC84 015AR 407 420
FC86 016CR 423 410
FC91 0153R 402 395
FC91A 0168R 420
FROM 0290R 551 449 508 559 560
GET 028FR 550 468 510 567
H6001 000AR 43 53
ILGL2 000BR 49 134
ILLGL 000DR 53 50 128 135 161 179 181 185 210 239
INT1 0004R 37 354
K0100 0286R 536 474
K1 00D7R 255 177 187 250 259 293 323 356 399
K12 0047R 115 232 240
K13 0018R 64 81
K3 00E8R 277 244 247 418
K46 0132R 365 348
K48 0046R 114 204
KN1 0287R 537 472 522 565
KNUM 0015R 60 84
KTBL 004ER 122 90
LFTRT 0288R 538 552 558 562 564 566
LOOP 0037R 100 106
LOOP1 023BR 454 456
LOOP2 0240R 467 481
LOOP3 0241R 468 479
LOOP4 0254R 489 477 498
LOOP5 0266R 510 530
LOOP6 0265R 509 532
LOOP7 026FR 518 521
NEG2 00B1R 215 183 505
NEG60 004AR 118 184
NEGWD 028ER 544 182 476 506 527 561 563
NUM 001AR 66 79 86 170
OUT 0124R 352 85 110 289 342 358 376 379 380 393 409 414
PAR1 004DR 121 158 175 202
PASS 0170R 427 305 339 340 374 403
PRNT2 0000R 34
PRSCN 0236R 449 188
READE 0016R 62 78
SECND 0284R 534 450 507
SENSE 0048R 116 132 139 194 203 229 396
SENSR 0133R 366 291
SIGNB 012DR 359 261 301
SPACE 00E6R 272 266
SPSK 0108R 313 198 262 265 302 306 322 324 394 400 407 422
STOPC 0130R 363 233 252 308
STOPP 0172R 429 377 416
STRE3 0165R 418 174 406 417
STRE4 0163R 416 404
STRTC 00EAR 280 165 169 267 423
STRTP 0044R 112 49 209
STXIT 0062R 145 58 213 214 264
TABL 017ER 443 122 454 489 496 540
TADDR 028AR 540 556
TAENT 028BR 541 469 475 511 557
TEMP 0289R 539 491 494
UP7 0160R 412 424
UPIT 003DR 105 101
WHEEL 0007R 39 62 83 87
XR1 0126R 353 290