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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

41.1
date     89.12.22.11.41.44;  author jwh;  state Exp;
branches ;
next     40.2;

40.2
date     89.11.10.19.34.12;  author dew;  state Exp;
branches ;
next     40.1;

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

39.1
date     89.09.26.16.47.42;  author dew;  state Exp;
branches ;
next     1.1;

1.1
date     89.09.14.10.24.48;  author dew;  state Exp;
branches ;
next     ;


desc
@OSD_LLA is a PWS Operating System Dependent, Low Level Assembler, Module that
ties the SCSI Generic Driver into PWS.
@


56.3
log
@
pws2rcs automatic delta on Wed Jan 27 13:14:25 MST 1993
@
text
@	  MNAME OSD_LLA
	  SRC MODULE OSD_LLA;
	  SRC IMPORT SCSI_DEFS, iodeclarations;
	  SRC EXPORT
	  SRC   TYPE
	  SRC     TIMER_REC = RECORD
	  SRC                   TIME : INTEGER;
	  SRC                   FLAG : s_short; { MSR }
	  SRC                 END;
	  SRC
	  SRC     PROCEDURE START_TIMER(VAR TIME : TIMER_REC);
	  SRC     FUNCTION  TIME_EXPIRED(VAR TIME : TIMER_REC):BOOLEAN;
	  SRC
	  SRC END; { OSD_LLA }

	  DEF OSD_LLA_OSD_LLA
	  DEF OSD_LLA_START_TIMER
	  DEF OSD_LLA_TIME_EXPIRED

timer_present   equ     1
sysflag2        equ     $FFFFFEDA
		REFA    CHECK_TIMER   in system POWERUP code
		LMODE   CHECK_TIMER
*************************************************************************
* START_TIMER                           timing setup
*
*   ASSUMES:
*       - sp+4 points to location of a timer record
*              the TIME field is a delay in milliseconds
*   RETURNS:
*       - The TIME field contains a value to match against the timer
*         (no timer present then this field is a scaled count)
*************************************************************************
OSD_LLA_START_TIMER equ *
	movea.l 4(sp),a0        get addr of timer rec
	btst    #timer_present,sysflag2
	bne.s   soft_start
	st      4(a0)   set the first time flag
	jmp     CHECK_TIMER

soft_start equ  *
*       scale the time out value for use as a counter
	move.l  (a0),d0
	lsl.l   #4,d0           x 16
	move.l  d0,(a0)
	move.l  (sp)+,(sp)      move the return address
	rts
*************************************************************************
* FUNCTION TIME_EXPIRED(VAR TIME: INTEGER):BOOLEAN;
*   ASSUMES:
*       - sp+4 points to a timer record (set up by start_timer)
*************************************************************************

OSD_LLA_TIME_EXPIRED  EQU *
	clr.b   8(sp)           clear the function value
	btst    #timer_present,sysflag2
	bne.s   soft_check
	move.l  4(sp),-(sp)     copy the timer rec address
	jsr     CHECK_TIMER
	bpl.s   timex1
timex0  move.b  #1,8(sp)
timex1  move.l  (sp)+,(sp)      move the return address
	rts
soft_check equ  *
	movea.l 4(sp),a0
	subq.l  #1,(a0)
	bpl     timex1
	bra     timex0
*
*       module initialization
*
OSD_LLA_OSD_LLA EQU *
	  RTS

	end
@


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


56.1
log
@Automatic bump of revision number for PWS version 3.25
@
text
@a0 75
	  MNAME OSD_LLA
	  SRC MODULE OSD_LLA;
	  SRC IMPORT SCSI_DEFS, iodeclarations;
	  SRC EXPORT
	  SRC   TYPE
	  SRC     TIMER_REC = RECORD
	  SRC                   TIME : INTEGER;
	  SRC                   FLAG : s_short; { MSR }
	  SRC                 END;
	  SRC
	  SRC     PROCEDURE START_TIMER(VAR TIME : TIMER_REC);
	  SRC     FUNCTION  TIME_EXPIRED(VAR TIME : TIMER_REC):BOOLEAN;
	  SRC
	  SRC END; { OSD_LLA }

	  DEF OSD_LLA_OSD_LLA
	  DEF OSD_LLA_START_TIMER
	  DEF OSD_LLA_TIME_EXPIRED

timer_present   equ     1
sysflag2        equ     $FFFFFEDA
		REFA    CHECK_TIMER   in system POWERUP code
		LMODE   CHECK_TIMER
*************************************************************************
* START_TIMER                           timing setup
*
*   ASSUMES:
*       - sp+4 points to location of a timer record
*              the TIME field is a delay in milliseconds
*   RETURNS:
*       - The TIME field contains a value to match against the timer
*         (no timer present then this field is a scaled count)
*************************************************************************
OSD_LLA_START_TIMER equ *
	movea.l 4(sp),a0        get addr of timer rec
	btst    #timer_present,sysflag2
	bne.s   soft_start
	st      4(a0)   set the first time flag
	jmp     CHECK_TIMER

soft_start equ  *
*       scale the time out value for use as a counter
	move.l  (a0),d0
	lsl.l   #4,d0           x 16
	move.l  d0,(a0)
	move.l  (sp)+,(sp)      move the return address
	rts
*************************************************************************
* FUNCTION TIME_EXPIRED(VAR TIME: INTEGER):BOOLEAN;
*   ASSUMES:
*       - sp+4 points to a timer record (set up by start_timer)
*************************************************************************

OSD_LLA_TIME_EXPIRED  EQU *
	clr.b   8(sp)           clear the function value
	btst    #timer_present,sysflag2
	bne.s   soft_check
	move.l  4(sp),-(sp)     copy the timer rec address
	jsr     CHECK_TIMER
	bpl.s   timex1
timex0  move.b  #1,8(sp)
timex1  move.l  (sp)+,(sp)      move the return address
	rts
soft_check equ  *
	movea.l 4(sp),a0
	subq.l  #1,(a0)
	bpl     timex1
	bra     timex0
*
*       module initialization
*
OSD_LLA_OSD_LLA 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.2
log
@Fixed a timing bug - was taking twice as long as necessary for 68000 devices.
(probably 68010 devices will go to fast now - oh well).
@
text
@@


40.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@d44 1
a44 1
	lsl.l   #5,d0           x 32
@


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


1.1
log
@Initial revision
@
text
@@
