_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

LIGHTPEN-IRQ

FILE INFORMATION

FILENAME(S): LIGHTPEN-IRQ

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-10-20 14:30:10

APPEARS ON: 2 disk(s)

FILE HASH

b0f74a247c7847184a46acce6b0eab2828418f6ee56325a13dffdbe14a5645a7

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
90571 LIGHTPEN-IRQ PRG Treasure Chest - Klaus Der Suhler 13 1 DOWNLOAD FILE
90571 LIGHTPEN-IRQ PRG BrainSkull, Georg Fuchs 1988 13 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 14 2D 27 2D 64 00 3B 20  4C 49 47 48 54 50 45 4E  |.-'-d.; LIGHTPEN|
00000010: 2D 49 52 51 00 2D 2D 65  00 3B 00 3E 2D 78 00 20  |-IRQ.--e.;.>-x. |
00000020: 2E 45 51 46 4C 41 47 3D  24 39 42 00 50 2D 96 00  |.EQFLAG=$9B.P-..|
00000030: 20 2E 45 51 56 49 43 3D  24 44 30 30 30 00 66 2D  | .EQVIC=$D000.f-|
00000040: B4 00 20 2E 45 51 52 45  51 55 45 53 54 3D 24 44  |.. .EQREQUEST=$D|
00000050: 30 31 39 00 79 2D BE 00  20 2E 45 51 4D 41 53 4B  |019.y-.. .EQMASK|
00000060: 3D 24 44 30 31 41 00 8E  2D DC 00 20 2E 45 51 49  |=$D01A..-.. .EQI|
00000070: 52 51 41 4C 54 3D 24 45  41 33 31 00 94 2D F0 00  |RQALT=$EA31..-..|
00000080: 3B 00 A2 2D FA 00 20 2E  42 41 24 43 30 44 46 00  |;..-.. .BA$C0DF.|
00000090: A8 2D 04 01 3B 00 B1 2D  0E 01 20 53 45 49 00 C4  |.-..;..-.. SEI..|
000000A0: 2D 18 01 20 4C 44 41 23  3C 28 49 52 51 4E 45 55  |-.. LDA#<(IRQNEU|
000000B0: 29 00 D7 2D 22 01 20 4C  44 58 23 3E 28 49 52 51  |)..-". LDX#>(IRQ|
000000C0: 4E 45 55 29 00 E5 2D 2C  01 20 53 54 41 24 30 33  |NEU)..-,. STA$03|
000000D0: 31 34 00 F3 2D 36 01 20  53 54 58 24 30 33 31 35  |14..-6. STX$0315|
000000E0: 00 00 2E 40 01 20 4C 44  41 23 24 30 30 00 0D 2E  |...@. LDA#$00...|
000000F0: 4A 01 20 53 54 41 46 4C  41 47 00 1F 2E 54 01 20  |J. STAFLAG...T. |
00000100: 4C 44 41 23 3C 28 24 36  30 30 30 29 00 2B 2E 5E  |LDA#<($6000).+.^|
00000110: 01 20 53 54 41 24 37 31  00 3D 2E 68 01 20 4C 44  |. STA$71.=.h. LD|
00000120: 41 23 3E 28 24 36 30 30  30 29 00 49 2E 72 01 20  |A#>($6000).I.r. |
00000130: 53 54 41 24 37 32 00 56  2E 7C 01 20 4C 44 41 23  |STA$72.V.|. LDA#|
00000140: 24 30 30 00 63 2E 86 01  20 4C 44 58 23 24 32 30  |$00.c... LDX#$20|
00000150: 00 6E 2E 90 01 4C 31 20  54 41 59 00 80 2E 9A 01  |.n...L1 TAY.....|
00000160: 4C 32 20 53 54 41 28 24  37 31 29 2C 59 00 89 2E  |L2 STA($71),Y...|
00000170: A4 01 20 49 4E 59 00 94  2E AE 01 20 42 4E 45 4C  |.. INY..... BNEL|
00000180: 32 00 A0 2E B8 01 20 49  4E 43 24 37 32 00 A9 2E  |2..... INC$72...|
00000190: C2 01 20 44 45 58 00 B4  2E CC 01 20 42 4E 45 4C  |.. DEX..... BNEL|
000001A0: 31 00 C6 2E D6 01 20 4C  44 41 23 3C 28 24 34 34  |1..... LDA#<($44|
000001B0: 30 30 29 00 D2 2E E0 01  20 53 54 41 24 37 31 00  |00)..... STA$71.|
000001C0: E4 2E EA 01 20 4C 44 41  23 3E 28 24 34 34 30 30  |.... LDA#>($4400|
000001D0: 29 00 F0 2E F4 01 20 53  54 41 24 37 32 00 FD 2E  |)..... STA$72...|
000001E0: FE 01 20 4C 44 41 23 24  36 45 00 0A 2F 08 02 20  |.. LDA#$6E../.. |
000001F0: 4C 44 58 23 24 30 34 00  19 2F 12 02 4C 33 20 4C  |LDX#$04../..L3 L|
00000200: 44 59 23 24 30 30 00 2B  2F 1C 02 4C 34 20 53 54  |DY#$00.+/..L4 ST|
00000210: 41 28 24 37 31 29 2C 59  00 34 2F 26 02 20 49 4E  |A($71),Y.4/&. IN|
00000220: 59 00 3F 2F 30 02 20 42  4E 45 4C 34 00 4B 2F 3A  |Y.?/0. BNEL4.K/:|
00000230: 02 20 49 4E 43 24 37 32  00 54 2F 44 02 20 44 45  |. INC$72.T/D. DE|
00000240: 58 00 5F 2F 4E 02 20 42  4E 45 4C 33 00 6C 2F 58  |X._/N. BNEL3.l/X|
00000250: 02 20 4C 44 41 23 24 38  38 00 79 2F 62 02 20 53  |. LDA#$88.y/b. S|
00000260: 54 41 4D 41 53 4B 00 82  2F 6C 02 20 43 4C 49 00  |TAMASK../l. CLI.|
00000270: 8B 2F 76 02 20 52 54 53  00 91 2F 80 02 3B 00 A7  |./v. RTS../..;..|
00000280: 2F 8A 02 49 52 51 4E 45  55 20 4C 44 41 52 45 51  |/..IRQNEU LDAREQ|
00000290: 55 45 53 54 00 B7 2F 94  02 20 53 54 41 52 45 51  |UEST../.. STAREQ|
000002A0: 55 45 53 54 00 C8 2F 9E  02 20 42 4D 49 4C 49 47  |UEST../.. BMILIG|
000002B0: 48 54 50 45 4E 00 D6 2F  A8 02 20 4C 44 41 24 44  |HTPEN../.. LDA$D|
000002C0: 43 30 44 00 DF 2F B2 02  20 43 4C 49 00 EE 2F BC  |C0D../.. CLI../.|
000002D0: 02 20 4A 4D 50 49 52 51  41 4C 54 00 F4 2F C6 02  |. JMPIRQALT../..|
000002E0: 3B 00 09 30 D0 02 4C 49  47 48 54 50 45 4E 20 4C  |;..0..LIGHTPEN L|
000002F0: 44 41 46 4C 41 47 00 15  30 E4 02 20 42 45 51 48  |DAFLAG..0.. BEQH|
00000300: 47 52 00 22 30 EE 02 20  4C 44 41 23 24 31 42 00  |GR."0.. LDA#$1B.|
00000310: 31 30 F8 02 20 53 54 41  56 49 43 2B 31 37 00 3E  |10.. STAVIC+17.>|
00000320: 30 02 03 20 4C 44 41 23  24 43 38 00 4D 30 0C 03  |0.. LDA#$C8.M0..|
00000330: 20 53 54 41 56 49 43 2B  32 32 00 5A 30 16 03 20  | STAVIC+22.Z0.. |
00000340: 4C 44 41 23 24 31 35 00  69 30 20 03 20 53 54 41  |LDA#$15.i0 . STA|
00000350: 56 49 43 2B 32 34 00 76  30 2A 03 20 4C 44 41 23  |VIC+24.v0*. LDA#|
00000360: 24 39 37 00 84 30 34 03  20 53 54 41 24 44 44 30  |$97..04. STA$DD0|
00000370: 30 00 91 30 3E 03 20 4C  44 41 23 24 30 30 00 9E  |0..0>. LDA#$00..|
00000380: 30 48 03 20 53 54 41 46  4C 41 47 00 AC 30 52 03  |0H. STAFLAG..0R.|
00000390: 20 4A 4D 50 24 45 41 37  45 00 B2 30 5C 03 3B 00  | JMP$EA7E..0\.;.|
000003A0: C2 30 66 03 48 47 52 20  4C 44 41 23 24 42 42 00  |.0f.HGR LDA#$BB.|
000003B0: D1 30 70 03 20 53 54 41  56 49 43 2B 31 37 00 DE  |.0p. STAVIC+17..|
000003C0: 30 7A 03 20 4C 44 41 23  24 43 38 00 ED 30 84 03  |0z. LDA#$C8..0..|
000003D0: 20 53 54 41 56 49 43 2B  32 32 00 FA 30 8E 03 20  | STAVIC+22..0.. |
000003E0: 4C 44 41 23 24 31 44 00  09 31 98 03 20 53 54 41  |LDA#$1D..1.. STA|
000003F0: 56 49 43 2B 32 34 00 16  31 A2 03 20 4C 44 41 23  |VIC+24..1.. LDA#|
00000400: 24 39 36 00 24 31 AC 03  20 53 54 41 24 44 44 30  |$96.$1.. STA$DD0|
00000410: 30 00 31 31 B6 03 20 4C  44 41 23 24 30 31 00 3E  |0.11.. LDA#$01.>|
00000420: 31 C0 03 20 53 54 41 46  4C 41 47 00 4C 31 CA 03  |1.. STAFLAG.L1..|
00000430: 20 4A 4D 50 24 45 41 37  45 00 00 00              | JMP$EA7E...    |
.-'-D.; LIGHTPEN-IRQ.--E.;.>-X. .EQFLAG=
$9B.P-.. .EQVIC=$D000.F-.. .EQREQUEST=$D
019.Y-.. .EQMASK=$D01A..-.. .EQIRQALT=$E
A31..-..;..-.. .BA$C0DF..-..;..-.. SEI.D
-.. LDA#<(IRQNEU).W-". LDX#>(IRQNEU)..-,
. STA$0314..-6. STX$0315...@. LDA#$00...
J. STAFLAG...T. LDA#<($6000).+.^. STA$71
.=.H. LDA#>($6000).I.R. STA$72.V.|. LDA#
$00.C... LDX#$20.N...L1 TAY.....L2 STA($
71),Y..... INY..... BNEL2. ... INC$72...
B. DEX...L. BNEL1.F.V. LDA#<($4400).R...
 STA$71..... LDA#>($4400)..... STA$72...
.. LDA#$6E../.. LDX#$04../..L3 LDY#$00.+
/..L4 STA($71),Y.4/&. INY.?/0. BNEL4.K/:
. INC$72.T/D. DEX._/N. BNEL3.L/X. LDA#$8
8.Y/B. STAMASK../L. CLI../V. RTS../..;..
/..IRQNEU LDAREQUEST../.. STAREQUEST.H/.
. BMILIGHTPEN.V/.. LDA$DC0D../.. CLI../.
. JMPIRQALT../F.;..0P.LIGHTPEN LDAFLAG..
0.. BEQHGR."0.. LDA#$1B.10.. STAVIC+17.>
0.. LDA#$C8.M0.. STAVIC+22.Z0.. LDA#$15.
I0 . STAVIC+24.V0*. LDA#$97..04. STA$DD0
0..0>. LDA#$00..0H. STAFLAG..0R. JMP$EA7
E..0\.;.B0F.HGR LDA#$BB.Q0P. STAVIC+17..
0Z. LDA#$C8..0.. STAVIC+22..0.. LDA#$1D.
.1.. STAVIC+24..1.. LDA#$96.$1.. STA$DD0
0.11.. LDA#$01.>1.. STAFLAG.L1J. JMP$EA7
E...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL