mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-01 00:41:39 +00:00
Getting closer to the end
This commit is contained in:
parent
12ecdc9ad9
commit
bbd65bd62e
Binary file not shown.
|
@ -1,443 +0,0 @@
|
|||
------+-----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
||||
------+-----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
1 | 1 ampersand.s 1 | Comment | 11 | | 0 | 00/8000 | *
|
||||
2 | 1 ampersand.s 2 | Comment | 11 | | 0 | 00/8000 | * Le manoir du Dr Genius
|
||||
3 | 1 ampersand.s 3 | Comment | 11 | | 0 | 00/8000 | *
|
||||
4 | 1 ampersand.s 4 | Empty | 11 | | 0 | 00/8000 |
|
||||
5 | 1 ampersand.s 5 | Directive | 11 | | 0 | 00/8000 | mx %11
|
||||
6 | 1 ampersand.s 6 | Directive | 11 | | 0 | 00/8000 | org $1800
|
||||
7 | 1 ampersand.s 7 | Directive | 11 | | 0 | 00/1800 | lst off
|
||||
8 | 1 ampersand.s 8 | Empty | 11 | | 0 | 00/1800 |
|
||||
9 | 1 ampersand.s 9 | Comment | 11 | | 0 | 00/1800 | *-----------------------------------
|
||||
10 | 1 ampersand.s 10 | Empty | 11 | | 0 | 00/1800 |
|
||||
11 | 1 ampersand.s 11 | Equivalence | 11 | | 0 | 00/1800 | GOSUBTKN = $b0 ; the GOSUB token
|
||||
12 | 1 ampersand.s 12 | Empty | 11 | | 0 | 00/1800 |
|
||||
13 | 1 ampersand.s 13 | Equivalence | 11 | | 0 | 00/1800 | WNDLFT = $20 ; left edge of text window
|
||||
14 | 1 ampersand.s 14 | Equivalence | 11 | | 0 | 00/1800 | WNDWDTH = $21 ; width of text window
|
||||
15 | 1 ampersand.s 15 | Equivalence | 11 | | 0 | 00/1800 | WNDTOP = $22 ; top of text window
|
||||
16 | 1 ampersand.s 16 | Equivalence | 11 | | 0 | 00/1800 | WNDBTM = $23 ; bottom+1 of text window
|
||||
17 | 1 ampersand.s 17 | Equivalence | 11 | | 0 | 00/1800 | CH = $24 ; cursor horizontal position
|
||||
18 | 1 ampersand.s 18 | Equivalence | 11 | | 0 | 00/1800 | CV = $25 ; cursor vertical position
|
||||
19 | 1 ampersand.s 19 | Equivalence | 11 | | 0 | 00/1800 | LINNUM = $50 ; result from GETADR
|
||||
20 | 1 ampersand.s 20 | Equivalence | 11 | | 0 | 00/1800 | CURLIN = $75 ; current line number
|
||||
21 | 1 ampersand.s 21 | Equivalence | 11 | | 0 | 00/1800 | DATPTR = $7d ; DATA statement pointer
|
||||
22 | 1 ampersand.s 22 | Equivalence | 11 | | 0 | 00/1800 | FORPNT = $85 ; temp pointer
|
||||
23 | 1 ampersand.s 23 | Equivalence | 11 | | 0 | 00/1800 | LOWTR = $9b ; FNDLIN puts link ptr here
|
||||
24 | 1 ampersand.s 24 | Equivalence | 11 | | 0 | 00/1800 | CHRGET = $b1 ; get next program token
|
||||
25 | 1 ampersand.s 25 | Equivalence | 11 | | 0 | 00/1800 | TXTPTR = $b8 ; current token address
|
||||
26 | 1 ampersand.s 26 | Equivalence | 11 | | 0 | 00/1800 | X0L = $e0 ; X-coord
|
||||
27 | 1 ampersand.s 27 | Equivalence | 11 | | 0 | 00/1800 | X0H = $e1
|
||||
28 | 1 ampersand.s 28 | Equivalence | 11 | | 0 | 00/1800 | Y0 = $e2 ; Y-coord
|
||||
29 | 1 ampersand.s 29 | Equivalence | 11 | | 0 | 00/1800 | HPAG = $e6
|
||||
30 | 1 ampersand.s 30 | Equivalence | 11 | | 0 | 00/1800 | AMPERV = $3f5
|
||||
31 | 1 ampersand.s 31 | Empty | 11 | | 0 | 00/1800 |
|
||||
32 | 1 ampersand.s 32 | Equivalence | 11 | | 0 | 00/1800 | MIXCLR = $c052 ; clears 4 lines of text
|
||||
33 | 1 ampersand.s 33 | Empty | 11 | | 0 | 00/1800 |
|
||||
34 | 1 ampersand.s 34 | Equivalence | 11 | | 0 | 00/1800 | GETSTK = $d3d6 ; check stack space
|
||||
35 | 1 ampersand.s 35 | Equivalence | 11 | | 0 | 00/1800 | FNDLIN = $d61a ; find line in memory
|
||||
36 | 1 ampersand.s 36 | Equivalence | 11 | | 0 | 00/1800 | NEWSTT = $d7d2 ; execute statements
|
||||
37 | 1 ampersand.s 37 | Equivalence | 11 | | 0 | 00/1800 | GOTO = $d93e ; go to new line number
|
||||
38 | 1 ampersand.s 38 | Equivalence | 11 | | 0 | 00/1800 | FRMNUM = $dd67 ; Evaluate a numeric expression
|
||||
39 | 1 ampersand.s 39 | Equivalence | 11 | | 0 | 00/1800 | CHKCOM = $debe ; syntax error if no comma
|
||||
40 | 1 ampersand.s 40 | Equivalence | 11 | | 0 | 00/1800 | SYNERR = $dec9 ; syntax error
|
||||
41 | 1 ampersand.s 41 | Equivalence | 11 | | 0 | 00/1800 | GETADR = $e752 ; convert num to 2-byte int
|
||||
42 | 1 ampersand.s 42 | Equivalence | 11 | | 0 | 00/1800 | HGR = $f3e2 ; HGR
|
||||
43 | 1 ampersand.s 43 | Equivalence | 11 | | 0 | 00/1800 | HPLOT = $f457 ; HPLOT
|
||||
44 | 1 ampersand.s 44 | Equivalence | 11 | | 0 | 00/1800 | HCOLOR = $f6e9 ; HCOLOR= (call+3)
|
||||
45 | 1 ampersand.s 45 | Equivalence | 11 | | 0 | 00/1800 | HILIN = $f53a ; HPLOT TO
|
||||
46 | 1 ampersand.s 46 | Equivalence | 11 | | 0 | 00/1800 | HOME = $fc58 ; HOME routine
|
||||
47 | 1 ampersand.s 47 | Equivalence | 11 | | 0 | 00/1800 | WAIT = $fca8 ; WAIT routine
|
||||
48 | 1 ampersand.s 48 | Empty | 11 | | 0 | 00/1800 |
|
||||
49 | 1 ampersand.s 49 | Comment | 11 | | 0 | 00/1800 | *-----------------------------------
|
||||
50 | 1 ampersand.s 50 | Comment | 11 | | 0 | 00/1800 | * Useful info @ https://llx.com/Neil/a2/as.addons.html
|
||||
51 | 1 ampersand.s 51 | Empty | 11 | | 0 | 00/1800 |
|
||||
52 | 1 ampersand.s 52 | Comment | 11 | | 0 | 00/1800 | * Les routines & qu'on fait :
|
||||
53 | 1 ampersand.s 53 | Comment | 11 | | 0 | 00/1800 | * CURMOV M
|
||||
54 | 1 ampersand.s 54 | Comment | 11 | | 0 | 00/1800 | * CURSET S
|
||||
55 | 1 ampersand.s 55 | Comment | 11 | | 0 | 00/1800 | * INK I
|
||||
56 | 1 ampersand.s 56 | Comment | 11 | | 0 | 00/1800 | * PAPER P
|
||||
57 | 1 ampersand.s 57 | Comment | 11 | | 0 | 00/1800 | * HIRES H
|
||||
58 | 1 ampersand.s 58 | Comment | 11 | | 0 | 00/1800 | * WAIT W
|
||||
59 | 1 ampersand.s 59 | Comment | 11 | | 0 | 00/1800 | * DRAW D
|
||||
60 | 1 ampersand.s 60 | Comment | 11 | | 0 | 00/1800 | * RESTORE R to a line number
|
||||
61 | 1 ampersand.s 61 | Comment | 11 | | 0 | 00/1800 | * GOSUB G to an expression
|
||||
62 | 1 ampersand.s 62 | Comment | 11 | | 0 | 00/1800 | * GOTO T to an expression
|
||||
63 | 1 ampersand.s 63 | Empty | 11 | | 0 | 00/1800 |
|
||||
64 | 1 ampersand.s 64 | Comment | 11 | | 0 | 00/1800 | *
|
||||
65 | 1 ampersand.s 65 | Comment | 11 | | 0 | 00/1800 | * On ne fait pas :
|
||||
66 | 1 ampersand.s 66 | Comment | 11 | | 0 | 00/1800 | * CIRCLE C
|
||||
67 | 1 ampersand.s 67 | Comment | 11 | | 0 | 00/1800 | * EXPLODE E
|
||||
68 | 1 ampersand.s 68 | Comment | 11 | | 0 | 00/1800 | *
|
||||
69 | 1 ampersand.s 69 | Comment | 11 | | 0 | 00/1800 | * On des/installe par CALL 6144
|
||||
70 | 1 ampersand.s 70 | Empty | 11 | | 0 | 00/1800 |
|
||||
71 | 1 ampersand.s 71 | Comment | 11 | | 0 | 00/1800 | *-----------------------------------
|
||||
72 | 1 ampersand.s 72 | Empty | 11 | | 0 | 00/1800 |
|
||||
73 | 1 ampersand.s 73 | Code | 11 | | 2 | 00/1800 : A9 00 | myENTRY lda #0
|
||||
74 | 1 ampersand.s 74 | Code | 11 | | 2 | 00/1802 : D0 25 | bne doUNINSTALL
|
||||
75 | 1 ampersand.s 75 | Empty | 11 | | 0 | 00/1804 |
|
||||
76 | 1 ampersand.s 76 | Code | 11 | | 3 | 00/1804 : EE 01 18 | inc myENTRY+1 ; on dit qu'on installe
|
||||
77 | 1 ampersand.s 77 | Empty | 11 | | 0 | 00/1807 |
|
||||
78 | 1 ampersand.s 78 | Code | 11 | | 3 | 00/1807 : AD F5 03 | lda {$3f5} ; on sauve
|
||||
79 | 1 ampersand.s 79 | Code | 11 | | 3 | 00/180A : 8D 3F 18 | sta myPTR
|
||||
80 | 1 ampersand.s 80 | Code | 11 | | 3 | 00/180D : AD F6 03 | lda {$3f5}+1
|
||||
81 | 1 ampersand.s 81 | Code | 11 | | 3 | 00/1810 : 8D 40 18 | sta myPTR+1
|
||||
82 | 1 ampersand.s 82 | Code | 11 | | 3 | 00/1813 : AD F7 03 | lda {$3f5}+2
|
||||
83 | 1 ampersand.s 83 | Code | 11 | | 3 | 00/1816 : 8D 41 18 | sta myPTR+2
|
||||
84 | 1 ampersand.s 84 | Empty | 11 | | 0 | 00/1819 |
|
||||
85 | 1 ampersand.s 85 | Code | 11 | | 2 | 00/1819 : A9 4C | lda #$4c ; on installe le vecteur
|
||||
86 | 1 ampersand.s 86 | Code | 11 | | 3 | 00/181B : 8D F5 03 | sta {$3f5}
|
||||
87 | 1 ampersand.s 87 | Code | 11 | | 2 | 00/181E : A9 42 | lda #<myVECTOR
|
||||
88 | 1 ampersand.s 88 | Code | 11 | | 3 | 00/1820 : 8D F6 03 | sta {$3f5}+1
|
||||
89 | 1 ampersand.s 89 | Code | 11 | | 2 | 00/1823 : A9 18 | lda #>myVECTOR
|
||||
90 | 1 ampersand.s 90 | Code | 11 | | 3 | 00/1825 : 8D F7 03 | sta {$3f5}+2
|
||||
91 | 1 ampersand.s 91 | Code | 11 | | 1 | 00/1828 : 60 | rts
|
||||
92 | 1 ampersand.s 92 | Empty | 11 | | 0 | 00/1829 |
|
||||
93 | 1 ampersand.s 93 | Code | 11 | | 3 | 00/1829 : CE 01 18 | doUNINSTALL dec myENTRY+1
|
||||
94 | 1 ampersand.s 94 | Empty | 11 | | 0 | 00/182C |
|
||||
95 | 1 ampersand.s 95 | Code | 11 | | 3 | 00/182C : AD 3F 18 | lda myPTR
|
||||
96 | 1 ampersand.s 96 | Code | 11 | | 3 | 00/182F : 8D F5 03 | sta {$3f5}
|
||||
97 | 1 ampersand.s 97 | Code | 11 | | 3 | 00/1832 : AD 40 18 | lda myPTR+1
|
||||
98 | 1 ampersand.s 98 | Code | 11 | | 3 | 00/1835 : 8D F6 03 | sta {$3f5}+1
|
||||
99 | 1 ampersand.s 99 | Code | 11 | | 3 | 00/1838 : AD 41 18 | lda myPTR+2
|
||||
100 | 1 ampersand.s 100 | Code | 11 | | 3 | 00/183B : 8D F7 03 | sta {$3f5}+2
|
||||
101 | 1 ampersand.s 101 | Code | 11 | | 1 | 00/183E : 60 | rts
|
||||
102 | 1 ampersand.s 102 | Empty | 11 | | 0 | 00/183F |
|
||||
103 | 1 ampersand.s 103 | Data | 11 | | 3 | 00/183F : 00 00 00 | myPTR ds 3 ; 4C xx yy
|
||||
104 | 1 ampersand.s 104 | Empty | 11 | | 0 | 00/1842 |
|
||||
105 | 1 ampersand.s 105 | Comment | 11 | | 0 | 00/1842 | *-----------------------------------
|
||||
106 | 1 ampersand.s 106 | Empty | 11 | | 0 | 00/1842 |
|
||||
107 | 1 ampersand.s 107 | Code | 11 | | 2 | 00/1842 : A2 0B | myVECTOR ldx #myADRS-myCMDS-1
|
||||
108 | 1 ampersand.s 108 | Code | 11 | | 3 | 00/1844 : DD 5B 18 | ozunid_1 cmp myCMDS,x
|
||||
109 | 1 ampersand.s 109 | Code | 11 | | 2 | 00/1847 : F0 06 | beq doVECTOR
|
||||
110 | 1 ampersand.s 110 | Code | 11 | | 1 | 00/1849 : CA | dex
|
||||
111 | 1 ampersand.s 111 | Code | 11 | | 2 | 00/184A : 10 F8 | bpl ozunid_1
|
||||
112 | 1 ampersand.s 112 | Code | 11 | | 3 | 00/184C : 4C C9 DE | jmp {$dec9}
|
||||
113 | 1 ampersand.s 113 | Empty | 11 | | 0 | 00/184F |
|
||||
114 | 1 ampersand.s 114 | Code | 11 | | 1 | 00/184F : 8A | doVECTOR txa
|
||||
115 | 1 ampersand.s 115 | Code | 11 | | 1 | 00/1850 : 0A | asl
|
||||
116 | 1 ampersand.s 116 | Code | 11 | | 1 | 00/1851 : AA | tax
|
||||
117 | 1 ampersand.s 117 | Code | 11 | | 3 | 00/1852 : BD 68 18 | lda myADRS+1,x
|
||||
118 | 1 ampersand.s 118 | Code | 11 | | 1 | 00/1855 : 48 | pha
|
||||
119 | 1 ampersand.s 119 | Code | 11 | | 3 | 00/1856 : BD 67 18 | lda myADRS,x
|
||||
120 | 1 ampersand.s 120 | Code | 11 | | 1 | 00/1859 : 48 | pha
|
||||
121 | 1 ampersand.s 121 | Code | 11 | | 1 | 00/185A : 60 | rts
|
||||
122 | 1 ampersand.s 122 | Empty | 11 | | 0 | 00/185B |
|
||||
123 | 1 ampersand.s 123 | Data | 11 | | 12 | 00/185B : 53 4D 44 43 | myCMDS asc 'SMDCIPHWERGT'
|
||||
| | | | | | 49 50 48 57 |
|
||||
| | | | | | 45 52 47 54 |
|
||||
124 | 1 ampersand.s 124 | Empty | 11 | | 0 | 00/1867 |
|
||||
125 | 1 ampersand.s 125 | Data | 11 | | 2 | 00/1867 : F0 18 | myADRS da doS-1
|
||||
126 | 1 ampersand.s 126 | Data | 11 | | 2 | 00/1869 : 25 19 | da doM-1
|
||||
127 | 1 ampersand.s 127 | Data | 11 | | 2 | 00/186B : 68 19 | da doD-1
|
||||
128 | 1 ampersand.s 128 | Data | 11 | | 2 | 00/186D : DB 19 | da doC-1
|
||||
129 | 1 ampersand.s 129 | Data | 11 | | 2 | 00/186F : F8 19 | da doI-1
|
||||
130 | 1 ampersand.s 130 | Data | 11 | | 2 | 00/1871 : 07 1A | da doP-1
|
||||
131 | 1 ampersand.s 131 | Data | 11 | | 2 | 00/1873 : 16 1A | da doH-1
|
||||
132 | 1 ampersand.s 132 | Data | 11 | | 2 | 00/1875 : 33 1A | da doW-1
|
||||
133 | 1 ampersand.s 133 | Data | 11 | | 2 | 00/1877 : 4C 1A | da doE-1
|
||||
134 | 1 ampersand.s 134 | Data | 11 | | 2 | 00/1879 : 50 1A | da doR-1
|
||||
135 | 1 ampersand.s 135 | Data | 11 | | 2 | 00/187B : 69 1A | da doG-1
|
||||
136 | 1 ampersand.s 136 | Data | 11 | | 2 | 00/187D : 8C 1A | da doT-1
|
||||
137 | 1 ampersand.s 137 | Empty | 11 | | 0 | 00/187F |
|
||||
138 | 1 ampersand.s 138 | Comment | 11 | | 0 | 00/187F | *----------------------------------- Data
|
||||
139 | 1 ampersand.s 139 | Empty | 11 | | 0 | 00/187F |
|
||||
140 | 1 ampersand.s 140 | Data | 11 | | 2 | 00/187F : 8C 00 | theX dw 140 ; milieu de l'Žcran par dŽfaut
|
||||
141 | 1 ampersand.s 141 | Data | 11 | | 96 | 00/1881 : 00 00 00 00 | theY ds 96
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
142 | 1 ampersand.s 142 | Data | 11 | | 2 | 00/18E1 : 00 00 | theX2 ds 2
|
||||
143 | 1 ampersand.s 143 | Data | 11 | | 2 | 00/18E3 : 00 00 | theY2 ds 2
|
||||
144 | 1 ampersand.s 144 | Data | 11 | | 1 | 00/18E5 : 00 | theRADIUS ds 1
|
||||
145 | 1 ampersand.s 145 | Data | 11 | | 1 | 00/18E6 : 00 | theFB ds 1
|
||||
146 | 1 ampersand.s 146 | Data | 11 | | 1 | 00/18E7 : 00 | theINK ds 1
|
||||
147 | 1 ampersand.s 147 | Data | 11 | | 1 | 00/18E8 : 00 | thePAPER ds 1
|
||||
148 | 1 ampersand.s 148 | Empty | 11 | | 0 | 00/18E9 |
|
||||
149 | 1 ampersand.s 149 | Comment | 11 | | 0 | 00/18E9 | * APPLE ORIC
|
||||
150 | 1 ampersand.s 150 | Comment | 11 | | 0 | 00/18E9 | * 0 black1 black
|
||||
151 | 1 ampersand.s 151 | Comment | 11 | | 0 | 00/18E9 | * 1 green red
|
||||
152 | 1 ampersand.s 152 | Comment | 11 | | 0 | 00/18E9 | * 2 blue green
|
||||
153 | 1 ampersand.s 153 | Comment | 11 | | 0 | 00/18E9 | * 3 white1 yellow
|
||||
154 | 1 ampersand.s 154 | Comment | 11 | | 0 | 00/18E9 | * 4 black2 blue
|
||||
155 | 1 ampersand.s 155 | Comment | 11 | | 0 | 00/18E9 | * 5 - magenta
|
||||
156 | 1 ampersand.s 156 | Comment | 11 | | 0 | 00/18E9 | * 6 - cyan
|
||||
157 | 1 ampersand.s 157 | Comment | 11 | | 0 | 00/18E9 | * 7 white2 white
|
||||
158 | 1 ampersand.s 158 | Empty | 11 | | 0 | 00/18E9 |
|
||||
159 | 1 ampersand.s 159 | Data | 11 | | 8 | 00/18E9 : 07 05 01 06 | oric2hgr hex 0705010602030400
|
||||
| | | | | | 02 03 04 00 |
|
||||
160 | 1 ampersand.s 160 | Empty | 11 | | 0 | 00/18F1 |
|
||||
161 | 1 ampersand.s 161 | Comment | 11 | | 0 | 00/18F1 | *----------------------------------- CURSET x,y,fb
|
||||
162 | 1 ampersand.s 162 | Empty | 11 | | 0 | 00/18F1 |
|
||||
163 | 1 ampersand.s 163 | Empty | 11 | | 0 | 00/18F1 | doS
|
||||
164 | 1 ampersand.s 164 | Code | 11 | | 3 | 00/18F1 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
165 | 1 ampersand.s 165 | Code | 11 | | 3 | 00/18F4 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
166 | 1 ampersand.s 166 | Code | 11 | | 3 | 00/18F7 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
167 | 1 ampersand.s 167 | Code | 11 | | 2 | 00/18FA : A5 50 | lda {$50}
|
||||
168 | 1 ampersand.s 168 | Code | 11 | | 3 | 00/18FC : 8D 7F 18 | sta theX
|
||||
169 | 1 ampersand.s 169 | Code | 11 | | 2 | 00/18FF : A5 51 | lda {$50}+1
|
||||
170 | 1 ampersand.s 170 | Code | 11 | | 3 | 00/1901 : 8D 80 18 | sta theX+1 ; new X-coord
|
||||
171 | 1 ampersand.s 171 | Empty | 11 | | 0 | 00/1904 |
|
||||
172 | 1 ampersand.s 172 | Code | 11 | | 3 | 00/1904 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
173 | 1 ampersand.s 173 | Code | 11 | | 3 | 00/1907 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
174 | 1 ampersand.s 174 | Code | 11 | | 3 | 00/190A : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
175 | 1 ampersand.s 175 | Code | 11 | | 2 | 00/190D : A5 50 | lda {$50}
|
||||
176 | 1 ampersand.s 176 | Code | 11 | | 3 | 00/190F : 8D 81 18 | sta theY
|
||||
177 | 1 ampersand.s 177 | Code | 11 | | 2 | 00/1912 : A5 51 | lda {$50}+1
|
||||
178 | 1 ampersand.s 178 | Code | 11 | | 3 | 00/1914 : 8D 82 18 | sta theY+1 ; new Y-coord
|
||||
179 | 1 ampersand.s 179 | Empty | 11 | | 0 | 00/1917 |
|
||||
180 | 1 ampersand.s 180 | Code | 11 | | 3 | 00/1917 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
181 | 1 ampersand.s 181 | Code | 11 | | 3 | 00/191A : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
182 | 1 ampersand.s 182 | Code | 11 | | 3 | 00/191D : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
183 | 1 ampersand.s 183 | Code | 11 | | 2 | 00/1920 : A5 50 | lda {$50}
|
||||
184 | 1 ampersand.s 184 | Code | 11 | | 3 | 00/1922 : 8D E6 18 | sta theFB
|
||||
185 | 1 ampersand.s 185 | Code | 11 | | 1 | 00/1925 : 60 | rts
|
||||
186 | 1 ampersand.s 186 | Empty | 11 | | 0 | 00/1926 |
|
||||
187 | 1 ampersand.s 187 | Comment | 11 | | 0 | 00/1926 | *----------------------------------- CURMOV x,y,fb
|
||||
188 | 1 ampersand.s 188 | Empty | 11 | | 0 | 00/1926 |
|
||||
189 | 1 ampersand.s 189 | Empty | 11 | | 0 | 00/1926 | doM
|
||||
190 | 1 ampersand.s 190 | Code | 11 | | 3 | 00/1926 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
191 | 1 ampersand.s 191 | Code | 11 | | 3 | 00/1929 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
192 | 1 ampersand.s 192 | Code | 11 | | 3 | 00/192C : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
193 | 1 ampersand.s 193 | Code | 11 | | 2 | 00/192F : A5 50 | lda {$50}
|
||||
194 | 1 ampersand.s 194 | Code | 11 | | 1 | 00/1931 : 18 | clc
|
||||
195 | 1 ampersand.s 195 | Code | 11 | | 3 | 00/1932 : 6D 7F 18 | adc theX
|
||||
196 | 1 ampersand.s 196 | Code | 11 | | 3 | 00/1935 : 8D 7F 18 | sta theX
|
||||
197 | 1 ampersand.s 197 | Code | 11 | | 2 | 00/1938 : A5 51 | lda {$50}+1
|
||||
198 | 1 ampersand.s 198 | Code | 11 | | 3 | 00/193A : 6D 80 18 | adc theX+1
|
||||
199 | 1 ampersand.s 199 | Code | 11 | | 3 | 00/193D : 8D 80 18 | sta theX+1 ; new X-coord
|
||||
200 | 1 ampersand.s 200 | Empty | 11 | | 0 | 00/1940 |
|
||||
201 | 1 ampersand.s 201 | Code | 11 | | 3 | 00/1940 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
202 | 1 ampersand.s 202 | Code | 11 | | 3 | 00/1943 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
203 | 1 ampersand.s 203 | Code | 11 | | 3 | 00/1946 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
204 | 1 ampersand.s 204 | Code | 11 | | 2 | 00/1949 : A5 50 | lda {$50}
|
||||
205 | 1 ampersand.s 205 | Code | 11 | | 1 | 00/194B : 18 | clc
|
||||
206 | 1 ampersand.s 206 | Code | 11 | | 3 | 00/194C : 6D 81 18 | adc theY
|
||||
207 | 1 ampersand.s 207 | Code | 11 | | 3 | 00/194F : 8D 81 18 | sta theY
|
||||
208 | 1 ampersand.s 208 | Code | 11 | | 2 | 00/1952 : A5 51 | lda {$50}+1
|
||||
209 | 1 ampersand.s 209 | Code | 11 | | 3 | 00/1954 : 6D 82 18 | adc theY+1
|
||||
210 | 1 ampersand.s 210 | Code | 11 | | 3 | 00/1957 : 8D 82 18 | sta theY+1 ; new Y-coord
|
||||
211 | 1 ampersand.s 211 | Empty | 11 | | 0 | 00/195A |
|
||||
212 | 1 ampersand.s 212 | Code | 11 | | 3 | 00/195A : 20 BE DE | jsr {$debe} ; check for comma
|
||||
213 | 1 ampersand.s 213 | Code | 11 | | 3 | 00/195D : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
214 | 1 ampersand.s 214 | Code | 11 | | 3 | 00/1960 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
215 | 1 ampersand.s 215 | Code | 11 | | 2 | 00/1963 : A5 50 | lda {$50}
|
||||
216 | 1 ampersand.s 216 | Code | 11 | | 3 | 00/1965 : 8D E6 18 | sta theFB
|
||||
217 | 1 ampersand.s 217 | Code | 11 | | 1 | 00/1968 : 60 | rts
|
||||
218 | 1 ampersand.s 218 | Empty | 11 | | 0 | 00/1969 |
|
||||
219 | 1 ampersand.s 219 | Comment | 11 | | 0 | 00/1969 | *----------------------------------- DRAW x,y,fb
|
||||
220 | 1 ampersand.s 220 | Empty | 11 | | 0 | 00/1969 |
|
||||
221 | 1 ampersand.s 221 | Empty | 11 | | 0 | 00/1969 | doD
|
||||
222 | 1 ampersand.s 222 | Code | 11 | | 3 | 00/1969 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
223 | 1 ampersand.s 223 | Code | 11 | | 3 | 00/196C : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
224 | 1 ampersand.s 224 | Code | 11 | | 3 | 00/196F : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
225 | 1 ampersand.s 225 | Code | 11 | | 2 | 00/1972 : A5 50 | lda {$50}
|
||||
226 | 1 ampersand.s 226 | Code | 11 | | 1 | 00/1974 : 18 | clc
|
||||
227 | 1 ampersand.s 227 | Code | 11 | | 3 | 00/1975 : 6D 7F 18 | adc theX
|
||||
228 | 1 ampersand.s 228 | Code | 11 | | 3 | 00/1978 : 8D E1 18 | sta theX2
|
||||
229 | 1 ampersand.s 229 | Code | 11 | | 2 | 00/197B : A5 51 | lda {$50}+1
|
||||
230 | 1 ampersand.s 230 | Code | 11 | | 3 | 00/197D : 6D 80 18 | adc theX+1
|
||||
231 | 1 ampersand.s 231 | Code | 11 | | 3 | 00/1980 : 8D E2 18 | sta theX2+1 ; new X-coord
|
||||
232 | 1 ampersand.s 232 | Empty | 11 | | 0 | 00/1983 |
|
||||
233 | 1 ampersand.s 233 | Code | 11 | | 3 | 00/1983 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
234 | 1 ampersand.s 234 | Code | 11 | | 3 | 00/1986 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
235 | 1 ampersand.s 235 | Code | 11 | | 3 | 00/1989 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
236 | 1 ampersand.s 236 | Code | 11 | | 2 | 00/198C : A5 50 | lda {$50}
|
||||
237 | 1 ampersand.s 237 | Code | 11 | | 1 | 00/198E : 18 | clc
|
||||
238 | 1 ampersand.s 238 | Code | 11 | | 3 | 00/198F : 6D 81 18 | adc theY
|
||||
239 | 1 ampersand.s 239 | Code | 11 | | 3 | 00/1992 : 8D E3 18 | sta theY2
|
||||
240 | 1 ampersand.s 240 | Code | 11 | | 2 | 00/1995 : A5 51 | lda {$50}+1
|
||||
241 | 1 ampersand.s 241 | Code | 11 | | 3 | 00/1997 : 6D 81 18 | adc theY
|
||||
242 | 1 ampersand.s 242 | Code | 11 | | 3 | 00/199A : 8D E4 18 | sta theY2+1 ; new Y-coord
|
||||
243 | 1 ampersand.s 243 | Empty | 11 | | 0 | 00/199D |
|
||||
244 | 1 ampersand.s 244 | Code | 11 | | 3 | 00/199D : 20 BE DE | jsr {$debe} ; check for comma
|
||||
245 | 1 ampersand.s 245 | Code | 11 | | 3 | 00/19A0 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
246 | 1 ampersand.s 246 | Code | 11 | | 3 | 00/19A3 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
247 | 1 ampersand.s 247 | Code | 11 | | 2 | 00/19A6 : A5 50 | lda {$50}
|
||||
248 | 1 ampersand.s 248 | Code | 11 | | 3 | 00/19A8 : 8D E6 18 | sta theFB
|
||||
249 | 1 ampersand.s 249 | Empty | 11 | | 0 | 00/19AB |
|
||||
250 | 1 ampersand.s 250 | Comment | 11 | | 0 | 00/19AB | *---------- It is now time to draw as we have all variables
|
||||
251 | 1 ampersand.s 251 | Empty | 11 | | 0 | 00/19AB |
|
||||
252 | 1 ampersand.s 252 | Code | 11 | | 3 | 00/19AB : AC E7 18 | ldy theINK ; the ink color
|
||||
253 | 1 ampersand.s 253 | Code | 11 | | 3 | 00/19AE : BE E9 18 | ldx oric2hgr,y ; from the Oric to the Apple II
|
||||
254 | 1 ampersand.s 254 | Code | 11 | | 3 | 00/19B1 : 20 EC F6 | jsr {$f6e9}+3 ; to skip CHRGET
|
||||
255 | 1 ampersand.s 255 | Empty | 11 | | 0 | 00/19B4 |
|
||||
256 | 1 ampersand.s 256 | Code | 11 | | 3 | 00/19B4 : AE 7F 18 | ldx theX ; HPLOT x,y
|
||||
257 | 1 ampersand.s 257 | Code | 11 | | 3 | 00/19B7 : AC 80 18 | ldy theX+1
|
||||
258 | 1 ampersand.s 258 | Code | 11 | | 3 | 00/19BA : AD 81 18 | lda theY
|
||||
259 | 1 ampersand.s 259 | Code | 11 | | 3 | 00/19BD : 20 57 F4 | jsr {$f457}
|
||||
260 | 1 ampersand.s 260 | Empty | 11 | | 0 | 00/19C0 |
|
||||
261 | 1 ampersand.s 261 | Code | 11 | | 3 | 00/19C0 : AD E1 18 | lda theX2 ; TO x2,Y2
|
||||
262 | 1 ampersand.s 262 | Code | 11 | | 3 | 00/19C3 : AE E2 18 | ldx theX2+1
|
||||
263 | 1 ampersand.s 263 | Code | 11 | | 3 | 00/19C6 : AC E3 18 | ldy theY2
|
||||
264 | 1 ampersand.s 264 | Code | 11 | | 3 | 00/19C9 : 20 3A F5 | jsr {$f53a} ; draw the line
|
||||
265 | 1 ampersand.s 265 | Empty | 11 | | 0 | 00/19CC |
|
||||
266 | 1 ampersand.s 266 | Code | 11 | | 2 | 00/19CC : A5 E0 | lda {$e0} ; save the updated coords
|
||||
267 | 1 ampersand.s 267 | Code | 11 | | 3 | 00/19CE : 8D 7F 18 | sta theX
|
||||
268 | 1 ampersand.s 268 | Code | 11 | | 2 | 00/19D1 : A5 E1 | lda {$e1}
|
||||
269 | 1 ampersand.s 269 | Code | 11 | | 3 | 00/19D3 : 8D 80 18 | sta theX+1
|
||||
270 | 1 ampersand.s 270 | Code | 11 | | 2 | 00/19D6 : A5 E2 | lda {$e2}
|
||||
271 | 1 ampersand.s 271 | Code | 11 | | 3 | 00/19D8 : 8D 81 18 | sta theY
|
||||
272 | 1 ampersand.s 272 | Code | 11 | | 1 | 00/19DB : 60 | rts
|
||||
273 | 1 ampersand.s 273 | Empty | 11 | | 0 | 00/19DC |
|
||||
274 | 1 ampersand.s 274 | Comment | 11 | | 0 | 00/19DC | *----------------------------------- CIRCLE n,fb
|
||||
275 | 1 ampersand.s 275 | Empty | 11 | | 0 | 00/19DC |
|
||||
276 | 1 ampersand.s 276 | Empty | 11 | | 0 | 00/19DC | doC
|
||||
277 | 1 ampersand.s 277 | Code | 11 | | 3 | 00/19DC : 20 B1 00 | jsr {$b1} ; get next token
|
||||
278 | 1 ampersand.s 278 | Code | 11 | | 3 | 00/19DF : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
279 | 1 ampersand.s 279 | Code | 11 | | 3 | 00/19E2 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
280 | 1 ampersand.s 280 | Code | 11 | | 2 | 00/19E5 : A5 50 | lda {$50}
|
||||
281 | 1 ampersand.s 281 | Code | 11 | | 3 | 00/19E7 : 8D E5 18 | sta theRADIUS ; the radius
|
||||
282 | 1 ampersand.s 282 | Empty | 11 | | 0 | 00/19EA |
|
||||
283 | 1 ampersand.s 283 | Code | 11 | | 3 | 00/19EA : 20 BE DE | jsr {$debe} ; check for comma
|
||||
284 | 1 ampersand.s 284 | Code | 11 | | 3 | 00/19ED : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
285 | 1 ampersand.s 285 | Code | 11 | | 3 | 00/19F0 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
286 | 1 ampersand.s 286 | Code | 11 | | 2 | 00/19F3 : A5 50 | lda {$50}
|
||||
287 | 1 ampersand.s 287 | Code | 11 | | 3 | 00/19F5 : 8D E6 18 | sta theFB ; the foreground color
|
||||
288 | 1 ampersand.s 288 | Code | 11 | | 1 | 00/19F8 : 60 | rts
|
||||
289 | 1 ampersand.s 289 | Empty | 11 | | 0 | 00/19F9 |
|
||||
290 | 1 ampersand.s 290 | Comment | 11 | | 0 | 00/19F9 | *----------------------------------- INK fb
|
||||
291 | 1 ampersand.s 291 | Empty | 11 | | 0 | 00/19F9 |
|
||||
292 | 1 ampersand.s 292 | Empty | 11 | | 0 | 00/19F9 | doI
|
||||
293 | 1 ampersand.s 293 | Code | 11 | | 3 | 00/19F9 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
294 | 1 ampersand.s 294 | Code | 11 | | 3 | 00/19FC : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
295 | 1 ampersand.s 295 | Code | 11 | | 3 | 00/19FF : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
296 | 1 ampersand.s 296 | Code | 11 | | 2 | 00/1A02 : A5 50 | lda {$50}
|
||||
297 | 1 ampersand.s 297 | Code | 11 | | 3 | 00/1A04 : 8D E7 18 | sta theINK
|
||||
298 | 1 ampersand.s 298 | Code | 11 | | 1 | 00/1A07 : 60 | rts
|
||||
299 | 1 ampersand.s 299 | Empty | 11 | | 0 | 00/1A08 |
|
||||
300 | 1 ampersand.s 300 | Comment | 11 | | 0 | 00/1A08 | *----------------------------------- PAPER fb
|
||||
301 | 1 ampersand.s 301 | Empty | 11 | | 0 | 00/1A08 |
|
||||
302 | 1 ampersand.s 302 | Empty | 11 | | 0 | 00/1A08 | doP
|
||||
303 | 1 ampersand.s 303 | Code | 11 | | 3 | 00/1A08 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
304 | 1 ampersand.s 304 | Code | 11 | | 3 | 00/1A0B : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
305 | 1 ampersand.s 305 | Code | 11 | | 3 | 00/1A0E : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
306 | 1 ampersand.s 306 | Code | 11 | | 2 | 00/1A11 : A5 50 | lda {$50}
|
||||
307 | 1 ampersand.s 307 | Code | 11 | | 3 | 00/1A13 : 8D E8 18 | sta thePAPER
|
||||
308 | 1 ampersand.s 308 | Code | 11 | | 1 | 00/1A16 : 60 | rts
|
||||
309 | 1 ampersand.s 309 | Empty | 11 | | 0 | 00/1A17 |
|
||||
310 | 1 ampersand.s 310 | Comment | 11 | | 0 | 00/1A17 | *----------------------------------- HIRES
|
||||
311 | 1 ampersand.s 311 | Empty | 11 | | 0 | 00/1A17 |
|
||||
312 | 1 ampersand.s 312 | Empty | 11 | | 0 | 00/1A17 | doH
|
||||
313 | 1 ampersand.s 313 | Code | 11 | | 3 | 00/1A17 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
314 | 1 ampersand.s 314 | Empty | 11 | | 0 | 00/1A1A |
|
||||
315 | 1 ampersand.s 315 | Code | 11 | | 2 | 00/1A1A : A9 00 | lda #0
|
||||
316 | 1 ampersand.s 316 | Code | 11 | | 2 | 00/1A1C : 85 20 | sta {$20}
|
||||
317 | 1 ampersand.s 317 | Code | 11 | | 2 | 00/1A1E : A9 28 | lda #40
|
||||
318 | 1 ampersand.s 318 | Code | 11 | | 2 | 00/1A20 : 85 21 | sta {$21}
|
||||
319 | 1 ampersand.s 319 | Code | 11 | | 2 | 00/1A22 : A9 14 | lda #20
|
||||
320 | 1 ampersand.s 320 | Code | 11 | | 2 | 00/1A24 : 85 22 | sta {$22}
|
||||
321 | 1 ampersand.s 321 | Code | 11 | | 2 | 00/1A26 : A9 18 | lda #24
|
||||
322 | 1 ampersand.s 322 | Code | 11 | | 2 | 00/1A28 : 85 23 | sta {$23}
|
||||
323 | 1 ampersand.s 323 | Code | 11 | | 3 | 00/1A2A : 20 58 FC | jsr {$fc58}
|
||||
324 | 1 ampersand.s 324 | Empty | 11 | | 0 | 00/1A2D |
|
||||
325 | 1 ampersand.s 325 | Code | 11 | | 3 | 00/1A2D : 20 E2 F3 | jsr {$f3e2}
|
||||
326 | 1 ampersand.s 326 | Code | 11 | | 3 | 00/1A30 : 8D 52 C0 | sta {$c052}
|
||||
327 | 1 ampersand.s 327 | Code | 11 | | 1 | 00/1A33 : 60 | rts
|
||||
328 | 1 ampersand.s 328 | Empty | 11 | | 0 | 00/1A34 |
|
||||
329 | 1 ampersand.s 329 | Comment | 11 | | 0 | 00/1A34 | *----------------------------------- WAIT x
|
||||
330 | 1 ampersand.s 330 | Empty | 11 | | 0 | 00/1A34 |
|
||||
331 | 1 ampersand.s 331 | Empty | 11 | | 0 | 00/1A34 | doW
|
||||
332 | 1 ampersand.s 332 | Code | 11 | | 3 | 00/1A34 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
333 | 1 ampersand.s 333 | Code | 11 | | 3 | 00/1A37 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
334 | 1 ampersand.s 334 | Code | 11 | | 3 | 00/1A3A : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
335 | 1 ampersand.s 335 | Empty | 11 | | 0 | 00/1A3D |
|
||||
336 | 1 ampersand.s 336 | Code | 11 | | 2 | 00/1A3D : A6 51 | ldx {$50}+1
|
||||
337 | 1 ampersand.s 337 | Code | 11 | | 2 | 00/1A3F : A4 50 | doW1 ldy {$50}
|
||||
338 | 1 ampersand.s 338 | Code | 11 | | 2 | 00/1A41 : A9 3C | ozunid_2 lda #60 ; 1/100<30>me de seconde
|
||||
339 | 1 ampersand.s 339 | Code | 11 | | 3 | 00/1A43 : 20 A8 FC | jsr {$fca8}
|
||||
340 | 1 ampersand.s 340 | Code | 11 | | 1 | 00/1A46 : 88 | dey
|
||||
341 | 1 ampersand.s 341 | Code | 11 | | 2 | 00/1A47 : D0 F8 | bne ozunid_2
|
||||
342 | 1 ampersand.s 342 | Code | 11 | | 1 | 00/1A49 : CA | dex
|
||||
343 | 1 ampersand.s 343 | Code | 11 | | 2 | 00/1A4A : 10 F3 | bpl doW1
|
||||
344 | 1 ampersand.s 344 | Code | 11 | | 1 | 00/1A4C : 60 | rts
|
||||
345 | 1 ampersand.s 345 | Empty | 11 | | 0 | 00/1A4D |
|
||||
346 | 1 ampersand.s 346 | Comment | 11 | | 0 | 00/1A4D | *----------------------------------- EXPLODE
|
||||
347 | 1 ampersand.s 347 | Empty | 11 | | 0 | 00/1A4D |
|
||||
348 | 1 ampersand.s 348 | Empty | 11 | | 0 | 00/1A4D | doE
|
||||
349 | 1 ampersand.s 349 | Code | 11 | | 3 | 00/1A4D : 20 B1 00 | jsr {$b1}
|
||||
350 | 1 ampersand.s 350 | Code | 11 | | 1 | 00/1A50 : 60 | rts
|
||||
351 | 1 ampersand.s 351 | Empty | 11 | | 0 | 00/1A51 |
|
||||
352 | 1 ampersand.s 352 | Comment | 11 | | 0 | 00/1A51 | *----------------------------------- RESTORE address
|
||||
353 | 1 ampersand.s 353 | Empty | 11 | | 0 | 00/1A51 |
|
||||
354 | 1 ampersand.s 354 | Empty | 11 | | 0 | 00/1A51 | doR
|
||||
355 | 1 ampersand.s 355 | Code | 11 | | 3 | 00/1A51 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
356 | 1 ampersand.s 356 | Code | 11 | | 3 | 00/1A54 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
357 | 1 ampersand.s 357 | Code | 11 | | 3 | 00/1A57 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
358 | 1 ampersand.s 358 | Code | 11 | | 3 | 00/1A5A : 20 1A D6 | jsr {$d61a} ; find chosen line no.
|
||||
359 | 1 ampersand.s 359 | Empty | 11 | | 0 | 00/1A5D |
|
||||
360 | 1 ampersand.s 360 | Code | 11 | | 2 | 00/1A5D : A4 9C | ldy {$9b}+1 ; point DATPTR at byte before it
|
||||
361 | 1 ampersand.s 361 | Code | 11 | | 2 | 00/1A5F : A6 9B | ldx {$9b}
|
||||
362 | 1 ampersand.s 362 | Code | 11 | | 2 | 00/1A61 : D0 01 | bne dx
|
||||
363 | 1 ampersand.s 363 | Code | 11 | | 1 | 00/1A63 : 88 | dey
|
||||
364 | 1 ampersand.s 364 | Code | 11 | | 1 | 00/1A64 : CA | dx dex
|
||||
365 | 1 ampersand.s 365 | Code | 11 | | 2 | 00/1A65 : 84 7E | sty {$7d}+1
|
||||
366 | 1 ampersand.s 366 | Code | 11 | | 2 | 00/1A67 : 86 7D | stx {$7d}
|
||||
367 | 1 ampersand.s 367 | Code | 11 | | 1 | 00/1A69 : 60 | rts
|
||||
368 | 1 ampersand.s 368 | Empty | 11 | | 0 | 00/1A6A |
|
||||
369 | 1 ampersand.s 369 | Comment | 11 | | 0 | 00/1A6A | *----------------------------------- GOSUB expression
|
||||
370 | 1 ampersand.s 370 | Empty | 11 | | 0 | 00/1A6A |
|
||||
371 | 1 ampersand.s 371 | Empty | 11 | | 0 | 00/1A6A | doG
|
||||
372 | 1 ampersand.s 372 | Code | 11 | | 2 | 00/1A6A : A9 03 | lda #3 ; make sure there's enough stack
|
||||
373 | 1 ampersand.s 373 | Code | 11 | | 3 | 00/1A6C : 20 D6 D3 | jsr {$d3d6}
|
||||
374 | 1 ampersand.s 374 | Empty | 11 | | 0 | 00/1A6F |
|
||||
375 | 1 ampersand.s 375 | Code | 11 | | 2 | 00/1A6F : A5 B9 | lda {$b8}+1 ; push marker for RETURN
|
||||
376 | 1 ampersand.s 376 | Code | 11 | | 1 | 00/1A71 : 48 | pha
|
||||
377 | 1 ampersand.s 377 | Code | 11 | | 2 | 00/1A72 : A5 B8 | lda {$b8}
|
||||
378 | 1 ampersand.s 378 | Code | 11 | | 1 | 00/1A74 : 48 | pha
|
||||
379 | 1 ampersand.s 379 | Code | 11 | | 2 | 00/1A75 : A5 76 | lda {$75}+1
|
||||
380 | 1 ampersand.s 380 | Code | 11 | | 1 | 00/1A77 : 48 | pha
|
||||
381 | 1 ampersand.s 381 | Code | 11 | | 2 | 00/1A78 : A5 75 | lda {$75}
|
||||
382 | 1 ampersand.s 382 | Code | 11 | | 1 | 00/1A7A : 48 | pha
|
||||
383 | 1 ampersand.s 383 | Code | 11 | | 2 | 00/1A7B : A9 B0 | lda #{$b0}
|
||||
384 | 1 ampersand.s 384 | Code | 11 | | 1 | 00/1A7D : 48 | pha
|
||||
385 | 1 ampersand.s 385 | Empty | 11 | | 0 | 00/1A7E |
|
||||
386 | 1 ampersand.s 386 | Code | 11 | | 3 | 00/1A7E : 20 B1 00 | jsr {$b1} ; get next token
|
||||
387 | 1 ampersand.s 387 | Code | 11 | | 3 | 00/1A81 : 20 67 DD | jsr {$dd67} ; parse numeric expr
|
||||
388 | 1 ampersand.s 388 | Code | 11 | | 3 | 00/1A84 : 20 52 E7 | jsr {$e752} ; convert it to int
|
||||
389 | 1 ampersand.s 389 | Code | 11 | | 3 | 00/1A87 : 20 41 D9 | jsr {$d93e}+3 ; point at chosen statement
|
||||
390 | 1 ampersand.s 390 | Code | 11 | | 3 | 00/1A8A : 4C D2 D7 | jmp {$d7d2} ; start running it
|
||||
391 | 1 ampersand.s 391 | Empty | 11 | | 0 | 00/1A8D |
|
||||
392 | 1 ampersand.s 392 | Comment | 11 | | 0 | 00/1A8D | *----------------------------------- GOTO expression
|
||||
393 | 1 ampersand.s 393 | Empty | 11 | | 0 | 00/1A8D |
|
||||
394 | 1 ampersand.s 394 | Empty | 11 | | 0 | 00/1A8D | doT
|
||||
395 | 1 ampersand.s 395 | Code | 11 | | 3 | 00/1A8D : 20 B1 00 | jsr {$b1} ; get next token
|
||||
396 | 1 ampersand.s 396 | Code | 11 | | 3 | 00/1A90 : 20 67 DD | jsr {$dd67} ; parse numeric expr
|
||||
397 | 1 ampersand.s 397 | Code | 11 | | 3 | 00/1A93 : 20 52 E7 | jsr {$e752} ; convert it to int
|
||||
398 | 1 ampersand.s 398 | Code | 11 | | 3 | 00/1A96 : 4C 41 D9 | jmp {$d93e}+3 ; point at chosen statement
|
||||
399 | 1 ampersand.s 399 | Empty | 11 | | 0 | 00/1A99 |
|
||||
400 | 1 ampersand.s 400 | Comment | 11 | | 0 | 00/1A99 | *--- End of code
|
||||
401 | 1 ampersand.s 401 | Empty | 11 | | 0 | 00/1A99 |
|
||||
402 | 1 ampersand.s 402 | Data | 11 | | 42 | 00/1A99 : A8 E3 A9 A0 | asc "(c) 2023, Antoine Vignau & Olivier Zardini"
|
||||
| | | | | | B2 B0 B2 B3 |
|
||||
| | | | | | AC A0 C1 EE |
|
||||
| | | | | | F4 EF E9 EE |
|
||||
| | | | | | E5 A0 D6 E9 |
|
||||
| | | | | | E7 EE E1 F5 |
|
||||
| | | | | | A0 A6 A0 CF |
|
||||
| | | | | | EC E9 F6 E9 |
|
||||
| | | | | | E5 F2 A0 DA |
|
||||
| | | | | | E1 F2 E4 E9 |
|
||||
| | | | | | EE E9 |
|
||||
403 | 1 ampersand.s 403 | Empty | 11 | | 0 | 00/1AC3 |
|
||||
------+-----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
2081
lemanoirdudocteurgenius/apple2/images.s
Normal file
2081
lemanoirdudocteurgenius/apple2/images.s
Normal file
File diff suppressed because it is too large
Load Diff
475
lemanoirdudocteurgenius/apple2/musiques.s
Normal file
475
lemanoirdudocteurgenius/apple2/musiques.s
Normal file
|
@ -0,0 +1,475 @@
|
|||
*
|
||||
* Le manoir du Dr Genius - Musiques
|
||||
*
|
||||
* (c) 1983, Loriciels (Oric)
|
||||
* (c) 2023, Brutal Deluxe Software (Apple II)
|
||||
*
|
||||
|
||||
mx %11
|
||||
lst off
|
||||
|
||||
*-----------------------------------
|
||||
* PLAYMUSIC
|
||||
*-----------------------------------
|
||||
|
||||
playMUSIC
|
||||
sty $1e
|
||||
stx $1f
|
||||
|
||||
LDA #$01
|
||||
STA $09
|
||||
STA $1D
|
||||
PHA
|
||||
PHA
|
||||
PHA
|
||||
BNE LA04D
|
||||
LA038 INY
|
||||
LDA ($1E),Y
|
||||
STA $09
|
||||
INY
|
||||
LDA ($1E),Y
|
||||
STA $1D
|
||||
LA042 LDA $1E
|
||||
CLC
|
||||
ADC #$03
|
||||
STA $1E
|
||||
BCC LA04D
|
||||
INC $1F
|
||||
LA04D LDY #$00
|
||||
LDA ($1E),Y
|
||||
CMP #$01
|
||||
BEQ LA038
|
||||
BCS LA067
|
||||
PLA
|
||||
PLA
|
||||
PLA
|
||||
LA05A LDX #$49
|
||||
INY
|
||||
LDA ($1E),Y
|
||||
BNE LA063
|
||||
LDX #$C9
|
||||
LA063 BIT KBDSTROBE
|
||||
RTS
|
||||
|
||||
LA067 STA $08
|
||||
JSR LA05A
|
||||
STX LA0B6
|
||||
STA $06
|
||||
LDX $09
|
||||
LA073 LSR
|
||||
DEX
|
||||
BNE LA073
|
||||
STA LA0AE+1
|
||||
JSR LA05A
|
||||
STX LA0EE
|
||||
STA $07
|
||||
LDX $1D
|
||||
LA084 LSR
|
||||
DEX
|
||||
BNE LA084
|
||||
STA LA0E6+1
|
||||
*
|
||||
PLA
|
||||
TAY
|
||||
PLA
|
||||
TAX
|
||||
PLA
|
||||
BNE LA098
|
||||
LA095 BIT SPKR
|
||||
LA098 CMP #$00
|
||||
BMI LA09F
|
||||
NOP
|
||||
BPL LA0A2
|
||||
LA09F BIT SPKR
|
||||
LA0A2 STA $4E
|
||||
BIT KBD
|
||||
BMI LA063
|
||||
DEY
|
||||
BNE LA0AE
|
||||
BEQ LA0B4
|
||||
LA0AE CPY #$36
|
||||
BEQ LA0B6
|
||||
BNE LA0B8
|
||||
LA0B4 LDY $06
|
||||
LA0B6 EOR #$40
|
||||
LA0B8 BIT $4E
|
||||
BVC LA0C3
|
||||
BVS LA0BE
|
||||
LA0BE BPL LA0C9
|
||||
NOP
|
||||
BMI LA0CC
|
||||
LA0C3 NOP
|
||||
BMI LA0C9
|
||||
NOP
|
||||
BPL LA0CC
|
||||
LA0C9 CMP SPKR
|
||||
LA0CC DEC $4F
|
||||
BNE LA0E1
|
||||
DEC $08
|
||||
BNE LA0E1
|
||||
BVC LA0D9
|
||||
BIT SPKR
|
||||
LA0D9 PHA
|
||||
TXA
|
||||
PHA
|
||||
TYA
|
||||
PHA
|
||||
JMP LA042
|
||||
|
||||
LA0E1 DEX
|
||||
BNE LA0E6
|
||||
BEQ LA0EC
|
||||
LA0E6 CPX #$0C
|
||||
BEQ LA0EE
|
||||
BNE LA0F0
|
||||
LA0EC LDX $07
|
||||
LA0EE EOR #$80
|
||||
LA0F0 BVS LA095
|
||||
NOP
|
||||
BVC LA098
|
||||
NOP
|
||||
|
||||
*--- End of player
|
||||
|
||||
*--- INTRODUCTION (Prelude)
|
||||
|
||||
zikINTRODUCTION
|
||||
hex 0C80000C2B800C19800C1C800C19400C
|
||||
hex 2B400C19560C2B560C80000C2B800C19
|
||||
hex 800C1C800C19400C2B400C19560C2B56
|
||||
hex 0102020C80000C26800C18800C19800C
|
||||
hex 18390C26390C18400C26400C80000C26
|
||||
hex 800C18800C19800C18440C26440C1840
|
||||
hex 0C26400103030C80000C22800C18800C
|
||||
hex 19800C18390C22390C18560C22560C80
|
||||
hex 000C22800C18800C19800C18560C2256
|
||||
hex 0C18390C22390102020C80000C20800C
|
||||
hex 19800C1C800C19560C20560C19560C20
|
||||
hex 560C4C000C204C0C194C0C1C4C0C1944
|
||||
hex 0C20440C19440C20440101010C80000C
|
||||
hex 26800C19800C1C800C19400C20400C22
|
||||
hex 400C20400C26390C20390C22390C2039
|
||||
hex 0C33000C2B330C2D330C33000102020C
|
||||
hex 2D000C202D0C1C330C20330C1C390C20
|
||||
hex 390C1C400C20400C44000C20440C1C4C
|
||||
hex 0C204C0C1C560C20560C1C600C206001
|
||||
hex 01010C22560C1C560C15560C16560C15
|
||||
hex 560C1C560C20000C1C000C22560C1C56
|
||||
hex 0C20560C1C560C2B560C22560C26000C
|
||||
hex 2B000102020C4C000C334C0C204C0C22
|
||||
hex 4C0C204C0C334C0C204C0C334C0C5600
|
||||
hex 0C33560C20560C22560C204C0C334C0C
|
||||
hex 20560C33560103030C4C000C264C0C2B
|
||||
hex 4C0C264C0C2B000C2D000C33000C3900
|
||||
hex 0C20720C22720C26720C15000C16000C
|
||||
hex 19000C1C000C20000102020C22560C26
|
||||
hex 560C2B560C15560C1C560C15560C2200
|
||||
hex 0C1C000C2B560C26560C22560C1C560C
|
||||
hex 20560C22560C26000C2B000101010C1E
|
||||
hex 560C2B560C24560C26560C243C0C2B3C
|
||||
hex 0C1E330C2B330C19560C2B560C24560C
|
||||
hex 26560C243C0C2B3C0C1E330C2B330102
|
||||
hex 020C60000C26600C1C600C19600C1860
|
||||
hex 0C1C600C26600C2B600C30000C26300C
|
||||
hex 1C330C19330C18390C1C390C22720C26
|
||||
hex 720103030C28660C22660C28660C2266
|
||||
hex 0C1C300C22300C1C330C22330C28390C
|
||||
hex 22390C28390C22390C1C400C22400C1C
|
||||
hex 440C22440102020C204C0C224C0C2633
|
||||
hex 0C20330C22300C20300C1C300C22300C
|
||||
hex 204C0C224C0C264C0C2B4C0C30000C33
|
||||
hex 000C39000C40000101010C44000C3044
|
||||
hex 0C2B440C30440C2B440C30440C2B000C
|
||||
hex 30000102020C72000C30720C2B720C30
|
||||
hex 720C2B720C30720C2B000C3000010101
|
||||
hex 0C40000C33400C24400C26400C24800C
|
||||
hex 33800C24800C33800102020C40000C33
|
||||
hex 400C24400C26400C24800C33800C2480
|
||||
hex 0C33800103030C40000C30400C26400C
|
||||
hex 2B400C26800C30800C26800C30800102
|
||||
hex 020C40000C30400C26400C2B400C2680
|
||||
hex 0C30800C26800C30800103030C40000C
|
||||
hex 22400C18400C19400C18800C22800C18
|
||||
hex 800C22800102020C40000C22400C1840
|
||||
hex 0C19400C18800C22800C18800C228001
|
||||
hex 01010C40000C2B400C19400C1C400C19
|
||||
hex 800C20800C22800C26800C2B800C3080
|
||||
hex 0C33800C39800C40000C44000C4C000C
|
||||
hex 56000102020C5A000C395A0C265A0C22
|
||||
hex 5A0C205A0C265A0C22000C2000010401
|
||||
hex 0101010C5A000C395A0C265A0C225A0C
|
||||
hex 205A0C265A0C22000C20000102020C60
|
||||
hex 000C39600C2B600C26600C22600C2B60
|
||||
hex 0C26000C22000103030C60000C39600C
|
||||
hex 2B600C26600C22600C2B600C26000C22
|
||||
hex 000101010C60000C39600C2B300C2230
|
||||
hex 0C1C300C16300C15560102020C15000C
|
||||
hex 39000C33000C2D000C2B000C26000C22
|
||||
hex 000C20000103030C1C560C22560C2B56
|
||||
hex 0C26560C22560C20560C1C000C190001
|
||||
hex 02020C18560C1C560C22560C20560C1C
|
||||
hex 560C19560C18000C15000103030C1422
|
||||
hex 0C15220C16220C15220C15280C18280C
|
||||
hex 19280C18280C182B0C1C2B0C222B0C26
|
||||
hex 2B0C2B560C30560C33560C3056010202
|
||||
hex 0C56000C39560C2B560C22560C1C560C
|
||||
hex 19560C18000C1C000C19560C20560C2B
|
||||
hex 560C30560C33560C40560C39000C3300
|
||||
hex 0101010C56000C40560C33560C2B560C
|
||||
hex 20560C1C560C19000C20000102020C16
|
||||
hex 260C1B260C1C260C1B260C1B2D0C1C2D
|
||||
hex 0C1E2D0C1C2D0C1C000C20000C22000C
|
||||
hex 20000C20000C26000C2D000C33000C39
|
||||
hex 000C2D390C26390C20390C1C400C1640
|
||||
hex 0C15400C16400103030C15440C1C440C
|
||||
hex 22440C26440C22660C1C660C2B660C22
|
||||
hex 660102020C39000C2B390C2D390C3339
|
||||
hex 0C395A0C405A0C445A0C4C5A0101010C
|
||||
hex 00560C00560C184C0C194C0C1C440C20
|
||||
hex 440C22400C26400C2B390C18390C1933
|
||||
hex 0C1C330C20300C22300C26400C2B4001
|
||||
hex 02020C304C0C194C0C1C4C0C204C0C22
|
||||
hex 000C26000C2B000C30000C33500C1C50
|
||||
hex 0C204C0C224C0C26440C28440C30800C
|
||||
hex 33800103030C39600C20600C22600C26
|
||||
hex 600C22560C1C560C2B440C1C440C2640
|
||||
hex 0C1C400C22390C1C390C20330C1C330C
|
||||
hex 262D0C1C2D0102020C22560C1C560C2B
|
||||
hex 440C1C440C20330C1C330C262D0C1C2D
|
||||
hex 0C22560C1C560C2B440C1C440C20330C
|
||||
hex 1C330C262D0C1C2D0101010C22560C1C
|
||||
hex 560C2B2B0C1C2B0C26260C1C260C2222
|
||||
hex 0C1C220C20200C1C200C1C1C0C1C000C
|
||||
hex 19190C1C190C2B2B0C1C2B0102020C1C
|
||||
hex 1C0C1C000C19190C1C190C18180C1C18
|
||||
hex 0C2B2B0C1C2B0C19190C1C190C18180C
|
||||
hex 1C180C15150C1C150C19190C1C190103
|
||||
hex 030C18180C1C180C19190C1C190C1818
|
||||
hex 0C1C180C1C1C0C1C000C19190C1C190C
|
||||
hex 1C1C0C1C000C19190C1C190C20200C1C
|
||||
hex 200102020C1C1C0C1C000C20200C1C20
|
||||
hex 0C1C1C0C1C000C22220C1C220C20200C
|
||||
hex 1C200C22220C1C220C20200C1C200C26
|
||||
hex 260C1C260101010C22220C1C220C2B2B
|
||||
hex 0C262B0102020C243C0C24560C22390C
|
||||
hex 22560C20360C20560C1E330C1E560C1C
|
||||
hex 300C1C560C1B2D0103030C1B560C192B
|
||||
hex 0C19560C18280C18560C16260C16560C
|
||||
hex 15240C15560C14220C14560C13200C13
|
||||
hex 560C121E0C12560C111C0C1156010101
|
||||
hex 0C10560C19560C2B560C19560C102B0C
|
||||
hex 192B0C102B0C192B0103030C10560C19
|
||||
hex 560C2B560C19560C102B0C192B0C102B
|
||||
hex 0C192B0101010C10560C1C560C2B560C
|
||||
hex 1C560C102B0C1C2B0C102B0C1C2B0103
|
||||
hex 030C10560C1C560C2B560C1C560C102B
|
||||
hex 0C1C2B0C102B0C1C2B0101010C11560C
|
||||
hex 1C560C2B560C1C560C11300C1C300C11
|
||||
hex 300C1C300102020C11560C1C560C2B56
|
||||
hex 0C1C560C11300C1C300C11560C1C5630
|
||||
hex 1040FFFFFE00FFFE1000000000000000
|
||||
hex 00000000000000000000000000000000
|
||||
|
||||
*--- GAGNE (Air)
|
||||
|
||||
zikGAGNE
|
||||
hex 01020308000008306008306008306020
|
||||
hex 3C7808000008366C08366C08366C4040
|
||||
hex 80080000083000083000083000083C90
|
||||
hex 082D90082D90082D90083090081E9008
|
||||
hex 1E90081E901824900824900824900830
|
||||
hex 90083090083090084098082D98082D98
|
||||
hex 082D98083098081B98081B98081B9818
|
||||
hex 2098082098082098081898081898081B
|
||||
hex 98081E00081E78081E78081E6C082060
|
||||
hex 081860081860081B60081E00081E7808
|
||||
hex 1E78081E6C082060081860081860081B
|
||||
hex 60101E60100000102478100000201880
|
||||
hex 080000082D5A082D5A082D5A601B6C08
|
||||
hex 0000082D00082D00082D000836400836
|
||||
hex 4008364008364C08365A08365A08365A
|
||||
hex 0836600836C00836C00836C0083C6008
|
||||
hex 2D00082D00082D000836000836400836
|
||||
hex 4008364008364C08365A08365A08365A
|
||||
hex 083660081BC0081BC0081BC0081E6008
|
||||
hex 30000824000824001024D80824000824
|
||||
hex D80826D80826D80826000820001020D8
|
||||
hex 0820000820D80824D80824D808240008
|
||||
hex 1E00081E4C08204C062000040000061B
|
||||
hex 00030000081B50081C50061C00040000
|
||||
hex 061800030000081848081B48061B0004
|
||||
hex 00000616000300000816480818480618
|
||||
hex 00040000061400030000081448081648
|
||||
hex 06160004000006120003000008125608
|
||||
hex 13560613000400000610000400000812
|
||||
hex 60080F60080F00080F60081260081860
|
||||
hex 081800081860081E6008246008300008
|
||||
hex 3060083C60084860084800084860084C
|
||||
hex 6C080D6C08100008106C08136C08166C
|
||||
hex 08180008186C08206C08266C08300008
|
||||
hex 366C08406C084C6C0848000848000848
|
||||
hex 56080F56080F00080F56081256081556
|
||||
hex 081500081556081856081E56081E0008
|
||||
hex 1E56082456082B56082B00082B562015
|
||||
hex 56100000200000201450100000080000
|
||||
hex 08280008280008280020003C20360020
|
||||
hex 0050102850101E501020A0081E00081E
|
||||
hex A0101BA00824000824A01024F0082800
|
||||
hex 0828F01028F0081E00081EF01020A008
|
||||
hex 1E00081EA0101BA00824000824A01024
|
||||
hex F00828000828F01028F0081E00081EF0
|
||||
hex 1020A0081E00081EA0101BA008240008
|
||||
hex 24A01024F00828000828F01028C00824
|
||||
hex 000824C01022E40824000824E41028D8
|
||||
hex 0824000824D81028D8082B00082BD810
|
||||
hex 22B4081E00081EB4101BC0081E00081E
|
||||
hex C01022E4081E00081EE41022B4082400
|
||||
hex 0824B4101EB4081B00081BB41019AC08
|
||||
hex 1B00081BAC101EAC081B00081BAC1019
|
||||
hex A0081B00081BA0101EA0101B00101998
|
||||
hex 081B00081B98101E98101B0010199008
|
||||
hex 1B00081B90101E90101B00101990081B
|
||||
hex 00081B90101990101500101480081400
|
||||
hex 0814800814F00612F00600000614F006
|
||||
hex 00000618F00600000818F00818F0061B
|
||||
hex 00060000061E00060000081ED80820D8
|
||||
hex 062400060000062000060000081BC008
|
||||
hex 1EC00628000600000630000600000820
|
||||
hex B40824B4062D00060000063600060000
|
||||
hex 0824A00828A0063000060000063C0006
|
||||
hex 00000800A00815A00814000815000814
|
||||
hex F00815F00814D80815D80614A0060000
|
||||
hex 0612A006000006148006000006168006
|
||||
hex 00000816F00818F0061BC0060000061E
|
||||
hex C0060000081ED80820D80624B4060000
|
||||
hex 0620B4060000081BC0081EC00628A006
|
||||
hex 00000630A00600000820B40824B4062D
|
||||
hex 900600000636900600000824A00828A0
|
||||
hex 061650060000061B500600000800A008
|
||||
hex 28A0081450081450081E50080B30080B
|
||||
hex 30080B30080F3C081450081450081450
|
||||
hex 081860081E3C081E3C081E3C0828A008
|
||||
hex 1B50081B50081B50081878080B30080B
|
||||
hex 30080B30080F3C081450081450081450
|
||||
hex 081860081E78081E78081E780828A008
|
||||
hex 14500814500814501014501000000800
|
||||
hex 00081450081450081450101450100000
|
||||
hex 080000081050081050081050100F5010
|
||||
hex 00002000004000000830600830600830
|
||||
hex 60203C7808000008366C08366C08366C
|
||||
hex 40408008000008300008300008300008
|
||||
hex 3C90082D90082D90082D90083090081E
|
||||
hex 90081E90081E90182490082490082490
|
||||
hex 083090083090083090084098082D9808
|
||||
hex 2D98082D98083098081B98081B98081B
|
||||
hex 98182098082098082098081898081898
|
||||
hex 081B98081E00081E78081E78081E6C08
|
||||
hex 2060081860081860081B60081E00081E
|
||||
hex 78081E78081E6C082060081860081860
|
||||
hex 081B60101E6010000010247810000020
|
||||
hex 188008000008165A08165A08165A601B
|
||||
hex 6C080000082D00082D00082D00083640
|
||||
hex 08364008364008364C08365A08365A08
|
||||
hex 365A0836600836C00836C00836C0083C
|
||||
hex 60082D00082D00082D00083600083640
|
||||
hex 08364008364008364C08365A08365A08
|
||||
hex 365A083660081BC0081BC0081BC0081E
|
||||
hex 600830000824000824001024D8082400
|
||||
hex 0824D80826D80826D808260008200010
|
||||
hex 20D80820000820D80824D80824D80824
|
||||
hex 00081E00081E4C08204C062000060000
|
||||
hex 061B00060000081B50081C50061C0006
|
||||
hex 0000061800060000081848081B48061B
|
||||
hex 00060000061600060000081648081848
|
||||
hex 06180006000006140006000008144808
|
||||
hex 16480616000600000612000600000812
|
||||
hex 56081356061300060000061000060000
|
||||
hex 081260080F60080F00080F6008126008
|
||||
hex 1860081800081860081E600824600830
|
||||
hex 00083060083C60084860084800084860
|
||||
hex 084C6C080D6C08100008106C08136C08
|
||||
hex 166C08180008186C08206C08266C0830
|
||||
hex 0008366C08406C084C6C084800084800
|
||||
hex 08482D080F3C080F3C080F3C08124808
|
||||
hex 1556081556081556081966081E78081E
|
||||
hex 78081E78082490082BAC082BAC082BAC
|
||||
hex 10339010000020000010309810000008
|
||||
hex 0000083000083000083000083C90082D
|
||||
hex 90082D90082D90083090081E90081E90
|
||||
hex 081E9010249008249008249008309008
|
||||
hex 3090083090083C90082D90082D90082D
|
||||
hex 90083090081E90081E90081E90182490
|
||||
hex 0824900824900820C00820C00820C010
|
||||
hex 1E901000000800000820C00820C00820
|
||||
hex C0101EC01000000800000820C00820C0
|
||||
hex 0820C0101ED81020C0101ED81020C010
|
||||
hex 1ED81015C01014D81015C01014D81000
|
||||
hex 001026C01000002024D80062C5000000
|
||||
hex 00000000000000000000000000000000
|
||||
|
||||
*--- PERDU (Beethoven's fifth)
|
||||
|
||||
zikPERDU
|
||||
hex 010303302B6C302B36302B39302B7230
|
||||
hex 2B80302B40302B48302B90309FA00102
|
||||
hex 0218205018285018304C18364C183998
|
||||
hex 1836980C39900C36900C39900C369030
|
||||
hex 39901840901848903048A00101013024
|
||||
hex AC302456302460302460180066010303
|
||||
hex 182B66183C6618406618308018338018
|
||||
hex 24801828800102023028601828601828
|
||||
hex 6C182860182856182850182860182872
|
||||
hex 01010118307218407218487218369018
|
||||
hex 3990182890182B90302B6C302B36302B
|
||||
hex 390102021826721824723036800C3640
|
||||
hex 0C3040182B40182B4C18304C18306018
|
||||
hex 36600103031839481840480C406C0C39
|
||||
hex 6C18366C303660183960184060010101
|
||||
hex 18489018488018487218486C18486018
|
||||
hex 4850184856184860010303302B6C302B
|
||||
hex 36302B39302B72302B80302B40302B48
|
||||
hex 302B90309FA001020218205018285018
|
||||
hex 304C18364C1839981836980C39900C36
|
||||
hex 900C39900C3690303990184090184890
|
||||
hex 3048A00101013024AC30245630246030
|
||||
hex 2460180066010303182B66183C661840
|
||||
hex 66183080183380182480182880010202
|
||||
hex 30286018286018286C18286018285618
|
||||
hex 28501828601828720101011830721840
|
||||
hex 72184872183690183990182890182B90
|
||||
hex 302B6C302B36302B3901020218267218
|
||||
hex 24723036800C36400C3040182B40182B
|
||||
hex 4C18304C183060183660010303183948
|
||||
hex 1840480C406C0C396C18366C30366018
|
||||
hex 3960184060010101C0488F3039903039
|
||||
hex 481839500C36500C39500C40A00C39A0
|
||||
hex 1848A01848AC1840AC303C56303C6030
|
||||
hex 3C600102023040663020661800561824
|
||||
hex 56182880182B80010303302860302860
|
||||
hex 0C286C0C2B6C0C306C0C366C18396C18
|
||||
hex 406C0102021844721840723039721839
|
||||
hex 80183680303080010404183090182B90
|
||||
hex 302880302872302B9001020218308018
|
||||
hex 36801839501840500C39600C36601830
|
||||
hex 60303656304080303F40304748308F90
|
||||
hex 01010130369830364C183656182B5618
|
||||
hex 30AC1836AC3020601820601820563020
|
||||
hex 4C18246C18266C0103030C2B720C3072
|
||||
hex 18247230487230406C1840600C39600C
|
||||
hex 3660303990183948183F403048500101
|
||||
hex 013048A03036AC303656303650182BA0
|
||||
hex 1830A001020230309830304C30304818
|
||||
hex 2890182B90010303302B88302B44302B
|
||||
hex 40182480182880010404302860302830
|
||||
hex 30283630286C01040430487230487218
|
||||
hex 48901839901830721828720103031828
|
||||
hex 6C182B6C302B6C302B78182B780C2878
|
||||
hex 0C247801020230368030368018369018
|
||||
hex 2B90182448181E480103033020503020
|
||||
hex 50302056303656183960183060302860
|
||||
hex 30286C30406C3048720102020C30900C
|
||||
hex 2B9018289018286C182B6C182B501830
|
||||
hex 500103030C36900C39901840901840A0
|
||||
hex 1839A00C39900C36900C39900C369018
|
||||
hex 39901836903036D8C0D7D80066B31000
|
||||
hex 00000000000000000000000000000000
|
130
lemanoirdudocteurgenius/apple2/player.s
Normal file
130
lemanoirdudocteurgenius/apple2/player.s
Normal file
|
@ -0,0 +1,130 @@
|
|||
*--- Electric Duet player
|
||||
|
||||
LA025 LDA #$00 ; music is at $4000
|
||||
STA $1E
|
||||
LDA #$40
|
||||
STA $1F
|
||||
LDA #$01
|
||||
STA $09
|
||||
STA $1D
|
||||
PHA
|
||||
PHA
|
||||
PHA
|
||||
BNE LA04D
|
||||
LA038 INY
|
||||
LDA ($1E),Y
|
||||
STA $09
|
||||
INY
|
||||
LDA ($1E),Y
|
||||
STA $1D
|
||||
LA042 LDA $1E
|
||||
CLC
|
||||
ADC #$03
|
||||
STA $1E
|
||||
BCC LA04D
|
||||
INC $1F
|
||||
LA04D LDY #$00
|
||||
LDA ($1E),Y
|
||||
CMP #$01
|
||||
BEQ LA038
|
||||
BCS LA067
|
||||
PLA
|
||||
PLA
|
||||
PLA
|
||||
LA05A LDX #$49
|
||||
INY
|
||||
LDA ($1E),Y
|
||||
BNE LA063
|
||||
LDX #$C9
|
||||
LA063 BIT KBDSTROBE
|
||||
RTS
|
||||
|
||||
LA067 STA $08
|
||||
JSR LA05A
|
||||
STX LA0B6
|
||||
STA $06
|
||||
LDX $09
|
||||
LA073 LSR
|
||||
DEX
|
||||
BNE LA073
|
||||
STA LA0AE+1
|
||||
JSR LA05A
|
||||
STX LA0EE
|
||||
STA $07
|
||||
LDX $1D
|
||||
LA084 LSR
|
||||
DEX
|
||||
BNE LA084
|
||||
STA LA0E6+1
|
||||
JSR LA0F6 ; animate
|
||||
PLA
|
||||
TAY
|
||||
PLA
|
||||
TAX
|
||||
PLA
|
||||
BNE LA098
|
||||
LA095 BIT SPKR
|
||||
LA098 CMP #$00
|
||||
BMI LA09F
|
||||
NOP
|
||||
BPL LA0A2
|
||||
LA09F BIT SPKR
|
||||
LA0A2 STA $4E
|
||||
BIT KBD
|
||||
BMI LA063
|
||||
DEY
|
||||
BNE LA0AE
|
||||
BEQ LA0B4
|
||||
LA0AE CPY #$36
|
||||
BEQ LA0B6
|
||||
BNE LA0B8
|
||||
LA0B4 LDY $06
|
||||
LA0B6 EOR #$40
|
||||
LA0B8 BIT $4E
|
||||
BVC LA0C3
|
||||
BVS LA0BE
|
||||
LA0BE BPL LA0C9
|
||||
NOP
|
||||
BMI LA0CC
|
||||
LA0C3 NOP
|
||||
BMI LA0C9
|
||||
NOP
|
||||
BPL LA0CC
|
||||
LA0C9 CMP SPKR
|
||||
LA0CC DEC $4F
|
||||
BNE LA0E1
|
||||
DEC $08
|
||||
BNE LA0E1
|
||||
BVC LA0D9
|
||||
BIT SPKR
|
||||
LA0D9 PHA
|
||||
TXA
|
||||
PHA
|
||||
TYA
|
||||
PHA
|
||||
JMP LA042
|
||||
|
||||
LA0E1 DEX
|
||||
BNE LA0E6
|
||||
BEQ LA0EC
|
||||
LA0E6 CPX #$0C
|
||||
BEQ LA0EE
|
||||
BNE LA0F0
|
||||
LA0EC LDX $07
|
||||
LA0EE EOR #$80
|
||||
LA0F0 BVS LA095
|
||||
NOP
|
||||
BVC LA098
|
||||
NOP
|
||||
|
||||
LA0F6 STA LA022 ; store AXY
|
||||
STX LA023
|
||||
STY LA024
|
||||
JSR LA114 ; scroll
|
||||
JSR LA149 ; print
|
||||
LDA #$26
|
||||
JSR WAIT
|
||||
LDA LA022 ; restore
|
||||
LDX LA023
|
||||
LDY LA024
|
||||
RTS
|
|
@ -1,13 +1,3 @@
|
|||
100 IFSALLE<>14ANDSALLE<>16ANDSALLE<>17ANDSALLE<>19 THEN P(2)=0
|
||||
105 IF P(2)=0 THEN 200
|
||||
106 IF O(22)=SA AND P(7)=1 THEN 200
|
||||
107 IF O(05)=SA AND P(3)=1 THEN 200
|
||||
110 IF C(9)>1 THEN C(9)=C(9)-1
|
||||
130 HIRES
|
||||
140 PRINT"Il fait noir comme dans un four,il faudrait peut etre allumer"
|
||||
145 IF KEY$<>"" THEN WAIT500 ELSE WAIT300
|
||||
150 GOTO 500
|
||||
|
||||
200 REM DESCRIPTION SALLE
|
||||
210 PRINT
|
||||
220 GOSUB(7000+SALLE*10)-10
|
||||
|
@ -72,20 +62,28 @@
|
|||
1470 E=E+3:GOTO1420
|
||||
1500 IF N=SALLE THEN OK=1 ELSE OK=0
|
||||
1505 RETURN
|
||||
|
||||
1510 IF O(N)=-1 OR O(N)=SALLE THEN OK=1 ELSE OK=0
|
||||
1515 RETURN
|
||||
|
||||
1520 IF O(N)<>SALLE AND O(N)<>-1 THEN OK=1 ELSE OK=0
|
||||
1525 RETURN
|
||||
|
||||
1530 IF O(N)=-1 THEN OK=1 ELSE OK=0
|
||||
1535 RETURN
|
||||
|
||||
1540 IF P(N)=1 THEN OK=1 ELSE OK=0
|
||||
1545 RETURN
|
||||
|
||||
1550 IF P(N)=0 THEN OK=1 ELSE OK=0
|
||||
1555 RETURN
|
||||
|
||||
1560 IF C(N)=1 THEN OK=1 ELSE OK=0
|
||||
1565 RETURN
|
||||
|
||||
1570 IF INT(RND(1)*99+1)<N THEN OK=1 ELSE OK=0
|
||||
1575 RETURN
|
||||
|
||||
1580 IF N<>SALLE THEN OK=1 ELSE OK=0
|
||||
1585 RETURN
|
||||
|
||||
|
@ -99,6 +97,7 @@
|
|||
1760 IF BREAK<>0 THEN GOTO BREAK
|
||||
1780 E=E+3
|
||||
1790 GOTO 1710
|
||||
|
||||
1800 G=0:HH=0
|
||||
1810 G=G+1
|
||||
1820 IF O(G)=-1 THEN GOTO 1840
|
||||
|
@ -109,6 +108,7 @@
|
|||
1865 IF G<V THEN 1810
|
||||
1870 IF HH=1 THEN PRINT".":RETURN
|
||||
1880 PRINT"Vous ne detenez absolument rien!!!":WAIT 200:RETURN
|
||||
|
||||
1900 IF S(1)<5 THEN 1930
|
||||
1910 PRINT"Il parait evident que vous ne pouvez portez tant de chose!!"
|
||||
1920 WAIT 250:BREAK=100:RETURN
|
||||
|
@ -117,130 +117,193 @@
|
|||
1945 WAIT400
|
||||
1950 PRINT"tres conseille...":GOTO1920
|
||||
1960 O(N)=-1:S(1)=S(1)+1:RETURN
|
||||
|
||||
2000 IF O(N)=-1 THEN 2030
|
||||
2010 PRINT"Comment voulez vous poser ce que vous n'avez pas"
|
||||
2020 GOTO 1920
|
||||
2030 O(N)=SALLE:S(1)=S(1)-1:RETURN
|
||||
|
||||
2100 CLS:GOSUB 4000+N*10
|
||||
2110 RETURN
|
||||
|
||||
2200 P(N)=1:RETURN
|
||||
|
||||
2300 P(N)=0:RETURN
|
||||
|
||||
2400 C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2:RETURN
|
||||
|
||||
2500 IF O(N)=-1 THEN S(1)=S(1)-1
|
||||
2510 O(N)=0 :RETURN
|
||||
|
||||
2600 SALLE=N:RETURN
|
||||
|
||||
2700 PRINT"D'accord..."
|
||||
2710 WAIT150:BREAK=300:RETURN
|
||||
|
||||
2800 BREAK=500
|
||||
2810 RETURN
|
||||
|
||||
2900 BREAK=530:RETURN
|
||||
|
||||
3000 BREAK=100:RETURN
|
||||
|
||||
3100 POP:GOTO20000
|
||||
|
||||
3200 O(N)=SALLE:RETURN
|
||||
|
||||
3300 X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$:RETURN
|
||||
|
||||
4000 HIRES:FORN=1TO20:EXPLODE:WAIT4:NEXT
|
||||
4001 PRINT"Vous avez gardez la lampe trop longtemps allumee,elle a explose"
|
||||
4005 WAIT400:RETURN
|
||||
|
||||
4010 HIRES
|
||||
4011 PRINT"Vous avez oubliez de fermer le robinetvous mourez sous des tonnes d'eau"
|
||||
4015 WAIT500:RETURN
|
||||
|
||||
4020 HIRES
|
||||
4022 PRINT"Lapporte vient de se refermer derrierevous,vous voila prisonnier..."
|
||||
4025 WAIT500:RETURN
|
||||
|
||||
4030 HIRES
|
||||
4031 PRINT"Vous avez trebuche dans l'escalier,vous vous empallez sur le couteau!"
|
||||
4035 WAIT500:RETURN
|
||||
|
||||
4040 HIRES
|
||||
4041 PRINT"Vous renversez l'eau dans l'escalier, ce qui provoque une decharge";
|
||||
4042 PRINT" de la":WAIT300:PRINT"prise electrique"
|
||||
4045 WAIT300:RETURN
|
||||
|
||||
4050 HIRES
|
||||
4051 PRINT"Vous etes sauf grace a la combinaison que vous avez enfile..!"
|
||||
4055 WAIT500:RETURN
|
||||
|
||||
4060 PRINT"Vous mourrez electrocute..."
|
||||
4065 WAIT300:RETURN
|
||||
|
||||
4070 HIRES:FOR N=1 TO 20:MUSIC2,2,2,10:PLAY3,7,4,80:WAIT1:EXPLODE:WAIT6:NEXT
|
||||
4071 PRINT"La piece etait pleine de gaz explosif,vous auriez du eteindre..."
|
||||
4072 WAIT500:CLS:PRINT"On ramassera vos morceaux un autre jour..!"
|
||||
4075 WAIT300:RETURN
|
||||
|
||||
4080 HIRES
|
||||
4081 PRINT"Vous mourez empalle sur des lances sorties du mur...!"
|
||||
4085 WAIT400:RETURN
|
||||
|
||||
4090 REM
|
||||
4091 PRINT"La porte ne s'ouvre pas de cette piece":WAIT300:RETURN
|
||||
|
||||
4100 HIRES
|
||||
4101 PRINT"La lampe et le briquet refusent de marcher dans cette piece"
|
||||
4105 WAIT400:RETURN
|
||||
|
||||
4110 HIRES
|
||||
4111 PRINT"Vous tombez dans une trappe,vous vous disloquez en arrivant au sol.."
|
||||
4115 WAIT500:RETURN
|
||||
|
||||
4120 REM
|
||||
4121 PRINT"Vous avez raison de passer,car ce monstre n'etait qu'une projection"
|
||||
4124 WAIT400:PRINT"en 3 dimentions sur un ecran de fumee"
|
||||
4125 WAIT250:RETURN
|
||||
|
||||
4130 REM
|
||||
4131 PRINT"Vous avez raison,la curiosite est un vilain defaut!!!"
|
||||
4132 WAIT400
|
||||
4133 POP:TEXT:PRINT:PRINT:PRINTSPC(12)"AU REVOIR"
|
||||
4135 WAIT200:GOTO20100
|
||||
|
||||
4140 PRINT"Vous avez raison d'attendre,mais cela ne pourra pas durer";
|
||||
4141 PRINT" eternellement.."
|
||||
4142 WAIT450:RETURN
|
||||
|
||||
4150 :HIRES:PRINT"Vous avez de la chance car ce coffre etait ouvert.":WAIT400
|
||||
4152 PRINT"Un message a l'interieur dit:":WAIT250:PRINT"Ne respectez pas les ";
|
||||
4154 PRINT"couleurs du":PRINT"code de la route...?":WAIT500
|
||||
4156 PRINT"Tiens le coffre se referme":WAIT200:RETURN
|
||||
|
||||
4160 PRINT"Maintenant,vous avez une lampe pleine de petrole"
|
||||
4165 WAIT400:RETURN
|
||||
|
||||
4170 PRINT"Vous n'avez rien pour transporter le petrole":WAIT400:RETURN
|
||||
|
||||
4180 HIRES:PRINT"Le briquet que vous aviez laisse allume vient d'exploser"
|
||||
4181 FOR N=1 TO 10:EXPLODE:WAIT6:NEXT
|
||||
4185 WAIT300:PRINT"Ca tue l'etourderie.....":WAIT200:RETURN
|
||||
|
||||
4190 HIRES:PRINT"A force de marcher en long et en large dans cette maison,"
|
||||
4195 WAIT300:PRINT"vous sombrez dans un coma des plus mortel...":WAIT300:RETURN
|
||||
|
||||
4200 PRINT"L'eau coule...":RETURN
|
||||
|
||||
4210 HIRES:PRINT"Vous avez les pieds trempes,et cela vous rend tres malade..."
|
||||
4215 WAIT400:PRINT"Vous mourez d'une triple pneumonie...!":WAIT300:RETURN
|
||||
|
||||
4220 PRINT"Le titre est:":WAIT200:PRINT"La mort a la premiere page.":WAIT300:RETURN
|
||||
|
||||
4230 HIRES:FOR N=1 TO 20:EXPLODE:NEXT
|
||||
4233 PRINT"Le livre a explose lorsque vous l'avezouvert...":WAIT400:RETURN
|
||||
|
||||
4240 PRINT"Le papier indique: Cherchez la clef.":WAIT300:RETURN
|
||||
|
||||
4250 PRINT"La clef vous permettera de trouver le code de la porte d'entree."
|
||||
4255 WAIT400:RETURN
|
||||
|
||||
4260 HIRES:PRINT"Il y a , a cote de la porte,un claviernumerique permettant ";
|
||||
4265 PRINT"d'entrer un code":WAIT400:RETURN
|
||||
|
||||
4270 PRINT"Pour faire quoi..?":WAIT200:RETURN
|
||||
|
||||
4280 PRINT"Il y a une odeur de gaz.":WAIT300:RETURN
|
||||
|
||||
4290 PRINT"Apparement,il n'y a occune odeur mais...":WAIT300:RETURN
|
||||
|
||||
4300 PRINT"C'est deja fait,espece de rigolo":WAIT300:RETURN
|
||||
|
||||
4310 PRINT"Il faudrait peut etre du feu":WAIT300:RETURN
|
||||
|
||||
4320 PRINT"La lampe ne contient pas de petrole":WAIT300:RETURN
|
||||
|
||||
4330 PRINT"Vous ne l'avez pas":WAIT200:RETURN
|
||||
|
||||
4340 PRINT"Le briquet est encore allume et il eclaire la piece."WAIT300:RETURN
|
||||
|
||||
4350 FOR N=1 TO 15:EXPLODE:WAIT4:NEXT
|
||||
4355 PRINT"La torche etait piegee,elle vous explose dans les mains.."
|
||||
4357 WAIT400:RETURN
|
||||
|
||||
4360 PRINT"La lampe est encore allumee,et elle vous eclaire":WAIT300:RETURN
|
||||
|
||||
4370 HIRES:PRINT"Un nain vient de vous lancer un poignard en plein coeur.."
|
||||
4375 WAIT300:RETURN
|
||||
|
||||
4380 PRINT"Un nain vient de se precipiter sur vous,il s'empalle sur votre";
|
||||
4385 PRINT" ciseau":WAIT400:RETURN
|
||||
|
||||
4390 PRINT"Un nain vient de se precipiter sur vous,il s'empalle sur votre";
|
||||
4395 PRINT" couteau":WAIT400:RETURN
|
||||
|
||||
4400 HIRES:PRINT"Vous venez de renverser le pot":WAIT150:RETURN
|
||||
|
||||
4410 HIRES:PRINT"La foudre vient de tomber sur la maison":WAIT200
|
||||
4412 PRINT"La maison n'existe plus,vous non plus":WAIT200:RETURN
|
||||
|
||||
4420 HIRES:PRINT"A force de marcher dans le noir,vous avez trebuche":WAIT200
|
||||
4425 PRINT"Vous mourez d'une fracture du crane...":WAIT200:RETURN
|
||||
|
||||
4430 PRINT"Vous ne pouvez pas travailler dans le noir...":WAIT300:RETURN
|
||||
|
||||
4440 PRINT"La lumiere du briquet ne suffit pas pour travaillez...":WAIT400:RETURN
|
||||
|
||||
4450 PRINT"Impossible !":WAIT100:RETURN
|
||||
|
||||
4460 PRINT"Vous n'avez aucun outil..":WAIT250:RETURN
|
||||
|
||||
4470 PRINT"Le teleporteur est en panne,donc les boutons ne fonctionnent pas."
|
||||
4475 WAIT400:RETURN
|
||||
|
||||
4480 FOR N=1 TO 25:EXPLODE:WAIT5:NEXT
|
||||
4484 PRINT"Le teleporteur vient d'exploser,vous etes decompose..!":WAIT400:RETURN
|
||||
|
||||
4490 PRINT"Le teleporteur se met en marche,vous disparaissez"
|
||||
4491 MUSIC2,1,5,0:PLAY2,1,3,1000
|
||||
4492 FOR N=1 TO 12
|
||||
|
@ -249,19 +312,26 @@
|
|||
4495 FOR N=500 TO 30 STEP-5
|
||||
4497 SOUND2,N,12:PLAY2,0,0,100:NEXT
|
||||
4498 PLAY0,0,0,0 :HIRES:RETURN
|
||||
|
||||
4500 HIRES:PRINT"Vous prenez du 30000 Volts dans les doigts,":WAIT300:RETURN
|
||||
4510 PRINT"Le placard est ferme a clef":WAIT150:RETURN
|
||||
|
||||
4520 HIRES:PRINT"L'horrible monstre sorti du placard vient de vous devorer"
|
||||
4525 WAIT400:RETURN
|
||||
|
||||
4530 PRINT"Il ne fallait pas fuir":WAIT200:RETURN
|
||||
|
||||
4540 HIRES:PRINT"Vous avez raison d'utiliser le ciseau,le monstre est mort"
|
||||
4545 WAIT400:RETURN
|
||||
|
||||
4550 PRINT"A l'interieur du placard,le No "PL" est inscrit":WAIT300
|
||||
4555 PRINT"Le placard se referme.":WAIT150:RETURN
|
||||
4560 HIRES:FOR N=1 TO 30:EXPLODE:WAIT5:NEXT:PRINT"le pistolet a explose":WAIT200
|
||||
4565 RETURN
|
||||
|
||||
4570 HIRES:FOR N=1 TO 25:EXPLODE:WAIT7:NEXT:
|
||||
4575 PRINT"le clavier numerique a explose":WAIT250:RETURN
|
||||
|
||||
4580 HIRES:PRINT"Le clavier numerique prends feu, heureusement,vous aviez ";
|
||||
4582 WAIT300:PRINT"un pot plein":WAIT100
|
||||
4585 PRINT"d'eau qui vous a permis d'eteindre ce feu"
|
||||
|
@ -269,21 +339,6 @@
|
|||
4590 HIRES:INPUT"No DE CODE";ZC
|
||||
4595 IF ZC<>PL THEN GOTO 4570
|
||||
|
||||
4600 WAIT200:PRINT"Le code est exact...":POP:PRINT"La porte s'ouvre..."
|
||||
4603 WAIT400
|
||||
4605 GOSUB10000:PRINT"Vous voila en dehors de la maison..."
|
||||
4608 GOSUB 32000:GOTO20100
|
||||
|
||||
4610 HIRES:PRINT"A l'interieur du placard,il y a un motqui parle d'un teleporteur"
|
||||
4615 WAIT400:PRINT"Tiens le placard se ferme tout seul...":WAIT150:RETURN
|
||||
4620 PRINT"Avant de la poser par terre,il faudrait peut etre l'enlever."
|
||||
4625 WAIT350:RETURN
|
||||
4630 HIRES:PRINT"Il y a un horrible monstre devant vousqui est sortie du placart."
|
||||
4635 WAIT400:RETURN
|
||||
4640 HIRES:PRINT"Le placard etait piege,vous n'auriez pas du l'ouvrir"
|
||||
4645 FOR N=1 TO 30:EXPLODE:WAIT7:NEXT
|
||||
4647 WAIT150:RETURN
|
||||
|
||||
6000 REM ANALYSE DU MOT
|
||||
6010 N=0:GN=0
|
||||
6020 REPEAT:N=N+1
|
||||
|
|
Loading…
Reference in New Issue
Block a user