CHAR.SRC

FILE INFORMATION

FILENAME(S): CHAR.SRC

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-02 22:11:12

APPEARS ON: 1 disk(s)

FILE HASH

b8b55ce643e53c179223aa3be877d01da66b0dfe4b6d28dd18ea3f992d04f2e5

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
90617	CHAR.SRC	PRG	Treasure Chest - ToGuMi	12	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 20 00 10 15 17 00 00 01  3B 2A 5A 45 49 43 48 45  | .......;*ZEICHE|
00000010: 4E 53 41 54 5A 20 41 45  4E 44 45 52 4E AA 10 01  |NSATZ AENDERN...|
00000020: 3B 4E 55 52 20 47 52 4F  53 53 2F 4B 4C 45 49 CE  |;NUR GROSS/KLEI.|
00000030: 20 01 BB 30 01 50 4F 53  20 20 20 20 20 20 2E 44  | ..0.POS      .D|
00000040: 45 20 24 44 30 31 B8 40  01 42 45 52 45 49 43 48  |E $D01.@.BEREICH|
00000050: 20 20 2E 44 45 20 24 44  44 30 B0 50 01 56 49 44  |  .DE $DD0.P.VID|
00000060: 45 4F 50 4F 53 20 2E 44  45 20 24 30 32 38 B8 60  |EOPOS .DE $028.`|
00000070: 01 49 4E 49 54 52 4F 55  54 20 2E 44 45 20 24 45  |.INITROUT .DE $E|
00000080: 35 34 B4 70 01 BB 80 01  43 48 41 52 41 4C 54 20  |54.p....CHARALT |
00000090: 2E 44 45 20 24 44 38 30  B0 90 01 43 48 41 52 4E  |.DE $D80...CHARN|
000000A0: 45 55 20 2E 44 45 20 24  46 38 30 B0 00 02 BB 10  |EU .DE $F80.....|
000000B0: 02 49 4E 44 49 5A 20 20  20 2E 44 45 20 24 46 C2  |.INDIZ   .DE $F.|
000000C0: 20 02 49 4E 44 49 5A 31  20 20 2E 44 45 20 24 46  | .INDIZ1  .DE $F|
000000D0: C4 25 02 43 4F 55 4E 54  20 20 20 2E 44 45 20 24  |.%.COUNT   .DE $|
000000E0: 41 B7 30 02 BB 40 02 20  2E 42 41 20 24 43 46 32  |A.0..@. .BA $CF2|
000000F0: C6 50 02 20 2E 4F D3 60  02 BB 70 02 3B 2A 4B 4F  |.P. .O.`..p.;*KO|
00000100: 50 49 45 52 45 4E AA 80  02 20 4C 44 41 20 23 4C  |PIEREN... LDA #L|
00000110: 2C 43 48 41 52 41 4C D4  00 03 20 53 54 41 20 49  |,CHARAL... STA I|
00000120: 4E 44 49 DA 05 03 20 53  54 41 20 49 4E 44 49 5A  |NDI... STA INDIZ|
00000130: B1 07 03 20 4C 44 58 20  23 48 2C 43 48 41 52 41  |... LDX #H,CHARA|
00000140: 4C D4 10 03 20 53 54 58  20 49 4E 44 49 5A 2B B1  |L... STX INDIZ+.|
00000150: 30 03 20 4C 44 58 20 23  48 2C 43 48 41 52 4E 45  |0. LDX #H,CHARNE|
00000160: D5 50 03 20 53 54 58 20  49 4E 44 49 5A 31 2B B1  |.P. STX INDIZ1+.|
00000170: 60 03 BB 70 03 20 53 45  C9 80 03 20 4C 44 41 20  |`..p. SE... LDA |
00000180: 24 30 B1 90 03 20 41 4E  44 20 23 24 46 C2 00 04  |$0... AND #$F...|
00000190: 20 53 54 41 20 24 30 B1  10 04 BB 20 04 20 4C 44  | STA $0.... . LD|
000001A0: 58 20 23 B8 30 04 20 4C  44 59 20 23 B0 40 04 54  |X #.0. LDY #.@.T|
000001B0: 52 41 4E 53 20 4C 44 41  20 28 49 4E 44 49 5A 29  |RANS LDA (INDIZ)|
000001C0: 2C D9 50 04 20 53 54 41  20 28 49 4E 44 49 5A 31  |,.P. STA (INDIZ1|
000001D0: 29 2C D9 60 04 20 44 45  D9 70 04 20 42 4E 45 20  |),.`. DE.p. BNE |
000001E0: 54 52 41 4E D3 80 04 20  49 4E 43 20 49 4E 44 49  |TRAN... INC INDI|
000001F0: 5A 2B B1 90 04 20 49 4E  43 20 49 4E 44 49 5A 31  |Z+... INC INDIZ1|
00000200: 2B B1 00 05 20 44 45 D8  10 05 20 42 4E 45 20 54  |+... DE... BNE T|
00000210: 52 41 4E D3 20 05 BB 30  05 20 4C 44 41 20 24 30  |RAN. ..0. LDA $0|
00000220: B1 40 05 20 4F 52 41 20  23 24 30 B4 50 05 20 53  |.@. ORA #$0.P. S|
00000230: 54 41 20 24 30 B1 60 05  20 43 4C C9 70 05 BB 80  |TA $0.`. CL.p...|
00000240: 05 3B 2A 49 4E 49 54 49  41 4C 49 53 49 45 52 45  |.;*INITIALISIERE|
00000250: 4E AA 90 05 20 4C 44 41  20 23 24 30 43 20 20 20  |N... LDA #$0C   |
00000260: 20 20 20 3B 43 48 41 52  4F 46 46 53 2E 3A 24 33  |   ;CHAROFFS.:$3|
00000270: 38 30 B0 00 06 20 53 54  41 20 50 4F 53 20 20 20  |80... STA POS   |
00000280: 20 20 20 20 3B 56 49 44  45 4F 4F 46 46 53 2E 3A  |    ;VIDEOOFFS.:|
00000290: 24 30 30 30 B0 10 06 20  4C 44 41 20 42 45 52 45  |$000... LDA BERE|
000002A0: 49 43 48 20 20 20 3B 4E  45 55 45 52 20 31 36 4B  |ICH   ;NEUER 16K|
000002B0: 2D 42 45 52 45 49 43 C8  20 06 20 41 4E 44 20 23  |-BEREIC. . AND #|
000002C0: 24 46 43 20 20 20 20 20  20 3B 41 42 20 24 43 30  |$FC      ;AB $C0|
000002D0: 30 B0 30 06 20 53 54 41  20 42 45 52 45 49 43 C8  |0.0. STA BEREIC.|
000002E0: 40 06 20 4C 44 41 20 23  24 43 30 20 20 20 20 20  |@. LDA #$C0     |
000002F0: 20 3B 56 49 44 45 52 41  4D 20 41 42 20 42 45 47  | ;VIDERAM AB BEG|
00000300: 49 4E CE 50 06 20 53 54  41 20 56 49 44 45 4F 50  |IN.P. STA VIDEOP|
00000310: 4F 53 20 20 3B 4E 45 55  45 52 20 31 36 4B 2D 42  |OS  ;NEUER 16K-B|
00000320: 45 52 45 49 43 C8 60 06  20 4A 53 52 20 49 4E 49  |EREIC.`. JSR INI|
00000330: 54 52 4F 55 D4 70 06 BB  80 06 3B 2A 5A 45 49 43  |TROU.p....;*ZEIC|
00000340: 48 45 4E 53 41 54 5A 20  41 45 4E 44 45 52 4E AA  |HENSATZ AENDERN.|
00000350: 90 06 20 4C 44 58 20 23  B0 00 07 20 4C 44 59 20  |.. LDX #... LDY |
00000360: 23 B0 10 07 20 53 54 59  20 43 4F 55 4E D4 15 07  |#... STY COUN...|
00000370: BB 20 07 43 4F 50 59 31  20 4C 44 41 20 43 48 41  |. .COPY1 LDA CHA|
00000380: 52 41 44 52 2C D9 30 07  20 53 54 41 20 49 4E 44  |RADR,.0. STA IND|
00000390: 49 DA 35 07 20 53 54 41  20 49 4E 44 49 5A B1 40  |I.5. STA INDIZ.@|
000003A0: 07 20 4C 44 41 20 43 48  41 52 41 44 52 2B 31 2C  |. LDA CHARADR+1,|
000003B0: D9 50 07 20 53 54 41 20  49 4E 44 49 5A 2B B1 52  |.P. STA INDIZ+.R|
000003C0: 07 20 43 4C C3 54 07 20  41 44 43 20 23 24 30 B4  |. CL.T. ADC #$0.|
000003D0: 56 07 20 53 54 41 20 49  4E 44 49 5A 31 2B B1 60  |V. STA INDIZ1+.`|
000003E0: 07 BB 70 07 20 4C 44 59  20 23 B0 80 07 43 4F 50  |..p. LDY #...COP|
000003F0: 59 20 4C 44 41 20 43 48  41 52 53 2C D8 90 07 20  |Y LDA CHARS,... |
00000400: 53 54 41 20 28 49 4E 44  49 5A 29 2C D9 92 07 20  |STA (INDIZ),... |
00000410: 45 4F 52 20 23 24 46 C6  94 07 20 53 54 41 20 28  |EOR #$F... STA (|
00000420: 49 4E 44 49 5A 31 29 2C  D9 00 08 20 49 4E D8 10  |INDIZ1),... IN..|
00000430: 08 20 49 4E D9 20 08 20  43 50 59 20 23 B8 25 08  |. IN. . CPY #.%.|
00000440: 20 42 4E 45 20 43 4F 50  D9 30 08 BB 40 08 20 4C  | BNE COP.0..@. L|
00000450: 44 59 20 43 4F 55 4E D4  50 08 20 49 4E D9 60 08  |DY COUN.P. IN.`.|
00000460: 20 49 4E D9 70 08 20 53  54 59 20 43 4F 55 4E D4  | IN.p. STY COUN.|
00000470: 80 08 20 43 50 59 20 23  31 B8 90 08 20 42 4E 45  |.. CPY #1... BNE|
00000480: 20 43 4F 50 59 B1 00 09  20 52 54 D3 10 09 BB 20  | COPY... RT.... |
00000490: 09 BB 30 09 43 48 41 52  41 44 D2 40 09 20 2E 53  |..0.CHARAD.@. .S|
000004A0: 45 20 43 48 41 52 4E 45  55 20 20 20 20 20 20 20  |E CHARNEU       |
000004B0: 20 20 3B 55 C5 50 09 20  2E 53 45 20 43 48 41 52  |  ;U.P. .SE CHAR|
000004C0: 4E 45 55 2B 24 44 38 20  20 20 20 20 3B 4F C5 60  |NEU+$D8     ;O.`|
000004D0: 09 20 2E 53 45 20 43 48  41 52 4E 45 55 2B 24 45  |. .SE CHARNEU+$E|
000004E0: 30 20 20 20 20 20 3B 45  53 5A 45 D4 70 09 20 2E  |0     ;ESZE.p. .|
000004F0: 53 45 20 43 48 41 52 4E  45 55 2B 24 45 38 20 20  |SE CHARNEU+$E8  |
00000500: 20 20 20 3B 41 C5 80 09  20 2E 53 45 20 43 48 41  |   ;A... .SE CHA|
00000510: 52 4E 45 55 2B 24 30 31  44 30 20 20 20 3B 4F C5  |RNEU+$01D0   ;O.|
00000520: 90 09 20 2E 53 45 20 43  48 41 52 4E 45 55 2B 24  |.. .SE CHARNEU+$|
00000530: 30 31 44 38 20 20 20 3B  41 C5 00 10 20 2E 53 45  |01D8   ;A... .SE|
00000540: 20 43 48 41 52 4E 45 55  2B 24 30 31 45 30 20 20  | CHARNEU+$01E0  |
00000550: 20 3B BB 10 10 20 2E 53  45 20 43 48 41 52 4E 45  | ;... .SE CHARNE|
00000560: 55 2B 24 30 31 46 30 20  20 20 3B BA 20 10 20 2E  |U+$01F0   ;. . .|
00000570: 53 45 20 43 48 41 52 4E  45 55 2B 24 30 33 44 30  |SE CHARNEU+$03D0|
00000580: 20 20 20 3B 55 C5 30 10  BB 40 10 43 48 41 52 D3  |   ;U.0..@.CHAR.|
00000590: 50 10 20 2E 42 59 20 24  30 30 20 24 36 36 20 24  |P. .BY $00 $66 $|
000005A0: 30 30 20 24 36 36 20 24  36 36 20 24 36 36 20 24  |00 $66 $66 $66 $|
000005B0: 33 43 20 24 30 30 20 20  3B 55 C5 60 10 20 2E 62  |3C $00  ;U.`. .b|
000005C0: 79 20 24 36 36 20 24 33  63 20 24 36 36 20 24 36  |y $66 $3c $66 $6|
000005D0: 36 20 24 36 36 20 24 36  36 20 24 33 63 20 24 30  |6 $66 $66 $3c $0|
000005E0: 30 20 20 3B 6F E5 70 10  20 2E 62 79 20 24 33 38  |0  ;o.p. .by $38|
000005F0: 20 24 36 63 20 24 36 63  20 24 37 63 20 24 36 36  | $6c $6c $7c $66|
00000600: 20 24 36 36 20 24 37 63  20 24 36 30 20 20 3B 65  | $66 $7c $60  ;e|
00000610: 73 7A 65 F4 80 10 20 2E  62 79 20 24 64 62 20 24  |sze... .by $db $|
00000620: 33 63 20 24 36 36 20 24  37 65 20 24 36 36 20 24  |3c $66 $7e $66 $|
00000630: 36 36 20 24 36 36 20 24  30 30 20 20 3B 41 E5 90  |66 $66 $00  ;A..|
00000640: 10 20 2E 62 79 20 24 30  30 20 24 36 36 20 24 30  |. .by $00 $66 $0|
00000650: 30 20 24 33 63 20 24 36  36 20 24 36 36 20 24 33  |0 $3c $66 $66 $3|
00000660: 63 20 24 30 30 20 20 3B  6F 65 BB 00 11 20 2E 62  |c $00  ;oe... .b|
00000670: 79 20 24 30 30 20 24 36  36 20 24 33 63 20 24 30  |y $00 $66 $3c $0|
00000680: 36 20 24 33 65 20 24 36  36 20 24 33 65 20 24 30  |6 $3e $66 $3e $0|
00000690: 30 20 20 3B 61 E5 10 11  20 2E 62 79 20 24 30 30  |0  ;a... .by $00|
000006A0: 20 24 30 30 20 24 31 38  20 24 30 30 20 24 30 30  | $00 $18 $00 $00|
000006B0: 20 24 31 38 20 24 31 38  20 24 33 30 20 20 3B BB  | $18 $18 $30  ;.|
000006C0: 20 11 20 2E 62 79 20 24  30 30 20 24 30 30 20 24  | . .by $00 $00 $|
000006D0: 31 38 20 24 30 30 20 24  30 30 20 24 31 38 20 24  |18 $00 $00 $18 $|
000006E0: 30 30 20 24 30 30 20 20  3B BA 30 11 20 2E 62 79  |00 $00  ;.0. .by|
000006F0: 20 24 36 36 20 24 30 30  20 24 36 36 20 24 36 36  | $66 $00 $66 $66|
00000700: 20 24 36 36 20 24 36 36  20 24 33 63 20 24 30 30  | $66 $66 $3c $00|
00000710: 20 20 3B 55 E5 00 20 20  2E 45 CE 33              |  ;U..  .E.3    |

 .......;*ZEICHENSATZ AENDERN...;NUR GRO
