mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-06 17:29:39 +00:00
Update
This commit is contained in:
parent
2c4cba4276
commit
0da2d164dc
Binary file not shown.
|
@ -29,6 +29,8 @@ Y0 = $e2 ; Y-coord
|
|||
HPAG = $e6
|
||||
AMPERV = $3f5
|
||||
|
||||
MIXCLR = $c052 ; clears 4 lines of text
|
||||
|
||||
GETSTK = $d3d6 ; check stack space
|
||||
FNDLIN = $d61a ; find line in memory
|
||||
NEWSTT = $d7d2 ; execute statements
|
||||
|
@ -319,6 +321,7 @@ doH
|
|||
jsr HOME
|
||||
|
||||
jsr HGR
|
||||
sta MIXCLR
|
||||
rts
|
||||
|
||||
*----------------------------------- WAIT x
|
||||
|
|
|
@ -32,114 +32,116 @@
|
|||
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 | GETSTK = $d3d6 ; check stack space
|
||||
33 | 1 ampersand.s 33 | Equivalence | 11 | | 0 | 00/1800 | FNDLIN = $d61a ; find line in memory
|
||||
34 | 1 ampersand.s 34 | Equivalence | 11 | | 0 | 00/1800 | NEWSTT = $d7d2 ; execute statements
|
||||
35 | 1 ampersand.s 35 | Equivalence | 11 | | 0 | 00/1800 | GOTO = $d93e ; go to new line number
|
||||
36 | 1 ampersand.s 36 | Equivalence | 11 | | 0 | 00/1800 | FRMNUM = $dd67 ; Evaluate a numeric expression
|
||||
37 | 1 ampersand.s 37 | Equivalence | 11 | | 0 | 00/1800 | CHKCOM = $debe ; syntax error if no comma
|
||||
38 | 1 ampersand.s 38 | Equivalence | 11 | | 0 | 00/1800 | SYNERR = $dec9 ; syntax error
|
||||
39 | 1 ampersand.s 39 | Equivalence | 11 | | 0 | 00/1800 | GETADR = $e752 ; convert num to 2-byte int
|
||||
40 | 1 ampersand.s 40 | Equivalence | 11 | | 0 | 00/1800 | HGR = $f3e2 ; HGR
|
||||
41 | 1 ampersand.s 41 | Equivalence | 11 | | 0 | 00/1800 | HPLOT = $f457 ; HPLOT
|
||||
42 | 1 ampersand.s 42 | Equivalence | 11 | | 0 | 00/1800 | HCOLOR = $f6e9 ; HCOLOR= (call+3)
|
||||
43 | 1 ampersand.s 43 | Equivalence | 11 | | 0 | 00/1800 | HILIN = $f53a ; HPLOT TO
|
||||
44 | 1 ampersand.s 44 | Equivalence | 11 | | 0 | 00/1800 | HOME = $fc58 ; HOME routine
|
||||
45 | 1 ampersand.s 45 | Equivalence | 11 | | 0 | 00/1800 | WAIT = $fca8 ; WAIT routine
|
||||
46 | 1 ampersand.s 46 | Empty | 11 | | 0 | 00/1800 |
|
||||
47 | 1 ampersand.s 47 | Comment | 11 | | 0 | 00/1800 | *-----------------------------------
|
||||
48 | 1 ampersand.s 48 | Comment | 11 | | 0 | 00/1800 | * Useful info @ https://llx.com/Neil/a2/as.addons.html
|
||||
49 | 1 ampersand.s 49 | Empty | 11 | | 0 | 00/1800 |
|
||||
50 | 1 ampersand.s 50 | Comment | 11 | | 0 | 00/1800 | * Les routines & qu'on fait :
|
||||
51 | 1 ampersand.s 51 | Comment | 11 | | 0 | 00/1800 | * CURMOV M
|
||||
52 | 1 ampersand.s 52 | Comment | 11 | | 0 | 00/1800 | * CURSET S
|
||||
53 | 1 ampersand.s 53 | Comment | 11 | | 0 | 00/1800 | * INK I
|
||||
54 | 1 ampersand.s 54 | Comment | 11 | | 0 | 00/1800 | * PAPER P
|
||||
55 | 1 ampersand.s 55 | Comment | 11 | | 0 | 00/1800 | * HIRES H
|
||||
56 | 1 ampersand.s 56 | Comment | 11 | | 0 | 00/1800 | * WAIT W
|
||||
57 | 1 ampersand.s 57 | Comment | 11 | | 0 | 00/1800 | * DRAW D
|
||||
58 | 1 ampersand.s 58 | Comment | 11 | | 0 | 00/1800 | * RESTORE R to a line number
|
||||
59 | 1 ampersand.s 59 | Comment | 11 | | 0 | 00/1800 | * GOSUB G to an expression
|
||||
60 | 1 ampersand.s 60 | Empty | 11 | | 0 | 00/1800 |
|
||||
61 | 1 ampersand.s 61 | Comment | 11 | | 0 | 00/1800 | *
|
||||
62 | 1 ampersand.s 62 | Comment | 11 | | 0 | 00/1800 | * On ne fait pas :
|
||||
63 | 1 ampersand.s 63 | Comment | 11 | | 0 | 00/1800 | * CIRCLE C
|
||||
64 | 1 ampersand.s 64 | Comment | 11 | | 0 | 00/1800 | * EXPLODE E
|
||||
65 | 1 ampersand.s 65 | Comment | 11 | | 0 | 00/1800 | *
|
||||
66 | 1 ampersand.s 66 | Comment | 11 | | 0 | 00/1800 | * On des/installe par CALL 6144
|
||||
67 | 1 ampersand.s 67 | Empty | 11 | | 0 | 00/1800 |
|
||||
68 | 1 ampersand.s 68 | Comment | 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 | Empty | 11 | | 0 | 00/1800 |
|
||||
63 | 1 ampersand.s 63 | Comment | 11 | | 0 | 00/1800 | *
|
||||
64 | 1 ampersand.s 64 | Comment | 11 | | 0 | 00/1800 | * On ne fait pas :
|
||||
65 | 1 ampersand.s 65 | Comment | 11 | | 0 | 00/1800 | * CIRCLE C
|
||||
66 | 1 ampersand.s 66 | Comment | 11 | | 0 | 00/1800 | * EXPLODE E
|
||||
67 | 1 ampersand.s 67 | Comment | 11 | | 0 | 00/1800 | *
|
||||
68 | 1 ampersand.s 68 | Comment | 11 | | 0 | 00/1800 | * On des/installe par CALL 6144
|
||||
69 | 1 ampersand.s 69 | Empty | 11 | | 0 | 00/1800 |
|
||||
70 | 1 ampersand.s 70 | Code | 11 | | 2 | 00/1800 : A9 00 | myENTRY lda #0
|
||||
71 | 1 ampersand.s 71 | Code | 11 | | 2 | 00/1802 : D0 25 | bne doUNINSTALL
|
||||
72 | 1 ampersand.s 72 | Empty | 11 | | 0 | 00/1804 |
|
||||
73 | 1 ampersand.s 73 | Code | 11 | | 3 | 00/1804 : EE 01 18 | inc myENTRY+1 ; on dit qu'on installe
|
||||
74 | 1 ampersand.s 74 | Empty | 11 | | 0 | 00/1807 |
|
||||
75 | 1 ampersand.s 75 | Code | 11 | | 3 | 00/1807 : AD F5 03 | lda {$3f5} ; on sauve
|
||||
76 | 1 ampersand.s 76 | Code | 11 | | 3 | 00/180A : 8D 3F 18 | sta myPTR
|
||||
77 | 1 ampersand.s 77 | Code | 11 | | 3 | 00/180D : AD F6 03 | lda {$3f5}+1
|
||||
78 | 1 ampersand.s 78 | Code | 11 | | 3 | 00/1810 : 8D 40 18 | sta myPTR+1
|
||||
79 | 1 ampersand.s 79 | Code | 11 | | 3 | 00/1813 : AD F7 03 | lda {$3f5}+2
|
||||
80 | 1 ampersand.s 80 | Code | 11 | | 3 | 00/1816 : 8D 41 18 | sta myPTR+2
|
||||
81 | 1 ampersand.s 81 | Empty | 11 | | 0 | 00/1819 |
|
||||
82 | 1 ampersand.s 82 | Code | 11 | | 2 | 00/1819 : A9 4C | lda #$4c ; on installe le vecteur
|
||||
83 | 1 ampersand.s 83 | Code | 11 | | 3 | 00/181B : 8D F5 03 | sta {$3f5}
|
||||
84 | 1 ampersand.s 84 | Code | 11 | | 2 | 00/181E : A9 42 | lda #<myVECTOR
|
||||
85 | 1 ampersand.s 85 | Code | 11 | | 3 | 00/1820 : 8D F6 03 | sta {$3f5}+1
|
||||
86 | 1 ampersand.s 86 | Code | 11 | | 2 | 00/1823 : A9 18 | lda #>myVECTOR
|
||||
87 | 1 ampersand.s 87 | Code | 11 | | 3 | 00/1825 : 8D F7 03 | sta {$3f5}+2
|
||||
88 | 1 ampersand.s 88 | Code | 11 | | 1 | 00/1828 : 60 | rts
|
||||
89 | 1 ampersand.s 89 | Empty | 11 | | 0 | 00/1829 |
|
||||
90 | 1 ampersand.s 90 | Code | 11 | | 3 | 00/1829 : CE 01 18 | doUNINSTALL dec myENTRY+1
|
||||
91 | 1 ampersand.s 91 | Empty | 11 | | 0 | 00/182C |
|
||||
92 | 1 ampersand.s 92 | Code | 11 | | 3 | 00/182C : AD 3F 18 | lda myPTR
|
||||
93 | 1 ampersand.s 93 | Code | 11 | | 3 | 00/182F : 8D F5 03 | sta {$3f5}
|
||||
94 | 1 ampersand.s 94 | Code | 11 | | 3 | 00/1832 : AD 40 18 | lda myPTR+1
|
||||
95 | 1 ampersand.s 95 | Code | 11 | | 3 | 00/1835 : 8D F6 03 | sta {$3f5}+1
|
||||
96 | 1 ampersand.s 96 | Code | 11 | | 3 | 00/1838 : AD 41 18 | lda myPTR+2
|
||||
97 | 1 ampersand.s 97 | Code | 11 | | 3 | 00/183B : 8D F7 03 | sta {$3f5}+2
|
||||
98 | 1 ampersand.s 98 | Code | 11 | | 1 | 00/183E : 60 | rts
|
||||
99 | 1 ampersand.s 99 | Empty | 11 | | 0 | 00/183F |
|
||||
100 | 1 ampersand.s 100 | Data | 11 | | 3 | 00/183F : 00 00 00 | myPTR ds 3 ; 4C xx yy
|
||||
101 | 1 ampersand.s 101 | Empty | 11 | | 0 | 00/1842 |
|
||||
102 | 1 ampersand.s 102 | Comment | 11 | | 0 | 00/1842 | *-----------------------------------
|
||||
70 | 1 ampersand.s 70 | Comment | 11 | | 0 | 00/1800 | *-----------------------------------
|
||||
71 | 1 ampersand.s 71 | Empty | 11 | | 0 | 00/1800 |
|
||||
72 | 1 ampersand.s 72 | Code | 11 | | 2 | 00/1800 : A9 00 | myENTRY lda #0
|
||||
73 | 1 ampersand.s 73 | Code | 11 | | 2 | 00/1802 : D0 25 | bne doUNINSTALL
|
||||
74 | 1 ampersand.s 74 | Empty | 11 | | 0 | 00/1804 |
|
||||
75 | 1 ampersand.s 75 | Code | 11 | | 3 | 00/1804 : EE 01 18 | inc myENTRY+1 ; on dit qu'on installe
|
||||
76 | 1 ampersand.s 76 | Empty | 11 | | 0 | 00/1807 |
|
||||
77 | 1 ampersand.s 77 | Code | 11 | | 3 | 00/1807 : AD F5 03 | lda {$3f5} ; on sauve
|
||||
78 | 1 ampersand.s 78 | Code | 11 | | 3 | 00/180A : 8D 3F 18 | sta myPTR
|
||||
79 | 1 ampersand.s 79 | Code | 11 | | 3 | 00/180D : AD F6 03 | lda {$3f5}+1
|
||||
80 | 1 ampersand.s 80 | Code | 11 | | 3 | 00/1810 : 8D 40 18 | sta myPTR+1
|
||||
81 | 1 ampersand.s 81 | Code | 11 | | 3 | 00/1813 : AD F7 03 | lda {$3f5}+2
|
||||
82 | 1 ampersand.s 82 | Code | 11 | | 3 | 00/1816 : 8D 41 18 | sta myPTR+2
|
||||
83 | 1 ampersand.s 83 | Empty | 11 | | 0 | 00/1819 |
|
||||
84 | 1 ampersand.s 84 | Code | 11 | | 2 | 00/1819 : A9 4C | lda #$4c ; on installe le vecteur
|
||||
85 | 1 ampersand.s 85 | Code | 11 | | 3 | 00/181B : 8D F5 03 | sta {$3f5}
|
||||
86 | 1 ampersand.s 86 | Code | 11 | | 2 | 00/181E : A9 42 | lda #<myVECTOR
|
||||
87 | 1 ampersand.s 87 | Code | 11 | | 3 | 00/1820 : 8D F6 03 | sta {$3f5}+1
|
||||
88 | 1 ampersand.s 88 | Code | 11 | | 2 | 00/1823 : A9 18 | lda #>myVECTOR
|
||||
89 | 1 ampersand.s 89 | Code | 11 | | 3 | 00/1825 : 8D F7 03 | sta {$3f5}+2
|
||||
90 | 1 ampersand.s 90 | Code | 11 | | 1 | 00/1828 : 60 | rts
|
||||
91 | 1 ampersand.s 91 | Empty | 11 | | 0 | 00/1829 |
|
||||
92 | 1 ampersand.s 92 | Code | 11 | | 3 | 00/1829 : CE 01 18 | doUNINSTALL dec myENTRY+1
|
||||
93 | 1 ampersand.s 93 | Empty | 11 | | 0 | 00/182C |
|
||||
94 | 1 ampersand.s 94 | Code | 11 | | 3 | 00/182C : AD 3F 18 | lda myPTR
|
||||
95 | 1 ampersand.s 95 | Code | 11 | | 3 | 00/182F : 8D F5 03 | sta {$3f5}
|
||||
96 | 1 ampersand.s 96 | Code | 11 | | 3 | 00/1832 : AD 40 18 | lda myPTR+1
|
||||
97 | 1 ampersand.s 97 | Code | 11 | | 3 | 00/1835 : 8D F6 03 | sta {$3f5}+1
|
||||
98 | 1 ampersand.s 98 | Code | 11 | | 3 | 00/1838 : AD 41 18 | lda myPTR+2
|
||||
99 | 1 ampersand.s 99 | Code | 11 | | 3 | 00/183B : 8D F7 03 | sta {$3f5}+2
|
||||
100 | 1 ampersand.s 100 | Code | 11 | | 1 | 00/183E : 60 | rts
|
||||
101 | 1 ampersand.s 101 | Empty | 11 | | 0 | 00/183F |
|
||||
102 | 1 ampersand.s 102 | Data | 11 | | 3 | 00/183F : 00 00 00 | myPTR ds 3 ; 4C xx yy
|
||||
103 | 1 ampersand.s 103 | Empty | 11 | | 0 | 00/1842 |
|
||||
104 | 1 ampersand.s 104 | Code | 11 | | 2 | 00/1842 : A2 0A | myVECTOR ldx #myADRS-myCMDS-1
|
||||
105 | 1 ampersand.s 105 | Code | 11 | | 3 | 00/1844 : DD 5B 18 | ozunid_1 cmp myCMDS,x
|
||||
106 | 1 ampersand.s 106 | Code | 11 | | 2 | 00/1847 : F0 06 | beq doVECTOR
|
||||
107 | 1 ampersand.s 107 | Code | 11 | | 1 | 00/1849 : CA | dex
|
||||
108 | 1 ampersand.s 108 | Code | 11 | | 2 | 00/184A : 10 F8 | bpl ozunid_1
|
||||
109 | 1 ampersand.s 109 | Code | 11 | | 3 | 00/184C : 4C C9 DE | jmp {$dec9}
|
||||
110 | 1 ampersand.s 110 | Empty | 11 | | 0 | 00/184F |
|
||||
111 | 1 ampersand.s 111 | Code | 11 | | 1 | 00/184F : 8A | doVECTOR txa
|
||||
112 | 1 ampersand.s 112 | Code | 11 | | 1 | 00/1850 : 0A | asl
|
||||
113 | 1 ampersand.s 113 | Code | 11 | | 1 | 00/1851 : AA | tax
|
||||
114 | 1 ampersand.s 114 | Code | 11 | | 3 | 00/1852 : BD 67 18 | lda myADRS+1,x
|
||||
115 | 1 ampersand.s 115 | Code | 11 | | 1 | 00/1855 : 48 | pha
|
||||
116 | 1 ampersand.s 116 | Code | 11 | | 3 | 00/1856 : BD 66 18 | lda myADRS,x
|
||||
117 | 1 ampersand.s 117 | Code | 11 | | 1 | 00/1859 : 48 | pha
|
||||
118 | 1 ampersand.s 118 | Code | 11 | | 1 | 00/185A : 60 | rts
|
||||
119 | 1 ampersand.s 119 | Empty | 11 | | 0 | 00/185B |
|
||||
120 | 1 ampersand.s 120 | Data | 11 | | 11 | 00/185B : 53 4D 44 43 | myCMDS asc 'SMDCIPHWERG'
|
||||
104 | 1 ampersand.s 104 | Comment | 11 | | 0 | 00/1842 | *-----------------------------------
|
||||
105 | 1 ampersand.s 105 | Empty | 11 | | 0 | 00/1842 |
|
||||
106 | 1 ampersand.s 106 | Code | 11 | | 2 | 00/1842 : A2 0A | myVECTOR ldx #myADRS-myCMDS-1
|
||||
107 | 1 ampersand.s 107 | Code | 11 | | 3 | 00/1844 : DD 5B 18 | ozunid_1 cmp myCMDS,x
|
||||
108 | 1 ampersand.s 108 | Code | 11 | | 2 | 00/1847 : F0 06 | beq doVECTOR
|
||||
109 | 1 ampersand.s 109 | Code | 11 | | 1 | 00/1849 : CA | dex
|
||||
110 | 1 ampersand.s 110 | Code | 11 | | 2 | 00/184A : 10 F8 | bpl ozunid_1
|
||||
111 | 1 ampersand.s 111 | Code | 11 | | 3 | 00/184C : 4C C9 DE | jmp {$dec9}
|
||||
112 | 1 ampersand.s 112 | Empty | 11 | | 0 | 00/184F |
|
||||
113 | 1 ampersand.s 113 | Code | 11 | | 1 | 00/184F : 8A | doVECTOR txa
|
||||
114 | 1 ampersand.s 114 | Code | 11 | | 1 | 00/1850 : 0A | asl
|
||||
115 | 1 ampersand.s 115 | Code | 11 | | 1 | 00/1851 : AA | tax
|
||||
116 | 1 ampersand.s 116 | Code | 11 | | 3 | 00/1852 : BD 67 18 | lda myADRS+1,x
|
||||
117 | 1 ampersand.s 117 | Code | 11 | | 1 | 00/1855 : 48 | pha
|
||||
118 | 1 ampersand.s 118 | Code | 11 | | 3 | 00/1856 : BD 66 18 | lda myADRS,x
|
||||
119 | 1 ampersand.s 119 | Code | 11 | | 1 | 00/1859 : 48 | pha
|
||||
120 | 1 ampersand.s 120 | Code | 11 | | 1 | 00/185A : 60 | rts
|
||||
121 | 1 ampersand.s 121 | Empty | 11 | | 0 | 00/185B |
|
||||
122 | 1 ampersand.s 122 | Data | 11 | | 11 | 00/185B : 53 4D 44 43 | myCMDS asc 'SMDCIPHWERG'
|
||||
| | | | | | 49 50 48 57 |
|
||||
| | | | | | 45 52 47 |
|
||||
121 | 1 ampersand.s 121 | Empty | 11 | | 0 | 00/1866 |
|
||||
122 | 1 ampersand.s 122 | Data | 11 | | 2 | 00/1866 : ED 18 | myADRS da doS-1
|
||||
123 | 1 ampersand.s 123 | Data | 11 | | 2 | 00/1868 : 22 19 | da doM-1
|
||||
124 | 1 ampersand.s 124 | Data | 11 | | 2 | 00/186A : 65 19 | da doD-1
|
||||
125 | 1 ampersand.s 125 | Data | 11 | | 2 | 00/186C : D8 19 | da doC-1
|
||||
126 | 1 ampersand.s 126 | Data | 11 | | 2 | 00/186E : F5 19 | da doI-1
|
||||
127 | 1 ampersand.s 127 | Data | 11 | | 2 | 00/1870 : 04 1A | da doP-1
|
||||
128 | 1 ampersand.s 128 | Data | 11 | | 2 | 00/1872 : 13 1A | da doH-1
|
||||
129 | 1 ampersand.s 129 | Data | 11 | | 2 | 00/1874 : 2D 1A | da doW-1
|
||||
130 | 1 ampersand.s 130 | Data | 11 | | 2 | 00/1876 : 46 1A | da doE-1
|
||||
131 | 1 ampersand.s 131 | Data | 11 | | 2 | 00/1878 : 4A 1A | da doR-1
|
||||
132 | 1 ampersand.s 132 | Data | 11 | | 2 | 00/187A : 63 1A | da doG-1
|
||||
133 | 1 ampersand.s 133 | Empty | 11 | | 0 | 00/187C |
|
||||
134 | 1 ampersand.s 134 | Comment | 11 | | 0 | 00/187C | *----------------------------------- Data
|
||||
123 | 1 ampersand.s 123 | Empty | 11 | | 0 | 00/1866 |
|
||||
124 | 1 ampersand.s 124 | Data | 11 | | 2 | 00/1866 : ED 18 | myADRS da doS-1
|
||||
125 | 1 ampersand.s 125 | Data | 11 | | 2 | 00/1868 : 22 19 | da doM-1
|
||||
126 | 1 ampersand.s 126 | Data | 11 | | 2 | 00/186A : 65 19 | da doD-1
|
||||
127 | 1 ampersand.s 127 | Data | 11 | | 2 | 00/186C : D8 19 | da doC-1
|
||||
128 | 1 ampersand.s 128 | Data | 11 | | 2 | 00/186E : F5 19 | da doI-1
|
||||
129 | 1 ampersand.s 129 | Data | 11 | | 2 | 00/1870 : 04 1A | da doP-1
|
||||
130 | 1 ampersand.s 130 | Data | 11 | | 2 | 00/1872 : 13 1A | da doH-1
|
||||
131 | 1 ampersand.s 131 | Data | 11 | | 2 | 00/1874 : 30 1A | da doW-1
|
||||
132 | 1 ampersand.s 132 | Data | 11 | | 2 | 00/1876 : 49 1A | da doE-1
|
||||
133 | 1 ampersand.s 133 | Data | 11 | | 2 | 00/1878 : 4D 1A | da doR-1
|
||||
134 | 1 ampersand.s 134 | Data | 11 | | 2 | 00/187A : 66 1A | da doG-1
|
||||
135 | 1 ampersand.s 135 | Empty | 11 | | 0 | 00/187C |
|
||||
136 | 1 ampersand.s 136 | Data | 11 | | 2 | 00/187C : 8C 00 | theX dw 140 ; milieu de l'Žcran par dŽfaut
|
||||
137 | 1 ampersand.s 137 | Data | 11 | | 96 | 00/187E : 00 00 00 00 | theY ds 96
|
||||
136 | 1 ampersand.s 136 | Comment | 11 | | 0 | 00/187C | *----------------------------------- Data
|
||||
137 | 1 ampersand.s 137 | Empty | 11 | | 0 | 00/187C |
|
||||
138 | 1 ampersand.s 138 | Data | 11 | | 2 | 00/187C : 8C 00 | theX dw 140 ; milieu de l'Žcran par dŽfaut
|
||||
139 | 1 ampersand.s 139 | Data | 11 | | 96 | 00/187E : 00 00 00 00 | theY ds 96
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
|
@ -163,259 +165,260 @@
|
|||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
| | | | | | 00 00 00 00 |
|
||||
138 | 1 ampersand.s 138 | Data | 11 | | 2 | 00/18DE : 00 00 | theX2 ds 2
|
||||
139 | 1 ampersand.s 139 | Data | 11 | | 2 | 00/18E0 : 00 00 | theY2 ds 2
|
||||
140 | 1 ampersand.s 140 | Data | 11 | | 1 | 00/18E2 : 00 | theRADIUS ds 1
|
||||
141 | 1 ampersand.s 141 | Data | 11 | | 1 | 00/18E3 : 00 | theFB ds 1
|
||||
142 | 1 ampersand.s 142 | Data | 11 | | 1 | 00/18E4 : 00 | theINK ds 1
|
||||
143 | 1 ampersand.s 143 | Data | 11 | | 1 | 00/18E5 : 00 | thePAPER ds 1
|
||||
144 | 1 ampersand.s 144 | Empty | 11 | | 0 | 00/18E6 |
|
||||
145 | 1 ampersand.s 145 | Comment | 11 | | 0 | 00/18E6 | * APPLE ORIC
|
||||
146 | 1 ampersand.s 146 | Comment | 11 | | 0 | 00/18E6 | * 0 black1 black
|
||||
147 | 1 ampersand.s 147 | Comment | 11 | | 0 | 00/18E6 | * 1 green red
|
||||
148 | 1 ampersand.s 148 | Comment | 11 | | 0 | 00/18E6 | * 2 blue green
|
||||
149 | 1 ampersand.s 149 | Comment | 11 | | 0 | 00/18E6 | * 3 white1 yellow
|
||||
150 | 1 ampersand.s 150 | Comment | 11 | | 0 | 00/18E6 | * 4 black2 blue
|
||||
151 | 1 ampersand.s 151 | Comment | 11 | | 0 | 00/18E6 | * 5 - magenta
|
||||
152 | 1 ampersand.s 152 | Comment | 11 | | 0 | 00/18E6 | * 6 - cyan
|
||||
153 | 1 ampersand.s 153 | Comment | 11 | | 0 | 00/18E6 | * 7 white2 white
|
||||
154 | 1 ampersand.s 154 | Empty | 11 | | 0 | 00/18E6 |
|
||||
155 | 1 ampersand.s 155 | Data | 11 | | 8 | 00/18E6 : 07 05 01 06 | oric2hgr hex 0705010602030400
|
||||
140 | 1 ampersand.s 140 | Data | 11 | | 2 | 00/18DE : 00 00 | theX2 ds 2
|
||||
141 | 1 ampersand.s 141 | Data | 11 | | 2 | 00/18E0 : 00 00 | theY2 ds 2
|
||||
142 | 1 ampersand.s 142 | Data | 11 | | 1 | 00/18E2 : 00 | theRADIUS ds 1
|
||||
143 | 1 ampersand.s 143 | Data | 11 | | 1 | 00/18E3 : 00 | theFB ds 1
|
||||
144 | 1 ampersand.s 144 | Data | 11 | | 1 | 00/18E4 : 00 | theINK ds 1
|
||||
145 | 1 ampersand.s 145 | Data | 11 | | 1 | 00/18E5 : 00 | thePAPER ds 1
|
||||
146 | 1 ampersand.s 146 | Empty | 11 | | 0 | 00/18E6 |
|
||||
147 | 1 ampersand.s 147 | Comment | 11 | | 0 | 00/18E6 | * APPLE ORIC
|
||||
148 | 1 ampersand.s 148 | Comment | 11 | | 0 | 00/18E6 | * 0 black1 black
|
||||
149 | 1 ampersand.s 149 | Comment | 11 | | 0 | 00/18E6 | * 1 green red
|
||||
150 | 1 ampersand.s 150 | Comment | 11 | | 0 | 00/18E6 | * 2 blue green
|
||||
151 | 1 ampersand.s 151 | Comment | 11 | | 0 | 00/18E6 | * 3 white1 yellow
|
||||
152 | 1 ampersand.s 152 | Comment | 11 | | 0 | 00/18E6 | * 4 black2 blue
|
||||
153 | 1 ampersand.s 153 | Comment | 11 | | 0 | 00/18E6 | * 5 - magenta
|
||||
154 | 1 ampersand.s 154 | Comment | 11 | | 0 | 00/18E6 | * 6 - cyan
|
||||
155 | 1 ampersand.s 155 | Comment | 11 | | 0 | 00/18E6 | * 7 white2 white
|
||||
156 | 1 ampersand.s 156 | Empty | 11 | | 0 | 00/18E6 |
|
||||
157 | 1 ampersand.s 157 | Data | 11 | | 8 | 00/18E6 : 07 05 01 06 | oric2hgr hex 0705010602030400
|
||||
| | | | | | 02 03 04 00 |
|
||||
156 | 1 ampersand.s 156 | Empty | 11 | | 0 | 00/18EE |
|
||||
157 | 1 ampersand.s 157 | Comment | 11 | | 0 | 00/18EE | *----------------------------------- CURSET x,y,fb
|
||||
158 | 1 ampersand.s 158 | Empty | 11 | | 0 | 00/18EE |
|
||||
159 | 1 ampersand.s 159 | Empty | 11 | | 0 | 00/18EE | doS
|
||||
160 | 1 ampersand.s 160 | Code | 11 | | 3 | 00/18EE : 20 B1 00 | jsr {$b1} ; get next token
|
||||
161 | 1 ampersand.s 161 | Code | 11 | | 3 | 00/18F1 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
162 | 1 ampersand.s 162 | Code | 11 | | 3 | 00/18F4 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
163 | 1 ampersand.s 163 | Code | 11 | | 2 | 00/18F7 : A5 50 | lda {$50}
|
||||
164 | 1 ampersand.s 164 | Code | 11 | | 3 | 00/18F9 : 8D 7C 18 | sta theX
|
||||
165 | 1 ampersand.s 165 | Code | 11 | | 2 | 00/18FC : A5 51 | lda {$50}+1
|
||||
166 | 1 ampersand.s 166 | Code | 11 | | 3 | 00/18FE : 8D 7D 18 | sta theX+1 ; new X-coord
|
||||
167 | 1 ampersand.s 167 | Empty | 11 | | 0 | 00/1901 |
|
||||
168 | 1 ampersand.s 168 | Code | 11 | | 3 | 00/1901 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
169 | 1 ampersand.s 169 | Code | 11 | | 3 | 00/1904 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
170 | 1 ampersand.s 170 | Code | 11 | | 3 | 00/1907 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
171 | 1 ampersand.s 171 | Code | 11 | | 2 | 00/190A : A5 50 | lda {$50}
|
||||
172 | 1 ampersand.s 172 | Code | 11 | | 3 | 00/190C : 8D 7E 18 | sta theY
|
||||
173 | 1 ampersand.s 173 | Code | 11 | | 2 | 00/190F : A5 51 | lda {$50}+1
|
||||
174 | 1 ampersand.s 174 | Code | 11 | | 3 | 00/1911 : 8D 7F 18 | sta theY+1 ; new Y-coord
|
||||
175 | 1 ampersand.s 175 | Empty | 11 | | 0 | 00/1914 |
|
||||
176 | 1 ampersand.s 176 | Code | 11 | | 3 | 00/1914 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
177 | 1 ampersand.s 177 | Code | 11 | | 3 | 00/1917 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
178 | 1 ampersand.s 178 | Code | 11 | | 3 | 00/191A : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
179 | 1 ampersand.s 179 | Code | 11 | | 2 | 00/191D : A5 50 | lda {$50}
|
||||
180 | 1 ampersand.s 180 | Code | 11 | | 3 | 00/191F : 8D E3 18 | sta theFB
|
||||
181 | 1 ampersand.s 181 | Code | 11 | | 1 | 00/1922 : 60 | rts
|
||||
182 | 1 ampersand.s 182 | Empty | 11 | | 0 | 00/1923 |
|
||||
183 | 1 ampersand.s 183 | Comment | 11 | | 0 | 00/1923 | *----------------------------------- CURMOV x,y,fb
|
||||
159 | 1 ampersand.s 159 | Comment | 11 | | 0 | 00/18EE | *----------------------------------- CURSET x,y,fb
|
||||
160 | 1 ampersand.s 160 | Empty | 11 | | 0 | 00/18EE |
|
||||
161 | 1 ampersand.s 161 | Empty | 11 | | 0 | 00/18EE | doS
|
||||
162 | 1 ampersand.s 162 | Code | 11 | | 3 | 00/18EE : 20 B1 00 | jsr {$b1} ; get next token
|
||||
163 | 1 ampersand.s 163 | Code | 11 | | 3 | 00/18F1 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
164 | 1 ampersand.s 164 | Code | 11 | | 3 | 00/18F4 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
165 | 1 ampersand.s 165 | Code | 11 | | 2 | 00/18F7 : A5 50 | lda {$50}
|
||||
166 | 1 ampersand.s 166 | Code | 11 | | 3 | 00/18F9 : 8D 7C 18 | sta theX
|
||||
167 | 1 ampersand.s 167 | Code | 11 | | 2 | 00/18FC : A5 51 | lda {$50}+1
|
||||
168 | 1 ampersand.s 168 | Code | 11 | | 3 | 00/18FE : 8D 7D 18 | sta theX+1 ; new X-coord
|
||||
169 | 1 ampersand.s 169 | Empty | 11 | | 0 | 00/1901 |
|
||||
170 | 1 ampersand.s 170 | Code | 11 | | 3 | 00/1901 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
171 | 1 ampersand.s 171 | Code | 11 | | 3 | 00/1904 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
172 | 1 ampersand.s 172 | Code | 11 | | 3 | 00/1907 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
173 | 1 ampersand.s 173 | Code | 11 | | 2 | 00/190A : A5 50 | lda {$50}
|
||||
174 | 1 ampersand.s 174 | Code | 11 | | 3 | 00/190C : 8D 7E 18 | sta theY
|
||||
175 | 1 ampersand.s 175 | Code | 11 | | 2 | 00/190F : A5 51 | lda {$50}+1
|
||||
176 | 1 ampersand.s 176 | Code | 11 | | 3 | 00/1911 : 8D 7F 18 | sta theY+1 ; new Y-coord
|
||||
177 | 1 ampersand.s 177 | Empty | 11 | | 0 | 00/1914 |
|
||||
178 | 1 ampersand.s 178 | Code | 11 | | 3 | 00/1914 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
179 | 1 ampersand.s 179 | Code | 11 | | 3 | 00/1917 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
180 | 1 ampersand.s 180 | Code | 11 | | 3 | 00/191A : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
181 | 1 ampersand.s 181 | Code | 11 | | 2 | 00/191D : A5 50 | lda {$50}
|
||||
182 | 1 ampersand.s 182 | Code | 11 | | 3 | 00/191F : 8D E3 18 | sta theFB
|
||||
183 | 1 ampersand.s 183 | Code | 11 | | 1 | 00/1922 : 60 | rts
|
||||
184 | 1 ampersand.s 184 | Empty | 11 | | 0 | 00/1923 |
|
||||
185 | 1 ampersand.s 185 | Empty | 11 | | 0 | 00/1923 | doM
|
||||
186 | 1 ampersand.s 186 | Code | 11 | | 3 | 00/1923 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
187 | 1 ampersand.s 187 | Code | 11 | | 3 | 00/1926 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
188 | 1 ampersand.s 188 | Code | 11 | | 3 | 00/1929 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
189 | 1 ampersand.s 189 | Code | 11 | | 2 | 00/192C : A5 50 | lda {$50}
|
||||
190 | 1 ampersand.s 190 | Code | 11 | | 1 | 00/192E : 18 | clc
|
||||
191 | 1 ampersand.s 191 | Code | 11 | | 3 | 00/192F : 6D 7C 18 | adc theX
|
||||
192 | 1 ampersand.s 192 | Code | 11 | | 3 | 00/1932 : 8D 7C 18 | sta theX
|
||||
193 | 1 ampersand.s 193 | Code | 11 | | 2 | 00/1935 : A5 51 | lda {$50}+1
|
||||
194 | 1 ampersand.s 194 | Code | 11 | | 3 | 00/1937 : 6D 7D 18 | adc theX+1
|
||||
195 | 1 ampersand.s 195 | Code | 11 | | 3 | 00/193A : 8D 7D 18 | sta theX+1 ; new X-coord
|
||||
196 | 1 ampersand.s 196 | Empty | 11 | | 0 | 00/193D |
|
||||
197 | 1 ampersand.s 197 | Code | 11 | | 3 | 00/193D : 20 BE DE | jsr {$debe} ; check for comma
|
||||
198 | 1 ampersand.s 198 | Code | 11 | | 3 | 00/1940 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
199 | 1 ampersand.s 199 | Code | 11 | | 3 | 00/1943 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
200 | 1 ampersand.s 200 | Code | 11 | | 2 | 00/1946 : A5 50 | lda {$50}
|
||||
201 | 1 ampersand.s 201 | Code | 11 | | 1 | 00/1948 : 18 | clc
|
||||
202 | 1 ampersand.s 202 | Code | 11 | | 3 | 00/1949 : 6D 7E 18 | adc theY
|
||||
203 | 1 ampersand.s 203 | Code | 11 | | 3 | 00/194C : 8D 7E 18 | sta theY
|
||||
204 | 1 ampersand.s 204 | Code | 11 | | 2 | 00/194F : A5 51 | lda {$50}+1
|
||||
205 | 1 ampersand.s 205 | Code | 11 | | 3 | 00/1951 : 6D 7F 18 | adc theY+1
|
||||
206 | 1 ampersand.s 206 | Code | 11 | | 3 | 00/1954 : 8D 7F 18 | sta theY+1 ; new Y-coord
|
||||
207 | 1 ampersand.s 207 | Empty | 11 | | 0 | 00/1957 |
|
||||
208 | 1 ampersand.s 208 | Code | 11 | | 3 | 00/1957 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
209 | 1 ampersand.s 209 | Code | 11 | | 3 | 00/195A : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
210 | 1 ampersand.s 210 | Code | 11 | | 3 | 00/195D : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
211 | 1 ampersand.s 211 | Code | 11 | | 2 | 00/1960 : A5 50 | lda {$50}
|
||||
212 | 1 ampersand.s 212 | Code | 11 | | 3 | 00/1962 : 8D E3 18 | sta theFB
|
||||
213 | 1 ampersand.s 213 | Code | 11 | | 1 | 00/1965 : 60 | rts
|
||||
214 | 1 ampersand.s 214 | Empty | 11 | | 0 | 00/1966 |
|
||||
215 | 1 ampersand.s 215 | Comment | 11 | | 0 | 00/1966 | *----------------------------------- DRAW x,y,fb
|
||||
185 | 1 ampersand.s 185 | Comment | 11 | | 0 | 00/1923 | *----------------------------------- CURMOV x,y,fb
|
||||
186 | 1 ampersand.s 186 | Empty | 11 | | 0 | 00/1923 |
|
||||
187 | 1 ampersand.s 187 | Empty | 11 | | 0 | 00/1923 | doM
|
||||
188 | 1 ampersand.s 188 | Code | 11 | | 3 | 00/1923 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
189 | 1 ampersand.s 189 | Code | 11 | | 3 | 00/1926 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
190 | 1 ampersand.s 190 | Code | 11 | | 3 | 00/1929 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
191 | 1 ampersand.s 191 | Code | 11 | | 2 | 00/192C : A5 50 | lda {$50}
|
||||
192 | 1 ampersand.s 192 | Code | 11 | | 1 | 00/192E : 18 | clc
|
||||
193 | 1 ampersand.s 193 | Code | 11 | | 3 | 00/192F : 6D 7C 18 | adc theX
|
||||
194 | 1 ampersand.s 194 | Code | 11 | | 3 | 00/1932 : 8D 7C 18 | sta theX
|
||||
195 | 1 ampersand.s 195 | Code | 11 | | 2 | 00/1935 : A5 51 | lda {$50}+1
|
||||
196 | 1 ampersand.s 196 | Code | 11 | | 3 | 00/1937 : 6D 7D 18 | adc theX+1
|
||||
197 | 1 ampersand.s 197 | Code | 11 | | 3 | 00/193A : 8D 7D 18 | sta theX+1 ; new X-coord
|
||||
198 | 1 ampersand.s 198 | Empty | 11 | | 0 | 00/193D |
|
||||
199 | 1 ampersand.s 199 | Code | 11 | | 3 | 00/193D : 20 BE DE | jsr {$debe} ; check for comma
|
||||
200 | 1 ampersand.s 200 | Code | 11 | | 3 | 00/1940 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
201 | 1 ampersand.s 201 | Code | 11 | | 3 | 00/1943 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
202 | 1 ampersand.s 202 | Code | 11 | | 2 | 00/1946 : A5 50 | lda {$50}
|
||||
203 | 1 ampersand.s 203 | Code | 11 | | 1 | 00/1948 : 18 | clc
|
||||
204 | 1 ampersand.s 204 | Code | 11 | | 3 | 00/1949 : 6D 7E 18 | adc theY
|
||||
205 | 1 ampersand.s 205 | Code | 11 | | 3 | 00/194C : 8D 7E 18 | sta theY
|
||||
206 | 1 ampersand.s 206 | Code | 11 | | 2 | 00/194F : A5 51 | lda {$50}+1
|
||||
207 | 1 ampersand.s 207 | Code | 11 | | 3 | 00/1951 : 6D 7F 18 | adc theY+1
|
||||
208 | 1 ampersand.s 208 | Code | 11 | | 3 | 00/1954 : 8D 7F 18 | sta theY+1 ; new Y-coord
|
||||
209 | 1 ampersand.s 209 | Empty | 11 | | 0 | 00/1957 |
|
||||
210 | 1 ampersand.s 210 | Code | 11 | | 3 | 00/1957 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
211 | 1 ampersand.s 211 | Code | 11 | | 3 | 00/195A : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
212 | 1 ampersand.s 212 | Code | 11 | | 3 | 00/195D : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
213 | 1 ampersand.s 213 | Code | 11 | | 2 | 00/1960 : A5 50 | lda {$50}
|
||||
214 | 1 ampersand.s 214 | Code | 11 | | 3 | 00/1962 : 8D E3 18 | sta theFB
|
||||
215 | 1 ampersand.s 215 | Code | 11 | | 1 | 00/1965 : 60 | rts
|
||||
216 | 1 ampersand.s 216 | Empty | 11 | | 0 | 00/1966 |
|
||||
217 | 1 ampersand.s 217 | Empty | 11 | | 0 | 00/1966 | doD
|
||||
218 | 1 ampersand.s 218 | Code | 11 | | 3 | 00/1966 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
219 | 1 ampersand.s 219 | Code | 11 | | 3 | 00/1969 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
220 | 1 ampersand.s 220 | Code | 11 | | 3 | 00/196C : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
221 | 1 ampersand.s 221 | Code | 11 | | 2 | 00/196F : A5 50 | lda {$50}
|
||||
222 | 1 ampersand.s 222 | Code | 11 | | 1 | 00/1971 : 18 | clc
|
||||
223 | 1 ampersand.s 223 | Code | 11 | | 3 | 00/1972 : 6D 7C 18 | adc theX
|
||||
224 | 1 ampersand.s 224 | Code | 11 | | 3 | 00/1975 : 8D DE 18 | sta theX2
|
||||
225 | 1 ampersand.s 225 | Code | 11 | | 2 | 00/1978 : A5 51 | lda {$50}+1
|
||||
226 | 1 ampersand.s 226 | Code | 11 | | 3 | 00/197A : 6D 7D 18 | adc theX+1
|
||||
227 | 1 ampersand.s 227 | Code | 11 | | 3 | 00/197D : 8D DF 18 | sta theX2+1 ; new X-coord
|
||||
228 | 1 ampersand.s 228 | Empty | 11 | | 0 | 00/1980 |
|
||||
229 | 1 ampersand.s 229 | Code | 11 | | 3 | 00/1980 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
230 | 1 ampersand.s 230 | Code | 11 | | 3 | 00/1983 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
231 | 1 ampersand.s 231 | Code | 11 | | 3 | 00/1986 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
232 | 1 ampersand.s 232 | Code | 11 | | 2 | 00/1989 : A5 50 | lda {$50}
|
||||
233 | 1 ampersand.s 233 | Code | 11 | | 1 | 00/198B : 18 | clc
|
||||
234 | 1 ampersand.s 234 | Code | 11 | | 3 | 00/198C : 6D 7E 18 | adc theY
|
||||
235 | 1 ampersand.s 235 | Code | 11 | | 3 | 00/198F : 8D E0 18 | sta theY2
|
||||
236 | 1 ampersand.s 236 | Code | 11 | | 2 | 00/1992 : A5 51 | lda {$50}+1
|
||||
237 | 1 ampersand.s 237 | Code | 11 | | 3 | 00/1994 : 6D 7E 18 | adc theY
|
||||
238 | 1 ampersand.s 238 | Code | 11 | | 3 | 00/1997 : 8D E1 18 | sta theY2+1 ; new Y-coord
|
||||
239 | 1 ampersand.s 239 | Empty | 11 | | 0 | 00/199A |
|
||||
240 | 1 ampersand.s 240 | Code | 11 | | 3 | 00/199A : 20 BE DE | jsr {$debe} ; check for comma
|
||||
241 | 1 ampersand.s 241 | Code | 11 | | 3 | 00/199D : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
242 | 1 ampersand.s 242 | Code | 11 | | 3 | 00/19A0 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
243 | 1 ampersand.s 243 | Code | 11 | | 2 | 00/19A3 : A5 50 | lda {$50}
|
||||
244 | 1 ampersand.s 244 | Code | 11 | | 3 | 00/19A5 : 8D E3 18 | sta theFB
|
||||
245 | 1 ampersand.s 245 | Empty | 11 | | 0 | 00/19A8 |
|
||||
246 | 1 ampersand.s 246 | Comment | 11 | | 0 | 00/19A8 | *---------- It is now time to draw as we have all variables
|
||||
217 | 1 ampersand.s 217 | Comment | 11 | | 0 | 00/1966 | *----------------------------------- DRAW x,y,fb
|
||||
218 | 1 ampersand.s 218 | Empty | 11 | | 0 | 00/1966 |
|
||||
219 | 1 ampersand.s 219 | Empty | 11 | | 0 | 00/1966 | doD
|
||||
220 | 1 ampersand.s 220 | Code | 11 | | 3 | 00/1966 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
221 | 1 ampersand.s 221 | Code | 11 | | 3 | 00/1969 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
222 | 1 ampersand.s 222 | Code | 11 | | 3 | 00/196C : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
223 | 1 ampersand.s 223 | Code | 11 | | 2 | 00/196F : A5 50 | lda {$50}
|
||||
224 | 1 ampersand.s 224 | Code | 11 | | 1 | 00/1971 : 18 | clc
|
||||
225 | 1 ampersand.s 225 | Code | 11 | | 3 | 00/1972 : 6D 7C 18 | adc theX
|
||||
226 | 1 ampersand.s 226 | Code | 11 | | 3 | 00/1975 : 8D DE 18 | sta theX2
|
||||
227 | 1 ampersand.s 227 | Code | 11 | | 2 | 00/1978 : A5 51 | lda {$50}+1
|
||||
228 | 1 ampersand.s 228 | Code | 11 | | 3 | 00/197A : 6D 7D 18 | adc theX+1
|
||||
229 | 1 ampersand.s 229 | Code | 11 | | 3 | 00/197D : 8D DF 18 | sta theX2+1 ; new X-coord
|
||||
230 | 1 ampersand.s 230 | Empty | 11 | | 0 | 00/1980 |
|
||||
231 | 1 ampersand.s 231 | Code | 11 | | 3 | 00/1980 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
232 | 1 ampersand.s 232 | Code | 11 | | 3 | 00/1983 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
233 | 1 ampersand.s 233 | Code | 11 | | 3 | 00/1986 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
234 | 1 ampersand.s 234 | Code | 11 | | 2 | 00/1989 : A5 50 | lda {$50}
|
||||
235 | 1 ampersand.s 235 | Code | 11 | | 1 | 00/198B : 18 | clc
|
||||
236 | 1 ampersand.s 236 | Code | 11 | | 3 | 00/198C : 6D 7E 18 | adc theY
|
||||
237 | 1 ampersand.s 237 | Code | 11 | | 3 | 00/198F : 8D E0 18 | sta theY2
|
||||
238 | 1 ampersand.s 238 | Code | 11 | | 2 | 00/1992 : A5 51 | lda {$50}+1
|
||||
239 | 1 ampersand.s 239 | Code | 11 | | 3 | 00/1994 : 6D 7E 18 | adc theY
|
||||
240 | 1 ampersand.s 240 | Code | 11 | | 3 | 00/1997 : 8D E1 18 | sta theY2+1 ; new Y-coord
|
||||
241 | 1 ampersand.s 241 | Empty | 11 | | 0 | 00/199A |
|
||||
242 | 1 ampersand.s 242 | Code | 11 | | 3 | 00/199A : 20 BE DE | jsr {$debe} ; check for comma
|
||||
243 | 1 ampersand.s 243 | Code | 11 | | 3 | 00/199D : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
244 | 1 ampersand.s 244 | Code | 11 | | 3 | 00/19A0 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
245 | 1 ampersand.s 245 | Code | 11 | | 2 | 00/19A3 : A5 50 | lda {$50}
|
||||
246 | 1 ampersand.s 246 | Code | 11 | | 3 | 00/19A5 : 8D E3 18 | sta theFB
|
||||
247 | 1 ampersand.s 247 | Empty | 11 | | 0 | 00/19A8 |
|
||||
248 | 1 ampersand.s 248 | Code | 11 | | 3 | 00/19A8 : AC E4 18 | ldy theINK ; the ink color
|
||||
249 | 1 ampersand.s 249 | Code | 11 | | 3 | 00/19AB : BE E6 18 | ldx oric2hgr,y ; from the Oric to the Apple II
|
||||
250 | 1 ampersand.s 250 | Code | 11 | | 3 | 00/19AE : 20 EC F6 | jsr {$f6e9}+3 ; to skip CHRGET
|
||||
251 | 1 ampersand.s 251 | Empty | 11 | | 0 | 00/19B1 |
|
||||
252 | 1 ampersand.s 252 | Code | 11 | | 3 | 00/19B1 : AE 7C 18 | ldx theX ; HPLOT x,y
|
||||
253 | 1 ampersand.s 253 | Code | 11 | | 3 | 00/19B4 : AC 7D 18 | ldy theX+1
|
||||
254 | 1 ampersand.s 254 | Code | 11 | | 3 | 00/19B7 : AD 7E 18 | lda theY
|
||||
255 | 1 ampersand.s 255 | Code | 11 | | 3 | 00/19BA : 20 57 F4 | jsr {$f457}
|
||||
256 | 1 ampersand.s 256 | Empty | 11 | | 0 | 00/19BD |
|
||||
257 | 1 ampersand.s 257 | Code | 11 | | 3 | 00/19BD : AD DE 18 | lda theX2 ; TO x2,Y2
|
||||
258 | 1 ampersand.s 258 | Code | 11 | | 3 | 00/19C0 : AE DF 18 | ldx theX2+1
|
||||
259 | 1 ampersand.s 259 | Code | 11 | | 3 | 00/19C3 : AC E0 18 | ldy theY2
|
||||
260 | 1 ampersand.s 260 | Code | 11 | | 3 | 00/19C6 : 20 3A F5 | jsr {$f53a} ; draw the line
|
||||
261 | 1 ampersand.s 261 | Empty | 11 | | 0 | 00/19C9 |
|
||||
262 | 1 ampersand.s 262 | Code | 11 | | 2 | 00/19C9 : A5 E0 | lda {$e0} ; save the updated coords
|
||||
263 | 1 ampersand.s 263 | Code | 11 | | 3 | 00/19CB : 8D 7C 18 | sta theX
|
||||
264 | 1 ampersand.s 264 | Code | 11 | | 2 | 00/19CE : A5 E1 | lda {$e1}
|
||||
265 | 1 ampersand.s 265 | Code | 11 | | 3 | 00/19D0 : 8D 7D 18 | sta theX+1
|
||||
266 | 1 ampersand.s 266 | Code | 11 | | 2 | 00/19D3 : A5 E2 | lda {$e2}
|
||||
267 | 1 ampersand.s 267 | Code | 11 | | 3 | 00/19D5 : 8D 7E 18 | sta theY
|
||||
268 | 1 ampersand.s 268 | Code | 11 | | 1 | 00/19D8 : 60 | rts
|
||||
269 | 1 ampersand.s 269 | Empty | 11 | | 0 | 00/19D9 |
|
||||
270 | 1 ampersand.s 270 | Comment | 11 | | 0 | 00/19D9 | *----------------------------------- CIRCLE n,fb
|
||||
248 | 1 ampersand.s 248 | Comment | 11 | | 0 | 00/19A8 | *---------- It is now time to draw as we have all variables
|
||||
249 | 1 ampersand.s 249 | Empty | 11 | | 0 | 00/19A8 |
|
||||
250 | 1 ampersand.s 250 | Code | 11 | | 3 | 00/19A8 : AC E4 18 | ldy theINK ; the ink color
|
||||
251 | 1 ampersand.s 251 | Code | 11 | | 3 | 00/19AB : BE E6 18 | ldx oric2hgr,y ; from the Oric to the Apple II
|
||||
252 | 1 ampersand.s 252 | Code | 11 | | 3 | 00/19AE : 20 EC F6 | jsr {$f6e9}+3 ; to skip CHRGET
|
||||
253 | 1 ampersand.s 253 | Empty | 11 | | 0 | 00/19B1 |
|
||||
254 | 1 ampersand.s 254 | Code | 11 | | 3 | 00/19B1 : AE 7C 18 | ldx theX ; HPLOT x,y
|
||||
255 | 1 ampersand.s 255 | Code | 11 | | 3 | 00/19B4 : AC 7D 18 | ldy theX+1
|
||||
256 | 1 ampersand.s 256 | Code | 11 | | 3 | 00/19B7 : AD 7E 18 | lda theY
|
||||
257 | 1 ampersand.s 257 | Code | 11 | | 3 | 00/19BA : 20 57 F4 | jsr {$f457}
|
||||
258 | 1 ampersand.s 258 | Empty | 11 | | 0 | 00/19BD |
|
||||
259 | 1 ampersand.s 259 | Code | 11 | | 3 | 00/19BD : AD DE 18 | lda theX2 ; TO x2,Y2
|
||||
260 | 1 ampersand.s 260 | Code | 11 | | 3 | 00/19C0 : AE DF 18 | ldx theX2+1
|
||||
261 | 1 ampersand.s 261 | Code | 11 | | 3 | 00/19C3 : AC E0 18 | ldy theY2
|
||||
262 | 1 ampersand.s 262 | Code | 11 | | 3 | 00/19C6 : 20 3A F5 | jsr {$f53a} ; draw the line
|
||||
263 | 1 ampersand.s 263 | Empty | 11 | | 0 | 00/19C9 |
|
||||
264 | 1 ampersand.s 264 | Code | 11 | | 2 | 00/19C9 : A5 E0 | lda {$e0} ; save the updated coords
|
||||
265 | 1 ampersand.s 265 | Code | 11 | | 3 | 00/19CB : 8D 7C 18 | sta theX
|
||||
266 | 1 ampersand.s 266 | Code | 11 | | 2 | 00/19CE : A5 E1 | lda {$e1}
|
||||
267 | 1 ampersand.s 267 | Code | 11 | | 3 | 00/19D0 : 8D 7D 18 | sta theX+1
|
||||
268 | 1 ampersand.s 268 | Code | 11 | | 2 | 00/19D3 : A5 E2 | lda {$e2}
|
||||
269 | 1 ampersand.s 269 | Code | 11 | | 3 | 00/19D5 : 8D 7E 18 | sta theY
|
||||
270 | 1 ampersand.s 270 | Code | 11 | | 1 | 00/19D8 : 60 | rts
|
||||
271 | 1 ampersand.s 271 | Empty | 11 | | 0 | 00/19D9 |
|
||||
272 | 1 ampersand.s 272 | Empty | 11 | | 0 | 00/19D9 | doC
|
||||
273 | 1 ampersand.s 273 | Code | 11 | | 3 | 00/19D9 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
274 | 1 ampersand.s 274 | Code | 11 | | 3 | 00/19DC : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
275 | 1 ampersand.s 275 | Code | 11 | | 3 | 00/19DF : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
276 | 1 ampersand.s 276 | Code | 11 | | 2 | 00/19E2 : A5 50 | lda {$50}
|
||||
277 | 1 ampersand.s 277 | Code | 11 | | 3 | 00/19E4 : 8D E2 18 | sta theRADIUS ; the radius
|
||||
278 | 1 ampersand.s 278 | Empty | 11 | | 0 | 00/19E7 |
|
||||
279 | 1 ampersand.s 279 | Code | 11 | | 3 | 00/19E7 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
280 | 1 ampersand.s 280 | Code | 11 | | 3 | 00/19EA : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
281 | 1 ampersand.s 281 | Code | 11 | | 3 | 00/19ED : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
282 | 1 ampersand.s 282 | Code | 11 | | 2 | 00/19F0 : A5 50 | lda {$50}
|
||||
283 | 1 ampersand.s 283 | Code | 11 | | 3 | 00/19F2 : 8D E3 18 | sta theFB ; the foreground color
|
||||
284 | 1 ampersand.s 284 | Code | 11 | | 1 | 00/19F5 : 60 | rts
|
||||
285 | 1 ampersand.s 285 | Empty | 11 | | 0 | 00/19F6 |
|
||||
286 | 1 ampersand.s 286 | Comment | 11 | | 0 | 00/19F6 | *----------------------------------- INK fb
|
||||
272 | 1 ampersand.s 272 | Comment | 11 | | 0 | 00/19D9 | *----------------------------------- CIRCLE n,fb
|
||||
273 | 1 ampersand.s 273 | Empty | 11 | | 0 | 00/19D9 |
|
||||
274 | 1 ampersand.s 274 | Empty | 11 | | 0 | 00/19D9 | doC
|
||||
275 | 1 ampersand.s 275 | Code | 11 | | 3 | 00/19D9 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
276 | 1 ampersand.s 276 | Code | 11 | | 3 | 00/19DC : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
277 | 1 ampersand.s 277 | Code | 11 | | 3 | 00/19DF : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
278 | 1 ampersand.s 278 | Code | 11 | | 2 | 00/19E2 : A5 50 | lda {$50}
|
||||
279 | 1 ampersand.s 279 | Code | 11 | | 3 | 00/19E4 : 8D E2 18 | sta theRADIUS ; the radius
|
||||
280 | 1 ampersand.s 280 | Empty | 11 | | 0 | 00/19E7 |
|
||||
281 | 1 ampersand.s 281 | Code | 11 | | 3 | 00/19E7 : 20 BE DE | jsr {$debe} ; check for comma
|
||||
282 | 1 ampersand.s 282 | Code | 11 | | 3 | 00/19EA : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
283 | 1 ampersand.s 283 | Code | 11 | | 3 | 00/19ED : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
284 | 1 ampersand.s 284 | Code | 11 | | 2 | 00/19F0 : A5 50 | lda {$50}
|
||||
285 | 1 ampersand.s 285 | Code | 11 | | 3 | 00/19F2 : 8D E3 18 | sta theFB ; the foreground color
|
||||
286 | 1 ampersand.s 286 | Code | 11 | | 1 | 00/19F5 : 60 | rts
|
||||
287 | 1 ampersand.s 287 | Empty | 11 | | 0 | 00/19F6 |
|
||||
288 | 1 ampersand.s 288 | Empty | 11 | | 0 | 00/19F6 | doI
|
||||
289 | 1 ampersand.s 289 | Code | 11 | | 3 | 00/19F6 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
290 | 1 ampersand.s 290 | Code | 11 | | 3 | 00/19F9 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
291 | 1 ampersand.s 291 | Code | 11 | | 3 | 00/19FC : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
292 | 1 ampersand.s 292 | Code | 11 | | 2 | 00/19FF : A5 50 | lda {$50}
|
||||
293 | 1 ampersand.s 293 | Code | 11 | | 3 | 00/1A01 : 8D E4 18 | sta theINK
|
||||
294 | 1 ampersand.s 294 | Code | 11 | | 1 | 00/1A04 : 60 | rts
|
||||
295 | 1 ampersand.s 295 | Empty | 11 | | 0 | 00/1A05 |
|
||||
296 | 1 ampersand.s 296 | Comment | 11 | | 0 | 00/1A05 | *----------------------------------- PAPER fb
|
||||
288 | 1 ampersand.s 288 | Comment | 11 | | 0 | 00/19F6 | *----------------------------------- INK fb
|
||||
289 | 1 ampersand.s 289 | Empty | 11 | | 0 | 00/19F6 |
|
||||
290 | 1 ampersand.s 290 | Empty | 11 | | 0 | 00/19F6 | doI
|
||||
291 | 1 ampersand.s 291 | Code | 11 | | 3 | 00/19F6 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
292 | 1 ampersand.s 292 | Code | 11 | | 3 | 00/19F9 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
293 | 1 ampersand.s 293 | Code | 11 | | 3 | 00/19FC : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
294 | 1 ampersand.s 294 | Code | 11 | | 2 | 00/19FF : A5 50 | lda {$50}
|
||||
295 | 1 ampersand.s 295 | Code | 11 | | 3 | 00/1A01 : 8D E4 18 | sta theINK
|
||||
296 | 1 ampersand.s 296 | Code | 11 | | 1 | 00/1A04 : 60 | rts
|
||||
297 | 1 ampersand.s 297 | Empty | 11 | | 0 | 00/1A05 |
|
||||
298 | 1 ampersand.s 298 | Empty | 11 | | 0 | 00/1A05 | doP
|
||||
299 | 1 ampersand.s 299 | Code | 11 | | 3 | 00/1A05 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
300 | 1 ampersand.s 300 | Code | 11 | | 3 | 00/1A08 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
301 | 1 ampersand.s 301 | Code | 11 | | 3 | 00/1A0B : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
302 | 1 ampersand.s 302 | Code | 11 | | 2 | 00/1A0E : A5 50 | lda {$50}
|
||||
303 | 1 ampersand.s 303 | Code | 11 | | 3 | 00/1A10 : 8D E5 18 | sta thePAPER
|
||||
304 | 1 ampersand.s 304 | Code | 11 | | 1 | 00/1A13 : 60 | rts
|
||||
305 | 1 ampersand.s 305 | Empty | 11 | | 0 | 00/1A14 |
|
||||
306 | 1 ampersand.s 306 | Comment | 11 | | 0 | 00/1A14 | *----------------------------------- HIRES
|
||||
298 | 1 ampersand.s 298 | Comment | 11 | | 0 | 00/1A05 | *----------------------------------- PAPER fb
|
||||
299 | 1 ampersand.s 299 | Empty | 11 | | 0 | 00/1A05 |
|
||||
300 | 1 ampersand.s 300 | Empty | 11 | | 0 | 00/1A05 | doP
|
||||
301 | 1 ampersand.s 301 | Code | 11 | | 3 | 00/1A05 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
302 | 1 ampersand.s 302 | Code | 11 | | 3 | 00/1A08 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
303 | 1 ampersand.s 303 | Code | 11 | | 3 | 00/1A0B : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
304 | 1 ampersand.s 304 | Code | 11 | | 2 | 00/1A0E : A5 50 | lda {$50}
|
||||
305 | 1 ampersand.s 305 | Code | 11 | | 3 | 00/1A10 : 8D E5 18 | sta thePAPER
|
||||
306 | 1 ampersand.s 306 | Code | 11 | | 1 | 00/1A13 : 60 | rts
|
||||
307 | 1 ampersand.s 307 | Empty | 11 | | 0 | 00/1A14 |
|
||||
308 | 1 ampersand.s 308 | Empty | 11 | | 0 | 00/1A14 | doH
|
||||
309 | 1 ampersand.s 309 | Code | 11 | | 3 | 00/1A14 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
310 | 1 ampersand.s 310 | Empty | 11 | | 0 | 00/1A17 |
|
||||
311 | 1 ampersand.s 311 | Code | 11 | | 2 | 00/1A17 : A9 00 | lda #0
|
||||
312 | 1 ampersand.s 312 | Code | 11 | | 2 | 00/1A19 : 85 20 | sta {$20}
|
||||
313 | 1 ampersand.s 313 | Code | 11 | | 2 | 00/1A1B : A9 28 | lda #40
|
||||
314 | 1 ampersand.s 314 | Code | 11 | | 2 | 00/1A1D : 85 21 | sta {$21}
|
||||
315 | 1 ampersand.s 315 | Code | 11 | | 2 | 00/1A1F : A9 14 | lda #20
|
||||
316 | 1 ampersand.s 316 | Code | 11 | | 2 | 00/1A21 : 85 22 | sta {$22}
|
||||
317 | 1 ampersand.s 317 | Code | 11 | | 2 | 00/1A23 : A9 18 | lda #24
|
||||
318 | 1 ampersand.s 318 | Code | 11 | | 2 | 00/1A25 : 85 23 | sta {$23}
|
||||
319 | 1 ampersand.s 319 | Code | 11 | | 3 | 00/1A27 : 20 58 FC | jsr {$fc58}
|
||||
320 | 1 ampersand.s 320 | Empty | 11 | | 0 | 00/1A2A |
|
||||
321 | 1 ampersand.s 321 | Code | 11 | | 3 | 00/1A2A : 20 E2 F3 | jsr {$f3e2}
|
||||
322 | 1 ampersand.s 322 | Code | 11 | | 1 | 00/1A2D : 60 | rts
|
||||
323 | 1 ampersand.s 323 | Empty | 11 | | 0 | 00/1A2E |
|
||||
324 | 1 ampersand.s 324 | Comment | 11 | | 0 | 00/1A2E | *----------------------------------- WAIT x
|
||||
325 | 1 ampersand.s 325 | Empty | 11 | | 0 | 00/1A2E |
|
||||
326 | 1 ampersand.s 326 | Empty | 11 | | 0 | 00/1A2E | doW
|
||||
327 | 1 ampersand.s 327 | Code | 11 | | 3 | 00/1A2E : 20 B1 00 | jsr {$b1} ; get next token
|
||||
328 | 1 ampersand.s 328 | Code | 11 | | 3 | 00/1A31 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
329 | 1 ampersand.s 329 | Code | 11 | | 3 | 00/1A34 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
330 | 1 ampersand.s 330 | Empty | 11 | | 0 | 00/1A37 |
|
||||
331 | 1 ampersand.s 331 | Code | 11 | | 2 | 00/1A37 : A6 51 | ldx {$50}+1
|
||||
332 | 1 ampersand.s 332 | Code | 11 | | 2 | 00/1A39 : A4 50 | doW1 ldy {$50}
|
||||
333 | 1 ampersand.s 333 | Code | 11 | | 2 | 00/1A3B : A9 3C | ozunid_2 lda #60 ; 1/100<30>me de seconde
|
||||
334 | 1 ampersand.s 334 | Code | 11 | | 3 | 00/1A3D : 20 A8 FC | jsr {$fca8}
|
||||
335 | 1 ampersand.s 335 | Code | 11 | | 1 | 00/1A40 : 88 | dey
|
||||
336 | 1 ampersand.s 336 | Code | 11 | | 2 | 00/1A41 : D0 F8 | bne ozunid_2
|
||||
337 | 1 ampersand.s 337 | Code | 11 | | 1 | 00/1A43 : CA | dex
|
||||
338 | 1 ampersand.s 338 | Code | 11 | | 2 | 00/1A44 : 10 F3 | bpl doW1
|
||||
339 | 1 ampersand.s 339 | Code | 11 | | 1 | 00/1A46 : 60 | rts
|
||||
340 | 1 ampersand.s 340 | Empty | 11 | | 0 | 00/1A47 |
|
||||
341 | 1 ampersand.s 341 | Comment | 11 | | 0 | 00/1A47 | *----------------------------------- EXPLODE
|
||||
342 | 1 ampersand.s 342 | Empty | 11 | | 0 | 00/1A47 |
|
||||
343 | 1 ampersand.s 343 | Empty | 11 | | 0 | 00/1A47 | doE
|
||||
344 | 1 ampersand.s 344 | Code | 11 | | 3 | 00/1A47 : 20 B1 00 | jsr {$b1}
|
||||
345 | 1 ampersand.s 345 | Code | 11 | | 1 | 00/1A4A : 60 | rts
|
||||
346 | 1 ampersand.s 346 | Empty | 11 | | 0 | 00/1A4B |
|
||||
347 | 1 ampersand.s 347 | Comment | 11 | | 0 | 00/1A4B | *----------------------------------- RESTORE address
|
||||
348 | 1 ampersand.s 348 | Empty | 11 | | 0 | 00/1A4B |
|
||||
349 | 1 ampersand.s 349 | Empty | 11 | | 0 | 00/1A4B | doR
|
||||
350 | 1 ampersand.s 350 | Code | 11 | | 3 | 00/1A4B : 20 B1 00 | jsr {$b1} ; get next token
|
||||
351 | 1 ampersand.s 351 | Code | 11 | | 3 | 00/1A4E : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
352 | 1 ampersand.s 352 | Code | 11 | | 3 | 00/1A51 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
353 | 1 ampersand.s 353 | Code | 11 | | 3 | 00/1A54 : 20 1A D6 | jsr {$d61a} ; find chosen line no.
|
||||
354 | 1 ampersand.s 354 | Empty | 11 | | 0 | 00/1A57 |
|
||||
355 | 1 ampersand.s 355 | Code | 11 | | 2 | 00/1A57 : A4 9C | ldy {$9b}+1 ; point DATPTR at byte before it
|
||||
356 | 1 ampersand.s 356 | Code | 11 | | 2 | 00/1A59 : A6 9B | ldx {$9b}
|
||||
357 | 1 ampersand.s 357 | Code | 11 | | 2 | 00/1A5B : D0 01 | bne dx
|
||||
358 | 1 ampersand.s 358 | Code | 11 | | 1 | 00/1A5D : 88 | dey
|
||||
359 | 1 ampersand.s 359 | Code | 11 | | 1 | 00/1A5E : CA | dx dex
|
||||
360 | 1 ampersand.s 360 | Code | 11 | | 2 | 00/1A5F : 84 7E | sty {$7d}+1
|
||||
361 | 1 ampersand.s 361 | Code | 11 | | 2 | 00/1A61 : 86 7D | stx {$7d}
|
||||
362 | 1 ampersand.s 362 | Code | 11 | | 1 | 00/1A63 : 60 | rts
|
||||
363 | 1 ampersand.s 363 | Empty | 11 | | 0 | 00/1A64 |
|
||||
364 | 1 ampersand.s 364 | Comment | 11 | | 0 | 00/1A64 | *----------------------------------- GOSUB address
|
||||
365 | 1 ampersand.s 365 | Empty | 11 | | 0 | 00/1A64 |
|
||||
366 | 1 ampersand.s 366 | Empty | 11 | | 0 | 00/1A64 | doG
|
||||
367 | 1 ampersand.s 367 | Code | 11 | | 2 | 00/1A64 : A9 03 | lda #3 ; make sure there's enough stack
|
||||
368 | 1 ampersand.s 368 | Code | 11 | | 3 | 00/1A66 : 20 D6 D3 | jsr {$d3d6}
|
||||
369 | 1 ampersand.s 369 | Empty | 11 | | 0 | 00/1A69 |
|
||||
370 | 1 ampersand.s 370 | Code | 11 | | 2 | 00/1A69 : A5 B9 | lda {$b8}+1 ; push marker for RETURN
|
||||
371 | 1 ampersand.s 371 | Code | 11 | | 1 | 00/1A6B : 48 | pha
|
||||
372 | 1 ampersand.s 372 | Code | 11 | | 2 | 00/1A6C : A5 B8 | lda {$b8}
|
||||
373 | 1 ampersand.s 373 | Code | 11 | | 1 | 00/1A6E : 48 | pha
|
||||
374 | 1 ampersand.s 374 | Code | 11 | | 2 | 00/1A6F : A5 76 | lda {$75}+1
|
||||
375 | 1 ampersand.s 375 | Code | 11 | | 1 | 00/1A71 : 48 | pha
|
||||
376 | 1 ampersand.s 376 | Code | 11 | | 2 | 00/1A72 : A5 75 | lda {$75}
|
||||
377 | 1 ampersand.s 377 | Code | 11 | | 1 | 00/1A74 : 48 | pha
|
||||
378 | 1 ampersand.s 378 | Code | 11 | | 2 | 00/1A75 : A9 B0 | lda #{$b0}
|
||||
379 | 1 ampersand.s 379 | Code | 11 | | 1 | 00/1A77 : 48 | pha
|
||||
380 | 1 ampersand.s 380 | Empty | 11 | | 0 | 00/1A78 |
|
||||
381 | 1 ampersand.s 381 | Code | 11 | | 3 | 00/1A78 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
382 | 1 ampersand.s 382 | Code | 11 | | 3 | 00/1A7B : 20 67 DD | jsr {$dd67} ; parse numeric expr
|
||||
383 | 1 ampersand.s 383 | Code | 11 | | 3 | 00/1A7E : 20 52 E7 | jsr {$e752} ; convert it to int
|
||||
384 | 1 ampersand.s 384 | Code | 11 | | 3 | 00/1A81 : 20 41 D9 | jsr {$d93e}+3 ; point at chosen statement
|
||||
385 | 1 ampersand.s 385 | Code | 11 | | 3 | 00/1A84 : 4C D2 D7 | jmp {$d7d2} ; start running it
|
||||
386 | 1 ampersand.s 386 | Empty | 11 | | 0 | 00/1A87 |
|
||||
387 | 1 ampersand.s 387 | Comment | 11 | | 0 | 00/1A87 | *--- End of code
|
||||
388 | 1 ampersand.s 388 | Empty | 11 | | 0 | 00/1A87 |
|
||||
389 | 1 ampersand.s 389 | Data | 11 | | 42 | 00/1A87 : A8 E3 A9 A0 | asc "(c) 2023, Antoine Vignau & Olivier Zardini"
|
||||
308 | 1 ampersand.s 308 | Comment | 11 | | 0 | 00/1A14 | *----------------------------------- HIRES
|
||||
309 | 1 ampersand.s 309 | Empty | 11 | | 0 | 00/1A14 |
|
||||
310 | 1 ampersand.s 310 | Empty | 11 | | 0 | 00/1A14 | doH
|
||||
311 | 1 ampersand.s 311 | Code | 11 | | 3 | 00/1A14 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
312 | 1 ampersand.s 312 | Empty | 11 | | 0 | 00/1A17 |
|
||||
313 | 1 ampersand.s 313 | Code | 11 | | 2 | 00/1A17 : A9 00 | lda #0
|
||||
314 | 1 ampersand.s 314 | Code | 11 | | 2 | 00/1A19 : 85 20 | sta {$20}
|
||||
315 | 1 ampersand.s 315 | Code | 11 | | 2 | 00/1A1B : A9 28 | lda #40
|
||||
316 | 1 ampersand.s 316 | Code | 11 | | 2 | 00/1A1D : 85 21 | sta {$21}
|
||||
317 | 1 ampersand.s 317 | Code | 11 | | 2 | 00/1A1F : A9 14 | lda #20
|
||||
318 | 1 ampersand.s 318 | Code | 11 | | 2 | 00/1A21 : 85 22 | sta {$22}
|
||||
319 | 1 ampersand.s 319 | Code | 11 | | 2 | 00/1A23 : A9 18 | lda #24
|
||||
320 | 1 ampersand.s 320 | Code | 11 | | 2 | 00/1A25 : 85 23 | sta {$23}
|
||||
321 | 1 ampersand.s 321 | Code | 11 | | 3 | 00/1A27 : 20 58 FC | jsr {$fc58}
|
||||
322 | 1 ampersand.s 322 | Empty | 11 | | 0 | 00/1A2A |
|
||||
323 | 1 ampersand.s 323 | Code | 11 | | 3 | 00/1A2A : 20 E2 F3 | jsr {$f3e2}
|
||||
324 | 1 ampersand.s 324 | Code | 11 | | 3 | 00/1A2D : 8D 52 C0 | sta {$c052}
|
||||
325 | 1 ampersand.s 325 | Code | 11 | | 1 | 00/1A30 : 60 | rts
|
||||
326 | 1 ampersand.s 326 | Empty | 11 | | 0 | 00/1A31 |
|
||||
327 | 1 ampersand.s 327 | Comment | 11 | | 0 | 00/1A31 | *----------------------------------- WAIT x
|
||||
328 | 1 ampersand.s 328 | Empty | 11 | | 0 | 00/1A31 |
|
||||
329 | 1 ampersand.s 329 | Empty | 11 | | 0 | 00/1A31 | doW
|
||||
330 | 1 ampersand.s 330 | Code | 11 | | 3 | 00/1A31 : 20 B1 00 | jsr {$b1} ; get next token
|
||||
331 | 1 ampersand.s 331 | Code | 11 | | 3 | 00/1A34 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
332 | 1 ampersand.s 332 | Code | 11 | | 3 | 00/1A37 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
333 | 1 ampersand.s 333 | Empty | 11 | | 0 | 00/1A3A |
|
||||
334 | 1 ampersand.s 334 | Code | 11 | | 2 | 00/1A3A : A6 51 | ldx {$50}+1
|
||||
335 | 1 ampersand.s 335 | Code | 11 | | 2 | 00/1A3C : A4 50 | doW1 ldy {$50}
|
||||
336 | 1 ampersand.s 336 | Code | 11 | | 2 | 00/1A3E : A9 3C | ozunid_2 lda #60 ; 1/100<30>me de seconde
|
||||
337 | 1 ampersand.s 337 | Code | 11 | | 3 | 00/1A40 : 20 A8 FC | jsr {$fca8}
|
||||
338 | 1 ampersand.s 338 | Code | 11 | | 1 | 00/1A43 : 88 | dey
|
||||
339 | 1 ampersand.s 339 | Code | 11 | | 2 | 00/1A44 : D0 F8 | bne ozunid_2
|
||||
340 | 1 ampersand.s 340 | Code | 11 | | 1 | 00/1A46 : CA | dex
|
||||
341 | 1 ampersand.s 341 | Code | 11 | | 2 | 00/1A47 : 10 F3 | bpl doW1
|
||||
342 | 1 ampersand.s 342 | Code | 11 | | 1 | 00/1A49 : 60 | rts
|
||||
343 | 1 ampersand.s 343 | Empty | 11 | | 0 | 00/1A4A |
|
||||
344 | 1 ampersand.s 344 | Comment | 11 | | 0 | 00/1A4A | *----------------------------------- EXPLODE
|
||||
345 | 1 ampersand.s 345 | Empty | 11 | | 0 | 00/1A4A |
|
||||
346 | 1 ampersand.s 346 | Empty | 11 | | 0 | 00/1A4A | doE
|
||||
347 | 1 ampersand.s 347 | Code | 11 | | 3 | 00/1A4A : 20 B1 00 | jsr {$b1}
|
||||
348 | 1 ampersand.s 348 | Code | 11 | | 1 | 00/1A4D : 60 | rts
|
||||
349 | 1 ampersand.s 349 | Empty | 11 | | 0 | 00/1A4E |
|
||||
350 | 1 ampersand.s 350 | Comment | 11 | | 0 | 00/1A4E | *----------------------------------- RESTORE address
|
||||
351 | 1 ampersand.s 351 | Empty | 11 | | 0 | 00/1A4E |
|
||||
352 | 1 ampersand.s 352 | Empty | 11 | | 0 | 00/1A4E | doR
|
||||
353 | 1 ampersand.s 353 | Code | 11 | | 3 | 00/1A4E : 20 B1 00 | jsr {$b1} ; get next token
|
||||
354 | 1 ampersand.s 354 | Code | 11 | | 3 | 00/1A51 : 20 67 DD | jsr {$dd67} ; eval expression
|
||||
355 | 1 ampersand.s 355 | Code | 11 | | 3 | 00/1A54 : 20 52 E7 | jsr {$e752} ; convert to int
|
||||
356 | 1 ampersand.s 356 | Code | 11 | | 3 | 00/1A57 : 20 1A D6 | jsr {$d61a} ; find chosen line no.
|
||||
357 | 1 ampersand.s 357 | Empty | 11 | | 0 | 00/1A5A |
|
||||
358 | 1 ampersand.s 358 | Code | 11 | | 2 | 00/1A5A : A4 9C | ldy {$9b}+1 ; point DATPTR at byte before it
|
||||
359 | 1 ampersand.s 359 | Code | 11 | | 2 | 00/1A5C : A6 9B | ldx {$9b}
|
||||
360 | 1 ampersand.s 360 | Code | 11 | | 2 | 00/1A5E : D0 01 | bne dx
|
||||
361 | 1 ampersand.s 361 | Code | 11 | | 1 | 00/1A60 : 88 | dey
|
||||
362 | 1 ampersand.s 362 | Code | 11 | | 1 | 00/1A61 : CA | dx dex
|
||||
363 | 1 ampersand.s 363 | Code | 11 | | 2 | 00/1A62 : 84 7E | sty {$7d}+1
|
||||
364 | 1 ampersand.s 364 | Code | 11 | | 2 | 00/1A64 : 86 7D | stx {$7d}
|
||||
365 | 1 ampersand.s 365 | Code | 11 | | 1 | 00/1A66 : 60 | rts
|
||||
366 | 1 ampersand.s 366 | Empty | 11 | | 0 | 00/1A67 |
|
||||
367 | 1 ampersand.s 367 | Comment | 11 | | 0 | 00/1A67 | *----------------------------------- GOSUB address
|
||||
368 | 1 ampersand.s 368 | Empty | 11 | | 0 | 00/1A67 |
|
||||
369 | 1 ampersand.s 369 | Empty | 11 | | 0 | 00/1A67 | doG
|
||||
370 | 1 ampersand.s 370 | Code | 11 | | 2 | 00/1A67 : A9 03 | lda #3 ; make sure there's enough stack
|
||||
371 | 1 ampersand.s 371 | Code | 11 | | 3 | 00/1A69 : 20 D6 D3 | jsr {$d3d6}
|
||||
372 | 1 ampersand.s 372 | Empty | 11 | | 0 | 00/1A6C |
|
||||
373 | 1 ampersand.s 373 | Code | 11 | | 2 | 00/1A6C : A5 B9 | lda {$b8}+1 ; push marker for RETURN
|
||||
374 | 1 ampersand.s 374 | Code | 11 | | 1 | 00/1A6E : 48 | pha
|
||||
375 | 1 ampersand.s 375 | Code | 11 | | 2 | 00/1A6F : A5 B8 | lda {$b8}
|
||||
376 | 1 ampersand.s 376 | Code | 11 | | 1 | 00/1A71 : 48 | pha
|
||||
377 | 1 ampersand.s 377 | Code | 11 | | 2 | 00/1A72 : A5 76 | lda {$75}+1
|
||||
378 | 1 ampersand.s 378 | Code | 11 | | 1 | 00/1A74 : 48 | pha
|
||||
379 | 1 ampersand.s 379 | Code | 11 | | 2 | 00/1A75 : A5 75 | lda {$75}
|
||||
380 | 1 ampersand.s 380 | Code | 11 | | 1 | 00/1A77 : 48 | pha
|
||||
381 | 1 ampersand.s 381 | Code | 11 | | 2 | 00/1A78 : A9 B0 | lda #{$b0}
|
||||
382 | 1 ampersand.s 382 | Code | 11 | | 1 | 00/1A7A : 48 | pha
|
||||
383 | 1 ampersand.s 383 | Empty | 11 | | 0 | 00/1A7B |
|
||||
384 | 1 ampersand.s 384 | Code | 11 | | 3 | 00/1A7B : 20 B1 00 | jsr {$b1} ; get next token
|
||||
385 | 1 ampersand.s 385 | Code | 11 | | 3 | 00/1A7E : 20 67 DD | jsr {$dd67} ; parse numeric expr
|
||||
386 | 1 ampersand.s 386 | Code | 11 | | 3 | 00/1A81 : 20 52 E7 | jsr {$e752} ; convert it to int
|
||||
387 | 1 ampersand.s 387 | Code | 11 | | 3 | 00/1A84 : 20 41 D9 | jsr {$d93e}+3 ; point at chosen statement
|
||||
388 | 1 ampersand.s 388 | Code | 11 | | 3 | 00/1A87 : 4C D2 D7 | jmp {$d7d2} ; start running it
|
||||
389 | 1 ampersand.s 389 | Empty | 11 | | 0 | 00/1A8A |
|
||||
390 | 1 ampersand.s 390 | Comment | 11 | | 0 | 00/1A8A | *--- End of code
|
||||
391 | 1 ampersand.s 391 | Empty | 11 | | 0 | 00/1A8A |
|
||||
392 | 1 ampersand.s 392 | Data | 11 | | 42 | 00/1A8A : A8 E3 A9 A0 | asc "(c) 2023, Antoine Vignau & Olivier Zardini"
|
||||
| | | | | | B2 B0 B2 B3 |
|
||||
| | | | | | AC A0 C1 EE |
|
||||
| | | | | | F4 EF E9 EE |
|
||||
|
@ -426,5 +429,5 @@
|
|||
| | | | | | E5 F2 A0 DA |
|
||||
| | | | | | E1 F2 E4 E9 |
|
||||
| | | | | | EE E9 |
|
||||
390 | 1 ampersand.s 390 | Empty | 11 | | 0 | 00/1AB1 |
|
||||
393 | 1 ampersand.s 393 | Empty | 11 | | 0 | 00/1AB4 |
|
||||
------+-----------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
|
|
|
@ -22,11 +22,11 @@
|
|||
110 IF C(9)>1 THEN C(9)=C(9)-1
|
||||
130 & H
|
||||
140 PRINT "Il fait noir comme dans un four,il faudrait peut etre allumer"
|
||||
145 IF KEY$<>"" THEN & W 500 ELSE & W 300
|
||||
150 GOTO 500
|
||||
145 IF PEEK(-16384)>128 THEN & W 500 ELSE & W 300
|
||||
150 POKE -16368,0: GOTO 500
|
||||
200 REM DESCRIPTION SALLE
|
||||
210 PRINT
|
||||
220 GOSUB(7000+SALLE*10)-10
|
||||
220 & G (7000+SALLE*10)-10
|
||||
300 H=0:N=1
|
||||
310 IF O(N)<>SALLE THEN 400
|
||||
320 IF H=1 THEN GOTO 350
|
||||
|
@ -58,6 +58,7 @@
|
|||
970 Z=Z+4:GOTO920
|
||||
980 T=0
|
||||
990 A1=0
|
||||
|
||||
1000 REM CONTROLE
|
||||
1010 NL=0
|
||||
1100 NL=NL+1
|
||||
|
@ -79,7 +80,7 @@
|
|||
1420 IF MID$(E$,E,1)="." THEN 1700
|
||||
1430 LI=ASC(MID$(E$,E,1))-65
|
||||
1440 N=VAL(MID$(E$,E+1,2))
|
||||
1450 GOSUB 1500+LI*10
|
||||
1450 & G 1500+LI*10
|
||||
1460 IF OK=0 THEN 1100
|
||||
1470 E=E+3:GOTO1420
|
||||
1500 IF N=SALLE THEN OK=1 ELSE OK=0
|
||||
|
@ -106,7 +107,7 @@
|
|||
1720 LI=ASC(MID$(E$,E,1))-65
|
||||
1730 IF MID$(E$,E+1,1)<>"." THEN N=VAL(MID$(E$,E+1,2))
|
||||
1740 BREAK=0
|
||||
1750 GOSUB 1800+LI*100
|
||||
1750 & G 1800+LI*100
|
||||
1760 IF BREAK<>0 THEN GOTO BREAK
|
||||
1780 E=E+3
|
||||
1790 GOTO 1710
|
||||
|
@ -150,6 +151,7 @@
|
|||
3100 POP:GOTO20000
|
||||
3200 O(N)=SALLE: RETURN
|
||||
3300 X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$: RETURN
|
||||
|
||||
4000 & H: FOR N = 1 TO 20: & E : & W 4: NEXT
|
||||
4001 PRINT "Vous avez gardez la lampe trop longtemps allumee,elle a explose"
|
||||
4005 & W 400: RETURN
|
||||
|
@ -292,6 +294,7 @@
|
|||
4640 & H:PRINT "Le placard etait piege,vous n'auriez pas du l'ouvrir"
|
||||
4645 FOR N=1 TO 30: & E : & W 7:NEXT
|
||||
4647 & W 150: RETURN
|
||||
|
||||
6000 REM ANALYSE DU MOT
|
||||
6010 N=0:GN=0
|
||||
6020 REPEAT:N=N+1
|
||||
|
@ -317,103 +320,105 @@
|
|||
6250 MO$(W)=MID$(V$(N),1,2)
|
||||
6300 NEXT W
|
||||
6310 RETURN
|
||||
|
||||
7000 GOSUB 10000
|
||||
7005 PRINT "Vous etes devant le manoir du defunt":PRINT: & W 250
|
||||
7006 PRINT SPC(12)"Dr GENIUS"
|
||||
7007 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7008 RETURN
|
||||
7007 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7008 POKE -16368,0: RETURN
|
||||
7010 GOSUB 10100
|
||||
7015 PRINT "Vous etes dans le hall d'entree."
|
||||
7016 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7017 RETURN
|
||||
7016 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7017 POKE -16368,0: RETURN
|
||||
7020 GOSUB 10200
|
||||
7024 PRINT "Vous etes en bas de l'escalier menant au 2eme etage"
|
||||
7025 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7026 RETURN
|
||||
7025 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7026 POKE -16368,0: RETURN
|
||||
7030 F1=0: GOSUB 10300
|
||||
7034 PRINT "Vous etes dans la salle a manger."
|
||||
7035 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7036 RETURN
|
||||
7035 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7036 POKE -16368,0: RETURN
|
||||
7040 F1=1: GOSUB 10300
|
||||
7043 PRINT "Vous etes dans une biblioteque sans livre...!"
|
||||
7045 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7046 RETURN
|
||||
7045 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7046 POKE -16368,0: RETURN
|
||||
7050 GOSUB 10500
|
||||
7053 PRINT "Vous etes dans une buanderie"
|
||||
7055 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7056 RETURN
|
||||
7060 GOSUB 10600 7th
|
||||
7055 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7056 POKE -16368,0: RETURN
|
||||
7060 GOSUB 10600
|
||||
7063 PRINT "Vous etes dans le salon"
|
||||
7065 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7066 RETURN
|
||||
7070 LX=0:GOSUB 10700 8th
|
||||
7065 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7066 POKE -16368,0: RETURN
|
||||
7070 LX=0: GOSUB 10700
|
||||
7073 PRINT "Vous etes dans une chambre."
|
||||
7075 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7076 RETURN
|
||||
7080 GOSUB10800 9th
|
||||
7075 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7076 POKE -16368,0: RETURN
|
||||
7080 GOSUB 10800
|
||||
7083 PRINT "Vous etes dans un corridor"
|
||||
7085 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7086 RETURN
|
||||
7090 LX=0:GOSUB10900 10th
|
||||
7085 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7086 POKE -16368,0: RETURN
|
||||
7090 LX=0: GOSUB 10900
|
||||
7093 PRINT "Vous etes dans une salle d'attente."
|
||||
7095 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7096 RETURN
|
||||
7100 LX=0:GOSUB11000 11th
|
||||
7095 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7096 POKE -16368,0: RETURN
|
||||
7100 LX=0: GOSUB 11000
|
||||
7103 PRINT "Vous etes dans le vestibules"
|
||||
7105 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7106 RETURN
|
||||
7110 LX=2:GOSUB10700 12th
|
||||
7105 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7106 POKE -16368,0: RETURN
|
||||
7110 LX=2: GOSUB 10700
|
||||
7113 PRINT "Vous etes dans la chambre d'amis."
|
||||
7115 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7116 RETURN
|
||||
7120 LX=1:GOSUB 10700 13th
|
||||
7115 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7116 POKE -16368,0: RETURN
|
||||
7120 LX=1: GOSUB 10700
|
||||
7123 PRINT "Vous etes dans une chambre."
|
||||
7125 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7126 RETURN
|
||||
7140 LX=2:GOSUB12200 14th
|
||||
7125 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7126 POKE -16368,0: RETURN
|
||||
7140 LX=2: GOSUB 12200
|
||||
7143 PRINT "Vous etes dans une petite salle"
|
||||
7145 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7146 RETURN
|
||||
7150 GOSUB11500 15th
|
||||
7145 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7146 POKE -16368,0: RETURN
|
||||
7150 GOSUB 11500
|
||||
7153 PRINT "Vous etes dans le laboratoire du Dr GENIUS"
|
||||
7155 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7156 RETURN
|
||||
7160 LX=1:GOSUB10900 16th
|
||||
7155 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7156 POKE -16368,0: RETURN
|
||||
7160 LX=1: GOSUB 10900
|
||||
7163 PRINT "Vous etes dans une petite piece vide."
|
||||
7165 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7166 RETURN
|
||||
7170 GOSUB 11700 17th
|
||||
7165 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7166 POKE -16368,0: RETURN
|
||||
7170 GOSUB 11700
|
||||
7173 PRINT "Vous etes...": & W 300:PRINT "Justement,vous ne savez pas ou vous etes"
|
||||
7175 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7176 RETURN
|
||||
7180 GOSUB 11800 18th
|
||||
7175 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7176 POKE -16368,0: RETURN
|
||||
7180 GOSUB 11800
|
||||
7183 PRINT "Vous etes en haut de l'escalier"
|
||||
7185 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7186 RETURN
|
||||
7190 LX=2:GOSUB10900 19th
|
||||
7185 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7186 POKE -16368,0: RETURN
|
||||
7190 LX=2: GOSUB 10900
|
||||
7193 PRINT "Vous etes dans la salle bain"
|
||||
7195 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7196 RETURN
|
||||
7200 LX=1:GOSUB12200 20th
|
||||
7195 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7196 POKE -16368,0: RETURN
|
||||
7200 LX=1: GOSUB 12200
|
||||
7203 PRINT "Vous etes dans le living room"
|
||||
7205 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7206 RETURN
|
||||
7210 LX=1:GOSUB11000 21th
|
||||
7205 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7206 POKE -16368,0: RETURN
|
||||
7210 LX=1: GOSUB 11000
|
||||
7213 PRINT "Vous etes dans une piece enfumee...!"
|
||||
7215 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7216 RETURN
|
||||
7220 LX=0:GOSUB12200 22th
|
||||
7215 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7216 POKE -16368,0: RETURN
|
||||
7220 LX=0: GOSUB 12200
|
||||
7223 PRINT "Vous etes dans une grande piece"
|
||||
7225 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7226 RETURN
|
||||
7230 GOSUB 12300 23th
|
||||
7225 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7226 POKE -16368,0: RETURN
|
||||
7230 GOSUB 12300
|
||||
7233 PRINT "Vous etes dans une piece de rangement"
|
||||
7235 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7236 RETURN
|
||||
7240 GOSUB12400 24th
|
||||
7235 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7236 POKE -16368,0: RETURN
|
||||
7240 GOSUB 12400
|
||||
7243 PRINT "Vous etes dans le dressing"
|
||||
7245 IF KEY$<>"" THEN & W 400 ELSE & W 100
|
||||
7246 RETURN
|
||||
7245 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100
|
||||
7246 POKE -16368,0: RETURN
|
||||
|
||||
8000 REM CHARGEMENT VARIABLES
|
||||
8001 & R 8000: REM RESTORE
|
||||
8010 V=70:DIM V$(V)
|
||||
|
@ -721,7 +726,7 @@
|
|||
12420 & D 22,0,1: & D 0,-92,1: & D -22,0,1: & D 44,-48,1: & D 10,0,1: & D -32,48,1
|
||||
12425 & D 32,-48,1: & D 0,35,1: & D -14,46,3: & D 0,-61,1
|
||||
12430 & S 81,88,1: & C 1,1: & M 11,-21,1: & C 1,1: & I 3: RETURN
|
||||
12499 GOTO14000
|
||||
12499 REM GOTO 14000
|
||||
13000 & H: & I 0: & S 75,62,1: & D -5,0,1: & D -55,108,1: & D 37,-10,1
|
||||
13005 & D 30,-90,1: & D -19,5,1: & D 19,-5,1: & D 20,5,1: & D -12,94,1
|
||||
13007 & D -38,-10,1: & D 38,10,1: & D 0,20,1: & D -75,0,1: & D 0,-20,1
|
||||
|
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user