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
|
||||
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
|
||||
*-----------------------
|
||||
|
|
|
@ -232,9 +232,9 @@ okTOOL _HideMenuBar
|
|||
* INITIALISATIONS
|
||||
*----------------------------------------
|
||||
|
||||
jsr load_font ; charge courier.10
|
||||
jsr initNTP
|
||||
jsr randomNTP ; select a sequence 0-7
|
||||
jsr TWILIGHToff
|
||||
|
||||
jsr set_language
|
||||
jsr doSOUNDON ; NTP on
|
||||
|
@ -630,6 +630,7 @@ doQUIT jsr suspendMUSIC ; NTP off
|
|||
*----------------------------------- Quit
|
||||
|
||||
meQUIT jsr stopNTP
|
||||
jsr TWILIGHTon
|
||||
|
||||
meQUIT0 PushWord #refIsHandle
|
||||
PushLong SStopREC
|
||||
|
@ -652,6 +653,113 @@ meQUIT1 PushWord myID
|
|||
|
||||
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
|
||||
*----------------------------------------
|
||||
|
@ -881,8 +989,8 @@ fadeOUT5 dey
|
|||
*----------------------------
|
||||
|
||||
unpackLZ4 sta LZ4_Limit+1
|
||||
|
||||
jsr suspendMUSIC
|
||||
|
||||
sei
|
||||
sep #$20
|
||||
|
||||
*--- Source
|
||||
|
@ -981,7 +1089,8 @@ LZ4_GetLength_3 ADC LZ4_GetLength_2+1
|
|||
*----------------
|
||||
|
||||
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!'
|
||||
verSTR2 str 'Press a key to quit'
|
||||
fntSTR1 str 'Courier.10 font missing'
|
||||
fntSTR2 str 'Please install it!'
|
||||
pgmSTR1 str 'Data parsing error'
|
||||
pgmSTR2 str 'Please report!'
|
||||
tolSTR1 str 'Error while loading tools'
|
||||
|
|
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue