User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:v1egrid_lst

V1EGRID

Table Of Contents
  • [00004] CALL EGRID
v1egrid.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:10 2020
 
Source File: \v1egrid.asm 
CALL EGRID
 
                             2 | *************************************************** V1C00020
                             3 | *                                                 * V1C00030
                             4 | *   SUBROUTINE NAME-                              * V1C00040
                             5 | *      FULL NAME- EXTENDED PRECISION GRID LINE    * V1C00050
                             6 | *         FUNCTION.                               * V1C00060
                             7 | *      CODE NAME- EGRID                           * V1C00070
                             8 | *   PURPOSE- DRAWS A GRID LINE (WITH TICK MARKS)  * V1C00080
                             9 | *      PARALLEL TO THE X AXIS OR THE Y AXIS.      * V1C00090
                            10 | *   METHOD- N/A                                   * V1C00100
                            11 | *   CAPABILITIES AND LIMITATIONS- SEE IBM         * V1C00110
                            12 | *      1130/1800 PLOTTER SUBROUTINES MANUAL       * V1C00120
                            13 | *      (FORM C26-3755).                           * V1C00130
                            14 | *   SPECIAL FEATURES- N/A                         * V1C00140
                            15 | *   ADDITIONAL INFORMATION- N/A                   * V1C00150
                            16 | *                                                 * V1C00160
                            17 | *************************************************** V1C00170
CALL EGRID
 
                            19 | *                                                   V1C00190
                            20 | *             THE CALL TO THE EGRID SUBROUTINE      V1C00200
                            21 | *             IS AS FOLLOWS                         V1C00210
                            22 | *                                                   V1C00220
                            23 | *             CALL EGRID                            V1C00230
                            24 | *             DC   CONTROL (INTEGER)                V1C00240
                            25 | *             DC   X (REAL)                         V1C00250
                            26 | *             DC   Y (REAL)                         V1C00260
                            27 | *             DC   DELTA (REAL)                     V1C00270
                            28 | *             DC   NUMBER (INTEGER)                 V1C00280
                            29 | *                                                   V1C00290
                            30 |       EPR                                           V1C00300
                            31 |       ENT     EGRID                                 V1C00310
0000 0000 0000 0000         32 | INC   XFLC    .0        TICK MARK INCREMENT (REAL)  V1C00320
0003 0000 0000 0000         33 | Y     XFLC    .0        X AXIS POSITION (REAL)      V1C00330
0006 0000 0000 0000         34 | X     XFLC    .0        Y AXIS POSITION (REAL)      V1C00340
                            35 | *                                                   V1C00350
                            36 | *   THE FOLLOWING 5 WORDS ARE SET-UP TO CONTAIN THE V1C00360
                            37 | *   ADDRESSES OF THE REQUIRED PARAMETERS            V1C00370
                            38 | *                                                   V1C00380
