> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 4F 50 45 4E 20 31 2C 38 |..%.... OPEN 1,8|
00000010: 2C 31 2C 22 30 3A 46 4C 4F 50 50 59 20 53 52 51 |,1,"0:FLOPPY SRQ|
00000020: 2E 4F 42 4A 22 00 34 08 0C 00 8F 20 4F 50 45 4E |.OBJ".4.... OPEN|
00000030: 20 32 2C 34 00 5D 08 0D 00 9E 20 33 32 37 36 38 | 2,4.].... 32768|
00000040: 3B 20 45 49 4E 53 50 8A 47 20 46 55 45 52 20 4E |; EINSP.G FUER N|
00000050: 45 55 45 4E 20 50 52 4F 46 49 41 53 53 00 63 08 |EUEN PROFIASS.c.|
00000060: 0E 00 3B 00 84 08 0F 00 3B 20 AC AC AC AC AC AC |..;.....; ......|
00000070: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000080: AC AC AC AC 00 A5 08 10 00 3B 20 AC 20 46 4C 4F |.........; . FLO|
00000090: 50 50 59 20 53 45 52 56 49 43 45 20 52 45 51 55 |PPY SERVICE REQU|
000000A0: 45 53 54 20 AC 00 C6 08 11 00 3B 20 AC 20 20 20 |EST ......; . |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 AC 00 E6 08 12 00 3B 20 AC 20 20 | ......; . |
000000D0: 20 20 56 91 20 20 55 57 45 20 47 45 52 4C 41 43 | V. UWE GERLAC|
000000E0: 48 20 20 20 20 AC 00 07 09 13 00 3B 20 AC 20 20 |H ......; . |
000000F0: 20 54 45 4C 2E 20 20 30 36 31 35 31 AD 33 31 36 | TEL. 06151.316|
00000100: 32 30 35 20 20 20 AC 00 28 09 14 00 3B 20 AC 20 |205 ..(...; . |
00000110: 20 20 20 42 5A 57 2E 20 20 30 36 36 32 32 AD 33 | BZW. 06622.3|
00000120: 39 30 38 20 20 20 20 AC 00 49 09 15 00 3B 20 AC |908 ..I...; .|
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 AC 00 6A 09 16 00 3B 20 | ..j...; |
00000150: AC 20 20 20 20 20 20 20 20 31 33 2E 30 36 2E 38 |. 13.06.8|
00000160: 36 20 20 20 20 20 20 20 20 AC 00 8B 09 17 00 3B |6 ......;|
00000170: 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............|
00000180: AC AC AC AC AC AC AC AC AC AC AC 00 91 09 18 00 |................|
00000190: 3B 00 97 09 19 00 3B 00 BC 09 1A 00 3B 20 55 45 |;.....;.....; UE|
000001A0: 42 45 52 20 83 2D 4C 49 4E 45 20 44 45 53 20 53 |BER .-LINE DES S|
000001B0: 45 52 49 45 4C 4C 45 4E 20 42 55 53 00 D2 09 1B |ERIELLEN BUS....|
000001C0: 00 3B 20 41 4E 20 44 45 4E 20 43 4F 4D 50 55 54 |.; AN DEN COMPUT|
000001D0: 45 52 00 D8 09 1E 00 3B 00 DE 09 1F 00 3B 00 07 |ER.....;.....;..|
000001E0: 0A 64 00 2E 54 49 54 20 22 53 45 52 56 49 43 45 |.d..TIT "SERVICE|
000001F0: 20 52 45 51 55 45 53 54 20 43 36 34 20 26 20 56 | REQUEST C64 & V|
00000200: 43 31 35 34 31 20 22 00 13 0A 78 00 2E 4F 50 54 |C1541 "...x..OPT|
00000210: 20 4F 4F 00 19 0A 7D 00 3B 00 3F 0A 82 00 AC B2 | OO...}.;.?.....|
00000220: 24 30 35 30 30 3B 20 49 4D 20 55 53 45 52 50 55 |$0500; IM USERPU|
00000230: 46 46 45 52 20 44 45 52 20 46 4C 4F 50 50 59 00 |FFER DER FLOPPY.|
00000240: 45 0A 8C 00 3B 00 70 0A F4 01 53 54 41 52 54 20 |E...;.p...START |
00000250: 4C 44 41 20 24 31 43 30 30 3B 20 50 B0 54 20 42 |LDA $1C00; P.T B|
00000260: 20 44 45 53 20 44 43 20 41 42 46 52 41 47 45 4E | DES DC ABFRAGEN|
00000270: 00 9E 0A FE 01 AF 20 23 25 30 30 30 31 30 30 30 |...... #%0001000|
00000280: 30 3B 20 4C 49 43 48 54 53 43 48 52 41 4E 4B 45 |0; LICHTSCHRANKE|
00000290: 4E 42 49 54 20 49 53 4F 4C 49 45 52 45 4E 00 AA |NBIT ISOLIEREN..|
000002A0: 0A 08 02 42 45 51 20 41 55 53 00 B0 0A 12 02 3A |...BEQ AUS.....:|
000002B0: 00 D8 0A 58 02 45 49 4E 20 4C 44 41 20 24 31 43 |...X.EIN LDA $1C|
000002C0: 30 30 3B 50 B0 54 20 42 20 44 45 53 20 44 43 20 |00;P.T B DES DC |
000002D0: 41 42 46 52 41 47 45 4E 00 FA 0A 62 02 B0 41 20 |ABFRAGEN...b..A |
000002E0: 23 25 30 30 30 30 31 30 30 30 3B 20 4C 45 44 AB |#%00001000; LED.|
000002F0: 42 49 54 20 53 45 54 5A 45 4E 00 19 0B 6C 02 53 |BIT SETZEN...l.S|
00000300: 54 41 20 24 31 43 30 30 3B 20 4C 45 44 20 45 49 |TA $1C00; LED EI|
00000310: 4E 53 43 48 41 4C 54 45 4E 00 1F 0B 8A 02 3B 00 |NSCHALTEN.....;.|
00000320: 44 0B 94 02 4C 44 41 20 24 31 38 30 30 3B 20 50 |D...LDA $1800; P|
00000330: B0 54 20 42 20 44 45 53 20 42 43 20 41 42 46 52 |.T B DES BC ABFR|
00000340: 41 47 45 4E 00 69 0B 9E 02 AF 20 23 25 31 31 31 |AGEN.i.... #%111|
00000350: 31 31 31 30 31 3B 20 83 20 4F 55 54 2D 42 49 54 |11101; . OUT-BIT|
00000360: 20 4C 4F 45 53 43 48 45 4E 00 8E 0B A8 02 53 54 | LOESCHEN.....ST|
00000370: 41 20 24 31 38 30 30 3B 20 83 20 4F 55 54 20 4E |A $1800; . OUT N|
00000380: 41 43 48 20 4C 4F 57 20 5A 49 45 48 45 4E 00 9C |ACH LOW ZIEHEN..|
00000390: 0B B2 02 4A 4D 50 20 53 54 41 52 54 00 A2 0B B7 |...JMP START....|
000003A0: 02 3B 00 CA 0B BC 02 41 55 53 20 4C 44 41 20 24 |.;.....AUS LDA $|
000003B0: 31 43 30 30 3B 50 B0 54 20 42 20 44 45 53 20 44 |1C00;P.T B DES D|
000003C0: 43 20 41 42 46 52 41 47 45 4E 00 ED 0B C6 02 AF |C ABFRAGEN......|
000003D0: 20 23 25 31 31 31 31 30 31 31 31 3B 20 4C 45 44 | #%11110111; LED|
000003E0: AB 42 49 54 20 4C 4F 45 53 43 48 45 4E 00 0C 0C |.BIT LOESCHEN...|
000003F0: D0 02 53 54 41 20 24 31 43 30 30 3B 20 4C 45 44 |..STA $1C00; LED|
00000400: 20 41 55 53 53 43 48 41 4C 54 45 4E 00 12 0C EE | AUSSCHALTEN....|
00000410: 02 3B 00 37 0C F8 02 4C 44 41 20 24 31 38 30 30 |.;.7...LDA $1800|
00000420: 3B 20 50 B0 54 20 42 20 44 45 53 20 42 43 20 41 |; P.T B DES BC A|
00000430: 42 46 52 41 47 45 4E 00 5B 0C 02 03 B0 41 20 23 |BFRAGEN.[....A #|
00000440: 25 30 30 30 30 30 30 31 30 3B 20 83 20 4F 55 54 |%00000010; . OUT|
00000450: 2D 42 49 54 20 53 45 54 5A 45 4E 00 7A 0C 0C 03 |-BIT SETZEN.z...|
00000460: 53 54 41 20 24 31 38 30 30 3B 20 83 20 4F 55 54 |STA $1800; . OUT|
00000470: 20 46 52 45 49 47 45 42 45 4E 00 88 0C 16 03 4A | FREIGEBEN.....J|
00000480: 4D 50 20 53 54 41 52 54 00 00 00 |MP START... |
..%.... OPEN 1,8,1,"0:FLOPPY SRQ.OBJ".4.
... OPEN 2,4.].... 32768; EINSP.G FUER N
EUEN PROFIASS.C...;.....; ..............
.................; . FLOPPY SERVICE REQU
EST ..F...; . ...
...; . V. UWE GERLACH ......; .
TEL. 06151.316205 ..(...; . BZW.
06622.3908 ..I...; .
..J...; . 13.06.86
......; ...............................
;.....;.....; UEBER .-LINE DES SERIELLEN
BUS.R...; AN DEN COMPUTER.X...;.....;..
.D..TIT "SERVICE REQUEST C64 & VC1541 ".
..X..OPT OO...}.;.?.....$0500; IM USERPU
FFER DER FLOPPY.E...;.P...START LDA $1C0
0; P.T B DES DC ABFRAGEN...... #%0001000
0; LICHTSCHRANKENBIT ISOLIEREN.....BEQ A
US.....:.X.X.EIN LDA $1C00;P.T B DES DC
ABFRAGEN...B..A #%00001000; LED.BIT SETZ
EN...L.STA $1C00; LED EINSCHALTEN.....;.
D...LDA $1800; P.T B DES BC ABFRAGEN.I..
.. #%11111101; . OUT-BIT LOESCHEN.....ST
A $1800; . OUT NACH LOW ZIEHEN.....JMP S
TART.....;.J...AUS LDA $1C00;P.T B DES D
C ABFRAGEN...F.. #%11110111; LED.BIT LOE
SCHEN...P.STA $1C00; LED AUSSCHALTEN....
.;.7...LDA $1800; P.T B DES BC ABFRAGEN.
[....A #%00000010; . OUT-BIT SETZEN.Z...
STA $1800; . OUT FREIGEBEN.....JMP START
...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL