head     56.3;
access   paws bayes jws quist brad dew jwh;
symbols  ;
locks    ; strict;
comment  @# @;


56.3
date     93.01.27.13.27.20;  author jwh;  state Exp;
branches ;
next     56.2;

56.2
date     93.01.27.12.05.34;  author jwh;  state Exp;
branches ;
next     56.1;

56.1
date     91.11.05.09.48.09;  author jwh;  state Exp;
branches ;
next     55.1;

55.1
date     91.08.25.10.24.42;  author jwh;  state Exp;
branches ;
next     54.1;

54.1
date     91.03.18.15.28.04;  author jwh;  state Exp;
branches ;
next     53.1;

53.1
date     91.03.11.19.28.42;  author jwh;  state Exp;
branches ;
next     52.1;

52.1
date     91.02.19.09.12.39;  author jwh;  state Exp;
branches ;
next     51.1;

51.1
date     91.01.30.16.12.27;  author jwh;  state Exp;
branches ;
next     50.1;

50.1
date     90.10.29.16.27.05;  author jwh;  state Exp;
branches ;
next     49.1;

49.1
date     90.08.14.14.11.20;  author jwh;  state Exp;
branches ;
next     48.1;

48.1
date     90.07.26.11.17.35;  author jwh;  state Exp;
branches ;
next     47.1;

47.1
date     90.05.14.11.00.48;  author dew;  state Exp;
branches ;
next     46.1;

46.1
date     90.05.07.08.47.49;  author jwh;  state Exp;
branches ;
next     45.1;

45.1
date     90.04.19.15.55.45;  author jwh;  state Exp;
branches ;
next     44.1;

44.1
date     90.04.01.22.12.48;  author jwh;  state Exp;
branches ;
next     43.1;

43.1
date     90.03.20.14.04.44;  author jwh;  state Exp;
branches ;
next     42.1;

42.1
date     90.01.23.17.49.39;  author jwh;  state Exp;
branches ;
next     41.1;

41.1
date     89.12.22.11.31.30;  author jwh;  state Exp;
branches ;
next     40.1;

40.1
date     89.09.29.11.53.21;  author jwh;  state Exp;
branches ;
next     39.1;

39.1
date     89.09.26.16.37.37;  author dew;  state Exp;
branches ;
next     38.1;

38.1
date     89.08.29.11.29.40;  author jwh;  state Exp;
branches ;
next     37.1;

37.1
date     89.05.12.11.42.19;  author dew;  state Exp;
branches ;
next     36.1;

36.1
date     89.02.06.10.20.33;  author dew;  state Exp;
branches ;
next     35.1;

35.1
date     89.02.02.13.35.38;  author dew;  state Exp;
branches ;
next     34.1;

34.1
date     89.01.23.16.10.47;  author jwh;  state Exp;
branches ;
next     33.1;

33.1
date     89.01.16.11.42.35;  author dew;  state Exp;
branches ;
next     32.1;

32.1
date     89.01.10.11.51.22;  author bayes;  state Exp;
branches ;
next     31.1;

31.1
date     88.12.14.18.12.29;  author bayes;  state Exp;
branches ;
next     30.1;

30.1
date     88.12.09.13.49.20;  author dew;  state Exp;
branches ;
next     29.1;

29.1
date     88.10.31.15.34.19;  author bayes;  state Exp;
branches ;
next     28.1;

28.1
date     88.10.06.11.00.55;  author dew;  state Exp;
branches ;
next     27.1;

27.1
date     88.09.29.11.37.56;  author bayes;  state Exp;
branches ;
next     26.1;

26.1
date     88.09.28.13.16.47;  author bayes;  state Exp;
branches ;
next     25.2;

25.2
date     88.03.30.09.03.00;  author bayes;  state Exp;
branches ;
next     25.1;

25.1
date     88.03.02.09.33.19;  author bayes;  state Exp;
branches ;
next     24.1;

24.1
date     87.08.31.09.54.40;  author jws;  state Exp;
branches ;
next     23.1;

23.1
date     87.08.26.10.33.46;  author bayes;  state Exp;
branches ;
next     22.1;

22.1
date     87.08.17.11.18.57;  author bayes;  state Exp;
branches ;
next     21.1;

21.1
date     87.08.12.14.01.31;  author bayes;  state Exp;
branches ;
next     20.1;

20.1
date     87.07.30.11.14.36;  author bayes;  state Exp;
branches ;
next     19.1;

19.1
date     87.06.01.08.29.26;  author jws;  state Exp;
branches ;
next     18.1;

18.1
date     87.05.20.15.29.47;  author bayes;  state Exp;
branches ;
next     17.1;

17.1
date     87.04.30.10.40.21;  author jws;  state Exp;
branches ;
next     16.1;

16.1
date     87.04.26.15.51.59;  author jws;  state Exp;
branches ;
next     15.1;

15.1
date     87.04.13.09.28.01;  author jws;  state Exp;
branches ;
next     14.1;

14.1
date     87.04.01.15.34.02;  author jws;  state Exp;
branches ;
next     13.1;

13.1
date     87.02.28.18.36.55;  author jws;  state Exp;
branches ;
next     12.1;

12.1
date     87.02.02.13.27.58;  author jws;  state Exp;
branches ;
next     11.1;

11.1
date     87.01.19.09.54.37;  author jws;  state Exp;
branches ;
next     10.1;

10.1
date     86.12.24.11.03.34;  author jws;  state Exp;
branches ;
next     9.1;

9.1
date     86.12.12.14.46.19;  author bayes;  state Exp;
branches ;
next     8.1;

8.1
date     86.11.27.12.01.59;  author jws;  state Exp;
branches ;
next     7.1;

7.1
date     86.11.20.13.53.00;  author hal;  state Exp;
branches ;
next     6.1;

6.1
date     86.11.04.18.04.17;  author paws;  state Exp;
branches ;
next     5.1;

5.1
date     86.10.28.16.53.12;  author hal;  state Exp;
branches ;
next     4.1;

4.1
date     86.09.30.19.52.06;  author hal;  state Exp;
branches ;
next     3.1;

3.1
date     86.09.01.12.02.12;  author hal;  state Exp;
branches ;
next     2.1;

2.1
date     86.07.30.14.49.53;  author hal;  state Exp;
branches ;
next     1.1;

1.1
date     86.06.30.15.27.22;  author danm;  state tmp;
branches ;
next     ;


desc
@Base file for PWS 3.2 release.

@


56.3
log
@
pws2rcs automatic delta on Wed Jan 27 13:14:25 MST 1993
@
text
@*
* Pascal work station graphic library
*   scaling routine
*
* Module       = DGL_AUTL
* Programer    = BJS
* Date         = 8/27/82
*
* Purpose : To provide low level asmb routines for DGL
*
*
*  Rev history
*
*    Created  -  8-27-82  - BJS
*    Modified - 11-23-82  - BJS  Removed ck for static link on proc calls
*                2-10-82  - BJS  Removed gcb, and proc var parms for performance
*                6-27-83  - BJS  Removed module init body, now in
*                                module DGL_IBODY
*
*
*     (c) Copyright Hewlett-Packard Company, 1985.
*     All rights are reserved.  Copying or other
*     reproduction of this program except for archival
*     purposes is prohibited without the prior
*     written consent of Hewlett-Packard Company.
*
*
*                RESTRICTED RIGHTS LEGEND
*
*     Use, duplication, or disclosure by the Government
*     is subject to restrictions as set forth in
*     paragraph (b) (3) (B) of the Rights in Technical
*     Data and Computer Software clause in
*     DAR 7-104.9(a).
*
*     HEWLETT-PACKARD COMPANY
*     Fort Collins, Colorado
*
*
	MNAME DGL_AUTL

	src module dgl_autl;
	src export
	src PROCEDURE dgl_scaled_move;
	src PROCEDURE dgl_scaled_draw;
	src end;

*  Define entry points

	rorg 0
	def     dgl_autl_dgl_autl
	def     dgl_autl_dgl_scaled_move
	def     dgl_autl_dgl_scaled_draw

*  Define externals

	refa    dgl_vars
	lmode   dgl_vars


*  Define ASMB control information

	nosyms

*  Define constants

global  equ a5
gle_gcb equ a3
*
**      global variables
*
scale_factors equ dgl_vars-160
short_defaults equ dgl_vars-162
system_init equ dgl_vars-1
disp_init   equ dgl_vars-2
loc_init    equ dgl_vars-3
gle_gcb_def equ dgl_vars-186

	include ASM_TYPES

****************************************************************************
*
*  integer scale
*
*  a0 -> display_offset d2
*        window_delta   d1
*        display_delta  d0
*
*  end_x := (end_x * display_delta) / window_delta + display_offset;
*  end_y := . . .
*
dgl_autl_dgl_scaled_draw equ *

       movea.l  gle_gcb_def(global),gle_gcb   get gcb

       tst.b    short_defaults(global)    is scaling needed?
       bne.s    done1

       move.l   end_x(gle_gcb),d6

       lea      scale_factors(global),a0
       movem.w  (a0)+,d0-d5   get scaling factors

       muls     d0,d6
       divs     d1,d6
       bvs.s    tdb
       add.w    d2,d6

       ext.l    d6
       move.l   d6,end_x(gle_gcb)

       move.l   end_y(gle_gcb),d6

       muls     d3,d6
       divs     d4,d6
       bvs.s    tdb
       add.w    d5,d6

       ext.l    d6
       move.l   d6,end_y(gle_gcb)

done1  equ *
       move.l   gle_gcb,-(sp)     setup to pass gcb ptr
       movea.l  draw(gle_gcb),a0  no static links
       jsr      (a0)              call draw

       rts

dgl_autl_dgl_scaled_move equ *

       movea.l  gle_gcb_def(global),gle_gcb   get gcb

       tst.b    short_defaults(global)    is scaling needed?
       bne.s    done2

       move.l   end_x(gle_gcb),d6

       lea      scale_factors(global),a0
       movem.w  (a0)+,d0-d5   get scaling factors

       muls     d0,d6
       divs     d1,d6
       bvs.s    tdb
       add.w    d2,d6

       ext.l    d6
       move.l   d6,end_x(gle_gcb)

       move.l   end_y(gle_gcb),d6

       muls     d3,d6
       divs     d4,d6
       bvs.s    tdb
       add.w    d5,d6

       ext.l    d6
       move.l   d6,end_y(gle_gcb)

done2  equ *
       move.l   gle_gcb,-(sp)     setup to pass gcb ptr
       movea.l  move(gle_gcb),a0  no static links
       jsr      (a0)              call draw

       rts

tdb    trapv                      overflow
       rts

******************************************************************************
*
dgl_autl_dgl_autl equ *

       rts

	end

@


56.2
log
@
pws2rcs automatic delta on Wed Jan 27 11:57:27 MST 1993
@
text
@d1 176
@


56.1
log
@Automatic bump of revision number for PWS version 3.25
@
text
@a0 176
*
* Pascal work station graphic library
*   scaling routine
*
* Module       = DGL_AUTL
* Programer    = BJS
* Date         = 8/27/82
*
* Purpose : To provide low level asmb routines for DGL
*
*
*  Rev history
*
*    Created  -  8-27-82  - BJS
*    Modified - 11-23-82  - BJS  Removed ck for static link on proc calls
*                2-10-82  - BJS  Removed gcb, and proc var parms for performance
*                6-27-83  - BJS  Removed module init body, now in
*                                module DGL_IBODY
*
*
*     (c) Copyright Hewlett-Packard Company, 1985.
*     All rights are reserved.  Copying or other
*     reproduction of this program except for archival
*     purposes is prohibited without the prior
*     written consent of Hewlett-Packard Company.
*
*
*                RESTRICTED RIGHTS LEGEND
*
*     Use, duplication, or disclosure by the Government
*     is subject to restrictions as set forth in
*     paragraph (b) (3) (B) of the Rights in Technical
*     Data and Computer Software clause in
*     DAR 7-104.9(a).
*
*     HEWLETT-PACKARD COMPANY
*     Fort Collins, Colorado
*
*
	MNAME DGL_AUTL

	src module dgl_autl;
	src export
	src PROCEDURE dgl_scaled_move;
	src PROCEDURE dgl_scaled_draw;
	src end;

*  Define entry points

	rorg 0
	def     dgl_autl_dgl_autl
	def     dgl_autl_dgl_scaled_move
	def     dgl_autl_dgl_scaled_draw

*  Define externals

	refa    dgl_vars
	lmode   dgl_vars


*  Define ASMB control information

	nosyms

*  Define constants

global  equ a5
gle_gcb equ a3
*
**      global variables
*
scale_factors equ dgl_vars-160
short_defaults equ dgl_vars-162
system_init equ dgl_vars-1
disp_init   equ dgl_vars-2
loc_init    equ dgl_vars-3
gle_gcb_def equ dgl_vars-186

	include ASM_TYPES

****************************************************************************
*
*  integer scale
*
*  a0 -> display_offset d2
*        window_delta   d1
*        display_delta  d0
*
*  end_x := (end_x * display_delta) / window_delta + display_offset;
*  end_y := . . .
*
dgl_autl_dgl_scaled_draw equ *

       movea.l  gle_gcb_def(global),gle_gcb   get gcb

       tst.b    short_defaults(global)    is scaling needed?
       bne.s    done1

       move.l   end_x(gle_gcb),d6

       lea      scale_factors(global),a0
       movem.w  (a0)+,d0-d5   get scaling factors

       muls     d0,d6
       divs     d1,d6
       bvs.s    tdb
       add.w    d2,d6

       ext.l    d6
       move.l   d6,end_x(gle_gcb)

       move.l   end_y(gle_gcb),d6

       muls     d3,d6
       divs     d4,d6
       bvs.s    tdb
       add.w    d5,d6

       ext.l    d6
       move.l   d6,end_y(gle_gcb)

done1  equ *
       move.l   gle_gcb,-(sp)     setup to pass gcb ptr
       movea.l  draw(gle_gcb),a0  no static links
       jsr      (a0)              call draw

       rts

dgl_autl_dgl_scaled_move equ *

       movea.l  gle_gcb_def(global),gle_gcb   get gcb

       tst.b    short_defaults(global)    is scaling needed?
       bne.s    done2

       move.l   end_x(gle_gcb),d6

       lea      scale_factors(global),a0
       movem.w  (a0)+,d0-d5   get scaling factors

       muls     d0,d6
       divs     d1,d6
       bvs.s    tdb
       add.w    d2,d6

       ext.l    d6
       move.l   d6,end_x(gle_gcb)

       move.l   end_y(gle_gcb),d6

       muls     d3,d6
       divs     d4,d6
       bvs.s    tdb
       add.w    d5,d6

       ext.l    d6
       move.l   d6,end_y(gle_gcb)

done2  equ *
       move.l   gle_gcb,-(sp)     setup to pass gcb ptr
       movea.l  move(gle_gcb),a0  no static links
       jsr      (a0)              call draw

       rts

tdb    trapv                      overflow
       rts

******************************************************************************
*
dgl_autl_dgl_autl equ *

       rts

	end

@


55.1
log
@Automatic bump of revision number for PWS version 3.25A
@
text
@@


54.1
log
@Automatic bump of revision number for PWS version 3.24
@
text
@@


53.1
log
@Automatic bump of revision number for PWS version 3.24B
@
text
@@


52.1
log
@Automatic bump of revision number for PWS version 3.24A
@
text
@@


51.1
log
@Automatic bump of revision number for PWS version 3.24d
@
text
@@


50.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


49.1
log
@Automatic bump of revision number for PWS version 3.24b
@
text
@@


48.1
log
@Automatic bump of revision number for PWS version 3.24a
@
text
@@


47.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


46.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


45.1
log
@Automatic bump of revision number for PWS version 3.23C
@
text
@@


44.1
log
@Automatic bump of revision number for PWS version 3.23B
@
text
@@


43.1
log
@Automatic bump of revision number for PWS version 3.23aA
@
text
@@


42.1
log
@Automatic bump of revision number for PWS version 3.23e
@
text
@@


41.1
log
@Automatic bump of revision number for PWS version 3.23d
@
text
@@


40.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


39.1
log
@Automatic bump of revision number for PWS version 3.23b
@
text
@@


38.1
log
@Automatic bump of revision number for PWS version 3.23a
@
text
@@


37.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


36.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


35.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


34.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


33.1
log
@Automatic bump of revision number for PWS version 3.22D
@
text
@@


32.1
log
@Automatic bump of revision number for PWS version 3.22C
@
text
@@


31.1
log
@Automatic bump of revision number for PWS version 3.22B
@
text
@@


30.1
log
@Automatic bump of revision number for PWS version 3.22A
@
text
@@


29.1
log
@Automatic bump of revision number for PWS version 3.22b
@
text
@@


28.1
log
@Automatic bump of revision number for PWS version 3.3b
@
text
@@


27.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


26.1
log
@Automatic bump of revision number for PWS version 3.3 Synch
@
text
@@


25.2
log
@For CATSEYE support
@
text
@@


25.1
log
@Automatic bump of revision number for PWS version 3.2Y
@
text
@@


24.1
log
@Automatic bump of revision number for PWS version 3.2
@
text
@@


23.1
log
@Automatic bump of revision number for PWS version 3.2P
@
text
@@


22.1
log
@Automatic bump of revision number for PWS version 3.2N
@
text
@@


21.1
log
@Automatic bump of revision number for PWS version 3.2M
@
text
@@


20.1
log
@Automatic bump of revision number for PWS version 3.2L
@
text
@@


19.1
log
@Automatic bump of revision number for PWS version 3.2K
@
text
@@


18.1
log
@Automatic bump of revision number for PWS version 3.2J
@
text
@@


17.1
log
@Automatic bump of revision number for PWS version 3.2I+
@
text
@@


16.1
log
@Automatic bump of revision number for PWS version 3.2I
@
text
@@


15.1
log
@Automatic bump of revision number for PWS version 3.2H
@
text
@@


14.1
log
@Automatic bump of revision number for PWS version 3.2G
@
text
@@


13.1
log
@Automatic bump of revision number for PWS version 3.2F
@
text
@@


12.1
log
@Automatic bump of revision number for PWS version 3.2E
@
text
@@


11.1
log
@Automatic bump of revision number for PWS version 3.2D
@
text
@@


10.1
log
@Automatic bump of revision number for PWS version 3.2C
@
text
@@


9.1
log
@Automatic bump of revision number for PWS version 3.2B
@
text
@@


8.1
log
@Automatic bump of revision number for PWS version 3.2A
@
text
@@


7.1
log
@Automatic bump of revision number for PWS version 3.2l
@
text
@@


6.1
log
@Automatic bump of revision number for PWS version 3.2k
@
text
@@


5.1
log
@Automatic bump of revision number for PWS version 3.2j
@
text
@@


4.1
log
@Automatic bump of revision number for PWS version 3.2i
@
text
@@


3.1
log
@Automatic bump of revision number for PWS version 3.2h
@
text
@@


2.1
log
@Auto bump rev number to 2.1 for sys 3.2e.
@
text
@@


1.1
log
@Initial revision
@
text
@@
