Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-10-06 06:54:46 +00:00
Code Issues Projects Releases Wiki Activity
main
antoine-source/TrueConvert/True.File.s
Antoine Vignau 4d4fb6a665 Let's free the code!! 
Some old (WIP) disassemblies and my own source code now available online.
2024-07-23 23:38:22 +02:00

886 lines
12 KiB
ArmAsm
Raw Permalink Blame History

*----------------------------------------
* 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
Reference in New Issue View Git Blame Copy Permalink