POKE
FILE INFORMATION
FILENAME(S): POKE
FILE TYPE(S): PRG
FILE SIZE: 674b
FIRST SEEN: 2025-12-01 01:08:51
APPEARS ON: 1 disk(s)
FILE HASH
464c592db2b9cf2906fa8b7adbdf3391677e4e378885f74e682d0fbd19fc1612
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ASSEMBLER FILER | POKE | PRG | hedning, loot | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 64 00 3B 20 22 50 4F 4B 45 22 00 31 |....d.; "POKE".1|
00000010: 08 6E 00 3B 20 50 4C 41 43 45 52 41 52 20 46 5B |.n.; PLACERAR F[|
00000020: 52 47 20 97 53 20 49 20 42 55 46 46 45 52 54 45 |RG .S I BUFFERTE|
00000030: 4E 00 37 08 78 00 3B 00 44 08 82 00 97 20 4C 44 |N.7.x.;.D.... LD|
00000040: 58 20 23 30 00 60 08 8C 00 4C 44 59 20 23 30 3B |X #0.`...LDY #0;|
00000050: 20 4E 4F 4C 4C 41 20 52 45 47 49 53 54 52 45 4E | NOLLA REGISTREN|
00000060: 00 76 08 96 00 4C 4F 4F 50 33 20 4C 44 41 20 54 |.v...LOOP3 LDA T|
00000070: 45 58 54 33 2C 59 00 84 08 A0 00 4A 53 52 20 50 |EXT3,Y.....JSR P|
00000080: 4C 41 43 45 00 8C 08 AA 00 49 4E 59 00 97 08 B4 |LACE.....INY....|
00000090: 00 43 50 59 20 23 37 00 A5 08 BE 00 42 4E 45 20 |.CPY #7.....BNE |
000000A0: 4C 4F 4F 50 33 00 B2 08 C8 00 4C 44 41 20 54 45 |LOOP3.....LDA TE|
000000B0: 4D 50 00 BD 08 D2 00 AF 20 23 24 30 46 00 C9 08 |MP...... #$0F...|
000000C0: DC 00 4A 53 52 20 C6 49 49 00 D4 08 E6 00 4C 44 |..JSR .II.....LD|
000000D0: 59 20 23 30 00 EA 08 F0 00 4C 4F 4F 50 34 20 4C |Y #0.....LOOP4 L|
000000E0: 44 41 20 54 45 58 54 34 2C 59 00 F8 08 FA 00 4A |DA TEXT4,Y.....J|
000000F0: 53 52 20 50 4C 41 43 45 00 00 09 04 01 49 4E 59 |SR PLACE.....INY|
00000100: 00 0B 09 0E 01 43 50 59 20 23 39 00 19 09 18 01 |.....CPY #9.....|
00000110: 42 4E 45 20 4C 4F 4F 50 34 00 28 09 22 01 4C 44 |BNE LOOP4.(.".LD|
00000120: 41 20 54 45 4D 50 AA 31 00 33 09 2C 01 AF 20 23 |A TEMP.1.3.,.. #|
00000130: 24 30 46 00 3F 09 36 01 4A 53 52 20 C6 49 49 00 |$0F.?.6.JSR .II.|
00000140: 5F 09 40 01 4C 44 41 20 23 31 35 31 3B 20 4B 4F |_.@.LDA #151; KO|
00000150: 44 20 46 5C 52 20 4B 4F 4D 4D AF 4F 54 20 97 00 |D F\R KOMM.OT ..|
00000160: 6D 09 4A 01 53 54 41 20 24 30 32 30 30 00 75 09 |m.J.STA $0200.u.|
00000170: 54 01 52 54 53 00 7B 09 5E 01 3B 00 94 09 68 01 |T.RTS.{.^.;...h.|
00000180: 3B 20 55 4E 44 45 52 52 55 54 49 4E 20 22 41 53 |; UNDERRUTIN "AS|
00000190: 43 49 49 22 00 9A 09 72 01 3B 00 AA 09 7C 01 C6 |CII"...r.;...|..|
000001A0: 49 49 20 43 4D 50 20 23 31 30 00 B8 09 86 01 42 |II CMP #10.....B|
000001B0: 43 53 20 48 4F 50 50 C6 00 C0 09 90 01 53 45 43 |CS HOPP......SEC|
000001C0: 00 CC 09 9A 01 53 42 43 20 23 31 30 00 D4 09 A4 |.....SBC #10....|
000001D0: 01 50 48 41 00 E0 09 AE 01 4C 44 41 20 23 34 39 |.PHA.....LDA #49|
000001E0: 00 EE 09 B8 01 4A 53 52 20 50 4C 41 43 45 00 F6 |.....JSR PLACE..|
000001F0: 09 C2 01 50 4C 41 00 04 0A CC 01 48 4F 50 50 C6 |...PLA.....HOPP.|
00000200: 20 43 4C 43 00 10 0A D6 01 41 44 43 20 23 34 38 | CLC.....ADC #48|
00000210: 00 1E 0A E0 01 4A 53 52 20 50 4C 41 43 45 00 26 |.....JSR PLACE.&|
00000220: 0A EA 01 52 54 53 00 2C 0A F4 01 3B 00 40 0A FE |...RTS.,...;.@..|
00000230: 01 3B 20 54 45 58 54 20 53 54 52 5B 4E 47 41 52 |.; TEXT STR[NGAR|
00000240: 00 46 0A 08 02 3B 00 5F 0A 12 02 54 45 58 54 33 |.F...;._...TEXT3|
00000250: 20 2E 42 59 54 45 20 22 35 33 32 38 30 2C 22 00 | .BYTE "53280,".|
00000260: 76 0A 1C 02 54 45 58 54 34 20 2E 42 59 54 45 20 |v...TEXT4 .BYTE |
00000270: 35 38 20 31 35 31 00 89 0A 21 02 2E 42 59 54 45 |58 151...!..BYTE|
00000280: 20 22 35 33 32 38 31 2C 22 00 8F 0A 26 02 3B 00 | "53281,"...&.;.|
00000290: 9F 0A 30 02 2E 46 49 4C 45 20 4D 45 4D B0 59 00 |..0..FILE MEM.Y.|
000002A0: 00 00 |.. |
....D.; "POKE".1.N.; PLACERAR F[RG .S I
BUFFERTEN.7.X.;.D.... LDX #0.`...LDY #0;
NOLLA REGISTREN.V...LOOP3 LDA TEXT3,Y..
. .JSR PLACE.....INY.....CPY #7.....BNE
LOOP3...H.LDA TEMP...R.. #$0F.I...JSR FI
I.T...LDY #0.....LOOP4 LDA TEXT4,Y.....J
SR PLACE.....INY.....CPY #9.....BNE LOOP
4.(.".LDA TEMP.1.3.,.. #$0F.?.6.JSR FII.
_.@.LDA #151; KOD F\R KOMM.OT ..M.J.STA
$0200.U.T.RTS.{.^.;...H.; UNDERRUTIN "AS
CII"...R.;...|.FII CMP #10.....BCS HOPPF
.....SEC.L...SBC #10.T...PHA.....LDA #49
.....JSR PLACE...B.PLA...L.HOPPF CLC...V
.ADC #48.....JSR PLACE.&...RTS.,...;.@..
.; TEXT STR[NGAR.F...;._...TEXT3 .BYTE "
53280,".V...TEXT4 .BYTE 58 151...!..BYTE
"53281,"...&.;...0..FILE MEM.Y...
> CLICK IMAGE PREVIEW FOR FULL MODAL