mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-16 06:29:46 +00:00
886 lines
12 KiB
ArmAsm
886 lines
12 KiB
ArmAsm
*----------------------------------------
|
|
* TrueConvert : Standard File
|
|
*----------------------------------------
|
|
|
|
ButtonItem = $0a
|
|
StatText = $0f
|
|
EditLine = $11
|
|
UserItem = $14
|
|
ItemDisable = $8000
|
|
|
|
*--------------
|
|
|
|
stdOPEN jsr GSOSsetOPEN
|
|
|
|
PushWord #120
|
|
PushWord #43
|
|
PushWord #refIsResource
|
|
PushLong #loadSTR
|
|
PushLong #0
|
|
PushLong #fileLIST
|
|
PushLong #replyPTR
|
|
_SFGetFile2
|
|
|
|
jsr GSOSgetOPEN
|
|
|
|
lda replyPTR
|
|
bne stdOPEN1
|
|
sec
|
|
rts
|
|
stdOPEN1 clc
|
|
rts
|
|
|
|
*----------------------------------- Standard save
|
|
|
|
stdSAVE jsr GSOSsetSAVE
|
|
|
|
PushWord #160
|
|
PushWord #40
|
|
PushWord #refIsResource
|
|
PushLong #saveSTR
|
|
PushWord #0
|
|
PushLong #namePTR1
|
|
PushLong #replyPTR
|
|
_SFPutFile2
|
|
|
|
jsr GSOSgetSAVE
|
|
|
|
lda replyPTR
|
|
bne stdSAVE1
|
|
sec
|
|
rts
|
|
stdSAVE1 clc
|
|
rts
|
|
|
|
*--------------
|
|
|
|
stdOPEN2 jsr GSOSsetOPEN
|
|
|
|
lda #replyPTR
|
|
stal $340
|
|
lda #^replyPTR
|
|
stal $342
|
|
|
|
PushWord #120 ; whereX
|
|
PushWord #33 ; whereY
|
|
PushLong #0 ; itemDrawPtr
|
|
PushWord #refIsResource ; promptRefDesc
|
|
PushLong #loadSTR ; promptRef
|
|
PushLong #0 ; filterProcPtr
|
|
PushLong #fileLIST ; typeListPtr
|
|
PushLong #openLIST ; dialogTempPtr
|
|
PushLong #openHOOK ; dialogHookPtr
|
|
PushLong #replyPTR ; replyPtr
|
|
_SFPGetFile2
|
|
|
|
jsr GSOSgetOPEN
|
|
|
|
lda replyPTR
|
|
bne stdOPEN3
|
|
sec
|
|
rts
|
|
stdOPEN3 clc
|
|
rts
|
|
|
|
*--------------
|
|
|
|
stdSAVE2 jsr GSOSsetSAVE
|
|
|
|
PushWord #160 ; whereX
|
|
PushWord #30 ; whereY
|
|
PushLong #0 ; itemDrawPtr
|
|
PushWord #refIsResource ; promptRefDesc
|
|
PushLong #saveSTR ; promptRef
|
|
PushWord #refIsPointer ; filenameRefDesc
|
|
PushLong #namePTR1 ; filenameRef
|
|
PushLong #saveLIST ; dialogTempPtr
|
|
PushLong #saveHOOK ; dialogHookPtr
|
|
PushLong #replyPTR ; replyPtr
|
|
_SFPPutFile2
|
|
|
|
jsr GSOSgetSAVE
|
|
|
|
lda replyPTR
|
|
bne stdSAVE3
|
|
sec
|
|
rts
|
|
stdSAVE3 clc
|
|
rts
|
|
|
|
*---------------------------------------
|
|
* DIALOG HOOKS
|
|
*---------------------------------------
|
|
|
|
*--- Dialog Hook for OPEN
|
|
|
|
openHOOK phb ; DialogHook
|
|
phk
|
|
plb
|
|
tdc
|
|
sta saveDP
|
|
lda myDP
|
|
tcd
|
|
pla
|
|
sta openHOOK4+1
|
|
pla
|
|
sta openHOOK3+1
|
|
pla
|
|
sta Debut
|
|
pla
|
|
sta Debut+2
|
|
|
|
lda [Debut]
|
|
cmp #100
|
|
beq openHOOK1
|
|
bra openHOOK2
|
|
|
|
openHOOK1 lda #0
|
|
sta [Debut]
|
|
|
|
PushLong #mouseLOC
|
|
_GetMouse
|
|
PushLong #mouseLOC
|
|
_LocalToGlobal
|
|
PushWord #0
|
|
PushLong mouseLOC
|
|
PushLong #0
|
|
PushLong haPOPUPOPEN
|
|
_TrackControl
|
|
pla
|
|
beq openHOOK2
|
|
ply
|
|
plx
|
|
pea $0000
|
|
pea $0000
|
|
pea $0000
|
|
phx
|
|
phy
|
|
PushLong #100
|
|
_GetCtlHandleFromID
|
|
_GetCtlValue
|
|
pla
|
|
sta ctlPOPUPOPEN1
|
|
sec
|
|
sbc #100
|
|
sta menuOPEN
|
|
bra openHOOK3
|
|
|
|
openHOOK2 pla
|
|
pla
|
|
|
|
openHOOK3 pea $0000
|
|
openHOOK4 pea $0000
|
|
|
|
lda saveDP
|
|
tcd
|
|
plb
|
|
rtl
|
|
|
|
*--- Draw PopUp OPEN
|
|
|
|
drawPOPUPOPEN phb ; DrawPopUp
|
|
phk
|
|
plb
|
|
tdc
|
|
sta saveDP
|
|
lda myDP
|
|
tcd
|
|
pla
|
|
sta drawPOPUPOPEN2+1
|
|
pla
|
|
sta drawPOPUPOPEN1+1
|
|
pla
|
|
plx
|
|
pla
|
|
pea $0000
|
|
pea $0000
|
|
pha
|
|
phx
|
|
pea $0000
|
|
PushLong #ctlPOPUPOPEN
|
|
_NewControl2
|
|
PullLong haPOPUPOPEN
|
|
PushLong haPOPUPOPEN
|
|
_SetMenuBar
|
|
PushLong haPOPUPOPEN
|
|
_DrawOneCtl
|
|
|
|
drawPOPUPOPEN1 pea $0000
|
|
drawPOPUPOPEN2 pea $0000
|
|
|
|
lda saveDP
|
|
tcd
|
|
plb
|
|
rtl
|
|
|
|
*--- Dialog Hook for SAVE
|
|
|
|
saveHOOK phb ; DialogHook
|
|
phk
|
|
plb
|
|
tdc
|
|
sta saveDP
|
|
lda myDP
|
|
tcd
|
|
pla
|
|
sta saveHOOK6+1
|
|
sta saveHOOK15+1
|
|
pla
|
|
sta saveHOOK5+1
|
|
sta saveHOOK14+1
|
|
pla
|
|
sta Debut
|
|
pla
|
|
sta Debut+2
|
|
|
|
lda [Debut]
|
|
cmp #200
|
|
beq saveHOOK1
|
|
cmp #300
|
|
beq saveHOOK0
|
|
brl saveHOOK4
|
|
saveHOOK0 brl saveHOOK10
|
|
|
|
*--- PopUp Colors
|
|
|
|
saveHOOK1 lda #0 ; MODE
|
|
sta [Debut]
|
|
|
|
PushLong #mouseLOC
|
|
_GetMouse
|
|
PushLong #mouseLOC
|
|
_LocalToGlobal
|
|
PushWord #0
|
|
PushLong mouseLOC
|
|
PushLong #0
|
|
PushLong haPOPUPSAVE1
|
|
_TrackControl
|
|
pla
|
|
bne saveHOOK2
|
|
brl saveHOOK4
|
|
saveHOOK2 ply
|
|
plx
|
|
pea $0000
|
|
pea $0000
|
|
pea $0000
|
|
phx
|
|
phy
|
|
PushLong #200
|
|
_GetCtlHandleFromID
|
|
_GetCtlValue
|
|
pla
|
|
sta ctlPOPUPSAVE1
|
|
sec
|
|
sbc #200
|
|
sta menuSAVE1
|
|
cmp #5 ; PrintShop ?
|
|
beq saveHOOK3
|
|
|
|
PushLong haPOPUPSAVE10 ; non !
|
|
_SetMenuBar
|
|
PushWord #302
|
|
_EnableMItem
|
|
PushWord #303
|
|
_EnableMItem
|
|
PushWord #304
|
|
_EnableMItem
|
|
PushWord #305
|
|
_EnableMItem
|
|
PushLong haPOPUPSAVE10
|
|
_DrawOneCtl
|
|
bra saveHOOK5
|
|
|
|
saveHOOK3 PushLong haPOPUPSAVE10 ; oui !
|
|
_SetMenuBar
|
|
PushWord #302
|
|
_DisableMItem
|
|
PushWord #303
|
|
_DisableMItem
|
|
PushWord #304
|
|
_DisableMItem
|
|
PushWord #305
|
|
_DisableMItem
|
|
PushLong haPOPUPSAVE10
|
|
_DrawOneCtl
|
|
bra saveHOOK5
|
|
|
|
saveHOOK4 pla
|
|
pla
|
|
|
|
saveHOOK5 pea $0000
|
|
saveHOOK6 pea $0000
|
|
|
|
lda saveDP
|
|
tcd
|
|
plb
|
|
rtl
|
|
|
|
*--- PopUp Format de sauvegarde
|
|
|
|
saveHOOK10 lda #0 ; FORMAT
|
|
sta [Debut]
|
|
|
|
PushLong #mouseLOC
|
|
_GetMouse
|
|
PushLong #mouseLOC
|
|
_LocalToGlobal
|
|
PushWord #0
|
|
PushLong mouseLOC
|
|
PushLong #0
|
|
PushLong haPOPUPSAVE10
|
|
_TrackControl
|
|
pla
|
|
bne saveHOOK11
|
|
brl saveHOOK13
|
|
saveHOOK11 ply
|
|
plx
|
|
pea $0000
|
|
pea $0000
|
|
pea $0000
|
|
phx
|
|
phy
|
|
PushLong #300
|
|
_GetCtlHandleFromID
|
|
_GetCtlValue
|
|
pla
|
|
sta ctlPOPUPSAVE11
|
|
sec
|
|
sbc #300
|
|
sta menuSAVE10
|
|
|
|
lda fgFORMATS+8 ; PrintShop available ?
|
|
bne saveHOOK111
|
|
brl saveHOOK14
|
|
|
|
saveHOOK111 lda menuSAVE10 ; Format GS ?
|
|
cmp #1
|
|
beq saveHOOK12
|
|
|
|
PushLong haPOPUPSAVE1
|
|
_SetMenuBar
|
|
PushWord #205
|
|
_DisableMItem
|
|
PushLong haPOPUPSAVE1
|
|
_DrawOneCtl
|
|
bra saveHOOK14
|
|
|
|
saveHOOK12 PushLong haPOPUPSAVE1
|
|
_SetMenuBar
|
|
PushWord #205
|
|
_EnableMItem
|
|
PushLong haPOPUPSAVE1
|
|
_DrawOneCtl
|
|
bra saveHOOK14
|
|
|
|
saveHOOK13 pla
|
|
pla
|
|
|
|
saveHOOK14 pea $0000
|
|
saveHOOK15 pea $0000
|
|
|
|
lda saveDP
|
|
tcd
|
|
plb
|
|
rtl
|
|
|
|
*--- Draw PopUp SAVE
|
|
|
|
drawPOPUPSAVE phb ; DrawPopUp
|
|
phk
|
|
plb
|
|
tdc
|
|
sta saveDP
|
|
lda myDP
|
|
tcd
|
|
pla
|
|
sta drawPOPUPSAVE2+1
|
|
pla
|
|
sta drawPOPUPSAVE1+1
|
|
pla
|
|
plx
|
|
stx ctlTEMP
|
|
pla
|
|
sta ctlTEMP+2
|
|
pea $0000
|
|
pea $0000
|
|
pha
|
|
phx
|
|
pea $0000
|
|
PushLong #ctlPOPUPSAVE
|
|
_NewControl2
|
|
PullLong haPOPUPSAVE1
|
|
|
|
jsr getFORMATS
|
|
|
|
pea $0000
|
|
pea $0000
|
|
PushLong ctlTEMP
|
|
pea $0000
|
|
PushLong #ctlPOPUPSAVE10
|
|
_NewControl2
|
|
PullLong haPOPUPSAVE10
|
|
PushLong haPOPUPSAVE10
|
|
_SetMenuBar
|
|
PushLong haPOPUPSAVE10
|
|
_DrawOneCtl
|
|
|
|
drawPOPUPSAVE1 pea $0000
|
|
drawPOPUPSAVE2 pea $0000
|
|
|
|
lda saveDP
|
|
tcd
|
|
plb
|
|
rtl
|
|
|
|
*---
|
|
|
|
*getFORMATS lda ptrCODE
|
|
* sta Debut
|
|
* lda ptrCODE+2
|
|
* sta Debut+2
|
|
*
|
|
* ldy #$130
|
|
* ldx #0
|
|
*]lp lda [Debut],y
|
|
* sta fgFORMATS,x
|
|
* iny
|
|
* iny
|
|
* inx
|
|
* inx
|
|
* cpx #2*5
|
|
* bne ]lp
|
|
*
|
|
* ldy #$140 ; Last conversion made
|
|
* lda [Debut],y
|
|
* sta temp
|
|
* asl
|
|
* tax
|
|
* lda fgFORMATS,x
|
|
* bne getFORMATS1
|
|
|
|
getFORMATS ldx #0
|
|
]lp lda fgFORMATS,x
|
|
bne getFORMATS0
|
|
inx
|
|
inx
|
|
cpx #2*8
|
|
bne ]lp
|
|
ldx #0
|
|
getFORMATS0 txa
|
|
lsr
|
|
sta temp
|
|
|
|
getFORMATS1 lda temp
|
|
inc
|
|
sta menuSAVE1
|
|
clc
|
|
adc #200
|
|
sta ctlPOPUPSAVE1
|
|
|
|
PushLong haPOPUPSAVE1
|
|
_SetMenuBar
|
|
|
|
PushWord #201 ; None selected
|
|
_DisableMItem
|
|
PushWord #202
|
|
_DisableMItem
|
|
PushWord #203
|
|
_DisableMItem
|
|
PushWord #204
|
|
_DisableMItem
|
|
PushWord #205
|
|
_DisableMItem
|
|
PushWord #206
|
|
_DisableMItem
|
|
PushWord #207
|
|
_DisableMItem
|
|
PushWord #208
|
|
_DisableMItem
|
|
|
|
lda fgFORMATS
|
|
beq getFORMATS2
|
|
PushWord #201
|
|
_EnableMItem
|
|
getFORMATS2 lda fgFORMATS+2
|
|
beq getFORMATS3
|
|
PushWord #202
|
|
_EnableMItem
|
|
getFORMATS3 lda fgFORMATS+4
|
|
beq getFORMATS4
|
|
PushWord #203
|
|
_EnableMItem
|
|
getFORMATS4 lda fgFORMATS+6
|
|
beq getFORMATS5
|
|
PushWord #204
|
|
_EnableMItem
|
|
getFORMATS5 lda fgFORMATS+8
|
|
beq getFORMATS6
|
|
PushWord #205
|
|
_EnableMItem
|
|
getFORMATS6 lda fgFORMATS+10
|
|
beq getFORMATS7
|
|
PushWord #206
|
|
_EnableMItem
|
|
getFORMATS7 lda fgFORMATS+12
|
|
beq getFORMATS8
|
|
PushWord #207
|
|
_EnableMItem
|
|
getFORMATS8 lda fgFORMATS+14
|
|
beq getFORMATS9
|
|
PushWord #208
|
|
_EnableMItem
|
|
|
|
getFORMATS9 PushLong haPOPUPSAVE1
|
|
_DrawOneCtl
|
|
|
|
lda fgFORMATS
|
|
ora fgFORMATS+2
|
|
ora fgFORMATS+4
|
|
ora fgFORMATS+6
|
|
ora fgFORMATS+8
|
|
ora fgFORMATS+10
|
|
ora fgFORMATS+12
|
|
ora fgFORMATS+14
|
|
sta fgSAVE
|
|
rts
|
|
|
|
*--------------
|
|
|
|
strSAVE str 'Save'
|
|
strOPEN str 'Open'
|
|
strCLOSE str 'Close'
|
|
strNEXT str 'Disk'
|
|
strCANCEL str 'Cancel'
|
|
strACCEPT str 'Accept'
|
|
strFREE str '^0 free of ^1 k.'
|
|
strFOLDER str 'New Folder'
|
|
|
|
openLIST dw 0,0,134,400
|
|
dw -1
|
|
dw 0,0
|
|
adrl openOPEN
|
|
adrl openCLOSE
|
|
adrl openNEXT
|
|
adrl openCANCEL
|
|
adrl openSCROLL
|
|
adrl openPATH
|
|
adrl openFILES
|
|
adrl openPROMPT
|
|
adrl openPOPUP
|
|
adrl 0
|
|
|
|
openOPEN dw 1
|
|
dw 61,265,73,375
|
|
dw ButtonItem
|
|
adrl strOPEN
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
openCLOSE dw 2
|
|
dw 79,265,91,375
|
|
dw ButtonItem
|
|
adrl strCLOSE
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
openNEXT dw 3
|
|
dw 25,265,37,375
|
|
dw ButtonItem
|
|
adrl strNEXT
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
openCANCEL dw 4
|
|
dw 97,265,109,375
|
|
dw ButtonItem
|
|
adrl strCANCEL
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
openSCROLL dw 5
|
|
dw 43,265,55,375
|
|
dw ButtonItem
|
|
adrl strACCEPT
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
openPATH dw 6
|
|
dw 12,15,24,395
|
|
dw UserItem
|
|
adrl 0
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
openFILES dw 7
|
|
dw 25,18,107,215
|
|
dw UserItem+ItemDisable
|
|
adrl 0
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
openPROMPT dw 8
|
|
dw 3,15,12,395
|
|
dw StatText+ItemDisable
|
|
adrl 0
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
openPOPUP dw 100
|
|
dw 112,18,128,273
|
|
dw UserItem
|
|
adrl drawPOPUPOPEN
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
*--- Data pour le PopUp OPEN
|
|
|
|
mouseLOC ds 4
|
|
ctlTEMP ds 4
|
|
|
|
haPOPUPOPEN ds 4
|
|
menuOPEN dw 1 ; Par Defaut
|
|
|
|
ctlPOPUPOPEN dw 10
|
|
adrl 100
|
|
dw 112,18,0,0
|
|
adrl $87000000
|
|
dw $0030
|
|
dw $1084
|
|
dw $0000
|
|
ds 4
|
|
adrl ctlPOPUPOPEN2
|
|
ctlPOPUPOPEN1 dw 101
|
|
ds 2
|
|
ds 2
|
|
|
|
ctlPOPUPOPEN2 asc '$$Load: \N100'00
|
|
asc '--IIgs Formats\N101'00
|
|
asc '--Windows/OS2 BMP\N102'00
|
|
asc '--Compuserve GIF\N103'00
|
|
asc '--IFF/LBM\N104'00
|
|
asc '--Paintbrush PCX\N105'00
|
|
asc '--TIFF\N106'00
|
|
asc '--Raw Binary PC\N107'00
|
|
asc '--Atari ST Formats\N108'00
|
|
asc '--Windows Icons\N109'00
|
|
asc '--Windows Cursors\N110'00
|
|
asc '--Mac Paint\N111'00
|
|
asc '.'
|
|
|
|
*---
|
|
|
|
saveLIST dw 0,0,140,320
|
|
dw -1
|
|
dw 0,0
|
|
adrl saveSAVE
|
|
adrl saveOPEN
|
|
adrl saveCLOSE
|
|
adrl saveNEXT
|
|
adrl saveCANCEL
|
|
adrl saveSCROLL
|
|
adrl savePATH
|
|
adrl saveFILES
|
|
adrl savePROMPT
|
|
adrl saveFILENAME
|
|
adrl saveFREE
|
|
adrl saveFOLDER
|
|
adrl savePOPUP1
|
|
adrl savePOPUP10
|
|
adrl $00000000
|
|
|
|
saveSAVE dw 1
|
|
dw 87,204,99,310
|
|
dw ButtonItem
|
|
adrl strSAVE
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
saveOPEN dw 2
|
|
dw 49,204,61,310
|
|
dw ButtonItem
|
|
adrl strOPEN
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
saveCLOSE dw 3
|
|
dw 64,204,76,310
|
|
dw ButtonItem
|
|
adrl strCLOSE
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
saveNEXT dw 4
|
|
dw 15,204,27,310
|
|
dw ButtonItem
|
|
adrl strNEXT
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
saveCANCEL dw 5
|
|
dw 104,204,116,310
|
|
dw ButtonItem
|
|
adrl strCANCEL
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
saveSCROLL dw 6
|
|
dw 0,0,0,0
|
|
dw UserItem
|
|
adrl 0
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
savePATH dw 7
|
|
dw 0,10,12,315
|
|
dw UserItem
|
|
adrl 0
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
saveFILES dw 8
|
|
dw 26,10,88,170
|
|
dw UserItem+ItemDisable
|
|
adrl 0
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
savePROMPT dw 9
|
|
dw 88,10,100,200
|
|
dw StatText+ItemDisable
|
|
adrl 0
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
saveFILENAME dw 10
|
|
dw 100,10,118,194
|
|
dw EditLine+ItemDisable
|
|
adrl 0
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
saveFREE dw 11
|
|
dw 12,10,22,200
|
|
dw StatText+ItemDisable
|
|
adrl strFREE
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
saveFOLDER dw 12
|
|
dw 29,204,41,310
|
|
dw ButtonItem
|
|
adrl strFOLDER
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
savePOPUP1 dw 200
|
|
dw 122,10,138,171
|
|
dw UserItem
|
|
adrl drawPOPUPSAVE
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
savePOPUP10 dw 300
|
|
dw 122,174,138,251
|
|
dw UserItem
|
|
adrl drawPOPUPSAVE
|
|
dw 0,0
|
|
adrl 0
|
|
|
|
*--- Data pour le PopUp SAVE
|
|
|
|
haPOPUPSAVE1 ds 4
|
|
haPOPUPSAVE10 ds 4
|
|
menuSAVE1 dw 1 ; Par Defaut
|
|
menuSAVE10 dw 1 ; Par Defaut
|
|
|
|
ctlPOPUPSAVE dw 10
|
|
adrl 200
|
|
dw 122,10,0,0
|
|
adrl $87000000
|
|
dw $0030
|
|
dw $1084
|
|
dw $0000
|
|
ds 4
|
|
adrl ctlPOPUPSAVE2
|
|
ctlPOPUPSAVE1 dw 201
|
|
ds 2
|
|
ds 2
|
|
|
|
ctlPOPUPSAVE2 asc '$$Depth: \N200'00
|
|
asc '-- 2 colors\N201'00
|
|
asc '-- 4 colors\N202'00
|
|
asc '-- 16 colors\N203'00
|
|
asc '-- 256 colors\N204'00
|
|
asc '-- 3200 colors\N205'00
|
|
asc '--32768 colors\N206'00
|
|
asc '-- High colors\N207'00
|
|
asc '-- True colors\N208'00
|
|
asc '.'
|
|
|
|
ctlPOPUPSAVE10 dw 10
|
|
adrl 300
|
|
dw 122,174,0,0
|
|
adrl $87000000
|
|
dw $0030
|
|
dw $1084
|
|
dw $0000
|
|
ds 4
|
|
adrl ctlPOPUPSAVE12
|
|
ctlPOPUPSAVE11 dw 301
|
|
ds 2
|
|
ds 2
|
|
|
|
ctlPOPUPSAVE12 asc '$$Format: \N300'00
|
|
asc '-- APF\N301'00
|
|
asc '-- BMP\N302'00
|
|
asc '-- PCX\N303'00
|
|
asc '--TIFF\N304'00
|
|
asc '-- BIN\N305'00
|
|
asc '-- RAW\N306'00
|
|
asc '.'
|
|
|
|
*--- Formats de sauvegarde
|
|
|
|
fgFORMATS dw 1,1,1,1,1,1,1,1
|
|
fgMODE ds 2
|
|
|
|
*---
|
|
|
|
listSUFFIX1 asc 'ABPTBR' ; Suffixes des noms de fichiers
|
|
listSUFFIX2 asc 'PMCIIA'
|
|
listSUFFIX3 asc 'FPXFNW'
|
|
|
|
fileLIST dw $0006
|
|
dw $8000 ; UNK
|
|
dw $0000
|
|
adrl $0000
|
|
dw $8000 ; TXT
|
|
dw $0004
|
|
adrl $0000
|
|
dw $8000 ; BIN
|
|
dw $0006
|
|
adrl $0000
|
|
dw $8000 ; PNT
|
|
dw $00c0
|
|
adrl $0000
|
|
dw $8000 ; PIC
|
|
dw $00c1
|
|
adrl $0000
|
|
dw $8000 ; USER 1
|
|
dw $00f1
|
|
adrl $0004
|
|
|
|
replyPTR ds 2 ; good
|
|
ds 2 ; fileType
|
|
ds 4 ; auxType
|
|
ds 2 ; nameRefDesc
|
|
adrl namePTR ; nameRef
|
|
ds 2 ; pathRefDesc
|
|
adrl pathPTR ; pathRef
|
|
|
|
namePTR dw 512
|
|
namePTR1 ds 510
|
|
|
|
pathPTR dw 512
|
|
pathPTR1 ds 510
|