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 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 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 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 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 4690 JSR STROUT 4700 JMP READY 4710 ; 4720 ; ANZAHL DATAS PRO ZEILE 4730 ; 4740 OK3 LDA #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 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 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 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 5770 LDX #0 5780 BEQ SUMOUT 5790 YESOUT LDA #YES 5810 SUMOUT JSR STROUT 5820 ; 5830 ; SPEICHERKONFIGURATION [PEEK(1)] 5840 ; 5850 OKA LDA #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 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 ;