ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \v1fchar.asm
1 | *************************************************** V1F00010
2 | * * V1F00020
3 | * SUBROUTINE NAME- * V1F00030
4 | * FULL NAME- STANDARD PRECISION CHARACTER * V1F00040
5 | * INITIALIZATION SUBROUTINE. * V1F00050
6 | * CODE NAME- FCHAR * V1F00060
7 | * PURPOSE- INITIALIZES THE ANNOTATION SUBROUTINE* V1F00070
8 | * TO ESTABLISH POSITION AND ORIENTATION OF * V1F00080
9 | * CHARACTERS. * V1F00090
10 | * METHOD- N/A * V1F00100
11 | * CAPABILITIES AND LIMITATIONS- SEE IBM * V1F00110
12 | * 1130/1800 PLOTTER SUBROUTINES MANUAL * V1F00120
13 | * (FORM C26-3755). * V1F00130
14 | * SPECIAL FEATURES- N/A * V1F00140
15 | * ADDITIONAL INFORMATION- N/A * V1F00150
16 | * * V1F00160
17 | *************************************************** V1F00170
18 | * V1F00180
19 | * THE CALL TO THE FCHAR ROUTINE V1F00190
20 | * IS AS FOLLOWS V1F00200
21 | * V1F00210
22 | * CALL FCHAR V1F00220
23 | * DC X(0) (REAL) V1F00230
24 | * DC Y(0) (REAL) V1F00240
25 | * DC XS (REAL) V1F00250
26 | * DC YS (REAL) V1F00260
27 | * DC THETA (REAL) V1F00270
28 | * V1F00280
29 | SPR V1F00290
30 | ENT FCHAR ENTER AT FCHAR V1F00300
0000 0000 0000 31 | X DEC .0 DECIMAL CONSTANTS V1F00310
0002 0000 0000 32 | Y DEC .0 *AND DATA STORAGE V1F00320
0004 6666 667D 33 | XS DEC .1 V1F00330
0006 6666 667D 34 | YS DEC .1 V1F00340
0008 0000 0000 35 | THETA DEC 0. V1F00350
000A 0000 0000 36 | SIN DEC 0. V1F00360
000C 0001 37 | UP DC 1 PEN CONTROL V1F00370
000D 0000 38 | FCHAR DC *-* ENTRY V1F00380
000E 6922 39 | STX 1 EXIT+1 SAVE XR1 V1F00390
000F C0FD 40 | LD FCHAR V1F00400
0010 D002 41 | STO X2+1 SAVE RETURN ADDRESS V1F00410
0011 61F6 42 | LDX 1 -10 V1F00420
0012 C400 0000 43 | X2 LD L *-* V1F00430
0014 D004 44 | STO X1+1 V1F00440
0015 7401 0013R 45 | MDX L X2+1,1 V1F00450
0017 1000 46 | NOP V1F00460
0018 064C*4000 47 | X1 LIBF FLD ST C/ADDR IN * TO FAC V1F00470
0019 0000 48 | DC *-* MODIFIABLE PARAMETER V1F00480
001A 068A*35A7 49 | LIBF FSTOX ST C/FAC TO X+15+C/XR1 V1F00490
001B 000AR 50 | DC X+10 V1F00500
001C 7102 51 | MDX 1 2 V1F00510
001D 70F4 52 | MDX X2 REPEAT V1F00520
001E 065D*35A3 53 | CALL FPLOT RAISE AND POSITION PEN V1F00530
0020 000CR 54 | DC UP V1F00540
0021 0000R 55 | DC X V1F00550
0022 0002R 56 | DC Y V1F00560
0023 0688*9540 57 | CALL FSIN COMPUTE SIN AND COS V1F00570
0025 0008R 58 | DC THETA V1F00580
0026 068A*3580 59 | LIBF FSTO C/FAC STORED IN SIN V1F00590
0027 000AR 60 | DC SIN V1F00600
0028 060D*6880 61 | CALL FCOS COMPUTE COSINE THETA V1F00610
002A 0008R 62 | DC THETA V1F00620
002B 068A*3580 63 | LIBF FSTO STORE COS THETA IN THETA V1F00630
002C 0008R 64 | DC THETA V1F00640
002D 6500 000CR 65 | LDX L1 XS+8 STORE COS THETA IN THETA V1F00650
002F 060C*8667 66 | LIBF FCHRX COLLECT DATA FROM FCHAR V1F00660
0030 6500 0000 67 | EXIT LDX L1 *-* RESTORE XR1 AND XR2 V1F00670
0032 4C80 0013R 68 | BSC I X2+1 RETURN V1F00680
0034 69 | END V1F00690
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
EXIT 0030R 67 39
FCHAR 000DR 38 40
SIN 000AR 36 60
THETA 0008R 35 58 62 64
UP 000CR 37 54
X 0000R 31 50 55
X1 0018R 47 44
X2 0012R 43 41 45 52 68
XS 0004R 33 65
Y 0002R 32 56
YS 0006R 34