home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8501.d64
/
autos.assembler
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
105 lines
100 SYS9*4096 : .OPT OO
101 *=49152
102 ;
103 ;
104 ;
105 ;##############################
106 ;* * * P - BASIC - V2. * * *
107 ;##############################
108 ;
109 ; ****************************
110 ;*GESCHRIEBEN1984VON*
111 ;**
112 ;*JANKUSCH(J-KSOFT)*
113 ;**
114 ; ****************************
115 ;
116 ;
117 ;##############################
118 ;####### VEKTORSETZUNG ########
119 ;##############################
120 ;
121 LDA #<ERKENNUNG : STA $0308
122 LDA #>ERKENNUNG : STA $0309
123 ;
124 LDA #<DATAS : LDY #>DATAS
125 JMP $AB1E
126 ;
127 ;
128 ;##############################
129 ;######### ERKENNUNG ##########
130 ;##############################
131 ERKENNUNG JSR $0073 : CMP BEFEHL
132 BEQ ENTSCHEIDUNG
133 JMP $A7E7
134 ;
135 ENTSCHEIDUNG JSR $0073
136 CMP #147 : BEQ LOAD
137 CMP #148 : BEQ SAVE
138 CMP #162 : BEQ NEW1
139 JMP $AF08
140 ;
141 NEW1 JMP NEW
142 ;
143 ;
144 ;##############################
145 ;########### DATAS ############
146 ;##############################
147 DATAS .ASC "[147][144] [208]-[194]ASIC-[214]2. "
148 .BYTE 13 : .ASC "[195]-64 & [214][195]-1541"
149 .BYTE 13 : .ASC "[195]OPYRIGHT (C)"
150 .BYTE 9,14,8,0
151 ;
152 ;##############################
153 ;######## BEFEHL .LOAD ########
154 ;##############################
155 LOAD LDA #0 : STA $9D
156 JSR $0073 : JSR $E1D4
157 LDA #00 : LDX $2B : LDY $2C
158 STA $0A : JSR $FFD5
159 STX $2D : STY $2E
160 JMP NEW
161 ;
162 ;##############################
163 ;####### BEFEHL .SAVE #########
164 ;##############################
165 SAVE LDA #00
166 STA $9D : JSR $0073 : JSR $E1D4
167 ;
168 LDX #00
169 VERSCHIEBUNG LDA ROUTINE,X
170 STA $0340,X : INX
171 CMP #$FF : BNE VERSCHIEBUNG
172 ;
173 LDA #<806 : STA $2B
174 LDA #>806 : STA $2C
175 LDA #<832 : STA 804 : STA 806
176 LDA #>832 : STA 805 : STA 807
177 ;
178 JSR $E544 : JSR $E159
179 ;
180 NEW LDA #1 : STA $2B
181 LDA #8 : STA $2C
182 LDA #$57 : STA 804
183 LDA #$F1 : STA 805 : STA 807
184 LDA #$CA : STA 806
185 LDA #237 : STA 808
186 LDA #0 : STA 198 : JMP $A831
187 ;
188 ;
189 ;******* STEUERROUTIENE *******
190 ;
191 ROUTINE LDA #1 : STA $2B
192 LDA #8 : STA $2C
193 LDA #$57 : STA 804
194 LDA #$F1 : STA 805 : STA 807
195 LDA #$CA : STA 806
196 LDA #225 : STA 808
197 ;
198 JSR $A659 : JMP $A7AE
199 ;
200 .BYTE $FF
201 ;
202 BEFEHL .BYTE "!"
203 ;