mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-09 06:29:33 +00:00
263 lines
3.7 KiB
ArmAsm
263 lines
3.7 KiB
ArmAsm
*
|
|
* Le retour du Dr Genius
|
|
*
|
|
* (c) 1983, Loriciels
|
|
* (c) 2023, Brutal Deluxe Software (Apple II)
|
|
*
|
|
|
|
lst off
|
|
rel
|
|
dsk iigs.l
|
|
|
|
mx %00
|
|
xc
|
|
xc
|
|
|
|
*-----------------------------------
|
|
* MACROS
|
|
*-----------------------------------
|
|
|
|
use 4/Event.Macs
|
|
use 4/Locator.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Menu.Macs
|
|
use 4/Misc.Macs
|
|
use 4/QD.Macs
|
|
use 4/QDAux.Macs
|
|
use 4/Util.Macs
|
|
use 4/Window.Macs
|
|
|
|
GSOS = $e100a8
|
|
|
|
dpFROM = $70
|
|
dpTO = dpFROM+2
|
|
|
|
refIsPointer = $0
|
|
refIsHandle = $1
|
|
refIsResource = $2
|
|
|
|
TRUE = 255
|
|
FALSE = 0
|
|
|
|
ptr012000 = $012000
|
|
ptrE12000 = $e12000
|
|
|
|
modeForeCopy = $0004 ; QDII Table 16-10
|
|
|
|
mode320 = $00
|
|
mode640 = $80
|
|
|
|
maxX = 320
|
|
maxY = 200
|
|
|
|
*-----------------------------------
|
|
* DU 16-BITS
|
|
*-----------------------------------
|
|
|
|
ICI phk
|
|
plb
|
|
|
|
clc
|
|
xce
|
|
rep #$30
|
|
|
|
tdc
|
|
sta myDP
|
|
|
|
lda #ICI
|
|
stal $300
|
|
lda #^ICI
|
|
stal $302
|
|
|
|
_TLStartUp
|
|
pha
|
|
_MMStartUp
|
|
pla
|
|
sta appID
|
|
ora #$0100
|
|
sta myID
|
|
|
|
pha
|
|
pha
|
|
PushWord myID
|
|
PushWord #refIsPointer
|
|
PushLong #toolTBL
|
|
_StartUpTools
|
|
PullLong ssREC
|
|
|
|
_HideMenuBar
|
|
_InitCursor
|
|
_HideCursor
|
|
|
|
PushLong #0
|
|
PushWord #5 ; SetDeskPat
|
|
PushWord #$4000
|
|
PushWord #$0000
|
|
_Desktop
|
|
pla
|
|
pla
|
|
|
|
*-----------------------------------
|
|
* INITIALISATIONS DESKTOP
|
|
*-----------------------------------
|
|
|
|
PushLong #0
|
|
_GetPort
|
|
PullLong mainPORT
|
|
|
|
PushLong mainPORT
|
|
_SetPort
|
|
|
|
PushWord #0
|
|
_SetBackColor
|
|
PushWord #15
|
|
_SetForeColor
|
|
|
|
PushLong #whitePATTERN ; white pattern
|
|
_SetPenPat
|
|
|
|
PushWord #0
|
|
_ClearScreen
|
|
|
|
PushWord #0
|
|
_GetMasterSCB
|
|
pla
|
|
bmi okSHADOW ; shadowing is on if bit 15 is set
|
|
|
|
lda #^ptrE12000 ; shadowing is off, use slow RAM
|
|
sta srcLocInfoPtr+4
|
|
|
|
okSHADOW
|
|
|
|
*-----------------------------------
|
|
* IL FAUT JOUER MAINTENANT
|
|
*-----------------------------------
|
|
|
|
jsr PLAY
|
|
|
|
*-----------------------------------
|
|
* AU REVOIR LE IIGS
|
|
*-----------------------------------
|
|
|
|
QUIT _GrafOff
|
|
|
|
PushWord #refIsPointer
|
|
PushLong ssREC
|
|
_ShutDownTools
|
|
|
|
PushWord myID
|
|
_DisposeAll
|
|
|
|
PushWord appID
|
|
_DisposeAll
|
|
|
|
PushWord appID
|
|
_MMShutDown
|
|
|
|
_TLShutDown
|
|
|
|
jsl GSOS
|
|
dw $2029
|
|
adrl proQUIT
|
|
|
|
brk $bd
|
|
|
|
*-----------------------------------
|
|
* DES DONNES 16-BITS
|
|
*-----------------------------------
|
|
|
|
myINDEX ds 2
|
|
|
|
*-----------------------------------
|
|
|
|
palette320 dw $0000,$0777,$0841,$072C,$000F,$0080,$0F70,$0D00
|
|
dw $0FA9,$0FF0,$00E0,$04DF,$0DAF,$078F,$0CCC,$0FFF
|
|
|
|
palette640 dw $0000,$000F,$0FF0,$0FFF,$0000,$0D00,$00E0,$0FFF
|
|
dw $0000,$000F,$0FF0,$0FFF,$0000,$0D00,$00E0,$0FFF
|
|
|
|
blackPATTERN ds 32,$00
|
|
ds 32,$11
|
|
ds 32,$22
|
|
ds 32,$33
|
|
ds 32,$44
|
|
ds 32,$55
|
|
ds 32,$66
|
|
ds 32,$77
|
|
ds 32,$88
|
|
ds 32,$99
|
|
ds 32,$aa
|
|
ds 32,$bb
|
|
ds 32,$cc
|
|
ds 32,$dd
|
|
ds 32,$ee
|
|
whitePATTERN ds 32,$ff
|
|
|
|
*----------------------------------- New Tool table
|
|
|
|
ssREC ds 4
|
|
|
|
toolTBL dw $0000 ; flags
|
|
dw $C000 ; videoMode (shadowing + fast port)
|
|
dw $0000 ; resFileID
|
|
ADRL $00000000 ; dPageHandle
|
|
dw $0010
|
|
dw $0003 ; Miscellaneous Tool
|
|
dw $0300
|
|
dw $0004 ; QuickDraw II
|
|
dw $0301
|
|
dw $0005 ; Desk Manager
|
|
dw $0302
|
|
dw $0006 ; Event Manager
|
|
dw $0300
|
|
dw $000B ; Integer Math Tool Set
|
|
dw $0200
|
|
dw $000E ; Window Manager
|
|
dw $0301
|
|
dw $000F ; Menu Manager
|
|
dw $0301
|
|
dw $0010 ; Control Manager
|
|
dw $0301
|
|
dw $0012 ; QuickDraw II Auxiliary
|
|
dw $0301
|
|
dw $0014 ; LineEdit Tool Set
|
|
dw $0301
|
|
dw $0015 ; Dialog Manager
|
|
dw $0301
|
|
dw $0016 ; Scrap Manager
|
|
dw $0300
|
|
dw $0017 ; Standard File Tool Set
|
|
dw $0301
|
|
dw $001B ; Font Manager
|
|
dw $0301
|
|
dw $001C ; List Manager
|
|
dw $0301
|
|
dw $001E ; Resource Manager
|
|
dw $0100
|
|
|
|
*-----------------------------------
|
|
|
|
proQUIT dw 2 ; pcount
|
|
ds 4 ; pathname
|
|
ds 2 ; flags
|
|
|
|
*-----------------------------------
|
|
|
|
appID ds 2
|
|
myID ds 2
|
|
myDP ds 2
|
|
|
|
mainPORT ds 4
|
|
|
|
*-----------------------------------
|
|
* CODE BASIC EN ASM :-)
|
|
*-----------------------------------
|
|
|
|
put leretour.s
|
|
put engine.s
|
|
put fr.s
|
|
put ../common/images.s
|
|
|
|
*--- It's the end
|
|
|