64'er/64ER_CD.iso/sh4x/sh42.d64/rechner.quell

Commodore BASIC | 1995-03-30 | 19KB | 1,216 lines

10 OPEN1,8,2,"ROBJ,P,W":SYS32768:.OPT O1:*= $0E00
11 ;
20 JMP START
100 PRINT  PLA
101 STA $9B
102 PLA
103 STA $9C
104 LDY #00
105 LDA #$1F
106 BNE P1
107 P3  LDA ($9B),Y
108 P1  INC $9B
109 BNE P2
110 INC $9C
111 P2  CMP #00
112 BEQ P33
113 JSR $FFD2
114 JMP P3
115 P33 JMP ($009B)
116 ;
120 DEZIMAL  SED
121 LDX #08
122 STA $9B
123 LDA #00
124 STA $9C
125 D1  ASL $9B
126 ADC $9C
127 STA $9C
128 DEX
129 BNE D1
130 CLD
131 PHA
132 LSR A
133 LSR A
134 LSR A
135 LSR A
136 JSR D2
137 PLA
138 D2  AND #$0F
139 CLC
140 ADC #$30
141 JMP $FFD2
142 ;
150 DISKAUS  LDA DI1
151 STA DI2
152 CMP #$12
153 BNE DI3
154 LDA #$92
156 BNE DI4
157 DI3  LDA #$12
158 DI4  STA DI22
159 JSR PRINT
160 ;
161 DI1 .BYTE $12,$B0,$C0,$C0,$C0,$C0,$C0,$C0
162 .BYTE $AE,$9D,$9D,$9D,$9D,$9D,$9D,$9D
163 .BYTE $9D,$11,$DD
164 DI22  .BYTE $92,$20,$20
165 DI2 .BYTE $12,$20
166 .BYTE $20,$D7,$20,$DD,$9D,$9D,$9D,$9D
167 .BYTE $9D,$9D,$9D,$9D,$11,$DD,$20,$20
168 .BYTE $D5,$C9,$20,$20,$DD,$9D,$9D,$9D
169 .BYTE $9D,$9D,$9D,$9D,$9D,$11,$DD,$20
170 .BYTE $20,$CA,$CB,$20,$20,$DD,$9D,$9D
171 .BYTE $9D,$9D,$9D,$9D,$9D,$9D,$11,$DD
172 .BYTE $20,$20,$D5,$C9,$20,$20,$DD,$9D
173 .BYTE $9D,$9D,$9D,$9D,$9D,$9D,$9D,$11
174 .BYTE $DD,$20,$20,$DD,$DD,$20,$20,$DD
175 .BYTE $9D,$9D,$9D,$9D,$9D,$9D,$9D,$9D
176 .BYTE $11,$DD,$20,$20,$CA,$CB,$20,$20
177 .BYTE $DD,$9D,$9D,$9D,$9D,$9D,$9D,$9D
178 .BYTE $9D,$11,$AD,$C0,$C0,$C0,$C0,$C0
179 .BYTE $C0,$BD,$00
180 RTS
181 ;
200 OBEN  PHA
201 LDA #$20
202 LDY #00
203 O1  STA $0400,Y
204 DEY
205 BNE O1
206 LDY #$90
207 O2  STA $04FF,Y
208 DEY
209 BNE O2
210 PLA
211 STA DI1
212 LDA $D3
213 PHA
214 LDA $D6
215 PHA
216 TXA
217 PHA
218 LDX #01
219 LDY #04
220 JSR $E50C
221 JSR DISKAUS
222 PLA
223 STA DI1
224 LDX #01
225 LDY #$1C
226 JSR $E50C
227 JSR DISKAUS
228 JSR ZWISCHEN
229 PLA
230 TAX
231 PLA
232 TAY
233 JSR $E50C
234 LDA #$63
235 LDY #$27
236 O3  STA $058F,Y
237 DEY
238 BNE O3
239 JMP FARBE
240 ;
250 ZWISCHEN  LDX #01
251 LDY #$0E
252 JSR $E50C
253 JSR PRINT
254 .ASC "[146]PASS: ":.BYTE 0
255 LDA $61
256 JSR DEZIMAL
257 LDX #03
258 LDY #$0E
259 JSR $E50C
260 JSR PRINT
261 .ASC "[146]ERRORS: ":.BYTE 0
262 LDA $62
263 JSR DEZIMAL
264 LDX #05
265 LDY #$0E
266 JSR $E50C
267 JSR PRINT
268 .ASC "[146]ZIELDISK: ":.BYTE 0
269 LDX $8C
270 INX
271 TXA
272 JSR DEZIMAL
273 LDX #07
274 LDY #$0E
275 JSR $E50C
276 JSR PRINT
277 .ASC "[146]ZEIT : ":.BYTE 0
278 LDA $DC0B
279 LDA $DC0A
280 JSR Z1:JSR $FFD2
281 LDA #$2E
282 JSR $FFD2
283 LDA $DC09
284 PHA
285 JSR Z2
286 JSR $FFD2
287 PLA
288 JSR Z1
289 JSR $FFD2
290 LDA $DC08
291 RTS
292 ;
295 Z1  AND #$0F
296 ORA #$30
297 RTS
298 Z2  LSR A
299 LSR A
300 LSR A
301 LSR A
302 ORA #$30
303 RTS
304 ;
320 FARBE  LDA #06
321 LDY #00
322 F1  STA $D800,Y
323 STA $D900,Y
324 STA $DA00,Y
325 STA $DB00,Y
326 INY
327 BNE F1
328 RTS
329 ;
340 BILDAUS  LDA $D011
341 AND #$EF
342 STA $D011
343 LDX #00
344 LDY #$96
345 BI1  INX
346 BNE BI1
347 DEY
348 BNE BI1
349 RTS
350 ;
360 BILDAN  LDA $D011
361 ORA #$10
362 STA $D011
363 RTS
364 ;
365 TASTE  LDA #00
366 STA $C6
367 TA1  JSR $FFE4
368 BEQ TA1
369 RTS
370 ;
371 UHRAUS  LDA #00
372 STA $DC0B
373 RTS
374 ;
375 UHRAN  LDA $DC08
376 STA $DC08
377 RTS
378 ;
380 LINKSSYM  LDA #$12
381 LDX #$92
382 BNE LK1
383 ;
384 RECHTSSYM  LDX #$12
385 LDA #$92
386 LK1  JMP OBEN
387 ;
390 QUELL CLI
391 JSR UHRAUS
392 INC $61
393 JSR LINKSSYM
394 QU1  JSR BILDAN
395 JSR TASTE
396 JSR BILDAUS:JSR UHRAN
397 SEI
398 RTS
399 ;
400 ZIEL  CLI
401 JSR UHRAUS
402 JSR RECHTSSYM
403 JMP QU1
404 ;
410 SYNCERR  JSR TRACKERR
411 JSR PRINT
412 .ASC ":SYNC NOT FOUND":.BYTE 0
413 SEI
414 RTS
415 ;
420 HEADERR  JSR TRACKERR
421 JSR PRINT
422 .ASC ":HEADER NOT FOUND":.BYTE 0
423 SEI
424 RTS
425 ;
430 TRACKERR  JSR PRINT
431 .BYTE 13
432 .ASC "TRACKERROR IN ":.BYTE 0
433 LDA $FB
434 JSR DEZIMAL
435 LDX $FB
436 INC TRACKTAB,X
437 RTS
438 ;
440 READERR  INC $62
441 PHA
442 JSR PRINT
443 .BYTE 13
444 .ASC "READ ERROR,":.BYTE 0
445 LDA $FB
446 JSR DEZIMAL
447 LDA #$2C
448 JSR $FFD2
449 PLA
450 JSR DEZIMAL
451 SEI
452 RTS
453 ;
460 UNLESBAR  LDX #$17
461 LDY #01
462 JSR $E50C
463 JSR PRINT
464 .ASC "DISKETTE IST NICHT LESBAR !"
465 .BYTE 0
466 JSR TASTE
467 RTS
468 ;
470 ENDE  DEC $FE
471 JSR PRINT
472 .BYTE 13,13
473 .ASC "WEITER MIT TASTENDRUCK":.BYTE 0
474 CLI
475 JSR UHRAUS
476 JSR LINKSSYM
477 JSR BILDAN
478 JSR TASTE
479 LDA #03
480 STA $DD00
481 RTS
482 ;
490 TRACKTAB  .BYTE 0,0,0,0,0,0,0,0,0,0
491 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
492 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
493 ;
500 SEKTOREN  LDX #05
501 LDA $FB
502 SE1  DEX
503 CMP STAB,X
504 BCS SE1
505 LDA STAB1,X
506 STA $6B
507 RTS
508 ;
509 STAB  .BYTE $FF,$24,$1F,$19,$12
510 STAB1 .BYTE $11,$11,$12,$13,$15
511 ;
520 TRACKSTART  LDX $FB
521 LDA $AB
522 CLC
523 ADC LOWTAB,X
524 STA $AB
525 LDA $AC
526 ADC HIGHTAB,X
527 STA $AC
528 RTS
529 ;
530 ZAEHLSETZ  LDX $FB
531 LDA ZTAB,X
532 STA ZAE+1
533 RTS
534 ;
545 ;
550 HOLMASCH  JSR BILDAUS
551 SEI
552 LDA #$35
553 STA $01
554 LDA #00
555 STA $A7:LDA #$15
556 STA $A9
557 LDA #$09
558 STA $AA
559 LDA #$70
560 STA $A8
561 LDX #05
562 HO2  LDY #00
563 HO1  LDA ($A9),Y
564 STA ($A7),Y
565 INY
566 BNE HO1
567 INC $A8
568 INC $AA
569 DEX
570 BNE HO2
571 LDA #$37
572 STA $01
573 CLI
574 JMP FARBE
575 ;
580 STARTMASCH  LDA #00
581 STA $A7
582 STA $A9
583 LDA #$70
584 STA $A8
585 LDA #03
586 STA $AA
587 SM5  LDA $F9
588 JSR $ED0C
589 LDA #$6F
590 JSR $EDB9
591 LDA #$4D
592 JSR $EDDD
593 LDA #$2D
594 JSR $EDDD
595 LDA #$57
596 JSR $EDDD
597 LDA $A9
598 JSR $EDDD
599 LDA $AA
600 JSR $EDDD
601 LDA #$20
602 JSR $EDDD
603 LDY #00
604 SM1  LDA ($A7),Y
605 JSR $EDDD
606 INY
607 CPY #$20
608 BCC SM1
609 JSR $EDFE
610 CLC
611 LDA $A7
612 ADC #$20
613 STA $A7
614 BCC SM2
615 INC $A8
616 CLC
617 SM2  LDA $A9
618 LDX $AA
619 ADC #$20
620 STA $A9
621 BCC SM3
622 INC $AA
623 INX
624 SM3  CPX #08
625 BCC SM5
626 LDA $F9
627 JSR $ED0C
628 LDA #$6F
629 JSR $EDB9
630 LDX #04
631 SM6  LDA MEM,X
632 JSR $EDDD
633 DEX
634 BPL SM6
635 JSR $EDFE
636 L12  LDA #$93
637 JSR $FFD2
638 LDX #$0A
639 LDY #$00
640 JMP $E50C
641 ;
642 MEM  .BYTE 3,12
643 .ASC "E-M"
644 ;
650 OPEN  LDA #15
651 LDX $F9
652 TAY
653 JSR $FFBA
654 LDA #00
655 JSR $FFBD
656 JMP $FFC0
657 ;
660 EINEIN  LDY #$FF
661 LDA #03
662 STA EE+2
663 JSR IN
664 LDA $03FF
665 RTS
666 ;
670 EIN  LDY #00
671 LDA #04
672 STA EE+2
673 JSR IN
674 LDA #03:STA EE+2
675 LDY #$BC
676 ;
680 IN  STX $03BB
681 LDX #11
682 STX $DD00
683 LDX #03
684 IN1  LDA $DD00
685 BPL IN1
686 STX $DD00
687 IN2  NOP
688 NOP
689 LDA #11
690 STA $DD00
691 NOP
692 NOP
693 LDX #03
694 STX $DD00
695 LDX $DD00
696 LDA TAB57,X
697 LDX $DD00
698 ORA TAB46,X
699 NOP
700 LDX $DD00
701 ORA TAB13,X
702 LDX $DD00
703 ORA TAB02,X
704 EE  STA $0400,Y
705 INY
706 BNE IN2
707 LDX $03BB
708 RTS
709 ;
730 ;
750 EINAUS  LDY #$FF
751 STA $03FF
752 LDA #03
753 STA AA+2
754 JMP OUT
755 ;
756 AUS  LDY #00
757 LDA #04
758 STA AA+2
759 JSR OUT
760 LDA #03:STA AA+2
761 LDY #$BC
762 ;
763 OUT  STX $03BB
764 LDA #11
765 STA $DD00
766 LDX #03
767 OU1  LDA $DD00
768 BPL OU1
769 STX $DD00
770 AA  LDA $0400,Y
771 LDX #11
772 STX $DD00
773 TAX
774 AND #240
775 STA $DD00
776 LSR A
777 LSR A
778 AND #240
779 STA $DD00
780 TXA
781 AND #15
782 TAX
783 LDA TAB,X
784 STA $DD00
785 LSR A
786 LSR A
787 AND #240
788 STA $DD00
789 NOP
790 NOP
791 NOP
792 INY
793 BNE AA
794 LDA #03
795 STA $DD00
796 LDX $03BB
797 RTS
798 .BYTE 0,0,0,0,0,0,0,0
799 TAB02  .BYTE 0,0,0,$05,0,0,0,0
800 TAB13  .BYTE 0,0,0,$0A,0,0,0,0
801 TAB46  .BYTE 0,0,0,$50,0,0,0,0
802 TAB57  .BYTE 0,0,0,$A0,0,0,0,0
803 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
804 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
805 .BYTE 0,0,0,$01,0,0,0,0,0,0,0,$02,0,0,0,0
806 .BYTE 0,0,0,$10,0,0,0,0,0,0,0,$20,0,0,0,0
807 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
808 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
809 .BYTE 0,0,0,$04,0,0,0,0,0,0,0,$08,0,0,0,0
810 .BYTE 0,0,0,$40,0,0,0,0,0,0,0,$80,0,0,0,0
811 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
812 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
813 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
814 .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
815 ;
816 TAB .BYTE $00,$10,$20,$30
817 .BYTE $40,$50,$60,$70,$80,$90,$A0
818 .BYTE $B0,$C0,$D0,$E0,$F0
819 ;
820 WERTTAST  STA $A7
821 TAX
822 LDA WERT1,X
823 STA $A9
824 LDA WERT2,X
825 STA $AA
826 LDY #00
827 LDA ($A9),Y
828 ORA #$80
829 STA ($A9),Y
830 W1  JSR TASTE
831 CMP #$30
832 BCC W1
833 LDX $A7
834 CMP WERT3,X
835 BCS W1
836 LDY #00
837 STA ($A9),Y
838 SEC
839 SBC #$30
840 STA $A8
841 INY
842 LDA ($A9),Y
843 ORA #$80
844 STA ($A9),Y
845 W2  JSR TASTE
846 PHA
847 LDA $A7
848 ASL A
849 ASL A
850 CLC
851 ADC $A7
852 ADC $A8
853 TAX
854 PLA
855 CMP WERT4,X
856 BCC W2
857 CMP WERT5,X
858 BCS W2
859 LDY #01
860 STA ($A9),Y
861 SEC
862 SBC #$30
863 TAX
864 LDA $A8
865 ASL A
866 ASL A
867 ASL A
868 STA $A7
869 LDA $A8
870 ASL A
871 CLC
872 ADC $A7
873 STX $A8
874 CLC
875 ADC $A8
876 RTS
877 ;
880 WERT1  .BYTE $D8,$65,$B3,$08
881 WERT2  .BYTE 4,6,6,7
882 WERT3  .BYTE $32,$35,$35,$32
883 WERT4  .BYTE $31,$30,0,0,0
884 .BYTE $31,$30,$30,$30,$30
885 .BYTE $31,$30,$30,$30,$30
886 .BYTE $38,$30,0,0,0
887 WERT5  .BYTE $3A,$31,0,0,0
888 .BYTE $3A,$3A,$3A,$3A,$31
889 .BYTE $3A,$3A,$3A,$3A,$31
890 .BYTE $3A,$32,0,0,0
891 ;
900 VON  LDA #52
901 STA $01
902 LDY #$43
903 V1  LDA $03BC,Y
904 STA ($A9),Y
905 DEY
906 BPL V1
907 LDY #00
908 V2  LDA $0400,Y
909 STA ($A7),Y
910 INY
911 BNE V2
912 LDA #$37
913 STA $01
914 RTS
915 ;
920 NACH  LDA #52
921 STA $01
922 LDY #$43
923 N1  LDA ($A9),Y
924 STA $03BC,Y
925 DEY
926 BPL N1
927 LDY #00
928 N2  LDA ($A7),Y
929 STA $0400,Y
930 INY
931 BNE N2
932 LDA #$37
933 STA $01
934 RTS
935 ;
1000 KOPIEREN  JSR OPEN
1001 LDX #15
1002 JSR $FFC9
1003 LDA #$49
1004 JSR $FFD2
1005 JSR $FFCC
1006 LDX #$0F
1007 JSR $FFC6
1008 JSR $FFCF
1009 PHA
1010 K1  JSR $FFCF
1011 CMP #13
1012 BNE K1
1013 JSR $FFCC:LDA #15:JSR $FFC3
1014 PLA
1015 CMP #$30
1016 BEQ K2
1017 JMP UNLESBAR
1018 K2  JSR HOLMASCH
1019 JSR STARTMASCH
1020 LDA #$93
1021 JSR $FFD2
1022 LDX $FE
1023 CPX $FD
1024 BCS K3
1025 LDY $FD
1026 STY $FE
1027 STX $FD
1028 K3  INC $FE
1029 LDX #$0A
1030 LDY #00
1031 JSR $E50C
1032 SEI
1033 LDA #00
1034 STA $61
1035 STA $62
1036 LDA $FD
1037 STA $FA
1038 LDA $FE
1039 STA $FC
1040 LDA $DC0F
1041 AND #$7F
1042 STA $DC0F
1043 LDA $DC0E
1044 ORA #$80
1045 STA $DC0E
1046 LDA #00
1047 STA $DC0B
1048 STA $DC0A
1049 STA $DC09
1050 STA $DC08
1051 LDX #40
1052 K4  STA TRACKTAB,X
1053 DEX
1054 BPL K4
1055 K10  LDA #00
1056 STA $8B
1057 STA $8C
1058 JSR QUELL:LDA #$FA:STA $AB:LDA #$1F:STA $AC:LDA #01:JSR EINAUS
1059 LDA $FA
1060 STA $FB:JSR ZAEHLSETZ
1061 K6  LDA #02
1062 JSR EINAUS
1063 LDA $FB
1064 JSR EINAUS
1065 JSR READ
1066 JSR TRACKSTART
1067 INC $FB
1068 INC $8B
1069 LDA $FB
1070 CMP $FE
1071 BEQ K5
1072 LDX $8B
1073 ZAE CPX #08
1074 BNE K6
1075 K5  LDX $FA
1076 STX $8D
1077 STA $FA
1078 LDA #00
1079 STA $8C
1080 K9  LDX $8D
1081 STX $FB
1082 JSR ZIEL:LDA #$FA:STA $AB:LDA #$1F:STA $AC
1083 LDA #01
1084 JSR EINAUS
1085 LDA #00
1086 STA $8B
1087 K8  LDA #03
1088 JSR EINAUS
1089 LDA $FB
1090 JSR EINAUS
1091 LDX $FB
1092 LDA TRACKTAB,X
1093 BNE K7
1094 JSR WRITE
1095 K7  JSR TRACKSTART
1096 INC $FB
1097 INC $8B
1098 LDA $FB
1099 CMP $FA
1100 BNE K8
1101 STA $8E
1102 INC $8C
1103 LDA $8C
1104 CMP $8F
1105 BNE K9
1106 LDA $8E
1107 CMP $FE
1108 BEQ KFERTIG
1109 JMP K10
1110 ;
1111 KFERTIG  JSR PRINT
1112 .BYTE 13,13,13
1113 .ASC "KOPIERVORGANG IST BEENDET."
1114 .BYTE 0
1115 SEI:LDA #00
1116 JSR EINAUS
1117 JMP ENDE
1118 ;
1200 START  LDA #21
1201 STA $D018
1202 LDA #01
1203 STA $FD
1204 STA $8F
1205 LDA #15
1206 STA $D020
1207 STA $D021
1208 LDA #08
1209 STA $F9
1210 LDA #$28
1211 STA $FE
1212 ST1  JSR PRINT
1213 .BYTE $93,$1F
1214 .ASC "  **** MASTER - COPY PLUS  V 1.2 ****  ":.BYTE 13,13
1215 .ASC "   (C) 1988 BY FRANK RIEMENSCHNEIDER  ":.BYTE 13,13,13
1216 .ASC " A[146]NZAHL KOPIEN:":.BYTE 13,13
1217 .ASC " B[146]EFEHL SENDEN":.BYTE 13,13
1218 .ASC " D[146]IREKTORY ZEIGEN":.BYTE 13,13
1219 .ASC " K[146]OPIEREN":.BYTE 13,13
1220 .ASC " V[146]ERIFY DISK":.BYTE 13,13
1221 .ASC " S[146]TARTTRACK:":.BYTE 13,13
1222 .ASC " E[146]NDTRACK:":.BYTE 13,13
1223 .ASC " G[146]ERAETENUMMER:":.BYTE 13,13
1224 .ASC " P[146]ROGRAMMENDE":.BYTE 13,13
1225 .ASC " I[146]NFO":.BYTE 0
1226 ;
1230 LDX #15
1231 LDY #13
1232 JSR $E50C
1233 LDA $FD
1234 JSR DEZIMAL
1235 LDX #$11
1236 LDY #$0B
1237 JSR $E50C
1238 LDA $FE
1239 JSR DEZIMAL
1240 LDX #$13
1241 LDY #$10
1242 JSR $E50C
1243 LDA $F9
1244 JSR DEZIMAL
1245 LDX #05
1246 LDY #$10
1247 JSR $E50C
1248 LDA $8F
1249 JSR DEZIMAL
1250 ST2  JSR TASTE
1251 CMP #"B"
1252 BNE M1
1253 JSR BEFEHL
1254 JMP ST1
1255 M1  CMP #"D"
1256 BNE M2
1257 JSR DIREKTORY
1258 JMP ST1
1259 M2  CMP #"K"
1260 BNE M3
1261 JSR KOPIEREN
1262 JMP ST1
1263 M3  CMP #"S"
1264 BNE M4
1265 LDA #01
1266 JSR WERTTAST
1267 STA $FD
1268 JMP ST2
1269 M4  CMP #"E"
1270 BNE M5
1271 LDA #02
1272 JSR WERTTAST
1273 STA $FE
1274 JMP ST2
1275 M5  CMP #"P"
1276 BNE M6
1277 JMP $FCE2
1278 M6  CMP #"G"
1279 BNE M7
1280 LDA #03
1281 JSR WERTTAST
1282 STA $F9
1283 JMP ST2
1284 M7  CMP #"A"
1285 BNE M8
1286 LDA #00
1287 JSR WERTTAST
1288 STA $8F
1289 JMP ST2
1290 M8  CMP #"V"
1291 BNE M9
1292 JSR VERIFY
1293 JMP ST1
1294 M9  CMP #"I"
1295 BNE ST2
1296 JSR INFO
1297 JMP ST1
1298 ;
1305 ZTAB .BYTE 0,8,8,8,8,8,8,8,8,8,8,8,8,8,8
1306 .BYTE 9,9,9,9,9,9,9,9,9,9
1307 .BYTE 10,10,10,10,10,10,10,10
1308 .BYTE 10,10,10,10,10,10,10,10
1309 ;
1430 LOWTAB  .BYTE 0,$94,$94,$94
1431 .BYTE $94,$94,$94,$94,$94,$94,$94
1432 .BYTE $94,$94,$94,$94,$94,$94,$94
1433 .BYTE $0C,$0C,$0C,$0C,$0C,$0C,$0C
1434 .BYTE $C8,$C8,$C8,$C8,$C8,$C8
1435 .BYTE $84,$84,$84,$84,$84
1436 .BYTE $84,$84,$84,$84,$84
1437 ;
1438 HIGHTAB  .BYTE 0,$1A,$1A,$1A
1439 .BYTE $1A,$1A,$1A,$1A,$1A,$1A,$1A
1440 .BYTE $1A,$1A,$1A,$1A,$1A,$1A,$1A
1441 .BYTE $18,$18,$18,$18,$18,$18,$18
1442 .BYTE $16,$16,$16,$16,$16,$16
1443 .BYTE $15,$15,$15,$15,$15
1444 .BYTE $15,$15,$15,$15,$15
1445 ;
2000 READ  JSR SEKTOREN
2001 LDA #04
2002 JSR EINAUS
2003 RE1  JSR EINEIN
2004 TAX
2005 BMI ERROR
2006 PHA
2007 JSR EIN
2008 PLA
2009 ASL A
2010 TAX
2011 LDA SEKTAB,X
2012 CLC
2013 ADC $AB
2014 STA $A7
2015 STA $A9
2016 LDA SEKTAB+1,X
2017 ADC $AC
2018 STA $A8
2019 ADC #01
2020 STA $AA
2021 JSR VON
2022 JMP RE1
2023 ;
2025 ERROR  CMP #$F2
2026 BNE RE2
2027 JMP HEADERR
2028 RE2  CMP #$F1
2029 BNE RE3
2030 JMP SYNCERR
2031 RE3  CMP #$FC
2032 BNE RE4
2033 LDX $FB
2034 INC TRACKTAB,X
2035 RE4  LDY #00
2036 RE6  JSR EINEIN
2037 CMP #$F3
2038 BEQ RE8
2039 JSR READERR
2040 JMP RE6
2041 RE8  RTS
2042 ;
2045 SEKTAB  .BYTE $00,$00,$44,$01
2046 .BYTE $88,$02,$CC,$03,$10,$05
2047 .BYTE $54,$06,$98,$07,$DC,$08
2048 .BYTE $20,$0A,$64,$0B,$A8,$0C
2049 .BYTE $EC,$0D,$30,$0F,$74,$10
2050 .BYTE $B8,$11,$FC,$12,$40,$14
2051 .BYTE $84,$15,$C8,$16,$0C,$18
2052 .BYTE $50,$19
2053 ;
3000 WRITE  JSR SEKTOREN
3001 LDA #05
3002 JSR EINAUS
3003 WR2  JSR EINEIN
3004 CMP #$F1
3005 BEQ WR1
3006 ASL A
3007 TAX
3008 LDA SEKTAB,X
3009 CLC
3010 ADC $AB
3011 STA $A7
3012 STA $A9
3013 LDA SEKTAB+1,X
3014 ADC $AC
3015 STA $A8
3016 ADC #01
3017 STA $AA
3018 JSR NACH
3019 JSR AUS
3020 JMP WR2
3021 WR1  RTS
3022 ;
4000 VERIFY JSR OPEN
4001 LDX #15
4002 JSR $FFC9
4003 LDA #$49
4004 JSR $FFD2
4005 JSR $FFCC
4006 LDX #$0F
4007 JSR $FFC6
4008 JSR $FFCF
4009 PHA
4010 V11  JSR $FFCF
4011 CMP #13
4012 BNE V11
4013 JSR $FFCC:LDA #15:JSR $FFC3
4014 PLA
4015 CMP #$30
4016 BEQ V22
4017 JMP UNLESBAR
4018 V22  JSR HOLMASCH
4019 LDA #$EA
4020 STA $732B
4021 STA $732C
4022 STA $732D
4029 JSR STARTMASCH
4030 LDA #$93
4031 JSR $FFD2:JSR FARBE
4032 LDX $FE
4033 CPX $FD
4034 BCS V3
4035 LDY $FD
4036 STY $FE
4037 STX $FD
4038 V3  INC $FE
4042 LDA #00
4043 STA $61
4044 STA $62
4045 LDA $FD
4046 STA $FA
4047 JSR BILDAUS:JSR AUFBAU:SEI
4048 LDA #01
4049 JSR EINAUS
4050 V6 LDA #02
4051 JSR EINAUS:LDA $FA:JSR EINAUS
4052 JSR VERIFY1
4053 INC $FA
4054 LDA $FA
4055 CMP $FE
4056 BNE V6:LDA #00:JSR EINAUS
4057 LDX #$18
4058 LDY #01
4059 JSR $E50C
4060 JSR PRINT
4061 .ASC "VERIFY IST BEENDET. WEITER MIT TASTE !":.BYTE 0
4062 JSR BILDAN:CLI
4063 JSR TASTE
4064 LDA #03
4065 STA $DD00
4066 DEC $FE
4067 RTS
4068 ;
4200 AUFBAU  JSR PRINT
4201 .BYTE $93,$11
4202 .ASC "0000000001111111111"
4203 .ASC "222222222233333333334"
4204 .ASC "12345678901234567890"
4205 .ASC "12345678901234567890":.BYTE 0
4206 LDA #$28
4207 STA $A7
4208 V8  LDX $A7:DEX
4209 LDA VTAB1,X
4210 TAX
4211 V7  LDA VTAB2,X
4212 STA $A9
4213 LDA VTAB3,X
4214 STA $AA
4215 LDY $A7
4216 DEY
4217 LDA #$2E
4218 STA ($A9),Y
4219 DEX
4220 BPL V7
4221 DEC $A7
4222 LDA $A7
4223 BNE V8
4224 JSR STERN
4225 V9 STA $03FF,X
4226 DEX
4227 CPX $FA
4228 BCS V9
4229 RTS
4230 ;
4300 VTAB1  .BYTE $14,$14,$14,$14,$14
4301 .BYTE $14,$14,$14,$14,$14
4302 .BYTE $14,$14,$14,$14,$14
4303 .BYTE $14,$14,$12,$12,$12,$12
4304 .BYTE $12,$12,$12,$11,$11,$11
4305 .BYTE $11,$11,$11
4306 .BYTE $10,$10,$10,$10,$10,$10
4307 .BYTE $10,$10,$10,$10
4308 VTAB2  .BYTE $78,$A0,$C8,$F0,$18
4309 .BYTE $40,$68,$90,$B8,$E0,$08,$30
4310 .BYTE $58,$80,$A8,$D0,$F8,$20,$48
4311 .BYTE $70,$98
4312 VTAB3  .BYTE 4,4,4,4,5,5,5,5,5,5,6,6,6,6,6,6,6,7,7,7,7
4313 ;
4400 STERN  LDX $FE
4401 DEX
4402 LDA #"*"
4403 RTS
4404 ;
4500 VERIFY1  LDA #04
4501 JSR EINAUS
4502 VE1  JSR EINEIN
4503 TAX
4504 BMI VERROR
4505 JMP VE1
4506 ;
4510 VERROR  CMP #$F2
4511 BNE VE2
4512 JMP VHEADERR
4513 VE2  CMP #$F1
4514 BNE VE3
4515 JMP VSYNCERR
4516 VE3  LDY #00
4517 VE6  JSR EINEIN
4518 CMP #$F3
4519 BEQ VE8
4520 JSR VREADERR
4521 JMP VE6
4522 VE8  RTS
4523 ;
4524 VREADERR  TAY
4526 LDA VTAB2,Y
4527 STA $A9
4528 LDA VTAB3,Y
4529 STA $AA
4530 LDY $FA
4531 DEY
4532 LDA #$12
4533 STA ($A9),Y
4534 RTS
4535 ;
4600 VSYNCERR  LDA #$13
4601 .BYTE $2C
4602 VHEADERR  LDA #08
4603 PHA
4604 LDX $FA
4605 DEX
4606 LDA VTAB1,X
4607 TAX
4608 VEA  LDA VTAB2,X
4609 STA $A9
4610 LDA VTAB3,X
4611 STA $AA
4612 LDY $FA
4613 DEY
4614 PLA
4615 PHA
4616 STA ($A9),Y
4617 DEX
4618 BPL VEA
4619 PLA
4620 RTS
4621 ;
5000 BEFEHL  LDX #$17
5001 LDY #01
5002 JSR $E50C
5003 JSR PRINT
5004 .ASC "BEFEHL: ":.BYTE 0
5005 JSR OPEN
5006 LDX #15
5007 JSR $FFC9
5008 BF  JSR $FFCF
5009 JSR $FFD2
5010 CMP #13
5011 BNE BF
5012 JSR $FFCC
5013 LDA #15
5014 JMP $FFC3
5015 ;
6000 DIREKTORY  LDX #$10
6001 DIR1  LDA $60,X
6002 STA $03EF,X
6003 DEX
6004 BPL DIR1
6005 LDA #$9A
6006 JSR $FFD2
6007 JSR $BDCD
6008 LDA #$1F
6009 JSR $FFD2
6010 LDA #$93
6011 JSR $FFD2
6012 LDA #02
6013 LDX $F9
6014 LDY #00
6015 JSR $FFBA
6016 LDX #<DOLLAR
6017 LDY #>DOLLAR
6018 LDA #01
6019 JSR $FFBD
6020 JSR $FFC0
6021 LDX #02
6022 JSR $FFC6
6023 JSR $FFCF
6024 LDA $90
6025 BNE DIROUT
6026 JSR $FFCF
6027 DIR2  LDA #$16
6028 STA $8B
6029 DIR5  DEC $8B
6030 BNE DIR3
6031 JSR DRUCK
6036 LDX #02
6037 JSR $FFC6
6038 LDA #$93
6039 JSR $FFD2
6040 JMP DIR2
6041 DIR3  JSR $FFCF
6042 JSR $FFCF
6043 BEQ DIROUT
6044 JSR PRINT
6045 .BYTE 13,32,32,32,0
6046 JSR $FFCF
6047 TAX:JSR $FFCF
6048 JSR $BDCD
6049 LDA #32
6050 JSR $FFD2
6051 DIR4  JSR $FFCF
6052 BEQ DIR5
6053 LDY $90
6054 BNE DIROUT
6055 JSR $FFD2
6056 JMP DIR4
6057 ;
6058 DIROUT  JSR DRUCK
6059 LDA #02
6060 JSR $FFC3
6061 LDX #$10
6062 DIR7  LDA $03EF,X
6063 STA $60,X
6064 DEX
6065 BPL DIR7
6066 RTS
6067 ;
6068 DOLLAR .ASC "$"
6069 ;
6160 DRUCK  JSR PRINT
6161 .BYTE 13,13
6162 .ASC "     WEITER MIT TASTENDRUCK":.BYTE 0
6163 JSR $FFCC
6164 JSR TASTE
6165 RTS
6166 ;
7000 INFO  LDX #00
7001 INF1 LDA $1CA0,X
7002 STA $04A3,X
7003 LDA $1DA0,X
7004 STA $05A3,X
7005 LDA $1EA0,X
7006 STA $06A3,X
7007 INX
7008 BNE INF1
7009 LDX #43
7010 INF2  LDA $1FA0,X
7011 STA $07A3,X
7012 DEX
7013 BPL INF2
7014 JSR TASTE
7015 RTS