> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 00 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 93 9E 22 00 3F 08 |53281,0:."..".?.|
00000020: 01 00 99 22 54 48 49 53 20 50 52 4F 47 52 41 4D |..."THIS PROGRAM|
00000030: 20 49 53 20 46 4F 52 20 56 49 45 57 49 4E 47 00 | IS FOR VIEWING.|
00000040: 5D 08 02 00 99 22 49 54 20 57 49 4C 4C 20 4E 4F |]...."IT WILL NO|
00000050: 54 20 52 55 4E 2C 20 53 4F 20 47 45 54 00 6D 08 |T RUN, SO GET.m.|
00000060: 03 00 99 22 20 20 20 20 20 20 54 4F 22 00 80 08 |..." TO"...|
00000070: 04 00 99 22 4C 49 53 54 20 31 30 2D 91 91 91 22 |..."LIST 10-..."|
00000080: 00 86 08 05 00 80 00 8C 08 06 00 3A 00 92 08 07 |...........:....|
00000090: 00 3A 00 98 08 08 00 3A 00 9E 08 09 00 3A 00 AC |.:.....:.....:..|
000000A0: 08 0A 00 4C 4F 43 41 54 49 91 53 3A 00 B2 08 0B |...LOCATI.S:....|
000000B0: 00 3A 00 B8 08 0C 00 3A 00 BE 08 14 00 3A 00 C4 |.:.....:.....:..|
000000C0: 08 1E 00 3A 00 EC 08 28 00 42 4C 4F 43 4B 20 4E |...:...(.BLOCK N|
000000D0: 55 4D 42 45 52 20 B2 20 53 43 52 45 45 4E 20 42 |UMBER . SCREEN B|
000000E0: 4C 4F 43 4B 20 43 4F 55 4E 54 45 52 00 07 09 32 |LOCK COUNTER...2|
000000F0: 00 4C 45 56 45 4C 20 B2 20 47 41 4D 45 20 4C 45 |.LEVEL . GAME LE|
00000100: 56 45 4C 20 AC 20 32 00 2E 09 3C 00 4C 45 56 45 |VEL . 2...<.LEVE|
00000110: 4C 20 54 41 42 4C 45 20 B2 20 53 54 41 52 54 53 |L TABLE . STARTS|
00000120: 20 4F 46 20 4C 45 56 45 4C 20 4D 41 50 53 00 4F | OF LEVEL MAPS.O|
00000130: 09 46 00 54 41 42 4C 45 20 B2 20 53 54 41 52 54 |.F.TABLE . START|
00000140: 20 4F 46 20 43 55 52 52 45 4E 54 20 4D 41 50 00 | OF CURRENT MAP.|
00000150: 73 09 50 00 42 4C 4F 43 4B 53 20 B2 20 42 4C 4F |s.P.BLOCKS . BLO|
00000160: 43 4B 20 96 49 4E 49 54 49 91 20 4C 4F 43 41 54 |CK .INITI. LOCAT|
00000170: 49 91 53 00 90 09 5A 00 43 55 52 42 4C 4F 43 4B |I.S...Z.CURBLOCK|
00000180: 20 B2 20 43 55 52 52 45 4E 54 20 42 4C 4F 43 4B | . CURRENT BLOCK|
00000190: 00 B4 09 64 00 53 43 52 4C 4F 43 20 B2 20 54 41 |...d.SCRLOC . TA|
000001A0: 42 4C 45 20 4F 46 20 53 43 52 45 45 4E 20 B9 49 |BLE OF SCREEN .I|
000001B0: 54 49 91 53 00 D8 09 6E 00 53 43 52 45 45 4E 20 |TI.S...n.SCREEN |
000001C0: B2 20 43 55 52 52 45 4E 54 20 53 43 52 45 45 4E |. CURRENT SCREEN|
000001D0: 20 4C 4F 43 41 54 49 91 00 DE 09 78 00 3A 00 E4 | LOCATI....x.:..|
000001E0: 09 82 00 3A 00 EA 09 8C 00 3A 00 03 0A 96 00 47 |...:.....:.....G|
000001F0: 45 4E 45 52 41 4C 49 53 45 44 20 52 4F 55 54 49 |ENERALISED ROUTI|
00000200: 4E 45 3A 00 09 0A A0 00 3A 00 0F 0A AA 00 3A 00 |NE:.....:.....:.|
00000210: 1C 0A E8 03 4C 44 41 20 23 24 33 44 00 31 0A F2 |....LDA #$3D.1..|
00000220: 03 53 54 41 20 42 4C 4F 43 4B 20 4E 55 4D 42 45 |.STA BLOCK NUMBE|
00000230: 52 00 3F 0A FC 03 4C 44 59 20 4C 45 56 45 4C 00 |R.?...LDY LEVEL.|
00000240: 55 0A 06 04 4C 44 41 20 4C 45 56 45 4C 20 54 41 |U...LDA LEVEL TA|
00000250: 42 4C 45 2C 59 00 63 0A 10 04 53 54 41 20 54 41 |BLE,Y.c...STA TA|
00000260: 42 4C 45 00 6B 0A 1A 04 49 4E 59 00 81 0A 24 04 |BLE.k...INY...$.|
00000270: 4C 44 41 20 4C 45 56 45 4C 20 54 41 42 4C 45 2C |LDA LEVEL TABLE,|
00000280: 59 00 91 0A 2E 04 53 54 41 20 54 41 42 4C 45 AA |Y.....STA TABLE.|
00000290: 31 00 A6 0A 38 04 44 45 43 20 42 4C 4F 43 4B 20 |1...8.DEC BLOCK |
000002A0: 4E 55 4D 42 45 52 00 B6 0A 42 04 42 4D 49 20 50 |NUMBER...B.BMI P|
000002B0: 52 4F 47 52 41 4D 00 BE 0A 4C 04 43 4C 43 00 D3 |ROGRAM...L.CLC..|
000002C0: 0A 56 04 4C 44 41 20 42 4C 4F 43 4B 20 4E 55 4D |.V.LDA BLOCK NUM|
000002D0: 42 45 52 00 DB 0A 60 04 41 53 4C 00 E3 0A 6A 04 |BER...`.ASL...j.|
000002E0: 54 41 59 00 F8 0A 74 04 4C 44 41 20 53 43 52 45 |TAY...t.LDA SCRE|
000002F0: 45 4E 20 4C 4F 43 2C 59 00 07 0B 7E 04 53 54 41 |EN LOC,Y...~.STA|
00000300: 20 53 43 52 45 45 4E 00 0F 0B 88 04 49 4E 59 00 | SCREEN.....INY.|
00000310: 26 0B 92 04 4C 44 41 20 53 43 52 45 45 4E 20 4C |&...LDA SCREEN L|
00000320: 4F 43 AA 31 2C 59 00 37 0B 9C 04 53 54 41 20 53 |OC.1,Y.7...STA S|
00000330: 43 52 45 45 4E AA 31 00 4C 0B A6 04 4C 44 59 20 |CREEN.1.L...LDY |
00000340: 42 4C 4F 43 4B 20 4E 55 4D 42 45 52 00 5C 0B B0 |BLOCK NUMBER.\..|
00000350: 04 4C 44 59 20 54 41 42 4C 45 2C 59 00 64 0B BA |.LDY TABLE,Y.d..|
00000360: 04 41 53 4C 00 6C 0B C4 04 54 41 59 00 7D 0B CE |.ASL.l...TAY.}..|
00000370: 04 4C 44 41 20 42 4C 4F 43 4B 53 2C 59 00 8E 0B |.LDA BLOCKS,Y...|
00000380: D8 04 53 54 41 20 43 55 52 42 4C 4F 43 4B 00 96 |..STA CURBLOCK..|
00000390: 0B E2 04 49 4E 59 00 A7 0B EC 04 4C 44 41 20 42 |...INY.....LDA B|
000003A0: 4C 4F 43 4B 53 2C 59 00 BA 0B F6 04 53 54 41 20 |LOCKS,Y.....STA |
000003B0: 43 55 52 42 4C 4F 43 4B AA 31 00 C7 0B 00 05 4C |CURBLOCK.1.....L|
000003C0: 44 58 20 23 24 30 34 00 D4 0B 0A 05 4C 44 59 20 |DX #$04.....LDY |
000003D0: 23 24 30 34 00 E7 0B 14 05 4C 44 41 20 43 55 52 |#$04.....LDA CUR|
000003E0: 42 4C 4F 43 4B 2C 59 00 F8 0B 1E 05 53 54 41 20 |BLOCK,Y.....STA |
000003F0: 53 43 52 45 45 4E 2C 59 00 00 0C 28 05 44 45 59 |SCREEN,Y...(.DEY|
00000400: 00 12 0C 32 05 42 4E 45 20 4C 49 4E 45 20 31 33 |...2.BNE LINE 13|
00000410: 30 30 00 1A 0C 3C 05 44 45 58 00 2C 0C 46 05 42 |00...<.DEX.,.F.B|
00000420: 45 51 20 4C 49 4E 45 20 31 30 38 30 00 34 0C 50 |EQ LINE 1080.4.P|
00000430: 05 43 4C 43 00 47 0C 5A 05 4C 44 41 20 43 55 52 |.CLC.G.Z.LDA CUR|
00000440: 42 4C 4F 43 4B AA 31 00 54 0C 64 05 41 44 43 20 |BLOCK.1.T.d.ADC |
00000450: 23 24 32 38 00 66 0C 6E 05 42 43 43 20 4C 49 4E |#$28.f.n.BCC LIN|
00000460: 45 20 31 34 32 30 00 77 0C 78 05 49 4E 43 20 43 |E 1420.w.x.INC C|
00000470: 55 52 42 4C 4F 43 4B 00 7F 0C 82 05 43 4C 43 00 |URBLOCK.....CLC.|
00000480: 90 0C 8C 05 4C 44 41 20 53 43 52 45 45 4E AA 31 |....LDA SCREEN.1|
00000490: 00 9D 0C 96 05 41 44 43 20 23 24 32 38 00 AF 0C |.....ADC #$28...|
000004A0: A0 05 42 43 43 20 4C 49 4E 45 20 31 34 36 30 00 |..BCC LINE 1460.|
000004B0: BE 0C AA 05 49 4E 43 20 53 43 52 45 45 4E 00 D0 |....INC SCREEN..|
000004C0: 0C B4 05 4A 4D 50 20 4C 49 4E 45 20 31 32 39 30 |...JMP LINE 1290|
000004D0: 00 E7 0C BE 05 8F 22 14 14 14 14 14 14 14 14 14 |......".........|
000004E0: 4C 49 53 54 31 30 2D 00 00 00 |LIST10-... |
.......53280,0:.53281,0:."..".?...."THIS
PROGRAM IS FOR VIEWING.]...."IT WILL NO
T RUN, SO GET.M...." TO"......"LIST
10-..."...........:.....:.....:.....:..
...LOCATI.S:.....:.....:.....:.D...:...(
.BLOCK NUMBER . SCREEN BLOCK COUNTER...2
.LEVEL . GAME LEVEL . 2...<.LEVEL TABLE
. STARTS OF LEVEL MAPS.O.F.TABLE . START
OF CURRENT MAP.S.P.BLOCKS . BLOCK .INIT
I. LOCATI.S...Z.CURBLOCK . CURRENT BLOCK
...D.SCRLOC . TABLE OF SCREEN .ITI.S.X.N
.SCREEN . CURRENT SCREEN LOCATI....X.:..
...:.....:.....GENERALISED ROUTINE:... .
:.....:.....LDA #$3D.1...STA BLOCK NUMBE
R.?...LDY LEVEL.U...LDA LEVEL TABLE,Y.C.
..STA TABLE.K...INY...$.LDA LEVEL TABLE,
Y.....STA TABLE.1...8.DEC BLOCK NUMBER..
.B.BMI PROGRAM...L.CLC.S.V.LDA BLOCK NUM
BER...`.ASL...J.TAY...T.LDA SCREEN LOC,Y
...~.STA SCREEN.....INY.&...LDA SCREEN L
OC.1,Y.7...STA SCREEN.1.L...LDY BLOCK NU
MBER.\...LDY TABLE,Y.D...ASL.L.D.TAY.}.N
.LDA BLOCKS,Y...X.STA CURBLOCK.....INY..
...LDA BLOCKS,Y.....STA CURBLOCK.1.G...L
DX #$04.T...LDY #$04.....LDA CURBLOCK,Y.
....STA SCREEN,Y...(.DEY...2.BNE LINE 13
00...<.DEX.,.F.BEQ LINE 1080.4.P.CLC.G.Z
.LDA CURBLOCK.1.T.D.ADC #$28.F.N.BCC LIN
E 1420.W.X.INC CURBLOCK....CLC.....LDA
SCREEN.1.....ADC #$28... .BCC LINE 1460.
....INC SCREEN.P...JMP LINE 1290......".
........LIST10-...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL