00000000: 07 0F 28 E8 03 00 3B 44 49 45 53 45 53 20 46 4C |..(...;DIESES FL|
00000010: 4F 50 50 59 2D 50 52 4F 47 52 41 4D 4D 20 4B 4F |OPPY-PROGRAMM KO|
00000020: 50 49 45 52 54 20 44 49 45 00 25 F2 03 00 3B 53 |PIERT DIE.%...;S|
00000030: 50 55 52 20 32 31 20 44 45 52 20 47 45 4F 53 36 |PUR 21 DER GEOS6|
00000040: 34 2D 42 4F 4F 54 44 49 53 4B 45 54 54 45 00 2A |4-BOOTDISKETTE.*|
00000050: FC 03 00 3B 41 55 46 20 44 49 45 20 53 50 55 52 |...;AUF DIE SPUR|
00000060: 45 4E 20 33 34 20 55 4E 44 20 33 35 20 55 4D 2C |EN 34 UND 35 UM,|
00000070: 20 56 45 52 41 45 4E 2D 00 2B 06 04 00 3B 44 45 | VERAEN-.+...;DE|
00000080: 52 54 20 44 49 45 20 42 41 4D 20 45 4E 54 53 50 |RT DIE BAM ENTSP|
00000090: 52 45 43 48 45 4E 44 2C 20 46 4F 52 4D 41 54 49 |RECHEND, FORMATI|
000000A0: 45 52 54 00 28 10 04 00 3B 44 49 45 20 53 50 55 |ERT.(...;DIE SPU|
000000B0: 52 20 32 31 20 55 4E 44 20 4D 41 43 48 54 20 44 |R 21 UND MACHT D|
000000C0: 49 45 20 44 49 53 4B 45 54 54 45 00 10 1A 04 00 |IE DISKETTE.....|
000000D0: 3B 4B 4F 50 49 45 52 42 41 52 2E 00 06 2E 04 00 |;KOPIERBAR......|
000000E0: 3B 00 18 38 04 00 2A 20 3D 20 20 20 24 30 33 30 |;..8..* = $030|
000000F0: 30 20 3B 42 45 47 49 4E 4E 00 15 42 04 09 2E 4F |0 ;BEGINN..B...O|
00000100: 55 54 20 22 47 45 36 34 31 2E 4F 42 4A 22 00 13 |UT "GE641.OBJ"..|
00000110: 4C 04 00 53 54 41 52 54 20 4C 44 58 20 23 24 31 |L..START LDX #$1|
00000120: 32 00 0D 56 04 01 4C 44 59 20 23 24 30 30 00 0D |2..V..LDY #$00..|
00000130: 60 04 01 4C 44 41 20 23 24 38 30 00 0C 6A 04 01 |`..LDA #$80..j..|
00000140: 4A 53 52 20 55 50 31 00 0D 74 04 01 4C 44 41 20 |JSR UP1..t..LDA |
00000150: 23 24 34 32 00 0E 7E 04 01 43 4D 50 20 24 30 36 |#$42..~..CMP $06|
00000160: 42 44 00 0E 88 04 01 42 4E 45 20 46 41 49 4C 31 |BD.....BNE FAIL1|
00000170: 00 0D 92 04 01 4C 44 41 20 23 24 38 30 00 0E 9C |.....LDA #$80...|
00000180: 04 01 43 4D 50 20 24 30 36 42 45 00 0F A6 04 01 |..CMP $06BE.....|
00000190: 42 45 51 20 4F 4B 44 49 53 4B 00 16 CE 04 00 46 |BEQ OKDISK.....F|
000001A0: 41 49 4C 31 20 20 20 20 4C 44 41 20 23 24 34 44 |AIL1 LDA #$4D|
000001B0: 00 0E D8 04 01 43 4D 50 20 24 30 36 42 45 00 0E |.....CMP $06BE..|
000001C0: E2 04 01 42 4E 45 20 45 52 52 4F 52 00 0D EC 04 |...BNE ERROR....|
000001D0: 09 4A 4D 50 20 46 4F 52 4D 00 14 F6 04 00 4F 4B |.JMP FORM.....OK|
000001E0: 44 49 53 4B 20 4C 44 58 20 23 24 30 30 00 16 00 |DISK LDX #$00...|
000001F0: 05 00 4C 4F 4F 50 20 4C 44 41 20 53 45 43 54 41 |..LOOP LDA SECTA|
00000200: 42 2C 58 00 0F 0A 05 01 42 45 51 20 45 4E 44 43 |B,X.....BEQ ENDC|
00000210: 50 59 00 0C 14 05 01 53 54 41 20 24 30 43 00 13 |PY.....STA $0C..|
00000220: 1E 05 01 4C 44 59 20 53 45 43 54 41 42 2B 31 2C |...LDY SECTAB+1,|
00000230: 58 00 0D 28 05 01 4C 44 41 20 23 24 38 30 00 0C |X..(..LDA #$80..|
00000240: 32 05 01 4A 53 52 20 55 50 32 00 13 3C 05 01 4C |2..JSR UP2..<..L|
00000250: 44 41 20 53 45 43 54 41 42 2B 32 2C 58 00 0E 46 |DA SECTAB+2,X..F|
00000260: 05 01 53 54 41 20 24 30 36 30 30 00 13 50 05 01 |..STA $0600..P..|
00000270: 4C 44 41 20 53 45 43 54 41 42 2B 33 2C 58 00 0E |LDA SECTAB+3,X..|
00000280: 5A 05 01 53 54 41 20 24 30 36 30 31 00 13 64 05 |Z..STA $0601..d.|
00000290: 01 4C 44 41 20 53 45 43 54 41 42 2B 34 2C 58 00 |.LDA SECTAB+4,X.|
000002A0: 0C 6E 05 01 53 54 41 20 24 30 43 00 13 78 05 01 |.n..STA $0C..x..|
000002B0: 4C 44 59 20 53 45 43 54 41 42 2B 35 2C 58 00 0D |LDY SECTAB+5,X..|
000002C0: 82 05 01 4C 44 41 20 23 24 39 30 00 0C 8C 05 01 |...LDA #$90.....|
000002D0: 4A 53 52 20 55 50 32 00 08 96 05 01 49 4E 58 00 |JSR UP2.....INX.|
000002E0: 08 A0 05 01 49 4E 58 00 08 AA 05 01 49 4E 58 00 |....INX.....INX.|
000002F0: 08 B4 05 01 49 4E 58 00 08 BE 05 01 49 4E 58 00 |....INX.....INX.|
00000300: 08 C8 05 01 49 4E 58 00 0D D2 05 01 42 4E 45 20 |....INX.....BNE |
00000310: 4C 4F 4F 50 00 13 DC 05 00 45 52 52 4F 52 20 4C |LOOP.....ERROR L|
00000320: 44 41 20 23 24 46 46 00 0F E6 05 01 53 54 41 20 |DA #$FF.....STA |
00000330: 45 52 52 4F 52 46 00 08 F0 05 09 52 54 53 00 14 |ERRORF.....RTS..|
00000340: FA 05 00 45 4E 44 43 50 59 20 4C 44 58 20 23 24 |...ENDCPY LDX #$|
00000350: 31 32 00 0D 04 06 01 4C 44 59 20 23 24 30 30 00 |12.....LDY #$00.|
00000360: 0D 0E 06 01 4C 44 41 20 23 24 38 30 00 0C 18 06 |....LDA #$80....|
00000370: 01 4A 53 52 20 55 50 31 00 0D 22 06 01 4C 44 41 |.JSR UP1.."..LDA|
00000380: 20 23 24 30 30 00 0E 2C 06 09 53 54 41 20 24 30 | #$00..,..STA $0|
00000390: 36 38 34 00 0E 36 06 09 53 54 41 20 24 30 36 38 |684..6..STA $068|
000003A0: 35 00 0E 40 06 09 53 54 41 20 24 30 36 38 36 00 |5..@..STA $0686.|
000003B0: 0E 4A 06 09 53 54 41 20 24 30 36 38 37 00 0E 54 |.J..STA $0687..T|
000003C0: 06 09 53 54 41 20 24 30 36 38 38 00 0E 5E 06 09 |..STA $0688..^..|
000003D0: 53 54 41 20 24 30 36 38 39 00 0E 68 06 09 53 54 |STA $0689..h..ST|
000003E0: 41 20 24 30 36 38 41 00 0E 72 06 09 53 54 41 20 |A $068A..r..STA |
000003F0: 24 30 36 38 42 00 0D 7C 06 09 4C 44 41 20 23 24 |$068B..|..LDA #$|
00000400: 30 42 00 0E 86 06 09 53 54 41 20 24 30 36 38 43 |0B.....STA $068C|
00000410: 00 0D 90 06 09 4C 44 41 20 23 24 43 37 00 0E 9A |.....LDA #$C7...|
00000420: 06 09 53 54 41 20 24 30 36 38 44 00 0D A4 06 09 |..STA $068D.....|
00000430: 4C 44 41 20 23 24 38 46 00 0E AE 06 09 53 54 41 |LDA #$8F.....STA|
00000440: 20 24 30 36 38 45 00 0D B8 06 09 4C 44 41 20 23 | $068E.....LDA #|
00000450: 24 30 31 00 0E C2 06 09 53 54 41 20 24 30 36 38 |$01.....STA $068|
00000460: 46 00 0D E0 06 09 4C 44 41 20 23 24 34 44 00 0E |F.....LDA #$4D..|
00000470: EA 06 09 53 54 41 20 24 30 36 42 45 00 0D F4 06 |...STA $06BE....|
00000480: 09 4C 44 58 20 23 24 31 32 00 0D FE 06 09 4C 44 |.LDX #$12.....LD|
00000490: 59 20 23 24 30 30 00 0D 08 07 09 4C 44 41 20 23 |Y #$00.....LDA #|
000004A0: 24 39 30 00 0C 12 07 09 4A 53 52 20 55 50 31 00 |$90.....JSR UP1.|
000004B0: 11 1C 07 00 46 4F 52 4D 20 20 20 20 20 52 54 53 |....FORM RTS|
000004C0: 00 10 26 07 00 55 50 31 20 53 54 58 20 24 30 43 |..&..UP1 STX $0C|
000004D0: 00 10 30 07 00 55 50 32 20 53 54 59 20 24 30 44 |..0..UP2 STY $0D|
000004E0: 00 08 3A 07 04 53 45 49 00 0C 44 07 04 53 54 41 |..:..SEI..D..STA|
000004F0: 20 24 30 33 00 0E 4E 07 04 4C 44 41 20 24 31 43 | $03..N..LDA $1C|
00000500: 30 30 00 0D 58 07 01 4F 52 41 20 23 24 30 38 00 |00..X..ORA #$08.|
00000510: 0E 62 07 01 53 54 41 20 24 31 43 30 30 00 08 6C |.b..STA $1C00..l|
00000520: 07 01 43 4C 49 00 11 76 07 00 57 41 49 54 20 4C |..CLI..v..WAIT L|
00000530: 44 41 20 24 30 33 00 0D 80 07 01 42 4D 49 20 57 |DA $03.....BMI W|
00000540: 41 49 54 00 0E 8A 07 01 4C 44 41 20 24 31 43 30 |AIT.....LDA $1C0|
00000550: 30 00 0D 94 07 01 41 4E 44 20 23 24 46 37 00 0E |0.....AND #$F7..|
00000560: 9E 07 01 53 54 41 20 24 31 43 30 30 00 08 A8 07 |...STA $1C00....|
00000570: 01 52 54 53 00 2A B2 07 00 53 45 43 54 41 42 20 |.RTS.*...SECTAB |
00000580: 20 20 2E 42 59 54 20 24 31 34 20 24 30 41 20 24 | .BYT $14 $0A $|
00000590: 32 31 20 24 30 45 20 24 31 34 20 24 30 41 00 21 |21 $0E $14 $0A.!|
000005A0: BC 07 09 2E 42 59 54 20 24 31 35 20 24 30 45 20 |....BYT $15 $0E |
000005B0: 24 32 31 20 24 30 38 20 24 32 31 20 24 30 45 00 |$21 $08 $21 $0E.|
000005C0: 21 C6 07 09 2E 42 59 54 20 24 31 35 20 24 30 33 |!....BYT $15 $03|
000005D0: 20 24 32 31 20 24 30 31 20 24 32 31 20 24 30 38 | $21 $01 $21 $08|
000005E0: 00 21 D0 07 09 2E 42 59 54 20 24 31 35 20 24 30 |.!....BYT $15 $0|
000005F0: 42 20 24 32 31 20 24 30 42 20 24 32 31 20 24 30 |B $21 $0B $21 $0|
00000600: 31 00 21 DA 07 09 2E 42 59 54 20 24 31 35 20 24 |1.!....BYT $15 $|
00000610: 30 30 20 24 32 31 20 24 30 34 20 24 32 31 20 24 |00 $21 $04 $21 $|
00000620: 30 42 00 21 E4 07 09 2E 42 59 54 20 24 31 35 20 |0B.!....BYT $15 |
00000630: 24 30 38 20 24 32 32 20 24 31 30 20 24 32 31 20 |$08 $22 $10 $21 |
00000640: 24 30 34 00 21 EE 07 09 2E 42 59 54 20 24 31 35 |$04.!....BYT $15|
00000650: 20 24 31 30 20 24 32 32 20 24 30 39 20 24 32 32 | $10 $22 $09 $22|
00000660: 20 24 31 30 00 21 F8 07 09 2E 42 59 54 20 24 31 | $10.!....BYT $1|
00000670: 35 20 24 30 35 20 24 32 32 20 24 30 32 20 24 32 |5 $05 $22 $02 $2|
00000680: 32 20 24 30 39 00 21 02 08 09 2E 42 59 54 20 24 |2 $09.!....BYT $|
00000690: 31 35 20 24 30 44 20 24 32 32 20 24 30 43 20 24 |15 $0D $22 $0C $|
000006A0: 32 32 20 24 30 32 00 21 0C 08 09 2E 42 59 54 20 |22 $02.!....BYT |
000006B0: 24 31 35 20 24 30 32 20 24 32 32 20 24 30 33 20 |$15 $02 $22 $03 |
000006C0: 24 32 32 20 24 30 43 00 21 16 08 09 2E 42 59 54 |$22 $0C.!....BYT|
000006D0: 20 24 31 35 20 24 30 41 20 24 32 32 20 24 30 44 | $15 $0A $22 $0D|
000006E0: 20 24 32 32 20 24 30 33 00 21 20 08 09 2E 42 59 | $22 $03.! ...BY|
000006F0: 54 20 24 31 35 20 24 31 32 20 24 32 32 20 24 30 |T $15 $12 $22 $0|
00000700: 35 20 24 32 32 20 24 30 44 00 21 2A 08 09 2E 42 |5 $22 $0D.!*...B|
00000710: 59 54 20 24 31 35 20 24 30 37 20 24 32 32 20 24 |YT $15 $07 $22 $|
00000720: 30 36 20 24 32 32 20 24 30 35 00 21 34 08 09 2E |06 $22 $05.!4...|
00000730: 42 59 54 20 24 31 35 20 24 30 46 20 24 32 33 20 |BYT $15 $0F $23 |
00000740: 24 30 45 20 24 32 32 20 24 30 36 00 21 3E 08 09 |$0E $22 $06.!>..|
00000750: 2E 42 59 54 20 24 31 35 20 24 30 34 20 24 32 33 |.BYT $15 $04 $23|
00000760: 20 24 30 35 20 24 32 33 20 24 30 45 00 21 48 08 | $05 $23 $0E.!H.|
00000770: 09 2E 42 59 54 20 24 31 35 20 24 30 43 20 24 32 |..BYT $15 $0C $2|
00000780: 33 20 24 30 44 20 24 32 33 20 24 30 35 00 21 52 |3 $0D $23 $05.!R|
00000790: 08 09 2E 42 59 54 20 24 31 35 20 24 30 31 20 24 |...BYT $15 $01 $|
000007A0: 32 33 20 24 30 34 20 24 32 33 20 24 30 44 00 21 |23 $04 $23 $0D.!|
000007B0: 5C 08 09 2E 42 59 54 20 24 31 35 20 24 30 39 20 |\...BYT $15 $09 |
000007C0: 24 32 33 20 24 30 43 20 24 32 33 20 24 30 34 00 |$23 $0C $23 $04.|
000007D0: 21 66 08 09 2E 42 59 54 20 24 31 35 20 24 31 31 |!f...BYT $15 $11|
000007E0: 20 24 32 33 20 24 30 33 20 24 32 33 20 24 30 43 | $23 $03 $23 $0C|
000007F0: 00 21 70 08 09 2E 42 59 54 20 24 31 35 20 24 30 |.!p...BYT $15 $0|
00000800: 36 20 24 31 36 20 24 30 45 20 24 32 33 20 24 30 |6 $16 $0E $23 $0|
00000810: 33 00 0D 7A 08 09 2E 42 59 54 20 24 30 30 00 09 |3..z...BYT $00..|
00000820: 84 08 01 2E 4F 55 54 00 15 8E 08 00 2A 20 20 20 |....OUT.....* |
00000830: 20 20 20 20 20 3D 20 24 30 34 45 45 00 15 98 08 | = $04EE....|
00000840: 09 2E 4F 55 54 20 22 47 45 36 34 32 2E 4F 42 4A |..OUT "GE642.OBJ|
00000850: 22 00 14 A2 08 00 46 4F 52 4D 41 54 20 4C 44 41 |".....FORMAT LDA|
00000860: 20 23 24 31 41 00 0E AC 08 01 53 54 41 20 24 31 | #$1A.....STA $1|
00000870: 43 30 35 00 0D B6 08 01 4C 44 58 20 23 24 31 35 |C05.....LDX #$15|
00000880: 00 0C C0 08 01 53 54 58 20 24 30 41 00 0D CA 08 |.....STX $0A....|
00000890: 01 4C 44 41 20 23 24 45 30 00 0C D4 08 01 53 54 |.LDA #$E0.....ST|
000008A0: 41 20 24 30 32 00 12 DE 08 00 57 41 49 54 58 20 |A $02.....WAITX |
000008B0: 4C 44 41 20 24 30 32 00 0E E8 08 01 42 4D 49 20 |LDA $02.....BMI |
000008C0: 57 41 49 54 58 00 08 F2 08 01 52 54 53 00 16 FC |WAITX.....RTS...|
000008D0: 08 00 50 55 46 46 45 52 32 20 20 4C 44 41 20 23 |..PUFFER2 LDA #|
000008E0: 24 31 33 00 0C 06 09 02 53 54 41 20 24 34 33 00 |$13.....STA $43.|
000008F0: 0D 10 09 09 4C 44 41 20 23 24 30 30 00 0C 1A 09 |....LDA #$00....|
00000900: 01 53 54 41 20 24 31 42 00 0D 24 09 01 4C 44 59 |.STA $1B..$..LDY|
00000910: 20 23 24 30 30 00 0D 2E 09 01 4C 44 58 20 23 24 | #$00.....LDX #$|
00000920: 30 30 00 11 38 09 00 4C 4F 50 41 20 4C 44 41 20 |00..8..LOPA LDA |
00000930: 24 33 39 00 10 42 09 09 53 54 41 20 24 30 33 30 |$39..B..STA $030|
00000940: 30 2C 59 00 08 4C 09 01 49 4E 59 00 08 56 09 01 |0,Y..L..INY..V..|
00000950: 49 4E 59 00 0C 60 09 01 4C 44 41 20 24 31 42 00 |INY..`..LDA $1B.|
00000960: 10 6A 09 09 53 54 41 20 24 30 33 30 30 2C 59 00 |.j..STA $0300,Y.|
00000970: 08 74 09 01 49 4E 59 00 0C 7E 09 01 4C 44 41 20 |.t..INY..~..LDA |
00000980: 24 30 41 00 10 88 09 09 53 54 41 20 24 30 33 30 |$0A.....STA $030|
00000990: 30 2C 59 00 08 92 09 01 49 4E 59 00 0C 9C 09 01 |0,Y.....INY.....|
000009A0: 4C 44 41 20 24 31 33 00 10 A6 09 09 53 54 41 20 |LDA $13.....STA |
000009B0: 24 30 33 30 30 2C 59 00 08 B0 09 01 49 4E 59 00 |$0300,Y.....INY.|
000009C0: 0C BA 09 01 4C 44 41 20 24 31 32 00 10 C4 09 09 |....LDA $12.....|
000009D0: 53 54 41 20 24 30 33 30 30 2C 59 00 08 CE 09 01 |STA $0300,Y.....|
000009E0: 49 4E 59 00 0D D8 09 01 4C 44 41 20 23 24 30 46 |INY.....LDA #$0F|
000009F0: 00 10 E2 09 09 53 54 41 20 24 30 33 30 30 2C 59 |.....STA $0300,Y|
00000A00: 00 08 EC 09 01 49 4E 59 00 10 F6 09 09 53 54 41 |.....INY.....STA|
00000A10: 20 24 30 33 30 30 2C 59 00 08 00 0A 09 49 4E 59 | $0300,Y.....INY|
00000A20: 00 0D 0A 0A 01 4C 44 41 20 23 24 30 30 00 10 14 |.....LDA #$00...|
00000A30: 0A 09 45 4F 52 20 24 30 32 46 41 2C 59 00 10 1E |..EOR $02FA,Y...|
00000A40: 0A 09 45 4F 52 20 24 30 32 46 42 2C 59 00 10 28 |..EOR $02FB,Y..(|
00000A50: 0A 09 45 4F 52 20 24 30 32 46 43 2C 59 00 10 32 |..EOR $02FC,Y..2|
00000A60: 0A 09 45 4F 52 20 24 30 32 46 44 2C 59 00 10 3C |..EOR $02FD,Y..<|
00000A70: 0A 09 53 54 41 20 24 30 32 46 39 2C 59 00 0C 46 |..STA $02F9,Y..F|
00000A80: 0A 01 49 4E 43 20 24 31 42 00 0C 50 0A 01 4C 44 |..INC $1B..P..LD|
00000A90: 41 20 24 31 42 00 0C 5A 0A 09 43 4D 50 20 24 34 |A $1B..Z..CMP $4|
00000AA0: 33 00 0D 64 0A 01 42 43 43 20 4C 4F 50 41 00 0D |3..d..BCC LOPA..|
00000AB0: 6E 0A 09 4C 44 41 20 23 24 30 33 00 0C 78 0A 01 |n..LDA #$03..x..|
00000AC0: 53 54 41 20 24 33 31 00 08 82 0A 01 54 59 41 00 |STA $31.....TYA.|
00000AD0: 08 8C 0A 01 50 48 41 00 08 96 0A 01 54 58 41 00 |....PHA.....TXA.|
00000AE0: 15 A0 0A 00 4C 4F 50 42 20 53 54 41 20 24 30 37 |....LOPB STA $07|
00000AF0: 30 30 2C 58 00 08 AA 0A 01 49 4E 58 00 0D B4 0A |00,X.....INX....|
00000B00: 01 42 4E 45 20 4C 4F 50 42 00 0E BE 0A 01 4A 53 |.BNE LOPB.....JS|
00000B10: 52 20 24 46 45 33 30 00 08 C8 0A 01 50 4C 41 00 |R $FE30.....PLA.|
00000B20: 08 D2 0A 01 54 41 59 00 08 DC 0A 01 44 45 59 00 |....TAY.....DEY.|
00000B30: 0E E6 0A 01 4A 53 52 20 24 46 44 45 35 00 0E F0 |....JSR $FDE5...|
00000B40: 0A 01 4A 53 52 20 24 46 44 46 35 00 0D FA 0A 01 |..JSR $FDF5.....|
00000B50: 4C 44 41 20 23 24 30 37 00 0C 04 0B 01 53 54 41 |LDA #$07.....STA|
00000B60: 20 24 33 31 00 0E 0E 0B 01 4A 53 52 20 24 46 35 | $31.....JSR $F5|
00000B70: 45 39 00 0C 18 0B 01 53 54 41 20 24 33 41 00 0E |E9.....STA $3A..|
00000B80: 22 0B 01 4A 53 52 20 24 46 37 38 46 00 0D 2C 0B |"..JSR $F78F..,.|
00000B90: 01 4C 44 41 20 23 24 30 30 00 0C 36 0B 01 53 54 |.LDA #$00..6..ST|
00000BA0: 41 20 24 33 32 00 0E 40 0B 01 4A 53 52 20 24 46 |A $32..@..JSR $F|
00000BB0: 45 30 45 00 16 4A 0B 00 46 4F 52 4C 4F 4F 50 20 |E0E..J..FORLOOP |
00000BC0: 20 4C 44 41 20 23 24 46 46 00 0E 54 0B 01 53 54 | LDA #$FF..T..ST|
00000BD0: 41 20 24 31 43 30 31 00 0D 5E 0B 01 4C 44 58 20 |A $1C01..^..LDX |
00000BE0: 23 24 30 35 00 14 68 0B 00 57 41 49 54 41 20 42 |#$05..h..WAITA B|
00000BF0: 56 43 20 57 41 49 54 41 00 08 72 0B 01 43 4C 56 |VC WAITA..r..CLV|
00000C00: 00 08 7C 0B 01 44 45 58 00 0E 86 0B 01 42 4E 45 |..|..DEX.....BNE|
00000C10: 20 57 41 49 54 41 00 0D 90 0B 01 4C 44 58 20 23 | WAITA.....LDX #|
00000C20: 24 30 41 00 0C 9A 0B 01 4C 44 59 20 24 33 32 00 |$0A.....LDY $32.|
00000C30: 14 A4 0B 00 57 41 49 54 42 20 42 56 43 20 57 41 |....WAITB BVC WA|
00000C40: 49 54 42 00 08 AE 0B 01 43 4C 56 00 10 B8 0B 09 |ITB.....CLV.....|
00000C50: 4C 44 41 20 24 30 33 30 30 2C 59 00 0E C2 0B 01 |LDA $0300,Y.....|
00000C60: 53 54 41 20 24 31 43 30 31 00 08 CC 0B 01 49 4E |STA $1C01.....IN|
00000C70: 59 00 08 D6 0B 01 44 45 58 00 0E E0 0B 09 42 4E |Y.....DEX.....BN|
00000C80: 45 20 57 41 49 54 42 00 0D EA 0B 01 4C 44 58 20 |E WAITB.....LDX |
00000C90: 23 24 30 39 00 14 F4 0B 00 57 41 49 54 43 20 42 |#$09.....WAITC B|
00000CA0: 56 43 20 57 41 49 54 43 00 08 FE 0B 01 43 4C 56 |VC WAITC.....CLV|
00000CB0: 00 0D 08 0C 01 4C 44 41 20 23 24 36 37 00 0E 12 |.....LDA #$67...|
00000CC0: 0C 01 53 54 41 20 24 31 43 30 31 00 08 1C 0C 01 |..STA $1C01.....|
00000CD0: 44 45 58 00 0E 26 0C 01 42 4E 45 20 57 41 49 54 |DEX..&..BNE WAIT|
00000CE0: 43 00 0D 30 0C 01 4C 44 41 20 23 24 46 46 00 0D |C..0..LDA #$FF..|
00000CF0: 3A 0C 01 4C 44 58 20 23 24 30 35 00 14 44 0C 00 |:..LDX #$05..D..|
00000D00: 57 41 49 54 44 20 42 56 43 20 57 41 49 54 44 00 |WAITD BVC WAITD.|
00000D10: 08 4E 0C 01 43 4C 56 00 0E 58 0C 01 53 54 41 20 |.N..CLV..X..STA |
00000D20: 24 31 43 30 31 00 08 62 0C 01 44 45 58 00 0E 6C |$1C01..b..DEX..l|
00000D30: 0C 01 42 4E 45 20 57 41 49 54 44 00 0D 76 0C 01 |..BNE WAITD..v..|
00000D40: 4C 44 58 20 23 24 42 42 00 14 80 0C 00 57 41 49 |LDX #$BB.....WAI|
00000D50: 54 45 20 42 56 43 20 57 41 49 54 45 00 08 8A 0C |TE BVC WAITE....|
00000D60: 01 43 4C 56 00 10 94 0C 01 4C 44 41 20 24 30 31 |.CLV.....LDA $01|
00000D70: 30 30 2C 58 00 0E 9E 0C 01 53 54 41 20 24 31 43 |00,X.....STA $1C|
00000D80: 30 31 00 08 A8 0C 01 49 4E 58 00 0E B2 0C 01 42 |01.....INX.....B|
00000D90: 4E 45 20 57 41 49 54 45 00 0D BC 0C 01 4C 44 59 |NE WAITE.....LDY|
00000DA0: 20 23 24 30 30 00 14 C6 0C 00 57 41 49 54 46 20 | #$00.....WAITF |
00000DB0: 42 56 43 20 57 41 49 54 46 00 08 D0 0C 01 43 4C |BVC WAITF.....CL|
00000DC0: 56 00 10 DA 0C 01 4C 44 41 20 28 24 33 30 29 2C |V.....LDA ($30),|
00000DD0: 59 00 0E E4 0C 01 53 54 41 20 24 31 43 30 31 00 |Y.....STA $1C01.|
00000DE0: 08 EE 0C 01 49 4E 59 00 0E F8 0C 01 42 4E 45 20 |....INY.....BNE |
00000DF0: 57 41 49 54 46 00 0D 02 0D 01 4C 44 41 20 23 24 |WAITF.....LDA #$|
00000E00: 36 37 00 0D 0C 0D 01 4C 44 58 20 23 24 30 38 00 |67.....LDX #$08.|
00000E10: 14 16 0D 00 57 41 49 54 47 20 42 56 43 20 57 41 |....WAITG BVC WA|
00000E20: 49 54 47 00 08 20 0D 01 43 4C 56 00 0E 2A 0D 01 |ITG.. ..CLV..*..|
00000E30: 53 54 41 20 24 31 43 30 31 00 08 34 0D 01 44 45 |STA $1C01..4..DE|
00000E40: 58 00 0E 3E 0D 01 42 4E 45 20 57 41 49 54 47 00 |X..>..BNE WAITG.|
00000E50: 0C 48 0D 01 4C 44 41 20 24 33 32 00 08 52 0D 01 |.H..LDA $32..R..|
00000E60: 43 4C 43 00 0D 5C 0D 01 41 44 43 20 23 24 30 41 |CLC..\..ADC #$0A|
00000E70: 00 0C 66 0D 01 53 54 41 20 24 33 32 00 0C 70 0D |..f..STA $32..p.|
00000E80: 01 44 45 43 20 24 31 42 00 10 7A 0D 01 42 4E 45 |.DEC $1B..z..BNE|
00000E90: 20 46 4F 52 4C 4F 4F 50 00 14 84 0D 00 57 41 49 | FORLOOP.....WAI|
00000EA0: 54 48 20 42 56 43 20 57 41 49 54 48 00 08 8E 0D |TH BVC WAITH....|
00000EB0: 01 43 4C 56 00 14 98 0D 00 57 41 49 54 49 20 42 |.CLV.....WAITI B|
00000EC0: 56 43 20 57 41 49 54 49 00 08 A2 0D 01 43 4C 56 |VC WAITI.....CLV|
00000ED0: 00 0E AC 0D 01 4A 53 52 20 24 46 45 30 30 00 0E |.....JSR $FE00..|
00000EE0: B6 0D 01 4A 4D 50 20 24 46 44 39 45 00 13 C0 0D |...JMP $FD9E....|
00000EF0: 00 45 52 52 4F 52 46 20 2E 42 59 54 20 24 30 00 |.ERRORF .BYT $0.|
00000F00: 09 CA 0D 01 2E 4F 55 54 00 00 |.....OUT.. |
..(...;DIESES FLOPPY-PROGRAMM KOPIERT DI
E.%...;SPUR 21 DER GEOS64-BOOTDISKETTE.*
...;AUF DIE SPUREN 34 UND 35 UM, VERAEN-
.+...;DERT DIE BAM ENTSPRECHEND, FORMATI
ERT.(...;DIE SPUR 21 UND MACHT DIE DISKE
TTE.....;KOPIERBAR......;..8..* = $030
0 ;BEGINN..B...OUT "GE641.OBJ"..L..START
LDX #$12..V..LDY #$00..`..LDA #$80..J..
JSR UP1..T..LDA #$42..~..CMP $06BD.....B
NE FAIL1.....LDA #$80.....CMP $06BE.....
BEQ OKDISK..N..FAIL1 LDA #$4D..X..CMP
$06BE.....BNE ERROR.....JMP FORM.....OK
DISK LDX #$00.....LOOP LDA SECTAB,X.....
BEQ ENDCPY.....STA $0C.....LDY SECTAB+1,
X..(..LDA #$80..2..JSR UP2..<..LDA SECTA
B+2,X..F..STA $0600..P..LDA SECTAB+3,X..
Z..STA $0601..D..LDA SECTAB+4,X..N..STA
$0C..X..LDY SECTAB+5,X.....LDA #$90.....
JSR UP2.....INX.. ..INX.....INX.....INX.
....INX..H..INX..R..BNE LOOP.....ERROR L
DA #$FF.....STA ERRORF.....RTS.....ENDCP
Y LDX #$12.....LDY #$00.....LDA #$80....
.JSR UP1.."..LDA #$00..,..STA $0684..6..
STA $0685..@..STA $0686..J..STA $0687..T
..STA $0688..^..STA $0689..H..STA $068A.
.R..STA $068B..|..LDA #$0B.....STA $068C
.....LDA #$C7.....STA $068D.....LDA #$8F
.....STA $068E.....LDA #$01..B..STA $068
F.....LDA #$4D.....STA $06BE.....LDX #$1
2.....LDY #$00.....LDA #$90.....JSR UP1.
....FORM RTS..&..UP1 STX $0C..0..UP2
STY $0D..:..SEI..D..STA $03..N..LDA $1C
00..X..ORA #$08..B..STA $1C00..L..CLI..V
..WAIT LDA $03.....BMI WAIT.....LDA $1C0
0.....AND #$F7.....STA $1C00.....RTS.*..
.SECTAB .BYT $14 $0A $21 $0E $14 $0A.!
....BYT $15 $0E $21 $08 $21 $0E.!F...BYT
$15 $03 $21 $01 $21 $08.!P...BYT $15 $0
B $21 $0B $21 $01.!Z...BYT $15 $00 $21 $
04 $21 $0B.!....BYT $15 $08 $22 $10 $21
$04.!....BYT $15 $10 $22 $09 $22 $10.!..
..BYT $15 $05 $22 $02 $22 $09.!....BYT $
15 $0D $22 $0C $22 $02.!....BYT $15 $02
$22 $03 $22 $0C.!....BYT $15 $0A $22 $0D
$22 $03.! ...BYT $15 $12 $22 $05 $22 $0
D.!*...BYT $15 $07 $22 $06 $22 $05.!4...
BYT $15 $0F $23 $0E $22 $06.!>...BYT $15
$04 $23 $05 $23 $0E.!H...BYT $15 $0C $2
3 $0D $23 $05.!R...BYT $15 $01 $23 $04 $
23 $0D.!\...BYT $15 $09 $23 $0C $23 $04.
!F...BYT $15 $11 $23 $03 $23 $0C.!P...BY
T $15 $06 $16 $0E $23 $03..Z...BYT $00..
....OUT.....* = $04EE......OUT "G
E642.OBJ".....FORMAT LDA #$1A.....STA $1
C05.....LDX #$15.....STX $0A..J..LDA #$E
0..T..STA $02.....WAITX LDA $02.....BMI
WAITX.....RTS.....PUFFER2 LDA #$13.....
STA $43.....LDA #$00.....STA $1B..$..LDY
#$00.....LDX #$00..8..LOPA LDA $39..B..
STA $0300,Y..L..INY..V..INY..`..LDA $1B.
.J..STA $0300,Y..T..INY..~..LDA $0A.....
STA $0300,Y.....INY.....LDA $13.....STA
$0300,Y.....INY.....LDA $12..D..STA $030
0,Y..N..INY..X..LDA #$0F.....STA $0300,Y
.....INY.....STA $0300,Y.....INY.....LDA
#$00.....EOR $02FA,Y.....EOR $02FB,Y..(
..EOR $02FC,Y..2..EOR $02FD,Y..<..STA $0
2F9,Y..F..INC $1B..P..LDA $1B..Z..CMP $4
3..D..BCC LOPA..N..LDA #$03..X..STA $31.
....TYA.....PHA.....TXA.. ..LOPB STA $07
00,X.....INX.....BNE LOPB.....JSR $FE30.
.H..PLA..R..TAY.....DEY.....JSR $FDE5...
..JSR $FDF5.....LDA #$07.....STA $31....
.JSR $F5E9.....STA $3A.."..JSR $F78F..,.
.LDA #$00..6..STA $32..@..JSR $FE0E..J..
FORLOOP LDA #$FF..T..STA $1C01..^..LDX
#$05..H..WAITA BVC WAITA..R..CLV..|..DEX
.....BNE WAITA.....LDX #$0A.....LDY $32.
....WAITB BVC WAITB.....CLV.....LDA $030
0,Y..B..STA $1C01..L..INY..V..DEX.....BN
E WAITB.....LDX #$09.....WAITC BVC WAITC
.....CLV.....LDA #$67.....STA $1C01.....
DEX..&..BNE WAITC..0..LDA #$FF..:..LDX #
$05..D..WAITD BVC WAITD..N..CLV..X..STA
$1C01..B..DEX..L..BNE WAITD..V..LDX #$BB
.....WAITE BVC WAITE.....CLV.....LDA $01
00,X.....STA $1C01.....INX.....BNE WAITE
.....LDY #$00..F..WAITF BVC WAITF..P..CL
V..Z..LDA ($30),Y.....STA $1C01.....INY.
....BNE WAITF.....LDA #$67.....LDX #$08.
....WAITG BVC WAITG.. ..CLV..*..STA $1C0
1..4..DEX..>..BNE WAITG..H..LDA $32..R..
CLC..\..ADC #$0A..F..STA $32..P..DEC $1B
..Z..BNE FORLOOP.....WAITH BVC WAITH....
.CLV.....WAITI BVC WAITI.....CLV.....JSR
$FE00.....JMP $FD9E.....ERRORF .BYT $0.
.J...OUT..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL