RASTER M.SRC
FILE INFORMATION
FILENAME(S): RASTER M.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 01:12:57
APPEARS ON: 2 disk(s)
FILE HASH
e2676dbf5948b0711a1f50c92e2a26c38eb7e850af85a0341f3da7e273d2aa4c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15943 | RASTER M.SRC | PRG | C64er | 23 | 14 | DOWNLOAD FILE |
| 10906 SEITE A | RASTER M.SRC | PRG | DuncanTwain | 9 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 00 00 3B 20 D2 41 53 54 45 52 2D CD |..%...; .ASTER-.|
00000010: 41 53 54 45 52 20 30 2E 31 31 20 33 31 2E 31 30 |ASTER 0.11 31.10|
00000020: 2E 31 39 38 38 00 3C 08 01 00 3B 20 28 43 29 20 |.1988.<...; (C) |
00000030: 31 39 38 38 20 42 59 20 20 D4 20 C3 00 42 08 02 |1988 BY . ..B..|
00000040: 00 3B 00 61 08 03 00 2E 47 4C 20 42 49 4C 44 20 |.;.a....GL BILD |
00000050: 20 20 20 20 20 3D 20 24 31 42 20 20 20 20 3B 41 | = $1B ;A|
00000060: 4E 00 79 08 04 00 2E 45 51 20 5A 45 49 4C 45 31 |N.y....EQ ZEILE1|
00000070: 20 20 20 20 3D 20 24 32 36 00 96 08 05 00 2E 45 | = $26......E|
00000080: 51 20 5A 45 49 4C 45 32 20 20 20 20 3D 20 5A 45 |Q ZEILE2 = ZE|
00000090: 49 4C 45 31 2B 32 00 AD 08 06 00 2E 45 51 20 4E |ILE1+2......EQ N|
000000A0: 4F 52 4D 41 4C 20 20 20 20 3D 20 31 34 00 B3 08 |ORMAL = 14...|
000000B0: 07 00 3B 00 CD 08 08 00 2E 47 4C 20 49 52 51 56 |..;......GL IRQV|
000000C0: 45 43 54 20 20 20 3D 20 24 30 33 31 34 00 D3 08 |ECT = $0314...|
000000D0: 09 00 3B 00 00 09 0A 00 2E 47 4C 20 56 49 43 43 |..;......GL VICC|
000000E0: 54 52 4C 31 20 20 3D 20 24 44 30 31 31 20 20 3B |TRL1 = $D011 ;|
000000F0: D6 C9 C3 2D 43 4F 4E 54 52 4F 4C 2D 52 45 47 2E |...-CONTROL-REG.|
00000100: 00 1A 09 0B 00 2E 47 4C 20 52 41 53 54 45 52 20 |......GL RASTER |
00000110: 20 20 20 3D 20 24 44 30 31 32 00 34 09 0C 00 2E | = $D012.4....|
00000120: 47 4C 20 49 52 51 46 4C 41 47 53 20 20 3D 20 24 |GL IRQFLAGS = $|
00000130: 44 30 31 39 00 4E 09 0D 00 2E 45 51 20 49 52 51 |D019.N....EQ IRQ|
00000140: 4D 41 53 4B 53 20 20 3D 20 24 44 30 31 41 00 68 |MASKS = $D01A.h|
00000150: 09 0E 00 2E 45 51 20 42 4F 52 44 45 52 20 20 20 |....EQ BORDER |
00000160: 20 3D 20 24 44 30 32 30 00 6E 09 0F 00 3B 00 88 | = $D020.n...;..|
00000170: 09 10 00 2E 45 51 20 43 49 41 31 49 43 52 20 20 |....EQ CIA1ICR |
00000180: 20 3D 20 24 44 43 30 44 00 8E 09 11 00 3B 00 A8 | = $DC0D.....;..|
00000190: 09 12 00 2E 45 51 20 4F 4C 44 49 52 51 20 20 20 |....EQ OLDIRQ |
000001A0: 20 3D 20 24 45 41 33 31 00 C2 09 13 00 2E 45 51 | = $EA31......EQ|
000001B0: 20 49 52 51 52 45 54 20 20 20 20 3D 20 24 45 41 | IRQRET = $EA|
000001C0: 37 45 00 C8 09 14 00 3B 00 E0 09 15 00 3B 2A 2A |7E.....;.....;**|
000001D0: 2A 2A 2A 20 CD 41 4B 52 4F 53 20 2A 2A 2A 2A 2A |*** .AKROS *****|
000001E0: 00 F7 09 16 00 2E 4D 41 20 53 45 54 49 52 51 20 |......MA SETIRQ |
000001F0: 28 5A 45 49 4C 45 29 00 19 0A 17 00 20 4C 44 41 |(ZEILE)..... LDA|
00000200: 23 42 49 4C 44 21 4F 21 28 28 5A 45 49 4C 45 2F |#BILD!O!((ZEILE/|
00000210: 32 29 21 41 21 24 38 30 29 00 2A 0A 18 00 20 53 |2)!A!$80).*... S|
00000220: 54 41 56 49 43 43 54 52 4C 31 00 3C 0A 19 00 20 |TAVICCTRL1.<... |
00000230: 4C 44 41 23 3C 28 5A 45 49 4C 45 29 00 4B 0A 1A |LDA#<(ZEILE).K..|
00000240: 00 20 53 54 41 52 41 53 54 45 52 00 61 0A 1B 00 |. STARASTER.a...|
00000250: 20 4C 44 41 23 24 46 46 3B 4C 4F 45 53 43 48 45 | LDA#$FF;LOESCHE|
00000260: 4E 00 72 0A 1C 00 20 53 54 41 49 52 51 46 4C 41 |N.r... STAIRQFLA|
00000270: 47 53 00 7A 0A 1D 00 2E 52 54 00 80 0A 1E 00 3B |GS.z....RT.....;|
00000280: 00 97 0A 1F 00 2E 4D 41 20 53 45 54 56 45 43 54 |......MA SETVECT|
00000290: 20 28 52 4F 55 54 29 00 A8 0A 20 00 20 4C 44 41 | (ROUT)... . LDA|
000002A0: 23 3C 28 52 4F 55 54 29 00 B9 0A 21 00 20 4C 44 |#<(ROUT)...!. LD|
000002B0: 59 23 3E 28 52 4F 55 54 29 00 C9 0A 22 00 20 53 |Y#>(ROUT)...". S|
000002C0: 54 41 49 52 51 56 45 43 54 00 DB 0A 23 00 20 53 |TAIRQVECT...#. S|
000002D0: 54 59 49 52 51 56 45 43 54 2B 31 00 E3 0A 24 00 |TYIRQVECT+1...$.|
000002E0: 2E 52 54 00 E9 0A 25 00 3B 00 07 0B 26 00 3B 2B |.RT...%.;...&.;+|
000002F0: 2B 2B 2B 2B 20 D3 54 41 52 54 41 44 52 45 53 53 |++++ .TARTADRESS|
00000300: 45 20 2B 2B 2B 2B 2B 00 0D 0B 27 00 3B 00 1B 0B |E +++++...'.;...|
00000310: 28 00 20 2E 42 41 24 39 30 30 30 00 21 0B 29 00 |(. .BA$9000.!.).|
00000320: 3B 00 2E 0B 2A 00 20 4A 4D 50 49 4E 49 54 00 3A |;...*. JMPINIT.:|
00000330: 0B 2B 00 20 4A 4D 50 41 55 53 00 40 0B 2C 00 3B |.+. JMPAUS.@.,.;|
00000340: 00 5E 0B 2D 00 3B 2A 2A 2A 2A 2A 20 D6 4F 52 42 |.^.-.;***** .ORB|
00000350: 45 52 45 49 54 55 4E 47 20 2A 2A 2A 2A 2A 00 6B |EREITUNG *****.k|
00000360: 0B 2E 00 49 4E 49 54 20 53 45 49 00 86 0B 2F 00 |...INIT SEI.../.|
00000370: 3B 20 D4 49 4D 45 52 2D C9 D2 D1 20 56 45 52 48 |; .IMER-... VERH|
00000380: 49 4E 44 45 52 4E 00 93 0B 30 00 20 4C 44 41 23 |INDERN...0. LDA#|
00000390: 24 37 46 00 A3 0B 31 00 20 53 54 41 43 49 41 31 |$7F...1. STACIA1|
000003A0: 49 43 52 00 BD 0B 32 00 3B 20 D2 41 53 54 45 52 |ICR...2.; .ASTER|
000003B0: 2D C9 D2 D1 20 45 52 4C 41 55 42 45 4E 00 CA 0B |-... ERLAUBEN...|
000003C0: 33 00 20 4C 44 41 23 24 30 31 00 DB 0B 34 00 20 |3. LDA#$01...4. |
000003D0: 53 54 41 49 52 51 4D 41 53 4B 53 00 E1 0B 35 00 |STAIRQMASKS...5.|
000003E0: 3B 00 F7 0B 36 00 20 2E 2E 2E 53 45 54 56 45 43 |;...6. ...SETVEC|
000003F0: 54 28 52 4F 55 54 29 00 0E 0C 37 00 20 2E 2E 2E |T(ROUT)...7. ...|
00000400: 53 45 54 49 52 51 28 5A 45 49 4C 45 31 29 00 17 |SETIRQ(ZEILE1)..|
00000410: 0C 38 00 20 43 4C 49 00 1D 0C 39 00 3B 00 26 0C |.8. CLI...9.;.&.|
00000420: 3A 00 20 52 54 53 00 2C 0C 3B 00 3B 00 42 0C 3C |:. RTS.,.;.;.B.<|
00000430: 00 3B 2A 2A 2A 2A 2A 20 C5 4E 44 45 20 2A 2A 2A |.;***** .NDE ***|
00000440: 2A 2A 00 4E 0C 3D 00 41 55 53 20 53 45 49 00 6A |**.N.=.AUS SEI.j|
00000450: 0C 3E 00 3B 20 D2 41 53 54 45 52 2D C9 D2 D1 20 |.>.; .ASTER-... |
00000460: 56 45 52 48 49 4E 44 45 52 4E 00 77 0C 3F 00 20 |VERHINDERN.w.?. |
00000470: 4C 44 41 23 24 30 30 00 88 0C 40 00 20 53 54 41 |LDA#$00...@. STA|
00000480: 49 52 51 4D 41 53 4B 53 00 A1 0C 41 00 3B 20 D4 |IRQMASKS...A.; .|
00000490: 49 4D 45 52 2D C9 D2 D1 20 45 52 4C 41 55 42 45 |IMER-... ERLAUBE|
000004A0: 4E 00 AE 0C 42 00 20 4C 44 41 23 24 38 31 00 BE |N...B. LDA#$81..|
000004B0: 0C 43 00 20 53 54 41 43 49 41 31 49 43 52 00 D6 |.C. STACIA1ICR..|
000004C0: 0C 44 00 20 2E 2E 2E 53 45 54 56 45 43 54 28 4F |.D. ...SETVECT(O|
000004D0: 4C 44 49 52 51 29 00 DC 0C 45 00 3B 00 E5 0C 46 |LDIRQ)...E.;...F|
000004E0: 00 20 43 4C 49 00 EE 0C 47 00 20 52 54 53 00 F4 |. CLI...G. RTS..|
000004F0: 0C 48 00 3B 00 12 0D 49 00 3B 2A 2A 2A 2A 2A 20 |.H.;...I.;***** |
00000500: C9 52 51 2D D2 4F 55 54 49 4E 45 4E 20 2A 2A 2A |.RQ-.OUTINEN ***|
00000510: 2A 2A 00 18 0D 4A 00 3B 00 2E 0D 4B 00 54 4F 4F |**...J.;...K.TOO|
00000520: 4C 41 54 45 20 4A 4D 50 49 52 51 52 45 54 00 34 |LATE JMPIRQRET.4|
00000530: 0D 4C 00 3B 00 60 0D 4D 00 3B 2D 2D 2D 2D 2D 20 |.L.;.`.M.;----- |
00000540: 47 52 55 45 4E 45 52 20 D3 54 52 49 43 48 20 3D |GRUENER .TRICH =|
00000550: 20 27 D2 41 53 54 45 52 2D CD 41 53 54 45 52 27 | '.ASTER-.ASTER'|
00000560: 00 66 0D 4E 00 3B 00 7D 0D 4F 00 52 4F 55 54 20 |.f.N.;.}.O.ROUT |
00000570: 4C 44 41 23 3C 28 5A 45 49 4C 45 32 29 00 8C 0D |LDA#<(ZEILE2)...|
00000580: 50 00 20 43 4D 50 52 41 53 54 45 52 00 9C 0D 51 |P. CMPRASTER...Q|
00000590: 00 20 42 43 43 54 4F 4F 4C 41 54 45 00 AC 0D 52 |. BCCTOOLATE...R|
000005A0: 00 20 42 45 51 54 4F 4F 4C 41 54 45 00 B2 0D 53 |. BEQTOOLATE...S|
000005B0: 00 3B 00 C7 0D 54 00 57 5A 45 49 4C 45 20 43 4D |.;...T.WZEILE CM|
000005C0: 50 52 41 53 54 45 52 00 D6 0D 55 00 20 42 4E 45 |PRASTER...U. BNE|
000005D0: 57 5A 45 49 4C 45 00 DC 0D 56 00 3B 00 E8 0D 57 |WZEILE...V.;...W|
000005E0: 00 20 4C 44 58 23 31 30 00 F7 0D 58 00 57 41 52 |. LDX#10...X.WAR|
000005F0: 54 45 31 20 44 45 58 00 06 0E 59 00 20 42 4E 45 |TE1 DEX...Y. BNE|
00000600: 57 41 52 54 45 31 00 0C 0E 5A 00 3B 00 15 0E 5B |WARTE1...Z.;...[|
00000610: 00 20 4E 4F 50 00 2A 0E 5C 00 20 4C 44 41 52 41 |. NOP.*.\. LDARA|
00000620: 53 54 45 52 3B 35 39 2D 36 36 00 3F 0E 5D 00 20 |STER;59-66.?.]. |
00000630: 43 4D 50 23 3C 28 5A 45 49 4C 45 32 2B 31 29 00 |CMP#<(ZEILE2+1).|
00000640: 4B 0E 5E 00 20 42 45 51 4F 4B 31 00 57 0E 5F 00 |K.^. BEQOK1.W._.|
00000650: 20 42 49 54 24 41 41 00 60 0E 60 00 20 4E 4F 50 | BIT$AA.`.`. NOP|
00000660: 00 6C 0E 61 00 3B 20 36 38 2D 37 31 00 7A 0E 62 |.l.a.; 68-71.z.b|
00000670: 00 4F 4B 31 20 4C 44 58 23 39 00 89 0E 63 00 57 |.OK1 LDX#9...c.W|
00000680: 41 52 54 45 32 20 44 45 58 00 98 0E 64 00 20 42 |ARTE2 DEX...d. B|
00000690: 4E 45 57 41 52 54 45 32 00 9E 0E 65 00 3B 00 A7 |NEWARTE2...e.;..|
000006A0: 0E 66 00 20 4E 4F 50 00 B0 0E 67 00 20 4E 4F 50 |.f. NOP...g. NOP|
000006B0: 00 B9 0E 68 00 20 4E 4F 50 00 D0 0E 69 00 20 4C |...h. NOP...i. L|
000006C0: 44 41 52 41 53 54 45 52 3B 31 32 34 2D 31 32 37 |DARASTER;124-127|
000006D0: 00 E5 0E 6A 00 20 43 4D 50 23 3C 28 5A 45 49 4C |...j. CMP#<(ZEIL|
000006E0: 45 32 2B 32 29 00 F1 0E 6B 00 20 42 45 51 4F 4B |E2+2)...k. BEQOK|
000006F0: 32 00 FD 0E 6C 00 20 42 49 54 24 41 41 00 0B 0F |2...l. BIT$AA...|
00000700: 6D 00 3B 20 31 33 31 2D 31 33 32 00 1A 0F 6E 00 |m.; 131-132...n.|
00000710: 4F 4B 32 20 4C 44 58 23 31 30 00 29 0F 6F 00 57 |OK2 LDX#10.).o.W|
00000720: 41 52 54 45 33 20 44 45 58 00 38 0F 70 00 20 42 |ARTE3 DEX.8.p. B|
00000730: 4E 45 57 41 52 54 45 33 00 3E 0F 71 00 3B 00 47 |NEWARTE3.>.q.;.G|
00000740: 0F 72 00 20 4E 4F 50 00 5E 0F 73 00 20 4C 44 41 |.r. NOP.^.s. LDA|
00000750: 52 41 53 54 45 52 3B 31 38 38 2D 31 38 39 00 73 |RASTER;188-189.s|
00000760: 0F 74 00 20 43 4D 50 23 3C 28 5A 45 49 4C 45 32 |.t. CMP#<(ZEILE2|
00000770: 2B 33 29 00 7F 0F 75 00 20 42 4E 45 4F 4B 33 00 |+3)...u. BNEOK3.|
00000780: 8A 0F 76 00 3B 20 31 39 34 21 00 99 0F 77 00 3B |..v.; 194!...w.;|
00000790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A7 0F 78 00 4F 4B |---------...x.OK|
000007A0: 33 20 4C 44 58 23 33 00 B6 0F 79 00 57 41 52 54 |3 LDX#3...y.WART|
000007B0: 45 34 20 44 45 58 00 C5 0F 7A 00 20 42 4E 45 57 |E4 DEX...z. BNEW|
000007C0: 41 52 54 45 34 00 CB 0F 7B 00 3B 00 D4 0F 7C 00 |ARTE4...{.;...|.|
000007D0: 20 4E 4F 50 00 DD 0F 7D 00 20 4E 4F 50 00 E6 0F | NOP...}. NOP...|
000007E0: 7E 00 20 4E 4F 50 00 F1 0F 7F 00 20 4C 44 41 23 |~. NOP..... LDA#|
000007F0: 30 00 00 10 80 00 20 53 54 41 42 4F 52 44 45 52 |0..... STABORDER|
00000800: 00 10 10 81 00 20 4C 44 41 23 4E 4F 52 4D 41 4C |..... LDA#NORMAL|
00000810: 00 1F 10 82 00 20 53 54 41 42 4F 52 44 45 52 00 |..... STABORDER.|
00000820: 25 10 83 00 3B 00 32 10 84 00 20 4C 44 41 23 24 |%...;.2... LDA#$|
00000830: 46 46 00 43 10 85 00 20 53 54 41 49 52 51 46 4C |FF.C... STAIRQFL|
00000840: 41 47 53 00 52 10 86 00 20 4A 4D 50 4F 4C 44 49 |AGS.R... JMPOLDI|
00000850: 52 51 00 58 10 87 00 3B 00 7D 10 88 00 3B 2B 20 |RQ.X...;.}...;+ |
00000860: 2B 20 2B 20 2B 20 2B 20 20 20 C5 20 CE 20 C4 20 |+ + + + . . . |
00000870: C5 20 20 20 2B 20 2B 20 2B 20 2B 20 2B 00 00 00 |. + + + + +...|
00000880: 00 00 00 00 00 00 00 |....... |
..%...; RASTER-MASTER 0.11 31.10.1988.<.
..; (C) 1988 BY T C.B...;.A....GL BILD
= $1B ;AN.Y....EQ ZEILE1 = $2
6......EQ ZEILE2 = ZEILE1+2......EQ N
ORMAL = 14.....;.M....GL IRQVECT =
$0314.S...;......GL VICCTRL1 = $D011 ;
VIC-CONTROL-REG.......GL RASTER = $D0
12.4....GL IRQFLAGS = $D019.N....EQ IRQ
MASKS = $D01A.H....EQ BORDER = $D020
.N...;......EQ CIA1ICR = $DC0D.....;..
....EQ OLDIRQ = $EA31.B....EQ IRQRET
= $EA7E.H...;.....;***** MAKROS *****
......MA SETIRQ (ZEILE)..... LDA#BILD!O!
((ZEILE/2)!A!$80).*... STAVICCTRL1.<...
LDA#<(ZEILE).K... STARASTER.A... LDA#$FF
;LOESCHEN.R... STAIRQFLAGS.Z....RT.....;
......MA SETVECT (ROUT)... . LDA#<(ROUT)
...!. LDY#>(ROUT).I.". STAIRQVECT...#. S
TYIRQVECT+1...$..RT...%.;...&.;+++++ STA
RTADRESSE +++++...'.;...(. .BA$9000.!.).
;...*. JMPINIT.:.+. JMPAUS.@.,.;.^.-.;**
*** VORBEREITUNG *****.K...INIT SEI.../.
; TIMER-IRQ VERHINDERN...0. LDA#$7F...1.
STACIA1ICR...2.; RASTER-IRQ ERLAUBEN.J.
3. LDA#$01...4. STAIRQMASKS...5.;...6. .
..SETVECT(ROUT)...7. ...SETIRQ(ZEILE1)..
.8. CLI...9.;.&.:. RTS.,.;.;.B.<.;*****
ENDE *****.N.=.AUS SEI.J.>.; RASTER-IRQ
VERHINDERN.W.?. LDA#$00...@. STAIRQMASKS
...A.; TIMER-IRQ ERLAUBEN...B. LDA#$81..
.C. STACIA1ICR.V.D. ...SETVECT(OLDIRQ)..
.E.;...F. CLI...G. RTS...H.;...I.;*****
IRQ-ROUTINEN *****...J.;...K.TOOLATE JMP
IRQRET.4.L.;.`.M.;----- GRUENER STRICH =
'RASTER-MASTER'.F.N.;.}.O.ROUT LDA#<(ZE
ILE2)...P. CMPRASTER...Q. BCCTOOLATE...R
. BEQTOOLATE...S.;.G.T.WZEILE CMPRASTER.
V.U. BNEWZEILE...V.;...W. LDX#10...X.WAR
TE1 DEX...Y. BNEWARTE1...Z.;...[. NOP.*.
\. LDARASTER;59-66.?.]. CMP#<(ZEILE2+1).
K.^. BEQOK1.W._. BIT$AA.`.`. NOP.L.A.; 6
8-71.Z.B.OK1 LDX#9...C.WARTE2 DEX...D. B
NEWARTE2...E.;...F. NOP...G. NOP...H. NO
P.P.I. LDARASTER;124-127...J. CMP#<(ZEIL
E2+2)...K. BEQOK2...L. BIT$AA...M.; 131-
132...N.OK2 LDX#10.).O.WARTE3 DEX.8.P. B
NEWARTE3.>.Q.;.G.R. NOP.^.S. LDARASTER;1
88-189.S.T. CMP#<(ZEILE2+3)..U. BNEOK3.
..V.; 194!...W.;---------...X.OK3 LDX#3.
..Y.WARTE4 DEX.E.Z. BNEWARTE4.K.{.;.T.|.
NOP...}. NOP...~. NOP.... LDA#0..... S
TABORDER..... LDA#NORMAL..... STABORDER.
%...;.2... LDA#$FF.C... STAIRQFLAGS.R...
JMPOLDIRQ.X...;.}...;+ + + + + E N D
E + + + + +..........
> CLICK IMAGE PREVIEW FOR FULL MODAL