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