ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \v1scale.asm CALL SCALE 2 | *************************************************** V1N00020 3 | * * V1N00030 4 | * SUBROUTINE NAME- * V1N00040 5 | * FULL NAME- EXTENDED PRECISION PLOTTER * V1N00050 6 | * SCALING FUNCTION. * V1N00060 7 | * CODE NAME- SCALE * V1N00070 8 | * PURPOSE- DEFINES THE SCALING FACTORS FOR * V1N00080 9 | * THE X AXIS AND THE Y AXIS, AND DEFINES * V1N00090 10 | * THE INTERSECTION OF THE X AXIS AND THE * V1N00100 11 | * Y AXIS. * V1N00110 12 | * METHOD- N/A * V1N00120 13 | * CAPABALITIES AND LIMITATIONS- SEE IBM * V1N00130 14 | * 1130/1800 PLOTTER SUBROUTINES MANUAL * V1N00140 15 | * (FORM C26-3755). * V1N00150 16 | * SPECIAL FEATURES- N/A * V1N00160 17 | * ADDITIONAL INFORMATION- N/A * V1N00170 18 | * * V1N00180 19 | *************************************************** V1N00190 CALL SCALE 21 | * V1N00210 22 | * THE CALL TO THE SCALE ROUTINE V1N00220 23 | * IS AS FOLLOWS V1N00230 24 | * V1N00240 25 | * CALL SCALE V1N00250 26 | * DC X-SCALE (REAL) V1N00260 27 | * DC Y-SCALE (REAL) V1N00270 28 | * DC X(0) (REAL) V1N00280 29 | * DC Y(0) (REAL) V1N00290 30 | * V1N00300 31 | EPR V1N00310 32 | ENT SCALE V1N00320 0000 0000 33 | SCALE DC *-* ENTRY POINT V1N00330 0001 C0FE 34 | LD SCALE ADDR OF ARGUMENT LIST V1N00340 0002 0566*44C5 35 | LIBF ERULE SET-UP SCALE AND ORIGIN V1N00350 0003 36 | END V1N00360 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced SCALE 0000R 33 34