LIGHTP.-IRQ
FILE INFORMATION
FILENAME(S): LIGHTP.-IRQ
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-10-20 14:31:06
APPEARS ON: 5 disk(s)
FILE HASH
c6c4a6c000a664d4f4e18d76a938253289bf95151f902d85957b89de6ca58b0a
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER SONDERH 65 | LIGHTP.-IRQ | PRG | Treasure Chest - Klaus Der Suhler | 21 | 0 | DOWNLOAD FILE |
| 64 ER SONDERH 65 | LIGHTP.-IRQ | PRG | Treasure Chest - Plattfuss | 21 | 0 | DOWNLOAD FILE |
| 64 ER SONDERH 65 | LIGHTP.-IRQ | PRG | C64er | 21 | 0 | DOWNLOAD FILE |
| 10705 64ER 5 87 | LIGHTP.-IRQ | PRG | C64er, DuncanTwain | 20 | 0 | DOWNLOAD FILE |
| 64 ER SONDERH 65 | LIGHTP.-IRQ | PRG | DuncanTwain | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 9E 33 32 37 36 38 3A 2E 4F 50 |.......32768:.OP|
00000010: 54 20 50 2C 4F 4F 3A AC B2 20 24 43 30 44 46 00 |T P,OO:.. $C0DF.|
00000020: 40 08 01 00 2E 54 49 54 20 22 4C 49 47 48 54 50 |@....TIT "LIGHTP|
00000030: 45 4E 2F 4A 4F 59 53 54 49 43 4B 2D 49 52 51 22 |EN/JOYSTICK-IRQ"|
00000040: 00 4D 08 02 00 2E 50 41 47 20 32 35 35 00 5D 08 |.M....PAG 255.].|
00000050: 03 00 56 49 43 20 B2 20 24 44 30 30 30 00 6C 08 |..VIC . $D000.l.|
00000060: 04 00 46 4C 41 47 20 B2 20 24 39 42 00 7F 08 05 |..FLAG . $9B....|
00000070: 00 49 52 51 41 4C 54 20 B2 20 24 45 41 33 31 00 |.IRQALT . $EA31.|
00000080: 90 08 07 00 4D 41 53 4B 20 B2 20 24 44 30 31 41 |....MASK . $D01A|
00000090: 00 A4 08 08 00 52 45 51 55 45 53 54 20 B2 20 24 |.....REQUEST . $|
000000A0: 44 30 31 39 00 AA 08 09 00 3B 00 BD 08 0A 00 3B |D019.....;.....;|
000000B0: 49 4E 49 54 49 41 4C 49 53 49 45 8A 47 00 D2 08 |INITIALISIE.G...|
000000C0: 0B 00 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |..;.............|
000000D0: B2 B2 00 D8 08 0C 00 3B 00 FB 08 0D 00 53 45 49 |.......;.....SEI|
000000E0: 20 20 20 20 20 20 20 3B B5 45 52 52 52 55 50 54 | ;.ERRRUPT|
000000F0: 20 56 45 52 48 49 4E 44 45 52 4E 00 0C 09 0E 00 | VERHINDERN.....|
00000100: 4C 44 41 20 23 B3 49 52 51 4E 45 55 00 1D 09 0F |LDA #.IRQNEU....|
00000110: 00 4C 44 58 20 23 B1 49 52 51 4E 45 55 00 3F 09 |.LDX #.IRQNEU.?.|
00000120: 10 00 53 54 41 20 24 30 33 31 34 20 3B 49 52 51 |..STA $0314 ;IRQ|
00000130: AB 56 45 4B A4 52 20 41 55 46 20 4E 45 55 45 00 |.VEK.R AUF NEUE.|
00000140: 5D 09 11 00 53 54 58 20 24 30 33 31 35 20 3B 52 |]...STX $0315 ;R|
00000150: 4F 55 54 49 4E 45 20 53 45 54 5A 45 4E 00 81 09 |OUTINE SETZEN...|
00000160: 12 00 4C 44 41 20 23 30 30 20 20 20 20 20 20 20 |..LDA #00 |
00000170: 20 20 3B 46 4C 41 47 20 46 55 45 52 20 54 45 58 | ;FLAG FUER TEX|
00000180: 54 00 9D 09 13 00 53 54 41 20 46 4C 41 47 20 20 |T.....STA FLAG |
00000190: 20 20 20 20 20 20 3B 53 45 54 5A 45 4E 00 AD 09 | ;SETZEN...|
000001A0: 14 00 4C 44 41 20 23 B3 24 36 30 30 30 00 B9 09 |..LDA #.$6000...|
000001B0: 15 00 53 54 41 20 24 37 31 00 DB 09 16 00 4C 44 |..STA $71.....LD|
000001C0: 41 20 23 B1 24 36 30 30 30 20 20 20 20 20 3B 47 |A #.$6000 ;G|
000001D0: 52 41 46 49 4B 53 43 48 49 52 4D 00 E7 09 17 00 |RAFIKSCHIRM.....|
000001E0: 53 54 41 20 24 37 32 00 05 0A 18 00 4C 44 41 20 |STA $72.....LDA |
000001F0: 23 30 30 20 20 20 20 20 20 20 20 20 3B 41 42 20 |#00 ;AB |
00000200: 24 36 30 30 30 00 11 0A 19 00 4C 44 58 20 23 33 |$6000.....LDX #3|
00000210: 32 00 2F 0A 1A 00 4C 31 20 20 54 41 59 20 20 20 |2./...L1 TAY |
00000220: 20 20 20 20 20 20 3B 4C 4F 45 53 43 48 45 4E 00 | ;LOESCHEN.|
00000230: 43 0A 1B 00 4C 32 20 20 53 54 41 20 28 24 37 31 |C...L2 STA ($71|
00000240: 29 2C 59 00 4B 0A 1C 00 49 4E 59 00 56 0A 1D 00 |),Y.K...INY.V...|
00000250: 42 4E 45 20 4C 32 00 66 0A 1E 00 49 4E 43 20 24 |BNE L2.f...INC $|
00000260: 37 32 3A 44 45 58 00 71 0A 1F 00 42 4E 45 20 4C |72:DEX.q...BNE L|
00000270: 31 00 91 0A 20 00 4C 44 41 20 23 B3 24 34 34 30 |1... .LDA #.$440|
00000280: 30 20 20 20 20 20 3B 56 49 44 45 B0 41 4D 20 41 |0 ;VIDE.AM A|
00000290: 42 00 9D 0A 21 00 53 54 41 20 24 37 31 00 C2 0A |B...!.STA $71...|
000002A0: 22 00 4C 44 41 20 23 B1 24 34 34 30 30 20 20 20 |".LDA #.$4400 |
000002B0: 20 20 3B 24 34 34 30 30 20 4D 49 54 20 46 41 52 | ;$4400 MIT FAR|
000002C0: 42 45 00 CE 0A 23 00 53 54 41 20 24 37 32 00 F1 |BE...#.STA $72..|
000002D0: 0A 24 00 4C 44 41 20 23 31 31 30 20 20 20 20 20 |.$.LDA #110 |
000002E0: 20 20 20 3B 46 55 45 4C C3 AB 20 50 55 4E 4B 54 | ;FUEL.. PUNKT|
000002F0: AB 00 FD 0A 25 00 4C 44 58 20 23 30 34 00 21 0B |....%.LDX #04.!.|
00000300: 26 00 4C 33 20 20 4C 44 59 20 23 30 30 20 20 20 |&.L3 LDY #00 |
00000310: 20 20 3B 46 41 52 45 20 48 45 4C 4C 42 4C 41 55 | ;FARE HELLBLAU|
00000320: 2C 00 35 0B 27 00 4C 34 20 20 53 54 41 20 28 24 |,.5.'.L4 STA ($|
00000330: 37 31 29 2C 59 00 57 0B 28 00 49 4E 59 20 20 20 |71),Y.W.(.INY |
00000340: 20 20 20 20 20 20 20 20 20 20 3B 48 B5 45 52 47 | ;H.ERG|
00000350: 8A 44 20 42 4C 41 55 00 62 0B 29 00 42 4E 45 20 |.D BLAU.b.).BNE |
00000360: 4C 34 00 72 0B 2A 00 49 4E 43 20 24 37 32 3A 44 |L4.r.*.INC $72:D|
00000370: 45 58 00 7D 0B 2B 00 42 4E 45 20 4C 33 00 A6 0B |EX.}.+.BNE L3...|
00000380: 2E 00 4C 44 41 20 23 25 31 30 30 30 31 30 30 30 |..LDA #%10001000|
00000390: 20 20 3B 49 52 51 20 44 55 52 43 48 20 4C 49 47 | ;IRQ DURCH LIG|
000003A0: 48 54 50 45 4E AD 00 CE 0B 2F 00 53 54 41 20 4D |HTPEN..../.STA M|
000003B0: 41 53 4B 20 20 20 20 20 20 20 20 3B 4A 4F 59 53 |ASK ;JOYS|
000003C0: 54 49 43 4B 20 46 45 53 54 4C 45 47 45 4E 00 EF |TICK FESTLEGEN..|
000003D0: 0B 30 00 43 4C 49 20 20 20 20 20 20 20 20 20 20 |.0.CLI |
000003E0: 20 20 20 3B 49 52 51 20 B8 49 47 45 42 45 4E 00 | ;IRQ .IGEBEN.|
000003F0: F7 0B 31 00 52 54 53 00 FD 0B 32 00 3B 00 16 0C |..1.RTS...2.;...|
00000400: 33 00 3B 4E 45 55 45 20 B5 45 52 52 55 50 54 52 |3.;NEUE .ERRUPTR|
00000410: 4F 55 54 49 4E 45 00 31 0C 34 00 3B B2 B2 B2 B2 |OUTINE.1.4.;....|
00000420: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000430: B2 00 37 0C 35 00 3B 00 5F 0C 36 00 49 52 51 4E |..7.5.;._.6.IRQN|
00000440: 45 55 20 20 4C 44 41 20 52 45 51 55 45 53 54 20 |EU LDA REQUEST |
00000450: 20 20 3B 49 52 51 AB 52 45 47 49 53 54 45 52 00 | ;IRQ.REGISTER.|
00000460: 7E 0C 37 00 53 54 41 20 52 45 51 55 45 53 54 20 |~.7.STA REQUEST |
00000470: 20 20 20 20 20 3B 4C 4F 45 53 43 48 45 4E 00 A5 | ;LOESCHEN..|
00000480: 0C 38 00 42 4D 49 20 52 41 53 54 45 52 20 20 20 |.8.BMI RASTER |
00000490: 20 20 20 20 3B 5A 55 4D 20 52 41 53 54 45 52 20 | ;ZUM RASTER |
000004A0: AB 20 49 52 51 00 AB 0C 39 00 3B 00 BE 0C 3A 00 |. IRQ...9.;...:.|
000004B0: 3B 54 49 4D 45 52 AB B5 45 52 52 55 50 54 00 D3 |;TIMER..ERRUPT..|
000004C0: 0C 3B 00 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |.;.;............|
000004D0: B2 B2 B2 00 D9 0C 3C 00 3B 00 01 0D 3D 00 4C 44 |......<.;...=.LD|
000004E0: 41 20 24 44 43 30 44 20 20 20 20 20 20 20 20 3B |A $DC0D ;|
000004F0: 49 52 51 AB 52 45 47 2E 20 4C 4F 45 53 43 48 45 |IRQ.REG. LOESCHE|
00000500: 4E 00 24 0D 3E 00 43 4C 49 20 20 20 20 20 20 20 |N.$.>.CLI |
00000510: 20 20 20 20 20 20 20 3B 49 52 51 20 5A 55 4C 41 | ;IRQ ZULA|
00000520: 53 53 45 4E 00 4C 0D 3F 00 4A 4D 50 20 49 52 51 |SSEN.L.?.JMP IRQ|
00000530: 41 4C 54 20 20 20 20 20 20 20 3B 54 49 4D 45 52 |ALT ;TIMER|
00000540: AB 49 52 51 AB 52 4F 55 54 49 4E 45 00 52 0D 40 |.IRQ.ROUTINE.R.@|
00000550: 00 3B 00 6A 0D 41 00 3B 52 41 53 54 45 52 5A 45 |.;.j.A.;RASTERZE|
00000560: 49 C3 AB B5 45 52 52 55 50 54 00 86 0D 42 00 3B |I...ERRUPT...B.;|
00000570: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000580: B2 B2 B2 B2 B2 B2 00 8C 0D 43 00 3B 00 B9 0D 46 |.........C.;...F|
00000590: 00 52 41 53 54 45 52 20 20 20 4C 44 41 20 46 4C |.RASTER LDA FL|
000005A0: 41 47 20 20 20 20 20 20 20 20 20 3B 48 47 52 20 |AG ;HGR |
000005B0: 4F 44 45 52 20 54 45 58 54 00 C5 0D 47 00 43 4D |ODER TEXT...G.CM|
000005C0: 50 20 23 30 30 00 EE 0D 48 00 42 45 51 20 48 47 |P #00...H.BEQ HG|
000005D0: 52 20 20 20 20 20 20 20 20 20 20 3B 47 52 41 46 |R ;GRAF|
000005E0: 49 4B 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 F4 |IK EINSCHALTEN..|
000005F0: 0D 49 00 3B 00 11 0E 4A 00 3B 41 55 46 20 54 45 |.I.;...J.;AUF TE|
00000600: 58 54 53 43 48 49 52 4D 20 53 43 48 41 4C 54 45 |XTSCHIRM SCHALTE|
00000610: 4E 00 2E 0E 4B 00 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 |N...K.;.........|
00000620: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 34 |...............4|
00000630: 0E 4C 00 3B 00 47 0E 4D 00 4C 44 41 20 23 25 30 |.L.;.G.M.LDA #%0|
00000640: 30 30 31 31 30 31 31 00 70 0E 4E 00 53 54 41 20 |0011011.p.N.STA |
00000650: 56 49 43 AA 31 37 20 20 20 20 20 20 20 3B 47 52 |VIC.17 ;GR|
00000660: 41 46 49 4B 20 41 55 53 53 43 48 41 4C 54 45 4E |AFIK AUSSCHALTEN|
00000670: 00 90 0E 4F 00 4C 44 41 20 23 25 31 31 30 30 31 |...O.LDA #%11001|
00000680: 30 30 30 20 20 20 3B 4D 55 4C 54 49 43 4F 4C B0 |000 ;MULTICOL.|
00000690: 00 B2 0E 50 00 53 54 41 20 56 49 43 AA 32 32 20 |...P.STA VIC.22 |
000006A0: 20 20 20 20 20 20 3B 41 55 53 53 43 48 41 4C 54 | ;AUSSCHALT|
000006B0: 45 4E 00 D8 0E 51 00 4C 44 41 20 23 25 30 30 30 |EN...Q.LDA #%000|
000006C0: 31 30 31 30 31 20 20 20 3B 5A 45 49 43 48 45 4E |10101 ;ZEICHEN|
000006D0: 53 41 54 5A 20 41 55 46 00 F9 0E 52 00 53 54 41 |SATZ AUF...R.STA|
000006E0: 20 56 49 43 AA 32 34 20 20 20 20 20 20 20 3B 47 | VIC.24 ;G|
000006F0: 52 4F 53 53 43 48 52 8B 54 00 21 0F 53 00 4C 44 |ROSSCHR.T.!.S.LD|
00000700: 41 20 23 25 31 30 30 31 30 31 31 31 20 20 20 3B |A #%10010111 ;|
00000710: 31 36 20 4B AB 56 45 52 53 43 48 49 45 42 55 4E |16 K.VERSCHIEBUN|
00000720: 47 00 48 0F 54 00 53 54 41 20 24 44 44 30 30 20 |G.H.T.STA $DD00 |
00000730: 20 20 20 20 20 20 20 3B 44 45 53 20 41 44 52 45 | ;DES ADRE|
00000740: 53 53 52 41 55 4D 45 53 00 6A 0F 55 00 4C 44 41 |SSRAUMES.j.U.LDA|
00000750: 20 23 30 30 20 20 20 20 20 20 20 20 20 3B 46 4C | #00 ;FL|
00000760: 41 47 20 41 55 46 20 48 47 52 00 88 0F 56 00 53 |AG AUF HGR...V.S|
00000770: 54 41 20 46 4C 41 47 20 20 20 20 20 20 20 20 3B |TA FLAG ;|
00000780: 53 43 48 41 4C 54 45 4E 00 A8 0F 57 00 4A 4D 50 |SCHALTEN...W.JMP|
00000790: 20 24 45 41 37 45 20 20 20 20 20 20 20 20 3B 49 | $EA7E ;I|
000007A0: 52 51 20 42 45 80 45 4E 00 AE 0F 58 00 3B 00 CD |RQ BE.EN...X.;..|
000007B0: 0F 59 00 3B 41 55 46 20 47 52 41 46 49 4B 53 43 |.Y.;AUF GRAFIKSC|
000007C0: 48 49 52 4D 20 53 43 48 41 4C 54 45 4E 00 EC 0F |HIRM SCHALTEN...|
000007D0: 5A 00 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |Z.;.............|
000007E0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 F2 0F 5B |...............[|
000007F0: 00 3B 00 0A 10 5C 00 48 47 52 20 20 4C 44 41 20 |.;...\.HGR LDA |
00000800: 23 25 31 30 31 31 31 30 31 31 00 32 10 5D 00 53 |#%10111011.2.].S|
00000810: 54 41 20 56 49 43 AA 31 37 20 20 20 20 20 20 3B |TA VIC.17 ;|
00000820: 47 52 41 46 49 4B 20 45 49 4E 53 43 48 41 4C 54 |GRAFIK EINSCHALT|
00000830: 45 4E 00 45 10 5E 00 4C 44 41 20 23 25 31 31 30 |EN.E.^.LDA #%110|
00000840: 30 31 30 30 30 00 68 10 5F 00 53 54 41 20 56 49 |01000.h._.STA VI|
00000850: 43 AA 32 32 20 20 20 20 20 20 3B 4D 55 4C 54 49 |C.22 ;MULTI|
00000860: 43 4F 4C B0 20 41 55 53 00 7B 10 60 00 4C 44 41 |COL. AUS.{.`.LDA|
00000870: 20 23 25 30 30 30 31 31 31 30 31 00 A3 10 61 00 | #%00011101...a.|
00000880: 53 54 41 20 56 49 43 AA 32 34 20 20 20 20 20 20 |STA VIC.24 |
00000890: 3B 56 49 44 45 B0 41 4D 20 4E 41 43 48 20 24 34 |;VIDE.AM NACH $4|
000008A0: 34 30 30 00 C9 10 62 00 4C 44 41 20 23 25 31 30 |400...b.LDA #%10|
000008B0: 30 31 30 31 31 30 20 20 3B 31 36 4B AB 56 45 52 |010110 ;16K.VER|
000008C0: 53 43 48 49 45 42 55 4E 47 00 EF 10 63 00 53 54 |SCHIEBUNG...c.ST|
000008D0: 41 20 24 44 44 30 30 20 20 20 20 20 20 20 3B 44 |A $DD00 ;D|
000008E0: 45 53 20 41 44 52 45 53 53 52 41 55 4D 45 53 00 |ES ADRESSRAUMES.|
000008F0: 11 11 64 00 4C 44 41 20 23 30 31 20 20 20 20 20 |..d.LDA #01 |
00000900: 20 20 20 3B 46 4C 41 47 20 41 55 46 20 54 45 58 | ;FLAG AUF TEX|
00000910: 54 00 2E 11 65 00 53 54 41 20 46 4C 41 47 20 20 |T...e.STA FLAG |
00000920: 20 20 20 20 20 3B 53 43 48 41 4C 54 45 4E 00 4C | ;SCHALTEN.L|
00000930: 11 66 00 4A 4D 50 20 24 45 41 37 45 20 20 20 20 |.f.JMP $EA7E |
00000940: 20 20 3B 49 52 51 20 42 45 80 45 4E 00 00 00 | ;IRQ BE.EN... |
.......32768:.OPT P,OO:.. $C0DF.@....TIT
"LIGHTPEN/JOYSTICK-IRQ".M....PAG 255.].
..VIC . $D000.L...FLAG . $9B....IRQALT
. $EA31.....MASK . $D01A.....REQUEST . $
D019.....;.....;INITIALISIE.G.R...;.....
...........X...;.....SEI ;.ERRRUPT
VERHINDERN.....LDA #.IRQNEU.....LDX #.I
RQNEU.?...STA $0314 ;IRQ.VEK.R AUF NEUE.
]...STX $0315 ;ROUTINE SETZEN.....LDA #0
0 ;FLAG FUER TEXT.....STA FLAG
;SETZEN.....LDA #.$6000.....STA $7
1.....LDA #.$6000 ;GRAFIKSCHIRM.....
STA $72.....LDA #00 ;AB $6000...
..LDX #32./...L1 TAY ;LOESCHEN.
C...L2 STA ($71),Y.K...INY.V...BNE L2.F
...INC $72:DEX.Q...BNE L1... .LDA #.$440
0 ;VIDE.AM AB...!.STA $71.B.".LDA #.
$4400 ;$4400 MIT FARBE.N.#.STA $72..
.$.LDA #110 ;FUELC. PUNKT....%.LD
X #04.!.&.L3 LDY #00 ;FARE HELLBLAU
,.5.'.L4 STA ($71),Y.W.(.INY
;H.ERG.D BLAU.B.).BNE L4.R.*.INC $72:D
EX.}.+.BNE L3.....LDA #%10001000 ;IRQ D
URCH LIGHTPEN..N./.STA MASK ;JOYS
TICK FESTLEGEN...0.CLI ;IRQ
.IGEBEN...1.RTS...2.;...3.;NEUE .ERRUPTR
OUTINE.1.4.;......................7.5.;.
_.6.IRQNEU LDA REQUEST ;IRQ.REGISTER.
~.7.STA REQUEST ;LOESCHEN...8.BMI R
ASTER ;ZUM RASTER . IRQ...9.;...:.
;TIMER..ERRUPT.S.;.;................Y.<.
;...=.LDA $DC0D ;IRQ.REG. LOESCHE
N.$.>.CLI ;IRQ ZULASSEN.L.?
.JMP IRQALT ;TIMER.IRQ.ROUTINE.R.@
.;.J.A.;RASTERZEIC..ERRUPT...B.;........
.................C.;...F.RASTER LDA FL
AG ;HGR ODER TEXT.E.G.CMP #00...
H.BEQ HGR ;GRAFIK EINSCHALTEN..
.I.;...J.;AUF TEXTSCHIRM SCHALTEN...K.;.
.......................4.L.;.G.M.LDA #%0
0011011.P.N.STA VIC.17 ;GRAFIK AUS
SCHALTEN...O.LDA #%11001000 ;MULTICOL.
...P.STA VIC.22 ;AUSSCHALTEN.X.Q.L
DA #%00010101 ;ZEICHENSATZ AUF...R.STA
VIC.24 ;GROSSCHR.T.!.S.LDA #%1001
0111 ;16 K.VERSCHIEBUNG.H.T.STA $DD00
;DES ADRESSRAUMES.J.U.LDA #00
;FLAG AUF HGR...V.STA FLAG ;
SCHALTEN...W.JMP $EA7E ;IRQ BE.EN
...X.;.M.Y.;AUF GRAFIKSCHIRM SCHALTEN...
Z.;............................[.;...\.H
GR LDA #%10111011.2.].STA VIC.17 ;
GRAFIK EINSCHALTEN.E.^.LDA #%11001000.H.
_.STA VIC.22 ;MULTICOL. AUS.{.`.LDA
#%00011101...A.STA VIC.24 ;VIDE.AM
NACH $4400.I.B.LDA #%10010110 ;16K.VER
SCHIEBUNG...C.STA $DD00 ;DES ADRES
SRAUMES...D.LDA #01 ;FLAG AUF TEX
T...E.STA FLAG ;SCHALTEN.L.F.JMP $
EA7E ;IRQ BE.EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL