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