T.BIT.2
FILE INFORMATION
FILENAME(S): T.BIT.2
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 18:12:20
APPEARS ON: 1 disk(s)
FILE HASH
14aac85b463c0e9c201a348c88941e8b8ddf44ce955277fffdbe0e8c1ebd4cb2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 41 S 2 | T.BIT.2 | PRG | Sailor, Ganheden | 31 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 5A 45 52 4F 0D 0D 0D 20 20 20 20 |..^U:ZERO... | 00000010: 20 20 20 20 20 20 20 20 20 C2 49 54 20 C2 59 20 | .IT .Y | 00000020: C2 49 54 0D 20 20 20 20 20 20 20 20 20 20 20 20 |.IT. | 00000030: 20 20 20 D0 41 52 54 20 32 0D 0D 20 20 20 20 20 | .ART 2.. | 00000040: 20 20 20 20 20 20 C2 59 20 CD 49 4B 45 20 CD 41 | .Y .IKE .A| 00000050: 59 4E 41 52 44 0D 20 20 20 20 20 20 20 20 20 20 |YNARD. | 00000060: 20 20 20 20 26 20 CA 49 4D 20 D2 4F 57 0D 0D 0D | & .IM .OW...| 00000070: 20 20 C9 53 20 54 48 45 20 43 48 41 52 41 43 54 | .S THE CHARACT| 00000080: 45 52 20 4C 45 53 53 20 54 48 41 4E 20 C3 C8 D2 |ER LESS THAN ...| 00000090: 24 28 31 39 29 3F 0D C9 46 20 53 4F 2C 20 42 52 |$(19)?..F SO, BR| 000000A0: 41 4E 43 48 20 54 4F 20 CE 32 3B 20 4F 54 48 45 |ANCH TO .2; OTHE| 000000B0: 52 57 49 53 45 20 4A 55 4D 50 0D 42 41 43 4B 20 |RWISE JUMP.BACK | 000000C0: 55 50 20 54 4F 20 C9 CE C5 D2 2E 0D 0D CE 31 20 |UP TO ........1 | 000000D0: 20 20 20 20 20 20 C3 CD D0 20 23 32 31 39 20 20 | ... #219 | 000000E0: 20 20 20 20 3B 20 5B D3 C8 C6 D4 5D 20 2B 0D 20 | ; [....] +. | 000000F0: 20 20 20 20 20 20 20 20 C2 C3 C3 20 CE 32 0D 20 | ... .2. | 00000100: 20 20 20 20 20 20 20 20 CA CD D0 20 C9 CE C5 D2 | ... ....| 00000110: 0D 0D 20 20 CE 4F 57 20 43 4F 4D 50 41 52 45 20 |.. .OW COMPARE | 00000120: 54 48 45 20 43 48 41 52 41 43 54 45 52 20 54 4F |THE CHARACTER TO| 00000130: 0D C3 C8 D2 24 28 39 36 29 2E 20 C9 46 20 49 54 |....$(96). .F IT| 00000140: 27 53 20 4C 45 53 53 2C 20 42 52 41 4E 43 48 20 |'S LESS, BRANCH | 00000150: 54 4F 0D C2 D9 D4 C5 D3 2E 20 C9 46 20 4E 4F 54 |TO....... .F NOT| 00000160: 2C 20 43 4F 4D 50 41 52 45 20 54 48 45 20 43 48 |, COMPARE THE CH| 00000170: 41 52 41 43 54 45 52 0D 54 4F 20 C3 C8 D2 24 28 |ARACTER.TO ...$(| 00000180: 31 39 33 29 2E 20 20 C9 46 20 49 54 27 53 20 47 |193). .F IT'S G| 00000190: 52 45 41 54 45 52 20 54 48 41 4E 0D 4F 52 20 45 |REATER THAN.OR E| 000001A0: 51 55 41 4C 20 54 4F 20 31 39 33 2C 20 42 52 41 |QUAL TO 193, BRA| 000001B0: 4E 43 48 20 54 4F 20 C2 D9 D4 C5 D3 3B 0D 4F 54 |NCH TO .....;.OT| 000001C0: 48 45 52 57 49 53 45 2C 20 4A 55 4D 50 20 42 41 |HERWISE, JUMP BA| 000001D0: 43 4B 20 55 50 20 54 4F 20 C9 CE C5 D2 2E 0D 0D |CK UP TO .......| 000001E0: CE 32 20 20 20 20 20 20 20 C3 CD D0 20 23 39 36 |.2 ... #96| 000001F0: 20 20 20 20 20 20 20 3B 20 5B D3 C8 C6 D4 5D 20 | ; [....] | 00000200: 2A 0D 20 20 20 20 20 20 20 20 20 C2 C3 C3 20 C2 |*. ... .| 00000210: D9 D4 C5 D3 0D 20 20 20 20 20 20 20 20 20 C3 CD |..... ..| 00000220: D0 20 23 31 39 33 20 20 20 20 20 20 3B 20 5B D3 |. #193 ; [.| 00000230: C8 C6 D4 5D 20 C1 0D 20 20 20 20 20 20 20 20 20 |...] .. | 00000240: C2 C3 D3 20 C2 D9 D4 C5 D3 0D 20 20 20 20 20 20 |... ...... | 00000250: 20 20 20 CA CD D0 20 C9 CE C5 D2 0D 0D 20 20 C3 | ... ...... .| 00000260: 48 45 43 4B 20 54 4F 20 53 45 45 20 49 46 20 42 |HECK TO SEE IF B| 00000270: 49 54 20 30 20 41 4E 44 20 42 49 54 20 31 20 41 |IT 0 AND BIT 1 A| 00000280: 52 45 0D 4F 4E 20 49 4E 20 C6 D5 CE C3 D4 C9 CF |RE.ON IN .......| 00000290: CE 20 41 4E 44 20 49 46 20 53 4F 20 42 52 41 4E |. AND IF SO BRAN| 000002A0: 43 48 20 54 4F 0D C2 C9 D4 33 2E 0D 0D C2 D9 D4 |CH TO....3......| 000002B0: C5 D3 20 20 20 20 CC C4 C1 20 C6 D5 CE C3 D4 C9 |.. ... ......| 000002C0: CF CE 0D 20 20 20 20 20 20 20 20 20 C1 CE C4 20 |... ... | 000002D0: 23 33 0D 20 20 20 20 20 20 20 20 20 C3 CD D0 20 |#3. ... | 000002E0: 23 33 0D 20 20 20 20 20 20 20 20 20 C2 C5 D1 20 |#3. ... | 000002F0: C2 C9 D4 33 0D 0D 20 20 C3 4F 4D 50 41 52 45 20 |...3.. .OMPARE | 00000300: C3 C8 C1 D2 20 54 4F 20 C3 C8 D2 24 28 36 35 29 |.... TO ...$(65)| 00000310: 2E 20 C9 46 20 4C 45 53 53 0D 49 54 27 53 20 4C |. .F LESS.IT'S L| 00000320: 45 53 53 2C 20 54 48 45 4E 20 42 52 41 4E 43 48 |ESS, THEN BRANCH| 00000330: 20 54 4F 20 C2 C9 D4 32 2E 20 20 C9 46 0D 4E 4F | TO ...2. .F.NO| 00000340: 54 2C 20 54 48 45 4E 20 43 4F 4D 50 41 52 45 20 |T, THEN COMPARE | 00000350: 49 54 20 54 4F 20 C3 C8 D2 24 28 39 31 29 2E 20 |IT TO ...$(91). | 00000360: 20 C9 46 0D 49 54 27 53 20 45 51 55 41 4C 20 4F | .F.IT'S EQUAL O| 00000370: 52 20 47 52 45 41 54 45 52 20 54 48 41 4E 20 39 |R GREATER THAN 9| 00000380: 31 2C 20 42 52 41 4E 43 48 0D 54 4F 20 C2 C9 D4 |1, BRANCH.TO ...| 00000390: 32 2E 0D 0D C2 C9 D4 31 20 20 20 20 20 CC C4 C1 |2......1 ...| 000003A0: 20 C3 C8 C1 D2 0D 20 20 20 20 20 20 20 20 20 C3 | ..... .| 000003B0: CD D0 20 23 36 35 20 20 20 20 20 20 20 3B 20 22 |.. #65 ; "| 000003C0: 41 22 0D 20 20 20 20 20 20 20 20 20 C2 C3 C3 20 |A". ... | 000003D0: C2 C9 D4 32 0D 20 20 20 20 20 20 20 20 20 C3 CD |...2. ..| 000003E0: D0 20 23 39 31 20 20 20 20 20 20 20 3B 20 22 5B |. #91 ; "[| 000003F0: 22 0D 20 20 20 20 20 20 20 20 20 C2 C3 D3 20 C2 |". ... .| 00000400: C9 D4 32 0D 0D 20 20 C3 48 45 43 4B 20 54 4F 20 |..2.. .HECK TO | 00000410: 53 45 45 20 49 46 20 42 49 54 20 30 20 49 53 20 |SEE IF BIT 0 IS | 00000420: 53 45 54 20 49 4E 0D C6 D5 CE C3 D4 C9 CF CE 2E |SET IN..........| 00000430: 20 20 C9 46 20 53 45 54 2C 20 54 48 45 4E 20 42 | .F SET, THEN B| 00000440: 52 41 4E 43 48 20 54 4F 0D C1 CC D4 C2 C9 D4 31 |RANCH TO.......1| 00000450: 2E 0D 0D 20 20 20 20 20 20 20 20 20 CC C4 C1 20 |... ... | 00000460: C6 D5 CE C3 D4 C9 CF CE 0D 20 20 20 20 20 20 20 |......... | 00000470: 20 20 C1 CE C4 20 23 31 0D 20 20 20 20 20 20 20 | ... #1. | 00000480: 20 20 C3 CD D0 20 23 31 0D 20 20 20 20 20 20 20 | ... #1. | 00000490: 20 20 C2 C5 D1 20 C1 CC D4 C2 C9 D4 31 0D 0D 20 | ... ......1.. | 000004A0: 20 C3 48 45 43 4B 20 54 4F 20 53 45 45 20 49 46 | .HECK TO SEE IF| 000004B0: 20 42 49 54 20 31 20 49 53 20 53 45 54 20 49 4E | BIT 1 IS SET IN| 000004C0: 0D C6 D5 CE C3 D4 C9 CF CE 2E 20 C9 46 20 53 4F |.......... .F SO| 000004D0: 2C 20 54 48 45 4E 20 42 52 41 4E 43 48 20 54 4F |, THEN BRANCH TO| 000004E0: 20 C2 C9 D4 33 2E 0D C9 46 20 4E 4F 54 2C 20 4A | ...3...F NOT, J| 000004F0: 55 4D 50 20 54 4F 20 C9 CE C5 D2 2E 0D 0D 20 20 |UMP TO ....... | 00000500: 20 20 20 20 20 20 20 CC C4 C1 20 C6 D5 CE C3 D4 | ... .....| 00000510: C9 CF CE 0D 20 20 20 20 20 20 20 20 20 C1 CE C4 |.... ...| 00000520: 20 23 32 0D 20 20 20 20 20 20 20 20 20 C3 CD D0 | #2. ...| 00000530: 20 23 32 0D 20 20 20 20 20 20 20 20 20 C2 C5 D1 | #2. ...| 00000540: 20 C2 C9 D4 33 0D 20 20 20 20 20 20 20 20 20 CA | ...3. .| 00000550: CD D0 20 C9 CE C5 D2 0D 0D 20 20 C1 44 44 20 31 |.. ...... .DD 1| 00000560: 32 38 20 54 4F 20 54 48 45 20 C1 D3 C3 C9 C9 20 |28 TO THE ..... | 00000570: 56 41 4C 55 45 20 4F 46 20 C3 C8 C1 D2 2C 0D 54 |VALUE OF ....,.T| 00000580: 48 45 4E 20 53 54 4F 52 45 20 42 41 43 4B 20 49 |HEN STORE BACK I| 00000590: 4E 54 4F 20 C3 C8 C1 D2 20 28 43 4F 4E 56 45 52 |NTO .... (CONVER| 000005A0: 54 0D 4C 4F 57 45 52 43 41 53 45 20 54 4F 20 D5 |T.LOWERCASE TO .| 000005B0: D0 D0 C5 D2 C3 C1 D3 C5 29 2C 20 54 48 45 4E 20 |........), THEN | 000005C0: 4A 55 4D 50 0D 54 4F 20 C2 C9 D4 C4 CF CE C5 2E |JUMP.TO ........| 000005D0: 0D 0D C1 CC D4 C2 C9 D4 31 20 20 C3 CC C3 0D 20 |........1 .... | 000005E0: 20 20 20 20 20 20 20 20 CC C4 C1 20 C3 C8 C1 D2 | ... ....| 000005F0: 0D 20 20 20 20 20 20 20 20 20 C1 C4 C3 20 23 31 |. ... #1| 00000600: 32 38 0D 20 20 20 20 20 20 20 20 20 D3 D4 C1 20 |28. ... | 00000610: C3 C8 C1 D2 0D 20 20 20 20 20 20 20 20 20 CA CD |..... ..| 00000620: D0 20 C2 C9 D4 C4 CF CE C5 0D 0D 20 20 C3 48 45 |. ......... .HE| 00000630: 43 4B 20 54 4F 20 53 45 45 20 49 46 20 42 49 54 |CK TO SEE IF BIT| 00000640: 20 30 20 49 53 20 4F 4E 2E 20 20 C9 46 20 53 4F | 0 IS ON. .F SO| 00000650: 0D 54 48 45 4E 20 42 52 41 4E 43 48 20 54 4F 20 |.THEN BRANCH TO | 00000660: C2 C9 D4 33 2E 0D 0D C2 C9 D4 32 20 20 20 20 20 |...3......2 | 00000670: CC C4 C1 20 C6 D5 CE C3 D4 C9 CF CE 0D 20 20 20 |... ......... | 00000680: 20 20 20 20 20 20 C1 CE C4 20 23 31 0D 20 20 20 | ... #1. | 00000690: 20 20 20 20 20 20 C3 CD D0 20 23 31 0D 20 20 20 | ... #1. | 000006A0: 20 20 20 20 20 20 C2 C5 D1 20 C2 C9 D4 33 0D 0D | ... ...3..| 000006B0: 20 20 C3 4F 4D 50 41 52 45 20 54 48 45 20 43 48 | .OMPARE THE CH| 000006C0: 41 52 41 43 54 45 52 20 54 4F 20 31 39 33 2E 20 |ARACTER TO 193. | 000006D0: C9 46 0D 49 54 27 53 20 4C 45 53 53 2C 20 42 52 |.F.IT'S LESS, BR| 000006E0: 41 4E 43 48 20 54 4F 20 C2 C9 D4 33 2E 20 C9 46 |ANCH TO ...3. .F| 000006F0: 20 49 54 27 53 0D 47 52 45 41 54 45 52 20 54 48 | IT'S.GREATER TH| 00000700: 41 4E 20 4F 52 20 45 51 55 41 4C 20 54 4F 20 32 |AN OR EQUAL TO 2| 00000710: 31 39 20 49 54 20 57 49 4C 4C 0D 41 4C 53 4F 20 |19 IT WILL.ALSO | 00000720: 42 52 41 4E 43 48 20 54 4F 20 C2 C9 D4 33 2E 20 |BRANCH TO ...3. | 00000730: 20 C9 46 20 54 48 45 0D 43 48 41 52 41 43 54 45 | .F THE.CHARACTE| 00000740: 52 20 49 53 20 42 45 54 57 45 45 4E 20 31 39 34 |R IS BETWEEN 194| 00000750: 20 41 4E 44 20 32 31 38 2C 20 49 54 0D 57 49 4C | AND 218, IT.WIL| 00000760: 4C 20 46 41 4C 4C 20 54 48 52 4F 55 47 48 20 54 |L FALL THROUGH T| 00000770: 4F 20 54 48 45 20 52 4F 55 54 49 4E 45 0D 46 4F |O THE ROUTINE.FO| 00000780: 4C 4C 4F 57 49 4E 47 20 54 48 49 53 20 4F 4E 45 |LLOWING THIS ONE| 00000790: 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 CC C4 C1 |.... ...| 000007A0: 20 C3 C8 C1 D2 0D 20 20 20 20 20 20 20 20 20 C3 | ..... .| 000007B0: CD D0 20 23 31 39 33 20 20 20 20 20 20 3B 20 5B |.. #193 ; [| 000007C0: D3 C8 C6 D4 5D 20 C1 0D 20 20 20 20 20 20 20 20 |....] .. | 000007D0: 20 C2 C3 C3 20 C2 C9 D4 33 0D 20 20 20 20 20 20 | ... ...3. | 000007E0: 20 20 20 C3 CD D0 20 23 32 31 39 20 20 20 20 20 | ... #219 | 000007F0: 20 3B 20 5B D3 C8 C6 D4 5D 20 2B 0D 20 20 20 20 | ; [....] +. | 00000800: 20 20 20 20 20 C2 C3 D3 20 C2 C9 D4 33 0D 0D 20 | ... ...3.. | 00000810: 20 C3 48 45 43 4B 20 54 4F 20 53 45 45 20 49 46 | .HECK TO SEE IF| 00000820: 20 42 49 54 20 31 20 49 53 20 53 45 54 2E 20 20 | BIT 1 IS SET. | 00000830: C9 46 0D 49 54 20 49 53 20 53 45 54 2C 20 54 48 |.F.IT IS SET, TH| 00000840: 45 4E 20 4A 55 4D 50 20 54 4F 20 C1 CC D4 C2 C9 |EN JUMP TO .....| 00000850: D4 32 2E 20 20 C9 46 0D 49 54 27 53 20 4E 4F 54 |.2. .F.IT'S NOT| 00000860: 2C 20 54 48 45 4E 20 4A 55 4D 50 20 54 4F 20 C9 |, THEN JUMP TO .| 00000870: CE C5 D2 2E 0D 0D 20 20 20 20 20 20 20 20 20 CC |...... .| 00000880: C4 C1 20 C6 D5 CE C3 D4 C9 CF CE 0D 20 20 20 20 |.. ......... | 00000890: 20 20 20 20 20 C1 CE C4 20 23 32 0D 20 20 20 20 | ... #2. | 000008A0: 20 20 20 20 20 C3 CD D0 20 23 32 0D 20 20 20 20 | ... #2. | 000008B0: 20 20 20 20 20 C2 C5 D1 20 C1 CC D4 C2 C9 D4 32 | ... ......2| 000008C0: 0D 20 20 20 20 20 20 20 20 20 CA CD D0 20 C9 CE |. ... ..| 000008D0: C5 D2 0D 0D 20 20 D3 55 42 54 52 41 43 54 20 31 |.... .UBTRACT 1| 000008E0: 32 38 20 46 52 4F 4D 20 54 48 45 20 C1 D3 C3 C9 |28 FROM THE ....| 000008F0: C9 20 56 41 4C 55 45 0D 4F 46 20 C3 C8 C1 D2 20 |. VALUE.OF .... | 00000900: 41 4E 44 20 53 54 4F 52 45 20 49 54 20 42 41 43 |AND STORE IT BAC| 00000910: 4B 20 49 4E 54 4F 20 C3 C8 C1 D2 2E 0D 28 43 4F |K INTO ......(CO| 00000920: 4E 56 45 52 54 20 D5 D0 D0 C5 D2 C3 C1 D3 C5 20 |NVERT ......... | 00000930: 54 4F 20 4C 4F 57 45 52 43 41 53 45 29 2C 0D 54 |TO LOWERCASE),.T| 00000940: 48 45 4E 20 4A 55 4D 50 20 54 4F 20 C2 C9 D4 C4 |HEN JUMP TO ....| 00000950: CF CE C5 2E 0D 0D C1 CC D4 C2 C9 D4 32 20 20 D3 |............2 .| 00000960: C5 C3 0D 20 20 20 20 20 20 20 20 20 CC C4 C1 20 |... ... | 00000970: C3 C8 C1 D2 0D 20 20 20 20 20 20 20 20 20 D3 C2 |..... ..| 00000980: C3 20 23 31 32 38 0D 20 20 20 20 20 20 20 20 20 |. #128. | 00000990: D3 D4 C1 20 C3 C8 C1 D2 0D 20 20 20 20 20 20 20 |... ..... | 000009A0: 20 20 CA CD D0 20 C2 C9 D4 C4 CF CE C5 0D 0D 20 | ... ......... | 000009B0: 20 C9 46 20 42 49 54 20 32 20 49 53 20 4E 4F 54 | .F BIT 2 IS NOT| 000009C0: 20 53 45 54 2C 20 42 52 41 4E 43 48 20 54 4F 0D | SET, BRANCH TO.| 000009D0: C2 C9 D4 34 2E 0D 0D C2 C9 D4 33 20 20 20 20 20 |...4......3 | 000009E0: CC C4 C1 20 C6 D5 CE C3 D4 C9 CF CE 0D 20 20 20 |... ......... | 000009F0: 20 20 20 20 20 20 C1 CE C4 20 23 34 0D 20 20 20 | ... #4. | 00000A00: 20 20 20 20 20 20 C2 CE C5 20 C2 C9 D4 34 0D 0D | ... ...4..| 00000A10: 20 20 C3 4F 4D 50 41 52 45 20 54 48 45 20 43 48 | .OMPARE THE CH| 00000A20: 41 52 41 43 54 45 52 20 54 4F 20 34 38 2E 20 C9 |ARACTER TO 48. .| 00000A30: 46 0D 49 54 27 53 20 4C 45 53 53 20 54 48 41 4E |F.IT'S LESS THAN| 00000A40: 20 34 38 2C 20 54 48 45 4E 20 42 52 41 4E 43 48 | 48, THEN BRANCH| 00000A50: 20 54 4F 0D C2 C9 D4 34 2E 20 C9 46 20 4E 4F 54 | TO....4. .F NOT| 00000A60: 2C 20 54 48 45 4E 20 43 4F 4D 50 41 52 45 20 49 |, THEN COMPARE I| 00000A70: 54 20 54 4F 20 35 38 0D 41 4E 44 20 49 46 20 54 |T TO 58.AND IF T| 00000A80: 48 41 54 27 53 20 47 52 45 41 54 45 52 20 54 48 |HAT'S GREATER TH| 00000A90: 41 4E 20 4F 52 20 45 51 55 41 4C 0D 54 4F 20 35 |AN OR EQUAL.TO 5| 00000AA0: 38 20 54 48 45 4E 20 42 52 41 4E 43 48 20 54 4F |8 THEN BRANCH TO| 00000AB0: 20 C2 C9 D4 34 2E 20 C9 46 20 4E 45 49 54 48 45 | ...4. .F NEITHE| 00000AC0: 52 0D 49 53 20 54 52 55 45 2C 20 54 48 45 4E 20 |R.IS TRUE, THEN | 00000AD0: 4A 55 4D 50 20 54 4F 20 C9 CE C5 D2 2E 0D 0D 20 |JUMP TO ....... | 00000AE0: 20 20 20 20 20 20 20 20 CC C4 C1 20 C3 C8 C1 D2 | ... ....| 00000AF0: 0D 20 20 20 20 20 20 20 20 20 C3 CD D0 20 23 34 |. ... #4| 00000B00: 38 20 20 20 20 20 20 20 20 3B 20 22 30 22 0D 20 |8 ; "0". | 00000B10: 20 20 20 20 20 20 20 20 C2 C3 C3 20 C2 C9 D4 34 | ... ...4| 00000B20: 0D 20 20 20 20 20 20 20 20 20 C3 CD D0 20 23 35 |. ... #5| 00000B30: 38 20 20 20 20 20 20 20 20 3B 20 22 3A 22 0D 20 |8 ; ":". | 00000B40: 20 20 20 20 20 20 20 20 C2 C3 D3 20 C2 C9 D4 34 | ... ...4| 00000B50: 0D 20 20 20 20 20 20 20 20 20 CA CD D0 20 C9 CE |. ... ..| 00000B60: C5 D2 0D 0D 20 20 C3 48 45 43 4B 20 54 4F 20 53 |.... .HECK TO S| 00000B70: 45 45 20 49 46 20 42 49 54 20 33 20 49 53 20 53 |EE IF BIT 3 IS S| 00000B80: 45 54 2E 20 20 C9 46 0D 53 4F 20 54 48 45 4E 20 |ET. .F.SO THEN | 00000B90: 42 52 41 4E 43 48 20 54 4F 20 C2 C9 D4 35 2E 0D |BRANCH TO ...5..| 00000BA0: 0D C2 C9 D4 34 20 20 20 20 20 CC C4 C1 20 C6 D5 |....4 ... ..| 00000BB0: CE C3 D4 C9 CF CE 0D 20 20 20 20 20 20 20 20 20 |....... | 00000BC0: C1 CE C4 20 23 38 0D 20 20 20 20 20 20 20 20 20 |... #8. | 00000BD0: C3 CD D0 20 23 38 0D 20 20 20 20 20 20 20 20 20 |... #8. | 00000BE0: C2 C5 D1 20 C2 C9 D4 35 0D 0D 20 C3 4F 4D 50 41 |... ...5.. .OMPA| 00000BF0: 52 45 20 C3 C8 C1 D2 20 54 4F 20 C3 C8 D2 24 28 |RE .... TO ...$(| 00000C00: 33 33 29 2E 20 20 C9 46 20 4C 45 53 53 0D 54 48 |33). .F LESS.TH| 00000C10: 45 4E 20 42 52 41 4E 43 48 20 54 4F 20 C2 C9 D4 |EN BRANCH TO ...| 00000C20: 34 CE 2E 20 20 C9 46 20 4E 4F 54 20 54 48 45 4E |4.. .F NOT THEN| 00000C30: 0D 43 4F 4D 50 41 52 45 20 54 4F 20 C3 C8 D2 24 |.COMPARE TO ...$| 00000C40: 28 34 38 29 2E 20 20 C9 46 20 45 51 55 41 4C 20 |(48). .F EQUAL | 00000C50: 4F 52 0D 47 52 45 41 54 45 52 20 54 48 41 4E 20 |OR.GREATER THAN | 00000C60: 34 38 20 54 48 45 4E 20 42 52 41 4E 43 48 20 54 |48 THEN BRANCH T| 00000C70: 4F 20 C2 C9 D4 34 CE 2E 0D C9 46 20 4E 4F 54 20 |O ...4....F NOT | 00000C80: 54 48 45 20 4A 55 4D 50 20 54 4F 20 C9 CE C5 D2 |THE JUMP TO ....| 00000C90: 2E 0D 0D 20 20 20 20 20 20 20 20 20 CC C4 C1 20 |... ... | 00000CA0: C3 C8 C1 D2 0D 20 20 20 20 20 20 20 20 20 C3 CD |..... ..| 00000CB0: D0 20 23 33 33 20 20 20 20 20 20 20 20 3B 20 22 |. #33 ; "| 00000CC0: 21 22 0D 20 20 20 20 20 20 20 20 20 C2 C3 C3 20 |!". ... | 00000CD0: C2 C9 D4 34 CE 0D 20 20 20 20 20 20 20 20 20 C3 |...4.. .| 00000CE0: CD D0 20 23 34 38 20 20 20 20 20 20 20 20 3B 20 |.. #48 ; | 00000CF0: 22 30 22 0D 20 20 20 20 20 20 20 20 20 C2 C3 D3 |"0". ...| 00000D00: 20 C2 C9 D4 34 CE 0D 20 20 20 20 20 20 20 20 20 | ...4.. | 00000D10: CA CD D0 20 C9 CE C5 D2 0D 0D 20 20 C3 4F 4D 50 |... ...... .OMP| 00000D20: 41 52 45 20 C3 C8 C1 D2 20 54 4F 20 C3 C8 D2 24 |ARE .... TO ...$| 00000D30: 28 35 38 29 2E 20 20 C9 46 20 4C 45 53 53 0D 54 |(58). .F LESS.T| 00000D40: 48 45 4E 20 42 52 41 4E 43 48 20 54 4F 20 C2 C9 |HEN BRANCH TO ..| 00000D50: D4 34 CE 32 2E 20 20 C9 46 20 4E 4F 54 20 54 48 |.4.2. .F NOT TH| 00000D60: 45 4E 0D 43 4F 4D 50 41 52 45 20 54 4F 20 C3 C8 |EN.COMPARE TO ..| 00000D70: D2 24 28 36 35 29 2E 20 20 C9 46 20 45 51 55 41 |.$(65). .F EQUA| 00000D80: 4C 20 4F 52 0D 47 52 45 41 54 45 52 20 54 48 45 |L OR.GREATER THE| 00000D90: 4E 20 42 52 41 4E 43 48 20 54 4F 20 C2 C9 D4 34 |N BRANCH TO ...4| 00000DA0: CE 32 2E 20 20 C9 46 0D 4E 4F 54 20 54 48 45 4E |.2. .F.NOT THEN| 00000DB0: 20 4A 55 4D 50 20 54 4F 20 C9 CE C5 D2 2E 0D 0D | JUMP TO .......| 00000DC0: C2 C9 D4 34 CE 20 20 20 20 CC C4 C1 20 C3 C8 C1 |...4. ... ...| 00000DD0: D2 0D 20 20 20 20 20 20 20 20 20 C3 CD D0 20 23 |.. ... #| 00000DE0: 35 38 20 20 20 20 20 20 20 20 3B 20 22 3A 22 0D |58 ; ":".| 00000DF0: 20 20 20 20 20 20 20 20 20 C2 C3 C3 20 C2 C9 D4 | ... ...| 00000E00: 34 CE 32 0D 20 20 20 20 20 20 20 20 20 C3 CD D0 |4.2. ...| 00000E10: 20 23 36 35 20 20 20 20 20 20 20 20 3B 20 22 41 | #65 ; "A| 00000E20: 22 0D 20 20 20 20 20 20 20 20 20 C2 C3 D3 20 C2 |". ... .| 00000E30: C9 D4 34 CE 32 0D 20 20 20 20 20 20 20 20 20 CA |..4.2. .| 00000E40: CD D0 20 C9 CE C5 D2 0D 0D 20 20 C3 4F 4D 50 41 |.. ...... .OMPA| 00000E50: 52 45 20 54 4F 20 C3 C8 D2 24 28 39 31 29 2E 20 |RE TO ...$(91). | 00000E60: 20 C9 46 20 4C 45 53 53 20 54 48 45 4E 0D 42 52 | .F LESS THEN.BR| 00000E70: 41 4E 43 48 20 54 4F 20 C2 C9 D4 C4 CF CE C5 2E |ANCH TO ........| 00000E80: 20 20 C9 46 20 4E 4F 54 20 43 4F 4D 50 41 52 45 | .F NOT COMPARE| 00000E90: 20 54 4F 0D C3 C8 D2 24 28 39 36 29 2E 20 20 C9 | TO....$(96). .| 00000EA0: 46 20 45 51 55 41 4C 20 4F 52 20 47 52 41 54 45 |F EQUAL OR GRATE| 00000EB0: 52 20 54 48 45 4E 0D 42 52 41 4E 43 48 20 54 4F |R THEN.BRANCH TO| 00000EC0: 20 C2 C9 D4 C4 CF CE C5 2E 20 20 C9 46 20 4E 4F | ........ .F NO| 00000ED0: 54 2C 20 54 48 45 4E 20 4A 55 4D 50 0D 54 4F 20 |T, THEN JUMP.TO | 00000EE0: C9 CE C5 D2 2E 0D 0D C2 C9 D4 34 CE 32 20 20 20 |..........4.2 | 00000EF0: C3 CD D0 20 23 39 31 20 20 20 20 20 20 20 20 3B |... #91 ;| 00000F00: 20 22 5B 22 0D 20 20 20 20 20 20 20 20 20 C2 C3 | "[". ..| 00000F10: C3 20 C2 C9 D4 C4 CF CE C5 0D 20 20 20 20 20 20 |. ........ | 00000F20: 20 20 20 C3 CD D0 20 23 39 36 20 20 20 20 20 20 | ... #96 | 00000F30: 20 20 3B 20 5B D3 C8 C6 D4 5D 20 2A 0D 20 20 20 | ; [....] *. | 00000F40: 20 20 20 20 20 20 C2 C3 D3 20 C2 C9 D4 C4 CF CE | ... ......| 00000F50: C5 0D 20 20 20 20 20 20 20 20 20 CA CD D0 20 C9 |.. ... .| 00000F60: CE C5 D2 0D 0D C2 C9 D4 C4 CF CE C5 20 20 CE CF |............ ..| 00000F70: D0 0D 0D 20 20 D3 54 4F 52 45 20 54 48 45 20 43 |... .TORE THE C| 00000F80: 48 41 52 41 43 54 45 52 20 49 4E 20 4D 45 4D 4F |HARACTER IN MEMO| 00000F90: 52 59 2E 0D 0D D3 D4 CF D2 C5 20 20 20 20 CC C4 |RY........ ..| 00000FA0: C1 20 C3 C8 C1 D2 0D 20 20 20 20 20 20 20 20 20 |. ..... | 00000FB0: CC C4 D9 20 D0 CF C9 CE D4 C5 D2 0D 20 20 20 20 |... ........ | 00000FC0: 20 20 20 20 20 D3 D4 C1 20 D3 D4 D2 C9 CE C7 2C | ... ......,| 00000FD0: D9 0D 20 20 20 20 20 20 20 20 20 D3 D4 C1 20 C3 |.. ... .| 00000FE0: C8 C1 D2 0D 0D 20 20 D2 45 4D 4F 56 45 20 54 48 |..... .EMOVE TH| 00000FF0: 45 20 43 55 53 54 4F 4D 20 43 55 52 53 4F 52 20 |E CUSTOM CURSOR | 00001000: 46 52 4F 4D 20 54 48 45 0D 53 43 52 45 45 4E 2E |FROM THE.SCREEN.| 00001010: 0D 0D D0 D2 C9 CE D4 C9 D4 20 20 CC C4 C1 20 23 |......... ... #| 00001020: 33 32 20 20 20 20 20 20 20 3B 20 5B D3 D0 C1 C3 |32 ; [....| 00001030: C5 5D 0D 20 20 20 20 20 20 20 20 20 CC C4 D9 20 |.]. ... | 00001040: 32 31 31 0D 20 20 20 20 20 20 20 20 20 D3 D4 C1 |211. ...| 00001050: 20 28 32 30 39 29 2C D9 0D 20 20 20 20 20 20 20 | (209),.. | 00001060: 20 20 C9 CE C3 20 D0 CF C9 CE D4 C5 D2 0D 0D 20 | ... ......... | 00001070: 20 C3 48 45 43 4B 20 54 4F 20 53 45 45 20 49 46 | .HECK TO SEE IF| 00001080: 20 54 48 45 20 48 49 47 48 20 42 49 54 20 49 53 | THE HIGH BIT IS| 00001090: 20 53 45 54 0D 49 4E 20 C6 D5 CE C3 D4 C9 CF CE | SET.IN ........| 000010A0: 2E 20 20 C9 46 20 53 4F 2C 20 54 48 45 4E 20 42 |. .F SO, THEN B| 000010B0: 52 41 4E 43 48 20 54 4F 0D D3 D7 C9 D4 C3 C8 2D |RANCH TO.......-| 000010C0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 000010D0: FF FF FF FF FF FF FF FF FF FF FF FF FF 69 20 20 |.............i | 000010E0: 20 C1 CE C4 20 23 31 32 38 0D 20 20 20 20 20 20 | ... #128. | 000010F0: 20 20 20 C3 CD D0 20 23 31 32 38 0D 20 20 20 20 | ... #128. | 00001100: 20 20 20 20 20 C2 C5 D1 20 D3 D7 C9 D4 C3 C8 0D | ... .......| 00001110: 0D 20 20 D0 52 49 4E 54 20 C3 C8 C1 D2 20 4F 4E |. .RINT .... ON| 00001120: 20 54 48 45 20 53 43 52 45 45 4E 20 41 4E 44 20 | THE SCREEN AND | 00001130: 54 48 45 4E 0D 50 4F 4B 45 20 41 20 30 20 49 4E |THEN.POKE A 0 IN| 00001140: 20 32 31 32 20 54 4F 20 44 49 53 41 42 4C 45 20 | 212 TO DISABLE | 00001150: 51 55 4F 54 45 0D 4D 4F 44 45 2E 0D 0D 20 20 20 |QUOTE.MODE... | 00001160: 20 20 20 20 20 20 CC C4 C1 20 C3 C8 C1 D2 0D 20 | ... ..... | 00001170: 20 20 20 20 20 20 20 20 CA D3 D2 20 D0 D2 C9 CE | ... ....| 00001180: D4 0D 20 20 20 20 20 20 20 20 20 CC C4 C1 20 23 |.. ... #| 00001190: 30 30 0D 20 20 20 20 20 20 20 20 20 D3 D4 C1 20 |00. ... | 000011A0: 32 31 32 0D 20 20 20 20 20 20 20 20 20 CA CD D0 |212. ...| 000011B0: 20 C9 CE C5 D2 0D 0D 20 20 CD 4F 56 45 20 54 48 | ...... .OVE TH| 000011C0: 45 20 42 4F 54 54 4F 4D 20 4F 46 20 53 54 52 49 |E BOTTOM OF STRI| 000011D0: 4E 47 20 53 54 4F 52 41 47 45 0D 41 52 45 41 20 |NG STORAGE.AREA | 000011E0: 54 4F 20 41 43 43 4F 4D 4D 4F 44 41 54 45 20 54 |TO ACCOMMODATE T| 000011F0: 48 45 20 4E 45 57 20 53 54 52 49 4E 47 0D 42 45 |HE NEW STRING.BE| 00001200: 49 4E 47 20 45 4E 54 45 52 45 44 2E 20 20 D5 50 |ING ENTERED. .P| 00001210: 44 41 54 45 20 54 48 45 20 53 54 52 49 4E 47 27 |DATE THE STRING'| 00001220: 53 0D 50 4F 49 4E 54 45 52 53 20 49 4E 20 56 41 |S.POINTERS IN VA| 00001230: 52 49 41 42 4C 45 20 4D 45 4D 4F 52 59 2E 0D 0D |RIABLE MEMORY...| 00001240: D3 D7 C9 D4 C3 C8 20 20 20 CC C4 D9 20 23 30 30 |...... ... #00| 00001250: 0D 20 20 20 20 20 20 20 20 20 CC C4 C1 20 D0 CF |. ... ..| 00001260: C9 CE D4 C5 D2 0D 20 20 20 20 20 20 20 20 20 D3 |...... .| 00001270: D4 C1 20 28 C2 D9 D4 C5 29 2C D9 0D 20 20 20 20 |.. (....),.. | 00001280: 20 20 20 20 20 C9 CE D9 0D 20 20 20 20 20 20 20 | .... | 00001290: 20 20 CC C4 C1 20 35 31 0D 20 20 20 20 20 20 20 | ... 51. | 000012A0: 20 20 D3 C2 C3 20 D0 CF C9 CE D4 C5 D2 0D 20 20 | ... ........ | 000012B0: 20 20 20 20 20 20 20 D3 D4 C1 20 28 C2 D9 D4 C5 | ... (....| 000012C0: 29 2C D9 0D 20 20 20 20 20 20 20 20 20 C9 CE D9 |),.. ...| 000012D0: 0D 20 20 20 20 20 20 20 20 20 CC C4 C1 20 35 32 |. ... 52| 000012E0: 0D 20 20 20 20 20 20 20 20 20 D3 C2 C3 20 23 30 |. ... #0| 000012F0: 30 0D 20 20 20 20 20 20 20 20 20 D3 D4 C1 20 28 |0. ... (| 00001300: C2 D9 D4 C5 29 2C D9 0D 20 20 20 20 20 20 20 20 |....),.. | 00001310: 20 D3 C5 C3 0D 20 20 20 20 20 20 20 20 20 CC C4 | .... ..| 00001320: C1 20 35 31 0D 20 20 20 20 20 20 20 20 20 D3 C2 |. 51. ..| 00001330: C3 20 23 30 31 0D 20 20 20 20 20 20 20 20 20 D3 |. #01. .| 00001340: D4 C1 20 C2 D9 D4 C5 0D 20 20 20 20 20 20 20 20 |.. ..... | 00001350: 20 CC C4 C1 20 35 32 0D 20 20 20 20 20 20 20 20 | ... 52. | 00001360: 20 D3 C2 C3 20 23 30 30 0D 20 20 20 20 20 20 20 | ... #00. | 00001370: 20 20 D3 D4 C1 20 C2 D9 D4 C5 2B 31 0D 20 20 20 | ... ....+1. | 00001380: 20 20 20 20 20 20 CC C4 D8 20 D0 CF C9 CE D4 C5 | ... ......| 00001390: D2 0D 20 20 20 20 20 20 20 20 20 C4 C5 D8 0D 0D |.. .....| 000013A0: 20 20 20 20 20 2A 2A 2A 2A 20 C5 4E 44 20 CF 46 | **** .ND .F| 000013B0: 20 D0 41 52 54 20 32 20 D4 45 58 54 20 2A 2A 2A | .ART 2 .EXT ***| 000013C0: 2A 0D |*. |
..^U:ZERO... BIT BY BIT.
PART 2.. BY MIKE MA
YNARD. & JIM ROW... IS THE
CHARACTER LESS THAN CHR$(19)?.IF SO, BR
ANCH TO N2; OTHERWISE JUMP.BACK UP TO IN
ER...N1 CMP #219 ; [SHFT] +.
BCC N2. JMP INER.. NOW
COMPARE THE CHARACTER TO.CHR$(96). IF IT
'S LESS, BRANCH TO.BYTES. IF NOT, COMPAR
E THE CHARACTER.TO CHR$(193). IF IT'S G
REATER THAN.OR EQUAL TO 193, BRANCH TO B
YTES;.OTHERWISE, JUMP BACK UP TO INER...
N2 CMP #96 ; [SHFT] *.
BCC BYTES. CMP #193 ; [S
HFT] A. BCS BYTES. JMP I
NER.. CHECK TO SEE IF BIT 0 AND BIT 1 A
RE.ON IN FUNCTION AND IF SO BRANCH TO.BI
T3...BYTES LDA FUNCTION. AND
#3. CMP #3. BEQ BIT3..
COMPARE CHAR TO CHR$(65). IF LESS.IT'S L
ESS, THEN BRANCH TO BIT2. IF.NOT, THEN
COMPARE IT TO CHR$(91). IF.IT'S EQUAL O
R GREATER THAN 91, BRANCH.TO BIT2...BIT1
LDA CHAR. CMP #65 ; "
A". BCC BIT2. CMP #91
; "[". BCS BIT2.. CHECK TO
SEE IF BIT 0 IS SET IN.FUNCTION. IF SET
, THEN BRANCH TO.ALTBIT1... LDA
FUNCTION. AND #1. CMP #1
. BEQ ALTBIT1.. CHECK TO SEE IF
BIT 1 IS SET IN.FUNCTION. IF SO, THEN B
RANCH TO BIT3..IF NOT, JUMP TO INER...
LDA FUNCTION. AND #2.
CMP #2. BEQ BIT3. J
MP INER.. ADD 128 TO THE ASCII VALUE OF
CHAR,.THEN STORE BACK INTO CHAR (CONVER
T.LOWERCASE TO UPPERCASE), THEN JUMP.TO
BITDONE...ALTBIT1 CLC. LDA CHAR
. ADC #128. STA CHAR.
JMP BITDONE.. CHECK TO SEE IF BIT
0 IS ON. IF SO.THEN BRANCH TO BIT3...B
IT2 LDA FUNCTION. AND #1.
CMP #1. BEQ BIT3.. COMPAR
E THE CHARACTER TO 193. IF.IT'S LESS, BR
ANCH TO BIT3. IF IT'S.GREATER THAN OR EQ
UAL TO 219 IT WILL.ALSO BRANCH TO BIT3.
IF THE.CHARACTER IS BETWEEN 194 AND 218
, IT.WILL FALL THROUGH TO THE ROUTINE.FO
LLOWING THIS ONE.... LDA CHAR.
CMP #193 ; [SHFT] A.
BCC BIT3. CMP #219 ; [SHFT
] +. BCS BIT3.. CHECK TO SEE IF
BIT 1 IS SET. IF.IT IS SET, THEN JUMP
TO ALTBIT2. IF.IT'S NOT, THEN JUMP TO I
NER... LDA FUNCTION. AND
#2. CMP #2. BEQ ALTBIT2
. JMP INER.. SUBTRACT 128 FROM
THE ASCII VALUE.OF CHAR AND STORE IT BAC
K INTO CHAR..(CONVERT UPPERCASE TO LOWER
CASE),.THEN JUMP TO BITDONE...ALTBIT2 S
EC. LDA CHAR. SBC #128.
STA CHAR. JMP BITDONE..
IF BIT 2 IS NOT SET, BRANCH TO.BIT4...B
IT3 LDA FUNCTION. AND #4.
BNE BIT4.. COMPARE THE CHARACTER
TO 48. IF.IT'S LESS THAN 48, THEN BRANCH
TO.BIT4. IF NOT, THEN COMPARE IT TO 58.
AND IF THAT'S GREATER THAN OR EQUAL.TO 5
8 THEN BRANCH TO BIT4. IF NEITHER.IS TRU
E, THEN JUMP TO INER... LDA CHAR
. CMP #48 ; "0".
BCC BIT4. CMP #58 ; ":".
BCS BIT4. JMP INER.. CH
ECK TO SEE IF BIT 3 IS SET. IF.SO THEN
BRANCH TO BIT5...BIT4 LDA FUNCTION.
AND #8. CMP #8.
BEQ BIT5.. COMPARE CHAR TO CHR$(33). IF
LESS.THEN BRANCH TO BIT4N. IF NOT THEN
.COMPARE TO CHR$(48). IF EQUAL OR.GREAT
ER THAN 48 THEN BRANCH TO BIT4N..IF NOT
THE JUMP TO INER... LDA CHAR.
CMP #33 ; "!". BCC
BIT4N. CMP #48 ; "0".
BCS BIT4N. JMP INER.. COMP
ARE CHAR TO CHR$(58). IF LESS.THEN BRAN
CH TO BIT4N2. IF NOT THEN.COMPARE TO CH
R$(65). IF EQUAL OR.GREATER THEN BRANCH
TO BIT4N2. IF.NOT THEN JUMP TO INER...
BIT4N LDA CHAR. CMP #58
; ":". BCC BIT4N2. CMP
#65 ; "A". BCS BIT4N2.
JMP INER.. COMPARE TO CHR$(91).
IF LESS THEN.BRANCH TO BITDONE. IF NOT
COMPARE TO.CHR$(96). IF EQUAL OR GRATE
R THEN.BRANCH TO BITDONE. IF NOT, THEN
JUMP.TO INER...BIT4N2 CMP #91 ;
"[". BCC BITDONE. CMP #
96 ; [SHFT] *. BCS BITDON
E. JMP INER..BITDONE NOP.. STO
RE THE CHARACTER IN MEMORY...STORE LD
A CHAR. LDY POINTER. STA
STRING,Y. STA CHAR.. REMOVE TH
E CUSTOM CURSOR FROM THE.SCREEN...PRINTI
T LDA #32 ; [SPACE]. LDY
211. STA (209),Y. INC PO
INTER.. CHECK TO SEE IF THE HIGH BIT IS
SET.IN FUNCTION. IF SO, THEN BRANCH TO
.SWITCH-.............................I
AND #128. CMP #128. BEQ
SWITCH.. PRINT CHAR ON THE SCREEN AND
THEN.POKE A 0 IN 212 TO DISABLE QUOTE.MO
DE... LDA CHAR. JSR PRIN
T. LDA #00. STA 212.
JMP INER.. MOVE THE BOTTOM OF STRI
NG STORAGE.AREA TO ACCOMMODATE THE NEW S
TRING.BEING ENTERED. UPDATE THE STRING'
S.POINTERS IN VARIABLE MEMORY...SWITCH
LDY #00. LDA POINTER. S
TA (BYTE),Y. INY. LDA 51
. SBC POINTER. STA (BYTE
),Y. INY. LDA 52.
SBC #00. STA (BYTE),Y.
SEC. LDA 51. SBC #01.
STA BYTE. LDA 52.
SBC #00. STA BYTE+1. LD
X POINTER. DEX.. **** END OF
PART 2 TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL