DRV11	MACRO V05.04  Friday 22-Jul-88 02:53  Page 1


      1						.TITLE	DRV11
      2					;
      3					;	HISTORIK:
      4					;	DATUM	NAMN		ORSAK
      5					;	880718	B-E TAPPER	URUPPF\RANDE
      6					;	880721	B-E TAPPER	EN PARAMETER TILL
      7					;
      8					;	L[SER DRV11-KORTET P] ADRESS 167774
      9					;	L[GGER I EN 16-BYTE LOGICAL BUFFER
     10					;
     11					;	CALL:
     12					;
     13					;	LOGICAL*1 BUFFER(16)
     14					;
     15					;	CALL	DRV11(BUFFER,INPUT)
     16					;
     17					;
     18	000000	000000 			INPUT:	.WORD
     19					;
     20	000002				DRV11::
     21	000002	016502 	000002 			MOV	2(R5),R2		;GET BASE ADRESS OF BUFFER
     22	000006	016767 	167774'	177764 		MOV	167774,INPUT		;READ DEVICE
     23					;
     24	000014	012701 	000016 			MOV	#16,R1			;NUMBER OF BITS
     25					;
     26	000020	012704 	000001 			MOV	#1,R4
     27					;
     28	000024	012703 	177777 			MOV	#-1,R3			;ALL BITS SET
     29					;
     30	000030				AGAIN:
     31	000030	105012 				CLRB	(R2)			;FIRST BIT
     32	000032	030467 	177742 			BIT	R4,INPUT		;IF BIT SET
     33	000036	001001 				BNE	NEQUAL			;DON'T BRANCH
     34	000040	110312 				MOVB	R3,(R2)			;FIRST BIT
     35	000042	005202 			NEQUAL:	INC	R2			;PONT TO NEXT
     36	000044	006304 				ASL	R4			;SHIFT THE BIT LEFT
     37	000046	077110 				SOB	R1,AGAIN		;READY ? IF NO, BRANCH (DEC R1)
     38					;
     39	000050	016775 	177724 	000004 		MOV	INPUT,@4(R5)		;THE VALUE OF THE INPUT = PARAM 2
     40					;
     41	000056	000207 				RETURN
     42					;
     43		000001 				.END
DRV11	MACRO V05.04  Friday 22-Jul-88 02:53  Page 1-1
Symbol table

AGAIN   000030R  	DRV11   000002RG 	INPUT   000000R  	NEQUAL  000042R

. ABS.	000000    000	(RW,I,GBL,ABS,OVR)
      	000060    001	(RW,I,LCL,REL,CON)
Errors detected:  0

*** Assembler statistics


Work  file  reads: 0
Work  file writes: 0
Size of work file: 39 Words  ( 1 Pages)
Size of core pool: 9244 Words  ( 35 Pages)
Operating  system: RSX-11M/PLUS

Elapsed time: 00:00:01.07
SC:DRV11,SC:DRV11.MLS/-SP=SC:DRV11