mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-28 10:52:33 +00:00
64 lines
1.2 KiB
Plaintext
64 lines
1.2 KiB
Plaintext
|
NEW
|
|||
|
|
AUTO 3,1
|
|||
|
|
.LIST OFF
|
|||
|
|
*--------------------------------------
|
|||
|
|
* DLG.New hParent,W,H,pTitle 5
|
|||
|
|
*--------------------------------------
|
|||
|
|
DLG.New jsr OBJ.Create A = Class
|
|||
|
|
bcs .9
|
|||
|
|
|
|||
|
|
ldy #S.OBJ.pTitle
|
|||
|
|
jsr OBJ.PullWordY
|
|||
|
|
|
|||
|
|
jsr OBJ.PullHW
|
|||
|
|
|
|||
|
|
lda #S.OBJ.F.bTitle+S.OBJ.F.bHBorder+S.OBJ.F.bVBorder
|
|||
|
|
ldy #S.OBJ.F
|
|||
|
|
sta (ZPObjPtr),y
|
|||
|
|
|
|||
|
|
>PULLA
|
|||
|
|
ldy #S.OBJ.hParent
|
|||
|
|
sta (ZPObjPtr),y
|
|||
|
|
|
|||
|
|
>SYSCALL2 GetMemPtr
|
|||
|
|
>STYA ZPPtr2
|
|||
|
|
|
|||
|
|
ldy #S.CTX.W
|
|||
|
|
lda (ZPPtr2),y
|
|||
|
|
sec
|
|||
|
|
ldy #S.OBJ.W
|
|||
|
|
sbc (ZPObjPtr),y
|
|||
|
|
lsr
|
|||
|
|
ldy #S.OBJ.X1
|
|||
|
|
sta (ZPObjPtr),y
|
|||
|
|
|
|||
|
|
ldy #S.CTX.H
|
|||
|
|
lda (ZPPtr2),y
|
|||
|
|
sec
|
|||
|
|
ldy #S.OBJ.H
|
|||
|
|
sbc (ZPObjPtr),y
|
|||
|
|
lsr
|
|||
|
|
ldy #S.OBJ.Y1
|
|||
|
|
sta (ZPObjPtr),y
|
|||
|
|
|
|||
|
|
jmp OBJ.SetX2Y2
|
|||
|
|
|
|||
|
|
.9 >POP 5
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
DLG.Destroy clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
DLG.Run .EQ CONT.Run
|
|||
|
|
*--------------------------------------
|
|||
|
|
DLG.Draw .EQ CONT.Draw
|
|||
|
|
*--------------------------------------
|
|||
|
|
DLG.Activate .EQ CONT.Activate
|
|||
|
|
*--------------------------------------
|
|||
|
|
DLG.Deactivate .EQ CONT.Deactivate
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE usr/src/lib/libtui.s.dlg
|
|||
|
|
LOAD usr/src/lib/libtui.s
|
|||
|
|
ASM
|