_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

REG.DISPLAY

FILE INFORMATION

FILENAME(S): REG.DISPLAY

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 21:22:42

APPEARS ON: 1 disk(s)

FILE HASH

6a2075afadf3a1735deaac10a761cb4e974f87056280ef672699f86d6a8548bb

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SCHRIFTSOORTEN REG.DISPLAY PRG DuncanTwain 20 15 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 0C 04 64 00 8D 36  33 30 30 30 00 4C 04 6E  |....d..63000.L.n|
00000010: 00 83 22 4F 52 42 22 2C  22 4F 52 41 22 2C 22 44  |.."ORB","ORA","D|
00000020: 44 52 42 22 2C 22 44 44  52 41 22 2C 22 54 31 4C  |DRB","DDRA","T1L|
00000030: 43 2D 4C 22 2C 22 54 31  43 2D 48 22 2C 22 54 31  |C-L","T1C-H","T1|
00000040: 4C 2D 4C 22 2C 22 54 31  4C 2D 48 22 00 86 04 78  |L-L","T1L-H"...x|
00000050: 00 83 22 54 32 4C 43 2D  4C 22 2C 22 54 32 43 2D  |.."T2LC-L","T2C-|
00000060: 48 22 2C 22 53 52 22 2C  22 41 43 52 22 2C 22 50  |H","SR","ACR","P|
00000070: 43 52 22 2C 22 49 46 52  22 2C 22 49 45 52 22 2C  |CR","IFR","IER",|
00000080: 22 44 41 54 41 22 00 B1  04 82 00 8F 2A 2A 2A 27  |"DATA"......***'|
00000090: 44 41 54 41 27 20 49 53  20 4F 52 41 20 57 49 54  |DATA' IS ORA WIT|
000000A0: 48 4F 55 54 20 48 41 4E  44 53 48 41 4B 45 2A 2A  |HOUT HANDSHAKE**|
000000B0: 2A 00 C9 04 8C 00 86 52  24 28 31 36 29 2C 41 28  |*......R$(16),A(|
000000C0: 31 36 29 2C 46 28 31 36  29 00 DD 04 96 00 41 B2  |16),F(16).....A.|
000000D0: 35 39 34 35 36 3A 81 4A  B2 31 A4 31 36 00 02 05  |59456:.J.1.16...|
000000E0: A0 00 87 41 24 3A 52 24  28 4A 29 B2 C8 28 41 24  |...A$:R$(J)..(A$|
000000F0: AA 22 20 20 20 20 20 20  20 20 22 2C 36 29 AA 22  |."        ",6)."|
00000100: 3A 22 00 13 05 AA 00 41  28 4A 29 B2 41 3A 41 B2  |:".....A(J).A:A.|
00000110: 41 AA 31 00 1A 05 B4 00  82 4A 00 43 05 BE 00 8F  |A.1......J.C....|
00000120: 2A 2A 2A 53 45 54 20 46  4C 41 47 53 20 46 4F 52  |***SET FLAGS FOR|
00000130: 20 49 4E 49 54 49 41 4C  20 44 49 53 50 4C 41 59  | INITIAL DISPLAY|
00000140: 2A 2A 2A 00 6E 05 C8 00  46 28 34 29 B2 31 3A 46  |***.n...F(4).1:F|
00000150: 28 31 32 29 B2 31 3A 46  28 31 33 29 B2 31 3A 46  |(12).1:F(13).1:F|
00000160: 28 31 34 29 B2 31 3A 46  28 31 36 29 B2 31 00 88  |(14).1:F(16).1..|
00000170: 05 D2 00 8F 2A 2A 2A 53  45 54 20 55 50 20 44 49  |....***SET UP DI|
00000180: 53 50 4C 41 59 2A 2A 2A  00 B1 05 DC 00 99 22 93  |SPLAY***......".|
00000190: 20 20 20 20 20 20 20 20  37 20 20 36 20 20 35 20  |        7  6  5 |
000001A0: 20 34 20 20 20 20 33 20  20 32 20 20 31 20 20 30  | 4    3  2  1  0|
000001B0: 22 00 CC 05 E6 00 99 22  11 11 11 11 11 11 11 11  |"......"........|
000001C0: 11 11 11 11 11 11 11 11  11 11 22 3B 00 EA 05 F0  |..........";....|
000001D0: 00 99 22 44 3D 44 41 54  41 20 20 50 3D 50 4F 4B  |.."D=DATA  P=POK|
000001E0: 45 20 20 53 3D 53 48 4F  57 22 00 09 06 FA 00 99  |E  S=SHOW"......|
000001F0: 22 48 3D 48 45 4C 50 20  20 51 3D 51 55 49 54 20  |"H=HELP  Q=QUIT |
00000200: 20 54 3D 54 4F 47 47 4C  45 00 21 06 04 01 8F 2A  | T=TOGGLE.!....*|
00000210: 2A 2A 44 49 53 50 4C 41  59 20 4C 4F 4F 50 2A 2A  |**DISPLAY LOOP**|
00000220: 2A 00 2D 06 0E 01 99 22  13 11 11 22 3B 00 39 06  |*.-...."...";.9.|
00000230: 18 01 81 4A B2 31 A4 31  36 00 49 06 22 01 8B 46  |...J.1.16.I."..F|
00000240: 28 4A 29 B2 30 A7 33 31  30 00 64 06 2C 01 5A B2  |(J).0.310.d.,.Z.|
00000250: C2 28 41 28 4A 29 29 3A  99 52 24 28 4A 29 3B 3A  |.(A(J)):.R$(J);:|
00000260: 8D 34 32 30 00 6B 06 36  01 82 4A 00 90 06 40 01  |.420.k.6..J...@.|
00000270: 8F 2A 2A 2A 49 46 20 4E  4F 20 49 4E 50 55 54 20  |.***IF NO INPUT |
00000280: 44 4F 20 4C 4F 4F 50 20  41 47 41 49 4E 2A 2A 2A  |DO LOOP AGAIN***|
00000290: 00 A3 06 4A 01 A1 41 24  3A 8B 41 24 B2 22 22 A7  |...J..A$:.A$."".|
000002A0: 32 37 30 00 BA 06 54 01  8F 2A 2A 2A 44 4F 20 43  |270...T..***DO C|
000002B0: 4F 4D 4D 41 4E 44 53 2A  2A 2A 00 CB 06 5E 01 8B  |OMMANDS***...^..|
000002C0: 41 24 B2 22 44 22 A7 8D  34 38 30 00 DC 06 68 01  |A$."D"..480...h.|
000002D0: 8B 41 24 B2 22 50 22 A7  8D 35 31 30 00 ED 06 72  |.A$."P"..510...r|
000002E0: 01 8B 41 24 B2 22 53 22  A7 8D 37 31 30 00 FE 06  |..A$."S"..710...|
000002F0: 7C 01 8B 41 24 B2 22 48  22 A7 8D 35 36 30 00 10  ||..A$."H"..560..|
00000300: 07 86 01 8B 41 24 B2 22  54 22 A7 8D 31 30 30 30  |....A$."T"..1000|
00000310: 00 1E 07 90 01 8B 41 24  B2 22 51 22 A7 80 00 27  |......A$."Q"...'|
00000320: 07 9A 01 89 32 32 30 00  44 07 A4 01 8F 2A 2A 2A  |....220.D....***|
00000330: 44 49 53 50 4C 41 59 20  49 4E 20 42 49 4E 41 52  |DISPLAY IN BINAR|
00000340: 59 2A 2A 2A 00 4F 07 AE  01 5A 31 B2 31 32 38 00  |Y***.O...Z1.128.|
00000350: 5B 07 B8 01 81 5A 32 B2  31 A4 38 00 69 07 C2 01  |[....Z2.1.8.i...|
00000360: 99 B4 28 5A AF 5A 31 29  3B 00 7A 07 CC 01 8B 5A  |..(Z.Z1);.z....Z|
00000370: 32 B2 34 A7 99 22 20 20  22 3B 00 8E 07 D6 01 5A  |2.4.."  ";.....Z|
00000380: 31 B2 5A 31 AD 32 3A 82  5A 32 3A 99 3A 8E 00 B4  |1.Z1.2:.Z2:.:...|
00000390: 07 E0 01 8F 2A 2A 2A 44  49 53 50 4C 41 59 20 48  |....***DISPLAY H|
000003A0: 41 4E 44 53 48 41 4B 45  20 52 45 47 49 53 54 45  |ANDSHAKE REGISTE|
000003B0: 52 2A 2A 2A 00 D3 07 EA  01 5A B2 C2 28 35 39 34  |R***.....Z..(594|
000003C0: 35 37 29 3A 99 22 11 22  52 24 28 32 29 3B 3A 8D  |57):."."R$(2);:.|
000003D0: 34 32 30 00 E4 07 F4 01  99 22 11 22 3B 3A 8D 39  |420......".";:.9|
000003E0: 35 30 3A 8E 00 FD 07 FE  01 99 22 93 50 4F 4B 45  |50:.......".POKE|
000003F0: 20 52 45 47 49 53 54 45  52 13 11 11 22 00 06 08  | REGISTER..."...|
00000400: 08 02 8D 38 30 30 00 0F  08 12 02 8D 38 38 30 00  |...800......880.|
00000410: 1B 08 1C 02 97 41 28 5A  29 2C 42 00 21 08 26 02  |.....A(Z),B.!.&.|
00000420: 8E 00 4E 08 30 02 99 22  93 20 20 36 35 32 32 20  |..N.0..".  6522 |
00000430: 52 45 47 49 53 54 45 52  20 44 49 53 50 4C 41 59  |REGISTER DISPLAY|
00000440: 20 41 4E 44 20 43 48 41  4E 47 45 11 11 22 00 78  | AND CHANGE..".x|
00000450: 08 3A 02 99 22 54 48 49  53 20 53 48 4F 57 53 20  |.:.."THIS SHOWS |
00000460: 54 48 45 20 56 41 4C 55  45 53 20 46 4F 52 20 54  |THE VALUES FOR T|
00000470: 48 45 20 50 45 54 27 53  00 A4 08 44 02 99 22 56  |HE PET'S...D.."V|
00000480: 49 41 20 52 45 47 49 53  54 45 52 53 2E 20 59 4F  |IA REGISTERS. YO|
00000490: 55 20 43 41 4E 20 4C 4F  4F 4B 20 41 54 20 41 4C  |U CAN LOOK AT AL|
000004A0: 4C 20 4F 46 00 C9 08 4E  02 99 22 54 48 45 4D 2E  |L OF...N.."THEM.|
000004B0: 20 54 48 4F 53 45 20 55  53 45 44 20 46 4F 52 20  | THOSE USED FOR |
000004C0: 54 48 45 20 55 53 45 52  2D 00 F7 08 58 02 99 22  |THE USER-...X.."|
000004D0: 50 4F 52 54 20 41 52 45  20 53 48 4F 57 4E 20 57  |PORT ARE SHOWN W|
000004E0: 48 45 4E 20 54 48 45 20  50 52 4F 47 52 41 4D 20  |HEN THE PROGRAM |
000004F0: 53 54 41 52 54 53 2E 00  21 09 62 02 99 22 54 48  |STARTS..!.b.."TH|
00000500: 45 20 44 49 53 50 4C 41  59 20 49 53 20 52 45 46  |E DISPLAY IS REF|
00000510: 52 45 53 48 45 44 20 41  42 4F 55 54 20 4F 4E 43  |RESHED ABOUT ONC|
00000520: 45 00 4F 09 6C 02 99 22  50 45 52 20 53 45 43 4F  |E.O.l.."PER SECO|
00000530: 4E 44 2E 20 50 52 45 53  53 20 41 20 4B 45 59 20  |ND. PRESS A KEY |
00000540: 54 4F 20 44 4F 20 41 20  43 4F 4D 4D 41 4E 44 00  |TO DO A COMMAND.|
00000550: 79 09 76 02 99 22 11 20  44 3D 44 41 54 41 20 20  |y.v..". D=DATA  |
00000560: 20 52 45 41 44 53 20 4F  52 41 20 57 49 54 48 20  | READS ORA WITH |
00000570: 48 41 4E 44 53 48 41 4B  45 00 A2 09 80 02 99 22  |HANDSHAKE......"|
00000580: 20 50 3D 50 4F 4B 45 20  20 20 4C 45 54 53 20 59  | P=POKE   LETS Y|
00000590: 4F 55 20 50 4F 4B 45 20  41 20 52 45 47 49 53 54  |OU POKE A REGIST|
000005A0: 45 52 00 CF 09 8A 02 99  22 20 53 3D 53 48 4F 57  |ER......" S=SHOW|
000005B0: 20 20 20 53 45 4C 45 43  54 53 20 52 45 47 49 53  |   SELECTS REGIS|
000005C0: 54 45 52 53 20 54 4F 20  44 49 53 50 4C 41 59 00  |TERS TO DISPLAY.|
000005D0: ED 09 94 02 99 22 20 51  3D 51 55 49 54 20 20 20  |....." Q=QUIT   |
000005E0: 53 54 4F 50 53 20 50 52  4F 47 52 41 4D 00 17 0A  |STOPS PROGRAM...|
000005F0: 9E 02 99 22 20 54 3D 54  4F 47 47 4C 45 20 54 55  |..." T=TOGGLE TU|
00000600: 52 4E 53 20 43 42 32 20  4F 4E 2C 20 54 48 45 4E  |RNS CB2 ON, THEN|
00000610: 20 4F 46 46 20 54 4F 00  3E 0A A8 02 99 22 20 20  | OFF TO.>...."  |
00000620: 20 20 20 20 20 20 20 20  46 4F 52 43 45 20 48 41  |        FORCE HA|
00000630: 4E 44 53 48 41 4B 45 20  26 20 54 48 45 4E 00 66  |NDSHAKE & THEN.f|
00000640: 0A B2 02 99 22 20 20 20  20 20 20 20 20 20 20 52  |...."          R|
00000650: 45 53 54 4F 52 45 53 20  54 4F 20 50 52 49 4F 52  |ESTORES TO PRIOR|
00000660: 20 53 54 41 54 45 00 78  0A BC 02 99 22 11 11 22  | STATE.x....".."|
00000670: 3B 3A 8D 39 35 30 3A 8E  00 9E 0A C6 02 8F 2A 2A  |;:.950:.......**|
00000680: 2A 43 48 41 4E 47 45 20  44 49 53 50 4C 41 59 45  |*CHANGE DISPLAYE|
00000690: 44 20 52 45 47 49 53 54  45 52 53 2A 2A 2A 00 B7  |D REGISTERS***..|
000006A0: 0A D0 02 99 22 93 53 48  4F 57 20 52 45 47 49 53  |....".SHOW REGIS|
000006B0: 54 45 52 53 11 11 11 00  C0 0A DA 02 8D 38 30 30  |TERS.........800|
000006C0: 00 E7 0A E4 02 99 22 53  3D 53 48 4F 57 2C 45 3D  |......"S=SHOW,E=|
000006D0: 45 52 41 53 45 2C 58 3D  46 49 4E 49 53 48 45 44  |ERASE,X=FINISHED|
000006E0: 22 3B 3A 8D 39 36 30 00  FC 0A EE 02 8B 41 24 B2  |";:.960......A$.|
000006F0: 22 53 22 A7 46 28 5A 29  B2 31 3A 8E 00 11 0B F8  |"S".F(Z).1:.....|
00000700: 02 8B 41 24 B2 22 45 22  A7 46 28 5A 29 B2 30 3A  |..A$."E".F(Z).0:|
00000710: 8E 00 1F 0B 02 03 8B 41  24 B2 22 58 22 A7 8E 00  |.......A$."X"...|
00000720: 2D 0B 0C 03 99 22 13 11  11 11 11 22 3B 00 36 0B  |-....".....";.6.|
00000730: 16 03 89 37 33 30 00 62  0B 20 03 8F 2A 2A 2A 47  |...730.b. ..***G|
00000740: 45 54 20 52 45 47 49 53  54 45 52 20 4E 41 4D 45  |ET REGISTER NAME|
00000750: 2C 52 45 54 55 52 4E 20  5A 3D 49 4E 44 45 58 2A  |,RETURN Z=INDEX*|
00000760: 2A 2A 00 98 0B 2A 03 99  22 11 11 52 45 47 49 53  |**...*.."..REGIS|
00000770: 54 45 52 20 4E 41 4D 45  3A 20 20 20 20 20 20 20  |TER NAME:       |
00000780: 20 20 20 20 20 9D 9D 9D  9D 9D 9D 9D 9D 9D 9D 9D  |     ...........|
00000790: 9D 9D 22 3B 3A 85 41 24  00 AA 0B 34 03 8C 3A 81  |..";:.A$...4..:.|
000007A0: 5A B2 31 A4 31 36 3A 87  42 24 00 B7 0B 3E 03 8B  |Z.1.16:.B$...>..|
000007B0: 42 24 B2 41 24 A7 8E 00  BE 0B 48 03 82 5A 00 E1  |B$.A$.....H..Z..|
000007C0: 0B 52 03 99 22 11 11 11  54 48 45 20 52 45 47 49  |.R.."...THE REGI|
000007D0: 53 54 45 52 53 20 41 52  45 20 43 41 4C 4C 45 44  |STERS ARE CALLED|
000007E0: 3A 00 03 0C 5C 03 81 4A  B2 31 A4 31 36 3A 99 C8  |:...\..J.1.16:..|
000007F0: 28 52 24 28 4A 29 2C 36  29 22 20 20 20 20 22 3B  |(R$(J),6)"    ";|
00000800: 3A 82 4A 00 1C 0C 66 03  99 22 91 91 91 91 91 91  |:.J...f.."......|
00000810: 91 91 91 91 91 22 3B 3A  89 38 31 30 00 39 0C 70  |.....";:.810.9.p|
00000820: 03 8F 2A 2A 2A 47 45 54  20 42 49 4E 41 52 59 20  |..***GET BINARY |
00000830: 4E 55 4D 42 45 52 2A 2A  2A 00 5E 0C 7A 03 99 22  |NUMBER***.^.z.."|
00000840: 42 49 4E 41 52 59 20 56  41 4C 55 45 3A 22 3B 3A  |BINARY VALUE:";:|
00000850: 85 41 24 3A 5A 31 B2 31  32 38 3A 42 B2 30 00 76  |.A$:Z1.128:B.0.v|
00000860: 0C 84 03 8B C3 28 41 24  29 B3 38 A7 99 22 91 22  |.....(A$).8.."."|
00000870: 3B 3A 89 38 39 30 00 81  0C 8E 03 81 4A B2 31 A4  |;:.890......J.1.|
00000880: 38 00 9B 0C 98 03 8B CA  28 41 24 2C 4A 2C 31 29  |8.......(A$,J,1)|
00000890: B2 22 31 22 A7 42 B2 42  B0 5A 31 00 AA 0C A2 03  |."1".B.B.Z1.....|
000008A0: 5A 31 B2 5A 31 AD 32 3A  82 4A 00 B0 0C AC 03 8E  |Z1.Z1.2:.J......|
000008B0: 00 C4 0C B6 03 99 22 50  52 45 53 53 20 41 20 4B  |......"PRESS A K|
000008C0: 45 59 22 3B 00 DE 0C C0  03 A1 41 24 3A 99 22 A6  |EY";......A$:.".|
000008D0: 9D 22 3B 3A 81 4B B2 31  A4 32 30 3A 82 4B 00 F4  |.";:.K.1.20:.K..|
000008E0: 0C CA 03 99 22 20 9D 22  3B 3A 81 4B B2 31 A4 32  |...." .";:.K.1.2|
000008F0: 30 3A 82 4B 00 03 0D D4  03 8B 41 24 B2 22 22 A7  |0:.K......A$."".|
00000900: 39 36 30 00 09 0D DE 03  8E 00 1F 0D E8 03 8F 2A  |960............*|
00000910: 2A 2A 54 4F 47 47 4C 45  20 43 42 32 2A 2A 2A 00  |**TOGGLE CB2***.|
00000920: 39 0D F2 03 41 B2 C2 28  35 39 34 36 37 29 3A 42  |9...A..(59467):B|
00000930: B2 C2 28 35 39 34 36 38  29 00 49 0D FC 03 43 B2  |..(59468).I...C.|
00000940: 42 AF 31 33 31 B0 31 39  32 00 55 0D 06 04 44 B2  |B.131.192.U...D.|
00000950: 42 B0 32 32 34 00 62 0D  10 04 97 35 39 34 36 38  |B.224.b....59468|
00000960: 2C 43 00 6F 0D 1A 04 97  35 39 34 36 38 2C 44 00  |,C.o....59468,D.|
00000970: 7C 0D 24 04 97 35 39 34  36 38 2C 42 00 89 0D 2E  ||.$..59468,B....|
00000980: 04 97 35 39 34 36 37 2C  41 00 8F 0D 38 04 8E 00  |..59467,A...8...|
00000990: A7 0D 18 F6 97 35 39 34  36 38 2C 31 32 3A 97 35  |.....59468,12:.5|
000009A0: 39 34 39 30 2C 33 30 00  BC 0D 22 F6 50 24 B2 22  |9490,30...".P$."|
000009B0: 56 49 41 20 44 49 53 50  4C 41 59 22 00 EA 0D 2C  |VIA DISPLAY"...,|
000009C0: F6 51 31 B2 35 34 38 3A  43 24 B2 22 2A 2A 2A 22  |.Q1.548:C$."***"|
000009D0: 3A 8B C2 28 35 30 30 30  33 29 A7 51 31 B2 31 36  |:..(50003).Q1.16|
000009E0: 37 3A 43 24 B2 22 23 23  23 22 00 01 0E 36 F6 99  |7:C$."###"...6..|
000009F0: 22 93 22 43 24 22 20 20  22 50 24 22 20 20 22 43  |"."C$"  "P$"  "C|
00000A00: 24 00 19 0E 40 F6 99 22  11 22 B8 28 30 29 22 42  |$...@..".".(0)"B|
00000A10: 59 54 45 53 20 46 52 45  45 00 27 0E 4A F6 99 22  |YTES FREE.'.J.."|
00000A20: 11 52 45 41 44 59 2E 00  31 0E 54 F6 97 51 31 2C  |.READY..1.T..Q1,|
00000A30: 30 00 46 0E 5E F6 A1 41  24 3A 8B 41 24 B2 22 22  |0.F.^..A$:.A$.""|
00000A40: A7 36 33 30 37 30 00 57  0E 68 F6 97 51 31 2C 31  |.63070.W.h..Q1,1|
00000A50: 3A 99 22 20 22 3A 8E 00  00 00 C0                 |:." ":.....     |
....D..63000.L.N.."ORB","ORA","DDRB","DD
RA","T1LC-L","T1C-H","T1L-L","T1L-H"...X
.."T2LC-L","T2C-H","SR","ACR","PCR","IFR
","IER","DATA"......***'DATA' IS ORA WIT
HOUT HANDSHAKE***.I....R$(16),A(16),F(16
).....A.59456:.J.1.16... ..A$:R$(J).H(A$
."        ",6).":".....A(J).A:A.A.1.....
.J.C....***SET FLAGS FOR INITIAL DISPLAY
***.N.H.F(4).1:F(12).1:F(13).1:F(14).1:F
(16).1...R..***SET UP DISPLAY***......".
        7  6  5  4    3  2  1  0".L...."
..................";......"D=DATA  P=POK
E  S=SHOW"......"H=HELP  Q=QUIT  T=TOGGL
E.!....***DISPLAY LOOP***.-...."...";.9.
...J.1.16.I."..F(J).0.310.D.,.Z.B(A(J)):
.R$(J);:.420.K.6..J...@..***IF NO INPUT 
DO LOOP AGAIN***...J..A$:.A$."".270...T.
.***DO COMMANDS***.K.^..A$."D"..480...H.
.A$."P"..510...R..A$."S"..710...|..A$."H
"..560......A$."T"..1000......A$."Q"...'
....220.D....***DISPLAY IN BINARY***.O..
.Z1.128.[....Z2.1.8.I.B...(Z.Z1);.Z.L..Z
2.4.."  ";...V.Z1.Z1.2:.Z2:.:.......***D
ISPLAY HANDSHAKE REGISTER***.S...Z.B(594
57):."."R$(2);:.420......".";:.950:.....
..".POKE REGISTER..."......800......880.
.....A(Z),B.!.&...N.0..".  6522 REGISTER
 DISPLAY AND CHANGE..".X.:.."THIS SHOWS 
THE VALUES FOR THE PET'S...D.."VIA REGIS
TERS. YOU CAN LOOK AT ALL OF.I.N.."THEM.
 THOSE USED FOR THE USER-...X.."PORT ARE
 SHOWN WHEN THE PROGRAM STARTS..!.B.."TH
E DISPLAY IS REFRESHED ABOUT ONCE.O.L.."
PER SECOND. PRESS A KEY TO DO A COMMAND.
Y.V..". D=DATA   READS ORA WITH HANDSHAK
E......" P=POKE   LETS YOU POKE A REGIST
ER.O...." S=SHOW   SELECTS REGISTERS TO 
DISPLAY......" Q=QUIT   STOPS PROGRAM...
..." T=TOGGLE TURNS CB2 ON, THEN OFF TO.
>...."          FORCE HANDSHAKE & THEN.F
...."          RESTORES TO PRIOR STATE.X
...."..";:.950:....F..***CHANGE DISPLAYE
D REGISTERS***...P..".SHOW REGISTERS....
..Z..800......"S=SHOW,E=ERASE,X=FINISHED
";:.960......A$."S".F(Z).1:.......A$."E"
.F(Z).0:.......A$."X"...-....".....";.6.
...730.B. ..***GET REGISTER NAME,RETURN 
Z=INDEX***...*.."..REGISTER NAME:       
     .............";:.A$...4..:.Z.1.16:.
B$...>..B$.A$.....H..Z...R.."...THE REGI
STERS ARE CALLED:...\..J.1.16:.H(R$(J),6
)"    ";:.J...F.."...........";:.810.9.P
..***GET BINARY NUMBER***.^.Z.."BINARY V
ALUE:";:.A$:Z1.128:B.0.V....C(A$).8.."."
;:.890......J.1.8......J(A$,J,1)."1".B.B
.Z1.....Z1.Z1.2:.J.......D...."PRESS A K
EY";......A$:."..";:.K.1.20:.K...J.." ."
;:.K.1.20:.K...T..A$."".960............*
**TOGGLE CB2***.9...A.B(59467):B.B(59468
).I...C.B.131.192.U...D.B.224.B....59468
,C.O....59468,D.|.$..59468,B......59467,
A...8........59468,12:.59490,30...".P$."
VIA DISPLAY"...,.Q1.548:C$."***":.B(5000
3).Q1.167:C$."###"...6.."."C$"  "P$"  "C
$...@..".".(0)"BYTES FREE.'.J..".READY..
1.T..Q1,0.F.^..A$:.A$."".63070.W.H..Q1,1
:." ":.....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL