mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-26 01:29:31 +00:00
Game is done!
This commit is contained in:
parent
676623fb69
commit
c230ccf303
|
@ -1,2 +0,0 @@
|
||||||
lemanoir=Type(FF),AuxType(2000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
|
||||||
drgenius=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
|
Binary file not shown.
|
@ -13,39 +13,27 @@
|
||||||
* SOFTSWITCHES AND FRIENDS
|
* SOFTSWITCHES AND FRIENDS
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
|
|
||||||
WNDLFT = $20 ; left edge of text window
|
|
||||||
WNDWDTH = $21 ; width of text window
|
|
||||||
WNDTOP = $22 ; top of text window
|
WNDTOP = $22 ; top of text window
|
||||||
WNDBTM = $23 ; bottom+1 of text window
|
WNDBTM = $23 ; bottom+1 of text window
|
||||||
CH = $24 ; cursor horizontal position
|
CH = $24 ; cursor horizontal position
|
||||||
CV = $25 ; cursor vertical position
|
CV = $25 ; cursor vertical position
|
||||||
PROMPT = $33 ; prompt character
|
|
||||||
LINNUM = $50 ; result from GETADR
|
LINNUM = $50 ; result from GETADR
|
||||||
X0L = $e0 ; X-coord
|
X0L = $e0 ; X-coord
|
||||||
X0H = $e1
|
X0H = $e1
|
||||||
Y0 = $e2 ; Y-coord
|
Y0 = $e2 ; Y-coord
|
||||||
HPAG = $e6
|
|
||||||
|
|
||||||
maxY = 191 ; 0 to 191 = 192
|
maxY = 191 ; 0 to 191 = 192
|
||||||
|
|
||||||
chrRET = $0d
|
|
||||||
chrSPC = $20
|
|
||||||
chrRET2 = $8d
|
chrRET2 = $8d
|
||||||
chrSPC2 = $a0
|
chrSPC2 = $a0
|
||||||
cursorCHAR = ">"
|
|
||||||
TEXTBUFFER = $200
|
TEXTBUFFER = $200
|
||||||
|
|
||||||
PRODOS = $bf00
|
PRODOS = $bf00
|
||||||
|
|
||||||
KBD = $c000
|
KBD = $c000
|
||||||
CLR80COL = $c000
|
|
||||||
SET80COL = $c001
|
|
||||||
CLR80VID = $c00c
|
CLR80VID = $c00c
|
||||||
SET80VID = $c00d
|
|
||||||
KBDSTROBE = $c010
|
KBDSTROBE = $c010
|
||||||
VBL = $c019
|
VBL = $c019
|
||||||
MONOCOLOR = $c021
|
|
||||||
NEWVIDEO = $c029
|
|
||||||
VERTCNT = $c02e
|
VERTCNT = $c02e
|
||||||
SPKR = $c030
|
SPKR = $c030
|
||||||
CYAREG = $C036
|
CYAREG = $C036
|
||||||
|
@ -57,9 +45,6 @@ TXTPAGE1 = $c054
|
||||||
TXTPAGE2 = $c055
|
TXTPAGE2 = $c055
|
||||||
LORES = $c056
|
LORES = $c056
|
||||||
HIRES = $c057
|
HIRES = $c057
|
||||||
CLRAN = $c05d
|
|
||||||
SETAN3 = $c05e
|
|
||||||
CLRAN3 = $c05f
|
|
||||||
|
|
||||||
*--- The firmware routines
|
*--- The firmware routines
|
||||||
|
|
||||||
|
@ -114,9 +99,6 @@ SETKBD = $FE89
|
||||||
* CODE BASIC EN ASM :-)
|
* CODE BASIC EN ASM :-)
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
|
|
||||||
ldx #>PL
|
|
||||||
ldy #<PL
|
|
||||||
|
|
||||||
sec ; 1 MHz vaincra!
|
sec ; 1 MHz vaincra!
|
||||||
jsr IDROUTINE
|
jsr IDROUTINE
|
||||||
bcs notiigs
|
bcs notiigs
|
||||||
|
@ -133,12 +115,7 @@ notiigs
|
||||||
REPLAY
|
REPLAY
|
||||||
jsr initALL
|
jsr initALL
|
||||||
jsr HGR
|
jsr HGR
|
||||||
* jsr setHGR
|
|
||||||
|
|
||||||
* jsr HOME
|
|
||||||
* lda #20
|
|
||||||
* jsr TABV
|
|
||||||
|
|
||||||
lda #20 ; et c'est fen<65>trŽ en plus !
|
lda #20 ; et c'est fen<65>trŽ en plus !
|
||||||
sta WNDTOP
|
sta WNDTOP
|
||||||
lda #24
|
lda #24
|
||||||
|
@ -263,8 +240,6 @@ REPLAY
|
||||||
:500 lda #1
|
:500 lda #1
|
||||||
sta T
|
sta T
|
||||||
lda #0
|
lda #0
|
||||||
* sta Y1
|
|
||||||
* sta Y2
|
|
||||||
sta N
|
sta N
|
||||||
jmp :1000
|
jmp :1000
|
||||||
|
|
||||||
|
@ -1564,7 +1539,7 @@ str4585 asc 8D"D"A7"EAU QUI VOUS PERMET D"A7"ETEINDRE LE FEU"00
|
||||||
bmi :4600 ; t'as gagnŽ
|
bmi :4600 ; t'as gagnŽ
|
||||||
:4595 jmp :4570 ; t'as perdu
|
:4595 jmp :4570 ; t'as perdu
|
||||||
|
|
||||||
str4590 asc 8D"NO DE CODE : "00
|
str4590 asc 8D"NO DE CODE? "00
|
||||||
|
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
* 4600
|
* 4600
|
||||||
|
@ -2221,13 +2196,54 @@ strREPLAY asc 8D"VOULEZ-VOUS REJOUER ? "00
|
||||||
|
|
||||||
:32000
|
:32000
|
||||||
@play #zikGAGNE
|
@play #zikGAGNE
|
||||||
|
|
||||||
|
:32010
|
||||||
jsr setTEXTFULL
|
jsr setTEXTFULL
|
||||||
@print #strGAGNE
|
@print #strGAGNE
|
||||||
jmp :20050
|
|
||||||
|
|
||||||
* o
|
*--- L'animation du nain qui rode
|
||||||
* O
|
|
||||||
* / \
|
ldx #1
|
||||||
|
ldy #190
|
||||||
|
]lp lda #" "
|
||||||
|
sta $551,x
|
||||||
|
sta $5d1,x
|
||||||
|
sta $650,x
|
||||||
|
|
||||||
|
lda #"o"
|
||||||
|
sta $552,x
|
||||||
|
lda #"O"
|
||||||
|
sta $5d2,x
|
||||||
|
lda #"/"
|
||||||
|
sta $651,x
|
||||||
|
lda #"\"
|
||||||
|
sta $653,x
|
||||||
|
|
||||||
|
bit SPKR
|
||||||
|
|
||||||
|
tya
|
||||||
|
jsr WAIT
|
||||||
|
|
||||||
|
lda #"\"
|
||||||
|
sta $651,x
|
||||||
|
lda #"/"
|
||||||
|
sta $653,x
|
||||||
|
|
||||||
|
tya
|
||||||
|
jsr WAIT
|
||||||
|
|
||||||
|
bit SPKR
|
||||||
|
|
||||||
|
tya
|
||||||
|
clc
|
||||||
|
adc #2
|
||||||
|
tay
|
||||||
|
|
||||||
|
inx
|
||||||
|
cpx #30
|
||||||
|
bcc ]lp
|
||||||
|
|
||||||
|
jmp :20050
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
|
|
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
@ -1,107 +0,0 @@
|
||||||
------+----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
||||||
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
|
||||||
------+----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
||||||
1 | 1 lemanoir.s 1 | Comment | 11 | | 0 | 00/8000 | *
|
|
||||||
2 | 1 lemanoir.s 2 | Comment | 11 | | 0 | 00/8000 | * Le manoir du Dr Genius
|
|
||||||
3 | 1 lemanoir.s 3 | Comment | 11 | | 0 | 00/8000 | *
|
|
||||||
4 | 1 lemanoir.s 4 | Comment | 11 | | 0 | 00/8000 | * (c) 1983, Loriciels (Oric)
|
|
||||||
5 | 1 lemanoir.s 5 | Comment | 11 | | 0 | 00/8000 | * (c) 2023, Brutal Deluxe Software (Apple II)
|
|
||||||
6 | 1 lemanoir.s 6 | Comment | 11 | | 0 | 00/8000 | *
|
|
||||||
7 | 1 lemanoir.s 7 | Empty | 11 | | 0 | 00/8000 |
|
|
||||||
8 | 1 lemanoir.s 8 | Directive | 11 | | 0 | 00/8000 | mx %11
|
|
||||||
9 | 1 lemanoir.s 9 | Directive | 11 | | 0 | 00/8000 | org $2000
|
|
||||||
10 | 1 lemanoir.s 10 | Directive | 11 | | 0 | 00/2000 | lst off
|
|
||||||
11 | 1 lemanoir.s 11 | Empty | 11 | | 0 | 00/2000 |
|
|
||||||
12 | 1 lemanoir.s 12 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
|
||||||
13 | 1 lemanoir.s 13 | Comment | 11 | | 0 | 00/2000 | * SOFTSWITCHES AND FRIENDS
|
|
||||||
14 | 1 lemanoir.s 14 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
|
||||||
15 | 1 lemanoir.s 15 | Empty | 11 | | 0 | 00/2000 |
|
|
||||||
16 | 1 lemanoir.s 16 | Equivalence | 11 | | 0 | 00/2000 | leJEU = $4000
|
|
||||||
17 | 1 lemanoir.s 17 | Empty | 11 | | 0 | 00/2000 |
|
|
||||||
18 | 1 lemanoir.s 18 | Equivalence | 11 | | 0 | 00/2000 | ptrPREFIX = $280
|
|
||||||
19 | 1 lemanoir.s 19 | Equivalence | 11 | | 0 | 00/2000 | proBUFFER = $b800
|
|
||||||
20 | 1 lemanoir.s 20 | Equivalence | 11 | | 0 | 00/2000 | PRODOS = $bf00
|
|
||||||
21 | 1 lemanoir.s 21 | Empty | 11 | | 0 | 00/2000 |
|
|
||||||
22 | 1 lemanoir.s 22 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
|
||||||
23 | 1 lemanoir.s 23 | Comment | 11 | | 0 | 00/2000 | * LOAD THE GAME
|
|
||||||
24 | 1 lemanoir.s 24 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
|
|
||||||
25 | 1 lemanoir.s 25 | Empty | 11 | | 0 | 00/2000 |
|
|
||||||
26 | 1 lemanoir.s 26 | Code | 11 | | 3 | 00/2000 : 20 00 BF | jsr {$bf00} ; get the prefix
|
|
||||||
27 | 1 lemanoir.s 27 | Data | 11 | | 1 | 00/2003 : C7 | dfb $c7
|
|
||||||
28 | 1 lemanoir.s 28 | Data | 11 | | 2 | 00/2004 : 56 20 | da proGETPFX
|
|
||||||
29 | 1 lemanoir.s 29 | Empty | 11 | | 0 | 00/2006 |
|
|
||||||
30 | 1 lemanoir.s 30 | Code | 11 | | 3 | 00/2006 : 20 00 BF | jsr {$bf00} ; set it
|
|
||||||
31 | 1 lemanoir.s 31 | Data | 11 | | 1 | 00/2009 : C6 | dfb $c6
|
|
||||||
32 | 1 lemanoir.s 32 | Data | 11 | | 2 | 00/200A : 56 20 | da proGETPFX
|
|
||||||
33 | 1 lemanoir.s 33 | Empty | 11 | | 0 | 00/200C |
|
|
||||||
34 | 1 lemanoir.s 34 | Code | 11 | | 3 | 00/200C : 20 00 BF | jsr {$bf00}
|
|
||||||
35 | 1 lemanoir.s 35 | Data | 11 | | 1 | 00/200F : C8 | dfb $c8
|
|
||||||
36 | 1 lemanoir.s 36 | Data | 11 | | 2 | 00/2010 : 59 20 | da proOPEN
|
|
||||||
37 | 1 lemanoir.s 37 | Code | 11 | | 2 | 00/2012 : B0 33 | bcs quitME
|
|
||||||
38 | 1 lemanoir.s 38 | Empty | 11 | | 0 | 00/2014 |
|
|
||||||
39 | 1 lemanoir.s 39 | Code | 11 | | 3 | 00/2014 : AD 5E 20 | lda proOPEN+5 ; zou, on prend l'ID
|
|
||||||
40 | 1 lemanoir.s 40 | Code | 11 | | 3 | 00/2017 : 8D 6A 20 | sta proGETEOF+1
|
|
||||||
41 | 1 lemanoir.s 41 | Code | 11 | | 3 | 00/201A : 8D 60 20 | sta proREAD+1
|
|
||||||
42 | 1 lemanoir.s 42 | Code | 11 | | 3 | 00/201D : 8D 68 20 | sta proCLOSE+1
|
|
||||||
43 | 1 lemanoir.s 43 | Empty | 11 | | 0 | 00/2020 |
|
|
||||||
44 | 1 lemanoir.s 44 | Code | 11 | | 3 | 00/2020 : 20 00 BF | jsr {$bf00} ; longueur du fichier
|
|
||||||
45 | 1 lemanoir.s 45 | Data | 11 | | 1 | 00/2023 : D1 | dfb $d1
|
|
||||||
46 | 1 lemanoir.s 46 | Data | 11 | | 2 | 00/2024 : 69 20 | da proGETEOF
|
|
||||||
47 | 1 lemanoir.s 47 | Code | 11 | | 2 | 00/2026 : B0 1F | bcs quitME
|
|
||||||
48 | 1 lemanoir.s 48 | Empty | 11 | | 0 | 00/2028 |
|
|
||||||
49 | 1 lemanoir.s 49 | Code | 11 | | 3 | 00/2028 : AD 6B 20 | lda proGETEOF+2
|
|
||||||
50 | 1 lemanoir.s 50 | Code | 11 | | 3 | 00/202B : 8D 63 20 | sta proREAD+4
|
|
||||||
51 | 1 lemanoir.s 51 | Code | 11 | | 3 | 00/202E : AD 6C 20 | lda proGETEOF+3
|
|
||||||
52 | 1 lemanoir.s 52 | Code | 11 | | 3 | 00/2031 : 8D 64 20 | sta proREAD+5
|
|
||||||
53 | 1 lemanoir.s 53 | Empty | 11 | | 0 | 00/2034 |
|
|
||||||
54 | 1 lemanoir.s 54 | Code | 11 | | 3 | 00/2034 : 20 00 BF | jsr {$bf00} ; lecture du fichier
|
|
||||||
55 | 1 lemanoir.s 55 | Data | 11 | | 1 | 00/2037 : CA | dfb $ca
|
|
||||||
56 | 1 lemanoir.s 56 | Data | 11 | | 2 | 00/2038 : 5F 20 | da proREAD
|
|
||||||
57 | 1 lemanoir.s 57 | Code | 11 | | 2 | 00/203A : B0 0B | bcs quitME
|
|
||||||
58 | 1 lemanoir.s 58 | Empty | 11 | | 0 | 00/203C |
|
|
||||||
59 | 1 lemanoir.s 59 | Code | 11 | | 3 | 00/203C : 20 00 BF | jsr {$bf00} ; fermeture du fichier
|
|
||||||
60 | 1 lemanoir.s 60 | Data | 11 | | 1 | 00/203F : CC | dfb $cc
|
|
||||||
61 | 1 lemanoir.s 61 | Data | 11 | | 2 | 00/2040 : 67 20 | da proCLOSE
|
|
||||||
62 | 1 lemanoir.s 62 | Code | 11 | | 2 | 00/2042 : B0 03 | bcs quitME
|
|
||||||
63 | 1 lemanoir.s 63 | Empty | 11 | | 0 | 00/2044 |
|
|
||||||
64 | 1 lemanoir.s 64 | Code | 11 | | 3 | 00/2044 : 4C 00 40 | jmp {$4000}
|
|
||||||
65 | 1 lemanoir.s 65 | Empty | 11 | | 0 | 00/2047 |
|
|
||||||
66 | 1 lemanoir.s 66 | Code | 11 | | 3 | 00/2047 : 20 00 BF | quitME jsr {$bf00} ; exit
|
|
||||||
67 | 1 lemanoir.s 67 | Data | 11 | | 1 | 00/204A : 65 | dfb $65
|
|
||||||
68 | 1 lemanoir.s 68 | Data | 11 | | 2 | 00/204B : 4F 20 | da proQUIT
|
|
||||||
69 | 1 lemanoir.s 69 | Code | 11 | | 2 | 00/204D : 00 BD | brk $bd ; on ne se refait pas ;-)
|
|
||||||
70 | 1 lemanoir.s 70 | Empty | 11 | | 0 | 00/204F |
|
|
||||||
71 | 1 lemanoir.s 71 | Comment | 11 | | 0 | 00/204F | *--- Data
|
|
||||||
72 | 1 lemanoir.s 72 | Empty | 11 | | 0 | 00/204F |
|
|
||||||
73 | 1 lemanoir.s 73 | Data | 11 | | 1 | 00/204F : 04 | proQUIT dfb $4
|
|
||||||
74 | 1 lemanoir.s 74 | Data | 11 | | 1 | 00/2050 : 00 | ds 1
|
|
||||||
75 | 1 lemanoir.s 75 | Data | 11 | | 2 | 00/2051 : 00 00 | ds 2
|
|
||||||
76 | 1 lemanoir.s 76 | Data | 11 | | 1 | 00/2053 : 00 | ds 1
|
|
||||||
77 | 1 lemanoir.s 77 | Data | 11 | | 2 | 00/2054 : 00 00 | ds 2
|
|
||||||
78 | 1 lemanoir.s 78 | Empty | 11 | | 0 | 00/2056 |
|
|
||||||
79 | 1 lemanoir.s 79 | Data | 11 | | 1 | 00/2056 : 01 | proGETPFX dfb $1
|
|
||||||
80 | 1 lemanoir.s 80 | Data | 11 | | 2 | 00/2057 : 80 02 | da {$280}
|
|
||||||
81 | 1 lemanoir.s 81 | Empty | 11 | | 0 | 00/2059 |
|
|
||||||
82 | 1 lemanoir.s 82 | Data | 11 | | 1 | 00/2059 : 03 | proOPEN dfb $3
|
|
||||||
83 | 1 lemanoir.s 83 | Data | 11 | | 2 | 00/205A : 6E 20 | da pLEJEU ; pathname (par dŽfaut, le moteur)
|
|
||||||
84 | 1 lemanoir.s 84 | Data | 11 | | 2 | 00/205C : 00 B8 | da {$b800} ; io_buffer
|
|
||||||
85 | 1 lemanoir.s 85 | Data | 11 | | 1 | 00/205E : 00 | ds 1 ; ref_num
|
|
||||||
86 | 1 lemanoir.s 86 | Empty | 11 | | 0 | 00/205F |
|
|
||||||
87 | 1 lemanoir.s 87 | Data | 11 | | 1 | 00/205F : 04 | proREAD dfb $4
|
|
||||||
88 | 1 lemanoir.s 88 | Data | 11 | | 1 | 00/2060 : 00 | ds 1 ; ref_num
|
|
||||||
89 | 1 lemanoir.s 89 | Data | 11 | | 2 | 00/2061 : 00 40 | da {$4000} ; data_buffer
|
|
||||||
90 | 1 lemanoir.s 90 | Data | 11 | | 2 | 00/2063 : 00 00 | ds 2 ; request_count
|
|
||||||
91 | 1 lemanoir.s 91 | Data | 11 | | 2 | 00/2065 : 00 00 | ds 2 ; transfer_count
|
|
||||||
92 | 1 lemanoir.s 92 | Empty | 11 | | 0 | 00/2067 |
|
|
||||||
93 | 1 lemanoir.s 93 | Data | 11 | | 1 | 00/2067 : 01 | proCLOSE dfb $1
|
|
||||||
94 | 1 lemanoir.s 94 | Data | 11 | | 1 | 00/2068 : 00 | ds 1 ; ref_num
|
|
||||||
95 | 1 lemanoir.s 95 | Empty | 11 | | 0 | 00/2069 |
|
|
||||||
96 | 1 lemanoir.s 96 | Data | 11 | | 1 | 00/2069 : 02 | proGETEOF dfb $2
|
|
||||||
97 | 1 lemanoir.s 97 | Data | 11 | | 1 | 00/206A : 00 | ds 1 ; ref_num
|
|
||||||
98 | 1 lemanoir.s 98 | Data | 11 | | 3 | 00/206B : 00 00 00 | ds 3 ; eof
|
|
||||||
99 | 1 lemanoir.s 99 | Empty | 11 | | 0 | 00/206E |
|
|
||||||
100 | 1 lemanoir.s 100 | Data | 11 | | 9 | 00/206E : 08 44 72 47 | pLEJEU str 'DrGenius'
|
|
||||||
| | | | | | 65 6E 69 75 |
|
|
||||||
| | | | | | 73 |
|
|
||||||
101 | 1 lemanoir.s 101 | Empty | 11 | | 0 | 00/2077 |
|
|
||||||
------+----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
Loading…
Reference in New Issue
Block a user