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

BAR N.

FILE INFORMATION

FILENAME(S): BAR N.

FILE TYPE(S): PRG

FILE SIZE: 943b

FIRST SEEN: 2025-12-01 01:09:41

APPEARS ON: 1 disk(s)

FILE HASH

16981265ecc17c747025eb8b63d009317c19fe49c81b58e4ff250349433e87e9

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SCARABEE BAR N. PRG hedning, Martin L0fgren 23 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0E 08 0A 00 9E 20  34 30 39 36 AC 39 00 1A  |....... 4096.9..|
00000010: 08 14 00 AC B2 24 43 30  30 30 00 28 08 1E 00 2E  |.....$C000.(....|
00000020: 4F 50 54 20 4E 2C 4F 4F  00 4E 08 C8 00 53 45 49  |OPT N,OO.N...SEI|
00000030: 20 20 20 20 20 20 20 20  20 3B 20 53 45 54 20 B5  |         ; SET .|
00000040: 45 52 55 50 2E 20 53 50  41 45 52 49 4E 47 00 5B  |ERUP. SPAERING.[|
00000050: 08 FA 00 4C 44 41 20 23  24 37 46 00 69 08 2C 01  |...LDA #$7F.i.,.|
00000060: 53 54 41 20 24 44 43 30  44 00 76 08 5E 01 4C 44  |STA $DC0D.v.^.LD|
00000070: 41 20 23 24 30 31 00 94  08 90 01 53 54 41 20 24  |A #$01.....STA $|
00000080: 44 30 31 41 20 20 20 3B  20 54 41 80 20 52 41 BF  |D01A   ; TA. RA.|
00000090: 54 45 52 2E 00 B1 08 C2  01 4C 44 58 20 23 B3 53  |TER......LDX #.S|
000000A0: 54 41 52 54 20 3B 20 53  45 54 20 50 4F B5 45 52  |TART ; SET PO.ER|
000000B0: 53 00 C1 08 F4 01 4C 44  59 20 23 B1 53 54 41 52  |S.....LDY #.STAR|
000000C0: 54 00 CF 08 26 02 53 54  58 20 24 30 33 31 34 00  |T...&.STX $0314.|
000000D0: DD 08 58 02 53 54 59 20  24 30 33 31 35 00 FE 08  |..X.STY $0315...|
000000E0: 8A 02 4C 44 41 20 23 24  30 31 20 20 20 20 3B 20  |..LDA #$01    ; |
000000F0: 52 41 53 20 53 54 41 52  54 50 55 4E 4B 54 00 0C  |RAS STARTPUNKT..|
00000100: 09 BC 02 53 54 41 20 24  44 30 31 32 00 1A 09 EE  |...STA $D012....|
00000110: 02 4C 44 41 20 24 44 30  31 31 00 4D 09 20 03 AF  |.LDA $D011.M. ..|
00000120: 20 23 24 37 46 20 20 20  20 3B 20 30 56 45 52 53  | #$7F    ; 0VERS|
00000130: 54 45 20 48 41 4C 56 44  2E 20 AB B0 41 20 37 46  |TE HALVD. ..A 7F|
00000140: 38 35 30 20 53 54 41 20  24 44 30 31 31 00 5A 09  |850 STA $D011.Z.|
00000150: 84 03 4C 44 41 20 23 24  30 31 00 68 09 B6 03 53  |..LDA #$01.h...S|
00000160: 54 41 20 24 44 30 31 39  00 84 09 E8 03 43 4C 49  |TA $D019.....CLI|
00000170: 20 20 20 20 20 20 20 20  3B 20 9C 20 53 50 41 45  |        ; . SPAE|
00000180: 52 49 4E 47 00 8C 09 1A  04 52 54 53 00 AF 09 4C  |RING.....RTS...L|
00000190: 04 53 54 41 52 54 20 4C  44 41 20 24 44 30 31 39  |.START LDA $D019|
000001A0: 20 3B 20 53 4B 41 4C 20  47 30 52 45 53 21 21 00  | ; SKAL G0RES!!.|
000001B0: BD 09 56 04 53 54 41 20  24 44 30 31 39 00 C5 09  |..V.STA $D019...|
000001C0: 60 04 4E 4F 50 00 CD 09  6A 04 4E 4F 50 00 D5 09  |`.NOP...j.NOP...|
000001D0: 74 04 4E 4F 50 00 DD 09  7E 04 4E 4F 50 00 E5 09  |t.NOP...~.NOP...|
000001E0: 88 04 4E 4F 50 00 F2 09  92 04 4C 44 41 20 23 24  |..NOP.....LDA #$|
000001F0: 30 32 00 00 0A 9C 04 53  54 41 20 24 44 30 32 30  |02.....STA $D020|
00000200: 00 0E 0A A6 04 53 54 41  20 24 44 30 32 31 00 1B  |.....STA $D021..|
00000210: 0A B0 04 4C 44 58 20 23  24 30 42 00 28 0A BA 04  |...LDX #$0B.(...|
00000220: 52 41 53 31 20 44 45 58  00 35 0A C4 04 42 4E 45  |RAS1 DEX.5...BNE|
00000230: 20 52 41 53 31 00 42 0A  CE 04 4C 44 41 20 23 24  | RAS1.B...LDA #$|
00000240: 30 41 00 50 0A D8 04 53  54 41 20 24 44 30 32 30  |0A.P...STA $D020|
00000250: 00 5E 0A E2 04 53 54 41  20 24 44 30 32 31 00 6B  |.^...STA $D021.k|
00000260: 0A EC 04 4C 44 58 20 23  24 30 42 00 78 0A F6 04  |...LDX #$0B.x...|
00000270: 52 41 53 32 20 44 45 58  00 85 0A 00 05 42 4E 45  |RAS2 DEX.....BNE|
00000280: 20 52 41 53 32 00 92 0A  0A 05 4C 44 41 20 23 24  | RAS2.....LDA #$|
00000290: 30 32 00 A0 0A 14 05 53  54 41 20 24 44 30 32 30  |02.....STA $D020|
000002A0: 00 AE 0A 1E 05 53 54 41  20 24 44 30 32 31 00 BB  |.....STA $D021..|
000002B0: 0A 28 05 4C 44 58 20 23  24 30 42 00 C8 0A 32 05  |.(.LDX #$0B...2.|
000002C0: 52 41 53 33 20 44 45 58  00 D5 0A 3C 05 42 4E 45  |RAS3 DEX...<.BNE|
000002D0: 20 52 41 53 33 00 E2 0A  46 05 4C 44 41 20 23 24  | RAS3...F.LDA #$|
000002E0: 30 41 00 F0 0A 50 05 53  54 41 20 24 44 30 32 30  |0A...P.STA $D020|
000002F0: 00 FE 0A 5A 05 53 54 41  20 24 44 30 32 31 00 0B  |...Z.STA $D021..|
00000300: 0B 64 05 4C 44 58 20 23  24 30 42 00 18 0B 6E 05  |.d.LDX #$0B...n.|
00000310: 52 41 53 34 20 44 45 58  00 25 0B 78 05 42 4E 45  |RAS4 DEX.%.x.BNE|
00000320: 20 52 41 53 34 00 32 0B  82 05 4C 44 41 20 23 24  | RAS4.2...LDA #$|
00000330: 30 31 00 40 0B 8C 05 53  54 41 20 24 44 30 32 30  |01.@...STA $D020|
00000340: 00 4E 0B 96 05 53 54 41  20 24 44 30 32 31 00 5B  |.N...STA $D021.[|
00000350: 0B A0 05 4C 44 58 20 23  24 30 42 00 68 0B AA 05  |...LDX #$0B.h...|
00000360: 52 41 53 35 20 44 45 58  00 75 0B B4 05 42 4E 45  |RAS5 DEX.u...BNE|
00000370: 20 52 41 53 35 00 82 0B  BE 05 4C 44 41 20 23 24  | RAS5.....LDA #$|
00000380: 30 30 00 90 0B C8 05 53  54 41 20 24 44 30 32 30  |00.....STA $D020|
00000390: 00 9E 0B D2 05 53 54 41  20 24 44 30 32 31 00 AC  |.....STA $D021..|
000003A0: 0B B8 0B 4A 4D 50 20 24  45 41 33 31 00 00 00     |...JMP $EA31... |
....... 4096.9.......$C000.(....OPT N,OO
.N.H.SEI         ; SET .ERUP. SPAERING.[
...LDA #$7F.I.,.STA $DC0D.V.^.LDA #$01..
...STA $D01A   ; TA. RA.TER....B.LDX #.S
TART ; SET PO.ERS.A...LDY #.START.O.&.ST
X $0314...X.STY $0315.....LDA #$01    ; 
RAS STARTPUNKT.....STA $D012.....LDA $D0
11.M. .. #$7F    ; 0VERSTE HALVD. ..A 7F
850 STA $D011.Z...LDA #$01.H...STA $D019
.....CLI        ; . SPAERING.....RTS...L
.START LDA $D019 ; SKAL G0RES!!...V.STA 
$D019.E.`.NOP.M.J.NOP.U.T.NOP...~.NOP...
..NOP.....LDA #$02.....STA $D020.....STA
 $D021.....LDX #$0B.(...RAS1 DEX.5.D.BNE
 RAS1.B.N.LDA #$0A.P.X.STA $D020.^...STA
 $D021.K...LDX #$0B.X...RAS2 DEX.....BNE
 RAS2.....LDA #$02. ...STA $D020.....STA
 $D021...(.LDX #$0B.H.2.RAS3 DEX.U.<.BNE
 RAS3...F.LDA #$0A...P.STA $D020...Z.STA
 $D021...D.LDX #$0B...N.RAS4 DEX.%.X.BNE
 RAS4.2...LDA #$01.@...STA $D020.N...STA
 $D021.[. .LDX #$0B.H...RAS5 DEX.U...BNE
 RAS5.....LDA #$00...H.STA $D020...R.STA
 $D021.....JMP $EA31...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL