> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 64 00 3B C8 59 50 52 41 2D 41 53 53 |....d.;.YPRA-ASS|
00000010: 2F C3 41 53 53 2E 00 1C 08 6E 00 3B 00 22 08 78 |/.ASS....n.;.".x|
00000020: 00 3B 00 44 08 82 00 3B 31 2E 20 C1 45 4E 44 45 |.;.D...;1. .ENDE|
00000030: 52 4E 20 44 45 53 20 D3 50 52 55 4E 47 56 45 4B |RN DES .PRUNGVEK|
00000040: 54 4F 52 53 00 4A 08 8C 00 3B 00 58 08 96 00 20 |TORS.J...;.X... |
00000050: 2E 42 41 24 31 35 44 33 00 66 08 A0 00 20 4A 4D |.BA$15D3.f... JM|
00000060: 50 24 31 31 39 34 00 6C 08 AA 00 3B 00 88 08 B4 |P$1194.l...;....|
00000070: 00 3B 32 2E 20 C2 45 46 45 48 4C 20 2E 4F 42 20 |.;2. .EFEHL .OB |
00000080: 4C 4F 45 53 43 48 45 4E 00 8E 08 BE 00 3B 00 9C |LOESCHEN.....;..|
00000090: 08 C8 00 20 2E 42 41 24 31 34 41 36 00 A8 08 D2 |... .BA$14A6....|
000000A0: 00 20 2E 42 59 30 2C 30 00 AE 08 DC 00 3B 00 D2 |. .BY0,0.....;..|
000000B0: 08 E6 00 3B 33 2E 20 D3 C1 D6 C5 20 52 4F 55 54 |...;3. .... ROUT|
000000C0: 49 4E 45 20 46 55 45 52 20 CB 41 53 53 45 54 54 |INE FUER .ASSETT|
000000D0: 45 4E 00 D8 08 F0 00 3B 00 EC 08 FA 00 20 2E 42 |EN.....;..... .B|
000000E0: 41 24 31 31 39 34 3B D3 54 41 52 54 00 F2 08 04 |A$1194;.TART....|
000000F0: 01 3B 00 07 09 0E 01 20 2E 45 51 43 48 52 4F 55 |.;..... .EQCHROU|
00000100: 54 3D 24 46 46 44 32 00 1C 09 18 01 20 2E 45 51 |T=$FFD2..... .EQ|
00000110: 53 45 54 4C 46 53 3D 24 46 46 42 41 00 31 09 22 |SETLFS=$FFBA.1."|
00000120: 01 20 2E 45 51 53 45 54 4E 41 4D 3D 24 46 46 42 |. .EQSETNAM=$FFB|
00000130: 44 00 44 09 2C 01 20 2E 45 51 53 41 56 45 3D 24 |D.D.,. .EQSAVE=$|
00000140: 46 46 44 38 00 55 09 36 01 20 2E 45 51 4E 41 4D |FFD8.U.6. .EQNAM|
00000150: 4C 45 4E 3D 36 00 5B 09 40 01 3B 00 6D 09 4A 01 |LEN=6.[.@.;.m.J.|
00000160: 20 4C 44 41 23 24 30 44 3B 27 C3 D2 27 00 7C 09 | LDA#$0D;'..'.|.|
00000170: 54 01 20 4A 53 52 43 48 52 4F 55 54 00 8F 09 5E |T. JSRCHROUT...^|
00000180: 01 20 4C 44 41 23 31 3B C4 41 54 45 49 CE 52 00 |. LDA#1;.ATEI.R.|
00000190: 9B 09 68 01 20 54 41 58 3B C7 C1 00 A7 09 72 01 |..h. TAX;.....r.|
000001A0: 20 54 41 59 3B D3 C1 00 B6 09 7C 01 20 4A 53 52 | TAY;.....|. JSR|
000001B0: 53 45 54 4C 46 53 00 C6 09 86 01 20 4C 44 41 23 |SETLFS..... LDA#|
000001C0: 4E 41 4D 4C 45 4E 00 D7 09 90 01 20 4C 44 58 23 |NAMLEN..... LDX#|
000001D0: 3C 28 4E 41 4D 45 29 00 E8 09 9A 01 20 4C 44 59 |<(NAME)..... LDY|
000001E0: 23 3E 28 4E 41 4D 45 29 00 F7 09 A4 01 20 4A 53 |#>(NAME)..... JS|
000001F0: 52 53 45 54 4E 41 4D 00 0D 0A AE 01 20 4C 44 41 |RSETNAM..... LDA|
00000200: 24 30 39 37 30 3B C1 4E 46 2E C1 44 52 00 19 0A |$0970;.NF..DR...|
00000210: B8 01 20 53 54 41 24 39 45 00 27 0A C2 01 20 4C |.. STA$9E.'... L|
00000220: 44 41 24 30 39 37 31 00 33 0A CC 01 20 53 54 41 |DA$0971.3... STA|
00000230: 24 39 46 00 47 0A D6 01 20 4C 44 58 24 46 42 3B |$9F.G... LDX$FB;|
00000240: C5 4E 44 2E C1 44 52 00 53 0A E0 01 20 4C 44 59 |.ND..DR.S... LDY|
00000250: 24 46 43 00 60 0A EA 01 20 4C 44 41 23 24 39 45 |$FC.`... LDA#$9E|
00000260: 00 6D 0A F4 01 20 4A 53 52 53 41 56 45 00 76 0A |.m... JSRSAVE.v.|
00000270: FE 01 20 52 54 53 00 8B 0A 08 02 4E 41 4D 45 20 |.. RTS.....NAME |
00000280: 2E 54 58 22 4C 49 53 54 45 24 22 00 91 0A 12 02 |.TX"LISTE$".....|
00000290: 3B 00 B7 0A 1C 02 3B 34 2E 20 C1 42 53 50 45 49 |;.....;4. .BSPEI|
000002A0: 43 48 45 52 4E 20 44 45 53 20 4D 4F 44 49 46 49 |CHERN DES MODIFI|
000002B0: 5A 49 45 52 54 45 4E 00 DA 0A 26 02 3B 20 20 20 |ZIERTEN...&.; |
000002C0: C1 53 53 45 4D 42 4C 45 52 53 20 55 4E 54 45 52 |.SSEMBLERS UNTER|
000002D0: 20 44 45 4D 20 CE 41 4D 45 4E 00 F4 0A 30 02 3B | DEM .AMEN...0.;|
000002E0: 20 20 20 27 48 59 50 52 41 2D 41 53 53 2F 43 41 | 'HYPRA-ASS/CA|
000002F0: 53 53 2E 27 00 FA 0A 3A 02 3B 00 08 0B 44 02 20 |SS.'...:.;...D. |
00000300: 2E 42 41 24 43 30 30 30 00 19 0B 4E 02 20 2E 45 |.BA$C000...N. .E|
00000310: 51 4C 47 54 49 54 3D 31 35 00 2C 0B 58 02 20 2E |QLGTIT=15.,.X. .|
00000320: 45 51 45 4E 44 45 3D 24 31 46 44 38 00 32 0B 62 |EQENDE=$1FD8.2.b|
00000330: 02 3B 00 3D 0B 6C 02 20 4C 44 41 23 31 00 46 0B |.;.=.l. LDA#1.F.|
00000340: 76 02 20 54 41 58 00 4F 0B 80 02 20 54 41 59 00 |v. TAX.O... TAY.|
00000350: 5E 0B 8A 02 20 4A 53 52 53 45 54 4C 46 53 00 6D |^... JSRSETLFS.m|
00000360: 0B 94 02 20 4C 44 41 23 4C 47 54 49 54 00 7F 0B |... LDA#LGTIT...|
00000370: 9E 02 20 4C 44 58 23 3C 28 54 49 54 45 4C 29 00 |.. LDX#<(TITEL).|
00000380: 91 0B A8 02 20 4C 44 59 23 3E 28 54 49 54 45 4C |.... LDY#>(TITEL|
00000390: 29 00 A0 0B B2 02 20 4A 53 52 53 45 54 4E 41 4D |)..... JSRSETNAM|
000003A0: 00 AB 0B BC 02 20 4C 44 41 23 30 00 B7 0B C6 02 |..... LDA#0.....|
000003B0: 20 53 54 41 24 41 38 00 C2 0B D0 02 20 4C 44 41 | STA$A8..... LDA|
000003C0: 23 38 00 CE 0B DA 02 20 53 54 41 24 41 39 00 DB |#8..... STA$A9..|
000003D0: 0B E4 02 20 4C 44 41 23 24 41 38 00 EC 0B EE 02 |... LDA#$A8.....|
000003E0: 20 4C 44 58 23 3C 28 45 4E 44 45 29 00 FD 0B F8 | LDX#<(ENDE)....|
000003F0: 02 20 4C 44 59 23 3E 28 45 4E 44 45 29 00 0A 0C |. LDY#>(ENDE)...|
00000400: 02 03 20 4A 53 52 53 41 56 45 00 13 0C 0C 03 20 |.. JSRSAVE..... |
00000410: 52 54 53 00 32 0C 16 03 54 49 54 45 4C 20 2E 54 |RTS.2...TITEL .T|
00000420: 58 22 48 59 50 52 41 2D 41 53 53 2F 43 41 53 53 |X"HYPRA-ASS/CASS|
00000430: 2E 22 00 38 0C 20 03 3B 00 52 0C 2A 03 3B 4E 41 |.".8. .;.R.*.;NA|
00000440: 43 48 20 44 55 52 43 48 47 45 46 55 45 48 52 54 |CH DURCHGEFUEHRT|
00000450: 45 52 00 78 0C 34 03 3B C1 53 53 45 4D 42 4C 49 |ER.x.4.;.SSEMBLI|
00000460: 45 52 55 4E 47 20 55 4E 44 20 44 45 4D 20 C5 52 |ERUNG UND DEM .R|
00000470: 53 43 48 45 49 4E 45 4E 00 89 0C 3E 03 3B 44 45 |SCHEINEN...>.;DE|
00000480: 52 20 CD 45 4C 44 55 4E 47 00 AC 0C 48 03 3B 27 |R .ELDUNG...H.;'|
00000490: 50 52 45 53 53 20 52 45 43 4F 52 44 20 26 20 50 |PRESS RECORD & P|
000004A0: 4C 41 59 20 4F 4E 20 54 41 50 45 27 00 D0 0C 52 |LAY ON TAPE'...R|
000004B0: 03 3B 44 52 55 45 43 4B 45 4E 20 D3 49 45 20 44 |.;DRUECKEN .IE D|
000004C0: 49 45 20 27 D3 D4 CF D0 27 2D D4 41 53 54 45 2E |IE '....'-.ASTE.|
000004D0: 00 D6 0C 5C 03 3B 00 FC 0C 66 03 3B D3 49 45 20 |...\.;...f.;.IE |
000004E0: 4B 4F 45 4E 4E 45 4E 20 44 41 4E 4E 20 4D 49 54 |KOENNEN DANN MIT|
000004F0: 20 27 D3 D9 D3 20 34 39 31 35 32 27 00 20 0D 70 | '... 49152'. .p|
00000500: 03 3B 44 45 4E 20 4B 4F 52 52 49 47 49 45 52 54 |.;DEN KORRIGIERT|
00000510: 45 4E 20 C1 53 53 45 4D 42 4C 45 52 20 41 55 46 |EN .SSEMBLER AUF|
00000520: 00 3A 0D 7A 03 3B CB 41 53 53 45 54 54 45 20 41 |.:.z.;.ASSETTE A|
00000530: 42 53 50 45 49 43 48 45 52 4E 00 00 00 |BSPEICHERN... |
....D.;HYPRA-ASS/CASS....N.;.".X.;.D...;
1. AENDERN DES SPRUNGVEKTORS.J...;.X...
.BA$15D3.F. . JMP$1194.L...;.....;2. BEF
EHL .OB LOESCHEN.....;...H. .BA$14A6...R
. .BY0,0.....;.R...;3. SAVE ROUTINE FUER
KASSETTEN.X...;..... .BA$1194;START....
.;..... .EQCHROUT=$FFD2..... .EQSETLFS=$
FFBA.1.". .EQSETNAM=$FFBD.D.,. .EQSAVE=$
FFD8.U.6. .EQNAMLEN=6.[.@.;.M.J. LDA#$0D
;'CR'.|.T. JSRCHROUT...^. LDA#1;DATEINR.
..H. TAX;GA...R. TAY;SA...|. JSRSETLFS.F
... LDA#NAMLEN.W... LDX#<(NAME)..... LDY
#>(NAME)..... JSRSETNAM..... LDA$0970;AN
F.ADR..... STA$9E.'.B. LDA$0971.3.L. STA
$9F.G.V. LDX$FB;END.ADR.S... LDY$FC.`...
LDA#$9E.M... JSRSAVE.V... RTS.....NAME
.TX"LISTE$".....;.....;4. ABSPEICHERN DE
S MODIFIZIERTEN.Z.&.; ASSEMBLERS UNTER
DEM NAMEN...0.; 'HYPRA-ASS/CASS.'...:
.;...D. .BA$C000...N. .EQLGTIT=15.,.X. .
EQENDE=$1FD8.2.B.;.=.L. LDA#1.F.V. TAX.O
... TAY.^... JSRSETLFS.M... LDA#LGTIT..
.. LDX#<(TITEL)..... LDY#>(TITEL). ... J
SRSETNAM..... LDA#0...F. STA$A8.B.P. LDA
#8.N.Z. STA$A9..... LDA#$A8..... LDX#<(E
NDE)..... LDY#>(ENDE)..... JSRSAVE.....
RTS.2...TITEL .TX"HYPRA-ASS/CASS.".8. .;
.R.*.;NACH DURCHGEFUEHRTER.X.4.;ASSEMBLI
ERUNG UND DEM ERSCHEINEN...>.;DER MELDUN
G...H.;'PRESS RECORD & PLAY ON TAPE'.P.R
.;DRUECKEN SIE DIE 'STOP'-TASTE..V.\.;..
.F.;SIE KOENNEN DANN MIT 'SYS 49152'. .P
.;DEN KORRIGIERTEN ASSEMBLER AUF.:.Z.;KA
SSETTE ABSPEICHERN...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL