T.BITS
FILE INFORMATION
FILENAME(S): T.BITS
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 18:12:07
APPEARS ON: 1 disk(s)
FILE HASH
3610ba01023242494b32cc8d744a4b50fa8b0af499084267196eec502c35d6d9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 64 S 1 | T.BITS | PRG | Sailor, Ganheden | 23 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 5A 45 52 4F 0D 20 20 C2 20 C9 20 |..^U:ZERO. . . | 00000010: D4 20 D3 20 3A 20 20 C1 20 CC 49 54 54 4C 45 20 |. . : . .ITTLE | 00000020: D4 CF C4 20 C4 49 53 50 4C 41 59 45 52 0D 0D 20 |... .ISPLAYER.. | 00000030: 20 20 20 20 20 20 20 20 20 42 59 20 D3 43 4F 54 | BY .COT| 00000040: 54 20 C5 2E 20 D2 45 53 48 0D 0D 20 20 20 20 C6 |T .. .ESH.. .| 00000050: 45 4E 44 45 52 20 53 41 49 44 20 54 4F 20 4D 45 |ENDER SAID TO ME| 00000060: 3A 20 22 C8 45 59 2C 20 D3 43 4F 54 54 2C 0D 48 |: ".EY, .COTT,.H| 00000070: 4F 57 20 41 42 4F 55 54 20 41 4E 20 CD CC 20 50 |OW ABOUT AN .. P| 00000080: 52 4F 47 52 41 4D 20 54 48 41 54 2E 2E 2E 22 0D |ROGRAM THAT...".| 00000090: D7 48 41 54 20 48 45 20 48 41 44 20 49 4E 20 4D |.HAT HE HAD IN M| 000000A0: 49 4E 44 20 57 41 53 20 41 20 52 4F 55 54 49 4E |IND WAS A ROUTIN| 000000B0: 45 0D 54 48 41 54 20 57 4F 55 4C 44 20 44 49 53 |E.THAT WOULD DIS| 000000C0: 50 4C 41 59 20 45 4C 41 50 53 45 44 20 54 49 4D |PLAY ELAPSED TIM| 000000D0: 45 0D 41 4E 59 57 48 45 52 45 20 4F 4E 20 54 48 |E.ANYWHERE ON TH| 000000E0: 45 20 53 43 52 45 45 4E 2E 20 20 C8 45 20 57 41 |E SCREEN. .E WA| 000000F0: 4E 54 45 44 20 54 4F 0D 55 53 45 20 54 48 49 53 |NTED TO.USE THIS| 00000100: 20 CD CC 20 43 4F 44 45 20 49 4E 20 54 48 45 20 | .. CODE IN THE | 00000110: 50 52 4F 47 52 41 4D 20 22 D5 2E D3 2E 0D C3 49 |PROGRAM "......I| 00000120: 54 49 45 53 22 20 4F 4E 20 D3 49 44 45 20 D4 57 |TIES" ON .IDE .W| 00000130: 4F 2E 20 20 C8 45 20 57 41 53 20 44 4F 49 4E 47 |O. .E WAS DOING| 00000140: 0D 54 48 49 53 20 49 4E 20 C2 C1 D3 C9 C3 20 57 |.THIS IN ..... W| 00000150: 48 49 4C 45 20 48 45 20 57 41 53 20 57 41 49 54 |HILE HE WAS WAIT| 00000160: 49 4E 47 0D 46 4F 52 20 4B 45 59 50 52 45 53 53 |ING.FOR KEYPRESS| 00000170: 45 53 20 46 52 4F 4D 20 54 48 45 20 50 4C 41 59 |ES FROM THE PLAY| 00000180: 45 52 2E 0D D5 50 44 41 54 49 4E 47 20 54 48 45 |ER...PDATING THE| 00000190: 20 45 4C 41 50 53 45 44 20 54 49 4D 45 20 53 4C | ELAPSED TIME SL| 000001A0: 4F 57 45 44 20 44 4F 57 4E 0D 54 48 45 20 52 45 |OWED DOWN.THE RE| 000001B0: 53 50 4F 4E 53 45 20 54 4F 20 4B 45 59 50 52 45 |SPONSE TO KEYPRE| 000001C0: 53 53 45 53 2E 0D 0D 20 20 20 20 C9 20 53 41 49 |SSES... . SAI| 000001D0: 44 2C 20 22 C7 49 4D 4D 45 20 41 20 4D 49 4E 55 |D, ".IMME A MINU| 000001E0: 54 45 2E 2E 2E 22 0D 0D 0D 0D 20 20 20 20 D7 48 |TE...".... .H| 000001F0: 41 54 20 C9 20 43 41 4D 45 20 55 50 20 57 49 54 |AT . CAME UP WIT| 00000200: 48 20 57 41 53 20 54 48 49 53 0D 45 41 53 59 2D |H WAS THIS.EASY-| 00000210: 54 4F 2D 55 53 45 20 52 4F 55 54 49 4E 45 2E 20 |TO-USE ROUTINE. | 00000220: 20 C1 4C 4C 20 59 4F 55 20 48 41 56 45 20 54 4F | .LL YOU HAVE TO| 00000230: 0D 44 4F 20 49 53 20 4C 4F 41 44 20 54 48 45 20 |.DO IS LOAD THE | 00000240: CD CC 20 28 4C 49 4E 45 20 33 30 20 49 4E 20 54 |.. (LINE 30 IN T| 00000250: 48 45 0D C2 C9 D4 D3 20 D2 55 4E 20 C9 54 20 46 |HE..... .UN .T F| 00000260: 49 4C 45 29 20 41 4E 44 20 55 53 45 20 54 48 49 |ILE) AND USE THI| 00000270: 53 20 53 59 4E 54 41 58 0D 54 4F 20 49 4E 53 54 |S SYNTAX.TO INST| 00000280: 41 4C 4C 20 49 54 20 28 4C 49 4E 45 20 32 36 30 |ALL IT (LINE 260| 00000290: 29 2E 0D 0D 20 20 D3 D9 D3 34 39 31 35 32 2C 43 |)... ...49152,C| 000002A0: 4F 4C 55 4D 4E 2C 52 4F 57 2C 43 4F 4C 4F 52 2C |OLUMN,ROW,COLOR,| 000002B0: 22 23 23 3A 23 23 3A 23 23 22 0D 0D 20 20 20 43 |"##:##:##".. C| 000002C0: 4F 4C 55 4D 4E 20 2D 3E 20 4C 45 46 54 2D 4D 4F |OLUMN -> LEFT-MO| 000002D0: 53 54 20 43 4F 4C 55 4D 4E 20 4E 55 4D 42 45 52 |ST COLUMN NUMBER| 000002E0: 0D 20 20 20 52 4F 57 20 20 20 20 2D 3E 20 41 4E |. ROW -> AN| 000002F0: 59 20 50 4F 53 49 54 49 56 45 20 4E 55 4D 42 45 |Y POSITIVE NUMBE| 00000300: 52 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R. | 00000310: 4C 45 53 53 20 54 48 41 4E 20 32 35 0D 20 20 20 |LESS THAN 25. | 00000320: 43 4F 4C 4F 52 20 20 2D 3E 20 41 4E 59 20 4E 55 |COLOR -> ANY NU| 00000330: 4D 42 45 52 20 46 52 4F 4D 20 30 20 54 4F 20 31 |MBER FROM 0 TO 1| 00000340: 35 0D 0D 20 20 20 22 23 23 3A 23 23 3A 23 23 22 |5.. "##:##:##"| 00000350: 20 2D 2D 3E 20 54 48 49 53 20 49 53 20 54 48 45 | --> THIS IS THE| 00000360: 20 22 44 49 53 50 4C 41 59 0D 20 20 20 20 20 4D | "DISPLAY. M| 00000370: 41 53 4B 22 2C 20 54 48 49 53 20 49 53 20 53 49 |ASK", THIS IS SI| 00000380: 4D 49 4C 41 52 20 54 4F 20 41 0D 20 20 20 20 20 |MILAR TO A. | 00000390: D0 D2 C9 CE D4 20 D5 D3 C9 CE C7 20 43 4F 4D 4D |..... ..... COMM| 000003A0: 41 4E 44 2E 0D 0D 0D 20 20 20 20 D4 48 45 20 4D |AND.... .HE M| 000003B0: 41 58 49 4D 55 4D 20 4E 55 4D 42 45 52 20 4F 46 |AXIMUM NUMBER OF| 000003C0: 20 43 48 41 52 41 43 54 45 52 53 0D 41 4C 4C 4F | CHARACTERS.ALLO| 000003D0: 57 45 44 20 49 4E 20 54 48 45 20 4D 41 53 4B 20 |WED IN THE MASK | 000003E0: 53 54 52 49 4E 47 20 49 53 20 45 49 47 48 54 2E |STRING IS EIGHT.| 000003F0: 0D 0D 20 22 23 23 3A 23 23 3A 23 23 22 20 2D 3E |.. "##:##:##" ->| 00000400: 20 C4 49 53 50 4C 41 59 20 48 52 53 3A 4D 49 4E | .ISPLAY HRS:MIN| 00000410: 53 3A 53 45 43 53 0D 20 20 20 20 22 23 23 3A 23 |S:SECS. "##:#| 00000420: 23 22 20 2D 3E 20 C4 49 53 50 4C 41 59 20 4D 49 |#" -> .ISPLAY MI| 00000430: 4E 53 3A 53 45 43 53 0D 20 20 20 20 20 20 20 22 |NS:SECS. "| 00000440: 23 23 22 20 2D 3E 20 C4 49 53 50 4C 41 59 20 53 |##" -> .ISPLAY S| 00000450: 45 43 53 20 4F 4E 4C 59 0D 0D 20 20 20 20 CE 4F |ECS ONLY.. .O| 00000460: 54 45 3A 20 22 23 3A 23 23 3A 23 23 22 2C 20 22 |TE: "#:##:##", "| 00000470: 23 3A 23 23 22 2C 20 41 4E 44 20 22 23 22 0D 41 |#:##", AND "#".A| 00000480: 52 45 20 41 4C 53 4F 20 41 4C 4C 4F 57 45 44 2E |RE ALSO ALLOWED.| 00000490: 20 20 C1 4E 59 54 48 49 4E 47 20 43 41 4E 20 42 | .NYTHING CAN B| 000004A0: 45 0D 49 4E 53 49 44 45 20 54 48 45 20 53 54 52 |E.INSIDE THE STR| 000004B0: 49 4E 47 20 28 53 45 45 20 4C 49 4E 45 20 32 35 |ING (SEE LINE 25| 000004C0: 30 29 2E 0D D4 48 45 20 CD CC 20 43 4F 44 45 20 |0)...HE .. CODE | 000004D0: 44 4F 45 53 4E 27 54 20 43 41 52 45 20 41 42 4F |DOESN'T CARE ABO| 000004E0: 55 54 20 54 48 45 0D 43 4F 4E 54 45 4E 54 53 20 |UT THE.CONTENTS | 000004F0: 4F 46 20 54 48 45 20 53 54 52 49 4E 47 2C 20 49 |OF THE STRING, I| 00000500: 54 20 4F 4E 4C 59 20 43 41 52 45 53 0D 41 42 4F |T ONLY CARES.ABO| 00000510: 55 54 20 54 48 45 20 CC C5 CE C7 D4 C8 20 4F 46 |UT THE ...... OF| 00000520: 20 54 48 45 20 53 54 52 49 4E 47 2E 0D 0D 20 20 | THE STRING... | 00000530: 20 20 D4 48 45 20 D2 55 4E 20 C9 54 20 46 4F 52 | .HE .UN .T FOR| 00000540: 20 C2 C9 D4 D3 20 44 45 4D 4F 4E 53 54 52 41 54 | .... DEMONSTRAT| 00000550: 45 53 0D 48 4F 57 20 59 4F 55 20 4D 49 47 48 54 |ES.HOW YOU MIGHT| 00000560: 20 48 41 4E 44 4C 45 20 54 48 45 20 22 50 52 49 | HANDLE THE "PRI| 00000570: 4E 54 0D 55 53 49 4E 47 22 20 41 53 50 45 43 54 |NT.USING" ASPECT| 00000580: 20 4F 46 20 D4 CF C4 2E CF 20 49 46 20 59 4F 55 | OF ..... IF YOU| 00000590: 20 57 41 4E 54 0D 54 48 45 20 4E 55 4D 42 45 52 | WANT.THE NUMBER| 000005A0: 20 4F 46 20 44 49 47 49 54 53 20 54 4F 20 56 41 | OF DIGITS TO VA| 000005B0: 52 59 2E 20 20 CE 4F 54 45 0D 54 48 41 54 20 59 |RY. .OTE.THAT Y| 000005C0: 4F 55 20 48 41 56 45 20 54 4F 20 41 4C 4C 4F 57 |OU HAVE TO ALLOW| 000005D0: 20 46 4F 52 20 54 48 45 20 43 4F 4C 4F 4E 2E 0D | FOR THE COLON..| 000005E0: 0D 20 20 20 20 D4 4F 20 44 49 53 41 42 4C 45 20 |. .O DISABLE | 000005F0: 54 48 45 20 43 4C 4F 43 4B 3A 20 D3 D9 D3 34 39 |THE CLOCK: ...49| 00000600: 31 35 35 2E 0D C9 46 20 41 20 53 45 43 4F 4E 44 |155...F A SECOND| 00000610: 20 D3 D9 D3 34 39 31 35 32 20 49 53 20 41 54 54 | ...49152 IS ATT| 00000620: 45 4D 50 54 45 44 0D 42 45 46 4F 52 45 20 41 20 |EMPTED.BEFORE A | 00000630: D3 D9 D3 34 39 31 35 35 20 57 41 53 20 44 4F 4E |...49155 WAS DON| 00000640: 45 2C 20 54 48 45 0D 53 45 43 4F 4E 44 20 D3 D9 |E, THE.SECOND ..| 00000650: D3 34 39 31 35 32 20 57 49 4C 4C 20 44 4F 20 4E |.49152 WILL DO N| 00000660: 4F 54 48 49 4E 47 2E 20 20 D4 48 45 0D D3 D9 D3 |OTHING. .HE....| 00000670: 34 39 31 35 35 20 CD CC 20 52 4F 55 54 49 4E 45 |49155 .. ROUTINE| 00000680: 20 43 48 45 43 4B 53 20 49 46 20 41 0D D3 D9 D3 | CHECKS IF A....| 00000690: 34 39 31 35 35 20 48 41 53 20 42 45 45 4E 20 44 |49155 HAS BEEN D| 000006A0: 4F 4E 45 20 46 49 52 53 54 2E 20 20 C9 46 20 41 |ONE FIRST. .F A| 000006B0: 0D D3 D9 D3 34 39 31 35 32 20 57 41 53 20 44 4F |....49152 WAS DO| 000006C0: 4E 45 20 46 49 52 53 54 2C 20 54 48 45 4E 20 54 |NE FIRST, THEN T| 000006D0: 48 45 0D D3 D9 D3 34 39 31 35 35 20 57 49 4C 4C |HE....49155 WILL| 000006E0: 20 44 4F 20 4E 4F 54 48 49 4E 47 2E 0D 0D 20 20 | DO NOTHING... | 000006F0: 20 20 C2 55 54 20 57 48 41 54 20 49 46 20 59 4F | .UT WHAT IF YO| 00000700: 55 20 57 41 4E 54 20 54 4F 20 53 54 4F 50 0D 43 |U WANT TO STOP.C| 00000710: 4F 55 4E 54 49 4E 47 20 57 48 45 4E 20 54 48 45 |OUNTING WHEN THE| 00000720: 20 43 4C 4F 43 4B 20 52 45 41 43 48 45 53 2C 20 | CLOCK REACHES, | 00000730: 53 41 59 2C 0D 46 49 56 45 20 4D 49 4E 55 54 45 |SAY,.FIVE MINUTE| 00000740: 53 3F 20 20 C5 41 53 59 2E 20 20 D4 48 45 20 46 |S? .ASY. .HE F| 00000750: 4F 4C 4C 4F 57 49 4E 47 0D 42 59 54 45 53 20 48 |OLLOWING.BYTES H| 00000760: 4F 4C 44 20 54 48 45 20 D4 CF C4 20 49 4E 46 4F |OLD THE ... INFO| 00000770: 3A 0D 0D 20 20 20 20 20 34 39 31 35 38 20 20 20 |:.. 49158 | 00000780: 31 30 54 48 53 20 4F 46 20 41 20 53 45 43 4F 4E |10THS OF A SECON| 00000790: 44 0D 20 20 20 20 20 34 39 31 35 39 20 20 20 53 |D. 49159 S| 000007A0: 45 43 4F 4E 44 53 0D 20 20 20 20 20 34 39 31 36 |ECONDS. 4916| 000007B0: 30 20 20 20 4D 49 4E 55 54 45 53 0D 20 20 20 20 |0 MINUTES. | 000007C0: 20 34 39 31 36 31 20 20 20 48 4F 55 52 53 0D 0D | 49161 HOURS..| 000007D0: 20 20 20 20 C9 54 27 53 20 41 20 4C 49 54 54 4C | .T'S A LITTL| 000007E0: 45 20 54 52 49 43 4B 59 20 42 45 43 41 55 53 45 |E TRICKY BECAUSE| 000007F0: 20 54 48 45 0D 44 49 47 49 54 53 20 41 52 45 20 | THE.DIGITS ARE | 00000800: 53 54 4F 52 45 44 20 49 4E 20 54 48 45 20 4E 59 |STORED IN THE NY| 00000810: 42 42 4C 45 53 20 4F 46 0D 54 48 45 53 45 20 42 |BBLES OF.THESE B| 00000820: 59 54 45 53 2E 20 20 D4 4F 20 43 48 45 43 4B 20 |YTES. .O CHECK | 00000830: 49 46 20 54 48 45 20 43 4C 4F 43 4B 0D 48 41 53 |IF THE CLOCK.HAS| 00000840: 20 52 45 41 43 48 45 44 20 30 38 20 53 45 43 4F | REACHED 08 SECO| 00000850: 4E 44 53 2C 20 44 4F 20 54 48 49 53 3A 0D 0D 20 |NDS, DO THIS:.. | 00000860: 20 20 20 C9 C6 20 D0 C5 C5 CB 28 34 39 31 35 39 | .. ....(49159| 00000870: 29 20 3D 20 38 20 D4 C8 C5 CE 2E 2E 2E 0D 0D C2 |) = 8 ..........| 00000880: 55 54 20 49 46 20 59 4F 55 20 57 41 4E 54 20 54 |UT IF YOU WANT T| 00000890: 4F 20 43 48 45 43 4B 20 49 46 20 54 48 45 20 43 |O CHECK IF THE C| 000008A0: 4C 4F 43 4B 0D 48 41 53 20 52 45 41 43 48 45 44 |LOCK.HAS REACHED| 000008B0: 20 32 34 2C 20 46 4F 52 20 45 58 41 4D 50 4C 45 | 24, FOR EXAMPLE| 000008C0: 2C 20 59 4F 55 20 4E 45 45 44 0D 54 4F 20 52 45 |, YOU NEED.TO RE| 000008D0: 41 4C 49 5A 45 20 54 48 41 54 20 54 48 45 20 32 |ALIZE THAT THE 2| 000008E0: 20 49 4E 20 32 34 20 49 53 20 46 4F 55 4E 44 0D | IN 24 IS FOUND.| 000008F0: 49 4E 20 54 48 45 20 48 49 47 48 20 4E 59 42 42 |IN THE HIGH NYBB| 00000900: 4C 45 20 41 4E 44 20 4E 59 42 42 4C 45 53 20 41 |LE AND NYBBLES A| 00000910: 52 45 0D 48 45 58 41 44 45 43 49 4D 41 4C 2D 42 |RE.HEXADECIMAL-B| 00000920: 41 53 45 44 2E 20 20 D3 4F 20 4D 55 4C 54 49 50 |ASED. .O MULTIP| 00000930: 4C 59 20 54 48 45 20 32 0D 54 49 4D 45 53 20 31 |LY THE 2.TIMES 1| 00000940: 36 20 28 41 4E 44 20 47 45 54 20 33 32 29 20 41 |6 (AND GET 32) A| 00000950: 4E 44 20 41 44 44 20 54 48 45 20 4C 4F 57 0D 4E |ND ADD THE LOW.N| 00000960: 59 42 42 4C 45 20 28 34 29 2E 20 20 D4 48 45 20 |YBBLE (4). .HE | 00000970: 43 4F 44 45 20 46 4F 52 20 43 48 45 43 4B 49 4E |CODE FOR CHECKIN| 00000980: 47 0D 46 4F 52 20 32 34 20 53 45 43 4F 4E 44 53 |G.FOR 24 SECONDS| 00000990: 20 49 53 20 54 48 45 52 45 46 4F 52 45 3A 0D 0D | IS THEREFORE:..| 000009A0: 20 20 20 20 C9 C6 20 D0 C5 C5 CB 28 34 39 31 35 | .. ....(4915| 000009B0: 39 29 20 3D 20 33 36 20 D4 C8 C5 CE 2E 2E 2E 0D |9) = 36 ........| 000009C0: 0D 20 20 20 20 D4 48 45 20 48 4F 55 52 53 20 41 |. .HE HOURS A| 000009D0: 4E 44 20 4D 49 4E 55 54 45 53 20 57 4F 52 4B 20 |ND MINUTES WORK | 000009E0: 54 48 45 0D 53 41 4D 45 20 57 41 59 2E 20 20 CD |THE.SAME WAY. .| 000009F0: 55 4C 54 49 50 4C 59 20 54 48 45 20 54 45 4E 53 |ULTIPLY THE TENS| 00000A00: 20 44 49 47 49 54 20 42 59 0D 31 36 20 41 4E 44 | DIGIT BY.16 AND| 00000A10: 20 41 44 44 20 54 48 45 20 4F 4E 45 53 20 44 49 | ADD THE ONES DI| 00000A20: 47 49 54 20 54 4F 20 46 49 4E 44 20 54 48 45 0D |GIT TO FIND THE.| 00000A30: 56 41 4C 55 45 20 59 4F 55 20 53 48 4F 55 4C 44 |VALUE YOU SHOULD| 00000A40: 20 47 45 54 20 57 48 45 4E 20 59 4F 55 20 D0 C5 | GET WHEN YOU ..| 00000A50: C5 CB 0D 54 48 45 20 42 59 54 45 2E 0D 0D 20 20 |...THE BYTE... | 00000A60: 20 20 D4 52 59 20 4F 55 54 20 54 48 49 53 20 48 | .RY OUT THIS H| 00000A70: 41 4E 44 59 20 52 4F 55 54 49 4E 45 20 54 48 45 |ANDY ROUTINE THE| 00000A80: 0D 4E 45 58 54 20 54 49 4D 45 20 59 4F 55 20 57 |.NEXT TIME YOU W| 00000A90: 41 4E 54 20 54 4F 20 48 41 56 45 20 41 20 54 49 |ANT TO HAVE A TI| 00000AA0: 4D 45 52 20 49 4E 0D 59 4F 55 52 20 50 52 4F 47 |MER IN.YOUR PROG| 00000AB0: 52 41 4D 20 54 48 41 54 20 49 53 4E 27 54 20 41 |RAM THAT ISN'T A| 00000AC0: 46 46 45 43 54 45 44 20 42 59 0D C2 C1 D3 C9 C3 |FFECTED BY......| 00000AD0: 20 43 4F 44 45 2C 20 4F 52 20 4E 45 45 44 53 20 | CODE, OR NEEDS | 00000AE0: 54 4F 20 42 45 20 55 50 44 41 54 45 44 20 42 59 |TO BE UPDATED BY| 00000AF0: 0D C2 C1 D3 C9 C3 2E 20 20 D4 48 45 20 46 49 52 |....... .HE FIR| 00000B00: 53 54 20 56 45 52 53 49 4F 4E 20 4F 46 20 D5 2E |ST VERSION OF ..| 00000B10: D3 2E 0D C3 C9 D4 C9 C5 D3 20 48 41 44 20 41 20 |......... HAD A | 00000B20: C2 C1 D3 C9 C3 20 43 4C 4F 43 4B 20 49 4E 20 49 |..... CLOCK IN I| 00000B30: 54 20 42 55 54 0D C6 45 4E 44 45 52 20 48 41 44 |T BUT..ENDER HAD| 00000B40: 20 54 4F 20 44 4F 20 41 20 4C 4F 54 20 4F 46 20 | TO DO A LOT OF | 00000B50: D0 C5 C5 CB 49 4E 47 20 41 4E 44 0D D0 CF CB C5 |....ING AND.....| 00000B60: 49 4E 47 20 54 4F 20 4D 4F 56 45 20 54 48 45 20 |ING TO MOVE THE | 00000B70: 43 55 52 53 4F 52 20 42 41 43 4B 20 41 4E 44 0D |CURSOR BACK AND.| 00000B80: 46 4F 52 54 48 20 42 45 54 57 45 45 4E 20 54 48 |FORTH BETWEEN TH| 00000B90: 45 20 49 4E 50 55 54 20 4C 49 4E 45 20 41 4E 44 |E INPUT LINE AND| 00000BA0: 20 54 48 45 0D 43 4C 4F 43 4B 2E 20 20 D4 CF C4 | THE.CLOCK. ...| 00000BB0: 2E CF 20 53 4F 4C 56 45 44 20 54 48 41 54 20 50 |.. SOLVED THAT P| 00000BC0: 52 4F 42 4C 45 4D 20 49 4E 0D 41 20 46 4C 41 53 |ROBLEM IN.A FLAS| 00000BD0: 48 2E 0D 0D 0D 0D 20 20 20 20 D4 48 45 20 41 53 |H..... .HE AS| 00000BE0: 53 45 4D 42 4C 59 20 53 4F 55 52 43 45 20 43 4F |SEMBLY SOURCE CO| 00000BF0: 44 45 20 46 4F 52 0D 22 54 4F 44 2E 4F 22 20 49 |DE FOR."TOD.O" I| 00000C00: 53 20 4F 4E 20 54 48 45 20 44 49 53 4B 20 49 4E |S ON THE DISK IN| 00000C10: 20 D0 C1 CC 20 46 4F 52 4D 41 54 2E 0D C9 54 27 | ... FORMAT...T'| 00000C20: 53 20 57 45 4C 4C 2D 43 4F 4D 4D 45 4E 54 45 44 |S WELL-COMMENTED| 00000C30: 20 53 4F 20 59 4F 55 20 43 41 4E 20 53 45 45 0D | SO YOU CAN SEE.| 00000C40: 45 58 41 43 54 4C 59 20 57 48 41 54 27 53 20 47 |EXACTLY WHAT'S G| 00000C50: 4F 49 4E 47 20 4F 4E 2E 20 20 D9 4F 55 20 4D 41 |OING ON. .OU MA| 00000C60: 59 0D 57 41 4E 54 20 54 4F 20 41 44 44 20 53 4F |Y.WANT TO ADD SO| 00000C70: 4D 45 20 46 45 41 54 55 52 45 53 20 54 4F 20 49 |ME FEATURES TO I| 00000C80: 54 0D 59 4F 55 52 53 45 4C 46 2E 20 20 C6 45 45 |T.YOURSELF. .EE| 00000C90: 4C 20 46 52 45 45 2E 0D 0D 20 20 20 20 20 20 20 |L FREE... | 00000CA0: 20 2A 2A 2A 2A 20 C5 4E 44 20 4F 46 20 D4 45 58 | **** .ND OF .EX| 00000CB0: 54 20 2A 2A 2A 2A 0D |T ****. |
..^U:ZERO. B I T S : A LITTLE TOD DISP
LAYER.. BY SCOTT E. RESH.. F
ENDER SAID TO ME: "HEY, SCOTT,.HOW ABOUT
AN ML PROGRAM THAT...".WHAT HE HAD IN M
IND WAS A ROUTINE.THAT WOULD DISPLAY ELA
PSED TIME.ANYWHERE ON THE SCREEN. HE WA
NTED TO.USE THIS ML CODE IN THE PROGRAM
"U.S..CITIES" ON SIDE TWO. HE WAS DOING
.THIS IN BASIC WHILE HE WAS WAITING.FOR
KEYPRESSES FROM THE PLAYER..UPDATING THE
ELAPSED TIME SLOWED DOWN.THE RESPONSE T
O KEYPRESSES... I SAID, "GIMME A MINU
TE...".... WHAT I CAME UP WITH WAS TH
IS.EASY-TO-USE ROUTINE. ALL YOU HAVE TO
.DO IS LOAD THE ML (LINE 30 IN THE.BITS
RUN IT FILE) AND USE THIS SYNTAX.TO INST
ALL IT (LINE 260)... SYS49152,COLUMN,RO
W,COLOR,"##:##:##".. COLUMN -> LEFT-MO
ST COLUMN NUMBER. ROW -> ANY POSITI
VE NUMBER. LESS THAN 25.
COLOR -> ANY NUMBER FROM 0 TO 15.. "#
#:##:##" --> THIS IS THE "DISPLAY. M
ASK", THIS IS SIMILAR TO A. PRINT US
ING COMMAND.... THE MAXIMUM NUMBER OF
CHARACTERS.ALLOWED IN THE MASK STRING I
S EIGHT... "##:##:##" -> DISPLAY HRS:MIN
S:SECS. "##:##" -> DISPLAY MINS:SECS.
"##" -> DISPLAY SECS ONLY.. NO
TE: "#:##:##", "#:##", AND "#".ARE ALSO
ALLOWED. ANYTHING CAN BE.INSIDE THE STR
ING (SEE LINE 250)..THE ML CODE DOESN'T
CARE ABOUT THE.CONTENTS OF THE STRING, I
T ONLY CARES.ABOUT THE LENGTH OF THE STR
ING... THE RUN IT FOR BITS DEMONSTRAT
ES.HOW YOU MIGHT HANDLE THE "PRINT.USING
" ASPECT OF TOD.O IF YOU WANT.THE NUMBER
OF DIGITS TO VARY. NOTE.THAT YOU HAVE
TO ALLOW FOR THE COLON... TO DISABLE
THE CLOCK: SYS49155..IF A SECOND SYS4915
2 IS ATTEMPTED.BEFORE A SYS49155 WAS DON
E, THE.SECOND SYS49152 WILL DO NOTHING.
THE.SYS49155 ML ROUTINE CHECKS IF A.SYS
49155 HAS BEEN DONE FIRST. IF A.SYS4915
2 WAS DONE FIRST, THEN THE.SYS49155 WILL
DO NOTHING... BUT WHAT IF YOU WANT T
O STOP.COUNTING WHEN THE CLOCK REACHES,
SAY,.FIVE MINUTES? EASY. THE FOLLOWING
.BYTES HOLD THE TOD INFO:.. 49158
10THS OF A SECOND. 49159 SECONDS.
49160 MINUTES. 49161 HOURS..
IT'S A LITTLE TRICKY BECAUSE THE.DIG
ITS ARE STORED IN THE NYBBLES OF.THESE B
YTES. TO CHECK IF THE CLOCK.HAS REACHED
08 SECONDS, DO THIS:.. IF PEEK(49159
) = 8 THEN.....BUT IF YOU WANT TO CHECK
IF THE CLOCK.HAS REACHED 24, FOR EXAMPLE
, YOU NEED.TO REALIZE THAT THE 2 IN 24 I
S FOUND.IN THE HIGH NYBBLE AND NYBBLES A
RE.HEXADECIMAL-BASED. SO MULTIPLY THE 2
.TIMES 16 (AND GET 32) AND ADD THE LOW.N
YBBLE (4). THE CODE FOR CHECKING.FOR 24
SECONDS IS THEREFORE:.. IF PEEK(4915
9) = 36 THEN..... THE HOURS AND MINUT
ES WORK THE.SAME WAY. MULTIPLY THE TENS
DIGIT BY.16 AND ADD THE ONES DIGIT TO F
IND THE.VALUE YOU SHOULD GET WHEN YOU PE
EK.THE BYTE... TRY OUT THIS HANDY ROU
TINE THE.NEXT TIME YOU WANT TO HAVE A TI
MER IN.YOUR PROGRAM THAT ISN'T AFFECTED
BY.BASIC CODE, OR NEEDS TO BE UPDATED BY
.BASIC. THE FIRST VERSION OF U.S..CITIE
S HAD A BASIC CLOCK IN IT BUT.FENDER HAD
TO DO A LOT OF PEEKING AND.POKEING TO M
OVE THE CURSOR BACK AND.FORTH BETWEEN TH
E INPUT LINE AND THE.CLOCK. TOD.O SOLVE
D THAT PROBLEM IN.A FLASH..... THE AS
SEMBLY SOURCE CODE FOR."TOD.O" IS ON THE
DISK IN PAL FORMAT..IT'S WELL-COMMENTED
SO YOU CAN SEE.EXACTLY WHAT'S GOING ON.
YOU MAY.WANT TO ADD SOME FEATURES TO I
T.YOURSELF. FEEL FREE... **** EN
D OF TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL