PROGRAM FUNC.SRC
FILE INFORMATION
FILENAME(S): PROGRAM FUNC.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 21:24:08
APPEARS ON: 1 disk(s)
FILE HASH
d42a99ee3411407db0ae7b53b15e8b8b55f768a6b266ca5df9de7e9a2ee67c45
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BEST OF TORPET | PROGRAM FUNC.SRC | PRG | DuncanTwain | 13 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 0A 00 9E 37 30 30 00 18 08 14 00 2E |.......700......| 00000010: 4F 50 54 20 50 2C 4F 4F 00 25 08 1E 00 AC B2 20 |OPT P,OO.%..... | 00000020: 24 43 30 30 30 00 36 08 28 00 4E 4F 4B 45 59 53 |$C000.6.(.NOKEYS| 00000030: 20 B2 20 24 43 36 00 46 08 32 00 49 4E 4B 45 59 | . $C6.F.2.INKEY| 00000040: 20 B2 20 24 44 37 00 59 08 3C 00 49 52 51 56 45 | . $D7.Y.<.IRQVE| 00000050: 43 20 B2 20 24 30 33 31 34 00 6C 08 46 00 49 52 |C . $0314.l.F.IR| 00000060: 51 52 54 4E 20 B2 20 24 45 41 33 31 00 7F 08 47 |QRTN . $EA31...G| 00000070: 00 42 55 46 46 45 52 20 B2 20 24 30 32 37 37 00 |.BUFFER . $0277.| 00000080: 87 08 50 00 53 45 49 00 96 08 5A 00 4C 44 58 20 |..P.SEI...Z.LDX | 00000090: 23 B3 A2 49 52 51 00 A5 08 64 00 4C 44 59 20 23 |#..IRQ...d.LDY #| 000000A0: B1 A2 49 52 51 00 B4 08 6E 00 53 54 58 20 49 52 |..IRQ...n.STX IR| 000000B0: 51 56 45 43 00 C5 08 78 00 53 54 59 20 49 52 51 |QVEC...x.STY IRQ| 000000C0: 56 45 43 AA 31 00 CD 08 82 00 43 4C 49 00 D5 08 |VEC.1.....CLI...| 000000D0: 8C 00 52 54 53 00 F2 08 96 00 A2 49 52 51 20 50 |..RTS......IRQ P| 000000E0: 48 41 3A 54 58 41 3A 50 48 41 3A 54 59 41 3A 50 |HA:TXA:PHA:TYA:P| 000000F0: 48 41 00 00 09 A0 00 4C 44 41 20 49 4E 4B 45 59 |HA.....LDA INKEY| 00000100: 00 0D 09 AA 00 43 4D 50 20 23 31 33 33 00 1D 09 |.....CMP #133...| 00000110: B4 00 42 45 51 20 46 31 53 54 41 52 54 00 2A 09 |..BEQ F1START.*.| 00000120: BE 00 43 4D 50 20 23 31 33 37 00 3A 09 C8 00 42 |..CMP #137.:...B| 00000130: 45 51 20 46 32 53 54 41 52 54 00 47 09 D2 00 43 |EQ F2START.G...C| 00000140: 4D 50 20 23 31 33 34 00 57 09 DC 00 42 45 51 20 |MP #134.W...BEQ | 00000150: 46 33 53 54 41 52 54 00 64 09 E6 00 43 4D 50 20 |F3START.d...CMP | 00000160: 23 31 33 38 00 74 09 EB 00 42 45 51 20 46 34 53 |#138.t...BEQ F4S| 00000170: 54 41 52 54 00 81 09 F0 00 43 4D 50 20 23 31 33 |TART.....CMP #13| 00000180: 35 00 91 09 FA 00 42 45 51 20 46 35 53 54 41 52 |5.....BEQ F5STAR| 00000190: 54 00 9E 09 04 01 43 4D 50 20 23 31 33 39 00 AE |T.....CMP #139..| 000001A0: 09 0E 01 42 45 51 20 46 36 53 54 41 52 54 00 BB |...BEQ F6START..| 000001B0: 09 18 01 43 4D 50 20 23 31 33 36 00 C6 09 22 01 |...CMP #136...".| 000001C0: 42 4E 45 20 82 31 00 D6 09 27 01 4A 4D 50 20 46 |BNE .1...'.JMP F| 000001D0: 37 53 54 41 52 54 00 E6 09 2C 01 82 31 20 43 4D |7START...,..1 CM| 000001E0: 50 20 23 31 34 30 00 F1 09 36 01 42 4E 45 20 82 |P #140...6.BNE .| 000001F0: 32 00 01 0A 3B 01 4A 4D 50 20 46 38 53 54 41 52 |2...;.JMP F8STAR| 00000200: 54 00 13 0A 40 01 82 32 20 4A 4D 50 20 4D 4F 56 |T...@..2 JMP MOV| 00000210: 45 91 31 00 26 0A 4A 01 46 31 53 54 41 52 54 20 |E.1.&.J.F1START | 00000220: 4C 44 58 20 23 30 00 39 0A 54 01 4C 4F 4F 50 31 |LDX #0.9.T.LOOP1| 00000230: 20 4C 44 41 20 46 31 2C 58 00 55 0A 5E 01 43 4D | LDA F1,X.U.^.CM| 00000240: 50 20 23 30 3A 42 4E 45 20 82 33 3A 4A 4D 50 20 |P #0:BNE .3:JMP | 00000250: 4D 4F 56 45 91 00 69 0A 63 01 82 33 20 53 54 41 |MOVE..i.c..3 STA| 00000260: 20 42 55 46 46 45 52 2C 58 00 83 0A 68 01 49 4E | BUFFER,X...h.IN| 00000270: 58 3A 43 50 58 20 23 31 30 3A 42 4E 45 20 4C 4F |X:CPX #10:BNE LO| 00000280: 4F 50 31 00 91 0A 6D 01 4A 4D 50 20 4D 4F 56 45 |OP1...m.JMP MOVE| 00000290: 91 00 A4 0A 72 01 46 32 53 54 41 52 54 20 4C 44 |....r.F2START LD| 000002A0: 58 20 23 30 00 B7 0A 7C 01 4C 4F 4F 50 32 20 4C |X #0...|.LOOP2 L| 000002B0: 44 41 20 46 32 2C 58 00 D3 0A 86 01 43 4D 50 20 |DA F2,X.....CMP | 000002C0: 23 30 3A 42 4E 45 20 82 34 3A 4A 4D 50 20 4D 4F |#0:BNE .4:JMP MO| 000002D0: 56 45 91 00 E7 0A 90 01 82 34 20 53 54 41 20 42 |VE.......4 STA B| 000002E0: 55 46 46 45 52 2C 58 00 01 0B 95 01 49 4E 58 3A |UFFER,X.....INX:| 000002F0: 43 50 58 20 23 31 30 3A 42 4E 45 20 4C 4F 4F 50 |CPX #10:BNE LOOP| 00000300: 32 00 0F 0B 9A 01 4A 4D 50 20 4D 4F 56 45 91 00 |2.....JMP MOVE..| 00000310: 22 0B A4 01 46 33 53 54 41 52 54 20 4C 44 58 20 |"...F3START LDX | 00000320: 23 30 00 35 0B AE 01 4C 4F 4F 50 33 20 4C 44 41 |#0.5...LOOP3 LDA| 00000330: 20 46 33 2C 58 00 4A 0B B8 01 43 4D 50 20 23 30 | F3,X.J...CMP #0| 00000340: 3A 42 45 51 20 4D 4F 56 45 91 00 5B 0B C2 01 53 |:BEQ MOVE..[...S| 00000350: 54 41 20 42 55 46 46 45 52 2C 58 00 75 0B C7 01 |TA BUFFER,X.u...| 00000360: 49 4E 58 3A 43 50 58 20 23 31 30 3A 42 4E 45 20 |INX:CPX #10:BNE | 00000370: 4C 4F 4F 50 33 00 83 0B CC 01 4A 4D 50 20 4D 4F |LOOP3.....JMP MO| 00000380: 56 45 91 00 96 0B D6 01 46 34 53 54 41 52 54 20 |VE......F4START | 00000390: 4C 44 58 20 23 30 00 A9 0B E0 01 4C 4F 4F 50 34 |LDX #0.....LOOP4| 000003A0: 20 4C 44 41 20 46 34 2C 58 00 BE 0B EA 01 43 4D | LDA F4,X.....CM| 000003B0: 50 20 23 30 3A 42 45 51 20 4D 4F 56 45 91 00 CF |P #0:BEQ MOVE...| 000003C0: 0B F4 01 53 54 41 20 42 55 46 46 45 52 2C 58 00 |...STA BUFFER,X.| 000003D0: E9 0B F9 01 49 4E 58 3A 43 50 58 20 23 31 30 3A |....INX:CPX #10:| 000003E0: 42 4E 45 20 4C 4F 4F 50 34 00 F7 0B FE 01 4A 4D |BNE LOOP4.....JM| 000003F0: 50 20 4D 4F 56 45 91 00 0A 0C 08 02 46 35 53 54 |P MOVE......F5ST| 00000400: 41 52 54 20 4C 44 58 20 23 30 00 1D 0C 12 02 4C |ART LDX #0.....L| 00000410: 4F 4F 50 35 20 4C 44 41 20 46 35 2C 58 00 32 0C |OOP5 LDA F5,X.2.| 00000420: 1C 02 43 4D 50 20 23 30 3A 42 45 51 20 4D 4F 56 |..CMP #0:BEQ MOV| 00000430: 45 91 00 43 0C 26 02 53 54 41 20 42 55 46 46 45 |E..C.&.STA BUFFE| 00000440: 52 2C 58 00 5D 0C 30 02 49 4E 58 3A 43 50 58 20 |R,X.].0.INX:CPX | 00000450: 23 31 30 3A 42 4E 45 20 4C 4F 4F 50 35 00 6B 0C |#10:BNE LOOP5.k.| 00000460: 3A 02 4A 4D 50 20 4D 4F 56 45 91 00 7E 0C 44 02 |:.JMP MOVE..~.D.| 00000470: 46 36 53 54 41 52 54 20 4C 44 58 20 23 30 00 91 |F6START LDX #0..| 00000480: 0C 4E 02 4C 4F 4F 50 36 20 4C 44 41 20 46 36 2C |.N.LOOP6 LDA F6,| 00000490: 58 00 A6 0C 58 02 43 4D 50 20 23 30 3A 42 45 51 |X...X.CMP #0:BEQ| 000004A0: 20 4D 4F 56 45 91 00 B7 0C 62 02 53 54 41 20 42 | MOVE....b.STA B| 000004B0: 55 46 46 45 52 2C 58 00 D1 0C 6C 02 49 4E 58 3A |UFFER,X...l.INX:| 000004C0: 43 50 58 20 23 31 30 3A 42 4E 45 20 4C 4F 4F 50 |CPX #10:BNE LOOP| 000004D0: 36 00 DF 0C 76 02 4A 4D 50 20 4D 4F 56 45 91 00 |6...v.JMP MOVE..| 000004E0: F2 0C 80 02 46 37 53 54 41 52 54 20 4C 44 58 20 |....F7START LDX | 000004F0: 23 30 00 05 0D 8A 02 4C 4F 4F 50 37 20 4C 44 41 |#0.....LOOP7 LDA| 00000500: 20 46 37 2C 58 00 1A 0D 94 02 43 4D 50 20 23 30 | F7,X.....CMP #0| 00000510: 3A 42 45 51 20 4D 4F 56 45 91 00 2B 0D 9E 02 53 |:BEQ MOVE..+...S| 00000520: 54 41 20 42 55 46 46 45 52 2C 58 00 45 0D A8 02 |TA BUFFER,X.E...| 00000530: 49 4E 58 3A 43 50 58 20 23 31 30 3A 42 4E 45 20 |INX:CPX #10:BNE | 00000540: 4C 4F 4F 50 37 00 53 0D B2 02 4A 4D 50 20 4D 4F |LOOP7.S...JMP MO| 00000550: 56 45 91 00 66 0D BC 02 46 38 53 54 41 52 54 20 |VE..f...F8START | 00000560: 4C 44 58 20 23 30 00 79 0D C6 02 4C 4F 4F 50 38 |LDX #0.y...LOOP8| 00000570: 20 4C 44 41 20 46 38 2C 58 00 8E 0D D0 02 43 4D | LDA F8,X.....CM| 00000580: 50 20 23 30 3A 42 45 51 20 4D 4F 56 45 91 00 9F |P #0:BEQ MOVE...| 00000590: 0D DA 02 53 54 41 20 42 55 46 46 45 52 2C 58 00 |...STA BUFFER,X.| 000005A0: B9 0D E4 02 49 4E 58 3A 43 50 58 20 23 31 30 3A |....INX:CPX #10:| 000005B0: 42 4E 45 20 4C 4F 4F 50 38 00 CE 0D E8 03 4D 4F |BNE LOOP8.....MO| 000005C0: 56 45 91 20 53 54 58 20 4E 4F 4B 45 59 53 00 ED |VE. STX NOKEYS..| 000005D0: 0D F2 03 4D 4F 56 45 91 31 20 50 4C 41 3A 54 41 |...MOVE.1 PLA:TA| 000005E0: 59 3A 50 4C 41 3A 54 41 58 3A 50 4C 41 00 FC 0D |Y:PLA:TAX:PLA...| 000005F0: FC 03 4A 4D 50 20 49 52 51 52 54 4E 00 20 0E 06 |..JMP IRQRTN. ..| 00000600: 04 46 31 20 2E C6 20 22 52 55 4E 22 3A 2E 42 59 |.F1 .. "RUN":.BY| 00000610: 54 45 31 33 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |TE13,0,0,0,0,0,0| 00000620: 00 37 0E 10 04 46 32 20 2E C6 20 22 20 20 20 20 |.7...F2 .. " | 00000630: 20 20 20 20 20 20 22 00 4E 0E 1A 04 46 33 20 2E | ".N...F3 .| 00000640: C6 20 22 20 20 20 20 20 20 20 20 20 20 22 00 65 |. " ".e| 00000650: 0E 24 04 46 34 20 2E C6 20 22 20 20 20 20 20 20 |.$.F4 .. " | 00000660: 20 20 20 20 22 00 7C 0E 2E 04 46 35 20 2E C6 20 | ".|...F5 .. | 00000670: 22 20 20 20 20 20 20 20 20 20 20 22 00 93 0E 38 |" "...8| 00000680: 04 46 36 20 2E C6 20 22 20 20 20 20 20 20 20 20 |.F6 .. " | 00000690: 20 20 22 00 AA 0E 42 04 46 37 20 2E C6 20 22 20 | "...B.F7 .. " | 000006A0: 20 20 20 20 20 20 20 20 20 22 00 C1 0E 47 04 46 | "...G.F| 000006B0: 38 20 2E C6 20 22 20 20 20 20 20 20 20 20 20 20 |8 .. " | 000006C0: 22 00 00 00 |"... |
.......700......OPT P,OO.%..... $C000.6.
(.NOKEYS . $C6.F.2.INKEY . $D7.Y.<.IRQVE
C . $0314.L.F.IRQRTN . $EA31..G.BUFFER
. $0277...P.SEI...Z.LDX #..IRQ...D.LDY #
..IRQ...N.STX IRQVEC.E.X.STY IRQVEC.1.M.
..CLI.U...RTS......IRQ PHA:TXA:PHA:TYA:P
HA... .LDA INKEY.....CMP #133.....BEQ F1
START.*...CMP #137.:.H.BEQ F2START.G.R.C
MP #134.W...BEQ F3START.D...CMP #138.T..
.BEQ F4START.....CMP #135.....BEQ F5STAR
T.....CMP #139.....BEQ F6START.....CMP #
136.F.".BNE .1.V.'.JMP F7START...,..1 CM
P #140...6.BNE .2...;.JMP F8START...@..2
JMP MOVE.1.&.J.F1START LDX #0.9.T.LOOP1
LDA F1,X.U.^.CMP #0:BNE .3:JMP MOVE..I.
C..3 STA BUFFER,X...H.INX:CPX #10:BNE LO
OP1...M.JMP MOVE....R.F2START LDX #0...|
.LOOP2 LDA F2,X.S...CMP #0:BNE .4:JMP MO
VE.......4 STA BUFFER,X.....INX:CPX #10:
BNE LOOP2.....JMP MOVE.."...F3START LDX
#0.5...LOOP3 LDA F3,X.J...CMP #0:BEQ MOV
E..[.B.STA BUFFER,X.U.G.INX:CPX #10:BNE
LOOP3...L.JMP MOVE....V.F4START LDX #0..
...LOOP4 LDA F4,X.....CMP #0:BEQ MOVE..O
...STA BUFFER,X.....INX:CPX #10:BNE LOOP
4.....JMP MOVE......F5START LDX #0.....L
OOP5 LDA F5,X.2...CMP #0:BEQ MOVE..C.&.S
TA BUFFER,X.].0.INX:CPX #10:BNE LOOP5.K.
:.JMP MOVE..~.D.F6START LDX #0...N.LOOP6
LDA F6,X...X.CMP #0:BEQ MOVE....B.STA B
UFFER,X.Q.L.INX:CPX #10:BNE LOOP6...V.JM
P MOVE......F7START LDX #0.....LOOP7 LDA
F7,X.....CMP #0:BEQ MOVE..+...STA BUFFE
R,X.E...INX:CPX #10:BNE LOOP7.S...JMP MO
VE..F...F8START LDX #0.Y.F.LOOP8 LDA F8,
X...P.CMP #0:BEQ MOVE....Z.STA BUFFER,X.
....INX:CPX #10:BNE LOOP8.N...MOVE. STX
NOKEYS.....MOVE.1 PLA:TAY:PLA:TAX:PLA...
..JMP IRQRTN. ...F1 .F "RUN":.BYTE13,0,0
,0,0,0,0.7...F2 .F " ".N...F3 .
F " ".E.$.F4 .F " ".|.
..F5 .F " "...8.F6 .F "
"...B.F7 .F " ".A.G.F8 .F "
"...
> CLICK IMAGE PREVIEW FOR FULL MODAL