TRIPOS PDP-11 Assembler version 1.4


              000000'                 	.PSECT
                                      	; R0 := R0 / R1, remainder in R2, R1 is positivised
                                      	; R0 is top, shifted into R2 one bit at a time.
                                      	; R3 is the loop counter.
      000000'                         DIVIDE:
      000000' 005701                  	TST	R1	; ensure R1 has top bit clear
      000002' 100001                  	BPL	DIV1
      000004' 005401                  	NEG	R1
      000006'                         DIV1:
      000006' 005002                  	CLR	R2
      000010' 012703  000017          	MOV	#15.,R3		; 16 iterations
      000014'                         DIV2:
      000014' 006300                  	ASL	R0
      000016' 006102                  	ROL	R2
      000020' 020201                  	CMP	R2,R1		; can we subtract bottom from top?
      000022' 103403                  	BCS	DIV3		; no
      000024' 160102                  	SUB	R1,R2		; yes - do it.
      000026' 052700  000001          	BIS	#1,R0
      000032' 005303                  DIV3:	DEC	R3
      000034' 100367                  	BPL	DIV2

      000036' 000000                  	HALT


No errors detected

Assembly statistics (words):

           Absolute   Relocatable
Code            0          16
Reloc. info     0           0

Space used for symbol table: 760 words
Total workspace used: 821 words
Assembly complete