A2osX/LIB/LIBGUI.S.BUT.txt

NEW
  AUTO 3,1
*--------------------------------------
BUT.New			>STYA ZPPtr1

				ldy #S.OBJ.W
				lda (ZPPtr1),y
				iny
				ora (ZPPtr1),y
				bne .1					W in !NULL, static size

				ldy #S.BUT.hBM
				lda (ZPPtr1),y
				beq .1
				ldy #S.BM.W
*				>SYSCALL2 GetStkObjProp

				phy
				ldy #S.OBJ.W+1
				sta (ZPPtr1),y
				dey
				pla
				sta (ZPPtr1),y

.1

				clc
				rts
*--------------------------------------
BUT.Draw

*--------------------------------------

*--------------------------------------
MAN
SAVE USR/SRC/LIB/LIBGUI.S.BUT
LOAD USR/SRC/LIB/LIBGUI.S
ASM
-												Kernel 0.9.1 : KERNEL, Preemtive mode, Code cleaning....step by step....#5
GUI,DHGR cleaning /shrinking...
											
										
										
											2018-05-04 14:55:29 +00:00
+								NEW
-												Kernel 0.93+
											
										
										
											2019-07-30 08:57:25 +00:00
+								  AUTO 3,1
-												Kernel 0.9.1 : KERNEL, Preemtive mode, Code cleaning....step by step....#5
GUI,DHGR cleaning /shrinking...
											
										
										
											2018-05-04 14:55:29 +00:00
+								*--------------------------------------
 								BUT.New			>STYA ZPPtr1
-												Kernel 0.92
											
										
										
											2019-01-10 16:26:58 +00:00
+												ldy #S.OBJ.W
-												Kernel 0.9.1 : KERNEL, room in MEM API to add missing GetStkObjProperty function 
											
										
										
											2018-05-07 14:59:51 +00:00
+												lda (ZPPtr1),y
 												iny
 												ora (ZPPtr1),y
-												Kernel 0.92
											
										
										
											2019-01-08 16:29:26 +00:00
+												bne .1					W in !NULL, static size
-												Kernel 0.9.1 : KERNEL, room in MEM API to add missing GetStkObjProperty function 
											
										
										
											2018-05-07 14:59:51 +00:00
-												Kernel 0.9.1 : KERNEL, Preemtive mode, Code cleaning....step by step....#5
GUI,DHGR cleaning /shrinking...
											
										
										
											2018-05-04 14:55:29 +00:00
+												ldy #S.BUT.hBM
 												lda (ZPPtr1),y
-												Kernel 0.9.1 : KERNEL, room in MEM API to add missing GetStkObjProperty function 
											
										
										
											2018-05-07 14:59:51 +00:00
+												beq .1
 												ldy #S.BM.W
-												Kernel 0.93+
											
										
										
											2019-07-30 15:35:42 +00:00
+								*				>SYSCALL2 GetStkObjProp
-												Kernel 0.9.1 : KERNEL, room in MEM API to add missing GetStkObjProperty function 
											
										
										
											2018-05-07 14:59:51 +00:00
 												phy
-												Kernel 0.92
											
										
										
											2019-01-10 16:26:58 +00:00
+												ldy #S.OBJ.W+1
-												Kernel 0.9.1 : KERNEL, room in MEM API to add missing GetStkObjProperty function 
											
										
										
											2018-05-07 14:59:51 +00:00
+												sta (ZPPtr1),y
 												dey
 												pla
 												sta (ZPPtr1),y
-												Kernel 0.92
											
										
										
											2019-01-08 16:29:26 +00:00
 								.1
 												clc
 												rts
-												Kernel 0.9.1 : KERNEL, Preemtive mode, Code cleaning....step by step....#5
GUI,DHGR cleaning /shrinking...
											
										
										
											2018-05-04 14:55:29 +00:00
+								*--------------------------------------
 								BUT.Draw
 								*--------------------------------------
 								*--------------------------------------
 								MAN
-												Kernel 0.92
											
										
										
											2018-11-17 17:17:13 +00:00
+								SAVE USR/SRC/LIB/LIBGUI.S.BUT
 								LOAD USR/SRC/LIB/LIBGUI.S
-												Kernel 0.9.1 : KERNEL, Preemtive mode, Code cleaning....step by step....#5
GUI,DHGR cleaning /shrinking...
											
										
										
											2018-05-04 14:55:29 +00:00
+								ASM