2021-12-02 21:28:26 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
.LIST OFF
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* DLG.New hParent,W,H,pTitle 5
|
|
|
|
|
|
*--------------------------------------
|
2022-09-04 20:12:49 +00:00
|
|
|
|
DLG.New lda #S.OBJ.T.DLG
|
|
|
|
|
|
jsr OBJ.Create
|
2021-12-02 21:28:26 +00:00
|
|
|
|
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
|
|
|
|
|
|
|
2023-05-01 07:35:39 +00:00
|
|
|
|
ldy #S.OBJ.W
|
2021-12-02 21:28:26 +00:00
|
|
|
|
lda (ZPPtr2),y
|
|
|
|
|
|
sec
|
|
|
|
|
|
sbc (ZPObjPtr),y
|
|
|
|
|
|
lsr
|
|
|
|
|
|
ldy #S.OBJ.X1
|
|
|
|
|
|
sta (ZPObjPtr),y
|
|
|
|
|
|
|
2023-05-01 07:35:39 +00:00
|
|
|
|
ldy #S.OBJ.H
|
2021-12-02 21:28:26 +00:00
|
|
|
|
lda (ZPPtr2),y
|
|
|
|
|
|
sec
|
|
|
|
|
|
sbc (ZPObjPtr),y
|
|
|
|
|
|
lsr
|
|
|
|
|
|
ldy #S.OBJ.Y1
|
|
|
|
|
|
sta (ZPObjPtr),y
|
|
|
|
|
|
|
2022-09-04 20:12:49 +00:00
|
|
|
|
jsr OBJ.SetX2Y2
|
2023-03-26 17:42:38 +00:00
|
|
|
|
|
2022-09-04 20:12:49 +00:00
|
|
|
|
lda hObj
|
|
|
|
|
|
* clc
|
2023-03-26 17:42:38 +00:00
|
|
|
|
rts
|
|
|
|
|
|
|
2021-12-02 21:28:26 +00:00
|
|
|
|
.9 >POP 5
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE usr/src/lib/libtui.s.dlg
|
|
|
|
|
|
LOAD usr/src/lib/libtui.s
|
|
|
|
|
|
ASM
|
