VIA DISPLAY
FILE INFORMATION
FILENAME(S): VIA DISPLAY
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 21:07:07
APPEARS ON: 1 disk(s)
FILE HASH
5dacc00edb288b59fdc12dfcaf44b6eadd95a68240d576019e5d664ae91903cd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CS TAPES PET 03 | VIA DISPLAY | PRG | DuncanTwain | 30 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0F 04 00 00 97 35 39 34 36 38 2C 31 32 00 |.......59468,12.| 00000010: 37 04 01 00 8F 2A 2A 2A 36 35 32 32 20 56 49 41 |7....***6522 VIA| 00000020: 20 44 49 53 50 4C 41 59 20 41 4E 44 20 4D 4F 4E | DISPLAY AND MON| 00000030: 49 54 4F 52 2A 2A 2A 00 5C 04 02 00 8F 2A 2A 2A |ITOR***.\....***| 00000040: 53 45 54 20 55 50 20 52 24 3D 52 45 47 49 53 54 |SET UP R$=REGIST| 00000050: 45 52 20 4E 41 4D 45 53 2C 2A 2A 2A 00 7F 04 03 |ER NAMES,***....| 00000060: 00 8F 2A 2A 2A 41 28 29 3D 52 45 47 49 53 54 45 |..***A()=REGISTE| 00000070: 52 20 41 44 44 52 45 53 53 45 53 2C 2A 2A 2A 00 |R ADDRESSES,***.| 00000080: 9E 04 04 00 8F 2A 2A 2A 46 28 29 3D 53 48 4F 57 |.....***F()=SHOW| 00000090: 20 52 45 47 49 53 54 45 52 20 49 46 3E 30 00 DE | REGISTER IF>0..| 000000A0: 04 05 00 83 22 4F 52 42 22 2C 22 4F 52 41 22 2C |...."ORB","ORA",| 000000B0: 22 44 44 52 42 22 2C 22 44 44 52 41 22 2C 22 54 |"DDRB","DDRA","T| 000000C0: 31 4C 43 2D 4C 22 2C 22 54 31 43 2D 48 22 2C 22 |1LC-L","T1C-H","| 000000D0: 54 31 4C 2D 4C 22 2C 22 54 31 4C 2D 48 22 00 18 |T1L-L","T1L-H"..| 000000E0: 05 06 00 83 22 54 32 4C 43 2D 4C 22 2C 22 54 32 |...."T2LC-L","T2| 000000F0: 43 2D 48 22 2C 22 53 52 22 2C 22 41 43 52 22 2C |C-H","SR","ACR",| 00000100: 22 50 43 52 22 2C 22 49 46 52 22 2C 22 49 45 52 |"PCR","IFR","IER| 00000110: 22 2C 22 44 41 54 41 22 00 43 05 07 00 8F 2A 2A |","DATA".C....**| 00000120: 2A 27 44 41 54 41 27 20 49 53 20 4F 52 41 20 57 |*'DATA' IS ORA W| 00000130: 49 54 48 4F 55 54 20 48 41 4E 44 53 48 41 4B 45 |ITHOUT HANDSHAKE| 00000140: 2A 2A 2A 00 5B 05 08 00 86 52 24 28 31 36 29 2C |***.[....R$(16),| 00000150: 41 28 31 36 29 2C 46 28 31 36 29 00 6F 05 09 00 |A(16),F(16).o...| 00000160: 41 B2 35 39 34 35 36 3A 81 4A B2 31 A4 31 36 00 |A.59456:.J.1.16.| 00000170: 94 05 0A 00 87 41 24 3A 52 24 28 4A 29 B2 C8 28 |.....A$:R$(J)..(| 00000180: 41 24 AA 22 20 20 20 20 20 20 20 20 22 2C 36 29 |A$." ",6)| 00000190: AA 22 3A 22 00 A5 05 0B 00 41 28 4A 29 B2 41 3A |.":".....A(J).A:| 000001A0: 41 B2 41 AA 31 00 AC 05 0C 00 82 4A 00 D5 05 0D |A.A.1......J....| 000001B0: 00 8F 2A 2A 2A 53 45 54 20 46 4C 41 47 53 20 46 |..***SET FLAGS F| 000001C0: 4F 52 20 49 4E 49 54 49 41 4C 20 44 49 53 50 4C |OR INITIAL DISPL| 000001D0: 41 59 2A 2A 2A 00 00 06 0E 00 46 28 34 29 B2 31 |AY***.....F(4).1| 000001E0: 3A 46 28 31 32 29 B2 31 3A 46 28 31 33 29 B2 31 |:F(12).1:F(13).1| 000001F0: 3A 46 28 31 34 29 B2 31 3A 46 28 31 36 29 B2 31 |:F(14).1:F(16).1| 00000200: 00 1A 06 0F 00 8F 2A 2A 2A 53 45 54 20 55 50 20 |......***SET UP | 00000210: 44 49 53 50 4C 41 59 2A 2A 2A 00 43 06 10 00 99 |DISPLAY***.C....| 00000220: 22 93 20 20 20 20 20 20 20 20 37 20 20 36 20 20 |". 7 6 | 00000230: 35 20 20 34 20 20 20 20 33 20 20 32 20 20 31 20 |5 4 3 2 1 | 00000240: 20 30 22 00 5E 06 11 00 99 22 11 11 11 11 11 11 | 0".^...."......| 00000250: 11 11 11 11 11 11 11 11 11 11 11 11 22 3B 00 7C |............";.|| 00000260: 06 12 00 99 22 44 3D 44 41 54 41 20 20 50 3D 50 |...."D=DATA P=P| 00000270: 4F 4B 45 20 20 53 3D 53 48 4F 57 22 00 9B 06 13 |OKE S=SHOW"....| 00000280: 00 99 22 48 3D 48 45 4C 50 20 20 51 3D 51 55 49 |.."H=HELP Q=QUI| 00000290: 54 20 20 54 3D 54 4F 47 47 4C 45 00 B3 06 14 00 |T T=TOGGLE.....| 000002A0: 8F 2A 2A 2A 44 49 53 50 4C 41 59 20 4C 4F 4F 50 |.***DISPLAY LOOP| 000002B0: 2A 2A 2A 00 BF 06 15 00 99 22 13 11 11 22 3B 00 |***......"...";.| 000002C0: CB 06 16 00 81 4A B2 31 A4 31 36 00 DA 06 17 00 |.....J.1.16.....| 000002D0: 8B 46 28 4A 29 B2 30 A7 32 35 00 F4 06 18 00 5A |.F(J).0.25.....Z| 000002E0: B2 C2 28 41 28 4A 29 29 3A 99 52 24 28 4A 29 3B |..(A(J)):.R$(J);| 000002F0: 3A 8D 33 36 00 FB 06 19 00 82 4A 00 20 07 1A 00 |:.36......J. ...| 00000300: 8F 2A 2A 2A 49 46 20 4E 4F 20 49 4E 50 55 54 20 |.***IF NO INPUT | 00000310: 44 4F 20 4C 4F 4F 50 20 41 47 41 49 4E 2A 2A 2A |DO LOOP AGAIN***| 00000320: 00 32 07 1B 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.2....A$:.A$."".| 00000330: 32 31 00 49 07 1C 00 8F 2A 2A 2A 44 4F 20 43 4F |21.I....***DO CO| 00000340: 4D 4D 41 4E 44 53 2A 2A 2A 00 59 07 1D 00 8B 41 |MMANDS***.Y....A| 00000350: 24 B2 22 44 22 A7 8D 34 32 00 69 07 1E 00 8B 41 |$."D"..42.i....A| 00000360: 24 B2 22 50 22 A7 8D 34 35 00 79 07 1F 00 8B 41 |$."P"..45.y....A| 00000370: 24 B2 22 53 22 A7 8D 36 35 00 89 07 20 00 8B 41 |$."S"..65... ..A| 00000380: 24 B2 22 48 22 A7 8D 35 30 00 99 07 21 00 8B 41 |$."H"..50...!..A| 00000390: 24 B2 22 54 22 A7 8D 39 34 00 A9 07 22 00 8B 41 |$."T"..94..."..A| 000003A0: 24 B2 22 51 22 A7 31 30 33 00 B1 07 23 00 89 31 |$."Q".103...#..1| 000003B0: 36 00 CE 07 24 00 8F 2A 2A 2A 44 49 53 50 4C 41 |6...$..***DISPLA| 000003C0: 59 20 49 4E 20 42 49 4E 41 52 59 2A 2A 2A 00 D9 |Y IN BINARY***..| 000003D0: 07 25 00 5A 31 B2 31 32 38 00 E5 07 26 00 81 5A |.%.Z1.128...&..Z| 000003E0: 32 B2 31 A4 38 00 F3 07 27 00 99 B4 28 5A AF 5A |2.1.8...'...(Z.Z| 000003F0: 31 29 3B 00 04 08 28 00 8B 5A 32 B2 34 A7 99 22 |1);...(..Z2.4.."| 00000400: 20 20 22 3B 00 18 08 29 00 5A 31 B2 5A 31 AD 32 | ";...).Z1.Z1.2| 00000410: 3A 82 5A 32 3A 99 3A 8E 00 3E 08 2A 00 8F 2A 2A |:.Z2:.:..>.*..**| 00000420: 2A 44 49 53 50 4C 41 59 20 48 41 4E 44 53 48 41 |*DISPLAY HANDSHA| 00000430: 4B 45 20 52 45 47 49 53 54 45 52 2A 2A 2A 00 5C |KE REGISTER***.\| 00000440: 08 2B 00 5A B2 C2 28 35 39 34 35 37 29 3A 99 22 |.+.Z..(59457):."| 00000450: 11 22 52 24 28 32 29 3B 3A 8D 33 36 00 6C 08 2C |."R$(2);:.36.l.,| 00000460: 00 99 22 11 22 3B 3A 8D 38 39 3A 8E 00 85 08 2D |..".";:.89:....-| 00000470: 00 99 22 93 50 4F 4B 45 20 52 45 47 49 53 54 45 |..".POKE REGISTE| 00000480: 52 13 11 11 22 00 8D 08 2E 00 8D 37 34 00 95 08 |R..."......74...| 00000490: 2F 00 8D 38 32 00 A1 08 30 00 97 41 28 5A 29 2C |/..82...0..A(Z),| 000004A0: 42 00 A7 08 31 00 8E 00 D4 08 32 00 99 22 93 20 |B...1.....2..". | 000004B0: 20 36 35 32 32 20 52 45 47 49 53 54 45 52 20 44 | 6522 REGISTER D| 000004C0: 49 53 50 4C 41 59 20 41 4E 44 20 43 48 41 4E 47 |ISPLAY AND CHANG| 000004D0: 45 11 11 22 00 FE 08 33 00 99 22 54 48 49 53 20 |E.."...3.."THIS | 000004E0: 53 48 4F 57 53 20 54 48 45 20 56 41 4C 55 45 53 |SHOWS THE VALUES| 000004F0: 20 46 4F 52 20 54 48 45 20 50 45 54 27 53 00 2A | FOR THE PET'S.*| 00000500: 09 34 00 99 22 56 49 41 20 52 45 47 49 53 54 45 |.4.."VIA REGISTE| 00000510: 52 53 2E 20 59 4F 55 20 43 41 4E 20 4C 4F 4F 4B |RS. YOU CAN LOOK| 00000520: 20 41 54 20 41 4C 4C 20 4F 46 00 4F 09 35 00 99 | AT ALL OF.O.5..| 00000530: 22 54 48 45 4D 2E 20 54 48 4F 53 45 20 55 53 45 |"THEM. THOSE USE| 00000540: 44 20 46 4F 52 20 54 48 45 20 55 53 45 52 2D 00 |D FOR THE USER-.| 00000550: 7D 09 36 00 99 22 50 4F 52 54 20 41 52 45 20 53 |}.6.."PORT ARE S| 00000560: 48 4F 57 4E 20 57 48 45 4E 20 54 48 45 20 50 52 |HOWN WHEN THE PR| 00000570: 4F 47 52 41 4D 20 53 54 41 52 54 53 2E 00 A7 09 |OGRAM STARTS....| 00000580: 37 00 99 22 54 48 45 20 44 49 53 50 4C 41 59 20 |7.."THE DISPLAY | 00000590: 49 53 20 52 45 46 52 45 53 48 45 44 20 41 42 4F |IS REFRESHED ABO| 000005A0: 55 54 20 4F 4E 43 45 00 D5 09 38 00 99 22 50 45 |UT ONCE...8.."PE| 000005B0: 52 20 53 45 43 4F 4E 44 2E 20 50 52 45 53 53 20 |R SECOND. PRESS | 000005C0: 41 20 4B 45 59 20 54 4F 20 44 4F 20 41 20 43 4F |A KEY TO DO A CO| 000005D0: 4D 4D 41 4E 44 00 FF 09 39 00 99 22 11 20 44 3D |MMAND...9..". D=| 000005E0: 44 41 54 41 20 20 20 52 45 41 44 53 20 4F 52 41 |DATA READS ORA| 000005F0: 20 57 49 54 48 20 48 41 4E 44 53 48 41 4B 45 00 | WITH HANDSHAKE.| 00000600: 28 0A 3A 00 99 22 20 50 3D 50 4F 4B 45 20 20 20 |(.:.." P=POKE | 00000610: 4C 45 54 53 20 59 4F 55 20 50 4F 4B 45 20 41 20 |LETS YOU POKE A | 00000620: 52 45 47 49 53 54 45 52 00 55 0A 3B 00 99 22 20 |REGISTER.U.;.." | 00000630: 53 3D 53 48 4F 57 20 20 20 53 45 4C 45 43 54 53 |S=SHOW SELECTS| 00000640: 20 52 45 47 49 53 54 45 52 53 20 54 4F 20 44 49 | REGISTERS TO DI| 00000650: 53 50 4C 41 59 00 73 0A 3C 00 99 22 20 51 3D 51 |SPLAY.s.<.." Q=Q| 00000660: 55 49 54 20 20 20 53 54 4F 50 53 20 50 52 4F 47 |UIT STOPS PROG| 00000670: 52 41 4D 00 9D 0A 3D 00 99 22 20 54 3D 54 4F 47 |RAM...=.." T=TOG| 00000680: 47 4C 45 20 54 55 52 4E 53 20 43 42 32 20 4F 4E |GLE TURNS CB2 ON| 00000690: 2C 20 54 48 45 4E 20 4F 46 46 20 54 4F 00 C4 0A |, THEN OFF TO...| 000006A0: 3E 00 99 22 20 20 20 20 20 20 20 20 20 20 46 4F |>.." FO| 000006B0: 52 43 45 20 48 41 4E 44 53 48 41 4B 45 20 26 20 |RCE HANDSHAKE & | 000006C0: 54 48 45 4E 00 EC 0A 3F 00 99 22 20 20 20 20 20 |THEN...?.." | 000006D0: 20 20 20 20 20 52 45 53 54 4F 52 45 53 20 54 4F | RESTORES TO| 000006E0: 20 50 52 49 4F 52 20 53 54 41 54 45 00 FD 0A 40 | PRIOR STATE...@| 000006F0: 00 99 22 11 11 22 3B 3A 8D 38 39 3A 8E 00 23 0B |.."..";:.89:..#.| 00000700: 41 00 8F 2A 2A 2A 43 48 41 4E 47 45 20 44 49 53 |A..***CHANGE DIS| 00000710: 50 4C 41 59 45 44 20 52 45 47 49 53 54 45 52 53 |PLAYED REGISTERS| 00000720: 2A 2A 2A 00 3C 0B 42 00 99 22 93 53 48 4F 57 20 |***.<.B..".SHOW | 00000730: 52 45 47 49 53 54 45 52 53 11 11 11 00 44 0B 43 |REGISTERS....D.C| 00000740: 00 8D 37 34 00 6A 0B 44 00 99 22 53 3D 53 48 4F |..74.j.D.."S=SHO| 00000750: 57 2C 45 3D 45 52 41 53 45 2C 58 3D 46 49 4E 49 |W,E=ERASE,X=FINI| 00000760: 53 48 45 44 22 3B 3A 8D 39 30 00 7F 0B 45 00 8B |SHED";:.90...E..| 00000770: 41 24 B2 22 53 22 A7 46 28 5A 29 B2 31 3A 8E 00 |A$."S".F(Z).1:..| 00000780: 94 0B 46 00 8B 41 24 B2 22 45 22 A7 46 28 5A 29 |..F..A$."E".F(Z)| 00000790: B2 30 3A 8E 00 A2 0B 47 00 8B 41 24 B2 22 58 22 |.0:....G..A$."X"| 000007A0: A7 8E 00 B0 0B 48 00 99 22 13 11 11 11 11 22 3B |.....H..".....";| 000007B0: 00 B8 0B 49 00 89 36 37 00 E4 0B 4A 00 8F 2A 2A |...I..67...J..**| 000007C0: 2A 47 45 54 20 52 45 47 49 53 54 45 52 20 4E 41 |*GET REGISTER NA| 000007D0: 4D 45 2C 52 45 54 55 52 4E 20 5A 3D 49 4E 44 45 |ME,RETURN Z=INDE| 000007E0: 58 2A 2A 2A 00 1A 0C 4B 00 99 22 11 11 52 45 47 |X***...K.."..REG| 000007F0: 49 53 54 45 52 20 4E 41 4D 45 3A 20 20 20 20 20 |ISTER NAME: | 00000800: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D | .........| 00000810: 9D 9D 9D 9D 22 3B 3A 85 41 24 00 2C 0C 4C 00 8C |....";:.A$.,.L..| 00000820: 3A 81 5A B2 31 A4 31 36 3A 87 42 24 00 39 0C 4D |:.Z.1.16:.B$.9.M| 00000830: 00 8B 42 24 B2 41 24 A7 8E 00 40 0C 4E 00 82 5A |..B$.A$...@.N..Z| 00000840: 00 63 0C 4F 00 99 22 11 11 11 54 48 45 20 52 45 |.c.O.."...THE RE| 00000850: 47 49 53 54 45 52 53 20 41 52 45 20 43 41 4C 4C |GISTERS ARE CALL| 00000860: 45 44 3A 00 85 0C 50 00 81 4A B2 31 A4 31 36 3A |ED:...P..J.1.16:| 00000870: 99 C8 28 52 24 28 4A 29 2C 36 29 22 20 20 20 20 |..(R$(J),6)" | 00000880: 22 3B 3A 82 4A 00 9D 0C 51 00 99 22 91 91 91 91 |";:.J...Q.."....| 00000890: 91 91 91 91 91 91 91 22 3B 3A 89 37 35 00 BA 0C |.......";:.75...| 000008A0: 52 00 8F 2A 2A 2A 47 45 54 20 42 49 4E 41 52 59 |R..***GET BINARY| 000008B0: 20 4E 55 4D 42 45 52 2A 2A 2A 00 DF 0C 53 00 99 | NUMBER***...S..| 000008C0: 22 42 49 4E 41 52 59 20 56 41 4C 55 45 3A 22 3B |"BINARY VALUE:";| 000008D0: 3A 85 41 24 3A 5A 31 B2 31 32 38 3A 42 B2 30 00 |:.A$:Z1.128:B.0.| 000008E0: F6 0C 54 00 8B C3 28 41 24 29 B3 38 A7 99 22 91 |..T...(A$).8..".| 000008F0: 22 3B 3A 89 38 33 00 01 0D 55 00 81 4A B2 31 A4 |";:.83...U..J.1.| 00000900: 38 00 1B 0D 56 00 8B CA 28 41 24 2C 4A 2C 31 29 |8...V...(A$,J,1)| 00000910: B2 22 31 22 A7 42 B2 42 B0 5A 31 00 2A 0D 57 00 |."1".B.B.Z1.*.W.| 00000920: 5A 31 B2 5A 31 AD 32 3A 82 4A 00 30 0D 58 00 8E |Z1.Z1.2:.J.0.X..| 00000930: 00 44 0D 59 00 99 22 50 52 45 53 53 20 41 20 4B |.D.Y.."PRESS A K| 00000940: 45 59 22 3B 00 5E 0D 5A 00 A1 41 24 3A 99 22 A6 |EY";.^.Z..A$:.".| 00000950: 9D 22 3B 3A 81 4B B2 31 A4 32 30 3A 82 4B 00 74 |.";:.K.1.20:.K.t| 00000960: 0D 5B 00 99 22 20 9D 22 3B 3A 81 4B B2 31 A4 32 |.[.." .";:.K.1.2| 00000970: 30 3A 82 4B 00 82 0D 5C 00 8B 41 24 B2 22 22 A7 |0:.K...\..A$."".| 00000980: 39 30 00 88 0D 5D 00 8E 00 9E 0D 5E 00 8F 2A 2A |90...].....^..**| 00000990: 2A 54 4F 47 47 4C 45 20 43 42 32 2A 2A 2A 00 B8 |*TOGGLE CB2***..| 000009A0: 0D 5F 00 41 B2 C2 28 35 39 34 36 37 29 3A 42 B2 |._.A..(59467):B.| 000009B0: C2 28 35 39 34 36 38 29 00 C8 0D 60 00 43 B2 42 |.(59468)...`.C.B| 000009C0: AF 31 33 31 B0 31 39 32 00 D4 0D 61 00 44 B2 42 |.131.192...a.D.B| 000009D0: B0 32 32 34 00 E1 0D 62 00 97 35 39 34 36 38 2C |.224...b..59468,| 000009E0: 43 00 EE 0D 63 00 97 35 39 34 36 38 2C 44 00 FB |C...c..59468,D..| 000009F0: 0D 64 00 97 35 39 34 36 38 2C 42 00 08 0E 65 00 |.d..59468,B...e.| 00000A00: 97 35 39 34 36 37 2C 41 00 0E 0E 66 00 8E 00 14 |.59467,A...f....| 00000A10: 0E 67 00 80 00 00 00 |.g..... |
.......59468,12.7....***6522 VIA DISPLAY AND MONITOR***.\....***SET UP R$=REGIST ER NAMES,***.....***A()=REGISTER ADDRES SES,***......***F()=SHOW REGISTER IF>0.. ...."ORB","ORA","DDRB","DDRA","T1LC-L"," T1C-H","T1L-L","T1L-H"......"T2LC-L","T2 C-H","SR","ACR","PCR","IFR","IER","DATA" .C....***'DATA' IS ORA WITHOUT HANDSHAKE ***.[....R$(16),A(16),F(16).O...A.59456: .J.1.16......A$:R$(J).H(A$." ",6) .":".....A(J).A:A.A.1......J.U....***SET FLAGS FOR INITIAL DISPLAY***.....F(4).1 :F(12).1:F(13).1:F(14).1:F(16).1......** *SET UP DISPLAY***.C....". 7 6 5 4 3 2 1 0".^....".............. ....";.|...."D=DATA P=POKE S=SHOW".... .."H=HELP Q=QUIT T=TOGGLE......***DISP LAY LOOP***......"...";.K....J.1.16.Z... .F(J).0.25.....Z.B(A(J)):.R$(J);:.36.... ..J. ....***IF NO INPUT DO LOOP AGAIN*** .2....A$:.A$."".21.I....***DO COMMANDS** *.Y....A$."D"..42.I....A$."P"..45.Y....A $."S"..65... ..A$."H"..50...!..A$."T"..9 4..."..A$."Q".103...#..16.N.$..***DISPLA Y IN BINARY***.Y.%.Z1.128...&..Z2.1.8... '...(Z.Z1);...(..Z2.4.." ";...).Z1.Z1.2 :.Z2:.:..>.*..***DISPLAY HANDSHAKE REGIS TER***.\.+.Z.B(59457):."."R$(2);:.36.L., ..".";:.89:....-..".POKE REGISTER..."... ...74.../..82...0..A(Z),B...1...T.2..". 6522 REGISTER DISPLAY AND CHANGE.."...3 .."THIS SHOWS THE VALUES FOR THE PET'S.* .4.."VIA REGISTERS. YOU CAN LOOK AT ALL OF.O.5.."THEM. THOSE USED FOR THE USER-. }.6.."PORT ARE SHOWN WHEN THE PROGRAM ST ARTS....7.."THE DISPLAY IS REFRESHED ABO UT ONCE.U.8.."PER SECOND. PRESS A KEY TO DO A COMMAND...9..". D=DATA READS ORA WITH HANDSHAKE.(.:.." P=POKE LETS YOU POKE A REGISTER.U.;.." S=SHOW SELECTS REGISTERS TO DISPLAY.S.<.." Q=QUIT ST OPS PROGRAM...=.." T=TOGGLE TURNS CB2 ON , THEN OFF TO.D.>.." FORCE HAND SHAKE & THEN...?.." RESTORES TO PRIOR STATE...@.."..";:.89:..#.A..***CH ANGE DISPLAYED REGISTERS***.<.B..".SHOW REGISTERS....D.C..74.J.D.."S=SHOW,E=ERAS E,X=FINISHED";:.90..E..A$."S".F(Z).1:.. ..F..A$."E".F(Z).0:....G..A$."X".....H.. ".....";...I..67...J..***GET REGISTER NA ME,RETURN Z=INDEX***...K.."..REGISTER NA ME: .............";:.A$.,.L.. :.Z.1.16:.B$.9.M..B$.A$...@.N..Z.C.O..". ..THE REGISTERS ARE CALLED:...P..J.1.16: .H(R$(J),6)" ";:.J...Q.."..........." ;:.75...R..***GET BINARY NUMBER***...S.. "BINARY VALUE:";:.A$:Z1.128:B.0...T..C(A $).8..".";:.83...U..J.1.8...V..J(A$,J,1) ."1".B.B.Z1.*.W.Z1.Z1.2:.J.0.X...D.Y.."P RESS A KEY";.^.Z..A$:."..";:.K.1.20:.K.T .[.." .";:.K.1.20:.K...\..A$."".90...].. ...^..***TOGGLE CB2***..._.A.B(59467):B. B(59468).H.`.C.B.131.192.T.A.D.B.224...B ..59468,C...C..59468,D...D..59468,B...E. .59467,A...F.....G.....
> CLICK IMAGE PREVIEW FOR FULL MODAL