DISPLAY.SRC
FILE INFORMATION
FILENAME(S): DISPLAY.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:23:14
APPEARS ON: 1 disk(s)
FILE HASH
04082e6af9c90357d60534f65b80f649a9812320b756f063943b0b2fa2b3da75
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 1 1 | DISPLAY.SRC | PRG | DuncanTwain | 11 | 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 3E 08 78 00 3B 20 41 4E 5A 45 49 47 45 |.;.>.x.; ANZEIGE| 00000030: 20 44 45 53 20 55 53 45 52 AB 50 B0 54 53 00 44 | DES USER.P.TS.D| 00000040: 08 82 00 3B 00 55 08 8C 00 43 49 41 32 20 B2 20 |...;.U...CIA2 . | 00000050: 24 44 44 30 30 00 6A 08 96 00 55 53 45 52 50 B0 |$DD00.j...USERP.| 00000060: 54 20 B2 20 43 49 41 32 AA 31 00 80 08 A0 00 52 |T . CIA2.1.....R| 00000070: 49 43 48 54 55 4E 47 20 B2 20 43 49 41 32 AA 33 |ICHTUNG . CIA2.3| 00000080: 00 86 08 AA 00 3B 00 99 08 B4 00 56 49 44 45 4F |.....;.....VIDEO| 00000090: 50 47 45 20 B2 20 36 34 38 00 AD 08 BE 00 43 4F |PGE . 648.....CO| 000000A0: 4C B0 52 41 4D 20 B2 20 24 44 38 30 30 00 B3 08 |L.RAM . $D800...| 000000B0: C8 00 3B 00 C8 08 D2 00 46 41 52 42 45 20 B2 20 |..;.....FARBE . | 000000C0: 37 20 3B 20 47 45 4C 42 00 CE 08 DC 00 3B 00 E0 |7 ; GELB.....;..| 000000D0: 08 E6 00 49 52 51 56 45 43 20 B2 20 24 33 31 34 |...IRQVEC . $314| 000000E0: 00 F3 08 F0 00 49 52 51 41 4C 54 20 B2 20 24 45 |.....IRQALT . $E| 000000F0: 41 33 31 00 01 09 FA 00 50 4E 54 20 B2 20 24 46 |A31.....PNT . $F| 00000100: 42 00 07 09 04 01 3B 00 12 09 0E 01 AC B2 20 38 |B.....;....... 8| 00000110: 32 38 00 1F 09 18 01 49 4E 49 54 20 53 45 49 00 |28.....INIT SEI.| 00000120: 2E 09 22 01 4C 44 41 20 49 52 51 56 45 43 00 49 |..".LDA IRQVEC.I| 00000130: 09 2C 01 45 B0 20 23 B3 20 49 52 51 41 4C 54 20 |.,.E. #. IRQALT | 00000140: AE 20 41 4E 5A 45 49 47 45 00 58 09 36 01 53 54 |. ANZEIGE.X.6.ST| 00000150: 41 20 49 52 51 56 45 43 00 69 09 40 01 4C 44 41 |A IRQVEC.i.@.LDA| 00000160: 20 49 52 51 56 45 43 AA 31 00 84 09 4A 01 45 B0 | IRQVEC.1...J.E.| 00000170: 20 23 B1 20 49 52 51 41 4C 54 20 AE 20 41 4E 5A | #. IRQALT . ANZ| 00000180: 45 49 47 45 00 95 09 54 01 53 54 41 20 49 52 51 |EIGE...T.STA IRQ| 00000190: 56 45 43 AA 31 00 9D 09 5E 01 43 4C 49 00 A5 09 |VEC.1...^.CLI...| 000001A0: 68 01 52 54 53 00 AB 09 72 01 3B 00 BF 09 7C 01 |h.RTS...r.;...|.| 000001B0: 41 4E 5A 45 49 47 45 20 4C 44 41 20 50 4E 54 00 |ANZEIGE LDA PNT.| 000001C0: D7 09 86 01 50 48 41 20 3B 20 5A 45 49 47 45 52 |....PHA ; ZEIGER| 000001D0: 20 52 45 54 54 45 4E 00 E5 09 90 01 4C 44 41 20 | RETTEN.....LDA | 000001E0: 50 4E 54 AA 31 00 ED 09 9A 01 50 48 41 00 F9 09 |PNT.1.....PHA...| 000001F0: A4 01 4C 44 41 20 23 32 38 00 05 0A AE 01 53 54 |..LDA #28.....ST| 00000200: 41 20 50 4E 54 00 16 0A B8 01 4C 44 41 20 56 49 |A PNT.....LDA VI| 00000210: 44 45 4F 50 47 45 00 24 0A C2 01 53 54 41 20 50 |DEOPGE.$...STA P| 00000220: 4E 54 AA 31 00 35 0A CC 01 4C 44 41 20 52 49 43 |NT.1.5...LDA RIC| 00000230: 48 54 55 4E 47 00 5D 0A D6 01 4C 44 59 20 23 30 |HTUNG.]...LDY #0| 00000240: 20 3B 20 52 49 43 48 54 55 4E 47 20 49 4E 20 4F | ; RICHTUNG IN O| 00000250: 42 45 52 53 54 45 52 20 5A 45 49 4C 45 00 6D 0A |BERSTER ZEILE.m.| 00000260: E0 01 4A 53 52 20 44 49 53 50 4C 41 59 00 7D 0A |..JSR DISPLAY.}.| 00000270: EA 01 4C 44 41 20 55 53 45 52 50 B0 54 00 A4 0A |..LDA USERP.T...| 00000280: F4 01 4C 44 59 20 23 34 30 20 3B 20 55 53 45 52 |..LDY #40 ; USER| 00000290: 50 B0 54 20 49 4E 20 5A 57 45 49 54 45 52 20 5A |P.T IN ZWEITER Z| 000002A0: 45 49 4C 45 00 B4 0A FE 01 4A 53 52 20 44 49 53 |EILE.....JSR DIS| 000002B0: 50 4C 41 59 00 BC 0A 08 02 50 4C 41 00 DE 0A 12 |PLAY.....PLA....| 000002C0: 02 53 54 41 20 50 4E 54 AA 31 20 3B 20 5A 45 49 |.STA PNT.1 ; ZEI| 000002D0: 47 45 52 20 5A 55 45 52 55 43 4B 48 4F C3 00 E6 |GER ZUERUCKHO...| 000002E0: 0A 1C 02 50 4C 41 00 F2 0A 26 02 53 54 41 20 50 |...PLA...&.STA P| 000002F0: 4E 54 00 01 0B 30 02 4A 4D 50 20 49 52 51 41 4C |NT...0.JMP IRQAL| 00000300: 54 00 07 0B 3A 02 3B 00 17 0B 44 02 44 49 53 50 |T...:.;...D.DISP| 00000310: 4C 41 59 20 50 48 41 00 22 0B 4E 02 4C 44 58 20 |LAY PHA.".N.LDX | 00000320: 23 38 00 48 0B 58 02 4C 4F 4F 50 20 41 53 4C 20 |#8.H.X.LOOP ASL | 00000330: 3B 20 4F 42 45 52 53 54 45 53 20 42 49 54 20 49 |; OBERSTES BIT I| 00000340: 4E 53 20 43 41 52 52 59 00 50 0B 62 02 50 48 41 |NS CARRY.P.b.PHA| 00000350: 00 5D 0B 6C 02 4C 44 41 20 23 22 30 22 00 6A 0B |.].l.LDA #"0".j.| 00000360: 76 02 42 43 43 20 4E 55 4C 4C 00 77 0B 80 02 4C |v.BCC NULL.w...L| 00000370: 44 41 20 23 22 31 22 00 8C 0B 8A 02 4E 55 4C 4C |DA #"1".....NULL| 00000380: 20 53 54 41 20 28 50 4E 54 29 2C 59 00 9B 0B 94 | STA (PNT),Y....| 00000390: 02 4C 44 41 20 23 46 41 52 42 45 00 B0 0B 9E 02 |.LDA #FARBE.....| 000003A0: 53 54 41 20 43 4F 4C B0 52 41 4D AA 32 38 2C 59 |STA COL.RAM.28,Y| 000003B0: 00 B8 0B A8 02 49 4E 59 00 C0 0B B2 02 50 4C 41 |.....INY.....PLA| 000003C0: 00 C8 0B BC 02 44 45 58 00 D5 0B C6 02 42 4E 45 |.....DEX.....BNE| 000003D0: 20 4C 4F 4F 50 00 DB 0B D0 02 3B 00 EC 0B DA 02 | LOOP.....;.....| 000003E0: 3B 20 48 45 58 41 4E 5A 45 49 47 45 00 F2 0B E4 |; HEXANZEIGE....| 000003F0: 02 3B 00 FA 0B EE 02 49 4E 59 00 02 0C F8 02 50 |.;.....INY.....P| 00000400: 4C 41 00 0A 0C 02 03 50 48 41 00 24 0C 0C 03 4C |LA.....PHA.$...L| 00000410: 53 52 20 3A 20 4C 53 52 20 3A 20 4C 53 52 20 3A |SR : LSR : LSR :| 00000420: 20 4C 53 52 00 3C 0C 16 03 4A 53 52 20 C6 49 49 | LSR.<...JSR .II| 00000430: 20 3B 20 48 49 AB 4E 49 42 42 4C 45 00 54 0C 20 | ; HI.NIBBLE.T. | 00000440: 03 50 4C 41 20 3B 20 55 4E 44 20 4C 4F AB 4E 49 |.PLA ; UND LO.NI| 00000450: 42 42 4C 45 00 65 0C 2A 03 C6 49 49 20 AF 20 23 |BBLE.e.*..II . #| 00000460: 25 31 31 31 31 00 71 0C 34 03 43 4D 50 20 23 31 |%1111.q.4.CMP #1| 00000470: 30 00 81 0C 3E 03 42 43 43 20 4B 4C 45 49 4E 45 |0...>.BCC KLEINE| 00000480: 52 00 8C 0C 48 03 41 44 43 20 23 36 00 A1 0C 52 |R...H.ADC #6...R| 00000490: 03 4B 4C 45 49 4E 45 52 20 41 44 43 20 23 22 30 |.KLEINER ADC #"0| 000004A0: 22 00 C4 0C 5C 03 AF 20 23 25 31 31 31 31 31 31 |"...\.. #%111111| 000004B0: 20 3B 20 49 4E 20 42 49 4C 44 53 43 48 49 52 4D | ; IN BILDSCHIRM| 000004C0: 4B 4F 44 45 00 D4 0C 66 03 53 54 41 20 28 50 4E |KODE...f.STA (PN| 000004D0: 54 29 2C 59 00 E3 0C 70 03 4C 44 41 20 23 46 41 |T),Y...p.LDA #FA| 000004E0: 52 42 45 00 F8 0C 7A 03 53 54 41 20 43 4F 4C B0 |RBE...z.STA COL.| 000004F0: 52 41 4D AA 32 38 2C 59 00 00 0D 84 03 49 4E 59 |RAM.28,Y.....INY| 00000500: 00 08 0D 8E 03 52 54 53 00 00 00 |.....RTS... |
....Z.. 8.4096...D..OPT P,OO.".N.;.>.X.; ANZEIGE DES USER.P.TS.D...;.U...CIA2 . $DD00.J...USERP.T . CIA2.1... .RICHTUNG . CIA2.3.....;.....VIDEOPGE . 648.....CO L.RAM . $D800...H.;.H.R.FARBE . 7 ; GELB .N...;.....IRQVEC . $314.....IRQALT . $E A31.....PNT . $FB.....;....... 828.....I NIT SEI...".LDA IRQVEC.I.,.E. #. IRQALT . ANZEIGE.X.6.STA IRQVEC.I.@.LDA IRQVEC. 1...J.E. #. IRQALT . ANZEIGE...T.STA IRQ VEC.1...^.CLI...H.RTS...R.;...|.ANZEIGE LDA PNT.W...PHA ; ZEIGER RETTEN.....LDA PNT.1.....PHA.....LDA #28.....STA PNT... ..LDA VIDEOPGE.$.B.STA PNT.1.5.L.LDA RIC HTUNG.].V.LDY #0 ; RICHTUNG IN OBERSTER ZEILE.M...JSR DISPLAY.}...LDA USERP.T... ..LDY #40 ; USERP.T IN ZWEITER ZEILE.... .JSR DISPLAY.....PLA.....STA PNT.1 ; ZEI GER ZUERUCKHOC.....PLA...&.STA PNT...0.J MP IRQALT...:.;...D.DISPLAY PHA.".N.LDX #8.H.X.LOOP ASL ; OBERSTES BIT INS CARRY .P.B.PHA.].L.LDA #"0".J.V.BCC NULL.W...L DA #"1".....NULL STA (PNT),Y.....LDA #FA RBE.....STA COL.RAM.28,Y.....INY.....PLA .H...DEX.U.F.BNE LOOP...P.;...Z.; HEXANZ EIGE.....;.....INY.....PLA.....PHA.$...L SR : LSR : LSR : LSR.<...JSR FII ; HI.NI BBLE.T. .PLA ; UND LO.NIBBLE.E.*.FII . # %1111.Q.4.CMP #10...>.BCC KLEINER...H.AD C #6...R.KLEINER ADC #"0".D.\.. #%111111 ; IN BILDSCHIRMKODE.T.F.STA (PNT),Y...P .LDA #FARBE...Z.STA COL.RAM.28,Y.....INY .....RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL