PLACEHOLDER.PAL
FILE INFORMATION
FILENAME(S): PLACEHOLDER.PAL
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:15:48
APPEARS ON: 1 disk(s)
FILE HASH
8a89780ff658e643dbf2a82cd4bdd7d34dcb23b28b0afd26d7dfb774fd7f0a10
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | PLACEHOLDER.PAL | PRG | DuncanTwain | 7 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 64 00 8F 20 53 41 56 45 22 40 30 3A |....d.. SAVE"@0:|
00000010: 50 4C 41 43 45 2E 50 41 4C 22 00 37 08 6E 00 9F |PLACE.PAL".7.n..|
00000020: 20 38 2C 38 2C 38 2C 22 30 3A 50 4C 41 43 45 2E | 8,8,8,"0:PLACE.|
00000030: 4F 42 4A 2C 50 2C 57 00 41 08 78 00 9E 20 37 30 |OBJ,P,W.A.x.. 70|
00000040: 30 00 4D 08 82 00 2E 4F 50 54 20 4F 38 00 72 08 |0.M....OPT O8.r.|
00000050: 8C 00 3B AD AD AD AD AD AD AD AD AD AD AD AD AD |..;.............|
00000060: AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD |................|
00000070: AD AD 00 97 08 96 00 3B AD AD 20 20 20 20 20 20 |.......;.. |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 AD AD 00 BC 08 A0 00 3B AD AD 20 | .......;.. |
000000A0: 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 50 4C 41 |MACHINE CODE PLA|
000000B0: 43 45 48 4F 4C 44 45 52 20 20 AD AD 00 DE 08 AA |CEHOLDER ......|
000000C0: 00 3B AD AD 20 81 20 43 4F 4D 4D 4F 44 B0 45 20 |.;.. . COMMOD.E |
000000D0: 36 34 20 20 20 20 20 20 20 20 20 20 AD AD 00 03 |64 ....|
000000E0: 09 B4 00 3B AD AD 20 20 20 20 20 20 20 20 20 20 |...;.. |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 AD AD 00 27 09 BE 00 3B AD AD 20 52 4F 55 54 | ...'...;.. ROUT|
00000110: 49 4E 45 20 A4 20 48 4F 4C 44 20 53 43 52 45 45 |INE . HOLD SCREE|
00000120: 4E 20 20 20 20 AD AD 00 47 09 C8 00 3B AD AD 20 |N ...G...;.. |
00000130: 50 4C 41 43 45 2C 20 99 20 4D 45 53 53 41 47 45 |PLACE, . MESSAGE|
00000140: 20 91 20 20 20 AD AD 00 64 09 D2 00 3B AD AD 20 | . ...d...;.. |
00000150: 4C 41 53 54 20 4C 49 4E 45 2C 20 A7 20 8E 20 20 |LAST LINE, . . |
00000160: 20 20 AD AD 00 89 09 DC 00 3B AD AD 20 57 48 45 | .......;.. WHE|
00000170: 4E 43 45 20 54 48 45 45 20 43 41 4D 45 20 20 20 |NCE THEE CAME |
00000180: 20 20 20 20 20 20 20 AD AD 00 AE 09 E6 00 3B AD | .......;.|
00000190: AD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 AD AD 00 D3 | ....|
000001B0: 09 F0 00 3B AD AD 20 4D 41 59 20 38 35 20 20 20 |...;.. MAY 85 |
000001C0: 20 20 20 20 50 41 55 4C 20 42 4C 41 49 52 20 20 | PAUL BLAIR |
000001D0: 20 AD AD 00 F8 09 FA 00 3B AD AD 20 20 20 20 20 | .......;.. |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 AD AD 00 1D 0A 04 01 3B AD AD | .......;..|
00000200: AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD |................|
00000210: AD AD AD AD AD AD AD AD AD AD AD AD AD 00 23 0A |..............#.|
00000220: 0E 01 3B 00 45 0A 18 01 3B AD AD 20 43 36 34 20 |..;.E...;.. C64 |
00000230: 42 41 53 49 43 20 32 2E 30 20 52 4F 55 54 49 4E |BASIC 2.0 ROUTIN|
00000240: 45 53 20 AD AD 00 4B 0A 22 01 3B 00 75 0A 2C 01 |ES ...K.".;.u.,.|
00000250: 42 B0 44 45 52 20 B2 20 24 44 30 32 30 20 20 20 |B.DER . $D020 |
00000260: 20 20 20 20 20 20 3B 45 58 54 45 52 49 B0 20 43 | ;EXTERI. C|
00000270: 4F 4C 4F 55 52 00 A2 0A 36 01 43 4C 45 41 4E 20 |OLOUR...6.CLEAN |
00000280: 20 B2 20 24 45 39 46 46 20 20 20 20 20 20 20 20 | . $E9FF |
00000290: 20 3B 45 52 41 53 45 20 4C 49 4E 45 20 49 4E 20 | ;ERASE LINE IN |
000002A0: 2E 58 00 C7 0A 40 01 43 48 52 4F 55 54 20 B2 20 |.X...@.CHROUT . |
000002B0: 24 46 46 44 32 20 20 20 20 20 20 20 20 20 3B 99 |$FFD2 ;.|
000002C0: 20 41 20 43 48 41 52 00 E9 0A 4A 01 A1 49 4E 20 | A CHAR...J..IN |
000002D0: 20 B2 20 24 46 46 45 34 20 20 20 20 20 20 20 20 | . $FFE4 |
000002E0: 20 3B A1 20 41 20 4B 45 59 00 14 0B 54 01 50 4C | ;. A KEY...T.PL|
000002F0: 4F 54 20 20 20 B2 20 24 46 46 46 30 20 20 20 20 |OT . $FFF0 |
00000300: 20 20 20 20 20 3B 53 43 52 45 45 4E 20 52 4F 55 | ;SCREEN ROU|
00000310: 54 49 4E 45 00 1A 0B 5E 01 3B 00 32 0B 68 01 3B |TINE...^.;.2.h.;|
00000320: AD AD 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D 20 |.. MAIN PROGRAM |
00000330: AD AD 00 38 0B 72 01 3B 00 5A 0B 7C 01 AC B2 24 |...8.r.;.Z.|...$|
00000340: 43 30 30 30 20 20 20 20 20 20 20 20 20 3B 9E 34 |C000 ;.4|
00000350: 39 31 35 32 20 43 41 4C 4C 53 00 60 0B 86 01 3B |9152 CALLS.`...;|
00000360: 00 83 0B 90 01 3B AD AD 20 45 52 52 B0 20 4D 45 |.....;.. ERR. ME|
00000370: 53 53 41 47 45 20 46 4C 49 50 20 42 B0 44 45 52 |SSAGE FLIP B.DER|
00000380: 20 AD AD 00 89 0B 9A 01 3B 00 B1 0B A4 01 4F 48 | .......;.....OH|
00000390: 44 45 41 52 20 4C 44 41 20 23 24 30 32 20 20 20 |DEAR LDA #$02 |
000003A0: 20 20 20 20 20 3B 56 49 53 55 41 4C 20 45 52 52 | ;VISUAL ERR|
000003B0: B0 00 BF 0B AE 01 53 54 41 20 42 B0 44 45 52 00 |......STA B.DER.|
000003C0: E0 0B B8 01 53 45 43 20 20 20 20 20 20 20 20 20 |....SEC |
000003D0: 20 20 20 20 3B A1 20 4F 55 52 20 50 4C 41 43 45 | ;. OUR PLACE|
000003E0: 00 04 0C C2 01 4A 53 52 20 50 4C 4F 54 20 20 20 |.....JSR PLOT |
000003F0: 20 20 20 20 20 3B 42 59 20 87 49 4E 47 20 53 43 | ;BY .ING SC|
00000400: 52 45 45 4E 00 25 0C CC 01 54 58 41 20 20 20 20 |REEN.%...TXA |
00000410: 20 20 20 20 20 20 20 20 20 3B 81 20 58 2C 20 59 | ;. X, Y|
00000420: 20 C5 55 45 53 00 49 0C D6 01 50 48 41 20 20 20 | .UES.I...PHA |
00000430: 20 20 20 20 20 20 20 20 20 20 3B 50 55 53 48 20 | ;PUSH |
00000440: 54 48 45 4D 20 41 57 41 59 00 6A 0C E0 01 54 59 |THEM AWAY.j...TY|
00000450: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 81 |A ;.|
00000460: 20 4C 41 54 45 52 20 55 53 45 00 72 0C EA 01 50 | LATER USE.r...P|
00000470: 48 41 00 95 0C F4 01 43 4C 43 20 20 20 20 20 20 |HA.....CLC |
00000480: 20 20 20 20 20 20 20 3B 53 45 54 20 A2 20 4C 4F | ;SET . LO|
00000490: 43 41 54 49 91 00 B2 0C FE 01 4C 44 59 20 23 24 |CATI......LDY #$|
000004A0: 30 43 20 20 20 20 20 20 20 20 3B 31 32 20 4F 56 |0C ;12 OV|
000004B0: 45 52 00 CF 0C 08 02 4C 44 58 20 23 24 31 38 20 |ER.....LDX #$18 |
000004C0: 20 20 20 20 20 20 20 3B 32 34 20 44 4F 57 4E 00 | ;24 DOWN.|
000004D0: F4 0C 12 02 4A 53 52 20 50 4C 4F 54 20 20 20 20 |....JSR PLOT |
000004E0: 20 20 20 20 3B 50 55 54 20 43 55 52 53 B0 20 54 | ;PUT CURS. T|
000004F0: 48 45 52 45 00 13 0D 1C 02 4C 44 59 20 23 B1 43 |HERE.....LDY #.C|
00000500: 45 52 4D 53 47 20 20 20 20 3B 99 20 4D 45 53 53 |ERMSG ;. MESS|
00000510: 41 47 45 00 34 0D 26 02 4C 44 41 20 23 B3 43 45 |AGE.4.&.LDA #.CE|
00000520: 52 4D 53 47 20 20 20 20 3B 4D 41 59 42 45 20 41 |RMSG ;MAYBE A|
00000530: 44 44 20 41 00 59 0D 30 02 4A 53 52 20 50 52 49 |DD A.Y.0.JSR PRI|
00000540: 4D 4D 53 20 20 20 20 20 20 3B 22 54 4F 4E 45 20 |MMS ;"TONE |
00000550: 48 45 52 45 20 54 4F 4F 3F 00 7B 0D 3A 02 4B 45 |HERE TOO?.{.:.KE|
00000560: 59 50 4C 53 20 4A 53 52 20 A1 49 4E 20 20 20 20 |YPLS JSR .IN |
00000570: 20 20 20 3B 92 20 41 20 4B 45 59 00 9E 0D 44 02 | ;. A KEY...D.|
00000580: 42 45 51 20 4B 45 59 50 4C 53 20 20 20 20 20 20 |BEQ KEYPLS |
00000590: 3B 4C 4F 4F 50 20 8B 20 4E 4F 20 4B 45 59 00 C1 |;LOOP . NO KEY..|
000005A0: 0D 4E 02 4C 44 58 20 23 24 31 38 20 20 20 20 20 |.N.LDX #$18 |
000005B0: 20 20 20 3B 45 52 41 53 45 20 4D 45 53 53 41 47 | ;ERASE MESSAG|
000005C0: 45 00 E3 0D 58 02 4A 53 52 20 43 4C 45 41 4E 20 |E...X.JSR CLEAN |
000005D0: 20 20 20 20 20 20 3B 91 20 42 4F 54 A4 4D 20 4C | ;. BOT.M L|
000005E0: 49 4E 45 00 0B 0E 62 02 4C 44 41 20 23 24 30 46 |INE...b.LDA #$0F|
000005F0: 20 20 20 20 20 20 20 20 3B 52 45 53 45 54 20 42 | ;RESET B|
00000600: B0 44 45 52 20 43 4F 4C 4F 55 52 00 27 0E 6C 02 |.DER COLOUR.'.l.|
00000610: 53 54 41 20 42 B0 44 45 52 20 20 20 20 20 20 3B |STA B.DER ;|
00000620: A4 20 4E B0 4D 41 4C 00 2F 0E 76 02 50 4C 41 00 |. N.MAL./.v.PLA.|
00000630: 55 0E 80 02 54 41 59 20 20 20 20 20 20 20 20 20 |U...TAY |
00000640: 20 20 20 20 3B 52 45 43 41 4C 4C 20 57 48 45 52 | ;RECALL WHER|
00000650: 45 20 59 4F 55 00 74 0E 8A 02 50 4C 41 20 20 20 |E YOU.t...PLA |
00000660: 20 20 20 20 20 20 20 20 20 20 3B 57 45 52 45 20 | ;WERE |
00000670: 42 45 81 45 00 7C 0E 94 02 54 41 58 00 9B 0E 9E |BE.E.|...TAX....|
00000680: 02 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 20 |.CLC |
00000690: 20 3B AF 20 CB 20 54 48 45 52 45 00 B6 0E A8 02 | ;. . THERE.....|
000006A0: 4A 4D 50 20 50 4C 4F 54 20 20 20 20 20 20 20 20 |JMP PLOT |
000006B0: 3B 28 52 54 53 29 00 BC 0E B2 02 3B 00 D2 0E BC |;(RTS).....;....|
000006C0: 02 3B AD AD 20 99 20 4D 45 53 53 41 47 45 53 20 |.;.. . MESSAGES |
000006D0: AD AD 00 D8 0E C6 02 3B 00 02 0F D0 02 50 52 49 |.......;.....PRI|
000006E0: 4D 4D 53 20 53 54 59 20 24 35 44 20 20 20 20 20 |MMS STY $5D |
000006F0: 20 20 20 20 3B 50 4F B5 20 A4 20 4D 45 53 53 41 | ;PO. . MESSA|
00000700: 47 45 00 0E 0F DA 02 53 54 41 20 24 35 43 00 2B |GE.....STA $5C.+|
00000710: 0F E4 02 4C 44 59 20 23 24 30 30 20 20 20 20 20 |...LDY #$00 |
00000720: 20 20 20 3B 43 4F 55 4E 54 45 52 00 4E 0F EE 02 | ;COUNTER.N...|
00000730: 50 52 49 4D 4D 32 20 4C 44 41 20 28 24 35 43 29 |PRIMM2 LDA ($5C)|
00000740: 2C 59 20 20 20 20 20 3B A1 20 43 48 41 52 00 6D |,Y ;. CHAR.m|
00000750: 0F F8 02 42 45 51 20 50 52 49 4D 4D 33 20 20 20 |...BEQ PRIMM3 |
00000760: 20 20 20 3B 8B 20 5A 45 52 4F 2C 20 80 00 87 0F | ;. ZERO, ....|
00000770: 02 03 4A 53 52 20 43 48 52 4F 55 54 20 20 20 20 |..JSR CHROUT |
00000780: 20 20 3B 99 20 49 54 00 A6 0F 0C 03 49 4E 59 20 | ;. IT.....INY |
00000790: 20 20 20 20 20 20 20 20 20 20 20 20 3B 49 4E 43 | ;INC|
000007A0: 20 49 4E 44 45 58 00 C5 0F 16 03 42 4E 45 20 50 | INDEX.....BNE P|
000007B0: 52 49 4D 4D 32 20 20 20 20 20 20 3B 4C 4F 4F 50 |RIMM2 ;LOOP|
000007C0: 20 42 41 43 4B 00 E9 0F 20 03 50 52 49 4D 4D 33 | BACK... .PRIMM3|
000007D0: 20 52 54 53 20 20 20 20 20 20 20 20 20 20 20 20 | RTS |
000007E0: 20 3B 41 4C 4C 20 44 91 45 00 EF 0F 2A 03 3B 00 | ;ALL D.E...*.;.|
000007F0: 02 10 34 03 3B AD AD 20 4D 45 53 53 41 47 45 20 |..4.;.. MESSAGE |
00000800: AD AD 00 08 10 3E 03 3B 00 31 10 48 03 43 45 52 |.....>.;.1.H.CER|
00000810: 4D 53 47 20 2E 42 59 54 20 24 31 32 3A 20 2E C6 |MSG .BYT $12: ..|
00000820: 22 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |" PRESS ANY KEY |
00000830: 22 00 42 10 52 03 2E 42 59 54 20 24 39 32 2C 24 |".B.R..BYT $92,$|
00000840: 30 30 00 49 10 5C 03 2E 80 00 00 00 |00.I.\...... |
....D.. SAVE"@0:PLACE.PAL".7.N.. 8,8,8,"
0:PLACE.OBJ,P,W.A.X.. 700.M....OPT O8.R.
..;....................................;
.. ..... .;..
MACHINE CODE PLACEHOLDER .......;.. . C
OMMOD.E 64 .......;..
...'...;.. ROUTINE . HO
LD SCREEN ...G.H.;.. PLACE, . MESSAGE
. ...D.R.;.. LAST LINE, . . ......
.;.. WHENCE THEE CAME .......;.
. ...S...;.. M
AY 85 PAUL BLAIR .......;..
.......;..........
......................#...;.E...;.. C64
BASIC 2.0 ROUTINES ...K.".;.U.,.B.DER .
$D020 ;EXTERI. COLOUR...6.CLEAN
. $E9FF ;ERASE LINE IN .X.G.@.C
HROUT . $FFD2 ;. A CHAR...J..IN
. $FFE4 ;. A KEY...T.PLOT . $
FFF0 ;SCREEN ROUTINE...^.;.2.H.;
.. MAIN PROGRAM ...8.R.;.Z.|...$C000
;.49152 CALLS.`...;.....;.. ERR. ME
SSAGE FLIP B.DER .......;.....OHDEAR LDA
#$02 ;VISUAL ERR......STA B.DER.
....SEC ;. OUR PLACE...B.JSR
PLOT ;BY .ING SCREEN.%.L.TXA
;. X, Y EUES.I.V.PHA
;PUSH THEM AWAY.J...TYA ;.
LATER USE.R...PHA.....CLC ;
SET . LOCATI......LDY #$0C ;12 OV
ER.O...LDX #$18 ;24 DOWN.....JSR
PLOT ;PUT CURS. THERE.....LDY #.C
ERMSG ;. MESSAGE.4.&.LDA #.CERMSG
;MAYBE ADD A.Y.0.JSR PRIMMS ;"TONE
HERE TOO?.{.:.KEYPLS JSR .IN ;. A
KEY...D.BEQ KEYPLS ;LOOP . NO KEY.A
.N.LDX #$18 ;ERASE MESSAGE...X.JS
R CLEAN ;. BOT.M LINE...B.LDA #$0F
;RESET B.DER COLOUR.'.L.STA B.DE
R ;. N.MAL./.V.PLA.U...TAY
;RECALL WHERE YOU.T...PLA
;WERE BE.E.|...TAX.....CLC
;. K THERE.....JMP PLOT ;(RTS)..
...;.R...;.. . MESSAGES ...X.F.;...P.PRI
MMS STY $5D ;PO. . MESSAGE...Z.S
TA $5C.+...LDY #$00 ;COUNTER.N...
PRIMM2 LDA ($5C),Y ;. CHAR.M...BEQ P
RIMM3 ;. ZERO, ......JSR CHROUT
;. IT.....INY ;INC INDEX.E
...BNE PRIMM2 ;LOOP BACK... .PRIMM3
RTS ;ALL D.E...*.;...4.;..
MESSAGE .....>.;.1.H.CERMSG .BYT $12: .F
" PRESS ANY KEY ".B.R..BYT $92,$00.I.\..
....
> CLICK IMAGE PREVIEW FOR FULL MODAL