Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-29 22:49:28 +00:00
Code Issues Projects Releases Wiki Activity

DeskTop: MLI CREATE/SET_MARK calls

Browse Source
This commit is contained in:
Joshua Bell 2018-01-13 23:58:16 -08:00
parent 71c7c07847
commit a12edfb229
1 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
desktop/desktop.s
View File

@ -7160,11 +7160,21 @@ L4F66: rts
L4F67: .byte $00 L4F67: .byte $00
L4F68: .byte $00 L4F68: .byte $00
L4F69: .byte $00 L4F69: .byte $00
L4F6A: .byte $07,$76,$4F,$C3,$0F,$00,$00
.byte $0D .proc create_params
L4F72: .byte $00,$00,$00,$00 params: .byte 7
path: .addr $4F76
access: .byte $C3
type: .byte $0F
auxtype:.word 0
storage:.byte $0D
cdate: .word 0
ctime: .word 0
.endproc
L4F76: .res 64 L4F76: .res 64
.byte $00 .byte $00
lda desktop_winid lda desktop_winid
sta L4F67 sta L4F67
ldy #$03 ldy #$03
@ -7197,11 +7207,11 @@ L4FF6: lda (L0006),y
dey dey
bpl L4FF6 bpl L4FF6
ldx #$03 ldx #$03
L5000: lda $BF90,x L5000: lda DATELO,x
sta L4F72,x sta create_params::cdate,x
dex dex
bpl L5000 bpl L5000
MLI_RELAY_CALL CREATE, L4F6A MLI_RELAY_CALL CREATE, create_params
beq L5027 beq L5027
jsr DESKTOP_SHOW_ALERT0 jsr DESKTOP_SHOW_ALERT0
lda L504E lda L504E
@ -14176,11 +14186,11 @@ ref_num:.byte 0
str_desktop2: str_desktop2:
PASCAL_STRING "DeskTop2" PASCAL_STRING "DeskTop2"
L8E71: .byte $02 .proc set_mark_params
L8E72: .byte $00 params: .byte 2
L8E73: .byte $00 ref_num:.byte 0
L8E74: .byte $00 pos: .faraddr 0
L8E75: .byte $00 .endproc
.proc read_params2 .proc read_params2
params: .byte 4 params: .byte 4
@ -14209,11 +14219,11 @@ L8E8F: pla
asl a asl a
tax tax
lda L8E1A,x lda L8E1A,x
sta L8E73 sta set_mark_params::pos
lda L8E1B,x lda L8E1B,x
sta L8E74 sta set_mark_params::pos+1
lda L8E1C,x lda L8E1C,x
sta L8E75 sta set_mark_params::pos+2
lda L8E3E,y lda L8E3E,y
sta read_params2::request sta read_params2::request
lda L8E3F,y lda L8E3F,y
@ -14233,8 +14243,8 @@ L8EBE: MLI_RELAY_CALL OPEN, open_params2
L8ED6: lda open_params2::ref_num L8ED6: lda open_params2::ref_num
sta read_params2::ref_num sta read_params2::ref_num
sta L8E72 sta set_mark_params::ref_num
MLI_RELAY_CALL SET_MARK, L8E71 MLI_RELAY_CALL SET_MARK, set_mark_params
MLI_RELAY_CALL READ, read_params2 MLI_RELAY_CALL READ, read_params2
MLI_RELAY_CALL CLOSE, close_params2 MLI_RELAY_CALL CLOSE, close_params2
rts rts