SS/KLEIN ..0.POS      .DE $D01.@.BEREICH
  .DE $DD0.P.VIDEOPOS .DE $028.`.INITROU
T .DE $E54.P....CHARALT .DE $D80...CHARN
EU .DE $F80......INDIZ   .DE $FB .INDIZ1
  .DE $FD%.COUNT   .DE $A.0..@. .BA $CF2
FP. .OS`..P.;*KOPIEREN... LDA #L,CHARALT
.. STA INDIZ.. STA INDIZ... LDX #H,CHARA
LT.. STX INDIZ+.0. LDX #H,CHARNEUP. STX 
INDIZ1+.`..P. SEI.. LDA $0... AND #$FB..
 STA $0.... . LDX #.0. LDY #.@.TRANS LDA
 (INDIZ),YP. STA (INDIZ1),Y`. DEYP. BNE 
TRANS.. INC INDIZ+... INC INDIZ1+... DEX
.. BNE TRANS ..0. LDA $0.@. ORA #$0.P. S
TA $0.`. CLIP....;*INITIALISIEREN... LDA
 #$0C      ;CHAROFFS.:$380... STA POS   
    ;VIDEOOFFS.:$000... LDA BEREICH   ;N
EUER 16K-BEREICH . AND #$FC      ;AB $C0
0.0. STA BEREICH@. LDA #$C0      ;VIDERA
M AB BEGINNP. STA VIDEOPOS  ;NEUER 16K-B
EREICH`. JSR INITROUTP....;*ZEICHENSATZ 
AENDERN... LDX #... LDY #... STY COUNT..
. .COPY1 LDA CHARADR,Y0. STA INDIZ5. STA
 INDIZ.@. LDA CHARADR+1,YP. STA INDIZ+.R
