ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \v1echar.asm
1 | *************************************************** V1A00010
2 | * * V1A00020
3 | * SUBROUTINE NAME- * V1A00030
4 | * FULL NAME- EXTENDED PRECISION CHARACTER * V1A00040
5 | * INITIALIZATION SUBROUTINE. * V1A00050
6 | * CODE NAME- ECHAR * V1A00060
7 | * PURPOSE- INITIALIZES THE ANNOTATION SUBROUTINE* V1A00070
8 | * TO ESTABLISH POSITION AND ORIENTATION OF * V1A00080
9 | * CHARACTERS. * V1A00090
10 | * METHOD- N/A * V1A00100
11 | * CAPABILITIES AND LIMITATIONS- SEE IBM * V1A00110
12 | * 1130/1800 PLOTTER SUBROUTINES MANUAL * V1A00120
13 | * (FORM C26-3755). * V1A00130
14 | * SPECIAL FEATURES- N/A * V1A00140
15 | * ADDITIONAL INFORMATION- N/A * V1A00150
16 | * * V1A00160
17 | *************************************************** V1A00170
18 | * V1A00180
19 | * THE CALL TO THE ECHAR ROUTINE V1A00190
20 | * IS AS FOLLOWS V1A00200
21 | * V1A00210
22 | * CALL ECHAR V1A00220
23 | * DC X(0) (REAL) V1A00230
24 | * DC Y(0) (REAL) V1A00240
25 | * DC XS (REAL) V1A00250
26 | * DC YS (REAL) V1A00260
27 | * DC THETA (REAL) V1A00270
28 | * V1A00280
29 | EPR V1A00290
30 | ENT ECHAR ENTER AT ECHAR V1A00300
0000 0000 0000 0000 31 | X XFLC .0 FLOATING POINT CONSTANTS V1A00310
0003 0000 0000 0000 32 | Y XFLC .0 *AND DATA STORAGE V1A00320
0006 007D 6666 6666 33 | XS XFLC .1 V1A00330
0009 007D 6666 6666 34 | YS XFLC .1 V1A00340
000C 0000 0000 0000 35 | THETA XFLC 0. V1A00350
000F 0000 0000 0000 36 | SIN XFLC 0. V1A00360
0012 0001 37 | UP DC 1 PEN CONTROL V1A00370
0013 0000 38 | ECHAR DC *-* ENTRY V1A00380
0014 6922 39 | STX 1 EXIT+1 SAVE XR1 V1A00390
0015 C0FD 40 | LD ECHAR V1A00400
0016 D002 41 | STO X2+1 SAVE RETURN ADDRESS V1A00410
0017 61F1 42 | LDX 1 -15 V1A00420
0018 C400 0000 43 | X2 LD L *-* V1A00430
001A D004 44 | STO X1+1 V1A00440
001B 7401 0019R 45 | MDX L X2+1,1 V1A00450
001D 1000 46 | NOP V1A00460
001E 054C*4000 47 | X1 LIBF ELD ST C/ADDR IN * TO FAC V1A00470
001F 0000 48 | DC *-* MODIFIABLE PARAMETER V1A00480
0020 058A*35A7 49 | LIBF ESTOX ST C/FAC TO X+15+C/XR1 V1A00490
0021 000FR 50 | DC X+15 V1A00500
0022 7103 51 | MDX 1 3 V1A00510
0023 70F4 52 | MDX X2 REPEAT V1A00520
0024 055D*35A3 53 | CALL EPLOT RAISE AND POSITION PEN V1A00530
0026 0012R 54 | DC UP V1A00540
0027 0000R 55 | DC X V1A00550
0028 0003R 56 | DC Y V1A00560
0029 0588*9540 57 | CALL ESIN COMPUTE SIN AND COS V1A00570
002B 000CR 58 | DC THETA V1A00580
002C 058A*3580 59 | LIBF ESTO C/FAC STORED IN SIN V1A00590
002D 000FR 60 | DC SIN V1A00600
002E 050D*6880 61 | CALL ECOS COMPUTE COSINE THETA V1A00610
0030 000CR 62 | DC THETA V1A00620
0031 058A*3580 63 | LIBF ESTO STORE COS THETA IN THETA V1A00630
0032 000CR 64 | DC THETA V1A00640
0033 6500 0012R 65 | LDX L1 XS+12 STORE COS THETA IN THETA V1A00650
0035 050C*8667 66 | LIBF ECHRX COLLECT DATA FROM ECHAR V1A00660
0036 6500 0000 67 | EXIT LDX L1 *-* RESTORE XR1 AND XR2 V1A00670
0038 4C80 0019R 68 | BSC I X2+1 RETURN V1A00680
003A 69 | END V1A00690
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
ECHAR 0013R 38 40
EXIT 0036R 67 39
SIN 000FR 36 60
THETA 000CR 35 58 62 64
UP 0012R 37 54
X 0000R 31 50 55
X1 001ER 47 44
X2 0018R 43 41 45 52 68
XS 0006R 33 65
Y 0003R 32 56
YS 0009R 34