ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \v1fgrid.asm
CALL FGRID
2 | *************************************************** V1H00020
3 | * * V1H00030
4 | * SUBROUTINE NAME- * V1H00040
5 | * FULL NAME- STANDARD PRECISION GRID LINE * V1H00050
6 | * FUNCTION. * V1H00060
7 | * CODE NAME- FGRID * V1H00070
8 | * PURPOSE- DRAWS A GRID LINE (WITH TICK MARKS) * V1H00080
9 | * PARALLEL TO THE X AXIS OR THE Y AXIS. * V1H00090
10 | * METHOD- N/A * V1H00100
11 | * CAPABILITIES AND LIMITATIONS- SEE IBM * V1H00110
12 | * 1130/1800 PLOTTER SUBROUTINES MANUAL * V1H00120
13 | * (FORM C26-3755). * V1H00130
14 | * SPECIAL FEATURES- N/A * V1H00140
15 | * ADDITIONAL INFORMATION- N/A * V1H00150
16 | * * V1H00160
17 | *************************************************** V1H00170
CALL FGRID
19 | * V1H00190
20 | * THE CALL TO THE FGRID SUBROUTINE V1H00200
21 | * IS AS FOLLOWS V1H00210
22 | * V1H00220
23 | * CALL FGRID V1H00230
24 | * DC CONTROL (INTEGER) V1H00240
25 | * DC X (REAL) V1H00250
26 | * DC Y (REAL) V1H00260
27 | * DC DELTA (REAL) V1H00270
28 | * DC NUMBER (INTEGER) V1H00280
29 | * V1H00290
30 | SPR V1H00300
31 | ENT FGRID V1H00310
0000 0000 0000 32 | INC DEC .0 TICK MARK INCREMENT (REAL) V1H00320
0002 0000 0000 33 | Y DEC .0 X AXIS POSITION (REAL) V1H00330
0004 0000 0000 34 | X DEC .0 Y AXIS POSITION (REAL) V1H00340
35 | * V1H00350
36 | * THE FOLLOWING 5 WORDS ARE SET-UP TO CONTAIN THE V1H00360
37 | * ADDRESSES OF THE REQUIRED PARAMETERS V1H00370
38 | * V1H00380
0006 0000 39 | CNTL DC *-* V1H00390
0007 0000 40 | DC *-* X (REAL) V1H00400
0008 0000 41 | DC *-* Y (REAL) V1H00410
0009 0000 42 | DC *-* DELTA (REAL) V1H00420
000A 0000 43 | DC *-* NUMBER (INTEGER) V1H00430
000B 0002R 44 | YADD DC Y ADDRESS OF Y AXIS ARGUMENT V1H00440
000C 0004R 45 | XADD DC X ADDRESS OF X AXIS ARGUMENT V1H00450
000D 0001 46 | PENUP DC 1 PEN UP CONTROL V1H00460
000E 0002 47 | PENDN DC 2 PEN DOWN CONTROL V1H00470
000F 0000 48 | NOMOV DC 0 PEN NO MOVE CONTROL V1H00480
000FR 49 | PLUS EQU NOMOV ADDRESS OF ZERO VALUE V1H00490
0010 0000 50 | NO DC *-* NO. OF TICK MARKS V1H00500
000DR 51 | H0001 EQU PENUP ADDRESS OF VALUE OF ONE V1H00510
0011 0003 52 | H0003 DC 3 MASK TO REMOVE BITS 0-13 V1H00520
0012 0000 53 | FGRID DC *-* ENTRY POINT TO EGRID V1H00530
0013 694C 54 | STX 1 EXIT+1 SAVE XR1 AND XR2 V1H00540
0014 6A4D 55 | STX 2 EXIT+3 V1H00550
0015 6580 0012R 56 | LDX I1 FGRID GET ADDRESSES OF PARAMETERS V1H00560
0017 62FB 57 | LDX 2 -5 XR2 IS LOOP COUNTER V1H00570
0018 C100 58 | GD1 LD 1 0 V1H00580
0019 7101 59 | MDX 1 1 V1H00590
001A D600 000BR 60 | STO L2 CNTL+5 PLACE PARAMETER ADDR IN TBL V1H00600
001C 7201 61 | MDX 2 1 DECREMENT LOOP COUNTER V1H00610
001D 70FA 62 | MDX GD1 LOOP TILL 5TH ADDR MOVED V1H00620
001E 6945 63 | STX 1 EXIT+5 SAVE EXIT ADDRESS V1H00630
001F C0E9 64 | LD CNTL+3 V1H00640
0020 D001 65 | STO *+1 ADDR OF INCREMENT PARAMETER V1H00650
0021 064C*4000 66 | LIBF FLD LOAD INCR TO REAL NO. ACC V1H00660
0022 0000 67 | DC *-* DELTA V1H00670
0023 C480 0006R 68 | LD I CNTL V1H00680
0025 E0EB 69 | AND H0003 V1H00690
0026 D0EB 70 | STO FGRID GRID DIRECTION, BITS 14-15 V1H00700
0027 90E5 71 | S H0001 V1H00710
0028 4830 72 | BSC Z- SKIP IF GRID DIRECTION NEG V1H00720
0029 2255*9000 73 | LIBF SNR REVERSE SIGN OF INCREMENT V1H00730
002A 068A*3580 74 | LIBF FSTO STORE INCR FROM REAL ACC V1H00740
002B 0000R 75 | DC INC GRID LINE INCREMENT V1H00750
002C C0E5 76 | LD FGRID DETERMINE AXIS OF GRID LINE V1H00760
002D 1010 77 | SLA 16 V1H00770
002E C0DD 78 | LD XADD V1H00780
002F 4802 79 | BSC C SKIP IF ON X DIRECTION V1H00790
0030 C0DA 80 | LD YADD V1H00800
0031 D018 81 | STO DELTA INITLZ PEN MOVEMENT WITH V1H00810
0032 D01B 82 | STO DELTA+4 ADDR OF X OR Y PARAMETER V1H00820
0033 C480 000AR 83 | LD I CNTL+4 GET NO,X AND Y V1H00830
0035 D0DA 84 | STO NO LENGTH OF GRID LINE V1H00840
0036 CC80 0007R 85 | LDD I CNTL+1 V1H00850
0038 D8CB 86 | STD X INITIAL X POSITION V1H00860
0039 CC80 0008R 87 | LDD I CNTL+2 V1H00870
003B D8C6 88 | STD Y INITIAL Y POSITION V1H00880
003C 065D*35A3 89 | CALL FPLOT RAISE PEN AND MOVE TO X,Y V1H00890
003E 000DR 90 | DC PENUP RAISE PEN CONTROL V1H00900
003F 0004R 91 | DC X X POSITION V1H00910
0040 0002R 92 | DC Y Y POSITION V1H00920
0041 065D*35A3 93 | CALL FPLOT LOWER PEN V1H00930
0043 000ER 94 | DC PENDN LOWER PEN CONTROL V1H00940
0044 0004R 95 | DC X X POSITION V1H00950
0045 0002R 96 | DC Y Y POSITION V1H00960
0046 1758*9563 97 | CALL POINT DRAW TICK MARK V1H00970
0048 000FR 98 | DC PLUS 'PLUS' TICK MARK CONTROL V1H00980
0049 064C*4000 99 | LOOP LIBF FLD COMPUTE MOVEMENT V1H00990
004A 0000 100 | DELTA DC *-* X OR Y POSITION TO REAL ACC V1H01000
004B 0604*4100 101 | LIBF FADD ADD GRID LINE INCREMENT V1H01010
004C 0000R 102 | DC INC INCREMENT ARGUMENT ADDRESS V1H01020
004D 068A*3580 103 | LIBF FSTO EXECUTE EXTENDED PREC STORE V1H01030
004E 0000 104 | DC *-* NEW X OR Y POSITION V1H01040
004F 065D*35A3 105 | CALL FPLOT MOVE PEN ALONG AXIS V1H01050
0051 000FR 106 | DC NOMOV LEAVE PEN IN DOWN POSITION V1H01060
0052 0004R 107 | DC X X POSITION V1H01070
0053 0002R 108 | DC Y Y POSITION V1H01080
0054 1758*9563 109 | CALL POINT DRAW TICK MARK V1H01090
0056 000FR 110 | DC PLUS 'PLUS' TICK MARK CONTROL V1H01100
0057 74FF 0010R 111 | MDX L NO,-1 DECREMENT TICK MARK COUNTER V1H01110
0059 70EF 112 | MDX LOOP CONT TILL GRID LINE DONE V1H01120
005A 065D*35A3 113 | CALL FPLOT RAISE PEN V1H01130
005C 000DR 114 | DC PENUP RAISE PEN CONTROL V1H01140
005D 0004R 115 | DC X X POSITION V1H01150
005E 0002R 116 | DC Y Y POSITION V1H01160
005F 6500 0000 117 | EXIT LDX L1 *-* RESTORE XR1 AND XR2 V1H01170
0061 6600 0000 118 | LDX L2 *-* V1H01180
0063 4C00 0000 119 | BSC L *-* RETURN TO CALLING PROGRAM V1H01190
0065 120 | END V1H01200
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
CNTL 0006R 39 60 64 68 83 85 87
DELTA 004AR 100 81 82
EXIT 005FR 117 54 55 63
FGRID 0012R 53 56 70 76
GD1 0018R 58 62
H0001 000DR 51 71
H0003 0011R 52 69
INC 0000R 32 75 102
LOOP 0049R 99 112
NO 0010R 50 84 111
NOMOV 000FR 48 49 106
PENDN 000ER 47 94
PENUP 000DR 46 51 90 114
PLUS 000FR 49 98 110
X 0004R 34 45 86 91 95 107 115
XADD 000CR 45 78
Y 0002R 33 44 88 92 96 108 116
YADD 000BR 44 80