ibm:ibm1130-lib:dmsr2v12:v1point_lst
V1POINT
| Table Of Contents |
|---|
|
- v1point.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \v1point.asm CALL POINT 2 | *************************************************** V1M00020 3 | * * V1M00030 4 | * SUBROUTINE NAME- * V1M00040 5 | * FULL NAME- STANDARD PRECISION POINT * V1M00050 6 | * FUNCTION. * V1M00060 7 | * CODE NAME- POINT. * V1M00070 8 | * PURPOSE- DRAWS SPECIAL POINT CHARACTERS AT * V1M00080 9 | * PRESENT POSITION OF THE PEN. * V1M00090 10 | * METHOD- N/A. * V1M00100 11 | * CAPABILITIES AND LIMITATIONS- SEE IBM * V1M00110 12 | * 1130/1800 PLOTTER SUBROUTINES MANUAL * V1M00120 13 | * (FORM C26-3755). * V1M00130 14 | * SPECIAL FEATURES- N/A. * V1M00140 15 | * ADDITIONAL INFORMATION- N/A. * V1M00150 16 | * * V1M00160 17 | *************************************************** V1M00170 CALL POINT 19 | * THE CALL TO THE POINT SUBROUTINE V1M00190 20 | * IS AS FOLLOWS V1M00200 21 | * V1M00210 22 | * CALL POINT V1M00220 23 | * DC CHARACTER NO. (INTEGER) V1M00230 24 | * V1M00240 25 | ENT POINT V1M00250 26 | * V1M00260 27 | * ADDRESS AND CHARACTER TABLES V1M00270 28 | * V1M00280 0000 0006R 29 | X DC PADD 0 PLUS V1M00290 0001 0011R 30 | DC XADD 1 X V1M00300 0002 0031R 31 | DC UADD 2 UP +X V1M00310 0003 001CR 32 | DC RADD 3 RIGHT -Y V1M00320 0004 0023R 33 | DC DADD 4 DOWN -X V1M00330 0005 002AR 34 | DC LADD 5 LEFT +Y V1M00340 0006 000A 35 | PADD DC 10 PLUS V1M00350 0007 1111 36 | DC /1111 V1M00360 0008 1555 37 | DC /1555 V1M00370 0009 5555 38 | DC /5555 V1M00380 000A 5551 39 | DC /5551 V1M00390 000B 1111 40 | DC /1111 V1M00400 000C 7777 41 | DC /7777 V1M00410 000D 7333 42 | DC /7333 V1M00420 000E 3333 43 | DC /3333 V1M00430 000F 3337 44 | DC /3337 V1M00440 0010 7777 45 | DC /7777 V1M00450 0011 000A 46 | XADD DC 10 X V1M00460 0012 8888 47 | DC /8888 V1M00470 0013 8444 48 | DC /8444 V1M00480 0014 4444 49 | DC /4444 V1M00490 0015 4448 50 | DC /4448 V1M00500 0016 8888 51 | DC /8888 V1M00510 0017 6666 52 | DC /6666 V1M00520 0018 6222 53 | DC /6222 V1M00530 0019 2222 54 | DC /2222 V1M00540 001A 2226 55 | DC /2226 V1M00550 001B 6666 56 | DC /6666 V1M00560 001C 0006 57 | RADD DC 6 RIGHT TRIANGLE V1M00570 001D 8888 58 | DC /8888 V1M00580 001E 8833 59 | DC /8833 V1M00590 001F 3333 60 | DC /3333 V1M00600 0020 3333 61 | DC /3333 V1M00610 0021 3366 62 | DC /3366 V1M00620 0022 6666 63 | DC /6666 V1M00630 0023 0006 64 | DADD DC 6 LOWER TRIANGLE V1M00640 0024 2222 65 | DC /2222 V1M00650 0025 2255 66 | DC /2255 V1M00660 0026 5555 67 | DC /5555 V1M00670 0027 5555 68 | DC /5555 V1M00680 0028 5588 69 | DC /5588 V1M00690 0029 8888 70 | DC /8888 V1M00700 002A 0006 71 | LADD DC 6 LEFT TRIANGLE V1M00710 002B 4444 72 | DC /4444 V1M00720 002C 4477 73 | DC /4477 V1M00730 002D 7777 74 | DC /7777 V1M00740 002E 7777 75 | DC /7777 V1M00750 002F 7722 76 | DC /7722 V1M00760 0030 2222 77 | DC /2222 V1M00770 0031 0006 78 | UADD DC 6 UPPER TRIANGLE V1M00780 0032 6666 79 | DC /6666 V1M00790 0033 6611 80 | DC /6611 V1M00800 0034 1111 81 | DC /1111 V1M00810 0035 1111 82 | DC /1111 V1M00820 0036 1144 83 | DC /1144 V1M00830 0037 4444 84 | DC /4444 V1M00840 85 | * V1M00850 0038 0000 86 | POINT DC *-* ENTRY/RETURN ADDRESS V1M00860 0039 C0FE 87 | LD POINT FETCH V1M00870 003A D001 88 | STO *+1 *CHARACTER V1M00880 003B C480 0000 89 | LD I *-* *NUMBER V1M00890 003D 4C28 0061R 90 | BSC L PTS,+Z BRANCH IF NEG ARGUMENT 2-2 V1M00895 003F 902D 91 | S NOOF V1M00900 0040 4C10 0061R 92 | BSC L PTS,- BRANCH IF TOO LARGE ARG V1M00910 0042 8026 93 | A ADDR CALCULATE AND STORE V1M00920 0043 D005 94 | STO X3+1 *ADDR OF CHARACTER TABLE V1M00930 0044 C480 0049R 95 | LD I X3+1 FETCH WORD COUNT V1M00940 0046 8024 96 | A H0001 POINT TO V1M00950 0047 D004 97 | STO PLOOP+1 *BEGINNING OF TABLE V1M00960 0048 C480 0000 98 | X3 LD I *-* FETCH AND V1M00970 004A D01D 99 | STO WDCNT *STORE WORD COUNT V1M00980 004B C400 0000 100 | PLOOP LD L *-* OUTPUT CHARACTER STRING V1M00990 004D 180C 101 | X1 SRA 12 V1M01000 004E E01D 102 | AND H000F V1M01010 004F D001 103 | STO *+1 V1M01020 0050 174D*68C9 104 | LIBF PLOTI V1M01030 0051 0000 105 | DC *-* V1M01040 0052 74FC 004DR 106 | MDX L X1,-4 V1M01050 0054 74FF 0067R 107 | MDX MDX L PPERW,-1 V1M01060 0056 70F4 108 | MDX PLOOP V1M01070 0057 C00E 109 | LD FOUR RESET V1M01080 0058 D00E 110 | STO PPERW *LOOP COUNTER V1M01090 0059 7401 004CR 111 | MDX L PLOOP+1,1 INCREMENT ADDRESS V1M01100 005B 1000 112 | NOP V1M01110 005C C00D 113 | LD SRA RESET V1M01120 005D D0EF 114 | STO X1 *INSTRUCTION V1M01130 005E 74FF 0068R 115 | MDX L WDCNT,-1 DECREMENT WORD COUNT V1M01140 0060 70EA 116 | MDX PLOOP REPEAT LOOP V1M01150 0061 7401 0038R 117 | PTS MDX L POINT,1 SET RETURN ADDRESS V1M01160 0063 1000 118 | NOP V1M01170 0064 4C80 0038R 119 | BSC I POINT RETURN V1M01180 120 | * V1M01190 121 | * CONSTANTS V1M01200 122 | * V1M01210 0066 0004 123 | FOUR DC 4 CONSTANT FOUR V1M01220 0067 0004 124 | PPERW DC 4 LOOP COUNTER V1M01230 0068 0000 125 | WDCNT DC *-* WORD COUNT V1M01240 0069 0006R 126 | ADDR DC X+6 ADDR OF END OF ADDR TABLE V1M01250 006A 180C 127 | SRA SRA 12 SHIFT INSTRUCTION V1M01260 006B 0001 128 | H0001 DC 1 HEXADECIMAL ONE V1M01270 006C 000F 129 | H000F DC /F HEXADECIMAL F V1M01280 006D 0006 130 | NOOF DC 6 NUMBER OF CHARACTERS V1M01290 006E 131 | END V1M01300 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced ADDR 0069R 126 93 DADD 0023R 64 33 FOUR 0066R 123 109 H0001 006BR 128 96 H000F 006CR 129 102 LADD 002AR 71 34 MDX 0054R 107 NOOF 006DR 130 91 PADD 0006R 35 29 PLOOP 004BR 100 97 108 111 116 POINT 0038R 86 87 117 119 PPERW 0067R 124 107 110 PTS 0061R 117 90 92 RADD 001CR 57 32 SRA 006AR 127 113 UADD 0031R 78 31 WDCNT 0068R 125 99 115 X 0000R 29 126 X1 004DR 101 106 114 X3 0048R 98 94 95 XADD 0011R 46 30
ibm/ibm1130-lib/dmsr2v12/v1point_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator