mirror of
https://github.com/antoinevignau/source.git
synced 2024-05-28 20:41:28 +00:00
v1
This commit is contained in:
parent
b8028d9b6a
commit
84362578b1
Binary file not shown.
|
@ -1,2 +0,0 @@
|
||||||
ToutADisparu=Type(B3),AuxType(DB00),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
|
||||||
cursor=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
|
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Before Width: | Height: | Size: 64 B |
|
@ -1,39 +0,0 @@
|
||||||
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
||||||
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
|
||||||
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
||||||
1 | 1 cursor.s 1 | Data | 11 | | 2 | 00/8000 : 00 00 | dw 0
|
|
||||||
2 | 1 cursor.s 2 | Data | 11 | | 2 | 00/8002 : 02 00 | dw 2
|
|
||||||
3 | 1 cursor.s 3 | Data | 11 | | 2 | 00/8004 : 00 00 | dw 0
|
|
||||||
4 | 1 cursor.s 4 | Data | 11 | | 2 | 00/8006 : 0A 00 | dw 10
|
|
||||||
5 | 1 cursor.s 5 | Data | 11 | | 2 | 00/8008 : 3A 00 | dw 58
|
|
||||||
6 | 1 cursor.s 6 | Data | 11 | | 2 | 00/800A : E6 00 | dw 230
|
|
||||||
7 | 1 cursor.s 7 | Data | 11 | | 2 | 00/800C : 84 03 | dw 900
|
|
||||||
8 | 1 cursor.s 8 | Data | 11 | | 2 | 00/800E : 0C 0E | dw 3596
|
|
||||||
9 | 1 cursor.s 9 | Data | 11 | | 2 | 00/8010 : 08 18 | dw 6152
|
|
||||||
10 | 1 cursor.s 10 | Data | 11 | | 2 | 00/8012 : 18 30 | dw 12312
|
|
||||||
11 | 1 cursor.s 11 | Data | 11 | | 2 | 00/8014 : 10 20 | dw 8208
|
|
||||||
12 | 1 cursor.s 12 | Data | 11 | | 2 | 00/8016 : 30 20 | dw 8240
|
|
||||||
13 | 1 cursor.s 13 | Data | 11 | | 2 | 00/8018 : 20 20 | dw 8224
|
|
||||||
14 | 1 cursor.s 14 | Data | 11 | | 2 | 00/801A : 60 20 | dw 8288
|
|
||||||
15 | 1 cursor.s 15 | Data | 11 | | 2 | 00/801C : C0 00 | dw 192
|
|
||||||
16 | 1 cursor.s 16 | Data | 11 | | 2 | 00/801E : 80 0F | dw 3968
|
|
||||||
17 | 1 cursor.s 17 | Empty | 11 | | 0 | 00/8020 |
|
|
||||||
18 | 1 cursor.s 18 | Data | 11 | | 2 | 00/8020 : 00 00 | dw 0
|
|
||||||
19 | 1 cursor.s 19 | Data | 11 | | 2 | 00/8022 : 06 00 | dw 6
|
|
||||||
20 | 1 cursor.s 20 | Data | 11 | | 2 | 00/8024 : 1E 00 | dw 30
|
|
||||||
21 | 1 cursor.s 21 | Data | 11 | | 2 | 00/8026 : 74 00 | dw 116
|
|
||||||
22 | 1 cursor.s 22 | Data | 11 | | 2 | 00/8028 : CC 01 | dw 460
|
|
||||||
23 | 1 cursor.s 23 | Data | 11 | | 2 | 00/802A : 08 07 | dw 1800
|
|
||||||
24 | 1 cursor.s 24 | Data | 11 | | 2 | 00/802C : 18 1C | dw 7192
|
|
||||||
25 | 1 cursor.s 25 | Data | 11 | | 2 | 00/802E : 10 30 | dw 12304
|
|
||||||
26 | 1 cursor.s 26 | Data | 11 | | 2 | 00/8030 : 30 60 | dw 24624
|
|
||||||
27 | 1 cursor.s 27 | Data | 11 | | 2 | 00/8032 : 20 40 | dw 16416
|
|
||||||
28 | 1 cursor.s 28 | Data | 11 | | 2 | 00/8034 : 60 40 | dw 16480
|
|
||||||
29 | 1 cursor.s 29 | Data | 11 | | 2 | 00/8036 : 40 40 | dw 16448
|
|
||||||
30 | 1 cursor.s 30 | Data | 11 | | 2 | 00/8038 : C0 40 | dw 16576
|
|
||||||
31 | 1 cursor.s 31 | Data | 11 | | 2 | 00/803A : 80 61 | dw 24960
|
|
||||||
32 | 1 cursor.s 32 | Data | 11 | | 2 | 00/803C : 00 3F | dw 16128
|
|
||||||
33 | 1 cursor.s 33 | Data | 11 | | 2 | 00/803E : 00 00 | dw 0
|
|
||||||
34 | 1 cursor.s 34 | Empty | 11 | | 0 | 00/8040 |
|
|
||||||
35 | 1 cursor.s 35 | Empty | 11 | | 0 | 00/8040 |
|
|
||||||
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
|
@ -21,31 +21,6 @@ linksOFF = FALSE
|
||||||
colorBLACK = 0
|
colorBLACK = 0
|
||||||
colorWHITE = 15
|
colorWHITE = 15
|
||||||
|
|
||||||
*-----------------------
|
|
||||||
* load_font
|
|
||||||
*-----------------------
|
|
||||||
|
|
||||||
load_font jsr font_it
|
|
||||||
bcc lf_ok
|
|
||||||
|
|
||||||
pha
|
|
||||||
PushLong #fntSTR1
|
|
||||||
PushLong #fntSTR2
|
|
||||||
PushLong #errSTR3
|
|
||||||
PushLong #errSTR2
|
|
||||||
_TLTextMountVolume
|
|
||||||
pla
|
|
||||||
|
|
||||||
lf_ok rts
|
|
||||||
|
|
||||||
*--- Really load the font
|
|
||||||
|
|
||||||
font_it PushWord #$0A00 ; Taille 10
|
|
||||||
PushWord #$0016 ; Courier
|
|
||||||
PushWord #0
|
|
||||||
_InstallFont
|
|
||||||
rts
|
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
* set_language
|
* set_language
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
|
|
@ -232,9 +232,9 @@ okTOOL _HideMenuBar
|
||||||
* INITIALISATIONS
|
* INITIALISATIONS
|
||||||
*----------------------------------------
|
*----------------------------------------
|
||||||
|
|
||||||
jsr load_font ; charge courier.10
|
|
||||||
jsr initNTP
|
jsr initNTP
|
||||||
jsr randomNTP ; select a sequence 0-7
|
jsr randomNTP ; select a sequence 0-7
|
||||||
|
jsr TWILIGHToff
|
||||||
|
|
||||||
jsr set_language
|
jsr set_language
|
||||||
jsr doSOUNDON ; NTP on
|
jsr doSOUNDON ; NTP on
|
||||||
|
@ -630,6 +630,7 @@ doQUIT jsr suspendMUSIC ; NTP off
|
||||||
*----------------------------------- Quit
|
*----------------------------------- Quit
|
||||||
|
|
||||||
meQUIT jsr stopNTP
|
meQUIT jsr stopNTP
|
||||||
|
jsr TWILIGHTon
|
||||||
|
|
||||||
meQUIT0 PushWord #refIsHandle
|
meQUIT0 PushWord #refIsHandle
|
||||||
PushLong SStopREC
|
PushLong SStopREC
|
||||||
|
@ -652,6 +653,113 @@ meQUIT1 PushWord myID
|
||||||
|
|
||||||
brk $bd
|
brk $bd
|
||||||
|
|
||||||
|
*----------------------------------------
|
||||||
|
* TWILIGHT
|
||||||
|
*----------------------------------------
|
||||||
|
|
||||||
|
*----------------------------
|
||||||
|
* TWILIGHToff
|
||||||
|
* Turns Twilight II off
|
||||||
|
*
|
||||||
|
* Entry:
|
||||||
|
* n/a
|
||||||
|
*
|
||||||
|
* Exit:
|
||||||
|
* n/a
|
||||||
|
*
|
||||||
|
*----------------------------
|
||||||
|
|
||||||
|
lenV1 = $49bf
|
||||||
|
lenV2 = $539a
|
||||||
|
|
||||||
|
offV1 = $117a
|
||||||
|
offV2 = $154c
|
||||||
|
|
||||||
|
TWILIGHToff
|
||||||
|
ldal $e11600
|
||||||
|
sta Debut
|
||||||
|
ldal $e11602
|
||||||
|
sta Debut+2
|
||||||
|
|
||||||
|
TWILIGHToff1
|
||||||
|
ldy #8
|
||||||
|
lda [Debut],y
|
||||||
|
ldx #offV1
|
||||||
|
cmp #lenV1
|
||||||
|
beq TWILIGHToff2
|
||||||
|
ldx #offV2
|
||||||
|
cmp #lenV2
|
||||||
|
bne TWILIGHToff3
|
||||||
|
|
||||||
|
TWILIGHToff2
|
||||||
|
stx offTWILIGHT
|
||||||
|
|
||||||
|
lda [Debut]
|
||||||
|
sta Arrivee
|
||||||
|
sta ptrTWILIGHT
|
||||||
|
ldy #2
|
||||||
|
lda [Debut],y
|
||||||
|
sta Arrivee+2
|
||||||
|
sta ptrTWILIGHT+2
|
||||||
|
|
||||||
|
txy
|
||||||
|
lda [Arrivee],y
|
||||||
|
cmp #$0ef0
|
||||||
|
bne TWILIGHToff3
|
||||||
|
lda #$0e80
|
||||||
|
sta [Arrivee],y
|
||||||
|
inc fgTWILIGHT
|
||||||
|
rts
|
||||||
|
|
||||||
|
TWILIGHToff3
|
||||||
|
ldy #16
|
||||||
|
lda [Debut],y
|
||||||
|
tax
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
lda [Debut],y
|
||||||
|
sta Debut+2
|
||||||
|
txa
|
||||||
|
sta Debut
|
||||||
|
|
||||||
|
lda Debut
|
||||||
|
ora Debut+2
|
||||||
|
bne TWILIGHToff1
|
||||||
|
rts
|
||||||
|
|
||||||
|
*----------------------------
|
||||||
|
* TWILIGHTon
|
||||||
|
* Turns Twilight II on
|
||||||
|
*
|
||||||
|
* Entry:
|
||||||
|
* n/a
|
||||||
|
*
|
||||||
|
* Exit:
|
||||||
|
* n/a
|
||||||
|
*
|
||||||
|
*----------------------------
|
||||||
|
|
||||||
|
TWILIGHTon
|
||||||
|
lda fgTWILIGHT
|
||||||
|
bne TWILIGHTon1
|
||||||
|
rts
|
||||||
|
|
||||||
|
TWILIGHTon1
|
||||||
|
lda ptrTWILIGHT
|
||||||
|
sta Arrivee
|
||||||
|
lda ptrTWILIGHT+2
|
||||||
|
sta Arrivee+2
|
||||||
|
ldy offTWILIGHT
|
||||||
|
lda #$0ef0
|
||||||
|
sta [Arrivee],y
|
||||||
|
rts
|
||||||
|
|
||||||
|
*--- Twilight II
|
||||||
|
|
||||||
|
ptrTWILIGHT ds 4
|
||||||
|
fgTWILIGHT ds 2
|
||||||
|
offTWILIGHT ds 2
|
||||||
|
|
||||||
*----------------------------------------
|
*----------------------------------------
|
||||||
* MEMOIRE
|
* MEMOIRE
|
||||||
*----------------------------------------
|
*----------------------------------------
|
||||||
|
@ -881,8 +989,8 @@ fadeOUT5 dey
|
||||||
*----------------------------
|
*----------------------------
|
||||||
|
|
||||||
unpackLZ4 sta LZ4_Limit+1
|
unpackLZ4 sta LZ4_Limit+1
|
||||||
|
|
||||||
jsr suspendMUSIC
|
sei
|
||||||
sep #$20
|
sep #$20
|
||||||
|
|
||||||
*--- Source
|
*--- Source
|
||||||
|
@ -981,7 +1089,8 @@ LZ4_GetLength_3 ADC LZ4_GetLength_2+1
|
||||||
*----------------
|
*----------------
|
||||||
|
|
||||||
LZ4_End sty lenDATA ; Y = length of unpacked data
|
LZ4_End sty lenDATA ; Y = length of unpacked data
|
||||||
jmp resumeMUSIC
|
cli
|
||||||
|
rts
|
||||||
|
|
||||||
*---
|
*---
|
||||||
|
|
||||||
|
@ -1100,8 +1209,6 @@ saveLANGUAGE ds 2
|
||||||
|
|
||||||
verSTR1 str 'System 6.0.1 Required!'
|
verSTR1 str 'System 6.0.1 Required!'
|
||||||
verSTR2 str 'Press a key to quit'
|
verSTR2 str 'Press a key to quit'
|
||||||
fntSTR1 str 'Courier.10 font missing'
|
|
||||||
fntSTR2 str 'Please install it!'
|
|
||||||
pgmSTR1 str 'Data parsing error'
|
pgmSTR1 str 'Data parsing error'
|
||||||
pgmSTR2 str 'Please report!'
|
pgmSTR2 str 'Please report!'
|
||||||
tolSTR1 str 'Error while loading tools'
|
tolSTR1 str 'Error while loading tools'
|
||||||
|
|
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user