LINE CALC
FILE INFORMATION
FILENAME(S): LINE CALC
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
1f5ccabc88fcbfa10c4e8dfa180aa1ec9e70cb8ec9ee0f592b8c52c95a11658d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | LINE CALC | PRG | DuncanTwain | 8 | 2 | DOWNLOAD FILE |
| RANS ISK2 | LINE CALC | PRG | DuncanTwain | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 4C 49 4E 45 20 43 41 4C |..).... LINE CAL| 00000010: 43 20 28 37 2F 38 35 29 20 20 20 20 20 20 20 20 |C (7/85) | 00000020: 20 20 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 | :./...:.| 00000030: 4F 08 02 00 8F 20 32 20 53 54 41 54 45 4D 45 4E |O.... 2 STATEMEN| 00000040: 54 53 2C 20 20 31 20 46 55 4E 43 54 49 4F 4E 00 |TS, 1 FUNCTION.| 00000050: 55 08 03 00 3A 00 72 08 04 00 8F 20 4B 45 59 57 |U...:.r.... KEYW| 00000060: 4F 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 |ORD CHARACTERS: | 00000070: 31 33 00 78 08 05 00 3A 00 9F 08 06 00 8F 20 4B |13.x...:...... K| 00000080: 45 59 57 4F 52 44 20 20 20 52 4F 55 54 49 4E 45 |EYWORD ROUTINE| 00000090: 20 20 20 4C 49 4E 45 20 20 20 53 45 52 20 23 00 | LINE SER #.| 000000A0: C5 08 07 00 8F 20 53 2F 4A 55 4D 50 20 20 20 20 |..... S/JUMP | 000000B0: 4A 55 4D 20 20 20 20 20 20 20 38 38 34 36 20 20 |JUM 8846 | 000000C0: 20 20 31 33 30 00 EB 08 08 00 8F 20 53 2F 43 41 | 130...... S/CA| 000000D0: 4C 4C 20 20 20 20 43 41 4C 20 20 20 20 20 20 20 |LL CAL | 000000E0: 38 38 37 30 20 20 20 20 31 33 31 00 11 09 09 00 |8870 131.....| 000000F0: 8F 20 46 2F 4C 49 4E 45 28 20 20 20 4C 49 4E 45 |. F/LINE( LINE| 00000100: 20 20 20 20 20 20 38 39 30 32 20 20 20 20 31 33 | 8902 13| 00000110: 32 00 17 09 0A 00 3A 00 2F 09 0B 00 8F 20 55 2F |2.....:./.... U/| 00000120: 55 53 46 50 20 28 32 36 32 30 2F 30 30 36 29 00 |USFP (2620/006).| 00000130: 35 09 0C 00 3A 00 5C 09 0D 00 8F 20 3D 3D 3D 3D |5...:.\.... ====| 00000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000150: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 62 09 0E |============.b..| 00000160: 00 3A 00 74 09 88 00 2E C6 20 22 4A 55 4D D0 43 |.:.t..... "JUM.C| 00000170: 41 4C CC 22 00 8D 09 6D 02 2E C6 20 22 4C 49 4E |AL."...m... "LIN| 00000180: 45 22 3A 20 2E 42 59 54 45 20 24 41 38 00 A2 09 |E": .BYTE $A8...| 00000190: 70 04 2E 57 B0 44 20 4A 55 4D AB 31 2C 43 41 4C |p..W.D JUM.1,CAL| 000001A0: AB 31 00 B2 09 55 06 2E 57 B0 44 20 4C 49 4E 45 |.1...U..W.D LINE| 000001B0: AB 31 00 C2 09 3C 0A 55 53 46 50 20 4C 44 58 20 |.1...<.USFP LDX | 000001C0: 23 30 00 CE 09 3E 0A 53 54 58 20 24 30 44 00 DA |#0...>.STX $0D..| 000001D0: 09 40 0A 53 54 41 20 24 36 32 00 E6 09 42 0A 53 |.@.STA $62...B.S| 000001E0: 54 59 20 24 36 33 00 F3 09 44 0A 4C 44 58 20 23 |TY $63...D.LDX #| 000001F0: 24 39 30 00 FB 09 46 0A 53 45 43 00 09 0A 48 0A |$90...F.SEC...H.| 00000200: 4A 4D 50 20 24 42 43 34 39 00 0F 0A 4A 0A 3B 00 |JMP $BC49...J.;.| 00000210: 21 0A 8E 22 4A 55 4D 20 4A 53 52 20 24 42 30 38 |!.."JUM JSR $B08| 00000220: 42 00 2D 0A 90 22 42 49 54 20 24 30 45 00 39 0A |B.-.."BIT $0E.9.| 00000230: 92 22 42 50 4C 20 4A 4D 31 00 44 0A 94 22 4C 44 |."BPL JM1.D.."LD| 00000240: 59 20 23 30 00 54 0A 96 22 4C 44 41 20 28 24 34 |Y #0.T.."LDA ($4| 00000250: 37 29 2C 59 00 60 0A 98 22 53 54 41 20 24 36 30 |7),Y.`.."STA $60| 00000260: 00 68 0A 9A 22 49 4E 59 00 78 0A 9C 22 4C 44 41 |.h.."INY.x.."LDA| 00000270: 20 28 24 34 37 29 2C 59 00 80 0A 9E 22 53 45 43 | ($47),Y...."SEC| 00000280: 00 8E 0A A0 22 4A 4D 50 20 24 41 38 43 37 00 A0 |...."JMP $A8C7..| 00000290: 0A A2 22 4A 4D 31 20 4A 4D 50 20 24 41 44 39 39 |.."JM1 JMP $AD99| 000002A0: 00 A6 0A A4 22 3B 00 B5 0A A6 22 43 41 4C 20 4C |....";...."CAL L| 000002B0: 44 41 20 23 33 00 C3 0A A8 22 4A 53 52 20 24 41 |DA #3...."JSR $A| 000002C0: 33 46 42 00 CF 0A AA 22 4C 44 41 20 24 37 42 00 |3FB...."LDA $7B.| 000002D0: D7 0A AC 22 50 48 41 00 E3 0A AE 22 4C 44 41 20 |..."PHA...."LDA | 000002E0: 24 37 41 00 EB 0A B0 22 50 48 41 00 F7 0A B2 22 |$7A...."PHA...."| 000002F0: 4C 44 41 20 24 33 41 00 FF 0A B4 22 50 48 41 00 |LDA $3A...."PHA.| 00000300: 0B 0B B6 22 4C 44 41 20 24 33 39 00 13 0B B8 22 |..."LDA $39...."| 00000310: 50 48 41 00 20 0B BA 22 4C 44 41 20 23 24 38 44 |PHA. .."LDA #$8D| 00000320: 00 28 0B BC 22 50 48 41 00 34 0B BE 22 4A 53 52 |.(.."PHA.4.."JSR| 00000330: 20 24 37 39 00 40 0B C0 22 4A 53 52 20 4A 55 4D | $79.@.."JSR JUM| 00000340: 00 4E 0B C2 22 4A 4D 50 20 24 41 37 41 45 00 54 |.N.."JMP $A7AE.T| 00000350: 0B C4 22 3B 00 66 0B C6 22 4C 49 4E 45 20 43 4D |..";.f.."LINE CM| 00000360: 50 20 23 24 38 39 00 74 0B C8 22 42 4E 45 20 4C |P #$89.t.."BNE L| 00000370: 49 4E 45 31 00 80 0B CA 22 4A 53 52 20 24 37 33 |INE1...."JSR $73| 00000380: 00 91 0B CC 22 4C 49 4E 45 31 20 4C 44 41 20 23 |...."LINE1 LDA #| 00000390: 32 00 9F 0B CE 22 4A 53 52 20 24 41 33 46 42 00 |2...."JSR $A3FB.| 000003A0: AB 0B D0 22 4C 44 41 20 24 31 34 00 B3 0B D2 22 |..."LDA $14...."| 000003B0: 50 48 41 00 BF 0B D4 22 4C 44 41 20 24 31 35 00 |PHA...."LDA $15.| 000003C0: C7 0B D6 22 50 48 41 00 D3 0B D8 22 4C 44 41 20 |..."PHA...."LDA | 000003D0: 24 35 46 00 DB 0B DA 22 50 48 41 00 E7 0B DC 22 |$5F...."PHA...."| 000003E0: 4C 44 41 20 24 36 30 00 EF 0B DE 22 50 48 41 00 |LDA $60...."PHA.| 000003F0: FD 0B E0 22 4A 53 52 20 24 41 44 38 41 00 0B 0C |..."JSR $AD8A...| 00000400: E2 22 4A 53 52 20 24 42 37 46 37 00 16 0C E4 22 |."JSR $B7F7...."| 00000410: 4C 44 41 20 23 30 00 22 0C E6 22 53 54 41 20 24 |LDA #0.".."STA $| 00000420: 36 31 00 30 0C E8 22 4A 53 52 20 24 41 36 31 33 |61.0.."JSR $A613| 00000430: 00 3E 0C EA 22 42 43 43 20 4C 49 4E 45 32 00 4A |.>.."BCC LINE2.J| 00000440: 0C EC 22 4C 44 59 20 24 35 46 00 56 0C EE 22 4C |.."LDY $5F.V.."L| 00000450: 44 41 20 24 36 30 00 69 0C F0 22 4C 49 4E 45 32 |DA $60.i.."LINE2| 00000460: 20 4A 53 52 20 55 53 46 50 00 71 0C F2 22 50 4C | JSR USFP.q.."PL| 00000470: 41 00 7D 0C F4 22 53 54 41 20 24 36 30 00 85 0C |A.}.."STA $60...| 00000480: F6 22 50 4C 41 00 91 0C F8 22 53 54 41 20 24 35 |."PLA...."STA $5| 00000490: 46 00 99 0C FA 22 50 4C 41 00 A5 0C FC 22 53 54 |F...."PLA...."ST| 000004A0: 41 20 24 31 35 00 AD 0C FE 22 50 4C 41 00 B9 0C |A $15...."PLA...| 000004B0: 00 23 53 54 41 20 24 31 34 00 C7 0C 02 23 4A 4D |.#STA $14....#JM| 000004C0: 50 20 24 41 45 46 37 00 CD 0C 04 23 3B 00 00 00 |P $AEF7....#;...|
..).... LINE CALC (7/85) :./...:.O.... 2 STATEMENTS, 1 FUNCTION. U...:.R.... KEYWORD CHARACTERS: 13.X...: ...... KEYWORD ROUTINE LINE SER #. E.... S/JUMP JUM 8846 130... ... S/CALL CAL 8870 131..... . F/LINE( LINE 8902 132.....:. /.... U/USFP (2620/006).5...:.\.... ==== ============================.B...:.T.... F "JUMPCALL"...M..F "LINE": .BYTE $A8... P..W.D JUM.1,CAL.1...U..W.D LINE.1.B.<.U SFP LDX #0.N.>.STX $0D.Z.@.STA $62...B.S TY $63...D.LDX #$90...F.SEC...H.JMP $BC4 9...J.;.!.."JUM JSR $B08B.-.."BIT $0E.9. ."BPL JM1.D.."LDY #0.T.."LDA ($47),Y.`.. "STA $60.H.."INY.X.."LDA ($47),Y...."SEC ... "JMP $A8C7. .."JM1 JMP $AD99....";.. .."CAL LDA #3.C.."JSR $A3FB.O.."LDA $7B. W.."PHA...."LDA $7A...."PHA...."LDA $3A. ..."PHA...."LDA $39...."PHA. .."LDA #$8D .(.."PHA.4.."JSR $79.@.."JSR JUM.N.B"JMP $A7AE.T.D";.F.F"LINE CMP #$89.T.H"BNE L INE1...J"JSR $73...L"LINE1 LDA #2...N"JS R $A3FB...P"LDA $14...R"PHA...T"LDA $15. G.V"PHA.S.X"LDA $5F...Z"PHA...."LDA $60. ..."PHA...."JSR $AD8A...."JSR $B7F7...." LDA #0.".."STA $61.0.."JSR $A613.>.."BCC LINE2.J.."LDY $5F.V.."LDA $60.I.."LINE2 JSR USFP.Q.."PLA.}.."STA $60...."PLA... ."STA $5F...."PLA...."STA $15...."PLA... .#STA $14.G..#JMP $AEF7.M..#;...
> CLICK IMAGE PREVIEW FOR FULL MODAL