00000000: 00 40 D3 4F 4C 4C 54 45 20 45 49 4E 45 53 20 44 |.@.OLLTE EINES D|
00000010: 45 52 20 45 52 53 54 45 4E 20 31 38 20 C2 59 54 |ER ERSTEN 18 .YT|
00000020: 45 53 20 55 4E 47 4C 45 49 43 48 20 44 45 4E 20 |ES UNGLEICH DEN |
00000030: 20 45 52 53 54 45 4E D6 49 52 55 53 42 59 54 45 | ERSTEN.IRUSBYTE|
00000040: 53 20 53 45 49 4E 2C 20 53 4F 20 57 49 52 44 20 |S SEIN, SO WIRD |
00000050: 53 4F 46 4F 52 54 20 5A 55 52 20 4E 85 43 48 53 |SOFORT ZUR N.CHS|
00000060: 54 45 4E 20 20 D2 4F 55 54 49 4E 45 28 D3 C3 D2 |TEN .OUTINE(...|
00000070: C1 D4 C3 C8 29 20 56 45 52 5A 57 45 49 47 54 2E |....) VERZWEIGT.|
00000080: 20 C1 4E 44 45 52 4E 46 41 4C 4C 53 20 57 49 52 | .NDERNFALLS WIR|
00000090: 44 20 41 55 46 20 44 49 45 20 D2 4F 55 54 49 4E |D AUF DIE .OUTIN|
000000A0: 45 49 4E 20 24 41 30 30 32 20 56 45 52 5A 57 45 |EIN $A002 VERZWE|
000000B0: 49 47 54 20 2D 20 44 41 53 20 49 53 54 20 20 44 |IGT - DAS IST D|
000000C0: 45 52 20 20 4E 4F 52 4D 41 4C 45 20 20 D7 41 52 |ER NORMALE .AR|
000000D0: 4D 53 54 41 52 54 44 45 53 20 C3 4F 4D 4D 4F 44 |MSTARTDES .OMMOD|
000000E0: 4F 52 45 2D C2 41 53 49 43 2E 20 20 20 20 20 20 |ORE-.ASIC. |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: CE 55 4E 20 45 49 4E 45 20 4B 4C 45 49 4E 45 20 |.UN EINE KLEINE |
00000150: C5 49 4E 53 49 43 48 54 20 49 4E 20 44 49 45 20 |.INSICHT IN DIE |
00000160: D3 C3 D2 C1 D4 C3 C8 2D D2 4F 55 54 49 4E 45 3A |.......-.OUTINE:|
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 31 37 30 30 20 2D | 1700 -|
000001B0: 53 43 52 41 54 43 48 20 20 4C 44 41 20 23 30 31 |SCRATCH LDA #01|
000001C0: 20 20 20 20 20 20 20 20 20 20 3B CC 4F 47 49 53 | ;.OGIS|
000001D0: 43 48 45 20 C6 49 4C 45 4E 55 4D 4D 45 52 20 31 |CHE .ILENUMMER 1|
000001E0: 37 31 30 20 2D 20 20 20 20 20 20 20 20 20 4C 44 |710 - LD|
000001F0: 58 20 23 30 38 20 20 20 20 20 20 20 20 20 20 3B |X #08 ;|
00000200: C4 45 56 49 43 45 4E 55 4D 4D 45 52 20 20 20 20 |.EVICENUMMER |
00000210: 20 20 20 20 31 37 32 30 20 2D 20 20 20 20 20 20 | 1720 - |
00000220: 20 20 20 4C 44 59 20 23 31 35 20 20 20 20 20 20 | LDY #15 |
00000230: 20 20 20 20 3B CB 41 4E 41 4C 4E 55 4D 4D 45 52 | ;.ANALNUMMER|
00000240: 20 20 20 20 20 20 20 20 20 31 37 33 30 20 2D 20 | 1730 - |
00000250: 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 54 50 | JSR SETP|
00000260: 41 52 20 20 20 20 20 20 20 3B D0 41 52 41 4D 45 |AR ;.ARAME|
00000270: 54 45 52 20 53 45 54 5A 45 4E 20 20 20 20 31 37 |TER SETZEN 17|
00000280: 34 30 20 2D 20 20 20 20 20 20 20 20 20 4C 44 41 |40 - LDA|
00000290: 20 4C 45 4E 47 4E 41 4D 20 20 20 20 20 20 3B CE | LENGNAM ;.|
000002A0: 41 4D 45 4E 53 4C 85 4E 47 45 20 4C 41 44 45 4E |AMENSL.NGE LADEN|
000002B0: 20 20 20 31 37 35 30 20 2D 20 20 20 20 20 20 20 | 1750 - |
000002C0: 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 | CLC |
000002D0: 20 20 20 3B 55 4E 44 20 20 20 20 20 20 20 20 20 | ;UND |
000002E0: 20 20 20 20 20 20 20 20 31 37 36 30 20 2D 20 20 | 1760 - |
000002F0: 20 20 20 20 20 20 20 41 44 43 20 23 30 32 20 20 | ADC #02 |
00000300: 20 20 20 20 20 20 20 20 3B 32 20 41 44 44 49 45 | ;2 ADDIE|
00000310: 52 45 4E 20 20 20 20 20 20 20 20 20 20 31 37 37 |REN 177|
00000320: 30 20 2D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |0 - LDX |
00000330: 23 3C 28 4E 41 4D 45 42 55 46 46 29 20 3B C2 55 |#<(NAMEBUFF) ;.U|
00000340: 46 46 45 52 2D CC CF 20 4C 41 44 45 4E 20 20 20 |FFER-.. LADEN |
00000350: 20 20 31 37 38 30 20 2D 20 20 20 20 20 20 20 20 | 1780 - |
00000360: 20 4C 44 59 20 23 3E 28 4E 41 4D 45 42 55 46 46 | LDY #>(NAMEBUFF|
00000370: 29 20 3B C2 55 46 46 45 52 2D C8 C9 20 4C 41 44 |) ;.UFFER-.. LAD|
00000380: 45 4E 20 20 20 20 20 31 37 39 30 20 2D 20 20 20 |EN 1790 - |
00000390: 20 20 20 20 20 20 4A 53 52 20 53 45 54 4E 41 4D | JSR SETNAM|
000003A0: 20 20 20 20 20 20 20 3B CE 41 4D 45 20 53 45 54 | ;.AME SET|
000003B0: 5A 45 4E 20 20 20 20 20 20 20 20 20 31 38 30 30 |ZEN 1800|
000003C0: 20 2D 20 20 20 20 20 20 20 20 20 4A 53 52 20 4F | - JSR O|
000003D0: 50 45 4E 20 20 20 20 20 20 20 20 20 3B C6 49 4C |PEN ;.IL|
000003E0: 45 20 86 46 46 4E 45 4E 20 20 20 20 20 20 20 20 |E .FFNEN |
000003F0: 20 31 38 31 30 20 2D 20 20 20 20 20 20 20 20 20 | 1810 - |
00000400: 4C 44 41 20 23 30 31 20 20 20 20 20 20 20 20 20 |LDA #01 |
00000410: 20 3B 55 4E 44 20 C6 49 4C 45 20 23 31 20 20 20 | ;UND .ILE #1 |
00000420: 20 20 20 20 20 20 31 38 32 30 20 2D 20 20 20 20 | 1820 - |
00000430: 20 20 20 20 20 4A 53 52 20 43 4C 4F 53 45 20 20 | JSR CLOSE |
00000440: 20 20 20 20 20 20 3B 57 49 45 44 45 52 20 53 43 | ;WIEDER SC|
00000450: 48 4C 49 45 88 45 4E 20 20 20 20 20 20 20 20 20 |HLIE.EN |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 | |
.@SOLLTE EINES DER ERSTEN 18 BYTES UNGLE
ICH DEN ERSTENVIRUSBYTES SEIN, SO WIRD
SOFORT ZUR N.CHSTEN ROUTINE(SCRATCH) VE
RZWEIGT. ANDERNFALLS WIRD AUF DIE ROUTIN
EIN $A002 VERZWEIGT - DAS IST DER NORM
ALE WARMSTARTDES COMMODORE-BASIC.
NUN EINE KLEINE EINSICHT IN DIE SCRATCH-
ROUTINE:
1700 -SCRATCH
LDA #01 ;LOGISCHE FILENUMMER 1
710 - LDX #08 ;DEVICENU
MMER 1720 - LDY #15
;KANALNUMMER 1730 -
JSR SETPAR ;PARAMETER SETZEN 17
40 - LDA LENGNAM ;NAMENSL.N
GE LADEN 1750 - CLC
;UND 1760 - A
DC #02 ;2 ADDIEREN 177
0 - LDX #<(NAMEBUFF) ;BUFFER-LO
LADEN 1780 - LDY #>(NAMEBUFF
) ;BUFFER-HI LADEN 1790 - JS
R SETNAM ;NAME SETZEN 1800
- JSR OPEN ;FILE .FFNEN
1810 - LDA #01
;UND FILE #1 1820 - JSR
CLOSE ;WIEDER SCHLIE.EN
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL