TB/CURSOR POS
FILE INFORMATION
FILENAME(S): TB/CURSOR POS
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 16:59:31
APPEARS ON: 1 disk(s)
FILE HASH
acc66d2b296aa3a5204a085b3a4c678a58b32fbe364dd01c3493b643aa7e5f75
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC UTILITIES | TB/CURSOR POS | PRG | High Voltage Complete C64 Collection | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 00 00 8F 20 43 55 52 53 4F 52 20 50 |..%.... CURSOR P| 00000010: 4F 53 49 54 49 4F 4E 20 28 53 45 50 54 20 20 34 |OSITION (SEPT 4| 00000020: 2F 38 34 29 3A 00 2B 08 01 00 3A 00 49 08 02 00 |/84):.+...:.I...| 00000030: 8F 20 31 20 53 54 41 54 45 4D 45 4E 54 2C 20 31 |. 1 STATEMENT, 1| 00000040: 20 46 55 4E 43 54 49 4F 4E 00 4F 08 03 00 3A 00 | FUNCTION.O...:.| 00000050: 6C 08 04 00 8F 20 4B 45 59 57 4F 52 44 20 43 48 |l.... KEYWORD CH| 00000060: 41 52 41 43 54 45 52 53 3A 20 31 30 00 72 08 05 |ARACTERS: 10.r..| 00000070: 00 3A 00 95 08 06 00 8F 20 4B 45 59 57 4F 52 44 |.:...... KEYWORD| 00000080: 20 20 52 4F 55 54 49 4E 45 20 20 4C 49 4E 45 20 | ROUTINE LINE | 00000090: 20 53 45 52 23 00 B7 08 07 00 8F 20 53 2F 43 55 | SER#...... S/CU| 000000A0: 52 53 4F 52 20 43 53 52 20 20 20 20 20 20 32 35 |RSOR CSR 25| 000000B0: 37 34 20 20 30 30 34 00 D9 08 08 00 8F 20 46 2F |74 004...... F/| 000000C0: 43 4C 4F 43 20 20 20 43 53 52 4C 4F 43 20 20 20 |CLOC CSRLOC | 000000D0: 32 36 30 36 20 20 30 30 35 00 DF 08 09 00 3A 00 |2606 005.....:.| 000000E0: F7 08 0A 00 8F 20 55 2F 55 53 46 50 20 28 32 36 |..... U/USFP (26| 000000F0: 32 30 2F 30 30 36 29 00 FD 08 0B 00 3A 00 24 09 |20/006).....:.$.| 00000100: 0C 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============| 00000110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000120: 3D 3D 3D 3D 00 2A 09 0D 00 3A 00 3A 09 65 00 2E |====.*...:.:.e..| 00000130: C6 20 22 43 55 52 53 4F D2 22 00 48 09 58 02 2E |. "CURSO.".H.X..| 00000140: C6 20 22 43 4C 4F C3 22 00 57 09 4D 04 2E 57 B0 |. "CLO.".W.M..W.| 00000150: 44 20 43 53 52 AB 31 00 69 09 40 06 2E 57 B0 44 |D CSR.1.i.@..W.D| 00000160: 20 43 53 52 4C 4F 43 AB 31 00 8E 09 0E 0A 43 53 | CSRLOC.1.....CS| 00000170: 52 20 4A 53 52 20 24 42 37 39 45 20 3B A1 20 46 |R JSR $B79E ;. F| 00000180: 49 52 53 54 20 50 41 52 41 4D 45 54 45 52 00 AD |IRST PARAMETER..| 00000190: 09 10 0A 43 50 58 20 23 24 31 39 20 3B 4D 55 53 |...CPX #$19 ;MUS| 000001A0: 54 20 42 45 20 55 4E 44 45 52 20 32 35 00 C4 09 |T BE UNDER 25...| 000001B0: 12 0A 42 43 53 20 43 53 32 20 3B 94 20 91 20 53 |..BCS CS2 ;. . S| 000001C0: 54 41 43 4B 00 CC 09 14 0A 54 58 41 00 D4 09 16 |TACK.....TXA....| 000001D0: 0A 50 48 41 00 F0 09 17 0A 4C 44 59 20 23 30 20 |.PHA.....LDY #0 | 000001E0: 3B 41 53 53 55 4D 45 20 43 4F 4C 55 4D 4E 20 30 |;ASSUME COLUMN 0| 000001F0: 00 09 0A 18 0A 4A 53 52 20 24 37 39 20 3B 42 52 |.....JSR $79 ;BR| 00000200: 41 4E 43 48 20 8B 20 4E 4F 00 26 0A 19 0A 42 45 |ANCH . NO.&...BE| 00000210: 51 20 43 53 31 20 3B 53 45 43 91 44 20 50 41 52 |Q CS1 ;SEC.D PAR| 00000220: 41 4D 45 54 45 52 00 43 0A 1A 0A 43 4D 50 20 23 |AMETER.C...CMP #| 00000230: 22 2C 22 20 3B 48 41 53 20 A4 20 42 45 20 43 4F |"," ;HAS . BE CO| 00000240: 4D 4D 41 00 4F 0A 1B 0A 42 4E 45 20 43 53 33 00 |MMA.O...BNE CS3.| 00000250: 6A 0A 1C 0A 4A 53 52 20 24 42 37 39 42 20 3B A1 |j...JSR $B79B ;.| 00000260: 20 50 41 52 41 4D 45 54 45 52 00 89 0A 1D 0A 43 | PARAMETER.....C| 00000270: 50 58 20 23 24 32 38 20 3B 4D 55 53 54 20 42 45 |PX #$28 ;MUST BE| 00000280: 20 55 4E 44 45 52 20 34 30 00 95 0A 1E 0A 42 43 | UNDER 40.....BC| 00000290: 53 20 43 53 32 00 AB 0A 20 0A 54 58 41 20 3B 4D |S CS2... .TXA ;M| 000002A0: 4F 56 45 20 49 54 20 A4 20 2E 59 00 B3 0A 22 0A |OVE IT . .Y...".| 000002B0: 54 41 59 00 D2 0A 24 0A 43 53 31 20 50 4C 41 20 |TAY...$.CS1 PLA | 000002C0: 3B 52 45 43 4F 56 45 52 20 52 4F 57 20 50 41 52 |;RECOVER ROW PAR| 000002D0: 41 4D 00 DA 0A 26 0A 54 41 58 00 F1 0A 27 0A 43 |AM...&.TAX...'.C| 000002E0: 4C 43 20 3B 4A 55 4D 50 20 A4 20 4B 45 52 4E 41 |LC ;JUMP . KERNA| 000002F0: 4C 00 0D 0B 28 0A 4A 4D 50 20 24 46 46 46 30 20 |L...(.JMP $FFF0 | 00000300: 3B 50 4C 4F 54 20 52 4F 55 54 49 4E 45 00 31 0B |;PLOT ROUTINE.1.| 00000310: 2A 0A 43 53 32 20 4A 4D 50 20 24 42 32 34 38 20 |*.CS2 JMP $B248 | 00000320: 3B 49 4C 4C 45 47 41 4C 20 51 55 41 4E 54 49 54 |;ILLEGAL QUANTIT| 00000330: 59 00 50 0B 2B 0A 43 53 33 20 4A 4D 50 20 24 41 |Y.P.+.CS3 JMP $A| 00000340: 46 30 38 20 3B 53 59 4E 54 41 58 20 45 52 52 B0 |F08 ;SYNTAX ERR.| 00000350: 00 56 0B 2C 0A 3B 00 74 0B 2E 0A 43 53 52 4C 4F |.V.,.;.t...CSRLO| 00000360: 43 20 4C 44 41 20 24 44 31 20 3B 24 44 31 20 AF |C LDA $D1 ;$D1 .| 00000370: 20 24 44 32 00 86 0B 30 0A 43 4C 43 20 3B 9A 41 | $D2...0.CLC ;.A| 00000380: 49 4E 20 54 48 45 00 A0 0B 32 0A 41 44 43 20 24 |IN THE...2.ADC $| 00000390: 44 33 20 3B 53 54 41 52 54 20 4F 46 20 52 4F 57 |D3 ;START OF ROW| 000003A0: 00 B6 0B 34 0A 54 41 59 20 3B 4C 4F 43 41 54 49 |...4.TAY ;LOCATI| 000003B0: 91 2E 20 24 44 33 00 CD 0B 36 0A 4C 44 41 20 24 |.. $D3...6.LDA $| 000003C0: 44 32 20 3B 9A 41 49 4E 53 20 54 48 45 00 E1 0B |D2 ;.AINS THE...| 000003D0: 38 0A 41 44 43 20 23 30 20 3B 43 4F 4C 55 4D 4E |8.ADC #0 ;COLUMN| 000003E0: 2E 00 E7 0B 3A 0A 3B 00 09 0C 3C 0A 55 53 46 50 |....:.;...<.USFP| 000003F0: 20 4C 44 58 20 23 30 20 3B 43 91 56 45 52 54 20 | LDX #0 ;C.VERT | 00000400: 2E 41 20 28 48 49 47 48 29 00 21 0C 3E 0A 53 54 |.A (HIGH).!.>.ST| 00000410: 58 20 24 30 44 20 3B AF 20 2E 59 20 28 4C 4F 57 |X $0D ;. .Y (LOW| 00000420: 29 00 3C 0C 40 0A 53 54 41 20 24 36 32 20 3B 46 |).<.@.STA $62 ;F| 00000430: 52 4F 4D 20 55 4E 53 49 47 4E 45 44 00 51 0C 42 |ROM UNSIGNED.Q.B| 00000440: 0A 53 54 59 20 24 36 33 20 3B B5 45 47 45 52 20 |.STY $63 ;.EGER | 00000450: A4 00 6C 0C 44 0A 4C 44 58 20 23 24 39 30 20 3B |..l.D.LDX #$90 ;| 00000460: 46 4C 4F 41 54 49 4E 47 20 50 4F B5 00 7F 0C 46 |FLOATING PO....F| 00000470: 0A 53 45 43 20 3B 4E 55 4D 42 45 52 20 49 4E 00 |.SEC ;NUMBER IN.| 00000480: 95 0C 48 0A 4A 4D 50 20 24 42 43 34 39 20 3B 46 |..H.JMP $BC49 ;F| 00000490: 41 43 20 23 31 00 9B 0C 4A 0A 3B 00 00 00 |AC #1...J.;... |
..%.... CURSOR POSITION (SEPT 4/84):.+. ..:.I.... 1 STATEMENT, 1 FUNCTION.O...:. L.... KEYWORD CHARACTERS: 10.R...:...... KEYWORD ROUTINE LINE SER#...... S/CU RSOR CSR 2574 004.Y.... F/CLOC C SRLOC 2606 005.....:...... U/USFP (26 20/006).....:.$.... ==================== ============.*...:.:.E..F "CURSOR".H.X.. F "CLOC".W.M..W.D CSR.1.I.@..W.D CSRLOC. 1.....CSR JSR $B79E ;. FIRST PARAMETER.. ...CPX #$19 ;MUST BE UNDER 25.D...BCS CS 2 ;. . STACK.L...TXA.T...PHA.....LDY #0 ;ASSUME COLUMN 0.....JSR $79 ;BRANCH . N O.&...BEQ CS1 ;SEC.D PARAMETER.C...CMP # "," ;HAS . BE COMMA.O...BNE CS3.J...JSR $B79B ;. PARAMETER.....CPX #$28 ;MUST BE UNDER 40.....BCS CS2... .TXA ;MOVE IT . .Y...".TAY.R.$.CS1 PLA ;RECOVER ROW PAR AM.Z.&.TAX...'.CLC ;JUMP . KERNAL...(.JM P $FFF0 ;PLOT ROUTINE.1.*.CS2 JMP $B248 ;ILLEGAL QUANTITY.P.+.CS3 JMP $AF08 ;SYN TAX ERR..V.,.;.T...CSRLOC LDA $D1 ;$D1 . $D2...0.CLC ;.AIN THE. .2.ADC $D3 ;STAR T OF ROW...4.TAY ;LOCATI.. $D3.M.6.LDA $ D2 ;.AINS THE...8.ADC #0 ;COLUMN....:.;. ..<.USFP LDX #0 ;C.VERT .A (HIGH).!.>.ST X $0D ;. .Y (LOW).<.@.STA $62 ;FROM UNSI GNED.Q.B.STY $63 ;.EGER ..L.D.LDX #$90 ; FLOATING PO...F.SEC ;NUMBER IN...H.JMP $BC49 ;FAC #1...J.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL