UHR.RUN
FILE INFORMATION
FILENAME(S): UHR.RUN
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 01:13:12
APPEARS ON: 2 disk(s)
FILE HASH
8d841cbf5f73afeca23c38f4d8b67eca83ad582fd40d1b0995c23b3cdfff036b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10903 SEITE A | UHR.RUN | PRG | C64er, DuncanTwain | 15 | 6 | DOWNLOAD FILE |
| 10903 SEITE A | UHR.RUN | PRG | DuncanTwain | 15 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 0A 00 4D B2 32 30 30 3A 44 B2 35 30 |..H...M.200:D.50| 00000010: 3A 45 B2 31 34 3A 5A B2 AB 31 3A 56 4E B2 5A 3A |:E.14:Z..1:VN.Z:| 00000020: 99 22 11 11 2A 20 4D 49 43 52 4F 43 4F 4D 50 20 |."..* MICROCOMP | 00000030: 56 31 2E 30 20 2A 22 3A 99 22 11 43 4F 44 45 20 |V1.0 *":.".CODE | 00000040: 41 52 45 41 3A 20 22 3B 00 91 08 0F 00 86 20 4C |AREA: ";...... L| 00000050: 24 28 4D 29 2C 4C 56 28 4D 29 2C 43 24 28 4D 29 |$(M),LV(M),C$(M)| 00000060: 2C 43 28 4D 29 2C 4F 24 28 4D 29 2C 50 24 28 4D |,C(M),O$(M),P$(M| 00000070: 29 2C 56 24 28 44 29 2C 57 24 28 45 29 2C 4C 45 |),V$(D),W$(E),LE| 00000080: 28 45 29 2C 4C 58 28 45 29 2C 58 28 45 2C 33 30 |(E),LX(E),X(E,30| 00000090: 29 00 C7 08 14 00 81 4E B2 30 A4 45 3A 87 57 24 |)......N.0.E:.W$| 000000A0: 28 4E 29 2C 4C 45 28 4E 29 2C 4C 58 28 4E 29 3A |(N),LE(N),LX(N):| 000000B0: 81 49 B2 30 A4 4C 58 28 4E 29 3A 87 58 28 4E 2C |.I.0.LX(N):.X(N,| 000000C0: 49 29 3A 82 49 2C 4E 00 FA 08 1E 00 56 4E B2 56 |I):.I,N.....VN.V| 000000D0: 4E AA 31 3A 87 56 24 28 56 4E 29 3A 91 AB 28 56 |N.1:.V$(VN):..(V| 000000E0: 24 28 56 4E 29 B3 B1 22 2A 3D 22 29 89 33 30 3A |$(VN).."*=").30:| 000000F0: 87 20 53 41 2C 56 42 2C 4C 24 00 3E 09 23 00 5A |. SA,VB,L$.>.#.Z| 00000100: B2 5A AA 31 3A 4C 24 28 5A 29 B2 4C 24 3A 87 43 |.Z.1:L$(Z).L$:.C| 00000110: 24 28 5A 29 2C 4F 24 28 5A 29 2C 50 24 28 5A 29 |$(Z),O$(Z),P$(Z)| 00000120: 3A 5A 4D B2 5A 3A 87 4C 24 3A 91 AB 28 4C 24 B3 |:ZM.Z:.L$:..(L$.| 00000130: B1 22 5F 22 29 89 33 35 3A 41 44 B2 53 41 00 83 |."_").35:AD.SA..| 00000140: 09 32 00 99 53 41 3B 22 2D 22 3B 3A 81 5A B2 30 |.2..SA;"-";:.Z.0| 00000150: A4 5A 4D 3A 4C 56 28 5A 29 B2 41 44 3A 81 4E B2 |.ZM:LV(Z).AD:.N.| 00000160: 30 A4 45 3A 8B 43 24 28 5A 29 B2 57 24 28 4E 29 |0.E:.C$(Z).W$(N)| 00000170: A7 43 28 5A 29 B2 4E 3A 41 44 B2 41 44 AA 4C 45 |.C(Z).N:AD.AD.LE| 00000180: 28 4E 29 00 C8 09 37 00 82 4E 2C 5A 3A 43 45 B2 |(N)...7..N,Z:CE.| 00000190: 41 44 3A 99 43 45 3A 41 44 B2 53 41 3A 81 5A B2 |AD:.CE:AD.SA:.Z.| 000001A0: 30 A4 5A 4D 3A 43 B2 43 28 5A 29 3A 56 24 B2 4F |0.ZM:C.C(Z):V$.O| 000001B0: 24 28 5A 29 3A 8D 38 30 3A 4F 28 30 29 B2 56 3A |$(Z):.80:O(0).V:| 000001C0: 56 24 B2 50 24 28 5A 29 00 06 0A 3C 00 8D 38 30 |V$.P$(Z)...<..80| 000001D0: 3A 4F 28 32 29 B2 56 3A 81 4E B2 30 A4 4C 58 28 |:O(2).V:.N.0.LX(| 000001E0: 43 29 3A 58 B2 58 28 43 2C 4E 29 3A 8B 58 B1 B2 |C):X.X(C,N):.X..| 000001F0: 30 A7 97 41 44 2C 58 3A 41 44 B2 41 44 AA 31 3A |0..AD,X:AD.AD.1:| 00000200: 82 4E 2C 5A 3A 80 00 41 0A 41 00 91 58 AF 34 89 |.N,Z:..A.A..X.4.| 00000210: 2C 2C 2C 37 35 3A 4A B2 B5 28 4F 28 58 AF 32 29 |,,,75:J..(O(X.2)| 00000220: AD 32 35 36 29 3A 97 41 44 2C 4A 3A 8B 58 AF 31 |.256):.AD,J:.X.1| 00000230: A7 97 41 44 2C 4F 28 58 AF 32 29 AB 4A AC 32 35 |..AD,O(X.2).J.25| 00000240: 36 00 54 0A 46 00 41 44 B2 41 44 AA 31 3A 82 4E |6.T.F.AD.AD.1:.N| 00000250: 2C 5A 3A 80 00 95 0A 4B 00 49 B2 4F 28 58 AF 32 |,Z:....K.I.O(X.2| 00000260: 29 AA 28 58 AF 31 29 3A 97 41 44 AA 31 2C 49 AD |).(X.1):.AD.1,I.| 00000270: 32 35 36 3A 97 41 44 2C 49 AB B5 28 49 AD 32 35 |256:.AD,I..(I.25| 00000280: 36 29 AC 32 35 36 3A 41 44 B2 41 44 AA 32 3A 82 |6).256:AD.AD.2:.| 00000290: 4E 2C 5A 3A 80 00 DF 0A 50 00 56 B2 C5 28 56 24 |N,Z:....P.V..(V$| 000002A0: 29 3A 56 B2 56 AB 36 35 35 33 36 AC 28 56 B3 30 |):V.V.65536.(V.0| 000002B0: 29 3A 81 49 B2 30 A4 56 4E AB 31 3A 56 B2 56 AB |):.I.0.VN.1:V.V.| 000002C0: 28 56 24 B2 56 24 28 49 29 29 AC 28 32 AC 49 AA |(V$.V$(I)).(2.I.| 000002D0: 56 42 AB 43 45 AC 28 56 42 B2 30 29 29 3A 82 00 |VB.CE.(VB.0)):..| 000002E0: 04 0B 55 00 81 49 B2 30 A4 5A 4D 3A 56 B2 56 AB |..U..I.0.ZM:V.V.| 000002F0: 4C 56 28 49 29 AC 28 56 24 B2 4C 24 28 49 29 29 |LV(I).(V$.L$(I))| 00000300: 3A 82 3A 8E 00 54 0B 5A 00 83 41 44 44 2C 31 39 |:.:..T.Z..ADD,19| 00000310: 2C 31 32 2C 32 34 2C 31 37 33 2C 2D 34 2C 31 30 |,12,24,173,-4,10| 00000320: 39 2C 2D 32 2C 31 34 31 2C 2D 32 2C 31 37 33 2C |9,-2,141,-2,173,| 00000330: 2D 33 2C 31 30 39 2C 2D 31 2C 31 34 31 2C 2D 31 |-3,109,-1,141,-1| 00000340: 2C 53 55 42 2C 31 39 2C 31 32 2C 35 36 2C 31 37 |,SUB,19,12,56,17| 00000350: 33 2C 2D 32 00 A2 0B 5B 00 83 32 33 37 2C 2D 34 |3,-2...[..237,-4| 00000360: 2C 31 34 31 2C 2D 32 2C 31 37 33 2C 2D 31 2C 32 |,141,-2,173,-1,2| 00000370: 33 37 2C 2D 33 2C 31 34 31 2C 2D 31 2C 4D 4F 56 |37,-3,141,-1,MOV| 00000380: 45 2C 31 32 2C 37 2C 31 37 33 2C 2D 34 2C 31 34 |E,12,7,173,-4,14| 00000390: 31 2C 2D 32 2C 31 37 33 2C 2D 33 2C 31 34 31 2C |1,-2,173,-3,141,| 000003A0: 2D 31 00 F0 0B 5C 00 83 47 4F 54 4F 2C 33 2C 31 |-1...\..GOTO,3,1| 000003B0: 2C 37 36 2C 2D 34 2C 49 46 2C 31 31 2C 37 2C 31 |,76,-4,IF,11,7,1| 000003C0: 37 33 2C 2D 34 2C 31 33 2C 2D 33 2C 32 34 30 2C |73,-4,13,-3,240,| 000003D0: 33 2C 37 36 2C 2D 32 2C 4D 4F 56 45 23 2C 31 30 |3,76,-2,MOVE#,10| 000003E0: 2C 37 2C 31 36 39 2C 2D 37 2C 31 34 31 2C 2D 32 |,7,169,-7,141,-2| 000003F0: 00 41 0C 5D 00 83 31 36 39 2C 2D 38 2C 31 34 31 |.A.]..169,-8,141| 00000400: 2C 2D 31 2C 43 4D 4F 56 45 2C 36 2C 33 2C 31 37 |,-1,CMOVE,6,3,17| 00000410: 33 2C 2D 34 2C 31 34 31 2C 2D 32 2C 47 4F 53 55 |3,-4,141,-2,GOSU| 00000420: 42 2C 33 2C 31 2C 33 32 2C 2D 34 2C 52 45 54 55 |B,3,1,32,-4,RETU| 00000430: 52 4E 2C 31 2C 30 2C 39 36 2C 53 45 54 52 45 47 |RN,1,0,96,SETREG| 00000440: 53 00 91 0C 5E 00 83 39 2C 35 2C 31 37 33 2C 2D |S...^..9,5,173,-| 00000450: 34 2C 31 37 34 2C 2D 32 2C 31 37 32 2C 2D 31 2C |4,174,-2,172,-1,| 00000460: 43 4D 4F 56 45 23 2C 35 2C 33 2C 31 36 39 2C 2D |CMOVE#,5,3,169,-| 00000470: 37 2C 31 34 31 2C 2D 32 2C 41 44 44 23 2C 31 37 |7,141,-2,ADD#,17| 00000480: 2C 31 32 2C 32 34 2C 31 36 39 2C 2D 37 2C 31 30 |,12,24,169,-7,10| 00000490: 39 00 E3 0C 5F 00 83 2D 32 2C 31 34 31 2C 2D 32 |9..._..-2,141,-2| 000004A0: 2C 31 36 39 2C 2D 38 2C 31 30 39 2C 2D 31 2C 31 |,169,-8,109,-1,1| 000004B0: 34 31 2C 2D 31 2C 47 4F 54 4F 28 29 2C 33 2C 31 |41,-1,GOTO(),3,1| 000004C0: 2C 31 30 38 2C 2D 34 2C 43 4D 4F 56 45 28 29 2C |,108,-4,CMOVE(),| 000004D0: 32 36 2C 32 31 2C 31 37 33 2C 2D 34 2C 31 33 33 |26,21,173,-4,133| 000004E0: 2C 33 34 00 32 0D 60 00 83 31 37 33 2C 2D 33 2C |,34.2.`..173,-3,| 000004F0: 31 33 33 2C 33 35 2C 31 37 33 2C 2D 32 2C 31 33 |133,35,173,-2,13| 00000500: 33 2C 33 36 2C 31 37 33 2C 2D 31 2C 31 33 33 2C |3,36,173,-1,133,| 00000510: 33 37 2C 31 36 30 2C 30 2C 31 37 37 2C 33 34 2C |37,160,0,177,34,| 00000520: 31 34 35 2C 33 36 2C 57 4F 52 44 2C 32 2C 30 2C |145,36,WORD,2,0,| 00000530: 2D 34 00 3C 0D 64 00 8F 20 55 48 52 00 52 0D 6E |-4.<.d.. UHR.R.n| 00000540: 00 83 20 41 2C 43 2C 49 2C 41 50 54 52 2C 43 50 |.. A,C,I,APTR,CP| 00000550: 54 52 00 67 0D 78 00 83 20 54 4F 44 50 54 52 2C |TR.g.x.. TODPTR,| 00000560: 43 4F 4E 54 49 52 51 00 78 0D 82 00 83 20 2A 3D |CONTIRQ.x.... *=| 00000570: 2C 34 39 31 35 32 2C 30 00 92 0D BE 00 83 20 20 |,49152,0...... | 00000580: 20 20 20 20 20 2C 47 4F 53 55 42 2C 34 34 37 39 | ,GOSUB,4479| 00000590: 37 2C 00 B0 0D C8 00 83 20 20 20 20 20 20 20 2C |7,...... ,| 000005A0: 43 4D 4F 56 45 23 2C 31 32 38 2C 35 36 35 39 30 |CMOVE#,128,56590| 000005B0: 00 CC 0D D2 00 83 20 20 20 20 20 20 20 2C 43 4D |...... ,CM| 000005C0: 4F 56 45 23 2C 30 2C 35 36 35 39 31 00 E6 0D DC |OVE#,0,56591....| 000005D0: 00 83 20 20 20 20 20 20 20 2C 47 4F 53 55 42 2C |.. ,GOSUB,| 000005E0: 35 37 39 34 33 2C 00 FD 0D E6 00 83 20 20 20 20 |57943,...... | 000005F0: 20 20 20 2C 4D 4F 56 45 23 2C 30 2C 43 00 16 0E | ,MOVE#,0,C...| 00000600: F0 00 83 20 20 20 20 20 20 20 2C 43 4D 4F 56 45 |... ,CMOVE| 00000610: 2C 31 38 33 2C 43 00 2D 0E FA 00 83 20 20 20 20 |,183,C.-.... | 00000620: 20 20 20 2C 41 44 44 23 2C 2D 36 2C 43 00 44 0E | ,ADD#,-6,C.D.| 00000630: 04 01 83 20 20 20 20 20 20 20 2C 49 46 2C 43 2C |... ,IF,C,| 00000640: 45 58 49 54 00 5E 0E 0E 01 83 20 20 20 20 20 20 |EXIT.^.... | 00000650: 20 2C 4D 4F 56 45 23 2C 43 2C 43 50 54 52 00 78 | ,MOVE#,C,CPTR.x| 00000660: 0E 10 01 83 20 20 20 20 20 20 20 2C 4D 4F 56 45 |.... ,MOVE| 00000670: 23 2C 41 2C 41 50 54 52 00 98 0E 12 01 83 20 20 |#,A,APTR...... | 00000680: 20 20 20 20 20 2C 4D 4F 56 45 23 2C 35 36 35 38 | ,MOVE#,5658| 00000690: 37 2C 54 4F 44 50 54 52 00 AF 0E 16 01 83 20 20 |7,TODPTR...... | 000006A0: 20 20 20 20 20 2C 4D 4F 56 45 23 2C 33 2C 49 00 | ,MOVE#,3,I.| 000006B0: CC 0E 18 01 83 20 4C 4F 4F 50 31 2C 43 4D 4F 56 |..... LOOP1,CMOV| 000006C0: 45 28 29 2C 31 38 37 2C 43 50 54 52 00 E2 0E 1D |E(),187,CPTR....| 000006D0: 01 83 20 20 20 20 20 20 20 2C 4D 4F 56 45 2C 43 |.. ,MOVE,C| 000006E0: 2C 41 00 FD 0E 22 01 83 20 20 20 20 20 20 20 2C |,A...".. ,| 000006F0: 47 4F 53 55 42 2C 41 3D 31 36 2A 41 2C 00 15 0F |GOSUB,A=16*A,...| 00000700: 27 01 83 20 20 20 20 20 20 20 2C 41 44 44 23 2C |'.. ,ADD#,| 00000710: 31 2C 31 38 37 00 33 0F 2C 01 83 20 20 20 20 20 |1,187.3.,.. | 00000720: 20 20 2C 43 4D 4F 56 45 28 29 2C 31 38 37 2C 43 | ,CMOVE(),187,C| 00000730: 50 54 52 00 4B 0F 31 01 83 20 20 20 20 20 20 20 |PTR.K.1.. | 00000740: 2C 41 44 44 23 2C 2D 34 38 2C 43 00 60 0F 36 01 |,ADD#,-48,C.`.6.| 00000750: 83 20 20 20 20 20 20 20 2C 41 44 44 2C 43 2C 41 |. ,ADD,C,A| 00000760: 00 81 0F 40 01 83 20 20 20 20 20 20 20 2C 43 4D |...@.. ,CM| 00000770: 4F 56 45 28 29 2C 41 50 54 52 2C 54 4F 44 50 54 |OVE(),APTR,TODPT| 00000780: 52 00 98 0F 4A 01 83 20 20 20 20 20 20 20 2C 4D |R...J.. ,M| 00000790: 4F 56 45 23 2C 30 2C 43 00 B0 0F 54 01 83 20 20 |OVE#,0,C...T.. | 000007A0: 20 20 20 20 20 2C 41 44 44 23 2C 31 2C 31 38 37 | ,ADD#,1,187| 000007B0: 00 CC 0F 5E 01 83 20 20 20 20 20 20 20 2C 41 44 |...^.. ,AD| 000007C0: 44 23 2C 2D 31 2C 54 4F 44 50 54 52 00 E3 0F 68 |D#,-1,TODPTR...h| 000007D0: 01 83 20 20 20 20 20 20 20 2C 41 44 44 23 2C 2D |.. ,ADD#,-| 000007E0: 31 2C 49 00 FB 0F 72 01 83 20 20 20 20 20 20 20 |1,I...r.. | 000007F0: 2C 49 46 2C 49 2C 4C 4F 4F 50 31 00 17 10 77 01 |,IF,I,LOOP1...w.| 00000800: 83 20 20 20 20 20 20 20 2C 43 4D 4F 56 45 23 2C |. ,CMOVE#,| 00000810: 30 2C 35 36 35 38 34 00 32 10 79 01 83 20 20 20 |0,56584.2.y.. | 00000820: 20 20 20 20 2C 43 4D 4F 56 45 2C 35 36 35 38 34 | ,CMOVE,56584| 00000830: 2C 43 00 4A 10 7C 01 83 20 20 20 20 20 20 20 2C |,C.J.|.. ,| 00000840: 47 4F 53 55 42 2C 53 45 49 2C 00 68 10 86 01 83 |GOSUB,SEI,.h....| 00000850: 20 20 20 20 20 20 20 2C 4D 4F 56 45 2C 37 38 38 | ,MOVE,788| 00000860: 2C 43 4F 4E 54 49 52 51 00 87 10 90 01 83 20 20 |,CONTIRQ...... | 00000870: 20 20 20 20 20 2C 4D 4F 56 45 23 2C 49 52 51 52 | ,MOVE#,IRQR| 00000880: 4F 55 54 2C 37 38 38 00 9F 10 9A 01 83 20 20 20 |OUT,788...... | 00000890: 20 20 20 20 2C 47 4F 53 55 42 2C 43 4C 49 2C 00 | ,GOSUB,CLI,.| 000008A0: B3 10 A4 01 83 20 45 58 49 54 2C 52 45 54 55 52 |..... EXIT,RETUR| 000008B0: 4E 2C 2C 00 B9 10 EA 01 8F 00 CE 10 F4 01 83 20 |N,,............ | 000008C0: 41 3D 31 36 2A 41 2C 41 44 44 2C 41 2C 41 00 E3 |A=16*A,ADD,A,A..| 000008D0: 10 FE 01 83 20 20 20 20 20 20 20 2C 41 44 44 2C |.... ,ADD,| 000008E0: 41 2C 41 00 F8 10 08 02 83 20 20 20 20 20 20 20 |A,A...... | 000008F0: 2C 41 44 44 2C 41 2C 41 00 0D 11 12 02 83 20 20 |,ADD,A,A...... | 00000900: 20 20 20 20 20 2C 41 44 44 2C 41 2C 41 00 23 11 | ,ADD,A,A.#.| 00000910: 1C 02 83 20 20 20 20 20 20 20 2C 52 45 54 55 52 |... ,RETUR| 00000920: 4E 2C 2C 00 29 11 26 02 8F 00 3F 11 30 02 83 20 |N,,.).&...?.0.. | 00000930: 53 45 49 2C 57 4F 52 44 2C 32 34 36 39 36 2C 00 |SEI,WORD,24696,.| 00000940: 55 11 3A 02 83 20 43 4C 49 2C 57 4F 52 44 2C 32 |U.:.. CLI,WORD,2| 00000950: 34 36 36 34 2C 00 5B 11 4E 02 8F 00 73 11 58 02 |4664,.[.N...s.X.| 00000960: 83 20 49 52 51 52 4F 55 54 2C 4D 4F 56 45 23 2C |. IRQROUT,MOVE#,| 00000970: 30 2C 43 00 8E 11 62 02 83 20 20 20 20 20 20 20 |0,C...b.. | 00000980: 2C 43 4D 4F 56 45 2C 35 36 35 38 37 2C 43 00 A9 |,CMOVE,56587,C..| 00000990: 11 6C 02 83 20 20 20 20 20 20 20 2C 47 4F 53 55 |.l.. ,GOSU| 000009A0: 42 2C 54 4F 53 43 52 4E 2C 00 C4 11 76 02 83 20 |B,TOSCRN,...v.. | 000009B0: 20 20 20 20 20 20 2C 4D 4F 56 45 2C 32 34 35 2C | ,MOVE,245,| 000009C0: 31 30 35 38 00 DF 11 80 02 83 20 20 20 20 20 20 |1058...... | 000009D0: 20 2C 43 4D 4F 56 45 2C 35 36 35 38 36 2C 43 00 | ,CMOVE,56586,C.| 000009E0: FA 11 8A 02 83 20 20 20 20 20 20 20 2C 47 4F 53 |..... ,GOS| 000009F0: 55 42 2C 54 4F 53 43 52 4E 2C 00 15 12 94 02 83 |UB,TOSCRN,......| 00000A00: 20 20 20 20 20 20 20 2C 4D 4F 56 45 2C 32 34 35 | ,MOVE,245| 00000A10: 2C 31 30 36 30 00 30 12 9E 02 83 20 20 20 20 20 |,1060.0.... | 00000A20: 20 20 2C 43 4D 4F 56 45 2C 35 36 35 38 35 2C 43 | ,CMOVE,56585,C| 00000A30: 00 4B 12 A8 02 83 20 20 20 20 20 20 20 2C 47 4F |.K.... ,GO| 00000A40: 53 55 42 2C 54 4F 53 43 52 4E 2C 00 66 12 B2 02 |SUB,TOSCRN,.f...| 00000A50: 83 20 20 20 20 20 20 20 2C 4D 4F 56 45 2C 32 34 |. ,MOVE,24| 00000A60: 35 2C 31 30 36 32 00 81 12 BC 02 83 20 20 20 20 |5,1062...... | 00000A70: 20 20 20 2C 43 4D 4F 56 45 2C 35 36 35 38 34 2C | ,CMOVE,56584,| 00000A80: 43 00 9E 12 C6 02 83 20 20 20 20 20 20 20 2C 47 |C...... ,G| 00000A90: 4F 54 4F 28 29 2C 43 4F 4E 54 49 52 51 2C 00 A4 |OTO(),CONTIRQ,..| 00000AA0: 12 16 03 8F 00 BA 12 20 03 83 20 54 4F 53 43 52 |....... .. TOSCR| 00000AB0: 4E 2C 4D 4F 56 45 2C 43 2C 41 00 D5 12 2A 03 83 |N,MOVE,C,A...*..| 00000AC0: 20 20 20 20 20 20 20 2C 47 4F 53 55 42 2C 41 3D | ,GOSUB,A=| 00000AD0: 31 36 2A 41 2C 00 ED 12 34 03 83 20 20 20 20 20 |16*A,...4.. | 00000AE0: 20 20 2C 4D 4F 56 45 2C 41 2C 32 34 35 00 08 13 | ,MOVE,A,245...| 00000AF0: 3E 03 83 20 20 20 20 20 20 20 2C 43 4D 4F 56 45 |>.. ,CMOVE| 00000B00: 2C 32 34 36 2C 32 34 35 00 22 13 48 03 83 20 20 |,246,245.".H.. | 00000B10: 20 20 20 20 20 2C 43 4D 4F 56 45 23 2C 30 2C 32 | ,CMOVE#,0,2| 00000B20: 34 36 00 3A 13 52 03 83 20 20 20 20 20 20 20 2C |46.:.R.. ,| 00000B30: 4D 4F 56 45 2C 32 34 35 2C 41 00 55 13 5C 03 83 |MOVE,245,A.U.\..| 00000B40: 20 20 20 20 20 20 20 2C 47 4F 53 55 42 2C 41 3D | ,GOSUB,A=| 00000B50: 31 36 2A 41 2C 00 6A 13 66 03 83 20 20 20 20 20 |16*A,.j.f.. | 00000B60: 20 20 2C 53 55 42 2C 41 2C 43 00 83 13 70 03 83 | ,SUB,A,C...p..| 00000B70: 20 20 20 20 20 20 20 2C 43 4D 4F 56 45 2C 43 2C | ,CMOVE,C,| 00000B80: 32 34 36 00 9F 13 7A 03 83 20 20 20 20 20 20 20 |246...z.. | 00000B90: 2C 41 44 44 23 2C 31 32 33 33 36 2C 32 34 35 00 |,ADD#,12336,245.| 00000BA0: B5 13 84 03 83 20 20 20 20 20 20 20 2C 52 45 54 |..... ,RET| 00000BB0: 55 52 4E 2C 2C 00 BD 13 E8 03 83 20 5F 00 00 00 |URN,,...... _...|
..H...M.200:D.50:E.14:Z..1:VN.Z:."..* MI
CROCOMP V1.0 *":.".CODE AREA: ";...... L
$(M),LV(M),C$(M),C(M),O$(M),P$(M),V$(D),
W$(E),LE(E),LX(E),X(E,30).G....N.0.E:.W$
(N),LE(N),LX(N):.I.0.LX(N):.X(N,I):.I,N.
....VN.VN.1:.V$(VN):..(V$(VN).."*=").30:
. SA,VB,L$.>.#.Z.Z.1:L$(Z).L$:.C$(Z),O$(
Z),P$(Z):ZM.Z:.L$:..(L$.."_").35:AD.SA..
.2..SA;"-";:.Z.0.ZM:LV(Z).AD:.N.0.E:.C$(
Z).W$(N).C(Z).N:AD.AD.LE(N).H.7..N,Z:CE.
AD:.CE:AD.SA:.Z.0.ZM:C.C(Z):V$.O$(Z):.80
:O(0).V:V$.P$(Z)...<..80:O(2).V:.N.0.LX(
C):X.X(C,N):.X..0..AD,X:AD.AD.1:.N,Z:..A
.A..X.4.,,,75:J..(O(X.2).256):.AD,J:.X.1
..AD,O(X.2).J.256.T.F.AD.AD.1:.N,Z:....K
.I.O(X.2).(X.1):.AD.1,I.256:.AD,I..(I.25
6).256:AD.AD.2:.N,Z:....P.V.E(V$):V.V.65
536.(V.0):.I.0.VN.1:V.V.(V$.V$(I)).(2.I.
VB.CE.(VB.0)):....U..I.0.ZM:V.V.LV(I).(V
$.L$(I)):.:..T.Z..ADD,19,12,24,173,-4,10
9,-2,141,-2,173,-3,109,-1,141,-1,SUB,19,
12,56,173,-2...[..237,-4,141,-2,173,-1,2
37,-3,141,-1,MOVE,12,7,173,-4,141,-2,173
,-3,141,-1...\..GOTO,3,1,76,-4,IF,11,7,1
73,-4,13,-3,240,3,76,-2,MOVE#,10,7,169,-
7,141,-2.A.]..169,-8,141,-1,CMOVE,6,3,17
3,-4,141,-2,GOSUB,3,1,32,-4,RETURN,1,0,9
6,SETREGS...^..9,5,173,-4,174,-2,172,-1,
CMOVE#,5,3,169,-7,141,-2,ADD#,17,12,24,1
69,-7,109..._..-2,141,-2,169,-8,109,-1,1
41,-1,GOTO(),3,1,108,-4,CMOVE(),26,21,17
3,-4,133,34.2.`..173,-3,133,35,173,-2,13
3,36,173,-1,133,37,160,0,177,34,145,36,W
ORD,2,0,-4.<.D.. UHR.R.N.. A,C,I,APTR,CP
TR.G.X.. TODPTR,CONTIRQ.X.... *=,49152,0
...... ,GOSUB,44797,...H.. ,
CMOVE#,128,56590.L.R.. ,CMOVE#,0,5
6591...... ,GOSUB,57943,......
,MOVE#,0,C...... ,CMOVE,183,C.-
.... ,ADD#,-6,C.D.... ,IF,C,
EXIT.^.... ,MOVE#,C,CPTR.X....
,MOVE#,A,APTR...... ,MOVE#,5658
7,TODPTR...... ,MOVE#,3,I.L.... LO
OP1,CMOVE(),187,CPTR...... ,MOVE,C
,A...".. ,GOSUB,A=16*A,...'..
,ADD#,1,187.3.,.. ,CMOVE(),187,C
PTR.K.1.. ,ADD#,-48,C.`.6..
,ADD,C,A...@.. ,CMOVE(),APTR,TODPT
R...J.. ,MOVE#,0,C...T.. ,AD
D#,1,187.L.^.. ,ADD#,-1,TODPTR...H
.. ,ADD#,-1,I...R.. ,IF,I,LO
OP1...W.. ,CMOVE#,0,56584.2.Y..
,CMOVE,56584,C.J.|.. ,GOSUB,SE
I,.H.... ,MOVE,788,CONTIRQ......
,MOVE#,IRQROUT,788...... ,GOS
UB,CLI,...... EXIT,RETURN,,.......N....
A=16*A,ADD,A,A...... ,ADD,A,A.....
. ,ADD,A,A...... ,ADD,A,A.#.
... ,RETURN,,.).&...?.0.. SEI,WORD
,24696,.U.:.. CLI,WORD,24664,.[.N...S.X.
. IRQROUT,MOVE#,0,C...B.. ,CMOVE,5
6587,C...L.. ,GOSUB,TOSCRN,.D.V..
,MOVE,245,1058...... ,CMOVE,
56586,C...... ,GOSUB,TOSCRN,......
,MOVE,245,1060.0.... ,CMOVE
,56585,C.K.... ,GOSUB,TOSCRN,.F...
. ,MOVE,245,1062...... ,CMOV
E,56584,C...F.. ,GOTO(),CONTIRQ,..
....... .. TOSCRN,MOVE,C,A.U.*.. ,
GOSUB,A=16*A,...4.. ,MOVE,A,245...
>.. ,CMOVE,246,245.".H.. ,CM
OVE#,0,246.:.R.. ,MOVE,245,A.U.\..
,GOSUB,A=16*A,.J.F.. ,SUB,A
,C...P.. ,CMOVE,C,246...Z..
,ADD#,12336,245...... ,RETURN,,...
... _...
> CLICK IMAGE PREVIEW FOR FULL MODAL