1000 ;
1010 ;MISSION 2 V4.4
1020 ;
1030 ;
1040 ;DAS FILE SEQUENCER 1
1050 ;WIRD AN DIE ADRESSE
1060 ;32784 GELADEN UND
1070 ;MIT CODE1/CODE2 ENT-
1080 ;SCHLUESSELT, JEDOCH
1090 ;NICHT ENTCOMPACTET!
1100 ;
1110 ;
1120 ORG 6144
1130 ;
1140 BILDCNTR EQU 2
1150 PTR1 EQU 87
1160 PTR2 EQU 89
1170 LPTR EQU 174
1180 COLPTR EQU 251
1190 PTR98 EQU 252
1200 PTR99 EQU 253
1210 MSB EQU 254
1220 MSB2 EQU 255
1230 ;
1240 SOURCEANF EQU 32784
1250 ;
1260 ;
1270 COL1 EQU 15
1280 ;
1290 ;
1300 MARK EQU 191
1310 CODE1 EQU 0 ; ADC
1320 CODE2 EQU 0 ; EOR
1330 ;
1340 ;
1350 ;
1360 ;
1370 INIT LDA #11
1380 STA 53265
1390 LDY #0
1400 STY 53280
1410 STY 53281
1420 LDA #24
1430 STA 53272
1440 LDA #216
1450 STA 53270
1460 LDA #150
1470 STA 56576
1480 ;
1490 JSR LADEN
1500 JMP DOIT
1510 ;
1520 ;
1530 ;
1540 LADEN JSR $FFE7 ; CLALL
1550 LDA #2
1560 LDX #8
1570 LDY #2
1580 JSR $FFBA
1590 LDA #11 ; LAENGE
1600 LDX #<NAME
1610 LDY #>NAME
1620 JSR $FFBD
1630 LDA #0
1640 JSR $FFC0 ; OPEN
1650 LDX #2
1660 JSR $FFC6 ; CHKIN
1670 ;
1680 JSR LGET ;ADRESSE
1690 LDA #16 ;UEBERLESEN
1700 STA LPTR
1710 JSR LGET ;HI-BYTE
1720 LDA #128 ;UEBERLESEN
1730 STA LPTR+1
1740 ;
1750 LADEN1 JSR LGET
1760 JSR LPUT
1770 LDA $90
1780 BEQ LADEN1
1790 LDX #2
1800 JSR $FFCC ;RUCKSETZEN
1810 LDA #2
1820 JMP $FFC3 ;CLOSE
1830 ;
1840 ;
1850 ;
1860 ;
1870 LGET JSR $FFCF ;BYTE LESEN
1880 CLC
1890 ADC #CODE1
1900 EOR #CODE2
1910 RTS
1920 ;
1930 ;
1940 LPUT SEI
1950 LDY #52
1960 STY 1
1970 LDY #0
1980 STA (LPTR),Y
1990 INC LPTR
2000 BNE LPUT1
2010 INC LPTR+1
2020 LPUT1 LDY #55
2030 STY 1
2040 CLI
2050 RTS
2060 ;
2070 ;
2080 ;
2090 ;
2100 DOIT LDY #0
2110 STY PTR98
2120 STY COLPTR
2130 LDA #113
2140 STA MSB
2150 ;
2160 ;
2170 CLR STY PTR1
2180 LDA #32
2190 STA PTR1+1
2200 LDX #96
2210 TYA
2220 CLR1 STA (PTR1),Y
2230 INY
2240 BNE CLR1
2250 INC PTR1+1
2260 DEX
2270 BNE CLR1
2280 ;
2290 ;
2300 LDA #COL1
2310 ILOOP1 STA $0400,Y
2320 STA $0500,Y
2330 STA $0600,Y
2340 STA $0700,Y
2350 STA $4400,Y
2360 STA $4500,Y
2370 STA $4600,Y
2380 STA $4700,Y
2390 DEY
2400 BNE ILOOP1
2410 ;
2420 ;
2430 ;
2440 MAINLOOP LDX COLPTR
2450 INX
2460 CPX #7
2470 BNE MAIN1
2480 LDX #0
2490 MAIN1 STX COLPTR
2500 ;
2510 LDA COLTAB,X
2520 MAIN2 STA $D800,Y
2530 STA $D900,Y
2540 STA $DA00,Y
2550 STA $DB00,Y
2560 DEY
2570 BNE MAIN2
2580 ;
2590 LDA #<SOURCEANF
2600 STA PTR1
2610 LDA #>SOURCEANF
2620 STA PTR1+1
2630 ;
2640 LDX #11 ;ANZ BILDER
2650 STX BILDCNTR
2660 ;
2670 ;
2680 MAIN3 JSR GETPIC
2690 ;
2700 LDA 56576
2710 EOR #1
2720 STA 56576
2730 LDA #59
2740 STA 53265
2750 ;
2760 ;
2770 DEC BILDCNTR
2780 BNE MAIN3
2790 JMP MAINLOOP
2800 ;
2810 ;
2820 ;
2830 GETPIC LDA MSB
2840 EOR #64
2850 STA MSB
2860 ;
2870 LDX #128
2880 STX PTR2
2890 STA PTR2+1
2900 ;
2910 CLC
2920 ADC #14
2930 STA MSB2
2940 SEI
2950 LDA #52
2960 STA 1
2970 ;
2980 DEC PTR98
2990 BMI LOOP1
3000 BEQ LOOP1
3010 TYA
3020 BEQ GLEICHE1
3030 ;
3040 ;
3050 LOOP1 JSR GET
3060 CMP #MARK
3070 BEQ GLEICHE
3080 JSR PUT
3090 JMP LOOP1
3100 ;
3110 ;
3120 GLEICHE JSR GET
3130 STA PTR98
3140 JSR GET
3150 GLEICHE1 JSR PUT
3160 DEC PTR98
3170 BNE GLEICHE1
3180 BEQ LOOP1
3190 ;
3200 ;
3210 ;
3220 GET LDA (PTR1),Y
3230 INC PTR1
3240 BNE GET1
3250 INC PTR1+1
3260 GET1 RTS
3270 ;
3280 ;
3290 PUT STA (PTR2),Y
3300 INC PTR2
3310 BNE PUT1
3320 INC PTR2+1
3330 ;
3340 PUT1 LDX PTR2+1
3350 CPX MSB2
3360 BEQ PUT2
3370 RTS
3380 ;
3390 PUT2 LDX PTR2
3400 CPX #64
3410 BEQ BILDFERTG
3420 RTS
3430 ;
3440 BILDFERTG PLA
3450 PLA
3460 LDA #55
3470 STA 1
3480 CLI
3490 RTS
3500 ;
3510 ;
3520 COLTAB DFB 14,6,4,2,5,3
3530 ;
3540 NAME DFB ""
READY.
