another one
This commit is contained in:
parent
2639e628aa
commit
1619f1c93f
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
After Width: | Height: | Size: 327 KiB |
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
@ -9,6 +9,7 @@
|
|||
*---------------------------------------
|
||||
|
||||
logo
|
||||
putbin pic/title
|
||||
HEX D100014440C4000300004440C2004200
|
||||
HEX 014440C5000300000444D40042000004
|
||||
HEX 42440040C40002004440C20042000144
|
|
@ -3820,7 +3820,7 @@ dib2 sta ptrDATA+2
|
|||
rep #$30
|
||||
ldx #160*4 ; 4 lines
|
||||
ldy #$6e00 ; ligne 179
|
||||
lda #$4444 ; bleu
|
||||
lda fondFRAME ; bleu
|
||||
]lp sta [ptrDATA],y
|
||||
iny
|
||||
iny
|
||||
|
@ -4464,6 +4464,7 @@ editOPEN99 jmp editLOOP ; no
|
|||
|
||||
editRESTART jsr editSAVECHANGES
|
||||
jsr printSTRING
|
||||
asc 8D
|
||||
asc ">>RESTART GAME"8D
|
||||
ASC " THIS RESTARTS THE GAME"8D8D
|
||||
ASC " ARE YOU SURE (Y/N) "00
|
||||
|
@ -4479,6 +4480,7 @@ editRES99 jmp editLOOP
|
|||
|
||||
editBYE jsr editSAVECHANGES
|
||||
jsr printSTRING
|
||||
asc 8D
|
||||
asc ">>QUIT GAME"8D
|
||||
ASC " THIS QUITS THE GAME"8D8D
|
||||
ASC " ARE YOU SURE (Y/N) "00
|
||||
|
@ -4634,7 +4636,7 @@ editSAVE JSR saveLEVEL
|
|||
JMP L7F25
|
||||
|
||||
*-------------------------------
|
||||
* CTRL-U - NEXT LEVEL
|
||||
* RIGHT ARROW - NEXT LEVEL
|
||||
*-------------------------------
|
||||
|
||||
editLOAD LDA intLEVEL
|
||||
|
@ -4646,7 +4648,7 @@ L7FD8 BEQ L7F6E
|
|||
JMP editEDITLEVEL
|
||||
|
||||
*-------------------------------
|
||||
* CTRL-H - PREVIOUS LEVEL
|
||||
* LEFT ARROW - PREVIOUS LEVEL
|
||||
*-------------------------------
|
||||
|
||||
editPREVIOUS
|
||||
|
@ -4697,9 +4699,9 @@ L8075
|
|||
sta ptrHGR1+2
|
||||
lda #>oldHGR1
|
||||
sta hgrPAGE
|
||||
LDA #$00
|
||||
STA theX
|
||||
STA theY
|
||||
* LDA #$00
|
||||
* STA theX
|
||||
* STA theY
|
||||
RTS
|
||||
|
||||
*-----------------------------------
|
||||
|
|
File diff suppressed because it is too large
Load Diff
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
@ -1,18 +1,17 @@
|
|||
------+----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
||||
------+----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
1 | 1 LR.BANK2.S 1 | Comment | 11 | | 0 | 00/0000 | *
|
||||
2 | 1 LR.BANK2.S 2 | Comment | 11 | | 0 | 00/0000 | * Lode Runner
|
||||
3 | 1 LR.BANK2.S 3 | Comment | 11 | | 0 | 00/0000 | * (c) 1983, Broderbund Software
|
||||
4 | 1 LR.BANK2.S 4 | Comment | 11 | | 0 | 00/0000 | * (s) 2014, Brutal Deluxe Software
|
||||
5 | 1 LR.BANK2.S 5 | Comment | 11 | | 0 | 00/0000 | *
|
||||
6 | 1 LR.BANK2.S 6 | Empty | 11 | | 0 | 00/0000 |
|
||||
7 | 1 LR.BANK2.S 7 | Comment | 11 | | 0 | 00/0000 | *-----------------------------------
|
||||
8 | 1 LR.BANK2.S 8 | Comment | 11 | | 0 | 00/0000 | *
|
||||
9 | 1 LR.BANK2.S 9 | Comment | 11 | | 0 | 00/0000 | *-----------------------------------
|
||||
10 | 1 LR.BANK2.S 10 | Empty | 11 | | 0 | 00/0000 |
|
||||
11 | 1 LR.BANK2.S 11 | Global | 11 | | 0 | 00/0000 | ptrIMAGE ent
|
||||
12 | 1 LR.BANK2.S 12 | Data | 11 | | 32768 | 00/0000 : 00 00 00 00 | ds 32768
|
||||
1 | 1 LR.BANK4.S 1 | Comment | 11 | | 0 | 00/0000 | *
|
||||
2 | 1 LR.BANK4.S 2 | Comment | 11 | | 0 | 00/0000 | * Lode Runner
|
||||
3 | 1 LR.BANK4.S 3 | Comment | 11 | | 0 | 00/0000 | * (c) 1983, Broderbund Software
|
||||
4 | 1 LR.BANK4.S 4 | Comment | 11 | | 0 | 00/0000 | * (s) 2014, Brutal Deluxe Software
|
||||
5 | 1 LR.BANK4.S 5 | Comment | 11 | | 0 | 00/0000 | *
|
||||
6 | 1 LR.BANK4.S 6 | Empty | 11 | | 0 | 00/0000 |
|
||||
7 | 1 LR.BANK4.S 7 | Comment | 11 | | 0 | 00/0000 | *-----------------------------------
|
||||
8 | 1 LR.BANK4.S 8 | Comment | 11 | | 0 | 00/0000 | * KEEP IT AT $64K
|
||||
9 | 1 LR.BANK4.S 9 | Comment | 11 | | 0 | 00/0000 | *-----------------------------------
|
||||
10 | 1 LR.BANK4.S 10 | Empty | 11 | | 0 | 00/0000 |
|
||||
11 | 1 LR.BANK4.S 11 | Data | 11 | | 8192 | 00/0000 : 00 00 00 00 | ds 8192 ; $0000
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
|
@ -2060,6 +2059,9 @@
|
|||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
12 | 1 LR.BANK4.S 12 | Empty | 11 | | 0 | 00/2000 |
|
||||
13 | 1 LR.BANK4.S 13 | Global | 11 | | 0 | 00/2000 | HGR2 ent
|
||||
14 | 1 LR.BANK4.S 14 | Data | 11 | | 32768 | 00/2000 : 00 00 00 00 | ds 32768 ; $2000
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
|
@ -8204,9 +8206,6 @@
|
|||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
13 | 1 LR.BANK2.S 13 | Empty | 11 | | 0 | 00/8000 |
|
||||
14 | 1 LR.BANK2.S 14 | Global | 11 | | 0 | 00/8000 | ptrTITLE ent
|
||||
15 | 1 LR.BANK2.S 15 | Data | 11 | | 32768 | 00/8000 : 00 00 00 00 | ds 32768
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
|
@ -10254,6 +10253,8 @@
|
|||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
15 | 1 LR.BANK4.S 15 | Empty | 11 | | 0 | 00/A000 |
|
||||
16 | 1 LR.BANK4.S 16 | Data | 11 | | 24576 | 00/A000 : 00 00 00 00 | ds 24576 ; $a000
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
|
@ -16397,6 +16398,4 @@
|
|||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
16 | 1 LR.BANK2.S 16 | Empty | 11 | | 0 | 00/0000 |
|
||||
------+----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
|
|
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
@ -1,2 +1,2 @@
|
|||
LodeRunner=Type(B3),AuxType(DB00),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
acs=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
LodeRunner=Type(B3),AuxType(DB00),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||
|
|
Binary file not shown.
|
@ -1,109 +0,0 @@
|
|||
------+-----------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
||||
------+-----------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
1 | 1 acs.s 1 | Comment | 11 | | 0 | 00/8000 | *
|
||||
2 | 1 acs.s 2 | Comment | 11 | | 0 | 00/8000 | * Get ACS LR sprites
|
||||
3 | 1 acs.s 3 | Comment | 11 | | 0 | 00/8000 | *
|
||||
4 | 1 acs.s 4 | Empty | 11 | | 0 | 00/8000 |
|
||||
5 | 1 acs.s 5 | Directive | 00 | | 0 | 00/8000 | mx %00
|
||||
6 | 1 acs.s 6 | Directive | 00 | | 0 | 00/8000 | org $900
|
||||
7 | 1 acs.s 7 | Directive | 00 | | 0 | 00/0900 | lst off
|
||||
8 | 1 acs.s 8 | Empty | 00 | | 0 | 00/0900 |
|
||||
9 | 1 acs.s 9 | Code | 00 | | 1 | 00/0900 : 18 | clc
|
||||
10 | 1 acs.s 10 | Code | 00 | | 1 | 00/0901 : FB | xce
|
||||
11 | 1 acs.s 11 | Code | 00 | | 2 | 00/0902 : C2 30 | rep #$30
|
||||
12 | 1 acs.s 12 | Empty | 00 | | 0 | 00/0904 |
|
||||
13 | 1 acs.s 13 | Code | 10 | | 2 | 00/0904 : E2 20 | sep #$20
|
||||
14 | 1 acs.s 14 | Code | 10 | | 3 | 00/0906 : 9C 35 C0 | stz $c035
|
||||
15 | 1 acs.s 15 | Code | 10 | | 2 | 00/0909 : A9 C1 | lda #$c1
|
||||
16 | 1 acs.s 16 | Code | 10 | | 3 | 00/090B : 8D 29 C0 | sta $c029
|
||||
17 | 1 acs.s 17 | Empty | 10 | | 0 | 00/090E |
|
||||
18 | 1 acs.s 18 | Code | 00 | | 2 | 00/090E : C2 30 | rep #$30
|
||||
19 | 1 acs.s 19 | Code | 00 | | 3 | 00/0910 : A2 FE 7C | ldx #$7d00-2
|
||||
20 | 1 acs.s 20 | Code | 00 | | 3 | 00/0913 : A9 00 00 | lda #0
|
||||
21 | 1 acs.s 21 | Code | 00 | | 4 | 00/0916 : 9F 00 20 01 | ozunid_1 stal $012000,x
|
||||
22 | 1 acs.s 22 | Code | 00 | | 1 | 00/091A : CA | dex
|
||||
23 | 1 acs.s 23 | Code | 00 | | 1 | 00/091B : CA | dex
|
||||
24 | 1 acs.s 24 | Code | 00 | | 2 | 00/091C : 10 F8 | bpl ozunid_1
|
||||
25 | 1 acs.s 25 | Empty | 00 | | 0 | 00/091E |
|
||||
26 | 1 acs.s 26 | Code | 00 | | 3 | 00/091E : 9C 15 0A | stz theINDEX
|
||||
27 | 1 acs.s 27 | Empty | 00 | | 0 | 00/0921 |
|
||||
28 | 1 acs.s 28 | Code | 00 | | 3 | 00/0921 : AD 15 0A | ozunid_2 lda theINDEX
|
||||
29 | 1 acs.s 29 | Code | 00 | | 1 | 00/0924 : 0A | asl
|
||||
30 | 1 acs.s 30 | Code | 00 | | 1 | 00/0925 : AA | tax
|
||||
31 | 1 acs.s 31 | Code | 00 | | 1 | 00/0926 : 0A | asl
|
||||
32 | 1 acs.s 32 | Code | 00 | | 1 | 00/0927 : A8 | tay
|
||||
33 | 1 acs.s 33 | Code | 00 | | 3 | 00/0928 : BD 55 09 | lda table,x
|
||||
34 | 1 acs.s 34 | Code | 00 | | 1 | 00/092B : 18 | clc
|
||||
35 | 1 acs.s 35 | Code | 00 | | 3 | 00/092C : 69 00 20 | adc #$2000
|
||||
36 | 1 acs.s 36 | Code | 00 | | 3 | 00/092F : 8D 3F 09 | sta theY+1
|
||||
37 | 1 acs.s 37 | Code | 00 | | 3 | 00/0932 : B9 01 0D | lda $d01,y
|
||||
38 | 1 acs.s 38 | Code | 00 | | 3 | 00/0935 : 8D 42 09 | sta theADDRESS+1
|
||||
39 | 1 acs.s 39 | Code | 00 | | 3 | 00/0938 : B9 02 0D | lda $d02,y
|
||||
40 | 1 acs.s 40 | Code | 00 | | 3 | 00/093B : 8D 43 09 | sta theADDRESS+2
|
||||
41 | 1 acs.s 41 | Empty | 00 | | 0 | 00/093E |
|
||||
42 | 1 acs.s 42 | Code | 00 | | 3 | 00/093E : A0 00 00 | theY ldy #0
|
||||
43 | 1 acs.s 43 | Code | 00 | | 4 | 00/0941 : 22 00 00 05 | theADDRESS jsl $050000
|
||||
44 | 1 acs.s 44 | Empty | 00 | | 0 | 00/0945 |
|
||||
45 | 1 acs.s 45 | Code | 00 | | 3 | 00/0945 : EE 15 0A | inc theINDEX
|
||||
46 | 1 acs.s 46 | Code | 00 | | 3 | 00/0948 : AD 15 0A | lda theINDEX
|
||||
47 | 1 acs.s 47 | Code | 00 | | 3 | 00/094B : C9 60 00 | cmp #$60
|
||||
48 | 1 acs.s 48 | Code | 00 | | 2 | 00/094E : 90 D1 | bcc ozunid_2
|
||||
49 | 1 acs.s 49 | Code | 00 | | 1 | 00/0950 : 38 | sec
|
||||
50 | 1 acs.s 50 | Code | 11 | | 1 | 00/0951 : FB | xce
|
||||
51 | 1 acs.s 51 | Code | 11 | | 2 | 00/0952 : E2 30 | sep #$30
|
||||
52 | 1 acs.s 52 | Code | 11 | | 1 | 00/0954 : 60 | rts
|
||||
53 | 1 acs.s 53 | Empty | 11 | | 0 | 00/0955 |
|
||||
54 | 1 acs.s 54 | Data | 11 | | 32 | 00/0955 : 00 00 08 00 | table dw $0000,$0008,$0010,$0018,$0020,$0028,$0030,$0038,$0040,$0048,$0050,$0058,$0060,$0068,$0070,$0078
|
||||
| | | | | | 10 00 18 00 |
|
||||
| | | | | | 20 00 28 00 |
|
||||
| | | | | | 30 00 38 00 |
|
||||
| | | | | | 40 00 48 00 |
|
||||
| | | | | | 50 00 58 00 |
|
||||
| | | | | | 60 00 68 00 |
|
||||
| | | | | | 70 00 78 00 |
|
||||
55 | 1 acs.s 55 | Data | 11 | | 32 | 00/0975 : 00 0A 08 0A | dw $0A00,$0A08,$0A10,$0A18,$0A20,$0A28,$0A30,$0A38,$0A40,$0A48,$0A50,$0A58,$0A60,$0A68,$0A70,$0A78
|
||||
| | | | | | 10 0A 18 0A |
|
||||
| | | | | | 20 0A 28 0A |
|
||||
| | | | | | 30 0A 38 0A |
|
||||
| | | | | | 40 0A 48 0A |
|
||||
| | | | | | 50 0A 58 0A |
|
||||
| | | | | | 60 0A 68 0A |
|
||||
| | | | | | 70 0A 78 0A |
|
||||
56 | 1 acs.s 56 | Data | 11 | | 32 | 00/0995 : 00 14 08 14 | dw $1400,$1408,$1410,$1418,$1420,$1428,$1430,$1438,$1440,$1448,$1450,$1458,$1460,$1468,$1470,$1478
|
||||
| | | | | | 10 14 18 14 |
|
||||
| | | | | | 20 14 28 14 |
|
||||
| | | | | | 30 14 38 14 |
|
||||
| | | | | | 40 14 48 14 |
|
||||
| | | | | | 50 14 58 14 |
|
||||
| | | | | | 60 14 68 14 |
|
||||
| | | | | | 70 14 78 14 |
|
||||
57 | 1 acs.s 57 | Data | 11 | | 32 | 00/09B5 : 00 1E 08 1E | dw $1E00,$1E08,$1E10,$1E18,$1E20,$1E28,$1E30,$1E38,$1E40,$1E48,$1E50,$1E58,$1E60,$1E68,$1E70,$1E78
|
||||
| | | | | | 10 1E 18 1E |
|
||||
| | | | | | 20 1E 28 1E |
|
||||
| | | | | | 30 1E 38 1E |
|
||||
| | | | | | 40 1E 48 1E |
|
||||
| | | | | | 50 1E 58 1E |
|
||||
| | | | | | 60 1E 68 1E |
|
||||
| | | | | | 70 1E 78 1E |
|
||||
58 | 1 acs.s 58 | Data | 11 | | 32 | 00/09D5 : 00 28 08 28 | dw $2800,$2808,$2810,$2818,$2820,$2828,$2830,$2838,$2840,$2848,$2850,$2858,$2860,$2868,$2870,$2878
|
||||
| | | | | | 10 28 18 28 |
|
||||
| | | | | | 20 28 28 28 |
|
||||
| | | | | | 30 28 38 28 |
|
||||
| | | | | | 40 28 48 28 |
|
||||
| | | | | | 50 28 58 28 |
|
||||
| | | | | | 60 28 68 28 |
|
||||
| | | | | | 70 28 78 28 |
|
||||
59 | 1 acs.s 59 | Data | 11 | | 32 | 00/09F5 : 00 32 08 32 | dw $3200,$3208,$3210,$3218,$3220,$3228,$3230,$3238,$3240,$3248,$3250,$3258,$3260,$3268,$3270,$3278
|
||||
| | | | | | 10 32 18 32 |
|
||||
| | | | | | 20 32 28 32 |
|
||||
| | | | | | 30 32 38 32 |
|
||||
| | | | | | 40 32 48 32 |
|
||||
| | | | | | 50 32 58 32 |
|
||||
| | | | | | 60 32 68 32 |
|
||||
| | | | | | 70 32 78 32 |
|
||||
60 | 1 acs.s 60 | Empty | 11 | | 0 | 00/0A15 |
|
||||
61 | 1 acs.s 61 | Data | 11 | | 2 | 00/0A15 : 00 00 | theINDEX ds 2
|
||||
62 | 1 acs.s 62 | Empty | 11 | | 0 | 00/0A17 |
|
||||
63 | 1 acs.s 63 | Empty | 11 | | 0 | 00/0A17 |
|
||||
------+-----------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
@ -34,10 +34,6 @@
|
|||
|
||||
*----------------------------------- Constantes
|
||||
|
||||
ext ptrUNPACK
|
||||
ext ptrBACKGND
|
||||
ext ptrIMAGE
|
||||
ext ptrTITLE
|
||||
ext ptrLEVELS
|
||||
ext ptrSCORES
|
||||
ext HGR2
|
||||
|
@ -199,16 +195,7 @@ noSOUND _HideMenuBar
|
|||
|
||||
jsr find4PLAY ; do we have a 4play?
|
||||
jsr initSOUND
|
||||
|
||||
*---
|
||||
lda #0
|
||||
beq noPATCH
|
||||
jsr setLRPALETTE ; set the LR palette
|
||||
lda #tblSPRITES2
|
||||
sta patchSPR1+1
|
||||
sta patchSPR2+1
|
||||
sta patchSPR3+1
|
||||
noPATCH
|
||||
jsr setNATIVE ; set native mode
|
||||
|
||||
*---
|
||||
|
||||
|
@ -430,162 +417,36 @@ meQUIT1 PushWord myID
|
|||
brk $bd
|
||||
|
||||
*----------------------------------------
|
||||
* GFX
|
||||
* SET VINTAGE/NATIVE MODE
|
||||
*----------------------------------------
|
||||
|
||||
*----------------------------
|
||||
* unpackLZ4
|
||||
* Unpacks a LZ4 file
|
||||
* Uses the two pointers:
|
||||
* - ptrUNPACK: packed img (MUST BE AT $0000)
|
||||
* - ptrIMAGE: temp unpack zone
|
||||
*
|
||||
* Entry:
|
||||
* A: packed data size
|
||||
*
|
||||
* Exit:
|
||||
* lenDATA: unpacked data size
|
||||
*
|
||||
*----------------------------
|
||||
|
||||
mx %00
|
||||
|
||||
unpackLZ4 sta LZ4_Limit+1
|
||||
setVINTAGE
|
||||
jsr setSTDPALETTE ; set the LR palette
|
||||
lda #1 ; no speaker sound
|
||||
ldx #tblSPRITES
|
||||
ldy #$4444
|
||||
bra setMODE
|
||||
|
||||
setNATIVE
|
||||
jsr setLRPALETTE ; set the LR palette
|
||||
lda #0 ; no speaker sound
|
||||
ldx #tblSPRITES2
|
||||
ldy #$bbbb
|
||||
|
||||
setMODE stx patchSPR1+1 ; the sprites table
|
||||
stx patchSPR2+1
|
||||
stx patchSPR3+1
|
||||
sty fondFRAME ; the border color
|
||||
sep #$20
|
||||
|
||||
lda ptrUNPACK+2 ; Source
|
||||
sta LZ4_Literal_3+2
|
||||
sta LZ4_ReadToken+3
|
||||
sta LZ4_Match_1+3
|
||||
sta LZ4_GetLength_1+3
|
||||
|
||||
lda ptrIMAGE+2 ; Destination
|
||||
sta LZ4_Literal_3+1
|
||||
sta LZ4_Match_5+1
|
||||
sta LZ4_Match_5+2
|
||||
|
||||
sta fgSOUND ; the sound mode
|
||||
rep #$20
|
||||
|
||||
*--
|
||||
|
||||
ldy #0 ; Init Target unpacked Data offset
|
||||
ldx #16 ; Offset after header
|
||||
|
||||
LZ4_ReadToken
|
||||
LDAL $AA0000,X ; Read Token Byte
|
||||
INX
|
||||
STA LZ4_Match_2+1
|
||||
|
||||
*----------------
|
||||
|
||||
LZ4_Literal
|
||||
AND #$00F0 ; >>> Process Literal Bytes <<<
|
||||
BEQ LZ4_Limit ; No Literal
|
||||
CMP #$00F0
|
||||
BNE LZ4_Literal_1
|
||||
JSR LZ4_GetLengthLit ; Compute Literal Length with next bytes
|
||||
BRA LZ4_Literal_2
|
||||
LZ4_Literal_1
|
||||
LSR ; Literal Length use the 4 bit
|
||||
LSR
|
||||
LSR
|
||||
LSR
|
||||
|
||||
LZ4_Literal_2
|
||||
DEC ; Copy A+1 Bytes
|
||||
LZ4_Literal_3
|
||||
MVN $AA,$BB ; Copy Literal Bytes from packed data buffer
|
||||
PHK ; X and Y are auto incremented
|
||||
PLB
|
||||
|
||||
*----------------
|
||||
|
||||
LZ4_Limit CPX #$AAAA ; End Of Packed Data buffer ?
|
||||
BEQ LZ4_End
|
||||
|
||||
*----------------
|
||||
|
||||
LZ4_Match TYA ; >>> Process Match Bytes <<<
|
||||
SEC
|
||||
LZ4_Match_1 SBCL $AA0000,X ; Match Offset
|
||||
INX
|
||||
INX
|
||||
STA LZ4_Match_4+1
|
||||
|
||||
LZ4_Match_2 LDA #$0000 ; Current Token Value
|
||||
AND #$000F
|
||||
CMP #$000F
|
||||
BNE LZ4_Match_3
|
||||
JSR LZ4_GetLengthMat ; Compute Match Length with next bytes
|
||||
LZ4_Match_3 CLC
|
||||
ADC #$0003 ; Minimum Match Length is 4 (-1 for the MVN)
|
||||
PHX
|
||||
LZ4_Match_4 LDX #$AAAA ; Match Byte Offset
|
||||
LZ4_Match_5 MVN $BB,$BB ; Copy Match Bytes from unpacked data buffer
|
||||
PHK ; X and Y are auto incremented
|
||||
PLB
|
||||
PLX
|
||||
BRA LZ4_ReadToken
|
||||
|
||||
*----------------
|
||||
|
||||
LZ4_GetLengthLit
|
||||
LDA #$000F ; Compute Variable Length (Literal or Match)
|
||||
LZ4_GetLengthMat
|
||||
STA LZ4_GetLength_2+1
|
||||
LZ4_GetLength_1
|
||||
LDAL $AA0000,X ; Read Length Byte
|
||||
INX
|
||||
AND #$00FF
|
||||
CMP #$00FF
|
||||
BNE LZ4_GetLength_3
|
||||
CLC
|
||||
LZ4_GetLength_2
|
||||
ADC #$000F
|
||||
STA LZ4_GetLength_2+1
|
||||
BRA LZ4_GetLength_1
|
||||
LZ4_GetLength_3
|
||||
ADC LZ4_GetLength_2+1
|
||||
RTS
|
||||
|
||||
*----------------
|
||||
|
||||
LZ4_End sty lenDATA ; Y = length of unpacked data
|
||||
rts
|
||||
|
||||
*---
|
||||
|
||||
lenDATA ds 4
|
||||
|
||||
mx %00
|
||||
|
||||
*-----------------------------------
|
||||
* SAVE THE SHR SCREEN
|
||||
*-----------------------------------
|
||||
|
||||
saveBACK _HideCursor
|
||||
|
||||
PushLong ptrSCREEN
|
||||
PushLong #ptrBACKGND
|
||||
PushLong #32768
|
||||
_BlockMove
|
||||
|
||||
_ShowCursor
|
||||
rts
|
||||
|
||||
*-----------------------------------
|
||||
* RESTORE THE SHR SCREEN
|
||||
*-----------------------------------
|
||||
|
||||
loadBACK _HideCursor
|
||||
|
||||
PushLong #ptrBACKGND
|
||||
PushLong ptrSCREEN
|
||||
PushLong #32768
|
||||
_BlockMove
|
||||
|
||||
* _ShowCursor
|
||||
rts
|
||||
fondFRAME dw $4444 ; HGR: $4444, SHR: $BBBB
|
||||
|
||||
*----------------------------------------
|
||||
* SET STANDARD 320 PALETTE
|
||||
|
@ -630,7 +491,6 @@ checkKEY phx
|
|||
ply
|
||||
plx
|
||||
lda taskMESSAGE
|
||||
stal $300
|
||||
ora #%1000_0000 ; set bit 7
|
||||
rts
|
||||
|
||||
|
@ -777,7 +637,9 @@ playSOUND sta saveA
|
|||
sty saveY
|
||||
|
||||
rep #$30
|
||||
lda fgSND
|
||||
lda fgSOUND ; 8-bit sound?
|
||||
and #$ff
|
||||
ora fgSND
|
||||
bne playSOUND9
|
||||
|
||||
lda saveA ; reprend l'instrument
|
||||
|
@ -991,7 +853,9 @@ loadPATH1
|
|||
put LR.Code.s
|
||||
put LR.Data.s
|
||||
put LR.Tables.s
|
||||
put LR.Title.s
|
||||
logo
|
||||
putbin pic/title
|
||||
logo_fin
|
||||
put LR.Sprites.s ; 8-bits sprites
|
||||
put LR.Sprites2.s ; 16-col sprites
|
||||
|
||||
|
|
|
@ -11,28 +11,20 @@
|
|||
KND $0000
|
||||
SNA DougESmith
|
||||
|
||||
ASM LR.BANK1.S
|
||||
ASM LR.BANK3.S
|
||||
KND $0000
|
||||
SNA Broderbund
|
||||
|
||||
ASM LR.BANK2.S
|
||||
ASM LR.BANK4.S
|
||||
KND $0000
|
||||
SNA Brutal
|
||||
|
||||
ASM LR.BANK3.S
|
||||
ASM LR.BKSND1.S
|
||||
KND $0000
|
||||
SNA Deluxe
|
||||
|
||||
ASM LR.BANK4.S
|
||||
ASM LR.BKSND2.S
|
||||
KND $0000
|
||||
SNA Software
|
||||
|
||||
ASM LR.BKSND1.S
|
||||
KND $0000
|
||||
SNA Antoine
|
||||
|
||||
ASM LR.BKSND2.S
|
||||
KND $0000
|
||||
SNA Olivier
|
||||
|
||||
* END
|
||||
|
|
Binary file not shown.
Loading…
Reference in New Issue