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