PLACE
FILE INFORMATION
FILENAME(S): PLACE
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
99247eebb409c9306ee0adfb769b464ecefead46889121d4a5eba8dc8b5454f8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | PLACE | PRG | DuncanTwain | 26 | 2 | DOWNLOAD FILE |
| RANS ISK2 | PLACE | PRG | DuncanTwain | 26 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 50 4C 41 43 45 20 28 4D |..).... PLACE (M| 00000010: 2E 20 50 48 49 4C 4C 49 50 53 20 33 2F 38 35 29 |. PHILLIPS 3/85)| 00000020: 20 20 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 | :./...:.| 00000030: 4E 08 02 00 8F 20 30 20 53 54 41 54 45 4D 45 4E |N.... 0 STATEMEN| 00000040: 54 53 2C 20 31 20 46 55 4E 43 54 49 4F 4E 00 54 |TS, 1 FUNCTION.T| 00000050: 08 03 00 3A 00 70 08 04 00 8F 20 4B 45 59 57 4F |...:.p.... KEYWO| 00000060: 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 36 |RD CHARACTERS: 6| 00000070: 00 76 08 05 00 3A 00 9B 08 06 00 8F 20 4B 45 59 |.v...:...... KEY| 00000080: 57 4F 52 44 20 20 52 4F 55 54 49 4E 45 20 20 4C |WORD ROUTINE L| 00000090: 49 4E 45 20 20 20 20 53 45 52 23 00 BF 08 07 00 |INE SER#.....| 000000A0: 8F 20 46 2F 50 4C 41 43 45 28 20 20 4E 53 54 20 |. F/PLACE( NST | 000000B0: 20 20 20 20 36 33 39 38 20 20 20 20 30 38 31 00 | 6398 081.| 000000C0: C5 08 08 00 3A 00 EB 08 09 00 8F 20 3D 3D 3D 3D |....:...... ====| 000000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F1 08 0A 00 |===========.....| 000000F0: 3A 00 0C 09 66 02 2E C6 20 22 50 4C 41 43 45 22 |:...f... "PLACE"| 00000100: 20 3A 20 2E 42 59 54 45 20 24 41 38 00 1B 09 4E | : .BYTE $A8...N| 00000110: 06 2E 57 B0 44 20 4E 53 54 AB 31 00 2F 09 FE 18 |..W.D NST.1./...| 00000120: 4E 53 54 20 4C 44 41 20 23 32 20 20 20 20 20 00 |NST LDA #2 .| 00000130: 3D 09 00 19 4A 53 52 20 24 41 33 46 42 00 51 09 |=...JSR $A3FB.Q.| 00000140: 02 19 4C 44 41 20 23 30 20 20 20 20 20 20 20 20 |..LDA #0 | 00000150: 20 00 59 09 04 19 50 48 41 00 6D 09 06 19 4A 53 | .Y...PHA.m...JS| 00000160: 52 20 24 41 44 39 45 20 20 20 20 20 20 00 81 09 |R $AD9E ...| 00000170: 08 19 42 49 54 20 24 30 44 20 20 20 20 20 20 20 |..BIT $0D | 00000180: 20 00 95 09 0A 19 42 4D 49 20 4E 53 54 32 20 20 | .....BMI NST2 | 00000190: 20 20 20 20 20 00 A9 09 0C 19 4A 53 52 20 24 42 | .....JSR $B| 000001A0: 37 41 31 20 20 20 20 20 20 00 BD 09 0E 19 4A 53 |7A1 .....JS| 000001B0: 52 20 24 41 45 46 44 20 20 20 20 20 20 00 D1 09 |R $AEFD ...| 000001C0: 10 19 50 4C 41 20 20 20 20 20 20 20 20 20 20 20 |..PLA | 000001D0: 20 00 E5 09 12 19 54 58 41 20 20 20 20 20 20 20 | .....TXA | 000001E0: 20 20 20 20 20 00 F9 09 14 19 42 4E 45 20 4E 53 | .....BNE NS| 000001F0: 54 31 20 20 20 20 20 20 20 00 0D 0A 16 19 4A 4D |T1 .....JM| 00000200: 50 20 24 42 32 34 38 20 20 20 20 20 20 00 1A 0A |P $B248 ...| 00000210: 18 19 4E 53 54 31 20 44 45 58 00 22 0A 1A 19 54 |..NST1 DEX."...T| 00000220: 58 41 00 2A 0A 1C 19 50 48 41 00 3E 0A 1E 19 4A |XA.*...PHA.>...J| 00000230: 53 52 20 24 41 44 39 45 20 20 20 20 20 20 00 52 |SR $AD9E .R| 00000240: 0A 20 19 4E 53 54 32 20 4A 53 52 20 24 42 36 41 |. .NST2 JSR $B6A| 00000250: 33 20 00 66 0A 22 19 53 54 41 20 54 33 20 20 20 |3 .f.".STA T3 | 00000260: 20 20 20 20 20 20 00 7A 0A 24 19 50 48 41 20 20 | .z.$.PHA | 00000270: 20 20 20 20 20 20 20 20 20 20 00 8E 0A 26 19 54 | ...&.T| 00000280: 58 41 20 20 20 20 20 20 20 20 20 20 20 20 00 96 |XA ..| 00000290: 0A 28 19 50 48 41 00 9E 0A 2A 19 54 59 41 00 A6 |.(.PHA...*.TYA..| 000002A0: 0A 2C 19 50 48 41 00 BA 0A 2E 19 4C 44 41 20 54 |.,.PHA.....LDA T| 000002B0: 33 20 20 20 20 20 20 20 20 20 00 C8 0A 30 19 4A |3 ...0.J| 000002C0: 53 52 20 24 42 34 37 44 00 DC 0A 32 19 4A 53 52 |SR $B47D...2.JSR| 000002D0: 20 24 37 39 20 20 20 20 20 20 20 20 00 F0 0A 34 | $79 ...4| 000002E0: 19 4A 53 52 20 24 41 45 46 44 20 20 20 20 20 20 |.JSR $AEFD | 000002F0: 00 04 0B 36 19 4A 53 52 20 24 41 44 39 45 20 20 |...6.JSR $AD9E | 00000300: 20 20 20 20 00 18 0B 38 19 4A 53 52 20 24 42 36 | ...8.JSR $B6| 00000310: 41 33 20 20 20 20 20 20 00 20 0B 39 19 54 41 58 |A3 . .9.TAX| 00000320: 00 34 0B 3A 19 42 45 51 20 4E 53 54 36 20 20 20 |.4.:.BEQ NST6 | 00000330: 20 20 20 20 00 3F 0B 3B 19 53 54 41 20 54 34 00 | .?.;.STA T4.| 00000340: 4B 0B 3C 19 4A 53 52 20 24 37 39 00 5F 0B 3E 19 |K.<.JSR $79._.>.| 00000350: 4A 53 52 20 24 41 45 46 37 20 20 20 20 20 20 00 |JSR $AEF7 .| 00000360: 73 0B 40 19 50 4C 41 20 20 20 20 20 20 20 20 20 |s.@.PLA | 00000370: 20 20 20 00 87 0B 42 19 53 54 41 20 24 32 35 20 | ...B.STA $25 | 00000380: 20 20 20 20 20 20 20 00 8F 0B 44 19 50 4C 41 00 | ...D.PLA.| 00000390: 9B 0B 46 19 53 54 41 20 24 32 34 00 A3 0B 48 19 |..F.STA $24...H.| 000003A0: 50 4C 41 00 B7 0B 49 19 42 45 51 20 4E 53 54 36 |PLA...I.BEQ NST6| 000003B0: 20 20 20 20 20 20 20 00 CB 0B 4A 19 53 54 41 20 | ...J.STA | 000003C0: 54 33 20 20 20 20 20 20 20 20 20 00 D3 0B 4C 19 |T3 ...L.| 000003D0: 50 4C 41 00 E7 0B 4E 19 53 54 41 20 54 32 20 20 |PLA...N.STA T2 | 000003E0: 20 20 20 20 20 20 20 00 FB 0B 50 19 53 54 41 20 | ...P.STA | 000003F0: 54 35 20 20 20 20 20 20 20 20 20 00 0F 0C 52 19 |T5 ...R.| 00000400: 4C 44 41 20 54 33 20 20 20 20 20 20 20 20 20 00 |LDA T3 .| 00000410: 23 0C 54 19 43 4D 50 20 54 32 20 20 20 20 20 20 |#.T.CMP T2 | 00000420: 20 20 20 00 30 0C 56 19 42 45 51 20 4E 53 54 36 | .0.V.BEQ NST6| 00000430: 00 3D 0C 58 19 42 43 43 20 4E 53 54 36 00 51 0C |.=.X.BCC NST6.Q.| 00000440: 5A 19 53 42 43 20 54 34 20 20 20 20 20 20 20 20 |Z.SBC T4 | 00000450: 20 00 65 0C 5C 19 42 43 43 20 4E 53 54 36 20 20 | .e.\.BCC NST6 | 00000460: 20 20 20 20 20 00 79 0C 5E 19 53 54 41 20 54 36 | .y.^.STA T6| 00000470: 20 20 20 20 20 20 20 20 20 00 8D 0C 60 19 4E 53 | ...`.NS| 00000480: 54 33 20 43 4C 43 20 20 20 20 20 20 20 00 A1 0C |T3 CLC ...| 00000490: 62 19 4C 44 41 20 24 32 34 20 20 20 20 20 20 20 |b.LDA $24 | 000004A0: 20 00 B5 0C 64 19 41 44 43 20 54 35 20 20 20 20 | ...d.ADC T5 | 000004B0: 20 20 20 20 20 00 C1 0C 66 19 53 54 41 20 24 32 | ...f.STA $2| 000004C0: 34 00 CE 0C 68 19 42 43 43 20 4E 53 54 34 00 DA |4...h.BCC NST4..| 000004D0: 0C 6A 19 49 4E 43 20 24 32 35 00 EE 0C 6C 19 4E |.j.INC $25...l.N| 000004E0: 53 54 34 20 4C 44 59 20 23 31 20 20 20 20 00 02 |ST4 LDY #1 ..| 000004F0: 0D 6E 19 53 54 59 20 54 35 20 20 20 20 20 20 20 |.n.STY T5 | 00000500: 20 20 00 18 0D 70 19 44 45 59 20 20 20 20 20 20 | ...p.DEY | 00000510: 20 20 20 20 20 20 20 20 00 2E 0D 72 19 4E 53 54 | ...r.NST| 00000520: 35 20 4C 44 41 20 28 24 32 34 29 2C 59 20 00 42 |5 LDA ($24),Y .B| 00000530: 0D 74 19 43 4D 50 20 28 24 32 32 29 2C 59 20 20 |.t.CMP ($22),Y | 00000540: 20 20 00 56 0D 76 19 42 4E 45 20 4E 53 54 37 20 | .V.v.BNE NST7 | 00000550: 20 20 20 20 20 20 00 6A 0D 78 19 49 4E 59 20 20 | .j.x.INY | 00000560: 20 20 20 20 20 20 20 20 20 20 00 7E 0D 7A 19 43 | .~.z.C| 00000570: 50 59 20 54 34 20 20 20 20 20 20 20 20 20 00 92 |PY T4 ..| 00000580: 0D 7C 19 42 4E 45 20 4E 53 54 35 20 20 20 20 20 |.|.BNE NST5 | 00000590: 20 20 00 A6 0D 7E 19 4C 44 59 20 54 32 20 20 20 | ...~.LDY T2 | 000005A0: 20 20 20 20 20 20 00 AE 0D 80 19 49 4E 59 00 C2 | .....INY..| 000005B0: 0D 82 19 2E 42 59 54 45 20 24 32 43 20 20 20 20 |....BYTE $2C | 000005C0: 20 20 00 D6 0D 84 19 4E 53 54 36 20 4C 44 59 20 | .....NST6 LDY | 000005D0: 23 30 20 20 20 20 00 EA 0D 86 19 4A 4D 50 20 24 |#0 .....JMP $| 000005E0: 42 33 41 32 20 20 20 20 20 20 00 FE 0D 88 19 4E |B3A2 .....N| 000005F0: 53 54 37 20 4C 44 41 20 54 32 20 20 20 20 00 12 |ST7 LDA T2 ..| 00000600: 0E 8A 19 43 4D 50 20 54 36 20 20 20 20 20 20 20 |...CMP T6 | 00000610: 20 20 00 26 0E 8C 19 42 43 53 20 4E 53 54 36 20 | .&...BCS NST6 | 00000620: 20 20 20 20 20 20 00 3A 0E 8E 19 49 4E 43 20 54 | .:...INC T| 00000630: 32 20 20 20 20 20 20 20 20 20 00 4E 0E 90 19 42 |2 .N...B| 00000640: 4E 45 20 4E 53 54 33 20 20 20 20 20 20 20 00 54 |NE NST3 .T| 00000650: 0E 92 19 3B 00 00 00 |...;... |
..).... PLACE (M. PHILLIPS 3/85)
:./...:.N.... 0 STATEMENTS, 1 FUNCTION.T
...:.P.... KEYWORD CHARACTERS: 6.V...:..
.... KEYWORD ROUTINE LINE SER#.....
. F/PLACE( NST 6398 081.E...:...
... ===============================.....
:...F..F "PLACE" : .BYTE $A8...N..W.D NS
T.1./...NST LDA #2 .=...JSR $A3FB.Q.
..LDA #0 .Y...PHA.M...JSR $AD9E
.....BIT $0D .....BMI NST2
.....JSR $B7A1 .....JSR $AEFD
.Q...PLA .....TXA
.....BNE NST1 .....JMP $B248
.....NST1 DEX."...TXA.*...PHA.>...J
SR $AD9E .R. .NST2 JSR $B6A3 .F.".S
TA T3 .Z.$.PHA ...&.T
XA ...(.PHA...*.TYA...,.PHA..
...LDA T3 .H.0.JSR $B47D...2.JSR
$79 ...4.JSR $AEFD ...6.JSR
$AD9E ...8.JSR $B6A3 . .9.TAX
.4.:.BEQ NST6 .?.;.STA T4.K.<.JSR
$79._.>.JSR $AEF7 .S.@.PLA
...B.STA $25 ...D.PLA...F.STA
$24...H.PLA...I.BEQ NST6 .K.J.STA
T3 .S.L.PLA...N.STA T2 .
..P.STA T5 ...R.LDA T3 .
#.T.CMP T2 .0.V.BEQ NST6.=.X.BCC
NST6.Q.Z.SBC T4 .E.\.BCC NST6
.Y.^.STA T6 ...`.NST3 CLC
...B.LDA $24 ...D.ADC T5
.A.F.STA $24.N.H.BCC NST4.Z.J.INC $
25...L.NST4 LDY #1 ...N.STY T5
...P.DEY ...R.NST5 LDA ($
24),Y .B.T.CMP ($22),Y .V.V.BNE NST7
.J.X.INY .~.Z.CPY T4
...|.BNE NST5 ...~.LDY T2
.....INY.B....BYTE $2C .V...N
ST6 LDY #0 .....JMP $B3A2 .....N
ST7 LDA T2 .....CMP T6 .&...B
CS NST6 .:...INC T2 .N...B
NE NST3 .T...;...
> CLICK IMAGE PREVIEW FOR FULL MODAL