C64 Software  <  SCA: The C64 Software Collection / KOALA>AMIGA 35C

  Run
1000              ;SAVE"",8
1010              ;
1020              ; KOALA - GRAPHICRAFT
1030              ; PICTURE - CONVERTER
1040              ; (C)1986 BY SATURNUS
1050              ; V0.35 8/11/86 17:55
1060              ; NOT TO BE RELEASED!
1070              ;
1080              ;
1090              ORG 2049
1100              ;
1110              ;
1120 CHKIN        EQU $FFC6
1130 CHKOUT       EQU $FFC9
1140 CLRCH        EQU $FFCC
1150 CLALL        EQU $FFE7
1160 OUTCHR       EQU $FFD2
1170 BASIN        EQU $FFCF
1180 GET          EQU $F142  ; NUR TAST.
1190              ;
1200 ST           EQU 144
1210 X            EQU 23
1220 Y            EQU 24
1230 PIXEL        EQU 25
1240 ADR          EQU 172
1250 TMP1         EQU 174
1260              ;
1270 B            EQU $0E00
1280              ;
1290 COLTAB       EQU B      ; BIS B+3
1300 P0           EQU B+4
1310 P1           EQU B+5
1320 P2           EQU B+6
1330 P3           EQU B+7
1340              ;
1350 FILENAME     EQU B+8    ; BIS B+23
1360              ;
1370 PLNE0        EQU B+24
1380 PLNE1        EQU PLNE0+40
1390 PLNE2        EQU PLNE1+40
1400 PLNE3        EQU PLNE2+40
1410              ;
1420 KOALA        EQU 8192   ; START
1430 COLOR1       EQU KOALA+8000
1440 COLOR2       EQU KOALA+9000
1450 COLOR0       EQU KOALA+10000
1460 C1A          EQU 1024
1470 C2A          EQU 55296
1480              ;
1490 HLENGTH      EQU 186
1500              ;
1510              ;
1520              ;
1530              DFB 15,8,250,255,158,"",0,0,0,0
1540              ;
1550 ANFANG       JSR CLALL
1560              LDA #6
1570              STA 53280
1580              STA 53281
1590              LDX #0
1600              STX 157
1610 TEXT1LOOP    LDA TEXT1,X
1620              BEQ LOADER
1630              JSR OUTCHR
1640              INX
1650              BNE TEXT1LOOP
1660              ;
1670 LOADER       JSR INPUT
1680              ;
1690 LOADIT       JSR INIT
1700              LDA #1
1710              LDX #8
1720              LDY #0 ; RELATIV
1730              JSR 65466
1740              LDA #15
1750              LDX #<FILENAME
1760              LDY #>FILENAME
1770              JSR 65469
1780              LDA #0
1790              LDX #<KOALA
1800              LDY #>KOALA
1810              JSR 65493
1820              BCS LOADER
1830              ;
1840              LDX #0
1850 TEXT2LOOP    LDA TEXT2,X
1860              BEQ WAITKEY
1870              JSR OUTCHR
1880              INX
1890              BNE TEXT2LOOP
1900              ;
1910 WAITKEY      JSR GET
1920              CMP #88      ; ""
1930              BEQ ANFANG
1940              ;
1950              CMP #133     ; F1
1960              BNE WAITKEY
1970              ;
1980              ;
1990 RSOPEN       LDA #2
2000              LDX #2       ; RS 232
2010              LDY #0
2020              JSR 65466
2030              LDA #2
2040              LDX #<RSBYTE
2050              LDY #>RSBYTE
2060              JSR 65469
2070              JSR 65472
2080              ;
2090              LDX #2
2100              JSR CHKOUT
2110              ;
2120              LDX #0
2130 HTLOOP       LDA FILEHEADER,X
2140              JSR SENDABYTE
2150              INX
2160              CPX #HLENGTH
2170              BCC HTLOOP
2180              ;
2190              JSR SHOWPIC
2200              ;
2210              ;
2220              LDA #0
2230              STA Y
2240              ;
2250 LOOP1        LDA #0
2260              STA X
2270              JSR CLRPLNES
2280              ;
2290 LOOP2        JSR GETCOLS
2300              JSR GETADR
2310              ;
2320              LDY #0
2330 LOOP3        STY PIXEL
2340              LDY #0
2350              LDA (ADR),Y
2360              JSR SHIFTRIGHT
2370              AND #3
2380              TAX
2390              JSR SETP0BIS3
2400              JSR PTOPLNE
2410              ;
2420              LDY PIXEL
2430              INY
2440              CPY #4
2450              BCC LOOP3
2460              ;
2470              LDY #0
2480              TYA
2490              STA (ADR),Y
2500              ;
2510              INC X
2520              LDA X
2530              CMP #40
2540              BCC LOOP2
2550              ;
2560              JSR SENDLINE
2570              INC Y
2580              LDA Y
2590              CMP #200
2600              BCC LOOP1
2610              ;
2620              LDA #16      ; FERTIG
2630              JSR OUTCHR
2640              JSR OUTCHR
2650 WARTPUFFER   LDA $029D
2660              CMP $029E
2670              BNE WARTPUFFER
2680              ;
2690              LDX #200
2700 DELAY        INC 53280
2710              LDA 53265
2720              BPL DELAY
2730 DELAY1       INC 53280
2740              LDA 53265
2750              BMI DELAY1
2760              DEX
2770              BNE DELAY
2780              ;
2790              JSR CLRCH
2800              JSR NORM
2810              LDA #2
2820              JSR 65475    ; CLOSE
2830              JSR CLALL
2840              JMP 64738
2850              ;
2860              ;
2870              ;
2880 CLRPLNES     LDX #200     ; 5*40
2890              LDA #0
2900 CLRPLNES1    STA PLNE0-1,X
2910              DEX
2920              BNE CLRPLNES1
2930              RTS
2940              ;
2950              ;
2960 GETCOLS      LDA COLOR0
2970              AND #15
2980              STA COLTAB
2990              LDA Y
3000              LSR
3010              LSR
3020              LSR
3030              ASL    ;DURCH 8 MAL 2
3040              TAY
3050              LDA X
3060              STA TMP1
3070              LDA #0
3080              STA TMP1+1
3090              LDA CMULT+1,Y
3100              TAX
3110              LDA CMULT  ,Y
3120              JSR ADDTMP1
3130              LDA #<COLOR1
3140              LDX #>COLOR1
3150              JSR ADDTMP1
3160              ;
3170              LDY #0
3180              LDA (TMP1),Y
3190              PHA
3200              LSR
3210              LSR
3220              LSR
3230              LSR
3240              STA COLTAB+1
3250              PLA
3260              AND #15
3270              STA COLTAB+2
3280              ;
3290              LDA #<1000
3300              LDX #>1000
3310              JSR ADDTMP1
3320              ;
3330              LDA (TMP1),Y
3340              AND #15
3350              STA COLTAB+3
3360              RTS
3370              ;
3380              ;
3390 GETADR       LDA Y
3400              LSR
3410              LSR
3420              LSR        ; INT(Y/8)
3430              STA TMP1
3440              LDX #0
3450              STX TMP1+1
3460              ;            MAL 320
3470              ASL TMP1   ; MAL 5
3480              ROL TMP1+1
3490              ASL TMP1
3500              ROL TMP1+1
3510              JSR ADDTMP1
3520              ;
3530              LDX #6     ; MAL 64
3540 GETADR1      ASL TMP1
3550              ROL TMP1+1
3560              DEX
3570              BNE GETADR1
3580              ;
3590              LDA Y
3600              AND #7
3610              CLC
3620              ADC TMP1
3630              STA TMP1
3640              ;
3650              LDA X
3660              ASL
3670              ASL
3680              ASL         ; MAL 8
3690              BCC GETADR2
3700              INC TMP1+1
3710 GETADR2      LDX #0
3720              JSR ADDTMP1
3730              LDA #<KOALA
3740              LDX #>KOALA
3750              JSR ADDTMP1
3760              LDA TMP1
3770              STA ADR
3780              LDA TMP1+1
3790              STA ADR+1
3800              RTS
3810              ;
3820              ;
3830 SHIFTRIGHT   LDX PIXEL
3840              BEQ SR6
3850              CPX #1
3860              BEQ SR4
3870              CPX #2
3880              BEQ SR2
3890              BNE SR0
3900              BRK
3910 SR6          LSR
3920              LSR
3930 SR4          LSR
3940              LSR
3950 SR2          LSR
3960              LSR
3970 SR0          RTS
3980              ;
3990              ;
4000 SETP0BIS3    LDY PIXEL
4010              LDA #0
4020              STA P0
4030              STA P1
4040              STA P2
4050              STA P3
4060              LDA COLTAB,X
4070              TAX
4080              AND #1
4090              BEQ W1
4100              LDA MASK,Y
4110              STA P0
4120 W1           TXA
4130              AND #2
4140              BEQ W2
4150              LDA MASK,Y
4160              STA P1
4170 W2           TXA
4180              AND #4
4190              BEQ W3
4200              LDA MASK,Y
4210              STA P2
4220 W3           TXA
4230              AND #8
4240              BEQ W4
4250              LDA MASK,Y
4260              STA P3
4270 W4           RTS
4280              ;
4290              ;
4300 PTOPLNE      LDX X
4310              LDA PLNE0,X
4320              ORA P0
4330              STA PLNE0,X
4340              LDA PLNE1,X
4350              ORA P1
4360              STA PLNE1,X
4370              LDA PLNE2,X
4380              ORA P2
4390              STA PLNE2,X
4400              LDA PLNE3,X
4410              ORA P3
4420              STA PLNE3,X
4430              RTS
4440              ;
4450              ;
4460 ADDTMP1      CLC      ; A LOW,X HI
4470              ADC TMP1
4480              STA TMP1
4490              TXA
4500              ADC TMP1+1
4510              STA TMP1+1
4520              RTS
4530              ;
4540              ;
4550 SENDLINE     LDX #0
4560 SENDLINE1    LDA PLNE0,X
4570              JSR SENDABYTE
4580              INX
4590              CPX #200     ; 5*40
4600              BCC SENDLINE1
4610              RTS
4620              ;
4630 SENDABYTE    PHA
4640              ;
4650 WAITRASTER   LDA 53265
4660              BMI WAITRASTER
4670 WAITRASTER2  LDA 53266
4680              AND #31
4690              BNE WAITRASTER2
4700              INC 53280
4710              LDA $029E
4720              SBC $029D
4730              CMP #200
4740              BCS WAITRASTER2
4750              ;
4760              PLA
4770              PHA
4780              AND #15
4790              JSR OUTCHR
4800              PLA
4810              LSR
4820              LSR
4830              LSR
4840              LSR
4850              JSR OUTCHR
4860              LDA #0
4870              STA 53280
4880              RTS
4890              ;
4900              ;
4910 SHOWPIC      LDA #<COLOR1
4920              STA TMP1
4930              LDA #>COLOR1
4940              STA TMP1+1
4950              LDA #<C1A
4960              STA ADR
4970              LDA #>C1A
4980              STA ADR+1
4990              ;
5000              JSR MOVE
5010              ;
5020              LDA #<COLOR2
5030              STA TMP1
5040              LDA #>COLOR2
5050              STA TMP1+1
5060              LDA #<C2A
5070              STA ADR
5080              LDA #>C2A
5090              STA ADR+1
5100              ;
5110              JSR MOVE
5120              ;
5130              LDA #59
5140              STA 53265
5150              LDA #24
5160              STA 53270
5170              STA 53272
5180              LDA COLOR0
5190              STA 53281
5200              LDA #0
5210              STA 53280
5220              RTS
5230              ;
5240 MOVE         LDX #4
5250              LDY #0
5260 MOVE1        LDA (TMP1),Y
5270              STA (ADR ),Y
5280              INY
5290              BNE MOVE1
5300              INC TMP1+1
5310              INC ADR +1
5320              DEX
5330              BNE MOVE1
5340              RTS
5350              ;
5360 NORM         LDA #27
5370              STA 53265
5380              LDA #21
5390              STA 53272
5400              LDA #200
5410              STA 53270
5420              LDA #147
5430              JMP OUTCHR
5440              ;
5450              ;
5460              ;
5470 INPUT        LDX #0
5480 ILOOP1       LDA ITEXT,X
5490              BEQ INPUT1
5500              JSR OUTCHR
5510              INX
5520              BNE ILOOP1
5530              ;
5540 INPUT1       LDA #129 ; ""
5550              STA FILENAME
5560              LDX #14
5570              LDA #32
5580 ILOOP2       STA FILENAME,X
5590              DEX
5600              BNE ILOOP2
5610              ;
5620              INX
5630 ILOOP3       JSR BASIN
5640              CMP #13
5650              BEQ CHEPCH
5660              CMP #36 ; ""
5670              BEQ DIR
5680              ;
5690              STA FILENAME,X
5700              INX
5710              BNE ILOOP3
5720 CHEPCH       RTS
5730              ;
5740 DIR          JSR INIT
5750              LDA #1
5760              LDX #8
5770              LDY #0
5780              JSR 65466
5790              LDA #1
5800              LDX #<DTEXT
5810              LDY #>DTEXT
5820              JSR 65469
5830              JSR 65472
5840              ;
5850              LDA #147
5860              JSR OUTCHR
5870              LDX #1
5880              JSR CHKIN
5890              JSR BASIN
5900              JSR BASIN
5910 DIR1         JSR BASIN
5920              JSR BASIN
5930              BEQ DIREND
5940              JSR BASIN
5950              STA TMP1
5960              JSR BASIN
5970              LDX TMP1
5980              JSR $BDCD ; NUMOUT
5990              LDA #32
6000              JSR OUTCHR
6010 DIR2         JSR GET
6020              BEQ DIR3
6030              CMP #3
6040              BEQ DIREND
6050 DIRWAIT      JSR GET
6060              BEQ DIRWAIT
6070              CMP #3
6080              BEQ DIREND
6090 DIR3         JSR BASIN
6100              JSR OUTCHR
6110              BNE DIR2
6120              LDA #13
6130              JSR OUTCHR
6140              JMP DIR1
6150              ;
6160 DIREND       JSR CLRCH
6170              LDA #1
6180              JSR 65475 ; CLOSE
6190              JMP INPUT
6200              ;
6210 INIT         LDA #1
6220              LDX #8
6230              LDY #15
6240              JSR 65466
6250              LDA #1
6260              LDX #<INITEXT
6270              LDY #>INITEXT
6280              JSR 65469
6290              JSR 65472
6300              LDA #1
6310              JMP 65475
6320              ;
6330              ;
6340 MASK         DFB %11000000
6350              DFB %00110000
6360              DFB %00001100
6370              DFB %00000011
6380              ;
6390              ;
6400 TEXT1        DFB "",13
6410              DFB "",13
6420              DFB "",13
6430              DFB "",13
6440              DFB "",13
6450              DFB "",13,0
6460 ITEXT        DFB 13,"",0
6470 TEXT2        DFB 13,"",13
6480              DFB "",0
6490              ;
6500 DTEXT        DFB ""
6510 INITEXT      DFB ""
6520 RSBYTE       DFB $88,$00     ; 1200 BPS / 8 BITS / 2 STOPBITS
6530              ;
6540 CMULT        DFB 000,000,040,000
6550              DFB 080,000,120,000
6560              DFB 160,000,200,000
6570              DFB 240,000,024,001
6580              DFB 064,001,104,001
6590              DFB 144,001,184,001
6600              DFB 224,001,008,002
6610              DFB 048,002,088,002
6620              DFB 128,002,168,002
6630              DFB 208,002,248,002
6640              DFB 032,003,072,003
6650              DFB 112,003,152,003
6660              DFB 192,003
6670              ;
6680              ;
6690 FILEHEADER   DFB "",0,0,$9C,$F2
6700              DFB ""
6710              DFB "",0,0,$00,$14
6720              DFB $01,$40,$00,$C8
6730              DFB $00,$00,$00,$00
6740              DFB $05,$00,$00,$00
6750              DFB $00,$00,$0A,$0B
6760              DFB $01,$40,$00,$C8
6770              DFB "",0,0,$00,$60
6780              DFB $00,$00,$00 ;BLK
6790              DFB $F0,$F0,$F0 ;WHT
6800              DFB $F0,$00,$00 ;RED
6810              DFB $00,$F0,$F0 ;CYN
6820              DFB $F0,$00,$F0 ;PUR
6830              DFB $00,$F0,$00 ;GRN
6840              DFB $00,$00,$F0 ;BLU
6850              DFB $F0,$F0,$00 ;YEL
6860              DFB $F0,$70,$00 ;ORG
6870              DFB $70,$70,$00 ;BRN
6880              DFB $F0,$70,$70 ;LRED
6890              DFB $40,$40,$40 ;GRY1
6900              DFB $70,$70,$70 ;GRY2
6910              DFB $70,$F0,$70 ;LGRN
6920              DFB $70,$70,$F0 ;LBLU
6930              DFB $B0,$B0,$B0 ;GRY3
6940              ;
6950              DFB $00,$00,$00 ;BLK
6960              DFB $F0,$F0,$F0 ;WHT
6970              DFB $F0,$00,$00 ;RED
6980              DFB $00,$F0,$F0 ;CYN
6990              DFB $F0,$00,$F0 ;PUR
7000              DFB $00,$F0,$00 ;GRN
7010              DFB $00,$00,$F0 ;BLU
7020              DFB $F0,$F0,$00 ;YEL
7030              DFB $F0,$70,$00 ;ORG
7040              DFB $70,$70,$00 ;BRN
7050              DFB $F0,$70,$70 ;LRED
7060              DFB $40,$40,$40 ;GRY1
7070              DFB $70,$70,$70 ;GRY2
7080              DFB $70,$F0,$70 ;LGRN
7090              DFB $70,$70,$F0 ;LBLU
7100              DFB $B0,$B0,$B0 ;GRY3
7110              ;
7120              DFB "",0,0,$00,$04
7130              DFB $00,$00,$40,$00
7140              DFB "",0,0,$00,$0E
7150              DFB $00,$00,$FF,$FF
7160              DFB $00,$00,$00,$00
7170              DFB $00,$0F,$42,$3F
7180              DFB $00,$00
7190              DFB "",0,0,$9C,$40
7200              DFB 0,0,0,240,0,0,0
READY.