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