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
File diff suppressed because it is too large
Load Diff
|
@ -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
|
|
@ -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