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

another one

This commit is contained in:
Antoine Vignau 2024-03-01 20:34:22 +01:00
parent 2639e628aa
commit 1619f1c93f
33 changed files with 42711 additions and 94290 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
loderunner/data/CHAMPIONSHIP Normal file
View File

Binary file not shown.

BIN
loderunner/disk/Championship Lode Runner - Disk 1, Side A.a2r Normal file
View File

Binary file not shown.

BIN
loderunner/disk/Championship Lode Runner - Disk 1, Side A.dsk Normal file
View File

Binary file not shown.

BIN
loderunner/disk/lode runner.stx Normal file
View File

Binary file not shown.

BIN
loderunner/image/des.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 327 KiB

BIN
loderunner/loderunnergs.2mg
View File

Binary file not shown.

BIN
loderunner/source a2/LR.CODE
View File

Binary file not shown.

18314
loderunner/source a2/LR.CODE_Output.txt
View File

File diff suppressed because it is too large Load Diff

0
loderunner/source/LR.BANK1.s → loderunner/source old/LR.BANK1.S
View File

0
loderunner/source/LR.BANK2.s → loderunner/source old/LR.BANK2.S
View File

0
loderunner/source/LR.RWTS.S → loderunner/source old/LR.RWTS.S
View File

0
loderunner/source/LR.SPRITES 12x11.S → loderunner/source old/LR.SPRITES 12x11.S
View File

0
loderunner/source/LR.SPRITES 8x9.S → loderunner/source old/LR.SPRITES 8x9.S
View File

1
loderunner/source/LR.TITLE.S → loderunner/source old/LR.TITLE.S
View File

@ -9,6 +9,7 @@
*---------------------------------------
logo
putbin pic/title
HEX D100014440C4000300004440C2004200
HEX 014440C5000300000444D40042000004
HEX 42440040C40002004440C20042000144

0
loderunner/source/acs.s → loderunner/source old/acs.s
View File

0
loderunner/source/circleanimation.s → loderunner/source old/circleanimation.s
View File

0
loderunner/source/shape.S → loderunner/source old/shape.S
View File

14
loderunner/source/LR.CODE.S
View File

@ -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
*-----------------------------------

1131
loderunner/source/LR.SPRITES2.S
View File

File diff suppressed because it is too large Load Diff

BIN
loderunner/source/LodeRunner
View File

Binary file not shown.

30600
loderunner/source/LodeRunner_S01__Output.txt
View File

File diff suppressed because it is too large Load Diff

6753
loderunner/source/LodeRunner_S02__Output.txt
View File

File diff suppressed because it is too large Load Diff

33
loderunner/source/LodeRunner_S03__Output.txt
View File

@ -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 |
------+----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------

22653
loderunner/source/LodeRunner_S04__Output.txt
View File

File diff suppressed because it is too large Load Diff

30307
loderunner/source/LodeRunner_S05__Output.txt
View File

File diff suppressed because it is too large Load Diff

12970
loderunner/source/LodeRunner_S06__Output.txt
View File

File diff suppressed because it is too large Load Diff

13906
loderunner/source/LodeRunner_S07__Output.txt
View File

File diff suppressed because it is too large Load Diff

2
loderunner/source/_FileInformation.txt
View File

@ -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)

BIN
loderunner/source/acs
View File

Binary file not shown.

109
loderunner/source/acs_Output.txt
View File

@ -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 |
------+-----------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------

192
loderunner/source/loderunner.s
View File

@ -34,10 +34,6 @@
*----------------------------------- Constantes
ext ptrUNPACK
ext ptrBACKGND
ext ptrIMAGE
ext ptrTITLE
ext ptrLEVELS
ext ptrSCORES
ext HGR2
@ -199,17 +195,8 @@ 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
*---
jsr loadLEVELS ; exit 8-bit
@ -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
setVINTAGE
jsr setSTDPALETTE ; set the LR palette
lda #1 ; no speaker sound
ldx #tblSPRITES
ldy #$4444
bra setMODE
unpackLZ4 sta LZ4_Limit+1
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

16
loderunner/source/make.s
View File

@ -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

BIN
loderunner/source/pic/title
View File

Binary file not shown.