> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 5A 00 9F 31 2C 38 2C 31 2C 22 53 2D |....Z..1,8,1,"S-|
00000010: 52 57 41 42 53 20 37 46 2F 41 22 00 37 08 64 00 |RWABS 7F/A".7.d.|
00000020: 9E 37 AC 34 30 39 36 3A 2E 4F 50 54 20 4F 31 3A |.7.4096:.OPT O1:|
00000030: AC B2 24 37 46 30 30 00 42 08 6E 00 50 52 47 20 |..$7F00.B.n.PRG |
00000040: B2 31 00 52 08 78 00 42 44 4F 53 20 B2 24 41 30 |.1.R.x.BDOS .$A0|
00000050: 30 30 00 62 08 7D 00 2E 8B 20 23 3A 2E 89 20 32 |00.b.}... #:.. 2|
00000060: 31 30 00 73 08 82 00 2E 49 43 4C 20 38 2C 22 42 |10.s....ICL 8,"B|
00000070: 44 53 2A 00 84 08 8C 00 2E 49 43 4C 20 38 2C 22 |DS*......ICL 8,"|
00000080: 42 44 4B 2A 00 95 08 96 00 2E 49 43 4C 20 38 2C |BDK*......ICL 8,|
00000090: 22 42 44 4A 2A 00 A6 08 A0 00 2E 49 43 4C 20 38 |"BDJ*......ICL 8|
000000A0: 2C 22 42 44 45 2A 00 B7 08 AA 00 43 55 52 53 B0 |,"BDE*.....CURS.|
000000B0: 20 B2 24 46 46 46 30 00 C5 08 D2 00 3B AC AC AC | .$FFF0.....;...|
000000C0: AC AC AC AC AC 00 F3 08 DC 00 52 44 49 4E 49 54 |..........RDINIT|
000000D0: 20 4A 53 52 20 56 45 52 53 49 91 3A 53 54 58 20 | JSR VERSI.:STX |
000000E0: 52 57 42 5A 45 49 3A 53 54 59 20 52 57 42 5A 45 |RWBZEI:STY RWBZE|
000000F0: 49 AA 31 00 2D 09 E6 00 4C 44 59 20 23 56 45 4A |I.1.-...LDY #VEJ|
00000100: 4D 50 41 44 52 AA 31 3A 4C 44 41 20 28 52 57 42 |MPADR.1:LDA (RWB|
00000110: 5A 45 49 29 2C 59 FF FF FF E3 FF FF FF FF FF FF |ZEI),Y..........|
00000120: FF FF FF FF FF FF FF FF FF D3 FF FF FF FF D2 F3 |................|
00000130: FF FF FF FF FF FF FF FF FF FF FF D3 FF FF FF E3 |................|
00000140: FF FF FF FF FF FF D3 FF FF FF FF F3 FF FF FF FF |................|
00000150: E3 FF FF FF FF FF F2 FF FF FF FF FF FF FF FF FF |................|
00000160: FF DA FF FF FF FF FF E2 FF 22 F2 FF FF FF FF FF |........."......|
00000170: FF FF FF FF FF FF FF D3 FF FF FF FF FF FF FF FF |................|
00000180: FF DA FF D0 FF FF FF E2 FF FF F2 62 FF FF FF FF |...........b....|
00000190: FF FF DA EF FF FF E3 FF FF FF FF FF FF FF FF FF |................|
000001A0: FF FF D3 FF FF FF FF FF F3 FF FF D2 FF E3 FF D2 |................|
000001B0: FF FF FF FF F3 FF FF FF FF FF FF FF FF FF FF FF |................|
000001C0: FF D3 FF FF FF FF FF FF FF FF FF DA FF D0 FF FF |................|
000001D0: FF E2 FF FF F3 FF FF FF FF FF FF FF DA EF FF FF |................|
000001E0: E3 FF FF FF FF FF FF FF FF FF FF FF D3 FF FF FF |................|
000001F0: FF 0A F2 FF FF D2 FF E3 FF D2 FF FF 00 23 0A 4A |.............#.J|
00000200: 01 43 50 58 20 23 41 4E 5A A2 AC 32 3B 20 41 4E |.CPX #ANZ..2; AN|
00000210: 5A 41 48 4C 20 4E 45 55 45 52 20 52 4F 55 54 49 |ZAHL NEUER ROUTI|
00000220: 4E 45 4E 00 2E 0A 54 01 42 43 43 20 4C 31 00 40 |NEN...T.BCC L1.@|
00000230: 0A 59 01 54 80 20 4C 44 41 20 23 30 3A 52 54 53 |.Y.T. LDA #0:RTS|
00000240: 00 4F 0A E7 03 3B AC AC AC AC AC AC AC AC AC 00 |.O...;..........|
00000250: 7F 0A E8 03 54 52 57 B6 20 20 53 54 41 20 5A 45 |....TRW. STA ZE|
00000260: 49 3A 53 54 59 20 5A 45 49 AA 31 3A 50 48 41 3A |I:STY ZEI.1:PHA:|
00000270: 54 59 41 3A 50 48 41 3A 54 58 41 3A 50 48 41 00 |TYA:PHA:TXA:PHA.|
00000280: A6 0A ED 03 53 45 43 3A 4A 53 52 20 43 55 52 53 |....SEC:JSR CURS|
00000290: B0 3A 53 54 58 20 5A 45 49 4C 45 3A 53 54 59 20 |.:STX ZEILE:STY |
000002A0: 53 50 41 4C 54 45 00 C7 0A F2 03 4C 44 58 20 23 |SPALTE.....LDX #|
000002B0: 30 3A 4C 44 59 20 23 31 35 3A 43 4C 43 3A 4A 53 |0:LDY #15:CLC:JS|
000002C0: 52 20 43 55 52 53 B0 00 FF 0A FC 03 4C 44 59 20 |R CURS......LDY |
000002D0: 23 41 50 52 57 46 4C 41 47 3A 4C 44 41 20 28 5A |#APRWFLAG:LDA (Z|
000002E0: 45 49 29 2C 59 3A 42 45 51 20 4C 31 41 3A 4C 44 |EI),Y:BEQ L1A:LD|
000002F0: 41 20 23 22 57 22 3A 2E 42 59 54 20 24 32 43 00 |A #"W":.BYT $2C.|
00000300: 24 0B 06 04 4C 31 41 20 4C 44 41 20 23 22 52 22 |$...L1A LDA #"R"|
00000310: 3A 4A 53 52 20 42 53 4F 55 54 3A 4A 53 52 20 53 |:JSR BSOUT:JSR S|
00000320: 50 4F 55 54 00 4D 0B 10 04 4C 44 59 20 23 41 50 |POUT.M...LDY #AP|
00000330: 44 52 49 56 45 3A 4C 44 41 20 28 5A 45 49 29 2C |DRIVE:LDA (ZEI),|
00000340: 59 3A 4A 53 52 20 48 45 58 53 4F 55 54 00 77 0B |Y:JSR HEXSOUT.w.|
00000350: 1A 04 4C 44 59 20 23 41 50 52 45 43 B0 44 AA 31 |..LDY #APREC.D.1|
00000360: 3A 4C 44 41 20 28 5A 45 49 29 2C 59 3A 4A 53 52 |:LDA (ZEI),Y:JSR|
00000370: 20 48 45 58 4F 55 54 00 97 0B 1B 04 44 45 59 3A | HEXOUT.....DEY:|
00000380: 4C 44 41 20 28 5A 45 49 29 2C 59 3A 4A 53 52 20 |LDA (ZEI),Y:JSR |
00000390: 48 45 58 53 4F 55 54 00 BF 0B 24 04 4C 44 59 20 |HEXSOUT...$.LDY |
000003A0: 23 41 50 41 4E 5A AA 31 3A 4C 44 41 20 28 5A 45 |#APANZ.1:LDA (ZE|
000003B0: 49 29 2C 59 3A 4A 53 52 20 48 45 58 4F 55 54 00 |I),Y:JSR HEXOUT.|
000003C0: DF 0B 25 04 44 45 59 3A 4C 44 41 20 28 5A 45 49 |..%.DEY:LDA (ZEI|
000003D0: 29 2C 59 3A 4A 53 52 20 48 45 58 53 4F 55 54 00 |),Y:JSR HEXSOUT.|
000003E0: 0A 0C 2E 04 4C 44 59 20 23 41 50 42 55 46 46 45 |....LDY #APBUFFE|
000003F0: 52 AA 31 3A 4C 44 41 20 28 5A 45 49 29 2C 59 3A |R.1:LDA (ZEI),Y:|
00000400: 4A 53 52 20 48 45 58 4F 55 54 00 2A 0C 2F 04 44 |JSR HEXOUT.*./.D|
00000410: 45 59 3A 4C 44 41 20 28 5A 45 49 29 2C 59 3A 4A |EY:LDA (ZEI),Y:J|
00000420: 53 52 20 48 45 58 53 4F 55 54 00 51 0C 4C 04 4C |SR HEXSOUT.Q.L.L|
00000430: 44 59 20 23 41 50 42 41 4E 4B 3A 4C 44 41 20 28 |DY #APBANK:LDA (|
00000440: 5A 45 49 29 2C 59 3A 4A 53 52 20 48 45 58 4F 55 |ZEI),Y:JSR HEXOU|
00000450: 54 00 6B 0C 56 04 4C 31 42 20 4A 53 52 20 24 46 |T.k.V.L1B JSR $F|
00000460: 46 45 34 3A 42 45 51 20 4C 31 42 00 92 0C B0 04 |FE4:BEQ L1B.....|
00000470: 4C 44 58 20 5A 45 49 4C 45 3A 4C 44 59 20 53 50 |LDX ZEILE:LDY SP|
00000480: 41 4C 54 45 3A 43 4C 43 3A 4A 53 52 20 43 55 52 |ALTE:CLC:JSR CUR|
00000490: 53 B0 00 B5 0C 6C 07 50 4C 41 3A 54 41 58 3A 50 |S....l.PLA:TAX:P|
000004A0: 4C 41 3A 54 41 59 3A 50 4C 41 3A 4A 4D 50 20 28 |LA:TAY:PLA:JMP (|
000004B0: 56 52 57 B6 29 00 C6 0C C6 07 5A 45 49 4C 45 20 |VRW.).....ZEILE |
000004C0: 2E 42 59 54 20 30 00 D8 0C C7 07 53 50 41 4C 54 |.BYT 0.....SPALT|
000004D0: 45 20 2E 42 59 54 20 30 00 E3 0C CF 07 3B AC AC |E .BYT 0.....;..|
000004E0: AC AC AC 00 0D 0D D0 07 48 45 58 4F 55 54 20 50 |........HEXOUT P|
000004F0: 48 41 3A 4C 53 52 3A 4C 53 52 3A 4C 53 52 3A 4C |HA:LSR:LSR:LSR:L|
00000500: 53 52 3A 4A 53 52 20 4E 49 42 4F 55 54 00 1C 0D |SR:JSR NIBOUT...|
00000510: DA 07 50 4C 41 3A AF 20 23 24 30 46 00 48 0D E4 |..PLA:. #$0F.H..|
00000520: 07 4E 49 42 4F 55 54 20 43 4C 43 3A 41 44 43 20 |.NIBOUT CLC:ADC |
00000530: 23 22 30 22 3A 43 4D 50 20 23 22 39 22 AA 31 3A |#"0":CMP #"9".1:|
00000540: 42 43 43 20 4E 49 42 31 00 62 0D EE 07 41 44 43 |BCC NIB1.b...ADC|
00000550: 20 23 36 3A 4E 49 42 31 20 4A 4D 50 20 42 53 4F | #6:NIB1 JMP BSO|
00000560: 55 54 00 92 0D F8 07 48 45 58 53 4F 55 54 20 4A |UT.....HEXSOUT J|
00000570: 53 52 20 48 45 58 4F 55 54 3A 53 50 4F 55 54 20 |SR HEXOUT:SPOUT |
00000580: 4C 44 41 20 23 22 20 22 3A 4A 4D 50 20 42 53 4F |LDA #" ":JMP BSO|
00000590: 55 54 00 A2 0D 1F 4E 3B AC AC AC AC AC AC AC AC |UT....N;........|
000005A0: AC AC 00 AE 0D 2A 4E 41 4E 5A A2 20 B2 31 00 B9 |.....*NANZ. .1..|
000005B0: 0D 34 4E 4A 4D 50 41 44 52 00 D3 0D 3E 4E 2E 57 |.4NJMPADR...>N.W|
000005C0: B0 44 20 20 52 57 B6 20 20 20 AB 42 44 4F 53 AC |.D RW. .BDOS.|
000005D0: 32 AD 33 00 DC 0D 66 4E 4A 4D 50 A2 00 EB 0D 70 |2.3...fNJMP....p|
000005E0: 4E 2E 57 B0 44 20 20 54 52 57 B6 00 F6 0D 98 4E |N.W.D TRW.....N|
000005F0: 4A 4D 50 4F 4C 44 00 08 0E A2 4E 56 52 57 B6 20 |JMPOLD....NVRW. |
00000600: 20 20 2E 57 B0 44 20 30 00 00 00 | .W.D 0... |
....Z..1,8,1,"S-RWABS 7F/A".7.D..7.4096:
.OPT O1:..$7F00.B.N.PRG .1.R.X.BDOS .$A0
00.B.}... #:.. 210.S....ICL 8,"BDS*.....
.ICL 8,"BDK*......ICL 8,"BDJ*... ..ICL 8
,"BDE*.....CURS. .$FFF0.E.R.;...........
..RDINIT JSR VERSI.:STX RWBZEI:STY RWBZE
I.1.-...LDY #VEJMPADR.1:LDA (RWBZEI),Y..
.................S....R............S....
......S..........................Z......
.".............S.........Z.P.......B....
..Z...............S........R...R........
.........S.........Z.P..............Z...
............S........R...R...#.J.CPX #AN
Z..2; ANZAHL NEUER ROUTINEN...T.BCC L1.@
.Y.T. LDA #0:RTS.O...;.............TRW.
STA ZEI:STY ZEI.1:PHA:TYA:PHA:TXA:PHA.
....SEC:JSR CURS.:STX ZEILE:STY SPALTE.G
...LDX #0:LDY #15:CLC:JSR CURS......LDY
#APRWFLAG:LDA (ZEI),Y:BEQ L1A:LDA #"W":.
BYT $2C.$...L1A LDA #"R":JSR BSOUT:JSR S
POUT.M...LDY #APDRIVE:LDA (ZEI),Y:JSR HE
XSOUT.W...LDY #APREC.D.1:LDA (ZEI),Y:JSR
HEXOUT.....DEY:LDA (ZEI),Y:JSR HEXSOUT.
..$.LDY #APANZ.1:LDA (ZEI),Y:JSR HEXOUT.
..%.DEY:LDA (ZEI),Y:JSR HEXSOUT.....LDY
#APBUFFER.1:LDA (ZEI),Y:JSR HEXOUT.*./.D
EY:LDA (ZEI),Y:JSR HEXSOUT.Q.L.LDY #APBA
NK:LDA (ZEI),Y:JSR HEXOUT.K.V.L1B JSR $F
FE4:BEQ L1B.....LDX ZEILE:LDY SPALTE:CLC
:JSR CURS....L.PLA:TAX:PLA:TAY:PLA:JMP (
VRW.).F.F.ZEILE .BYT 0.X.G.SPALTE .BYT 0
...O.;........P.HEXOUT PHA:LSR:LSR:LSR:L
SR:JSR NIBOUT...Z.PLA:. #$0F.H...NIBOUT
CLC:ADC #"0":CMP #"9".1:BCC NIB1.B...ADC
#6:NIB1 JMP BSOUT.....HEXSOUT JSR HEXOU
T:SPOUT LDA #" ":JMP BSOUT....N;........
.....*NANZ. .1...4NJMPADR.S.>N.W.D RW.
.BDOS.2.3...FNJMP....PN.W.D TRW.....N
JMPOLD....NVRW. .W.D 0...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL