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