UHR.LST
FILE INFORMATION
FILENAME(S): UHR.LST
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 01:13:12
APPEARS ON: 2 disk(s)
FILE HASH
234c41b2a29a2d93cce237cc0a581cbb957f2221b325c096419d0df5fd1803f6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10903 SEITE A | UHR.LST | PRG | C64er, DuncanTwain | 15 | 1 | DOWNLOAD FILE |
| 10903 SEITE A | UHR.LST | PRG | DuncanTwain | 15 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 64 00 8F 20 55 48 52 00 21 08 6E 00 |....d.. UHR.!.n.| 00000010: 83 20 41 2C 43 2C 49 2C 41 50 54 52 2C 43 50 54 |. A,C,I,APTR,CPT| 00000020: 52 00 36 08 78 00 83 20 54 4F 44 50 54 52 2C 43 |R.6.x.. TODPTR,C| 00000030: 4F 4E 54 49 52 51 00 47 08 82 00 83 20 2A 3D 2C |ONTIRQ.G.... *=,| 00000040: 34 39 31 35 32 2C 30 00 61 08 BE 00 83 20 20 20 |49152,0.a.... | 00000050: 20 20 20 20 2C 47 4F 53 55 42 2C 34 34 37 39 37 | ,GOSUB,44797| 00000060: 2C 00 7F 08 C8 00 83 20 20 20 20 20 20 20 2C 43 |,...... ,C| 00000070: 4D 4F 56 45 23 2C 31 32 38 2C 35 36 35 39 30 00 |MOVE#,128,56590.| 00000080: 9B 08 D2 00 83 20 20 20 20 20 20 20 2C 43 4D 4F |..... ,CMO| 00000090: 56 45 23 2C 30 2C 35 36 35 39 31 00 B5 08 DC 00 |VE#,0,56591.....| 000000A0: 83 20 20 20 20 20 20 20 2C 47 4F 53 55 42 2C 35 |. ,GOSUB,5| 000000B0: 37 39 34 33 2C 00 CC 08 E6 00 83 20 20 20 20 20 |7943,...... | 000000C0: 20 20 2C 4D 4F 56 45 23 2C 30 2C 43 00 E5 08 F0 | ,MOVE#,0,C....| 000000D0: 00 83 20 20 20 20 20 20 20 2C 43 4D 4F 56 45 2C |.. ,CMOVE,| 000000E0: 31 38 33 2C 43 00 FC 08 FA 00 83 20 20 20 20 20 |183,C...... | 000000F0: 20 20 2C 41 44 44 23 2C 2D 36 2C 43 00 13 09 04 | ,ADD#,-6,C....| 00000100: 01 83 20 20 20 20 20 20 20 2C 49 46 2C 43 2C 45 |.. ,IF,C,E| 00000110: 58 49 54 00 2D 09 0E 01 83 20 20 20 20 20 20 20 |XIT.-.... | 00000120: 2C 4D 4F 56 45 23 2C 43 2C 43 50 54 52 00 47 09 |,MOVE#,C,CPTR.G.| 00000130: 10 01 83 20 20 20 20 20 20 20 2C 4D 4F 56 45 23 |... ,MOVE#| 00000140: 2C 41 2C 41 50 54 52 00 67 09 12 01 83 20 20 20 |,A,APTR.g.... | 00000150: 20 20 20 20 2C 4D 4F 56 45 23 2C 35 36 35 38 37 | ,MOVE#,56587| 00000160: 2C 54 4F 44 50 54 52 00 7E 09 16 01 83 20 20 20 |,TODPTR.~.... | 00000170: 20 20 20 20 2C 4D 4F 56 45 23 2C 33 2C 49 00 9B | ,MOVE#,3,I..| 00000180: 09 18 01 83 20 4C 4F 4F 50 31 2C 43 4D 4F 56 45 |.... LOOP1,CMOVE| 00000190: 28 29 2C 31 38 37 2C 43 50 54 52 00 B1 09 1D 01 |(),187,CPTR.....| 000001A0: 83 20 20 20 20 20 20 20 2C 4D 4F 56 45 2C 43 2C |. ,MOVE,C,| 000001B0: 41 00 CC 09 22 01 83 20 20 20 20 20 20 20 2C 47 |A...".. ,G| 000001C0: 4F 53 55 42 2C 41 3D 31 36 2A 41 2C 00 E4 09 27 |OSUB,A=16*A,...'| 000001D0: 01 83 20 20 20 20 20 20 20 2C 41 44 44 23 2C 31 |.. ,ADD#,1| 000001E0: 2C 31 38 37 00 02 0A 2C 01 83 20 20 20 20 20 20 |,187...,.. | 000001F0: 20 2C 43 4D 4F 56 45 28 29 2C 31 38 37 2C 43 50 | ,CMOVE(),187,CP| 00000200: 54 52 00 1A 0A 31 01 83 20 20 20 20 20 20 20 2C |TR...1.. ,| 00000210: 41 44 44 23 2C 2D 34 38 2C 43 00 2F 0A 36 01 83 |ADD#,-48,C./.6..| 00000220: 20 20 20 20 20 20 20 2C 41 44 44 2C 43 2C 41 00 | ,ADD,C,A.| 00000230: 50 0A 40 01 83 20 20 20 20 20 20 20 2C 43 4D 4F |P.@.. ,CMO| 00000240: 56 45 28 29 2C 41 50 54 52 2C 54 4F 44 50 54 52 |VE(),APTR,TODPTR| 00000250: 00 67 0A 4A 01 83 20 20 20 20 20 20 20 2C 4D 4F |.g.J.. ,MO| 00000260: 56 45 23 2C 30 2C 43 00 7F 0A 54 01 83 20 20 20 |VE#,0,C...T.. | 00000270: 20 20 20 20 2C 41 44 44 23 2C 31 2C 31 38 37 00 | ,ADD#,1,187.| 00000280: 9B 0A 5E 01 83 20 20 20 20 20 20 20 2C 41 44 44 |..^.. ,ADD| 00000290: 23 2C 2D 31 2C 54 4F 44 50 54 52 00 B2 0A 68 01 |#,-1,TODPTR...h.| 000002A0: 83 20 20 20 20 20 20 20 2C 41 44 44 23 2C 2D 31 |. ,ADD#,-1| 000002B0: 2C 49 00 CA 0A 72 01 83 20 20 20 20 20 20 20 2C |,I...r.. ,| 000002C0: 49 46 2C 49 2C 4C 4F 4F 50 31 00 E6 0A 77 01 83 |IF,I,LOOP1...w..| 000002D0: 20 20 20 20 20 20 20 2C 43 4D 4F 56 45 23 2C 30 | ,CMOVE#,0| 000002E0: 2C 35 36 35 38 34 00 01 0B 79 01 83 20 20 20 20 |,56584...y.. | 000002F0: 20 20 20 2C 43 4D 4F 56 45 2C 35 36 35 38 34 2C | ,CMOVE,56584,| 00000300: 43 00 19 0B 7C 01 83 20 20 20 20 20 20 20 2C 47 |C...|.. ,G| 00000310: 4F 53 55 42 2C 53 45 49 2C 00 37 0B 86 01 83 20 |OSUB,SEI,.7.... | 00000320: 20 20 20 20 20 20 2C 4D 4F 56 45 2C 37 38 38 2C | ,MOVE,788,| 00000330: 43 4F 4E 54 49 52 51 00 56 0B 90 01 83 20 20 20 |CONTIRQ.V.... | 00000340: 20 20 20 20 2C 4D 4F 56 45 23 2C 49 52 51 52 4F | ,MOVE#,IRQRO| 00000350: 55 54 2C 37 38 38 00 6E 0B 9A 01 83 20 20 20 20 |UT,788.n.... | 00000360: 20 20 20 2C 47 4F 53 55 42 2C 43 4C 49 2C 00 82 | ,GOSUB,CLI,..| 00000370: 0B A4 01 83 20 45 58 49 54 2C 52 45 54 55 52 4E |.... EXIT,RETURN| 00000380: 2C 2C 00 88 0B EA 01 8F 00 9D 0B F4 01 83 20 41 |,,............ A| 00000390: 3D 31 36 2A 41 2C 41 44 44 2C 41 2C 41 00 B2 0B |=16*A,ADD,A,A...| 000003A0: FE 01 83 20 20 20 20 20 20 20 2C 41 44 44 2C 41 |... ,ADD,A| 000003B0: 2C 41 00 C7 0B 08 02 83 20 20 20 20 20 20 20 2C |,A...... ,| 000003C0: 41 44 44 2C 41 2C 41 00 DC 0B 12 02 83 20 20 20 |ADD,A,A...... | 000003D0: 20 20 20 20 2C 41 44 44 2C 41 2C 41 00 F2 0B 1C | ,ADD,A,A....| 000003E0: 02 83 20 20 20 20 20 20 20 2C 52 45 54 55 52 4E |.. ,RETURN| 000003F0: 2C 2C 00 F8 0B 26 02 8F 00 0E 0C 30 02 83 20 53 |,,...&.....0.. S| 00000400: 45 49 2C 57 4F 52 44 2C 32 34 36 39 36 2C 00 24 |EI,WORD,24696,.$| 00000410: 0C 3A 02 83 20 43 4C 49 2C 57 4F 52 44 2C 32 34 |.:.. CLI,WORD,24| 00000420: 36 36 34 2C 00 2A 0C 4E 02 8F 00 42 0C 58 02 83 |664,.*.N...B.X..| 00000430: 20 49 52 51 52 4F 55 54 2C 4D 4F 56 45 23 2C 30 | IRQROUT,MOVE#,0| 00000440: 2C 43 00 5D 0C 62 02 83 20 20 20 20 20 20 20 2C |,C.].b.. ,| 00000450: 43 4D 4F 56 45 2C 35 36 35 38 37 2C 43 00 78 0C |CMOVE,56587,C.x.| 00000460: 6C 02 83 20 20 20 20 20 20 20 2C 47 4F 53 55 42 |l.. ,GOSUB| 00000470: 2C 54 4F 53 43 52 4E 2C 00 93 0C 76 02 83 20 20 |,TOSCRN,...v.. | 00000480: 20 20 20 20 20 2C 4D 4F 56 45 2C 32 34 35 2C 31 | ,MOVE,245,1| 00000490: 30 35 38 00 AE 0C 80 02 83 20 20 20 20 20 20 20 |058...... | 000004A0: 2C 43 4D 4F 56 45 2C 35 36 35 38 36 2C 43 00 C9 |,CMOVE,56586,C..| 000004B0: 0C 8A 02 83 20 20 20 20 20 20 20 2C 47 4F 53 55 |.... ,GOSU| 000004C0: 42 2C 54 4F 53 43 52 4E 2C 00 E4 0C 94 02 83 20 |B,TOSCRN,...... | 000004D0: 20 20 20 20 20 20 2C 4D 4F 56 45 2C 32 34 35 2C | ,MOVE,245,| 000004E0: 31 30 36 30 00 FF 0C 9E 02 83 20 20 20 20 20 20 |1060...... | 000004F0: 20 2C 43 4D 4F 56 45 2C 35 36 35 38 35 2C 43 00 | ,CMOVE,56585,C.| 00000500: 1A 0D A8 02 83 20 20 20 20 20 20 20 2C 47 4F 53 |..... ,GOS| 00000510: 55 42 2C 54 4F 53 43 52 4E 2C 00 35 0D B2 02 83 |UB,TOSCRN,.5....| 00000520: 20 20 20 20 20 20 20 2C 4D 4F 56 45 2C 32 34 35 | ,MOVE,245| 00000530: 2C 31 30 36 32 00 50 0D BC 02 83 20 20 20 20 20 |,1062.P.... | 00000540: 20 20 2C 43 4D 4F 56 45 2C 35 36 35 38 34 2C 43 | ,CMOVE,56584,C| 00000550: 00 6D 0D C6 02 83 20 20 20 20 20 20 20 2C 47 4F |.m.... ,GO| 00000560: 54 4F 28 29 2C 43 4F 4E 54 49 52 51 2C 00 73 0D |TO(),CONTIRQ,.s.| 00000570: 16 03 8F 00 89 0D 20 03 83 20 54 4F 53 43 52 4E |...... .. TOSCRN| 00000580: 2C 4D 4F 56 45 2C 43 2C 41 00 A4 0D 2A 03 83 20 |,MOVE,C,A...*.. | 00000590: 20 20 20 20 20 20 2C 47 4F 53 55 42 2C 41 3D 31 | ,GOSUB,A=1| 000005A0: 36 2A 41 2C 00 BC 0D 34 03 83 20 20 20 20 20 20 |6*A,...4.. | 000005B0: 20 2C 4D 4F 56 45 2C 41 2C 32 34 35 00 D7 0D 3E | ,MOVE,A,245...>| 000005C0: 03 83 20 20 20 20 20 20 20 2C 43 4D 4F 56 45 2C |.. ,CMOVE,| 000005D0: 32 34 36 2C 32 34 35 00 F1 0D 48 03 83 20 20 20 |246,245...H.. | 000005E0: 20 20 20 20 2C 43 4D 4F 56 45 23 2C 30 2C 32 34 | ,CMOVE#,0,24| 000005F0: 36 00 09 0E 52 03 83 20 20 20 20 20 20 20 2C 4D |6...R.. ,M| 00000600: 4F 56 45 2C 32 34 35 2C 41 00 24 0E 5C 03 83 20 |OVE,245,A.$.\.. | 00000610: 20 20 20 20 20 20 2C 47 4F 53 55 42 2C 41 3D 31 | ,GOSUB,A=1| 00000620: 36 2A 41 2C 00 39 0E 66 03 83 20 20 20 20 20 20 |6*A,.9.f.. | 00000630: 20 2C 53 55 42 2C 41 2C 43 00 52 0E 70 03 83 20 | ,SUB,A,C.R.p.. | 00000640: 20 20 20 20 20 20 2C 43 4D 4F 56 45 2C 43 2C 32 | ,CMOVE,C,2| 00000650: 34 36 00 6E 0E 7A 03 83 20 20 20 20 20 20 20 2C |46.n.z.. ,| 00000660: 41 44 44 23 2C 31 32 33 33 36 2C 32 34 35 00 84 |ADD#,12336,245..| 00000670: 0E 84 03 83 20 20 20 20 20 20 20 2C 52 45 54 55 |.... ,RETU| 00000680: 52 4E 2C 2C 00 8C 0E E8 03 83 20 5F 00 00 00 |RN,,...... _... |
....D.. UHR.!.N.. A,C,I,APTR,CPTR.6.X..
TODPTR,CONTIRQ.G.... *=,49152,0.A....
,GOSUB,44797,..H.. ,CMOVE#,12
8,56590...R.. ,CMOVE#,0,56591.....
. ,GOSUB,57943,.L.... ,MOVE#
,0,C...... ,CMOVE,183,C......
,ADD#,-6,C...... ,IF,C,EXIT.-...
. ,MOVE#,C,CPTR.G.... ,MOVE#
,A,APTR.G.... ,MOVE#,56587,TODPTR.
~.... ,MOVE#,3,I...... LOOP1,CMOVE
(),187,CPTR...... ,MOVE,C,A.L."..
,GOSUB,A=16*A,...'.. ,ADD#,1
,187...,.. ,CMOVE(),187,CPTR...1..
,ADD#,-48,C./.6.. ,ADD,C,A.
P.@.. ,CMOVE(),APTR,TODPTR.G.J..
,MOVE#,0,C..T.. ,ADD#,1,187.
..^.. ,ADD#,-1,TODPTR...H..
,ADD#,-1,I.J.R.. ,IF,I,LOOP1...W..
,CMOVE#,0,56584...Y.. ,CMOV
E,56584,C...|.. ,GOSUB,SEI,.7....
,MOVE,788,CONTIRQ.V.... ,MOV
E#,IRQROUT,788.N.... ,GOSUB,CLI,..
.... EXIT,RETURN,,............ A=16*A,AD
D,A,A...... ,ADD,A,A.G.... ,
ADD,A,A...... ,ADD,A,A......
,RETURN,,...&.....0.. SEI,WORD,24696,.$
.:.. CLI,WORD,24664,.*.N...B.X.. IRQROUT
,MOVE#,0,C.].B.. ,CMOVE,56587,C.X.
L.. ,GOSUB,TOSCRN,...V.. ,MO
VE,245,1058...... ,CMOVE,56586,C.I
.... ,GOSUB,TOSCRN,...... ,M
OVE,245,1060...... ,CMOVE,56585,C.
..... ,GOSUB,TOSCRN,.5.... ,
MOVE,245,1062.P.... ,CMOVE,56584,C
.M.F.. ,GOTO(),CONTIRQ,.S....... .
. TOSCRN,MOVE,C,A...*.. ,GOSUB,A=1
6*A,...4.. ,MOVE,A,245.W.>..
,CMOVE,246,245...H.. ,CMOVE#,0,24
6...R.. ,MOVE,245,A.$.\.. ,G
OSUB,A=16*A,.9.F.. ,SUB,A,C.R.P..
,CMOVE,C,246.N.Z.. ,ADD#,123
36,245...... ,RETURN,,...... _...
> CLICK IMAGE PREVIEW FOR FULL MODAL