. CLCT. ADC #$0.V. STA INDIZ1+.`..P. LDY
 #...COPY LDA CHARS,X.. STA (INDIZ),Y.. 
EOR #$FF.. STA (INDIZ1),Y.. INX.. INY . 
CPY #.%. BNE COPY0..@. LDY COUNTP. INY`.
 INYP. STY COUNT.. CPY #1... BNE COPY...
 RTS... ..0.CHARADR@. .SE CHARNEU       
  ;UEP. .SE CHARNEU+$D8     ;OE`. .SE CH
ARNEU+$E0     ;ESZETP. .SE CHARNEU+$E8  
   ;AE.. .SE CHARNEU+$01D0   ;OE.. .SE C
HARNEU+$01D8   ;AE.. .SE CHARNEU+$01E0  
 ;... .SE CHARNEU+$01F0   ;. . .SE CHARN
EU+$03D0   ;UE0..@.CHARSP. .BY $00 $66 $
00 $66 $66 $66 $3C $00  ;UE`. .BY $66 $3
C $66 $66 $66 $66 $3C $00  ;O.P. .BY $38
 $6C $6C $7C $66 $66 $7C $60  ;ESZE... .
BY $DB $3C $66 $7E $66 $66 $66 $00  ;A..
. .BY $00 $66 $00 $3C $66 $66 $3C $00  ;
OE... .BY $00 $66 $3C $06 $3E $66 $3E $0
0  ;A... .BY $00 $00 $18 $00 $00 $18 $18
 $30  ;. . .BY $00 $00 $18 $00 $00 $18 $
00 $00  ;.0. .BY $66 $00 $66 $66 $66 $66
 $3C $00  ;U..  .EN3

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL