ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \v1fplot.asm CALL FPLOT 2 | *************************************************** V1I00020 3 | * * V1I00030 4 | * SUBROUTINE NAME- * V1I00040 5 | * FULL NAME- STANDARD PRECISION PLOT LINE * V1I00050 6 | * FUNCTION. * V1I00060 7 | * CODE NAME- FPLOT. * V1I00070 8 | * PURPOSE- MOVES THE PEN FROM ITS PRESENT * V1I00080 9 | * POSITION TO A NEW POSITION. * V1I00090 10 | * METHOD- N/A. * V1I00100 11 | * CAPABILITIES AND LIMITATIONS- SEE IBM * V1I00110 12 | * 1130/1800 PLOTTER SUBROUTINES MANUAL * V1I00120 13 | * (FORM C26-3755). * V1I00130 14 | * SPECIAL FEATURES- N/A. * V1I00140 15 | * ADDITIONAL INFORMATION- N/A. * V1I00150 16 | * * V1I00160 17 | *************************************************** V1I00170 CALL FPLOT 19 | * THE CALL TO THE FPLOT SUBROUTINE V1I00190 20 | * IS AS FOLLOWS V1I00200 21 | * V1I00210 22 | * CALL FPLOT V1I00220 23 | * DC INDICATOR V1I00230 24 | * DC X V1I00240 25 | * DC Y V1I00250 26 | * V1I00260 27 | SPR V1I00270 28 | ENT FPLOT V1I00280 29 | * V1I00290 30 | * CONSTANTS V1I00300 31 | * V1I00310 0000 0000 0000 32 | X DEC .0 X COORDINATE V1I00320 0002 0000 0000 33 | Y DEC .0 Y COORDINATE V1I00330 0004 0009 34 | MONE DC 9 RAISE PEN V1I00340 0005 0000 35 | ONE DC 0 LOWER PEN V1I00350 36 | * V1I00360 0006 0000 37 | FPLOT DC *-* ENTRY/RETURN ADDRESS V1I00370 0007 6919 38 | STX 1 EXIT+1 SAVE XR1 V1I00380 0008 6580 0006R 39 | LDX I1 FPLOT POINT TO FIRST PARAMETER V1I00390 000A C580 0000 40 | LD I1 0 FETCH AND V1I00400 000C D01F 41 | STO AREA *SAVE INDICATOR V1I00410 000D 4430 0024R 42 | BSI L CNTL,Z- BR IF INDICATOR POSITIVE V1I00420 000F CD80 0001 43 | FP1 LDD I1 1 FETCH AND V1I00430 0011 D8EE 44 | STD X *SAVE X V1I00440 0012 CD80 0002 45 | LDD I1 2 FETCH AND V1I00450 0014 D8ED 46 | STD Y *SAVE Y V1I00460 0015 7103 47 | MDX 1 3 COMPUTE AND V1I00470 0016 690C 48 | STX 1 EXIT+3 *STORE RETURN ADDRESS V1I00480 0017 0651*6945 49 | LIBF FMOVE COMPUTE DELTA (X AND Y) V1I00490 0018 0000R 50 | DC X V1I00500 0019 0002R 51 | DC Y V1I00510 001A 27A1*74E3 52 | LIBF XYPLT PLOT DELTA (X AND Y) V1I00520 001B 0000R 53 | DC X V1I00530 001C 0002R 54 | DC Y V1I00540 001D C00E 55 | LD AREA TEST FOR AND V1I00550 001E 4428 0024R 56 | BSI L CNTL,Z+ *BR IF INDICATOR NEGATIVE V1I00560 0020 6500 0000 57 | EXIT LDX L1 *-* RESTORE XR1 V1I00570 0022 4C00 0000 58 | BSC L *-* RETURN V1I00580 59 | * V1I00590 0024 0000 60 | CNTL DC *-* V1I00600 0025 4C04 0029R 61 | BSC L IN,E BRANCH IF INDICATOR ODD V1I00610 0027 C0DD 62 | LD ONE LOWER PEN V1I00620 0028 7001 63 | MDX OUT V1I00630 0029 C0DA 64 | IN LD MONE RAISE PEN V1I00640 002A D001 65 | OUT STO AREA V1I00650 002B 174D*68C9 66 | LIBF PLOTI PLOT PEN CONTROL V1I00660 002C 0000 67 | AREA DC *-* INDICATOR V1I00670 002D 4C80 0024R 68 | BSC I CNTL V1I00680 002F 69 | END V1I00690 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced AREA 002CR 67 41 55 65 CNTL 0024R 60 42 56 68 EXIT 0020R 57 38 48 FP1 000FR 43 FPLOT 0006R 37 39 IN 0029R 64 61 MONE 0004R 34 64 ONE 0005R 35 62 OUT 002AR 65 63 X 0000R 32 44 50 53 Y 0002R 33 46 51 54