2020-10-26 06:38:50 +00:00
|
|
|
|
NEW
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
*--------------------------------------
|
2022-10-18 05:56:59 +00:00
|
|
|
|
* A = Object Class
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
OBJ.New pha
|
|
|
|
|
tax
|
|
|
|
|
ldy OBJ.SizeOf,x
|
|
|
|
|
lda #0
|
|
|
|
|
|
|
|
|
|
>SYSCALL GetMem
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
>STYA ZPObjPtr
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
sta (ZPObjPtr)
|
|
|
|
|
|
2022-11-02 06:54:30 +00:00
|
|
|
|
tay
|
|
|
|
|
lda OBJ.SizeOf,y
|
|
|
|
|
tay
|
2022-10-18 05:56:59 +00:00
|
|
|
|
dey
|
|
|
|
|
lda #0
|
|
|
|
|
|
|
|
|
|
.1 sta (ZPObjPtr),y
|
|
|
|
|
dey
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
* clc
|
|
|
|
|
|
2022-11-02 06:54:30 +00:00
|
|
|
|
.9 rts
|
2022-10-18 05:56:59 +00:00
|
|
|
|
*--------------------------------------
|
2020-10-26 06:38:50 +00:00
|
|
|
|
* hOBJ, Prop8, Value16
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
OBJ.SetProp ldy #3
|
|
|
|
|
|
|
|
|
|
lda (pStack),y hOBJ
|
|
|
|
|
|
|
|
|
|
>SYSCALL2 GetMemPtr
|
|
|
|
|
>STYA ZPObjPtr
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
lda (pStack),y
|
|
|
|
|
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
pha old value
|
|
|
|
|
>PULLA
|
|
|
|
|
sta (ZPObjPtr),y
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
tax
|
|
|
|
|
>PULLA
|
|
|
|
|
sta (ZPObjPtr),y
|
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
ply
|
|
|
|
|
|
|
|
|
|
>RET 2
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* hOBJ, Prop8
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
OBJ.GetProp >PULLA
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
>PULLA
|
|
|
|
|
>SYSCALL2 GetMemPtr
|
|
|
|
|
>STYA ZPObjPtr
|
|
|
|
|
|
|
|
|
|
ply
|
|
|
|
|
|
2022-11-02 06:54:30 +00:00
|
|
|
|
OBJ.GetPropAtY lda (ZPObjPtr),y
|
2020-10-26 06:38:50 +00:00
|
|
|
|
pha
|
|
|
|
|
iny
|
2022-11-02 06:54:30 +00:00
|
|
|
|
ora (ZPObjPtr),y
|
|
|
|
|
clc
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPObjPtr),y
|
2020-10-26 06:38:50 +00:00
|
|
|
|
ply
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2022-10-18 05:56:59 +00:00
|
|
|
|
OBJ.SetX2Y2 >STYA ZPPtr1
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.W
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
clc
|
|
|
|
|
sbc #0
|
|
|
|
|
pha
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sbc #0
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
clc
|
|
|
|
|
ldy #S.OBJ.X1
|
|
|
|
|
adc (ZPPtr1),y
|
|
|
|
|
pha
|
|
|
|
|
txa
|
|
|
|
|
iny
|
|
|
|
|
adc (ZPPtr1),y
|
|
|
|
|
ldy #S.OBJ.X2+1
|
|
|
|
|
sta (ZPPtr1),y
|
|
|
|
|
dey
|
|
|
|
|
pla
|
|
|
|
|
sta (ZPPtr1),y
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.H
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
clc
|
|
|
|
|
sbc #0
|
|
|
|
|
pha
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
sbc #0
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
clc
|
|
|
|
|
ldy #S.OBJ.Y1
|
|
|
|
|
adc (ZPPtr1),y
|
|
|
|
|
pha
|
|
|
|
|
txa
|
|
|
|
|
iny
|
|
|
|
|
adc (ZPPtr1),y
|
|
|
|
|
ldy #S.OBJ.Y2+1
|
|
|
|
|
sta (ZPPtr1),y
|
2022-10-25 06:05:54 +00:00
|
|
|
|
tax
|
2022-10-18 05:56:59 +00:00
|
|
|
|
dey
|
|
|
|
|
pla
|
2022-10-25 06:05:54 +00:00
|
|
|
|
sta (ZPPtr1),y A,X = Y2
|
2022-10-18 05:56:59 +00:00
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2022-11-02 06:54:30 +00:00
|
|
|
|
OBJ.SetAXAtY sta (ZPObjPtr),y
|
|
|
|
|
iny
|
|
|
|
|
txa
|
|
|
|
|
sta (ZPObjPtr),y
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
OBJ.PullWordAtY >PULLA
|
|
|
|
|
sta (ZPObjPtr),y
|
|
|
|
|
iny
|
|
|
|
|
|
|
|
|
|
OBJ.PullByteAtY >PULLA
|
|
|
|
|
sta (ZPObjPtr),y
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
OBJ.PullHWND >PULLA
|
|
|
|
|
|
|
|
|
|
OBJ.GetHWNDA >SYSCALL2 GetMemPtr
|
|
|
|
|
>STYA ZPWNDPtr
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2022-10-25 06:05:54 +00:00
|
|
|
|
OBJ.DrawBorders >STYA ZPObjPtr
|
|
|
|
|
stx IY
|
|
|
|
|
|
2022-10-27 15:14:06 +00:00
|
|
|
|
jsr CB.BorderLineH
|
2022-10-25 06:05:54 +00:00
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.X1
|
|
|
|
|
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
sec
|
|
|
|
|
sbc IY
|
|
|
|
|
sta CB.Cache+S.CB.X1
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
sbc #0
|
|
|
|
|
sta CB.Cache+S.CB.X1+1
|
|
|
|
|
|
|
|
|
|
iny #S.OBJ.Y1
|
|
|
|
|
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
sec
|
|
|
|
|
sbc IY
|
|
|
|
|
sta CB.Cache+S.CB.Y1
|
|
|
|
|
sta CB.Cache+S.CB.Y2
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
sbc #0
|
|
|
|
|
sta CB.Cache+S.CB.Y1+1
|
|
|
|
|
sta CB.Cache+S.CB.Y2+1 top X1-1,Y1-1,X2+1,Y1-1
|
|
|
|
|
|
|
|
|
|
iny #S.OBJ.X2
|
|
|
|
|
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
clc
|
|
|
|
|
adc IY
|
|
|
|
|
sta CB.Cache+S.CB.X2
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
adc #0
|
|
|
|
|
sta CB.Cache+S.CB.X2+1
|
|
|
|
|
|
|
|
|
|
jsr CB.Cache2CBBuf
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.Y2
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
clc
|
|
|
|
|
adc IY
|
|
|
|
|
sta CB.Cache+S.CB.Y1
|
|
|
|
|
sta CB.Cache+S.CB.Y2
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
adc #0
|
|
|
|
|
sta CB.Cache+S.CB.Y1+1
|
|
|
|
|
sta CB.Cache+S.CB.Y2+1 bottom X1-1,Y2+1,X2+1,Y2+1
|
|
|
|
|
|
|
|
|
|
jsr CB.Cache2CBBuf
|
|
|
|
|
|
|
|
|
|
lda #S.CB.CMD.VLINE
|
|
|
|
|
sta CB.Cache+S.CB.CMD
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.Y1
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
sec
|
|
|
|
|
sbc IY
|
|
|
|
|
sta CB.Cache+S.CB.Y1
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
sbc #0
|
|
|
|
|
sta CB.Cache+S.CB.Y1+1
|
|
|
|
|
|
|
|
|
|
lda CB.Cache+S.CB.X1
|
|
|
|
|
sta CB.Cache+S.CB.X2
|
|
|
|
|
lda CB.Cache+S.CB.X1+1
|
|
|
|
|
sta CB.Cache+S.CB.X2+1 left X1-1,Y1-1,X1-1,Y2+1
|
|
|
|
|
|
|
|
|
|
jsr CB.Cache2CBBuf
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.X2
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
clc
|
|
|
|
|
adc IY
|
|
|
|
|
sta CB.Cache+S.CB.X1
|
|
|
|
|
sta CB.Cache+S.CB.X2
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
adc #0
|
|
|
|
|
sta CB.Cache+S.CB.X1+1
|
|
|
|
|
sta CB.Cache+S.CB.X2+1 right X2+1,Y1-1,X2+1,Y2+1
|
|
|
|
|
|
|
|
|
|
jmp CB.Cache2CBBuf
|
|
|
|
|
*-------------------------------------
|
|
|
|
|
|
2022-10-18 05:56:59 +00:00
|
|
|
|
*--------------------------------------
|
2020-10-26 06:38:50 +00:00
|
|
|
|
MAN
|
|
|
|
|
SAVE usr/src/lib/libgui.s.obj
|
|
|
|
|
LOAD usr/src/lib/libgui.s
|
|
|
|
|
ASM
|