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 ;