;This source-code is converted using PPC680x0, (c)1999 Coyote Flux
;Coded in 100% machine-language...!!! Amiga Rulez! PC Suxx!


* file examples/freemem2.s - Workbench version

* a sample Intuition program to display a window constantly showing
* the free memory figure, until it's closed

* this source code (C) HiSoft 1992 All Rights Reserved

* both source and binary are FreeWare and may be distributed free of charge
* so long as copyright messages are not removed

* revision history:
* 7th June 86	written
* 22nd Sept 86	changed includes
* 18th Dec 86	uses easystart for workbench version
* 27th Feb 92	now includes pre-assembled header

* ensure case dependent and debug
	

* firstly get the required constants and macros
	incdir	ppcinclude:
	include	powerpc/powerpc.i

	include	intuition/intuition.i
	include	lvos/intuition_lib.i
	include	lvos/exec_lib.i
	include	lvos/graphics_lib.i
	include	exec/memory.i
	include	lvos/dos_lib.i
	include	libraries/dos.i

	xref	_PowerPCBase
	xref	_SysBase
;	xref	_DOSBase
	xref	_LinkerDB

	executable

* constant for frequency of re-display
timeout	equ	25				in 50ths of a second

* firstly open the intuition library
	prolog	1024
	
RUN680X0        MACRO
		pushgpr r11-r12/r14-r19/r27-r31
		subi    local,local,PP_SIZE
		stw     r3,PP_REGS(local)
		stw     r4,PP_REGS+1*4(local)
		stw     r5,PP_REGS+2*4(local)
		stw     r6,PP_REGS+3*4(local)
		stw     r7,PP_REGS+4*4(local)
		stw     r8,PP_REGS+5*4(local)
		stw     r9,PP_REGS+6*4(local)
		stw     r10,PP_REGS+7*4(local)
		stw     r20,PP_REGS+8*4(local)
		stw     r21,PP_REGS+9*4(local)
		stw     r22,PP_REGS+10*4(local)
		stw     r23,PP_REGS+11*4(local)
		stw     r24,PP_REGS+12*4(local)
		stw     r25,PP_REGS+13*4(local)
		stw     r26,PP_CODE(local)
		stw     r26,PP_REGS+14*4(local)
		stw     r31,PP_OFFSET(local)
		li      r3,0
		stw     r3,PP_FLAGS(local)
		stw     r3,PP_STACKPTR(local)
		stw     r3,PP_STACKSIZE(local)
		mr      r4,local
		lw      r3,_PowerPCBase
		lwz     r0,-300+2(r3)
		mtlr    r0
		blrl
		lwz     r3,PP_REGS(local)
		lwz     r4,PP_REGS+1*4(local)
		lwz     r5,PP_REGS+2*4(local)
		lwz     r6,PP_REGS+3*4(local)
		lwz     r7,PP_REGS+4*4(local)
		lwz     r8,PP_REGS+5*4(local)
		lwz     r9,PP_REGS+6*4(local)
		lwz     r10,PP_REGS+7*4(local)
		lwz     r20,PP_REGS+8*4(local)
		lwz     r21,PP_REGS+9*4(local)
		lwz     r22,PP_REGS+10*4(local)
		lwz     r23,PP_REGS+11*4(local)
		lwz     r24,PP_REGS+12*4(local)
		lwz     r25,PP_REGS+13*4(local)
		lwz     r26,PP_REGS+14*4(local)
		addi    local,local,PP_SIZE
		popgpr  r11-r12/r14-r19/r27-r31
		ENDM
	mflr	r0
	mtctr	r0
	pushgpr	r14-r31
	pushcr


	la	r21,intname
	andi.	r3,r0,0
	addi	r31,r0,_LVOOpenLibrary
	lw	r26,_SysBase
	RUN680X0
	cmpi	0,0,r3,0
	beq	goawayfast			if didnt open

	la	r31,_IntuitionBase
	stw	r3,0(r31)

* and open the graphics library
	la	r21,grafname
	andi.	r3,r0,0
	addi	r31,r0,_LVOOpenLibrary
	lw	r26,_SysBase
	RUN680X0
	cmpi	0,0,r3,0
	beq	goawaycloseint
	la	r31,_GfxBase
	stw	r3,0(r31)

* and open a DOS library
	la	r21,dosname
	andi.	r3,r0,0
	addi	r31,r0,_LVOOpenLibrary
	lw	r26,_SysBase
	RUN680X0
	cmpi	0,0,r3,0
	beq	goawayclosegraf
	la	r31,_DOSBase
	stw	r3,0(r31)

* open a window next
	la	r20,windowdef
	addi	r31,r0,_LVOOpenWindow
	la	r26,_IntuitionBase
	lwz	r26,0(r26)
	RUN680X0
	cmpi	0,0,r3,0
	beq	goawaycloseall			if no window
	la	r31,windowptr
	stw	r3,0(r31)

	addi	r29,r0,-1
	la	r31,oldfreemem
	stw	r29,0(r31)

* the main loop - display the figure, then wait, then loop
mainloop
	addi	r4,r0,MEMF_PUBLIC
	addi	r31,r0,_LVOAvailMem
	lw	r26,_SysBase
	RUN680X0

* got free mem, see if changed since last time
	la	r29,oldfreemem
	lwz	r29,0(r29)
	subfco	r31,r29,r3
	cmp	0,0,r3,r29
	beq	messagetest			dont print if the same

	la	r31,oldfreemem
	stw	r3,0(r31)

* free memory in d0.l, so convert to a hex string
* converting to decimal is left as an exercise to the reader!

	la	r20,thestring
	la	r31,hexconvert
	la	r29,P_AAAAAAAFK
	stwu	r29,-4(r13)
	mtlr	r31
	bclr	$14,0
P_AAAAAAAFK

* replace leading zeros with spaces
	la	r20,thestring
	addi	r3,r0,7-1
convspaces
	addi	r29,r0,'0'
	lbz	r30,0(r20)
	extsb	r29,r29
	extsb	r30,r30
	subfco	r31,r29,r30
	cmp	0,0,r30,r29
	bne	noconvspaces
	addi	r29,r0,$20
	stb	r29,0(r20)
	addi	r20,r20,1
	extsh	r29,r3
	cmpi	2,0,r29,0
	beq	cr2,P_AAAAAAAGD
	subi	r29,r29,1
	rlwimi	r3,r29,0,16,31
	b	convspaces			convert them
P_AAAAAAAGD
	subi	r29,r29,1
	rlwimi	r3,r29,0,16,31
noconvspaces

* move the cursor to a suitable place
	addi	r3,r0,4
	addi	r4,r0,20
	la	r29,windowptr
	lwz	r21,0(r29)
	lwz	r21,wd_RPort(r21)
	addi	r31,r0,_LVOMove
	la	r26,_GfxBase
	lwz	r26,0(r26)
	RUN680X0

* and print the string
	la	r29,windowptr
	lwz	r21,0(r29)
	lwz	r21,wd_RPort(r21)
	la	r20,thestring
	addi	r3,r0,thestringlen
	addi	r31,r0,_LVOText
	la	r26,_GfxBase
	lwz	r26,0(r26)
	RUN680X0

* now see if a message is waiting for me
messagetest
	la	r29,windowptr
	lwz	r20,0(r29)
	lwz	r20,wd_UserPort(r20)
	addi	r31,r0,_LVOGetMsg
	lw	r26,_SysBase
	RUN680X0
	cmpi	0,0,r3,0
	beq	nomessage
* there was a message, which in our case must be CLOSEWINDOW,
* so we should reply then go away
	mr	r21,r3
	addi	r31,r0,_LVOReplyMsg
	lw	r26,_SysBase
	RUN680X0
	b	closewindow

* no messages waiting, so suspend myself for a short while then
* do it all agaun
nomessage
	addis	r4,r0,timeout>>16
	ori	r4,r4,timeout&$ffff
	addi	r31,r0,_LVODelay
	lw	r26,_DOSBase
	RUN680X0
	b	mainloop

* close clicked so close the window
closewindow
	la	r29,windowptr
	lwz	r20,0(r29)
	addi	r31,r0,_LVOCloseWindow
	la	r26,_IntuitionBase
	lwz	r26,0(r26)
	RUN680X0

* close all the libraries
goawaycloseall
	la	r29,_DOSBase
	lwz	r21,0(r29)
	addi	r31,r0,_LVOCloseLibrary
	lw	r26,_SysBase
	RUN680X0

* close the graphics library
goawayclosegraf
	la	r29,_GfxBase
	lwz	r21,0(r29)
	addi	r31,r0,_LVOCloseLibrary
	lw	r26,_SysBase
	RUN680X0

* finished so close Intuition library
goawaycloseint
	la	r29,_IntuitionBase
	lwz	r21,0(r29)
	addi	r31,r0,_LVOCloseLibrary
	lw	r26,_SysBase
	RUN680X0

goawayfast
	andi.	r3,r0,0
	mfctr	r0
	mtlr	r0
	popcr
	popgpr	r14-r31
	epilog

* convert d0.l into a string at (a0) onwards in hex
hexconvert
	addi	r4,r0,8-1
hexclp	
	rlwinm.	r3,r3,4,0,31
	mr	r5,r3
	addi	r29,r0,$f
	rlwinm	r30,r3,0,24,31
	and.	r30,r30,r29
	rlwimi	r3,r30,0,24,31
	addi	r29,r0,9
	extsb	r30,r3
	subfco	r31,r29,r30
	cmp	0,0,r30,r29
	ble	hexdig
	addi	r29,r0,7
	extsb	r30,r3
	addco.	r30,r30,r29
	rlwimi	r3,r30,0,24,31
hexdig	addi	r29,r0,'0'
	extsb	r30,r3
	extsb	r29,r29
	addco.	r30,r30,r29
	rlwimi	r3,r30,0,24,31
	stb	r3,0(r20)
	addi	r20,r20,1
	mr	r3,r5
	extsh	r29,r4
	cmpi	2,0,r29,0
	beq	cr2,P_AAAAAAAKN
	subi	r29,r29,1
	rlwimi	r4,r29,0,16,31
	b	hexclp		do all of the digits
P_AAAAAAAKN
	subi	r29,r29,1
	rlwimi	r4,r29,0,16,31
	lwz	r29,0(r13)
	addi	r13,r13,4
	mtlr	r29
	bclr	$14,0


* window definition here
windowdef	dc.w	50,50			x posn, y posn
	dc.w	200,25				width,height
	dc.b	-1,-1				default pens
	dc.l	CLOSEWINDOW			easy IDCMP flag
	dc.l	WINDOWDEPTH!WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWDRAG
	dc.l	0				no gadgets
	dc.l	0				no checkmarks
	dc.l	windowtitle			title of window
	dc.l	0				no screen
	dc.l	0				no bitmap
	dc.w	0,0,0,0				minimum, irrelevant as no sizing gadget
	dc.w	WBENCHSCREEN			in workbench

* strings here
intname		dc.b	'intuition.library',0
grafname	dc.b	'graphics.library',0
dosname		dc.b	'dos.library',0

windowtitle	dc.b	' ',$a9,' HiSoft 1992 ',0
thestring	dc.b	'00000000 bytes free'
thestringlen	equ	*-thestring

* variables here
_IntuitionBase	dc.l	0			for int library
_GfxBase	dc.l	0			for graphics library
_DOSBase	dc.l	0			for dos library
windowptr	dc.l	0			for window ptr
oldfreemem	dc.l	0			for freemem

	
fpio001	dc.d	0
fpio002	dc.d	0
fpio003	dc.d	0
fpio004	dc.d	0
fpio005	dc.d	0
fpio006	dc.d	0
fpio007	dc.d	0
fpio008	dc.d	0