> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 64 00 9E 39 AC 34 30 39 36 20 3A 20 |....d..9.4096 : |
00000010: 2E 4F 50 54 20 4F 4F 00 23 08 65 00 AC B2 34 39 |.OPT OO.#.e...49|
00000020: 31 35 32 00 29 08 66 00 3B 00 2F 08 67 00 3B 00 |152.).f.;./.g.;.|
00000030: 35 08 68 00 3B 00 59 08 69 00 3B 23 23 23 23 23 |5.h.;.Y.i.;#####|
00000040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000050: 23 23 23 23 23 23 23 23 23 00 7D 08 6A 00 3B AC |#########.}.j.;.|
00000060: 20 AC 20 AC 20 20 50 20 AB 20 42 41 53 49 43 20 | . . P . BASIC |
00000070: AB 20 56 32 2E 20 20 20 AC 20 AC 20 AC 00 A1 08 |. V2. . . ....|
00000080: 6B 00 3B 23 23 23 23 23 23 23 23 23 23 23 23 23 |k.;#############|
00000090: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000000A0: 23 00 A7 08 6C 00 3B 00 CA 08 6D 00 3B 20 AC AC |#...l.;...m.; ..|
000000B0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000000C0: AC AC AC AC AC AC AC AC AC AC 00 E3 08 6E 00 3B |.............n.;|
000000D0: AC 47 45 53 43 48 52 49 45 42 45 4E 31 39 38 34 |.GESCHRIEBEN1984|
000000E0: 56 91 AC 00 EB 08 6F 00 3B AC AC 00 04 09 70 00 |V.....o.;.....p.|
000000F0: 3B AC 4A 41 4E 4B 55 53 43 48 28 4A AB 4B 53 4F |;.JANKUSCH(J.KSO|
00000100: 46 54 29 AC 00 0C 09 71 00 3B AC AC 00 2F 09 72 |FT)....q.;.../.r|
00000110: 00 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC AC |.; .............|
00000120: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 |................|
00000130: 35 09 73 00 3B 00 3B 09 74 00 3B 00 5F 09 75 00 |5.s.;.;.t.;._.u.|
00000140: 3B 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |;###############|
00000150: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 00 |###############.|
00000160: 82 09 76 00 3B 23 23 23 23 23 23 23 20 56 45 4B |..v.;####### VEK|
00000170: A4 52 53 45 54 5A 55 4E 47 20 23 23 23 23 23 23 |.RSETZUNG ######|
00000180: 23 23 00 A6 09 77 00 3B 23 23 23 23 23 23 23 23 |##...w.;########|
00000190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000001A0: 23 23 23 23 23 23 00 AC 09 78 00 3B 00 CE 09 79 |######...x.;...y|
000001B0: 00 4C 44 41 20 23 B3 45 52 4B 45 4E 4E 55 4E 47 |.LDA #.ERKENNUNG|
000001C0: 20 20 20 3A 20 53 54 41 20 24 30 33 30 38 00 F0 | : STA $0308..|
000001D0: 09 7A 00 4C 44 41 20 23 B1 45 52 4B 45 4E 4E 55 |.z.LDA #.ERKENNU|
000001E0: 4E 47 20 20 20 3A 20 53 54 41 20 24 30 33 30 39 |NG : STA $0309|
000001F0: 00 F6 09 7B 00 3B 00 14 0A 7C 00 4C 44 41 20 23 |...{.;...|.LDA #|
00000200: B3 83 53 20 20 20 20 20 20 20 3A 20 4C 44 59 20 |..S : LDY |
00000210: 23 B1 83 53 00 22 0A 7D 00 4A 4D 50 20 24 41 42 |#..S.".}.JMP $AB|
00000220: 31 45 00 28 0A 7E 00 3B 00 2E 0A 7F 00 3B 00 52 |1E.(.~.;.....;.R|
00000230: 0A 80 00 3B 23 23 23 23 23 23 23 23 23 23 23 23 |...;############|
00000240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000250: 23 23 00 76 0A 81 00 3B 23 23 23 23 23 23 23 23 |##.v...;########|
00000260: 23 20 45 52 4B 45 4E 4E 55 4E 47 20 23 23 23 23 |# ERKENNUNG ####|
00000270: 23 23 23 23 23 23 00 9A 0A 82 00 3B 23 23 23 23 |######.....;####|
00000280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000290: 23 23 23 23 23 23 23 23 23 23 00 BF 0A 83 00 45 |##########.....E|
000002A0: 52 4B 45 4E 4E 55 4E 47 20 4A 53 52 20 24 30 30 |RKENNUNG JSR $00|
000002B0: 37 33 20 3A 20 43 4D 50 20 42 45 46 45 48 4C 00 |73 : CMP BEFEHL.|
000002C0: D4 0A 84 00 42 45 51 20 45 4E 54 53 43 48 45 49 |....BEQ ENTSCHEI|
000002D0: 44 55 4E 47 00 E2 0A 85 00 4A 4D 50 20 24 41 37 |DUNG.....JMP $A7|
000002E0: 45 37 00 E8 0A 86 00 3B 00 03 0B 87 00 45 4E 54 |E7.....;.....ENT|
000002F0: 53 43 48 45 49 44 55 4E 47 20 4A 53 52 20 24 30 |SCHEIDUNG JSR $0|
00000300: 30 37 33 00 1A 0B 88 00 43 4D 50 20 23 31 34 37 |073.....CMP #147|
00000310: 20 20 20 3A 20 42 45 51 20 93 00 31 0B 89 00 43 | : BEQ ..1...C|
00000320: 4D 50 20 23 31 34 38 20 20 20 3A 20 42 45 51 20 |MP #148 : BEQ |
00000330: 94 00 49 0B 8A 00 43 4D 50 20 23 31 36 32 20 20 |..I...CMP #162 |
00000340: 20 3A 20 42 45 51 20 A2 31 00 57 0B 8B 00 4A 4D | : BEQ .1.W...JM|
00000350: 50 20 24 41 46 30 38 00 5D 0B 8C 00 3B 00 72 0B |P $AF08.]...;.r.|
00000360: 8D 00 A2 31 20 20 20 20 20 20 20 20 20 4A 4D 50 |...1 JMP|
00000370: 20 A2 00 78 0B 8E 00 3B 00 7E 0B 8F 00 3B 00 A2 | ..x...;.~...;..|
00000380: 0B 90 00 3B 23 23 23 23 23 23 23 23 23 23 23 23 |...;############|
00000390: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000003A0: 23 23 00 C3 0B 91 00 3B 23 23 23 23 23 23 23 23 |##.....;########|
000003B0: 23 23 23 20 83 53 20 23 23 23 23 23 23 23 23 23 |### .S #########|
000003C0: 23 23 23 00 E7 0B 92 00 3B 23 23 23 23 23 23 23 |###.....;#######|
000003D0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000003E0: 23 23 23 23 23 23 23 00 07 0C 93 00 83 53 20 2E |#######......S .|
000003F0: 41 53 43 20 22 93 90 12 20 D0 2D C2 41 53 49 43 |ASC "... .-.ASIC|
00000400: 2D D6 32 2E 20 20 22 00 2A 0C 94 00 2E 42 59 54 |-.2. ".*....BYT|
00000410: 45 20 31 33 20 3A 20 2E C6 20 22 C3 2D 36 34 20 |E 13 : .. ".-64 |
00000420: 26 20 D6 C3 2D 31 35 34 31 22 00 4C 0C 95 00 2E |& ..-1541".L....|
00000430: 42 59 54 45 20 31 33 20 3A 20 2E C6 20 22 C3 4F |BYTE 13 : .. ".O|
00000440: 50 59 52 49 47 48 54 20 28 43 29 22 00 5F 0C 96 |PYRIGHT (C)"._..|
00000450: 00 2E 42 59 54 45 20 39 2C 31 34 2C 38 2C 30 00 |..BYTE 9,14,8,0.|
00000460: 65 0C 97 00 3B 00 89 0C 98 00 3B 23 23 23 23 23 |e...;.....;#####|
00000470: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000480: 23 23 23 23 23 23 23 23 23 00 AA 0C 99 00 3B 23 |#########.....;#|
00000490: 23 23 23 23 23 23 23 20 42 45 46 45 48 4C 20 2E |####### BEFEHL .|
000004A0: 93 20 23 23 23 23 23 23 23 23 00 CE 0C 9A 00 3B |. ########.....;|
000004B0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000004C0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 00 E5 |##############..|
000004D0: 0C 9B 00 93 20 4C 44 41 20 23 30 20 3A 20 53 54 |.... LDA #0 : ST|
000004E0: 41 20 24 39 44 00 01 0D 9C 00 4A 53 52 20 24 30 |A $9D.....JSR $0|
000004F0: 30 37 33 20 20 20 3A 20 4A 53 52 20 24 45 31 44 |073 : JSR $E1D|
00000500: 34 00 26 0D 9D 00 4C 44 41 20 23 30 30 20 20 20 |4.&...LDA #00 |
00000510: 20 20 3A 20 4C 44 58 20 24 32 42 20 20 3A 20 4C | : LDX $2B : L|
00000520: 44 59 20 24 32 43 00 42 0D 9E 00 53 54 41 20 24 |DY $2C.B...STA $|
00000530: 30 41 20 20 20 20 20 3A 20 4A 53 52 20 24 46 46 |0A : JSR $FF|
00000540: 44 35 00 5C 0D 9F 00 53 54 58 20 24 32 44 20 20 |D5.\...STX $2D |
00000550: 20 20 20 3A 20 53 54 59 20 24 32 45 00 66 0D A0 | : STY $2E.f..|
00000560: 00 4A 4D 50 20 A2 00 6C 0D A1 00 3B 00 90 0D A2 |.JMP ..l...;....|
00000570: 00 3B 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |.;##############|
00000580: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000590: 00 B1 0D A3 00 3B 23 23 23 23 23 23 23 20 42 45 |.....;####### BE|
000005A0: 46 45 48 4C 20 2E 94 20 23 23 23 23 23 23 23 23 |FEHL .. ########|
000005B0: 23 00 D5 0D A4 00 3B 23 23 23 23 23 23 23 23 23 |#.....;#########|
000005C0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000005D0: 23 23 23 23 23 00 E3 0D A5 00 94 20 4C 44 41 20 |#####...... LDA |
000005E0: 23 30 30 00 0B 0E A6 00 53 54 41 20 24 39 44 20 |#00.....STA $9D |
000005F0: 20 20 20 20 3A 20 4A 53 52 20 24 30 30 37 33 20 | : JSR $0073 |
00000600: 3A 20 4A 53 52 20 24 45 31 44 34 00 11 0E A7 00 |: JSR $E1D4.....|
00000610: 3B 00 1D 0E A8 00 4C 44 58 20 23 30 30 00 3D 0E |;.....LDX #00.=.|
00000620: A9 00 56 45 52 53 43 48 49 45 42 55 4E 47 20 20 |..VERSCHIEBUNG |
00000630: 4C 44 41 20 52 4F 55 54 49 4E 45 2C 58 00 53 0E |LDA ROUTINE,X.S.|
00000640: AA 00 53 54 41 20 24 30 33 34 30 2C 58 20 3A 20 |..STA $0340,X : |
00000650: 49 4E 58 00 76 0E AB 00 43 4D 50 20 23 24 46 46 |INX.v...CMP #$FF|
00000660: 20 20 20 20 3A 20 42 4E 45 20 56 45 52 53 43 48 | : BNE VERSCH|
00000670: 49 45 42 55 4E 47 00 7C 0E AC 00 3B 00 96 0E AD |IEBUNG.|...;....|
00000680: 00 4C 44 41 20 23 B3 38 30 36 20 20 20 3A 20 53 |.LDA #.806 : S|
00000690: 54 41 20 24 32 42 00 B0 0E AE 00 4C 44 41 20 23 |TA $2B.....LDA #|
000006A0: B1 38 30 36 20 20 20 3A 20 53 54 41 20 24 32 43 |.806 : STA $2C|
000006B0: 00 D6 0E AF 00 4C 44 41 20 23 B3 38 33 32 20 20 |.....LDA #.832 |
000006C0: 20 3A 20 53 54 41 20 38 30 34 20 20 20 3A 20 53 | : STA 804 : S|
000006D0: 54 41 20 38 30 36 00 FC 0E B0 00 4C 44 41 20 23 |TA 806.....LDA #|
000006E0: B1 38 33 32 20 20 20 3A 20 53 54 41 20 38 30 35 |.832 : STA 805|
000006F0: 20 20 20 3A 20 53 54 41 20 38 30 37 00 02 0F B1 | : STA 807....|
00000700: 00 3B 00 1E 0F B2 00 4A 53 52 20 24 45 35 34 34 |.;.....JSR $E544|
00000710: 20 20 20 3A 20 4A 53 52 20 24 45 31 35 39 00 24 | : JSR $E159.$|
00000720: 0F B3 00 3B 00 3C 0F B4 00 A2 20 4C 44 41 20 23 |...;.<.... LDA #|
00000730: 31 20 20 3A 20 53 54 41 20 24 32 42 00 56 0F B5 |1 : STA $2B.V..|
00000740: 00 4C 44 41 20 23 38 20 20 20 20 20 20 3A 20 53 |.LDA #8 : S|
00000750: 54 41 20 24 32 43 00 70 0F B6 00 4C 44 41 20 23 |TA $2C.p...LDA #|
00000760: 24 35 37 20 20 20 20 3A 20 53 54 41 20 38 30 34 |$57 : STA 804|
00000770: 00 96 0F B7 00 4C 44 41 20 23 24 46 31 20 20 20 |.....LDA #$F1 |
00000780: 20 3A 20 53 54 41 20 38 30 35 20 20 20 3A 20 53 | : STA 805 : S|
00000790: 54 41 20 38 30 37 00 B0 0F B8 00 4C 44 41 20 23 |TA 807.....LDA #|
000007A0: 24 43 41 20 20 20 20 3A 20 53 54 41 20 38 30 36 |$CA : STA 806|
000007B0: 00 CA 0F B9 00 4C 44 41 20 23 32 33 37 20 20 20 |.....LDA #237 |
000007C0: 20 3A 20 53 54 41 20 38 30 38 00 F2 0F BA 00 4C | : STA 808.....L|
000007D0: 44 41 20 23 30 20 20 20 20 20 20 3A 20 53 54 41 |DA #0 : STA|
000007E0: 20 31 39 38 20 20 20 3A 20 4A 4D 50 20 24 41 38 | 198 : JMP $A8|
000007F0: 33 31 00 F8 0F BB 00 3B 00 FE 0F BC 00 3B 00 22 |31.....;.....;."|
00000800: 10 BD 00 3B AC AC AC AC AC AC AC 20 53 54 45 55 |...;....... STEU|
00000810: 45 52 52 4F 55 54 49 45 4E 45 20 AC AC AC AC AC |ERROUTIENE .....|
00000820: AC AC 00 28 10 BE 00 3B 00 45 10 BF 00 52 4F 55 |...(...;.E...ROU|
00000830: 54 49 4E 45 20 4C 44 41 20 23 31 20 3A 20 53 54 |TINE LDA #1 : ST|
00000840: 41 20 24 32 42 00 62 10 C0 00 4C 44 41 20 23 38 |A $2B.b...LDA #8|
00000850: 20 20 20 20 20 20 20 20 20 3A 20 53 54 41 20 24 | : STA $|
00000860: 32 43 00 7F 10 C1 00 4C 44 41 20 23 24 35 37 20 |2C.....LDA #$57 |
00000870: 20 20 20 20 20 20 3A 20 53 54 41 20 38 30 34 00 | : STA 804.|
00000880: A6 10 C2 00 4C 44 41 20 23 24 46 31 20 20 20 20 |....LDA #$F1 |
00000890: 20 20 20 3A 20 53 54 41 20 38 30 35 20 3A 20 53 | : STA 805 : S|
000008A0: 54 41 20 38 30 37 00 C3 10 C3 00 4C 44 41 20 23 |TA 807.....LDA #|
000008B0: 24 43 41 20 20 20 20 20 20 20 3A 20 53 54 41 20 |$CA : STA |
000008C0: 38 30 36 00 E0 10 C4 00 4C 44 41 20 23 32 32 35 |806.....LDA #225|
000008D0: 20 20 20 20 20 20 20 3A 20 53 54 41 20 38 30 38 | : STA 808|
000008E0: 00 E6 10 C5 00 3B 00 05 11 C6 00 4A 53 52 20 24 |.....;.....JSR $|
000008F0: 41 36 35 39 20 20 20 20 20 20 3A 20 4A 4D 50 20 |A659 : JMP |
00000900: 24 41 37 41 45 00 0B 11 C7 00 3B 00 19 11 C8 00 |$A7AE.....;.....|
00000910: 2E 42 59 54 45 20 24 46 46 00 1F 11 C9 00 3B 00 |.BYTE $FF.....;.|
00000920: 34 11 CA 00 42 45 46 45 48 4C 20 2E 42 59 54 45 |4...BEFEHL .BYTE|
00000930: 20 22 21 22 00 3A 11 CB 00 3B 00 00 00 1D 31 00 | "!".:...;....1.|
....D..9.4096 : .OPT OO.#.E...49152.).F.
;./.G.;.5.H.;.Y.I.;#####################
#########.}.J.;. . . P . BASIC . V2.
. . ....K.;#############################
#...L.;.J.M.; ..........................
.....N.;.GESCHRIEBEN1984V.....O.;.....P.
;.JANKUSCH(J.KSOFT)....Q.;.../.R.; .....
........................5.S.;.;.T.;._.U.
;##############################...V.;###
#### VEK.RSETZUNG ########...W.;########
######################...X.;.N.Y.LDA #.E
RKENNUNG : STA $0308...Z.LDA #.ERKENNU
NG : STA $0309...{.;...|.LDA #..S
: LDY #..S.".}.JMP $AB1E.(.~.;....;.R
...;##############################.V...;
######### ERKENNUNG ##########.....;####
##########################.....ERKENNUNG
JSR $0073 : CMP BEFEHL.T...BEQ ENTSCHEI
DUNG.....JMP $A7E7.....;.....ENTSCHEIDUN
G JSR $0073.....CMP #147 : BEQ ..1...C
MP #148 : BEQ ..I...CMP #162 : BEQ .
1.W...JMP $AF08.]...;.R....1 JMP
..X...;.~...;.....;####################
##########.C...;########### .S #########
###.....;##############################.
.....S .ASC "... P-BASIC-V2. ".*....BYT
E 13 : .F "C-64 & VC-1541".L....BYTE 13
: .F "COPYRIGHT (C)"._....BYTE 9,14,8,0.
E...;.....;#############################
#.....;######## BEFEHL .. ########.N...;
##############################...... LDA
#0 : STA $9D.....JSR $0073 : JSR $E1D
4.&...LDA #00 : LDX $2B : LDY $2C.B
...STA $0A : JSR $FFD5.\...STX $2D
: STY $2E.F. .JMP ..L...;.....;######
########################.....;####### BE
FEHL .. #########.U...;#################
#############...... LDA #00.....STA $9D
: JSR $0073 : JSR $E1D4.....;.....LD
X #00.=...VERSCHIEBUNG LDA ROUTINE,X.S.
..STA $0340,X : INX.V...CMP #$FF : BN
E VERSCHIEBUNG.|...;.....LDA #.806 : S
TA $2B.....LDA #.806 : STA $2C.V...LDA
#.832 : STA 804 : STA 806.....LDA #
.832 : STA 805 : STA 807.....;.....J
SR $E544 : JSR $E159.$...;.<.... LDA #
1 : STA $2B.V...LDA #8 : STA $2C.P
...LDA #$57 : STA 804.....LDA #$F1
: STA 805 : STA 807.....LDA #$CA :
STA 806.J...LDA #237 : STA 808.....L
DA #0 : STA 198 : JMP $A831.....;
.....;."...;....... STEUERROUTIENE .....
...(...;.E...ROUTINE LDA #1 : STA $2B.B.
..LDA #8 : STA $2C..A.LDA #$57
: STA 804...B.LDA #$F1 : STA
805 : STA 807.C.C.LDA #$CA : STA
806...D.LDA #225 : STA 808...E.;..
.F.JSR $A659 : JMP $A7AE...G.;...H.
.BYTE $FF...I.;.4.J.BEFEHL .BYTE "!".:.K
.;....1.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL