IF.BAS
FILE INFORMATION
FILENAME(S): IF.BAS
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 16:18:11
APPEARS ON: 1 disk(s)
FILE HASH
3fb4c8b5036fff138106bdfc085dd93169aaa44de97895d590c2e3a1ba934dba
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ERICH | IF.BAS | PRG | BrainSkull, Leopold Zyka | 31 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 E8 03 8F 20 50 52 47 4D 2D 4E 41 4D |....... PRGM-NAM| 00000010: 45 3D 20 49 46 2E 42 41 53 00 46 08 1A 04 99 22 |E= IF.BAS.F...."| 00000020: 20 20 20 20 20 12 20 20 49 4E 54 45 52 46 41 43 | . INTERFAC| 00000030: 45 20 46 55 45 52 20 43 36 34 2D 4C 53 54 41 52 |E FUER C64-LSTAR| 00000040: 20 20 92 20 20 22 00 4C 08 4C 04 99 00 6E 08 7E | . ".L.L...n.~| 00000050: 04 99 22 20 4C 41 44 45 4E 20 44 45 53 20 55 4E |.." LADEN DES UN| 00000060: 54 45 52 50 52 4F 47 52 41 4D 4D 53 20 22 00 8C |TERPROGRAMMS "..| 00000070: 08 E2 04 8B 20 41 B2 30 20 A7 20 41 B2 31 3A 93 |.... A.0 . A.1:.| 00000080: 22 49 46 2E 4D 4B 20 22 2C 38 2C 31 00 95 08 46 |"IF.MK ",8,1...F| 00000090: 05 99 22 93 22 00 9B 08 78 05 99 00 C1 08 AA 05 |.."."...x.......| 000000A0: 8F 20 48 49 45 52 20 53 54 45 48 45 4E 20 44 49 |. HIER STEHEN DI| 000000B0: 45 20 53 54 41 52 54 2D 50 55 4E 4B 54 45 20 46 |E START-PUNKTE F| 000000C0: 2E 00 E4 08 DC 05 8F 20 44 49 45 20 53 59 53 20 |....... DIE SYS | 000000D0: 45 49 4E 53 50 52 55 45 4E 47 45 20 49 4D 20 49 |EINSPRUENGE IM I| 000000E0: 46 2E 4D 4B 00 EA 08 0E 06 8F 00 0C 09 40 06 53 |F.MK.........@.S| 000000F0: 41 B2 31 32 AC 34 30 39 36 20 3A 20 8F 20 53 54 |A.12.4096 : . ST| 00000100: 3D 53 54 41 52 54 20 49 46 2E 4D 4B 00 2C 09 72 |=START IF.MK.,.r| 00000110: 06 49 4E B2 53 41 AA 35 35 30 20 20 3A 20 8F 20 |.IN.SA.550 : . | 00000120: 49 4E 49 54 49 41 4C 20 50 4F 52 54 00 4B 09 A4 |INITIAL PORT.K..| 00000130: 06 53 4F B2 53 41 20 20 20 20 20 20 3A 20 8F 20 |.SO.SA : . | 00000140: 53 45 52 49 45 4C 4C 20 4F 55 54 00 66 09 D6 06 |SERIELL OUT.f...| 00000150: 4D 31 20 B2 53 41 AA 32 30 30 20 3A 20 8F 20 4D |M1 .SA.200 : . M| 00000160: 50 58 31 45 49 4E 00 81 09 08 07 4D 32 20 B2 53 |PX1EIN.....M2 .S| 00000170: 41 AA 32 33 30 20 3A 20 8F 20 4D 50 58 31 41 55 |A.230 : . MPX1AU| 00000180: 53 00 9C 09 3A 07 4D 33 20 B2 53 41 AA 32 35 30 |S...:.M3 .SA.250| 00000190: 20 3A 20 8F 20 4D 50 58 32 45 49 4E 00 B7 09 6C | : . MPX2EIN...l| 000001A0: 07 4D 34 20 B2 53 41 AA 32 38 30 20 3A 20 8F 20 |.M4 .SA.280 : . | 000001B0: 4D 50 58 32 41 55 53 00 D4 09 9E 07 54 31 20 B2 |MPX2AUS.....T1 .| 000001C0: 53 41 AA 33 30 30 20 3A 20 8F 20 54 52 49 41 43 |SA.300 : . TRIAC| 000001D0: 31 45 49 4E 00 F1 09 D0 07 54 32 20 B2 53 41 AA |1EIN.....T2 .SA.| 000001E0: 33 36 30 20 3A 20 8F 20 54 52 49 41 43 31 41 55 |360 : . TRIAC1AU| 000001F0: 53 00 0E 0A 02 08 54 33 20 B2 53 41 AA 33 34 30 |S.....T3 .SA.340| 00000200: 20 3A 20 8F 20 54 52 49 41 43 32 45 49 4E 00 2B | : . TRIAC2EIN.+| 00000210: 0A 34 08 54 34 20 B2 53 41 AA 33 36 30 20 3A 20 |.4.T4 .SA.360 : | 00000220: 8F 20 54 52 49 41 43 32 41 55 53 00 48 0A 66 08 |. TRIAC2AUS.H.f.| 00000230: 45 49 B2 20 53 41 AA 34 30 30 20 3A 20 8F 20 45 |EI. SA.400 : . E| 00000240: 49 4E 47 41 45 4E 47 45 00 4E 0A B8 0B 8F 00 57 |INGAENGE.N.....W| 00000250: 0A EA 0B 9E 20 49 4E 00 79 0A 1C 0C 99 22 50 4F |.... IN.y...."PO| 00000260: 52 54 23 32 20 49 53 54 20 49 4E 49 54 49 41 4C |RT#2 IST INITIAL| 00000270: 49 53 49 45 52 54 20 21 22 00 7F 0A 4E 0C 99 00 |ISIERT !"...N...| 00000280: A6 0A A0 0F 99 22 20 20 20 20 20 20 12 49 4E 54 |....." .INT| 00000290: 45 52 46 41 43 45 20 43 36 34 20 4C 49 46 54 53 |ERFACE C64 LIFTS| 000002A0: 54 41 52 92 20 22 00 AC 0A D2 0F 99 00 C5 0A 04 |TAR. "..........| 000002B0: 10 99 22 57 45 4C 43 48 45 20 41 55 53 47 45 4E |.."WELCHE AUSGEN| 000002C0: 47 45 20 3F 22 00 CB 0A 36 10 99 00 DF 0A 68 10 |GE ?"...6.....h.| 000002D0: 99 22 2D 2D 3E 20 31 20 3D 20 4D 50 58 20 22 00 |."--> 1 = MPX ".| 000002E0: E5 0A 9A 10 99 00 FC 0A CC 10 99 22 2D 2D 3E 20 |..........."--> | 000002F0: 32 20 3D 20 54 52 49 41 43 53 20 22 00 02 0B FE |2 = TRIACS "....| 00000300: 10 99 00 1E 0B 30 11 99 22 2D 2D 3E 20 33 20 3D |.....0.."--> 3 =| 00000310: 20 53 45 52 49 45 4C 4C 20 4F 55 54 20 22 00 24 | SERIELL OUT ".$| 00000320: 0B 62 11 99 00 3A 0B 94 11 A1 41 20 3A 8B 41 B3 |.b...:....A :.A.| 00000330: 31 B0 41 B1 33 A7 34 35 30 30 00 4A 0B C6 11 8B |1.A.3.4500.J....| 00000340: 41 20 B2 31 A7 20 38 30 30 30 00 5A 0B F8 11 8B |A .1. 8000.Z....| 00000350: 41 20 B2 32 A7 31 35 30 30 30 00 6A 0B 2A 12 8B |A .2.15000.j.*..| 00000360: 41 20 B2 33 A7 32 30 30 30 30 00 70 0B 40 1F 8F |A .3.20000.p.@..| 00000370: 00 95 0B 72 1F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 |...r.. ******** | 00000380: 20 4D 55 4C 54 49 50 4C 45 58 45 52 20 2A 2A 2A | MULTIPLEXER ***| 00000390: 2A 2A 2A 2A 2A 00 9B 0B A4 1F 8F 00 A4 0B D6 1F |*****...........| 000003A0: 99 22 93 22 00 CB 0B 08 20 99 22 20 20 20 20 20 |.".".... ." | 000003B0: 20 12 49 4E 54 45 52 46 41 43 45 20 43 36 34 20 | .INTERFACE C64 | 000003C0: 4C 49 46 54 53 54 41 52 92 20 22 00 D1 0B 3A 20 |LIFTSTAR. "...: | 000003D0: 99 00 ED 0B 6C 20 99 22 4D 55 4C 54 49 50 4C 45 |....l ."MULTIPLE| 000003E0: 58 45 52 20 41 4E 20 26 20 41 55 53 22 00 F3 0B |XER AN & AUS"...| 000003F0: 9E 20 99 00 0B 0C D0 20 99 22 2D 2D 3E 20 31 20 |. ..... ."--> 1 | 00000400: 3D 20 4D 50 58 31 20 41 4E 20 22 00 23 0C 02 21 |= MPX1 AN ".#..!| 00000410: 99 22 2D 2D 3E 20 32 20 3D 20 4D 50 58 31 20 41 |."--> 2 = MPX1 A| 00000420: 55 53 22 00 3A 0C 34 21 99 22 2D 2D 3E A0 33 20 |US".:.4!."-->.3 | 00000430: 3D 20 4D 50 58 32 20 41 4E 22 00 52 0C 66 21 99 |= MPX2 AN".R.f!.| 00000440: 22 2D 2D 3E 20 34 20 3D 20 4D 50 58 32 20 41 55 |"--> 4 = MPX2 AU| 00000450: 53 22 00 67 0C 98 21 99 22 2D 2D 3E 20 35 20 3D |S".g..!."--> 5 =| 00000460: 20 45 4E 44 45 20 22 00 7E 0C CA 21 A1 20 42 20 | ENDE ".~..!. B | 00000470: 3A 8B 42 B3 31 B0 42 B1 35 A7 38 36 35 30 00 90 |:.B.1.B.5.8650..| 00000480: 0C FC 21 8B 20 42 20 B2 31 20 A7 20 9E 20 4D 31 |..!. B .1 . . M1| 00000490: 00 A2 0C 2E 22 8B 20 42 20 B2 32 20 A7 20 9E 20 |....". B .2 . . | 000004A0: 4D 32 00 B4 0C 60 22 8B 20 42 20 B2 33 20 A7 20 |M2...`". B .3 . | 000004B0: 9E 20 4D 33 00 C6 0C 92 22 8B 20 42 20 B2 34 20 |. M3....". B .4 | 000004C0: A7 20 9E 20 4D 34 00 D8 0C C4 22 8B 20 42 20 B2 |. . M4....". B .| 000004D0: 35 20 A7 20 34 30 30 30 00 F0 0C D8 22 99 22 12 |5 . 4000....".".| 000004E0: 20 47 45 44 52 55 45 43 4B 54 20 3A 92 22 3B 42 | GEDRUECKT :.";B| 000004F0: 00 FB 0C F6 22 89 20 38 30 30 30 00 01 0D 98 3A |....". 8000....:| 00000500: 8F 00 23 0D A2 3A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..#..:.*********| 00000510: 2A 2A 20 54 52 49 41 43 53 20 2A 2A 2A 2A 2A 2A |** TRIACS ******| 00000520: 2A 2A 2A 00 29 0D AC 3A 8F 00 2F 0D B6 3A 3A 00 |***.)..:../..::.| 00000530: 50 0D C0 3A 99 22 20 20 20 20 20 20 20 20 54 52 |P..:." TR| 00000540: 49 41 43 53 20 41 4E 20 26 20 41 55 53 20 21 22 |IACS AN & AUS !"| 00000550: 00 56 0D CA 3A 99 00 70 0D D4 3A 99 22 2D 2D 3E |.V..:..p..:."-->| 00000560: 20 31 20 3D 20 54 52 49 41 43 20 31 20 41 4E 22 | 1 = TRIAC 1 AN"| 00000570: 00 8B 0D DE 3A 99 22 2D 2D 3E 20 32 20 3D 20 54 |....:."--> 2 = T| 00000580: 52 49 41 43 20 31 20 41 55 53 22 00 A5 0D E8 3A |RIAC 1 AUS"....:| 00000590: 99 22 2D 2D 3E 20 33 20 3D 20 54 52 49 41 43 20 |."--> 3 = TRIAC | 000005A0: 32 20 41 4E 22 00 C0 0D F2 3A 99 22 2D 2D 3E 20 |2 AN"....:."--> | 000005B0: 34 20 3D 20 54 52 49 41 43 20 32 20 41 55 53 22 |4 = TRIAC 2 AUS"| 000005C0: 00 DA 0D FC 3A 99 22 2D 2D 3E 20 35 20 3D 20 45 |....:."--> 5 = E| 000005D0: 4E 44 45 20 20 20 20 20 20 22 00 F2 0D 06 3B A1 |NDE "....;.| 000005E0: 20 42 20 3A 8B 42 B3 31 B0 42 B1 35 A7 31 35 31 | B :.B.1.B.5.151| 000005F0: 31 30 00 02 0E F8 3E 8B 20 42 B2 31 A7 20 9E 20 |10....>. B.1. . | 00000600: 54 31 00 12 0E 02 3F 8B 20 42 B2 32 A7 20 9E 20 |T1....?. B.2. . | 00000610: 54 32 00 22 0E 0C 3F 8B 20 42 B2 33 A7 20 9E 20 |T2."..?. B.3. . | 00000620: 54 33 00 32 0E 16 3F 8B 20 42 B2 34 A7 20 9E 20 |T3.2..?. B.4. . | 00000630: 54 34 00 41 0E 20 3F 8B 20 42 B2 35 A7 34 30 30 |T4.A. ?. B.5.400| 00000640: 30 00 59 0E 25 3F 99 22 12 20 47 45 44 52 55 45 |0.Y.%?.". GEDRUE| 00000650: 43 4B 54 20 3A 92 22 3B 42 00 64 0E 2A 3F 89 31 |CKT :.";B.d.*?.1| 00000660: 35 31 31 30 00 6A 0E 20 4E 8F 00 89 0E 2A 4E 8F |5110.j. N....*N.| 00000670: 2A 2A 2A 2A 2A 2A 2A 2A 20 53 45 52 20 4F 55 54 |******** SER OUT| 00000680: 20 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 0E 34 4E 8F 00 | ********...4N..| 00000690: 95 0E 3E 4E 3A 00 B5 0E 48 4E 99 22 20 20 20 20 |..>N:...HN." | 000006A0: 20 20 20 20 20 53 45 52 49 45 4C 4C 45 53 20 52 | SERIELLES R| 000006B0: 41 55 53 20 22 00 BB 0E 52 4E 99 00 D8 0E 5C 4E |AUS "...RN....\N| 000006C0: 99 22 45 49 4E 47 41 42 45 20 44 45 52 20 53 45 |."EINGABE DER SE| 000006D0: 52 2E 5A 41 48 4C 3A 22 00 EA 0E 61 4E 99 22 20 |R.ZAHL:"...aN." | 000006E0: 27 45 27 3D 45 4E 44 45 20 22 00 FF 0E 66 4E 85 |'E'=ENDE "...fN.| 000006F0: 20 43 3A 8B 43 B1 32 35 35 A7 32 30 30 37 30 00 | C:.C.255.20070.| 00000700: 0D 0F 70 4E 99 22 5A 41 48 4C 22 3B 43 00 1C 0F |..pN."ZAHL";C...| 00000710: 7A 4E 97 38 33 33 2C 43 3A 9E 53 4F 00 31 0F 84 |zN.833,C:.SO.1..| 00000720: 4E A1 43 24 3A 8B 43 24 B2 22 45 22 A7 34 30 30 |N.C$:.C$."E".400| 00000730: 30 00 3C 0F B6 4E 89 32 30 30 30 30 00 00 00 |0.<..N.20000... |
....... PRGM-NAME= IF.BAS.F...." . INTERFACE FUER C64-LSTAR . ".L.L...N.~ .." LADEN DES UNTERPROGRAMMS "...... A.0 . A.1:."IF.MK ",8,1...F.."."...X...A... . HIER STEHEN DIE START-PUNKTE F....... DIE SYS EINSPRUENGE IM IF.MK.........@.S A.12.4096 : . ST=START IF.MK.,.R.IN.SA.5 50 : . INITIAL PORT.K...SO.SA : . SERIELL OUT.F.V.M1 .SA.200 : . MPX1EIN.. ...M2 .SA.230 : . MPX1AUS...:.M3 .SA.250 : . MPX2EIN...L.M4 .SA.280 : . MPX2AUS. T...T1 .SA.300 : . TRIAC1EIN...P.T2 .SA. 360 : . TRIAC1AUS.....T3 .SA.340 : . TRI AC2EIN.+.4.T4 .SA.360 : . TRIAC2AUS.H.F. EI. SA.400 : . EINGAENGE.N.....W.... IN. Y...."PORT#2 IST INITIALISIERT !"..N... .. .." .INTERFACE C64 LIFTSTAR. ".. .R...E...."WELCHE AUSGENGE ?".K.6.....H. ."--> 1 = MPX ".........L.."--> 2 = TRIA CS ".........0.."--> 3 = SERIELL OUT ".$ .B...:....A :.A.1.A.3.4500.J.F..A .1. 80 00.Z....A .2.15000.J.*..A .3.20000.P.@.. ...R.. ******** MULTIPLEXER ********... ......V..".".K.. ." .INTERFACE C64 LIFTSTAR. ".Q.: ....L ."MULTIPLEXER AN & AUS".... ....P ."--> 1 = MPX1 AN ".#..! ."--> 2 = MPX1 AUS".:.4!."--> 3 = MPX2 A N".R.F!."--> 4 = MPX2 AUS".G..!."--> 5 = ENDE ".~.J!. B :.B.1.B.5.8650....!. B . 1 . . M1....". B .2 . . M2...`". B .3 . . M3.F..". B .4 . . M4.X.D". B .5 . 4000 ...X".". GEDRUECKT :.";B....". 8000....: ..#..:.*********** TRIACS *********.)..: ../..::.P..:." TRIACS AN & AUS !" .V.J:..P.T:."--> 1 = TRIAC 1 AN"....:."- -> 2 = TRIAC 1 AUS"....:."--> 3 = TRIAC 2 AN"....:."--> 4 = TRIAC 2 AUS".Z..:."- -> 5 = ENDE "....;. B :.B.1.B.5.151 10....>. B.1. . T1....?. B.2. . T2."..?. B.3. . T3.2..?. B.4. . T4.A. ?. B.5.400 0.Y.%?.". GEDRUECKT :.";B.D.*?.15110.J. N....*N.******** SER OUT ********...4N.. ..>N:...HN." SERIELLES RAUS "... RN..X.\N."EINGABE DER SER.ZAHL:"...AN." 'E'=ENDE "...FN. C:.C.255.20070...PN."ZA HL";C...ZN.833,C:.SO.1..N.C$:.C$."E".400 0.<..N.20000...
> CLICK IMAGE PREVIEW FOR FULL MODAL