EINBINDUNG.SRC
FILE INFORMATION
FILENAME(S): EINBINDUNG.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:23:14
APPEARS ON: 1 disk(s)
FILE HASH
bf4af23352c463df8ec92ac41238e184b619ea77d6ad694de5faf041c35ef62f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 1 1 | EINBINDUNG.SRC | PRG | DuncanTwain | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 5A 00 9E 20 38 AC 34 30 39 36 00 1C |....Z.. 8.4096..| 00000010: 08 64 00 2E 4F 50 54 20 50 2C 4F 4F 00 22 08 6E |.d..OPT P,OO.".n| 00000020: 00 3B 00 3F 08 78 00 3B 20 45 49 4E 42 49 4E 44 |.;.?.x.; EINBIND| 00000030: 55 4E 47 20 4E 45 55 45 52 20 A4 4B 45 4E 53 00 |UNG NEUER .KENS.| 00000040: 45 08 82 00 3B 00 64 08 96 00 9D 56 45 4B 20 B2 |E...;.d....VEK .| 00000050: 20 24 33 30 38 20 3B 20 42 45 46 45 48 4C 53 56 | $308 ; BEFEHLSV| 00000060: 45 4B A4 52 00 86 08 A0 00 46 55 4E 56 45 4B 20 |EK.R.....FUNVEK | 00000070: B2 20 24 33 30 41 20 3B 20 46 55 4E 4B 54 49 91 |. $30A ; FUNKTI.| 00000080: 53 56 45 4B A4 52 00 8C 08 AA 00 3B 00 9D 08 AB |SVEK.R.....;....| 00000090: 00 54 59 50 46 4C 41 47 20 B2 20 31 33 00 AC 08 |.TYPFLAG . 13...| 000000A0: B4 00 43 48 52 A1 20 B2 20 24 37 33 00 BF 08 BE |..CHR. . $73....| 000000B0: 00 43 48 52 CB 54 20 B2 20 43 48 52 A1 AA 36 00 |.CHR.T . CHR..6.| 000000C0: D4 08 C8 00 54 58 54 50 54 52 20 B2 20 43 48 52 |....TXTPTR . CHR| 000000D0: CB 54 AA 31 00 E8 08 D2 00 45 58 45 43 4F 4C 44 |.T.1.....EXECOLD| 000000E0: 20 B2 20 24 41 37 45 44 00 F8 08 D7 00 B5 45 52 | . $A7ED......ER| 000000F0: 20 B2 20 24 41 37 41 45 00 0C 09 D9 00 46 55 4E | . $A7AE.....FUN| 00000100: 4B A4 4C 44 20 B2 20 24 41 45 38 44 00 1E 09 DA |K.LD . $AE8D....| 00000110: 00 A1 54 45 52 4D 20 B2 20 24 41 45 46 31 00 33 |..TERM . $AEF1.3| 00000120: 09 DB 00 43 48 45 43 4B 4E 55 4D 20 B2 20 24 41 |...CHECKNUM . $A| 00000130: 44 38 44 00 60 09 DC 00 4A 55 4D 50 20 B2 20 24 |D8D.`...JUMP . $| 00000140: 35 34 20 3B 20 53 50 52 49 4E 47 42 45 46 45 48 |54 ; SPRINGBEFEH| 00000150: 4C 20 46 55 45 52 20 46 55 4E 4B 54 49 91 45 4E |L FUER FUNKTI.EN| 00000160: 00 86 09 2C 01 9D 53 54 41 52 54 20 B2 20 24 43 |...,..START . $C| 00000170: 43 20 3B 20 45 52 53 54 45 53 20 42 45 46 45 48 |C ; ERSTES BEFEH| 00000180: 4C 53 A4 4B 45 4E 00 A7 09 36 01 9D 80 20 B2 20 |LS.KEN...6... . | 00000190: 24 45 30 20 3B 20 88 5A 54 45 53 20 42 45 46 45 |$E0 ; .ZTES BEFE| 000001A0: 48 4C 53 A4 4B 45 4E 00 AD 09 40 01 3B 00 D6 09 |HLS.KEN...@.;...| 000001B0: 4A 01 46 55 4E 53 54 41 52 54 20 B2 20 24 45 31 |J.FUNSTART . $E1| 000001C0: 20 3B 20 45 52 53 54 45 53 20 46 55 4E 4B 54 49 | ; ERSTES FUNKTI| 000001D0: 91 53 A4 4B 45 4E 00 FA 09 54 01 46 55 4E 80 20 |.S.KEN...T.FUN. | 000001E0: B2 20 24 46 45 20 3B 20 88 5A 54 45 53 20 46 55 |. $FE ; .ZTES FU| 000001F0: 4E 4B 54 49 91 53 A4 4B 45 4E 00 00 0A 5E 01 3B |NKTI.S.KEN...^.;| 00000200: 00 12 0A 90 01 49 4E 49 54 20 4C 44 41 20 23 B3 |.....INIT LDA #.| 00000210: A2 9D 00 1F 0A 9A 01 4C 44 59 20 23 B1 A2 9D 00 |.......LDY #....| 00000220: 3B 0A A4 01 53 54 41 20 9D 56 45 4B 20 3B 20 42 |;...STA .VEK ; B| 00000230: 45 46 45 48 4C 53 56 45 4B A4 52 00 4A 0A AE 01 |EFEHLSVEK.R.J...| 00000240: 53 54 59 20 9D 56 45 4B AA 31 00 50 0A B8 01 3B |STY .VEK.1.P...;| 00000250: 00 5F 0A C2 01 4C 44 41 20 23 B3 A2 46 55 4E 00 |._...LDA #..FUN.| 00000260: 6E 0A CC 01 4C 44 59 20 23 B1 A2 46 55 4E 00 8D |n...LDY #..FUN..| 00000270: 0A D6 01 53 54 41 20 46 55 4E 56 45 4B 20 3B 20 |...STA FUNVEK ; | 00000280: 46 55 4E 4B 54 49 91 53 56 45 4B A4 52 00 9E 0A |FUNKTI.SVEK.R...| 00000290: E0 01 53 54 59 20 46 55 4E 56 45 4B AA 31 00 A6 |..STY FUNVEK.1..| 000002A0: 0A EA 01 52 54 53 00 AC 0A F4 01 3B 00 C7 0A FE |...RTS.....;....| 000002B0: 01 A2 9D 20 4A 53 52 20 43 48 52 A1 20 3B 20 A4 |... JSR CHR. ; .| 000002C0: 4B 45 4E 20 48 4F C3 00 D5 0A 03 02 4A 53 52 20 |KEN HO......JSR | 000002D0: 54 45 53 54 9D 00 F8 0A 05 02 4A 4D 50 20 B5 45 |TEST......JMP .E| 000002E0: 52 20 3B 20 5A 55 52 20 B5 45 52 50 52 45 54 45 |R ; ZUR .ERPRETE| 000002F0: 52 53 43 48 4C 45 8B 45 00 0E 0B 08 02 54 45 53 |RSCHLE.E.....TES| 00000300: 54 9D 20 43 4D 50 20 23 9D 53 54 41 52 54 00 2A |T. CMP #.START.*| 00000310: 0B 12 02 42 43 43 20 4F 4C 44 9D 20 3B 20 41 4C |...BCC OLD. ; AL| 00000320: 54 45 52 20 42 45 46 45 48 4C 00 38 0B 1C 02 43 |TER BEFEHL.8...C| 00000330: 4D 50 20 23 9D 80 AA 31 00 44 0B 26 02 42 43 43 |MP #...1.D.&.BCC| 00000340: 20 4F 4B A2 00 6F 0B 30 02 4F 4C 44 9D 20 4A 53 | OK..o.0.OLD. JS| 00000350: 52 20 43 48 52 CB 54 20 3B 20 46 4C 41 47 53 20 |R CHR.T ; FLAGS | 00000360: 57 49 45 44 45 52 20 48 45 52 53 54 45 4C C3 00 |WIEDER HERSTEL..| 00000370: 7F 0B 3A 02 4A 4D 50 20 45 58 45 43 4F 4C 44 00 |..:.JMP EXECOLD.| 00000380: 85 0B 44 02 3B 00 91 0B 4E 02 4F 4B A2 20 53 45 |..D.;...N.OK. SE| 00000390: 43 00 A1 0B 58 02 53 42 43 20 23 9D 53 54 41 52 |C...X.SBC #.STAR| 000003A0: 54 00 B1 0B 62 02 41 53 4C 20 3B 20 4D 41 4C 20 |T...b.ASL ; MAL | 000003B0: 32 00 B9 0B 6C 02 54 41 58 00 D4 0B 76 02 4C 44 |2...l.TAX...v.LD| 000003C0: 41 20 9D 54 41 42 AA 31 2C 58 20 3B 20 48 49 AB |A .TAB.1,X ; HI.| 000003D0: 42 59 54 45 00 FB 0B 80 02 50 48 41 20 3B 20 52 |BYTE.....PHA ; R| 000003E0: 55 45 43 4B 53 50 52 49 4E 47 41 44 52 45 53 53 |UECKSPRINGADRESS| 000003F0: 45 20 41 55 46 20 53 54 41 43 4B 00 0A 0C 8A 02 |E AUF STACK.....| 00000400: 4C 44 41 20 9D 54 41 42 2C 58 00 1C 0C 94 02 50 |LDA .TAB,X.....P| 00000410: 48 41 20 3B 20 4C 4F AB 42 59 54 45 00 29 0C 9E |HA ; LO.BYTE.)..| 00000420: 02 4A 4D 50 20 43 48 52 A1 00 2F 0C A8 02 3B 00 |.JMP CHR../...;.| 00000430: 3F 0C BC 02 A2 46 55 4E 20 4C 44 41 20 23 30 00 |?....FUN LDA #0.| 00000440: 4F 0C C6 02 53 54 41 20 54 59 50 46 4C 41 47 00 |O...STA TYPFLAG.| 00000450: 67 0C D0 02 4A 53 52 20 43 48 52 A1 20 3B 20 A4 |g...JSR CHR. ; .| 00000460: 4B 45 4E 20 48 4F C3 00 79 0C DA 02 43 4D 50 20 |KEN HO..y...CMP | 00000470: 23 46 55 4E 53 54 41 52 54 00 97 0C E4 02 42 43 |#FUNSTART.....BC| 00000480: 43 20 4F 4C 44 46 55 4E 20 3B 20 41 4C 54 45 20 |C OLDFUN ; ALTE | 00000490: 46 55 4E 4B 54 49 91 00 A7 0C EE 02 43 4D 50 20 |FUNKTI......CMP | 000004A0: 23 46 55 4E 80 AA 31 00 B4 0C F8 02 42 43 43 20 |#FUN..1.....BCC | 000004B0: 4F 4B 31 A2 00 C9 0C 02 03 4F 4C 44 46 55 4E 20 |OK1......OLDFUN | 000004C0: 4A 53 52 20 43 48 52 CB 54 00 D9 0C 0C 03 4A 4D |JSR CHR.T.....JM| 000004D0: 50 20 46 55 4E 4B A4 4C 44 00 DF 0C 16 03 3B 00 |P FUNK.LD.....;.| 000004E0: EC 0C 20 03 4F 4B 31 A2 20 53 45 43 00 FE 0C 2A |.. .OK1. SEC...*| 000004F0: 03 53 42 43 20 23 46 55 4E 53 54 41 52 54 00 06 |.SBC #FUNSTART..| 00000500: 0D 34 03 41 53 4C 00 2A 0D 3E 03 50 48 41 20 3B |.4.ASL.*.>.PHA ;| 00000510: 20 5A 45 49 47 45 52 20 41 55 46 20 54 41 42 45 | ZEIGER AUF TABE| 00000520: 4C 4C 45 20 4D 45 52 4B 45 4E 00 4B 0D 48 03 4A |LLE MERKEN.K.H.J| 00000530: 53 52 20 43 48 52 A1 20 3B 20 4E 41 45 43 48 53 |SR CHR. ; NAECHS| 00000540: 54 45 53 20 5A 45 49 43 48 45 4E 00 59 0D 52 03 |TES ZEICHEN.Y.R.| 00000550: 4A 53 52 20 A1 54 45 52 4D 00 61 0D 5C 03 50 4C |JSR .TERM.a.\.PL| 00000560: 41 00 69 0D 66 03 54 41 59 00 7A 0D 70 03 4C 44 |A.i.f.TAY.z.p.LD| 00000570: 41 20 46 55 4E 54 41 42 2C 59 00 89 0D 7A 03 53 |A FUNTAB,Y...z.S| 00000580: 54 41 20 4A 55 4D 50 AA 31 00 9C 0D 84 03 4C 44 |TA JUMP.1.....LD| 00000590: 41 20 46 55 4E 54 41 42 AA 31 2C 59 00 AB 0D 8E |A FUNTAB.1,Y....| 000005A0: 03 53 54 41 20 4A 55 4D 50 AA 32 00 CD 0D 98 03 |.STA JUMP.2.....| 000005B0: 4A 53 52 20 4A 55 4D 50 20 3B 20 46 55 4E 4B 54 |JSR JUMP ; FUNKT| 000005C0: 49 91 20 41 55 53 46 55 45 48 52 45 4E 00 FE 0D |I. AUSFUEHREN...| 000005D0: A2 03 4A 4D 50 20 43 48 45 43 4B 4E 55 4D 20 3B |..JMP CHECKNUM ;| 000005E0: 20 45 52 47 45 42 4E 49 53 20 41 55 46 20 4E 55 | ERGEBNIS AUF NU| 000005F0: 4D 45 52 49 53 43 48 20 54 45 53 54 45 4E 00 04 |MERISCH TESTEN..| 00000600: 0E AC 03 3B 00 18 0E E8 03 9D 54 41 42 20 2E 57 |...;......TAB .W| 00000610: B0 20 41 44 52 31 AB 31 00 27 0E F2 03 2E 57 B0 |. ADR1.1.'....W.| 00000620: 20 41 44 52 32 AB 31 00 31 0E FC 03 3B 2E 2E 2E | ADR2.1.1...;...| 00000630: 2E 00 45 0E 4C 04 46 55 4E 54 41 42 20 2E 57 B0 |..E.L.FUNTAB .W.| 00000640: 20 41 44 52 41 00 52 0E 56 04 2E 57 B0 20 41 44 | ADRA.R.V..W. AD| 00000650: 52 42 00 5F 0E 60 04 2E 57 B0 20 41 44 52 43 00 |RB._.`..W. ADRC.| 00000660: 00 00 |.. |
....Z.. 8.4096...D..OPT P,OO.".N.;.?.X.; EINBINDUNG NEUER .KENS.E...;.D....VEK . $308 ; BEFEHLSVEK.R... .FUNVEK . $30A ; FUNKTI.SVEK.R.....;.....TYPFLAG . 13... ..CHR. . $73.....CHRKT . CHR..6.T.H.TXTP TR . CHRKT.1...R.EXECOLD . $A7ED...W..ER . $A7AE...Y.FUNK.LD . $AE8D...Z..TERM . $AEF1.3...CHECKNUM . $AD8D.`...JUMP . $ 54 ; SPRINGBEFEHL FUER FUNKTI.EN...,..ST ART . $CC ; ERSTES BEFEHLS.KEN...6... . $E0 ; .ZTES BEFEHLS.KEN...@.;.V.J.FUNSTA RT . $E1 ; ERSTES FUNKTI.S.KEN...T.FUN. . $FE ; .ZTES FUNKTI.S.KEN...^.;.....INI T LDA #........LDY #....;...STA .VEK ; B EFEHLSVEK.R.J...STY .VEK.1.P...;._.B.LDA #..FUN.N.L.LDY #..FUN...V.STA FUNVEK ; FUNKTI.SVEK.R.....STY FUNVEK.1.....RTS.. ...;.G..... JSR CHR. ; .KEN HOC.U...JSR TEST......JMP .ER ; ZUR .ERPRETERSCHLE.E .....TEST. CMP #.START.*...BCC OLD. ; AL TER BEFEHL.8...CMP #...1.D.&.BCC OK..O.0 .OLD. JSR CHRKT ; FLAGS WIEDER HERSTELC. .:.JMP EXECOLD...D.;...N.OK. SEC...X.SB C #.START...B.ASL ; MAL 2...L.TAX.T.V.LD A .TAB.1,X ; HI.BYTE.....PHA ; RUECKSPRI NGADRESSE AUF STACK.....LDA .TAB,X.....P HA ; LO.BYTE.)...JMP CHR../...;.?....FUN LDA #0.O.F.STA TYPFLAG.G.P.JSR CHR. ; . KEN HOC.Y.Z.CMP #FUNSTART.....BCC OLDFUN ; ALTE FUNKTI......CMP #FUN..1.....BCC OK1..I...OLDFUN JSR CHRKT.Y...JMP FUNK.L D.....;... .OK1. SEC...*.SBC #FUNSTART.. .4.ASL.*.>.PHA ; ZEIGER AUF TABELLE MERK EN.K.H.JSR CHR. ; NAECHSTES ZEICHEN.Y.R. JSR .TERM.A.\.PLA.I.F.TAY.Z.P.LDA FUNTAB ,Y...Z.STA JUMP.1.....LDA FUNTAB.1,Y.... .STA JUMP.2.M...JSR JUMP ; FUNKTI. AUSFU EHREN.....JMP CHECKNUM ; ERGEBNIS AUF NU MERISCH TESTEN.....;......TAB .W. ADR1.1 .'....W. ADR2.1.1...;.....E.L.FUNTAB .W. ADRA.R.V..W. ADRB._.`..W. ADRC...
> CLICK IMAGE PREVIEW FOR FULL MODAL