64'er/64ER_CD.iso/89xx/8905.d64/quelltext

Commodore BASIC | 1995-03-30 | 14KB | 979 lines

100 (null)
110 ;
120 ; (null): CHIPCHIK'S ASSE
130 ;
140 ;"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
150 ;"PSEUDO OP.    (null) ENTSPRICHT
160 ;"CHIPCHIK'S:   [221] IN HYPRA-ASS:
170 ;"TANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTAN
180 ;"GO            [221]    ---
190 ;"*= $0801      (null) .BA $0801
200 ;"LABEL = $XX   [221] .EQ LABEL = $XX
210 ;".ASC          (null) .TX
220 ;".WORD         [221] .WO
230 ;".OBJ#8,"NA"   (null) .OB"NA,P,W"+.EN
240 ;".LIST(#G,"NA")[221] .LI,FN,G,SA
250 ;".LABEL 128    (null) .SY 1,3
260 ;"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
270 ;
280 [172][178] $0801
290 ;
300 .OBJ#8,"DELUXE DATAS"
310 ;
320 ; LABEL[171][150]INITI[145]
330 ;
340 [161]IN   [178] $FFE4
350 BSOUT   [178] $FFD2
360 B[198][145]  [178] $01
370 B[198][145]2 [178] $3FF
380 VIC     [178] $D000
390 STROUT  [178] $AB1E
400 BUFFER  [178] $0200
410 CRSR    [178] $CC
420 STR     [178] $02
430 STR2    [178] $AB
440 FAC     [178] $64
450 FACSTR  [178] $100
460 [181]FL   [178] $BC49
470 CHR[161]  [178] $73
480 CHR[203]T  [178] $79
490 FRMNUM  [178] $AD8A
500 [180]FT   [178] $B3A2
510 [161]ADR  [178] $B7F7
520 CIVAYF  [178] $B391
530 [181]OUT  [178] $BDCD
540 [135]Y   [178] $A474
550 ILLQUAN [178] $B248
560 [156]     [178] $A660
570 [181]     [178] $14
580 TRANS1  [178] $FB
590 TRANS2  [178] $FD
600 TRANS3  [178] $C1
610 TRANS4  [178] $AC
620 LAENGE  [178] $7E9
630 ADLOW   [178] $7EA
640 ADHIGH  [178] $7EB
650 NUMDAT  [178] $7EC
660 NUMDAT2 [178] $7ED
670 ZEILO   [178] $7EE
680 ZEIHI   [178] $7EF
690 [169]    [178] $7F0
700 SUM     [178] $7F1
710 SUMME   [178] $7F2
720 STRING  [178] $7F8
730 CHKCOM  [178] $AEFD
740 COMBYT  [178] $E200
750 FRMEVL  [178] $AD9E
760 ERR     [178] $A437
770 OUTSTR  [178] $AB24
780 FOUT    [178] $BDDD
790 MAIN1   [178] $A49C
800 VECA483 [178] $302
810 ZFDZ    [178] $22
820 PC      [178] $7A
830 VAR     [178] $2D
840 [162]     [178] $A644
850 ;
860 ;
870 ;
880 ; BASIC ZEILE ERZEUGEN
890 ;
900 .W[176]D L1
910 .W[176]D 1987
920 .BYTE $9E
930 .[198] "2061"
940 .BYTE $00
950 L1 .W[176]D $00
960 ;
970 ; STARTADRESSE EINLESEN
980 ;
990 ;
1000 LDA #$06
1010 STA VIC[170]32
1020 STA VIC[170]33
1030 LDA #[179]TX1
1040 LDY #[177]TX1
1050 JSR STROUT
1060 LDA #$00
1070 STA CRSR
1080 ;
1090 ; BIS ZU 5 ZAH[195] EINLESEN UND
1100 ; IN DEN EINGABEPUFFER SCHREIBEN
1110 ; DANN PC DARAUF [185]ITI[145]IEREN
1120 ; UND WERT ALS 2[171]BYTE [181]EGER
1130 ; EINLESEN
1140 ;
1150 LDX #$00
1160 L2  STX STR
1170 L3  JSR [161]IN
1180 CMP #$0D
1190 BEQ [142]
1200 CMP #$14
1210 BEQ DEL
1220 LDX STR
1230 CPX #5
1240 BCS L2
1250 CMP #$30
1260 BCC L3
1270 CMP #$3A
1280 BCS L3
1290 JSR BSOUT
1300 LDX STR
1310 STA BUFFER,X
1320 INX
1330 BNE L2
1340 ;
1350 DEL LDX STR
1360 BEQ L3
1370 LDA #[179]TX2
1380 LDY #[177]TX2
1390 JSR STROUT
1400 LDX STR
1410 DEX
1420 JMP L2
1430 ;
1440 [142] LDA #$01
1450 STA CRSR
1460 LDA #$20
1470 JSR BSOUT
1480 LDX #$00
1490 LDY #$02
1500 STX PC
1510 STY PC[170]1
1520 LDX STR
1530 LDA #":"
1540 STA BUFFER,X
1550 ;
1560 ; 2[171]BYTE [181]EGER HO[195]
1570 ;
1580 JSR FRMNUM
1590 JSR [161]ADR
1600 ;
1610 LDA #[179]TX3
1620 LDY #[177]TX3
1630 JSR STROUT
1640 LDX [181]
1650 STX TRANS2
1660 STX TRANS3
1670 LDA [181][170]1
1680 STA TRANS2[170]1
1690 STA TRANS3[170]1
1700 JSR [181]OUT
1710 LDA #"-"
1720 JSR BSOUT
1730 ;
1740 ; PROGRAMM VERSCHIEBEN
1750 ;
1760 LDA #[179]PROGRAM
1770 STA TRANS1
1780 LDA #[177]PROGRAM
1790 STA TRANS1[170]1
1800 ;
1810 ; 1. ADRESSEN ANPASSEN
1820 ;
1830 TST1 LDX #23
1840 TST2 LDA TAB1,X
1850 DEX
1860 CMP TRANS1[170]1
1870 BNE TST3
1880 LDA TAB1,X
1890 CMP TRANS1
1900 BNE TST3
1910 LDA TAB2,X
1920 STA TRANS4
1930 INX
1940 LDA TAB2,X
1950 STA TRANS4[170]1
1960 LDA TRANS2
1970 LDY #$00
1980 STA (TRANS4),Y
1990 LDA TRANS2[170]1
2000 INY
2010 INY
2020 STA (TRANS4),Y
2030 LDX #0
2040 ;
2050 TST3 DEX
2060 BPL TST2
2070 ;
2080 ;
2090 TST13 INC VIC[170]32
2100 INC TRANS1
2110 BNE ITS1
2120 INC TRANS1[170]1
2130 ITS1 INC TRANS2
2140 BNE ITS2
2150 INC TRANS2[170]1
2160 ;
2170 ITS2 LDA TRANS1
2180 CMP #[179][128]
2190 BNE TST14
2200 LDA TRANS1[170]1
2210 CMP #[177][128]
2220 BEQ V0
2230 ;
2240 TST14 JMP TST1
2250 ;
2260 TAB1 .W[176]D ST1,ST2,ST3,LOA,ST4
2270 .W[176]D ST5,ST6,ST7,NO,YES,ST8
2280 .W[176]D ST9
2290 ;
2300 TAB2 .W[176]D [185]T1[170]1,[185]T2[170]1,OK2[170]1
2310 .W[176]D LOAOUT[170]1,OK3[170]1,OK5[170]1,OK6[170]1
2320 .W[176]D OK7[170]1,NOSUM[170]1,YESOUT[170]1
2330 .W[176]D OK8[170]1,OKA[170]1
2340 ;
2350 ; 2. VERSCHIEBEN
2360 ;
2370 V0 LDA #[179]PROGRAM
2380 LDY #[177]PROGRAM
2390 STA TRANS1
2400 STY TRANS1[170]1
2410 LDA TRANS3
2420 STA TRANS2
2430 LDA TRANS3[170]1
2440 STA TRANS2[170]1
2450 ;
2460 LDY #0
2470 V1 LDA (TRANS1),Y
2480 STA (TRANS2),Y
2490 INC TRANS1
2500 BNE V2
2510 INC TRANS1[170]1
2520 V2 INC TRANS2
2530 BNE V3
2540 INC TRANS2[170]1
2550 ;
2560 V3 INC VIC[170]33
2570 LDA TRANS1
2580 CMP #[179][128]
2590 BNE V1
2600 LDA TRANS1[170]1
2610 CMP #[177][128]
2620 BNE V1
2630 ;
2640 ;
2650 ; BEDIENUNGSANLEITUNG UND
2660 ; '[135]Y.' AUSGEBEN
2670 ;
2680 ;
2690 LDA #$06
2700 STA VIC[170]32
2710 STA VIC[170]33
2720 LDX TRANS2
2730 LDA TRANS2[170]1
2740 JSR [181]OUT
2750 LDA #[179]SYTXT
2760 LDY #[177]SYTXT
2770 JSR STROUT
2780 LDX TRANS3
2790 LDA TRANS3[170]1
2800 JSR [181]OUT
2810 LDA #[179]TX4
2820 LDY #[177]TX4
2830 JSR STROUT
2840 JSR [162]
2850 JMP [135]Y
2860 ;
2870 ;
2880 .BYTE $00
2890 ;
2900 ; STRINGS
2910 ;
2920 ;
2930 TX1 .[198]"LOADDELUXE DATAS BY J.LUETTGAU"
2940 .BYTE $0D,$0E
2950 .[198]"ENTER START-ADRESS OF DATA-MAKER"
2960 .BYTE $0D
2970 .[198]"TAB(TAB(TAB(TAB(TAB(CMDCMDCMDCMDCMDON"
2980 .BYTE $00
2990 ;
3000 TX2 .[198]" CMDCMD CMD"
3010 .BYTE $00
3020 ;
3030 TX3 .BYTE $0D
3040 .[198]"PROGRAM TRANSFERED TO "
3050 .BYTE $00
3060 ;
3070 SYTXT .BYTE$0D,$0D
3080 .[198]"USING:"
3090 .BYTE $0D,$0D
3100 .[198]"SYS"
3110 .BYTE $00
3120 ;
3130 TX4 .[198]"(,A$),A,B(,C,D,E,F)"
3140 .BYTE $0D,$0D
3150 .[198]"A$=STRING ('DATA' OR '.BYTE' E.G.)
3160 .BYTE $0D,$0D
3170 .ASC"A=START,B=END,C=DATAS/LINE"
3180 .BYTE $0D,$0D
3190 .ASC"D=FIRST LINE,E=STEP"
3200 .BYTE $0D,$0D
3210 .ASC"F<>0 = CHECKSUM, G=VALUE OF $01"
3220 .BYTE $0D,$00
3230 ;
3240 ;
3250 ; PROGRAMM
3260 ;
3270 ;
3280 ;
3290 PROGRAM  LDA #6
3300 STA VIC+32
3310 STA VIC+33
3320 ;
3330 ;
3340 POST1 LDA #<ST1
3350 LDY #>ST1
3360 JSR STROUT
3370 ;
3380 ; PROGRAMMZEIGER RETTEN
3390 ;
3400 LDA PC
3410 LDY PC+1
3420 STA STRING
3430 STY STRING+1
3440 ;
3450 JSR CHKCOM
3460 ;
3470 ; AUSDRUCK HOLEN UND AUSWERTEN
3480 ; WENN STRING, DANN WEITER
3490 ; WENN ZAHL, DANN DEFAULTWERTE
3500 ; FUER STRING SETZEN, PC ZU-
3510 ; RUECKHOLEN UND WEITER BEI
3520 ; STARTADRESSE EINLESEN
3530 ;
3540 JSR FRMEVL
3550 LDA $0D
3560 BMI OK01
3570 LDA STRING
3580 LDY STRING+1
3590 STA PC
3600 STY PC+1
3610 LDA #4
3620 STA LAENGE
3630 LDA #"D"
3640 STA STRING
3650 LDA #"A"
3660 STA STRING+1
3670 LDA #"T"
3680 STA STRING+2
3690 LDA #"A"
3700 STA STRING+3
3710 LDA #$00
3720 STA STRING+4
3730 ;
3740 ; EINGELESENEN STRING AUSGEBEN
3750 ;
3760 LDA #<STRING
3770 LDY #>STRING
3780 JSR STROUT
3790 ;
3800 ; UNBEDINGTER SPRUNG
3810 ;
3820 LDY #0
3830 BEQ POST2
3840 ;
3850 ; STRING IN RESERVIERTEN BEREICH
3860 ;
3870 OK01 LDY #0
3880 ;
3890 ; STRING-LAENGE HOLEN
3900 ;
3910 LDA (FAC),Y
3920 ;
3930 ; WENN STRING LEER DANN FEHLER
3940 ;
3950 BNE OK0
3960 JMP ILLQUAN
3970 OK0 STA LAENGE
3980 INY
3990 ;
4000 ; ADRESSE HOLEN & STRING AUSGEBEN
4010 ;
4020 LDA (FAC),Y
4030 STA ADLOW
4040 STA ZFDZ
4050 INY
4060 LDA (FAC),Y
4070 STA ADHIGH
4080 STA ZFDZ+1
4090 LDA LAENGE
4100 JSR OUTSTR
4110 ;
4120 ; WENN LAENGER ALS 8 DANN FEHLER
4130 ;
4140 LDY LAENGE
4150 CPY #9
4160 BCC OK1
4170 LDX #23
4180 JMP ERR
4190 ;
4200 ; STRING UEBERTRAGEN
4210 ;
4220 OK1 DEY
4230 OK11 LDA (ZFDZ),Y
4240 STA STRING,Y
4250 DEY
4260 BPL OK11
4270 ;
4280 ; STARTADRESSE EINLESEN
4290 ;
4300 POST2 LDA #<ST2
4310 LDY #>ST2
4320 JSR STROUT
4330 JSR CHKCOM
4340 JSR FRMNUM
4350 JSR GETADR
4360 STY TRANS1
4370 STA TRANS1+1
4380 LDX TRANS1
4390 JSR INTOUT
4400 ;
4410 ; ENDADRESSE EINLESEN
4420 ;
4430 OK2 LDA #<ST3
4440 LDY #>ST3
4450 JSR STROUT
4460 JSR CHKCOM
4470 JSR FRMNUM
4480 JSR GETADR
4490 STY TRANS2
4500 STA TRANS2+1
4510 LDX TRANS2
4520 JSR INTOUT
4530 ;
4540 ; ENDE KLEINER ALS START
4550 ;
4560 LDA TRANS2+1
4570 CMP TRANS1+1
4580 BEQ TEST1
4590 BCS OK3
4600 BCC LOAOUT
4610 TEST1 LDA TRANS2
4620 CMP TRANS1
4630 BCS OK3
4640 ;
4650 ; JA! FEHLERMELDUNG
4660 ;
4670 LOAOUT LDA #<LOA
4680 LDY #>LOA
4690 JSR STROUT
4700 JMP READY
4710 ;
4720 ; ANZAHL DATAS PRO ZEILE
4730 ;
4740 OK3 LDA #<ST4
4750 LDY #>ST4
4760 JSR STROUT
4770 JSR CHR(null)T
4780 BNE OK31
4790 ;
4800 ; WENN NICHT ANGEGEBEN, DANN 8
4810 ;
4820 LDX #8
4830 BNE OK4
4840 ;
4850 OK31 JSR COMBYT
4860 ;
4870 ; MEHR ALS 20 = FEHLER !
4880 ;
4890 CPX #21
4900 BCC OK4
4910 ILL JMP ILLQUAN
4920 ;
4930 OK4 STX NUMDAT
4940 STX NUMDAT2
4950 ;
4960 ; NULL DATAS = FEHLER !
4970 ;
4980 CPX #$00
4990 BEQ ILL
5000 ;
5010 LDA #00
5020 JSR INTOUT
5030 ;
5040 ; ERSTE ZEILENNUMMER EINLESEN
5050 ;
5060 OK5 LDA #<ST5
5070 LDY #>ST5
5080 JSR STROUT
5090 JSR CHR(null)T
5100 BNE LDLIN
5110 ;
5120 ; FALLS NICHT ANGEGEBEN DANN 100
5130 ;
5140 LDY #100
5150 LDA #00
5160 BEQ OK51
5170 ;
5180 LDLIN JSR CHKCOM
5190 JSR FRMNUM
5200 JSR GETADR
5210 ;
5220 OK51 STY ZEILO
5230 STA ZEIHI
5240 CMP #$FA
5250 BCS ILL
5260 LDX ZEILO
5270 JSR INTOUT
5280 ;
5290 ; SCHRITTWEITE EINLESEN
5300 ;
5310 OK6 LDA #<ST6
5320 LDY #>ST6
5330 JSR STROUT
5340 JSR CHR(null)T
5350 BNE LDSTEP
5360 ;
5370 ; WENN NICHT ANGEGEBEN DANN 10
5380 ;
5390 LDX #10
5400 STX STEP
5410 BNE STEPOUT
5420 ;
5430 LDSTEP JSR COMBYT
5440 STX STEP
5450 CPX #$00
5460 ;
5470 ; SCHRITTWEITE NULL = FEHLER !
5480 ;
5490 BNE STEPOUT
5500 JMP ILLQUAN
5510 ;
5520 STEPOUT LDA #0
5530 JSR INTOUT
5540 ;
5550 ; CHECKSUMME JA/NEIN
5560 ;
5570 OK7 LDA #<ST7
5580 LDY #>ST7
5590 JSR STROUT
5600 ;
5610 ; NICHT ANGEGEBEN => NEIN
5620 ;
5630 JSR CHR(null)T
5640 BNE LDSUM
5650 STA SUM
5660 BEQ NOSUM
5670 ;
5680 LDSUM JSR COMBYT
5690 STX SUM
5700 CPX #$00
5710 ;
5720 ; 0 = NEIN , <> 0 = JA
5730 ;
5740 BNE YESOUT
5750 NOSUM LDA #<NO
5760 LDY #>NO
5770 LDX #0
5780 BEQ SUMOUT
5790 YESOUT LDA #<YES
5800 LDY #>YES
5810 SUMOUT JSR STROUT
5820 ;
5830 ; SPEICHERKONFIGURATION [PEEK(1)]
5840 ;
5850 OKA LDA #<ST9
5860 LDY #>ST9
5870 JSR STROUT
5880 ;
5890 ; WENN NICHT ANGEGEBEN DANN 55
5900 ;
5910 JSR CHR(null)T
5920 BNE PEE1
5930 LDX #$37
5940 STX BASCON2
5950 BNE PEE2
5960 ;
5970 PEE1 JSR COMBYT
5980 STX BASCON2
5990 LDA #$00
6000 PEE2 JSR INTOUT
6010 ;
6020 OK8 LDA #<ST8
6030 LDY #>ST8
6040 JSR STROUT
6050 ;
6060 ; BEFEHLSWORT IN INTERPRETERCODE
6070 ; WANDELN (SOFERN MOEGLICH)
6080 ;
6090 LDX LAENGE
6100 LDA #$00
6110 BEQ SIB2
6120 SIB LDA STRING,X
6130 SIB2 STA BUFFER,X
6140 DEX
6150 BPL SIB
6160 LDA #$FF
6170 STA PC
6180 LDA #$01
6190 STA PC+1
6200 LDA #$80
6210 JSR $FE18
6220 JSR CHRGET
6230 LDX #$FF
6240 STX $3A
6250 JSR $A579
6260 LDX #0
6270 SIB3 LDA BUFFER,X
6280 STA STRING,X
6290 BEQ SIB4
6300 INX
6310 BNE SIB3
6320 SIB4 DEX
6330 STX LAENGE
6340 JSR NEW
6350 LDA #$01
6360 LDY #$08
6370 STA VAR
6380 STY VAR+1
6390 STA VAR+2
6400 STY VAR+3
6410 LDA #$00
6420 STA SUMME
6430 STA SUMME+1
6440 ;
6450 ;
6460 ; ZEILENNUMMER IN BASICSPEICHER
6470 ;
6480 OK9 LDY #2
6490 LDA ZEILO
6500 STA (VAR),Y
6510 INY
6520 LDA ZEIHI
6530 STA (VAR),Y
6540 INY
6550 ;
6560 ; BEFEHLSSTRING IN SPEICHER
6570 ;
6580 LDX #$00
6590 W1 LDA STRING,X
6600 BEQ W2
6610 STA (VAR),Y
6620 INY
6630 INX
6640 BNE W1
6650 ;
6660 ;
6670 TOK93 BCC OK9
6680 ;
6690 ; NUMMER DER MOMENTAN ERZEUGTEN
6700 ; ZEILE AUSGEBEN
6710 ;
6720 W2 STY STR
6730 LDX #23
6740 LDY #7
6750 CLC
6760 JSR $FFF0
6770 LDX ZEILO
6780 LDA ZEIHI
6790 JSR INTOUT
6800 LDY STR
6810 ;
6820 ; AKTUELLE SPEICHERZELLE AUSGEBEN
6830 ;
6840 W4 STY STR
6850 LDX #23
6860 LDY #24
6870 CLC
6880 JSR $FFF0
6890 LDX TRANS1
6900 LDA TRANS1+1
6910 JSR INTOUT
6920 LDY STR
6930 ;
6940 ; SPEICHER AUSLESEN, WERT IN
6950 ; STRING WANDELN UND IN BAS.SP.
6960 ;
6970 STY STR
6980 LDY #0
6990 SEI
7000 LDA BASCON2
7010 STA BASCON
7020 LDA (TRANS1),Y
7030 LDY #$37
7040 STY BASCON
7050 CLI
7060 TAY
7070 PHA
7080 JSR SGNFT
7090 JSR FOUT
7100 LDX #1
7110 LDY STR
7120 W5 LDA FACSTR,X
7130 BEQ W6
7140 STA (VAR),Y
7150 INY
7160 INX
7170 BNE W5
7180 ;
7190 ; CHECKSUMME AKTUALISIEREN
7200 ;
7210 W6 STY STR:PLA
7220 CLC
7230 ADC SUMME
7240 STA SUMME
7250 LDA SUMME+1
7260 ADC #0
7270 STA SUMME+1
7280 ;
7290 ; PRUFEN, OB ENDADRESSE ERREICHT
7300 ;
7310 LDA TRANS1+1
7320 CMP TRANS2+1
7330 BNE TEST2
7340 LDA TRANS1
7350 CMP TRANS2
7360 BNE TEST2
7370 BEQ JOUT
7380 ;
7390 TOK92 BCC TOK93
7400 TOW4 BNE W4
7410 ;
7420 ; MAX. ANZAHL DATAS PRO ZEILE
7430 ;
7440 TEST2 DEC NUMDAT2
7450 BNE TOW7
7460 ;
7470 ; JA, DANN ZEILE IN BASIC PRG
7480 ; EINFUEGEN
7490 ;
7500 NEXTZEILE LDA #$FF
7510 .BYTE $2C
7520 JOUT  LDA #$00
7530 STA STR2
7540 LDA SUM
7550 BEQ CHKS2
7560 ;
7570 ; CHECKSUMME IN STRING UND
7580 ; AN DATA-ZEILE ANHAENGEN
7590 ;
7600 LDY STR
7610 LDA #","
7620 STA (VAR),Y
7630 INY
7640 STY STR
7650 LDY SUMME
7660 LDA SUMME+1
7670 JSR CIVAYF
7680 JSR FOUT
7690 LDY STR
7700 LDX #1
7710 ;
7720 CHKS3 LDA FACSTR,X
7730 BEQ CHKS2
7740 STA (VAR),Y
7750 INY
7760 INX
7770 BNE CHKS3
7780 ;
7790 ;ZEILE MIT NULLBYTE ABSCHLIESSEN
7800 ;
7810 CHKS2 LDA #$00
7820 STA (VAR),Y
7830 INY
7840 STY STR
7850 ;
7860 ; VARIABLENZEIGER ERHOEHEN
7870 ;
7880 TYA
7890 LDY #$00
7900 CLC
7910 ADC VAR
7920 STA (VAR),Y
7930 LDA VAR+1
7940 ADC #$00
7950 INY
7960 STA (VAR),Y
7970 ;
7980 ; WENN SPEICHER VOLL DANN ENDE
7990 ;
8000 LDA VAR+1
8010 CMP $38
8020 BCC ERH
8030 BNE NERH
8040 LDA VAR
8050 CMP $37
8060 BCC ERH
8070 ;
8080 ; SPEICHEROBERGRENZE ERREICHT
8090 ;
8100 NERH LDA #$02
8110 LDX #$00
8120 STA STR2
8130 LDA VAR+3
8140 STA VAR+1
8150 LDA VAR+2
8160 STA VAR
8170 TXA
8180 BEQ ERH2
8190 ;
8200 TOW7 BNE TOW71
8210 TOW41 BNE TOW4
8220 TOK9 BCC TOK92
8230 ;
8240 ERH LDA VAR
8250 STA VAR+2
8260 LDA VAR+1
8270 STA VAR+3
8280 LDY #$00
8290 LDA (VAR),Y
8300 TAX
8310 INY
8320 LDA (VAR),Y
8330 STX VAR
8340 STA VAR+1
8350 DEY
8360 STY STR
8370 ;
8380 ; PRUEFEN OB STOP-TASTE GEDRUECKT
8390 ;
8400 LDA $CB
8410 CMP #$3F
8420 BNE NBRE
8430 LDA #1
8440 STA STR2
8450 ;
8460 ; WENN ENDE NICHT ERREICHT WEITER
8470 ;
8480 NBRE LDA STR2
8490 BMI NEI2
8500 ;
8510 ERH2 LDY#0:TYA
8520 STA (VAR),Y
8530 INY
8540 STA (VAR),Y
8550 LDA VAR
8560 CLC
8570 ADC #2
8580 STA VAR
8590 STA $2F
8600 STA $31
8610 LDA VAR+1
8620 ADC #0
8630 STA VAR+1
8640 STA $30
8650 STA $32
8660 LDA $37
8670 LDY $38
8680 STA $33
8690 STY $34
8700 LDA STR2
8710 BNE BREAK
8720 JMP READY
8730 ;
8740 TOW42 BNE TOW41
8750 TOW71 BNE W7
8760 TOK91 BCC TOK9
8770 ;
8780 BREAK CMP #1
8790 BNE OOM
8800 LDX #30
8810 JMP ERR
8820 OOM CMP #2
8830 BNE OE
8840 LDX #16
8850 JMP ERR
8860 OE JMP ILLQUAN
8870 ;
8880 ; ZEIGER IN SPEICHER ERHOEHEN
8890 ;
8900 NEI2 LDA NUMDAT
8910 STA NUMDAT2
8920 INC TRANS1
8930 BNE ZEILE2
8940 INC TRANS1+1
8950 ;
8960 ; CHECKSUMME = 0 FUER NEUEZEILE
8970 ;
8980 ZEILE2  LDA #0
8990 STA SUMME
9000 STA SUMME+1
9010 ;
9020 ; NEUE ZEILENNUMMER BERECHNEN
9030 ;
9040 LDA ZEILO
9050 CLC
9060 ADC STEP
9070 STA ZEILO
9080 LDA ZEIHI
9090 ADC #0
9100 STA ZEIHI
9110 ;
9120 ; >63999 DANN FEHLER !
9130 ;
9140 CMP #$FA
9150 BCC TOK91
9160 LDA #3
9170 STA STR2
9180 BNE ERH2
9190 ;
9200 ; KOMMA ANFUEGEN UND NAECHSTES
9210 ; DATA-STATEMENT ERZEUGEN
9220 ;
9230 W7 LDA #","
9240 LDY STR
9250 STA (VAR),Y
9260 INY
9270 STY STR
9280 INC TRANS1
9290 BNE TOW42
9300 INC TRANS1+1
9310 BNE TOW42
9320 ;
9330 ; VERWENDETE ZEICHENKETTEN:
9340 ;
9350 ST1 .ASC"[147]DELUXE DATAS BY JOERG LUETTGAU"
9360 .BYTE $0E,$0D
9370 .ASC"PARAMETER :"
9380 .BYTE $0D
9390 .ASC"[163][163][163][163][163][163][163][163][163][163][163]"
9400 .BYTE $0D
9410 .ASC"CODE           : "
9420 .BYTE $00
9430 ;
9440 ST2 .BYTE $0D,$0D
9450 .ASC"START ADRESS   : "
9460 .BYTE $00
9470 ;
9480 ST3 .BYTE $0D,$0D
9490 .ASC"END ADRESS     : "
9500 .BYTE $00
9510 ;
9520 LOA .BYTE$0D,$0D
9530 .ASC"?ADRESS TOO LOW ERROR"
9540 .BYTE$00
9550 ;
9560 ST5 .BYTE $0D,$0D
9570 .ASC"FIRST LINE     : "
9580 .BYTE $00
9590 ;
9600 ST6 .BYTE $0D,$0D
9610 .ASC"STEP           : "
9620 .BYTE $00
9630 ;
9640 ST7 .BYTE $0D,$0D
9650 .ASC"CHECKSUM ?     : "
9660 .BYTE $00
9670 ;
9680 ST9 .BYTE $0D,$0D
9690 .ASC"VALUE OF $01   : "
9700 .BYTE $00
9710 ;
9720 NO .ASC"NO"
9730 .BYTE $00
9740 ;
9750 YES .ASC"YES"
9760 .BYTE $00
9770 ;
9780 ST8 .BYTE $0D,$0D,$0D
9790 .ASC"LINE :         MEMORY :"
9800 .BYTE $00
9810 ;
9820 ST4 .BYTE $0D,$0D
9830 .ASC"DATAS PER LINE : "
9840 .BYTE $00
9850 ;
9860 END NOP
9870 ;