ibm:ibm1130-lib:dmsr2v12:w1hxcv_lst
W1HXCV
| Table Of Contents |
|---|
|
- w1hxcv.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \w1hxcv.asm 4 OF 8 CODE TO 0-63 CONVERSION 2 | *************************************************** W1D00020 3 | * TITLE - HXCV * W1D00030 4 | * STATUS - CHANGE LEVEL 0 * W1D00040 5 | * FUNCTION/OPERATION - HXCV CONVERTS A 4-OF-8 * W1D00050 6 | * CHARACTER TO AN ACTUAL VALUE BETWEEN ZERO AND * W1D00060 7 | * 63. * W1D00070 8 | * ENTRY POINTS - .HXCV. CALL ENTRANCE, LIBF HXCV * W1D00080 9 | * INPUT - 4-OF-8 CHARACTER IS IN THE ACCUMULATOR, * W1D00090 10 | * LEFT-JUSTIFIED. * W1D00100 11 | * OUTPUT - THE VALUE BETWEEN 0 AND 63 IS IN THE * W1D00110 12 | * ACCUMULATOR, RIGHT-JUSTIFIED * W1D00120 13 | * EXTERNAL ROUTINES - NONE * W1D00130 14 | * EXITS-NORMAL - .LEAVE. RETURN TO LIBF+1 * W1D00140 15 | * -ERROR - NONE * W1D00150 16 | * TABLES/WORK AREAS - .RELTB. IS A TABLE OF * W1D00160 17 | * VALUES WHICH ARE USED TO CALCULATE THE ACTUAL * W1D00170 18 | * 0 TO 63 VALUE OF THE 4-OF-8 CHARACTER. * W1D00180 19 | * ATTRIBUTES - REUSABLE * W1D00190 20 | * NOTES - THE VALUE CALCULATED BY .HXCV. IS USED * W1D00200 21 | * AS A DISPLACEMENT TO LOCATE AN ENTRY IN THE * W1D00210 22 | * .HOLCA. TABLE OR THE .STRTB. TABLE. * W1D00220 23 | *************************************************** W1D00230 4 OF 8 CODE TO 0-63 CONVERSION 25 | LIBR W1D00250 26 | ENT HXCV W1D00260 0000 7002 27 | HXCV MDX *+2 W1D00270 0001 4C80 0000 28 | LEAVE BSC I *-* W1D00280 0003 D014 29 | CNVRT STO SV1 SAVE 4 OF 8 CHAR W1D00290 0004 62F0 30 | LDX 2 -16 SET TO GO THRU LOOP TWICE W1D00300 0005 180C 31 | LOOP2 SRA 12 ISOLATE SINGLE HEX CHAR W1D00310 0006 1881 32 | SRT 1 SAVE EVEN ODD INDICATOR W1D00320 0007 8012 33 | A BASE GET ACTUAL TABLE ADDRESS W1D00330 0008 D001 34 | STO *+1 W1D00340 0009 C600 0000 35 | LD L2 *-* GET WORD CONTAINING REL W1D00350 000B 18D0 36 | RTE 16 ADDRS IN HOLL TABLE W1D00360 000C 4828 37 | BSC +Z IF SKP- REL ADR IS LFT 8 W1D00370 000D 1088 38 | SLT 8 REL ADDR IS IN RIGHT 8 BIT W1D00380 000E 18D0 39 | RTE 16 W1D00390 000F 1808 40 | SRA 8 W1D00400 0010 7208 41 | MDX 2 8 W1D00410 0011 7002 42 | MDX SAVIT BR TO SAVE FIRST HEX CHAR W1D00420 0012 8006 43 | A SV2 COMPUTE ACTUAL ADDRESS W1D00430 0013 70ED 44 | MDX LEAVE W1D00440 0014 D004 45 | SAVIT STO SV2 HOLD TEMPORARILY W1D00450 0015 C002 46 | LD SV1 GET SECOND HEX CHAR FOR W1D00460 0016 1004 47 | SLA 4 REL ADDRESS W1D00470 0017 70ED 48 | MDX LOOP2 BR TO GET SECOND HEX CHAR W1D00480 0018 0000 49 | SV1 DC TEMP FOR 4-OF-8 CHARACTER W1D00490 0019 0000 50 | SV2 DC TABLE POINTER TEMPORARY W1D00500 001A 002BR 51 | BASE DC RELTB+16 BASE ADDRESS OF TABLE END W1D00510 001B 0304 52 | RELTB DC /0304 A W1D00520 001C 080C 53 | DC /080C *D W1D00530 001D 1216 54 | DC /1216 * D C W1D00540 001E 1C22 55 | DC /1C22 * R A W1D00550 001F 262A 56 | DC /262A * E L W1D00560 0020 3036 57 | DC /3036 * S C W1D00570 0021 3A40 58 | DC /3A40 * S U W1D00580 0022 4448 59 | DC /4448 * L W1D00590 0023 0000 60 | DC /0000 * A W1D00600 0024 0100 61 | DC /0100 * T W1D00610 0025 0201 62 | DC /0201 * I W1D00620 0026 0200 63 | DC /0200 * O T W1D00630 0027 0303 64 | DC /0303 * N A W1D00640 0028 0401 65 | DC /0401 * B W1D00650 0029 0502 66 | DC /0502 * L W1D00660 002A 0300 67 | DC /0300 * E W1D00670 002B 68 | END W1D00680 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced BASE 001AR 51 33 CNVRT 0003R 29 HXCV 0000R 27 LEAVE 0001R 28 44 LOOP2 0005R 31 48 RELTB 001BR 52 51 SAVIT 0014R 45 42 SV1 0018R 49 29 46 SV2 0019R 50 43 45
ibm/ibm1130-lib/dmsr2v12/w1hxcv_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator