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