Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

v+1

This commit is contained in:
Antoine Vignau 2024-03-02 22:30:27 +01:00
parent 50a55c5776
commit ce5f986171
1 changed files with 35 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

127
loderunner/source/loderunner.s
View File

@ -4,31 +4,31 @@
* (s) 2014, Brutal Deluxe Software * (s) 2014, Brutal Deluxe Software
* *
mx %00 mx %00
*----------------------------------- Macros *----------------------------------- Macros
use 4/Ctl.Macs use 4/Ctl.Macs
use 4/Desk.Macs use 4/Desk.Macs
use 4/Event.Macs use 4/Event.Macs
use 4/Font.Macs use 4/Font.Macs
use 4/Int.Macs use 4/Int.Macs
use 4/Line.Macs use 4/Line.Macs
use 4/Locator.Macs use 4/Locator.Macs
use 4/Mem.Macs use 4/Mem.Macs
use 4/Menu.Macs use 4/Menu.Macs
use 4/MIDISyn.Macs use 4/MIDISyn.Macs
use 4/Misc.Macs use 4/Misc.Macs
use 4/Print.Macs use 4/Print.Macs
use 4/Qd.Macs use 4/Qd.Macs
use 4/QdAux.Macs use 4/QdAux.Macs
use 4/Resource.Macs use 4/Resource.Macs
use 4/Scrap.Macs use 4/Scrap.Macs
use 4/Sound.Macs use 4/Sound.Macs
use 4/Std.Macs use 4/Std.Macs
use 4/TextEdit.Macs use 4/TextEdit.Macs
use 4/Util.Macs use 4/Util.Macs
use 4/Window.Macs use 4/Window.Macs
use LR.EQUATES use LR.EQUATES
@ -43,21 +43,14 @@
*-------------- Softswitches *-------------- Softswitches
RDVBLBAR = $e0c019
GSOS = $e100a8 GSOS = $e100a8
*-------------- GUI *-------------- GUI
alertQUIT = $0100
alertRESTART = $0200
refIsPointer = 0 refIsPointer = 0
refIsHandle = 1 refIsHandle = 1
refIsResource = 2 refIsResource = 2
appleKey = $0100
mouseDownEvt = $0001
mouseUpEvt = $0002
keyDownEvt = $0003 keyDownEvt = $0003
ptr012000 = $012000 ptr012000 = $012000
@ -81,46 +74,13 @@ FALSE = 0
pha pha
_MMStartUp _MMStartUp
pla pla
sta mainID
ora #$0100
sta myID sta myID
*--- Version du systeme
jsl GSOS
dw $202a
adrl proVERS
lda proVERS+2
and #%01111111_11111111
cmp #$0402
bcs okVERS
pha
PushLong #verSTR1
PushLong #verSTR2
PushLong #errSTR1
PushLong #errSTR2
_TLTextMountVolume
pla
brl meQUIT1
*--- Compacte la mémoire
okVERS PushLong #0
PushLong #$8fffff
PushWord myID
PushWord #%11000000_00000000
PushLong #0
_NewHandle
_DisposeHandle
_CompactMem
*--- Chargement des outils *--- Chargement des outils
pha pha
pha pha
PushWord mainID PushWord myID
PushWord #refIsResource PushWord #refIsResource
PushLong #1 PushLong #1
_StartUpTools _StartUpTools
@ -166,13 +126,13 @@ noSOUND _HideMenuBar
_FlushEvents _FlushEvents
pla pla
PushLong #0 * PushLong #0
PushWord #5 ; SetDeskPat * PushWord #5 ; SetDeskPat
PushWord #$4000 * PushWord #$4000
PushWord #$0000 * PushWord #$0000
_Desktop * _Desktop
pla * pla
pla * pla
*----------------------------------- Exit point *----------------------------------- Exit point
@ -384,9 +344,6 @@ meQUIT rep #$30
meQUIT1 PushWord myID meQUIT1 PushWord myID
_DisposeAll _DisposeAll
PushWord mainID
_DisposeAll
PushWord mainID PushWord mainID
_MMShutDown _MMShutDown
@ -927,20 +884,14 @@ fgSND ds 2
*----------------------- Tool locator *----------------------- Tool locator
verSTR1 str 'System 6.0.1 Required!'
verSTR2 str 'Press a key to quit'
tolSTR1 str 'Error while loading tools' tolSTR1 str 'Error while loading tools'
memSTR1 str 'Cannot allocate memory'
filSTR1 str 'Cannot load file'
errSTR1 str 'Quit' errSTR1 str 'Quit'
errSTR2 str '' errSTR2 str ''
errSTR3 str 'Continue' errSTR3 str 'Continue'
*----------------------- Memory manager *----------------------- Memory manager
mainID ds 2 ; app ID myID ds 2 ; app ID
myID ds 2 ; user ID
SStopREC ds 4 SStopREC ds 4
ptrSCREEN adrl ptr012000 ptrSCREEN adrl ptr012000
@ -953,21 +904,13 @@ palette320 dw $0000,$0777,$0841,$072C,$000F,$0080,$0F70,$0D00
paletteLR dw $0445,$0000,$0FFF,$0952,$00BB,$01DD,$0FF0,$0A1A paletteLR dw $0445,$0000,$0FFF,$0952,$00BB,$01DD,$0FF0,$0A1A
dw $0C0C,$0FCB,$0A10,$0C30,$0E50,$0666,$0AAA,$0FFF dw $0C0C,$0FCB,$0A10,$0C30,$0E50,$0666,$0AAA,$0FFF
*----------------------- Event / Window Manager *----------------------- Event Manager
taskREC ds 2 ; wmWhat +0 taskREC ds 2 ; wmWhat + 0
taskMESSAGE ds 4 ; wmMessage +2 taskMESSAGE ds 4 ; wmMessage + 2
taskWHEN ds 4 ; wmWhen +6 taskWHEN ds 4 ; wmWhen + 6
taskWHERE ds 4 ; wmWhere +10 taskWHERE ds 4 ; wmWhere +10
taskMODIFIERS ds 2 ; wmModifiers +14 taskMODIFIERS ds 2 ; wmModifiers +14
taskDATA ds 4 ; wmTaskData +16
adrl $001fffff ; wmTaskMask +20
ds 4 ; wmLastClickTick +24
ds 2 ; wmClickCount +28
ds 4 ; wmTaskData2 +30
ds 4 ; wmTaskData3 +34
ds 4 ; wmTaskData4 +38
ds 4 ; wmLastClickPt +42
*----------------------- GS/OS *----------------------- GS/OS