ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \v1eplot.asm CALL EPLOT 2 | *************************************************** V1D00020 3 | * * V1D00030 4 | * SUBROUTINE NAME- * V1D00040 5 | * FULL NAME- EXTENDED PRECISION PLOT LINE * V1D00050 6 | * FUNCTION. * V1D00060 7 | * CODE NAME- EPLOT. * V1D00070 8 | * PURPOSE- MOVES THE PEN FROM ITS PRESENT * V1D00080 9 | * POSITION TO A NEW POSITION. * V1D00090 10 | * METHOD- N/A. * V1D00100 11 | * CAPABILITIES AND LIMITATIONS- SEE IBM * V1D00110 12 | * 1130/1800 PLOTTER SUBROUTINES MANUAL * V1D00120 13 | * (FORM C26-3755). * V1D00130 14 | * SPECIAL FEATURES- N/A. * V1D00140 15 | * ADDITIONAL INFORMATION- N/A. * V1D00150 16 | * * V1D00160 17 | *************************************************** V1D00170 CALL EPLOT 19 | * THE CALL TO THE EPLOT SUBROUTINE V1D00190 20 | * IS AS FOLLOWS V1D00200 21 | * V1D00210 22 | * CALL EPLOT V1D00220 23 | * DC INDICATOR V1D00230 24 | * DC X V1D00240 25 | * DC Y V1D00250 26 | * V1D00260 27 | EPR V1D00270 28 | ENT EPLOT V1D00280 29 | * V1D00290 30 | * CONSTANTS V1D00300 31 | * V1D00310 0000 0000 0000 0000 32 | X XFLC .0 X COORDINATE V1D00320 0003 0000 0000 0000 33 | Y XFLC .0 Y COORDINATE V1D00330 0006 0009 34 | MONE DC 9 RAISE PEN V1D00340 0007 0000 35 | ONE DC 0 LOWER PEN V1D00350 36 | * V1D00360 0008 0000 37 | EPLOT DC *-* ENTRY/RETURN ADDRESS V1D00370 0009 691F 38 | STX 1 EXIT+1 SAVE XR1 V1D00380 000A 6580 0008R 39 | LDX I1 EPLOT POINT TO FIRST PARAMETER V1D00390 000C C580 0000 40 | LD I1 0 FETCH INDICATOR V1D00400 000E D025 41 | STO AREA *AND SAVE V1D00410 000F 4430 002CR 42 | BSI L CNTL,Z- BR IF INDICATOR POSITIVE V1D00420 0011 C101 43 | FP1 LD 1 1 FETCH X, V1D00430 0012 D001 44 | STO *+1 *CHANGE V1D00440 0013 054C*4000 45 | LIBF ELD *TO V1D00450 0014 0000 46 | DC *-* *EXTENDED V1D00460 0015 058A*3580 47 | LIBF ESTO *PRECISION V1D00470 0016 0000R 48 | DC X *AND SAVE V1D00480 0017 C102 49 | LD 1 2 FETCH Y, V1D00490 0018 D001 50 | STO *+1 *CHANGE V1D00500 0019 054C*4000 51 | LIBF ELD *TO V1D00510 001A 0000 52 | DC *-* *EXTENDED V1D00520 001B 058A*3580 53 | LIBF ESTO *PRECISION V1D00530 001C 0003R 54 | DC Y *AND SAVE V1D00540 001D 7103 55 | MDX 1 3 COMPUTE AND V1D00550 001E 690C 56 | STX 1 EXIT+3 *STORE RETURN ADDRESS V1D00560 001F 0551*6945 57 | LIBF EMOVE COMPUTE DELTA (X AND Y) V1D00570 0020 0000R 58 | DC X V1D00580 0021 0003R 59 | DC Y V1D00590 0022 27A1*74E3 60 | LIBF XYPLT PLOT DELTA (X AND Y) V1D00600 0023 0000R 61 | DC X V1D00610 0024 0003R 62 | DC Y V1D00620 0025 C00E 63 | LD AREA TEST FOR AND V1D00630 0026 4428 002CR 64 | BSI L CNTL,Z+ *BR IF INDICATOR NEGATIVE V1D00640 0028 6500 0000 65 | EXIT LDX L1 *-* RESTORE XR1 V1D00650 002A 4C00 0000 66 | BSC L *-* RETURN V1D00660 67 | * V1D00670 002C 0000 68 | CNTL DC *-* V1D00680 002D 4C04 0031R 69 | BSC L IN,E BRANCH IF INDICATOR ODD V1D00690 002F C0D7 70 | LD ONE LOWER PEN V1D00700 0030 7001 71 | MDX OUT V1D00710 0031 C0D4 72 | IN LD MONE RAISE PEN V1D00720 0032 D001 73 | OUT STO AREA V1D00730 0033 174D*68C9 74 | LIBF PLOTI PLOT PEN CONTROL V1D00740 0034 0000 75 | AREA DC *-* INDICATOR V1D00750 0035 4C80 002CR 76 | BSC I CNTL V1D00760 0037 77 | END V1D00770 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced AREA 0034R 75 41 63 73 CNTL 002CR 68 42 64 76 EPLOT 0008R 37 39 EXIT 0028R 65 38 56 FP1 0011R 43 IN 0031R 72 69 MONE 0006R 34 72 ONE 0007R 35 70 OUT 0032R 73 71 X 0000R 32 48 58 61 Y 0003R 33 54 59 62