0009 0000                   39 | CNTL  DC      *-*                                   V1C00390
000A 0000                   40 |       DC      *-*       X (REAL)                    V1C00400
000B 0000                   41 |       DC      *-*       Y (REAL)                    V1C00410
000C 0000                   42 |       DC      *-*       DELTA (REAL)                V1C00420
000D 0000                   43 |       DC      *-*       NUMBER (INTEGER)            V1C00430
000E 0003R                  44 | YADD  DC      Y         ADDRESS OF Y AXIS ARGUMENT  V1C00440
000F 0006R                  45 | XADD  DC      X         ADDRESS OF X AXIS ARGUMENT  V1C00450
0010 0001                   46 | PENUP DC      1         PEN UP CONTROL              V1C00460
0011 0002                   47 | PENDN DC      2         PEN DOWN CONTROL            V1C00470
0012 0000                   48 | NOMOV DC      0         PEN NO MOVE CONTROL         V1C00480
0012R                       49 | PLUS  EQU     NOMOV     ADDRESS OF ZERO VALUE       V1C00490
0013 0000                   50 | NO    DC      *-*       NO. OF TICK MARKS           V1C00500
0010R                       51 | H0001 EQU     PENUP     ADDRESS OF VALUE OF ONE     V1C00510
0014 0003                   52 | H0003 DC      3         MASK TO REMOVE BITS 0-13    V1C00520
0015 0000                   53 | EGRID DC      *-*       ENTRY POINT TO EGRID        V1C00530
0016 6952                   54 |       STX   1 EXIT+1    SAVE XR1 AND XR2            V1C00540
0017 6A53                   55 |       STX   2 EXIT+3                                V1C00550
0018 6580 0015R             56 |       LDX  I1 EGRID     GET ADDRESSES OF PARAMETERS V1C00560
001A 62FB                   57 |       LDX   2 -5        XR2 IS LOOP COUNTER         V1C00570
001B C100                   58 | GD1   LD    1 0                                     V1C00580
001C 7101                   59 |       MDX   1 1                                     V1C00590
001D D600 000ER             60 |       STO  L2 CNTL+5    PLACE PARAMETER ADDR IN TBL V1C00600
001F 7201                   61 |       MDX   2 1         DECREMENT LOOP COUNTER      V1C00610
0020 70FA                   62 |       MDX     GD1       LOOP TILL 5TH ADDR MOVED    V1C00620
0021 694B                   63 |       STX   1 EXIT+5    SAVE EXIT ADDRESS           V1C00630
0022 C0E9                   64 |       LD      CNTL+3                                V1C00640
0023 D001                   65 |       STO     *+1       ADDR OF INCREMENT PARAMETER V1C00650
0024 054C*4000              66 |       LIBF    ELD       LOAD INCR TO REAL NO. ACC   V1C00660
0025 0000                   67 |       DC      *-*       DELTA                       V1C00670
0026 C480 0009R             68 |       LD   I  CNTL                                  V1C00680
0028 E0EB                   69 |       AND     H0003                                 V1C00690
0029 D0EB                   70 |       STO     EGRID     GRID DIRECTION, BITS 14-15  V1C00700
002A 90E5                   71 |       S       H0001                                 V1C00710
002B 4830                   72 |       BSC     Z-        SKIP IF GRID DIRECTION NEG  V1C00720
002C 2255*9000              73 |       LIBF    SNR       REVERSE SIGN OF INCREMENT   V1C00730
002D 058A*3580              74 |       LIBF    ESTO      STORE INCR FROM REAL ACC    V1C00740
002E 0000R                  75 |       DC      INC       GRID LINE INCREMENT         V1C00750
002F C0E5                   76 |       LD      EGRID     DETERMINE AXIS OF GRID LINE V1C00760
0030 1010                   77 |       SLA     16                                    V1C00770
0031 C0DD                   78 |       LD      XADD                                  V1C00780
0032 4802                   79 |       BSC     C         SKIP IF ON X DIRECTION      V1C00790
0033 C0DA                   80 |       LD      YADD                                  V1C00800
0034 D01E                   81 |       STO     DELTA     INITLZ PEN MOVEMENT WITH    V1C00810
0035 D021                   82 |       STO     DELTA+4   ADDR OF X OR Y PARAMETER    V1C00820
0036 C480 000DR             83 |       LD   I  CNTL+4    GET NO,X AND Y              V1C00830
0038 D0DA                   84 |       STO     NO        LENGTH OF GRID LINE         V1C00840
0039 C0D0                   85 |       LD      CNTL+1                                V1C00850
003A D001                   86 |       STO     *+1                                   V1C00860
003B 054C*4000              87 |       LIBF    ELD       X VALUE TO REAL NO. ACC     V1C00870
003C 0000                   88 |       DC      *-*       ADDR OF X VALUE             V1C00880
003D 058A*3580              89 |       LIBF    ESTO      REAL ACC TO WORK AREA       V1C00890
003E 0006R                  90 |       DC      X         X VALUE WORK AREA           V1C00900
003F C0CB                   91 |       LD      CNTL+2                                V1C00910
0040 D001                   92 |       STO     *+1                                   V1C00920
0041 054C*4000              93 |       LIBF    ELD       Y VALUE TO REAL NO. ACC     V1C00930
0042 0000                   94 |       DC      *-*       ADDR OF Y VALUE             V1C00940
0043 058A*3580              95 |       LIBF    ESTO      REAL ACC TO WORK AREA       V1C00950
0044 0003R                  96 |       DC      Y         Y VALUE WORK AREA           V1C00960
0045 055D*35A3              97 |       CALL    EPLOT     RAISE PEN AND MOVE TO X,Y   V1C00970
0047 0010R                  98 |       DC      PENUP     RAISE PEN CONTROL           V1C00980
0048 0006R                  99 |       DC      X         X POSITION                  V1C00990
0049 0003R                 100 |       DC      Y         Y POSITION                  V1C01000
004A 055D*35A3             101 |       CALL    EPLOT     LOWER PEN                   V1C01010
004C 0011R                 102 |       DC      PENDN     LOWER PEN CONTROL           V1C01020
004D 0006R                 103 |       DC      X         X POSITION                  V1C01030
004E 0003R                 104 |       DC      Y         Y POSITION                  V1C01040
004F 1758*9563             105 |       CALL    POINT     DRAW TICK MARK              V1C01050
0051 0012R                 106 |       DC      PLUS      'PLUS' TICK MARK CONTROL    V1C01060
0052 054C*4000             107 | LOOP  LIBF    ELD       COMPUTE MOVEMENT            V1C01070
0053 0000                  108 | DELTA DC      *-*       X OR Y POSITION TO REAL ACC V1C01080
0054 0504*4100             109 |       LIBF    EADD      ADD GRID LINE INCREMENT     V1C01090
0055 0000R                 110 |       DC      INC       INCREMENT ARGUMENT ADDRESS  V1C01100
0056 058A*3580             111 |       LIBF    ESTO      EXECUTE EXTENDED PREC STORE V1C01110
0057 0000                  112 |       DC      *-*       NEW X OR Y POSITION         V1C01120
0058 055D*35A3             113 |       CALL    EPLOT     MOVE PEN ALONG AXIS         V1C01130
005A 0012R                 114 |       DC      NOMOV     LEAVE PEN IN DOWN POSITION  V1C01140
005B 0006R                 115 |       DC      X         X POSITION                  V1C01150
005C 0003R                 116 |       DC      Y         Y POSITION                  V1C01160
005D 1758*9563             117 |       CALL    POINT     DRAW TICK MARK              V1C01170
005F 0012R                 118 |       DC      PLUS      'PLUS' TICK MARK CONTROL    V1C01180
0060 74FF 0013R            119 |       MDX  L  NO,-1     DECREMENT TICK MARK COUNTER V1C01190
0062 70EF                  120 |       MDX     LOOP      CONT TILL GRID LINE DONE    V1C01200
0063 055D*35A3             121 |       CALL    EPLOT     RAISE PEN                   V1C01210
0065 0010R                 122 |       DC      PENUP     RAISE PEN CONTROL           V1C01220
0066 0006R                 123 |       DC      X         X POSITION                  V1C01230
0067 0003R                 124 |       DC      Y         Y POSITION                  V1C01240
0068 6500 0000             125 | EXIT  LDX  L1 *-*       RESTORE XR1 AND XR2         V1C01250
006A 6600 0000             126 |       LDX  L2 *-*                                   V1C01260
006C 4C00 0000             127 |       BSC  L  *-*       RETURN TO CALLING PROGRAM   V1C01270
006E                       128 |       END                                           V1C01280
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
CNTL  0009R   39   60   64   68   83   85   91
DELTA 0053R  108   81   82
EGRID 0015R   53   56   70   76
EXIT  0068R  125   54   55   63
GD1   001BR   58   62
H0001 0010R   51   71
H0003 0014R   52   69
INC   0000R   32   75  110
LOOP  0052R  107  120
NO    0013R   50   84  119
NOMOV 0012R   48   49  114
PENDN 0011R   47  102
PENUP 0010R   46   51   98  122
PLUS  0012R   49  106  118
X     0006R   34   45   90   99  103  115  123
XADD  000FR   45   78
Y     0003R   33   44   96  100  104  116  124
YADD  000ER   44   80
ibm/ibm1130-lib/dmsr2v12/v1egrid_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator